File FORTX.SV (save files (Executable program)

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

~|H@0!+;2
/}; ?#=}$}?A6	*>2?(8??0p}p33LVQ"``+bt<!!^s\!bbM"2Jf! Y`kwE	-RNnVA[PT!h(~}p  ?XWTBgI /XH	~)p"}(zhPJb++b!c z+!.7
G /4|)(o+b(;CHXy~;'RH{zu/&p"yKHRx/HxiH /XxbRiqx	NPbh)P7RvRQ9RR4z JH+pr77c7z@(\zPUPRtb77wb+;bvG;;Cw! /h;"!vb(vtbKp0DIkAA$:eveFvGfaflI$~T(b$ na(/d$derTfTU9h0*xe'xT' Gf=x"TTtT}2 :zxT'WebddcUo|&FOG{Be|ez)d4dz0yH/;.6x"Tawb
~| I*cvaw"`T{ae"dcbdatT0[yff4ff;f?[mmm4mm;!z8? O/\=zr1bp$KKc1 H2 {q)F . .Hk~
xKKb}(.K"?W(-|"h.z}d.{/!!DKb!0M&_LW(E{" L{ZM#d%)ff%74`=KZiY70*s)bsdsi7z9 b n&K67K'ty)w"7kzxt /XxxihPq3@r{q^p7S
 f`A1rf5 &1f~ '[XP*R{"(~{} /#"(zI(/X|{kz.& ~2y(x.2w0 b//c~y  z/w9(Bz!0b`BzeI  CUl %B (z.(/{U9dK:1(/{?#.B~v+v+ fuho`=v;|t\\\KqvR`qT)sP)	bC\IPbb0	,@%X*ZN=ek<*. n  & "H~{. '}/3| /% #/ t1}K)(.}%" z =6{   .5 /Xzyx2(O:.(5zw 
"/$//CUk"v) bou 1b1 c~t  Fzs* t2//cr(O$ qb/ bUk(.XpZ%#)ff* Xz];ub*sigc	cd	CH|z-1H(h
Pw[r4d<X
r@y~0&](/
&]ZjS(*?S	
/M)} [j(\zWWbUrWX*W|("jM{X*z&Sy9zx /W@2 Xy@:F,z :dRU, /0b(?zPnIV&0@/	,RzFnoVV7?JDD0?v 	l^<^F(?^r6V6r!.? /fV+&yYPCRsV@z4~U)$:@dS(zU+ .?Si*D.DbDbjM@@ /*"(r (zH/X~?$!>b@(o<@/1>f>b8Ah>t8}+A}?.;@@b(r
r(|{{&NAHN{zyH/(&O/D.fx &Y?kY
a>NocY2NiJccKkwik&i8ix EY\4Z0rbbk@~.bf.k@~"n"n"k@~.bf."k"x""x"HXyi.?"~O&"OOJ"(""@ }"i;0x&fP @|bfhkz~&{"(7zzbO"hOmJ"yk'pYpYcwphvNsyyH&f~(X}(z|@.{/XzyH/~)(z /"Hz+kxy``b@DzoJ .!&bHZz`t"bbco9w"P`b``Cb``v0b" ubP`T"HoU.tP)`H/sP"t2P`rHqP)`!.'H*ava . nz Paz Pb`0&i(@p@zoP @f`j~,f&c .dWb/ -R(w-&cd="tf&f0 Xy .ff{~&w"feb df /h&2Rv&ed /RddMzf0!bf OOf#!bf OPf#R!R f O1f"v=&//4/f4f1Jfv& .-@/Xffr b r frR0sglts uGtuDviJ~K6|e0/~ |$j^[i7:X_"Wi{(/^"&M`].(z=~0]=' &b=bWy(7{}(/}" z|'&'&&v"&Wi}(/;{" zgC|)"W | /W)(7{}(/*`z_ n]ybx"_ n]jX]f}_&`} r(`{L?_bbb`i=~0_='e66yJ )mpg
XHfI&ghI"~i} & ' 4& '. Ryrc]3RvcP bfW(lU)0m:bmJ2g(|"{b`iR=\)P"J4I64HrzI4r Jzc] M7 ]c] MR aTRvcP]|R cRc] 7 4\)c?2_img+bXI:r* y)|hyxte+e9P
@#`i=~)}<'X#'W'xT#x'C0='T0=!.h/|>~'W=r{?_|#?W '<'(O'|;zy| h|{!<bH|{0+|3| 3b33b!b@Xy>S2 *IT&o ;0<bRltbPn&lM"FnI`PP&PP.u0/vs) F?X|2H?!~?{H+}mQ [UT)Pvb7bnbw7J~P) ?"(z~P)Jh*s 3b_Wi{ /LM9Z)#fI V9}r7b|i{27O_O@W)(Bz} /X3_@J!!.#(/Z""!#b(Rz]["^)]^!^)#^)%7k]"U*Z@*t*z z@/y*"**b`?xbPwk fIbF3&e|N0|Zv"7 /39b f sf~r&[0**`=V='rOXW(5z|(/4}" +zsJ|"s O*s$*NtrrH/#$9&66669. 9b%f{&!.(/Z"zrreyyh*s)9&H.(x{gw'ey9&'z'v;<+D- l{|'e%]^Rqbs*N)P3s9r%b~rrey%kgv% /^*8 n !&!!D!}2 bz!bffct&u0g !b!gdg!!!. (/E .!!&6f"!!cKgbY8*&!u"!!c|!! b NzfV9{"%fb %b { ozy;trx@/Xhsh n&hp+?]Og=q &<Wi{ /X$
#)(MyFnf#AA"<t<!"@{A / ""V7 o(Z ]t7 >V f[2L2:LL;ZV?R)\P]h]j7A87?Y0A?MRiWMTPE?+(/Tc)yQ)~M{Av}&RqbNP<d<!<fA /P|T9P<h*"hPV@>{KF[QE_&$ y .!!b"f!z0~(/}"3a!#zU h|) ca{@!czU GX@2.@5z!n&H/2!.&t"cz( N y01+]y8x!'!"w /vu;R{a)LzR~\)Pt%r(`z! c(_z%!."( a^)`P$PPKY-]P:sK]'r0Ja6jx&
*A4{.v.V)~",}b-,c!.b((z,-D ,"},&}-&,(?,$-JX,!$b($t,!.((/(.B,-r|+1{?m"VFl=IzSz 1 3(1{" ?yxy1lMLy)z1zRK \P1? (?i@/\x)yi c(gzR !>TPi])lS!:&;;hpl^y O9
?H(o.O 4 O R9 %rO%\)P%?%O)(!ml/~)"O9/" 3"*z |2<29FRP2 <<}<<>HWi L{: /| <{IH z?W LS;zpy9&9X;xK9vwP)9Q)`\9PvS(XyFfu0N!;0]$?gHg: s "c
x '%"'0!sYzb! |e<<ei% 'Y!'<B eG Kml&/^ O9= ~l90/^ V9} &"V9|{" <&Yi "<rz /' 'o"~y2x&Y&l^w"Vv%V)XzYR%"c\Pu?(/h\)yQ)_kZ_dV,H: d
F7 ;h_!<g&+Ry%V)Px"(~r}&Yio |? *8l9^{;z;ml$(&; ; "s*& 4v4y)4\)P4%*k~#"(Xy4 3Vx%&w?P n'
& !>P(/N $ FJ A;YyPK"sV\ V9_T+ V9TX9u `C`DsubVrs#sz@ kzR`R`027 S!Z,}avnn$f$"c~i V9}RR c|s{(/R)Z $b!zb$$c$RiR \ "sVym(>zR k9? c!@f?@$8T)Px.0p?&qp&?q&A?Y(/I2(VzReT)PI]j 0(l `w)"? 6R\)P%vk{!;;8_FE>>1Ayr[i
* * $if~9%}i(/bNP3*"sds7&W(|*2b nF+bJ+f{?(/3"zr-k-vyP)-c)6x9lKwVv" suV]TV(vEl^w%VtVs ]ynV.U)7r;qp"o0#y;+_*;8(0-Njb`.~(X}(z|J("{@/X!df.~(XJdJ <b(:zuh/AZ Jx-OX-zi-&y?xrkwbgwdZf<.kZvKxu0xx'vw2ccctkzpZTJkk7kdNZJkFnkg<JKdvRqdc)Pd Zk=rasrk&R=\)PdvY@?#vZcV'Y@~" Wi{ /Lb8ZtYo\PoW} /!b(@/}@|yH\yW| XyPW(_z}(/[M)W{(q{M)%#df !*b8fg  /g0(OzR4u"{bbuV)~b"TPT%" ^y]>8*& r9.(/_W)(7{)])D7 [ hi*b0X`=bahbI>]Wi L{Z_c6b@@!s(r!!saj!;%r ^y.f*8& !& C~( g). d !D!N vF0!!DV8*&}v(4zR k9\P V9M|" 'vt"Yv(/C."{0{V{ \P 6 ]9z7&bN tjV!!> (/QR)!\PRbNPR!\yPPR*N)yP)PV#]. P
|Z4({2(/4"O~P)4\)PRS4\P7?] Y <}I#%B|k\vYZ&{[&Z(?7!.\(/9Z$[,JX\ZYr!ZbZZb!bHtZ&+YrZ{b[ZgZ[DID+NtTN(bNyQ)Rp7iib(hyoi(iy\P]0vffjk,`_*:fIfI~r&P}f@/ fxP)JRP)P c r("zJ{9R zCyIxr&PP: NH /7w;~f>ff@?f40vr(Fzu@+]pt2 n?b[iXOM |(/k.(hzs(/?. Mz&rPIBqk ?bL?$M"pk.*]kC
Ltb9I3obHR@]Ja"v: /4$<r /. f"(/x"z~{}'|B ~k{f@/z2! ly|xbw 2$/QvbUvbSPfRQbSH?DQ&TP&R;JRbP /PSU:JQT"P30u tCSFS(?s6ur s{z >II&qW| /ip+ #7P^|KdX#-]Z6 v/ / FORTX Version 1.2 / `s$:$SS@.^EP\) }@XFSpOq^zUBhR@p??EOF?~0}H/]q3rsss LtttuDe,||]+5,[\PQ"Xj"|h8 Sf{ OI= z 0yz9%y  lO=x> OI9 w v''~'}|#|{y Bz~yV~xw 7zvus(xst(CZ"_=t_`D=X.ss7eBYdbgYKJaY&b&YtRr" lc0
D_{Pjy24L f b#??XR%!+#qfr\"| OI R@>  /R"h nRk&~i&ii4('zjjcjHO*!.l@h>l"(zhR&h"Rj!kgkjCjHO*@.kl6}k'klB /2k"Rj KRR|B(Az} /@@K{ % JK
RKz@y(/x<R{9H$w vu' tg vKb $BhnTo)jb}` pR |m(?j6m~0 }rZ nkmdm16m|Bjb LO{ jflzi?@bhyi>jD>l"(.z xI@w14kOlvBj&b>0bi j>P*L&">icPJ b niQJiP0idiu0t(/*s"( zr(/fh$q(/fh$pH/ o" ht hK4ciprfphb@Rqj0pmr@,.Hzo ,X@,.*!n CHO !. CdFVdbTTc~(%d#H.z,h.d}H z-H/N KU|bggcg O:{"e\jgcgeFfUbRfdG#N@N .fc n Ej(Yz!dfz3Nd(Az3U"!Rb yCyxuw| eK@v{u tsu t\'ab6HF@Vj@&_v^DA.\/Y\&KI~ }B^b]bj0*-_"n_b_bP``_rnP]]]t3]"`]d_| ] |@k b{3{b^z /9y#Tny |x lO=U ,Ow a
vfyywa vI`ur tGaK=<  H7W)`(?uV)7qa@fj/A " Xy~(zdi]",t"66c}(|)]',,D,J6b 6b(+z{6"\yQ]'6])s0]u-!., /9B" fzz,2t6&6666y \z|Ex62w(M,"vX~,bVDbKz6bx `n),,D,0JRwT)P\AADuG0E /5xR()\()0,c0@3ZPPXP?h,2t6&6~0 zifPPDPQH} 2|{lkfPoP?H.P$PCiPdPP4()z!kb ok"ik&Q9 TP,V)8zTPTPkkB!lb`z}?PC(O?!>,(/NP$PPDP@J??KPCjF,V)iD.i!.ilj<TP0 Njj&i]JQ0K c\;E AsxAw"EAdAEDEAC!Ec /zAEDA!>Eh?+A"uA&Eu"EvbsAc<EcA<rEAtEsDA"uA& .AA&A$DJsBAAC\yQA
6 0(GzA~9b8CJ~EAcVEDEbsBb!sbHVzsB&AABwE&E!>A ?oA$EEC!AcEEb!BbBEb iD4J}B2EAdh/B!.D|bAskxa3mc00r /0b~ 0/b(z/&0&TP]p R)#TP?,\)yQ)&2w,&'!.,(/Ov".h,,4TP.,J$}",$b ,b(Azw&|(n,5{",(b ,b(azfz(n,Cy)]z4 /xR9vw\Pw\)yQ)]tv,6 .,(/!R)u,\)P,bt)c%):bd+'h7 K<!*f~)&)b*H/}"rk)C)DHz(|brf:l{ Ri(bz] Pi:J
+C3CD(+{+ybPZCCCDDDbTPDz 6z, M 4t# ~K%/=lM&|K&L%&@OktOct){e( L"(|yfehd5xzg{ux$p .xrj y)|hyxte+3JqIbvXn3hx"(zu!.5f|"(z )( 3&|))3b9c * Rhz N"M  B5}506"K)v6 5f)?)@{/9~ ?;J2'''}} B}#~ /XS *IT&o ;0<bRltbPn&lM"FnI`PP&PP.u0/vs) NX|2H?){H+}E&y%MH5SK&Wy{(/~M9[X * }"(z} / |+{&`=T[Z nZ /$.TQ W{(,zMZTQ iWi} /@i(!. n&$:"Bjz/W| zh/ !.@Zb zThT(T ||TK=t"cy e.[=2xw[?[ i+ *2"fYfIbF uc0,)}ojKq nekh(Wzikh!hfq3BqGqDefK efW} My Kf[~~+:?}"()z| /~M9QK&{"fWiz /5"!efM)iV)~K2gbg!NMy"fibV~K2(X~x)x)x)hJh$~k8 ~{^ .&Ww ~{W(7}2 Myv0qCqDk0PH<Q_>AfV6v~S TU9&<iYz{" L{ X'<<B~`/XW}(/ w" L{W} My_X`i=V)XZ}RQb NP*X&}Ra<TPRR*N)P}RbNP]+<di*h)*N)P<!<f9&c9P<NX"h]t7 Z |)7m0&#6#\7 .W kb)i"ck^}"Dbclv(wDs~"ZdL|" bFJ.("zbH(o!.~H.( z}b(z|5(/{ >5f{A>nzk "!#f#$**!.rvob `y ?x /w /(ovC2( {t(/_.(kzsrR\)bhTz]XJ ]fs#6\#+^\B^Tz(m2(hzm"d!)b`]y\\&Rm$v0< 
B t w`g.BoN<+@4W~)r`!zWy
(<@DHL %).5GT.BAND.ZOpR._NpOT.$TRUE.SOFpALSE.PEQ.FNE.ELE.\GE.[LT.DP`N`L{ @N`@L{ $ -K L@{L`L C0 V'@DA`7TD`T~DD~A1G0T>D`{``p,Ic{S &{R GPG`1@,wP  Q10 `N@IM{A 2 HA>HA  H0A
1 HA>0H C`,M`@Z`@L{ $M`Z`@P`N`@M`Z`P`@N`@ @4N``AA 2 A;R`1A.HSE` Q` lFBDAH Ql ;R``lTD{R0`I{, H{A 184Adl ;R`A 18V2Adl ;R`A 18B4Ad SPG`N`P@@A L{T{ %L@T@@M@EANO@M 3S `` M``R``` CM @A@N N @U `@NT`L@
C`2 C`2A`{ Q`{-`{R `B@ATVADaXgd^l[+*0&- // = H G +# >0<0:0;0$0%0&0Z!0=@N@)'+!'-^*02!3.7%(U!h!'_ !^ OC*<*(?)(Ej*B-H-K(Qs-T$|&& &WV%ZW%^W%bJ%fQ%kg%q&w&FOPA TON2EPTPCS@QD@NRTR@T@N  0LN %EI1AOMN0 EO2Q1IU3@UU S 5N0N%ENTPO#L@ NSIAN5TOL1E@N HL@!N #N@(@@ @@@@OvC'*'S  A0;mv 9iq$n^g]vrmquEWI{ /(_)($B`i=A$AErAAGBKH(*G?*] C&K(/2](!.DKhnX=kKKrD-JCC&=V)CD.C.AAGK(*B.AAGK7 (*( .AAG W(K}2(Zzw(/Y.([z(K$KKDK?[((]+((*) ,H=L,:1(:0(5 .3'
"V* *@ph) +(/XW{ Xy#*"(MFn"iAAb(A / 7+
!!t!|0(1 +-00(():,*+ - _@^@AN2D@RTA!0 
T0 T@0S%UALAIBAE AFRAEAPSNXTSt ,D] l~< z }C@OQ+ I  ||{0(&z'y,x ||w0(vwut0(~srsq puo@({nC&CC4h{&!L?.: mslkHD{ji'h|g |fe7dc'bCaD{G' EMS100, TU Pc bC:po8T%Y{$)G/2#"@|~'}|'{z'y ,xyrw{ASE) TAD (-"$) /CASE ESCAPE CHAR? SNA JMP FUDSET /YES, GO SET ESCAPE TAD ("$-"A) /ALPHA? SMA TAD CSFUDG /YES, ADD CASE FUDGE FACTOR TAD ("A) /A,G77k*&R$Q$udU{8vedU]dU' UJEWEH5w 5o5'*%{Q%tQ`Q[X?QaQ4aE{c6yQu`dec7eFdE EEz{FQ^Q%Q%/dIh&WQxUCV+JV$VVtj%Xv6*C7vm7f@v Uqn5iw5Y5xQu}u+ LDSDO#N`!`S3 NR``H4R5ON`Td C@ IL0D(UE3 L0D(NT4N L $TTMN MM C E
`VR1 W dSOB S2OM XA XD!D`XSAINC Ne RaD LDRA @Y@`E`3@A LD$$d$`TTMN`UE3 SaIEBC D@D  3#P`O 3TON`iUE3$BR1@IPa4. ;M C RAD LDN STO 9d`3R0$d4 S QNQ MCRT E  L0NE UTS1 L0D(UE3RN@SI$$8d$U
`  1ES$8B3RES$8B3RSVRFND$ `C@ YP4 DT4N@!OC #TNB@(/Y~"@\r}&,!RJ@|i{\&Z\& IK &!L_@. ]K LDSDO#N`!`S3 NR` RAc\ 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