File SPEICH.SV (save files (Executable program)

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

~|bP&`qEt aAzwlATPOqFt a| AqGt a|0AqHtaFO
qOa|@AqIt aItI;%GGB;U\PAqJtaU
OqKta`IAqLO aAw&pIAqMO aIAqNO aAw&IAqOOa|AqPt QOa*tH
qOI6,I7,I8
6	FORMAT(8A1)
	X1=FLOAT(I1)+FLOAT(I2)
	X2=FLOAT(I4)+FLOAT(I5)
	X3=FLOAT(I7)+FLOAT(I8)
	X=X1/(X2+X3)
C
C   FESTLEGEN DER KARTENWERTE
C
	K=1
	DO 10 I=2,4
	DO 10 J=1,4
	KARTE@D$0qj
u1tsmIJC'G I&-t"MVCh 5LtsIQ$ Po/s$`t^&t"MVm3/tJ$ph5 UD@D$qj u1tsmIJC'G I-C0pGP5E\oJ$$o /s$t ^C$h 5LQT$s0.Nd04 bmfe $0q0juKtsIQJC10p-G5ElB K $ o/0$%qj
u1tsmIlJ$h 5LtsIJ$0d0D$@h05LQE$s@.Nd04 /fN$q@juKtsIQl2JBh5 tAsIQJ0$ qj u1tsmIlJ$h 5LtsIJ$%l@^K0$0h5 EQ@%s. ^e5*bg/8'%ps.Ne05* bg / %0qj
u1tsmIJCj;I1b%@qjuKtsIQL 4Cjf1Cta(IWSm/9tJ!% PqjuKtsIQLJ4C/vDME^@%`lIKL+@%@pl KL+%Po/s%t^C%h5LQT%s .Ne05* fe %0q juKtsIQJC10p-G5ElBIK % o/0%0qj
u1tsmIlJ$j fe0pGP5E\o"%@qj u1tsmIJC-4IP%Po/0%ph5 QEQ@s. ^n3&M;1v\/&^s.Nn03& f/ s(X/N0t^&ZtM!JFPjAT^uh5
F@D`mT3ammB 4W@bmITK@+pt^Cqh5
DPs. Nts /Z*ub&JA30t ^&t"MJ`ps. m Xk0mm &4@qmIX2@0t ^Co /sh 5LQTs0.Nn03& N1=vhK;0=evKhN00jA WA0 pYPTDq0juKtsIQJt1@g03m@^AdpmP` g03m@^ATpmPP0j0ARIUm'mRJh`5LQe@@2j0A&m"mBJRSR2CCxh5
QF@T4qj u1tsmIWmJ&h 4#MG5EmBIUK 6h5
QF@T@qj u1tsmIWmJ&h 5LtsISmJ% Ph05LQe@@`o09AU0bjA &Zm%mJ&RR3C'Ch5LQe@@dq0juKtsIQWm2Jbqj uC0fg\*fvhKC\CGVI1Y2CCfh05LQe@@pq0juKCKg))f[<"l<\VI1Y2Af mC-qt0p@\o9 AY[q@juKtsIQJC1/Ch@5LQd@@qjuKCKg))fA<x4j)/e/ t) v49&x &uL3CqjuKCAn5 d%
$wv@ed0^\@tp@@qjuKC44>f([f{K$wd@^\@ ;\ ; qjuKCAm\T X{-wg`'wtp@\ qj uC0Kg")fA/Je3 t) $u -/ +2\ 2d^\ !tp@\qj
uC0Kg")fA.Jqp 3.("'=bt p@\dp &Q@dp&= fe ? BO#ohp5a_@oUu5U@ a |0$C 1B@!Zg!|0D!@@@$!P@HC!\Q!g/! AOoOh5a$o_U5TU  a!0A@!\Px#o_h5atoUu5U@ aAz4" 0C!g/"B@$"0BOoOh5a o_U5TU  a"@B@AZ4#
0q0tTaO4#\@4Gj#,P4eqOaO_xCa_#`@qrt!a#|pq%Ea#|!Zu#Lq!s@!a#| q%Ea!zg#|q/!t@!a#|q/%Ea!zg#|4to!p a#| 4!g/# DOoOu55H _ a#%D@#\0qO%HCa_A4 $0@OoOh5atoU5TU  a$@@@C$P@@$\`q0 Ca$|pq%Ea!zg$|6$\4$\4q=EaOO4u$A4FF@'$A6@6AZ($|66$\6hD$\q=tTaO4$\ 4Fj$
0togp55TUa_4FTqta_VUTVhva_6oOwvTw  a$PA@$\`4-qta?-Tqta_a_AL'$AOoOg55HPhUa6toVuUV@ a$|$$Bq%ta_!g/$COoOh5a# _U5TU  a$ C@$\%4x$o_h5atoUu5U@ a$|04!Zu$LDx#o_h5atoUu5U@ a$| Dx$o_h5atoUu5U@ a$|%De!g/%0AOoOx  a%@AO@oyp5Ta? Tqta_U5TU  a%PAO@ozp a%|`D%\pC%\%Aq%ta_!g/%BOoOh5a$o_U5TU  a% B@ \0$x#o_{5atoUu5U@ a%|@$to|p a%|P$A4 A EqOaO_ua|P7 Bj5,` aAqt Da|b @pAq%ta_!p,B EqOaO_ua|$!!Bqt!Ea|$!ABq%ta_B@!Zg|q?%AaFzz4top a|!4-T-D- 8\ 4.T.DY.9\0q?9$8%aCzT298q$}5a_EqO5aO_XqaCz?448x!o_ 59a o_U5TU  aA *@CO8!ohp59Xa }oUu5U@ aAz $9pA )bC8q%5UatTq5ta_XaC})dCO8!o~p55T8.  aA *pCAq O8% t a!O8A Dtop aAz~,Aqt a|Aqt a Oqt a O !AAq Oat q Oat q Oax" _ |Aqt a Oq t a! Oq t a O ! AAq Oax" _qt a O !BAq
O a!|@@O! FB Bj  A,l)7j <~7xl~C7h ~}C}|{{G6G FB B/xC !(C N '$ 5O#`1`O@PT5R` lir'+NTa!i FB Bh7h!zb!(oyH?y`:{GH FB BoxC
!(C x 1-P'ArJ.ER, 0 ZEICH, 0 STORE, 0 K240, 240 K244, 244 K215, 215 K207, 207 K260, 260 K212, 212 END
 Hq0HA /> *>(*,2'?
/> * .2 = #? <2'?(/> /2*>2 '# ;:>(+'# 2 987.: 22.??3;6>(+"'52'43>(+)'52'20+. 2'1/??}1 >$ 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