File ABIQ22.BA (BASIC source file)

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

*1B03D7I* SA.(R1.,B22)J,.(R1*,&7*,L*1&2*,G*1&0*,SH*(24"66).JB22 	F+LOE*1J:7SOY6:GA7UR222J.7A2"7ICN+UOT61N:*,3H7H*,25",*,3H3F",*,3H+N283H",.,F*,3HH*M*3B07ICN+UOT21Z:21",*,3H+F223H",.,GN*,3H3H:,22",*,3H/LF(2)",*,3H/LJ(2)",*,3H+Z263H",.MRJ20Z +OCR/IF=2 ?T. [
6+217ICN+UOT21^:*(	I*,3H3H;\7ESX" 7I.JB52 ?F3R& *=B1+TCO22[\+OCR/JF=2 ?T6 247ICN+UOT21J:*(L+I2)+J2)3H",3\WN+XCT3J;\7ESX" 7I.JB62 ?F3R& *=B1+TCO7Z267FKO. 7J61R /OR 3\;I7PSU.*13B^(*(	I*,	J*,3H3H;\7ESX6 3J7NE3T& .M^J20Z +OCR/JF=2 ?T6 237ICN+UOT21J:*(G+Z.6*12
+J2)3H",3\WN+XCT3J	\7NWP/TF*:B7G*(.6F+.)R,")*M*8B03C?L+SOE"1*M*9B03F3I/EF6:N"/Y+S3FWA3N7A2.GB""*M.1B02 ?F3R& *=B1+TCO61247ICN+UOT21F:2$&(2);\7ESX6 3I3C?L+SOE"1*M.1B1* SH*(&1.=F".1J/2"\.$J(*)J=*1>2612"+H"$.36)."J1*/J2+\SH*(&4.=F".3F/""*M.7B52 ?F3R& *=B1+TC
63	\.2B=3\?G3SKU. "2"060.JZ720: 7ESX" 7I.J^720Z +OCR/IR=2 ?T6 N77TCE6 23/Y6222
\7OWS/BJ .8B0.M^J*8B07NE3T& .M^J*8B1/BB=3\?F3R& *=B1+TCO22[\+OCR/KF=2 ?T6 24+ICF3B2(*(	I*,	K*<B03TWH/N^ 68227GSO/O"7"3*M.7J8. 7B3BJ-*(L+I2)K6).J"723: 7ESX6 3K7NE3T& 3\[I. WZ.<B>2 T+ECN.7R8/\7B23J*3\[I. 3B.1B02 T+ECN.7V83\?G+TCO.7B9.M^J*8B4/BN=**/B22Z*3\[I
 3B.1B02 T+ECN.7V83\?G+TCO.7B9.M^J*8B53P	R+NCT2"	S3E" 3AWB3N& 3MJ 3EWR3IC2 WD3R2 3K: +UCR2"J;*;B"3P;U3KWT""*M.7Z82 [I. WZ*=B03TWH/N^ 68273P	R+NCT2"6(+ICT3FOA7HKA3B	E+TJ).M^J*8B77GSO/OJ .9B9.M^J*9B0/IF=60	\.2F=3\?G3SKU. "2"060.JB865* .9B=/\7K"0*M.8B1. 7M6-
17FKO. 7I61R 7O* .6F+3\?F3R* *=B1+TCO"4*M.8B22 [I* B3G&(2)*,.)B<2 T+ECN.8B63\[I* B3G&(2)*,.)J<60R 3H;E. R8"0*M.8F22 [I* B3G&(2)*,.)F<*0B03TWH/N" 63207GSO/O" "660.JN820J *(G+I2)/J6)3B^(*(	I*,	J.-B2.M"J*4B0+ICF3B^(*(	I*,	J2<6=2 T+ECN.8B63\[I. 3I.>[Z2 T+ECN.
B53\[I. 	Z6=R33H;E. V8"5*M.8B5. 7M3B^(*(	I*,	J/\GI6=3I/J613J	\3F& 6<*>66R 3H;E. Z860+\69*=.9F+3\?G+TCO.8B6.M"J*5B53B^(*(	I*,	J*=B3G&(2)*,.)F-"060.JZ820: 7ESX6 3J7NE3T& +\B3G&(*12)+J&1*=B3G&(*12)+J&1.+B1"0*M.8J6. 7K/KF+3\[I. 3K*2667TR 3H;E. F8"0*M.8N6. Z6=
0+ICF/KJ>66R-2 T/EN6720/M613M
\3O?T. F8"0*M.8B76 KP7ISN3M6;21F;2$^(.(GI.).)3T.;3\[I. 3M+MB13TWH/N" 6722/Z68"1*M.8J7* B3G&(*12)+J&1*=B3G&(*12)+J&1.-B1"0*M.8N7. GB6=20/B6220[\+OCR/IF=2 ?T. [Z6+217FKO. 7K61R /OR 3\[I* B3G&(2).,.)B<2 T+ECN.8B8.M"J*7B5+ICF3B^(*(	I*,	K.<B160R 3H;E. "825K\22
=22J+*(G+I2)7K2)7GSO/O" "865.J"820& 3FJ *(G+I2)/K2).-B72 T+ECN.8V8/\GB.=GB*-B3G&(2).,")*M.8V82 WN+XCT3K;\7ESX6 3I/B61+B.1+B62.(Z2*-	T.*B120	\3FJ .1F<*0B03TWH/N" 68267GSO/O" "867.J"866B 3R;I+TJ 3SWI2 GH3B;E2 7I2 WB3R	E+CCH7DKE2 /G6 WN/R."/B.16"B 3U/N+TKE3\
G/TKO.9B9.M"J*8B77FKO/IF=7T+O.6F+3\?F/R7J21?T24	\+FB3G&(2)*,.)6>20T/EN68293IKF*(G+I2)/J2)6-R43H;E.8F9.M"J*8B8/P61+P.121
\3O?T. &8"1*M.8&82 [I* B3G&(2)*,.)F<*0B03TWH/N&821	\3FJ *(G+I2)/J:).1R03TWH/N" 6921/P61+P.1"1*M.8F92 WN3X+T3\WN3X	T3\[I/P2126T/EN69233P	R+NKT3SWI2 GH3B;E6 WN/R."*260/P.16"KG6.WK3RWS""6;.J&862B 3R;I+TB"7MSI2 WM+HCR7AOL* B47PSK6.2"7GSO/OJ .9B9.M"J*9B33P	R+N
T2"GF/C+H6"2,7FKO. 7I61R /OR 7\KP7ISN* SH*(	I2,;\7ESX" 7I.J&865B 3R;I+TJ 3L	E7SWT7NOG7KKU/S+E6"C\3R;IT*M.9B02 ?F3R& *=B1+TCO62C\3R;I3TF 2$2(*(	I6)2,7FKO. 7J61R /OR 3\[I* B3L&(2)*,.)6>* B03TWH/N& "067.JB965B 3R;I+T6 3B2(*(	I*,	J*;*"**2"3\?G+TCO.9B1.M&J*0B7
P	R+NCT3B2(*(	I*,	J",*M.9B12 WN+XCT3J;\7ESX" 7I.JF922& 7F* .5B=2 T+ECN.9V17\KP7ISN2"GF3CGH3RWB+ICT+ICN2"F;6$*(.5.)*"J:.;/F6"B 3U/N+TKE7\KP7ISN.M&J*1B57FKO. 7I+Z.661R /OF 6 SS+ECP6-21+ICF/I:<+Z.661R 3H;E. J9"0*M.9^16 KP7ISN2 F"3BWG7SWT3FWT3R2 +KJ:.M&J*2B0+
CF/I:<+ZB63TWH/N& 62253P	R+NCT6"KG3USN7KKU/S+E6"C\3R;IT*M.9V26 KP7ISN* SA*(G+I&)2,	\3F& 6<*>66R 3H;E. N920	\7FN .<F>2 T+ECN.9B33\?G+TCO.9V5.M&J*3B07FKO. 7J61R /OR 3\[I* B3G&(2)*,*)6<*7B03TWH/N& 6425+ICF3B^(*(	I*,	J*<B03TWH/N& "460.JN925& 3FJ *(G+I2)/J2).1
02 T+ECN.9B57\KP7ISN* B3G&(2)*,.)F-.0.0*"* 6"2,7GSO/O& "660.JR960B 3R;I+T6 3B^(*(	I*,	J*;*"**2"3\?G+TCO.9B6.M&J*4B53P	R+NCT.1B0*+B3G&(2)*,*)J;* J 2,
\3O?T. Z9"0*M.9B56 KP7ISN* B3G&(2)*,*)J;* J 2,
\3O?T. Z9"0*M.9V56 KP7ISN2 J"7EKF7ESI""*M.9B62 WN+XCT3J;\7ESX6 3I3P	R7N3T3P	RN7T.J^960B 3R;I+TJ 3Z	E3CWH7NKE3KGL7EWR/N+G""*M.9B86 KP7ISN* *".*6 7VKE3P3F3IC3T;E3DV 3I
N7EKB3ACT6".J"965B 3R;I+TJ * B*6=KF7E
I3I3L+ICG3E;I3GKE3ROA+HKT.M&J*9B0+ICF/Z6860R 3H;E. &9"7*M.9V96 KP7ISN6 N"+ICE3KWO3NWN3NF 7NSS7AST2 WD3RV 3I
N7EKB3AC3T;E2 /G2 	M/T."/M.16"B +K;T3AOUH6".J&966B 3R;I3TR"2.F +N;D+GCK7MSI2"6;*1J;2 /P3TV 3IKN3R;I3G;E".6".J&967B 3R;I+TJ 3P;U3KWT2 7I2 WB3R	E+CCH7DKE6 KG3USN7KKU/S+E2"J;"1*M.9"96 KP7ISN6 B"3U/N+TCE+ICM7BKE3EOI3HR +ECR3L	E+S;T7KKU/S+E2"J;.M&J*9B93BJ=.+GB
MFJ.0B02 [I. ;B.5"42 T+ECN.1F0257\.=R528[\+OCR/IF=2 ?T. V4/\7M/MF-"2*M.1B025& 3FJ *>CM3TWH/NF .0B13\WN+XCTI*M.1F020R *=:1*1"+/IF-*):*21	\3FR 2-;I3TR(.):<20T/EGN.0J1+\SD6=SS+R"$+DZ)."B.2"
\3O?T. B1"260.JB1*1B2/D6$7SKT2$R(2)
\3O?T. B1"260.JB1*1B5/D6$*":1"06".JB1*2B03P	R+NCT2"	S3E" 3AWB3NR +ICE3QGU3L[I3IGK3T?I7N* +UCM3A	B7TKU6 KE3R	E7CSH2 	M3TV 3IWNR6".JB1*2B53P	R+NCT2"WG3S7A7TWP7NSK3ZA7LZ +OKN.;/B6"B 3U/N3T;E2,GD3SV 7NOT3P	R7CSH* ;D""*M.1N060B 3R;I+TJ 7DKU7COH3C;H7IST3S?N+TCE
"R;2$
\3O?T. &2"963.J"2*0B07FKO. 7K61R /OJ 3\?F3R: *=CI+TCO7I&+22	\3F2 *(	K*=CN3TWH/NJ .8B5.MJJ.8V02 WN+XCT3N;\7ESX" 7K.J"2*1B07FKO. 7K61R 7O* .6F+3\?F3R: *=CI+TCO7I&+22	\3F^ *(	K*=CN3TWH/NJ .8B5.MJJ.8V12 WN+XCT3N;\7ESX6 3K7GSO/ON .0B0.MJJ.8B52 [I. 3N24T/EKN.8B
3\[I. ;N29T/EKN.8B83\[I. ;N26T/EKN.8B63\[I* L/K6)3NT/EKN.8B8.MJJ.8J52 [I* G/K2)*>G+F&82 T+ECN.2F825
\3O?T. "2"860.J"2*6B0+ICF3L.(2):=2 T+ECN.2"820	\3F: .8:<20T+ECN.2Z8"5*M.2Z822& 3F: .1F=2 T+ECN.2"820
\3O?T. &2"065.J"2*6B5+ICF3G.(.):<3G:(*8B)3TWH/NJ .8V1.MJJ.8B82 ?F3R* *=B1+TCO24	\3FJ *(3N/J2)*2B13TWH/NJ .8V9+\B3N*,.)J=20J-*(3N7J2)7TR="+61.J"2*9B57NE3T* 3\[I. KY.<N>2 T+ECN.2B920	\3FZ .2J=2 T+ECN.2B825	\3F: .2J=3TWH/NJ .8V0.MJJ.9B02 ?G+TCO.3B0"0*M.2B925
 +OCR/IF=2 ?T6 29+ICF3G&(.)Z>2 T+ECN.2F920;\7ESX" 7I.J&2*1B0/I653I[\+OCR3I&=25?T+I.57N21+ICF3B^(*(	I*,&1.<B22 T+ECN.2F925K\*(G+I2).56)3B^(*(	I*,&1.MJJ.9V12 ?F3R* *=B2+TCO"4*M.2J920& 3FJ *(G+I2)/J2)*2B03TWH/NJ .9V2+\B3G&(.)V,2)J=*(G+I2)*5.)3B^(*(	I*,	J.MJJ
9V22 WN+XCT3J;\7ESX" 7I.J&2*3B03PJ=*(G+I&5*,&5/\GI.=WI.MJJ.9V32 ?F3R& .=WI*+B1+TCO+I.57N21+ICF3B^(*(	I*,&5*<CP3TWH/NJ .9B43\[I* B3G&(.)V,6)B=3TWH/N&2"465.J&2*4B03PJ=*(G+I2)652)/I613I	\.2B=3\?G+TCO.2V9"5*M.2R925& 3F& .2:<60R 3H;E. &26520/I623I
\3O?T. &2"565.J&2*5B0/I63I*M.2V925: 7ESX" 7I.J&2*6B07FKO. 7I61R /OR 3\[I* B3G&(*12)/I2)*2B03TWH/NJ .9V6+\B3G&(*12)/I6)*2603B^(.(GI2)&,")*M.2Z963R *=/T"1*M.2Z925: 7ESX" 7I.J&2*7B0+M6=21[\+OCR3I&=65R 3O& 25:+21[\+OCR/JF=2 ?T" 64.J&2*7B5+ICF3B^(*(	I*,	J*<B03
WH/NJ .9V83\[I* B3G&(2)*,.)J<61R 3H;E. &2"865.J&2*8B0+ICF3B^(*(	I*,	J2<6=2 T+ECN.2"9257\*=B3G&(2)*,2)	\21&=/\GJ"=7I.J&2*8B57NE3T* 3\WN+XCT3IK\*(G+I&1.,GJ.)J=206-/\7T/TF+3\?G+TCO.3B0"0*M.2&960B 3R;I+TJ 3SWI2 GH3B;E2 	D7EF 3U3A3I	F7KSA3I;O6 WZ3MF 7BSI+UCR3N
I+HCT7EKR3EOI+HCT"!6".J&2*9B33P	R7N3T3P	R7N3T3P	R+NCT2"?N+CCH3ME7RN 7CWH3EWL+RJ 2;	\7NWP3TR "$*M.2&924& 3FR *$J=+JB"3TWH/NN .0B13\[I* SD*<J>+NB"3TWH/NJ .9Z93\?G+TCO.3B5"0*M.2&966B 3R;I+TJ 3F3A3SC3EV 3I
N3AWB2"
\3O?T. &2"963.JB3*0B07RSE3U;R.MNJ.0B12 C3A;I6"	S3SF:7BGI+U:2+BKA.MNJ.5B02 ;ED*MBLBZ

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