1 OPEN "KB:" AS FILE 1 2 PRINT\PRINT "** KB0 ** PLEASE DO NOT USE CONTROL/C" 3 PRINT " IT IS TEMPORARILY INOPERATIVE" 4 PRINT " WE WILL NOTIFY YOU WHEN IT IS BACK UP"\PRINT\PRINT 5 PRINT\PRINT "READY"\PRINT 110 INPUT #1,A$ 120 IF LEFT(A$,3)="RUN" THEN PRINT " I'D RATHER WALK"\GOTO 5 130 IF LEFT(A$,4)="LIST" THEN PRINT " I DON'T FEEL UP TO IT"\GOTO 5 140 IF LEFT(A$,4)="SAVE" THEN PRINT " I DON'T LIKE BANKS"\GOTO 5 150 IF LEFT(A$,3)="OLD" THEN PRINT " NO, I FEEL YOUNG AND CAREFREE"\GOTO 5 160 IF LEFT(A$,3)="NEW" THEN PRINT " YES, I'M QUITE NEW"\GOTO 5 170 IF LEFT(A$,3)="CAT" THEN PRINT " TRY SEARS, ROEBUCK"\GOTO 5 180 IF LEFT(A$,4)="NAME" THEN PRINT " WHO ARE YOU CALLING NAMES?"\GOTO 5 190 IF LEFT(A$,6)="RENAME" THEN PRINT " BUT I LIKE MY NAME"\GOTO 5 200 IF LEFT(A$,6)="UNSAVE" THEN PRINT " O.K. THE ENTIRE DISK!"\GOTO 400 210 IF LEFT (A$,3)="DEL" THEN PRINT " O.K. THE ENTIRE DISK!"\GOTO 400 220 IF LEFT (A$,4)="STOP" THEN PRINT " THE FUN IS JUST STARTING!"\GOTO 5 230 IF LEFT (A$,3)="BYE" THEN PRINT " NO, YOU CAN'T LEAVE NOW!"\GOTO 5 240 IF LEFT (A$,5)="HELLO" THEN PRINT " WELL, HI TO YOU TOO!"\GOTO5 300 PRINT\PRINT "WHAT??"\GOTO 5 400 SLEEP 8\PRINT "#$%&&&()=*+?>