File RING.BA (BASIC source file)

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

61J +ECM*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-*-6-3R;I+G:1. OB23J U61*JB23R7E* ******6 KE3SWT7LWL7NOG7DSA/U+M. Z12-WF/B^-*6B 6 CS/LB0.0B0"162*JB33R7E* ******2 WV3R	S+OCN3V7O. &12-GM/R^-*6* ****"**M65J ASN3O	MZ7E.JB12 WR+M* **B*7DOA2 	R+N7G3S	P+E
L****.MVJ60B 3R;I+TJ ******B*7DOA2 	R+N7G3S	P+ECL******J** C\3P	R+NCT.MZJ20^ 7OWS/BF .0B0* C\3R7E2 F*3NGF7NOG7WKE+T+E.M^J20> 3NJ 2 ?G3SKU. B2*020.2B5602 2 WR+M* /BF=2 WM3NOS+HB,/BJ=2 ?C7MWP7TKE"**M*8B0/Z617Z2 2 [I. GI*=CI3TWH/N" *0B07\J +ECM2*;E+DCE7DOE6 
S3I3ES6*.JB92 [I. 7B62R 3H;E2 ^ 7OWS/BV .0B0* C\3R7E2 F*3USS3ROU7KN 3PWI7LSS3ASN"**M.1B0. 7B*(/B*16)*(7B*1*)7B2 2 ?G2 ?T. B7.M"J*0B07GOO+UCB.5B0602 " ?G3SKU. V5*0B07\J +ECM6*WA7SKD3U/C6 CS3I3E3SGT+NCD3U^.3E	W+N?N7VKE7LOUT6*.JF860B 3R;I+TJ 7NWE+ECS3S	P/E?L
 GJ2/WN+IKN6,2 2 ;I7PSU* SA.M"J*2B0+ICF/A6$2"GJ6"R 3H;E. B6.M&J*9B9+GCO+TCO.9&9"9*M.1B060J +ECM****2 ;A3F;A7G
S7ESR7EN 7E+T+ECN****.MFJ.0B16 KP7ISN6 2 6 KP7ISN2 6"+ICT3WWI3VWI3LZ 3ESL3E;R2 ?S+LCL7GOE3PWI+LCT7WKE3D;E*"B,3\& 7NWP3T& .MFJ.0B26 KP7ISN6 2 6 KP7ISN6 ^"3EOL+HCE7VKE7KWN3E[P3U
N2 	W+RCD7G
E3U;E3SC+T.:*,2-**2"* C\7ICN+UCTA6$.JB1*3B0/M6$*"6+**B"7\Z 2=?P3S6(2$F,.$F,6)2 2 [I. 7V60R 3H;E. B1"260.JF1*0B03P	R+NCT* C\3P	R+NCT2"WW7RN 3O3L2 ;A3F;A3G;E"?6".JF1*1B03P	R+NCT6"CS3I3E+ECR21> 7DKE6 CS3I3E+ECR22N(7OCM3UWT/R>)6 CS3I3E/E+R*"B,3\& 7NWP3TJ .MFJ
1B26 KP7ISN6 2 +ICF/BB>2 T+ECN+ICF/BN<2 T+ECN.1B5"0*M.1N120^ 7OR /OF .1B1.MFJ.5B02 WR+M* **B*3P?R3GGR3MGM3BGH3E
N3IWG2 ;A3F;A7G
S7ESR7EN 7E+T+ECN****.MFJ.5B1. GI*=B03\F "=61.JV1*2B03D7I* G"16).JV1*3B03D[E2 ;F7A"(6)N=+ESG*(SM*,/X61",*+&1.MFJ.5B42 WD3FZ +NB/X6)3S
E2$6(.$F,*,	X6+SS+R"$+B.)3S
E2$6(6$",*+22I6).JV1*5B0/M6$*"J0* C\7FKO. 7J61R 3O& *-B13\6 6$N=+ESG*(SM*,21+J.)3S
E2$6(.$F,*,&1* C\7NE3T* .MFJ.9&92 WR7TKUN*M.2B060J +ECM****2 WM3NOS+H* "*6*.JB2*1B0+ICF/AF=2 T+ECN.2N0"0*M.2J060B 3R;I+TJ 7ASK3U3E+LCE3F3E7DWN3MWM7R* +UCR7VKE7KWN3E[P3U
N.:."7Z2 6 KP7ISN" *M.2N060B 3R;I+TJ 3S	P3EWL/RF * B-3F3E7DWN3MWM+R2"* C\7ICN+UCTZ*M.2N025& 3FZ +NA/Z2).>B"6"R 3H;E. B2"560.JB2*4B0+ICF/Z6>60R 3H;E2 [I. 3Z7IR 3H;E. B2"660.JB2*5B03P	R+NCT2"	D3EWS2 WF3L;D3U7M+ECR7ISS2 ;U3GWU3L	T+GB"3\^ 7OR /OJ .0B3.MJJ.0B6
 7J7Z2 2 ?G3SKU. B4*0B07\J +ECM2*WF3L;D3U7M+ECR7VKE3SC3LWU3SWS+L+N.MJJ.0B72 [I. 7A61R 3H;E. 7A602 2 ?G2 ?T. R2"969.JB2*8B07GOO+UCB.3B0602 2 WR+M* 7ZOU7A+T3ZA3LJ 3EWR3C;H+E+N.MJJ.0B9. 7J+ZB53\^ 7OWS/BR .0B0* C\3R7E6 **3UGS7T+Z3A3H2 WV3ROS7HWL7EOS3E;L"**M.2
160B 3R;I+TJ 3S	P3EWL/RF * B-7ZOU7A+T3F3E+D2"+ZB57\B 3R;IT6 .JR2*9B97RSE3U;R.MJJ.5B02 WR+M* **B*3C7O7PSU+ECR****.MJJ.5B12 ?G3SKU. B6*0B07\J +ECM2*?C7MWP7TKE2 GW3E3H3T^ 3EGM7EOS6 SS7RSA3E	GE6*.JV2*2B07J*=* C\7GOO+UCB.4B0602 2 WR+M* 3F3E7DKN6.Z 7EOR3C3H7UOE
S3EN6*.JV2*3B03P	R+NCT6"CS3I3E+ECR*26 2 WF3L;D3U7M+EKR",7Z.JV2*4B0+ICF/AF=2 T+ECN/AB=* C\+GCO+TCO.2&9"9*M.2V525* .=WZ* C\7GOO+UCB.4B0602 2 WR+M* 7ZOU7A+T3ZA7LZ 7EOR3C3H7UOE+S+E.MJJ.5B66 KP7ISN6 N"3PWI7LKE* B26-* 3UGS3T[Z3ESL6"*,652 6 KP7ISN" *M.2&969J 7EW
R7N.JB3*0B03R7E* **6** 3UGS3T[Z3ESL2 WB3ROE3HWN+N* "*6*.JB3*1B0+ICF/AF=2 T+ECN.3&9"9*M.3J020> 7NZ 2 ?G2 ?T. B3*320.3R0.0N,.0B5.MNJ.0B3. WZ.=GZ*+CZ3\^ 7OR /ON .1B0.MNJ.0B4. WZ*=7Z+ZB13\^ 7OR /ON .1B0.MNJ.0B5. WZ.=GZ"*7Z.JF3*0B0+ICF/Z2560R 3H;E. J3"060.JF3*
B0+ICF/Z25*=7I61R 3H;E. &3"969.JF3*2B0/Z65+Z657I2 2 ?G2 ?T. F3"160.JJ3*0B0/Z65+Z.57I2 2 ?G2 ?T. F3"060.J&369J97EWTR7N.JB4*0B03R7E* **2*Z 3ESL3N7U7MKE7NZ 7EOR3C3H7UOE3S3E+N* "*6*.JB4*1B0+ICF3FGN*(	J.=B"6"R 3H;E. GI.=GI"+61.JB4*2B0/M6$3FKN*(	J.MRJ.9&92 WR7T
UN*M.5B060J +ECM****6 WA7SKD3U/C6 CS3I3E3SGT+NCD****.MVJ.0B16 KP7ISN6 2 6 KP7ISN* *"6*N*3PWI7LSS3ASN****6"2 6 KP7ISN" *M.5J0.0J *=CI3\* .2B=* C\/GB(.)B=* C\/GF(.)B=.MVJ.0B32 [I. KI.<B12 T+ECN/J61+I62612 2 ?G2 ?T. B5"560.JB5*4B0/J61"9*M.5V020Z +OCR/JB=2 ?T
 GJ* C\3P	R+NCT3U	S+NCG*"N-*J*,/J+J*2.1.03\: 7ESX* CJ7\B 3R;IT6 .JB5*7B07FKO. 7J61R /OR 2**(.1F+6)2 6 KP7ISN6 >"*"B;3\: 7ESX* CJ7\B 3R;IT6 .JB5*8B07FKO. 7J60R 3O* "1*M.5&020* 24*=.+KJ.*B1* C\+ICF3FGN.(SJ*)J=*0B"3TWH3N* .5B=* C\+GCO+TCO.5F1"0*M.5B120* 65Z=
AL3FGN.(SJ*)B)3\^ .(WJ*-&1*=G+J65*1.)"1*M.5F160B 3R;I7TV 3S;I+GJ *-N*2"/J.5.MVJ.1B22 WN+XCT7J2 6 KP7ISN6 2 6 KP7ISN6 2 . KJ.=KJ*+B13\& 22&=.2F-602 2 [I. KI*>B03TWH/NV .0B3.MVJ.4&92 WR7TKUN*M.5B560J +ECM****6 WA7SKD3U/C2 WG3W;I+N6 2 WV7RWL+SCT****.MVJ.5B16
KP7ISN6 N"3PWI7LKE* B16:N 3PWI7LKE* B2*-6-2-^"*(&0."* 2 ^"*(&1* C\3P	R+NCT.MVJ.5B22 [I* G.06)/GF(6)R 3H;E6 KP7ISN* *"2*;U7ESN3SC3ISE+E+N**B"7\B 3R;I+TB 7\B 3R;I+TB 3\^ 7OR /OV .9&9.MVJ.5B3. 7J&12 2 [I* G.02)/GF(6)R 3H;E. 7J"2*M.5R560B 3R;I+TJ 6*N*3PWI7LKE
"KJ7HSA2 WG3W;O3N;E**J** C\3P	R+NCT* C\3P	R+NCT.MVJ.9&92 WR7TKUN*M.6B060J +ECM****6 SS7RSA3E	G3EN 7OCM3UWT+R* "*6*.JB6*0B4+ICF/AF=2 T+ECN+ICF/VN=2 T7E*N6-2 2 ?G2 ?T. &6"969.JB6*0B6+ICF/AF=2 T+ECN/ZB=* C\+GCO+TCO.6&9"9*M.6F020Z +OCR/ZB=2 ?T* 7I"1*M.6J020& 
FZ +NA/Z2).>B"6"R 3H;E. B6"560.JB6*3B07GOO+UCB.3B0602 2 WR+M* 7ZOU7A+T3ZA3LJ 7ESS3I7M+E+N* B 3\& 7F* 65*=2 T+ECN.6V0"0*M.6R020& 3FZ +NA+Z&5.=F"6"R 3H;E. &6"969.JB6*5B07NE7T* .MZJ.0B62 ?F7R* *=B0+TCO/IF-.MZJ.0B72 [I2 ;F7A*(.):<*"J02 T+ECN.6B1"0*M.6"020^ 7O
S/BN .0B0* C\3R7E6 **3UGS7T+Z3A3H2 WB3S	T3MWM+NB*6 2 2 [I. WZ*=CZ3TWH/NZ .1B0.MZJ.0B92 [I2 ;F7A*(.56)*"J02 T+ECN.6&9"9*M.6B120: 7ESX" 7Z.JF6*1B03Z&=+NT7IJ*+ND*0&).MZJ.1B22 [I2 ;F7A*(.):<*"J02 T+ECN.6F1"0*M.6N120^ 7OWS/BN .0B0* C\3R7E6 **3UGS7T+Z3A3H2 WB3S
T3MWMN6*.J&6*9B97RSE3U;R.M&J.9&92 ;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