File FORT.SV (save files (Executable program)

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

?>2CB
H
??
?"X=<=?"0303??
?]?"0\
?AXBKVKQ)P+\<S(>F	86M^K$F^:AI
MLR(4(ZE(BT$ 9S9^E$H9%*=%P+P-*L!	B?>?=C , ??X?W?T WIV?:H8> %\IK<(*J%,%TYKII8!L6> *SII8!"<*JQO*W	?*YIE	>YOIM< *9IL> *C	=IIYJIGYH:>(*0 2QL;=H%\I=\;2AU	<	;I4X,IGIE2B/:?HU*A<B	9> %\	9[ %V+E	9%R%TK %,%T.<<B[UOU%UOUSUA9> +M/K<BIEZ<N<R<<(+^%T+X%T/UK8/ X;HW2Q
4P;L;C88!HW> +&H;8!K4>(S42A/  $%K<X?
?!/J8(/IRD/A<B[	
	YLYNYM8A[:2C	?*Q+KQNK>V*HS$8: K>(*HS&
&K	8A[VOV%Y&>*0I7
	I7
V: YM*?I7
VSVOVK=> *<I7
V;WK	[&O&%Y	GQLK<YGIGYH*=QMK;
	2BK		:.S&O&A9K9?H*=8A*6K8VK8AK7=:C<> +K*H<B[%KK7? /VKK	[&K%
&S/V<B%
/(S(/(/(/(<B%
////S//////:>8B ?ODFB/G=\B=F
<BI=Z7IGIEQG[RORK?B7?H%\I9J7GR< .IO> .IF	>IL> *\: YO.	=*C<B"[RKRK<>(*
KR.^<B%[<(*3K;=(*4K<9K:<XR	R	:KR.	%-PK9XQPW%[<(+MI:< -P%Q%%%^P!XX	K8%+X-$%%H=[R%^%]-$-=YS$V:IS+L	/	,*48$+G
[->[-+[8AYE+[	/	/.=P$%&327&WJM2O1?/2W18I[>J?&? /AD\ <B<(K?[.K>X]XQH5X^XPX.I=\^/.%
*S+[+W+YI:<(/=K<< *"H!>(*"H8>(%\K;Z/:K9X+L^I=C8>(/7H+	6X-:AH^X,L,I=C8< *^L,	6<(+F8!H-? +FP]%*P^L^%YE"P^H\^*,H+<(/:%Y/M+TH.>(/:+TH> *^P!H+I=/5HW/5	4+\%%H=/5.<B[.%V,)K.%XK3%T2IO
2A% %TS
/
Y\2A
42I,T.J)J1"8=J^=$?+J<(HNX+: H^X^H^K??H/>H+\^/=L,K<< *%L^\,P^P./=H	>(/=H> *^L^X=	;\^H^8 H5< %\	:/9K8P]<(*:8A<(*5K7< *"P,P,L,%Y/T*"	68 HPXP<H	5*R8 H.X.L^I=C4> +FK3*L^I3X,L,C2>(+OPP8 K1*<B: IGYG/QIN>(%\IHYG%^XX!X	%+H+> +X-$<B2B	0/$S$/$XIS	2ALI=H+<H 1P (8 \6J
?7I^*03"
XHN&\$<B	?K>X-K]<(*JXW[]+Z%W*N*X*("?%W*N<H*N%QHWC=XW+[<(+\[WKW%Y/[KW+X%[K<>(*&%Q*^K;+XC:XWHWXK%W/9<H*9K8< /7IA< %\QAX?*,C:X[P?	6	5*,X,H-<(.?9P8HKI[VP-XH,2I<P+R9F8F8F<HOV
V2A.?RRRR.<BZ?: 2IO^2AS^XOLO<(/^[2LO[VK28!J?> +&/VV&G9OYQUN\?RNO^?V??::4HC%Y/$*\X\QA%W*(<H*R%Y/+*\: Y%W*\*\C?X[H\9D9DH\9DH[X\*O%Q;IA> **HU<(HV> *(HW?H%\/>H\Q8!H?9<(*<=81X?8DJ>Z8A<BP?*8/=A/=&?P4QA;HW<(HV<(HU>(/<K;X\N/AHU?H/N	:H\K9=H*(X\+O<BHK9D8FXKH[C8HKXK
Y<B%-[YLL9![N<X/KYSN+)S/Y+	7I+XH/)""OM)G?8PNT MYQ!MZO<BXUXVXW"F.<BHUXXHVXYHWXZ.F<B;HW8DXWHV8DXVHU8DXU.N<B;HWHZXW8DHVHYXV8DHUHXXU.Z<B;HU8HXUHV8HXVHW8HXW.(<B"("F"("("ZH\I7=H%\X\	?.4<B"("FK>Z4"("ZR4<H+P"("("("Z+FH\K=X\	?/A<B"N"F"N"N"ZH[XZXYXX"Z/U;K<XZXYXX"Z<
+0I=XUH\K;<(*=X\K:Z4"(R4+2H\HUXU/9MY?7HD?(?6ON<B	?8AYG	><(%\K=<(*QK<9K;<P%\X[	:IGK9?H*D	>>(*FIL> *FHV< *NHW=H*NYI.<B	8[!K!=+E8F<P+K8J8!H$?H+[K!I3[O8H>X*:K7%T;(G!S!O!S!O!C6.:K5%TK!%X.8F?H+V8FK4%TK!=H	3%T.K4%TK!	2+IK1%TK!8!H%+I<B["K"8J8J8JA9< %TK"A9< %T/]8F
[(?\;?:QUJ?&? FP<B:H)X>K58 [6K)9"?*RH*$I6X*XQS5*BH=8!H1> *YH0X=H=I3X>HQ=D>> %\HQ> HWD>C?> %\HW8 D>HW\>.<B:H$I6X>K78 [690"?..H$$I5X$S7*0<B[$:(XMS6<H+
L>8!HUMP>> +!L>8!HVP>> +"L>C$8!HWC$P>> +CH>I5X=.?R?.?P>P>+C<BX>H$8 H*?%\HU\>H>XIHV\IHW\IH>/$<B: XUXV"./8C>;XK?XD: *GXD8AX/%*;K?DK>HWXW9XDHUXUK=XQ%%H=X1HWK<XW\1	;HU\1: XDXFXE%[<(*:%Y/0*;PD*;%*;HWK:XW: XQ%%HE<(H=XEPFPF*PD%\HF> K9K8%)HF>(+H%,HE% %T%V.]	7%!.!
V+J	7%T	7I8%U%!-.HF>(+4%V.NHF%X%V."%R%V.*	7%V.1%	%R%TH(%,%V.4	7%V.9	7%V.=%R%T-$XXS9XEPHXD?=:CD<BH1% .<BH/?H%%H=X0.D%^H/<(/??*WH0%S+"H0% %T%V,
"%T-$H:XNX<	><H+5HOI:> -P	>%\HW\NP<H<K=? %\%[I<<(*&I6> -P%[I<< %Q%%\%[< *;XQ%%H=%Z%\%^	<%V->%	%R%TH(XD	<%V.NH<%X%T%V*&%R%T	<%V+"%	%R%T%!-0H<8A%)H(%,%R%TH<8!X<H:XNLN%(%TP<++HD%,%!+H-$%^HW	;-$[L3X3">C0/"*:AYO	?	>H6K=> %\H/>(X2X1X/K<
;O:=8!
:-$H> /92B/8"<K7XQ%%H=	6	5[U?X"<?W?T"<?CI[V?TI:KV8!HW=(/48A	6?WKV/3<B%/4.<<B%[2IO2AS>(//4<B	2/4HW=(/48!KU?H/4HW/IH[K1XLX,%&+S%<HW+VP
L
I
>(++L
X]%<+W%"): X /9+PY(E/WPVJW Y*+K0%"ANK	L]PA)E%,IJ> %TH(%2: 8 XG%[I:> -P%Q%^P	P!%+XL^%Z	?%[%QIGYH	><H/=IHYG	<IK<(%	YKIK%R%TPG*.%[>(*8%Q/;IK%2;$%2YK%[> %\-$	:IK<(%\%2; %2YK-$: +C	:XG	98A> +^	9XE%	YKIK%2HE%2%2	8PG*8IK%2YKK7%2*G	:	98A> %\	9%,%T;G	9<(+
K7%2-$:AI3XD	:%^HD	8-$IDXCLBA,I6>(?<B<!/)EB2.T00/8%^	?I5HW"G-$*^<BXDH:XNXQ: [3K>[2%
*^*V*0*^*^%%H=%Z*^H=\NS2<H%\%[<(*5I;<(*4K=< *+S3*^*PK<S3< *^*PHWS3*[*^RG:A\NI3K2?H*^P!H:XNLNXULNXVLNXWLNXXH:8AX^H:XNXK;X]HX8!HV>(+ZHX\NK:\NHV\N%*	9%,H(%2H:XNHX9H<(/88D\NK7\N%*	9H:XNHU\NK:\N/6.GM+B +%D P-(AQ?,?;0/HW\N%*X%!,	%V+E%	%2H(%R%THD%2/?<BH:XNH\NK>\
HU\N%*X.P<B[&H> %"H(X9: H^X
P
P
L
K=< +!:AH
[%O%I3ZPNPA48A^P: H
X
S&	<H
8!H^>(+D: H
X
*6K%X
L
[JK&%]H9X(H
I4X
L
	;H
8!H^> +MO%%ZK:H]XK%X^H\^.\8A> /9/8<BP6\6H6K7?%\/	<BL6[	: H6X6K	//\P"F$?D9,)\
O=
1J XHX<%[I:> %\J$*L&<(%Q9F8F8FXW&[AKAHW\HP<H<J!?/?KA> *IJ"V-$]?>D[F(%^%!+H-$: [VXW%
*2-P*2-P-P%^SV*?%V+"HW% %T%!,1%!,3-$A-$<B%]00/A<B[M%V,KM%X%T/E<BIJ<(/M%(I8%UYJ/M<B[AK>XH%V+E%	%R%TH<%)H<8!X<KA< %T	=LH%X%TP<+(H(%,%T/V;2C/<CFK[QQZF>E-
]?BC<B	?H^8AX
H
8AX L
A9K>>(/=L %&<H*VL
A9%Y/H	<:L^%&	;;L
A9%Y%W%\<B=*28D=*58H8!H$=H*28!H$I3XRLRC:>(R :. C9*1.<B%!-.8K8\
*VH
K7> /6/5%V-BHU%&<H+L%V-EHU% %T/4<BH<(+ 8!L^>(+
H8!L >(+!%"+ SPSP/PH2C/3G-BZAJL6
*"F &P
DH,L,(?A*0<BZ.J.%ZK?K>Z,K=Z-N,8!J.>(*(R,R-*IJ,K=Z,K=Z-N,>(*]R,R-*V%\J,8!H">(P"J,8!H&>(P&J.^,J-K<."1/;<B%/L %Z+F%.*=<H+I]	:.1L^>(.1L > 	9	8	9+[%.+M+L	9	:.1	:L^91H$>P+WL^Z,N,>(.1%V,WL^% %T.1<BL^<(+3?+&	8	9+3: L^>(+1%V- L^8!%X%T+3%!,5/]*O(*"*7Y?("X%.*C<H%"L^
S+XL^/?<B9H<(*Q8D%S+".IRIRI<PRI<P.I%V-X.I<BH%S++H% %TX.Z<BH%S+4.%/%.*1	>L %S+;L /?L^\ *,<B2IN42AR4Z;%V%T.4<B2IN>2A	=R>.><B%[> -P/E<BA9K<Z;N;/J<B<(H(Z;K;%TJ;%U/P% %T/:<BL
=H+XW	9H=\
	8\
/\J
K-HZ*:6U8*7^%:CK*O)YH%Z<HLHOK?>(K>K=ZL8A%]%0/<<BL^"&.O%.%"*X	;*7	:*7%/%.* "O""*7"O*7<BL "&."<BZ0J0	9J0% %TJ0X.&<B:HPH!>(%\.0L^%ZK8H]X/7<B[L8 H%XLLL8!KL>(+JPLPL+BLL.=<B%]0O/L<BL %Z+XL^%Z+[/PL^%Z/P%\[12IO\2AS\[/K1%Z<H+.O/S/A9> +	%V,)%V/\CFKFSE$7D(I	](-Z0X?=
U<BL^ZKL \^"LJK\^H\ .<BL
[YI9\
2IM*2AZ<%*H\^KY\
P]J<2I]*2A.L%/%.*&<H%"	?L^%S,IL^/>%.*0<H%"	?L^%ZK=ZKL %ZK<K;JKZ<8A%]L^\ J<K:> H%\^%0L />K9K8XOHO[Y%.%"	7L %Z/6H%Z<H+X%]0R%VCXL % %T/5<BHB<(+(% I8%UXB/
%^/
<B%V-K/*BY	$$7**O++AO
0!CF)Y*"8A8A8A8A8AZ$K?J$ZPNPZP	>L^%Z	=%V%V,,/<<BLAK;>(*\%V.G.TXAJ$8!K:Z$N$Z$%V%V.I.T<BL %Z/9%/.(<B*>%V- L^%-Z?LL8![J?S*8%X%T	8..<BIEZ?IFYEJ?YF/A<BO7?(/IHW>(+V%V.RHW%X%T/I%!.W/I"(%.+
	6L <HL^ZP%V-ZJP% %TJPX/5A
C;BGA*7*OAN$8+[%V=E*:8&1%QK?XGJ.ZHPG<H*PHW<BRH%[<(*RI<>("/%\*DPG*PHD8!HF>(*)HE8!HF>(*"%!*8HE&-%!,	HD&-HF&--$%!-&HE*%3XXD<BI8XC%
*;*;*8*;*;R/:	>XOXC./<BZ/K=%TJ/%(.>	<%.+S	;^	:L <HL^	9^%!-]+\^	:+M%.%"	;H%Z/8^/7<B%!-V/^H+%Y/7/6K5K4/3J ?9H^*7+[*&$8*O.([C ?<",K?	><(%\K=<(*ZK<H*AHWK;?%\HW8!["",K?	><(%\HS"*S: H<<(*8I4?(*?HR+<H%\J+XB	:J+XW/9><BK8[)K7XN\N\N\N;$[XX<.,SX/6O8C5I7
8/6K7XNLNXULNXVLNXW/4<BA9SX+RO)
)S);$[X/H9F8F8F
)P</H<B["%V+EK"%(%TK"XJ/X<BH=%&K3K2[)%VH=% %T/"+"?6MY?<	]?^MZV<H	?YFAK?K>ZK%[I:> -P"%^I3%]%0HW% %T%0%[I<> *!"HW?	=HW=	<=H% %[I;> %\%T%[<(+
I<>(+[%Q%[I:>(/1%QX	XP!%+H^X
H(X9XR	;\^HR> LRC	>(+O%V*MHRI4	::["HRI4%ZI=K"%X%T+TH> %"%!*WH9X(L^	2H+>(+
%[>(-$*)%!*]-$%
+(+)/"P%\XQ%%H=XWHW%&+(/";E9,%[> -P%^+
O60>C 0FC<BL
<(K?\
L
%&VL
.<BH> %"8AX+H(X9H^X
P^L^K>>(* "X+P^P^P
P
8AP^[6"X-P
P
"[VH9X(	=K6>(*4%V+"L^%-% %TL^%Z+MK<H]\^K6I3%]0[K6>(+CH+	;H-	;KV	;L^% %TL^XJ.J%!-VK:*7XA%	%RXJ+4SVL
8!HJ>(+Q%V+"L
% %T%V++%	%R%T%V+"L
% K9%T%T%V++H(%RK9%T%T/VD9,B..
P0L<B%!-R%]0^.<BZ	J$Z%K?Z&N%<(*W8!J	>(*YR%R&*L%\J	^%J$8!J%Z%J%8!HS>(PSJ%.F0<BJ$Z%K?Z&^%R%R&*-.(<BR2%X.2<B[P[QK>[RKP8D8F[PKPA68DSR+GK=%T.6< +LKQ>(*;K=%TSQ*;<BP(H(A9K<?K;H(X(H(/S<B[PK:%TKP	9/^<B<(%	%RI8%U/%<B[8K8>(%,%0K8<("2% %T/,<7\&?%0?<? <B:XXAX82C	?K>Y1
T:A	=;&IG=8 ZI7%TR*RKN%T%TK<XHLH< JA>(*"PH*[LH	;%V\T2IO:2A	9K8Y1%T%TP: IO> -$/7<B:XWXVX?X[X\XUYAY.4<BK6< K5/IGZ: Z?IGZA%
%\+K^+II;<(+	8A<(+$K4>(J?8A> +IJAYG	3+LP8JYG/2: J?+HR?+IJYG/1JF4.4*^G?+0LO4%"
S<7E$CKW?CU
	EJ<BZ&H> .PA*RPALA2B%1LAK?> *G:AXAXJJ&<(*^K>=*[I7A9I7K=\A.K<\APAK;\A: XA.O:XWXUHW?/9HW8!2I
82AXWK7/6HK*(<B[UI5[YK5[W[T[VKUOW=H+H[UKX[TSV*?:KVKT< %TSWSY*>KUKX%T.70K4	3<(/2XW	3K1> /2/9: H8X8	0%[I;> +(//IQDJ4B<?^2DF&:MX-M]MZ^BJBMB>=6B/BMJJB/BICFCOCRCTCXB CVC%C2C3C)C/C.B B2B.B0CCBMJJ"/BMJJBICOCPCDCECFB CTCACDCIB B1B4B0B0BMJJBICFCOCRCTCRBMBJSABRSVFO
TRNTMAFORTRLTM?1)^=U=BG(OBZL=RA?B<>>GB?CECOCFB?<BI7I??H-
M2]3M4Q42I]5Q52AQ6)&2Y]>2A-
X*X+03"?\= MPMQMXH32?=: YT%=:A2J%PD;:%S*P -<%S"HV%-<%S$6&-<:A2J%PC;-;:A2J%PB7-:J$]9J]
?J^
>K=O<
<	;2IJ]
::A
9;VG8O7> *<
6O5>(O8C4>(+HH?
!SBS!S"+B;XO3
32AK	[ K&XH\HS +PK[ K$XH\HS +W9X
2K1XH2J/%>?;70[?BA0224*\BCXLH I8> /*%<++CR"0>%!>B0>E>>O>PF?&HM$LN<B2A2J%PI.YV*>K?> *HIV[]: IV[ K>[^O^S^<(*	[
O
S
=H**8![!*>K!>(*YK]YV*TK]YV*H8!
 S O
S
=H**;O [!K=
 S K!K?> *2K YV*H2J.FMVQVK<<(+AK=< S/%SDX&/;2J/J2A0Y/R0\C:K9>(/80Z/R IC \IC8!H]> HP?+/%"2$H\X];(QLHXQ%!-(>E?=A?H3= B $P=R<B2IO-<(/?[*O-C>< K=9Z8J[+S-O-Z1S-K<ZXK*2A2J%PA/;: [*[,	:.<B;J
[(	9R>S**>K,>(*.2J	8H"&XBT/7R1S+<HS,K6[*J&Z>J0[)* *>+P+LJ&Z>O)AQ9J8JJ8J8JS)+QO)AQZS)O)C5K4<(**K3<(* K2<(+&S(K1<(+&S(K0=H* K/< S(2J/(>O 4??)DA2>[?&A?9?H1?ERDH3PAO?0M\<B=*,8D=H*N8F<X*K2J%\?*,*.8H8!2IO?2A=H*K8!2IO?2AZ0;VJ0YUMUC>>(*%N0?H*.*,;(F0K==H*KJ-?HR:2J
?/<	;2J	:X1IZXKX4LK<(+G$	H4IY> *:KE*78(B-H"SH!>(+PKF$	H!S00.Z%NXK/[0[6+[XS6O0<(+*H=+Y:S0K6<(+WIX$	;X+WHIX$	/S?:-4%OI\$	I%$	/0IY[0IZ:AM)F67D$[!K?["O"S"<(*2[^[ K!YVS *QO^S^AO*X: [ O^8J8J8J*O<(*$8![
	>*"AOK
>(*KS"*CK8 K"?*+K=*2K!8!IV2IO<
<2A<(O"YWK;[^S^S^O^S^K"?H*7O^< [S^KL8!O^<(+NKL[L%SBHV%/:K"K$?H+\IN?+\8AYN2KIW
92A/82J-W	LX[	$%X]	"$X)X3	V%%SFHV /:2J/7V/J/IH3K"AGKVE	L<B[	RXS&*X;AK$<X+Y[$SK%S"X/?RNK>[&JM[%JDZX*B*X*0*-K	8F8F[	JDZXK	AQO(
(K	8F8FAQO%
%S%*3K%[(S%K	C=
%2J;.> /*Z3K<"K&K;> *9O:8H9T
:2J	9H:A2J%PD;+U2J%PF	8)2J	7;&G:
:	8)2J	7	8	62JIWK5>(/4	7X9?<B>K32I
22A/)IR$(A$1ZT&M):AD??&FBZC?9?H38$*EPA\8D(&MA\8D(BIBIB$B B-B CECNCDB COCFB CCCOCMCPCICLCECRBMB B/CTCOCOB CMCUCCCHB COCRB CTCOCOB CLCICTCTCLCEB CCCOCDCEB>BMCFCFCECRBMCICOCNBMB*B*B*B*BMCTCICOCNBMA9BBBBBBBBBBBBBBBBBBBBBBBBBBBBB%!,:	?%!,<X-H)[\K>"VK\X)"V	=	<	
	:K\X)K9"V/8<B8![]<H.VK\X)H*8!H)>(.VH)I3X7L7X7H7C7> +OH7C6K]> +OH7C9> +YH)	5H7C4>(*>H)	3%\<H8AXTH)%ZHT9DHT<X*<XTH7C>> +S<H	2	1P)P)P)*]%V,>HT%X%T+OH)	0+OL8BNTM ?;<>EC?KZPBI$G]DB0?XL($/%A\ \XOP\[(C H^*]V\,Z ^<B[1D.RH7C?> *P:A[-S1S1S1U.[/H)	>8[0[1<HS1D*-S12Q
1[-S1O1S1<(*(8!K/8A> *WK/K-[/U*;%X%TP-H)%Z<H*:%X%TP-%X%TP-S/K/8!K0? *UH-C=X-.<B2QO12A<(/D8!H)>(+SS1S1S1S1+ESD/D<B2QO12A[.H)%ZK-9DK-8![-2QO.2A%X%TP-: K.[.S-+!/U$Z,).+3	%.%2!4%$ZA?OP<BIC>(.QBQB]B4HDI6XEPDPDPEPELD8!LE> *5PDPELD8!LE?(*1HDI4XDHEI4XEI5[4LDX<LE\
H<\EPDPES4*HDI4XD*N: HDXD*MPDPF*H4XGPDLD	?8ALDXLLLC>>(+HLD	=:<H8AXELD%ZHE9DHE[4HG8!K4?H+WK4XGPDHDI6XELE8!LD> +0PDPELE8!LDXEHE8!HGXGHEXT	<PF*:.HGXEPD+)<BIC8!XFK;XD/4
?\OP\[<BH-HTC?X,H-HTC>X-H,<(*UK?X,H-XT%X%T%!,7*I%V-*HT%X%T.<B% I8%U.[<BX9%V-GH9% %TH9"[%!-.. <BK=X)H"8 H)>(*<I6XTK<H)"[	;P)*/K:X)H&8 H)>(+K8AXTK9H)"[	;P)*>X)HS8!H)>(.,K8H)	7P)+L<BH$I6X)H%8!H)>(/VH)"[L)8A> +(P)P)9EI5X+L)P)%X%TP++*+ZK<-H>G%9<VK;\ *F"A\I("YA
>2I.O?2A8!Z)K>Z(:J(J)?.2QN(2AR(=H*HZ	K=Y1XAX2C	<ZXZY%V^ J		;%!^*%TK:Y1P*H2Y.*OB2ASB<(.*YJK9%T%^2YOB2ASB[CKC%X%TKCA9> *5*+X2HR?H,]H K9<(+QK8>(/7;X*V%<P2+ HWX]%HPXLHQXMHRXNH]XO*IHW8!H]>(+W%")$*I^^.,]^$^5^5^	\Z2Z"[YZ[IJT]FEC?/[L<7EJ
S C4%!+NP2"H%!+T%T/?<B%V+JK>% %TK>	=%!+H%]0-.HIL<(+
K><(+"K=9< K<>(/;%	/:%E+".*TH[I[>(/9%")/?Z	H K8< K7< K6< K5<(*>K4?H*>%&..R...XHT>(H K3?+]H9D9DX%HTH%9DH K2X%<%E+AHX]H[K1XLX,%&+S%<HW+VP
L
I
>(++L
X]%<+W%"): X /9+PY(=P=HB<B?+4<^X\&3\[0%"[$%
-$*G%\*D*DK%XQ%[I:>(K?K$HWXW%Q%%K8A>(*Z;(D=K\=%[I:>(* %Q+IH%8!H$XDI5H$X$: H$XNI6HNXOLO\NPD*-H=\NHNX%	>*DHW\N8AXW%[I<>(+A%Q+C	>*DHW\N%[I;> *D%[<(-$I<>(*A*D&K=[%: [K<*K;[%: [*;X[K:[%&K9*<BIN>(/&-PH]X]/+^K=XBIDXCLBA,I6>(\BPBDBC 
E/PQD%[I:> *(%*(PWPWK?XQ%%H=QB]BIDQB]BQCK*(*X+G*?]: HWXDK8*(<H*2]HW8!XEK88%\H=%-[K<HKKPE*-HDXDH=%ZHD9DHD8AQB]BK8*(*E+B:AQB]BK-$*(**(:AQB]B*E%[<(/KI<<(+ZI6<(+Y8A<(+[*(SKSKSK/K<B%
*(*(/]*(*(X!H)? %]I\[\+RS-/6A.<??BL*M+B*AA4>A^AZQ] Z.?BE)H3XDK?
>%[I:>(/=%Q%
%\*U*J*JI<<(*DK<> *J/;K:XQ%%H=	9 XE: HE> *8A	9+P%[I:>(*+%QHE	9+P.HWXG%[I<< *?.HF8!XF: HWXWHWPF*9HGXW+AK8<H%[I;> *JHW=(*J8!9HE>P*J8A	9HW	9	9*D<B2Q\42A: H4X4H48!H3?%\/S<BH=I3XFLFC7> +*8A/ H=	6/5/ <B%
*J*J/.*J*JVJOP,Y*+X?=ZYK	"*HD[6: [%0<(+W[)08![(S6H42Q
62AS6S%/&: [%%[I<> %Q: XD%
/?/?*+*?K><(*)K=> /?%Q+QXD*\K<[&%[K;> *5HW8![%*\%QK)%Z/?HD[	HWS	8!+MK:[&K)%Z<H/?HD>(;XHU	9HV	9HW	9S(*R*ES(/?0> /?+^: H3X3%[K8< /?%[<(-$I<> %Q/7<B2Q\32AP3/*<B2QO62AS6/0V?QWSYA?VX6?>?SVJ	?P)XVX:X+X"X=XTX<X3XU] K>XH%.I>$<%%D%H%L$\$ $%$)$.$5CGCTB.=BCACNCDB.=Z
OCRB.=
CNCOCTB.<$CTCRCUCEB.=S=OCFCACLCSCEB.=PCECQB.=FCNCEB.=ECLCEB.=\CGCEB.=[CLCTB.=D*5*;*8*2+*/+*Z*((-&//, =-H
-G^,+*S>.D<.E:.C;.B$.A%.&/Y!1E\1VF(GABF DDCFEEFDDDAD0X>\?6??CCD	B*D	CSD B+D6B ECB0D=)VVE)\VB)!VA))V)0VA(<W\(?W])CW])GWP)KWW)PX(9RF(N^*J])(P\G(*\7);])8]B)?]Z*B\*E]*(UF8(XXK(	4A(-4(0"(\"%(RX\(653(!"*($")(4ZKVDOIFGOTOCALLRETURNCONTINUESTOPPAUSEREADTHENWRITEF
RMATENDFINIDATAREALINTEGERLOGICALCOMMONDIMENSIONEQUIVALENCESUBROUTINEFUNCTIONINTEGERFUNCTIONREALFUNCTIONLOGICALFUNCTIONELSEELSEIFENDIFWHILEENDWHILEENDDOCMA;CALL 2,IOH;ARG CALL 1,IOHCALL 1,IOH;ARG 0SMA SZA CLA;JMP SMA SZA SPA SNA SMA SZA SPA SNA JMP NOPENT
Y CPAGE 2;EAPPAUSE 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 SPCCALL CLA;STA;HLTCLASTAPAGEENDLAPCOMMN ISZ I DUMMY ARG DCA I TAD ACHCMAIACAND AND 7TAD (DCA 7SNA CLABL
CK 0;0DCA 7;TAD I 7;DCA 7;JMP I 7SPA SNA CLA;JMP SNA CLA;JMP TAD (-SKP CLA;CLA CLL RTLTEXT "?";DCA 7;STA;TAD ;DCA 10;TAD ;DCA HLT;TADI ;INC ;DCA I 10;ISZ 7;JMP =$<
$V)JK,IL=IP ,J: 1J: 0J5.L3	2"=Z*L B<5ENDH2K+NO-NM(V))V<,V++HN-1	\1&MAINAREADAWRITEA(0AFLOTAFIXASTOAISTOASUBSCACLEARAIIPOWAFIPOWAIFPOWAFFPOWAOPENAEXITAII<(%\"Z%[I:> %\J*M&"<(%Q9F8F8FXW&"[AKAHW"ZKA> *J-$2Y^!R!^!2A.ZF(<B	?QT*H2J	>EFT"[E!
ZJ2IO=2A> *W2IO<2A?*D-R2J	>H.<B2IO;C:>(<H*	
9K82A
72IO;C6>(
5O4C3>(: YNO2C1> 	0O42AC/>(.[K.[DODSD=(.[0&0!+:*;<BI7K-?H/EK,
+
*2Q
)2IO(
	K&
%2AO$
/ES7E"J*M7T	T7OSU6,NI7UXAXB%HWC!C QL	V?>FD4P>%P>$D)D0]^A./H>>">O?4Q<B2AK?
>K=
<K;
:O9
8
72IK6
5K6
4.<B2AO3C29H8J< *1J58F8DB6J	Z Z4<BJ
18:O182AJ3<(J4> */R5*Y: J5Y7.QHB8OU3H> 7RR +OCO7LSI3TWL2 ?C/D;E"M6J*JRI* B-3ESN2 [O2 ?C3M	P7LKE"M2JBZ448??\SV3-$PYZIZT(EV+(7RA(6PA75Y*=<\>7!Y*5]Y*4	ZO3JZY1WZY/BZY-9ZO-1Z"*UZ0);[W	X[W	D[W&<[^O/[W+X\Z!![W)C[	M;])]9[W[ Y*YZ=UJY*T$[K%8^E)D[WK^[WJW[WD3Y*G)\I+
]3	W[W2\[>7J]I2+]P2$]\)5[0=S^N(!^4=
A	Q\""!
A^R
JEZOJZOM1Y4M)Y=M[ZF94[W]8[W]=Z"\1$INVALID EXPRESSION$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$INVAL
D VARIABLE$ARRAYS TOO LARGE$INVALID $D$A$T$A STATEMENT$NO $E$N$D STATEMENT$EXCESSIVE SUBSCRIPTS AT LINE $REDECLARATION$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$UN
ALANCED QUOTES$INVALID VARIABLE DEFINITION/USAGE$MISSING $E$N$DS$DOUBLY DEFINED $STATEMENT $NUMBER$STATEMENT $NUMBER  WAS NEVER DEFINED.$D$A$T$A $TABLE $OVERFLOW$IMPROPER NESTING$TOO MUCH NESTING<BK?<(+K>=K&K=0&0!+\;	<K;[&+$[&2J/S <B0&0!+);2J/	.4	8%V.9	8%
.=%R%T-$XQEP 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