File FORT.SV (save files (Executable program)

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

||H"1
0
^A, 
CALL 1,ALPHA
ARG ]3
CALL 1,INTIN
ARG \IR
DCA \NUM
CALL 0,CRLF
CALL 1,SPACE
ARG (14
CALL 2,IOUT
ARG \NUM
ARG (12
CALL 0,CRLF
CALL 0,CRLF
JMP \100
CALL 0,EXIT
[0, BLOCKvsKZ
Kap`}Hqk@@L``e`"#t"iGT(8Uw9X'dFofo	k-e'Y@aK)]L`  ?0`ZwXWT~}yO+l, @t~J /I$w)	z"st&,!. ?M(	1" mzI /Sv(/ !.
 /Pau	,&s4&qwR.MiFn5fR6Mi54$)r'Itbc(L{q ?Jr# ?K#kD= t"bf -b-Ni$COPb9PMz`&`Q9``4m dP)aP9ah7%8QW]vA}II"
{/=nnIv1fpo&gr(zs(/t"( z oi(/.(Gzu(/vBQ
o!.p(/Q(nt2(.zz /1+1kB=n"jm&mx0|(/@w"KIdnx2n{mm0yH/<.9k"Qoj@/w` Gz lno(/Qq2Hnbmlbmc.nmmsmotQ0jI g;7IprL=@O?p@|	
fK&WL 
L}(p" L{VK$d&*f`&$X?Vid Xn"( z+}	(4zWh/5n"@b(t(N(+@R.HDzoS@R8+!n'H/A!.'U&UV2HAzSH/8N80@f_KKHNz&?d
.

nm XI2HX{{u)I /r .IXkvIY!zU{bzUb{vk
"8Rp}9Xy?p+ 0q &9b!f6|b!Wy**p(/rs2 &z$(/&J" %{Stt3&!|2u 63"w(/s" $zxp+&5oC`Cz3 /:#5n!4&4|2u $4#y(]!.5`/] $_!!z2 !t&!'C3"({{q(/|t2 iz6(/{v2($t35"|p+*@k/=oU#@]b$%|93 n!!&3!'V43W /"!#4!t6VK*(/V&2 z!?6_!! .9 /SU!2 d(=z(o8X" z44D4Y2(=zZ(/=. zs &?y ' 6b6!c|\ JzSj!i244c](S$ ^b5*X'zTw`'\ KK&`2(Sy[K&V&$*f`3 gzq-|{P)|Q)t0%N~?DD0f@ffBfAbb5Ri7*M(RzMy 45b({Pna6&5@4 ,2zFno667K(c"(Vz)(/kt2 FzREHM)d*e / h"f Rig?\c" i{B /SB@Ojf@jIO zR*V% PsGh9x2 mzf lkv@@@^ / &BRI,/_"(zs / .ARi *`D.bDDn"jM@B //"(r ,zH/S.2A!N@@.(Az@1~@nC=&F@=JbF8bD9.;D@(/(/(/cd2ShF0H/Se9a"H,zTj{Ux\C T CwFw.x1dxw7xm0(~{wxDn 8 ??nbbk@.bf.k@"n"n"k@.bf."k"" "k"HSyui.0"vO&"OOJ"(""@ w"ui;0&fP @xbfhkz|&y"(7zzbO"hOmJ"tkS3vhwpPS! |I&Kf"(Sn(z$@.&/S#K%H/")(z /"Hzw;XPfz vvb@Uzo[ .!'bHkzvi"GGco=t"PvGvvG8vvCuG'0wwb n m` Pywm PyG>sP)v\)'>HfzqbPvHyyP'qP)vx)Yr"Pv!(bY (@9Ypu;P@ .i& .\b5 /W(j/&d?"ii&i0 Sy .ii{'j"ib f 5h$'2Wt'd& WdRzi!>i$ Tzi!>i$ UziW0!bWi 7zit"?5k55KiiD7 i'b /b@Syi'i & ' 'iW+l0$=b i{Oh$({zkD!b$'i2t' fz5Ui~qrWyz`Sk&&XW  r / *U{rmwqr ~uWio-*J*=u$"&&X '&?' vf'r"(Qzj(/].(vt .w'jwVJ' rf'r$l .x'jxJ' tf'r$i. ~s'b('bt'&'t$a*sJ%s$*Ej;e-@g<&>WioXL+p /LW9o.S>t}r( zj /L}9r /MW%znSX?TSV\N6[OPN9nB\PN3n\)PN9nB\PN<n\)P>^i+b)+O)P>!>f<&] P>R*Vo ?Yt-c&N?Z)P\hjh+hNi$hB]Ph &o7%]w $W@b6bnbj6JP) ?"(zP)J|0pc&}p L{MV*$D`!Tvw6&W4z&S 6$c3z}(Ar" 3z.c$3""!$b([z#!.$(/RN)EPI#b)NHP"b$b&N)ENITPI#V*o`++m x@/2+"++bd0/bPyo !Ve-~K
MN9BZP{ {lzVyW-z+L (/*<& n bWi%'*A /X)?T)/?"tSy (Fq"(Ez /<$/!*%$ /z!",J/$gi"H/z$<Bcccc<b!f<&& b b!b(kz'''_
b+<rbH(o.r_y <brr_y&NiHPIN$[+O)P-Sy7<&bnrr_y&km& /c+; n!"&""D"o2 fz"bllci&s0g "b"mda""!.!(/I .""&:l"""cOmbd;+&"s"""ck"!!b RzlT9p "&lb!&b! { o*j+H:=Y{~}(Sy| /qz+'0YXq?U|wrk{VN'PIU){ 7fWi/.LV97(JdNN6Z)PNQPINTP* d +*KNQPN$+BOP*0U~l*<B>fN$[OP}p /SnNl)(MyFnfl(*bWt9* /K>"^<>b!>fV\P>cJ+b)PX0(wNiBwB\Po0,(/~])lQ)mw{v !.""b#f"m0l(/f#3Y"#mm(Qz on!Y9r@"m0s(/e>(t{t(/gs2(u{o(/h>(i{w(/ji2(k{S@Kz@oN.!'bHKz!'bi&p0(9t9kqJ T2"z<_}_ L{XJU0 UCUL_:PPN*1*_Cr/ U/B5 .r(G@`
d&!!c(z&!.#(?&"(z$D0@@bTpm&qO&!>@(/;$OJq"qbOc(0zOD)S)!.%(/%B!)b()t@'O?"0ONKO\)yP) @CZIP@@0v#T_[ consrn9onr8ec)dX*sd x!ZPrH17 h<,*>t>}"@{{|0X-@guc!T
N3!V;diZxI H(o .TN6>dxD{N(0&T)2N)9&BZP&'kdixI- &T)?N)]PI7d9`7KvuRc)U#TWXN&dix #V;!#7G *jzJ
d)"*,8*HW*er*U5TXRCWHF/B8V Q#P@a?p!-#c! x-!'&#'0"^6q"' _CCF_&!^r" tC ,_| v9u&ccr!T9st"-ndx!uu97c)cyr!Tv-#cTjw-"Cnd!#7C{" (r!xy#u;|0&ucp#T9f&"Tx0y"^Ni&#Z9P0eP8&T)zyk:N lK ! ,z/jI
F9,By#Z@a?p0(/aJ"ndfx _ !K9!Z9P!& kuc L<vu!c) ,< (< #CZIkP)##K#K#ZP#&6,0b$(/S5!T9M "&Nkd WBKdcIZ:fI7P#T9W!#TZO!3TOS_Iv[ ?d NI0PIPfq=n+=b@hvn~bhfnqN"PI/[a |I&} L9-i" Sy.i"::cn(l)Nli\)P...D :& .:(/-k":Z)lQ)Nli\)P:N)oPI5fnpNrPI/!.. /@D" o{?6;.i"::c::bj cl):m (gz.g)
c!;f;$T&.T)D.&:k qzw...D6.W  0~hNiuB\Pc fffw*8p5 45b 54b(z4&5&\PNiP Nl\)P.ZlQ'j".(b!.b(Rzt3&..\IP3/'*{.&% ..(/Dj"ybw .8Jz.&) ..(/j.xbw .FJ~^)N-P8 fzN*iZ)PiZlQN'PI}<.b .b($zN~|."ZP.kJ8 Iab*U|lwqrjUzqklwr{7hh pb b r r gp8&N* 8Z)P g8bZlQNliB\Po}i(qzp(/<"(>zj(/r*grJhm&m&XN~?BZPN38Z)PN9?BZooYl"PPN8Z)lP)Poo.Jz/ W h{#r =gDS JbJ~i}q xz} <M^U{jr~&}p L{mV id)x Z)Px}r zm]}q /SP}(fr"(bzM}p(/|M9*&f$`I!"&+;&ai!r sr(UN)%PIid)xIs"g
!>$bsT)|"$ J\P[&" cydi;B+!c}3(fz}(&*dixI\P Wstm+S Xi?T)s?"mkR:mYLU~nrV8(Sy7(/8"TN6.dxpP8ZPN?8Z)PN 6NIPId 0 n(
& !> (/6 $ .J );q0olbmnbnmc(Jz!ob(LzmnD?S)om'l!.mm&m!.H/mB90lm&nn&mmtn\JW0a\Ia0([yOlQe& /c3+b;!b"!d!o2( za3!!D""D !d:kh5"d"kHK;b+:b(zN6!g9ZP!T95v" !':i"d{:(/+3":5:K:!ZP! 6xN9%PIu*kk(/bxk(/eZP:[iO i K"C! b(FzN6"Z9PN9[IOPN6"Z9wP)PN9+BOwPPK0"(?y"'"Y9f"k1#8!\
(C =fJf)h&&dK}*kbP'"PP(& ?(/$z"!c&P*h&=JaqL.[ ,tb+JbKf,bH?>,&[K&5JbK /P+4J,["P-HP& !NJLkK& -fK,&WSX0 Vq"(uz(or{"(-r oV,"K|iYJ$K&q'< -bU-$V"Kzk+kO@ jUyjt{r}{Gtc .@W)zn@$uBXi?C$CGrCCGDcH@&*_W*W,z@j bEchjJzW:z+j!.FchnS?gccrFEJEE&?T)ED.E.CCGc*Z.CCGc  z.CCG }(cr2(rzj(/q.(szc$ccDc/0} LV9{f< CCDCvxCj"GCdCGDGCC!Gc /zCGDC!>Gh?+C"sC&Gs"GtbvCc>GcC>rGCtGvDC"sC& .CC&C$FJvDCCCZlQC
6 ~0(JzCg9 c!;f;$F/GfCT9GD.Gv&D!.vH/Yv"DCdCj"GGc!Cc rzCGDG!>CG6G!.DD&G&wF4}+DG&CkJD!FfHC&v6; $-6?HQZclu~ "+4=FOXajs| )2;DMV_hqz
'09BKT]fox ""%."7@"IR"[d"mv"""#,"5>"GP"Yb"kt"}#3!*33<3EN3W`3ir3{33(31:3CL3U^3gp3y4 D&D/8DAJDS\DenDwDpi 9"`8b+R0/$ pO@nr @ Bb("rjb5a1@8.` `?E!$ @@p^_4!v"*2#\p)W(q`Y/KS"U pFtgpqz |VPq-L20 "&;q"M/g%[q)!r I
~ ~I l~@}> ~I| {'z'y'xw#wvy Bu~tV~sr(qwp(?so0(<z>D'6DDE6JnK
DP{q#q2z!sK"d*!RJ" L*p'+o',+/rfhvzfn bDf.Hs{! "p#f?c&WfX_f@&L L2/&5&/t3"/4bg/J 0B/1bg/J7&C(%z.c .G#(,z.c.%z 6K;p@P_G?r7"hL%`)H'}(-k.@
/@ 9 <CHz{@PPPrPsPtPuPvPwPxP}~g t?Ab[ARaARPR'YBSYBHY2wP2ob2"o"qz"oz[zVLzPz Wn 7zrGArPcEAR%+Sv Cz2az2
z2&A66#bA#?zxP"DD$#,L NSLA1 R0T"TCSDO#L#A TT@MNLRA1 O050L#A TT@MN SBR1YBL3B8EaYCXRCLA1 5 B@0L#A R8SaIE`T4N@!RTT!C(dSOB 5`O0P3Ic aO1SDO#XESVB`URP%LA1 Q1IU3N@!OPLR!L NSN 1O@TD0faKgpa+ Au l&)nn&jl9AER0nu1 ABSLDR
b ctP"B(|(<:2}yts@p|"@I@4|) C 8$C L~7$@ L;# Ct0) (J{ s@.7/^&"hHhh"Ojb~F}bwrg 1Df.hk (?|g9, u[2mj<H  CP cK ~C N!z)4H!,4 4H,4 !"}}"}}"||sDXo{G3GHGHID'J#JKGKLD-{+zy~y>xB Dz(k"(4{m(&44K(MO{RHof~O & NK.N( & N" -bN  r! b zlB!le#(b{6gn7NF`ULL IF47<C-`#oA@VDPL#A ONA% NSES0o`#RAD S QNQ8O`3 U5TP%HdJCJm})|CHG&HLBHLr{2#0% zKv9JZ*vy\I(/}f\x px|ykzpgJ pfi"w}_p$\{wkg'e*We0U<y_& lS;vw1( y(/]"!f<}i( (/"0 1}i0h01x}9e)c *(&z~(/ Khz ((+~<7J=t)0l9= n<0k'@/x.2 #f-{ih`e&d-#EJx'2@x{<=f. .#<b-{iH/}|; {zuyx'w\R^ktt . n$ t~ $heB/>=*?C" `pq`:}1qj?otA{k:1_lH,0< - ({<?.J,\qsk82{13|w^;E/7jwnwvN+n?kN}L[@V@Q@USC@D@OvXj}0]"gi
&&&& "!b(Tzed " u C_(/t3}isZ6fg9oT1qyz/}>B fhfeDV.c/`c&RRDp~4}Bebdbj6*3f"nfbfbggfrndddt9d"gddf d |hH. ?i96|(e{" @zz>Tzg yI 7I\ 7Ixh wIfzazxyh
w| qBvur7ir.|h}9m+j@?fs ^? (?fb&0 ~rZ ndd46}Bbb L|^* bfejh?
',{(/zA4bAJe(/1 ,\ \ 4dDetyb&)A&3a&!A*SO*)A&ax0J nc . adTa#xcaaCwv(-zu , K@9zt sjt sI
|I j wvsu~h`fp~} p0DK1zBp`1do w^ !
to $ p?"& i #g^ " e(Y<!Y% S<!PS% O% HM<!M% (L% @JP"." .<!-^
,J
'^ $ #^  #J  o ^ "<!c^  `o  AN2T@CPP@6 PD@RTA!O"0 $@NAAa@SEA AQ@ $A$SPGAN@P@@A
0KO PL@ T0FD I@H@ `S%E CAN!4OM3S&UAMAR`@LAIBAE AFRAEAQ`ACPNRNB@M@@A@ XT !(DB7tOxbl1(b: %|<|% {<@{%x^ x%!s^ 3 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