File PHASE0.SV (save files (Executable program)

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

||8`HHp@	
V M `Y *bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h\LhTuRSbhH tl~vGwizCVDyo&Hp 0_HC PASCAL-#MArSER V
K ION @k0.12.80_ L01g,$K=%L%2) L)0L1
1 6K.L;1O-MON ISYM,LEN,IWORD,IPOINT,ID,IAL COMMON NAME,IRZEIG,LZEIG,MAX,IL,ISTAB COMMON MAXE,MINE,KMP @! FNoM LHFFnFFnFFnFFn l~~7Fn+Fn,,d,!.}H/i/\|R{bB,@ qL C}"h
, 2778'EF.z ,yf^+(/xw;&s!ceHP pqNpu~G~E~!>}H/5F.|&{(B
, + 2}&,@ C7(#zG7!>zC(3zHy{9/z^F.x?{bh + )27>(]zK/{bh + )27<wF~v? {bh + )2 uC7F~t ,us7F n!dq D+c-HP p,%~F~D/}bh
+ a"7>(+z/}bh + a"7<~F~D/}bh + a" |C7F~{ ,|z7F n~G6v}& qL )K .7F~}& qL aJ .7F~y?@n~C(x{k/E n |C(x{s/Fn~C " o dqH@+)F~ l~~7TvFn Fh
9 ,}7| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e bi 31WS'Y5xo)QqARDFFoTL~&2;&}C`3<3t;JFFnFFnFFnFFn|B_B{V6zW6E @E @ pm'* 4
R.'H i=F lyy7Fxbwb= 7=<3;~~BC @ @>78>7F~b}bB|C @ @> <{78>7F~b}bBzC @ @> <y78>7FhL +F. Fh ;z(?H,~yR zGM]Jx0 ~E\K&Y(N oKU]*{R ~w S..f/! hnnDBHr r9Q8=7FFHq0~/b8l}60G0D8F.FFnFFnFFnFh
|<\{3SzcThE E hk:'I!C0 $ R.'H )=F lyy7FxbwbJ/M=p7IHDG~~BD @ @J7HHC7JF~~&}(B | L J {C7JF~~&}(B z L J yC7JF~x ,wH?B<*\uOvDPw Fh G}|0 }C{H/%Qd>w PP&R!. h/o"HrDb'Vbml>M|pD9q8=7  T O! !(/X~b2
b}3&P2D-#MD5C5L#0 
Y+b4,b57j[H2f) f4$&#@# NJ> n!"b|G#]#V3f{Urz xOi33$HVbl?d . ny
W0%{>{|j??02vA1U=i~+Q uRfuTuWBuX-uY#u`u}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 pxYkz)/3dW'Yhxo)*Wt~}7} ~|b'{"zhd~yz)H?!hM *xBzxzi }@? lw!>}S(}@?O!.vuz}hHz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1O(tC@s{ozrZJtc(S{yz)S? eO.pEeu0-`{Pww% >NKf Lf l~~NO7})| R2v`vUvS v{6vMhS
oHT lMBVlDKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(S oKD ]*{W
~w EH+-S-HIbEIKJb!HnG& KBzz eZ*8vOeu~(?}" 8)| 1&{H/zy"xCK5(wy6~C -z2b *z8$ 2lv2u 2}t 8K?2 /4Z.xCsr(3zq@.z/94* !,O&,MkM KFUfBtLvx]zLojl:np;rD@ -/sp?JMw! @@`W @2H ~8Y
~OP l}(?M@/|"O}G l}{2@zSoDPJQT lzB }GyCx(/P!.}@/ wiVlDQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R K!dJ cc?p . ns
|pZz)ttK#hh) $ (",c  .) bl ~6 Cl 4X7h qFn(hn! JBDVD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|j?0` FCR}l(?~9hOwo&x zo"{__-%H}E75(/l'8(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J,A(~W&}Y"Hb lO? Ya(Z
oYD],Z>uC Yfmt"xYkz)n+*e`8v?`2te*)t} .G =f l~vEz}|` U SWH "={K~E!7h~ziy<&x=&~7x~@5z!l~XM
*Fj~OG b=d /5}"wG} .=v"uCH$zts)O,%bFbblW >X"DnHD{" G~'}'F>f0Se|#xOv*8vONvOR 3v.n bDB(|8  T&*
-1L=VVVVVVVJ, h Z.C$=B"&L5 DB |
LC&+J^}hz@ Z J(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIbEIKJb!HnG& KBzzno7 JbJej (?V,IV C(VzB V R Q);b&6ML
H w 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M K)!,O&,MkM PIUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] /xRC `0 &
c d0 c dbf>btHf666c&c > nQcQc)" nK~cbnbKc9}"|if|ib(/^ ( `Q(K0{(3z"Hyrx(Q HK`J!dJ cc?p . ns
h?0hdjx @`?pM|z3/& C~ /2E$[? s~=K 2z}>OlPI&2 5&Z&C(*zc"z[L r|=@> l5:*b*"*> / , @ l: GV`{`R l[[4 n[c[mFCGmfJ[0nnDBHrH~wJ
py'5N=F;PbXn+bn4 n4bG ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.Xl}ye"onh rm ~nx |Gn { ~mfVbkn?n;r&s&hmf E h 8b tbcc 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\bdhY
[<Vn\=&>(P :hNS/N}}t05N=[F;<h\'& c F c F"b"bbbf~&f.bfy(J  P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi P9Lh lzpz* cpefnl >A~0~&J0n4" cF%&&&c' @H1~fn~bl}|y 6:&7c7BF 7c7Fc n66,{7rzy{Hf.bfl}N{V
1 xC wr xG !hC^hdh_6P\Mhdjx ;FE; P0b n4c)F)c #)bDnbDf)r$+ i\9@/$!f)b3l**4:*c*FC(&{@Bz!NDd@BzHf!.b f&b$czPHo@f. bDoR"S..f/! h
>nnDBHrH~wJ t&c F4nH?! h"D $P'Mh h v G~}w (00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3=@9- BAZp| PU NvH/ fdbbl 6~0('z;6 fR6666X&6.fQJ lH?o(/N &} &Df D. o " DJHoz n CHoz&BtH/o!.
h/o"HrDb'Vbml>PNt@ p{<<  LI)
lJC&EK2 L01 |$K=% L%0) L)0 L1 1 6K L;1%>!~\$ @@p^<(q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,DrOR!HW7(T(?'LX LV P
|Y *bWb7U(zLx<'&(&[&\(0Z" O/b;2fF6C;dEE7P?;C;LE{& ~7ES'L1<=ajwao[2h\LhTuRSbhC t|~vGwizCVDyo7IHGHA{zU}<@<  LI )0)
lJC&EKg L01\$K=o%L%0) L)<L1
1T|6K`L;1%> LI
)e1) lJC&EKN_? Ptw(`q`Y/JU"U pFph!z?p$|AIq1L20 "&xqp/`%`q,DrL LLL L L LLLLLLLLLLLLL8io+ G24;y'\z[)}/22 m-l%M<6;bJ=<[Lr^=m2n?)-7676_7
B*)j).c77c l& C_g L )&/767-6-(6 B*-d-_77)B720-7) l-&IK8-7'7B7g)&JK87 2*7d776*@ @p @cN((bG*&(C[*c(]z7lK <H%abE
H NIY|z&l%+Fnu` LN~)mBRzb nO`bPwj EOR)h@Cz NN&O&PH/&.NNC|DP.PfNU:NP~!))bE;T;JQpHC3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC7!_T&2S&/;&W>>
I@)De3&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+0'pp ErJB6)b6mJA&(?f6)z* b&t,('H/)"<b~*rC (2<+b i/' J,&H"z)=&}~'*C( K(=&+*%S ,|{0(,{z(&y)&x*&w+&vu'tBtr} |, 2sss!rgCKB qp0(J{Jn Zfq>H~Zo+__(U0e(_>2e>w_ UUU\8ug]o?CU # qVq (WIHTLHN"(TEHREH OHNHHAOHI)(;  WXRTXE"(WEHVEHL (SHHEBHE (SLHLNH RXASXPRXTEHR (WRXDNH";8 ( EHALHNNH)IHFNH>)(ADH(<8=MHA)( HHE (TAHNPXOTX(,(T,(T,(T)( ( ( ( ( EHLEH RXIEHL(("UXMEHROHU (O (RNHG;8 NHL (1.(.,(NAHX38) EDH.
$HDk / z"vybqb8J+; @vJ vf D" zn.nb!ybtgt(/]h(n2)Lxf LCsscwln!.oH/]s" nF1issb /Cn$hx wB*s"r /Lx$ ufd7 uVJFH/U . & Ffhx7x"t(/bo" ~noKKdRhkjKyRc(Yz!rfh$0O1puwLq ulr7vw77
&Ff FD 82(zR /F"!JfN2 EEc(z9Eb*PNQ!. P/bF N7 & 7F*J BQQbLb9L03b@nb!.7/Jb"92MJd4!Mm61LZJkt:+Nnxf&!LY"8#8 8xg8)hi)j00C* !jJmq2ipeN  L{rH?Uz+5>N%MHJU <RDOTY@@hFFFnFFnFFnF(fF~bh
} la$( 7h$F~bh } l)$8 7h$F l|F~{F~zy'FxbwF~vu'FtbsF~L.K~cRXP.Hq@H~ ,}F~|{'FzbyF~5F2FFxgxEx!>wH/vF>~F@Fu|uuS!zbH9zt&w(B *l) l06E QB!(E D 1,i@F lys7-pt&w(B
rL) l0$7$r2(_zg/.  sCsF~J//wh ) l$T%`r|"* p)c N~M~)~78$p}kFh
||U{w{E{!>zH/*y"zbBxG)F RB'xE k*E @Fh ||U{w{E{!>zH/Ny"zbBwG)F RBKxE 6:E @ pY2* )\F{G{E{!>vH/uF>|GGt|ttS!sb } p*"g4)rNHz~&*F CxE
};E @p1*iLFp|kFh {|0xE sE '$CL@S8RE EOB 5`0<1.<0iiF{GWGE :AE @npa'*N$ Q EP'v`@F.{GHE =AE @opz:poG@` \kw 'N" E E3'v`@F. :A =AFh
5l/Fn ~GF}bh } B$|7($F}b {GF}bzF~|y'xp xCwGFn vGFh F lx(?JN*zp{p vC(ezU/T u iE E HSpn *,`YiFtb xC&kpO+f@A9 P8(z?~}C(z? F |C(zHz/h8 0HL
,Fn AST NMAX=10; VAR T1,T2,T3,N:INTEGER; PROCEDURE TRANSPORT(VAR N,T1,T2,T3:INTEGER); VAR M:INTEGER; BEGIN M:=N-1; +D6x  @@ FGTqYLAFFFnFFnFFnF+fp~ ,}(?PV* p|iFHjp{ ,}(?^z+p|iFyb }C(tzi/+Fn lxx7FHjp }C,j9``@a`~~F},|(? {+#pz ,y(?{+%p~iFxk(pwI)IE 9AE @ r. *,`YiF nvC(7z</*u yG+pt ,yH?sD:-pr ,y(?NH/Ns+2p qG4p qC!pc(o{Ho{]/5 qCqF~n& rL CY |y:  r<` z+H@ tY,`nz7Y6~F }C!|b(zHz/7{ }C(z{Hz{/:y }CH1z'/;x }C(z{Hz{1// wCvGF nvu7uEu!>tH/Q/th
. Y?s7(Yw:F.t&rJ CY7xYs!qb!hM po'Fnbmb 4/ @   . -r `R``@nB~J/I RBY7xYs}GF|b{bBzJ/I RBY7xYsyGF n}x7xEx!>yH?wF>v&.I AY7xYs! lu(?@t+bp zbsGsEs!>rH/qF>r&-I CYprvbB-I.I 0A[7xYsoG7[!>oC !6 " - r< .140 (z/F~F>}C| ,{F~ <pzkFn {GF h dy xCHw{%/iv xC(/zH/zw?j
u<tF~sF~r ,{lsCsqyFyb xCHSzI/nv xC(;zH;zS/s p!>sC(ezHez_/xN o?tn xC(m{l:2;`@Mn3 29 G@`$!2. D.yp~iF}b |C(z/{  {C{F~q/|z yGpx ,|H?2"*pw |(?,H/,2*p~iFj
pv ,|(?:q*pz ,y~yFub |C(GzM/~FY/t |C(UzY/~x |CHqza/w |C(kzHkzq/~FY/* N E a`19@`n)~<}F~|LLE AE @r *,`YiF l{F~|LO zcy|yyS!}cH>zx&.I BA;HE )E @F h 4w vC!hM utGFsbt(?iH/Zr+6 q,t(?bp+<po ,nF~m?8lT* @@5@@ P. 2O4 9)~F~}?>O
|FN}?:{zC(y{Hzx?C z(?H/"*\pzCh6zzw2`6zz02ck09LSZL]ofvFu ,t(?DK*gps ,~F~}?hr ~GF h pq ~GF}kzpviFub tC(ezl/{p ~GF}k|po*L`@@ {o?8]5p )~(?*}p} , F~{?z |GF h y |GF{kqxiFwb ~C()z0/v |GF{kqu ,|F~ qt ,|F~{?,srC(q{HIzp?1orC(SzHp{n?6xFm ,~(?^e*7ql ,|F~{?8k |GFj`o_M5c `
@ @q~,} <|F~{?zF~ygFxb |GwzCzF~ vC!lz(?0H/0**qOuMq tC!lz(?BH/B<*q sMqr ,q(?JU* qwiFrb qC(Uzh/"ph
3 sYO qC7YwyFlj#qyG$qyCV#X@!`pR`Pn+ 3 5t~(z~?) }C |GF|c(z/.N {Fnz ,yF~ 8q l|(?&+*9qx ,yB xlHE E F wGFvby(?DT*:qxNLE QNE @=qxNOu|uuS! l|H?ts2h . snNE L[*XB.i{O~AmQ3i^E @F h tF UF^ ~C!}cH|{/|{2h
A BY7Yz2(+z3/yB xGF h  L}F~{~'Fnww7Fh vlNhE 8E ~VJ'q+'I ,`YiFh vluwuEu!>{H/t{2h . BpE A^*.y8`P@@9qAE @t 8*iLBh A BY7Y~2(z,/ N }C}F } ?(,*Fj0t l}}7Fbh
A BY|7(YwLt l{{7Fbh 9 BY7Y <z2xkFh F >c&ppCbtiH'lbu(dd&pTJ sI r@hJ n `@9 A`Pp 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