File HIQ.BA (BASIC source file)

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

61J +ECM****6 KW7IST+ECN+BCY3CGH3RWL3S2 3USN2,F 7MKE3IGC7NN 3C?H+O3L2 T3E" 7AWG+EB,7NSE7HKE3L;AD7S*JB23R7E* **2*6 3O	D3FWI3DF +NCD3C;O7VKE3TSE2 ?T6 OR+T?S3EJ 3YR 3A	V3DF +H3L2 	D7GSIA7L*JB33D7I* B*7&0*,T.9&,")*M64B 3R;I+TJ 3T	H3S& 7SR +HCE3G7A3E> 3F" 7IF-
"C\3R;I+TJ 7HKE3E& 7SR +HCE3BGO+RKD7\KP7ISN.MVJ6 KP7ISN* B"* B * B * B *!B * F * B * J!.MZJ6 KP7ISN* B"* B * B . F *3B . R1* B *1J57\KP7ISN.M^J6 KP7ISN* B"* B * B * B *!B * F * B * J!.M"J6 KP7ISN* B"* B * B . J *2B . N2* B *2J47\KP7ISN.M&J6 KP7ISN* F"* B 
 B!* B *!B * F * B * B!* B *!B * F ""*M*1B03P	R+NCT."&2. N *0B . F3* B *3B2. N *3B . R3* B *3J57\KP7ISN.MFJ61B 3R;I+TJ *!B * F * B * B!* B *!B * F * B * B!* B "!6".JJ16 KP7ISN. N"*8B *3B9. R *0B . F4* B *4B2. R *3B . R46"C\3R;IT*M*1B33P	R+NCT*"B!* B *!B *
