File QUBIC.BA (BASIC source file)

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

60J +ECM* B*6 WQ3BOI*-B "**M65B 3R;I+TJ +DCO7YWO2 GW+NCT7ION7TWR3C	T7OON""6;*JB67ICN+UCTC6$*JB7+ICF/C6$2"?N6"R 3H;E. F2.M"J2 [I* SC6=&"+EKS2 T+ECN"163*JB93P	R+NCT2";I7CKO3ROE3TF 7N
S+E;R2 3P7EOA7ER 3YWP6 &	+E
S6 KO2 :	+OJ	";*M*1B07GSO/OZ .MFJ63B 3R;I+TJ 3TWH2 GG+MCE+ICS3TOI2-GT7CR-+OCE+ICN/AR * CX64" * B43CKU+EJ..MFJ64B 3R;I+TJ 3EOA3H6 3OWV6 OI2 ;I3DOI3AWT3DJ 3YF * B33D
I+ICT3N7U7BKE6,^ 3IT2 GE+CKH.MFJ65B 3R;I+TJ 3D
I+ICT7BSE3WWE/NF 2 ;A/DR 2 ;I7CWL7S[I+EB.3TWH2 	D7GSI3S& 3N	D7CSA7ER +HKE.MFJ66B 3R;I+TJ 7L[E+E3L2 ?C3L7U+NB,3ASN2 ?R+WB,7ROE3POE7T[I7E	L2,> 7FR +HCE3OOC3U	P+ECD3PGL+C;E""*M*2B03D7I* X*6&4*,L*7&6*,M*726*42)/YF("66).JF22 ?F3R& *=B1+TCO"166.JJ22 WR+ACD3Y&("
*M*2B37NE3T& .MJJ24Z +OCR/IF=2 ?T. Z7.MJJ25Z +OCR/JF=2 ?T" 64.JZ22 WR+ACD3M&(*,	J.MJJ27: 7ESX" 7J.J"22 WN+XCTI*M*3B57FKO. 7I61R /OZ "4*M*4B07LSE* X/I6)"0*M*5B07NE3T& .MVJ242 +ECT/ZF=.MVJ65B 3R;I+TJ +DCO7YWO2 GW+NCT+TCO7M[O3EZ 7IOR/T.".MZJ20& 7NWP7TN "$*M*
B6+ICF/S6$2"?N6"R 3H;E. F1"0*M*6B7+ICF/S6$2"WY+SB"3TWH/N^ "0*M*6B83P	R+NCT2";I7CKO3ROE3TF 7N
S+E;R2 3P7EOA7ER 3YWP6 &	+E
S6 KO2 :	+O:	""6;.J&62 ?G+TCO"660.JB76 KP7ISN* B"""*M*7B23P	R+NCT2"?Y+UCR7M[O/E.".M"J20& 7NWP3T* "1*M*8B57GOO+UCB.1B8"0*M*9B07LSE. GK2=;I3T*(.1F/*0&0.M&J252 +ECT/J62.(GJ.-GK.*B1"06).JZ92 WL3T. 22&=+NT+J>2*1&0.M&J272 +ECT/K63+J61+K*1.1B0.-KK.*B1.M&J282 +EC
/MF=26.*.1R+.*KK.+OK.-B2.M&J29& 7F" *(	M*=B03TWH/NF "069.JB160B 3R;I+TJ 3TGH7TN 3QGU+RCE+ICS3UWS+DB,7T	R2 
A3A;I""*M.1F02 ?G+TCO"760.JB1292 +ECT3X6(.)F=.MFJ*1B07GOO+UCB.1V0"0*M.1B82 ?F3R* *=B1+TCO"3*M.1B92 ?F3R& *=B1+TCO"766.JB220& 3F* *=B13TWH/NJ "160.JB221& 3F* *=B23TWH/NJ "260.JB223& 3F* *=B33TWH/NJ "365.JB225: 7ESX" 7I.JB226: 7ESX" 7J.JB227^ 3O?T. B4"0*M.2
12 [I* L/I2)*>B43TWH/NJ "065.JF261B 3R;I+TJ 7YWO2 	W3NF 3SZ 3O3L7OOW""6;.JF222Z +OCR/JF=2 ?T" 64.JF2232 +ECT3M6=*(3IJ6).JF224^ 7OWS/BF .0B0.MJJ*1B67NE3T* .MJJ*1B77GSO/OV "060.JJ220& 3F2 *(	I.<F>65R 3H;E. B2"5*M.2F22 ?F3R* *=B1+TCO"4*M.2J22 WL3T6 *=M3I*,")
M.2N22 [I* X/M2)*>B03TWH/NJ "267.JJ2242 +ECT3X6(.)V=.MJJ*2B53P	R+NCT2"GM3C	H+NCE7M[O+ECS+TKO";*M.2Z22 ?G3SKU. B1"060.JJ227: 7ESX" 7J.JJ268B 3R;I+TJ 2,F +NCD3W;I3SF 3SZ 3O3L7OOW""*M.2&22 ?F3R* *=B1+TCO"4*M.2B32 WL3T6 *=M3I*,")*M.2F32 ?G3SKU. B1"060.JN223: 
ESX" 7J.JN224^ 3O?T. B5"0*M.2V32 [I* L/I2)*>B33TWH/NJ "065.JN266B 3R;I+TJ 3NOI7ER +RCY3MOA3H;I3E6 3OWV7SR /O.".MJJ*3B77FKO. 7J61R /OR .MJJ*3B87LSE. 7M3M&(*,	J.MJJ*3B9+ICF3X6(.):<60R 3H;E. R2"5*M.2B42 WL7T" *(	M"=65.JR221^ 7OWS/BF .0B0.MJJ*4B37GSO/O^ "0*M.
V42 WN+XCTJ*M.2"42 ?G+TCO.4B0.MJJ*5B07FKO. 7I61R /O^ "6*M.2F52 WL3T2 *(	I*=X3M&(*,&16)"+*(M/IJ,*).)3X6(*(3I*3&)*+X3M&(*,&4")*M.2J52 WL3T2 *=LI6).JV225& 3F2 *<B23TWH/NJ "960.JZ220& 3F2 .>N=2 T+ECN.2B9.MJJ*6B5+ICF/LJ>2 T+ECN.1B6"0*M.2B72 ?F3R* *=B1+TCO"4*M.
V72 [I* X3M&(*,	J.):<60R 3H;E. "2"5*M.2B82 WL7T" *(M3I*,.)6).1"/.MJJ*8B57NE3T* .MJJ*9B07NE3T& .MJJ*9B57GOO+UCB.1V0"0*M.3B02 ?F3R& *=B1+TCO"766.JB325& 3F2 *(	I*=>162R 3H;E. ^1"060.JF320& 3F2 *(	I*=.1.3"/2 T+ECN.1B7"0*M.3V12 WN+XCTI*M.3B22 ?G+TCO.1B3"0*M.3B
2 WL7T* "=61.JZ322& 7F" *(Y+Z&)*=B03TWH/NN "860.JZ3252 +ECT7Z*="+61.JZ328& 7F* .<F>67R 3H;E. Z3"2*M.3V72 ?G+TCO.1B2"0*M.3B82 WL3T6 *=YZ6).J"3212 +ECT3X6(.)V=.MNJ*8B53P	R+NCT2"GM3C	H+NCE7M[O+ECS+TKO";*M.3&82 ?G3SKU. B1"060.J&320^ 3O?T. B7.MRJ*0B07LSE. 7XX*
.4B12 ?F3R& *=B1+TCO"766.JF4222 +ECT3L&(6)"=*(M/IF,*).)3X6(*(3I*2&)*+X3M&(*,&36)"+*(M/IR,")6).JF4252 +ECT3L2=*(	I.MRJ*2B0+ICF/LF<60R 3H;E. V4"5*M.4V22 [I. ;L.=F12 T+ECN.4V5.MRJ*3B0+ICF/LF>60R 3H;E. Z1"060.JN425Z +OCR/JF=2 ?T" 64.JR420& 7F" *(M3I*,.)2)*>B0
TWH/NR "560.JR4252 +ECT3X6(*(3I+J&)*=>1"8*M.4B52 WN+XCTJ*M.4V52 WN+XCTI*M.4B72 ?G3SKU. B1"560.J^425Z +OCR/IF=2 ?T. Z7.MRJ*8B0+ICF3L&(*):=65R 3H;E. ^1"060.J"425& 3F2 *(	I*=.5.3"/2 T+ECN.1B7"0*M.4B92 WN+XCTI*M.4J92 ?G3SKU. "1"060.J&423^ 3O?T. V2"0*M.5B06 KP
ISN* B"""*M.5V06 KP7ISN2 R"7O& +OCU3W;A7TR 7OR +RCY3A?N3TWH3R^ 3AWM""6;.JF520& 7NWP7T" "$*M.5V12 [I* SX6=&"+EKS2 T+ECN"365.JF526& 7F" *$J=+NKO2 T+ECN.5B2.MVJ*1B73P	R+NCT2";I7CKO3ROE3TF 7N
S+E;R2 3P7EOA7ER 3YWP6 &	+E
S6 KO2 :	+OJ	";*M.5"12 ?G+TCO.5B1.MVJ*2B03S?TP*M.1B0202 +ECT/K617ISN2(6(*-&1./Z1.)F+.MFJ.0B12 WL3T* 226=.-Z12*.(.1F-")*M.1N0202 +ECT/K627ISN2(*(.2F-.)R/.)F+.MFJ.0V32 WL3T. 236=2-.(.1F-.)F**6"-+K62*1*)"4*M.1R0202 +ECT3M.=.1F**0.0+K*2*1.0K63.JB1*4B23P	R+NCT
6;.JB1*4B57RSE3U;R.MFJ.0B52 ?F7RN *=B1+TCO"664.JB1*6B07LSE. GJ*=M/SF,")*M.1^0202 +ECT/J627MN(*,&2.MFJ.0B82 WL3T* 236=*(3S"36).JB1*9B07LSE. SJ*=M/SR,")*M.1B1202 +ECT7LN(6)"=.(GJ6)"+.(KJ6)"+.(OJ6)"+.(SJ")*M.1F120: 7ESX" 7S.JF1*2B07RSE3U;R.MFJ.2B02 ?F3R& *=B
+TCO"664.JJ1*1B0+ICF3X&(.):<60R 3H;E. J1"560.JJ1*2B07LSE* X/I6)"5*M.1J2252 +ECT3M&=.MFJ.2Z26 KP7ISN2 6"3AC3IWN2 	L7KOE""6;.JJ1*2B77GOO+UCB.1B0"0*M.1J268B 3R;I+TJ " 6".JJ1*3B07GSO/O^ "0*M.1V220: 7ESX" 7I.JJ1*5B23P	R+NCT2"T3E^ 3AWM6 OI* CA3DGRW6".JJ1*5B57GS
/OV "060.JN1*0B07FKO. 7K61R /OF "8*M.1B3252 +ECT/PB=.MFJ.3B12 ?F3R& *=*4/KN-2 ?T* *4K*M.1F325Z +OCR/JF=2 ?T" 64.JN1*2B07LSE. 7P7P"+*(M3I*,")6).JN1*2B57NE3T* .MFJ.3B32 WN+XCTI*M.1R325& 7FB *<B43TWH/NF .3B9.MFJ.3B52 [I. 3P65R 3H;E. R1"060.JN1*5B5+ICF/P&<2 T
ECN.1&3"0*M.1Z320& 7FB .<B12 T+ECN.1B4"0*M.1&320: 7ESX" 7K.JN1*9B57GOO+UCB.1B8"0*M.1&326^ 3O?T. Z3"0*M.1B4202 +ECT/SF="/68.JR1*0B57FKO. 7I24.**-B3+TCO24.*.MFJ.4B12 ?G+TCO.1B7"3*M.1F425: 7ESX" 7I.JR1*2B07LSE. 7S"0*M.1J425^ 3O?T. R1"065.JV1*0B07DSA/AF .,&4.
J5*,24*123*621*624*126*222*329*223*328*226*422*227"463.JV1*1B07DSA/AF *,22.3R,*,25.6^,*,28.9F,.0F,.1F,.2F,.3F,.4F,.5F,.6F,.7F,.8F,.9J,"0*M.1J520R 3AGT. F2.,J2.,N2.,R2.,V2.,Z2.,^2.,"2.,&2.,B3.,F3.,J3.,N3.,R3.,V3.,Z3.,^3.,"3.MFJ.5F22 GD+TCA*329*420*421*422*
23*424*425*426*427*428*429*520*521*522*523*524*525"566.JV1*2B27DSA/AV .7V,.8V,.9Z,.0Z,.1Z,.2Z,.3Z,"4*M.1J523R 3AGT* 21*127*323*429.5J,.1N,.7V,.3&,.,V2.,F4.,^5.,N1.,&2.,V4.,F6.MFJ.5R22 GD+TCA.2F,.8N,.4V,.0Z,.,J2.,"3.,R5.,B1.,Z2.,J4.,"5.,R1.,B3.,Z4.,J6.MFJ.
V22 GD+TCA.3F,.9N,.5V,.1^,.,N2.,&3.,V5.,F1.,^2.,N4.,&5.,V1.,F3.,^4.,N6.MFJ.5^22 GD+TCA.4J,.0N,.6V,.2",.,R2.,B4.,Z5.,J1.,"2.,R4.,B6.,Z1.,J3.,"4.,R6.MFJ.5&22 GD+TCA.1V,*,29*123*127*221*225*229*323*327*421*425*429*523*527"661.JV1*3B27DSA/AJ *,26*120*124*128*
22*226*320*324*328*422*426*520*524*528"662.JV1*3B47DSA/AN *,27*121*125*129*223*227*321*325*329*423*427*521*525*529"663.JV1*3B67DSA/AR *,28*122*126*220*224*228*322*326*420*424*428*522*526*620"664.JV1*3B87DSA/AF *,26*121*126*127*222*227*322*323*328*423*428*
29*524*529"664.JV1*4B07DSA/AF .3F,.0^,*,24*229*226*223*220*425*422*329*326*621*528*525"562.JV1*4B27DSA/AF .,F2.,F4.,F6*,22*222*422*622.3J,.3R,.3Z,.3R,.,R2.,R4.,R6.MFJ.5R42 GD+TCA*429*327*225*123*520*328*226*124*521*329*227*125*522*420*228"166.JV1*4B67DSA/
F .,"1.,V3.,J5*,25*222*329*526.9J,.6R,.3Z,.0F,.3N,.0R,.7Z,"4*M.1R528R 3AGT. &4.,R3.,&1*,24*523*328*223.8V,.7R,.2J,.7F,.2Z,.1R,.6N,.1F,"6*M.1V520R 3AGT* 21*222*423*624*126*227*328*429.4J,.3R,.2Z,.1F,.3J,.6N,.9V,"2*M.1B620Z +OCR/JF=2 ?T" 64.JZ1*0B5+ICF3X6(*
3I+J&).<F>*/B83TWH/NF .6B5.MFJ.6B12 WL7T" *(M3I*,.)6)"5*M.1F625& 3F2 *(	I*<B53TWH/NF .6V2.MFJ.6B26 KP7ISN2 2"+E
T7SN +ECE7YWO2 WG3T> +UCT+OCF3T	H+SB:3MOA3H;I3E6 3OWV7SR /O.".MFJ.6J22 ?G+TCO.1J6"6*M.1J665B 3R;I+TJ 7YWO2 ?F+XB.7JOU3T& 7NR +HCE3NOI3K> 7FR 3IWM2,6 3AC3IWN2 ?M7VOE2 ?T""6;.JZ1*2B67LSE. 7M3M&(*,	J.MFJ.6B32 ?G3SKU. B1"060.JZ1*4B07GSO/O^ "0*M.1V620: 7ESX" 7
.JZ1*6B03P	R+NCT2"GM3C	H+NCE3C;O3CSE+ECS3T	H3S^ 3AWM".6".JZ1*6B57GSO/OV "060.J^1*0B07LSE. 7S.1"/.MFJ.7N02 [I* 7I7ISN*(?I*4*).4F>2 T+ECN.1F7"5*M.1B7252 +ECT/AF=.MFJ.7B12 ?G+TCO.1J7"0*M.1F7252 +ECT/AJ=.MFJ.7B22 ?F3R* *=CA+TCO25F-6 SS+ECP.5J-"*7A.J^1*2B5+ICF
X6(*(3I+J&)*=CS3TWH/NF .7B5.MFJ.7B32 WN+XCTJ*M.1N725^ 3O?T. R1"165.J^1*5B07LSE* X3M&(*,	J.)V=.MFJ.7V52 WL3T6 *=M3I*,")*M.1Z760B 3R;I+TJ 3MOA3H;I7ER 3AWK/S.".MFJ.7B72 ?G3SKU. B1"060.J^1*8B07GSO/O^ "0*M.1B820Z +OCR/IF=2 ?T. R6.MFJ.8B12 [I* X/I2)*>>168R 3H;E
 "1"560.J"1*1B57LSE* X/I6)"0*M.1V820: 7ESX" 7I.J"1*6B07RSE3U;R.MJJ.0B02 ;ED*MBZ

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