File KUWA2.SV (save files (Executable program)

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

||PHH@	c	F 	c	F"b"bbbf~&f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi M	9Nh	lzpz*cpeC
C	DRUFAD
C       AUSDR@iER FACH@L01
$K=%L%0) L)0L1 1 6KL;1MON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM COMMON LANF,IANF,I,I2,IZFE,IZFA,N D@XCOR.n bDB(|h
 T&* -1L=VVVVVVVJ, h Z.C$=B"&L5 DB |
LC&+J^}gq@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIbEIKJb!HnG& KBzzno7 JbJej (?V,IV C(VzB V R Q)&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM M@UfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] xRC `0 &
c d0 c daf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z  PJ |(2z{H/zy"P0
0! c (bbcoz n r`gK?eO.0Ee10 @`?M|b n4c)F)c )bDnbDf)r$+ )P@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! h nnDBHrH~wJ *82Ot?&c F4nH?! hD M'Bh h  G~}w (00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn32?JMs! @@OR!W7(T(?'LXLV !M
0Y *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h\LhTuRSb a
t<~vGwizCVDyoz)ptKHlm7!3"d"6"N<8M 0!b"n#%@J bh@/z!f3&"h!f &&~ }v-|RGn|brt{]KH/Dq-n{rC b oH/I"rr|^Fzbty]iq-|ytz]Hz {|jZ1 Xq p{ <@< LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1p[@Y{Z0%L LL L L LLLLLLLL L L @\.24 +'[/ )qm\%[N6;]=<[Lr^=aq! 7  ~G 7H  }G |B!f*)@ {H )HC @Z/*KRTBRNQLERASNANE:l9gn<CBLRM3RorD`1RE RTBRTTLi {H HC @z:-0BH.rD.b,-'V2bqn37%')N.~rk`O|NN/K) :lg`NE!H@LzQlX'q<lgI E q'N4,6q'/J9HNSTFEzl'[slIg22'.1<'t<lgBTR HEHE:18g/[Lq1'm3,6Lr1gm3,6s1'n3,6t1gn3)6
~ C } &B" ?$ 'K!z0LlX'K1:1LlX'K1z2LlX'K1:3\lX'K1z4\lX'K1:5\i ~I /IC @<'*T0 cSHN9g@j ~I GIC HO/*S'6k,q`@( ~ FHC C }(|{a. {Gzywx |xxS!wbHv{ut7s:OLNKJ H ~bF H }I @P7HPC! l|!>(z% ,{z7ycyys!&6!9%%QxF H }I
@P7HPC! l|!>(9zI ,{w7ycyysE&6E9IIQv <zw3(u{Q( } \C d 'O '5,6q@  }I SKC HC @t*c< g ! l~(?H/}|; {C(z ,z6y6x(F
 w ,P 7P Rz vC(%z3u"F H wJ @P7HPGRu"F H wJ @P7HPG zCLycMxbF H wJ @P7HPG wJ JC HC @t:E E w h#^hdh_6J \J O NHQ'! S SCBLR' l'HLEC4i)~ }!. |C(zHz{ 2! l|(?{H?{(:z!. |C|yr!|cH3zx <w(?~8: |C?&6?:E++W;'H
v ,u3VtcWybF H sJ @[(C C  v ,R8C r *!HnG& 0ONLj@ Q <'!H0 h' i@ ~K 'K}6|6{(F
 z < C @C @* *i@y8 ~ <}3<|c={bF H xK @A8C C  ~ <R8C [ ' $H z lq@(
~ <'}3l|cm{bF H xK @q8C  }w7 +< ONLC @~8
} <,|3{czbF H yK @8C C  } <R8C 6 '!H0 h' )@ }K SK|G6{H6z(F
 y <L C @C @V *)@~8 } <|3h{cizbF H xK @m8C C  0= 0O
N@< ~L RKC H ~L 'K}6|6{(F  z L C @C @y8 ~ L}38|c9{bF H {L @=HC C  ~ LR8C  ~ L'}3^|c_{bF H {L @cHC C y xC(y{ow"! lvv7 < ONL L L~(F    C @C @#'*H lX i<  LR8C   LF BF H H
@?HC C I i,} 
7 <s{sdzceybB K K @ l{r7zq7y*V2bqm[$[ * n,<Y 5N_F]pbXn-bn4 n4b G ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.X l}ye"onh rm ~nx |Gn { ~mfVbkn?n;r&s&hmf Ehn8b t bcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N?ipzH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj*.`xp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([c\ dhV
[<Vn\=&>(M :hnSy"! l~(?X*N/}tP5N_}F;^h~'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi M 9Nh lzpz*cpefn l >A~0~&J0n4"cF%& &&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V
1 xC wr xG  hC^hdh_6M \Ohdjy]FE]% >NKf Lf l~~NO7})| R2x`xUxS x{6xMhL oxM lMrOlGKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(L oKtU]*{P ~w OCK 1 \K2, BLOCK 1 \IFRAG, BL H8Z *8)Oe p{<@< LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1 LI )0)
lJC&EK[@Y{Z0%sLLLL LLLL L L L L L L LLLLQ4 >+22!# )[#[ m"n%}`6;~_<[nr^_a#'3?)-7676_7 B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77d)b720-7) l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+ |N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ 
PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80
hOe``fOed L^ fGfgD]d.i|e'0'pp E&,('H/)"<b~*rC (2<+b ' J,&H"z)=&}~'*C( K(=&+*$C |{0(,{z(&y)&x*&w+&vu'tBtr} |,0sss!rgCK> qp0(J{Jn okXp8ug]o?CU #2qVq0"1c!!bL~9!!&! J!F.(b Iw ( ,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr  . ?G+0hcKrpc+ Aw n~)pp&l@9AER0uH>`1`RPS2 l(+2@i O AEwnX/ < ?&A9@T8U3<why I 
-@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6me["u]]idM ,lr@rdJ`0*w) J n `(rHnu0BY@C*vR@4 7N+
C@%*A` 3+O`M3J6I@! fL@JfL@JfM@ JfM+fI@]9+aM@6\ 7@*fA}*FN]+N@2m+aDo f
%)vFZ,+P`G@WS& GN@ JFA@  fO! FO# G$ '@$ R FS!*FzJF4+fC5`9+Pc vS4*vEA\+SE@N
d@Ld+dR@1e+E/8Jd>JdN d@
d
d Jd>Jd NKdO+KdAvM@@@vN@@(vNCvP@@HJvT@@ JfTCPfZ@@ vZCvP@@H wQ*&VUA%N~!.}x
|\XC xZ/K)S4NTFzQlr@( |\.XC C 1 ),
|\<XC xHZ/H)L H:  l q@ |EWEC @C @Z*i@|EFCxE{:@3R7L+40|;s670C67p(CM6x`~/B)T%BNE(E(HSRAMLU:oEELG`BERN`Q:1lgHCRNA '/KBGN # UWR 8 :3?lr@(
~l\hC yXC _ i,} |C(kzHozg{" zGqy" zGq ,zxr wC@" @ 0( zH~{. }C} |}8E
| l}}s{z'}y2x}swv'}u2t}ssr'}q2p}son'mC-&6-61ZfNl|llS!kbHUzj(F z\i l + 7+ hrFzEiFB+7(+'3,g~fe{lGlEl!>kH/d:w|{U zyU &N=e|H1^~(F
z\} | + 7+ |rFzE}GB+7(+'{ <z!>yG}GExGB wC!lyx}|\v |
utgs|ssS!rbHZz~(F z\} | + 7+ (?XT*luu7=j~(F
|\} | + 7+ (?qH?ql:!nuC'z|{U\`x5\ %~}{|GGC @-'*N D `aTH
q (r3(488q(r(s(t(u(vi) ||{F|E|G @?xC zF|EyGBMxC zF|ExGB[xC zF|EwGBixC zM-N 1 \I, COMM  e{^F|E~HB C
}F|E}HBC |F|E{H @'C |F|EzH @5C |F|EyH @CC |F|E~H @QC |F|E}H @_C |F|ExH @mC |* F|E~H @ C }F|E|H @C }F|E{H @'C }F|E}H @5C 
}F|EzH @+7(+#(rzKy"F|EzHB+}"F|EzH @-7(-#7+ ~xCxws!vb!xc!Horu+xCZ'{|P %~!>!n~G}I.IC{EC @- *l(Ljlql*jlr2+''* i<1(<jlsi*< /s"' 8R I1L1SNo@}IGICxEZ/*SN OKAT 3NQ `g{)@}I.ECyEC @|!.{(?nz+HB*y  {^ ~I @}I
@ ~I @|IB~IICxE:/*ITENAR RWH@ 3 STE@G2?l r@ ~I.ECyEC @{!.z(?iy+lx |w!>vG~IE}I
@xf2ckfiX,u|uuS!tbHs{B*zP}'Zy Rx\6!n~,}|}}S!|bHAz|(F z\~ \ + |(F
z\~ \ - |(F
z\~ \ / 7/ 8J
{(E {z'7- !>zC!7h+'y+ xC!lzx w,\v ,
~u |t!>ts{rGrEr!>qH/p>!~b}|}}S!|bHo{|*r* zQY}\`k  P ~FzE~E
@+"FzE~E @-7(-#J~J7+ }{| <{!>{xK
X  ED (1,504)I1(4,ISNR1) 504 FORMAT(I2) GOTO 40 104 WRITE (1,501)I1(5,ISNR1) WRITE (1,507)ISPAC, READ (1,0Ze* 
 T O!N!(/X~b2 b}3&M2K- 05c5L#0 +4,b57j2f)
f4$&#@# nJ> n!"b|G#]#V3f{Urz xO 33$HVbn?d . ny
W0%~h`fp?p2mA15=i~+Q {Rf{T{WB{X-{Y#{`{ }G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e  ~<H3[W}'Y^xo)k*Wk~}7} ~|b'{"zhd~yz)H?!hJ *x2zxzi~}@? lw >}S(}@?O!.vuz}hHz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)Sy7x|xxS!wbHv{ut7s: eO.PEek0-P{P}^% >NKf Lf l~~NO7})| R2|`|U|S |{6| MhP
o8Q lM2SlKKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(P oK4U]*{T ~w q@ }LSNCKC @t*c<
g LxZ*8mOe[~(?}" 8)| {H/zy"xC0(wy0~C -z2b *z8$ 2lv2u 2}t 8K2 /4Z.xCsr(3zq@.z/94* @P7xPwwMMCKC @t:1 ARG \507 CALL 1,IO-sp?JM~! 0@`W 02> ~8V
~OP l}(?M@/|"O}G l}{2@zPoKPJQQ lz2 }GyCx(/P!.}@/ wiSlKQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R , v\RhC r;*/506 |pZz){tK#N) $ ("  .) bn ~6 Cl 4X7h aFn(hn !
JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|jM=0P F}l(?~9h?w_&x z_"{OO-`0}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(W
oY4],Z>uC Yfmt"xYkz) , *e `8}?P2k[*)k} .G =f l~vEz}|` U SpW8 "={K~E!7h~ziy<&x=&~7x~@5z!l~XJ
*6j0G b=d /5}"wG} .=v"uCH$zts)O bFbblW8C C y xC(y{ow"!lv=0S e |#~Ol*8mON\DES PROGRAMMLAUFS AN:' 1/'ERSTMALIGE DURCHFUEHRUNG : 1',/'FORTFUEHRUNG DER EIN 2GABE : 2',/'BEGINN DER AUSWERTUNG : 3 ?',A2) READ (1,250)IFRAGE 250 FORMAT(I1) C BERECHNEN D 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