mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-22 10:08:22 -05:00
27 lines
1.1 KiB
QBasic
27 lines
1.1 KiB
QBasic
|
90 DIM A(6)
|
||
|
100PRINT\PRINT"READY"\PRINT
|
||
|
110 LINPUT A$\ IF A$="BYE" THEN 300
|
||
|
115 CHANGE A$ TO A\ A=A(1)\ B=A(2)\ PRINT CHR$(A);CHR$(B);
|
||
|
120LETK=10*A+B+1408
|
||
|
130IFK<>2313THEN140\PRINT"N NO FILE YOU BOOB"\GOTO100
|
||
|
140IFK<>2143THEN150\PRINT"TALOG TRY MONTGOMERY WARD'S"\GOTO100
|
||
|
150IFK<>2241THEN160\PRINT"STNH I DON'T FEEL LIKE IT"\GOTO100
|
||
|
160IFK<>2257THEN170\PRINT"W YES I'M QUITE NEW"\GOTO100
|
||
|
170IFK<>2274THEN190\PRINT"D I'M NOT THAT OLD, BUT I'M OLD ENOUGH!!!"
|
||
|
180GOTO100
|
||
|
190IFK<>2297THEN210\PRINT"NAME WHY? I LIKE MY NAME"\GOTO100
|
||
|
200IFK<>207THEN210\PRINT"NAME WHY? I LIKE MY NAME"\GOTO100
|
||
|
210IFK<>2157THEN220\PRINT"BUG GET A CAN OF RAID"\GOTO100
|
||
|
220IFK<>2322THEN230\PRINT"OP THE FUN IS JUST STARTING"\GOTO100
|
||
|
230IFK<>2303THEN240\PRINT"VE I DON'T LIKE BANKS"\GOTO100
|
||
|
240IFK<>2336THEN250\PRINT"SAVE O.K., THE WHOLE DEC TAPE"\CHAIN "ZOOP "
|
||
|
250IFK<>2305THEN260\PRINT"RATCH GOT AN ITCH?"\GOTO100
|
||
|
260IFK<>2166THEN270\PRINT"IT THIS IS NO NEWSPAPER"\GOTO100
|
||
|
270 FOR I=3 TO A(0)
|
||
|
275 PRINT CHR$(A(I));
|
||
|
280 NEXT I
|
||
|
290PRINT\PRINT"WHAT??"\GOTO100
|
||
|
300 PRINT " WIPED OUT COMPLETELY!!!"
|
||
|
310 CHAIN "DEMON "
|
||
|
320END
|