File SPIEL8.BA (BASIC source file)

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

*1B03D7I* S*1&0*,A*1&0*,E*1&0*,SL.(B1.,B72)6,.$F(.0^,*02)+N"$*120*7&0*,SO.(B1.,B7")*M*1B13D7I* SS.(B7")*M*1B27LSE* SL*(&12=R"7ESU3SC3EJ 3A/N""*M*1B47LSE* SM*(&16=N"3I7E7EON2 
A""*M*1B57LSE* SN*(&12=J"7RSI3IS2 WP3T?R7LWE3MN 7OCM7A	N""*M*1B77LSE* SO*(&12=R"3I	G3T3A6 GE7UCI3M;E3TN 7OCR3EGR3T?IN6".JB22 WL3T. .=B16020. 7V"0*M*3B07FKO. 7I61R /OR .MRJ202 +ECT3S&(.)F=6020* A/I6)"0*M*5B07NE3T& .MZJ60B 3R;I+TJ 7IKH2 ?K3N?T3SGT+NKD";7K.J
66 KP7ISN2 F"3K	T3EKN3E	S/T+Z* B * J 2;	\7NWP7TN 2$	\7FN .$:<*"KJ2 T/E[N22
\7OWS/BF .7B0.MZJ22& 3F. .<B=2 T+ECN.1B3"0*M*6B53P	R+NCT6"KT7AON7ASK3I;O*:B * B ""6;.JB72 ;I7PSU* SS.M"J20& 7FN .$:<2"GK3UWF+NB"3TWH/N& 20
\3O?T. F1"0*M*9B0+ICF/S2$6>Z"3E/R3A[U+EKN2 T+ECN69257GSO/ON "060.JV92 [I* SS*<J>3ESN+EB"3TWH/NF 60207GSO/OF .5B0.MFJ*0B0+ICF/S2$2>."3E;I+EB"3TWH/NF 60257GSO/O" "060.JB165B 3R;I+TJ 3UKN3EGK7NSN3EV 3I
N3AWB2"
\3O?T. V6.MFJ*1B03P	R+NCT2"WW3LC+ECN3K;O7ZKE3N6 3OOE3HWT7NN +ICE* B . .".MFJ*2B07ICN+UCTT6$.JN120& 7FR .$:<2"KD6"R 3H;E. R160C\3R;I3T2 .$F(*)C\7LSE. 7I"1*M.1V32 ?G+TCO.1B8.MFJ*4B0+ICF/T2$6>N"+IB"3TWH/NF 65203P	R+NCT+M"$612)7LSE. 7I22
\3O?T. "1"0*M.1B52 [I* ST*<J>+BKP2 T+ECN.1B67\KP7ISN* SN*(&13\WL3T& 6=237GSO/OF "860.JZ120& 7FR .$:<2"WD+CB"3TWH/NF 67203P	R+NCT+O"$612)7LSE. 7I24
\3O?T. "1"0*M.1B76 KP7ISN2 R"7IOE3E. 7O+N3E;R3A/B7UKE3Z;U3G& +SCT7MKI2 ;U3B/E3A;N7T2"7GSO/OF "160.J"160B 3R;I7TC\3R;I7TC\3R;I7TC\3R;IT*M.1V86 KP7ISN2 Z"7UKE2 	W3E	V+ECL7MKA7K^ 3O3L+ECN3SWI2 /A3TWI3N. 3A[U+ECN* B . .".MFJ*9B07ICN+UCTV*M.2B02 [I. 3V*=CK3TWH
NJ "260.JF260B 3R;I+TJ 3SWI2 GH3B;E6 WN3R: 3OC. ."+KJ;7MKA+KB"3\^ 3O?T. "1"5*M.2B22 WL7T& 2=;I7TZ(*/S+I&).MJJ*3B03K.=6-3V3A&(2)F=*(	I"+7Y.JR260B 3R;I+TJ 3SWI2 GH3B;E6"&;*;B"7ASK3I;E2 WG7KWA+FKT.MJJ*4B53P	R7N3T3P	R7N3T3P	RN7T.JV220^ 3O?T. F8"0*M.3B06 KP7IS
6 ^"3EOL3H;E2 ?K3NWZ+RCN3MWO7CSH+ECN3SWI* B * J ";*M.3B12 ;I7PSU* ST.MNJ*2B0+ICF/T2$2>R"+BB"3TWH/NN 63203P	R+NCT+L"$612)/IF=3\?G+TCO.5B0.MNJ*3B0+ICF/T2$6>N"+IB"3TWH/NN 64203P	R+NCT+M"$612)/IJ=3\?G+TCO.5B0.MNJ*4B0+ICF/T2$2>J"+PB"3TWH/NN 65203P	R+NCT+N"$612
/IN=3\?G+TCO.5B0.MNJ*5B0+ICF/T2$2>R"+EKC3TWH/NN 66203P	R+NCT+O"$612)/IR=3\?G+TCO.5B0.MNJ*6B03P	R+NCT2"	D3EWS2 ?K3NWZ3RGN7BWK7E+R3U
N6 OI3T6 +ICR3UKN3EGK7NSN6!2"3P	R7N3T7GSO/ON "060.JB520& 3FF *(	I*>B03TWH/NV "260.JF560B 3R;I+TJ 3SWI2 WB7SSI3Z;E2 WK3IWN2 /A3TWI7NZ +OCN6"R;2$
\3O?T. B6.MVJ*2B03P	R+NCT2"	W3E	V3EWL2 /A3TWI7NZ +OCN6"R;*$J;2 ?W3LWL7NN +ICE7VKE7KWA3F;E* B * J ";*M.5B32 ;I7PSU" 7X.JR520& 7F" 2<F=*(	I2 T+ECN.5B6.MVJ*5B03P	R+NCT2"	S3E" 3AWB3N: +UCR2"F;*(	I2;F"3K	T+ECN3V;O. ."7T2$7GSO/OV "260.JZ5202 +ECT3U&=+NT3S&(6)"*
)/\*=/K3UG\*(	I*=A+I6)X*M.5B76 KP7ISN6 N"+ICE3HKA+ECN6"";*;B"7ASK3I;E2 7I2 WW+RCT3V;O. ."+UJ;7MKA7KZ 3E/R3A[UT6".J"520^ 3O?T. F8"0*M.8B06 KP7ISN2 ."3E;I7ER 3R;A3S/A3T?IN6".JF860B 3R;I7TR +AB*2&32;."7UOR3SGT/N+D""*M.8B26 KP7ISN2 R"+B2"2"	S3EWM+NKS2,J"+P2"2
WDC6".JN860B 3R;I7TN *(&1*,S*22)/SN(6)N,*(&4.M"J*4B03R;A3D7O3IWZ.M"J*5B07FKO. 7J61R /OJ .M"J*6B07LSE* E/J6)7ISN*(.164J*+ND+J&).M"J*7B07NE3T* .M"J*8B03R;A3D7O3IWZ.M"J*9B07LSE. 7F7ISN*(.164J*+ND*1&).M"J*9B57LSE. GE*=E612)/E62/EJ(")*M.8^92 [I. GE.=KE2 T+ECN.
B4.M&J*0B0+ICF/FF=2 T+ECN.9B23\[I. 7F62R 3H;E. V9"0*M.9B12 [I. 7F63R 3H;E. ^920	\3FZ *=B43TWH/N& "960.JJ9202 +ECT3SV(.16)3SV(*1*)"2*M.9B3* S+E&2*=S+E&2"/62.JN9252 +ECT3SV(.16)7ISN*(S+E&16)O\.(KE2)&=+NT3SV(*2&).M&J*4B07GSO/OF .2B0.M&J*5B07LSE* S+E&12=;I7TN
.(GE.)F+*0&07\N .(KE2)&=+NT3SV(*26).1B0")*M.9B62 ?G+TCO.1B2"0*M.9B72 WL7TN .(GE2)&=+NT3SV(*1.)*6&07\N .(KE2)&=+NT3SV(*26)*6&0.M&J*8B07GSO/OF .2B0.M&J*9B07LSE* S+E&12=;I7TN(.(GE.)R+602)* S+E&22=;I7TN(.(KE.)R-"06).JJ1*0B03P	R+NCT7\KP7ISN7\KP7ISN7\KP7ISN2 GT
BJ(.3.)6"WK7ROS3T;A+DJ:.MFJ.2B16 KP7ISN2 R"+B2"2"	S3EWM+NKS2,J"+P2"2"WDC6".JJ1*2B03P	R+NCT/SF(6)N,*(&2*,S*32)/SR(")*M.1N220^ 3O?T. B6.MFJ.3B02 ?F3R" *=B1+TCO24	\3FF *(	H*>B03TWH/NZ "5*M.1F320: 7ESX6 3H3P	R7N3T3P	R7N3T3P	RN7T.JN1*2B03P	R+NCT2"	S3EJ 3E	S3TW
7N^ 3EWD3RF 3K	T+ECN3NOO3H^ 3ESL6"C\3R;I7TC\3R;I7TC\3R;IT*M.1B560B 3R;I+TJ 3W3O3L;E2 	S3E: 3OC3E;I3M3A2 WV7RWS3CWH3N*(3A> 7DKE2 WN+I	N* B ""6;.JV1*1B07ICN+UCTA6$.JV1*2B0+ICF/A6$2"GJ6"R 3H;E. B1.MFJ.5B32 [I* SA2=:"3E;I6"R 3H;E. B2"060.JV1*4B03P	R+NCT2"GW7S
 3O3L2 GD3SJ 3EWD3UWT+NJ?.MFJ.5B62 ?G+TCO.1B5"0*M.1^520^ 3O?T. B2"060.J^1*0B03R7E6 WS3B?R3U	T+NCE7ASK3I;E7BOE7I+T.MFJ.7B16 KP7ISN6 N"+ICE7BOE7I+T+ECN3F3O3G;E+DCE7ASK3I;E":6".J^1*2B03P	R+NCT2"?V+NJ *;SL*(&1*;A.1.)2"F 3K	T+ECN+ICM7WKE7TZ +OCN2"F;*(&1**S.1.)
"6 3A/R""*M.1N760B 3R;IT*M.1R760B 3R;I+TJ 3V;O. ."+M"$.1.)/AJ(*)J;2 /A3TWI3N& 7M^ 7ESR2 ?V+NJ *;A*2*)/SJ(*)J;7MKAK6".J^1*5B03P	RN7T.J^1*6B03P	R+NCT2"?V+NJ *;SN*(&1*;A.3.)2"F 3K	T+ECN+ICM7WKE7TZ +OCN2"F;*(&3**S.3.)2"6 3A/R""*M.1^760B 3R;IT*M.1"760B 3R;I+TJ
3V;O. ."+O"$.1.)/AR(*)J;2 /A3TWI3N& 7M^ 7ESR2 ?V+NJ *;A*4*)/SR(*)J;7MKAK6".J^1*9B03P	R7N3T3P	R7N3T3P	R7N3T7RSE3U;R.MJJ.0B06 KP7ISN2 GT/BJ(.2.)2"GC+LCL3E	X7T2"3ESN&M*J

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