File PCD.BA (BASIC source file)

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

* B 3R7E* 6-6-B +C6 2 WU7BKE7SSE7ZKE* 6-2-2 7OSE+HCE3PWH*MBJ6 J +ECM* B 2 WV3R	S+OCN7MSI2 ?K3NWT+XCT3V7O. V1*.:6"768*JB 2 WR/M6 *=B=7VKE3E;I7BKA3U
N+ECN.=6=*MBJ2 R +ICM+X"$*324*1&2*,SY.(N1*,&8*MBJ2 R +ICM+Z"$*7&2*,SS.(J7")*M* B 3D7I* ST*(&2*,SU*(&1.,CR.$F(6)B,*1"$"16)*JB 2 	D7MN *0"$*7&2.,OK.$F(.0F,"66)*JB 2 	D3M2 *1"$*320*82)+L"2*3&0.,WL.$R(.0",2)2,.6R("06)*JB 2 	D7MZ .$V(.0^,*22)+N"$*2&0*MBJ2 R +I
M+C"$*3&4.,CC.$F(")*M* B 3D7I* SB*(&1.,CP.$F(")*M* B 3D7I* SM.("1.,R3")*M* B 3D7I* SP.(V2.0^,"26)*JB 2 WR/M6 *=B=3SC3LWU3SWS3L?W7ESR+ECR.=6=*MBJ2 R 3AGT2 F"+UKS2,J"3E	G+NKN2,J"+IKS2,J"+EKI2,R"3A;N*"J,3ESN+E2"6"WF7EKH+E2"6"WF7EKH*"J,3FWUR6"*JB 2 GD+TCA2"GF
LOL*"J,3GWL3IC*"J,3MOA+HKE2,6"3AC*"J,3S;O+SKT6,N"3OGL3NWG*"J,3SC7RSI3TWW3IWT""*M* B 7DSA+AJ 3SC7RSI+T2"2"?V+N2"2"WW+NKN6,^"3ISE3ER3OWL*"J,3WWI7DKE3H3O""*M* B 7DSA+AJ 3D7I*"J,7DWR3CWK*"J,7DWR+CKK2,R"3AWT+N2"2"SE*"J,3F;U3K	T+OSN*"J,3F;U3K	T+OKN*MBJ2 R 3AGT2
2"7IOE*"J,3O[E3FWN*"J,3SC3R	E+BKE6,N"7CKH3EKI*"J,3SC3LWI3SWS*"J,3SC3LWI+SKS*MBJ2 R 3AGT2 R"+IKM6,B"3R;I/TR*:2"6"KP7ISN.*4*"J,7DSA+A2"2";E+D2"*"2"*"2"2";I7PSU*"J,3F3IE6"*JB 2 GD+TCA6"KP7ISN*"J,3P	R+NKT2,N"7LOO+E2"2"3C3OWS""*M* B /C6$2"
E3D[L3BH3K?N3IOI3J3L3K7Q3MG[7A+Z2$J 3CGA+ZKZ*MBJ2 6 .$B(.)6 * B"* B * B * B * B 2 SA+AB9* B +AB * B * B * B ""*M* B +M"$*1B)*=J 3EV 3G
C3EWG+GB 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6"*JB * SM*(&2* B=2"
B3CKG3G
B+CCG* B * B * B * B * B * B * B * J *MBJ2 6 .$N(.)6 2 V"3G
E3EWG3G
E2 J .1KB2 J * CB2 J *4CB* B * CB""*M* B +M"$*4B)*=J 3G^ * CG3G^ * B * B * B * B * B * B * B * B " 6"*JB * SM*(&5* B=2"
B3BKG3G
B+BCG* B * B * B * B * B * B * B * J *MBJ2 6 .$Z(.)6 2 V"3G
E3EWG3G
E2 J .1KB2 J * CB2 J *4CB* B * CB""*M* B +M"$*7B)*=J 3EV +GB * B * B 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6"*JB * SM*(&8* B=*"CE* B * B +ECG. GB+BB2* CB+BB . SB+BB * B +BJ *MBJ2 6 .$&(.)6 2 V"3G
E3EWG3G
E2 J *1B 2 J * CB2 J *4CB* B * CB""*M* B +M"$*1&0*=J * B * B * B * B . V * B8* B * B * B * B * B " 6"*JB * SM.(F1*)B=*"B * B * B6* B * B *0B * B * B * B * B * B * J *MBJ2 6 .$F(.26)* B"* B * B * B * B 2 SF+FB9* B * B * B * B * B ""*M* B +M"$*1&3*=J +EB * 
 +ECG* B +BB1* B 3BJ * B 3BJ4* B 2 J " 6"*JB * SM.(R1*)B=*"B * B * B * B * B * B * B * B * B . ^ * B * J *MBJ2 6 .$F(.56)* B"* B * B * B * B * B * B * B * B * B 2 " * B ""*M* B +M"$*1&6*=J 3COG+GB * B * B 3BJ1*2B 3BJ * B 3BJ4* B 2 J " 6"*JB * SM.(^1*)B=*"
 * B * B . N * B * B * B * B * B * B * B * J *MBJ2 R +ICM+R"$*4&0*MBJ6 J *$J=3AGA3FGA3AKI3C[B3BKB3JKB3BKD3BKB3BKB3FKE3B/B3B[C3BGB6"*JB 2 WR/M6 *=B=3I	N3TGI7LOI7IKE3U
N+ECN.=6=*MBJ6 B .$F(*)J=3D[E7F+N*(3X/Y6)7X&-2*;I7T"(*/	Y""*M* B /NJ=*MBJ2 Z .=R6*MBJ6 Z .=F-*MBJ6 J +ECM.=6=2 ?K3NWT+XCT.=6=*MBJ6 B 3R;I+TJ 3K;O7TE+TB:""6;*JB 2 ;I7PSU* SN*MBJ2 & 3F: .$:<*"B"7GSO/O& .0B0.M^J*0B03R7E. 6=6=B 3R
O3R7A3MGN+MCE.=6=*MBJ6 B 3R;I+TJ 3P?R3GGR/M+M. ."*MBJ2 & 7NWP3T: "$*M* B +ICF7POO*(SN.,*"."F,.):<20^ 3O?T. R7"0*M* B /N6$6"	S+SJ:*&SN.M^J*4B0+ICF7POO*(SN*,:"."F,.):<20^ 3O?T. Z7"0*M* B /N6$+NZ$6"B.C6".JZ720Z 3IWL.*2N6$*JB 2 WR/M6 *=B=3I	N3TGI7LOI7IKE3U
N+ECN.=6=*MBJ2 Z +OCR/B6061R /ON "4*M* B 3RGE7D" 2$J("06)*JB 2 WN+XCTB60*JB 2 ?F3RJ .0F=2 ?T. N1*MBJ6 J 3ESA* SY.(CB")*M* B 7NE3TJ "0*M* B /C62"1*M* B /C61"1*M* B +PR02=F"""*M* B +CR06=*"""*M* B /K60"0*M* B /A60"-61*JB . OL.=F-*MBJ2 2 *76="1*M* B /P63"0*M
9B02 WR/M6 *=B=3E;I3GKA/E6 "=6=*JB 2 ;I7PSU.*2Z6$*JB 2 [I2 ;E/DJ2 ?G+TCO.8N0"060*JB 6 KP7ISN* SZ*MBJ6 J +ECM.=6=2 WZ3IC7E
N7EOI3EF 3N3A3YWS. 6="=*M* B /ZB=*MBJ6 * 202=+EN+Z&$*MBJ2 & 7FB .3F=2 ?G+TCO.3B0"0*M.1N060* *=/Z"1*M.1R020& 7F* .>CZ2 ?G+TCO.9B0*MBJ2 J 6$N=+ESG*(SZ*,3ZZ6)*JB 2 WR+M6 *-B-3E;I3Z3E3Z	E3CWH+N6 "-6-*JB 2 [I* SB6=."2"^ 3O?T. B3"060*JB 2 [I* SB*=J"*"B"7GSO/OJ 
0B0*MBJ2 & 3FJ *$J=* B"7GSO/OF .0B3*MBJ2 & 3FJ *$J=*:B"7GSO/OF .8B0*MBJ2 & 3FJ *$J=*=B"7GSO/OF .9B0*MBJ2 & 3FJ *$J=*;B"7GSO/OF .5B7*MBJ6 J +ECM*-6-6 WF7NSK3I;O3SWD+FB.*-6-*MBJ2 & 3FN .0:$2=F"2"^ 3O?T. N1"060*JB 2 [I. CP*$J>+AB"7GSO/O& .0B2"0*M* B +ICF/B2$
>J *(B"7GSO/OF .3B0*MBJ2 ^ 3O?T. J1.1B0.MFJ.3B02 WR+M6 *-B-3SC3LWU3SWS3L?W7ESR+ECR*-6-*MBJ2 & 3FJ *$J>+ZB"7GSO/OF .4B6*MBJ2 & 3FJ *$J<+AB"7GSO/OF .4B6*MBJ2 J 61B=+OS2"KA2 R +ECF2 ^ 7MN * B +VCW* 2"+B2$"16)*JB 2 [I. GB*=B07GSO/OF .4B0*MBJ2 J 62B=+OS*"CA2 S
+EB 2 
F* CM6 N +VB +W2"+B2$"16)*JB 2 ?F3RJ 20J=61R 3OJ "2*M* B +ICF7POO*(SZ*,SX.(CB6)*,6)*=2 ?G+TCO.1B6"0*M* B 7NE3TJ "0*M.1B420J 61B=+OS*"CD2 V 3F2 +OCS* J *,SB*,&1.+F2*MBJ2 & 3FJ .1B=2 ?G+TCO.1B5"0*M* B /B627POO*(B"2 R 3EZ +LCO6 N 2"J,.$F,.)J+"1*M* B 7FKO. CB
=GB2 ?T. KB*MBJ2 & 7FB +OS+Z2$+X"$+B&0*,	Z*=CZ7GSO/OF .7B0*MBJ2 : 7ESX. CB.MFJ.4B62 [I. CC*$J=+AB"7GSO/OJ .6B0.MFJ.5B02 WR+M6 *-B-7EOR7E+T3U
N+ECN*-6-*MBJ2 & 7FZ .>B=2 ?G+TCO.9B5"0*M.1N560J +ECM*-6-2 WU7BKE3TGR3G;E2 	E7NOE2 WZ3IC7EON* 6-"-*M* B /S6$+SZ$B6$*JB 2 ?G+TCO.1N0"0*M.1^520N .2F=*MBJ6 * *=/Z"1*M* B 7GSO/OR .9B0.MFJ.6B02 WR+M6 *-B-7VKE3AKR7ESI+ECN7DKE2 OS7HWL7EOS7E
L7OSR+ECR*-6-*MBJ2 N 22F=+SC3S
E2$N(2$J,20J,*0&).-R6*MBJ6 * *=/Z3L;E*(SX.(CB")6)*JB 2 ?G+TCO.4B9"0*M.1B720N .06$3S
E2$N(2$J,20J,"06)*JB . 7Z3Z2++EN+X"$+B&0")*M* B /S6$+SZ$+Y"$+B60*2&1*MBJ2 ^ 3O?T. B1"460.J"1*0B03R7E* 6-2-R 7OCP7ECL3U/N+T6 "-6-*JB 2 [I2 ?P7S*(*$J,*:J=*,	Z*=CZ7GSO/OF .8B4*MBJ2 & 3FN .02$*"KD2 ?G+TCO.1N5"0*M* B +ICF3K.(.02)*>B77GSO/O" .0B1"0*M* B /C62"16
*JB . 7Z/ZF+*MBJ2 ^ 3O?T. &4"060.J"1*4B0+ICF/C61*1B07GSO/O& .0B0"0*M* B +ICF/C61*4B 7GSO/O& .0B0"0*M* B +ICF/C61*1B77GSO/O& .0B0"0*M* B /S6$+SZ$*"J=*MBJ6 * *=/Z"2*M* B 7GSO/OF .0B4.MFJ.9B02 [I. GC.=B12 ?G+TCO.1N5"0*M* B +ICF/C61*4B 7GSO/OF .5B3*MBJ2 & 3FN
.1F=27^ 3O?T. V1"360*JB 2 [I. CC*$J=+[B"7GSO/OF .5B3*MBJ2 & 3FN .02$*"KA2 ?G+TCO.1N5"0*M* B 7GSO/O& .0B0"0*M.2B060J +ECM*-6-2 WZ3IC3E/N7EST+ECN*-6-*MBJ2 & 3FN .06$*"KA2 ?G+TCO.2B5"0*M* B +ICF7Z*=20^ 3O?T. B9.0B0.MJJ.0B2. GZ2=?P7S*(*$J,*"J"*,/Z"16)*JB 2 [I
 GZ*=B07GSO/O& .0B0"0*M* B /S6$+SZ$3S
E6$*(6$*,.,GZ")*M* B 7Z*=.1F+*MBJ2 ^ 3O?T. B1"460.JV2*0B03R7E* 6-6-R 3R;E7NKE2 7I6 KP7ISN* 6-"-*M* B +ICF/S6$6"KP7ISN2"^ 3O?T. B2"260*JB 2 [I2 ?P+SJ(*:2;*"Z"6"N,+ESG*(SS2,WL7NN(*$2)3L;E*(SS*)2).12)*>B07GSO/OJ .0B2*MBJ6 N 6$N=*$J&";6"*JB 2 ?G+TCO.2J0"0*M.2
620& 3FJ .$:<*"J!2 ?G+TCO.2N6"0*M* B /S6$+SZ$*"J;*MBJ2 ^ 3O?T. B1"360.JZ2*3B0+ICF/B6$*"J,2 ?G+TCO.1B5"0*M* B +ICF3S
E6$N(2$2,+EN+S&$2,WL7NN(*$&)*<J>*"J"2 ?G+TCO.1B5"0*M* B +ICF/B6$*"J&2 ?G+TCO.1B5"0*M* B /S6$+SZ$*"J;*MBJ2 ^ 3O?T. V1"060.JB3*0B03R7E* 6-2-. 3O7M7ESN+ACR*-6-*MBJ6 B .3F=*MBJ6 * 61B=+OS+Z2$*"K]*,/Z"16)*JB 2 [I. GZ*=B07GSO/O& "060*JB . 7Z+Z.1"1*M* B /P63"0*M
 B 7GSO/OF .0B4.MRJ.9B02 WR/M6 *=B=7ESN3SC3ESI3U
N+ECN3NOA7HN 7TWR7KWT/R6 "=6=*JB * ST2=WS+G"$+M"$+C&1*,*2+C62.1J,.*KC")*M* B +ICF/T6$*"B 2"^ 3O?T. B9.0B0.MVJ.0B02 WR+M6 *-B-3RWU7COK7PWR+NCG3FWU3RV 7NOT3CWH7IWD3NWG+N6 "-6-*JB 2 [I* ST*=J"2 ?G+TCO.5B5"0*M* B /U6$3S
E6$R(.$F,*,&1*MBJ2 & 7FV *$J=* B"7GSO/OV .5B0*MBJ6 R 6$N=+ESG*(ST*,22"26)*JB 2 [I* SU*>J=*0B"7GSO/OV .0^4.MVJ.0^42 [I* SU*<J=*9B"7GSO/OV .2B0*MBJ2 & 7FV *$J=+AB"7GSO/OJ .3B1"0*M* B +ICF/U6$*"KB2 ?G+TCO.7F0"06 *JB 2 [I* SU2=N"2"^ 3O?T. F7"060*JB 2 [I* SU2=
"2"^ 3O?T. N2.3B0*MBJ2 & 7FV *$J=+EB"7GSO/OF .0B0"0*M* B +ICF/U6$*"KF2 ?G+TCO.2J3"060*JB 2 [I* SU2=^"2"^ 3O?T. F6*0B0*MBJ2 & 7FV *$J=+HB"7GSO/OJ .4B1"0*M* B 3S?TP*M.5B260J +ECM*-6-2 ;A3F;A+GCS3EWL3M;ET7E*JB . CK.=CK"+61*JB 2 [I. CK.>B22 ?G+TCO.9F0"060*JB 
 K+K&02=GV7LV("$6)*JB 2 [I* SU.=B"2"^ 3O?T. V2.0B0*MBJ2 & 7FV *$J<*3B"7GSO/OF .3B0"0*M* B +ICF/U6$*"J32 ?G+TCO.2B0"060*JB 2 [I* SU.=R"2"^ 3O?T. J2.0B0*MBJ2 & 7FV *$J=*7B"7GSO/OJ .4B0"0*M* B +ICF/U6$*"J62 ?G+TCO.2B3"060*JB 2 [I. GC.=B12 ?G+TCO.2B1"060*JB .
CK.=CK"-61*JB * K+K&02=GV7LV("$6)*JB 2 ?G+TCO.2N3"060.JV5*0B0/C61C62*JBL2 ^ 3O?T. B1"460.JB6*0B03R7E. 6=2=V 7NOT3CWH7IWD3NWG3N: 3AC2 WK3LWL/R6 "=6=*JB . CK.=CK"-61*JB 2 [I* K+K.0.16)20^ 3O?T. B5"060*JB 2 [I* K+K.0.16)25^ 3O?T. B5"060*JB 2 [I* K+K.0.16)26^
3O?T. B5"060.JF6*0B0+ICF/K6020^ 3O?T. B5"060*JB 2 [I. CK*<B07GSO/O& .0J1"0*M* B +ICF3K.(.06)28^ 3O?T. F2.1B0*MBJ2 & 3F. .(CK.)&=2 ?G+TCO.2R3"060*JB 2 [I* K+K&0.=B12 ?G+TCO.2F0"060*JB 2 [I* K+K&0.=F12 ?G+TCO.2J2"060*JB . CR6$N=+ESG*(SR2,N(.2F-.)"**+K+K&0*+
1.(KC*-&1**.83K.(*0.)"16)*JB 2 [I. CR*$J=+AB"7GSO/OV .0B0*MBJ2 & 7FJ .06$*"KB2 ?G+TCO.9B0"060*JB 2 [I. CR*$J=+CB"7GSO/OF .3B5"0*M* B +ICF+RR02=Z"2"^ 3O?T. B2.1B0*MBJ2 & 7FJ .06$*"KG2 ?G+TCO.2F1"060*JB 2 [I. CR*$J=+HB"7GSO/OJ .3B4"0*M* B +ICF+RR02=&"2"^ 3O
T. R2.3B0*MBJ2 & 7FJ .06$*"KJ2 ?G+TCO.2R4"060*JB 2 [I. CR*$J=+KB"7GSO/OJ .5B2"0*M* B 3K.(.06)3K.(*0.)"7*M* B +ICF+RR02=R"2"^ 3O?T. B2.2B0*MBJ2 & 7FJ .06$*"KE2 ?G+TCO.5B0"0*M* B 3S?TP*M* B 3R7E. 6=2=. 3L	E+NCE7ASK3I;O+ECN.=6=.M^J.0B12 WR+M6 *-B-3FE7LKE2,GF
LOL* SS2 	N7CSH2 WLE7R*JB 2 [I* SS*<J>2"^ 3O?T. B9.0B0*MBJ2 ^ 3O?T. B5"060.JF7*0B03R7E* 6-6-V 3EWB3RWL3S;E2,Z 3A3L7SN 2$2 7EKE* 6-"-*M* B +ICF/S6$*"B"7GSO/OV .0B0*MBJ2 ^ 3O?T. B1.0B0.M&J.0B02 WR/M6 *=B=3K;O7TE/T6 *=B=*MBJ2 Z 3IWL.*2+NZ$2"..O6".JB9*2B07ICN
UOT62*:"$*M* B +ICF3ESN*B27GSO/O& .4B0*MBJ6 B 60B=+OS+Z2$."6=."F,")*M* B +ICF/P6020^ 3O?T. F9"060.JB9*6B07VZ="+61*JB 2 [I. ;V*5B07GSO/O& .0B1"0*M* B +V"$/V6)Z6$*JB 2 ?G+TCO.9J0"0*M.9B120& 7FB +OS+Z2$6"WF7NSK3I;O*$2".16)21^ 3O?T. J9"060*JB 2 [I2 ?P7S*(*$J,
F;U3K	T+OKN*,&1*=B17GSO/O& .2B2*MBJ6 B 2$:(6)*="$*M* B 3N:="+61*JB 2 ?G+TCO.9J0"0*M.9B260B .16$*"J$*MBJ2 R 66B=+OS+Z2$*"J:*,&1*MBJ2 & 3FR .6B=2 ?G+TCO.9N2"0*M* B /Z6$3S
E6$*(.$F,.,[D*-&1*&2"6"N&+ESG*(SZ.,[D*+213L;E*(SZ")6)*JB 2 ?G+TCO.9N2"0*M.9J260B .16$""6".JJ9*3B0/Z6$3S
E6$*(6$B,+OS+Z2$*"J *,&1*+213L;E*(SZ")6)*JB . 7F/FF+*MBJ2 & 3FZ .>&82 ?G+TCO.9F0"060*JB * SP*(	N2=R"3E[F+NZ"7CKH2$Z(6)B&*1Z$3S
E6$*(6$B,+OS+Z2$*"J(*,&12,WL7N*(*$&)*MBJ2 : *=/N"1*M* B /Z6$3S
E6$*(.$F,2,?P7S*(*$J,*(2"*1&).&6"*=Z"2";F2"N&+HSR*(	F.&GP*$J&"(6"*JB 2 ?G+TCO.9Z0"0*M.9B420N 7LOO/EJ*MBJ2 ^ 3O?T. B7"0*M.9B560J +ECM.=6=6 KE7SSE3Z;U3G;E. 6="=*M* B 7FKO. CV*=B0+TCOV*M* B /P607POO*(SV.(CV*)J,*=J=*,&1*MBJ2 & 7FB +OS+Z2$3S
E6$Z(6$Z(*02)61B,.0F-6)*,.):<3Z^ 3O?T. V9"760*JB * SS*=SS2&WS+G"$+V"$+V&0.,CP*+223L;E*(SV.(CV*)&)*MBJ6 * *=/Z+P60"1*M* B 7GSO/OF .0B4.M&J.5B72 WN+XCTV60*JB 2 ?G+TCO.1N5"0*M.1B0*0B03R7E. 6=2=V 3I[N3AC3EF 3NWW7IWS+NCG.=6=*MBJ2 & 7FN *$J=2"^ 3O?T. B9.0B0*MBJ
 & 7FB .02$2>F"2"^ 3O?T. B1.0"1*MBJ2 & 3FN .06$*"K[2 ?G+TCO.1&0"060*JB 2 [I. CC*$J<+AB"7GSO/OF .0B9"0*M* B 7GSO/O& .0B2"0*M.1B0*1B8+ICF+CR02<F"2"^ 3O?T. B9.2B0*MBJ2 & 3FN .06$*"K[2 ?G+TCO.9J0"060*JB 2 [I2 WS+G"$+S2$.1F,*)J=3^"3O?T. B8.2B0*MBJ2 & 3FN .06$*
KB2 ?G+TCO.1N0"060*JB 2 [I2 ?P7SN(*$J,3GE3NOA+H2".16)20^ 3O?T. B1.0B8*MBJ6 N 6$N=+ESG*(SS*,28*1&5*MBJ2 ^ 3O?T. B8.2B7.MFJ.0"020& 7FB +OS+S2$2"WG3H;E3AC."F,.)B=2 ?G+TCO.1&0"060*JB * SS2=WS+G"$+S2$.9F,"66)*JB 2 ?G+TCO.8J0"760.JB1.3B02 WR+M6 *-B-3LWI+S6 "-6-
JB 2 [I2 ?P7SN(*$J,3A[N3A
N*J:*,&6*=B67GSO/OF .0B5"0*M* B +ICF7POO*(SS2,F"3NGF+NOG."Z,.)Z=2 ?G+TCO.1R0"060*JB 2 [I2 ?P7SN(*$J,*J:*,&6*=B67GSO/OF .0B6"0*M* B 7GSO/OF .0B9"0*M.1R0*0B0+P"$/N6)2"WR3S?T+RKE2&WS+G"$+S2$*1227POO*(SS.,*"."F,*36)"16)*JB . 7N/NF+*MBJ6 N 6$N=+ESG*(SS*,21*5Z)
S
E6$N(.$F,222,+EN+S&$")*M* B 7GSO/OF .0B9"0*M.1V0*0B0+P"$/N6)2"WR3S?T+RKE*MBJ2 : *=/N"1*M* B /S6$2"WR+AKD2&WS+G"$+S2$*1243L;E*(SS")6)*JB 2 ?G+TCO.1&0"060.JB1.6B0* SS6=J"3ESA6"N&+ESG*(SS*,283L;E*(SS")6)*JB 2 ?G+TCO.1&0"060.JB1.7B02 WR+M6 *-B-3MSO2,	D+V6 "-6
*JB . CS6$N=+ESG*(SS.,SP*+213L;E*(SS")6)*JB . WP2=?P7SN(*02$2"?M+D2""16)*JB 2 [I. WP.<B>2 ?G+TCO.1^0"760*JB . WP2=?P7SN(*02$2"	D+V2""16)*JB 2 [I. WP*=B07GSO/OF .0B9"4*M* B /S6$3S
E6$N(.$F,.,SP*)J&7ISN"(6"*JB * SS*=SS2&WS+G"$+SR0*,21+P65*1Z)*"J/2&WS+G"$+SR0.,WP*+233L;E.(CS*$&)*&&"""*M* B 7GSO/OF .0B9"4*M.1^0*7B0/S6$3S
E6$N(.$F,.,SP*)J&7F+N"(6"*JB * SS*=SS2&WS+G"$+SR0*,21+P65*1Z)*"J,2&WS+G"$+SR0.,WP*+233L;E.(CS*$&)*&&"""*M* B 7GSO/OF .0B9"4*M.1&0*0B03R7E* 6-2-F 3NWW7IWS+NCG*-6-*MBJ6 B 64B=+OS+S2$*"J=*,&1*MBJ2 & 7FB .4:<20^ 3O?T. B1.7B0.MFJ.0B964B 2$:(6)N="$*M* B +CR06=*
""*M* B /S6$""6"*JB . 7N/NF+*MBJ2 ^ 3O?T. B5"060.JF1.0B02 WR/M6 *=B=3L
O3IOS+HCE7AOU7DWR3E/C/E6 "=6=*JB 2 [I* SS*=J"2 ?G+TCO.9B0"060*JB 2 WR+M6 *-B-3NOI+HCT7AOU7DWR+CCK*-6-*MBJ6 B 65B=+OS+S2$2"	N7CSH."F,")*M* B +ICF/P6520^ 3O?T. F1.2B0*MBJ6 B 2$:(*)J=+IKF2&WS+G"$+S2$+P.5252,+EN+S&$*)J&7GSO+OZ"7SKT2$:(*+&2*MBJ6 B 2$:(*+&12=^"
O?T6"N&+TSR*(/N"36)*JB . 7N/NJ+*MBJ6 N *$J=""*M* B 7RSE3U;R.MFJ.1B260J +ECM*-6-2 ;U3DF 3USS3ROU+K6 "-6-*JB . WP2=?P7SN(*$J,3USN."F,")*M* B +ICF/P6520^ 3O?T. F1.3B0*MBJ6 B 2$:(*)J=+IKF2&WS+G"$+S2$61B,.5F-*)J&7GSO+OZ"7SKT2$:(*+&2*MBJ6 B 2$:(*+&12=^"3O?T6"N&
TSR*(/N"36)*JB * SP*(/N.26)2"[I6"N&+ESG*(SS.,WP*+233L;E*(SS*)Z)2"?G+TKO6&SS+R"$/NR+")*M* B 3N:="+63*JB * SS*=J"*MBJ6 J 7EWTR7N.JF1.3B02 WR+M6 *-B-3OWD3RF 3USS3ROU+K6 "-6-*JB . WP2=?P7SN(*$J,3OWD+R2""16)*JB 2 [I. WP*=B07GSO/OF .1B5"0*M* B +P"$/N6)2"[I6"N&+
SG*(SS*,21+P65*1Z)2"?G+TKO6&SS+R"$/NN+")*M* B +P"$/NF+*)J=+IKF2&WS+G"$+S2$+P.5242,+EN+S&$*)J&7GSO+OZ"7SKT2$:(*+&3*MBJ2 : *=/N"2*M* B /S6$""6"*JB 2 WR7TKUN*M.1R1*0B03R7E* 6-6-Z 3E
R3L	E7COH7AOU7DWR+CCK*-6-*MBJ6 B 2$:(*)J=+IKF*&SS2&^"3O?T6"N&+TSR*(/N"26)*JB . 7N/NF+*MBJ6 N *$J=""*M* B 7RSE3U;R.MFJ.1B560J +ECM*-6-2 WT7ISL* 6-"-*M* B /P657POO*(SS6,R"3E3I+T2""16)*JB 2 [I. WP*=B07GSO/OF .1B4"0*M* B /S6$2";F+ZJ(2&WS+G"$+S2$+P.5252,+EN+S&
*)J&*,Z"3S
E6$N(.$F,.,WP*-&1*&&"*=J0*MBJ2 ^ 3O?T. F1.4B0*MBJ6 J +ECM.=6=6 WF7NSK3I;O+ECN.=6=.MFJ.2B160J +ECM*-6-2 WD3FZ 3U/N3T?I+N6 "-6-*JB . 7F/FF+*MBJ2 & 3FZ .>&82 ?G+TCO.9F0"060*JB . 7V/VF+*MBJ2 & 7FZ .>B52 ?G+TCO.9F0"060*JB * SV*(	V*=SS*&""2=Z=+NZ"7CKH2$Z(2)N&*0
$*"J(*MBJ6 N *$J=3D[E+FKN2&C+R"$+FZ)+CR0*&""""*M* B +CR06=."""*M* B 7GSO/OF .0B3.MFJ.3B060J +ECM.=6=2 WB3G;I/N6 "=6=*JB 2 [I. CP.$:<*"KA2 ?G+TCO.5B0"0*M* B +PR02=J"""*M* B 3N:="+61*JB 2 ?G+TCO.5B0"0*M.1V3*0B03R7E* 6-2-V 3NWD* 6-"-*M* B /K60+K60"1*M* B +IC
/K:020^ 3O?T. B5"060*JB 2 [I. CP*$J=+BB"7GSO/OF .3R6"0*M* B +P"$/N6)2"WR7TKUN6"*JB . 7N/NF+*MBJ2 ^ 3O?T. B5"060.JN1.6B4* SP*(	N6=N"7TCO""*M* B 3N:="+61*JB . CP*$J=C6"*JB 2 ?G+TCO.5B0"0*M.2B0*0B03R7E. 6=2=& 3FF 3NGF+NCG.=6=*MBJ2 ^ 7OWS/BF .1B0"0*M* B +K"1+
&0"=7N*JB . 7N/NF+*MBJ2 ^ 3O?T. B5"060.JB2.1B02 WR+M6 *-B-+I7F3TWH3NV 3NWD* 6-"-*M* B +P"$+K"1+K&0*)J=7GSO+OZ"7SKT2$:(")*M* B 7GSO/OZ .0B0.MJJ.0B260J +ECM*-6-2 3E+SCE3A[N3A
N* 6-"-*M* B +P"$+K"1+K&0*)J=7GSO+OZ"7SKT2$:(*+&1*MBJ2 . 21.(.06)N*M* B 3N:="+61*JB 2 ?G+TCO.5B0"0*M.2B1*0B03R7E. 6=6=^ 3H3I3EF 3NGF+NCG.=6=*MBJ2 . 22.(.06)N*M* B 7GOO+UCB.1B1"060*JB . GK.(CK2):=*MBJ2 : *=/N"1*M* B 7GSO/OV .0B0.MJJ.1B160J +ECM*-6-2 W3IWL2
;E+DCE*-6-*MBJ6 B 2$:(*)J=7GSO+OZ"7SKT2$.(22.(*0&)*MBJ2 : *=/N"1*M* B +P"$+K"1+K&0*)J=7GSO+OZ"7SKT2$:(")*M* B 7GSO/OZ .0B0.MJJ.2B060J +ECM*-6-2 WR3PGE3TF 3NGF+NCG.=6=*MBJ2 . 21.(.06)N*M* B 7GSO/OV .0B0.MJJ.2B260J +ECM*-6-2 WR3PGE3TV 3NWD* 6-"-*M* B 7GOO+U
B.1B1"060*JB * SP*(	N2=^"3O?T6"N&+TSR.(GK.(CK")6)*JB . 7N/NF+*MBJ2 ^ 3O?T. B6"060.JN2.0B02 WR/M6 *=B=7FKO2 ;A3F;A/G6 "=6=*JB . WP2=?P7SN(*$J,*=2""16)*JB 2 [I. WP.<F=2 ?G+TCO.9B0"060*JB . OK2$.(.06)3S
E6$N(.$F,.,WP*-&1*MBJ6 B 2$:(*)J=7FKO6"N&"$*M* B /S6$""6"*JB . GC"=60*JB 2 ?G+TCO.1R0"0*M.2F3*0B03R7E* 6-2-Z +O7R+TCO*-6-*MBJ6 B 2$:(6)B=2$:(*)J&+TKO*&SS*MBJ6 N *$J=""*M* B 7GSO/OV .0B0.MJJ.3B260J +ECM*-6-2 ?F7RR-7ON-7TCE* 6-"-*M* B +P"$/N6)+P"$+NZ)6"SS+E
P*&SS*MBJ6 N *$J=""*M* B 7GSO/OV .0B0.MJJ.3B360J +ECM*-6-2 ?F3RR-+O6 "-6-*JB . 7N/NF+*MBJ2 ^ 3O?T. B5"060.JN2.4B02 WR+M6 *-B-7NE+T6 "-6-*JBL6 B 2$:(*)J=7NE+TZ"+KR3.(CK")*M* B 3N:="+61*JB . OK2$.(.06)""6"*JB 2 ?G+TCO.6B0"0*M.2B4*0B03R7E. 6=2=N 3AWS2 ;A3F;A
G6 "=6=*JB * SP*(	N2=^"3O?T6"N&+TSR*(/N"26)*JB . GK.(CK2):="+61*JB . 7N/NJ+*MBJ2 . *3"$+K&0*=SS.&6"""*M* B /S6$""6"*JB 2 ?G+TCO.5B0"0*M.2F4*0B03R7E* 6-2-N 3AWS2 GL3B3E* 6-"-*M* B /N60"1*M* B /P65"0*M.2F4*0B3/P657POO*(SS*,2"6"B,.5F+")*M* B +ICF/P6520^ 3O?T
 R2.1^0*MBJ2 : 20:=.0F+*MBJ2 ^ 3O?T. R2.1N0.MJJ.4B127: 20:=20:+"+61*JB . KK.(CK2):=.0F-.MJJ.4F160B 65B=+OS+S2$*"J,*,&1*MBJ2 & 7FB .5B=2 ?G+TCO.2F4"860*JB * SP*(	N2=&"+FZ"+KR3.(CK6)N&+ESG*(SS*,21+P65*1Z)2"?G+TKO6&SS+R"$+N&0*MBJ2 : *=/N"1*M* B /S6$3S
E6$N(6$B,.5F+2,WL7NN(*$&)*MBJ2 ^ 3O?T. R2.1B1.MJJ.4"160B 2$:(*)J=+IKF.&OK2$.(*0Z)+SZ$2"?G+TKO6&SS+R"$+N&0*MBJ2 : *=/N"2*M* B /S6$""6"*JB 2 ?G+TCO.5B0"0*M.2N4*0B03R7E* 6-2-N 3AWS2 GF+LCL3ESN+E6 "-6-*JB * SP*(	N2=^"3O?T6"N&+TSR.(GK.(CK")6)*JB . 7N/NF+*MBJ6 
 2$.(22.(*0&)2=^"3O?T6"N&+TSR*(	N*MBJ2 N .1F="5*M* B 7GSO/OF .0B4.MJJ.4B460J +ECM*-6-2 GC+SCE3ESN+E6 "-6-*JB * SP.(GK.(CK.)6)2"?G+TKO6&SS+R"$N6)*JB * SP.(KK.(CK.)6)2"?G+TKO6&SS+R"$N6)*JB . CK.=CK"-61*JB 2 ?G+TCO.5B0"0*M.2B5*0B03R7E. 6=2=R 3AWT3IF 3NGF+NCG
=6=*MBJ6 J +ECM*-6-2 GD3T	E2 ;A3F;AG*M* B +P"$/N6)2"	D+MSZ.(J7")6"*JB * SP*(/N.16)2"	F+LOE*3J:2&WS+G"$+S2$262,+EN+S&$")*M* B +P"$/NJ+*)J=7ICN+UOT63*:"$6"*JB . KK.(CK2):="+62*JB . GK.(CK2):="+63*JB . 7N/NR+*MBJ6 N *$J=""*M* B 7GSO/OV .0B0.MJJ.5B260J +ECM*-
-2 GD3T	E2 ;E+DCE*-6-*MBJ6 B 2$:(*)J=7GSO+OZ"7SKT2$.(22.(*0&)*MBJ2 : *=/N"1*M* B +P"$+K"1+K&0*)J=3IWF+NOD23?G+TKO6&SS+R"$N6)*JB * SP*(	N2=N"7LOO/EN""*M* B 3N:="+61*JB 2 ?G+TCO.6B0"0*M* B 3R7E. 6=2=6 3A/R+E3N7SKP3U;E+GCE.=6=.M"J.0B160J +ECM*-6-2 GM3RWK2 	E
NKT3AWG+N6 "-6-*JB * SS2=WS+G"$+S2$.1",")*M* B +ICF/L:3.=B32 ?G+TCO.9F0"060*JB . OL.=OL"+61*JB . GL2$2(.36)S6$*JB . KL.(OL2):=*MBJ6 N *$J=""*M* B 7GSO/OF .0B3.M"J.0B260J +ECM*-6-6 CS3R;U3GV 7ISN3R
A+ECN*-6-*MBJ6 N 6$N=+ESG*(SS*,21"86).JB8.2B72 WRM*M* B /L67+L.7"1*M* B +LR5.(
L6)N="$*M* B +L"6+L&7"=7N*JB * SS*=J"*MBJ2 : *=/N"1*M* B 7GSO/OV .0B0.M"J.0B360J +ECM*-6-2 GM3RWK7NN-7PWR+N7G3Z?U3R;D3U
N* 6-"-*M* B +ICF/S6$*"B"7GSO/O" .0F3"0*M* B +P"$/N6)S6$.JB8.3B12 ?F3R2 .8B=2 ?T. 
L*MBJ2 Z +OCR/L6460R 3O2 "3*M* B +ICF+LR1.(SL.):<+LR5.(L2)^ 3O?T. B8.3B6*MBJ2 & 7FN +ESG.(GL2$2(*42).1F,.):<*"K2 ?G+TCO.8N0"460*JB * SP.([L.(L.)6)2"?G3SKU6"N&+TSR.(KL.(SL")6)*JB 2 ?G+TCO.8N0"860.JB8.3B4* SP.([L.(L.)6)2"?G+TKO6&SS+R"$+L"2+L&4")*M* B 7GSO/O
 .0"3"0*M.8N0*6B07NE3T2 "4*M* B +ICF3S
E2$2(*5"$+L&8*,21.12)2>B"2"^ 3O?T. B8.3B7*MBJ6 B 2$2(262(*8&)6=B"3R;I+TJ"7VKE3F	E7NKE3U
N* J"*;J"2"2&*5"$+L&8*&J"""6"*JB 2 ?G+TCO.8N0"860.JB8.3B76 KP7ISN* *"2*Z*3E3H/E+R7MKA+KCE2"2;*5"$+L&8*;B"3FE+LKT*MBJ6 N 7TCO.M"J.0"320: 7ESX. L*MBJ6 B 2$:(*)J=3ESN""*M* B 7GSO/O& .1B0"0*M.9B0*0B03P	R+NCT*"**2*WF3HWL7R* 7WOI3CWH3NR +ECN3SC3LWU3SWS3L?W7ESR3
;R""*M* B 3P	R+NCT*"B 2 	M3TN 3OWD. GC.=."/C.12";U3DN *2J=.;KC*MBJ6 N 7TCO.M&J.0B160B 3R;I+TJ *-6-7SOY3T7E3GWR3NWZ.:GC.=."/C.1."KC.=."/C.2*"K+K&0.=."3K.("06)*JB 6 KP7ISN* B"2 2 *3J=.;OL2;2"*7J=.;
L2;Z".=."F*M* B 3S?TP*M.9F0*2B03P	R+NCT*"**2*WF3HWL3R& 3NR +ECR3SC3AC3T3E3U
N*:K+K&0.=."3K.(.0.)."KC.=."C62*JB 6 SSO7P.JB9.2B06 KP7ISN* *"2*Z*3E3H+ECR+ICM3P?R3GGR3MGM3UKF+AKU*MBJ6 N 7TCO.M&J.1B020N 7LOO/EJ*MBJ2 Z 3IWL/VJ2:WS+G"$+N2$61B,+OS+N2$*"J.*,&1*)J&+BKA*MBJ2 Z +OCR/IF=2 ?T" 7N*JB 6 KP7ISN.*27SKT2$&(6)B&2$&(")*M* B 7NE3T& *M
J2 N 7LOO/EJ.M&J.9&929V N7DBJBZ

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