File ABIQU1.BA (BASIC source file)

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

21R +ICM+D"$*125*1&5*,SB*(&4*,SP*(25*42)+H"$"66)*JB33F3I/EN6:N"/Y+S3FWA3N7A2.GB""*M25Z +OCR/IF=2 ?T. R1.M^J2 ;I7PSU.*3+D"$I6)*JB97NE3T& .MFJ21N 7LOO/EN.MNJ202 6=20/PB=/\7V60G\.=R-/\7T"0*M*4B03F3I+EOV*1J:7SOY6:WK3RWS2.GB""*M*5B03F3I/EJ6:N"/Y+S7BOA+I;S+BKA.
ZJ20Z +OCR/IF=/TOO.M^J20& 7NWP/TJ*:SB3\?G3SKU. ^1"060.JB86 KP7ISN* SD.(GC6)2;7ICN+UCTA*M.1B02 [I. 3A20T+ECN.1B43\[I. ;A62R 3H;E. R1"0*M.1B12 [I. 3A*>B03TWH/NF "660.JJ160B 3R;I+TJ 7TE+TJ1.MFJ*3B07GSO/O" "0*M.1B46 KP7ISN6 R"7ESX* J2.MFJ*5B07GSO/O" "0*M.1B62
?G3SKU.1B1"0*M.1V6* SC6=SS+R"$I6).J^120^ 7OWS/BF .4B0.MFJ*8B0+ICF/AF=2 T+ECN.2B0.MFJ*9B03L2="+61.JB220WN+XCTI*M.2V07Z*="+7I.JF2256 "=61.JF267R "=60.JJ220Z +OCR/IF=+TCO"6*M.2B32 ;I7PSU.*2* SB3\?G3SKU.1B7"0*M.2B46 KP7ISN* SD.(GC6)2;7ICN+UCTA*M.2B52 [I. 3A60
 3H;E. R120	\3FF *>B23TWH/NF "460.JZ220& 3FF *=B03TWH/NN "160.J^220^ 7OWS/BF .1B0.MJJ*7B5+ICF/IN>3TWH/NJ "768.J^2262 +ECT/C6$7SKT.$R(")*M.2^72 ?G+TCO.2B8.MJJ*7B8/C6$7SKT.$V(")*M.2B82 ?G3SKU. R1"060.J&220& 3FF *=B13TWH/NN "165.JB3202 +ECT3L2="+61.JB325^ 3O
T. B4"0*M.3B12 [I* ?I/MN=2 T+ECN.3B2.MNJ*1B52 ?G+TCO.4B0.MNJ*2B0+ICF/T:<60R 3H;E. N360C\3R;I7TR"7ESX642"7GSO/OR .0B0.MNJ*3B0/TB=.MNJ*4B0/MJ=.MRJ*0B07NE3T& .MRJ*0B57Z*="+7I.JV420Z +OCR/IF=2 ?T" 62.JV465R 6=20/OB=.MRJ*6B07ICN+UCT.*27B2$7GOO+UCB.1B7"0*M.4V66
KP7ISN* SD.(GC6)2;7ICN+UCTA*M.4B72 [I. 3A60R 3H;E.1B43\[I. ;A62R 3H;E. R1"0*M.4B82 [I. 3A*>B23TWH/NV "160.J&460KP7ISN2"WT+XCT"36".JB520^ 3O?T. Z4"5*M.5B12 [I. 7A61R 3H;E. N5"0*M.5B22 [I. 7O61R 3H;E. ^5"0*M.5F2. 7O21
\3O?T. B6"0*M.5B32 ?G3SKU. F1"060.JR520N 6$N=+TSR*(.5I6).JV520^ 7OWS/BF .4B0.MVJ*6B07GSO/OZ "060.J^520& 7FR *=B03TWH/NF "460.JB620: 7ESX" 7I.JB665* *=/ZI*M.6B22 ;I7PSU.*27B2$7GOO+UCB.1B7"0*M.6B36 KP7ISN2"WW+NCN3V;O6 CS7OSR2 WB3FWR/I+T*-J1.MZJ*4B03P	R+NCT+
"$+C&12;	\7NWP3TF .MZJ*5B0+ICF+A6<61R 3H;E. V625	\3FF *>B23TWH/NZ 6525+ICF/AB=2 T+ECN.6V5.MZJ*5B17GSO/OZ "660.JV665B 3R;I7TR"7ESX622"7GSO/OZ "460.JZ620& 3FF *=B23TWH/NV6"5*M.6B72 [I. 7A*-B13TWH/N^ "260.J"620^ 7OWS/BF .1B0.MZJ*9B0/C6$*"J8.M^J*0B07GOO+UCB.1
4"0*M.7B12 ?G+TCO.7B5.M^J*2B0/A6$."F-2"O\*$J=682"7Z*="+61.JN760B 3R;I/TF*:SB*&SC*&SA.M^J*5B03C?L+SOE21O\7LOO/EJ.M^J*6B0+ICF/LN=2 T+ECN.3B0"0*M.7B72 [I. ;L63R 3H;E. F8"0*M.7B86 KP7ISN6"WZ2 WW3N
I""*M.7B92 ?G3SKU. V1"065.JB820^ 3O?T. Z7"0*M.8B16 KP7ISN6"WZ2 	V+EKL.M"J*2B07GOO+UCB.1B5"5*M.8B32 ?G+TCO.7B6.MFJ.1B02 WR3MF 7BKF3AWG3NR 2.. 7UOR3H3A3BGJ3HWR.MFJ.1Z0. 7T"1*M.1F120Z 3IWL.*36"	S3S":3AGJ2.GB""*M.1J120& 7NWP/TN*:SH.MFJ.1B32 [I. 7V60R 3H;E. F1
660.JF1*4B03P	R+NKT3WWI3VWI+LCE3P;U3KWT2 ;I2"R;2$N(.1.)2"& +NJ *;SH";*M.1R121& 7NWP7TB 6$Z(2)	\+FSP*(	V*=B"6"R 3H;E. J164207PZ=+AL+P"$+V&).MFJ.1B52 [I. 3P60R 3H;E. J16420+ICF/PF>65R 3H;E. J1"460.JF1*6B07FKO. KC*=B1+TCO"3*M.1Z125. .=KC"+7V.JF1*7B07ICN+UCT.
3H6$.JF1*8B0+ICF/KF>2 T/EGN.2B1.MFJ.1B96 KP7ISN2"	W3E	V3EWL6 WP7NSK3E& /N."+D"$+C&1*;B"+ICN2"";"$6;.JF1*9B17ICN+UCT+P"$7K2)+ICF+P"$/K6)*"J 2 T+ECN.1R265C\2=GV7LB(2$.(")6).JF1*9B5+ICF/PB<2 T/EGN.2V43\[I. ;P*1B53TWH/NJ1"465.JJ1*0B07GSO/OJ1"260.JJ1*1B03P	R+N
T2"	W3E	V3EWL6 WP7NSK3E& +NJ *;SH";*M.1F221& 7NWP7TB 2$.(2)	\7FB 2$.(*)J=6 R"3H;E.1V260C\2=GV7LB(2$.(")6).JJ1*1B5+ICF/PB<2 T/EGN.2B53\[I. ;P*1B53TWH/NJ1"560.JJ1*2B07NE3TN "2*M.1N220?G+TCO.1Z2"0*M.1R220^ 7OWS/BF .2V5.MFJ.2J42 ?G+TCO.1R1"0*M.1R225^ 7OWS/BF 
2V5.MFJ.2^42 ?G+TCO.1&1"0*M.1R228^ 7OWS/BF .2V5.MFJ.2&47GSO/OF .2V6.MFJ.2B52 ?G3SKU. J1"565.JJ1*5B27GSO/OF .2B1.MFJ.2V56 KP7ISN2"GF3LOS+HCE3E;I3GKA3EJ,7IST3E: +EGU6"K\7EWTR7N.JJ1*6B0+ICF/VF=2 T/EGN.2V9" *M.1Z222& 7NWP/TN*:SH.MFJ.2V66 KP7ISN6 ^"7I[E3I3E7EB
3U/N+TCE+ICN2"";"$6;.JJ126&67NWP7TB 2$.(2)	\7FB 2$.(*)J=6 R"3H;E.1R268C\2=GV7LB(2$.(")6).JJ1*6B7+ICF/PB<2 T+ECN.1R228	\7FB .>V12 T/EGN.2"4.MFJ.2V92 3C3OWS"63.JJ1*9B87RSE3U;R.MFJ.4B02 WR7MN +UCB3A[U3SWP3IC3E;R2 ?V3N. 2.:-3AWM7NB,3U/N3T;E6 WA3FJ 3ASN.MFJ.4F
/A6$7SKT2$F(")*M.1F460B 3R;I/TF*:SB*&SC*&SA.MFJ.4B22 ?F3R. 6=R1O64.JR1*3B03P	R+NOT61B:2$.(")*M.1R420WN+XCTK*M.1Z460J 7EWTR7N.JV1*0B5/LB=.MFJ.5B12 	F+LOE*1J:7SOY6:WK3RWS2.GB""*M.1J520Z 3IWL/VJ6:N"/Y+S7KKU+S;E+BKA.MFJ.5V22 ;I7PSU.*17B2$+ICF3ESN*B13TWH/NF .6
6.MFJ.5B3* SA2=WS+G"$+B2$.1N,2)O\6$N=+ESG*(SB*,24"46).JV1*4B03P	R+NCT/A.$3\;I7PSU" 7D.JV1*5B0+ICF/DF<2 T+ECN.1V525	\3FR *>B23TWH/NF .5V5.MFJ.5F52 ?G+TCO.1Z5"0*M.1V565B 3R;I7TR"7ESX612"7GSO/OF .5B4.MFJ.5B62 [I. 7D61R 3H;E. V1"860.JV1*7B03L2="+61.JV1*8B03P	
+NOT22F:2$N&6$N&+TSR*(	D.MFJ.5B92 ?F3R& *=B1+TCO"4*M.1B620& 7NWP/TF*:SB3\[I2 ;E/DF2 T+ECN.1Z6"0*M.1F660B 3R;I/TJ*:SB.MFJ.6B22 WN+XCTI*M.1N620^ 3O?T. V1"265.JZ1*6B03C?L+SOE21O\7LOO/EJ3\WR7TKUN*M.1&669J +ECM3SKU2 GG3NWZ2 GF3EC3E;R3AWMN*M.1B720Z +OCR/C6161R 
OF "4*M.1F720& 3FJ 6$N=+ESG*(SD.(GC.)F,*,&32 T+ECN.1N7"0*M.1J720: 7ESX. GC.MFJ.7B32 WR7TKUN*M.3B060B 3R;I3TV"3NWD""*M.3F060N 7TCO.MRJ.0B02 3C3OWS"62.JB4*1B03F3I/EJ6:N"/Y+S7BOA+I;S+BKA.MRJ.0B22 ?F3RN .3F=2 ?T" 7Z.JB4*3B07ICN+UOT22J:"$*M.4R020: 7ESX. OC.MRJ
0B52 ?G+TCO.2B2.MFJ.0B020V 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