5000 REM *** IN ASCII ***
5010 REM ** KEPT ON ALL DISKS AS A "TOOLKIT PART" **
5020 REM ********** QUIT ROUTINE **********
5030 PRINT
5040 PRINT"ARE YOU SURE YOU WANT TO QUIT?"
5050 A$=INKEY$
5060 IF LEN(A$)<1 THEN 5050 
5070 IF A$="N" THEN 5360
5080 IF A$="Y" THEN 5100
5090 GOTO 5050
5100 PRINT
5110 PRINT"OPTIONS: A>SYSTEM     B>BASIC"
5120 PRINT"( <ESC> TO BACK UP ONE FRAME )"
5130 B$=INKEY$
5140 IF LEN(B$)<1 THEN 5130
5150 IF B$=CHR$(27) THEN 5030
5160 IF B$="A" THEN 5300
5170 IF B$="B" THEN 5190
5180 GOTO 5130
5190 PRINT
5200 PRINT"OPTIONS: A>CLEARED RAM  B>PROGRAM IN RAM"
5210 PRINT"<ESC> TO BACK UP"
5220 D$=INKEY$
5230 IF LEN(D$)<1 THEN 5220
5240 IF D$=CHR$(27) THEN 5100
5250 IF D$="A" THEN 5280
5260 IF D$="B" THEN 5290
5270 GOTO 5220
5280 NEW
5290 END
5300 PRINT
5310 PRINT"INSERT SYSTEM DISKETTE IN A: AND PRESS ANY KEY"
5320 F$=INKEY$
5330 IF LEN(F$)>0 THEN 5350
5340 GOTO 5320
5350 SYSTEM
5360 GOTO 5020
M DISKETTE IN A: AND PRESS ANY KEY"
5320 F$=INKEY$
5330 IF L