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 +GB * B * B 3BJ1*2B 3BJ * B 3BJ4* B * B 2 
E2 J .1KB2 J * CB2 J 2"
E3EWG3G
E+ECG. GB* B * CB+BB *=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*=J +EB * B +ECG* B +BB1* B 3BJ * 
 3BJ4* B 2 J " 6".JF2246 .$F(.46)* B"* B * B * B * B .2V1* SM.(V1*)B=*"B * B * B * B .MJJ*1B6+M"$*1&6*=J 3COG+GB * B " 6".JF2276 .$F(.76)* 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"$*320*82)+L"2*3&0.,WL.$R(.0",2)2,.6R("06).JV620R +ICM+V"$
520*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"$*7&2.MZJ*8B03R7E. 6=2=& 7NSI3I3A3I	S7EWR3NWG/N6 "=6=.J"621Z 3IWL/VR6:N"/Y+S7P
C3SJ.A6".J"622: "=62.J"624Z "=60.J"665B 3R;I/TR6:SS+R"$*1Z)2"WD3F;F7Z"(*,	Y*=7X3Y&*+NT7X&/")6".J"666Z .=F-.MZJ*8B73R7E. 6=2=. 7OSN7ESX. 6="=*M.6"86 KP7ISN2 ."7OSN7ESX*:J ";*M.6B92 ;I7PSU* SN.MZJ*9B5+ICF/N2$*>J"2 ?G+TCO.9B0"0*M.7B02 WR/M6 *=B=3P?R3GGR3M;M3
WM. 6="=*M.7B16 KP7ISN6 B"3R
O3R7A+MB:""6;.JF721& 7NWP3T: "$*M.7B22 [I2 ?P3S:(*$J,*:2".12)*>B07GSO/O^ "460.JN720: *$J=7SOY*:Z"N6$.JR720& 7FB +OS+N2$*"J.*,&1.<B>2 ?G+TCO.7B6.M^J*5B0/N6$+NZ$6"B.C6".JZ720Z 3IWL.*2N6$.JB860J +ECM.=6=2 ;I3I	T3A	L3SWI3R;U3G;E. 6="=*M.8B22 ?F3RJ .0F=2 ?T. R
.M"J*2B13RGE7D" 2$J("06).JJ822: 7ESX. CB.M"J*3B07FKO. CB*=B1+TCO"163.JN861J 3ESA* SY.(CB")*M.8J32 WN+XCTB60.J^820N .2F=.M"J*7B1/C61"1*M.8J7. CP*$J=A6".J^823N .06$*"KZ.M"J*7B4/K60"0*M.8J8. CA.=F-.M"J. OP"=60.JB960J +ECM.=6=2 	E3NGG.9B22 [I2 ;E/DJ2 ?G+TCO.8
0"060.=6=2 WZ3IC7E
N7EOI3EF 3N3A3YWS3L;E*(SZ")*M.1J020& 7FB .3F=2 ?G+TCO.3B0"0*M.1N060* *=/Z"1*M.1R020& 7F* .>CZ2 ?G+TCO.9B0.MFJ.0B5* SB2=WS+G"$+Z2$7Z*,")*M.1B160J +ECM*-6-2 	E3NWZ3LWZ3IC+ECN*-6-.MFJ.1B12 [I* SB6=."2"^ 3O?T. B3"060.JF1*2B0+ICF/B6$*"J"2"^ 3O?T. B2"060.JF1*3B
+ICF/B6$*"J 2 ?G+TCO.1N0"0*M.1R120& 3FJ *$J=*:B"2"^ 3O?T. &1"060.JF1*7B0+ICF/B6$*-6-6 WF7NSK3I;O3SWD+FB.*-6-.MFJ.MFJ.2V12 [I. CP*$J>+AB"7GSO/O& 3O?T. N1"060.JJ1*4B07GSO/OF .2B1"0*M.1B360J +ECM*-6-2 OS7HWL7EOS7E
L7OKE7TKE* 6-"-*M.1B325& 3FJ *$J>+ZB"7GSO/OF .4B6.MFJ.3B1. GB2=?P+SJ(+ACB2 WD+FB 2 7G* CS6 Z +WB 2"J,.$F,")*M.1J320& 3FJ .1B=2 ?G+TCO.1B4"0*M.1N320J 62B=+OS*"CA2 SB+EB 2 
F* CM6 N +VB +W2"+B2$"16).JN1*4B07FKO. CB.=GB2 ?T. KB.MFJ.3B52 [I2 ?P7S*(6$",2$J(*02)/Z6)3Z^ 3O?T. Z1"060.JN1*6B07NE3TJ "0*M.1B420J 61B=+OS*"CD2 V 3F2 +OCS* J *,SB*,&1.+F2.MFJ.4B12 [I. GB*=B07GSO/OF .5B0.MFJ.4B2. KB2=?P+SJ(* B +DCE3F?L* B +S2"+B2$*1.)"261
JR1*3B07FKO. CB.=GB2 ?T. KB.MFJ.4B42 [I2 ?P7S*(6$",2$J(*02)/Z6)3Z^ 3O?T. ^1"060.JR1*5B07NE3TJ "0*M.1Z420& 3FN .06$*"KA2 ?G+TCO.2B6"0*M.1B560J +ECM*-6-6 KE7SSE3Z;U3G;E* 6-"-*M.1F520& 7FZ .>B=2 ?G+TCO.9B5"0*M.1N560J +ECM*-6-2 WU7BKE3TGR3G;E2 	E7NOE2 WZ3IC7E
N* 6-"-*M.1V560N 6$N=2$J&"$*M.1Z520^ 3O?T. B1"360.JV1*7B0/C62"1*M.1^565* *=/Z"1*M.1"520^ 3O?T. &4"060.JZ1*0B03R7E* 6-6-Z 3EGR3RWB3IWT3NR +ECR3SC3LWU3SWS3L?W3RWT+R6 "-6-.JZ1*1B0/C623AOS2(WS+G"$+C2$+B20+B&0")*M.1J660* *=/Z3L;E*(SX.(CB")6).JZ1*3B07GSO/OR .9B
.MFJ.7B0. CC6$N=+ESG*(SC.,CB.,CB")*M.1F760* *=/Z3L;E*(SX.(CB")6).J^1*2B0/S6$+SZ$+Y"$+B60*2&1.MFJ.7B32 ?G+TCO.1R0"0*M.1B860J +ECM*-6-2 ?D3PWP7LWP7NSK* 6-"-*M.1F820& 7FB +OS+Z2$."6:6"*,6)*=2 ?G+TCO.1R8"0*M.1J820& 3FN .02$*"KD2 ?G+TCO.1N5"0*M.1N820& 3F. .(CK
):<27^ 3O?T. B8.1B0.MFJ.8F3. KC.=Z1.MFJ.8J3.1R820& 3FN .1F=20^ 3O?T. B9.0B0"060.J"1*6B0+ICF/C61*1B77GSO/O& *8B07Z*="+62.J"1*9B07GSO/OF .0B4"0*M.1F920& 3FN .1R=2 ^ 3O?T. V1"360.J&1*2B0+ICF/C61*1B77GSO/OF .5B3.MFJ.9V22 [I. CC*$J>+ZB"7GSO/OF .5B3.MFJ.9B32 ?G
TCO.9B0"060.JB2*0B03R7E* 6-6-* 3EOI3H;E7KSE3T;E* 6-"-*M.2F020& 3FN .06$*"KA2 ?G+TCO.2B5"0*M.2F025& 7F* .=CZ2 ?G+TCO.9B0"060.JB2*2B0/Z617POO*(SZ*,J"*"2"/ZF+")*M.2N020& 7F* +SZ$3S
E6$*(6$*,.,GZ")*M.2V060* .5B02 WR+M6 *-B-3TWR3NWN3R& 7MB 7ISN2"^ 3O?T. B2"260.JV2*2B0+ICF*(SS2)2,+EN+S&$.)F,.):<20^ 3O?T. B2"260.JV2*3B0/S6$+SZ$*"J;.MJJ.5B42 ?G+TCO.2J0"0*M.2B620& 3FJ .$:<*"J!2 ?G+TCO.2N6"0*M.2F660N 6$N=*$J&";6".JZ2*2B07GSO/OF .0B3.MJJ.6B
2 [I* SB*=2"2"^ 3O?T. V1"060.JZ2*4B0+ICF3S
E6$N(2$2,+EN+S&$2,WL7NN(*$&)*<J>*"J"2 ?G+TCO.1B5"0*M.2R625& 3FJ *$J=*&B"7GSO/OF .5B0.MJJ.6B5* SS*=SS.&."""*M.2Z620^ 3O?T. V1"060.JB3*0B03R7E* 6-2-. 3O7M7ESN+ACR*-6-.MNJ.0B1. OP"=61.JB3*2B0/Z617POO*(SZ6,6"6"*,*+&1.MNJ.0B32 [I. GZ*=B07GSO/O& "060.JB3*4B07Z*
.1F+.MNJ.0V4. OP"=60.JB3*6B07GSO/OF .0B4.MRJ.9B02 WR/M6 *=B=7ESN3SC3ESI3U
N+ECN3NOA7HN 7TWR7KWT/R6 "=6=.J&4*1B0/T6$3S
E2$6(2$N(*12)22N*.2F-*,*2+C&2.MRJ.9B22 [I* ST*=B"* B"7GSO/O& .0B0"0*M.5B060J +ECM*-6-6 WR3E/C7SKP3U
N6 WF+ECR7ESN3SC3ESI3U
N+ECN*-6-.MVJ.0B12 [I* ST*=J"2 ?G+TCO.5B5"0*M.5J060V 6$N=+ESG*(ST*,21"16).JB5*3B0+ICF/U6$*"J 2 ?G+TCO.5B5"0*M.5R060R 6$N=+ESG*(ST*,22"26).JB5*4B5+ICF/U:$.=B"2"^ 3O?T. J5"060.JB5*5B0+ICF/U6$*"KA2 ?G+TCO.2F3"060.JB5*5B1+ICF/U6$*"KB2 ?G+TCO.7F0"06 .JB5*5B2+I
F/U6$*"KC2 ?G+TCO.7B1"0*M.5Z020& 7FV *$J=+DB"7GSO/OJ .3B3"0*M.5Z021& 7FV *$J=+EB"7GSO/OF .0B0"0*M.5Z022& 7FV *$J=+FB"7GSO/OJ .3B2"0*M.5^020& 7FV *$J=+GB"7GSO/OZ .1B0" *M.5"021& 7FV *$J=+HB"7GSO/OJ .4B1"0*M.5&160N 7TCO.MVJ.2B02 WR+M6 *-B-3A[N3A
N3SV 3L7E7ESNE*M.5F220. 20.=.0F+.MVJ.2B22 [I. CK.>B22 ?G+TCO.9F0"060.JJ5*3B03K.(.06)3V3A*(SU")*M.5R2.5V220& 7FV *$J<*3B"7GSO/OF .3B0.0B0"0*M.5Z220& 7FV *$J=*4B"7GSO7GSO/OJ .4B0"0*M.5"220& 7FV *$J=.1F=20^ 3O?T. F2.0B0.MVJ.3B0. CK.=CK"-61.JN5*1B03K.(.06)3V3
*(SU")*M.5J320^ 3O?T. N2.3B0.MVJ.5B0. GC.=KC.MVJ.5B12 ?G+TCO.1R0"0*M.6B060J +ECM.=6=2 ;E3TOS3H	E3D;U3G;E2 GN+CCH3K3E7LKE. 6="=*M.6F020. 20.=.0F-.MZJ.0V12 [I* K+K.0.16)20^ 3O?T. B5"060.JB6*2B0+ICF3K.(.0F+.)V=2 ?G+TCO.5B0"0*M.6N020& 3F. .(CK*+&1*=B67GSO/OV 
0B0.MZJ.1B02 [I. CK*=B07GSO/OV .0B0.MZJ.1J02 [I. CK*<B07GSO/O& .0J1"0*M.6F120& 3F. .(CK.)"=2 ?G+TCO.2F1"060.JF6*2B0+ICF3K.(.06)29^ 3O?T. N2.4B0.MZJ.1B32 [I* K+K&0.=B12 ?G+TCO.2F0"060.JF6*4B0+ICF3K.(.06)*1B17GSO/OJ .2B2"0*M.6B260J .06$3S
E6$J(*$",+C62*1*)28.+.(CK.)F+2,N(.2F-.)"**+K+K&0*+&1.MZJ.3B02 [I. CR*$J=+AB"7GSO/OV .0B0.MZJ.3F02 [I. CR*$J=+BB"7GSO/O& .0B0"0*M.6B322& 7FJ .06$*"KC2 ?G+TCO.1V3"060.JN6*0B5+ICF+RR02=Z"2"^ 3O?T. B2.1B0.MZJ.3Z02 [I. CR*$J=+GB"7GSO/OJ .1B1"0*M.6B327& 7FJ .06
*"KH2 ?G+TCO.2R3"060.JN6*0B8+ICF+RR02=&"2"^ 3O?T. R2.3B0.MZJ.3&02 [I. CR*$J=+JB"7GSO/OJ .4B4"0*M.6N325& 7FJ .06$*"KK2 ?G+TCO.2J5"060.JN6*3B63K.(.06)3K.(*0.)"7*M.6N327& 7FJ .06$*"KD2 ?G+TCO.2J0"060.JN6*3B8+ICF+RR02=V"2"^ 3O?T. B5"060.JN6*4B03S?TP*M.7B060J 
ECM.=6=2 3K3E;I3EF 3K	T3OWN/N6 "=6=.JB7*1B03R7E* 6-2-Z 3E3H+E3R3F3A+LCS+SB$3NOI+HCT3LWER*M.7J020& 7FN .$:<*"B"7GSO/O& .0B0"0*M.7N020^ 3O?T. B5"060.JF7*0B03R7E* 6-6-V 3EWB3RWL3S;E2,Z 3A3L7SN 2$2 7EKE* 6-"-*M.7F120& 7FN *$J=2"^ 3O?T. B5"060.JF7.=6=2 ?K3NWT+
CT.=6=" *M.9F020Z +UOT62*:"$*M.9N020& 3FV +NOD22^ .,6"*=2""16).JB9*5B0+ICF/P6020^ *7B0+ICF/VV>20^ 3O?T. B9.1B0.M&J.0B8* SV*(	V*=SZ.M&J.0B92 ?G+TCO.9J0"0*M.9B120& 7FB +OS+Z2$6"WF7NSK3I;O*$2".16)21^ 3O?T. J9"060.JF9*1B0+ICF7POO*(SZ2,Z"3U/N3T?I+N2".16)21^ 3O
T. J9"260.JF9*2B03P	R+NOT64N:+TSR*(	N*&SZ.M&J.1B3. 7N/NF+.M&J.1B42 ?G+TCO.9J0"0*M.9B260B .16$*"J$.M&J.2B12 ?G+TCO/Z6$3S
E6$*(6$B,+OS+Z2$*"J *,&1.JJ9*5B0+ICF/FJ>25^ 3O?T. B9.1B06)B&*1Z$3S
E6$*(6$B,+OS+Z2$*"J(.*47SKT2$:(6)B&"$*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="=*M.9F520Z +OCR/V6060R 7
Z .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* SP6=J"7ESS3OWR6"N&+ESG*(SS.,J12,?P7SN(*$J,*:2"*1&3+NZ)P6$.JB1.4B1. 7N/NF+.MFJ.0J4.$F,222,+EN+S&$")*M.1R0*3B07GSO+TSR*(	N6&J"7ESS3OWR""*M.1V0*0B5+ES
*(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=7FB .5B=2 ?G+TCO.1&0"064.JB1.7B5.MFJ.0V765N 6$N=6$N&+ESG.(CS.$F,2,WL7NN(*0&$*)J&")6".JB1.7B62 ?G+S2$61B,*4Z)2";F+ZJ(.MFJ.0^765N 6$N=6$N&+ESG.(C
.$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*0B43P	R+NOT64N:+TSR*(	N*&SS.MFJ.0B925N .06$*"KZ.MFJ.0F960N *$J=""*M.1&0*2B03N:="+61.JB1.9B32 ?G+TCO.5B0"0*M.1B1*0B03R7E. 6=2=2 3O	G3SC3EF 3USS3RWU3CWK. 6="=*M.1B1*1B0+ICF/S6
*"B"7GSO/O& .0B0"0*M.1F1*0B03R7E* 6-2-: 3IC3TF 3USS3ROU+K6 "-6-.JF1.1B1. WP2=?P7SN(*$J,3NOI+HKT*,&1.MFJ.1F121& 7FB .5B=2 ?G+TCO.1J1"060.JF1.1B2* SP2=&"+FZ"3S
E6$N(6$B,.5V+2,WL7NN(*$&)2&^"3O?T6"N&+TSR*(/N"26).JF1.1V26 KP7ISN.*47SKT2$:(6)B&"$*M.1F1*3B0/P6$2"?G+TKO6&SS+R"$/NN+")*M.1F1*3B53P	R+NOT64N:+TSR*(/N*1Z)P6$.JF1.1B4. 7N/NJ+.MFJ.1R165N *$J=""*M.1F1*5B07RSE3U;R.MFJ.1B260J +ECM*-6-2 ;U3DF 3USS3ROU+K6 "-6-.JF1
2B1. WP2=?P7SN(*$J,3USN."F,")*M.1J1*1B1+ICF/P6520^ 3O?T. F1.3B0.MFJ.1J260B *$J=+IKF2&WS+G"$+S2$61B,.5F-*)J&7GSO+OZ"7SKT2$:(*+&2.MFJ.1J265B 3R;I/TR6:SS+R"$+NZ)P6$.JF1.2B3* SP2=^"3O?T6"N&+TSR*(/N"36).JF1.2V36 KP7ISN.*47SKT2$:(*+&1*&SP.MFJ.1R260B *$J=+IKF2&W
+G"$+S2$+P.5232,+EN+S&$*)J&7GSO+OZ"7SKT2$:(*+&4.MFJ.1R265B 3R;I/TR6:SS+R"$/NJ+6)B&"$*M.1J1*5B03N:="+63.JF1.2V5* SS*=J".MFJ.1Z260J 7EWTR7N.JF1.3B02 WR+M6 *-B-3OWD3RF 3USS3ROU+K6 "-6-.JF1.3B1. WP2=?P7SN(*$J,3OWD+R2""16)"0*M.1N1*2B0/P6$2"[I6"N&+ESG*(SS")*M.1
1*2B53P	R+NOT64N:+TSR*(	N+S2$+P.5242,+EN+S&$*)J&7GSO+OZ"6:SS+R"$/NF+6)B&"$*M.1N1*4B03N:="+62.JF1.3V4* SS*=J".MFJ.1V360J 7EWTR7N.JF1.4B02 WR+M6 *-B-7VKE3GWL3IC7SWA7SKD3U/C* 6-"-*M.1R1*1B03P	R+NOT64N:+TSR*(	N2&&"+FZ"+SZ$2"?G+TKO6&SS+R"$/NJ+")*M.1R1*2B03N:="
61.JF1.4B3* SS*=J".MFJ.1R460J 7EWTR7N.JF1.5B02 WR+M6 *-B-3T	E+LCT*-6-.MFJ.1F560B 65B=+ICF/P6520^ 3O?T. F1.4B0.MFJ.1J52,WL7NN(*$&)*&2"6"N&+ESG*(SS*,21.1R1"060.JJ1.0B02 WR/M6 *=B=3F;U*-B-3D[E6 WF7NSK3I;O* 6-"-*M.1F2*1B03FZ="+61.JJ1.1B22 [I. ;F*2B57GSO/O& .0
1"0*M.1F2*3B07VZ="+61.JJ1.1B42 [I. ;V*5B07GSO/O& .0B1"0*M.1F2*5B0+V"$/V6)+SZ$."6(2=;F2"N&+HSR*(	F.&CC*$J&"(6".JJ1.1B6* SS2=R"3E[F+NZ"7CKH2$Z(2)N&*0Z$*"J(.MFJ.2^120N .06$*"K[.MFJ.2"120^ 3O?T. B1"360.JN1.0B02 WR/M6 *=B=3B
E3I;N. 6="=*M.1B3*1B0+ICF+PR0*<J>+AB"7GSO/OV .0B0.MFJ.3R060B 3R;I/TR6:SS+R"$+NZ)2"WR3MZ 3IWL/VR*:J"7LSP*:J"""*M.1B3*5B0+PR02=J"""*M.1B3*6B03N:="+61.JN1.0B72 ?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*2B03P	R+NOT64N:+TSR*(	N6&J"7EWT+RKN.MFJ.3J625: *=/N"1*M.1Z3*3B07GSO/OV .0B0.MFJ.3R660B 3R;I/TR6:SS+R"$+NZ)2"WR3MN 7LOO/ER2"N&+HSR.("2*)J&3S?TP6".JN1.6B5. 7N/NF+.MFJ.3Z660B .06$*"KC.MFJ.3^620^ 3O?T. B5"060.JB2.0B
2 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.1B26 KP7ISN.*47SKT2$.(21.(*0&)2&^"3O?T6"N&+TSR*(	N.MJJ.0N120^ 3O?T. B6"060.JB2.2B02 WR+M6 *-B-7EOL3EF 3NGF+NCG*-6-
MJJ.0F260B 3R;I/TR6:SS+R"$+K"1+K&0*)J&7GSO+OZ"7SKT2$:(*+&1.MJJ.0N220. 21.(.06)N*M.2J0*3B13N:="+61.JB2.2B42 ?G+TCO.5B0"0*M.2B1*0B03R7E. 6=6=^ 3H3I3EF 3NGF+NCG.=6=.MJJ.1N020. 22.(.06)N*M.2B1*4B07GOO+UCB.1B1"060.JF2.0B5.2B1*6B07GSO/OV .0B0.MJJ.1B160J .1J160B
3R;I/TR6:SS+R"$+NZ)2"?G3N:="+61.JF2.1B56 KP7ISN.*47SKT.MJJ.1Z120^ 3O?T. B6"060.JJ2.0B02 WR+M6 *-B-7RCE7ESA2 ;A3F;A/G6 "=6=.JJ2.0B3. GK.(CK2):=.MJJ.2R020^ 3O?T. B5"060.JJ2.2B02 WR+M6 *-B-7RCE7ESA2 ;E+DCE*-6-.MJJ.2F220^ 7OWS/BF .1B0"0*M.2J2*3B03P	R+NOT64N:+
SR*(	N2&^"3O?T6"N&+TSR.(GK.(CK")6).JJ2.2B4. 7N/NF+.MJJ.2V220^ 3O?T. B6"060.JN2.0B02 WR/M6 *=B=7FKO2 ;A3F;A/G6 "=6=.JN2.0B3. WP2=?P7SN(*$J,*=2""16).JN2.0B42 [I. WP.<F=2 ?G+TCO.9B0"060.JN2.0B5. OK2$.(.06)3S
E6$N(.$F,.,WP*-&1.MJJ.3Z060B *$J=7FKO6"N&"$*M.2B3*7B0/S6$""6".JN2.0B8. GC"=60.JN2.0B92 ?G+TCO.1R0"0*M.2F3*0B03R7E* 6-2-Z +O7R+TCO*-6-.MJJ.3F160B 6$B=*$J&+TKO*&SS.MJJ.3J160N *$J=""*M.2F3*3B07GSO/OV .0B0.MJJ.3B260J +ECM*-6-2 ?F7RR-7ON-7TCE* 6-"-*M.2J3*1B0/P
$+PZ$6"SS+EKP*&SS.MJJ.3F265N *$J=""*M.2J3*2B07GSO/OV .0B0.MJJ.3B360J +ECM*-6-2 ?F3RR-+O6 "-6-.JN2.3B16 KP7ISN.*47SKT2$:(6)B&"$*M.2N3*2B03N:="+61.JN2.3B32 ?G+TCO.5B0"0*M.2R3*0B03R7E* 6-2-: 7ESX* 6-"-*M.2R3*2B03P	R+NOT64N:+TSR*(	N2&:"7ESX2".&*3"$+K&0.MJJ.3J
25: *=/N"1*M.2R3*3B0+KR3.(CK*)J=""*M.2R3*4B07GSO/OZ .0B0.MJJ.4B060J +ECM.=6=2 GC+SCE3A[N3A
N. 6="=*M.2B4*3B03P	R+NOT64N:+TSR*(	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/P
57POO*(SS*,2"6"B,.5F+")*M.2F4*0B4+ICF/P6520^ .MJJ.4B126^ 3O?T. R2.1N0.MJJ.4B12):=.0F-.MJJ.4F160B 65B=+OS+S2$+TCO.2F4"860.JR2.1B36 KP7ISN.*46$N(.$F,.,WP*-&12&^"3O?T6"N&+TSR.(CN")*M.2F4*5B03N:="+61.JR2.1B6* SS2=WS+G"$+S2$+P.5212,+EN+S&$")*M.2F4*7B07GSO/OJ .
F1"0*M.2F4*8B03P	R+NOT64N:+TSR*(	N2&&"+FZ"+KR3.(CK6)N&*$J&7GSO+OZ"7SKT2$:("06).JR2.2B0. 7N/NJ+.MJJ.4B265N *$J=""*M.2J4*1B07GSO/OV .0B0.MJJ.4B360J +ECM*-6-2 GC+SCE3F3A3LV +TSR*(	N2&^"3O?T6"N&+TSR.(GK.(CK3R;I/TR6:SS+R"$+K"2+K&0*)J&7GSO.JR2.3B42 ?G+TCO.1R0"0
M.2R4*0B0.4F460B 3R;I/TR6:SS+R"$+K"1+K&0*)J&7GSO+OZ"7SKT2$:(")*M.2R4*2B03P	R+NOT64N:+TSR.(KK.(CK*)Z)2"?G+TKO6&SS+R"$N6).JR2.4V2. CK.=CK"-61.JR2.4B32 ?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*3B03P	R+
OT64N:+TSR*(	N2&R"7I+M.$^(*2J).MJJ.5R160B 3R;I/TR6:SS+R"$/NF+*)J&3F3I/EN*:Z"3S
E6$N(.$Z,2,WL7NN(*$&).MJJ.5V160B 3R;I/TR6:SS+R"$/NJ+*)J&7ICN+UOT63*:"$6".JV2.1B6. KK.(CK2):="+62.JV2.1B7. GK.(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 3R;I/TR6:SS+R"$+NZ)2"?G+TKO
&SS+R"$+K"2+K&0")*M.2J5*2B03N:="+61.JV2.2B36 KP7ISN.*47SKT2$.(21.(*0&)2&&"3F;E/DN7GSO+OZ"7SKT2$:(")*M.2J5*4B03P	R+NOT64N:+TSR*(	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 GM3RW
2 	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-.0F3"0*M.8N0*0B43P	R+NOT64N:+TSR3O2 "7*M.8N0*2B07FKO. SL*=B0+TCO2$2(*8B)7GSO/O" .0Z3"0*M.8N0*3B22"^ 3O?T. B8.3B4.M"J.0N364B 3R;I/TR6:SS+R"$+L"6+L&8*)J&7GOO+UKB6&SS+R"$+L"2+L&4")*M.8N0*3B67GSO/O" .0"3"0*M.8N0*4B03P	R+NOT64N:+TSR.([L.(L*)Z)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 3R;I2"WV3RWF3IWN3R;U+GJ *"J;*"Z"+LR5.3B8.M"J.0^360B 3R;I+TJ ****3FE7HSL""*M.8N0*7B13S?TP*M.8N0*8B0+TSR*(	N2&V"+NKD.M"J.0F420^ 3O?T. F9.0B0.M&J.0B060B 3R;I+TJ ****3FE7LKE6 
Z3IOS3H;E2 WD7NN 3C3H7UOE3S3E3WWO3RWT+RKN.M&J.0B061B 3R;I+TJ * B 7MSI2 ?C+DCE/C612"N;*1J;3USN. KC.=."C62.JB9.0J06 SSO7P.JB9.1B06 KP7ISN* 6"6-N-7YSS3E
M3R;E/Z+E/C612"N;*1J;/C622"N;*2J;3K.(.06)2".;.(CK")*M.9F0*0B13P	R+NCT*"B . OL.=."/L.3."
L.=."/L.7."7F2"Z;.M&J.0B162N 7TCO.M&J.0J160B 3R;I+TJ ****3FE7LKE2 ;I2 WD7RN 3CGH7CSH7EWL/N+G3K.(.06)2".;.(CK*)J;/C622"N;"2*M.9F0*2B13S?TP*M.9J0*0B03P	R+NCT*"**2*WF3HWL3R& 7MB 3R
O3R7A7MWA3FGBU6".JB9.2F06 SSO7P.JF9.0B02 3C3OWS"62.JF9.0B42 3C3OWS"64.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