File FORT.SV (save files (Executable program)

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

~|H@|3
3@pw0ppX#VQ"P\*ct>'!6^cd!_bM#4Jh! S^Ehe=jPPj3g~} ?0XWTxI?U8b \yK(/ l)TKI!.6 ?I"!<h O$)E"~OM /9L" z}IJGbHn(0z`
;H?\};|U| {t,GbE,zH?U yy \yy`VEyRT`lT<?UUcUUUy@ MzK?E<&<<4(^zTXTUx`+;btG;;Cx! /f;"!tb(tt`K% |?&ox(.I4AgvgLvNMfcflKN$~V(d$ nc(/f$fgrVfVY9>0wg'wV' Mf?w"VVtV}2 <zwV'WgbffcYGL|BGGbH=jM{Bg|gz)f4fy0yH/=.6x"Vcwb@~| K*evcw"`V{cg"febfctV0_yhh4hh;h?_oo 4oo;z8? O/\=}r7GbEG$RRc7 H\yy7"R O2 {F~)L / .Ok}xRRb|(/R"?[(3{"h4z|@.z/''DRb'0cPy&[I(Mzz /PQ9e^!#F'xbk#de9=R&^]d }S6SL*ol4.+_~ m[jEf[o)oPyfrfMJrSq@r{q^[> f`A{ (n&~&5bf.}bn{_[W*Yz"(}{| /"!"("z8(/\{zky+&}2x(w+2v-b,,c}x z,v9(Fz!-b`FzjICYb#B,z+(/zY9MT:.(/zT:# /!$+}"u2ut9\e)=u+?nVi)n2XsT _<`T__K\tG ,@.RJb,=`d/k<r"+ n&"H~{+'},3| /%#,t.}K'(/}#2 z=6{ .5 /\zyx2(O:. 5zw /",$,,CYT"v) bou .b.c}t Fzs*s2,,cr(O$ qb/ GbGQkN(/\HG^i#!f'ki+ /Xd+|pdddK gd CH|z1((h Pw^r0b,Xry~-&](/ &]ZjW(*?W /Q)} [j(\zWWbY[WX*[|(&zQ{X*z &Wy9zx /wA2 \yA?F,z ?dvu, ,-b(?{PnIV&-@, ,RzFnoVV7?KDD0?v l^<^F(?^r6V6r!.? /fV+&yYUCRsV@z4~Y)d:AdW(zYk .@Wi*D.DbDbjQ@A /*"(r (zH/\~@$!?b@(o<@/1?f>b8Ah?t8} A} ?4A@@b(r(r(|{{&NA HN{zyH/(&O/ D. fx &Y?mY
a>NocY2NiJccKkwik&i8ix EYa4Z0vf rbbk@~.bf.k@~"n"n"k@~.bf.(k(x((w"H\yi4?(~4&(4OP((((F }"iA?fhU@>|&fp}"b{(/=&z4&(4r"&yY3wphvNsyGf~(\}(z|@.{/\zGyH/~)(zL /" zH/I&?xaa@/E.Kz !n$H/[a"sc&c>:zwT)haacaac8aaCvc#>uT)aX)#>HVztbTaHsyT#tT)ar)Iq"Ta!%bI bbb n y` Tyby Tyc0i(@p@zoU @f`~)>&u .vib@?h*"dv*fuJ=!.1 /0"==bs>&@/> \ r> \y .>>{~$v">wb vfp?h.$2du$wd0/d(nvd_z>!> > Oa>#!b> Ob>#d!d > OC>"u=&??4?>4>CJ>v$ .*@/\>>r b r >rd0 ~f.x C>Xb n&/fc; ~"Xn}bei=1&|"1g{1 ~f[i(:zYp;$;c);" & fe(=rd#J\I /yx"i(Hzl`TVwa!V9Jw)TwxU)an(/tV)2XV"R9V*wV1g9RT(l)V4wV9w9V=RTd6yF}:p1r`/rHey=0&^9/(/@?0"Sb0`)TV8Td:&<~iuzz" P{~\'<<B}`/\[|(/&v" P{[| Qyc\[ ;&e=Z\^|V~gRT(|iV<X)TV&R)T|VbgRTa p<2ii(l)RT<!.<:bchT<kJl)aHd^9{)d0X<bO/*HOf~6}" \y/(/21f/|b{zs@!~zd{ /y<x<8w&e=vuU@hX<x@W@T<@CIxV@hTIxVb!bht{vi@WVs+cyt<;[y @C@D(@{t?rth/t!>UH/t2I0q#&##6#f9S|)V*C_(/k#|iWb)c . ykPh&oP `Uj+`pb)NcLPAE lJ Ty(r) n[iz /PQ9^'!kI#cZ[QGH&~}H2G|iK(/gKKR)T.[)(8zQ{Kr)driK[i \ydz9K(/\r`riKdk Cjzy ^zygKKr)r)rx8JKr)Kwbrzy o\ylTGyi(_zwr)d>s&z^x)dD2clv(|<oE2 </N^u"d /:bf sf~r&_0**e=Z='rO\[(5z{(/4}" +zsJ|"s *s$*NsrrH/!$:&6666:.:b#f{&!.(/Z"zrrjyyl(r):&H.(x{gw'jy:&'z'v;B +D- l{/|'j#a'VEgr(R)Tr:r#b~rrjy#kfv# /b(9 n&D}2 azbeecs&t0g bfd|!b(Dz b6je&J6f])9(bt&{9!. /Me#Zz#&e&#'> y{x066G6w"@\yg?6g6 6b6gbo7? l\O'=q &<[iz /\$
#)(QyFnf#AA"<t<!"@{A / ""Vd (^ aHd >V f_2P2:PP;^V?V)b"`Ta1a3dA8d?]0A?MVi#M2XTE?J(/Mh9xU)JMkAv~&VEgRT<i<!<fA /T}X9T<h("lTV@>|KF[QF_{py.b fy0~(/} 3f#yY H|9cf{@cyY W\@2.@5z!n$H/2!.$s"cz( N y01+ayc8;x'"w /vu;VBf)LzVE`)Tt#r(`z!c(_z#!. (?a )`P$PPK,sm1J6jx&
:A0z.v.Z)~",}b-,c!.b((z,-D ,"},&}-&,(?,$-J\,!"b("t,!.&(/&.B,-r|+1{?o ZFn=Iz]z 13(1{ ?yxy[nMLy)z1zq$bWz,6,(?1V93`T1?(?s@/fx)ys c(qzV`!>XTsa)5];#*"7*hnbyS9X#?H(o.Sb 4 O O V9X ;#rSk#`)T#?#S t#+on1~) S9{ #3 ,z |4<4;FVT4 |><}>>?[ PE;yp|;&;J;((;&{T);U)P`9TzsHczyi='x\0m":*xU7 zKY*#Z)Lx"(~r}
&]ip |?&8n9b{7z7on ("7 7  s&" 0v0y)0`)T0#&k~!"(\y03Zx#&w?L n%
& !>L(/J $ BJ =;]yLK sZXZ9[P+Z9P\9q \C\DoqbZno#oy@ gzV)V\0FFE7I ]#Z<}us c x '# '0sYyb |j<<ji#'Y'<B jG Kon&/bS9 3~n90/bZ9} & Z9|{" <&]i <rz /%'p ~y2x&Y&nbw Zv#Z)X ]V# c`Tu?(/h`)xU)_k^_VyKj;d 7 *kc _!<Y"*nn$f$"c~iZ9}VV ,|;s{(/V);$b!zb$$c$ViV ; sZyo(>zV`m9?
c!@f?@$8X)Tx.0E?&FE&?F&A?wh?I2(VzVX)TIaI(8n_v sViZ2`T#&u_0{#A7N 8[VE:.1Q&.&O"t[(|"(/x\J .(/)"!b("za8-)a'-)-)da9f2%X,ox&_;;8*;;*/N~/k/v}T)/h)>|9nS{^z sy^a]\^(zMnb{#Zx^w ayV^;+Y)wv;ut"s0#y7*[&*8(0`|,~(\}(z|H("{@/\!bf,~(\HbJ <b(8zth/?H(+O\+zi+&y?xriwbgwdXf<,kXvKxu0wx'vw2ccctkypXRJii7i NXHkFnig<HKbvVEbh)Tb Xk=rfsri&V=`)Tbbv/Y@?'wZsV'Y@~" [iz /Pb8^s]p`Tp[| /!b(@/}@|yH`y[{ \yT[(_z|(/[Q)[z(q{Q'#!dk(b9f{ /g0(OzVt"zbbtZ)}b"XTT#" bya9(&r9+(/_[)(d{)a)d+_ hi*b0\e=bfhbE>l[i P{^_c=>`@@s(rsfV;#r by+f(9&&C~(/ ( dDNvF-DV9(&}v(4zVbm9`TZ9M|"'vs"]v(/C+"{-{V{`T 6 a9Vz27&gR tjV!> (/QV)b#`TVkgRTVb#`yTTVk(R)yT)TV#l. P
|ayR]9K'v$%&&&%(?!.'(/%$& J\'%$r!%b%%b!b(t%+p$r%b&%g%&D-(+2tX2PvQ~bRPbnPPbvRGJ}T)6 ?LQ"(;z}T)Q;J((By|@{r((&(S+PvzT)Py)^?(gyRxUexvx(/lpx(/2` Tl7&e0p|`f8fI~q&T}fG@/ fwT)J T)T|c r("zJ{9V zCyIxq&TT NO /dw;~f?ffA@f40vr ur@G2 n?Gb_i\KI {(/g.(dzt(/?. IzG&sL8BGrk ?bH?$I"Gqk.-*Wk
|tb9S7dKUPgJq&v /4$<q /. f&(/~"@zwy w}"{|'{B ~kzf@/y2! lx|wbv 2(/UubYubWTfVUbWH?HU&XT&V?JVbT /TWY>JUX"T70ts)(r{siq /ry; 8b8pi[{ hzoQ2 #<^A@: X-0]Z3 pv/ / FORTX Version 2.0C / OPDEF TADI 1400 FORTR AVADP
Eq^zUBhR@p??EOF?w"H_{rs7tt4 uGuLvfJ~G_K*+f3H\p`PsQX33,} Tf} PI;S @|S9%| S&P|> PI;{  lP7z$2yrr~}r||7{ z'ygVxaw ?<v'u(?xt0(Hz?a'BaDbBJXscs|g`&f&`tPc"`dbg`WJXrgq& eK{p}`24L
bx /j|9kR 0%!0#qfrd3| PI V@>  /V"] nV`&~^&^^4('z__c_HO*!.a@h>a"(z]V&]"Vj!`g`_C_HO*@.`a6}`'`aB /2`"Vj KVV|B(Az} /@@KS &{ JK
RKz@y(/x<R0#CC! /@/ob)$Bhnaih0}3` pR |m(?j6m~0 }rZ nkmdm16m|Bjb LP{ jflzi?@bhyi>jD>l"(.z xIPw14kOlvBj&b>0bi j>P*L&">icQJ b niQJiQ0idiu0t(/*s"( zr(/fh$q(/fh$pH/ o" ht hK4ciprfp1b@Rq3@p\s@,.Hzo ,\@,.*!n CHO !. C0FV0bUUc~(%0#H.z,h.0}H z-H/N K@|{9 zI1Zb 4f (?G')4Y" :zE7*8(-"S!(PzF')!S(ppN9obpvf[&vpC(jz@/Y.pvB(WzX')XWjX"'Szt{O\'e'pYpZbic6@$abbbcb(O2^&`abV`d^#^O@ .`^c n j($z!_f~"O_( zbJc .b@/+}"2a"!Vb |C||(bsW{b^^d^^C^bBH7z^ ?c^dL!.^(?NL"LSi%z bd"H\zN@/\.N lWy'xK WKL di%b$)`#3V%S Pz <w5JI;3b"GV@LgvfDA.d/Yd&KSI ~Bfbebj0*-g"ngbgbQhhgrnQeeet3e"hedg} e |@k j{3|bf{ /9z#Tnz |y lP;U ,Px i
wfzzxi wIxv WBu(/tw9`sr rGiKR()dqii>@fq3b*i8q)8q $ - END OF COMPILER /TOO MUCH OR TOO LITTLE CODE>FFERION****TIONya:a<-6)\&~(\)&} |{z\)ybx !~]o\2)*b!)b({)s"77c77bw O7"v] Oz7y Yz)u)7t (>z)s)\f)Z)D./<&7~ Szryq)))DV)>2XTO)"p 80 P{pZ$d]!0X(s/A wcc(*Vw,v qvD 7B .mqdqqDU o)b~pqfqtD- qLqm6qqCq(O(!.o. zom"oUh;X)T-)Z):zXT-XIT-ooB!pb`z-} -k|q<(D{!)b(SzqqDqqDED$D?qCnF)Z)mD.m!.mln<XT- Nnn&maJU0)+;@eI%!<%Yc0Cr({BBDBtxv"dDC!c 5zD!>h?1"t&t"ubtc<c<rttD#"t& .&$JtC
6 ~0(Hz}9ofZ9D. &!.tH/Wt"dv"c!c pzD!>6!.&&|:+&iJCr!f{&t7cs-r ,-b~ -,b(z,&-&XTa7 V)j2XT?`xU9vVG9`)T9a n ;}r)"b )b(<zv&|)"{ )/Jz)&& .)(/K.yb)({)>)&!.)(/,x2)w))LJ$rv)&%!.)(/V)2) oh)$)ENu+&))4XT+jJZ|"H?y{ '!h  K<!)f~(&(b)@/<(<(HO'&}q&f|IfV '{)a*Tzqd *KB<B(O*J6yT)^B<BCFCX)TCy 5+*2bH{ y"(Qzx(/wX>|)2`J&c
bbb j!.(/Wb)d *.w$755w'p2"fYfIbFCqop7?JStaN2HaTTVyJ~"`T~})aH]-L2(_z~(/b}"@ o|(/{g9zE9@.("[(/yb9c+' bx /w /v /u />t"H>zf...K#b( rs@/]#"DDn%b#%D br#&|EA#"bq#&##6#f9S|)V*C_(/k#|iWb)c . ykPh&PH<k4p#wy3bId_id:\e"[iz(/d"&Qec.(zh=ac='[z( zQI%!.$&u$"$ n$&v"ct-="r%~i"~[i|(/AQ)C~)"[y{ /[)(d{|(/*f}e nc|b{"e ncjXcfze&fy Nr(f{P 2ck^}"Dbclv(w@ oD[Iz /(c)($Bei=B$BDrBBGCKH(*G?*] &K(/2](!.Khn\=mKKr-J&=Z)D..BBGK(*B.BBGKd (*(.BBG [(K|2(Zzv(/Y.([z(K$KKDK?_((]+((*!)b`]y\\&Rm$v0< 
B t w`g.Bo)3&~'[z(}{Q_\ *|(/|" z{z2ei=y)` b #zyiP[)z(/+Q)y)Pn(&[| ?zn!f bb9J&Ax"[y{ / "h z!@n/ .yyy/4G N44&4!.3@/\S=rs&w0 jz`k=v)u`;_y *n : %c0,j+}vcb)jv neph(Wziph!hfv4BvGvDefK ef[| Qy f_+:?~"()z} /Q9Q&|"f[i{ /5"!efQ)iZ)2gbg!NMz"fibZ2(X~y)y)y)hJh$p8 {^ .33&[x {[(d|2 Qyw0|3|3jK|v<vpKQSuAVo6~oS u):f+"f=f<3f`g~&n~<@DHL %).5GT.BAND.ZOpR._NpOT.$TRUE.SOFpALSE.PEQ.FNE.ELE.\GE.[LT.D5 ;8*2@*/+ * (- // =0H0G0+#0> <0:0;0$0%0&0Y!0E@V@(@@ @@@@OvC'*'S +6 C0=V%\%a%i%p%<\%?]%C]%GP%KW%P&9$' i''*7'{@'xB'Z''j'8! &'---0(%(&6s-!*($)(4&VF OA
0E@ONE%TP0SE@DNQRT@!TN PL@NEQCIAO0MN3 E3O#QIS@1U@U 50 NSNEQNETO4L 5N0I1ANTPO#LELEFBN HLR@N 0N@M0{A 28 H3AdA 18 H3A 18 H3Ad0M`@Z`@L{ $M `Z`@P`N`@M`Z`P`@N`@ @4N``PG`;ASE` Q` lFBDAH Ql
;R``lTD{R0`I{, H{A 184Adl ;R`A 18V2Adl ;R`A 18B4Ad SPG`P@A 8L{T{@ LP@T@EN4OM 0S &`M`6R```  QCM@A@ N N @ Q!`@N`@L@ C` ;L`{U `{Q`{ $`@-P`@N`@L{ $N `L{ @ Q- K DL{L`L 45"h@xDA`7ST^DDA`1;
 QDA ;% Q{N` {``p,IZd7JP8=<  ) , L= P ,:1:05.3'0"@Z*p 05 +-00())<,++- g@f@AN2D@RTA!0  T0 T@0S%UALAIBAE AFRAEAPSNXTI(\y[ z /\#")(QyFnf"AA"A zd0!G!!GK(yTJ ~IE_  }C O ,|<@zR <~? {Cz('zyxrwG {Cv(utss( Nfrq0 pyt<o(n2DDcDhO&<!@J;jwm"HE{lk'j|i |hg7fe'dCcE{SE TTYOUT, SUV%`a `LcI~_T%p$)q/{#/"@}|~'}|'{z'yx7w |vu'vt'?sCrH o15"n6' 4f#rq~qcl3(/4 //5$ .5w&28UH OR TOO LITTLE CODE> $ - END OF COMPILER
483ud4 f+%7$6$ujV|>wajV]jV'VJFWFB6y6q"60&{W&XWDW<^oW6X'aWCg&{i7yWv`jfc=fJjV$KVxDW&^W&W&3ji _s'WW~FJIW+PG$\Gup&Sw!4'@AwQ"!AJwEJqt6i}6[6tWfxWv}"v1 LDSDO#N`!`S3 NR``H4R5ON`Td C@ IL0D(UE3 L0D(NT4  LD$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#DC EN0ON`iUE3$BR1@IPa4. ;M C RAD LDN STO 9d`3R0$d4  QNQ`MCRT E  L0NE UTS1 L0D(RA
`  5NU;AEA SI$$8d$U `  1ES$8B3RES$8B3RSVRFND$ `C@ YP4 DT4N@!OC #TNB@(/c~"@fr}&,!\J@|i{f&df& SK &!Li@. gK4x9V9xV=R9Td` 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