File HUERT2.BA (BASIC source file)

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

61J +ECM*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-6-WH7ESR22J.*3B02 GL" 62*JB23R7E* ******6 KE3SWT7LWL7NOG7DSA/U+M. F22-?N/V^-*5B 6 CS/LB0.0B0"160*JB33R7E* ******2 WV3R	S+OCN3V7O. V12-?N/V

"6*M*1B0+GCO+TCO.6B5.MFJ29Z +OCR/IB=2 ?T. Z1* C\3V&(.)B=* C\3W&(.)B=* C\7NE3T& .MJJ20: *=B13\6 *=B17\B 3R;I+TB 7\B 3R;I+TJ 7WKE2 WB3G;I+NCT.?B 2:OI+H6 . *13SWI*"B,3\& 7NWP3T. .MNJ60B 3R;I+TB 3\& 3F. *=B03TWH/NR 602 2 [I. 7K61R 3H;E. B4* C\7GOO+UCB.2B0602 
 ?G2 ?T. B2.MRJ60F *=B03\Z +OCR/IF=2 ?T. Z1* C\7QF=*+V+IB)3\: 7ESX* CI3\& 3FZ +NA/K6)61R 3H;E. V1"0*M*5B03P	R+NCT2"I+RCE3F3E3DGW+HKL*,B,3\^ 7OWS/BV *9B07\J 2$J=6$2 . 7NR*M*6B07FKO. 7I61R /OF 662 2 [I* D/I6)7NR 3H;E. B7* C\7NE3T& * C\3P	R+NCT2"	N7CSH2 WG+F
