1: SCREEN 12 2: LINE INPUT "Filename-->"; FILE$ 3: PRINT 4: PRINT "(N)ew File, (A)dd to file, (P)lay file" 5: 21 A$ = INKEY$ 6: IF A$ = "" THEN GOTO 21 7: IF A$ = "n" OR A$ = "N" THEN OPEN FILE$ FOR RANDOM AS #1: GOTO 10 8: IF A$ = "a" OR A$ = "A" THEN OPEN FILE$ FOR APPEND AS #1: GOTO 10 9: IF A$ = "p" OR A$ = "P" THEN GOTO PLY 10: GOTO 21 11: 10 CLS 12: 120 A$ = INKEY$ 13: IF A$ = "" THEN GOTO 120 14: IF A$ = CHR$(0) + "M" THEN IF PA = 1 THEN PA = 0: PRINT #1, "D" + STR$(P): MA = 1 ELSE IF KA = 1 THEN KA = 0: PRINT #1, "R" + STR$(K): MA = 1 ELSE IF HA = 1 THEN HA = 0: PRINT #1, "U" + STR$(H): MA = 1 ELSE M = M + 1: DRAW "R1": MA = 1: LOCATE 1, 1: PRINT LOC(1) 15: IF A$ = CHR$(0) + "K" THEN IF PA = 1 THEN PA = 0: PRINT #1, "D" + STR$(P): KA = 1 ELSE IF MA = 1 THEN MA = 0: PRINT #1, "R" + STR$(M): KA = 1 ELSE IF HA = 1 THEN HA = 0: PRINT #1, "U" + STR$(H): KA = 1 ELSE K = K + 1: DRAW "L1": KA = 1: LOCATE 1, 1: PRINT LOC(1) 16: IF A$ = CHR$(0) + "H" THEN IF PA = 1 THEN PA = 0: PRINT #1, "D" + STR$(P): HA = 1 ELSE IF KA = 1 THEN KA = 0: PRINT #1, "R" + STR$(K): HA = 1 ELSE IF MA = 1 THEN MA = 0: PRINT #1, "R" + STR$(M): HA = 1 ELSE H = H + 1: DRAW "U1": HA = 1: LOCATE 1, 1: PRINT LOC(1) 17: IF A$ = CHR$(0) + "P" THEN IF MA = 1 THEN MA = 0: PRINT #1, "R" + STR$(M): PA = 1 ELSE IF KA = 1 THEN KA = 0: PRINT #1, "R" + STR$(K): PA = 1 ELSE IF HA = 1 THEN HA = 0: PRINT #1, "U" + STR$(H): PA = 1 ELSE P = P + 1: DRAW "D1": PA = 1: LOCATE 1, 1: PRINT LOC(1) 18: IF A$ = CHR$(27) THEN CLOSE #1: SYSTEM 19: IF A$ = CHR$(3) THEN CLOSE #1: SYSTEM 20: GOTO 120 21: PLY: 22: |