File SPLAT.BA (BASIC source file)

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

*1B03R7E* ******3UKE7EOR7E+T/E+R2 ?W3L
F3A
N2 WW3IWN+R+T****"**M*2B03P	R+NKT3W3O3L;E2 	S3EV 3RGL7ESU7EWR3NWG3N*(3A> 7DKE2 WN+I	N6"2;7ICN+UCTA6$.JB32 [I* SA2=:"3E;I6"R 3H;E. F120	\3FF *$J=+JKA2 T+ECN"660.JB46 KP7ISN2 J"7IST3E: +UCR7MSI2 GJ2 SO+ECR3N	E3NF 7N
T7OSR+EKN2;	\7NWP3TF "$*M*5B07GSO/ON "0*M*6B03P	R+NKT6	CS7LSA6	N 7IWM3LWI+RCT3E;I+ECN3F3A3LOS7HKI7MCS3R;U3GJ +ECI3D7E2 	S/E.".M^J60B 3R;I7TZ"7EOR3UC+EKN2,6"7UOE3S;E2,WD7NN 3C	H+RCM+ICM7LSE3Z7T3O
E3LOI3H;E""6;.JB86 KP7ISN2"F 3UWG3N3B3I/C*"J,+ZCU3O[E3FWN+NB,3O;H3ER 7AOS2 	S3EF 3MJ 3OWD7N* +EKR";*M*9B03P	R+NKT3SC3E3L+E;N*"J,3SWI2 ?K3E;N+ECN7IKH3EZ 3L
U7GOE7C
H3ISN3I/G7ESI2 ;E3TWW7DKE""6;.JB160B 3R;I+TB"3S3E7BSS2 GW3E3H+ECN3OWD7RZ +OCM3C7O7PSU+ECR7BOE3T7I3M;E2 GL3SWS+NJ..MFJ*1B03P	R7N3T3R;A3D7O3IWZ.MFJ*2B03P	R+NKT3W3I3L?K3MWM7N* +U^ 3S3P+A
T*-B-7DOA6 CS3I3E2,R 7AOS2 	E3N;E""*M.1B36 KP7ISN2"GF7LOL3C	H7ROM7PWR+NCG3S7I3U	L7ESR6!Z 7EOR3UC+ECN3SWI2,I3R;E2 OS7HKIM6".JR160B 3R;I3T&"3M2 7E+T3T?M3E3G3IC+ECN3A
U3EKN3LOI7K* 3U> 3E[F3N;E2,O+NCE+ZCU7ZKE3SC3E3L+E;N""*M.1B56 KP7ISN2"WZ3ROS3H3E3L;E*!F!""*M.1B66 KP7ISN7\KP7ISN/\GD6=20/VB=/\7A20;\6=20/MB=/\GD2=;I/T&(.0F02*;R/DF(.)F+.0B0")*M.1B76 KP7ISN2"?W3LWL7NN +ICE7IKH3EZ 3L
U7GOE7C
H3ISN3I/G7ESI2 WS7LOB7T^ 3AE3L;E""6;.J"120& 7NWP3TF 612$+ICF+AR12=:"3E;I6"R 3H;E. J220	\3FF .16$2"GJ6"R 3H;E. B2"0*M.1B96 KP7ISN2"*	+AB	3OWD+R^ 3N	E+NB	7BSI+TKE2;
\3O?T. "1"0*M.2B06 KP7ISN2"WW3LC3EZ 3L
U7GOE7C
H3ISN3I/G7ESI2 6(2/WS+CB)6"2;7ICN+UCTV61.JF260Z 61Z=*1"*.5"2.0N/.6B06)[\.=GV*+"(+V*13RSN*(&0.)J/*06)6(Z(61J*+ND+O&)./B2")*M.2B2. GV2=;I/TF(.0B02*;R/DB(")6).JN260B 3R;I3T>"+KB,3HWO7COH+TCE3F3A3LWG3SC3W;I3D
I3K	E/T6 . ."/V.1*"?M3SOE""*M.2B4. GV.=GV.*V(.2B8./Z3*0&0/\7V+V.16(Z(61J*+ND*0&)./B2*)"-.(GV2*;R/DB(*)>)*2&0.MJJ*5B03P	R+NKT3W3O3L;E2 	S3EV 3IWN2 WB3S	T7MSM7EN 7C
H3E/R3R[A7T^ 3AE3L;E*(CJ3OWD3R: .).".MJJ*6B07ICN+UCT+BR13\[I. GB*$J=+NB"3TWH/NN 6020+ICF+BR12=*"6"R 3H;E. "2"0*M.2B76 KP7ISN2";A3T?W3RWT7NN +ICE7BSI+TCE7MSI2 *	2	> 7DKE2 :	.	."3\?G+TCO.2B6.MJJ*8B03P	R+NKT3W3E3CWH2 OS3HWW7RKK7ASF2(;I* ?M3SOE2 WS+CJ)2;	\7NW
3TF "2*M.2B9. 7A+A.22(F(62J*+ND*0&)./B22)
\3O?T. F5"0*M.3B0. KG2=;I/TF(.+F(60J*+ND+X&)2)
\3O?T. B1"460.JF360KP7ISN2"	S7EN 3ISN6 WA3FR +ECM7MKE7KKU2,OS3HWW7RKK7ASF*=:4.0Z67MN/+E?C3SOE2"
\3O?T.4B1.MNJ62B03R;I7TN"+ICE3S;I3DF +UCF7DKE2 WV7NOU2,OS3HWW7RKK7ASF*=:9.4N37MN/+E?C3SOE2"
\3O?T.4B2.MNJ63B03R;I7TN"+ICE3S;I3DF +UCF7DKE6 KE+D3E3SC7WKE3KGR/F7T.9".*1?M3SOE2/WS7C2"7GSO/ON4"0*M.3B43P	R+NKT3SWI2 	S+NCD3A[U2 WD3M6 3OSN2,OS3HWW7RKK7ASF*=:1.5F77MN/+E?C3SOE2"
\3O?T.4B4.MNJ65B03R;I7TN"+ICE3S;I3DF +UCF3D7E2 GM+R3S3SC7WKE3KGR+F/T.3".21632/WS7CN/+EKC3\?G/TSO"560.JZ360KP7ISN2"	S7EN 3ISN6 WA3FR +ECM7JCU3IWT7RN,7C
H3E/R3R[A/TJ=*6?M3SOE2/WS7C2"7GSO/OZ4"0*M.3B73P	R+NKT3SWI2 	S+NCD3A[U2 WD7MN 7AWT+R3N3SC7WKE3KGR/F7T*1:1*5?M3SOE2/WS7C2"7GSO/O^4"0*M.3B83P	R+NKT3SWI2 	S+NCD3A[U2 WD7MV 3R;A+U3S3SC7WKE+K;R.=B1..J37MN/+E?C3SOE2"
\3O?T.4B8.MNJ69B03R;I7TN"+ICE3S;I3DF +UCF3D7E2 WN7PWT7NN,7C
H3E/R3R[A/TF=.2B.*8?M3SOE2/WS7C2"7GSO/O&4"0*M.4B03P	R+NKT3SWI2 	S+NCD3A[U2 WD7RN 3O;N7EN,7C
H3E/R3R[A/TJ=*723*3?M3SOE2/WS7C2"7GSO/OB5"0*M.4B1. KA*=:3.7F23\?G+TCO.2B9.MRJ*2B0/A62.8Z.63237GSO/OJ "960.JN420F .2&=..F83\?G+TCO.2B9.MRJ*4B0/A62.1V.67217GSO/OJ "960.JV420F .2N=..F823
\3O?T. &2"0*M.4B6. KA.=V2.."929
\3O?T. &2"0*M.4B7. KA.=F1..Z429
\3O?T. &2"0*M.4B8. KA.=B1..F33\?G+TCO.2B9.MRJ*9B0/A62*1:2.0&73\?G+TCO.2B9.MVJ*0B0/A62.2N76.237GSO/OJ "960.JF560KP7ISN7\KP7ISN*"B 2 ?H3EWH* B * B * B * B * B * J=.;GD2;6"3EWTR6".JJ560B 3R;I+TB"2 V 3N
D3EOS3H	W3N	D3GWK+ICT* B .=."/V.1*"?M3SOE* 6+*5J%.MVJ*3B03P	R+NKT* B 3SC7WKE3KGR+FCT* B * B * B * J=.;KA2;6"2/WS7CN/+ECC.+V-"%6".JR560B 3R;I3TJ"7ESS3I7M+ECN3SWI2 	D7E* 7ESI2 WD3SZ 3R	E+ECN3F3A+L;S""*M.5B56 KP7ISN2"	W3E	V3EWL2 WS3K;U3D;E6"2;7ICN+UCT7TC\3R;
T*M.5B66 KP7ISN2"WZ+IT3SOE*)2"2"WG3F3A3L;E7EN 3TWR3CWK*(	M""*M.5B76 KP7ISN."6=.=6=.=6=*=2"."6=.=6=.=6=.=6=.=6=.=6=.=6=""*M.5B82 ?F3R& *=B0+TCO7TN 7TCE*(?T"86).J&520& 3F& *>?V7AR 3H;E. F620S\.=GD*-"(/AJ/2)&*+^&27\KP7ISN* 3I3D;\7ESX" 7I.JB620^ 3O?T. Z6"0*M.
B16 KP7ISN2";E3DWG3SC3W;I3D
I3K	E3TV 3RWR3IC3TJ +ECI7TB 7LOU. ."3VF/6;N"7EWK3NWDN6".JJ620Z +OCR3I&=2 ?T6 R 6 SS+EP/T"/")*M.6B3. 7D+D616(Z(+^>2*(*2+A&)6+Z(2*&(6-Z(*/	A*)&).MZJ*4B0+ICF/D6<*1B03TWH/NF .1B17\KP7ISN* 3I3D;\7ESX" 7I.JV620^ 3O?T. Z6"0*M.6B66 KP7ISN2"GF7LOL3C	H+RCM3G?E3E[F7
SE2"/\6=20/K61"0*M.6B72 ?F3R& *=B1+TCO.4B0"0*M.6B82 [I* A/I6)60R 3H;E. B720/\*=/K21	\3FR 2>F=*(	I2 T+ECN.6B9/\GK.=GK"+61.J&620: 7ESX" 7I.JB720F *(	I6=3D3I&=6-21/G633K.-21	\3F^ .36<*.*17KR 3H;E. N720	\3F^ .36<..V2**CK3TWH/N^ "760.JF720& 3F^ .36<*.*57KR 3H;
. B820	\3F^ .36<..V7**CK3TWH/N" 6320+ICF/G23.=&.**CK3TWH/N" "660.JJ720^ 3O?T. B9"0*M.7B36 KP7ISN2"3K7AOS+EF!2!R +ACS7ISS2 	E7NN 7PWR+NGG*!J!.M^J*4B03P	R+NKT3V;O2 WD+NJ .;/K2"V 3R?F7LKG3EOI3H;E6 CS3RWU3NWG7NZ +OCR3D;E2 I3R;E""*M.7B56 KP7ISN2"WO3F;F3EWT3N: 
UCR2".;.-GK*;B"7IKH+ECN3SC3I7R2 ;K7ACP+ECR7AOL2 	S+EF "!6".JZ720^ 3O?T. F1"360.J^760B 3R;I7TN"3C?H3N^ 7A+N6 WG+TB!2".;*;B"3E[R3O
L3R	E3CWH6 CS3RWU3NWG2 	G3NWG3NR +EKN.M^J*8B03P	R+NKT7IKH+ECN7VKO7AOU2 ;U3D: +UCR2".;.-GK*;B"7WKA+ECN7BOE7SKE2 3A7SN +IGE*!J!.M^J*9B07GSO/OF .1B3.M"J*0B03P	R+NKT3NOI+HCT3SC3LOE+HGT. ."+KJ;6 KE3F3O3GWR3IC7EN 7PWR3E
N3E^ 3I
N+ECN3D;E""*M.8B16 KP7ISN2"I3R;E2 ?V3R;A2.	S7E^ 3USR+ECN3V;O. ."3K.-*1J;2 WB3SWS3R;E6 CS3RWU3NWG+NJ .M"J*2B03P	R+NKT7BOE3I
E+TJ.3\?G+TCO.1N1"0*M.8B36 KP7ISN2"WB3SC3ESI+E3N3NOI+HCT3WA7RN?+ICE3SC3A[F3T;E6 WN+RJ *;7K/K.16"Z +OCN""*M.8B46 KP7ISN2"WD+NJ .;/K6"KE3F3O3GWR3IC+ECN7SKP3U;E3G;E2 ?V3RR +ECN7IKH+E;N""*M.8B52 ?G+TCO.1N1"0*M.8B66 KP7ISN6"WH+CGH2 GH3B;E2 	S3ER 3E;N2 WU7BKE7H
A+PCT3K	E3NJ 7IOS3CWH7NN 7PKO3T& M6".J^860B 3R;I3TJ"7LSU2?V 3S^ +ACB2".;*;B"3E[R3O
L3R	E3CWH6 CS3RWU3NWG2 ?V3R& 3HWR7MV +NKD.M"J*8B03P	R+NKT3SWI2 GW3R;E6 WN3R& +NJ .;GK*;B"7SKP3U;E3G;E2 WB3SWS3RF +LCS7DKE2 OS3HWL7CSH7ESSE6".J&860B 3R;I3T""7ASL+ECN3SWI2 	S+CCH7BOE7SKE2 	F+TF!6!2"7GSO/OF .1B3.M&J*0B03P	R+NKT7H	E6!N +ICE3Z
O+ECN3DWI2 WR7IOS3L	E+NCE3VWI7L* 3UZ 3RWU+HJ..M&J*1B03P	R+NCT+KJ;6 CS3RWU3NWG2 GW3R;E2 ?V3RR 7IOE+ECM3E[R3O
L3R	E+CCH3USN2 	S3E. 3AWMN6".JJ960B 3R;I3T&"3N: 3U7M+ECR2".;.-GK*;B"2!6 3AC+ECN3SWI2 	S+CCH3NOI7HOT6 KD7AOU*!J!.M&J*3B07GSO/OF .1B3.M&J*4B03P	R+NKT3GE3E" +ICN+ICN3F	R3EWD+NJ!3\?G+TCO.1J1"0*M.9B56 KP7ISN2 6"3O
E+ECN3SWI2 	D3EV 3NWG3L& +NCS7PKA3A	D+ECS3G3E7ESI+EGN2"
\3O?T. F1"260.JZ960B 3R;I+TJ 3G;E7IOE3S;E2 	S3ER +ICE7LSE3ZWT6 WR+HGE2"
\3O?T. F1"260.J^960B 3R;I7TN"+ICE3U
N3LWU7COK3RKA+EJ!3\?G+TCO.1J1"0*M.9B83P	R+NKT7VKE3D7A3MWT3R6 7ISS*!F!2"
\3O?T. F1"260.J&960B 3R;I3TV"+ICN3T	R+TCT3WWU3RWD2 WD3NF 7USF3RWI3BZ 7OKE7DKE+NJ!3\?G+TCO.1J1"0*M.1B060B 3R;I3T""+MGM3E;I3E. 7UKE7ZKE7E* 7ESI2 GW3EWR2 WB3SWS3R^ 3EWW3S;E6!2"7GSO/OF .1B2.MFJ.0B16 KP7ISN2"GM3M	M2!GM3M	M2!GM3M	M+IGI*!J!3\?G+TCO.1J1"0*M.1J060
 3R;I3TZ"3E
I3L;I+GJ!3\?G+TCO.1J1"0*M.1N060B 3R;I7T^"+ICE7G
E3O;N+E3N+SCO7ZKE3R;O3N;E6.2"7GSO/OF .1B2.MFJ.0B42 [I. KG*=B13TWH/NN 6120+ICF/G6262R 3H;E. J320	\3F^ .26 63R 3H;E. N3"0*M.1V020& 3F^ .2R=2 T+ECN.3B43\[I. KG*=B53TWH/NN 6520+ICF/G6266R 3H;E. Z3"0*M.1Z020& 3F^ .2^=2 T+ECN.3B73\[I. KG*=B83TWH/NN 6820+ICF/G62
9R 3H;E. &320
\3O?T. B4"0*M.1^060B 3R;I7TN +QR22R*21F/*)J,3CGR+SKH/\GG2=;I/TF(.+F(60J*+ND+X&)")*M.1"020& 3F^ .16 * B13TWH/N& 6420+ICF/G6162R 3H;E. V920	\3F^ .1N=2 T+ECN.9B6.MFJ.0B92 [I. GG*=B43TWH/N& 6720+ICF+GB1.=V 2 T+ECN.9B83\[I. GG*=B63TWH/N& "960.JF1*0B0+ICF/G6167
 3H;E. B16020+ICF/G6168R 3H;E. B16120+ICF/G6169R 3H;E. B162207GSO/OF .0B3.MFJ.1B16 KP7ISN*(?V+A.)2(R(*1"-/VK^./J(**	A*)>)+V2)6"KC3AS2"
\3O?T. F1"360.JF1*2B03P	R+NKT3IC2 WG+BCE3I;H+ECN3E;I3E: 3EWU2 C3AON+EJ!.MFJ.1B36 KP7ISN2"?W3LWL7NN +ICE3NOO3H	E3NGM7LN 3PWI3L;E6"2;7ICN+UCTZ6$.JF1*4B0+ICF/Z6$2"GJ6"R 3H;E. Z120	\7F* *$J=3N	E+NB"3TWH+NB .1Z1"0*M.1V160B 3R;I+TJ 7BSI+TCE7MSI2 GJ2 SO+ECR3N	E3
F 7N
T7OSR+EKN3\?G+TCO.1N1"0*M.LF1*6B03P	R+NKT3P?R3BWI3R;E2 	S3ER 3OC2 ?N+CCH3E;I3M3A2,GJ6"2;7ICN+UCTZ6$.JF1*7B0+ICF/Z6$2"GJ6"R 3H;E. Z1"0*M.1"160B 3R;I7TN"+ICE3F	E3G	L+NGG*!B!3HKA+ECN3WO3LR +ICE7HOO7EZ 3O3L*?J?3\;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