File ZOOP.30 (OMSI 30 basic source file)

Directory of image this file is from
This file as a plain text file

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
ND
330END
* B 2 & +SCZ7XKP7ISN* B * B 2//S+ICPI7T.JF0.0^6. F .4J26 " 3P	R*1B,2 GT3D& 2 ;P/TKR* B * > 7GSE2 	F7RSS6 
T3O2 7EST7EOR.MBJ.1^0*0B .4F5*1B * B * B 6 J /T[L.MBJ.1^0*1B .7B0*4B * B * B 6 J A7L.JF0.0J7. R .2^7* B * B * B 2 7J7S" 3P	R*2B * B * > 3P	R+NCT7FKI



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search