File ABSCHR.SV (save files (Executable program)

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

~|`@@LX	LV M	
Y *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h\LhTuRSbhD t,~vGwizCVDyo~rsvvN]H p{ <@<  LI )0)
lJC&EK L01 $K=% L%0) L)0 L1 1 6K L;1$>!~\$ @@p^<(q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,Dr
 T O!N!(/X~b2 b}3&M 2@- 5c5 L#0 +4,b57j2f)
f4$&#@# nJ> n!"b |G#]#V3f{Urz xO33$HVbn?d . ny
W0%% @_?P22A1=i~+Q qRfqTqWBqX-qY#q`q }G| }c{z(yy yxy)w(zvu)$t)A$ kbk lsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abe les7 |e Kc2b22&3 WB'Y$xo)@*W0~}7} ~|b'{"zhd~yz)H?!hI *xzxzi~}@? w!>}S(}@?O!.vuz}hHz f} .~>zxz)OD ,~<Z }C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)SZ3\\b(wz nm~Fn]f eO.0Ee10- {Ps3% >NKf Lf l~~NO7})| R2r`rUrS r{6rMhP
oQ lMS l@KJLKKj MfL<J}/K .{ z(?H ,~yR zGM]Jx0  ~E\K&Y(P oKU]*{T ~w iC iDk_z",7@(/s,vK2 w{ 1HZ*82Oe1 ~(?}" 8)| {H/zy" xC0(wy0 ~C -z2b *z8$ 2 lv2u 2}t 8K2 /4Z. xCsr(3zq@.z/94*zV&V
V&T&z "!Tb!Vb(AzUUb!VbVVc ~VV& bUdeA*K-Osp?JMs! @`W 2 ~8V ~OP l}(?M@/|"O}G l}{2@zP o@PJQQ lz }G yCx(/P!.}@/ wiS l@Q }>HIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP&R (gzg b lM0ucF&i|pZz)ptK#$)
$ ("   .) bn ~6 C l 4X7h 1Fn(hn! JDD"@~b>z*N *C*(O?D"(>z*3JD l**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{ |j{90  F} l(?~9hw/&xO z/"{-@ }E70(/ l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(W
oY] ,Z> uC Yfmt"xYkz) %*e`8r? 20!*)0} . G =f l~v Ez}|`O UO SO@W "={K ~E!7h~ziy<&x=&~7x~@5z! l~XI
*j G b=d /5}" wG} .=v"u CH$zts)O bFbb lW <es7 |e Kc2b22&"0Se|#tO2*82ON25NWFUpbXn%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 tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N7ipzH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fjw+ 1t(xp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{  C| ~Cb{@/kz"yiKJ./!f G~}w ([ c\bdhV
[<Vn\=&>(M :hnS-/sp?JMs!N}tP5NWuF;Vhv'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi M 9Fh lzpz*cpefn l >A~0~&J0n4"c F%&&&c' @H1~fn~b l}|y 6:&7c7BF 7c7Fc n66 ,{7rzy{Hf.bf l}N{V
1 xC wr xG  hC^hdh_6M \Ghdjj8UFEUOR.n bDB(|h  T&*
-1wLx=VVVVVVVJ, h Z.C$=B"&L5 DB |
LC&+J^}gx@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIb EIKJb!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 GUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] pxRC `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?HrH~ @@`?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 t&c F4nH?! hD M 'Ih h  G~}w ( 00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){ .n+-'-0BH.rD.b,-'V2bqn39CVDyoX@lm7!#"d"6"N <8M
 !b"n#%@J bh@/z!f3&"h!f &&~ }v-|RGn|brt{]KH/Dq-n{rC b oH/I"rr|^Fzbty]iq-|ytz]Hz CVDyo`XqOR!W7(T(?'LX LV M
Y *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h\LhT RSbhD
t,~vGwizCVDyo~rsvvN]H p{<@<  LI )0)
lJC&EKL01 $K=%L%0) L)0L1 1 6KL;1$> LI )0)
lJC&EK(q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,Dr L L L L L L L L L L L L L L L L L @`H2!*4 +) [' (mf%ug6;vW<[fr^Wa [ ?)-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%+Fnu` LN)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ0C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m 
)QFs l
@ sYCn |PPsRPs N( n((/("); (b.)Q @S Q(S)8TU'XW'hV' K FnY&&!&'&.&3&8&)2Z & &[ &F& C G DJ;K 80
hOdd`fOed L^ fGfgD]d.i|e+0Yp ErJB6)b6mJA&(?f6)z* b&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*$C ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCKB qp0(J{Jn Zfq>H~Zo+__(U0e(_>2e>w_ UUU\8ug]o?CU #2q q X`H
 x`` Jx\Jy JzJ{VJ|J}SJ~JICI<IIHqHoHYHHH/H-HQHOJ.,
l & L&Kh,@/ @O &
0 h #G$%'"+AHPz,END LOCK 2CLOSEIPRSA(K),K=1,9)1)L) :'I2)I1(1)),I2(1),//)fbbJ^23fO0 /s/>3 DD K@}+B`Y@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!*F4zJF4+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*&VC*C@*C)@! 7NG7d{uw17jGUD@ tA@p6u+ Tt@O 7T@CP{AVgDP@ Mp@  7e
7NQ|O$0s7]{vZwOCC q@|W|RTR@97=HOB 7W @|R{\x7 D@ 3| jx7   x 7 Sw 7 y 7@HGq6,  |K{rjPC@`57bH47SI17p I 7TW
7%My17pOI170KIXAT  7GbU{10}V7|]y7py7 y7/y17p2Y87IIBZy17l6|"+z7+z7/+@pA+pM+10|Q+@pX+qk+@qh+2|o,C3@@ASN`'PCNhe92bH{ y"(Qzx(/wX>|) `J&c
bbb j!.(/Wb)d *.w$755w'p2"fYfIbFCqoT*z\c>@BffhfeDV.c/`c&RRDYv~4}Bebdbj6*3f"nfbfbggfrndddt9d"gddf dphH. ?i96|(e{" @zz>Tzg yI 7I\ 7Ixh wIfzazxyh
w)}~  qBvur7ir.|hH?< j@?fs ^?z ?o2!EfpC&D&0qArB(|,v <s?&F /S,O<9*AF.t`BB7AJ. ntCCDrCdE>Juy)?(>C"BCdAC'O0
sBQ lvw0xA&A?G<bG lsa&nC (OchG,U0lldmalm' cKfo0}|zpo(~f~Rn'?*W  \K4, BLOCK 1 \IZEIG, BLOCK 1 [A, BLOCK 1 DUMMY [0 DUMMY [1 DUMMY [2 ]11, 102 1120 2206 ]6, 102 1164 620 ]3, 2213 261 0 CPAGE 6 EAP ENTRY MAIN MAIN, NOP CALL 0,OPEN PUE   IPRSA(1+K)-10*I1(K) 50 I1(K)=I1(K)+160 IF(IPRSA(1)-NAME(1,K1)) 110,40,110 110 DO 120 K4=LANF,148 IF(IPRSA(1)-NAME(1,K4)) 120,130,120 120 T6 `BB(|S,w}?DDDfb Lb%Zn%)&
Bybf &%~ )%bo{&|0))&3w@!f4dS@bo)FbR`(/"J)bfRca]e-D of"/v& . XdGF*}(rb-VbmalZbe] ozdd*x*OL0<8}A6) 80 FORMAT(' ERGEBNIS (PUNKTZAHL) :'I2) IF(IPRSA(9) - 15) 1,1,150 1 K=K+1 WRITE(1,60)K,IFE(I1(K)),I2(K), 60 FORMAT(32X,I1,'-TES FACH: ',A2,I1) READ(1,80)IPRSA(5+K) GOTO(1,1jt sI< |I j g0qNh`fp~} p.* <(*"8! *>(.2'?"
/> *>(*,2'?
/> * .2 = #? <2'?(/> /2*>2 '# ;:>(+'# 2 987.: 22.??3;6>(+"'52'43>(+)'52'20gjL,g+Ig&HgHBP$Bt 1hNNNB!~bHuzNLEu7hugd}"O|bPPb!j|D %~x}LVL|L {S!~g}LVLzLeKyLeKu7hucxG]LZL]LWL} =LG @W/*ENARFNSRESE$ `nsKC0'o+@.!lxw7wEw!>vH/u8
tLsWsEs!>yH/r: N\qR Q @cO \`VNNLE XG ~ G @9*t@*}G}E}!>|H/{8 SLHuN}>zx VL_78I y7XugSLKLu}czgVLEx SLHO78J yzW7!>zC!7hugSLHLuh SLHO7x27uz VMS
jN~8 }\u^|(B RL}\ _7u<{7xs!l{(?S *!nzCy|yyS!xbHMz}MEu|bBTL}M E7xuc{G7!>{C(OzK.%(  yw7V,vw7}MNu|uuS!|bHt{|(B ULNL p]G @]*NlRULT QVL ^~NHL h  e>G @~NKLhG / /s"2,6pr@2,6qC:' ,qB@.}Gh
~lIh |lB^G @G @Z'* B `JNTR b`'.r@*|NEu7huc!{b!(olH/l2*l}}7~N"NC+ 1 @S
GSLSLHLh  e>G @SLKLhG / 2X- l<nH lr i<
~lI}c|{'VLEAhG G }M&6M>llnQh zl}W}E}!>yH/k( SLh^G @X(G x8   \ @V
S ~ 
~ 2} |` Fz{z7ycxwsvu'tD&Es'rq'}*ZDp7DDCo6rnmrlk{D56DDC42hDJ0myH@F4J. nj(i.H6b62k zjSFJTFJU(/h&<!NJJdJ zCpHAIN ERR v ruus@lz ponrpq{"tOfo.}~z~`~g 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