.* C\7GOO+UCB.2B0602 2 ?G2 ?T. B5.M^J20& 7FZ *(	I*=B03TWH/N" 602 2 [I* V/I6)62R 3H;E. B8* C\7GOO+UCB.2B0602 2 ?G2 ?T. B5.M"J60Z *(	I*=B23\& 7FF *=B03TWH/NF "260.JB96 KP7ISN2 &"+HCR7ZOU7A+T3F3E+D2"6,2 2 ?G3SKU. &5602 2 ?G3SKU. B5"0*M.1B02 [I. 7R7ER 3H;E. F
602 2 ?G3SKU. F2*0B03\^ 7OR /O& "0*M.1B12 ?F3R& *=B1+TCO*1B63\& 3FR *(	I*=CE3TWH/NF *2B03\: 7ESX" 7I.JJ160Z *(	I2=;F3A.(6)2 . 7P612 2 ?F3R& *=B1+TCO*1B67\B *=+P3V&(6)2 2 WN+XCTI*M.1B32 [I. ;P60R 3H;E. ^2602 . 7K/KF+* C\3M:=* C\+ICF3FGN*(	K*=B13TWH/NF *4B0
\^ 7OWS/BN *7B03\^ 7OR /OR "0*M.1B42 ?G3SKU. ^4602 2 ?G2 ?T. B4.MFJ*5B07FKO. 7I61R /OF 662 2 [I* V/I6)60R 3H;E. Z1602 2 WN+XCTI*M.1B6. 7N3D&(6)2 * V/I6)612 6 KP7ISN2 &"+CCH3WWA3HWL2 GD3SZ 3ESL*:2".MFJ*7B07FKO. 7I61R /OF 662 2 [I. 7N3A&(6)R 3H;E. "1602 2 W
+XCTI*M.1B82 [I* SK*<J>3M;E+GKE2 T+ECN.1B9* C\/R6$+T"$+IB)7\B 3R;I7TJ 6$2 2 ?G2 ?T. F2"0*M.1B92 [I* SK*<J>3T	E7LKE6"R 3H;E. B2602 * SR6=SS+R"$3Y&(*)B)7\B 3R;I7TJ 6$2 2 ?G2 ?T. F2"0*M.2B0. 7R6CKT2$:(6)2 6 KP7ISN* SR.MJJ*1B0+ICF/QB=2 T+ECN/PB=* C\+GCO+TCO.1
3.MJJ*2B07GOO+UCB.5B0* C\3P	R+NCT2"WM+ICN7ZOU7A+T3F3E3D& +SKT",*M.2B32 ?F3R& *=B1+TCO*1B63\& 3FV *=A+IB)3TWH/NJ *4B03\: 7ESX" 7I.JR220& 3F. .$:<2"WM2DCG7ER"3H:D. V2602 6 KP7ISN* ST*(	I* C\+GCO+TCO.1B1.MJJ*5B0+ICF/K2$6>R"3E3I+EKR2 T+ECN.2B6* C\3P	R+NCT3Y&(
)2 2 ?G2 ?T. F1"0*M.2B66 KP7ISN* CE3\^ 7OR /OF "160.J^260N *=B07\B 3R;I+TB 7\B 3R;I+TB 7\B 3R;I+TB 7\B 3R;I+TJ 3ESNGVU3L^D+KR6;2 2 ?G3SKU. ^3"0*M.2B82 ?F3R& *=B1+TCO*1B67\N *=/S3V&(6)2 2 WN+XCT7I2 . 7S3S;G*(7S*2&4"+62.J&220> 7NN 2 ?G2 ?T. B3.0N,*120.3B2.M
J*0B03P	R+NCT2"	S3E" 3AWB3N2 3ESI+ECR7VKE7LKO+ECN*!B"3\^ 7OR /ON "360.JF360B 3R;I+TJ DGS3PWI3L& +SCT3UWN7NOT3C	H3EWD+NB"3\^ 7OR /ON "360.JJ360B 3R;I+TJ 3GGR3T3U7IKE+EB,3SWI2 GH3B;E2 WG3W;O3N;E* F!""*M.3B36 KP7ISN2 :"3OC2 	E7NN 3PWI/L> *"B,3\& 7NWP3TF "$*M
3B42 [I* SA2=*"+AB"3TWH/NN *5B03\^ 7OR /OJ .2B3.JVC20>G2 ?T. V6"0*M.3B62 ?G2 ?T. V1"0*M.3B7* SA*=6"*N2& 6"2 * SB.=:"*N2& 6"2 6 KP7ISN6 2 . GG"=61.J"360B 3R;I+TJ 3S	P7EOL3T;A+DB"3\& "=60.J&320& *=/I612 2 ?F3R" *=B1+TCO*1B63\& 3FF *(	H*=D+IB)3TWH/NR *0B03\:
7ESX" WH.JB42 W6)Z=*(	I* C\+ICF/IF<66R 3H;E. &3602 2 ?G3SKU. &4602 6 KP7ISN2 Z"3ESL+ECR* KI";*M.4B1. KG.=GG*+B73\& 3F. *$J=3M;E+GKE2 T+ECN.4B4* C\+ICF/K6$2"WT3IWL+RB"3TWH/NR "360.JJ420Z +OCR3H^=61R 3O^ 622 6 KP7ISN6 OU3I
N* SA.,/A2 WN+XCT7H2 6 KP7ISN6 2 2 ?G2 ?T. V4"0*M.4B32 ?F3R" .=GG2 ?T. KG* C\3P	R+NCT3U	S+NCG+A2$3Y"(*)B;3\: 7ESX* CH7\B 3R;I+TB 3\^ 7OR /OR "560.JR420Z +OCR3H^=61R 3O^ 622 6 KP7ISN6 OU3I
N* SB*,ST*(	H6;2 2 WN+XCT7H2 6 KP7ISN" 2 3G>O. V4"0*M.4B56 KP7ISN2 J"3EWL/G+T* KI6;2 2 ?F3R" .=GG2 ?T. KG* C\3P	R+NCT3U	S+NCG+A2$3W"(*)B;3\: 7ESX* CH7\B 3R;IT6 .JZ420^ 7OWS/BR *9B03\& 3F^ .2F=66R 3H;E. ^4602 . GG*=B93\^ 7OR /OR "060.J^420& 7FB *>B03TWH/NZ
*4B03P	R+NCT6 C\3R;I+TJ 7NWE+ECR3OWP7RSA/O+R6"J,6$2 2 ?G2 ?T. R6"0*M.4B96 KP7ISN* 6"*-6-*-6-*-KI6;2 2 ?F3R" *=B1+TCO682 6 KP7ISN* 6"*-6-2-&-*"B;3\: 7ESX* CH7\B 3R;I+TB 3\^ 7OR /OZ "460.JB520> 3N^ 2 ?G2 ?T. F5.0V,*220.5B3.,R5" RA.ABB.,^5.0V,"860.JF520V 2=;
3B6(**	N* C\+GCO+TCO.6B4.MVJ*2B03EZ=+NB3M:+.+J(*160+M*)+NB)3\^ 7OR /OZ "460.JN520V 2=;F3B:(.*J(*161+M&)* C\+GCO+TCO.6B4.MVJ*4B03EZ=+NB/NJ+*161+M"+.2B1*-	N.*J(*161+M&)* C\+GCO+TCO.6B4.MVJ*5B0EJA*N"B+M"*.2F1*-	N6)2 2 ?G2 ?T. R6"0*M.5B6. 7E3FKN*(/M.2F1*-/N.(
2206-*)"*.2F1*-	N6)2 2 ?G2 ?T. R6"0*M.5B7. 7E3FKN.(J(*1613M:+*)"*.2F1*+7M+N&)* C\+GCO+TCO.6B4.MVJ*8B03EZ=+NB*(7M7N:)*2B)3\^ 7OR /OZ "460.J&520& 3F. *$J=3M;E+GCE3TWH/NZ *2B03\& 7NWP7TJ * C\/B6$7SKT6$J(")*M.6B12 [I* SK*<J>3T	E7LKE6"R 3H;E. R6602 2 ?F3R& *=B
+TCO*1B63\& 7FJ *=Y+IB)3TWH/NZ *3B03\: 7ESX" 7I.JJ620& 7NWP3TJ 6$2 2 ?F3R& *=B1+TCO*1B63\& 3FJ 6$R=2$&(6)R 3H;E. N6602 " VN2X&D"MJJ*3B03RF=*(	I.MZJ*4B07RSE3U;R.MZJ*5B03CGH+ICN6"WH7ESR"16".J&1*9B93R7E* ******2 ;U7TKE3P?R3GGR+MCM7ZKU2 WF3HWL3RWB3H;A7DWL+NCG
***"*6*.JB2*0B03P	R+NCT* C\/Z61+Z.1612 6 KP7ISN6 N"+ICE3HKA+ECN*"B;3\& 7F* .1F=2 T+ECN.2BB.MJJ.0B16 KP7ISN6 *"+UKM+ZJ16-R +ECN3M3A+EJ ";*M.2J060B 3R;I+TJ 3F3A3SC2 WG3WWA7HSL* J!* C\+ICF/Z:163R 3H;E. J2"360.JB2*3B0+ICF/Z2163R 3H;E. B2"560.JB2*4B03P	R+NCT2"
N3EC3SWT3S6 +ACL3BWR3CWH2 OI3HF +BF *!J!.MJJ.0B56 KP7ISN2 ^"3EWB7NN +ICE7BSI+TCE7NWE2 	E+NB"3\^ 7OR /OZ "460.JF2*0B03P	R+NCT* C\/Z62+Z.2612 6 KP7ISN6 N"+ICE3HKA+ECN*"B;3\& 7F* .2F=2 T+ECN.2J1"0*M.2F160B 3R;I+TJ 3Z7U."KZ*"B-3T;E2 GM+LCE""6;.JF2*2B03P	R+NCT
"GF3LOS3H^ 3EWR3C;H+EGT6"2 2 [I. KZ*>B33TWH/NJ .2B3.MJJ.1B32 [I. KZ*<B33TWH/NJ .0B5* C\+GCO+TCO.2R0"0*M.2N260B 3R;I+TB 7\B 3R;I+TJ 7DOA6 CS3I3E6 OI7T* 3UV 3NWD* F!*!B"7\B 3R;IT6 .JJ2*4B07AN=+YS*5B)7\N 7TCO&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