File FORTX.SV (save files (Executable program)

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

?>2CB
H
H0,!
;H2<JL]-=T RDCL?4H\Q=Q=D?D6KK,QHX(IL>HG?(L8<? NP"B"BBBZ^0
???^X==>^0303
?/?BX[?KVKQ) - <S"(<F!\M^I\FX:AI"MLR"(2(XE&T$ ] ]+E$H69R9N7V-A%P-T4,AVB!J!(B?>?=C , ??X?W?T WB:
?II> %XQH*I	>*KI0	=HB<(*S%(%PXBIJX+H+8!LG> *\H+8!"7*SIG< *4	<:>(*+"2QL;=H%XI>\;2AR	;	:I5X/HEI02B/9?HR*B<B[H	8KH> %X	8["%R1	8%N%PK"%(%P.7<B[ROR%QORSRA:> +J/H<BI0Z7N7R7A:<(+\%P+U%P/R:AI4"7,7K7/"X;HY2Q
6P;L;C78!HY> +(H;8!K6>(S62A/" 
?!0H09D/IRD/A($<B[%
%YFXYG8A[!:2C	?*Q+IPK>T*HS"8: K!>(*HS$
$K%8A[TOT%U+(*0I8
%I8
T: YG*=I8
TSTOTK=> *:I8
T;WK%[$O$%U+/K<XEQF<HQGK;
%2BK%	:.S$O$A:K9?H*;8A*6K8TK!8AK7=:C<> +I*H<B[K!K7? /TK!K%[$K
$S!/T<B%[/&S&/&/&/&<B%[/-/-S-/-/-&!8/:>8B ?ODFB/G=\B=F
<BI:Z1HEI0PE[KOKB1< .IH> .I1	?IF: *V: YH.>*C<B"[KKKK=:(*YKK.X<B%W<(*-K<=(*.K=9$K;<XR!R!:KK.!HE[M%
-L%W<(+EI;< -L%ZKMXEPX%X)%&X%,7PY% H=[K%Z%Y,7H*%3%"%3;$%3,7	:: HGZ: JZXN[KNX^KK^XI4	9HGI7XG,7	:	8I4> %X	8:	8%(%P,WO1?/2W18!0B7)SJ?&? /AD<BK?X
XQH5X XPX1I>\ %[*O+X+P+RI;<(/>K=< *^H>(*^II>(%XK<Z/;K:X.L I>C9>(/8H.	7X0:AH X/L/I>C9< *ZL/	7<(+B8!H0? +BP
%%P L %UC,P H%\ *(H.<(/;%U-$+KH1>(/;<HPH.I>/6HY/6: XM	5;(XM<H% H=/6.<B2B	4/\S\/\<B[1%R% K1%TK3%P2IO"2A%\%PS"/"2I,HT^J)X1Z8=J^=%?+J<(X.: H X H K??H/>H.\ /=L/K<< *%L \/P P1/=H):(+=H%> *^L X=	;\ H 8 H5< %X	:/9K8P
<(*:8A<(*5K7< *"P/P/L/%U-+*"	68 HPXP<H	5*R8 H1X1L I>C4> +FK3*L I4X/L/C2>(+OPP8 K1*<B: HEXE/UH:(%X	0%ZX%XX)%&H*> +X,W/]I5+"[3&U:O	XIS2ALI=H+<0- 1P (8 \VJD?7I[,43$
XHJ&\Q<B	?K>X0K]<(*JXY[]+Z%S*N*X*("?%S*J<H*N%MHYC=XY+[<(+\[WKW%U-2KW+X%WK<Z(*"%M*^K;+XC:XYHYXK%S/9<H*9K8< /WI< %XQX:*,C:X]P:RU*,X/H0<(*?9P8HKI[VP0ZH/2I<P+R9F8F8F<HOV
V2A*?RRRR.<BZ?: 2IO^2AS^XOLO<(/^[2LO[VK28!J?> +&/VV&G9OYQPN\?RNO^?V??::4HD%U.$*\X^Q%S*(<H*R%U.+*\: X?%S*\*\C?X]H^9D9DH^9DH]X^*O%M;I> **HW<(HX> *(HY?H%X/>H^P?8!H>9<(*<=81X>8DJ>Z8A<BP>*8/=A/=&?P.P;;HY<(HX<(HW>(/<K;X^N/AHW?H/N	:H^K9=H*(X^+O<BHK9D8FXKH]C8HKXK
Y<B%+[YLL9![N<X/KYSN+)S/Y+	7I+XH/)""OM)G?8PHT MYQ\MZO<BHWXZHXX[HYX\.<B;HY8DXYHX8DXXHW8DXW.H<B;HYH\XY8DHXH[XX8DHWHZXW.T<B;HW8HXWHX8HXXHY8HXY."<B""""""""TH^I8=H%XX^	?..<B"""K>[O"""TSO<H+J"""""""T+H^K=X^	?.;<B"H""H"H"TH]X\X[XZ"T/P;K<X\X[XZ"T<P++I>XWH^K;<(*7X
K:[O""SO+-H^HWXW/9$	/0IY[0MY?7HD?(?6ON<B	?I9YH8AXE	><(%XK=<(*SK<9K;<P%XX]	:HEK9?H*F	>>(*HHX< *PHY=H*PX+.<B	8[ K =+D8F<P+J8J8!H&?H+ZK I4["O"8H>X*9K7%PO M"S O "S O C6".":K5%PK %T."8F?H+U8FK4%PK =H	3%P."K4%PK 	2+HK1%PK 8!H	+H<B[!K!8J8J8JA:< %PK!A:< %P/"M ]8&
[(?\;?:QPJ?&? F9*<B:H,[&K8 [$KW"/*QH-RI7X-XQS*BH=I4[&O&Q> %XHY8 G&HY
&.<B:H&I7[&K%8 [$8 "/.^H&RI6X&S%* <B[RS$<H+MO&M8!HWS&> +OO&8!HXS&> +PO&CR8!HYCRS&> *1K&I6X=./R/./S&S&*1<B[&H&8 H-?%XHW
&K&XIHX\IHY\IK&/RK3[	2A
?O42I
5S4S5S6+)2A/>,X>2A/%"/=>0 X($[^%[,7*G%X*D*DK
XQ%WI;>(K?K^HYXY%M% K]8A>(*ZL=C>K]\=: H&XNH=\N%W<(,7I=<(*AK=> *D	<*DHY\NH&X	H&I6X&%WI=<(*;K;> *D8A\N+C	<*DHY\N%WI<> *D%W<(,7I=>(*A*D K:[
: []K9*K8[
: []*;X[]K=[
 K=*<BH>(/ -L<B[
HZXWH[XXH\XY% L=C>K
\=/%XWLNXXS9*NA )CE-D
?P	*L;X[HK?[I:A	HYKIXY	>K=XIHW\IHIX4HX\IHY8A\I%R!2%]"3%R6%P: ["%W<(+,%U.0+-S"+-H2	HYK<XYK;XQ% %R&H=%\%PPVPV*"L4[I\4KH	:KI\4HV> +J%]M,7%]"]%]M%R!!HV%T%R!6%P%]!<%R"G%R"M%]"U,7<BH4%\/<BX2%
+-/	S"%X*:+2H 	9%<+(	9S8+4/%[W%9H0BPD"K?XQ% H=	>	=Z<"	?X""	?W"	?T""	?C"0Z="	?T"0:J=8!HY=(/<8A	>"	?WJ=/;<B%
/<.<B%W2IN	2AR	>(.	/<<B	:/<HY=(/<8!J<?H/<HY.0<B2Q\32A: H3X3H38!HF?%X.>KS2J$*DWT&+/.;LST<I"[,K4KP[.K,IM9F8F8FAIKP[PKP9PK5>0+6	3"./F>H/XK<-H>G.!=>K;-HW?=E-WQVKW[WT)<BZZZ[K?Z7JZ8D8FZZJZA78DR7*QK>%P.< *VJ[>(*EK>%PR[*E%(H*%3: X3K?[
%WI;> -L%M%ZP)P%&L %V	=K2Z7HEXA	</;HYR7<BS
<H+%W<(+BI=> %X*3S
+H!8!H>(+ZH"8!H>(+R%]%[H"	^%]%^H!	^H	^X%,7%]&
H"+U3Z<BP*H*A:K:?K9H*X*H*/ <BZZK8%PJZ	7/+X Z[IJT]F<3\&?%0O08U0?<%Z	?I6HY"G,7*^<BX3H9XNXQ: [3K>[2%[*^*V*0*^*^% H=%V*^H=\NS2<H%X%W<(*5I<<(*4K=< *+S3*^*PK<S3< *^*PHYS3*[*^RG:A\NI4K2?H*^PH9XNLNXWLNXXLNXYLNXZH98AX H9XNX%K;X
HZ8!HX>(+ZHZ\NK:\NHX\N%%	9%(H*%3H9XNHZ9H<(/88D\NK7\N%%	9H9XNHW\NK:\N/6.GB<B +%D P-(AQ?,?;0HY\N%%X%%]%^%R1%"%3H*%N%PH3%3/?<BH9XNH%\NK>\NHW\N%%X%.P<B[	H%> %^H*X8: H X!P!P!L!K=< +":AH![&O&I4ZPNPA58A^P: H!X!S	%	\!H!8!H >(+E: H!X!*6K&X!L![KK	%YH8X*H!I5X!L!	<H!
!H > +NO&%VK;H
X%K&X H%\ .\8A> /:/9<BPG\GHGK8?%X/(<BLG[(: HGXGK(/0 P"F$?D9]
O=
1J XHX<%WI;> %XJ$*L&<(%M9F8F8FXY&[AKAHY\HP<H<J!?/?KA> *IJ"V,7Y?>D[F(%Z%]4,7: [VXY%[*2-L*2-L-L%ZSV*?%R$VHY%\%P%]%(%]%*,7A,7<B%Y00/A<B[M%R%WKM%T%P/E<BH+<(+T%I9%Q
>/M<B[AK=XH%R1%"%N%PH<%$H<8!X<KA< %P	<LH%T%PP<+(H*%(%P/V;2C/;CFK[QQV>E+
Y?($BD<B	?H 8AX!H!8AX"L!A:K>>(/=L"%!<H*VL!A:%UK(	<:L %!	;;L!A:%U	G%X<B=*28D=*58H8!H&=H*28!H&I4XRLRC:>(R :. C9*1.<B%]&\.8K8\!*VH!K7> /6/5%R%;HW%!<H+L%R%>HW%\%P/4<BH%<(+ 8!L >(+
H%8!L">(+!%^+ SPSP/P%Y0-%]$H%PH:2C/3%]"	/2CJG!BBJ6
*"F &P
DH*L*(?A,4<BZ.J.%VK?K>Z,K=Z-N,8!J.>(*(R,R-*IJ,K=Z,K=Z-N,>(*]R,R-*V%XJ,8!H$>(P$J,8!H(>(P(J.^,J-K<."1/;<B%-L"%V+F%,*=<H+IS	:.1L >(.1L"> 	9	8	9.1%,+M+L	9	:.1	:%R%KL %\%P.1<BL <(+)?+\	8	9+): L >(+	%R&YL 8!%T%P+)%]%,/S,S(!,&,;Y?(^X%,*C<H%^L %O$LL /?<B9H<(*Q8D%
$V.IRIRI<P.I%R&Q.I<BH%%O$
H%%\%PX%.X<BH%%O$(.!%-%,*/	>L"%O$/L"/?L \"**<B2IN22AR2Z9%R%P.2<B2IN<2A	=R<.<:AYH%W< -LH:> /<2I2B	;EH. <B/:<B%W> -L/S<BA:K9Z9N9/X2C/8<BZ9K7%PJ9%Q/ %\%P/6SHB>(%XXBYF/5J
GN,;^E]*$.A>G%	CH,S)	<BL ZKL"\ "LJK\ H%\".<BL![YI:\!2IM%2AZ<%%H%\ KY\!P
J<2I]%2A.L%-%,*&<H%^	?L %O$=L />%,*0<H%^	?L %VK=ZKL"%VK<K;JKZ<8A%YL \"J<K:> H	\ %/L"/>K9K8XOHO[Y%,%^	7L"%V/6H%%V<H+X%Y0R%RCX%L"%\%P/5<BHC<(+(%\I9%QXC/
%Z/
K$1VGHB:BT3$CF$7,D,S$
A(O
0!CF)	,&<B%R&D.H%%V<HPHOK?>(K>K=ZP8A%Y%//<<BL "*.S%,%^*\	;*;	:*;%-%,*$"S"&*;"S*;<BL""*.&<BZ4J4	9J4%\%PJ4X%.*<B:HPH>(%X.4L %VK8H
X%/7<B[P8 H	XLLL8!KP>(+NPLPL+FLL/A<B%Y0O/P<BL"%V+\L %V+
/TL %V/T%X[52IO 2AS [3K5%V<H+2O3S3A:> ++%R% %R/ 2$7D(I	S(!+Z0X?=[!8A8A8A8A8AZ$K?J$ZPNPZP	>L %V	=%R%R%/<<BLSK;>(*\%R!Z.TXSJ$8!K:Z$N$Z$%R%R!\.T<BL"%V/9%-.(<B*>%R&YL %+Z?LL8![J?S*8%T%P	8..<BI0Z?I1Y0J?Y1/A<BKY>(/IHY>(+V%R!%HY%T%P/I%]!*/I"(%,+ 	7L"<HL ZP%R&SJP
\%PJPX%/6C;B!,;,S$8-
	F=E,>8U&1	A<BI9XD%[*L*L*I*L*LR:	?XOXD.	>X%	=HB<(%"%N%PP3*^H*%3;$%3,7HAXE%W>(/<H*XBHAXE: YFH+YJX+/;<BHB>(*3HA<HK:XE.-<BZ-K9%PJ-%.6	8%,+K	7V	6L"<HL 	5V%]&V+TV	6+E%,%^	7H%%V/4V/3<B%]%./VH.%U.7/2K1K0//J ?9HZ,;-
,*$8,S.([GB-GN.T9*C"".K?	><(%XK=<(*ZK<J*AHYK;?%XHY8![$".K?	><(%XJS$*S: H<<(*:I5?(+AKZ> JR-<H%XJ-XC	:J-XY/9><BK8[+K7XN\N\N\N;$[ZX<..SZ/6O8C5I8
8/6K7XNLNXWLNXXLNXY/4<BA:SZ+TO+
+S+;$[Z/J9F8F8F
+P</J<B[$%R1K$%%PK$XJ/Z<BH=%!K3K2[+%RH=%\%P/$$V?6MY?<Y?ZMZV<H	?YFAK?K>ZK%WI;> -L"%ZI4%Y%/HY%\%P%/%WI=> *!"HY?	=HY=	<=H%\%WI<> %X%P%W<(+
I=>(+[%M%WI;>(/1%MX)X%P%&H X!H*X8XR%	\ HR> LRC	>(+O%R"4HRI5	;:["HRI5%VI>K"%T%P+TH%> %^%]">H8X*L 	2H.>(+
%W>(,7*)%]D,7%[+(+)/"P%XXQ% H=XYHY%!+(/";I9]%W> -L%Z+
O06C"0FC<BL!<(K?\!L!%!%*L!.<BH%> %^8AX.H*X8H X!P L K>>(* %	X.P P P!P!8AP [6"X0P!P!"[VH8X*	=K6>(*4%R$VL %+%\%PL %V+MK<H
\ K6I4%Y0[K6>(+CH.	;H0	;KV	;L %\%PL XJ.J%]&OK:*7XS%"%NXJ+4SVL!8!HJ>(+Q%R$VL!%\%P%R$
%"%N%P%R$VL!%\K9%P%P%R$
H*%NK9%P%P/VD9]B..
P0L%ZH4>(/?H2>(*OH4%O$VK>%PH4%\%P%R%SH4%\%P,7<B%]&K%Y0^.U2I2B	=BHV<B2AJ%Z[/<<B[\KY[ZK;[[OZ<(*78!K\>(*9SZS[*,%XK\
ZKY8!KZ[ZKZ8!HT?HPTKZ.&<BKY[ZK;[[
ZSZS[+I/D<BSN%T/N<B<(%"%NI9%Q/R
0<B[)K)>(%(%/K)<(%)%\%P/]<BXWXXXYXZX[X\/*,? VB>G\"*<B:X:XSYI2C	?K>Y2%P:A	=;&HE=8 ZI8%PR*RKR%P%PK<XHLH< JA>(*"PH*[LH	;%RXN2IO:2A	9K8Y2%P%PP:: IH> ,7/7<B:XYXXX>X]X^XWYX?.4<BK6<(+FK5/%]!0/4HEZ: Z?HEZA%[%X+O^+MI<<(++8A<(+(K3>(J?8A> +MJAXE	2+PQIJXE/1: J?+LR?+M
XE/04.4*^G?+SC0LO4%"[I<3E"CHS?CR[]EJ<BZ"H:> .PS*RPSLS2B%2LSK?> *G:AXSXJJ"<(*ZI8A:K>\S.K=\SPSK<\S: XS.O;XYXWHY?/:HY8!2I
92AXYK8/7HK*$<B[QI6[UK6[S[P[RKQOS=H+D[QKT[PSR*;:KRKP< %PSSSU*:KQKT%P.30	5:2IO42A[SOS<(/3XY	5K2> /3/:: IIYI	1%WI<> +)/0DJ 4B7?^2DGKF+$MX-M]MZZBJBMB =6B/BMJJB/BICFCOCRCTCXB CVC%C2C3C)C/C.B B1B.B2B BMJJ"/BMBJ??O B$:B$SSSSBBN.D-^UEA%\ADA &)?=?CXCFQS?0?1)^=U=B
(OBZL=RA?B<>B?CECOCFB?<BM?A>I=?H-]M1]2M3Q32I]4Q42AQ5)%2Y]<2A-]T+T,."?\KPKQKXI*>G2?(8??: YS%;:A2J%OD&=:%:*L -9%:$6%-9:A2J%OC&=-8:A2J%OB&9-7J
]6JX
?JY
>K=O<
<	;2IJX
::A
9;VG8O7> *7
6O5>(O8C4>(+CKZ

R=S
S *=;XO3
32AK%[YK$XH\HSY+KK![YK"XH\HSY+RK2XH2J/AFORTRLTM>?;?P]?%*0224: ZC*\BBXLH  H? \H?;XCR>%!>B+>E>>O>PF?&HK\JN<B2A2J%OI.YR*>K?> *HIR[(: IR[+K>[)O)S)<(*	[*O*S*=H**8![,*>K,>(*YK(YR*TK(YR*H8!
+S+O*S*=H**;O+[,K=
+S+K,K?> *2K+YR*H2J.FMRQRK<<(+AK=< S/	;DT%<B2J/J2A0Y/R0\C:K9>(/80Z/R	;AHZ$/7K6
5: 
42J/6%"2$H\X];(QLH)T	/ZI*>E?=A?>G= B  P=R<B2IO-<(/?[*O-C>< K=9Z8J[+S-O-Z1S-K<ZXK*2A2J%OA/;: [*[,	:.<B;J
[(	9R>S**>K,>(*.2J	8H"&XBP/7R1S+<HS,K6[*J&Z>J0[)* *>+P+LJ&Z>O)AP9J8JJ8J8JS)+QO)APZS)O)C5K4<(**K3<(* K2<(+&S(K1<(+&S(K0=H* K/< S(2J/(>O 4??)DA2>[?&A?9?I(?ERDI*LAO?0I-<B=*,8D=H*N8F<X*K2J%X?*,*.8H8!2IO?2A=H*K8!2IO?2A[$;VK$YTMTC>>(*%O$?H*.*,;(G$K==H*KJ-?HR:2J
YUK<[	O	S	< *:K;[%+\ZO	S	[%[&IUYRS&+GNRAN+N: [&N8J8J8J+E<(+Y8![$	:*3ANK$>(+A*3IU8!IR2IO9
9W8
72A2J/%?/6	52J	4	3	52J	4I\$	D:AK!F6AHAFEEKV	*7D&<B[
RXS^*X;AK\<X+Y[\SK	?"T/>RNK=[^JM[]JDZX*B*X*0*-K
8F8F[
JDZXK
APO 
 K
8F8FAPO]
]S]*3K][ S]K
C<
]2J;.> /"Z3K;"K^K:> *9O98H9T
92J	8H:A2J%OD&=+U2J%OF	7!2J	6;&G9
9	7!2J	6T9?<B>K52I
42A/!=$<
$VHH7%WM >(+5%V71:AD??&FBZC?9?I*>GA&HGK?> %X	>HV<(*N8A%$%]""H,I4X6L6C=>(*\	<%]&	P,P,P,*NX6HT8 H6>(*+K;H6%\I9%Q%]&	P6*]%]%3X0%]%5H-8!H,> *9IB> +&/:H,I4X6L6X6H6C9> +\	<+E/8H6C7>(+MH,	6%X<H8AXUH,%VHU9DHU<X+KXUH6A8> + %.P,P,P,*0%R%7HU%T%P+\QAQA/5CGCEB X/^W"5I
$(I\$(H02OP0C43*4[H6!P[P"?/?H,I4X6L6C>> *Q:A[)SPSPSPQ/=H,	</;[,[+[P<HSP"?*.SP2QOP[)SPOPSP<(*)8!K+8A> *XK+K)[+Q*9%T%PH,%V<H*8%T%P%T%PS+K+8!K,? *V/=<B2QOP2A<(.?8!H,>(+NSPSPSPSP+R?.?<B2QOP2A[*H,%VK)9DK)8![)2QO*2A%T%PP0: K*[*S)+]/QBBBBBBBBBBBBBB/KO/\P/E]A3IAI
YEQAQAQEQEMA8!ME> */QAQEMA8!ME?(*+IAI5YAIEI5YEI6[3MAX<ME]AH<]EQAQES3*]IAI5YA*H: IAYA*GQAQD*B3YBQAMA%\I9%Q8AMAXLLLC?>(+GMA	>:HUP8+C<H8AYEMA%VIE9DIE[3IB8!K3?H+VK3YBQAIAI7YEME8!MA> +/QAQEME8!MAYEIE8!IBYBIEXU%.QD*4/=IBYEQA+(<BIB8!YDK<YA/3G8O![?43OP<BH0HUC?X/H
HUC>X0H/<(*UK?X/H0XU%T%P%]%0*I%R&HU%T%P.<BH,%\I9%Q.[H&I7X,H	8!H,>(+OI6X."[L,P,%T%PP.*,*$K=X,H$8 H,>(+AI7XUK<"[%.P,*5K;X,H(8 H,>(+!8AXUK:"[%.P,+C	9%]:H4> /8%R6K7%\%PK7%\I9%Q%]4/6X,HT8 H,>(*!%R&K5H,%\%PP,+"%4%4%$Z,)*%"0%$6+J^AM(^YA?>2I.O?2A8!Z*K>Z):J)J*?H*P
=Y2.2QN)2AR)=H*HZ(K<Y2XSX:2C	;Z[Z\%RZVJ(	:%]Z %PP:*H2Y.+OC2ASC<(.+X+K9%P%Z2YOC2ASC[DKD%T%PKDA:> *6*,AM> P4A.1>.*%>T=I,[MK<[KKLZ%9/O%4IO+%4K;%H IL>(%<;&%-?U$[8
:%;<H+5S8+0: [8+2H 	9%<+(	9S8+4/%[<3EJ[IJ C68;XX3"^*I8<(*I58!X]Z5%<"^*[H]>(*UH ")*LX3%<")")X3-?%")*LVOH ?(*WH INAM> R^H .^VYA=R5*0J6%K.)%6Z6: Z5.)??H)?-?/?$/O>> .;IJ$	$	$	I=G=> +BO=I>< XKS2J$*DWT&+/.;LST<I"[,K4KP[.K,IM9F8F8FAIKP[PKP9PK5>0+6	3".	N>H/XK<-H>
&)>NK;-HW?=]E$&$%UMUHL5HFYK
?%WI;>(/>%M%[%X*V*K*KI=<(*EK=> *K/<K;XQ% H=T[[Z: KZ> *$8AT+Q%WI;>(*,%MKZT+Q)HYZA%WI=< +)J8!Z: HYXYHYR*:JAXY+BK:<H%WI<> *KHY=(*K8!9KZ>P*K8ATHYTT*E<B2Q\F2APF/T<BH=I4ZNC9> +%8A/[H=	8/7/[<B%[*K*K/)*K*KZ2Z"[YZ[IJT]FVKOP,)X?=Z(R	?IK[1: [%+<(+W[)+8![(S1H32Q
12AS1S%/&: [%%WI=> %M: YK%[/>/>*+*?K=<(*)K<> />%M+QYK*\K;[&%WK:> *5HY8![%*\%MK)%V/>IK[	HYS	8!+MK9[&K)%V<H/>IK>(;XHW	8HX	8HY	8S(*R*ES(/>+> />+^: HFXF%WK7< />%W<(,7I=> %M/6<B2QO12AS1/+=P=HB<BVB?QZ>YA?VX6?>?SVKWTH9XNX<	?<H+YHOI;> -L	?%XHY\NP<H<K>? %X%WI=<(*J
7> -L%WI=< %M%
%XXQ% H=%V%X%Z	=%R!Q%"%N%PH*[X	=%R!!H<%T%P%RRH*%N%P	=%R$V%"%N%P%]&+H<8A%$H*%(H*%N%PH<8!X<H9XNLN%%PP<+NKX%(%]4,7%ZHY	<,7A-H]X\LHX,]\H]8 AW< ++%"))H]X]/+^K=XBIDXCLBA,I6>(\BPBPC+3I>3Z3$>C0H]H\X\H IF9J<(*"8FK?9H<(*!8DK>9H<(* 8DK=>(*
	<*CH5>(/;: X5X\/;9A8A8A8D/:H\]*BH\8!XH]P***BH]8!??H\%6A/X\H\8 ]/9< K8< K7< 8A<(/6IC<(/5K4<(+
8A<(++W3K2[\H)?(+TS]+X: []O3XK\,S^K\
^+TBM??L(K->(+([-P"X!H)? %]I\[\+RS-/6A.<??BL*M+B*AA4>A^AZQ] Z.?BEFP:P<B+NR%WK?
>H)? *!%WI9L<( <!!D!H!L \   % ) . 5CGCTB.=BCACNCDB.=ZCOCRB.=
CNCOCTB.<$CTCRCUCEB.=S=OCFCACLCSCEB.=PCECQB.=FCNCEB.=ECLCEB.=\CGCEB.=[CLCTB.=DSPA SNA CLA;JMP SNA CLA;JMP TAD (-SKP CLA;CLA CLL RTL(0TEXT 	?;DCA 7;TAD DCA \\;TAD \\\;DCA 10\\,0;TADI ;DCA I 10;INC ;ISZ 7;JMP \\CPAGE 21\\\, \\\OPDEF TADI 1400 ; FORTR	CMA;CA
L 2,IOH;ARG CALL 1,IOHCALL 1,IOH;ARG 0, BLOCK 2SMA SZA CLA;JMP SMA SZA SPA SNA SMA SZA SPA SNA JMP NOPENTRY EAPCALL 2,READ;ARG (1;ARG PAUSE TAD I 1,IFAD;ARG TAD 1,FAD;ARG DCA 1,STO;ARG CIA;0,CHS;CALL 1,MPY;ARG 1,FMP;ARG CALL 1,DIV;ARG 1,FDV;ARG CALL 1,FSB
ARG RETRN CPAGE SNA SPCCALL CLA;STA;HLTCLASTACMAPAGEENDLAPCOMMN ISZ I DUMMY ARG DCA I TAD ACHCMAIACAND AND 7TAD (DCA 7SNA CLABLOCK BLOCK 2DCA 7;TAD I 7;DCA 7;JMP I 7SABRSVFORTRNTM!	$^,[+,^*(&-&//* =+H
+G^*+,W>.D<.E:.C;.B$.A%.&/Z!0=\1N()^(+\!(-)^(0F2(38(7"%*SGU*VG(*Y\\*\C
*!C^)O)C(<"*(?"))E)*)B4A)H4)K")Q53)TRH)<XC*DXB*KXC)WWV)ZWW)^WW)"WJ)&WQ)+U	)1X)7XEDOIFGOTOCALLRETURNCONTINUESTOPPAUSEREADTHENWRITEFORMATENDFINIDATAREALINTEGERLOGICALCOMMONDIMENSIONEQUIVALENCESUBROUTINEFUNCTIONINTEGERFUNCTIONREALFUNCTIONLOGICALFUNCTIONELSEE
DIFWHILEENDWHILEENDDOF(GABF DDCFEEFDDDAD0X>\?6??CCD	B*D	CSD B EAB0D;A-/6^9G)B$].:A
^
]I6
-W1QE%WI;> *(%
*(PYPYK?XQ% H=QA]AIEQA]AQBK*(*X+G*?]: HYYCK8*(<H*2]HY8!YDK88%XH=%+[K<HKKQD*-ICYCH=%VIC9DIC8AQA]AK8*(*E+B:AQA]AK,7*(**(:AQA]A*E%W<(/KI=<(+ZI7<(+Y8A<(+[*(SKSKSK/K<B%[*(*(/]*(*()JK,IH=IL ,J: 1J: 0J5.L3	2"=V*L X*^BCK()H+<(%X"Z%WI;> %XJ*M&"<(%M9F8F8FXY&"[AKAHY
ZKA> *J,72Y^!R!^!2A.ZF(B<1ENDH2K+NO-NM(X()X:,X*+HJ-1
\1^MAINAREADAWRITEA(0AFLOTAFIXASTOAISTOASUBSCACLEARAIIPOWAFIPOWAIFPOWAFFPOWAOPENAEXITA<BQS*G2J	?EFT"ZD!]ZI2IO>2A> *V2IO=2A?*C-Q2J	?H.<B2IO<C;>(<H*&
:K92A
82IO<C7>(
6O5C4>(8A
3O2C1> 	0O52AC/>(.ZK.[COCSC=(.Z0&0!*?:*:<BO-C,K+?H/DK*
)
(2Q
	2IO&
%K$
2AO"
!/DG6	2J7E/SB1"0&,7TTATB HYCC"MC(Q8[?08??FD4P>%/YP>$D)D0]^A./H>>">O?<B2AK?
>K=
<K;
:K92I
8K9
7.3AWS")*M2IGT+D"I*-R"*)>I7COA3EV 3SGC+PCE3CGHR6?6JNIN7A2J*IM	P3FSU7SSE6I&/+E3S2 ?G2 WS3TV 3SGCP7E6JRIA	D*(R"2-F"*)>I7ACL/H?A"M&J3SGM"M&J3TSA6IOC3FSU+G>I7YOE2,F +DCD7COA3EZ 3U
D3EZ 7ASCO7R6JRIA	D2(F"*)>I3A\,X7,7(OX*)RRA)QPA75U$=;X87%U$5]U$4	VI3JVS1WVS/HVS-7VI-/V\*	V*);WQ%4WQ% WQ%[WX"?WQ!!WQP4W!M;Y]9WQ[ U$YV7SFU$R WEQ:Y;&RWQK^WQJWWQD/U$GIXC+(XT	WWQ6OW86SYC4+YJ4$YV)4W*=XZD$6Z*=CZ7%-X\8SZ7^Q[VRVIM1U.M)U7MYV]8WQ]=V\X+$INVALID EXPRE
SION$STRING TOO LONG$STRING TOO SHORT$TOO MANY STRINGS$INVALID STATEMENT$INVALID CONSTANT$INVALID $STATEMENT $NUMBER$COMPILER TABLE OVERFLOW$EXPRESSION IS TOO COMPLEX$MIXED MODE EXPRESSION$SYNTAX ERROR$INVALID VARIABLE$ARRAYS TOO LARGE$INVALID $D$A$T$A ST
TEMENT$NO $E$N$D STATEMENT$EXCESSIVE SUBSCRIPTS AT LINE $TYPE CONFLICT$TOO MANY $STATEMENT $NUMBERS$OOPS!... $COMPILER ERROR$INVALID CONTINUATION$I/$O $ERROR$S$A$B$R.$S$V NOT FOUND$NO ROOM FOR OUTPUT FILE$UNBALANCED QUOTES$INVALID STATEMENT ORDERING$MISSI
G $E$N$DS$DOUBLY DEFINED $STATEMENT $NUMBER$STATEMENT $NUMBER  WAS NEVER DEFINED.$D$A$T$A $TABLE $OVERFLOW$IMPROPER NESTING$TOO MUCH NESTING<BK?<(+YK>=K\K=0&0!+R;	<K;[\+Z[\2J/I <B0&0!+
;2J/]$INVALID EXPRESSION$STRING TOO LONG$STRING  ERCA?=\

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