File CHECKR.BA (BASIC source file)

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

*5B03R7E3A/R3A3B7YR 3R;A3SGL3TSE2 ?T6 OO28J 3A	S3CJ 3Y. +ACY+RB.7FOI7HKE* :.2.WDC*M.1B06 KP7ISN*"B 3T	H7SB 3R
O3R7A2 	W+LCL3PGL3YN 3HOE7KKE+SB.2 T3EN 7OCM3UWT3R& 7S" ",6".JB260B 3R;I3TF"+NCD7YWO6 KA3E> 6.R +HCE3C7O7PSU+ECR3W3I3L^ 3OZ 7IOR+T6,7NSO+EB:7SWQ3AWRS6".JB360B 3R;I3TF"+RCE+ICN3TWH2 ?F+R7M*(3X+YB)3ASN6 GS..F *,B1+ICS3TWH2 ?B3T?T3M2 7ESF"!6".JB460B 3R;I3TR"
O: +OCT7AST7ECM3TF 2 ?D3U3B3E* 7UCM6 KO2 ?Y+UCR3PWI+CCE3M
I+HCT7JOU+TJ .MVJ*0B03P	R+NKT7DOI7ACP7EKA2(GS+MCE7FKO* CA3T	R3PWL*!J).MZJ*0B03P	R+NKT* B 6 ^ 7ASI2 ?F7RR +HCE3C7O+PB.+TCO7M[O+EF!*!F!""*M.7B02 WL3T^ .=F-.M"J*0B03D7I* R*5&0.M&J*0B07LSE. 7L"-61.JB1*0B03D7I* S*120*1&0.MFJ.1B02 GD+TCA.1B,*,21.0B,*,20*-21.0B,
,21.0B,*,20*-21*06,.1F,"5*M.1B220Z +OCR/XF=2 ?T" 68.JN1*0B07FKO. 7Y61R /O" .MFJ.4B02 WR+ACDJ*M.1B520& 3F* .=V12 T+ECN.1B8"0*M.1B6202 +ECT7S"(*,	Y"=7J.J^1*0B07GSO/OJ .0B0.MFJ.8B02 WR3S?TR7E.J&1*0B03RGE7DN *(3XY6).JB2*0B07NE7T& .MJJ.1B02 WN+XCTX*M.2B260J E7
.JN2*0B07LSE. 7L*-*1L*M.2B420Z +OCR/XF=2 ?T" 68.JV2*0B07FKO. 7Y61R /O" .MJJ.6B02 [I* S7X&,.)B=2 T+ECN.3B5"0*M.2B720& 3F^ *>B03TWH/NN .0B0.MJJ.8B02 [I* S7X&,.)B>2 T+ECN.3B5"0*M.2B920^ 3O?T. F3"060.JB3*0B0+ICF7S"(*,	Y*<B03TWH/NN .5B0.MNJ.1B02 [I2 KA7SN(*(3X
Y&).<F>2 T+ECN.3B3"0*M.3B220^ 7OWS/BR .3B0.MNJ.3B02 [I2 KA7SN(*(3X+Y&).<J>2 T+ECN.3B5"0*M.3B420^ 7OWS/BZ .5B0.MNJ.5B02 [I. 3X*>B83TWH/NN .8B0.MNJ.6B02 [I. 7L61R 3H;E. "3"060.J^3*0B07RSE3U;R.MNJ.8B02 WN+XCTY*M.3B920: 7ESX" 7X.JB4*0B03P	RN7T.JF4*0B07GOO+UCB
1R1"060.JJ4*0B07GSO/OJ .3B0.MRJ.3B02 ?F3RF .=F-2 ?T* B13SWT/PJ .MRJ.4B02 WL7TV *=/XA*M.4B5202 +ECT7V&="+7G.JZ4*0B0+ICF/UF<2 T+ECN.6B3"0*M.4B720& 7FV *>B83TWH/NZ .3B0.MRJ.8B02 [I. 3V61R 3H;E. N6"060.J&4*0B0+ICF/V">2 T+ECN.6B3"0*M.5B020& 7FN *(3U/V2)*>B03TW
/NV .3B0.MVJ.1B02 ?G3SKU. F9"060.JJ5*0B07GSO/OZ .3B0.MVJ.3B02 [I* S7UZ,2)^=2 T+ECN.6B3"0*M.5B420& 7FN *(3U/V6)22^*2 T+ECN.6B3"0*M.5B5202 +ECT7UV="+7A.JZ5*0B07LSE. 7V3V^+.MVJ.7B02 [I. 3U61R 3H;E. N6"060.J"5*0B0+ICF/U">2 T+ECN.6B3"0*M.5B920& 7FZ *<B13TWH/NZ
.3B0.MZJ.0B02 [I. ;V68R 3H;E. N6"060.JF6*0B0+ICF7SV(*,	V.<B>2 T+ECN.6B3"0*M.6B220^ 7OWS/B& .1B0.MZJ.3B02 WN+XCTA*M.6B460J 7EWTR7N.JV6*0B03R7E2 	K+NCG7M[OE7S.JZ6*0B07FKO. 7A*-B1+TCO61N 7TCE" 62.J^6*0B07FKO. 7B*-B1+TCO61N 7TCE" 62.J"6*0B07LSE. 7U3XF+.MZJ.9B
2 WL7TZ *=/YB*M.7B020& 7FV *<B13TWH/N" .7B0.M^J.1B02 [I. ;U68R 3H;E. ^8"060.JJ7*0B0+ICF/VF<2 T+ECN.8B7"0*M.7B320& 7FZ *>B83TWH/N" .7B0.M^J.4B02 [I* S7UZ,.):<60R 3H;E. ^7"060.JV7*0B07GOO+UCB.9B1"0*M.7B620^ 3O?T. ^8"060.J^7*0B0+ICF7SV(*,	V*=CG3TWH/N" .7B0.M
J.8B02 [I* S7UZ,.)J=**CG3TWH/N" .7B0.M^J.9B02 WL7TV *=/UA*M.8B0202 +ECT7VZ="+7B.JF8*0B0+ICF/UF<2 T+ECN.8B7"0*M.8B220& 7FV *>B83TWH/N" .7B0.M"J.3B02 [I. 3V61R 3H;E. ^8"060.JR8*0B0+ICF/V">2 T+ECN.8B7"0*M.8B520& 7FN *(3U/V2)*>B03TWH/N" .7B0.M"J.6B02 ?G3SKU. 
9"060.J^8*0B07NE3TJ .M"J.8B02 WN+XCTA*M.8B960J 7EWTR7N.JB9*0B07GSO/OF .4B2"0*M.9B160J E7M.JJ9*0B07LSE. 7P/PF+.M&J.3B02 [I. 7P7KR 3H;E. J1.3B0.M&J.4B02 [I. 3V.>R(*..5*(:325^**)B)3TWH/N& .6B0.M&J.5B02 WL7TF *=/Q"2*M.9B620& 7F" *<">.4V..-N(*.*5+G&)2 T+ECN.9B
"0*M.9B7202 +ECT7QF="-62.J"9*0B03R7E.M&J.9B02 [I. 3U*>B13TWH/NF .0B1"0*M.1B0*0B07LSE. 7Q/QF+.MFJ.0B120& 7FV .<">2 T+ECN.1N0"060.JB1.2B02 WL7TF *=/Q"1*M.1N0*0B07FKO. 7C*-B1+TCO61N 7TCE" 62.JB1.4B02 [I* S3UN+*,/V/G2)61R 3H;E. B1.8B0.MFJ.0B5202 +ECT7QF="-61.
B1.6B02 [I* S3UN-*,7V/G2)*>B03TWH/NF .0B8"0*M.1^0*0B07LSE. 7Q/QF-.MFJ.0B860J +ECM3T	H7S^ +ACS3TWH6 [E7AWL3A	T+OCN3SOE3T?IN*M.1&0*0B03R7E.MFJ.1B020: 7ESX" 7C.JF1.1B02 WL7TJ *(	P"=7Q.JF1.2B02 WL7TF "=60.JF1.3B02 WR7TKUN*M.1R1*0B0+ICF/PB=2 T+ECN.1"8"060.JF1.
B02 ?F3R* .=B12 ?T. F-60N 7TCE. F-.MFJ.1B620Z +OCR/FF=2 ?T" 7P.JF1.7B02 [I* R/F6)7JR 3H;E. J1.0B0.MFJ.1B820: 7ESX" 7F.JF1.9B02 WN+XCTJ*M.1B2*0B07LSE. 7K7FB+.MFJ.2B120^ 7OWS/BJ .3B0.MFJ.2B260J 7EWTR7N.JJ1.3B06 KP7ISN*"B 3I6 3OWV6 KF+OCM.(."7X&;*;&"2 ?T* J(
;/U+VJ;")6".JJ1.4B02 WL3TZ "=60.JJ1.5B02 WL7TB "=60.JJ1.6B02 WL3T. "=60.JJ1.7B02 [I. 3V.>R(*..5*(:325^**)B)3TWH/NF .3B0"0*M.1"2*0B07LSE* S7UZ,.)J="*7G.JJ1.9B02 ?G+TCO.1F3"060.JN1.0B02 WL7TN *(3U/V6)7S"(*,	Y.MFJ.3B1202 +ECT7S"(*,	Y"=60.JN1.2B02 [I2 KA7S"(*
	U.<J>2 T+ECN.1R3"060.JN1.3B02 WL7TN 6("(*+	U*/22*(/Y+V>).26)"0*M.1R3*0B03P	R+NKT3BGO+RKD";*M.1V3*0B07ICN+UCTD6$.JN1.6B02 [I* SD*<J>7YOE6"R 3H;E. N1.9B0.MFJ.3B720^ 7OWS/BF .4B1"0*M.1"3*0B07RSE3U;R.MFJ.3B920^ 7OWS/BF .5B8"0*M.1B4*0B07RSE3U;R.MFJ.4B160B 3R;
T*M.1J4*0B07FKO. 7Y68R /OF 6 SS+ECP"-61.JR1.3B02 ?F7R" *=B1+TCO"8*M.1R4*0B07LSE. 7I62"*.MFJ.4B520& 7FN *(3X/Y2)*>B03TWH/NF .4B7"0*M.1Z4*0B03P	R+NCT3TKA2 &(*)J;...".MFJ.4B720& 7FN *(3X/Y2)*>B13TWH/NF .4B9"0*M.1"4*0B03P	R+NCT3TKA*(	I2;>"""6;.JR1.9B02 [I* S7
&,.):<*-B13TWH/NF .5B1"0*M.1B5*0B03P	R+NCT3TKA*(	I6;""""6;.JV1.1B02 [I* S7X&,.):<*-B23TWH/NF .5B3"0*M.1J5*0B03P	R+NCT3TKA*(	I6;""6"R;+AB/I.)*"J*";*M.1N5*0B0+ICF7S"(*,	Y.<J>2 T+ECN.1V5"060.JV1.4B06 KP7ISN2 GT3B&(*)J;/O."3TKA*(	I*;*"""6;.JV1.5B02 WN+XCTX*M.
Z5*0B03P	RN7T.JV1.7B02 WN+XCTY*M.1"5*0B03P	RN7T.JV1.9B06 KP7ISN6"KF+OKM";*M.1B6*0B07ICN+UCT3E",.MFJ.6B1202 +ECT3XV=.MFJ.6B2202 +ECT3Y"=.MFJ.6B320& 7FN *(3X/Y2)*>B03TWH/NF .6B7"0*M.1R6*0B03P	R+NCT2"T3EWR6 OI2 ?N2 ;O3E> 7CWC3P;I7GR 7HSA6 CS3AWC""*M.1V6*0B03
	RN7T.JZ1.6B02 ?G+TCO.1&5"060.JZ1.7B06 KP7ISN2"?T""6;.JZ1.8B02 ;I7PSU* 3AB*M.1&6*0B07LSE. 7XA*M.1B7*0B07LSE. 7YB*M.1F7*0B0+ICF7S"(*,	Y*=B03TWH/NF .7B5"0*M.1J7*0B03P	R+NCT2"T+ACT3SGP+CCE+ICS7AKL3ESA3Y> 7CWC3PWID6".J^1.3B06 KP7ISN.MFJ.7B420^ 3O?T. Z1.7B0.MF
.7B5202 +ECT3SF(*,	B*=S3E",")*M.1Z7*0B07LSE* S3AJ,6)N=*(3EH6).J^1.7B02 WL7TN *(3E/H6)"0*M.1"7*0B07LSE. 7T*(:4*5"-.3V.**	G")*M.1&7*0B0+ICF7AOB*(7E/A2)*>B23TWH/NF .8B1"0*M.1B8*0B07LSE* S*(/E+A>)*2",3HJ+.)J/.)B=.MFJ.8B120& 3FJ 6<R>2 T+ECN.1N8"060.J"1.2B02 WL
TN *(3A/B6)*-*2G*M.1N8*0B07FKO. 7X68R /O" .MFJ.8B420Z +OCR/Y"=2 ?T" 68.J"1.5B02 WR7TKUN*M.1Z8*0B07NE7T& .MFJ.8B720: 7ESX" 7X.J"1.8B06 KP7ISN*"B 2 WV+RCY3G?O+DB,2 ?Y7U^ +IGN""*M.1&8*0B03P	RN7T.J&1.0B06 KP7ISN.MFJ.9B160B 3R;I+TJ * B * B * B * B * B * B * B 
-C3U/C6 WOT6".J&1.2B02 ;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