adding zoop

Author: maurymarkowitz

zoop.bas

@@ -0,0 +1,23 @@
+100PRINT\PRINT"READY"\"PRINT
+110 INPUT $A\IF A=253 THEN 300\INPUT $B\IF B=253 THEN 300
+120LETK=10*A+B
+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 INPUT $C\IF C=253 THEN 300
+280IFC<>141THEN270
+290PRINT\PRINT"WHAT???"\GOTO100
+300 PRINT " WIPED OUT COMPLETELY!!!"
+310 CHAIN "DEMON "
+320END