1: SCREEN 13 2: W = 1.1 3: AB = 60 4: A = 20 5: 'WINDOW (0 + AB, 0 + A)-(40 + AB, 40 + A) 6: FOR Q = 0 TO 255 * W 7: LINE (Q, 0)-(Q + 1, 200), Q / W, BF 8: NEXT Q 9: 10: 11: 12: 10 A$ = INKEY$: IF A$ = "" GOTO 10 13: IF A$ = CHR$(0) + "M" AND C < 255 THEN C = C + 1 14: IF A$ = CHR$(0) + "K" AND C > 0 THEN C = C - 1 15: IF A$ = CHR$(27) THEN END 16: LINE (Q + 2, 0)-(Q + 40, 200), C, BF 17: LOCATE 1, 36: PRINT C 18: GOTO 10 19: |