File PCW.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"$*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*8B3/L63"-61.J"8242 *76="1*M.8V8. OP"=60.J"826& 3FR .7B=2
?G+TCO.9B0.M"J*8B77FKO. CV*=B0+TCOV*M.8"86 KP7ISN* SV.(CV")*M.8&82 WN+XCT7V203P	R7N3T3P	RN7T.JB960J +ECM.=6=2 	E3NGG+BCE.=6=.M&J*1B07ICN+UOT62*:"$*M.9B22 [I2 ;E/DJ2 ?G+TCO.8N0"060.JN960B 3R;I7T* "$*M.1B060J +ECM.=6=2 WZ3IC7E
N7EOI3EF 3N3A3YWS. 6="=*M.1F060* "=60.JB1*1B1/Z603L;E*(SZ")*M.1F022R 66B=+OS+Z2$*"K
*,&1.MFJ.0N12 [I. [D*=B07GSO/OF .0B2.MFJ.0R1* SZ2=WS+G"$+Z2$21R,.6F-*)J&*,Z"3S
E6$*(2$R,.6F+2,WL7N*(*$&).MFJ.0B22 [I. OP*=B17GSO/ON .0B0.MFJ.0B3. 7Z/ZF+.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"M2J.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.5R220& 7FV *$J=*0B"7GSO/OJ .5B0"0*M.5V220& 7FV *$J<*3B"7GSO/OF .3B0"0*M.5V225& 7FV *$J=*3B"7GSO/OJ .0B0"0*M.5Z220& 7FV *$J=*4B"7GSO/OJ .2B0"0*M.5^220& 7FV *$J
*7B"7GSO/OJ .4B0"0*M.5"220& 7FV *$J=*6B"7GSO/OJ .3B0"0*M.5&220& 3FN .1F=20^ 3O?T. F2.0B0.MVJ.3B0. CK.=CK"-61.JN5*1B03K.(.06)3V3A*(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="=*
.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)
9^ 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*2B07GSO/OF .
B0"0*M.9B060J +ECM.=6=2 ?K3NWT+XCT.=6=" *M.9B021R 67B=+OS+N2$*"J/*,&1.M&J.0J02 [I. 
D*=B07GSO/O& .0V0.M&J.0N0* SN2=WS+G"$+N2$21R,.7F-")*M.9B025& 7FB +OS+N2$*"J:*,&1.<B>2 ?G+TCO.9B0"7*M.9B026: *$J=7SOY*:Z"N6$.JB9*0B7+ICF7POO*(SN*,:"."F,.):<20^ 3O?T. B9"160.JB9*0B8/N6$+NZ$2"..O6".JB9*1B03F3I/EJ*:SN.M&J.0B22 ;I7PSU.*2Z6$.JB9*3B0+ICF3ESN*B27
SO/O& .4B0.M&J.0B4. CP2=?P7S*(*$J,*=J=*,&1.M&J.0B52 [I. CP*=B07GSO/O& .1B0.M&J.0B6. 7V/VF+.M&J.0B72 [I. ;V*5B07GSO/O& .0B1"0*M.9"060Z 6$Z(6)*="$*M.9&020^ 3O?T. B9"260.JF9*0B0+ICF7POO*(SZ2,Z"3U/N3T?I+NJ$*,&1*=B17GSO/O& .2B0.M&J.1B12 [I2 ?P7S*(*$J,3F;U3K	T+
KN*,&1*=B17GSO/O& .2B2.M&J.1B26 KP7ISN.*47SKT2$:(6)*&"$*M.9N120: *=/N"1*M.9R120^ 3O?T. B9"260.JJ9*0B0+PR1*=R"""*M.9B261* 69B=+OS+Z2$*"K
*,&1.M&J.2J02 [I. 	Z*=B07GSO/O& .2B3.M&J.2N0* SZ2=WS+G"$+Z2$61*,.9F-*)J&*,Z"3S
E6$*(6$*,.9F+2,WL7N*(*$&).M&J.2B12 ?G+TCO.9N2"0*M.9J260B .16$""6".JJ9*3B0/Z6$3S
E6$*(6$B,+OS+Z2$*"J *,&1*+213L;E*(SZ")6).JJ9*4B03FZ="+61.JJ9*5B0+ICF/FJ>25^ 3O?T. B9.1B0.M&J.2B6* SP2=R"3E[F+NZ"7CKH2$Z(6)B&*1Z$3S
E6$*(6$B,+OS+Z2$*"J(*,&12,WL7N*(*$&).M&J.2F66 KP7ISN.*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;U3
;E. 6="=*M.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* SP6=J"7ESS3OWR6"N&+ESG*(SS.,J12,?P7SN(*$J,*:2"*1&3*-&1.MFJ.0B465B 3R;I/TR6:SS+R"$+NZ)P6$.JB1.4B1. 7N/NF+.MFJ.0J460N 6$N=+ESG*(SS*,21*5Z)3S
E6$N(.$F,222,+EN+S&$")*M.1R0*3B07GSO/OF .0B9"0*M.1V0*0B03P	R+NOT64N:+TSR*(	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*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).JF1.3F12 [I. WP*=B07GSO/OF .1B5"0*M.1
1*2B0/P6$2"[I6"N&+ESG*(SS*,21+P65*1Z)2"?G+TKO6&SS+R"$/NN+")*M.1N1*2B53P	R+NOT64N:+TSR*(	N*&SP.MFJ.1N360B *$J=+IKF2&WS+G"$+S2$+P.5242,+EN+S&$*)J&7GSO+OZ"7SKT2$:(*+&3.MFJ.1N365B 3R;I/TR6:SS+R"$/NF+6)B&"$*M.1N1*4B03N:="+62.JF1.3V4* SS*=J".MFJ.1V360J 7EWTR7N.
F1.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=+OS+S2$2"WT7ISL."F,")*M.1V1*1B1+ICF/P6520^ 
O?T. F1.4B0.MFJ.1J560N *$J=7F+N*(Z"3S
E6$N(6$B,.5V+2,WL7NN(*$&)*&2"6"N&+ESG*(SS*,21+P65*1Z)."6)"06".JF1.5B32 ?G+TCO.1R1"060.JJ1.0B02 WR/M6 *=B=3F;U3K	T3OWN/N6 "=6=.JJ1.1B02 WR+M6 *-B-3D[E6 WF7NSK3I;O* 6-"-*M.1F2*1B03FZ="+61.JJ1.1B22 [I. ;F*2B57GSO/O& .0B1"0*M.1F2*3B07VZ="+61.JJ1.1B42 [I. ;V*5
07GSO/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.LN1.0B5. CP*$J=B6".JN1.0B6. 7N/NF+.MFJ.3^020^ 3O?T. B5"060.JN1.5B02 WR+M6 *-B-3ESN+E6 "-6-.JN1.5B1. CK.=CK"-61.JN1.6B02 [I. CK*>B07GSO/OV .0B0.
FJ.3F620& 7FB .06$*"KB2 ?G+TCO.1Z3"460.JN1.6B26 KP7ISN.*47SKT2$:(*)J&7RSE3U;R""*M.1Z3*2B53N:="+61.JN1.6B32 ?G+TCO.5B0"0*M.1Z3*4B03P	R+NOT64N:+TSR*(	N6&J"+ECM3C?L+SOE*4Z"7CKH.$J(*8Z)6"SS+OKP.MFJ.3V620: *=/N"1*M.1Z3*6B0+PR02=N"""*M.1Z3*7B07GSO/OV .0B0.MJJ.0
060J +ECM.=6=2 [I2 ;A3F;A/G6 "=6=.JB2.0B32 ?G3SKU. F1.0B0.MJJ.0R020. 21.(.06)N*M.2B0*4B13N:="+61.JB2.0B52 ?G+TCO.5B0"0*M.2F0*0B03R7E* 6-2-& 7FR-3H;E2 ;E+DCE*-6-.MJJ.0J160B 3R;I/TR6:SS+R"$+K"1+K&0*)J&7GSO+OZ"7SKT2$:(")*M.2F0*3B07GSO/OZ .0B0.MJJ.0B260J +ECM
-6-2 3E+SCE3A[N3A
N* 6-"-*M.2J0*1B03P	R+NOT64N:+TSR.(GK.(CK*)Z)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*2B03P	R+NOT64N:+TSR*(	N2&^"3O?T6"N&+TSR.(KK.(CK")6).JF2.1B3. 7N/NF+.MJJ.1V160B 3R;I/TR6:SS+R"$
K"1+K&0*)J&7GSO+OZ"7SKT2$:(")*M.2F1*6B07GSO/OZ .0B0.MJJ.2B060J +ECM*-6-2 WR3PGE3TF 3NGF+NCG.=6=.MJJ.2N020. 21.(.06)N*M.2B2*4B07GSO/OV .0B0.MJJ.2B260J +ECM*-6-2 WR3PGE3TV 3NWD* 6-"-*M.2J2*1B07GOO+UCB.1B1"060.JJ2.2B36 KP7ISN.*47SKT2$:(*)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 65B=+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/P6$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/P6$+PZ$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*=SP6&N"7TCE6"N&"$*M.2J3*1B5/S6$""6".JN2.2B22 ?G+TCO.5B0"0*M.2N3*0B03R7E* 6-2-Z 
O7R+DCO*-6-.MJJ.3F360B 3R;I/TR6:SS+R"$+NZ)P6$.JN2.3B2. 7N/NF+.MJJ.3N320^ 3O?T. B5"060.JN2.4B02 WR+M6 *-B-7NE+T6 "-6-.JN2.4B26 KP7ISN.*47SKT2$:(*)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.0B36 KP7ISN.*47SKT2$:(*)J&7GSO+OZ"7SKT2$:(*+&2.MJJ.4R020. 21.(.06)/NF+.MJJ.4V020: *=/N"2*M.2B4*6B0+KR3.(CK6)N=*$J&"=6".JR2.0B7* SS*=J".MJJ.4&020^ 3O?T. B5"060.JR2.1B02 WR+M6 *-B-7COA3E2 3AWB+L6 "-6-.JR2.1F0. CN"=61.JR2.1J0. WP"=60.JR2.1
0. WP2=?P7SN(*$J,*,2"+P.5"16).JR2.1R02 [I. WP*=B07GSO/OJ .4B1"7*M.2F4*0B5/N60+N.0"1*M.2F4*0B67GSO/OJ .4B1"3*M.2F4*0B7/N60+N.0/NF+.MJJ.4B128. 22.(.06)+N60"1*M.2F4*1B0/P657POO*(SS*,2"."F,")*M.2F4*2B0+ICF/P6520^ 3O?T. R2.1B8.MJJ.4N160B 3R;I/TR6:SS+R"$+NZ)2"[
2".&*3"$+K&02&WS+G"$+S2$61B,.5F-*)J&7GSO+OZ"7SKT2$:("06).JR2.1B5. 7N/NF+.MJJ.4Z160N 6$N=+ESG*(SS.,WP*+213L;E*(SS")6).JR2.1B72 ?G+TCO.2F4"160.JR2.1B86 KP7ISN.*47SKT2$:(*)J&+IKF.&OK2$.(*0Z)+SZ$2"?G+TKO6&SS+R"$+N&0.MJJ.4B220: *=/N"2*M.2J4*0B5/S6$""6".JR2.2B1
 ?G+TCO.5B0"0*M.2N4*0B03R7E* 6-2-N 3AWS2 GF+LCL3ESN+E6 "-6-.JR2.3B16 KP7ISN.*47SKT2$:(*)J&7GSO+OZ"7SKT2$.(21.(*0&).MJJ.4J320: *=/N"1*M.2N4*2B53P	R+NOT64N:+TSR.(KK.(CK*)Z)2"?G+TKO6&SS+R"$N6).JR2.3B3. GC.=V1.MJJ.4R320^ 3O?T. B1"460.JR2.4B02 WR+M6 *-B-7COA3E
 3NWD* 6-"-*M.2R4*1B03P	R+NOT64N:+TSR.(GK.(CK*)Z)2"?G+TKO6&SS+R"$N6).JR2.4B26 KP7ISN.*47SKT2$.(22.(*0&)2&^"3O?T6"N&+TSR*(	N.MJJ.4J425. 20.=.0F-.MJJ.4N420^ 3O?T. B5"060.JV2.0B02 WR/M6 *=B=7DSA+ECI3A[N3A
N. 6="=*M.2F5*0B03R7E* 6-2-R 3AWT3IF 3NGFN7G.JV2.1B36 KP7ISN.*47SKT2$:(*)J&3D7I+Z"$*7&2""*M.2F5*4B03P	R+NOT64N:+TSR*(/N*1Z)2"	F+LOE*3J:2&WS+G"$+S2$262,+EN+S&$")*M.2F5*5B03P	R+NOT64N:+TSR*(/N*2Z)2";I7PSU.*3+ZJ$.MJJ.5Z120. 22.(.06)/NJ+.MJJ.5^120. 21.(.06)/N
+.MJJ.5"120: *=/N"4*M.2F5*8B5/S6$""6".JV2.1B92 ?G+TCO.5B0"0*M.2J5*0B03R7E* 6-2-R 3AWT3IV 3NWD* 6-"-*M.2J5*1B03P	R+NOT64N:+TSR*(	N2&^"3O?T6"N&+TSR.(KK.(CK")6).JV2.2B2. 7N/NF+.MJJ.5N260B 3R;I/TR6:SS+R"$+K"1+K&0*)J&3IWF+NOD23?G+TKO6&SS+R"$N6).JV2.2B46 KP7ISN
*47SKT2$:(*)J&3C?L+SOE"36".JV2.2B5. 7N/NF+.MJJ.5^220^ 3O?T. B6"060.JB8.0B02 WR/M6 *=B=7MKA3K;E6,CS3RWU3NWG. 6="=*M.8F0*0B03R7E* 6-2-6 3A/R3EV 7ISN3R
A+ECN*-6-.M"J.0F161N 6$N=+ESG*(SS*,21"86).JB8.1B52 [I. OL.>N=20^ 3O?T. B9.1B0.M"J.0Z1202 232=.3F+.M"J.0Z1212 *1"$+L&3*=SS.M"J.0Z1222 222(.36)N*M.8F0*7B0/S6$""6".JB8.1F72 ?G+TCO.1N0"0*M.8J0*0B03R7E* 6-6-N 7PWR+NCG3E;I3TGR3G;E* 6-"-*M.8J0*1B1/S6$3S
E6$N(.$F,*,&8.M"J.0^260J E7M.JB8.2B8. 
L.=
L"+61.JB8.2F8. WL2$2(.76)S6$.JB8.2J8. [L.(
L2):=.M"J.0&260N *$J=""*M.8J0*9B13N:="+61.JB8.2J92 ?G+TCO.5B0"0*M.8N0*0B03R7E* 6-2-6 3A/R+E7N7SKP3U
N6-WZ3OSR3N;U+G6 "-6-.JB8.3J02 [I* SS*=J"2 ?G+TCO.8N0"160.JB8.3R06 KP7ISN.*47SKT2$:(6)N&"$*M.8N0*1B07FKO. L*=B0+TCOL67.JB8.3B22 ?F3R2 .4B=2 ?T. OL.M"J.0N320& 3F2 *1"$+L&42<2>*5"$+L&82 ?G+TCO.8N0"660.JB8.3J32 [I2 WS+G"$+LR1.(SL.)F,*,&1*<J>+B"7GSO/O" .0R3"0
M.8N0*3B43P	R+NOT64N:+TSR.([L.(L*)Z)2"?G3SKU6"N&+TSR.(KL.(SL")6).JB8.3Z32 ?G+TCO.8N0"860.JB8.3B46 KP7ISN.*47SKT2$2(262(*8&)2&^"3O?T6"N&+TSR.(KL.(SL")6).JB8.3B52 ?G+TCO.8N0"860.JB8.3B62 WN+XCTL64.JB8.3J62 [I2 WS+G"$+LR5.(L.)F,*,&1*<J>+B"7GSO/O" .0^3"0*M.8N
*6B43P	R+NOT64N:+TSR.([L.(L*)Z)6"KP7ISN6"Z"3E[R3E;I7EWR+NCG."."*"J".&WL2$2(*8Z)*"J"""*M.8N0*6B67GSO/O" .0"3"0*M.8N0*7B03P	R+NCT*"**2*WF3HWL3R6:3A/R+EJ .;WL2$2(.8.)2"Z 3E3HT6".JB8.3F76 SSO7P.JB8.3B82 WN+XCTL68.JB8.4B06 KP7ISN.*47SKT2$:(*)J&3ESN""*M.8R0*1B0
GSO/O& .1B0"0*M.9B0*0B03P	R+NCT*"**2*WF3HWL7R* 7WOI3CWH3NR +ECN3SC3LWU3SWS3L?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.1
06 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.1R020N 7LOO/ER.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