File SPIEL4.FT (FORTRAN source file)

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

+C**********************************************************************************"*6**J+C******B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * * ********2MNJ******B** B * B * CG7LV * CE3C. * CS7SB * CI3E2 * B *1B7.+R * B * B * B * *
********"**M+C*X******B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B * B ********2MNJ*X*X************************************************************************************"M&J3D7I7EON3I;O2 GK3RWT/NN(*22)3K;O+TO"56)6J^I7RSI/EF(*,&1.MFJ
I?F3RGM+T^(* B * B 7WKI6 CS3I3E+ECN7JSE+ZCT7DOA2 3G3UOE7KOS3PWI/LF .7R+*	>,"/6,.JFI61"06,Z	* CI3E2 * B 7SB * CA7SN * F!*!F!*	>/")*MC*M+CB 2 WB3ROE7HWN+NCG3V;O* CX2(;A3F;A7G
S7ESR6 WF+ECR3Z[U3A3L3SGZ3HWL3NWG7NKE3A?TR6)"J7C6J^I7RSI/EF(*,&5.MVJ2I?F3RGM+T^(3GKI2 	B3TWT2 GD3SR 7AWT3MF +NB!3ZJ.*.B:*2:1*0:3*7^7")*M2IWR+AD.1Z,.)GI.,KI.,OI.,SI.,WI.,[I.,
I.,I.MZJ2I?F3RGM/T"(+A&1"M&J/X613F?L+AT+I&12+3F7OSA.(KI")*M.IKX2=3F7OSA.(SI2)Z+3LGO3T&("56)6J"I23Z=3LGO3T&(*7.)3F?L+AT+I&8"M&J7X"=*1"/+X.2+X&32MNJ2MNJ* B 7FOE3TWL3G;E2 WD3R. 7ASR7E
N7ESRE*MC*M.I7K"1*M2I?D. B1. 7I.2R,"M&J+DCO*1B0/JF=",642J.I7ASR+EN/K6)I*M"1&03K.="+612JRI/OF 21& *=27"1612JRI/OF 21* *=21"4*M2IGK3RWT3N.(2)&=.MFJ21.I*=/K"1*MC*M+CB 2 	M3SC+ECN7DKE2 GK3RWT3NWW3RWT2MNJ.MJJ.0B06IKW3IWT*(21.2B0"16).JB2"0&17FKO7MSA*(^/3M7O7ESN
,& +CCH7MOU3SR +ICE7KKA3T;E2 	M3SC+E
N"/6).JB2"0&2+DCO*4B0/LF=.,B1"0*M2IGC+LCL3IGR+ND/KF,.,J3*,	X"M&J/IGH"=7K2JNI3A3L6 KI3ASN*(3K.1N,62",")*M2II22.="M&J/IOH2=GK3RWT3N&(+H&1"M&J7KKA3T;E2(I.16)7KKA3T;E2(I"26)2J.I7ASR+EN/IKH2)&=H63.JB42I?C3N	T3NWU2MNJ2MNJ* B 3T	E3L3A7GKO3IT7MOU6 CS3I3EE7N"J7C*J
C6 Z 3A	R3A3B/E+N3N7U7MKE2=;A3ZA3LR +ECR3S	P3EWLR*M+CB * B * B * B 2 . 7OSN/O6 3P;U3KWT3K;OT7O*JCC* B * B * B * B /IGZ* B 2=GZ3E3H/EGR2MNJ* B * B * B * B 6 +I*2B 6 *=3AE7LKE"2*M+CB * B * B * B 2 & 7ASN. 6 7ASN7WKOT*M+CB * B * B * B 2 & 7RWA/S6 7A+N3A3H2 W
7RN 3PWI7LKE2,	D3E: 3IC3T& 3NR +ICE7WKE3T;U3G. 3AWMN*M+CB * B * B * B 2 & 7G
E. 6 7G
E3I;N3K;OT7O"J7C2J6I7IWN/SB=.MRJ"9&93RGE/DF(.,B521:)3U7ME7R.JB521ZI3O7R+AT2		W3E	V3EWL6 CS3I3E+ECR3MWO7CSH+ECN7MSI3S	P3EWL+NB?2(GM+XB.*4B).	GI")*MC*M+CB 7A+N3A3H2 WD3R6 7IOT3PWI7LKE2 WF7SOT3T3E3L;E2 ;U7DV 3EWB7RKP3U[EE7N"J7C2J&I3F:(3U7M+E7R.4V)*023.5N0.,B
"4*M.5R06IKW3IWT*(21.5V0")*M.5V02I?F3RGM+T^(+ZCU3VWI+LCE3S	P3EWL+RF!*!^!")*M2I	M7NOU2=	M7NOU"+612J&I3F6(7IWN/SJ-.)&4.9V,*026.7&0.MVJ"0&63W	R+TE.1V,*0&7.MVJ"0&77FKO7MSA6(^	3E;N2 I3RV 3UC2 	N7CSH2 F +UCF3W;E3IWG7RN 3PWI7LKE2 	E3N
I+ECN"	6,.JFI2	?K3E;N+T>	*53X2	GD+NCN7ISS2 OS7HWL+SGS*!F!*!F!*!&	"M&J7GSO/OR "969.JB563^I7RSI/EF(.,B5"26).JB522ZI3O7R+AT"/6)*JCC" 6 *JCC2 * 3EWD7RN 3PWI7LKE6 KE3HWA+LCT3E;I3E. 7ASRE*MC*M6I+I.1F="M&J+DCO.5B06 +I.2F=6,WN3MWMR*M6IKW3IWT*(21.5B16)+I22.,7ASR+E
/IGZ")*M.5B12I?F3RGM+T^(3S	P3EWL3R: +R^..,KI*,B	3ER3A3E3TR +ECN7KKA3T;E7WKE+T2	+I&3"M&J3K;O+TO/IKZ2).=7ASR+EN/IGZ")*M6I+I21&=+Z.1"1*M.5B02I?C3N	T3NWU2MNJ2MNJ* B 3S	P3EWL3R^ 7ISB2 ;A2,	W3E	V3EWL2 GK3RWT3NV 3R" 3AWB3N6 3OOE3HWT2MNJ"M&J+DCO.5B26 +I.2F=6,WN3M
MR*M6IKW3IWT*(21.5B36)+I"2*M.5B32I?F3RGM+T>(6/N	* CP3IV * CL7EJ 2 : +RB.2	&,*2^,*:2	./J,*2^(*-&	"/6).JJ565JI3ESA*(21.5B42)GIN7T.JR520ZI3O7R+AT2	: 3OC2 	E+NCE7KKA/T?E2 *(2 SO+ECR+NB).	F,+A&1"M&J+IF3I;A/TZ-*7&2.5B2.,Z5.0V,"260"J7C*JCC2 R +ACS3P;U3KWT3K;O+TC
3E;I+ECS3S	P3EWL+RCS7DKA3F: 3IC/T: *2B17WKE3D;E2MNJ.MVJ"6&03W	R+TE.1V,*6&5/IKZ2,GK3RWT3N&(+Z&1.MVJ"6&57FKO7MSA6(N	3PWI7LKE6 KN*.2	+I222	V 3RGH7ESL2 WD3N. 7ASR7E
N7ESR2	&,*3B)"M&J3K;O+TO/IKZ2).=7OSN3O&(+Z&22+GK3RWT3N&(+Z&1"M&J/IGZ6=+I.1F+"M&J+IF3K;O+TO/IKZ.)J-.1V)*225.5B2.,J5"0*M.5B22I?C3N	T3NWU2MNJ2MNJ6 R 3E3I3A
L3O	R3T7H+UCS2"WG3W;I7NKE""*MC6I*JCC6 ^ 3EOL+HCE3S	P3EWL3R. 3O7M+ECN+ICN3DWI2 WW7RWTN7G"J7C2J&I7RWA/SB="M&J+DCO.6B16 +I.2F=6,WN3MWMR*M2I[I2(?K3N?T6(+I*26)*2&1.6B3.,N6.0Z,"260.JJ620&I7RWA3S&=7RWA/SF+"M&J3W	R+TE.1Z,*2&5/IKZ2,?K3N?T6(+I"26).JJ625ZI3O7R+AT6	C
3I3E+ECR+N;R2	&,*2^,* B,+DCU7BOI3T2 3ESI+ECR3NOI+HCT+ICN"	6,.JFI2	WD7R^ 7ESR3U
N6,^ 3E3I6 WD* ^ .,KI*,B	3P;U3KWT2 GH+S
T")*M2I?K3N?T6(+I.26)"0*M2I?G+TCO.6B1.MZJ"3&0+IF3K;O+TO/IKZ.)F-.7Z)*220.6B1.,F6"0*M.6B12I?C3N	T3NWU2MNJ2MNJ* B 3W3E3CWH6 WP7NSK3ZA3L" +ACT7G
E3O;N/E?N2MNJ* B 3IWG/W6 2 WG3W;I7NWP7NSK3ZAL*MC*M.6B52I
I/E7W"0*M2I?D. Z620& /Z6221:,3U7ME7R2J&I3F.(7OSN3O&(+Z&22-
I+E	W.6B6.,Z6.0Z,"665.JZ625&I7G
E2=?K3N?T6(+I"26).JZ620NI7OSN7IWNE*MC*M+CB 2 WJ7TSZ6 CS3I3E3TR +ECR3C7O7PSUE7R"J7C6J^I7RSI/EF(.,B1*0&0.MFJ.0B02I?F3RGM+T>(2	WJ7TSZ6 CS3I3E3E& +C
H"/6)2J&I3C7O3P:=3U7M+E/R"1*M2I?K3N?T2(OI7OCM.)B=2MNJ2MNJ2 R +ECR3C7O7PSU+ECR3N7I+MCT3S3O3A
N3E. 7ASR+ECN7BOI6 KE2 	M3NWD3SWT+NCS*1B73P;U3KWT2 GHT*MC*M.1B022&I3F.(7OSN3O&(3C7O+P6)*1&7.1B0.1F,.2B0.,J1"060.JB1"0&13W	R+TE.1F,.2V32)GK3RWT3N&(+Z&1"M&J3K;O+TO3I?C+M	P2=?K3N?T2(OI7OCM2).+7ASR+EN/IGZ")*M6I+I21&=+Z.1"1*M2I?G+TCO.1B0"2*MC*M+CB 7DKE2 ?C7MWP
TKE2 	N7MSM2 ?N+CCH3W	E7TKE3E. 7ASR+ECN3S3O3A
N3EV 7R^ 3E	N7GKE2 3A/SJ 62B 3U/NT7E*JCC2 ;U7D^ 3E	N7GKE2 3A3S& 7G
E2 ^(3E	W7NCN3U/N3TGZ+H	L6 WP7NSK3E" A7T"J7C.JJ1"0&0+IF3K;O+TO3I?C+M	P.-J2.)J1*120.1J2.0F,.2B2.MFJ.2B12I[I2(?K3N?T2(OI7OCM2)&-7G
E.)J1*320.1J2.0F,.2B2.MFJ.2B36IKW3IWT*(21.1N225.)7ASR+EN/IGZ")*M.1N225ZI3O7R+AT2	WM3IWN2 GK3RWT2 GH3TR +ECN7WKE+TB:2	&,"26)2J.I7OSN3O&(3C7O/P6)3K;O+TO3I?C+M	P2+GK3RWT3N&(+Z&1"M&J/IGZ6=+I.1F+"M&J7GSO/OF .2B02MNJ2MNJ2 F 3U
S3AWB2 ;U3DF 7U
S7ESR3U
N2 WD7SB 3U/N3T/E7OSN+OCS7DOE2 ?C7MWP7TKES*MC*M.1J260^I7RSI/EF(.,J1*7&03K;O+TO3I?C+M	P.MFJ.2B72I?F3RGM+T^(3P;U3KWT3K;O+TCO7DOE2 ?C7MWP7TKE/S* * 2	+I226	B 3U/N+TGE"	6)2J&I3F.(7OSN3O&(3C7O+P6)*2&1.1"2.0F,.2B8.,J1"865.JJ1"8&56 KW3IWT*(21.1&220.)7OSN3O&(3C7OP
).JJ1"9&07FKO7MSA2(&	+CCH3HKA3E2 3ESI+ECR7VKE7LKO+E3N2 GD2 OI+H^ .,KI",*M*I^16 WP7NSK3E" 3AWB*!&	2MNJ2MNJ2 F 7U
S7ESR3U
N2 WD3S^ 3EGS3MWT7NN 3PWIL7S"J7C2J&I3F&(7RWA3S:-3U7M+E	R.6&6.,R6.0Z,"669.JR660^I7RSI/EF(.,R6"56).JR625ZI3O7R+AT2	WK+ICN3S	P3EWL3R" +ACT7G
E3O;N+E3N2 GD2 WK3IWN3R& 3NR +ICE"	6,.JFI2	WW7RWT+NCG3K7A*!&	"M&J7GSO/OZ "961.JJ1"8&0+IF3K;O+TO3I?C+M	P2-
I+E	W.1B3.0F,.3B0.,N1"160.JN1"1&03W	R+TE.1F,.3B22)?K3N?T2(OI7OCM")*M.1J320ZI3O7R+AT2/&	+CCH3HKA3E6 +ICT2	&,*2^,6 WP7NSK+ECN7G
E3O;N+EGN"	6)2J^I3O?T. &6"1*M.1B320^I3O?T. Z6"9*MC*M+CB 2 WG3W;I7NKE7FOE7TSS3E3L3U
N2MNJ.MZJ"6&93W	R+TE.1Z,*7&03IWGW*M.6B72I?F3RGM+T^(7G
E3I;N+ECR7MSI2 WD7RB 3U/N3TGZ+HCL2	&,*2^,6 OI+T" 3S;I+DB)3S	P3EWL+R^ ",*M*I^1+N;R*:&	"M&J+DCO.6B86 +I.2F=2,OI7OCM"M&J+IF3K;O+TO/IKZ2)&-7G
E.)"6.0Z,*825.6B8.MZJ"8&53W	R+TE.1Z,*8&6/IKZ.MZJ"8&67FKO7MSA.(B13X&,"26).J"620NI7OSN7IWNE*M.6F92IWR+AD.1^,*0&03I;AT*M.7B02I?F3RGM+T^(3S3O3LR +ACS3S	P+ECL3NOO3HV 3I7N+ACL7LWA3F;E*?" 3J> 7DKE* 	N.	F,+A&1"M&J+IF3I;A/TZ-*7&2.7F0.,B2*020.7F0.M^J"0&13W	R+TE.1^,
0&5.M^J"0&57FKO7MSA*(>/2	GN2 GD+N;N2.J.+ICS3Z7U2 GN3EC3SWT7NN 3PWI+L:.2.	B7S* +UCM"	6,.JFI2	GN3EC3SWT7NN +P:.*.&	.M^J"0&93S?TP*M2I;ED*MBLBZ

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