1: 's$ = COMMAND$ 2: CLS 3: SCREEN 0 4: PRINT s$ 5: num = 2 6: Inc = .1 7: Clr = 63 8: DO WHILE a$ = "" 9: FOR q = 0 TO num 10: PALETTE 0, Clr 11: NEXT q 12: FOR q = 0 TO num 13: PALETTE 0, 0 14: NEXT q 15: a$ = INKEY$ 16: IF a$ = "-" THEN num = num + Inc 17: IF a$ = "+" AND num > 0 + Inc THEN num = num - Inc 18: IF a$ = "5" THEN LOCATE 2, 1: INPUT "New Increment"; Inc: CLS : LOCATE 1, 1: PRINT s$ 19: IF a$ = "8" THEN LOCATE 2, 1: INPUT "New Color (0 to 63)"; Clr: ClrMrk = Clr: CLS : LOCATE 1, 1: PRINT s$ 20: IF ClrMrk = 0 THEN Clr = (Clr + 1) MOD 64 21: IF a$ = "+" OR a$ = "-" OR a$ = "5" OR a$ = "8" THEN a$ = "" 22: LOOP 23: |