SCREEN 12
LINE INPUT "Filename-->"; file$
IF file$ = "PB" OR file$ = "pb" THEN GOTO PY
CLS
102 OPEN file$ FOR RANDOM AS #1 LEN = 10000
IF LOF(1) = 0 THEN CLOSE 1 ELSE CLOSE 1: GOTO PYR
OPEN file$ FOR OUTPUT AS #1 LEN = 10000
ON ERROR GOTO HANDER
10 KBD$ = INKEY$
IF KBD$ = CHR$(0) + "H" THEN DRAW "U1": U = U + 1: D = D - 1: WRITE #1, "U1"
IF KBD$ = CHR$(0) + "P" THEN DRAW "D1": D = D + 1: U = U - 1: WRITE #1, "D1"
IF KBD$ = CHR$(0) + "K" THEN DRAW "L1": L = L + 1: R = R - 1: WRITE #1, "L1"
IF KBD$ = CHR$(0) + "M" THEN DRAW "R1": R = R + 1: L = L - 1: WRITE #1, "R1"
IF KBD$ = CHR$(3) OR KBD$ = CHR$(27) THEN CLOSE 1: SYSTEM
IF KBD$ = "C" OR KBD$ = "c" THEN LOCATE 1, 1: LINE INPUT "Color-->"; C$: DRAW "CX" + VARPTR$(C$)
GOTO 10
PY:
LINE INPUT "Filename-->"; file$
PYR:
OPEN file$ FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, A$
IF MID$(A$, 2, 1) = "U" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "U" + DIS$: DRAW "X" + VARPTR$(DIS$)
IF MID$(A$, 2, 1) = "D" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "D" + DIS$: DRAW "X" + VARPTR$(DIS$)
IF MID$(A$, 2, 1) = "R" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "R" + DIS$: DRAW "X" + VARPTR$(DIS$)
IF MID$(A$, 2, 1) = "L" THEN DIS$ = STR$(VAL(MID$(A$, 3, LEN(A$) - 3))): DIS$ = "L" + DIS$: DRAW "X" + VARPTR$(DIS$)
IF INKEY$ = CHR$(27) THEN SYSTEM
LOOP
CLOSE 1
SYSTEM
HANDER:
LOCATE 1, 1: PRINT "An error has occured you should save your work and exit"
SLEEP
LOCATE 1, 1: PRINT "                                                                 "
RESUME NEXT
GOTO 10

SUB SLEEPA (T)
A = TIMER + T
9 IF TIMER > A THEN  ELSE GOTO 9
END SUB