File PCTEST.BA (BASIC source file)

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

65J +ECM*-6-2 OP* B-3UKE7EOR7E+T+ECR*-6-2 ?L3ET7EB H7E*JB63R7E* B 6 Z 7EOR3I;O2 	M3T. 7OSN7ESX2 ?V/MF .5Z..."7.MFJ60J +ECM.=6=2 OS7HWL7EOS7E
L7OKE7TKE. 6="=*M*2B07DSA+AJ 7AOU*"J,3B
E3I;N*"J,7BOI*"J,3B	E*"J,3D;A+N2"2";E+DKE2,Z"3UE+RKE2,Z"3UE+R2"6"WF+EKR.MNJ20R 3AGT2 Z"3A3L+S2"2"3G3EOI+H2"2"GM3CWH*"J,3MOA+H2"2"?S7NSS*"J,3S3O3A
N+E2"2"OS3H	R7T
T7ESIE6".JB42 GD+TCA2"OS3H	R+TKT6,Z"+OKN6,^"3E;N*"J,3WWI7DKE3H3O+E2"2"	W3EWD3R?HL6".JB52 GD+TCA2"	D+M2"6"KD3U/C+E2"6"KD3U/C*"J,7DSA+EKN2,V"+D2"6"WF7NSK3I;O*$2"6"WF7NSK3I;O""*M*6B07DSA+AJ 3LWI+S2"2"WO3F;F+E2"2"OS3HWR3IWB*"J,3SC3R	E+B2"2"OS3H	L7EOS+E2"2"OS3
	L7EOS""*M*7B07DSA+AJ 3D7I*"J,3P	R+NOT*4J:6,B"3R;I/TR*:2"2"GD+TKA2,V"+NKD*,J"*,J"2,&"7NWP+T2"2"	F+LKE.M"J20R 3AGT6 B"3R;I+T2"6"KP7ISN*"J,3C?L+SKE2,N"7LOOE6".JB9* SC2=V"3G3D3FB3H;K3O	I3C3J7LGK7M/M7A+A+ZB$3BGC7A+Z""*M.2B0* SM*(&0* B=*"B * B * B * B * B 3AGD
9B 2 F * B * B * B * J .MJJ*0B1+M"$*1B)*=J 3EV 3G
C3EWG+GB 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6".JB2226 .$J(.)6 2 J"3G
C3BKG3G
C* B * B * B * B * B * B * B * B ""*M.2N0* SM*(&3* B=2"
E3EWG3G
E+ECG. GB+BB2* CB+BB . SB+BB * B +BJ .MJJ*0B4+M"$*4B)*=J 3G^ * CG3G^ * B * B * B * B * B * B * B * B " 6".JB2256 .$V(.)6 2 J"3G
B3BKG3G
B* B * B * B * B * B * B * B * B ""*M.2Z0* SM*(&6* B=2"
E3EWG3G
E+ECG. GB+BB2* CB+BB . SB+BB * B +BJ .MJJ*0B7+M"$*7B)*=J 3EV +GB * B * B 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6".JB2286 .$"(.)6 2 V"* B * B 2 
E2 J .1KB2 J * CB2 J *4CB* B * CB""*M.2&0* SM*(&9* B=2"
E3EWG3G
E+ECG. GB* B * CB+BB . SB+BB * B +BJ .MJJ*1B0+M"$*1&0*=J * B * B * B * B . V * B8* B * B * B * B * B " 6".JF2216 .$F(.16)* B"* B . Z * B * B * B0* B * B * B * B * B * B ""*M.2J1* SM.(J1*)B=*"B * B * B * B * B 3F[D*9B * B * B * B * B * J .MJJ*1B3+M"$*1&3*=
 +EB * B +ECG* B +BB1* B 3BJ * B 3BJ4* B 2 J " 6".JF2246 .$F(.46)* B"* B * B * B * B * B * B * B * B * B *7B * B ""*M.2V1* SM.(V1*)B=*"B * B * B * B * B * B * B * B * B * B * CH* J .MJJ*1B6+M"$*1&6*=J 3COG+GB * B * B 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6".JF227
 .$F(.76)* B"* B * B * B *3B * B * B * B * B * B * B * B ""*M.3B02 	D7MJ .$R("06).JB361J *$J=3AGA3FGA3AKI3C[B3BKB3JKB3BKD3BKB3BKB3FKE3B/B3B[C3BGB6".JB660J +ECM.=6=2 WV3R	E3NGB3R;U3G;E. 6="=*M.6B12 	D7M" .$N(.4F,*22)+Y"$*123"86).JJ620R +ICM+Z"$*7&2*,SS.(J7
)*M.6J22 	D7MR .$J(6)V,.$F(6)J,*0"$*12)+PR1*(&1.MZJ*2B53D7I. CS.$^(*22)+KR3.(B1.,Z1")*M.6B32 	D3M2 *1"$*120*82)+L"2*1&0.,WL.$F(.5",2)2,.6F("56).JV620R +ICM+V"$*225*7&2*,SN.(B2")*M.6V52 	D3MN .$N(*42)+CR0*(&1.MZJ*5B63D7I* SB*(&1.,CP.$F(")*M.6B62 	D3M6 .$F(
8N,"46).J^620R +ICM+P"$*820*7&2.MZJ*8B03R7E. 6=2=& 7NSI3I3A3I	S7EWR3NWG/N6 "=6=.J"661B .$F(*)J=3D[E7F+N*(3X/Y6)7X&-2*;I7T"(*/	Y""*M.6J8. 7N"2*M.6R8. 7F"0*M.6Z8. 7V"-61.J"667J +ECM.=6=2 ?K3NWT+XCT.=6=.MZJ*8B83P	R+NCT2"?K3NWT/X+T. .".MZJ*9B07ICN+UCTN6$.J&62
& 3F: .$:<*"B"7GSO/O& .0B0.M^J*0B03R7E. 6=6=B 3R
O3R7A3MGN+MCE.=6=.M^J*1B03P	R+NCT6"KP7OKG3A7M*:J ";*M.7F12 ;I7PSU* SN.M^J*2B0+ICF7POO*(SN.,*"."F,.):<20^ 3O?T. R7"0*M.7B3* SN6=N"/Y+S2":&"$*M.7B42 [I2 ?P3S:(*$J,*.2".12)*>B07GSO/O^ "660.JV720: 2$:=*$J&2.OP""*M.7B62 	F+LOE22::"$*M.8B02 WR/M6 *=B=3I	N3TGI7L
I7IKE3U
N+ECN.=6=.M"J*2B07FKO. CB*=B1+TCO"364.JJ861J 3ESA* SX.(CB")*M.8J22 WN+XCTB60.JN820Z +OCR/B6061R /OF "3*M.8F32 WR+ACD+Y"$+B&0.M"J*3B27NE3TJ "0*M.8B7. KC"=61.J^821N .1F=.M"J*7B2+PR02=F"""*M.8N7. CC*$J=Z6".J^824. .0B=.M"J*8B2/A60"-61.J"8232 *36="1*M.8R8. 
L.=F-.M"J*8B5/P63"0*M.9B02 WR/M6 *=B=3E;I3GKA/E6 "=6=.JF920& 7NWP/TJ*:SZ.M&J*2B0+ICF3ESN*B27GSO/O" .0B3"0*M.9B36 KP7ISN* SZ.MFJ.0B02 WR/M6 *=B=3Z	E3CWH3NWW3IWS2 ;A7A	L+SCE.=6=.MFJ.0B1. 7Z"0*M.1F061* 202=+EN+Z&$.MFJ.0B22 [I. OP*=B17GSO/ON .0B0.MFJ.0B3. 7Z/
F+.MFJ.0B42 [I. ;Z+ZB07GSO/O& "060.JB1*5B0/B6$3S
E6$*(6$*,*,	Z.MFJ.1B02 WR+M6 *-B-3E;I3Z3E3Z	E3CWH+N6 "-6-.JF1*1B0+ICF/B6$*"K[2 ?G+TCO.3B0"0*M.1J120& 3FJ *$J=*"J"2 ?G+TCO.2B0"0*M.1N120& 3FJ *$J=* B"7GSO/OF .0B3.MFJ.1B42 [I* SB.=*"2"^ 3O?T. "1"060.JF1*4B5+ICF/B6$*"J=2 ?G+TCO.1B9"0*M.1^120& 3FJ *$J=*;B"7G
O/OF .5B7.MFJ.2B02 WR+M6 *-B-3F;U3K	T7OON3D[E*.6 "-6-.JJ1*1B0+ICF+CR0*<B"2"^ 3O?T. N1"060.JJ1*1B5+ICF+PR02>F"2"^ 3O?T. B9.2B0.MFJ.2B22 [I* SB*<B>*"J(2 ?G+TCO.1B3"0*M.1R220^ 3O?T. J1.1B0.MFJ.3B02 WR+M6 *-B-3SC3LWU3SWS3L?W7ESR+ECR*-6-.MFJ.3V02 [I* SB6>*"2"^
3O?T. R1"660.JN1*1B0/B617POO2(F"+BB 3D[E* B +GCM+SB 6 
V* J *,SB*,&1.MFJ.3B22 [I. GB*=B07GSO/OF .4B0.MFJ.3B3. KB2=?P+SJ(+AB 3BWD* B +FCG+MB 6 [S6 ^ 2"J,.$F,")*M.1R320Z +OCR/B60+BB1+TCOB62.JN1*5B0+ICF7POO*(SZ*,SX.(CB6)*,6)*=2 ?G+TCO.1B6"0*M.1Z320: 7ESX. CB.MFJ.4B0. GB2=?P+SJ(+DB 2 [E2 ?L+SB * 2"+B2$*1.)"261.JR
*1B0+ICF/B6120^ 3O?T. V1"060.JR1*2B0/B627POO*(B"2 R 3EZ +LCO6 N 2"J,.$F,.)J+"1*M.1N420Z +OCR/B60+BB1+TCOB62.JR1*4B0+ICF7POO*(SZ*,SX.(CB6)*,6)*=2 ?G+TCO.1B7"0*M.1V420: 7ESX. CB.MFJ.4B62 [I. CC*$J=+AB"7GSO/OJ .6B0.MFJ.5B02 WR+M6 *-B-7EOR7E+T3U
N+ECN*-6-.MFJ.5B12 [I. ;V*=B07GSO/O& .5B0.MFJ.5B32 WR+M6 *-B-3UKE7ESR3R
A+ECN3E;I+ECS3Z	E3CWH+NCS*-6-.MFJ.5B5* SS*=SS*&SB.MFJ.5B62 ?G+TCO.1N0"0*M.1^520N .2F=.MFJ.5V7. 7Z/ZF+.MFJ.5B82 ?G+TCO.4B9"0*M.1B660J +ECM*-6-2 WV7RKA3B	E3T;E2 WD7RN 3C3H7UOE3S3E7WKO7TKE* 6-"-*M.1F620N 22F=+SC3S
E2$N(2$J,20J,*0&).MFJ.6B2. 7Z3Z2++EN+X"$+B&0")*M.1N620^ 3O?T. &4"060.J^1*0B0+CR02=WS+G"$+C2$+B20+B&0.MFJ.7B1. 7Z3Z2++EN+X"$+B&0")*M.1J760N 6$N=6$&&2$J(.0J-"16).J^1*3B07GSO/OF .0B4.MFJ.8B02 WR+M6 *-B-7DCO3P3E3P;U+KCT*-6-.MFJ.8B12 [I2 ?P7S*(*$J,*:J=*,	Z*=CZ
GSO/OF .8B4.MFJ.8B22 [I. CC*$J<+DB"7GSO/OF .5B3.MFJ.8B32 [I* K+K&0.<^>2 ?G+TCO.8F0"060.J"1*3B1/C62"166.J"1*3B27Z*="+61.J"1*3B37GSO/OR .9B0.MFJ.8B42 [I. GC.=B12 ?G+TCO.9B0"060.J"1*5B0+ICF/C61*4B 7GSO/O& .0B0"0*M.1Z820& 3FN .1F=27^ 3O?T. B9.0B0.MFJ.8B7* SS*
SS.&6"""*M.1"860* *=/Z"2*M.1&820^ 3O?T. B1"460.J&1*0B0+ICF/C61*1B07GSO/OF .5B3.MFJ.9B12 [I. GC*=B42 ?G+TCO.1N5"0*M.1J920& 3FN .1F=27^ 3O?T. V1"360.J&1*2B5+ICF+CR06>*"2"^ 3O?T. V1"360.J&1*3B07GSO/O& .0B0"0*M.2B060J +ECM*-6-2 WZ3IC3E/N7EST+ECN*-6-.MJJ.0B12 
I. CC*$J=+AB"7GSO/OJ .5B0.MJJ.0V12 [I. 7Z+ZB07GSO/O& .0B0"0*M.2J060* 61B=+OS+Z2$*"J"6"*,*+&1.MJJ.0B32 [I. GZ*=B07GSO/O& .0B0"0*M.2R060N 6$N=6$N&+ESG*(SZ*,3Z+Z&1.MJJ.0B5. 7Z+Z.1"1*M.2Z020^ 3O?T. B1"460.JV2*0B03R7E* 6-6-R 3R;E7NKE2 7I6 KP7ISN* 6-"-*M.2F520&
7FN *$J=3P	R+NKT2 ?G+TCO.2J0"0*M.2J520& 7FB +OS.".:*,J"*&2"3S
E6$N(2$2,+EN+S&$2,WL7NN(*$&)*,&1.<B>2 ?G+TCO.2J0"0*M.2N560N 6$N=*$J&";6".JV2*4B07GSO/OJ .0B2.MJJ.6B02 [I* SB*<J>*!B"7GSO/OJ .6B3.MJJ.6B1* SS*=SS.&."""*M.2J620^ 3O?T. B1"360.JZ2*3B0+ICF/B6$*"J,2 ?G+TCO.1B5"0*M.2R620& 7FN +ESG*(SS2,WL7NN(*$2)3L;E*(SS.)2)*>J
*"B"7GSO/OF .5B0.MJJ.6V42 [I* SB*=Z"2"^ 3O?T. V1"060.JZ2*5B0/S6$+SZ$*"J;.MJJ.6B62 ?G+TCO.1B5"0*M.3B060J +ECM*-6-2 ?K3MWM3NGT+R6 "-6-.JB3*1B0/P63"1*M.3J060* 61B=+OS+Z2$*"K]*,/Z"16).JB3*3B0+ICF/Z6120^ 3O?T. B9"0*M.3R060* .=GZ"+61.JB3*4B5/P63"0*M.3Z020^ 3O?T
 B1"460.J&4*0B03R7E. 6=2=V 7NOT3CWH7IWD3NWG3N: 3AC6 SS3R/U7TKU. 6="=*M.4F960R 6$N=+ESG*(SM.(GC.)J,.*KC*-2122N*"26).J&4*2B0+ICF/T6$*"B 2"^ 3O?T. B9.0B0.MVJ.0B02 WR+M6 *-B-3RWU7COK7PWR+NCG3FWU3RV 7NOT3CWH7IWD3NWG+N6 "-6-.JB5*1B0+ICF/T6$*"B"7GSO/OV .5B0.MVJ.
B2* SU2=WS+G"$+T2$.1F,")*M.5N020& 7FV *$J=* B"7GSO/OV .5B0.MVJ.0B4* ST2=WS+G"$+T2$.2J,")*M.5R025& 7FV .$6>*"J02 ?G+TCO.5B2"0*M.5V020& 7FV *$J=+AB"7GSO/OJ .3B1"0*M.5V021& 7FV *$J=+BB"7GSO/O^ .0B1" *M.5V022& 7FV *$J=+CB"7GSO/O^ .1B0.MVJ.0B62 [I* SU2=R"2"^ 3
?T. N2.3B0.MVJ.0F62 [I* SU2=V"2"^ 3O?T. B1.0B0.MVJ.0J62 [I* SU2=Z"2"^ 3O?T. N2.2B0.MVJ.0B72 [I* SU2=^"2"^ 3O?T. F6*0B0.MVJ.0F82 [I* SU2=""2"^ 3O?T. R2.1B0.MVJ.1B96 SSO7P.JJ5*0B03R7E* 6-2-F 3NGF7NOG2 3E3EWM3NWT.MVJ.2B1. CK.=CK"+61.JJ5*2B0+ICF/K:0*2B07GSO/O
 .0B1"0*M.5N220. .(CK6)Z=+AL+U&$.MVJ.2B42 [I* SU.=B"2"^ 3O?T. V2.0B0.MVJ.2B52 [I* SU.<N"2"^ 3O?T. N1.0B0.MVJ.2V52 [I* SU.=N"2"^ 3O?T. B2.0B0.MVJ.2B62 [I* SU.=R"2"^ 3O?T. J2.0B0.MVJ.2B72 [I* SU.=^"2"^ 3O?T. R2.0B0.MVJ.2B82 [I* SU.=Z"2"^ 3O?T. N2.0B0.MVJ.2B
2 [I. GC.=B12 ?G+TCO.2B1"060.JN5*0B0/K60+K60"1*M.5F320. .(CK6)Z=+AL+U&$.MVJ.3B22 ?G+TCO.2N3"060.JV5*0B0/C61C62.JV5*1B07GSO/OF .0B4.MZJ.0B02 WR/M6 *=B=7ESN3SC3ESI3U
N+ECN3NOA3H. 3E3L+ECR.=6=.MZJ.0B1. CK.=CK"-61.JB6*1B5+ICF3K.(.0F+.)B=2 ?G+TCO.5B0"0*M.6J020& 3F. .(CK*+&1*=B57GSO/OV .0B0.MZJ.0B32 [I* K+K.0.16)26^ 3O?T. B5"060.JF6*0B0+ICF/K6020^ 3O?T. B5"060.JF6*0B2+ICF/K2020^ 3O?T. B9.1B2.MZJ.1B12 [I* K+K&0*=B87GSO/OJ 
1B1"0*M.6J120& 3F. .(CK.)&=2 ?G+TCO.2R3"060.JF6*3B0+ICF3K.(.06)*1B07GSO/OJ .0B1"0*M.6R120& 3F. .(CK.)F=21^ 3O?T. J2.2B0.MZJ.2B0. CR6$N=+ESG*(SR2,N(.2F-.)"**+K+K&0*+21.(KC*-&1**.83K.(*0.)"16).JN6*0B0+ICF+RR02=F"2"^ 3O?T. B5"060.JN6*0B1+ICF+RR02=J"2"^ 3O?T.
B9.0B0.MZJ.3J02 [I. CR*$J=+CB"7GSO/OF .3B5"0*M.6B325& 7FJ .06$*"KF2 ?G+TCO.2F0"060.JN6*0B6+ICF+RR02=^"2"^ 3O?T. F2.1B0.MZJ.3^02 [I. CR*$J=+HB"7GSO/OJ .3B4"0*M.6B328& 7FJ .06$*"KI2 ?G+TCO.2N4"060.JN6*0B9+ICF+RR02=*"2"^ 3O?T. R2.4B0.MZJ.3V32 [I. CR*$J=+KB"7
SO/OJ .5B2"0*M.6N326. .(CK2).=.(CK.)^+.MZJ.3^32 [I. CR*$J=+DB"7GSO/OJ .0B2"0*M.6N328& 7FJ .06$*"KE2 ?G+TCO.5B0"0*M.6R360N 7TCO.M^J.0B02 WR/M6 *=B=3KWL3IWN2 /A3T?I3N;E. 6="=*M.7F060J +ECM*-6-2 WF3HWL3RZ,3A3L7SN 2$: 3IC3T2 7EKE.M^J.0B22 [I* SS*<J>2"^ 3O?T. 
9.0B0.M^J.0B32 ?G+TCO.5B0"0*M.7B160J +ECM*-6-2 WU7BKE7LOE+E3N2 GF7LOL* SS2 WL+ECR*-6-.M^J.1B12 [I* SS*=J"2 ?G+TCO.5B0"0*M.7J120^ 3O?T. B1.0B0.M&J.0B02 WR/M6 *=B=3K;O7TE/T6 *=B=.M&J.0B12 	F+LOE22::*$J&2.?K""*M.9J020& 7NWP/TJ*:SZ.M&J.0B32 [I2 ;E/DJ2 ?G+TCO.
B4"0*M.9R060B 60B=+OS+Z2$."6=."F,")*M.9V020& 7FB .0B=2 ?G+TCO.9B1"0*M.9Z060Z *=/V"1*M.9^020& 7FZ .>B52 ?G+TCO.9F0"060.JB9*8B0+V"$/V6)Z6$.JB9*9B07GSO/O& .0B2.M&J.1B02 [I2 ?P7S*(*$J,3F;U3K	T+OSN."F,.)F=2 ?G+TCO.9B2"0*M.9F120& 7FB +OS+Z2$6"WF7NSK3I;O."F,.)F=
 ?G+TCO.9J2"0*M.9J160B 2$:(6)*="$*M.9N120: *=/N"1*M.9R120^ 3O?T. B9"260.JJ9*0B0+PR1*=R"""*M.9F220^ 3O?T. J9"360.JJ9*2B0+PR1*=J".M&J.2B3* SZ2=WS+G"$+Z2$7POO*(SZ*,B"."F,.)F+2,WL7N*(*$&).M&J.2B4. 7F/FF+.M&J.2B52 [I. ;F*2B57GSO/O& .0B1"0*M.9Z260B 2$:(*)J=3D[E
FKN2&C+R"$+FZ)+PR12&WS+G"$+Z2$7POO*(SZ*,""."F,2)2,+EN+Z&$")*M.9Z225: *=/N"1*M.9^260* 6$N=+ESG*(SZ*,217POO*(SZ*,""."F,*)Z)."6=*"J&+FKN2&C+R"$+FZ)+PR1*&""""*M.9"220^ 3O?T. B9"660.JR9*0B03C?L+SOE"2*M.9F420^ 3O?T. B7"0*M.9B560J +ECM.=6=6 KE7SSE3Z;U3G;E. 6="=*
.9F520Z +OCR/V6060R 7OZ .M&J.5V1. CP2=?P7SZ(6$Z(*02)."6=."F,")*M.9J520& 7FB +OS+Z2$3S
E6$Z(6$Z(*02)61B,.0F-6)*,.):<3Z^ 3O?T. V9"760.JV9*3B0/S6$+SZ$3S
E6$Z(6$Z(*02)+P.0222,+EN+V"$+V&0")6).JV9*4B07Z*=.+CP"-61.JV9*5B07GSO/OF .0B4.M&J.5B72 WN+XCTV60.JV9*8B07GSO/OF .5B3.MFJ.0B060J +ECM.=6=2 	E3NGF3CWH2 ;A3W	E3S;U/G6 "=6=.JB1.0B12 [I* SS*=J"2 ?G+TCO.9B0"060.JB1.0J12 [I. CP.$:<*"KA2 ?G+TCO.1B0"168.JB1.0R12 [I
 CC*$J>+ZB"7GSO/OF .0B9"0*M.1B0*1B67GSO/O& .0B2"0*M.1B0*1B8+ICF+CR06>*"2"^ 3O?T. B9.2B0.MFJ.0J020& 7FN +ESG*(SS*,21.16)*"K7GSO/O" .0B2"0*M.1B0*3B0+ICF+CR02=J"2"^ 3O?T. B1.3B0.MFJ.0^020& 7FB +OS+S2$2"WG3HGN+CKH*,&1*=B07GSO/OF .0"0"0*M.1B0*7B1/S6$3S
E6$N(.$",.,V1")*M.1B0*7B27GSO/O" .0^2"0*M.1B0*8B0+ICF7POO*(SS2,^"3EWH3NOA+H2".16)20^ 3O?T. B1.9B0.MFJ.0"061N 6$N=+ESG*(SS*,29*1&6.MFJ.0"022^ 3O?T. B8.2B7.MFJ.0B360J +ECM*-6-2 	L+ECS*-6-.MFJ.0J320& 7FB +OS+S2$2";A3F;A/G*."Z,.)Z=2 ?G+TCO.1V0"060.JB1.3B32 [I
 ?P7SN(*$J,3A[N3A
N*2".66)26^ 3O?T. B1.4B0.MFJ.0R320& 7FB +OS+S2$."*."Z,.)Z=2 ?G+TCO.1Z0"060.JB1.3B52 ?G+TCO.1&0"060.JB1.4B0* SP*(	N6=J"7ESS3OWR6"N&+ESG*(SS.,J12,?P7SN(*$J,*:2"*1&3*-&1.MFJ.0F420: *=/N"1*M.1R0*2B0/S6$3S
E6$N(.$F,*,&52&WS+G"$+S2$*1223L;E*(SS")6).JB1.4B32 ?G+TCO.1&0"060.JB1.5B0* SP*(	N6=J"7ESS3OWR""*M.1V0*0B53N:="+61.JB1.5B1* SS6=J"3ESA6"N&+ESG*(SS.,R12,WL7NN(*$&).MFJ.0J520^ 3O?T. B1.9B0.MFJ.0B660N *$J=3RGE+DZ"3S
E6$N(.$",2,WL7NN(*$&).MFJ.0F620^ 3O?T. B1.9B0.MFJ.0B760J +ECM*-6-2 ?M3DR,+ICV*-6-.MFJ.0B765N .06$3S
E6$N(6$B,.4F+2,WL7NN(*$&).MFJ.0F760B 65B=+OS+SR02,6"+OKD*,&1.MFJ.0J720& 7FB .5:<20^ 3O?T. B1.7B7.MFJ.0N760B 65B=+OS+SR02,R"+IKV*,&1.MFJ.0R720& 7FB .5B=2 ?G+TCO.1&0"064.JB1.7B5* SS2=WS+G"$+S2$61B,*4Z)2";I+TJ(.MFJ.0V765N 6$N=6$N&+ESG.(CS.$F,.,WP*-&1*&>"6"N&
ESG.(CS6$B,.5N+2,WL7NN(*0&$*)J&")6".JB1.7B62 ?G+TCO.1&0"064.JB1.7B7* SS2=WS+G"$+S2$61B,*4Z)2";F+ZJ(.MFJ.0^765N 6$N=6$N&+ESG.(CS.$F,.,WP*-&1*&2"6"N&+ESG.(CS6$B,.5N+2,WL7NN(*0&$*)J&")6".JB1.7B82 ?G+TCO.1&0"064.JB1.9B02 WR+M6 *-B-7A
N7EOI3U
N* 6-"-*M.1&0*0B1/P647POO*(SS.,6"."F,")*M.1&0*0B2+ICF/P24*>B07GSO/OF .0B7"0*M.1&0*0B4+P"$/N6)S6$.JB1.9V0. CC*$J=Z6".JB1.9B1* SS*=J".MFJ.0J920: *=/N"1*M.1&0*3B07GSO/OV .0B0.MFJ.1B060J +ECM.=6=2 ?L7GOI3CWH6 WA7SKD3UOE+KCE.=6=.MFJ.1F020& 7FN *$J=2"^ 3O?T. B9
0B0.MFJ.1B160J +ECM*-6-2 	N7CSH6 WA7SKD3U/C* 6-"-*M.1F1*1B0/P657POO*(SS2,:"3IC+T2""16).JF1.1F12 [I. WP*=B07GSO/OF .1B2"0*M.1F1*2B0+P"$/N6)2"[I6"N&+ESG*(SS.,WP*+253L;E*(SS*)Z)2"?G+TKO6&SS+R"$/NJ+")*M.1F1*3B0+P"$/NF+*)J=7GSO+OZ"7SKT2$:(*+&3.MFJ.1R120: *=/N"
*M.1F1*4B5/S6$""6".JF1.1B52 WR7TKUN*M.1J1*0B03R7E* 6-6-V +NCD7AOU7DWR+CCK*-6-.MFJ.1F260B 65B=+OS+S2$2";U+D2""16).JF1.2F12 [I. WP*=B07GSO/OF .1B3"0*M.1J1*2B0+P"$/N6)2"[I6"N&+ESG*(SS*,21+P65*1Z)2"?G+TKO6&SS+R"$/NJ+")*M.1J1*3B0+P"$/NF+*)J=7GSO+OZ"7SKT2$:(*+&
.MFJ.1R260B 2$:(*+&22=&"+FZ"3S
E6$N(6$B,.5N+2,WL7NN(*$&)2&^"3O?T6"N&+TSR*(/N"46).JF1.2B5. 7N/NN+.MFJ.1V265N *$J=""*M.1J1*6B07RSE3U;R.MFJ.1B360J +ECM*-6-2 SO+ECR7AOU7DWR+CCK*-6-.MFJ.1F360B 65B=+OS+S2$2"SO+EKR*,&1.MFJ.1F321& 7FB .5B=2 ?G+TCO.1V1"060.JF1.3B2* SP*(	N2=&"+FZ"3S
E6$N(.$F,.,WP*-&12&^"3O?T6"N&+TSR*(/N"36).JF1.3B3* SP*(/N.16)2"[I6"N&+ESG*(SS.,WP*+243L;E*(SS*)Z)2"?G+TKO6&SS+R"$/NN+")*M.1N1*4B03N:="+62.JF1.3V4* SS*=J".MFJ.1V360J 7EWTR7N.JF1.4B02 WR+M6 *-B-7VKE3GWL3IC7SWA7SKD3U/C* 6-"-*M.1R1*1B0+P"$/N6)2"[I6"N&*$J&7GSO
OZ"7SKT2$:(*+&2.MFJ.1J420: *=/N"1*M.1R1*3B0/S6$""6".JF1.4B42 WR7TKUN*M.1V1*0B03R7E* 6-6-R 3E3I+T6 "-6-.JF1.5B1. WP2=?P7SN(*$J,3T	E+LKT*,&1.MFJ.1F521& 7FB .5B=2 ?G+TCO.1R1"060.JF1.5B2* SS2=Z"+NZ6"N&+ESG*(SS.,WP*+253L;E*(SS*)Z)*"J,2&WS+G"$+S2$61B,.5F-*)J&.)
=""*M.1V1*3B07GSO/OF .1B4"0*M.1B2*0B03R7E. 6=2=Z 3U/N3T?I3N;E. 6="=*M.1F2*0B03R7E* 6-2-R +ECF3F;U3K	T+OCN*-6-.MFJ.2F120Z *=/F"1*M.1F2*2B0+ICF/FJ>25^ 3O?T. B9.1B0.MFJ.2N160Z *=/V"1*M.1F2*4B0+ICF/VV>20^ 3O?T. B9.1B0.MFJ.2V160Z 6$Z(6)N=*$J&.(6=+FKN2&C+R"$+FZ
+CR0*&""""*M.1F2*6B0/S6$2"WD3F;F2"N&+HSR*(	F.&CC*$J&"(6".JJ1.1B7. CC*$J=[6".JJ1.1B82 ?G+TCO.1N0"0*M.1B3*0B03R7E. 6=2=J 3E	G+NCN.=6=.MFJ.3F020& 7FB .02$2>F"2"^ 3O?T. B5"060.JN1.0B4* SP*(	N2=Z"3IWL/VR*:J"7LSP*:J"""*M.1B3*5B0+PR02=J"""*M.1B3*6B03N:="+61.JN1.
B72 ?G+TCO.5B0"0*M.1V3*0B03R7E* 6-2-V 3NWD* 6-"-*M.1V3*1B0/K60+K60"1*M.1Z3*0B0+ICF/K:020^ 3O?T. B5"060.JN1.6B12 [I. CP*$J=+BB"7GSO/OF .3R6"0*M.1Z3*2B0+P"$/N6)2"WR7TKUN6".JN1.6V2. 7N/NF+.MFJ.3N620^ 3O?T. B5"060.JN1.6B4* SP*(	N2=N"7LOO/ER2"N&+HSR.("2*)J&3S?
P6".JN1.6B5. 7N/NF+.MFJ.3Z660B .06$*"KC.MFJ.3^620^ 3O?T. B5"060.JB2.0B02 WR/M6 *=B=+ICF3A[N3A
N. 6="=*M.2B0*3B07GOO+UCB.1B1"060.JB2.0B4. GK.(CK2):=.MJJ.0R021: *=/N"1*M.2B0*5B07GSO/OV .0B0.MJJ.0B160J +ECM*-6-2 [I2-T+ECN3ESN+E6 "-6-.JB2.1B2* SP.(GK.(CK.)6)2"?G+TKO6&SS+R"$N6).JB2.1B32 ?G+TCO.6B0"0*M.2J0*0B03R7E* 6-2-V 3LWS2 ;A3F;A+G6 "-6-.JB2.2B1* SP
(GK.(CK.)6)2"?G+TKO6&SS+R"$/NF+")*M.2J0*3B0+K"1+K&0"=7N.JB2.2F3. 7N/NF+.MJJ.0R220^ 3O?T. B5"060.JF2.0B02 WR/M6 *=B=3W	H+LCE3A[N3A
N. 6="=*M.2B1*3B0+K"2+K&0"=7N.JF2.0B42 ?G3SKU. F1.0B0.MJJ.1V020. 21.(.06)N*M.2B1*5B13N:="+61.JF2.0B62 ?G+TCO.5B0"0*M.2F1*0B03R7E* 6-6-^ 3H3I3EV 3NWD* 6-"-*M.2F1*2B0+P"$/N6)2"?G+TKO6&SS+R"$+K"2+K&0")*M.2F1*3B03N:="+61.JF2.1B5* SP.(GK.(CK.)6)2"?G+TKO6&SS+R"
N6).JF2.1B62 ?G+TCO.6B0"0*M.2B2*0B03R7E* 6-6-J 3EWP+ACT3A[N3A
N. 6="=*M.2B2*3B0+K"1+K&0"=7N.JJ2.0B42 ?G+TCO.5B0"0*M.2J2*0B03R7E* 6-6-J 3EWP+ACT3ESN+E6 "-6-.JJ2.2B12 ?G3SKU. F1.0B0.MJJ.2N260B 2$:(*)J=7GSO+OZ"7SKT2$.(21.(*0&).MJJ.2R220: *=/N"1*M.2J2*5B07GSO/OZ .0B0.MJJ.3B060J +ECM.=6=2 ?F3RF 3NGF+NCG.=6=.MJJ.3N060B 65
=+OS+S2$*"J=*,&1.MJJ.3R020& 7FB .56<21^ 3O?T. B9.0B0.MJJ.3V020. *3"$+K&02=WS+G"$+S2$61B,.5F-")*M.2B3*6B0+P"$/N6)2"?F+RZ"S6$.JN2.0B7* SS*=J".MJJ.3"020N .1B=.MJJ.3&020^ 3O?T. B1"460.JN2.1B02 WR+M6 *-B-7FKO2-?T* 6-"-*M.2F3*1B0+P"$/N6)+P"$+NZ)2"?T6"N&"$*M.2F3
2B0/S6$""6".JN2.1B32 ?G+TCO.5B0"0*M.2J3*0B03R7E* 6-2-Z +O7R+T7O3SWT+P6 "-6-.JN2.2B1* SP*(	N*=SP*(	N6&N"7TCE6"N&"$*M.2J3*1B5/S6$""6".JN2.2B22 ?G+TCO.5B0"0*M.2N3*0B03R7E* 6-2-Z +O7R+DCO*-6-.MJJ.3J320: *=/N"1*M.2N3*3B07GSO/OV .0B0.MJJ.3B460J +ECM*-6-2 WN+XCT
-6-.MJJ.3J460B 2$:(*)J=7NE+TZ"+KR3.(CK")*M.2R3*2B53N:="+61.JN2.4B3. OK2$.(.06)""6".JN2.4B42 ?G+TCO.6B0"0*M.2B4*0B03R7E. 6=2=N 3AWS2 ;A3F;A/G6 "=6=.JR2.0B3* SP*(	N2=^"3O?T6"N&+TSR*(/N"26).JR2.0B4. GK.(CK2):="+61.JR2.0B5. 7N/NJ+.MJJ.4Z020. *3"$+K&0*=SS.&6""
*M.2B4*7B0/S6$""6".JR2.0B92 ?G+TCO.5B0"0*M.2F4*0B03R7E* 6-2-N 3AWS2 GL3B3E* 6-"-*M.2F4*0B1/N60"1*M.2F4*0B2/P65"0*M.2F4*0B3/P657POO*(SS*,2"6"B,.5F+")*M.2F4*0B4+ICF/P6520^ 3O?T. R2.1^0.MJJ.4B125: 20:=.0F+.MJJ.4B126^ 3O?T. R2.1N0.MJJ.4B127: 20:=20:+"+61.JR2.
"0. KK.(CK2):=.0F-.MJJ.4F160B 65B=+OS+S2$*"J,*,&1.MJJ.4J120& 7FB .5B=2 ?G+TCO.2F4"860.JR2.1B3* SP*(	N2=&"+FZ"+KR3.(CK6)N&+ESG*(SS*,21+P65*1Z)2"?G+TKO6&SS+R"$+N&0.MJJ.4V120: *=/N"1*M.2F4*6B0/S6$3S
E6$N(6$B,.5F+2,WL7NN(*$&).MJJ.4^120^ 3O?T. R2.1B1.MJJ.4"160B 2$:(*)J=+IKF.&OK2$.(*0Z)+SZ$2"?G+TKO6&SS+R"$+N&0.MJJ.4B220: *=/N"2*M.2J4*0B5/S6$""6".JR2.2B12 ?G+TCO.5B0"0*M.2N4*0B03R7E* 6-2-N 3AWS2 GF+LCL3ESN+E6 "-6-.JR2.3B1* SP*(	N2=^"3O?T6"N&+TSR.(GK.(CK")
).JR2.3B2. 7N/NF+.MJJ.4J365B 2$.(22.(*0&)2=^"3O?T6"N&+TSR*(	N.MJJ.4N320N .1F="5*M.2N4*4B07GSO/OF .0B4.MJJ.4B460J +ECM*-6-2 GC+SCE3ESN+E6 "-6-.JR2.4B1* SP.(GK.(CK.)6)2"?G+TKO6&SS+R"$N6).JR2.4B2* SP.(KK.(CK.)6)2"?G+TKO6&SS+R"$N6).JR2.4V2. CK.=CK"-61.JR2.4B3
 ?G+TCO.5B0"0*M.2B5*0B03R7E. 6=2=R 3AWT3IF 3NGF+NCG.=6=.MJJ.5B160J +ECM*-6-2 GD3T	E2 ;A3F;AG*M.2F5*3B0+P"$/N6)2"	D+MSZ.(J7")6".JV2.1B4* SP*(/N.16)2"	F+LOE*3J:2&WS+G"$+S2$262,+EN+S&$")*M.2F5*5B0+P"$/NJ+*)J=7ICN+UOT63*:"$6".JV2.1B6. KK.(CK2):="+62.JV2.1B7. 
K.(CK2):="+63.JV2.1B8. 7N/NR+.MJJ.5"165N *$J=""*M.2F5*9B07GSO/OV .0B0.MJJ.5B260J +ECM*-6-2 GD3T	E2 ;E+DCE*-6-.MJJ.5F260B 2$:(*)J=7GSO+OZ"7SKT2$.(22.(*0&).MJJ.5J220: *=/N"1*M.2J5*3B0+P"$+K"1+K&0*)J=3IWF+NOD23?G+TKO6&SS+R"$N6).JV2.2B4* SP*(	N2=N"7LOO/EN""*M
2J5*5B03N:="+61.JV2.2B72 ?G+TCO.6B0"0*M.8B0*0B03R7E. 6=2=6 3A/R+E3N7SKP3U;E+GCE.=6=.M"J.0B160J +ECM*-6-2 GM3RWK2 	E7NKT3AWG+N6 "-6-.JB8.1F1* SS2=WS+G"$+S2$.1",")*M.8F0*5B0+ICF/L:3.=B32 ?G+TCO.9F0"060.JB8.1B6. OL.=OL"+61.JB8.1F6. GL2$2(.36)S6$.JB8.1J6. KL.
OL2):=.M"J.0^160N *$J=""*M.8F0*7B17GSO/OF .0B3.M"J.0B260J +ECM*-6-6 CS3R;U3GV 7ISN3R
A+ECN*-6-.M"J.0F261N 6$N=+ESG*(SS*,21"86).JB8.2B72 WRM*M.8J0*8B0/L67+L.7"1*M.8J0*8B1+LR5.(
L6)N="$*M.8J0*8B2+L"6+L&7"=7N.JB8.2B9* SS*=J".M"J.0&221: *=/N"1*M.8J0*9B27GSO/OV .0B0.M"J.0B360J +ECM*-6-2 GM3RWK7NN-7PWR+N7G3Z?U3R;D3U
N* 6-"-*M.8N0*0B2+ICF/S6$*"B"7GSO/O" .0F3"0*M.8N0*0B4+P"$/N6)S6$.JB8.3B12 ?F3R2 .8B=2 ?T. 
L.M"J.0J320Z +OCR/L6460R 3O2 "3*M.8N0*3B0+ICF+LR1.(SL.):<+LR5.(L2)^ 3O?T. B8.3B6.M"J.0N322& 7FN +ESG.(GL2$2(*42).1F,.):<*"K2 ?G+TCO.8N0"460.JB8.3R3* SP.([L.(L.)6)2"?G3SKU6"N&+TSR.(KL.(SL")6).JB8.3Z32 ?G+TCO.8N0"860.JB8.3B4* SP.([L.(L.)6)2"?G+TKO6&SS+R"$+L
2+L&4")*M.8N0*5B07GSO/O" .0"3"0*M.8N0*6B07NE3T2 "4*M.8N0*6B2+ICF3S
E2$2(*5"$+L&8*,21.12)2>B"2"^ 3O?T. B8.3B7.M"J.0Z364B 2$2(262(*8&)6=B"3R;I+TJ"7VKE3F	E7NKE3U
N* J"*;J"2"2&*5"$+L&8*&J"""6".JB8.3Z62 ?G+TCO.8N0"860.JB8.3B76 KP7ISN* *"2*Z*3E3H/E+R7MKA+KCE2"2;*5"$+L&8*;B"3FE+LKT.M"J.0^361N 7TCO.M"J.0"320: 7ESX. L.M"J.0B460B 2$:(*)J=3ESN""*M.8R0*1B07GSO/O& .1B0"0*M.9B0*0B03P	R+NCT*"**2*WF3HWL7R* 7WOI3CWH3NR +ECN3SC3
WU3SWS3L?W7ESR3E;R""*M.9B0*0B13P	R+NCT*"B 2 	M3TN 3OWD. GC.=."/C.12";U3DN *2J=.;KC.M&J.0B062N 7TCO.M&J.0B160B 3R;I+TJ *-6-7SOY3T7E3GWR3NWZ.:GC.=."/C.1."KC.=."/C.2*"K+K&0.=."3K.("06).JB9.1F06 KP7ISN* B"2 2 *3J=.;OL2;2"*7J=.;
L2;Z".=."F*M.9F0*0B23S?TP*M.9F0*2B03P	R+NCT*"**2*WF3HWL3R& 3NR +ECR3SC3AC3T3E3U
N*:K+K&0.=."3K.(.0.)."KC.=."C62.JB9.1F26 SSO7P.JB9.2B06 KP7ISN* *"2*Z*3E3H+ECR+ICM3P?R3GGR3MGM3UKF+AKU.M&J.0B261N 7TCO.M&J.1B020N 7LOO/EJ.M&J.1B025Z 3IWL/VJ6:N"/Y+S7P
C3SJ.A6".JF9.0B12 ?F3R& *=B1+TCON*M.9B1*2B03P	R+NOT62N:+TSR*(	I*&SP*(	I.M&J.1N020: 7ESX" 7I.JF9.0B42 3C3OWS"62.J&9.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