F * B * B!* B *!B * F * B * J!.MFJ64B 3R;I+TJ *4B7. "4* B *4B9. V *0B . F5* B *5B2. V 632"3P	RN7T.JV16 KP7ISN* B"* B * B * B *!B * F * B * J!.MFJ66B 3R;I+TJ * B * B * B *5B8. V *9B . B66"C\3R;IT*M*1B73P	R+NCT*"B * B * B * F * B * B!* B "!6".J"16 KP7ISN* B
* B * B . Z *7B . "6* B *6J97\KP7ISN.MJJ62B 3R;I+TJ +TCO7S[A7ER 3Y	P+NCG3T7I+EB,3AN 7OCM7ROE3SSE2 WV3R	S+OCN+OCF3TWH2 GG+MCE3BGO+RKD.MJJ63B 3R;I+TJ 3W3I3LJ 7EV 3SSE6 WD3R;I7GB 7L	A*.B 3R[E+ECR+TCO3TWH2 KA3OWV2 ;O3EZ +OCR3P
E""*M*2B43P	R+NCT6"WN3MWB+R;S2 > *.;K2,2 +E
T3SJ 3E	G+N:.".6".J"22 WR+M* **B*7SSE6 CU2 ?B3ASR.MJJ29Z +OCR/RF=2 ?T" 69.JB32 ?F3RN *=B1+TCO"9*M*3B1+ICF*(7R*4*)*(7R*5*)*(7R.66)60R 3H;E. B4.MNJ22& +F" /CR-*)"*/CV-*)"*/CZ-.)B=2 T+ECN"460.JV3* T3RN,*)6="5*M*3B67GSO/OV "0*M*4B0+ICF*(7R*1*)*(7C*1*)*(7R*9*)
(7C.96)60R 3H;E. V3.MRJ62R *(3R/C6)"5*M*5B07NE3TN .MZJ20: 7ESX" 7R.JV6* T.5V,.)B=3\?G3SKU. B5"0*M*7B03R7E* **2*& 7NWP3T6 3OWV2 ;A3DN 3HOE3K> 3N2 3EGG7LSIY*M*7B57FKO. 7W61R /ON "3*M*7B73RGE3D6 .M^J29R 3AGT. N1.,R1.,V1.,J2.,N2.,R2.,&2.,B3.,F3.,J3.,N3.,R3.,V
.,"3.,&3.,B4.,F4.M"J21R 3AGT. J4.,N4.,R4.,^4.,"4.,&4.,B5.,F5.,J5.,N5.,"5.,&5.,B6.,^6.,"6.,&6.M"J23J *(	M.=^-3\WN+XCTW*M*8B6/BR(.16)"-63.JB160B 3R;I+TJ 7M[O7E^ 3HOI7HB 3IOE/E."3\;I7PSU" 7Z.JF120& 3FJ *(	Z.=^-2 T+ECN.1B4.MFJ*2B03P	R+NCT2"3I3L
E+ACL7M[O+EB,7T	R2 
A3A;I*.:.2"
\3O?T. B1"0*M.1B46 KP7ISN6 R"7O^ 7HKE/E."3\;I7PSU" 7P.JV120& 3FJ *(	P*=B03TWH/NF "260.JV123& 3FJ *(	P.=^-2 T+ECN.1B2.MFJ*5B6+ICF7ZB=2 T+ECN.1B0.MFJ*6B0+ICF6(*(*+	P*/&22=;I+T"(7ZB+.)J/6)R 3H;E. "1"0*M.1B72 ?G+TCO.1B2.MFJ*8B0+ICF2(KA7S*(*-	P*-&22*F(+BS7ZB-.
F-.82)*>B03TWH/NF "260.J&120^ 7OWS/BF .0B0.MJJ*0B07GOO+UCB.5B0.MJJ*1B07GOO+UCB.1B5"0*M.2B22 ?G+TCO.1B0.MVJ*0B03R7E* **6*B 3R;I3TJ 7OKAD*M.5B12 ?F7R" *=B1+TCO"9*M.5B22 ?F7R& *=B1+TCO"9*M.5V22 [I6 "(*-&16*"(*-&96*&(*-&16*&(*-&9*=B03TWH/NV "560.JN520& +F" /X
-*)"*/XV-*)"*/XZ-.)B=2 T+ECN.5B7.MVJ*4B0+ICF*(7Y*4*)*(7Y*5*)*(7Y.66)60R 3H;E. ^5"0*M.5B52 WRM*M.5B62 ?G+TCO.6B1.MVJ*7B0+ICF7T"(*,	Y.<V>2 T+ECN.6B0.MVJ*8B03P	R+NCT3TKA*(+Y.2.)*"J!";*M.5B92 ?G+TCO.6B1.MZJ*0B03P	R+NCT3TKA*(+Y.2.)*"KO";*M.6B12 WRM*M.6V12 WN+X
TY*M.6B26 KP7ISN.MZJ*3B07NE7T" .MZJ*4B07RSE3U;R.MFJ.0B02 WR+M**6*V 3PGD+TCE3BGOR7D.JB1*0B5/CF=3\?F7R" *=B1+TCO"9*M.1J020Z +OCR/YF=2 ?T" 69.JB1*3B0+ICF/C:<7ZR 3H;E. J1"260.JB1*4B0+ICF/CJ+6<B>2 T+ECN.1"0"0*M.1R025& 7FR *(3X/YF+.)B=2 T+ECN.1B2.MFJ.0B5* T7X&,
+&2"=65.JB1*6B07T"(*,/Y.16)20K\*(/C.16)"-63.JB1*7B07GSO/OF .2B0.MFJ.0B82 [I* /C.128*>CP3TWH/NF .1B3.MFJ.0V82 [I* T/XF+*,	Y*=B03TWH/NF "260.JB1*9B07T"(*+22/Y6)65S\*(/X61&,.)B=+\B/C&+*)6="3*M.1J120^ 3O?T. J1"060.JF1*3B0+ICF/CJ-6<B>2 T+ECN.1^1"0*M.1N125& 7FR
*(3X/YF-.)B=2 T+ECN.1B2.MFJ.1B4* T7X&,*-&26=257T"(*,7Y.16)20K\*(7C.16)"-63.JF1*6B07GSO/OF .2B0.MFJ.1B72 [I* 7C.128*>CP3TWH/NF .2B2.MFJ.1V72 [I* T/XF-*,	Y*=B03TWH/NF "260.JF1*8B07T"(*-22/Y6)65S\*(7X61&,.)B=+\B/C&-*)6="3*M.1B220J *(	Z.=N-+\B/P6)"-67.JJ1*1B0
T"(*,	Y6=207GSO/OF .2B4.MFJ.2B2. 7C/CF+.MFJ.2V22 WN+XCTY*M.1N220: 7ESX" 7X.JJ1*4B07RSE3U;R.MFJ.5B02 WR+M* **B*3CWH+CCK+ICF3G7A3E& 3S> 7VKE.MFJ.5V0. 7F"0*M.1F520Z +OCR/RJ=2 ?T" 68.JV1*2B07FKO. 7C62R /O" .MFJ.5B32 [I* T3RN,.):<65R 3H;E. V1"860.JV1*3B53FZ="+
1.JV1*4B07FKO. 7A/RF-2 ?T* /R"1*M.1R565R "=60.JV1*5B07FKO. 7B/CF-2 ?T* /C"1*M.1Z560R *=/T3TF(*,	B.MFJ.5F62 WN+XCTB*M.1Z524& 7FR .<F>60R 3H;E. V1"667.JV1*6B5+ICF3TF(*,	C.<B>2 T+ECN.1N6"0*M.1Z527: 7ESX" 7A.JV1*6B87FKO. 7X/CF-2 ?T* /C"1*M.1Z569R "=60.JV1*7B0
FKO. 7Y/RF-2 ?T* /R"1*M.1^561R *=/T7T&(*,	X.MFJ.5J72 WN+XCTY*M.1^523& 7FR .<F>60R 3H;E. V1"765.JV1*7B4+ICF7TJ(*,	X.<B>2 T+ECN.1N6"0*M.1^525: 7ESX" 7X.JV1*8B07NE3TN .MFJ.5B92 WN+XCTR*M.1B660J +ECM****2 GG+MCE+ICS3OWVR*M.1B665B 3R;I+TJ 3TWH2 GG+MCE+ICS3OWV+
J..MFJ.6B16 KP7ISN6 &"+OCU3HSA2"Z;6;B"3IOE+ECS3R7E3A;I3I
N""*M.1F621& 3FZ .<F>2 T+ECN.1F6"5*M.1F662B 3R;I+TJ 3BGR+VGO6 & +OCU3MSA3EF 2 WP3RWF+CCT3S?C+RGE"!6".JZ1*1B33P	R+NCT2"GS+VCE3T	H7SB 3AWP3RF 3SF 2 WR7CKO3D> 7F& 7OKU2 ?W+R;K""*M.1F665B 3R;I7TC\3R;I+TJ 3PGL3YF 3G	A+N" 7YOE6 KO2 ?N.)."3\;I7PSU* SA.MFJ.6^12 [
* SA2=:"+OB"3TWH/NJ .0B0.MFJ.6"12 WR3S?T7R3E7GSO/OJ "9*M.1J660N 7TCO.MFJ.6B32 WR7TKUN*M.2B060B 3R;I7TC\3R;I+TJ +SCO3L;O3GZ +OCR7N
O6.2"3P	RN7T.JB2*0B53ESN&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