10 REM DEFINES BASIC FUNCTION KEYS
20 REM CREATED BY CHARLIE TOMBERG  JANUARY, 1984
30 ON ERROR GOTO 210
40 KEY 1, "load "+CHR$(34)
50 KEY 2, "load "+CHR$(34)+ "b:"
60 KEY 3, "files"
70 KEY 4, "files "+CHR$(34)+ "b:"
80 KEY 5, "list" +CHR$(13)
90 KEY 6, "run"  + CHR$(13)
100 KEY 7, "save " +CHR$(34)
110 KEY 8, "save " +CHR$(34) +"b:"
120 KEY 9, "cls" +CHR$(13)
130 KEY 10, "system"
140 CLS
150 KEY ON
160 LOCATE 15,20: INPUT "WHICH FILE DO YOU WANT TO RUN? [HIT RETURN IF NONE.]  "; FILE$
170 IF FILE$ <>"" THEN CHAIN FILE$
180 CLS
190 NEW
200 STOP
210 IF ERR=53 THEN PRINT :CLS : LOCATE 15,20: PRINT "File not found.":FOR I=1 TO 900 : NEXT I
220 GOTO 180
230 END