1: SCREEN 12 2: LINE INPUT "Filename-->"; file$ 3: IF file$ = "PB" OR file$ = "pb" THEN GOTO PY 4: CLS 5: 102 OPEN file$ FOR RANDOM AS #1 LEN = 10000 6: IF LOF(1) = 0 THEN CLOSE 1 ELSE CLOSE 1: GOTO PYR 7: OPEN file$ FOR OUTPUT AS #1 LEN = 10000 8: ON ERROR GOTO HANDER 9: 10 KBD$ = INKEY$ 10: IF KBD$ = CHR$(0) + "H" THEN DRAW "U1": U = U + 1: D = D - 1: WRITE #1, "U1" 11: IF KBD$ = CHR$(0) + "P" THEN DRAW "D1": D = D + 1: U = U - 1: WRITE #1, "D1" 12: IF KBD$ = CHR$(0) + "K" THEN DRAW "L1": L = L + 1: R = R - 1: WRITE #1, "L1" 13: IF KBD$ = CHR$(0) + "M" THEN DRAW "R1": R = R + 1: L = L - 1: WRITE #1, "R1" 14: IF KBD$ = CHR$(3) OR KBD$ = CHR$(27) THEN CLOSE 1: SYSTEM 15: IF KBD$ = "C" OR KBD$ = "c" THEN LOCATE 1, 1: LINE INPUT "Color-->"; C$: DRAW "CX" + VARPTR$(C$) 16: GOTO 10 17: PY: 18: LINE INPUT "Filename-->"; file$ 19: PYR: 20: OPEN file$ FOR INPUT AS #1 21: DO UNTIL EOF(1) 22: LINE INPUT #1, A$ 23: IF MID$(A$, 2, 1) = "U" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "U" + DIS$: DRAW "X" + VARPTR$(DIS$) 24: IF MID$(A$, 2, 1) = "D" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "D" + DIS$: DRAW "X" + VARPTR$(DIS$) 25: IF MID$(A$, 2, 1) = "R" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "R" + DIS$: DRAW "X" + VARPTR$(DIS$) 26: IF MID$(A$, 2, 1) = "L" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "L" + DIS$: DRAW "X" + VARPTR$(DIS$) 27: IF INKEY$ = CHR$(27) THEN SYSTEM 28: LOOP 29: CLOSE 1 30: SYSTEM 31: HANDER: 32: LOCATE 1, 1: PRINT "An error has occured you should save your work and exit" 33: SLEEP 34: LOCATE 1, 1: PRINT " " 35: RESUME NEXT 36: GOTO 10 37: 38: SUB SLEEPA (T) 39: A = TIMER + T 40: 9 IF TIMER > A THEN ELSE GOTO 9 41: END SUB 42: |