File YAHTZE.BA (BASIC source file)

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

*1B03R7E* B * B * * * B*2*^ 3AWM2 [O2 GY7H+T+ECE*** " 6*.JV12 	D3MN *(&5*,K*124*72)/GV(2)Z,*(&4.,KH*(&6.,KL*(&6.,WB*(&7.,B*(&7.MJJ60B 3R;I7TC\3R;I+TJ 3G7A3E> +F^ 3YA3TWZ+EJ	3\GR3N?D7M+I7EC\3R;IT*M*2B53P	R+NCT2"?D2 ?Y7U^ 7ASN2 ;I7SKT7USC3I;O7S. 3Y> 3R: /].
.MNJ20& 7NWP3TJ 2$	\3FJ *$J=+NB"3TWH/NR 25	\3FJ *$J=+YB"3TWH/NR 20
\3O?T. V2.MRJ20^ 7OWS/B& "965.JV46 KP7ISN2 ""+OCW3M;A7YB 7L	A7EOR. ."3\;I7PSU" 7N.JB52 [I. 3N61R 3H;E. V43\[I. 3N*=B73TWH/N^ "5*M*5B53P	R+NCT2"GM3X7I+UCM3N7U7BKE2 [O2 3P3AWY+RCS+ICS"76".JB72 ?G+TCO"465.JV72 ?F3RF .0F=2 ?T" 7N.JB86 KP7ISN2 :"3AWM2 [O2 3P3A
Y3R: +OJ..;CA2;	\7NWP3TF 2$F(602)7NE3TF "0*M*8B53P	R+NCT2"?W3USL2 ?Y3U2 3IWK* CA3S?C3ROE3ASR6 	[6 KO6 7N. ."3\;I7PSU* SB.M&J20& 3FJ *$J=+NB"3TWH/NF 6020+ICF/B6$*"KY2 T+ECN.9V43\?G+TCO"865.JB120" 6=203P	R7N3T3AF=6+21+ICF/A:</NF+2 T+ECN.1V0/\7A"1*M.1V02 ?F3
J *=B1+TCO25O\*(	B2=;I/TZ(2*;R/DF(*).)21;\7ESX6 3B3P	RN7T.JF160B 3R;I7TC\3R;I3TF 2$F(*)J;*	CS3N7U7BKE+SB:6"2;3H"="+61.JF165B 3R;I3TN *(&1*;C.2.)/CN(2)N;*(&4*;C652)+ICF/HN=2 T+ECN.2B1.MFJ*2B03P	R+NCT2"?H3W6 7A	N. ."3\;I7PSU" 7E.JJ125& 3FV .<J>65R 3H;E. N12

\7OWS/BF .0B23\?G+TCO.1B2.MFJ*3B0+ICF/EV>2 T+ECN.1B2.MFJ*3B5+ICF/EB<2 T+ECN.1B23\[I2 ;I3TV(.):<7ER 3H;E. J1"0*M.1B42 [I. 7E60R 3H;E. F220	\3FV *=B53TWH/NF "065.JR125Z +OCR/F6361R /OR +\F+F&36=207NE3TZ "3*M.1B56 KP7ISN6 ^"3HOI3HR 3IWC. .".MFJ*5B2+ICF/EF=2 
+ECN.1B63\[I. 7E62R 3H;E. Z125	\3FV *=B33TWH/NF "760.JV123& 3FV *=B43TWH/NF 6725+ICF/EV=2 T+ECN.1B63\?G+TCO.1B5.MFJ*6B07ICN+UCT/FF(2)
\3O?T. "1"0*M.1V62 ;I7PSU* F*12)/FJ(2)
\3O?T. "1"0*M.1B72 ;I7PSU* F*12)/FJ(2)Z,*(&33\?G+TCO.1B8.MFJ*7B57ICN+UCT/FF(2)Z,*(&2*,F*32)/FR(2)
\3O?T. "1"0*M.1B82 ?F3RZ .1F=2 ?T6 243FZ(.16)7ISN*(F+F&12)	\3FZ .(GF.)V>2 T+ECN.1B5.MFJ*8B5+ICF3FZ(.12)60R 3H;E. V120;\7ESX. GF.MFJ*9B07FKO. KF*=B1+TCO24	\3FZ .(KF.)B=2 T+ECN.2B0.MFJ*9B53CZ(.(KF.)6)7ISN*(*63RSN*(&1.)F+.MJJ*0B07NE3TZ "2*M.2V02 ?G+TCO.1B1.M
J*1B03P	R+NCT+A"$/A.)6"N	2 OS3OWR3BGO+RCD3N7U7BKE""6;.JF225& 7NWP3T& .MJJ*2B0+ICF/I:<*2B53TWH/NJ 62257GOO+UCB.1J020
\3O?T. F2"0*M.2V22 [I. 3I61R 3H;E. F220	\2=;I3T&(2)	\3F& .<R12 T+ECN.2V4.MJJ*3B03P	R+NCT2"?C3N	F+RCM+[CY+OCR+NC]6"2;7ICN+UCTB6$.JN225& 3FJ *$J=+NB"3TWH/NJ 6120+ICF/B6$*"KY2 T+ECN.7V3.MJJ*4B5+ICF3K&(*,	A*=B03TWH/NJ "660.JV260B 3R;I3TF 2$F(*)B;*"B,7YWO2 GH+
CE7AKL3ESA7YV 3SSE2 ?R+WN 2"&;";*M.2V56 KP7ISN6 &"+OCU7H[A/E."3K&(*,	A6;B"3O;I+TCS+ICN7R
O* J6;3I7GSO/OJ "160.JZ220& 3F& *>B63TWH/NN "065.JZ265J +ECM2 GC3T
E3O	R+ECS61R 3H?R3UG" 66.J^220. "=60.J^225Z +OCR/GF=2 ?T6 25+ICF3C^(.):<7IR 3H;E. "220/\*=/KI*M.2B82 WN+XCT3G	\3F. *=B03TWH/NJ 69252 [I. 3K*>B13TWH/NN "060.J"265B 3R;I3TF 2$F(*)J;6,& +OCU7N
O2 GH+VCE61B 3O;I3T& 7NJ +OCW3N7U7BKE* B12(OA+E	S""*M.2B9* K21F,.)F=3\?G+TCO.7B2.MJJ*9B53K&(*,	A.=R.3\?G+TCO.6B2.MNJ*0B03K&(*,	A6=3K7GSO/OZ "260.JB325& 3F& .-6661R 3H;E. F325	\3F& .-6662R 3H;E. J320	\3F& .-6663R 3H;E. B4"0*M.3Z02 [I* 7I.6R=2 T+ECN.4V83\[I
 7I.6V=2 T+ECN.4V83\[I* 7I.6Z=2 T+ECN.3V2.MNJ*0B7+ICF/IZ-*=B73TWH/NZ 60253P	R+NCT6"KE7RKO2 GH+LKT7\SSO7P.JF360J +ECM* ****B3+OCF3A. 3ISN.,R 2 [O* CA3K;I+DB,3YA3TWZE*M.3V1. 7R63S\*=C*1.)/CJ(2)N+*(&3*+C*4.)/CV(2)
\3O?T. N3"0*M.3B2. 7R64S\*=C*1.)/CJ(2)N+*(&3*+C*4.)/CV(2)
\3O?T. N3"0*M.3V2. 7R65S\.=B5.MNJ*3B07FKO. OH*=B1+TCO26\22"(.36)20;\7ESX. OH.MNJ*3B57FKO. 7H61R /OZ 3\?F3R" .1F=2 ?T" 65.JR320& 3FN .(GH.):<7HR 3H;E. V3"0*M.3V4. KH*(	H.=KH*(	H"+61.JV320: 7ESX. GH3\WN+XCTH*M.3V52 ?F3R" .4F=2 ?T" 66.JZ320& 3F" 22"(.4:)*=CR
TWH/NN "760.JZ325: 7ESX. SH+\K3IF,*):=24
\3O?T. J6"0*M.3B72 [I* K3IF,.)V=60R 3H;E. "3"0*M.3V7* K3IF,6)R=3\[I. 3I.>KI2 T+ECN.3V9.MNJ*8B03P	R+NCT7CKH.$^(6)C\3R;I3TN +HSR*(&73\?F7RZ .4F=2 ?T6 273P	R+NCT7CKH.$^(6)2;7NE7TZ "4*M.3V86 KP7ISN2 N"3O
N7RSA3UGL3T?I+NCS2"F;2$F(*)J;6,& +OCU7H[A3EF 2 GY7H+T+EGE*!J!.MNJ*9B03P	R+NCT7CKH.$^(6)C\3R;I3TN +HSR*(&73\?F7RZ .4F=2 ?T6 273P	R+NCT7CKH.$^(2);\7ESX. SV.MNJ*9B57GSO/OZ "260.JB460J +ECM****6 WF+LCL7HWOS7E.JB4252 .4B=/\WL6=207FKO. 7L61R /OZ /\KL*(	L6=207NE
T2 .MRJ*1B07FKO. 7L61R /OZ 3\?F3R2 .1F=2 ?T" 65.JF425& 3FN .(GL.):<7LR 3H;E. J4"5*M.4B2. KL*(	L.=KL*(	L"+61.JJ425: 7ESX. GL3\WN+XCTL*M.4B32 ?F3R2 .3F=2 ?T" 66.JN425& 3F2 .5F=2 T+ECN.4B5.MRJ*4B0+ICF+L"2+L&3.<J>2 T+ECN.4B5.MRJ*4B5/L65+L.521
\3O?T. V4"5*M.4B52 [I. KL.(OL.):<63R 3H;E. Z4"0*M.4V5. SL.=SL"+61.JZ420: 7ESX. OL.MRJ*6B5+ICF/L6462R 3H;E. ^4"5*M.4B7* K29F,*):=24
\3O?T. J6"0*M.4V7* K29F,.)J=25
\3O?T. J6"0*M.4B82 ?G+TCO.6B2.MRJ*8B53R7E* **6*B +UCT3N7U7BKE3S& 3N> 3RWD+R6 6 SS3R	A7GSHS*M.4B92 ?F3R6 .1F=2 ?T6 257FKO. KM*=B1+TCOM61.J&425& 3FN .(GM.):=3C6(*2B)3TWH/NV "065.JB560* *=C+M&1+\C+M&1*=C+M&2+\C+M&2"=7Z.JB525: 7ESX. KM3\WN+XCTM61.JF520^ 6=20/
6320
\.3B=3\WR3S?TR7E.JF525^ .2B=3\[I. 7I*1B13TWH/NV "465.JJ520^ *=/G21	\3F^ .=V12 T+ECN.6B0.MVJ*2B53RGE3D^ *(&1*,G*22)/GN(2)^,*(&4*,G652)7GSO/OV "760.JN520R 3AGT* 21.2N,*,24.7J,*,23.4V,*,27.7N,*,24.5Z,*,27.2N,*,24.5^,*,21.2N,",64.JN525R 3AGT* 21.7J,*,23.4F,*,
2.7N,*,24.1J,*,23.7R,*,22.7N,*,24.5J,*,23.4^,",65.JR520R 3AGT* 22.3^,*,24.5N,*,27.4V,*,26.3R,*,27.5Z,*,23.4V,*,27"6*M.5V42 [I. OG*>B13TWH/NZ "060.JV520^ 23^=.3F+/\WG"=60.JV525Z +OCR/G64+GB3+TCO.(OG*+&4.MVJ*6B0/G65+G.521
\.(WG2)^="4*M.5V62 WN+XCTG64.J^520Z +OCR/G6161R +OB "5*M.5V72 [I* C+G&12<^>.(GG6)R 3H;E. "520
\22^=.2F+.MVJ*8B07NE3T^ "1*M.5V82 [I. KG*=7I66R 3H;E. &520
\3O?T. F5"5*M.5B92 [I. 7I*1B13TWH/NV 69253K&(*,	A.=B33\?G+TCO.6B2.MVJ*9B53K&(*,	A.=B43\?G+TCO.6B2.MZJ*0B03K&(*,	A.=R.3\?G+TCO.6B2.MZJ*0B53R7E* **2*N 3H;AC7E.JF660& .1B=.MZJ*1B57FKO. 7Y61R /OV /\GY*=C+Y.)7Y217NE7T& +\K*123/A6)Y61.JJ660B 3R;I3TF 2$F(*)J;6,&
+OCU7H[A/E."7ISN*(K3IF,.).)2"?P7ISN3S& 7NJ +OCW.."+IJ;*,J ";*M.6V26 KP7ISN* """"6;.JN620& 3F& *>B63TWH/NZ "460.JN625& 3F& *=B13TWH/NZ 6425+ICF/IJ=2 T+ECN.6B53\[I. 7I63R 3H;E. V625	\3F& *=B43TWH/NZ "660.JN626& 3F& *=B53TWH/NZ 6625+ICF/IZ=2 T+ECN.6B7.MZJ*4B
+ICF/IZ-*=B13TWH/NZ 6725+ICF/IZ-*=B23TWH/NZ 6820+ICF/IZ-*=B33TWH/NZ "865.JR621& 3F& .-6664R 3H;E. &620	\3F& .-6665R 3H;E. &625	\3F& .-6666R 3H;E. B7"0*M.6J42 [I* 7I.6^=2 T+ECN.7V0.MZJ*4B53P	R+NCT2"OA+EKS2;
\3O?T. F7"0*M.6B56 KP7ISN6 R"7WOO6"2;7GSO/O^ "160.JV665B 3R;I+TJ 7TKH7EOE6"2;7GSO/O^ "160.JZ660B 3R;I+TJ 7FWO+RKS2;
\3O?T. F7"0*M.6V66 KP7ISN2 Z"3IWV/S."3\?G+TCO.7B1.MZJ*7B03P	R+NCT2"	S7XOE6"2;7GSO/O^ "160.J^665B 3R;I+TJ 23> 3FF 2 	K+NKD2;
\3O?T. F7"0*M.6B86 KP7ISN. R"2 [O* CA3K;I/D."3\?G+TCO.7B1.MZJ*8B53P	R+NCT6"WF+LCL7HWO+SKE2;
\3O?T. F7"0*M.6B96 KP7ISN6 N"3M3A7LN 3TGR3IG/T."3\?G+TCO.7B1.MZJ*9B53P	R+NCT2"GL3RWG6 SS3R	A7GSH6"2;7GSO/O^ "160.JB760B 3R;I+TJ 3YA3TWZ/E."3\?G+TCO.7B1.M^J*0B53P	R+NCT2"C3AON/E.".M^J*1B0+ICF/EJ=65R 3H;E. B16320+ICF/I60*2B53TWH/NF .0B3.M^J*1B53P	R+NCT*"J).
^J*2B07FKO. 7B61R 3O: 3\?F3RJ .1F=2 ?T. N1.M^J*2B5+ICF3KJ(21J,.)B=2 T+ECN.1B0.M^J*3B07NE3TJ *1C\7NE3TJ .M^J*3B57FKO. OB*=B1+TCO3NK\25J(.36)20K\28J(.36)20;\7ESX. OB.M^J*4B03P	RN7T.JR725Z +OCR/B6361R 3O: 3\?F3RJ .4F=2 ?T" 66.JV720J 25J(.36)+B"5+B&32+;I3T.(.
SB.,OB")6).JV725: 7ESX. SB3\WN+XCTB63.JZ720Z +OCR/B6661R 3O: 3\?F3RJ .7^=2 ?T. N1.M^J*6B5+B"8+B&6.=B.([B2)&++NT3KJ(27J,*6&).M^J*7B07NE3TJ 27;\7ESX. [B.M^J*7B57FKO. OB*=B1+TCON*M.7B82 [I. WB.(OB.)Z<63R 3H;E. &7"0*M.7V8* K*124+B&3.=V3.M^J*9B07NE3TJ "3*M.7V9
 ?G3SKU. R9"0*M.8B02 ?F3RF .9F=2 ?T" 7N.JB865B 3R;I7TC\3R;I7TC\3R;IT*M.8B16 KP7ISN2 GT/BF(.9.)+A"$+A&9*;^"7SR 3OGT+LKS7\KP7ISN2 GT/BF(.9.)*"****************J*.M"J*1B53P	RN7T.JJ860B 3R;I+TJ 3AWC+S6-*-6-*-6-*-6-.-."7ISN*(K21F,*9&).M"J*2B53P	R+NCT6"
T+O7S*-6-*-6-*-6-*-J-2;;I3T.(*(22+A&9")*M.8B36 KP7ISN6 R"3HWR+E7S*-6-*-6-*-6-2"&;+NT/KN(.,	A")6).JN865B 3R;I+TJ 7FWO+R7S*-6-*-6-*-6-.-."7ISN*(K24F,*9&).M"J*4B03P	R+NCT2"	F7VOE*-6-*-6-*-6-*-J-2;;I3T.(*(25+A&9")*M.8V46 KP7ISN6 N"3IWX+S6-*-6-*-6-*-6-2"&;+NT/
Z(.,	A6)2)3P	RN7T.JV860B 3R;I+TJ 23> 3FF 2 	K+N7D*-6-.-."7ISN*(K27F,*9&).M"J*5B53P	R+NCT*"B4+OCF3A. 3ISN*-6-*-J-2;;I3T.(*(28+A&9")*M.8B66 KP7ISN2 Z"3U3L2 ?H3UWS*-6-*-6-2"&;+NT/K&(.,	A")6).JZ865B 3R;I+TJ 3SGM+LCL7SKT3A
I+H7T.-."7ISN*(K*120+A&9")*M.8B76 KP7ISN2 2"3A
R7EN 3TGR3IG+T6-2"&;+NT/KF(21F,*9&).M"J*7B53P	R+NCT2"GY7H+T+E7E*-6-*-6-*-J-2;;I3T.(.(J1.,	A")6).J"860B 3R;I+TJ 3CGH3NWC*-6-*-6-*-6-.-."7ISN*(K*123+A&9")*M.8V86 KP7ISN7\KP7ISN6 R"3OGT3L> 7FV 3PWP3R" 3A[L*-6-*-6-*-6-2"J;25F("96).J&860B 3R;I+TJ 3B;O+U7S*-6-*
6-*-6-*-6-*-6-*-6-*-6-.-."/KF(24F,"96).J&865B 3R;I+TJ 7TSO+ACL+OCF7L
O+ECR3H3A+F6-*-6-*-6-.-."+B"8+A&9.M&J*0B5/B69+B"5+A&9.+B.(	A2).+.(R1.,	A")*M.9B16 KP7ISN* SA.(	A*)J;*	CS3GGR+NCD7TSO+A7L*-6-*-6-*-6-*-6-.-."B69.JF925^ 7OWS/B& "460.JJ920: 7ESX. 	A.M&J*2B5+ICF/IF>63R 3H;E. F2"0*M.9B36 SSO7P.JR920Z +OCR/EF=2 ?T. J77\KP7ISN*
6"6"2;7NE3TV 7\KP7ISN3\WR7TKUN*M.9V42 ?G3SKU. R9"0*M.9B56 KP7ISN. F"2*F*7COE2"
\7OWS/B& 64203P	R+NCT*"*26*
T+OKS3\?G3SKU. R9"0*M.9V56 KP7ISN. N"6*R*3HWR+EKS3\?G3SKU. R960C\3R;I+TJ *4**7FWO+RKS3\?G3SKU. R9"0*M.9B66 KP7ISN. V"2*Z*3IWV7S2"7GOO+UCB.9B47\KP7ISN. Z"6*N*3IWX7S2"7GOO+UCB.9B4.M&J*6B53P	R+NCT*"*7**B3+OCF3A. 3ISN2"
\7OWS/B& 64203P	R+NCT*"*8**B4+OCF3A. 3ISN2"
\7OWS/B& "460.J^960B 3R;I+TJ *9**3F3U3L" 7OOU7E2"7GOO+UCB.9B47\KP7ISN. F"*0**+S;M6 SS3R	A7GSH2"
\7OWS/B& "460.J^965B 3R;I+TJ *1*12*
L6.N 3TGR3IG7T2"7GOO+UCB.9B47\KP7ISN. F"*2**3YA3TWZ7E2"7GOO+UCB.9B4.M&J*8B03P	R+NCT."N12*N*3H;A+CKE3\?G3SKU. R9"0*M.9V82 ?F+RB /E6161R /O" 7\KP7ISN3\WN+XCT7E213P	R+NCT2"WT+ACR3O[F2 OS3OWR7CKAD6".J&960J +ECM****2*R*3EGL3Y" 3EWR2 [I2 WN3EWD3D
\3O?T. V8.M&J*9B53P	R+NCT2"?T3T3A7S^ 3I3L2 WB6 KP7ISN+ECD+ICF7YWO2 WR3S?P+NCD+TKO.MFJ.0B06 KP7ISN* ^"3S?C3ROE3ASR6 WN3MWB+RB	7WSI3HF 6 WN3MWB3R^ 3RGE7TKE2 T+ACN*1:3""*M.1B065B 3R;I+TJ +TCO3SWE2 W+ACT3S?C3ROE3ASR6 CO3T?I+NCS7YWO2 GH+VCE7NSO2 WY7TV 3SSE",6"
JB1*1B03P	R+NCT2"WR3S?P+NCD+TCO2	?H3W6 7A	N2	> +R^ 3S?C3ROE3ASR6 WN3MWB+RB	7WSI/HJ *5J..MFJ.0V12 WR7TKUN*M.1J060B 3R;I3TF 2$F(*)J;6,& +OCU7H[A7ER +HCE3F3O7L
O3I
N2 OS3OWR3BGO+RCD7OSP3I;O3S2 7ESF":6".JB1*2B5/I6062257FKO. 7I61R /OF 23	\3F. *(3I/A6)60R 3H;E. N620
\3O?T. B1"365.JB1*3B03P	R+NCT*"B ""6;.JB1*3B57NE3T& 7\KP7ISN* :"2"	\.0B=3\WR7TKUN*M.1R020V N7DBJBZ

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