2 A=SYS(7,1)\A=RCTRLC
3 E0=10
5 PRINT\PRINT "READY"
110 INPUT #0,A$
115 IF SYS(6)=1 THEN 500
120 IF SEG$(A$,1,3)="RUN" THEN PRINT "     I'D RATHER WALK"\GOTO 5
130 IF SEG$(A$,1,4)="LIST" THEN PRINT "     I DON'T FEEL UP TO IT"\GOTO 5
140 IF SEG$(A$,1,4)="SAVE" THEN PRINT "     I DON'T LIKE BANKS"\GOTO 5
150 IF SEG$(A$,1,3)="OLD" THEN PRINT "     NO, I FEEL YOUNG AND CAREFREE"\GOTO 5
160 IF SEG$(A$,1,3)="NEW" THEN PRINT "     YES, I'M QUITE NEW"\GOTO 5
170 IF SEG$(A$,1,3)="CAT" THEN PRINT "     TRY SEARS, ROEBUCK"\GOTO 5
180 IF SEG$(A$,1,4)="NAME" THEN PRINT "     WHO ARE YOU CALLING NAMES?"\GOTO 5
190 IF SEG$(A$,1,6)="RENAME" THEN PRINT "     BUT I LIKE MY NAME"\GOTO 5
200 IF SEG$(A$,1,6)="UNSAVE" THEN PRINT "     O.K.  THE ENTIRE DISK!"\GOTO 400
210 IF SEG$(A$,1,3)="DEL" THEN PRINT "     O.K.  THE ENTIRE DISK!"\GOTO 400
220 IF SEG$(A$,1,4)="STOP" THEN PRINT "     THE FUN IS JUST STARTING!"\GOTO 5
230 IF SEG$(A$,1,3)="BYE" THEN PRINT "     NO, YOU CAN'T LEAVE NOW!"\GOTO 5
240 IF SEG$(A$,1,5)="HELLO" THEN PRINT "      WELL, HI TO YOU TOO!"\GOTO5
300 PRINT\PRINT "WHAT??"\GOTO 5
400 FORI=0TO80000\NEXTI\PRINT "#$%&&&()=*+?><MH#!(<<@@0)JFTE^^///*]]]]$%568N#VT%"
410 FORI=0TO80000\NEXTI\PRINT\PRINT"SYSTEM HAS JUST RECOVERED FROM A CRASH."\GOTO 5
500 E0=E0-1\IF E0=0 GOTO 999
515 PRINT "END OF FILE ON DEVICE"
520 GOTO 5
999 A=CTRLC\A=SYS(7,0)\END
