File PC.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"$.2B5.,J7")*M.6B82 WR/M6 *=B=3I	N3TGI7LOI7IKE3U
N+ECN.=6=.MZJ*8B1+P"$.16)2"WD3F;F7Z"(*,	Y*=7X3Y&*+NT7X&/")6".J"622: "=62.J"624Z "=60.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;M3AWM. 6="=*
.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.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.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+IC
/B6$*"J"2"^ 3O?T. B2"060.JF1*3B0+ICF/B6$*"J 2 ?G+TCO.1N0"0*M.1R120& 3FJ *$J=*:B"7GSO/OF .8B0.MFJ.1V42 [I* SB.=6"2"^ 3O?T. &1"060.JF1*7B0+ICF/B6$*"J;2 ?G+TCO.1^5"0*M.1B260J +ECM*-6-6 WF7NSK3I;O3SWD+FB.*-6-.MFJ.2B12 [I. CC*$J<* B"7GSO/OF .3B0.MFJ.2V12 [I. C
*$J>+AB"7GSO/O& .0B2"0*M.1J220& 3FJ .$:<* ""2"^ 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. 7Z/ZF+.MFJ.8N32 ?G+TCO.4B9"0*M.1R820& 3FN .1F=20^ 3O?T. B9.0B0.MFJ.8B52 [I. GC*=B42 ?G+TCO.9B0"060.J"1*6B0+ICF/C61*1B77GSO/O& .0B0"0*M.1^860N 6$N=*$J&"=6".J"1*8B07Z*="+62.J"1*9B07GSO/OF .0B4.MFJ.9B02 [I. GC.=B1
 ?G+TCO.1N5"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* .1B=2 ?G+TCO.9B0"060.JB2*4B0/S6$+SZ$3S
E6$*(6$*,.,GZ")*M.2V060* .=GZ"+61.JB2*6B07GSO/OF .0B4.MJJ.5B02 WR+M6 *-B-3TWR3NWN3R& 7MB 3R;I+T6 "-6-.JV2*1B0+ICF/S6$6"KP7ISN2"^ 3O?T. B2"260.JV2*2B0+ICF7POO.(*"*;J,*"J&2,WS+G"$+S2$3L;E*(SS2)2,+EN+S&$.)F,.):<20^ 3O?T. B2"260.JV2*3B0/S6$+SZ$*"J;.MJJ.5B42 ?
+TCO.2J0"0*M.2B620& 3FJ .$:<*"J!2 ?G+TCO.2N6"0*M.2F660N 6$N=*$J&";6".JZ2*2B07GSO/OF .0B3.MJJ.6B32 [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.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.9F020Z 3IWL.*2+NZ$2"..O6".JB9*2B07ICN+UOT62*:"$*M.9N020& 3FV +NOD22^ 3O?T. R9"060.JB9*4B0/P607POO*(SZ.,6"*=2""16).JB9*5B0+ICF/P6020^ 3O?T. F9"060.JB9*6B07VZ="+61.JB9*7B0+ICF/VV>20^ 3O?T. B9.1B0.M&J.0B8* SV*(	V*=S
.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*2B0+P"$/N6)Z6$.JF9*3B03N:="+61.JF9*4B07GSO/O& .0B2.M&J.2B0. GP*$J="$6".JJ9*1B07GSO/O& .2B3.M&J.2B2. GP*$J=""*M.9N26
* 6$N=+ESG*(SZ2,?P7S*(*$J,* 2"*1.)212,+EN+Z&$")*M.9R220Z *=/F"1*M.9V220& 3FZ .>V22 ?G+TCO.9F0"060.JJ9*6B0+P"$/N6)2"WD3F;F2"N&+HSR*(	F.&GP6$N&+ESG*(SZ2,?P7S*(*$J,*(2"*12)3L;E*(SZ")6).JJ9*6B53N:="+61.JJ9*7B0/Z6$3S
E6$*(.$F,2,?P7S*(*$J,*(2"*1&).&6"*=Z"2";F2"N&+HSR*(	F.&GP*$J&"(6".JJ9*8B07GSO/O& .0B6.M&J.4B02 3C3OWS"62.JR9*1B07GSO/O^ "060.JV9*0B03R7E. 6=2=V 3RWS7TWZ3NWG/N6 "=6=.JV9*1B07FKO. CV*=B0+TCOV*M.9F565B 60B=+OS+V"$+V&0.,6"*=2""16).JV9*2B0+ICF7POO*(SZ2,WS+G"$+
"$+V&0*,21+P60*12)/Z2)*>CZ7GSO/O& .5B7.M&J.5B3* SS*=SS2&WS+G"$+V"$+V&0.,CP*+223L;E*(SV.(CV*)&).M&J.5B4. 7Z7ZB+.0F-.M&J.5B52 ?G+TCO.1R0"0*M.9^520: 7ESX. CV.M&J.5B82 ?G+TCO.1N5"0*M.1B0*0B03R7E. 6=2=V 3I[N3AC3EF 3NWW7IWS+NCG.=6=.MFJ.0F020& 7FN *$J=2"^ 3O?T. 
9.0B0.MFJ.0F022& 7FB .02$2>F"2"^ 3O?T. B1.0"1.MFJ.0F024& 3FN .0:$*"KZ2 ?G+TCO.1&0"060.JB1.0Z12 ?G+TCO.9J0"060.JB1.0"12 [I. CC*$J>+ZB"7GSO/O& .0B2"0*M.1B0*2B0+ICF3S
E6$N(.$F,*,&12=B"2"?G+TCO.8J0"060.JB1.0B32 [I. CC*$J=+BB"7GSO/OF .0B3"0*M.1B0*7B0+ICF7POO*(SS2,^"3E;H3AC."F,.)B=2 ?G+TCO.1B0"860.JB1.0F7* SS2=WS+G"$+S2$.8F,"56).JB1.0J72 ?G+TCO.8J0"760.JB1.0B82 [I2 ?P7SN(*$J,3GE3EGN+CKH*,&1*=B07GSO/OF .0B9"0*M.1B0*8B1/S6$
S
E6$N(.$&,.,Z1")*M.1B0*8B27GSO/O" .0^2"0*M.1N0*0B03R7E* 6-2-2 7IOE* 6-"-*M.1N0*2B0+ICF7POO*(SS2,F"3NGF+NOG*:2".66)26^ 3O?T. B1.5B0.MFJ.0N320& 7FB +OS+S2$2";A3F;A+GJ*,&6*=B67GSO/OF .0B4"0*M.1N0*4B0+ICF7POO*(SS*,N"*:2".66)26^ 3O?T. B1.6B0.MFJ.0V320^ 3O?T. B1
9B0.MFJ.0B460B 2$:(*)J=7ROE7TKO+EZ"3S
E6$N(.$F,62B,+OS+S2$*"J:.,N1.)F-")*M.1R0*1B03N:="+61.JB1.4B2* SS2=WS+G"$+S2$.1V,6)N&+ESG*(SS.,J12,WL7NN(*$&).MFJ.0N420^ 3O?T. B1.9B0.MFJ.0B560B 2$:(*)J=7ROE7TKOE6".JB1.5V0. 7N/NF+.MFJ.0F560N *$J=3RGE+DZ"3S
E6$N(.$F,242,+EN+S&$")*M.1V0*2B07GSO/OF .0B9"0*M.1Z0*0B0/S6$2"WR+AKD2&WS+G"$+S2$282,+EN+S&$")*M.1Z0*1B07GSO/OF .0B9"0*M.1^0*0B03R7E* 6-2-6 +O3D7D[I* 6-"-*M.1^0*0B5+SR02=WS+G"$+S2$+P.4212,+EN+S&$")*M.1^0*1B0/P657POO.(CS*$J,3MSO."F,")*M.1^0*2B0+ICF/P25*>B07
SO/OF .0^7"0*M.1^0*3B0/P657POO.(CS*$J,7D[I."F,")*M.1^0*4B0+ICF/P6520^ 3O?T. B1.9R0.MFJ.0V760N 6$N=+ESG*(SS*,21+P&42&&"+NT""*M.1^0*5B5/S6$+SZ$3S
E6$N(*02$61B,.5F-*)J&*/Z"3S
E6$N(*02$+P.5232,+EN+SR0*)Z)*"J).MFJ.0Z720^ 3O?T. B1.9R0.MFJ.0^760N 6$N=+ESG*(SS*,21+P&42&Z"+NZ""*M.1^0*7B5/S6$+SZ$3S
E6$N(*02$61B,.5F-*)J&*,Z"3S
E6$N(*02$+P.5232,+EN+SR0*)Z)*"J).MFJ.0"720^ 3O?T. B1.9R0.MFJ.0B960J +ECM*-6-2 ;A3W	E3S;U+G6 "-6-.JB1.9F0. SP2=?P7SN(*$J,*=2""16).JB1.9J02 [I. SP.<B>2 ?G+TCO.1^0"060.JB1.9R0* SP*(	N*=SS.MFJ.0B925N .06$*"KZ.MFJ.0F960N *$J=""*M.1&0*2B03N:="+61.JB1.9B32 ?G+TC
.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* SP*(	N2=&"+FZ"3S
E6$N(6$B,.5V+2,WL7NN(*$&)2&^"3O?T6"N&+TSR*(/N"26).JF1.1B3* SP*(/N.16)2"?G+TKO6&SS+R"$/NN+")*M.1F1*4B03N:="+62.JF1.1V4* SS*=J".MFJ.1V160J 7EWTR7N.JF1.2B02 WR+M6 *-B-3USN6 WA7SKD3U/C* 6-"-*M.1J1*1B0/P657POO*(SS6,V"+NKD*,&1.MFJ.1F221& 7FB .5B=2 ?G+TCO.1N1"06
.JF1.2B2* SP*(	N2=&"+FZ"3S
E6$N(.$F,.,WP*-&12&^"3O?T6"N&+TSR*(/N"26).JF1.2B3* SP*(/N.16)2"?G+TKO6&SS+R"$/NN+")*M.1J1*4B0+P"$/NJ+*)J=+IKF2&WS+G"$+S2$+P.5232,+EN+S&$*)J&7GSO+OZ"7SKT2$:(*+&4.MFJ.1V220: *=/N"3*M.1J1*5B5/S6$""6".JF1.2B62 WR7TKUN*M.1N1*0B03R7E* 6-2-> 7DKE6 WA7SKD3U/C* 6-
-*M.1N1*1B0/P657POO*(SS2,>"7DKE."F,")*M.1N1*1B1+ICF/P6520^ 3O?T. F1.5B0.MFJ.1J360B 2$:(*)J=+IKF2&WS+G"$+S2$61B,.5F-*)J&7GSO+OZ"7SKT2$:(*+&3.MFJ.1N360B 2$:(*+&12=&"+FZ"3S
E6$N(6$B,.5R+2,WL7NN(*$&)2&^"3O?T6"N&+TSR*(/N"36).JF1.3B4. 7N/NJ+.MFJ.1R365N *$J=""*M.1N1*5B07RSE3U;R.MFJ.1B460J +ECM*-6-2 WV3R3G3EOI3HGS3USS3ROU+K6 "-6-.JF1.4B1* SP*(	N2=&"+FZ"+SZ$2"?G+TKO6&SS+R"$/NJ+")*M.1R1*2B03N:="+61.JF1.4B3* SS*=J".MFJ.1R460J 7EWTR7
.JF1.5B02 WR+M6 *-B-3T	E+LCT*-6-.MFJ.1F560B 65B=+OS+S2$2"WT7ISL."F,")*M.1V1*1B1+ICF/P6520^ 3O?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 2$:(*)J=3F3I+EOV*4J:6"CL+TJ:""6".JN1.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.MFJ.3F620& 7FB .06
*"KB2 ?G+TCO.1Z3"460.JN1.6B2* SP*(	N6=J"7EWT+RKN.MFJ.3J625: *=/N"1*M.1Z3*3B07GSO/OV .0B0.MFJ.3R660B 2$:(*)J=3C?L+SOE*4Z"7CKH.$J(*8Z)6"SS+OKP.MFJ.3V620: *=/N"1*M.1Z3*6B0+PR02=N"""*M.1Z3*7B07GSO/OV .0B0.MJJ.0B060J +ECM.=6=2 [I2 ;A3F;A/G6 "=6=.JB2.0B32 ?G3SK
. 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 2$.(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 2$.(21.(*0&)2=^"3O?T6"N&
TSR*(/N"16).JB2.2B3. GK.(CK2):=.MJJ.0N221: *=/N"1*M.2J0*4B07GSO/OV .0B0.MJJ.1B060J +ECM.=6=2 W3IWL2 ;A3F;A/G6 "=6=.JF2.0B3. KK.(CK2):=.MJJ.1R020^ 7OWS/BF .1B0"0*M.2B1*5B0+K"1+K&0"=7N.JF2.0F5. 7N/NF+.MJJ.1Z020^ 3O?T. B5"060.JF2.1B02 WR+M6 *-B-3W	H+LCE3ESN+
6 "-6-.JF2.1B2* SP*(	N2=^"3O?T6"N&+TSR.(KK.(CK")6).JF2.1B3. 7N/NF+.MJJ.1V160B 2$.(21.(*0&)2=^"3O?T6"N&+TSR*(	N.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+
CE*-6-.MJJ.2F220^ 7OWS/BF .1B0"0*M.2J2*3B0+P"$/N6)2"?G+TKO6&SS+R"$+K"1+K&0")*M.2J2*4B03N:="+61.JJ2.2B52 ?G+TCO.6B0"0*M.2B3*0B03R7E. 6=2=Z +OCR3A[N3A
N. 6="=*M.2B3*3B0/P657POO*(SS.,6"."F,")*M.2B3*4B0+ICF/P25*=B17GSO/O& .0B0"0*M.2B3*5B0+KR3.(CK6)N=+ESG*(SS*,21+P65"16).JN2.0B6* SP*(	N2=Z"+OKR*&SS.MJJ.3^060N *$J=""*M.2B3*8B0/C61"0*M.2B3*9B07GSO/OF .0B4.MJJ.3B160J +ECM*-6-2 ?F7RR-+O6 "-6-.JN2.1B1* SP*(	N*=
P*(	N6&R"+OZ"S6$.JN2.1B2* SS*=J".MJJ.3N120^ 3O?T. B5"060.JN2.2B02 WR+M6 *-B-7FKO2-?T6-SS+ECP*-6-.MJJ.3F260B 2$:(6)B=2$:(*)J&3SWT+PZ"S6$.JN2.2V1* SS*=J".MJJ.3J220^ 3O?T. B5"060.JN2.3B02 WR+M6 *-B-7FKO2-?D* 6-"-*M.2N3*2B03N:="+61.JN2.3B32 ?G+TCO.5B0"0*M.2R3
0B03R7E* 6-2-: 7ESX* 6-"-*M.2R3*2B0+P"$/N6)2"WN+XKT.&OK2$.("06).JN2.4V2. 7N/NF+.MJJ.3N420. *3"$+K&0*=J".MJJ.3R420^ 3O?T. B6"060.JR2.0B02 WR/M6 *=B=7COA3EF 3NGF+NCG.=6=.MJJ.4N060B 2$:(*)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.1N0. 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 2$:(*)J=+IKF.&OK2$.(*0Z)3S
E6$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 .4F1"0*M.2F4*8B0+P"$/N6)2"[I2".&*3"$+K&0*&SS2&^"3O?T6"N&+TSR.(CN")*M.2J4*0B03N:="+62.JR2.2V0* SS*=J".MJJ.4F220^ 3O?T. B5"060.JR2.3B02 WR+M6
*-B-7COA3EZ 3A3L2 ;E+DCE*-6-.MJJ.4F360B 2$:(*)J=7GSO+OZ"7SKT2$.(21.(*0&).MJJ.4J320: *=/N"1*M.2N4*2B5+P"$+K"2+K&0*)J=7GSO+OZ"7SKT2$:(")*M.2N4*3B0/C61"165.JR2.3B42 ?G+TCO.1R0"0*M.2R4*0B03R7E* 6-2-N 3AWS2 ;E+DCE*-6-.MJJ.4F460B 2$.(21.(*0&)2=^"3O?T6"N&+TSR*(	
.MJJ.4J460B 2$.(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.1B3* SP*(	N2=R"7I+M.$^(*2J).MJJ.5R160B 2$:(*+&12=Z"3IWL.*36"N&+ESG*(SS*,263L;E*(SS")6).JV2.1B5* SP*(/N.26)2";I7PSU.*3+ZJ$.MJJ.5Z120. 22.(.06)/NJ+.MJJ.5^120. 21.(.06)/NN+.MJJ.5"120: *=/N"4*M.2F5*8B5/S6$""6".
V2.1B92 ?G+TCO.5B0"0*M.2J5*0B03R7E* 6-2-R 3AWT3IV 3NWD* 6-"-*M.2J5*1B0+P"$/N6)2"?G+TKO6&SS+R"$+K"2+K&0")*M.2J5*2B03N:="+61.JV2.2B3* SP.(GK.(CK.)6)2"[I3ESN2^33O?T6"N&+TSR*(	N.MJJ.5R260B 2$:(*)J=3C?L+SOE"36".JV2.2B5. 7N/NF+.MJJ.5^220^ 3O?T. B6"060.JB8.0B02 
R/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.3R0* SP*(	N*=SS.M"J.0F320Z +OCR/L6860R 3O2 "7*M.8N0*2B07FKO. SL*=B0+TCOL63.JB8.3B32 [I. GL2$2(.42).>WL2$2(*8B)7GSO/O" .0Z3"0*M.8N0*3B2+ICF3S
E2$2(*1"$+L&4*,21.12)2>B"2"^ 3O?T. B8.3B4.M"J.0N364B 2$2(262(*8&)2=^"7OWS+BZ"7SKT2$2(222(*4&).M"J.0N326^ 3O?T. B8.3B8.M"J.0R360B 2$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"7
SO/O" .0^3"0*M.8N0*6B4+P"$+L"6+L&8*)J=3P	R+NKT2"WV3RWF3IWN3R;U+GJ *"J;*"Z"+LR5.(L*)J&*"J".M"J.0Z326^ 3O?T. B8.3B8.M"J.0^360B 3R;I+TJ ****3FE7LKE2:GM3RWK. ."+LR5.(L*)J;2 WF7HSL""*M.8N0*7B13S?TP*M.8N0*8B07NE3T2 "8*M.8R0*0B0+P"$/N6)2";ED6".JB8.4B12 ?G+TCO.9B
"060.JB9.0B06 KP7ISN* *"2*Z*3E3H+ECR3Z	W3SC+ECN3D;E2 OS7HWL7EOS7E
L7OKE7TKEN6".JB9.0F06 KP7ISN* B"2 6 +ICT3CSO3EN *1J=.;GC6;V"+NCD/C622"N;"2*M.9B0*0B23S?TP*M.9F0*0B03P	R+NCT*"6-6-	S3SWT7MKG7E+N3EN:*1J=.;GC2;N"*2J=.;KC2;.".(CK*)J=*;K+K&0.M&J.0B161B 3R;I+TJ * B /L632"2;*3J;/L672"2;*7J;+FJ=";7F.JB9.1J06 SSO7P.JB9.1B26 KP7I
N* *"2*Z*3E3H+ECR+ICN7DKE2 OS3HOA3HWT3L;U3G.:.(CK*)J=*;K+K&02;N"*2J=.;KC.M&J.0J161N 7TCO.M&J.0B260B 3R;I+TJ ****3FE7LKE2 7I6 KP7OKG3A7M3A[U7BWA""*M.9J0*0B13S?TP*M.9B1*0B03C?L+SOE"2*M.9B1*0B53F3I+EOV62N:+ESG*(SN*,217POO*(SN*,:"."F,*)Z)2"GB""*M.9B1*1B07FKO.
7I61R 3O: .M&J.1J060B 3R;I/TJ6:SS+R"$+IZ)+P"$I6).JF9.0B32 WN+XCTI*M.9B1*4B03C?L+SOE"2*M.9&9*9B93ESN&M*J

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