File WUMPUS.BA (BASIC source file)

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

61B 3R;I+TJ 7FKO2 WH+LCP7TCY+E^ 3H3E7P^ 7UCM+U
S6 OA2 ;A6 OO28N 3O7M3ASN""*M62B 3R;I+TJ 7ESN+ECR7AJ 3ASN+OCM3N7U7BKE""6;*JB37ICN+UCTM*M64B 3R;I+TJ 7HKE7E^ 3E^ +O6-*-J-.MVJ6 KP7ISN2 R"3O;W""*M66B 3R;I+TJ * KO.M^J6 KP7ISN* B"* KW.M"J6 KP7ISN2 R"3O;W""*M69B 3R;IT*M*1B03D7I* A*2&0*,B*2&0*,C*2&0*,D*2&0.MJJ
0R +ICM+Q"$*2&0*,SP.(B1")*M*2B53RGE7DF "$*M*3B03R;A3D7O3IWZ.MRJ20Z +OCR/ZF=2 ?T. B2.MVJ20F *(	Z"=60.JB6* B/Z6)"0*M*7B07C*(.)B=.M"J20R *(	Z"=60.JB92 WN+XCTZ*M.1B0. CR.=B."2*M.1V0. CB"=60.JF1202 .0B=.MFJ*2B07FKO. 7Z61R /OJ "0*M.1B32 [I* A/Z2)*>B07GSO/OF "96
.JR120Z 2=;I/TJ(60J*+ND*0&)"+61.JV120& 3FZ *=CZ7GSO/OF "460.JZ120& 3FF *(	F.<B>2 ?G+TCO.1B4.MFJ*7B07A*(2)Z=.MFJ*8B03AZ(6)*=.MFJ*9B07NE7T* .MJJ*0B07FKO. 7Z61R /OJ "0*M.2B12 [I* B/Z2)*>B07GSO/OJ "860.JJ220Z 2=;I/TJ(60J*+ND*0&)"+61.JN220& 3FZ *=CZ7GSO/OJ "26
.JR220& 3FF *(	Z*=CF7GSO/OJ "260.JV220& 3FJ *(	F.<B>2 ?G+TCO.2B2.MJJ*6B07B*(2)Z=.MJJ*7B03BZ(6)*=.MJJ*8B07NE7T* .MJJ*9B07FKO. 7X61R /OJ "0*M.3B02 [I* D/X2)*>B07GSO/OR "160.JF320& 7F" *=B17GSO/ON "460.JJ320J *(	Y"=7X.JN320J *(	X"=7Y.JR360& "=7X.JV320R *(	Y"
61.JZ360& *=AY6).J^320R *(	Y"=61.J"320& 3FJ *(	Y*=CX7GSO/OR "160.J&360& *=BY6).JB420^ 3O?T. V3"0*M.4B1* D/X6)"0*M.4B22 WN+XCTX*M.4B3* B/Y6)"1*M.4B4* B.16)Y*M.4B52 ?F7R* *=B1+TCO"260.JZ420& 3FN *(	Z.<B>2 ?G+TCO.5B4.MRJ*7B03F&=+NT*2*03RSN*(&0.)F+.MRJ*8B0+IC
7F*=2 ?G+TCO.4B7.MRJ*9B0+ICF3FF=*(	Z2 ?G+TCO.4B7.MVJ*0B0+ICF3FJ=*(	Z2 ?G+TCO.4B7.MVJ*1B0+ICF3CZ(.):<20^ 3O?T. ^4"0*M.5B2* C/Z6)F*M.5B3* C/F6)Z*M.5B42 WN+XCTZ*M.5B52 ?F7R" .=B1*0B0+TCO.1B0*0B03SWT/P& .0B0.MVJ*6B07FKO. 7Z61R /ON .MVJ*7B03F&=+NT*2*03RSN*(&0.
F+.MVJ*8B0+ICF3DZ(.)6>3X^ 3O?T. ^5"0*M.5B9* D/F6)3DZ(6)"+.MZJ*0B07GOO+UCB.2N1"0*M.6B12 WN+XCTZ*M.6B22 WN+XCTX*M.6B3. 7F7ISN.(B22*;R/DB(*).)"1*M.6B4. 7X.1B0.0B0.MZJ*5B03DZ(2)R=*(	F"+7X.JZ620^ 7OWS/BJ .1B3.MZJ*7B03WZ=.MZJ*8B03FF=*(	W.MZJ*9B07GOO+UCB.2N1"0*M
7B0. 7F7B^(")*M.7B12 ?G3SKU. F2"360.JJ720Z *=CW6).JN720^ 7OWS/BJ .1B3.M^J*4B03H&=+NT*2*03RSN*(&0.)F+.M^J*5B0+ICF3D"(.)6>.1B020^ 3O?T. R7"0*M.7B62 ?F7RN *=B5+TCO61N 7TCE. F-.M^J*7B0+ICF/L6020^ 3O?T. ^7"7*M.7J72 ?G3SKU. ^1"460.J^764B 3R;I+TJ 7IN +ECE3TGH7TR
3U;N7EOL* CA3BF +NCD3C2 3ESA2 ?T2 ?R7OOM""6;.J^766B 3R;I3TF *(	H*;B/H.)2";A/D."3C"(*)J;7ROE3POE7T[I7E	L""*M.7^72 [I2 ;R/DB(*):>*0B47GSO/O^ "769.J^728^ 7OWS/BJ .1F9.M^J*7B93JR=*(	H.M^J*8B0+ICF/J6>.1B020^ 3O?T. J1"460.J&720^ 3O?T. B1"960.JB820& 3F* *=B07GSO
O" "960.JF820& 3F* 2=;I3T*(./B1.)F*20^ 3O?T. N8"0*M.8B26 KP7ISN2 &"2 WH+ACR7SWQ3E/A3I
N*,J ";*M.8B3. 7J7ISN*(?J*1&0.M"J*4B0+ICF3J&=+NT/JF/*0*)*1B07GSO/O" "660.JV860B 3R;I+TJ 3IZ 3E3E* CA3DGR+F3T. .".M"J*6B0+ICF/JF<20^ 3O?T. "8"0*M.8B76 KP7ISN2 &"2 7S3E3L* CA3W7U7POU""6;.J"860B 3R;IT*M.8B96 KP7ISN6 &"+OCU3AWR2 ;I2 ?R+OKM.;/H*"B 7M[O7ER 3H?R
UG6 WT3NWN/L.".M"J*9B5/H61H*M.9B02 ;I7PSU* SP.M&J*1B0+ICF/P2$2>F"2"^ 3O?T. R9"0*M.9B2. 7H3A"(")*M.9B32 ?G+TCO.7B7.M&J*4B0+ICF/P2$2>J"2"^ 3O?T. ^9"0*M.9B5. 7H3B"(")*M.9B62 ?G+TCO.7B7.M&J*7B0+ICF/P2$2>N"2"^ 3O?T. B1"060.J"920" *=CH6).J&920^ 3O?T. ^7"0*M.1B0
0& 7FB *$J=3S?H+OKT2 ?G+TCO.1^4"0*M.1F020& 7FB .$:<2"GM+PB"7GSO/OF .0B4.MFJ.0B22 ?G3SKU. J2"060.JB1*3B07GSO/O^ "769.JB1*4B0+ICF/P2$2>2"3IG+TCS+OKN2 ?G+TCO.1^0"0*M.1V0202 .0F=.MFJ.0B62 ?G+TCO.7B7.MFJ.0B72 [I* SP*<J>3L
I7HOT2 [O+FB"7GSO/O^ "760.JB1*7B5/L60"0*M.1"020^ 3O?T. ^7"0*M.1&020& 7FJ +ND.0:)+RB07GSO/O" "060.JF1*0B03P	R+NCT2"?Y7UR 7RCI3PSE2 ;O* CA6"F;*$J;2 ;I2 ?R+OKM.;/H.MFJ.1B1. 7F7ISN.(B22*;R/DB(*).)"1*M.1J120& 3FZ *=A+HB)7GSO/OF .1B5.MFJ.1B32 [I. 7F3B"(2)^ 3O?T
 F1"560.JF1*4B0+ICF/F:<3C"(2)^ 3O?T. F1"160.JF1*4B5+ICF3F"=2 ?G+TCO.1F1"0*M.1V160B 3R;I+TJ 3ASN2 GH+VCE3T7U3BWL3D& 3N?T2 ?R+OKM";7F.JF1*6B0+ICF/R20*.B27GSO/OF .1B9.MFJ.1V62 [I2 ;R/DB(*):<25^ 3O?T. F1"960.JF1*7B03P	R+NCT2"?Y3UF +RCE7GSE3T;I3GN 3L7U3SWI3RJ 
YR +HCE3M;I3UWT""*M.1"160B 3R;I+TJ 7YWO2 WS+ECM+TCO+BCE7SWT3M3B3I
N6 KA3O;U/D."+R*0.1B0*;V"2 [O2 T7ER 3IWM""*M.1&160J 60J=*0:+"062.JJ1*0B03HZ=.MFJ.2B12 [I* D/H:).=B1.0B020^ 3O?T. R1"360.JJ1*2B07GOO+UCB.1R7"0*M.1N220^ 3O?T. ^7"0*M.1R220* 2=;I3T*(./B1*0&0.MFJ.2B52 [I. ;J.=B12 ?G+TCO.1B3"0*M.1Z260B 3R;I+TJ 3TWH+RCE+ICS7AN 
UWP3RJ-+ACT+ICN3R?O/M."+HJ;*.B 3FGL+P6-3FGL3P> 3UC*!J!.MFJ.2B7. 7H7ISN.(B22*;R/DB(*).)"1*M.1"220& 3FR *(	H.>&929^ 3O?T. J1"760.JJ1*8B3+ICF3H"=21^ 3O?T. J1"760.JJ1*9B07GSO/O^ "760.JN1*0B0+ICF/J6>.1B02 ?G+TCO.1N4"0*M.1F360B 3R;I+TJ 7YWO2 WF+LCL7ISN7OR +HCE7
SO3T7O7LOE7SB +ICT+ICN3R?O/M."H*M.1J320& 3F* .-B1.<B>2 ?G+TCO.2V0"0*M.1N320& 3FR *(	H2<&>+NT3D"(.)F/*0*)*1B07GSO/OJ .0B7.MFJ.3B46 KP7ISN6 B"7L	A2 
A3A;I6 &(+ECS+OCR+N	O""6;.JN1*5B07ROE7TKOE*M.1Z320& 7NWP7TB "$*M.1^360B 3R;IT*M.1"320& 7FB *$J=7YOE2"^ 3O?T. B4.MFJ.3B92 [I* SP*<J>7MCA2"^ 3O?T. R1"260.JR1*0B07GOO+UCB.2B2"0*M.1F420^ 3O?T. N1"460.JR1*2B03S?TP*M.1N460B 3R;I+TJ 7YWO2 GH+VCE3BWE3NR 3E?V3UWR3
J 7YR +HCE3W7U7POU2 ;I2 ?R+OKM";7H.JR1*4B07GSO/OF .3B4.MFJ.4B56 KP7ISN6 &"+OCU3S?H7T& 7OKU3S3EF6".JR1*6B07GSO/OF .3B4.MFJ.4B76 KP7ISN6 R"+HCE7AKR+OCW3Z;I+GCS+IKN";*M.1"420. "=7H.JR1*9B0/K61H*M.1B520Z +OCR/RF=2 ?T" 65.JV1*1B03P	R+NCT2"?T2 ?R+OCM""6;.JV1*2B
7ICN+UCTM*M.1N520& 3F6 *=A+KB)7GSO/OF .6B0.MFJ.5B42 [I. 7M3B.(2)^ 3O?T. Z1"060.JV1*5B0+ICF3MN=*(	K2 ?G+TCO.1B6"0*M.1Z520& 3F6 *=B07GSO/OF .7B0.MFJ.5B7. 7R"6*M.1"5206 2=;I/TJ(60J*+ND*0&)"+61.JV1*9B07GSO/OF .5B3.MFJ.6B02 [I. 3R*=B57GSO/OF .6Z2.MFJ.6B26 KP7I
N6 R"+HCE7AKR+OCW3W;E3TF 7SKT+AKY.MFJ.6R22 ?G+TCO.1N6"0*M.1J626& 3F6 .=GK2 ?G+TCO.1^5"0*M.1N620& 3F6 *=CH7GSO/OF .4B5.MFJ.6B42 [I* D/M2).1B0.0B02 ?G+TCO.1^6"0*M.1V660B 3R;I+TJ 7YWO2 GH+VCE3SGL+ICN3TWH6 WW7MWPS6".JZ1*5B57SN="-61.JZ1*6B07GSO/OF .3B4.MFJ.6B7
 [I2 ;I3TR(*(	M./B1*0&02=;I3TR(*(	M./B1.0B0.)F*20^ 3O?T. Z1"768.JZ1*7B13P	R+NCT2"?Y7UB 3I/C+ECD3O[F2 ;A2 ;I3NOO7ESN6 WS7PKE2-GBT6".JZ1*7B2+X6=.1B0"0*M.1^623Z "=7M.JZ1*7B47GOO+UCB.2N1"0*M.1^625R *(	M*=D+M6).1B0"0*M.1^626J 20J=.0F+.MFJ.6^72 ?G+TCO.1B7"0*M.1
628. 21.=.MFJ.6B8. 7KM*M.1&620: 7ESX" 7R.J^1*0B07GOO+UCB.1R7"0*M.1F720: 7ESX" 7S.J^1*2B03P	R+NCT2"?Y3U" 3AWV6 E7HWA3SWT7D& 7OKU6 WS3P3P3Y> 3FF 3R?R+WCS*-B-3TWH2 S+O
W3S> 7VKE""*M.1N720^ 3O?T. N1"460.J^1*4B0+ICF3RSN*(&0.>V.2 ?G+TCO.2B0"0*M.1V760B 3R;I+TJ 3RGO+R**7TWH+D**7TWH+D**7RWR3U7M3B3B3LWE6*R*7HWW+M+P6*+Z7Z+Z7Z+Z7Z+Z""*M.1Z760" .=F-.0B0"060.J^1*7B07F^=.MFJ.7B82 ?G3SKU. F2"360.J^1*9B03FF=*(	W.MFJ.8B02 ?G3SKU. F2"3
0.J"1*1B03FJ=*(	W.MFJ.8B22 ?G3SKU. F2"360.J"1*3B03FN=*(	W.MFJ.8B42 ?G3SKU. F2"360.J"1*5B07D^(2)R=*(	W.-B1.0B0"0*M.1Z820Z 2=;I/TJ(60J*+ND*0&)"+61.J"1*7B0+ICF3FF=*(	W2 ?G+TCO.1B9"0*M.1"820& 3FZ *=B+WB)7GSO/OF .9B0.MFJ.8B92 [I. 3F*>C+WB)7GSO/OF .8B6.MFJ.9B0.
7X.1B0.0B0.MFJ.9B1* D/F6)3DZ(6)"+.MFJ.9B2. 7WF*M.1N920^ 7OWS/BJ .1B3.MFJ.9B4. 7F7A^(")*M.1V920^ 7OWS/BJ .1B3.MFJ.9B6. 7F7B^(")*M.1^920^ 7OWS/BJ .1B3.MFJ.9B8. 7F7C^(")*M.1&920^ 7OWS/BJ .1B3.MJJ.0B02 WR+ACDQ6$.JB2*1B0+ICF/Q2$2>V"+NKD2 ?G+TCO.2R0"0*M.2J060J 
ESS3OWR.MJJ.0B32 ?G+TCO.2B0"0*M.2R060J 7EWTR7N.JB2*5B03P	R+NCT2"?Y3U" 3AWV2 WB+ECN3SGN3TC+ECD+UCP+BCY7AN 3UWP3RJ-+AKT.MJJ.0B62 ?G+TCO.1^2"0*M.2^060B 3R;I+TJ 3TWH+RCE+ICS3AJ +ACT+ICN+ACN3A+D3AWC+NCT3R?O+M6 2-" 7EN	2 3F3Y;I7GR 7HOI2 GW+YJ!.MJJ.0B82 [I2 ;R/D
(*):>*2B57GSO/OJ .1B1.MJJ.0B96 KP7ISN6 &"+OCU7SKT3U/C2 ?Y+UCR3HGE3D> 3NF . ."/Q.$2"^ 3OSO6-	B3YWEE6".JF2*0B07GSO/OF .3B4.MJJ.1B16 KP7ISN6 B"7H
E+WGW*!B!* J ";*M.2J120^ 3O?T. B2"560.JF2*3B0/F613AZ(")*M.2R120R .(GF2)R=.(GF6)"+./B1"060.JF2*5B0/F613BZ(")*M.2Z120R .(GF2)R=.(GF6)"+./B1"060.JF2*7B0/F613CZ(")*M.2"120R .(GF2)R=.(GF6)"+./B1"060.JF2*9B07RSE3U;R.MJJ.1F92 [I. CB*<B07GSO/OJ .1&9.MJJ.1J9. CB.=
B"-61.JF2*9B33F&=+NT*2*03RSN*(&0.)F+.MJJ.1R92 [I2 ;I3TR(*(	F./B1*0&02<&>+NT3DZ(.)F/.0B0*0*)*1B07GSO/OJ .1N9.MJJ.1V9. 7X.1B0"0*M.2&126R *(	F*=D+F.)X*M.2&127^ 7OWS/BJ .1B3.MJJ.1"96 KP7ISN2 F"7NSO7HKE6 WS7PKE2-GB3T" +ACS3BWE3NJ 3O;R2.2 3O/O3S2 3IWK* CA7SKT3O
N2 ;O+EJ!.MJJ.1&92 WR7TKUN*M.2B260* "=61.JJ2*1B03P	R+NCT7ZR;+AB.4.)7A*(6)R;+AB.8.)7B*(6)R;+AB*1&2*;C/Z.)3TKA.(Z12)R;*(	Z2;GT/BJ(.4.).MJJ.2B2. 7Z/ZF+.MJJ.2B36 KP7ISN. /Z3TKA.("22)F;*(	Z2;GT/BN(.2.)7B*(6)R;+AB*3&6*;C/Z.)3TKA.(B42)R;*(	Z2;GT/BR(.8.).MJJ.2J3.
7Z/ZF+.MJJ.2N32 [I. ;Z*2B07GSO/OJ .2V4.MJJ.2R36 KP7ISN. /Z3TKA.(J52)F;*(	Z2;GT/BV(.6.)7B*(6)R;+AB*6&0*;C/Z.)3TKA.(R62)R;*(	Z.MJJ.2V3. 7Z/ZF+.MJJ.2B42 ?G+TCO.2F2"0*M.2R265B 3R;IT*M.2V260B 3R;I+TJ 3HGE/RF=2 Z 3E3E.=B16 N 3M3E/LF=*0B0. .".MJJ.2B66 KP7ISN2 J"
AOT.=B1*0B02 	P/TF=.0B0*0B 3W7U7POU.=B1.0B0"06".JJ2*7B03P	R+NCT2"?Y3UF +RCE+ICN3R?O+MJ .;/H2"F +NCD7H[A+EJ .;/S2"F 3R?R7WN(2)2 7ESF""*M.2"260J 7EWTR7N.JJ2*9B07DSA+AJ 7CKO3PWS*"J,3DGE3DJ +AKT2,J"3R/O+ECN7AKR+OKW6,N"3T3A3A7G3IWT*"J,3PKE3BWL""*M.2&221R 3AGT6
^"7UCM+UCS3CGL+W2"2"WL3DWG*"J,3L;U+CCH3B
A*"J,3D
O""*M.2B320R 3AGT2 V"+NKD.MJJ.3B12 ;ED*MBZ

Note: Lines longer than 256 characters were wrapped



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