File DHIQ.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&,6)2 3F3I+EOV*1J:/T+V""*M64B 3R;I/TF2:;P/TF(*0&82
;P/TF(*2&62;;P/TF(*1&7.MVJ6 KP7ISN.*12"T+ICS+ICS3TWH2 GG+MCE+OCF+H7I7Q2"3P	R+NOT*1J:7HKE3E& 7SR +HCE3BGO+RKD.M^J6 KP7ISN.*1*"B * B * B . N1* B *1B4. F "56"*JB93P	R+NOT*1J:* B * B * B *2B2. J *3B . R2""*M*1B13P	R+NOT*1J:*2B9. B3* B *3B1. N *2B . N3* B *3B4
 N "56".JN16 KP7ISN.*1.""3. N *9B . B4* B *4B1. R *2B . N4* B *4J4.MFJ65B 3R;I/TF.:R"*7B *4B8. R *9B . B5* B *5B1. V *2B . N5""*M*1B73P	R+NOT*1J:* B * B * B *5B8. V *9B . B6""*M*1B83P	R+NOT"16:.J&16 KP7ISN.*1*"B * B * B . ^6* B *6B8. Z "96".JJ26 KP7ISN.*1
"?T2 GS+VCE7TCY3I
N2 	T+M3E* CA3C7O3PWR3SWS7DZ 7EOR3I;O2 [O2 T3E^ 3AWM2 ?B3ASR""*M*2B33P	R+NOT*1J:3W3I3LJ 7EV 3SSE6 WD3R;I7GB 7L	A*.B 3R[E+ECR+TCO3TWH2 KA3OWV2 ;O3EZ +OCR3P
E""*M*2B43P	R+NOT*1J:3N7U7BKE+SB.* ;O+K2.2 WL7TN	2 WB3G;I*.:.""*M*2B83R7E* **6*N +ECT+UCP3BGOR7D.J&22 ?F7RJ *=B1+TCO"9*M*3B07FKO. 7C61R /O& .MNJ21& +F" /RR-*)"*/RV-*)"*/RZ-.)B=2 T+ECN"460.JJ32 [I2 N(*-&42*N(*-&52*N(*-&6*=B03TWH/NR "0*M*3B57TJ(*,	C.=V-.MNJ
6^ 3O?T. B5.MRJ20& +F" /RF-*)"*/CF-*)"*/R&-*)"*/C&-.)B=2 T+ECN"365.JJ4* T3RN,.)V=.MVJ20: 7ESX" 7C.JB62 WN+XCTR*M*6B5/TV(*,&56=207GOO+UCB.5B0.M^J60J +ECM****2 ;I7PSU2 ?M+VCE3ASN2 C3E/C2 ;O2 WL3G3A7I	T.M^J25Z +OCR/WF=2 ?T. N3.M^J67J 3ESA" 7M.J&72 GD+TCA*123
124*125*222*223*224*229*320*321*322*323*324*325*328*329*420"461.JF82 GD+TCA*422*423*424*427*428*429*520*521*522*523*528*529*620*627*628"669.JN8* B/M6)6-277NE7T^ .M"J26J .(F4*)6="3*M.1B06 KP7ISN.*17PSN.(B1.5.)*"B * B * B * B * B * B * B * B * B * B * B * B
* B * B * B * B " 6".JB161B 3R;I/TF2:;P/TF(*0&52;6"3OWV2 W3IC2 	P3EWC""6;.JB122N 7LOO/EF2 [\3IWL.*26"[T*:B"3\;I7PSU.*27Z2 3C?L+SOE622 3F3I+EOV*1J:/T+V""*M.1B12 [I* B/Z6)*-B73TWH/NF "460.JJ160B 3R;I/TF*:J 3I3L3EGG3L6 3OWV6,R +RCY3AGG+I;N*.J.3\?G+TCO.1B0.MF
*4B03P	R+NOT*1J:+TCO3WWH+RKE";*M.1F42 3C3OWS*B13\	F+LOE*2J:/T+V6"2 7ICN+UOT62B:2 O\7LOO/EJ2 [\3IWL/VF6:R"+VJ:.MFJ*5B0+ICF7BB(.)B=2 T+ECN.1B2.MFJ*5B3+ICF7BB(*)6=67R 3H;E. J1"0*M.1Z52 [I. 7Z7PR 3H;E. B1"0*M.1B62 [I* "(7ZB+.)J/2)&=+NT*(/Z+P>)*2B)3TWH/NF "860
J^120^ 3O?T. J1"0*M.1B82 [I2 F(+BS7ZB-.)J-*)"*7AOB*(7Z+P6)*1&8.<B>2 T+ECN.1B2.MFJ*9B07GOO+UCB.1B0"0*M.2B02 ?G3SKU. B5"0*M.2B12 ?G3SKU. V1"060.JJ220^ 3O?T. B1"0*M.5B02 WR+M* **B*3P	R+NCT3BGOR7D.JF520Z +OCR/XF=2 ?T" 69.JJ520Z +OCR/YF=2 ?T" 69.JJ525& +F" /XF
*)"*/X&-*)"*/YF-*)"*/Y&-.)B=2 T+ECN.5B5.MVJ*3B0+ICF*(7X*4*)*(7X*5*)*(7X.66)60R 3H;E. ^5"0*M.5B42 [I6 &(*-&46*&(*-&56*&(*-&6*=B03TWH/NV "760.JV560J E7M.JZ520^ 3O?T. F6"0*M.5B72 [I* T7X&,.):<65R 3H;E. B6"0*M.5B86 KP7ISN.*12 GT7B&(**&2*;F"""6;.J&520^ 3O?T. F
"0*M.6B06 KP7ISN.*13TKA*(+Y.2.)*"KO";*M.6B12 WRM*M.6V12 WN+XCTY*M.6B26 KP7ISN.*1.MZJ*3B07NE7T" 2 O\7LOO/EF2 [\3IWL/VF6:R"+VJ:.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;
. 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*1B07T"(*,	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="+61.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+ICF3
F(*,	C.<B>2 T+ECN.1N6"0*M.1Z527: 7ESX" 7A.JV1*6B87FKO. 7X/CF-2 ?T* /C"1*M.1Z569R "=60.JV1*7B07FKO. 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*8B07NE3
N .MFJ.5B92 WN+XCTR*M.1B660J +ECM****2 GG+MCE+ICS3OWVR*M.1B665B 3R;I/TF6:R"+HCE3G7A3E& 3S> 7VKE".6".JZ1*1B03P	R+NOT*1J:7YWO2 GH/D."+FJ;3PWI7COE2 WR3M	A3N;IG6".JZ1*1B1+ICF/F:<61R 3H;E. Z1"165.JZ1*1B23P	R+NOT*1B:6"KB3A?V*!B 7YWO2 GM+DCE7AB 3E[R7ESC2 OS3OWR*
J!.MFJ.6N16 KP7ISN.*12"GS+VCE3T	H7SB 3AWP3RF 3SF 2 WR7CKO3D> 7F& 7OKU2 ?W+R;K""*M.1F665B 3R;I/TF6:2 3P	R+NOT*1J:3PGL3YF 3G	A+N" 7YOE6 KO2 ?N.)."3\;I7PSU* SA.MFJ.6^12 [I* SA2=:"+OB"3TWH/NJ .0B02 O\7LOO/EF2 [\3IWL/VF6:R"+VJ:.MFJ.6"12 WR3S?T7R3E7GSO/OJ "9*M.
J660N 7TCO.MFJ.6B32 WR7TKUN*M.2B060B 3R;I/TF6:C\3R;I/TF6:N"3O2 3O
N2 ?F3R: +O;W6"C\3R;I/TF6:2 3C?L+SOE"1*M.2B025V 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