File EXPPAT.SV (save files (Executable program)

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

?:2CBBHLAHGPCXG8CDMD*Y$ML
8KY$
DMT*,D=<Y:$ L+0KH=(L,KLK4:X*;,9 XDK,8LJ K[,K70[L,H6?+$CMP9DYLMLLD*LIHMDQ<]D2DA
,SD*L
HKD*LI$MDP9L9$DD4YLIHMDQ<]2$AL
TKDYL
DJ4*.$LDMP9DYLMLLD***LUILNLP?H?\ L?<?L<E;N$C C?K>ZD8<(*KI>/=*P/</;/:/92K*;K81(88K71)K6Z
1.*YR
*Z1***+;H!>(*02IH\OHU\OHV\OHW\OHX<H%9\O2AX
H <(+RI8<(-7I6<(*VI5<(+JI4> -3X^\]2HRM1]1*2P!-3*NHUX[P
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ 4RNDJPAP9*HG()0Q ]HL?M?            ?M?M",SI,"    B JMT(SR^2+SI^2)?M?M OF SQUARES",!!?M?M?(7:IPIFYF(W:IPIFYF(U2A:MF2IAVC-8K FOCVT8A.H73?M2AHG\F2B-U0BLFXG2C-U>A*DAC FREQUENCY TRANSFOR
ATION PROGRAM?MA.DBC?MA3DCT !!?MBQDJA "NUMBER OF DATA ARRA:K?Z2^2R2*CK>Z3K=Z48AZ1K<Z5J1^3J3K;Z3R5*NR4*X*]K:Z3K9Z1*LK8Z3K=Z4K7Z5K6^3R3R5*K5^3R4*.2C*K4Z3*!OF DATA POINTS
",N?MCJDRS TM=(N-1)*T1?MC"DTS DF=1/TM/2; S PI=3.141593; S P2=6.283186?MC4DVT "NUMBER OF DATA =",%3.00,N,!?M.E>???;]5B]:P>>?>]4NY+I+8!YNYMK?Y
K>YOK=YZYUK<YQM
8 EZ=Q:MZ8 E
=A9D<PQUQQ*WQ
QZQO*LIU8!IM?*)IUYMINZ5I
K;Y
QN*GI+J59D8FK:2C/9-1; S Z=1/(2^(-H))?MMF VS C=1?MMY XS U=FITR(P*Z); S K=T*FNEW(NU,U)?MM) ZS CO=FCOS(K); S SN=FSIN(K)?MNA \S GR=CO*A(P)+SN*X(P); S GI=CJJTK?4N>+P0&	?	>	=K< [I+2K/; (/:CSCVB/CI];2A2J%0KH"J/> *)J0X(J1X	J2X&^3^4J5^6X"X)..OS8D?H(Q..GFVA<?"EB$CF
BD8%?HKCXKBXAY
I
K9> +OK8XJK<[%2Q\JS%+K2AK7XHK6YNK5YO9DYMLHK9?8AIMQO+U2I]
2AQ
QN+S//]HUSHVSHWSHX>(/	H;]HXS?4>+	?M?0BLNX$R6>G??%)8 H^H99 H8H^,AH+?4KK> 0!(Q0&:,P0!(W0&,VH! PH" P,[BMBJ0Y($0^,YNI?YOMNYMIM8BA><(,(I==HI<I; PQO(<QN(*IM(08!YPI:1(I91)1.)EQP)E1*,>88C\B)=WFDB(?1= H?YIKKS?UJ=F?40? ?<??D?:F ?<=VGPUF-LAKLB0 B>">&F;0!1 <%JNB A? ?
> C?K>ZD8<(*KI>/=*P/</;/:/92K*;K81(88K71)K6Z
1.*YR
*Z1***+;H!>(*02IH\OHU\OHV\OHW\OHX<H%9\O2AX
H <(+RI8<(-7I6<(*VI5<(+JI4> -3X^\]2HRM1]1*2P!-3*NHUX[P
HV*U0!+R0"2KH*]0H+]/H,. J/[2XRZA A<P+6XP;&X JA9DXSHR8D=H-3XRHSP +(JAJAHP+ 4RNDJPAL9*HG:0& [K? ( [K>YNK=Y[  VC<9F8D][  VC<M[8B][K; PQ[QN*JK:XOK>YTLO8 16QT*
12/9XX YY X1 Y1XWXXI*XZ: X]XY%)X H I(<(-3I	>(+T%&.)<XI68AX HYI%?*3HY9HHZXQH <X+P8F8F8FLQ\QPY*3HU> P]-3PZI$*2B1[&HU>(+0(-[&J2J%0BA??>+5K	I=H:9F8FA"2IH\OK&/[HY>(H">(BA%B GA&?<D&K?Z!K>Z Q4*SN!=H:9H9H2Y^!2AR!R *G.N!=H:9H9H2YN!^!2AR!R *S.I^9I]<X*+I\9PI <PR . H
%[H\%[%- DOES NOT EXIST:%-ILLEGAK?Z!K>Z 2YN!2A^!R!R +E/+K2A-XD4LMIW<(+QIV<(+]I;<(+ IU/PLM%T+QLMIS<(+QIR%T+ H!> HU>(-3I	HOXZ;VX^K?%Q9F8FA"LZ\Z2AH IP<(%)X 0(YMI
K?Y
IM*QYMI
K>Y
IM*UK=Y
: I+K<=*K;K:=*F;K9XHK8[JK8[KK7[LLHK6?+CIM9DYMSL*1IM2Q]
2AQ
SK*
SK*!IM9D9D9D9DYMIM2Q]
2AI
K5Y
SJ*].LIM9TYMSL*1**S**7IM2Q]
2AQ
S)*!S%+
K$[%K9[&S	/V;K&8H[&/V?4?4+AIQ+IOPT+3IQ$6XTHUN0?4? 	???E?;NCI0&	?	>	=K< [I+2K/; (/:CSCVB/CI];2A2J%0KH"J/> *)J0X(J1X	J2X&^3^4J5^6X"X)..OS8D?H(Q..GFVA<?"EB$CF+BD8%?HKCXKBXAY
I
K9> +OK8XJK<[%2Q\JS%+K2AK7XHK6YNK5YO9DYMLHK9?8AIMQO+U2I]
2AQ
QN+S//]HUSHVSHWSHX>(/	H;]HXS?4>+	?M?0BLNX$R60& [K? (  V8!K>> *K/= [K< (/;AHA! I THOUGHT SO.***ARE***YOU***SURE?+9H3XO$ZM88D8 ?P%J[[2.LO[1;XLO[0K18D?X+YK02> +Y%: K09DK18D?X+HK0H<+XK0X!K18!H19X[0.;Z[1K008!H!=H/[0.T4*0%0FHK(A: 2I\=,.S*/%%0HH??[(A/%$V!AF+9K0$
K2[2/.$>SABLOPCYLYYU;[O??QU;[O>?QU;[O=?QU;[O<?QUO?O>9HYMO=O<9HIM9H8![ IU< * *%K;> +"8A[!: YQK:Y[;[YNK!<(*/K9K8Z3M[K 8][Q[QN*1QQ*?K7YNK6Y[*1: YQK6Y\K5YNYMM\9DC78B<XK7]\M\Q\IMQN+E9H8!YMI\K5Y\YUIMM\QUQ\=H+Z/48 [K3 (<BINCONSISTENT BACKGRND.[	\? X*?8 (?<Y(YKYH
+Y+0&K?YNK>ZF[(RFQN*F [K= (K<Y^K;YN9  VK:<(+\K9C8<X8B<PM^]^<PQ^QN*RK7Y
I+<(/68!YOK?YNK5Z/M
8!K(R/> /4Q
QN*- [K3 (  VYMIM8!K2>(/1IM8!K0>(//*6PATTERN IN MEMORY. REPLACE? TYPE Y OR N. : YN*YWHAT IS PATTERN? SLDRSV$%I>BCNR^CYQGRK(RFT?B.=R?3Q(Q
[(?9Q
QN*Q
QO/?I+K>?+^Q+K=Y^K<YNM^Q^]
Q
QN*O: I+8BYMIM9HIMK;]
: Y4K:Y5 [K9 (<B"6	8	7	6Q5*	5M

4M
	3	2 [K1 (/0K/YXK.YYK-YZY&Y	K0Y$K0Y%K0Y(K,Y).6END TRAINING.CONT. PATTERN AREA FILLED. [K+ (/0 [K- (/2$&IO$&"&SSCAA(A$BSHHLKIIGFX$SO?<P?9Q(? P)0&	?	>	=K< [I+2K/; (/:KLH+X+KLK?>(*["KLK>> .AILX2.AI^[L"H2AT> *].ATTR%*%+A*>KL9F8FAKOH
HKL9J8J8HAKOI
IKJZ%SISK+CI.	=M+CKI[HY
I
K9> +OK8XJK<[%2Q\JS%+K2AK7XHK6YNK5YO9DYMLHK9?8AIMQO+U2I]
2AQ
QN+S/%;<H+2S7+.: [7+0H]	8%<+&S7<H/?4>+	?M?0BLNX$R6K?YSI$9HY$<X*KI%9DY%*BQZMZI%<(*UQS*J: [*+I(8B9DY$I$<XK>Y(I)8B9DY%I%<XK>Y)K= (+G OK.K< (/;DELTA X, DELTA Y PRODUCT NOT ALLOWED, DR. BOLIE.:IZK:YMMMK9]MO8
7/6	9&KWXIK?[ LO8 16S +X12;/UI6> +-I7>(/!I1K2Y0Y7/!I1K3Y0Y6/!0!1 IL;$A$ BAF E"."(>?<: YQ8AYW
?K>Y\K=YNK<Y[K=YO]\M[8DC;8BM\]\IWI[Y[QO*OQ\: IW> *&QN*LQQ/:K9YW*HI[K8Y[*
* %<%6%5P3*3%%5/HYXXHWA,8!HXA,>(/:%2HX/9%": X0HR?H,ZH]K8<(+NK7>(/6;X*[%<P0+]HWXZ%	HPXLHQXMHRXNHZXO*IHW8!HZ>(+T%%)$*IHZY8 Z/5P\L\I >(/4L\XZ%</3[Z[&^AD6?/0A Z?(? X*[!YU;[O??QU;[O>?QU;[O=?QU;[O<?QUO?O>9HYMO=O<9HIM9H8![ IU< * *%K;> +"8A[!: YQK:Y[;[YNK!<(*/K9K
Z3M[K 8][Q[QN*1QQ*?K7YNK6Y[*1: YQK6Y\K5YNYMM\9DC78B<XK7]\M\Q\IMQN+E9H8!YMI\K5Y\YUIMM\QUQ\=H+Z/48 [K3 (<BINCONSISTENT BACKGRND.[	\? X*?8 (?<Y(YKYHX+;IUK?<(/>=H8!YUIU8!YVIW<P8!YW: YPK=YNK<<PK;Y[I[Y]IVYOK:Z^M[8R^IWI[Y[QO*]K=IUYOM[]]IWI]Y]IWI[Y[QO*(IVYOK9Z68R
]]IWI]Y]QO*6IQ>(+IIW9D:K;<P8!I[Y[QN*WQP/>IW9D:A<X8!YW: YNIQ>(K8K7<XK6*VHZXZH,A0>(+-HZAP>(+*%%))+-IPHZXZHYA>HZXY-	=I.0\
X* K\[\O?(? ^?0QQ*F8AYWK?/>O=ZI.I8IT<(*&K?<(*%K><(*$K=<(*K<>(*"	;*CH3>(-: X3XY-8A8A8A8A8A8AXX%</:HYZ*BHY8!X HZP *1*BK9< K8< 8A<(/7H?<(/6K5<(+Z8A<(+&W4K3[WH	?(+OSX+S: [XO4X KW, SYKW
Y+OBM??L7K(>(+[(P
X^H	? %]I\[W+MS(/7K2-H^-6^+Y%^.Y%,\"%BL*M+C*AA4>AZTZ.?;X[BYJ"B/?;0&K>YXK=YYK<YZY&Y	K;Z$[L [K: (*,TYPE IN A TWO-OCTAL-DIGIT DELTA X, DR. BOLIE. 0Z  VC99D8F]X  VC9MX]XYUK8YQMX9H<XQUQQ*<:IUK7< +SMX]YKL>(+M/6SLK5Z$QXQY*P:K4 (*P NOT ALLOWED, SAM.I.8!M)=+\[^M)K
ZM)%++PCZ0J0%-8D"+J0!WY,"???:G TX,A
A(A$8K?YSI$9HY$<X*KI%9DY%*BQZMZI%<(*UQS*J: [*+I(8B9DY$I$<XK>Y(I)8B9DY%I%<XK>Y)K= (+G OK.K< (/;DELTA X, DELTA Y PRODUCT NOT ALLOWED, DR. BOLIE.:IZK:YMMMK9]MO8
7/6	9&KWXIK?[ LO8 16S +X12;/UI6> +-I7>(/!I1K2Y0Y7/!I1K3Y0Y6/!0!1 IL;$A$ BAF E"."(>?<K?Y3K>Y/K>Y.K=Y1K<Y%Y6Y7K;XO	:5A*P;K9XO	:I.I%Y.K>I.Y)K8I.Y	K>I1Y0	7K6I.> *,K5I.Y.Q6+BK>I.> +BI$I/Y/K8I/Y&K>I/Y(I	Y)K4I.Y.Q7Q3+B.55A+C]1I0Y1K3Y2KV16KV16KV16KV1612Q2+J*S>?PP
RDATA IS STORED.ORED.!AHWA>>(/&%*< S&/&W0>GWJ?;?;>BC!?A%U%VD(A? D7R2J* +MCP3IR 7E
C6MNJ7PSO.,B *MBJ7I+S2 OWH7K2J* +MCP..^+*MBJ3TSA2 3W*MBJ3DGC2 OWH7K6JR +ACD.(B4*0&0*MBJ3DGC6 CP3O;IT*M6 OI7Z^ 3ASDR*M2 7J3P& 6 CSO7T6JR +ACD3P?P7ISN*MBJ7RKA*MBJ3DGC6 CP3O;IT*M2 7J3P& 6 CSO7T2JWR3S?P/TB,*MBJ3SGT*MBJ3TSA2 OWH7K2JR : [K? (  VYMIM8!K>>(*RIM8!
=<(<B*	<	;	<<BDISPLAY IMAGE? TYPE Y (YES) OR N (NO). H!	*DH"	*EH	*FKAX%KX&J?X	AX	.D  WRITE :0&K:YXK9YYK8YZY&Y	K7Y$K7Y%K7Y(K6Y)	5	<	;	</7IT%H!?8 X(H%<(/&?H$)H!<(/&/T5P;]:1:.:9P;H8!XH"8 <X9AX"$CBAA(A$X:CNCY8V:K?XMK>[%K=[	K=[&:[([)K<[K<[$:LMK;=*1K:=*	K:=*)YM
(S9F[(IMK:=*+:*::*3:*4:*9K<(+H*Q:K98AK(S9F[(K98AK)S$9F[)S&*-K)K98B[)K(K98B[(K(2I
%2AK%K8[%K)2I
%2AK%K7[%K&< *JS	+^K6 >.:K%K5[%*H+0%W9 H$X$+		>6/]X$/]ZH?1PBF(?:? ^E	?:K?ZNK>ZO^NNNK=RN^NRO*F	<<BZ:Z;J=<(J>>(*5$GB<Z8J8: H$X$H$8!J8> *1H%8!J9> *1H&8!J:=8!8A?-^$G28*WX$-^XMADADBBC=C=/??I[WH0WHYWH]W>H%%1*H6IN> +LHN> +R2K//=KXZHZ8F8F(%/8D(8J8H((:H?%)/W=$C.IK
)HZ/(GAP2ILI2A/0U"2I\H2A/52I
>:B0A(

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