7\XMASMENU MASMENUCOPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<د2? ه!߶2:2a{_:߷ʖ:߷>Ľʖ:=2–!B!6#5ʖ:߷Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "ڷ"͌#>?͌͘ =_.:;<> Oڅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3ۯ21y_͸2y2ͽ:ط˜1͘A͌>><92^ :߷¥.!_~#fow]ݭގޥ!v"!çREAD ERRORçNO FILE^:߷ ! ~ 3#0 Wx x ڀ ڂ G ~ # 3x~#B!Y~ɯ2:߷=!߾ý:߷=!߾:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ݯw4!Y~ʆ͌†t=ʆf ^ T ݯ2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Y޸psp2mÆÆf ͧÆFILE EXISTS _: É: :߷ʉ=2)ͽÉ T!@k!B}|q=qf^!~2>`~2߯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !߶ Â$$$ SUB"C{2!"E9"1A22!ty)K!G_^#V*C~E ,&-AGMS!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :E B 2>: b# : y! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: !  Hù H H $O͐: 2 *CN# x: 2 p&x~+é72 H! >w_: ! 5ͤNkͱ¦ͱxʊ#Nx: ! 2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \S*C :qn& ^#V>O^"*}:*)=":O:o"*C *C!ͮ~2~2ͦ:2ͮ:O:w:w |g}o*# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ,w͜͸Ͳ!!N#F$**O!~#:A#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻx>2>2ͻ:!Z2:Eẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:E͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=262*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄ-BOSKUG 505EXEC COM: JRTPAS3 COM*LASM3 LBRjLSTXRF13LBR4 !"#PASCAL LIBc$%&'()*PASCAL0 INT<+,-./0123456PASCAL1 INT1789:PASCAL2 INT';<=PASCAL3 INTO>?@ABPASCAL4 INTCJRT-INT LBRDEFGHIJKLZ[\]^_`JRT-INT LBR?abcdefghijklYAPRINT DQCMNYAPRINT1PQSAOPQRSZ80ASM LBR]TUVWXYJRT-MISCLBRmnopqrstuvwxyz{|JRT-MISCLBRK}~C-TO-PASCQ exec comYAPRINT PQSi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bw!>2*C~=2u:B2~2wE:A*Cw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2Ó5ELV_hqx|ÀÄÈÌÓÚÞâ$ͷtE(tͷtͷtͷtͷttt t!t"t#ͪt$ͪt%t&t'z2t!("R!"T:C*R|+"R|*T"R!"Tt4t012P2Q2<:P(2Q+2:P+:<:Q+:P+_ 1!"3"5)>22!"!"!~~jwO1!VsV1!{V  :g|KxGs1%VKW{MLLLh  1234567890-=`qwy[]a;'\zm,./eiou!@#$%^&*()_+~QWY{}A:"|ZM<>?EIOU16T!336&*D+2:$2(Iu1 ## #### ###^^nfut ###Ê ÛY Copyright 1982 JRT Systems DISKSABZZZ UZ!9"1Ù UZgZ͖\Z'[5\ xZ(*]DM*ofͦ*_####Rq#p >2:x͛Y* Program termination $>2*]"d*d*d"d\3\""`i"*^#V#"{Šzʟ*^#V+*s#rt*_w#w#w#w#Rs#rx2L"JOH*J:LGdHI!yw# y*J@ z{xN*J:LGd"M-*glL!.#z !IyEw# y;*Mx2"!"*""­*͹\"ʗ**DM*"Ý*Y:G**ͩɯ<##N#Fxyxxyx`i>`i>^#V><"O"Q`i"U "W*Q|/g}/o#T]"S*U*Ws#r#*Ss#r*W*s#r*s#r*c *eDMz/W{/_`iDMxyxڥ`i"e*Jͩɯ G*%5+V+^xɯ<48#+C.!,#z +~>8>4q#p#s#r#w"*:_s#r#s#r#p**s#r#64"" <26#6#N6#F6#~6**"s#r#q#p:4*:_M\*^#V ^#V+|^&--  $MXC !*#z virt addr:1234 call:1234 $}xgxqg{q&* >“#ʞŠ!-#z +"> 2@!͹:_!))>p#p#="|!*"s#r#s#r6#w#w#w#w*:_>w#w#w!N#F#N#F |}*e*cDMx/Gy/O *>Y*}#"}ͱ ͑ {ʞ"##^#V" :_!*^#V*5 i "!""2W2N*"!"- !1 "/ *- #"- *gK:I$ :I */ 6#6#"/ *I:I*/ s#r#"/ */ 6#6* ^#V##{ z ¶ 4~ w !"1 *"3  *3 ^#V##"3 { z *1 5 "1 + *1 w#w#w#w#"1  >4^#V#xI yxy ###=< yd xd q#p#*w DMq#p###~ BK++++"w !> ^#V#x¦ yxگ û BK++" ##2##=™ x :_> 2* ɯ<"C N#F#`i"K ^#V#~2I bk +*DMQ "M ~+ z `i"`i"O ~w : *K *M *O DMͽ :I @ă z/W{/_`iDM`i"G *C ^#V+"E q#p ¼ *G s#ro&))*E *G z/W{/_##N#F r+s" " `i" | }x * " * |/g}/o#T]" * DM* fI !1 >N#F#x* yx< <@ !+#z _*gK*I* " * +" !]͛ *_DM*a!xw yxʖ ͛ bk##^#V!n ^#V* DMz® {x* DMz {x* DM r+s**E DM^#V##z {x < !/#z +++Gx!"*#"e*m">`w#" *"e*s#r#6F !""bk6#6#s#r#6#>q#p#p#p#p#=c >dp#=s >2͞ ͐  $|#}3ʫ .   %Error: Insufficient main storage$:w    ͌ %Warning: $*a*_z%{x]: h!:G*|:y#~# L s = =%Line 1234 $%Main $%Proc $g͚̈́*]!UZ*o*_ *a-*c:*eF*}S*` addr :0000 prog :0000 size :0000 base :0000 cur :0000 tos :0000 low :0000 compr:0000 purge:0000 $  !"2*#"*gK:Iʨ:¢<2 +y  exproc name addr use cnt time stat $ 12345678 0000 0000 0000 00 $|S'r#s#yS'r#s:G:> :>+2I!w# E*I:I*I*I:IS'cj" :1:21:2@2!2 ~#  :1S'cj"<@2  :----------- 00 * $PASCAL LIB""2!͹""*Cd*͌**!N#F#z{xN#F#x"yx5######=h~# :*|*͹""*"*͟""*z/W{/_`iDM|“}xڛ`i"*z/W{/_͟""*"7*:2***:Ow# ":=2*]T ":*T:O**w# _ s Msg err $  PASCAL.LIB error $}_}|og%Error: =*cs#r#"cBK*c+V+^ s#r*c+V+^^#Vs#r*c+V+^N#Fq#p2*c+V+^ s#r>2 x4y7{PY!A)I)Q)Y)a)i)q)y*]^#V#"]*a*cs#r#"c*]^#V#"]*_*cs#r#"c*]^#"]*a*cs#r#"c*]^#"]*_*cs#r#"c*]N#"]*c+V+^ s#r*c+V+^pC:12:1@2*1*1s#r!i$z *c+V+^"c~6#~6#^#V͌2*c+V+^"c~ #~ #^#V#"* *cs#r#"c!R#z >2c*c+V+^"c*s#r#"*+V+^"*cs#r#"c!"2:#"Ë*cC4+F+NG+F+Nx/Gy/O N"c^#V#z/W{/_`iDMxڟ^#V#DMʥ^#V#"+*"*:=2#*DM!)#z !(#z b*c+V+^"+~2"+F+Nq#p#`i""c"*c+~2Ì͓"c*"**z/W{/_#*DM+"*w# L":=2**s#r͹*6#6#s#r+V+^"+V+^"+V+^z/W{/_~2+V+^z/W{/_~222*c@ *ez{!3#z *]^#"]!^#VUz #U\nUU$ 9 UU// /./TbUUUP UUU-VFVUUU UUUUk UUUP$y$$$UUUUUU UUU,..,.,g.UUUUU['@KUQSUS.U..c!UUUU!#Q##U_U#UU>>>z+xyx>>>>*]Fx2#~#>N#Fp+q##"]`i:> ~#_6 #6 :x@!:G%Entry *]N#T] "]:x@ A^# %Exit $ $^#ʐ:ʚg0 Q ʁ@G!E# :!x!4#z 0Z *]"]"=*a"*c"as#r#*s#r#s#r*a+~/G+~/O "c##^#V#"a^#V"]"]*c++~"c"]*c++~"c"]*c"c*ez{x*glL*glLN "*iMD*gIa*c+V+^"c*gCLÕ*c+F+N+V+^^#Vr+sxxڃxyڃ*]##"]*c++++"c"]zxÃ*c+F+N+V+^^#Vr+sxz{*]##"]*c++++"c"]z*c+N+V+^^sy*]##"]*c+++"c"]*c+N+V+^^s{8*]##"]*c+++"c"]**cs#r#"c*c+V+^N#Fq#p*aN#F*cq#p#"c*cs#r#"c*cs#r#"c*cs#r#"c*cs#r#"c*c+V+^w#"c*]*cw#"c"]BK*c+V+^>*]~#,GO*cw# p#6#"c"]"]*c6#6#"cw# y?q#p#"c*cq#"c!| *c+F+N"cq#p!| *cw#w#"c*c+V+^w#"c*c +~ "c*c w#  "c*c+F+N+V+^"cq#p*c+F+N"c*aq#p*c"c^#V#~# ` BK*c+V+^z/W{/_+V+^"c" Õ 2 z¢ {x >2 z/W{/_`iDMy2 x2 BK* w# y : *  p#z *c"c^#V#~# !*c+~/w+~/w*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+V+^N#F#y!~# yu!s#r#"c*c+F+Nx/Gy/O xª!yxڲ!BK+V+^"c##yxy~# y!*c+V+^N#Fyx*c+V+^"G"+V+^+F+N*G"x "yx"!F#z x/Gy/O *G"DMy;"~# y1"s#r#"c*c+~N_"+V+^"G#g"!"G#+F+Nzt"{xچ"ʆ"چ"!G#z x/Gy/O "I#+V+^"K#z/W{/_"M#"cy"{"~2F#*G#+|/g}/o# DM:F#"# y"*cw#w#"c*K#"O#*M#*O#+"O#|$# y#"#""*I#|/g}/o#T]*cs#r#"c *c+V+^z/W{/_T]N#F#~# xk#s#r#"c*c+T]F+N+xʙ#~+ Ì#+DM"cz±#{xڿ#}|{z*c+"cV+^+F+N`iN#Fx#yx#~w#6#6!O#z .$*c+F+N+V+^"c^#V z${x($w!P#z *c+V+^zK$z/W{/_~"c"c*cDM+V+^z/W{/_~#zg$`i"c*c+V+^z/W{/_"c*c+F+Nx¥$yx$z/W{/_`iDMx/Gy/O "cx/Gy/Obk T] p#z$"c*c+F+N"cx/Gy/O +V+^`i"=%"?%T]x*%w# x %*=%DM*?% s#r>_%>_%>_%>_%>_%>_%2v&*c+V+^"y&z/W{/_T]+F+N`i"w&x/Gy/O "c2{&*w&DM*y&x®%yx%ھ%MD>2{&%>2{&x%I&D&# x%:{&N&&*w&*y&DMx/Gy/Obk T]~ D&I&#z&N&*w&*y&DM|/g}/o# DM I&D& x1&N&>P&>P&>G:v&g&*c6#6#"c*c6#6#"c*c+F+Nx/Gy/O #6#"c*c+6#6#"c*c+V+^z/W{/_~)I)T)_)!@#z :w2w:w2w:w@2w:w2wN *c+V+^"c"s*c+V+^"c*gK*c+V+^"c*gK:w2w:w2w:x@2x:x2x:x2x:x2x*c+V+^"{+V+^"c"y*c+V+^z/W{/_F++~"c2)x*c+V+^z/W{/_~+V+^+F+N"c`iGzp#þ)*c+V+^".*+V+^"0*+F+N`i"4*+V+^"6*z/W{/_"8*"c`i^#V"2*@*͎*ͺ****2**6**4*s#r*.*||*|**2*#|Z*}xڂ*+*6**0*++|u*}xڈ*!T#z !U#z !V#z *4**2*#"<**6*":**.**2*z/W{/_#">**>*DMx*:**<*~+ x**4**.*#":**8*"<**6*">**>*DMx*:**<*~# x**c+V+^"X++F+N`i"Z++V+^"\+"ch++*`+*b+MDxK+*^+w# yA+*f+*\+s#rx+ʮ+*X+ +^#V"d+zŠ+{xڴ+:Y++*X+*d+z/W{/_"f+!Q#z !R#z !S#z *\+#*Z+"^+*X+"`+*Z+DM*X+*d+x/Gy/O z/W{/_#"b+*c6#6#"c",!,>6#=,*,|d,+",*c+V+^"cz^,*cz/W{/_"c~_-a,g,#,,*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_3-",!,>6#=«,*,|,+",*c+V+^"cz,-,%-ò,*c,w# ,"c{怲{xO!, {G7-w*c+F+N+V+^"cx<-yx`i"a-"_--*a-DM*_-3-*c+V+^z/W{/_"c~_×-*cV+^"c##ͯ.¬-*c6#6#"c*c6#6#"c*c+T] w+-"c*c+T] w+-"c*c+T] /w+."c2f.".<2f.*c T] "cP. 1.:f.P.*c6#6#"c:f.:.*c6#6#"c*c T] "c. v.*c6#6#"c*c6#6#"c*c T] "ct.x».yx.{xO {G7.ɯ*c!~# ."c*c"c*c+F+N##q#p#"c*c++"c*c+V+^s#r*c+V+^s#r*c+~/W+~/_s#r*c+F+N"c+V+^ s#r*c+F+N"c+V+^x/Gy/Obk T]s#r2)0*c+F+N"c+V+^xү/x/Gy/O>2)0z/z/W{/_:)02)0x/y/{PY!/)/)/)/)/)0) 0)0:)0!0|/g}/o#s#r*c+F+N+V+^`i0s#r#"c*c+F+N+V+^`i0s#r#"c>Á0>Á0>Á0>Á0>Á0>Á020*c+V+^"c+F+Nx0z0x¦0yx>ʵ0>ڵ0>G:006#66#6>õ0z0x0yx>ʵ0>ڵ0>õ0>õ0|A1z2V12W1z1z/W{/_|#1|/g}/o#X1:W141z/W{/_:V1|/g}/o#!1# zR11!"1zn1{xډ1|/g}/o#T]͢1ѷ|g}o:1=21e1*1:11G>ó1²1O:12111O:121}o|g1x21*c+~202*92}o4*;2#";2!=22!"92!=2~#"92*92|*;2!=2ͽ2!2! s#r#6*.2:)2@ʽ4*1!4R4*.2SV!43!"u"7"7*c+~2)2+V+^"c"*2;:)24H5E5*,2pC:15!9#z :)2`,5:1@&5!>#z v5=5:1@:5!=#z ͥ6*,2~C> 21<7r5:wb5:w@M5M5 $*1"5<7*5*1DM s`i"1Y652S6ʮ5`i"Q65*1"Q6*1*1z/W{/_"1*Q6)|2X6*1"V6"T6*V6T] "V62#66!I#z 6!J#z !K#z :X6=2X65:S6*T6*1 ~# H6*1*1|/g}/o#T]*1z{6{xܟ5*c+V+^"cpC*1*1"1Y6~C!" 7͜4:)2@6* 7*1z6{x66!:#z <76{ 4* 7#" 7î6:)2@ 7* 7*1z/W{/_|7{4":7:1 "7> 297&7297:97 4*:7+":7|&7*7|M7+"7 â7*7|d7+"7*7^#"7â7**2|ʤ7+"*2*522N:*C:6.#:J:@җ960#<"C:2J::N:=2N:z9"C::I:<2I:*K: N0*C:w#"C::N:=2N:š9:I:<2I:>2M::M:*K: N9:I:G:M:=2M:9*C:6.#:J:@960#<9"C::I:*K: N0*C:w#"C::M:G:I:<2I::*32++~"32f:!t:!p:truefalse*32+F+N++~"32ړ:!t:Ù:!p:z/W{/_`iDMxҳ:*32"32!:";;";;";;";;";;";!:000002!;DM|;:!;<2!; ;`i:!;0*;w#";ɯ2};|D;|/g}/o#>2};:!w;:};Y;6- #0f;[;w# g;Y!w;000000*32+V+^z/W{/_"32*32+F+N+V+^z/W{/_`iDMx½;z/W{/_"32:)2G*c+;V+^+",2x;".2+"52**2<#"czF< << O~x/Gy/O 1<1<<#N#Fx/Gy/O .<    !"u!=2"?2=2?2?2?:12212*c+~2)2+V+^"c"*25A:)2ʠ<=<*,2pC:1¶#z D<:1@ʖ=C=:)2u=2=Ç=:=‡=:w 2wÏ=:w2w!"u!"u = %Input error $'Z>???Z>>'2?:?n>2?2?þ>:?:? > ʆ>:121 •>:121 ʾ>,ʾ>*?w#"?>2?:?<2?һ>>:??**2+"*2*52iAN"32! ? >:?»>2?2?!=2"?**2|?>ɯ:?H77@:?&?>2?:?3?>2?ɯ2?>2z?O!=2 +~HS?{?V?*@!=2~-g?z/W{/_BK*32+V+^q#p:y?:z?ڌ?>2y?!ɯ2y?!=2~+ʞ?-Ÿ?#?~#?²? ä?!? ~?W#~?W#~?_#~?_000000000000:0@:%@A@G%@a@g%@H'@h'@<2y?ɯɯ<:z?;@>2y?!ɯ2y?:z?G!=2~+S@-U@#z@~#@q@ Z@!u@ ́@!000000000000"@'ͭ@ͭ@dͭ@ ͭ@ͭ@*@~O#+*@"@0@:@ɯ<2y?*32+V+^+F+No&z@{x A A|/g}/o#T]"3AT]A!"3A!=2z"A~#A`i*3Az6 #)A:)2G*c+YAV+^+",2xYA".2+"52**2iA#"czA zApA O~x/Gy/O iA  !"uA!"1:)2`NB:)2@A A`BA|BAͫB*,2~C*c+~2)2`A+V+^"JB+V+^"LBz/W{/_+V+^+V+^"c",2!14w# &B>21"1*LBB:)2`ACC*1͹"1!"122!K#z 2žB!M# :12121>2ME3D2ME22!K#z 22#~+:B~22##!2 6 # B2~#.CB~#.CB2~#C:)2O(Cx@Gy@2CxGy'E# D:LE=2LE¿D*JE*HE|/g}/o#T]"1:121E*HEz/W{/_"1:121E*1*1|^E}xҙEYFNE*1*1DF"1*1z†E{xʏEx:121x:121> **2|:1NE̓FE«E!?# **2|E:121:1NE E EB>EEF> :)26F:1NE F -F F,F*1+"1:121:1G21:1NE UF AFNE*1*1|/g}/o#T]*1zzF{x3D2F:12F:12@½F:F*Fw#"F*F+"F|ʯF**2|ʽFFíF:12@212>:12?212F*52**2"*2iA~+"EGG"GG +G 4G!8#z *EGV+^"F!"F G!"F G!"F G*EGV+^+"EG"F G*c+V+^z^G{^GrGpC:1rG6#66#6*c+V+^zšG{šG:w ʮGåGpC:1ʮG6#66#6͜4R4G:1 xG̓FGB>ʺG!?# *c++N +V+^"cq#+ ~6+w2HH2FH2GH2PH2QH2RH<2OH*32+V+^"IH"KH!=2"MHH}H:FH IPI*KH.NG:OHmH>2OH*IHxw#"IHɯ2OHx*IHwH®H0}H.ʰHEʸHeʸH2H@:HSH!PH4HʈH>2FHîH>2GHîH:HHH=2HH*MHF#"MHxɯ<*MH~+H-I*IH6#"IH>6#=HHHH*IH6H:PH%IHEI0(I!QH4IHEGIeGI2OI@:OISHH(I>2GHEI:GH[I}I:PHqIG:RH@*KHw:RH!QH@iIH2IH2I@H2I@!Í@:I-ʫI}2RH}/<2RH00000 K:IJ:I I͚J"I"I*I#"I*I#"I"I:I2IL*I:I!!͹"I"?JIAJXM*?JDJ!D#—MINT"iJkJ>kJfJ*iJwKJɯ<ʂJ*J~#"JZJ>!U"J͌:IʨJ!N#z *IJ"J"J ͹"J"J*IDM*J*J3K*JDM*Jf*J*J! 6:3 K!Q#×M+K!C#×M**`i"K"Kbk{_z/W{/_"K2KʓK*K*KyK!C#×M*K"K:K=2KfK*K*KDM*KyKw# y¶KK:I@2ILK:I2ILBK)))) I~#KBK)))) Iw#L!"K*I͌*I͋J2ILK*I#"I"I*I+"I}fL:I2IL"M!" M"M*MK:IʻL:I²L:I ʲL* M*Iz¬L{xL*MxL* M|L}L* M͌*M*MK:I2IL*#"ɯ<" M*I" M*M"My2RM!$͹"SM"UM:RMXM*UMMMGxNM*SM2M"M:WMw#w#fMw#w#w#:Mw#w#ƒM*M# ͑'!IM~#  M Mz %Extern 12345678$M_OG>Ow# M6#M ~Ow+yGMɷ,NG=_Nx$Nyyɯ>2kN#"lN:kN*lN NWN:kN<2kN7N*lN+6@*lN:kN=M*lN+~wxw# rN+~'w +N#ڜNŸN ŒN>>~GڵNʳN>ɯ>N~N͢NNN#͊N~N͢NNN>>#͊NNN2O"O͝P|O*O͝P|O:O>> 'w+ &Oɷ "lOG>GxoOWxoO*lOw+"lO CO|O|O N:nOڅO> ͢NOʭO2nOO~#1OO~2nOG#1OO#O"~P"P~GOylP/P_P~6P*~P~2P~w*P~w͈O#P*~P~z2nO1O~w*~P~G:Pw*~P.N#nN*~P*P͈OUP*~P~w#nN/P*~P~w/P~O#nN:P/<O~#uP ~Ow+yG‰P#>~#O O =¥P"Q"Q#"QͳQ}Q0QQP*Q5QOQ*Qw#"QPQ*QQ*Q.N!!Qw#6Q*Qw#DQ*Q!Qw#VQ!QnN/Q! Q'+ nQ=*QF*QNPYxG{Aw:(Q*Q#!)Q±Q#¢Q<ɯ*Q#~!B# *Q~w>#6#=Qɯ2Q͓QQeQ:Q<2QQ!!Q̓P:Q"R!RO*R42nO>#1O~w"R"Rz5R6z/W{/_7R6E͖R͖R*R#w"R͖R͖R*R#w"R͖R*R#w>#6#=„R*R.N2RDM|ڬR:R<2RÚR`i:R"MS_S7S!"OS*MS~A3S@G>#z2nO1O>*MS# NQS> N QS> NdQS> NQS> N'QS+~*OS|/g}/o#!!A# *MS~IS!!*OS=VS"OS}S͸NzS*MSS͸NzSɯ<2vE2vp"S~ڜS!SßS!SS~# ¤S*S!SO*SͳR@PP~w~w*c S*c S*c "cT] O*c "cT] ~w.NO*c "cT] SV*c "cT] P*c+V+^ "cR*c+T] "c+w+ |TV+^R*c ͳRs#r#"c*c ͍Ss#r#"c*c+V+^{2T+V+^"T"cU:TZU+0.12345678901234E+99"UU~U>+2TU>-2T~͏U>2YU!T"WU*UU# N0*WUw#"WU:YU<2YU'U!T"T>2T>2T:T*c6 #=`U:TG*Tw#pU:To&:TO s#r#"cɷU@ڣU@G>+2TíUG>@G>-2Th&:###~2T#~2U>+2T>02T2U>U>U>U>U>U>U2,V*c T] "c͸NV>G:,VV*c6#6#"c*c6#6#"c*c!~# 7V"c*c"cV"V"V#rY*V#rYzgxںV{*V*VVy*V*V#'W W~+WW zW VX2gWjW~Gx# /W:gW=wWW`iX! !wW=RW=!wW_PY +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? !VX# XGY! ~ YT]qYXY*VF#~## Y*VNyWxGyO:V>5Y>@]YWYw*V6@#w# PY!U$z !V$z ~W#ʊYڊYOzʖYږYOxYyYxY"ZzʷY##"Yi&^#V+DM`if*Yq#p#s#r## Y"Z6#6͌ ZACALL error $i&))Z^#V+ KZ͛Y͛YExec ver 3.0 $!0 ~# oZ:0O!1>$ʋZ# Z# ~ nʫZaʿZlZpZ# ŽZ͛YåZ͛YåZ:x2xåZ:x@2xåZ>I2e>N2f>T2g\[ [< INT file not found$[\F[ N[K[_[ɯ< INT file empty$:[3ʏ[ r[ INT module not version 3 $*]*["g*["k*["o*["q*["i*"m*]*o"_"a"c*]*qt\t\*mzl\{xt\ \< insufficient storage$!\½\½\\  PASCAL.LIB damaged or not found $"&]6><2(]!U")]+]#]*&]w> ]>*)]~ZE]#")]G:(]+]xɯ̓<͵<͓=c *]DM*o(h*_####q#pb*>2*]"&*&*&"&Q<Q<"b"d`i"f*d^#V#"d{Lza*f^#V+*bs#r6*_w#w#w#w#s#rx2"  * :G&  5!Tyʱw# y§ͷ* @ z{x* :G&"*gͰ7ʱ!.# T! 5yw# y*x2r"s!I"u*u"wͳ"uo*s{"yY*s*uDM*s"y_*u:rG*y*ukɯ<##N#Fx‰yxڰx¡yxڬ`i>`i>^#V><""`i" "*|/g}/o#T]"*ͳ*s#r#*s#r**ws#rͳ*ws#r*c *eDMz/W{/_`iDMxQyxg`i"e* kɯ G*5+V+^xɯ<4#+!,# +~>>4q#p#s#r#w"L*O:Q_s#r#s#r#p*L*Rs#r#64"͜" <26#6#N6#F6#~6ʖ*I*"Is#r#q#p:4*l:ʲ:M\*M^#V ^#V+|^--  :!T$! >2}xx*M >2#=)!-# +"R> 2Q@!{:Q_!))͜>p#p#=c"|!ʁx͜*I"Is#r#s#r6#w#w#w#w*M:_>w#w#w!IN#F#N#F |½}½*e*cDMx/Gy/O *I>*}#"}g 9 {="C##^#V"E* :G_!*M^#V*C̈́ U C D E H L M A B D*M"A!"!"*#"*g27: 5:5 ª*6#6#"}*5:5̜*s#r#"}*6#6*M ^#V##{ z  4~3 w * !" *M"  * ^#V##" {_ zk * ̈́ " z * w#w#w#w#" G >4^#V#x˜ yx ###=‹ y³ x³ q#p#* DMq#p###~ BK++++" !> ^#V#x yx BK++"( ##2G##= x% :G_> 2G*( ɯ<" N#F#`i" ^#V#~2 bk +*ADM͠ " ~+ zT `i"A`i" ~w ʉ * * * DM : @ z/W{/_`iDM`i" * ^#V+" q#p# * s#ro&))* * z/W{/_##N#F r+s"^ "` `i"\ |$ }xf *\ "b *^ |/g}/o#T]"d *\ DM*b (͘ !>N#F#xy yxʋ <@l !+# _*g27*5*^ " *` +" !] *_DM*a!x yx bk##^#V!ý ^#V* DMz {x* DMz {x*d DM r+s*M* DM^#V##z< {xN < . !/# +++Gx!"I*A#"e*m"M>`w#q *M"e*Ms#r#6͕ !"I"Obk6#6#s#r#6#>q#p#p#p#p#=² >dp#= >2 F > $|#}3 .   %Error: Insufficient main storage$:w J    N %Warning: $|Ar#s#yAr#sPASCAL LIB"T"Vd2 !{"\͜"Z͊*T͠*\N*X*V! N#F#zv{xڅN#F#x²yx######=¥^~# *V|*`{"X͜"V*\͜"Z*^/"X"Z*`z/W{/_`iDM|#}x+`i"\*`z/W{/_/"^"`*V"bd͞*Z:X2 n ʂ*Z*Z*b:\Ow# ’"b:^=2^*b]T "bn ʞ:`*Zn :`O*Z*bw#   Msg err $  PASCAL.LIB error $}_}|og%Error: ͊ͻ*cs#r#"cbBK*c+V+^ s#rb*c+V+^^#V͜s#rb*c+V+^N#Fq#pb2Z!"[2]:Z"^-*cC+F+N+F+Nx/Gy/O N"c^#V#z/W{/_`iDMxN^#V#DMT^#V#"^h*["[*^:]=2]*c+F+N*[ s#rb!h$ !h$ >2ZÝxqyt{PY!~)҆)Ҏ)Җ)Ҟ)Ҧ)Ү)Ҷ*]^#V#"]*a*cs#r#"cb*]^#V#"]*_*cs#r#"cb*]^#"]*a*cs#r#"cb*]^#"]*_*cs#r#"cb*]N#"]*c+V+^ s#rb*c@ *ezbW\{b!3# *]^#"]!v^#VFZoV`V 'VVVDYVVi!|!!!tVVVVVVVVVVVVVV.VVVVpVVVh &VVVVVVVVVg} v! VVVVV\%>VQVVVVVVVVVVC!\!VVVVVVVVVVVVVVVV!!!!VVVVVVVVVV""""""VVVVVVVVVVVVVVVVVVVVVVVVVVY^chmrVV#:Q" ^ @ VVVV4VVVVfVVVVVVVVVVVVVVVVVVV*V3%V?/-1VVVVVVVVVVVVVVVVV9VV*]N#"]*]^#V#"]*]N#^#V#"]*]N#^#V#~#F#"]`o*]^#V#N#F#"]`iyBK*a^#V= ^*]"*cDM*a*_!"]b[xzxyx>>>>z/x#yx>>>>ʜʆ(X R &.!E#! !x!4# ͊*]"]"ͻ*a"*c"as#r#*s#r#s#rb*a+~/G+~/O "c##^#V#"a^#V"]b"]b*c++~"cb"]b*c++~"cb"]b*c"c*ez {xA*gͰ7*gͰ7A͊"*iMD*g"5_*c+V+^"c*g͇7Ó*c+F+N+V+^^#Vr+sxxځvyځ*]##"]b*c++++"c"]bzvÁ**cs#r#"cb*c+V+^N#Fq#pb*aN#F*cq#p#"cb*cs#r#"cb*cs#r#"cb*cs#r#"cb*cs#r#"cbBK*c+V+^^*]~#LGO*cw# 5p#6#"c"]A"]*c6#6#"cbw# y_q#p#"cAv*cq#"cbv! *c+F+N"cq#pbv! *cw#w#"cb*c+V+^w#"cb*c-+~ "cb*c&w# 6"cb*c+F+N+V+^"cq#pb*c+F+N"c*aq#pbBK*c+V+^z/W{/_+V+^"c"Ú2z§{x>2z/W{/_`iDMy2x2BK*w# y:* p#zb*c"c^#V#~# b*c+~/w+~/wb*c+F+N"c+V+~w#zwb*c+F+N"c+V+~w#zwb*c+F+N"c+V+~w#zwb*cDM+V+^z/W{/_~#z`i"cA*c+V+^z/W{/_"cb*c+F+Nx½yxz/W{/_`iDMx/Gy/O "cbx/Gy/Obk T] p#z"cb*c+F+N"cx/Gy/O +V+^`i"U"WT]xBw# x8*UDM*W s#rb>w>w>w>w>w>w2*c+V+^"z/W{/_T]+F+N`i"x/Gy/O "c2*DM*xyxMD>2>2xa\# x:f1**DMx/Gy/Obk T]~ \a#zf**DM|/g}/o# DM a\ xIf>h>h>G:*c6#6#"cb*c6#6#"cb*c+F+Nx/Gy/O #6#"cb*c+6#6#"cb*c+V+^z/W{/_~6#=ƒ*|+"*c+V+^"cz*cz/W{/_"c~_jÊB*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_Ú"X!Z>6#=*X|B+"X*c+V+^"cz<j?͌*cZw# J"cb{怲{xO!Z {G7„w*c+F+N+V+^"cx£yx`i""j*DM*Ú*c+V+^z/W{/_"c~_*cV+^"c##! *c6#6#"cb*c6#6#"cb*c+T] w+. "cb*c+T] w+L "cb*c+T] /w+j "cb2 É <2 *c T] "c· ˜ : · *c6#6#"cb: ¡ *c6#6#"cb*c T] "c *c6#6#"cb*c6#6#"cb*c T] "c x"!yxA!{xO {G7:!ɯ*c!~# M!"cb*c"cb*c+F+N##q#p#"cb*c++"cb*c+V+^s#rb*c+V+^s#rb*c+~/W+~/_s#rb*c+F+N"c+V+^ s#rb*c+F+N"c+V+^x/Gy/Obk T]s#rb2"*c+F+N"c+V+^x"x/Gy/O>2"z*"z/W{/_:"2"x3"y6"{PY!B")J")R")Z")b")j")r")z":"ʈ"|/g}/o#s#rb>ï">ï">ï">ï">ï">ï"2'#*c+V+^"c+F+Nx#z"x"yx>">">G:'#"6#6b6#6b>"z"#x#yx>">">">" "$$"$*$*$2u2v"4$$"6$*4$*6$2u2v}2V#2W#)l&K$&"X#!Z# $2M#:M#q$*X#!Z# $2M#*V#T]Z# w#"V#}*X#T]#"X#!Z##!"V#>2M#*V#}ڽ$*X##"X#!Z# $!"V#!Z#~#"V#*V#|*X#!Z##{2 %z%bk)|2!%l&)4# ^#V| %:!%"%s#r͜: %! w!6# !(#0#OV8!5# !"u"'"'*c+~2F#+V+^"c"G#͎):F#d%͸%õ%*I#*k0:3#}%!9# :F#`™%:3#@ʓ%!># %ê%:3#@§%!=# ͟&*I#*k1b> 23#L'%:w%:w@ʽ%ý% $*<#͜";&L':&*;&*@#DM s`i"@#*>#|&}x%*4#͜*>#DM*;&=&!"@#%"&"&! )|2&*&T] "&*&ʇ&v&!I# &!J# !K# :&=2&M&!"'*K#:F#@ʻ&*D#DMh8$:F#@&*'*D#z&{x&&!:# L'&{Z$*'#"'þ&:F#@'*'*D#z/W{/_|'$"J':3# 2'> 2I'6'2I':I'Z$*J'+"J'|6'*'|]'+"' ò'*'|t'+"'*'^#"'ò'*G#|ʴ'+"G#*R#)N"P#!' :3# ʞ' '"'"'`i"'L':F#':F#2F#!'"'!"'L')|)|/g}/o#>2>)͆(!8):>))6- #0'))w# ()Y!8)000000*P#+V+^z/W{/_"P#*P#+F+N+V+^z/W{/_`iDMx~)z/W{/_"P#:F#G*c+³)V+^+"I#x³)V+^+"K#"R#*G#)#"cz* )) O~x/Gy/O )))#N#Fx/Gy/O )    !"u!Z#",2_+2,2,2,:N#2N#*c+~2F#+V+^"c"G#.:F#b*Ͷ*ó**I#*k0:3#{*!9# :F#`—*:3#@ʑ*!># 1è*:3#@¥*!=# 4*I#*k1b*G#| +:]+* ^+ :_+<2]+!`+"[+O +6,:]+*:]+=2]+*[+~#"[++;+*:F#+2]+,+:]+,+:w 2w4+:w2w!"u!"u J+ %Input error $'+ͽ,ʥ,ʥ,+>'2,:,,2,2,c,:,:,E, +,:3#23# :,:3#23# c,,c,*,w#",>2,:,<2,`,>:,ʥ,*G#+"G#*R#/N"P#!, ,:,`,2,2,!Z#",*G#|¥,>ɯ,y.:,,>2,:,,>2,ɯ2,>2-O!Z# +~H, -,-!Z#~- -z/W{/_BK*P#+V+^q#p:-:-1->2-!ɯ2-!Z#~+C--D-#-~#͜-W- I-!- ~͔-W#~͔-W#~͔-_#~͔-_000000000000:0ں-:-Aں-G-aں-g-H-h-<2-ɯɯ<:-->2-!ɯ2-:-G!Z#~+---#.~#g.. -!. &.!000000000000"P.'R.R.dR. R.R.*P.~O#h*P."P.0s.:s.ɯ<2-*P#+V+^+F+No&z.{xڱ.ʱ.|/g}/o#T]".T]÷.!".!Z#z.~#ú.`i*.z6 #.:F#G*c+.V+^+"I#x.V+^+"K#"R#*G#/#"cz5/ // O~x/Gy/O /  !"u͊/!"B#:F#`/:F#@s/ y//|/0|/:0*I#*k1b*c+~2F#`ʨ/+V+^ {_"/+V+^"/z/W{/_+V+^"c"I#*k0*/r0*/">#0*>#{"<#!"@#!(#0#V8"4#͜!K# !(#0#V8"4#60!M# 2!!{"4#͜"p0(#0#͜8*p0*p0!K# 23#28#~+:‹0~28##!(# 6 # ‘0(#~#.ʹ0ž0~#.ʹ0í00#~#¾0:3#G:F#O0x@Gy@0xGy0x Gx23#BK)) )) (#~#1BK)) )) (#w#$1!"u*c+V+^"I#"c*k0:3#H̋1!4#1## ]1*<#}N!(#6# w1*I#*k1b*>#*@#|/g}/o#T]"1*<#͜*@#*1z16#z»1*4#͜*<#͜*@#DMx=&^#Vz͜N*<#͜"2:3# 2E3!3*<#͜"2"2*4#͜"2*># )|22*2"2T] "2*22:3# n2*2>ʜ2# e2:2=2242!"@#*2*2|/g}/o#T]"B#x2*2z/W{/_"B#x2*B#*@#|2}x3*>#z2{x22ü2*2F"@#*B#z3{x 3x:3#23#x:3#23#> *G#|:3#ͼ23>3'3!?#! *G#|u3:3#23#:3#ͼ2 y3 y3+>3U3|3> :F#IJ3:3#ͼ2 ʄ3 ʩ3 ʄ3,ʄ3*@#+"@#:3#23#:3#G23#:3#ͼ2 3 ý3ͼ22*4:N#4:N#@4:*4*&4w#"&4*(4+"(4|4*G#|4+43:N#@2N#>:N#?2N#+4*R#*G#"G#/~+"4k4t4k4 }4 ʆ4!8# *4V+^"&4!"(4_4!"(4_4!"(4_4*4V+^+"4"(4_4*c+V+^z°4{°44*k0:3#46#6b6#6b*K#:F#@4*D#DMh8$͠$G:3# x434+4!?#! 27:5k5:5 A55"5"5*5#"5* 5#" 5"5:525L7*5:5̜!!{"5͜"5 55͜8*5͘5!D#8INT"5Ϳ5>Ϳ5ʺ5*5wʟ5ɯ<5*5~#"5Z5>!U"5͜N:55!N# *5͜P6"L6"J6 {"F6͜"H6*5͜DM*H6*J6w6*H6DM*L6(*L6*F6! 6o6!C#8**`i"7"7bk{_z/W{/_" 72 76*7*7ʽ6!C#8*7"7: 7=2 7ª6*7* 7DM*7y7w# y627:5@25L727:525L7BK))))  5~#C7BK))))  5w#]7!"27*5N*5525L727* 5#" 5"5*5+"5}ª7:525L7"L8!"N8"T8*L827: 57:57:5 7*N8*5z7{x:8*T8ü7*N8|8}78*P8N*L8*R827:525L7*#"ɯ<"N8*5"P8*T8"R8y28!${"8͜"8:8͜8*8ʑ8GxÒ8*828"8:8w#w#ª8w#w#w#:8w#w#8*8# ! 59~# 8 8 %Extern 12345678$9"9"9#(<*9#(;>@< > n >&>  PASCAL.LIB damaged or not found $">6><2>!U">͉>>*>w>i>>*>~Zʣ>#">G:>ʉ>xɯ< >@BAͯAA JRT Pascal ver 3.0 Copyright 1983 JRT Systems $? ?a{ > :=??2=?:N:N͆?2N*;?~#";?6???!?2Ngt:>??>@2?!gT"?";?*?T] "?!N}?:?=2?T?*?6 ʻ? ? ¸?:E³?>@2?*N#"Nø?>2E> !?4:?<2?> >2@!ht"@";?*@T] "@!|N@:@=2@?*@6>2gt2hx!1N~ +@#!@#~+:;@~2N##~w@H@#;@Nk@:N:Nq@@ÍM@ÍM@0ڎ@:ړ@Aڎ@[ړ@G 2#A!ix"$A*$AT] "$A:NA:#A=2#A@&AÍMError in writing TEMP1 file$> BAAZA[ZAdBBA'eA}LBA%xA>x@>dBBAˆA:>?DBA0ғAIBA:ҞA@DBAAҩAJBAAKBANA:N*@ixz/W{/_}|@[N[Nq@!i"bB*Nz/W{/_}|2aB*bBT] "bB[N?B:aB=2aBB[NEBÍMError in writing TEMP3 file$2B!B:NAڃB[ڗBaڃB{ڗB_ʗB$ʗB0ڤB:ҤB>w#lBz2B!B#LxBx@y@xyCy@@YNREALP)Ej@YNERRMSG2EAYN2DECF BYNSKIP9SE>YN1HEX"F:>?:>?—C:?@> C(C'—C>2M}L2M:L_!LͽC2N !|N~@# RC> _C)—C>|NʗC*;?"C*N"C>2>?!"N?CÍMError in %INCLUDE directive$~@w#¿Cѯ2|N#~+:C~2|N##!}N 6 # C}N~#.DC~#.DDN~#D|N*C";?*C"N2>?> 2N2N>2E2E>i2E2E!E"E2E:N*Ew#"E>0~D:~D2E<2EDAڢDIҢDEʢDGʢD2E<2E>h2ED.D:N.·D>i2ED>2E>r2EDED>r2E>2E2ED+D-D:ED2E2E:EWD>2=?:E>@2E2E*EEz/W{/_}2E:Ei]EhfE:E!E{G2E>@@~#@ BE:EE :EFlE:E;F>?@}@|@:EE Format error in integer literal $Format error in real number $ xEyE{PY!F) F)F)F)"F)*F)2F):F:ELF>2E!ɯ2E!E~F~#ͬFgF YF!F ~ͤFW#~ͤFW#~ͤF_#~ͤF_000000000000:0F:FAFGFaFgFHFhF<2Eɯɯ<:EF>2E!ɯ2E:EG!E~!G~#iGG G!G (G!000000000000!"RG'TGTGdTG TGTG*RG~O#E*RG"RG0uG:uGɯ<2E"G2G2G2G2G2G2G<2G!G"G"GWHG:GĉHH*G͟I!GG:GG>2G*Gxw#"Gɯ2Gx*Gw>H+H0G.-HE5He5H2=HiG:=HG!G4>HH>2G+H>2G+H:GTH=2G*GF#"Gxɯ<*G~+xH-~H*G6#"G>6#=pH>HeH>H*G6jH:G¢H>HH0¥H!G4ÐH>HEHeH2HiG:HG>HʥH>2GH:GHH:GHG:G@*Gw:G!G@H>H20I>H24IiG>H25IiG!1I(G:0I-(I}2G}/<2G00000aI_OG>Ow# QI6#YI ~Ow+yGgIɷҝIG=_NxڕIyyɯ>2I#"I:I*I{II:I<2IڨI*I+6@*I:I=6I*I+~w,J+"J.@J-'J(\J),J*1J/6J&;J"ʶJ@@?>BJ>CJ>DJ>FJ>GJ>HJ>J:N.RJ)WJ>IJ>TJ>MJ:N*sJ.nJ>EJ>LJ*N"M>>ʕJ*|J:N)|J>*M"NJÍMComment does not end$>"¶J*N"M?ʕJ}J;J:K=J>/K<K@J>KJ>NJ>RJ:N=K>OJ>SJ:N>%K=*K>PJ>UJ>VJ:N=QJ>WJ[VK][K^J{ʿJ>LJ>MJ^#6$ KxK€KK  ** found ** $ -- not found -- $# ¨Ki&+)))GKNKTKN^#V+N#~+ͲKK 2 L`i#"!LzL*!L: LOͨKL^#V+K+F+NKx1L"{L*Nw#*N"yLs#r#O "N*{Ls#r6#6#Ow# hL"N*yLDM*N"M!L?'ʥLLw #yLÈL:N'·L?ÙLy2L:M>>@:L@:LO!L~@# L*M"NqMÍMLYS64|PIXIFPGXINPJXOFPJXOREPFXTOPP<XFORPGXCHRP^EXANDP_IXDIVPXEOFPJXABSPString literal tooStrStriString literal too large$  N*N>Z#M~# ¨MM :>?M !}NN~# MM N Line 0000$ in %INCLUDE file: filenametyp $ i PASTEMP1 $$$TEMP3 $$$12345678123PPPPPP QVQdQQQQ$RQRcR~RRRSsS}SSSSST3TMT[T DOPIFINPOFOR4TO PENDPFORPCHRPAND PDIVPEOFhABSPMOD%QMAPGET QNOT8QSET!QNIL#%QORD",QNEWi3QSQR^:QODDsAQRBArHQRRNOQPOS(PUT3]QVAR;XORlQCHARtQELSE|QCASEQEOLN QADDRQFILEQFREEqQCONSQCOPYCALLQGOTOkQHEX$zLIST+QREAL.QREAD&QOPENdQPREDeQSUCC*PAGE2RTHEN6 RTYPEZRTRUE:RWITHuTEXT-RBEGIN6RARRAY?RCONST[HRFALSECLOSE$ZRLABEL_INPUT-lRRESETguRROUNDlREAL$7RWRITE5RWHILE<RUNTILfRTRUNCTITLEREXTERN RDOWNTOtRBINARYRCONCATDELETE]RMAXINT~RLTRACEwRLRANGESINSERTLENGTH0SREADLN,#SRECORD1-SREPEATb7SPORTIN`ASOUTPUTyKSNOLIST|USPTRACEp_SNOCONSiSSTRINGaSYSTEMmUPCASEASBOOLEANSDISPOSEFORWARDSINTEGERINCLUDE)SPROGRAM/SREWRITEcPORTOUT9SWRITELNoWARNINGSFUNCTIONYTCOMPRESSTFILLCHARALLOCATE}'TNOLTRACE{NOPTRACE'@TPROCEDUREnNOWARNINGDEALLOCATEjINITIALIZEloop1 ; pop h! lxi b,ym1name ;hl=name ptr de=name length bc=ym1name ptr mvi d,8 ym2lp1 mov a,m! inx h cpi '.' jz ym2type stax b! inx b dcr e! rz ;done dcr d! jnz ym2lp1 ; ;scan until type field is found or input exhausted ym2lp3 mov a,m! inx h cpi '.'! jz ym2type dcr e! rz jmp ym2lp3 ; ;type field processing ;hl=name ptr e=name length ym2type mvi d,3 lxi b,ym1type ym2lp2 LASM3 COM.<#LASM3 DQC-R vLASM3.DOC] o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\O,X3vFԧѾ'#8O_o}e%NWD7YPH;|3bdx&U+vxexBCǖqJW^I}B|YV d$~T;tP(vj^`Yz ߓ4|ӳ|#MHcQ`w(& <03lx[GU5,;؆1F & #x>=Vhޱfb 8y6bF>yW{^cØ,; a =6 UGS7F4YyWlÚ1؆1i~P(TVSa샑 n`*y^`=u44,;)npxkȲaUq>xgaȬ`/@|Y#Ua$ i'#-'4il i^Yx^Ƙ6gil C㝧ءO-[`0޿CH 1Vi߳C=[bWhln eg)<[jOaԳ%yeW@g)$4sY<gäM韱JƎ1byoUzaԳ%Ɉ^-*B6PLXMjxlR sFWFj۱6:|ǻwj{kt[ti:Vi*ݭ?0~o}eЕ#F@_>}EJ{ 4@Ǐ}7#FD^9cyU(yF'l,TayFRU4҆%ũD21:wPz~1b$׿c cu5+ OMgAqWsbb6 jF`F3^m`gU I}BV:a'#ogLXq, lP3)V:KW(;؆1i~HѤ]ql8 xwѳ ΟLSϨ'ρsZ1Ο[`$Ռ<{G2yzgnzxfa ۤH),[g؆{yeW.c*l4p6!EFPclS@p=kL8`Y6ozmm3&}ԍ[@9mֈС gi4iUXoJb yǚՊQ=l @lÞF|!uNsppk l͋#K`o E`nPLSnb6jO0&)m؈-&;pj07b0LXO`WhXmXO1lGO bUO=[FaVWōg |Y#UaO;ݙlp |(4R8׳`zBmw(& A w\(6T=cS<6ުA26 擑 v(<{ 8 tqsO63©ֈnz/px7*x/Hy PbeDTbV*(4NA Wmz/px7*xr8OaQpYJ\(4/x a9# K VS6bt@b2:g#Ct~#ˆ1(~ qT3v}zsm*d/VEvֈ#F' +M+_ߌmIUРJqALd<4O I9э2P^m@8 X 'Q͓BRF(E@8 X #mRP I I@ חU@8 X^VF2P%QA$pZ>gfRc͌IA$"$*G˫Hʓ(j@$ uEP t# Je@yE 8<"$/n(iq rF#mP II@&hGH!F@(5hDRkE]Š8BݕW GIBgCERg(;][#(h :$QQj 8Bݕhh$$(]7dpy0эme.~@ypy0A Q.ImdA$2 AqLd_bSj_bSj!q(2KbS:ۥĦF((]Q@\`S:ۥĦэ2PG>>|#m1;СJ萁8CEжZ?`ͫ$~(;6_A_;TI㡜@}_;#m0݁UXWt}@dBm H$Qsa }on4Vh^%qn_Nwm$8h[u3Lwy1Y9݁dP هPF@۪t*ctt2 Aem;TITNw(/t_ж:U@iA%j,ж:u :hЗ $%5 Wͫ2]쟖 WnWqt#sOKtZF@۪@RuP/ݾCW}䃑 WUwIpY@yUE!w@;D3#(*t_u>Wpn*6CE!"ݾC no)W] @yI/Q$+tO[T_!`$Ѭ{p wO.+#(ͣYonIT_!ͻ Hʣ*\Ѭ/nIT_ 4+\F@ۨj5h*h g{ЂS}5j[E4෠yʻ м{/d<"UyYMApVcSj#mLLYbS:[8)=Hʣ4`<^`S:[8)qtv)-Ali$6H>ɇE~݇%F@۶+b"W1>|păж]^ŠY*I@lue$oACݍ߂$@&-Q@yY_$pD7Yۂgm v3}8[m%*/a2lH;н;З2l { gKH{?@(g5"-F2P;hkrF}Ġ0N tᯑAo(8h[h Z(h$mA߂(x1qt v_a\øJ:A0Bh<+h#(a  f<4 h$:\/nm3P4 8Hu>a82r  aH>W0Ld_!_!"aРyBmO;t Iaon4^0݁tz@y 8< 1@rᡜ@& +}Vz]aͯ;re< 4 h{]au@ aaXaۣh~ݡۗ-aX-@00 h~ݡ>@KLF@H;tt2%4H I'Lw p*;!e חrۣ]u.; W:d\eэF2PU~ 02BR*#(*0t@yT_^BkСpZ@u]\`ЗzYꃑ _0h~bP2萁zĦԠC=[bSj#( P2hzl)譞-)=HʯuͯCA ׳ҁrG7@uXAr*4@yĠ:Nm8RC*.F6uРy'F2Pm@8ߖR#h:[8м ~{t "RC_R#h:py'эF2P_VU9(5(t_ #(Y@8B4+F6uРy&F2P]@8BݕR#h: [8м ~{t6n}h]*GкT : py&эF2P~ @8ߖJ2P^!c$F2PJqQ*z@y!4h^1Ç.GХ3P^a aon4*-0э(pa_h$t8/n,h^?]B~6ڞ?Kz#R(.[8м~G7@i.-on(.pyt_h$t@oq]Fм~@R?]B@ylK:=Ԡy& i! t@8/n,5(@y[8м݇F#mLZ\q9>\>/n4ˤEh6 }(hG I9(5Db0Ab$q4GffNֈС gi4iUXoJb yǚՊQ1B7LASM3 11/01/84 Page 000 Pass 1 B7B7ASMPRNHEXSYM!w_#~ 9A:~o~#R => o> oL\ ?Dw#_!=!u=!=:"::":"!=:] D2!d/2/2/2!Z!Zͬ͵͏͔:ʪ!Zͼ͏͔ê!"22ͥm!/=z{*M¢ͥ!" !B–w# ‡pâһ6# ›B*#"~ `!F=G:xo*!B.w#"!M͵!"!B.~~# 2 !]=uE*!B2w#"!Mͼ!"!B2 _O: :yo:J!ʹG!G~|#¢!~|#¯2J!>x6 #=G!~ p> |> |:!~476! ~0 |> |!~|~# > |:MͬM*}M>=:u: *" *}u>;eͬʄ͵~:ͼ~:!!_:2:222͵͏͔!"!=<:!Ax[!D7+::~O#~z#+}|#1T]1##x G#####*|ʭ~_##N#~yͨ~#axҙ> {҂> { ڎ> ####~#foB> > Î> *}ʽ>í͵~Ɛ'@'Ɛ'@':!!*"!>w+t> > *|~ > ##~W#~_"#~#fo"> <*͍}͠}:›#:+######~#~#>  > > > *+++++}|Cross Referenced Symbol List Symbols !=No source file present No directory space Source file name error Source file read error Output file write error Cannot close files End of assembly G:x!~ڸ **O {z *"!^4!wWƐ'@';>:;!^Ww*{|}{4 !~#+ > ;> ;S k k :Jxk _<2J!ẅ́ 2E 2J> 2D ͑>2Jɯ2N2F !N~@ښ 6` ^4#:E w~$w:E 0 ͬ :E A:E A ͬ :E a{_2E G 2E :K !ɯ2K̈́ :E 6 ;# */ :D / < # < G >{ ͬ R >{ :E 'c 2E >{ y :đ!6 >2J>2K:E 2D Č :K !E :K® ͥ ~ ~ D ͥ ~ ͷ ~ :E O Q > H >2F 2E :D B > D> !N52F !"L!NN#~#A 0 7O!F Z ~*L!9 3 )* "L  :E ` '~ '~ >Vf >Of !B6w#w#v !"!NF#Š 2o G*##~w*##~<*}ͅ !N~ 6!o ^!B6^#fk"ͬ ͢ !N G#*### # *^#V !N^*"*{zY "*!o N!B6 N#Fr+sq#pNC >G=#w#wG #w#w#w#w!b =)Symbol table overflow G*##~w*##~͢ *_###͗ s#r#E w# w͗ ^#V   Ol_ ()*+,-/ABCDEHLMXYDBDIDSDWEIIFINJRORSPACIADCADDADIANAANDANIBITCCDCCICMACMCCMPCPIDAADADDCRDCXENDEQUEXXHLTIM0IM1IM2INDINIINPINRINXJMPJRCJRZLDALDDLDILXIMODMOVMVINEGNOPNOTNOWORAORGORIORXORYOUTPOPPSWRALRARRESRETRLCRLDRRCRRDRSTSALSARSBBSBISETSHLSHRSLRSTASTCSTXSTYSUBSUISYMXORXRAXRIADCXADCYADDXADDYANDXANDYBITXBITYCALLCCDRCCIRCMPXCMPYDADCDADXDADYDCRXDCRYDCXXDCXYDJNZDSBBEXAFINDRINIRINRXINRYINXXINXYJRNCJRNZLBCDLDAILDARLDAXLDDRLDEDLDIRLHLDLINKLIXDLIYDLSPDLXIXLXIYMOVXMOVYMVIXMVIYOTDROTIROUTDOUTIOUTPPCHLPCIXPCIYPUSHRALRRALXRALYRARRRARXRARYRESXRESYRETIRETNRLCRRLCXRLCYRRCRRRCXRRCYSALRSALXSALYSARRSARXSARYSBBXSBBYSBCDSDEDSETXSETYSHLDSIXDSIYDSLRRSLRXSLRYSPHLSPIXSPIYSSPDSTAISTARSTAXSUBXSUBYXCHGXORXXORYXREFXTHLXTIXXTIYENDIFMACROTITLE  PF FP$5 ( 2(@/?'  vFV^4@585(:P@D<  !(og 6'6/(PP6?272p3p (!!!.F/F!$J7 8 !55"+#+5$B!44"###505 %KW_ %[*&*'*%{&!'!)F*F06164A"#9-+,-+,./ME-+,-+,- +&,&-(+.,.!%C%S./"&"'"-8+>,>"#%sGO!!"#  NZZ NCC POPEP M xʶ_BH!ŽO#¨ ˜{ڲKzCz<:OJCR:N!Q6 e!P#  ɯ<:NO=_L! F! V#fjQu7! ^#Vo&)~#F͹xGyѯ<!v~چ͢6~44O!e s#r!u~ ڣ6͢^4!Qw![p!v~͢!55N!e N#fiͳͳo&)^#fkmv}z {͢>ɯo>g"O!Q6ů{_zW5>)D*OOxGH !Q?*DM!xGyOfg)WRwwww)=Æw|g}o=Òwæͳwͳ#÷zg{owzg{owzg{ow:K:O ;,!ɯ2u2v=2P!"A!u~,5_!Q~:vĢ: *e": œ:Km:N̢Ԣ!O^#=iVÎx*LÎ  O:P™̢>2Py:u_![~!us!Q~Ýy !u~=w_!Q~ ͔͢>2PÜyʜP R͊ >Uͼ :ʎ:!ʎ*w#w#:Ew#:Fw"*}|Y :P̢2Pw >Eɯ2*"p m :12H!C=!Z-2!"""" :K :O*n͐¹Ï¹\Ͳ ͬ * :~8͊ 8͊Ï*}Ą*" :K:O:¦X!o^#fkEH$*Dk͚ :K¼:N=ʼG!OʶF#æ *|xE͉,ʎn͚M*""n͚ED͉,n͚M: n: *"> 2 :K¹:O ¹Ì !O:NʕG> ڕOw#a s6 #i :E ʕ s- p# as!=͑++ERROR IN LINK OPERAND++ ͐ʹ*"͚P!6="n͚: n}n :K :O>BxÌ͊n: n""͚Mn͐ʹ͊ Ą>x ͐ͥ !"n :K¹:NG!O$ʌ~#Á n!!~wÌ!!~wÌ&ҹ_!^#fk!Xap(=CU[sy 9TN9L$ROny8O8Edy0>>N/GT$/THH/(dy$/À/ÀXXXa/0dTHH $/TH+HTHF$dTH^/0d*# |ʢn}¼>Odyny8Ody0$¼>͚͉n:Kx:O,; x *|n}n$8O/dy0:Kf:O,k>C͚:K¹:O ‡ ;¯͚ :K:O !Ï!>SÏ{ozgɯ2E<2F!~4ʻ M!6 !=****\P!)w#H use factor !=*"!F#~ 8=) input lines read :z!L~0'w+>'w*"*"ͬ ͐!":͊ Ąx *ͥ ͊ ~ͼ *M~>>>>G:x͘: *P:x=*#"ED0:%!^4!w--*!6z={=4>R>V>DÍ>PÍ>LÍ>N 8LISTT DQFILISTT2 DQF LISTTXRFDQC BLISTTXRFIQC&gR vLISTT.DIF\ o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[m# Kz QMj jlqj~X,}CҔ.4>muɯgw9gFXX}4i.X$a4\,CNM> P"1< q_,Wb&py *bvު%%>2z^BX,vt~Y` F&D,W-)z+d( h2z^BX,ڡJo7,S4lG2~VMC˘%8 i{qn(vj4^l;oUВYi(bSܰ^/4,o|mƩɷ{2f6jyW EpHGF =qکɇsC `C]BYc )]8Efq$6 Ecyq0N;5pn(@wX`G8fVВo|m6 '%%CoSxkF{D,i=4:v дxkX`פF ET%͈H`C]Byb h,d|x[ T#̆8ùxݑb]4{hK(2`B}ʷ{0\a)u`vjP ݑ8Ms矟(lX`ה8k! h,d7B:wX``/?A!cH)6#M2fjrPTytp^姲(}dT~y:Y`| [m"1KuV2\ӳPV-)HYtO-z~ 2)?Kd5J"X` O[jBVSX`F ?4 ]h|Pgut2fiA~0-~MY,m_2eQ\ )tG 54b<ļ/[طG8+coQ ni>BwX` ZR2Vjd4b}WƘoQ Ba64vm;R,-)z+d5 ZR2VxE+coQJ'yf)i cAKJ Y ^F('yf4>E,}HS4q%%CoFAKJ F('yf}>E,c4ء^,U#ط_Ո-%>^87;5Hߣ)mgwcBaS: Xְgut(ow8oA^ G9 G0 r߂99 GP߱H&Nq:ԄƝkzX5YF,W5X,?o7S1[H"we >jx-MG 'TYPE','UNTIL','VAR','WHILv@LISTT2.DIFT  !"#$%&'o()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS0C<۬|aq#~~ÅSea;*js2*Eè_:sRc# דSS\eT&pmJF W^o"Ľa>p5OIu-[*@Quulq?FⱿs{,S)-*4xTlݗgtOiul;xgX&Ó0"èY<.6$mzM*4c# Ǔe@=aD z-r(E5Y ^F&@Qu #״M^*PMq2ˆ<#溩߹)-PMuwp+Q(̅rKa;U/M2ԽRم@QjuH 2ˆn>5ˆftOQM3ˆ6-eNX #l ^F&@Qu #-5^ #Pz~(QMq2ˆ.Ģi0ˋ:gFxH@Q~رFIFucZ۠,ۑƖВ>"zP&k<۾U^c#|DO &k#bҥ/<%gb$˨($MK%~ #zG4/7[;મO_A3wU!Zx\Fek^}&N8>Ľa>p5OIu-[ WriteLn(Indent); Say('%@%!HeadingvrLISTTXRF.DOCF  !"#$%&'()*+,-./0123456789:;<=o>?@ABCDE_n._q}pŋGܽxWp|\rw6*Ad{=%||q#4Rtj@J#S$:Q8OzM1$r3iE%pK>>E4)ctL!ЩoJ)J)F 1)޼G0T4: *Ŕjɝk$1_cG`G♅*6itHd{D6J&USݻ3|LF-:fBgAD i%; qJsJ&=(T1b5Zq.YZD%$vGH#]_ '4)b*zYTƙD pA'Tq, Đ,NiG Ңg$vЃqQؓ#Yw%\ﯸkJ.ӿu%F7ei3SL#ʡG 9F%m.:v2*Ua,mJ) qJvLѩ"yD+O=*`CG.:mJiݕ\q1ēqEgAoݘqA'!Wh|dW*o)))))u Ͳu*o)))))u za|•WvLISTTXRF.INCL o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK/?Ojӯ_MM:0.q0WSS@1Bxh2"iɅyvH*} C RMΌҚ.qٱҚfG H=K5E5])ҽ0SAgjtb#:l])1jjc#05GigjjAx8ɶ`E.1'b7|"\Hxô%|"ݾx55ͧ8xi :tغT\Ht|vYK55sY(.$FDM0EzsY?[KV)R| yLte SэWS;)эWS;aHw.6;qH)ҙBBVSg`B14S{.K"Y8 ]lv4E nÅ\n3(͎H nÅ\n!e9ÅD7…HC5e 6^wC) >.$^MM%$įpvqYWS?m泣K5yC3Ez# t#RM! қ"=%L/+a^)K ¼8bhH粄)ҽ0%nדÿoݞRMO.FD)1j^Zُ7LA7B1"a)HTzb% |y(C3E=%L#¼HwC3E t#O.IC5E:/+a^)Y?∛ 3¼Hga^aK݈'+N="y#nO.FD)3c|Bb^bvrl}(M?O=6= NB\6;˺؈)a^0.s7o]aRb_WMM\05J[DM0EzsY|V~}]M_\2zҧգ0?|yx5E} jt~懓f{fG|¡վĻ-yKV~^wqHga^8@)|JOy/o_chHz)>AG ne S[0%r n޺)҇Ga~89pr|s7o])҇3>k[ ~/O_aHޗQNHx懓qhu7n{-~^)"}>0WS;PMΗMn)1TSSPM@7"\M1TSsź"# >0!̋jtэza͢( (ʉ&*%&!!9ͨ(A$(ʭ&!9ͨ(Z#('&!9ͨ(a$(&!9ͨ(z#(''!9ͨ(0$$4E0#@#P#y&&&@  r@ 57 l '      $ 5 E X i }  1     -6 c    .      4 M k !    ! - = W' ~ !! "( #% $" %'1 &X( ' (" )2 *( +# ,: -R .` /q 0 1) 2) 3* 4+) 5T 6r 7 87 9' : ;! <? =]* >( @) A3 B 5 C@4 Dt2 E3 F3 G - H9 IT" JvX K4 ' (#) )#A *#Y4 +#2 ,#S -#@ .#R /#qS 0#/ 1# 2#u! 3#& 4#x 5#4' 6#[% 7#0 8#) 9#" :#G ;#BF <# =## >## ?# @# 0 A#= o B# C#2!) D#[!( E#!. F#!Q G#"C H#E"0 I#u" J#"! K#"+ L#"$ M#"# N#"#/ O#Q#Q P##Q Q##V R#I$1 T$z$, U$$, V$$- W$$& X$%%' Y$L%& Z$r%' [$%) \$%* h$% i$ &M u&X& x&w&X y&&. z&&F {&C'N |&'[ }&'@ ~&,(? &k(G &(N &)O &O)K &)N &)6 &*K &i*1 &*, &*@ &+Q &W+/ &+W &+J &',. &U,c &,c &-O &j-; &-V &-I &D.D &.E &.P &/T &q/c &/S &'0R &y0C {U>:2S 3 IV/  cLhʷizm`rkz[/*g|a}x*ezq{x|/g}/o#T]*i|/g}/o# | !k ~w#~w6+6!"1?O>#~# !k>d2^#V#xyxBK:=2`i"*!*>z*"!"*|g}o"*c)/*e"!k"*^#V#""͜j/**gz‰{x_V/*j*i"+o*>u~# ***>!|{>*w#6 #6 #6$> 2{*|}>+2{:xG!x2x>:2Sx2x>#2S :x~$_#<!kw# R>:x2x:x2x Y "ei "gw "i*g*e|/g}/o#T]*i>z{eL z Maximum of 100 counters exceeded Enter new parameters $ LV !GNw# *:MO!B > 00000xxxxxactivan data areas Activan interrupt $ command : $ $ start line : $end line : $spacing : $ C clear the counters H display histogram I initialize line range M run program with monitoring R run program Z terminate program $ Line range count Activan 3.0 * = 0000 $0000-0000 00000:  !$*16;@EJMPSV]fm "'.2<@CFILPSY]`gknqtwz~*-JPVY{#&039 >:2  ʵ lp*gUndsletrMz  t"y t"{   !w# Œ:O! > 00000xxxxx:xGx2x>:2 x2x>#2  :x~$_# >-:x2x :x2x -B:x@2x :x2x   :x2x> > :†  > Program module not yet loaded, exproc table not available. $ Exec interrupt $ command : $ E external procedure table G set line range for trace L+ L- line trace on/off N current line and last proc P+ P- procedure trace on/off R resume program execution S system status display Z terminate program $ lower : $upper : $$),16;@EJMPSV^dlrw} (05@KVjry|Invalid virtual machine code generated, system error $PROGRAM or EXTERN expected $Compilation does not end with period $Program identifier expected $Unsigned integer expected $Semicolon expected $Identifier expected $'=' expected $Comma expected $'..' expected $Undeclared label $Colon expected $Error in constant $Syntax error in constant $Syntax error in constant $Constants in subrange are not compatible types $END expected $BEGIN expected $DO expected $Type identifier expected $In subrange, first constant exceeds second constant $Undeclared type identifier $'[' expected $']' expected $OF expected $More than 8 dimensions in array declaration $'(' expected $')' expected $'[' expected $']' expected $More than 10 files declared $'Simple type' expected $WITH statement syntax error $Record identifier expected $Undeclared variable identifier $THEN expected $Pointer type expected $Undeclared field identifier $Array declaration syntax error $Invalid expression type in array reference $Invalid array reference $Invalid expression type in parameter $Parameter syntax error $Incorrect number of parameters $Incompatible types in set constructor $Incompatible types in set subrange $Invalid type in set constructor $Invalid parameter in system procedure/function $Incompatible data types in expression $File identifier expected $Assignment symbol ':=' expected $Incompatible data types in assignment statement $Incompatible data types in CASE label $Data type error in FOR statement $TO or DOWNTO expected $DO expected $UNTIL expected $Boolean expression expected $Data type error in expression $Syntax error in input/output statement $RBA or RRN expression not integer type $Invalid file name in OPEN/RESET/REWRITE $Buffer size parameter not integer type $Invalid parameter in SYSTEM $Integer expression expected $'Factor' syntax error $First operand in set membership test is invalid type $External procedure/function expected $REAL expression expected $Pointer symbol '^' expected $Parameter list syntax error $String or character expression expected $Parameter error in OPEN/RESET/REWRITE $ABS parameter not real or integer type $First parameter in COPY function not string type $Second parameter in COPY function not integer type $Third parameter in COPY function not integer type $First parameter in POS function not string type $Second parameter in POS function not string type $Third parameter in POS function not integer type $Pointer variable or file variable expected $String variable expected $Dynamic array variable expected $Index types in ALLOCATE incompatible with index types in dynamic array's declaration $Incorrect number of index expressions in ALLOCATE $'Block' structure of program invalid $Array index too large $Array index too small $Pointer variable contains invalid virtual address $System error during dynamic storage compression $System error in dynamic storage pointer tables, possibly due to storage overlay $Dynamic storage tables full, more than 1632 blocks allocated $Insufficient dynamic storage $System error in dynamic storage pointer tables, possibly due to storage overlay $Invalid parameter in SYSFUN builtin function $Integer division by zero, if dividend is positive then quotient is set to +32767 else -32768, remainder is always set to zero $System error in assert monitor $Insufficient storage for data stack $Invalid virtual machine code encountered, possibly due to storage overlay or incorrectly defined external procedure $Error opening file for random access $Error accessing random access file $Invalid data format in input/output statement $Invalid data format in input statement $Attempt to access unopened file $Data items exceed record size in random file in RRN write statement $Error opening file due to 'file not found' or 'no directory space' $Error writing sequential file $Random access of sequential file $Sequential access of random file $Format error in input/output $Invalid parameter in SYSTEM builtin procedure $Out of range in TRUNC or ROUND function, if parameter is positive then result is set to +32767 else -32768 $Floating point division by zero, if dividend is positive then quotient is set to +0.99999999999999e+63 else -0.99999999999999e+63 $Error while loading external procedure $External procedure INT file not found $Invalid code passed to EXEC service routine $Error in COPY function, start_pos + length - 1 is greater than current_length $Error in POS function, start_pos is greater than current_length $Invalid data format in input/output statement $Error in extending file $No more space on selected disk $No more directory space on selected disk $Random access files not supported $File RESET error, file not found $External procedure libraries not implemented $Attempt to access character in dynamic string. Index exceeds current length. $Attempt to update character in dynamic string. Index exceeds current length. $External procedure/function was not compiled with version 3 of JRT Pascal compiler $Attempt to access an unallocated dynamic array $Invalid variable or data type declaration $Overflow in floating point multiplication $Underflow in floating point multiplication $Overflow in floating point division $Underflow in floating point division $Overflow in floating point addition $Underflow in floating point addition $Overflow in floating point subtraction $Underflow in floating point subtraction $Syntax error - unrecoverable $Attempt to access buffer variable - file was not both open and sequential $ ***** 000000 00 00 00 000 00 0000 00 00 00 0000 00 000 00 00 00 000000 11 111 11 11 11 11 11 11 1111 22222 22 22 22 22 22 22 22 22 2222222 33333 33 33 33 33 333 33 33 33 33 33333 44 444 4444 44 44 44 44 44 44 444444444 44 44 5555555 55 55 55 555555 55 55 55 55 55555 66666 66 66 66 66 66 666666 66 66 66 66 66666 777777777 77 77 77 77 77 77 77 77 88888 88 88 88 88 88 88 88888 88 88 88 88 88 88 88888 99999 99 99 99 99 99 99 999999 99 99 99 99 99999 A AAA AA AA AA AA AAAAAAA AA AA AA AA AA AA AA AA BBBBBB BB BB BB BB BB BB BBBBBB BB BB BB BB BB BB BBBBBB CCCC CC CC CC CC CC CC CC CC CC CCCC DDDDD DD DD DD DD DD DD DD DD DD DD DD DD DD DD DDDDD EEEEEEE EE EE EE EEEEE EE EE EE EEEEEEE FFFFFFF FF FF FF FFFFF FF FF FF FF GGGG GG GG GG GG GG GG GGG GG GGG GG GG GGGG HH HH HH HH HH HH HH HH HHHHHHH HH HH HH HH HH HH HH HH IIII II II II II II II II IIII JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJJJ KK KK KK KK KK KK KK KK KKKK KK KK KK KK KK KK KK KK LL LL LL LL LL LL LL LL LL LLLLLLL MM MM MMM MMM MMMM MMMM MM MMM MM MM M MM MM MM MM MM MM MM MM MM NN NN NNN NN NNNN NN NN NN NN NN NN NN NN NNNN NN NNN NN NN NN NN OOOOO OOO OOO OO OO OO OO OO OO OO OO OO OO OOO OOO OOOOO PPPPPP PP PP PP PP PP PP PPPPPP PP PP PP PP QQQQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ QQ Q QQ QQ QQ QQQQ Q RRRRRR RR RR RR RR RR RR RRRRRR RRRR RR RR RR RR RR RR SSSSS SS SS SS SS SSSSS SS SS SS SS SSSSS TTTTTTTT T TT T TT TT TT TT TT TT TT UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UU UUUUU VV VV VV VV VV VV VV VV VV VV VV VV VV VV VVVV VV WW WW WW WW WW WW WW WW WW W WW WW WWW WW WWWW WWWW WWW WWW WW WW XX XX XX XX XX XX XXX X XXX XX XX XX XX XX XX YY YY YY YY YY YY YYYY YY YY YY YY YY ZZZZZZZ ZZ ZZ ZZ ZZZZ ZZ ZZ ZZ ZZZZZZZ *PASCALX PQ0200ZR]PRII I II?III PPq_hhR= No errors iPiR=1 error iPh= errors jP= detected i Y_Xh?`= 8P%hZ)RhZ=RfjZKRyhZPfhZ0;INn@~@hh=P;hZIRjZPRhZ0;INn@~@hh=X;hZIRjZg=Y5PjZPhZhjZhXqYP?I'_'Y_ijZhXhX?jjZ^0=A=PI=YLRijZYPII I II?III P_\rhjZrR=0=YR7ehrZ hjZ[PII I II?III PP_=A5)YP_ =A5!)YP!_=A5+05)YP^_*=A5)05 ( YP_ =A5)!YP_ =A5)YP_ =N5!#YP^_ =N5!#%YP_ =05!YP_=A5  )YP-_09=AR)jZ v vP9=0RP:Y_ \Q Q QQRhXPQQQQQQR%hXPR5hXPREhXPiQSR[hXPjRihX!PRyhX^PhRhXPRhX^PQ RhXP'0=NRhX-[P`II I II?III PtI@Ps_@RjZYP_KRhZPjZYP_ hjRjP RiiP RjP R P R' RiP Rv   QR hR[ jPr Rr iiPr P Q Q R iP Q R jP R P P YPN P _  hRo  hR jZ hR4   NR`   i  P YPs _jhERM hZh h=Q 3Q R 3R hZ P R hZP  P i=NXs) ajZhR: 'ihZBR[ hZOR hZR =iA+N=N "ZajZ' R  !P  jP` 'RU hZi=NXs) ajZhR 'ihZBR7 hZKFNR h jP` <jZP`   NR aZ aj Z    Ra hKR hZFR  j   NR1   R hZY_#'NR$hZ=NXs a0;Z NR i ' jX hZP h) ajZ 'a  3Z hZhXs a  jZ a  Z R ONXshZR=iA+N XsajZ'Xa Z  iR  ja   Z a  'Z hXRhZR5 P?P?  0u (E ji  = 5i(0`  ( d05P aRa PRP _a  Z _iP|RXhZR> PHPHPhhZ P|Rn PxPxP|a Z  NRi0=XR"=Y5PiR"=F5P"=P5Pa0;@i "0;Z jX hXPQ YP(_RR    R   PoPDYPP_ZR!iP[R!hPajZYP_DR !P!iajZYP%_DRNi i 05+05jajZYPl_ajZYP_ a0;ZRhXlPiR!hXPjR+05hX%PjZPY_=NKN"Z) hZNNXshZCQCDRKhZPK?R`hXP@RphX%P>RhXlP=RhXPZQ[RhXPjZPhZYP_?R!hhajZPjZhZYP_ a0;ZR5) ajZ'hZNNXshZajZa'Z YPz_hZ=Rs a=R) ajZhZBRhZPORhZPjZ 'ajZ!'  Rk  a jZ a Z PhXPY_m\n@KNE09=FR iPPhhZ =P:a0=X$R hZhXBRhZhXPhXR<hZhXhX=R<hXhXP$6RnhZhXhX=RnhXhXPV3R~hXz0=XRhZ hXN ^0=YRa0;Z0=XhR[hZ hRa 3Z "h"h"_hZ =0=YRH\hhZ 0=YRhR0u (E ji (0 i@`(  d= 5P0=YR^=* (0@<5jP^(0@5^i h5^j h5fjhZ hZ@RcRcPa@"Z RhXP# RjZhZ0=YR hR (0@= R 0=YR^=* (0@<5P^(0@5ghZ "hR3"jZ 0=YRO[hhZ P[YhhZ hX(IKN'hN"Z[PII I II?III PGPI _cRhPFciRj  iP ihhR RvRiPPRiPhPyR=h Z jhZ Y_\hXhRxvvjZx vRPhR'Q  Q  Q Q Q R;      PRZ  PiQhR!PjR+05PR0 5 (PR!P[P[II I II?III P/8IPn_@RjZYP_RZ YP_ ii33iYP IP_ hZ@=L;=N;Z 0=IR+6jZMNXnhZiYPS_ hhZ 05 0=TRljXCDE =?>!^#edmkfghi NRm  i@=L;=N; Z     05 0 0RZjZBRjhZPMNXnhZ 09=FR hR PiR =Y5PjZPhZ P0 9=TR0 mjX hR zjXP, iR, {jX=Y5P, P0 :YP5 _  hhZ=NXn Rr jZP R R hR jhZ  iP P  R jZhZY_$h=N5Q9! RL!iXP! Ro!iXjXP!Rz!P! Q! Q! R!'iiXP!jZP!hZLIRNR"LR*"R"hXP'"R""hXP'"hXSP"IR:"hX5 P"RR"hZR"jXjR"R"""Ph"P"R" jXP"GjZP"P"P!jR" =I5P$R&# =C5iR#xP##0P$RC# =B5P$R`# =R5 P$R# =N5pRP$R# =F50P$R# =I5P$R# =E5@P$Q#R$ =C50P$RA$ =N5pP$R$Qg$hR{$ =I5P$R$ =C50iP$P$P$0=YR$00=LR$ 0=F0=FR$hZ YP*%_jRE%=I5PN&R[%=C5PN&Rq%=B5PN&R%=R5PN&R%=N5PN&R%=I5PJ&R%=E5PJ&Q%R%=C5PJ&R%=N5PJ&RJ&Q$&hR1&=I5PF&RF&=C5PF&PJ&PN&YPH6IP4P*Pi&_@=L;=N;Z YP&_@=L;=R;Z YP&_0=N=CLR&jZYP&_hXi&=jX&BR 'hZYP'_hZER'hZ 0;Z@=S;=Y;Z 0=FR''jZFNXnhZP'hiZ R'jXP'R'jXP'=B5YP'_?R (hZ =I5PD)@R8(W05=R5$hhZ PD)>Rh(^05=C54h Z PD)=R!)Q(iR(h!Z =I5P)jR(W+05$hhZ =R5P)R(^05=C54h Z P)R)h!Z =B5P)PD)!RD)=I5hZ PD)hZYPN)_ h0=SRz)hX  05P*  jQ)R)jP)R)iP)R)P)R)R iP)  R) iP)_hZ iR**hZ hZERT*@Z h Z  Q|* R*XP* R*ZP* Z  R*wjXX*%Y_=R}+ 0;Z Q+ Q+ R*+'jXN)Py+QN+iQN+jQN+QN+Rc+hX'05Py+hX  05Py+P4?Q+@Q+>Q+!R+hX'05P4ER,hZ@=L;0;Z hZ05P4 R,hZhX*jXP4ZR?,hZijX=B5P4[Ra,hZhjX=B5P4R,hZjX=I5P4]R,hZhZ =I5P4bR,hZhZhXi&0=IR,6jZhZ=C5jXP4R-hZhZhXi&AjX&hZhXi&0=IR5-BjZhZhXi&0=IRW-CjZFNXnhZjX=N5P4R(.hZhZhXi&DjX&hZhXi&EjX&BR-hZhXi&0=IR-FjZShZ P-NhZ FNXnhZjX=I5P4R.hZhZ 0;Z@=S;=Y;Z 0=NR.HjZhZjX=I5P4R.hZhZhX&FR.hX&<jXP.hZ=N5P4^R/hZhZhXi&hZ=B5P4 Rs/hZhZ 0;Z@=S;=Y;Z hZ=I5P4#R/hZhZhXi&09=CR/jXP/9=IQ/9=BR/P/%jZP/:hZ=I5P4R 0hZhZhXi&0=IR0jZhZjX=C5P4LR'1hhZMR0ihXi&TR0 05hZhXi& 00R0#jZIjXBMN$XnBR0hZP20hZ09=IR0NP 19=CR0LP 1hR0$jZP1NP 1:hZ =E5P4Q71R?1hX'P4eQO1dR2hZhZhXi&09=IR1=I5eR1jXP1dR1jXP1P19=CR1=C5eR1jXP1dR1jXP1P1%jZP1:hZP4mR<2hZhZhXi&hZ=jX&jX=C5P4kR2hZhZhXi&hZ09=IQq29=BR|2jjXP29=RR2hZ P29=ER2hZ P2:jX=C5P4lR3hZhZhX&0=RR2:jZhjXhjXjX=C5hZP4fQ-3gR3hZhZhX&0=RR\3:jZhZ=I5fR3jXP3gR3jXP3P4hR4hZhZhXi&hZ0509=IR3jXP39=RR3jXP3@jZP3:P4iR4hZhZhXi&09=IRF4jXjX=I5Pv49=RRk4)jXjX=R5Pv4%jZPv4:hZP47jZP40=RR40=IR4=R5jXY_ hX*i0=IHR4jX=R5P405hRG6hGRZ509=IR25PV59=RRD5PV59=ERV5PV5:P5HRl5P5 R~5P5R5P5R5=B5P5hRD6hZhX*09=IR50=RR5jX=R5P!69=RR!60=IR6jX=R5P!6:00R;60jZjXP4Y_ hCRd6hZPy6DRy6 ihZPy6hX40505 iR609=IR6jXP69=RR6jXP6: i hR.8 hCRH709=IR7 PD79=RR7 PD79=CQ(79=NR27 <PD79=ERD7 PD7:P7DR709=IRh7 P79=RRz7 P79=ER7 P7:P7R7 =B5P7;R7 =B5P7 hR+8hZhX400R"800<50=CN0=NCR"80jZ jXP6Y_ \0=YRX8hX  05P#:hXH605 hNR8 iP8UR8 jP8PR8 P8WR8 P8QR8 P8VR8 P8 hRW909=IQ89=BR 9  PV99=RR 9  PV99=NQ099=CR?9  PV99=ERV9  IPV9:R909=IRz9 P99=CR9 P98jZP9:=E5 hR:hZhXH600R900<50=CN0=NCR90jZ jX=B5P#:05[P:II I II?III P:_\iR:Po<jR: Po<R:Po<R;  Po<R1;  Po<RP;  Po<Ro;  Po<R;Po< R; Po< R; Po< R;Po< R <Po< R)<Po<RH<Po<Rd<Po<jZPo<[P<II I II?II@III P?P<_0 ii33iYP=_  5A @Ru=ARW=?P`= i i <hR= j <3P= j <5 iYP=I_  7E R;>ER>CP&> i  =37 iYPi>I_;iX<R? <050i`>R> ]>iP> ]>hP>i ]>iR?h i jZj ]>iR.?;iX< ]>iR? ]>iRQ?hX==3050;iX<0;iX< ]>iR?i`?W u<0;iXiR?i`?^ <0;iX[P]AII I II?III PBPcA_@R|AjZYPA_jRA=I5PBRA=C5iPBRA=B5PBRA=R5PBRB=N5RPBRB=I5PBR0B=E5PBRRB=F5PBRtB=N5PBQBRB=C5PBRBQBhRB=I5PBRB=C5iPBPBPBY_\hZ F hRD  i  hRNC    INRC  hRC  PNC  RC=S5PC=L5 XA0=RRC=R5PC=N5@0;0;Z 00<9=IIQOD9=RRQOD9=EEQOD9=BBQOD9=FFRRDPD9=NNQdD9=NCRD  R~Dvh Z PD9=CCQD9=CNRD  RD;h Z PDjZPD:BFN XcABRDhZPCFRE jZFKNREhZPE hRFE!jZFKNRFEhZP,EhZ[POEPRE_\@REjZ@@E@REhZPyE[_\"PV+^z<ʋJz'I:ĶJ>y2KrIErI*Pw#6E*Pw#6Wz9F?LF>rF@]FxE̔F:Ky°E>n2KrI*GyXHzPH~@H}HH|0H{8HErIH`HErI*Pw#r*P6=ErI*Pw#rIwE*PrIw# bFErI*Pw#6EO*PrIw# „FE>n2K*=L*;L|ªF}̳I*P^#VF>Z*=L#"=L*K#"K*Ps#r>Z#G~# FF'I:KF> 4I=F G0000 0000: $*7L~#.GʬG 'G4IG"7L4I:6LIeG!L"7LKMK G!M"7LLœG NL¤G G>2M G>2 N G:6LIʺG>2 GL*9L"7L>S26L2K GͳIrIEG>y2KøErI?HrI2;LrI2Y2KE>N2KErIE–HrIrI?ҖH2LEO!ALrIw# ~HrIF–HEH  %TITLE error or string > 64 bytes$rI !LrIw# HrII͔F2KL*7L"9L!N"7L>I26LEI  Error in %INCLUDE $$4I'I_:KY{ ZI MI2qIQI!qI4:qIOGO> 4I eI*LO}­I|­INK OK!N~#"L|!"=L*?L#"?L>Z##LJ~# IJ'I:L> 4I> 4IO!AL~#4I IOJ'I JRT Pascal ver 3.0 1234567890 Page 000 $*Ls#"L:L<2L!O"LOK PK:LʞJO>TJ “JK>2K*P!"P!"P! "P! "P!"P!"P!"P!3"P!"P!^"P!t"P!r"P!`~2L*P#~:+K~2K##K~# $KKK*P ,J~# LK:LQ{KXfK2QIYuK2QI>2UI>24I2KK!Kw# ˆKKK!TJ"RIY7 PASTEMP1 $$$ LST12345678123SMOO_\+++V+^~?w#6PASCAL1 LEX tPASCAL4 ADDMAIN >tBLOCK tFIND ~tPASCAL2 PASCAL3 EXPR tUPDATE $:tGEN q<tFLDLST PARMREF @tSYMBOL TEST LEtLEX2 EtBIT6 Ptlo|&3;L\ow,0_d&?\\+=du~  #+03;@CIQVY_dgotw}aq  % 2 J P Y a p t |   ) I m q  0 T d t 0 F S ^ w  F ` } P`p )3=!2<FVblvz"&MYx #29@j 9AIV[^fknv{~Px inq"-27:EOT_dilw|:S\.^a>M^)3Fh NW 9AX^f}\l|!9Q6Pck{    * . 3 P e p /!7!G!J!R!b!j!m!u!x!!!!!!!!!" " """ "%"("0"5"8"@"R"Z"z"""""""""""""##$#-#A#J#^#g##########$$?$G$_$e$y$$$$$$$$(%6%C%L%Y%b%o%x%%%%%%%%%%%%%&&"&/&7&D&H&L&Q&a&d&g&&&&&&&' '('x''''''''''' ((6(>(f(n(z(((((((())')B)L)b)g)x))))))))))))*8*r*z******** +++%+(+0+6+<+D+L+Q+a+f+w+{+++++++++,,,,#,0,=,E,R,_,g,t,,,,,,,,,, ---+-=-M-e-r----------- ..&..............///q/y/////////////00&0;0J0U0n0000000000001%1-151:1=1E1M1d1u111111111111111112 22%2-2:2B2Q2g2o2w2z222222222223 33#3+3B3R3u3}333333333333333344'4/474D4L4T4\4i4t4}44444444455&50585B5J5T5X5`5j5r5|555555555555 66616B6E6Z6b6j6w6}666666666667 777&70787B7F7N7\7f7n7x777777777778)8,8>8C8V8[8x888888888888888999&9.9=9E9T9`9n9x99999999::%:::::::::;;/;7;N;V;m;u;;;;;;;;;<<'>G>Z>w>>>>>>>>>>>??,?5?;?D?J?O?y??????????????@ @@@$@-@7@=@F@P@X@b@l@r@|@@@@@@@@@@@@@^AaAqA~AAAAAAAAAAA BB!B.B6BPBXBrBzBBBBBBBBBBB'CCC_C}CCCCCCC)D2D;DDDMDPDYDbDmDDDDDDDDDDDEE"EHAHFHIHNHSHVH[H^HaHfHiHlHqHtHxH|HHHHHHHHHHHHHHHHHHHHIII.I2I6I?IDIHIKINI[IiInIsIvI{IIIIIIIIIIIIIIIIIIIIIJJUJZJ]JaJeJhJkJsJ{JJJJJJJJJJJJJJJJJJJJK K KKK"K*K7K?KEKJKRKUKZK_KcKiKmKrKxK~KKKKKKKK7LLLPP Q QYQlQQQQQQMUTIL2 0200PkII I II?III PPiIP_B&0&0 5 0 5 &.i 00.it= 5 2=A=ZI=:L@E(j( 0= (0R((iP*i( 02@* Ret* _( 05((i**iP,h(i0`( 0=$R,(Pu,hR*,i0`* 09=PR=Y5P~9=LR=Y5P~9=ER^=Y5P~9=SR^=Y5P~9=TR~^*i 05^0=A=PI=X=ZILR{h =Error in $T parameter i hP~:PYP~P_09=ARPj9=BRPj9=CRPj9=DRPj9=ERPj9=FRPj9=GRPj9=HR"Pj9=IR4Pj9=JRFPj9=KRXPj9=LRjPj: E5Y_ h5h` E05Ph=MODE;=A;Xi=LDA;=C;Xj=LDD;=B;X=LDP;=A;X=LDI;=A;X=LDAL;=B;X=LDAG;=B;X=LDLS;=K;X =CAE;=I;X =CAS;=I;X =BUFV;=A;X =LDLS;=K;X =LDGS;=K;X=LDDS;=K;X=LODI;=A;X=LLI;=B;X=LII;=C;X=LGI;=B;X=LITI;=B;X=STOI;=A;X=SLI;=B;X=SII;=C;X=SGI;=B;X=COPI;=A;X=DELI;=A;X=INCI;=A;X=DCRI;=A;X=LITY;=K;X=STOT;=K;X=LODT;=K;X =LODR;=A;X!=LLR;=B;X"=LIR;=C;X#=LGR;=B;X$=LITR;=E;X%=STOR;=A;X&=SLR;=B;X'=SIR;=C;X(=SGR;=B;X)=COPR;=A;X*=DELR;=A;X.=STRT;=A;X/=LDRT;=A;X0=LODS;=B;X1=LLS;=G;X2=LIS;=H;X3=LGS;=G;X4=LITS;=D;X5=STOS;=B;X6=SLS;=G;X7=SIS;=H;X8=SGS;=G;X9=COPS;=A;X:=DELS;=A;X;=ADJS;=B;X<=CCS;=A;X==LIT2;=L;X@=LODE;=A;XA=LLE;=B;XB=LIE;=C;XC=LGE;=B;XD=LITE;=F;XE=STOE;=A;XF=SLE;=B;XG=SIE;=C;XH=SGE;=B;XI=SRNG;=A;XJ=TEQ;=A;XK=TNEQ;=A;XL=CTSC;=B;XM=TGEQ;=A;XN=CTSI;=B;XO=TLEQ;=A;XP=JMP;=I;XQ=JPCT;=I;XR=JPCF;=I;XX=CAL;=J;XY=RET;=A;XZ=XCAL;=C;X[=XRET;=A;X\=LPN;=A;X^=EOP;=A;X_=INT;=B;X`=FRIT;=I;Xa=FRID;=I;Xb=FRCT;=I;Xc=FRCD;=I;Xe=LTRC;=B;Xf=PIN;=L;Xg=POUT;=L;Xh=L0;=A;Xi=L1;=A;Xj=L2;=A;Xl=PUSH;=A;Xm=POP;=A;Xn=COPE;=A;Xo=DELE;=A;Xp=LODN;=A;Xu=STON;=B;Xv=SPARM;=B;Xw=SRET;=A;Xx=LELM;=A;Xz=DAE;=A;X{=DAS;=A;X}=SELM;=A;X=ERR;=A;XYP _hh= 5=a=zILE=A=ZI=%L@E=0=9ILE=A=ZI=0=9I=_=$L@E=N5=N5=N5hhjhlhg=N5_iacenhj51:"%7?9.0v(a&-/=cNE~$63'NE?=E LNE3h?ACE579^=N5^=N5^=X5hX~Y_ hX hXi= TEMP2.$$$ j= TEMP3.$$$YP7II@IIIP@PII_/h505 =$$$5'5'''Y_=TEMP1;X=TEMP2;X=TEMP3;XYPI _ h5g0=NRai `  { 05PR0  0  jPiiiiYP_ CERK0 iPv i7i`v  iPXR)iiYP_  3h R 0 ii  Ph i`  0 iPYP_hiǸR  iiiR=Error : INT file too large i P#YPBPP_ 050 0 05Y_ i j  05 0;Xi 0;XY_? A Rk@Pu5i i` jXPRUYPP_7CRPY_ M itj _0=:RK `Ht _0 iP,Pqi`qt _0 iPU3g0=YRjP_ij jhX  jj=0300   = Module size =  = dec bytes  i4`6hiP&Y_ii= TEMP2.$$$@t0 =.INT< hXhXhXBhXhXhXhX@=End of compile for  t0  j h Y_\iRhXiPjRhX7P[lo2<Fcv+P| (2:DLV^hs6Oh-E]v ";Tm1Iaz&?Xp  5 M e }  ( A Z s   8 Q i  . G ^ u  ! ; T m fotRctx3IYgt0Cm&?_i-7FIV`o'4glqv{MPTYPE 0200PkII I II?III PPq_@RjZYP_KRhZPjZYPP_ iRPZ i YP.P_OR-hZPY_ hhZ=iA+N Xq  hZOR  jXhZ=iA+N XqjZ'!!NXqhZKRhZCD>=?@NRhXORNBNXqhZhXP&hZENXqhZFR=V; XRFNXqhZKRhZPY_09=RR jZ'hP19=VR1iR.PP1:=RjX hZORBNXqhZ=NXqijXhZPShZjZ! '       RKRhZP2hR  jXjR.hX.09=RR^Z Pr9=VRrPr:YPw_0;ZR   P)jZ ' hYP_hZ=R jXw PiR0 iPRG jjPAR` jP+R{ P jZ jjP !#jjZ'hZYPGP_!#%jZ'YP_P _ CD?=>NKN"Z>Ra =C5 i +05PYCDRhZPX?=N=N"Z?R =I5PB=RB 0;ZQiR  =I5!P>R3 =C5 i +05P>jZP>PBDRYhZY_hX TNXqhZ  05  05hX  0 0RjZPF 09=IRR jZPiXPE9=CRE 0 0R  jZPB 0 0 0iXPE:Y_ER hZhhhX) !hjZhZFRBNXqhZ=NFKN"Z) !!ijZhZPhZ!iZ P =RU  0;ZRM 'hZPR hX_P iRl hZP R jhZP +R hZP AR hZP hX_P YP _hZNXqhZhXG!h#jZ'YP _hZNXqhZjZ'#5jZ'#5YP IIP _ ii33i;333  hi  {   {  { 0    ii iiR Z YP _R jZ0 5 Q hR :=I5P R :=C5P jZP 8 { :058 { 8 { 88iYPU _;=F5=?CD>ENR ihXG;  R jZMR hZP P hX ;  :05BMNXqhZPf YP _;=T5iNR iRY =I5Pk iRk =C5Pk R jZMR hZP P ;  05hZBMNXqhZP&  Z Y_=hZLN XqhZiNR%iP*hjZ '';! ;Z 8ihRhX PhXU ;RhZPjZjZ !;  'Z R; hX YP_hZLRyhZ?NXq!h#jjZ'hZMNXqhZPY_\RhXP&RRhXP&RhX P&8RhX P&RhX P&,RhZhh=R; X NXqhZP&hXGP&'hRRhQcRk!jPR{!iP!PP!PPjQR!jPR!iPR!PR!RP[lo#+Sk}$/?ILaq ,/;D\l',:\dpu .6EM^fy AV_s (1<@Leu@CTc . K P S Y j r  - x   ) n  , S    3 K W ] i v #y~)ow $6CYaiqyMSTMT ""0200"&PkII I II?III Pj Pq_=#patch patch patch patch patch patch i YP_@RjZYP_KRhZPjZYP_0=IR6jZYP_0=CR,0=NR,=jZYP0_@=L;=N;Z YPIPm_jZ KNRhZPyYP_7jX070=NR7=C570 1 ^0RJjZY_>3hZENXhZ=R%jXmP 0;ZiZ hZ55RuIjXmP"50 5 0!5!0=FRIjXmP"3RPlhhZ 1hLN XhZCDE =?>!^#edmkfghi NR|11ihXTNXhZhXBRdhZ70hZ PMN XhZ1RKjZhZ hZ mhhZ FNXhZ3RhhZ PhhZ PYP_ hZENXhZ 0;Z@=S;=Y;Z 0=FR'jZFNXhZ RhhZ PhhZ PYP_ hZhZ@=S;=N;Z hZjX00;XhZjX00;XhZhhZ YPS_ hZhZ@=S;=Y;Z 0=NRHjZhZjX0hZ0;XjX00;XhZhhZ YP_ hZhZjX00;XhZ@=S;=Y;Z hZ hZ0=NRjHjZjX00;XhZhhZ YP_ hZhZjX00;XhZjX00;XhZhhZ YP_ hZ hiZ  hZ hZERhZ 0;Z@=S;=Y;Z 0=FR'jZ hZP hiZ  hZ hhZ YP_hZhZ 0;Z@=S;=Y; Z "R R=jZhRvhZ hhZ FRhZPPRhhZ P%RhZ jX0 0;XhhZ PhZYP_ hZhZjX00;XhZ 0;Z@=S;=Y;Z hZ 0;Z@=S;=Y;Z hZhhZ YP _hZENXhZ 0;Z@=S;=Y; Z  0=FR. 'jZ hZ BNXhZ jX0hhZ  0=C=NLR 3jZBNXhZuR  P tR  hP >jZP hZ&R hZ jX0 0=IR 4jZ&R2  hZ Pn -RP  @hZ Pn /Rn   hZ Pn hhZ hZYP _ hZENXhZ 0;Z@=S;=Y;Z 0=FR 'jZhhZ FNXhZYP _hZhZqR? ihZP(pRT jhZP(zRk hZP(yR hZP(YR hZP(jR hZP(oR  hZP(nR  hZP(|R  hZP({R hZP(~R# hZP(}R: hZP(wR hZhZjX00;XBNXhZjX00;XP(*Q \R*R P  P hZhZ 0;Z NR9jZhZ hZP(5jZP(hZ hhZ hZYPiP.PS_R@0;=N;Z 09=IRhP[9=RRP[9=BRP[9=ER P[9=CQ9=NR[ 0.NRQhZ 0=N hR.GjZ0=NRQhhZ  i P[:O0=RRhZjX0 79NR0=RRORhZjX0ORhZjX0PhiZ PhiZ hiZ hZ   iY_hh_QP`RkhZhZP=R@0;=F;Z 0=FRilhhZ KRhZPFRPBRhZisR( PLrRA@PL1jZPLhZhZjX009=RRsP9=IRhhZ P2jZP:.hhZ hZPPijXSBRhZPPFKN RhjXSBRhZPFR,hZP4jZ R?PhiRT/hhZ RhmhhZ Y_ h hh  9Q0RP .Q0R=S5P=L5PhZERhZhX.P RPhh Z hZ  9Q97RHhhZ Pg0QX.RghhZ PgYPPo_jX00=IR+jZ4R`hhZ P RahhZ P,jZPhhZ hZjX00=IR+jZ R"hZP*-jZ 3hhZ =@ZPh Z hZ YP_jX00=CR+jZ4RbhhZ P RchhZ P,jZP5hiZ hZjX00=CR$+jZ;hiZ  RChZPK-jZ 3hhZ =@ZPh Z hZ Y_ hZ 0;Z@=S;=Y;Z hhZ SN(XhZ09=IRhXoP:9=CR/hXP:+jZP::YP?_n@KNEhZ@RRP@Z RhXPV NXhZYP_n@KNEhZ3@Z@RQKR3hZ@ZP<N.XhZjX00=BR/jZRhZ YPII_ hhZjX0RhZPjZ0509=IQ9=BR P9=NQ09=CRH9:P9=RRh)*P9=ERnJoP: h R-hORBRhZRhZiPChhZ jX000R600<509=CNQ'9=NCR*P5*jZP5:hhZ ORnhRkRhhZ =PiQhhZ  =P i`  hZ PhZ@Z  iPhhZ   =hRhZ  R*hXP i `T  hZ P8hhZ hZYPj_ 'hZER@Z h Z QRXPZP Z YP_@=S;=Y;Z SN(XhZ0=RRZ=R5Pc=N5@=L;0; Z 0 0R0 0<9=RIRhhZ P9=NCQ9=CNRP)jZP:hZ YP_ hZjX00=BR./jZ2RAhZPIjZRhhZ =@ZRhZ PPhhZ =hZ hZ@ZhZ YP_h c ehZ R8iP RR 0;Z@=S;=Y;Z RGjhZ iRcRcPeeB NXBRDhZPOjZP8hZRu@ZRPc e  R YP_RPR4P=YPA_hZ?RjXRtjZPhRi3Z PhhZ PPhZ PjZhZYP_ hZ3jX00=BR /jZRhhZ = R( hZP0 jZ@ZPhZ hZ Y_\?R jXR jZP hR ihZ i3Z hZOR hZP jZ=R?! 0;ZQ+!Q+!R3!hXjP;!hXP;!P"hRM!hX?P"R]!hXP"9Q}!7Q}!0Q}!.R!hXiP"jR!hXP"R!hXP"1R!hXP"5R!hXP"R!hXAP":R!hXP"-Q!/Q!&R"hX P"R"hX P""Q+"Q+"%R3"hXP"aRC"hX P"RS"hXP"vRc"hXP"cRs"hXP"R"hXP"R"hXSP"R"hXP"Q"(R"hXP"Q"R"hXP"[lo".[k #hps)8HR]z4,<Q`p'w3P  $ Z g   0 8 N V l   0 = E R Z i q  ! ) 8 @ R b r  &KNQ\$=YtFNiq&.?J]nqy"*:=FZ/7FNVejmx  9A%*-8=a!,O_l|&.FNfn%(3LUl #(+9FRh7LX$7? 6A2=EPf'2?R[gr & w !!!)!.!1!6!9!=!C!H!K!S!X![!c!k!s!{!!!!!!!!!!!!!!!!!!!!!!!!!" """"!")"."1"9">"A"I"N"Q"Y"^"a"i"n"q"y"~""""""""""""""""MERROR OQ0300SqPkII I II?III PIP~_6jZY_\hR=Y5llijhRjPNjhRNhhi=N5j=---- $;X~0;X~lR=Severe error condition, = compile terminated j ^0=A=PI=YLR=Severe error condition,= compile terminated< < <=$<;X~ijZh^0=Y^0=XRI=Error stop: enter 'E' to = end compile :  ji0=EREhh jh[l| $t; t/CONVERTMINT-CUSTOMIZINT nDEBUG INTERASE INT%INDEX0 INTK߳INDEX1 INTQ3^*INDEX2 INT ގJGRAF INT('JRTASM INT.v0LETTERS INT LINKER INT, PICTURE INT*RENAME INTJ}DSEARCH INT(VERIFY INT8MPICTURE 0300wPPPIII(CCDIIIPP}PeP{P,Ps_X=0=-Rl=-5P0=-R=+5P= 5YP_ iR|_hX#RihXePyix50=V=.LRihXd0=.R=.;iXPy0=,= =L=0=B=:=/LRti0=BRc= 50;iXwPyhPY_"hR":i0=.R=.;iX0iYP_i`z x509=#Q9=9Q9=%Q9=ZR"hXe4iPv 9=.Q29=VR:hX}Pv 9=+QR9=-QR9=SR6i_hX#RhXe_ihXK;iXhXP2i_ihXK;iXPv 9=DQ9=CRH_0 10;iXRB2i6ij >0=-Rx;iXix;iXP3= ;iX= ;iXiPEP8 Pv 9=EQX9=^R8iRix=Z=S=9=#=%=-=+=^LRiPPPax=eR=e;iXP=E;iXhXPv 9=_Q9=\R! R ix;iXPv 9=*R hXR iR pij=*$R i=$}j=#}hXPv 9=$Q 9=LR 4R x;iXP x;iXhXehXPv 9=,Q 9= Q 9=:Q 9=/R x;iXwPv 9=BR" = ;iXwPv 9=0R8 =0;iXPv =invalid format character vRxTX,p i Pv :PYP~ _6j >0=-R =-;iX_&jX@$R hX1"h(hR ( X0=9R ( X=95&(YP# _"_&jX@RY &hX*h *h i *h hR *h hhX1P h*h R  P  *h  $@R hYP _hR' h*h RD hX1P "hRj (ihiR i X0=# X0=9R iPt _&jX@Rx i X0=9=#LRM  X=_5 X=05*h *h iPu  X0= Ru  X=_5P hXh *h i h hR hX1P hR  P   YP _= 5i:` X0509=#QC9=9R. hRm..iPC. . i<.iR=%;iXbP.hR0=9R=0;iXbP0;iXbPQR[.  >0;iXb<RX. . iPjQyQyQyR=0;iXbPiRi i ii  K0;iXbPP9=^RKhR=-;iXbP=+;iXbi =0;iXbi =0;iXbP9=*R`=*5P9= R.hR0;iXbP:PY_`=RB5 hh5 >0=0  >0=0 >0=-RPh= 5= 5P= 5PhXhX~  R4P <R  8R~hX# PhX hX h:RP0Pi:uRPP=??uRY_\hX[ehknq%6AHV`{#/bkx!9>JT`o#9u%/CIT^jx?Xorz (058@HPadirz&1@CFNVm  ' , : J `    ( 3 6 f t x |  ! A J \ g r {   5 : ? B Y  ( 9 D K W a m v { $9APVkz".=OY_gow#FIQ^fs %/2;JScty|*JRTASM 2303003:PIIIIII I@I I I I I, I IIPI_Rh =File not found i hYP!PI_=!Options (c=com 1=pass1 n=none) :  i i 05h &=INNN5=.INT5i 0= R  09=CR&=C5=.COM5P9=SR&=Y5P9=PR&=Y5P9=1R&=Y5P:iP~Y_"h =Program name :  i h =.pNhR=0enter filename of program, do not enter filetype i P$tp5 h hX%it0 =.ASM<@%jX%it0 0< i hhhV= 55 hih%=N5$=Y57=A=ZI=a=zILEG=0=9ILEW7@G@E%=00005%i&h&=15&= 1111111115  ihYPPP_$i Vj 0 5 V 0  0 RiP 0 V 0 RiPRgV 0 5 V V 0 5 V 0 5 iiRRXRXY_iiXY_hXh = Symbol Flag Value i ii`q=:  V 0  =  V  0 V  =  _V  jZ  PYPu_ii`_V  0;hZ RV 0  i= : UNRESOLVED SYMBOL;  Z PYPIh_MR[~i ~ 09==RA'=>=5jPW'=>5iPW:P0=R'=<>5jP'=<5iP:P0=: invalid char<;  Z P[PIPI_\j5 05 05 05[PIIIIII I@I I I I I, I IIPa"P_% RM%% 05%%iYPQ_i W0;iXj W0;iXYP|_i q0;iXj q0;iX q0;iX q0;iXYPP_09=ARP9=BRhP9=CR iP9=DRjP9=ER/P9=HRAP9=LRSP9=MQn9=SPQn9=PSWRxP=Invalid register: 0<;  Z P:YP_  05 i 05j  jj;X|YP_  5i  i;jXQYP>_jXhZYPS_0=RjRi,R=Reloc tab ovfl;  Z P  YP_hZjZjXhXSjXYP_hZ_'0;XjXhZYP_hZ@_'0;XhZ_'0;XjXhZYPh_hZi_'0;XhZjZjXhXSjXYP_hZ jXhZYP_hZ_'0;XhZjZjXjXYP+_hZ'0=@@@EOL'0=!R'0=STRINGRi ` 0jXPnhZPjZjXP3YP_hZ'0=@@@EOL'0=!RjZhXSjXPYP_hZ_'0;XjXhZYP&_hZjZjXjXYPQ_hZ'0=@@@EOL'0=!R'0=STRINGRiRi ` 0 iPhZPjZiRiPYiRh Y_i'i 09=RR:'09=RLCR$jX>P69=RRCR9jX>P69=RALRNjX>P69=RARRcjX>P69=RETRxjX>P69=RNZRjX>P69=RZRjX>P69=RNCRjX>P69=RCRjX>P69=RPORjX>P69=RPERjX>P69=RPRjX>P69=RMRjX>P69=RSTR.hXP6hP6:P9=CRb'09=CALLR^jXP^9=CNZRsjXP^9=CZRjXP^9=CNCRjXP^9=CCRjXP^9=CPORjXP^9=CPERjXP^9=CPRjXP^9=CMRjXP^9=CMPRjXP^9=CMAR,/jX>P^9=CMCRA?jX>P^9=CPIRVjX&P^hP^:P9=JR5'09=JMPRjXP19=JNZRjXP19=JZRjXP19=JNCRjXP19=JCRjXP19=JPORjXP19=JPERjXP19=JPRjXP19=JMR)jXP1hP1:P9=SR '09=SHLDRY"jXP 9=STARn2jXP 9=STAXRjjXP 9=SUBRjXP 9=SBBRjXP 9=STCR7jX>P 9=SPHLRjX>P 9=SUIRjX&P 9=SBIRjX&P hP :P9=DR'09=DBR,hX+P9=DWR=hXP9=DSRhhZ    P9=DCXR} jXP9=DADR jXP9=DCRRjXP9=DAAR'jX>P9=DIRjX>PhP:P9=ARt'09=ADDRjXPp9=ADCRjXPp9=ANAR)jXPp9=ADIR>jX&Pp9=ACIRSjX&Pp9=ANIRhjX&PphPp:P9=MR'09=MOVRhXP9=MVIRhXPhP:P9=OR-'09=ORGRhZ   P)9=ORARjXP)9=ORIR jX&P)9=OUTR!jX&P)hP):P9=XR'09=XRARPjXP9=XCHGRfjX>P9=XTHLR|jX>P9=XRIRjX&PhP:P9=LR '09=LHLDR*jXP9=LDAR:jXP9=LDAXR jXP9=LXIRhXhPhP:P9=IRb'09=INXR-jXP^9=INRRBjXP^9=INRVjX&P^hP^:P9=PR'09=PUSHRjXP9=POPRjXP9=PCHLRjX>PhP:P'09=EIRjX>P9=NOPRhjX>P9=HLTRvjX>P9=WRITERhXQPhP:P:hRE=Undefined opcode;  Z YP PL_#0=YRq= EQU error;  Z hZjZ0=RR@Phj;X|%==5iR 0; ; ZP8jR8 0;  ZV  R5= Phase error;  Z P8YP=_#0=YRg=SET/READ error;  Z '0=READjR 0;  ZV  j;X|P '09=SETRhZjZ0=RR@PhP/ 9=READR/  0 =:=  ji h hP/ : 0;  Zj;X|%=#5hR  0; ; ZP V  V  5Y_'09=EQUR hXLP}!9=SETQ 9=READR hX=P}! 0= #0=NRu!iR-! 0; @;  ZPt!jRt! 0;  Z V  Rq!= Phase error;  Z Pt!hXP}!:YP!_#0=YR!=IF error;  Z hZjZ&09=0R!=05P"9=1R"hR!=05P!=15j;X|P":&R("&&iPA"= Nesting error;  Z && 05&05Y_\hZ~i 0=;=*LR"P=$i = 5~ 07@R#~ 0W@R"  ~ 05iP"  05~ 0=:R#i#=N5hZ'09=IFR3#hX!P#$9=ELSERv#&0=0RW#&=15P`#&=05&& &05P#$9=ENDIFR#&hR#&&iP#= Extra ENDIF;  Z &&& 05P#$9=ENDR#%=Y5&hR#= Unbalanced IF;  Z P#$&0=0R$'=@@@EOL5P $hX P#$:'0=!R=$#=Y5P#[P%IIIIII I@I I I I I, I IIP%_\ji&0=YRx%%0 =:   ij`q%~ $0 iPX%h P% hR%=+ iP%=- i2hR%h %= 5%_ jZ5%ii[P&IIIIII I@I I I I I, I IIP&_ \$0=NR&hZP&$=N5i%= 5%_ jZ5i 5%  i  i~ +& 05i 00R&%  i  i[P (IIIIII I@I I I I I, I IIP-P(_ '09=NUMBERR3( P)9=$RQ( =R5P)9=STRINGR( jR( j '05 i '05P( i '05 h5 P)9=(R)hZjX (0=RR(=R5'0=)R )=Expression error;  Z P)'0;  ZhR[)'0; ;h Zh=R5P)_V ' 0;hZ R)h=R5P)V ' _V ' 0;iZ R)=R5P):hZYP)_ _hX(iiRn*'09=*R*hZ_hX(Pj*9=/R?*hZ_hX(Pj*9=MODRb*hZ_hX(Pj*hPj*:P)YPz*_ '09=-Q*9=+R* '05hZP* =+5P*:_hX) 0=-R*iiR8+'09=+R +hZ_hX)P4+9=-R,+hZ_hX)P4+hP4+:P*YPD+_ _hXz*iiR,'09=EQQx+9==R+hZ_hXz*R+P+hP,9=NEQ+9=<>R+hZ_hXz*R+P+hP,9=LTQ+9=RH,hZ_hXz*R@,PE,hP,9=LEQZ,9=<=R,hZ_hXz*Ry,P~,hP,9=GEQ,9=>=R,hZ_hXz*R,P,hP,hP,:PX+YP,_'0=NOTR,hZ_hXD+P-_hXD+YP -__hX,'0=ANDR@-hZ_hX,P-YPL-_ _hX -iiR-'09=ORR-hZ_hX -P-9=XORR-hZ_hX -P-hP-:P`-Y_\=A5'09=HIGHR".hZ_hXL-05h5Pj.9=LOWRW.hZ_hXL-h5Pj._hXL-Pj.:[P2/IIIIII I@I I I I I, I IIP5/_\0 ;  ZhR/V /0 5 V / 05V / iR/= Symtab ovfl;  Z P%0_V / 0;hZ R/=Duplicate symbol;  Z P%0V / V / 05[P0IIIIII IvçYAPRINT.DOCO  !"#$%&'(o)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNi|9vϧp|oikS756C 89gb4uSc(2z_'g456koɅl me ʂ)hH|656jB0uItT.*HX;V47uSa eAۭ* 29:b`+dHDL\&QҲ'ϟц9'LyB3cp%+VB$L%dpO6d:&Qɸ+8^i[|=>\v -)aHL%'#oE~ MEZ6qȄ І9SƉd Z$+ 4568Qu3Eo ٵ''LR\$Fe456i?ҭpN| Ok*/ޫW4456o[ !9솚/d\͕M DR%4:h4` q=ǻ7ᶩwno[Z,{. Q)\ĵlX s7--8p;XBцT4tAhg|o1wZ~ڐ.(L팗O/WMgkAm>tD8//M\|w&*[+4K=N]f͟ u*4u%c1^?OtO8Se 2Hdl;@SeJ(NTl ~}L1kbW+mȪkY!ZM0Y! TqYf`7a .VA҂GS/rIqJ At&+)d|8>aV2m-WFlJ4-(Bڶ-*[+,b;Sۢ|8>RJdlЀuYiAՍ =WǩUhcp KܐC[s4+-p9[E=c2= ه蒦@}9S+U%A&pO΍CIbHL|U,|?M}(IH 0r), gS(>H84HwJ~9}nHBYhy |\1ҸR仹r{{'H84HwJ~9}nv7YAPRINT1.PASo o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn^D`Ap.ŏ>~_Wrw[uuO;/?'wj͚j3Éo\^ .l )XvsU* wo\* SVCZݫo)`̜@~wjajd+_,x~{|q|w _ b,֔yW%d ~;Td`5'N#›umMh*˕wJ?jhO3|%"Y Ec{ST[y1smc5jhO3||,1zg"v;ƞkFx3Оg/n V;;ƞk<#|?Оg&"\~nAkCnl&-FVC{EDxl&-F~Ual&-<#b= p1"Y~kgpXyM8~= ,.M8Vq*2^wTs1yFx9Оgx,3P Xyt]iX Ip~,u]iVq*2LhVC{7͂[;8VtL4F~1Оgx},1 #|N TdVtL4FF;ړ O͂[;8O;97c5!r= cDxx&(ι07[y@Xs3f[›$8E7 W ɼEq*2^@S5$HZړ /^G7 "kVD /Vhdk.cjhO3*"Y\/BEuLT - VHT Țc5a= Ջf +hL(*2zyקwf+q&lkB8 `5'.N]}[i&4UCch;n+;97N# $vG VАV*VQs`MT Ț `5'մ;H #;:H*c vGS23^~ilFFx@bhLN;XjhO,NZ:H*ciw$AAj`,~r+*1-gBx9О$Xw-LX#^PDc^[΄f=Iwd ym9f;&v˕wX ifk˙jhO,úG^[΄Y`s;MՐv2c^[΄VC{`=r&bwhdtBnn1-gB~=ID5l2T_Jhհổwf+q&GƊA~@au?X+;D5 2? pPiѓ 〼$"=d`,ۓ|2X+Vf{GkU,=EHl{ -[bJổw5b3Փ5ǗL$bF;Ҟ;ZBŔ7]Pk`a֤ %mDUA 5$iw$+2L5=mQv;:z]#6S= LՈ9!Ո j)wGڳ"H{VIt@NRd %mKiS^]]'g_~~x~{\]]]@/l(i@/l(i[N7PQݫ_cшDuE$rM6z6Ԗ(6e,v/RLTcDEFX U$V.z@n& jSa6y--䵴VxZYX Ec{ST[y@`R t;:"z!a&;IlJ~ܑAMs5%J(*Qidޢ8Xyw=+H{V*_;97N# a87;X5 _EVvLTB CXǼ 0iBZ WVy׈TOB(M ?ڬqGư TZTspXyw=+r=+ sh*!')DmrxfS^]]$L.zp %;C/l(i[Nb~kc"9f]v;C/l(i[Nn1kCEmrx:mʧvjMZP]v;C/l(i[Nvl&-CEmrx:mTsQv;C/l(i[Nv{iĹCEmrx:m ׏lpuuUv;C/l(i %! EH4{ +!|e/l-QOMy%ʆw/OVmanym9S+Dgk8fl6 +0R5Xym^S>!&5`ϣw\$r&[gE ZyzaCm*&"w1smc5uw/O jSa6y--䵴ƞk䵴t]†TM^K֤]CxzaCm*&Vk҂sE^^P ki&eS%EE^~6fRM^K˦JsEuD i\ shk˙p;:"BZ07Vy׈TOB`5pJ3ըƷv:&>'+gEr=+X if*!')Dmr8}ܔWWWTCZL.zp %;C/l(i[Nb^LuEmrx:mvuj?<] Jږ(Ӧ|nwF.zp %mKiS~nwFpPv;C/l(i[Nv#\]]] J{aCIw*^P[NZ J [Pv;˧+UuҖՐlnƼw/5aR p=iGR+;MT Ț;Ƣ2:H*cNZ:H*c 0mZJؐy=f[Ski+ESeuڑTJEHz!X5Wy׈TOBhH8&"f;$x&T" snFvGwGڳ"h9Ҟ <ܬ Jږ(MyuugJe*ιUE†^Pd[F†w?[<_+3.Pv;jew5^P[{tel5^PҶO._]mQv;<d \wk;8fiw$wo& jK$V*e{aCIwk;;B U;C/l-Ր@ݑvFbޒ!T(ataN܌:$O?C8k;N;<8fiw$Yzp 0mZZcq͘mM]Jyp 0mZ✛1ۚM^K[s3;t]􎴎ZHk4$XsλFlzBS5$LD!d.UyFʻ#Y~iϊjHF;wzaCIp)\5$ 5wzaCIwzaCIpz)/VDhv2R% %mKŦ]~XAMՐv2c^[at ;ۼ|0{T h'3L3Biϊ\p6fRM^KT h'3VDuE' 0mZڦjHF;:&.z^Hk䪠wuDۥNfwL$n#W vƃِYX +gEr=+f+q&W %mK(`ea*^P^P^PҶD9^lwjNSVag4jX[l-^P^PҶD96v}WV UCc63wzaCIpzڔv4m`g]~XA8c^[at ;ۼ|0{0[ٍ3Q=L3Biϊ\p8գPc`8CyPF_.#(LehGj; f+q&GƊpU~ FX IổwH녴F ZyGZGkf'!4j"_.߿PYo'9Z*A7ʻJ0sңH=+!PaşE\"t=I5Ib%7&4z`DZO_,zw=+r=+a5+,~ | jʆoi*% @NRd %mK7YX dXb/l(i5Ib% gTPPC jDUA 5$jG3fNcPv;PU'mgNՎ¡* k;sd3s"vE˧XA Μn+|ac8CVwìI Jږ+-KF9V;ڔM } 5$[]y@/l(i[> aݣ̜Hu;m*̦YX ~f8ߓlۋ ~w}Rv;m*L{aCIT.z_s"5hgNtwgE8-Gڳ_s"5Xyp鶒Mb.zppz4R%Vp!f+p D76Rzp8Ҟr=+f+V!tgկw0kR< 5Ib%V[ +^iϊpZgHǽ6fXOE~3&I+IAFJ@FJXzcJT0TJ;5W i XiKJaҚ$35&IC8BZcl¡6Ԧl."tAeD$w^P6fCFJ]i^,55'Zwxle7D(X18CyY 𮾭4!xkVv=k jSa6y-le7DmM][> ?+͔ lw ', 򎴎hլPKcx<67' `5'"PYo'9Z|]T +ϕT;2$(,v]:H';jhO;Ҟ!.Gڳ?Ǖwo&>޴."')XY-ذU<~C;\b8 E/lmwǛbssE0[%3\pcqsBmp=w5}\vײ!Ǜ"zaCme@ZG쭱7EVp 0'Pv;jew5i~֨qwL$]:H߾X5WiϊH{V*qG:Ywo& J Jږ(Mw/_-^PҶD9\ޔORU\l/6hs} ﶸD랤wzaCIc/l(iZrM6z6-QOO;mr8ؔ M"=flte Jږ(ӋMynwdp`sSv;mr8ؔO ~J\j^]@/l(i[N/6v{G$ʰUܝsSv;mr8ؔ/_6/6/]xӾ؜.*¡6Ԗ(Mww׸~=^뿻~gqwo/_ (ataN*1-g|am^S>p=ޑW i]:Hw5b3ՓrUиX#Opg*C;R X5k˙;ҞGˑUAb]y ')D *1-g>,Gڳ"WC8\`@anE' `5 +cC2uy,ι!^`@S5$LVvLTG1V@ZG_/5rU;:"j!]źλ+^~W]yLՈ uuN(&!4jH`5 jJ;lJj-ՔL ʬ y`~͉XǼ 5>?^|kNk˙-›wgE-~dW!v#"?-dXז3\ypUAb s%rd~i jKŦ|O4jHP\Mho~ߠw:i[iѓt;JI.(%WG)(%W>裔ӄG)Km꣏>JQwuQ*"7)}+o7裏RnܲpORV>裔`_( .xWB|pל,_\.)$B>8ag1 M Sl5ٞr=ػ$.pǴ^^}}qo\<Є[ˋK E(/YTpBk.q _%o=ػԓsZdwBBчi>`B})qOᛶ7/ޮ>( . |g#a,>~.~˳cB}p., (F6;A.|~EfGP[}H]ߖ[؇o}?>sоerjYKl2S({GPdG0cvʮ]nqNAdν]sʱ܊?ۄ>3A.~vvH8R룏rp,`j ?S /([0Bў}1o N~̩Ŵν*mOԟ-d[F3o>l}8ݧn#:=/YO<S{h7R}X6cG02O;Lݣi tU?[`fiM<>]b&A_7zKnq JgRw&G,Nm{->D(&\[? рLtGE[ӄ;sC>0m=[?&\}͎ xGMW<8I[V܂s;rprjG0;QrUaẖCCtG(hBcm(H8RKlxn:Cll&E=M}\Uť"(J-S>( Mo寛7z#X]pEm$Mo}"ĕoG(0ڦI6 RP޿BO0!徏RϞVG{{s]޿~>ᛅZ*(\R0:-O,R5|U[h o룔GV޿~>yߓ(c}QrUbY(gOYu>ٞYD[3_}Q޿A꣏BSO9~,7~{R{G>U'KE%,e LvyfgkV;o;>(`{4꣏RߪKI*+sJzS=Z(e'W?Ue}\G) 8.A}cO} 8mO}%p.LhOdߕFqsJzS}Cd7z#Qz>(i%Q<}RyYyyme]%>JYR}bWee}Ql&|M`Yu#ȜE֏LMi-.~~{#[߿˙s,rӫ=% .rkk2A>489, YȩyGYTpYO{Tվ,̧=R\^5 ,ǧ( ZW"܂F`iWf`fv\Z{P0Pg>(Wg|ڣ`grj9 ֏F\Uuj}QP9slvˁX诛Yy"!j"=Q}xNk?=`l40_<Yf1~G+3O;`%z(x The only problem with running CP/M on a Z-80 machine is that lots of your programs are written in Z-80 assembly language, while DIGITAL RESEARCH only supplies an 8080 assembler and disassembler. Many times this presents a terrible problem! Finally, here is half of the answer: a free Z-80 assembler that supports all of the standard ZILOG mnemonics! Assembly language programmers will need no explanations as to how this package is used, and the rest of you are invited to peruse the ZILOG manuals as well as the Z80ASM.DOC file on this disk. Have fun! Ö$*1LT\dltzÇîÙô,Ï10 !~=W!xe~#Xbxʇ {z~#o}o҃ JbýÂ<"!Y , <    *$A!6 # T!w $r# *`: 0 *A*! ~ ʰxkb))))_y‘BK{ͅ*!66!"80*{#z+++ ## A*!u* yA*!* y)*)*=!w# ] *w!e* yUͅ* w#"  UD*!Z±È !͈ͶÉ!͈͉ͅxÉ!G@É! yG!'' É!+C͉ͶÉ!CiyVG?͉!G„Ͷ*É!S¤ ˜ÚHÉ:J´zþCz͉y͉xÉR*UÉ** {z*~#" <AOGƐ'@'OxƐ'@'ON#( z86O!W N#N 6SP6* |} !9"ͽ:ʧ!"<§<2*  U!~ʽ5UkW!Z#  # # @zʴ=ʮ=ʚznzcXM>zO!N &6½!K&ç!G&6çC=J=R=ç!/z=ʌO &Wç&W,!+&6,!'÷!#&6çz8O! &!&6,zçyO! &Wzçy~_ ~ # _ ! 6 ! 6      ~# x{•#Š!y© á|}*~ͮ!"*t<\*"!"~*~~#"~OV: t]\_<2!~:Pt<dO`$_<2!w OUTPUT FILE WRITE ERROR (DISK MAY BE FULL) $:³t]dʲ`$_<2!wGx 0w#^#Vx~PCZM  ( "!"2!" """!1!++"">28!"9:] \! 1` >-  ( \A  _!^#V  / Y    2 ů2[\ ! = Ͱ " \ Ͱ " =Ͱ "= > 2\ :Ͱ *"=:Ͱ = E*}o"` j \*"x  ~P #͏ n}Z"* ̀ *}x|ã Ç ~ T l õ >2 2 2 !" 0 : $ A [ +& -+ *0 'v 8 * "j 8 ͇ !Z l  ~2j #~2k 8 !"j : 2 8 >2 >2 >2 ô : S f * *j " ô * *j {ozg" ô * *j *" ô 2j 2k 8 > 2Z ![ Z !!Z Aں [Һ w#*W ~#"W á .ʫ $ʡ 0 :ګ *W "~ ! "  + - *  ; ) ,  *W ~#"W  +"W +~H, !" 8 B8 !" *W *~ "W "~  *W ~#"W A^ * *_O *~ "W "j !<\!!!EN !!]\!!!fQ !:e2{ :f2| <  :| N ]] ]  !"~2 !  SOURCE (.ASM) FILE NOT FOUND $ UNABLE TO CREATE/OPEN OBJECT (.HEX) FILE $ASMHEX~O* !" 6+++* ʲ 2 G$ʓ O q O ~ ‡ ===O ɯ _ a_!~> ? 5*~#" K 0 7 A A >  >   |P }P Ҋ  >. *}o1YY ZILOG/MOSTEK Z-80 ASSEMBLER VERSION 2.0 (C) 1977 LCS $( !6#  , >2 ͷ  ( ͷ  ( ͷ  ! XN!~- H @ !_^!!" *" ͑ >82l 2Y !" 2 2v 2q !"m > 2} ͚ :  r ;r͋ ͝ :ʿ͠ :Y !Z ~ #x >L2} r2: w#: w#6!Z ͗ >M2} r!͔ "͋ :Z r!Z ͗ 1>O2} r~2w #~2x #~=_!J^#Vf&'<`j#>2 :w 2 :x r>2 :x 2 r͝ (͠ ͋ !Z ͗ ʥ>U2} r:Z A>2 :w G~2 >2 r͝ ͝ LY>2 >2 :w 2 ͝ ͈ : 2 >2 r>2 >2 :w 2 >2 r:w 2 >2 r͝ (ʏ*W ~,X#~,X:w 2 >2 ͠ ͈ * " r:w 2 >2 *" ͠ ͈ : 8!" G: 2 >2 L͝ ͝ LʱYʾ>2 >2 >2 r>2 >2 r>2 ä͝ *W ~,#~,:w 2 >2 ͠ ͈ : ==2 r*" ͠ ͈ : 8!" 2 >2 ͈ : ==2 r͈ : 82 >2 r͝ (ʇ*W #~,͠ ͈ : r:w 2 : 2 >2 r:w ƀG: 2 >2 r͝ ͝ LYʸ>2 :w Ɔ2 >2 ͝ ͈ : 2 r>2 Ü:w Ɔ2 >2 r͠ ͈ : &.:x >2 >2 ͈ : 8G:x 2 r͈ : 8G:x 2 >2 r>2 3>2 ͈ : HH>2 : 8G:x 2 >2 r:w ʬ͝ AŒ͝ ͝ ͈ >2 : 2 >2 r͠ ͈ >2 : 8@2 >2 r͝ ͝ C*W ~)͠ ͈ >2 : 2 >2 r͝ ͝ ͈ >2 : 8A2 >2 rA,IA,RI,AR,ASP,HLSP,IXSP,IY͝ ͠ *W $.$<$B$H$N $[$a͝ (g͠ ͈ : e͝ (* "y ͠ ͈ : º:y 82 : 2 >2 r:y 8G: @2 >2 r͝ ͝ L"X7Y]͠ ͠ ͈ : >:2 * " >2 r: 8 2 >2 r: 8F2 >2 r>2 : 8F2 ͝ ͈ : 2 >2 r>2 <͝ (* "y ͠ ͈ :y ʠʸ:y 8<2 * " >2 r>2 >!2 >2 * " r>2 å* "y ͈ :y &>2 :y 8K2 * " >2 r>*2 * " >2 r>2 >*2 * " >2 r>2 !W" >2 r!_1!G1!O1>2 >2 r!1!1sHL)IX+IY+*W j$Cm$}p$ʅ͈ * "y : .͝ ͈ : >22 *y " >2 r: &>2 : 8C2 *y " >2 r>"2 *y " >2 r>2 >"2 *y " >2 r>2 : 82 >2 r͝ ͝ ͝ ͝ ͈ : m>62 : 2 >2 r: p2 >2 r>2 Ê>2 ͝ ͝ ͝ ͈ * "y ͝ ͈ : >62 :y 2 : 2 >2 r: p2 :y 2 >2 r͈ : : 8G:w 2 >2 r>2 :w 2 >2 r>2 ͝ (EA8>2 >2 r>2 >2 r*W "W ͝ LnY{>2 >2 >2 r>2 >2 r>2 a͝ ʼ ʼ;ʼ*" ͠ ͈ !" : 82 >2 r:w 2 >2 r͈ * "y ͝ (͠ ͈ >2 :y 8G:w G: 2 >2 r͝ ͝ LKYC>2 ͝ ͈ >2 : 2 :y 8G:w 2 >2 r>2 >2 :y 8G:w 2 >2 r͝ (͠ ͈ : : ʥʺ: 8G:x 2 >2 r>2 :x 2 >2 r>2 ê: 8G:w 2 >2 r͝ ͝ LY >2 ͝ ͈ :w 02 : 2 >2 r>2 :w 02 >2 r:w =_!4^#VD_k͈ * *s#r* "r >2q r͈ * "m r͝ 'ʇ͠ ͈ >2 : 2 r *W : <2 ~#~ r'r͈ * " >2 r͈ * "t "r >2q 2v r͈ * " "r >2q r>62l r! "~ ͝ '6: <2 ͝ , r*W ~#"W r,*~ w#"~ : <2 g͝ ,a axOgx*~ w#"~ ͠ VAn G:Y %: ʅ>U2} 2 :} ™:{ N:} 2 > 2 !  !:q * ! z9{9# : G9 ! *r ! z9{9! : %G * "~ *~ X*~ #"~ * : O *m " :v }:Y /2Y }!H6< !\6!"~2v !" >2>82l "}:| Nʮ: ʏʹ!K ~6#”>6Ÿ]* ! z9{9* !)z9{9. LAST ADDRESS USED IN THIS ASSEMBLY IS: XXXX$ NEXT SYMBOL ADDRESS IS: XXXX$ Z-80 ASSEMBLY COMPLETE $:00000001FF G:| Nx*'~*#'ʇʹ"2 ": ڤʹ*"2 <2 =_! w*': OG! 6:#x9:O:9:O:99 O9y/<96 #6 ! ~6~ #:l 7P=!!!:9:0@> 2:'2![<2l !  Z80ASM-2.0A (C) 1977 LCS SOURCE FILE NAME: XXXXXXXX PAGE # XX "O!0" * ~6!N^*O^#fk"V0͉=* G#*V0####*V0^#V!0^*K0"V0*M0{z"K0!N"O1#w#w*V0!NN*O N#Fr+sq#p0U>G=#w#wY*M0!0n& {ozg"V0!K0{#z$"!EXXLDILDIRLDDLDDRCPICPIRCPDCPDRDAA'CPL/NEG@CCF?SCF7NOPHALTvDIEIIM0FIM1VIM2^RLCARLARRCARRARETIMRETNEINIINIRINDINDROUTIOTIROUTDOTDRLDRLCRLRRCRRSLA SRA(SRL8RLDoRRDgPUSH POP EX ADD ADCJSBCBSUBAND OR0XOR(CP8INC DEC BIT@ SET RES JPCALLJRDJNZRET RSTINOUTEQUDEFSDEFBDEFWENDORG EJECTIBM%A%B%C%D%E%H%LHLBCDESPIXIYAFZNZCNCPOPEPMNAMEPAGEPCHLPUSHREPTSHLDSPHLSTAXXCHGXTHLENDIFEXITMEXTRNLOCALMACROSTKLNTITLEINPAGEMACLIBPUBLIC7 PF FPA A A* A A A(#&&#&2#/?&#' '( v'( %:P!@"@I I I I I, I IIP0_\Vh 00 5 iV 00 0 R11iP 1[_\++++F+~H1W1+6+6+6+6_\++++F+V+^N>r1w_\++++F+V+^N>Ž1wP\2IIIIII I@I I I I I, I IIP_2_\iR2&0=YR20  i P2jR2i0  i P2[LEXA , tHEXINT tPROCESSLStPRNTLINE>$tLINE %tEXPRA F'tADD l.tLOOKUP &0tTESTBIT :1tSETBIT ^1tRESETBITz1tERRORA 1tY.8Hq})<[osx i&3;Rbq-  ) C U { . D j  0 @ q { " 3 B [ f p z (?UYht T+8OYdkvz #-5?GQYblv8<HQi~ -R]f%)Oaoy$>KOu",47AILV^aksv$),48@QY\fnqz '*4<?IQT\`hx$'/3;LTWailw} "'*38;Dfpx{$'19<FNQ[cfnrz '+3CKNYadowz (+5=@IQT\`hy 'GJZ6;K| - P e ! !+!1!P!X!r!x!{!!!!!!!! " ""&"I"o"""""""""""#)#.#1#<#I#U#h#t#########$$$!$/$;$?$%'%Y%c%o%v%%%%%&&&'2'G' ((&(1(9(O(\(e(o((((((((().)Y)f)z)))))))))***$*8*=*G*[*`*h*l*x*********+ ++%+*+2+6+B+P+_+n+v+++++++++++++++,,,,0,4,>,F,O,X,i,m,w,,,,,,,,,,,,,,---%-9->-J-X-g-v---------- .*.:.U.d.h.m.3/P/Z/m///////00'0001"1/1K1N1u111]2k2{2222222233'3:3M3`3s33MINDEX0 0300!$P.IIIIII I@@I@ I IIIIIIIIIIIIII*PP4_X=Rj}"1i36Yfj .CP[^go " . 2 B O c q z " ? K 7 A I Y     ? |    6 9 H V Z e h Ka%h $(1DH^d{ 1?I]jn#04Mol}  $9f*ERao2Vqv  8EV/48@Pu #+IN[gjmp6:BGK"&.3  #38Gg "%*-5=@EHPX[`cksv{~ &.2@HKPS[lt  / 7 P X t | MVERIFY &(0300*:PI_iR%=enter filename or 'end' :  i i 0=ENDRXP%i0@ h%hǸR &  i  &&&&&& & &&&&&&&&&& &"&$&&&(&*&,&.&0&2&4&6&8&:&<&>&@&B&D&F&H&J&L&N&P&R&T&V&X&Z&\&^&`&b&d&f&h&j&l&n&p&r&t&v&x&z&|&~%iPt= sectors = = sum =    h PYSVz#MLETTERS 0300PI PzI I I P7_09=RRi = uj = u = u = u = u = u = u = u = uPb9=LRi = uj = u = u = u = u = u = u = u = uPbi = uj = u = u = u = u = u = u = u = uPb:YPtIx_0@R= 5cPyH&0hi= 5ci `yi h050 RL 05ii h05PjiRvPY_\=A=ZI=0=9I=-LEpuRhX7i` x;iXt i `    p= <  0 i_ h i`_ihXj=1Rw   jPW5YP_h_ihXj=1R_ihXj=1Rj_ihXj=1RiYP__ihX>5_ihX>500YP3_]l_ihX> mi  iYPX_ h_jhX9=00R= absolute  iP9=01R=program relative  iP9=10R=data relative  iP9=11R=common relative  iP:_hX= =  j YP_ = name field  i_hX= len = j= 5i`y _ihX>5P]= =  0 j YP_=-- special link item i _hX 9=0000R= entry symbol  ihXPY 9=0001R=select common block  ihXPY 9=0010RF= program name  ihX05PY 9=0101Ry=define common size  ihXXhXPY 9=0110R=chain external  ihXXhXPY 9=0111R=define entry point  ihXXhXPY 9=1001R =external plus offset  ihXXPY 9=1010R7=define data size  ihXXPY 9=1011Rf=set location counter ihXXPY 9=1100R=chain address  ihXXPY 9=1101R=define program size  ihXXPY 9=1110R = end module  ihXXR_ihXj5PPY 9=1111R% = end file  iiPY = *** error - unknown special item i iPY :h YPb __hX=program relative =  _jXT j ]lmi  E   i  jYP _=data relative =  __hXjXT j YP _=common relative =  __hXjXT j YP= __ihXj9=0RY hX3P 9=1R _jhX9=00R{ hXP 9=01R hXb P 9=10R hX P 9=11R hX P :P :Y_hX R hX= P hX,(]hX= byte count =  j h =Convertm processing complete i Y_\++++F+~/ > +6+6+6+6TESTBIT ! tRhq~f*n|(6Fhv)<Xah1AVgp2^hqw 5DOotw 25@ado # W ` n  , 1 ; G O T W _ h q v y 2 5 M MINDEX2 -0300/yPIIIIIIIIIIII*I<P_X=zV+^~##~2#~2#N#F#~2#~G<2+V+^z,$""+V+^2#"+V+^* :O::=G:2›=ʸ*##¢:=2¢*}_:G|W*: …:=2‚*r+s(-2;AEIMW[admrzMLINKER 3 5 03007 Pt IIIIhI?III?PuI_Rh =File not found i hYPIII_.h5=LINK25 =$$$55h505 =INT505=IN255h5=LINK15 =$$$505=INT55YP_i= LINK1.$$$ i.=* / i   ./ j  ./ j YPN_ h =Final processing i im` b 80  iPx i iio`  E0  iP i ii= LINK2.$$$@jXuig`5  i  iPiim`q Y0=XR i iggiPL i imjojjgjh =Output module size = bytes  YPIII?P5_ &05i &05i &05i &05Y_@b 805=  0 i -i0=.INT<@-jXu-   i i  i= read ii`w-    iPWi`-  i  iP R-  jjjgg= process ii`E-  i i ijX5P= write ii`  0  iP`i`  0  iPh b 80tR=) ** WARNING ** procedure already merged i b 8t5b 8i-ii YP:_ q= 5?imRhmRq Y0=XR=* iP=  i=: b 80 =  iiP\h PK=Procedure selection i  ii i ?R-q  Y=X5P ? iRWq  Y= 5P dRi?`q Y=X5PnP dRq= 5?P hRPPRh h PFPPh h YP_h =Main program module i ~0 = module size = ~= bytes code size = ~ = bytes  h YPi I_   i 0  i0;Xi     i`    i 0  iP  i `7  i  i 0  iP m ojjg hR =N5P =O5 im`  b  8  iP 0=NR   i io`$    E  iP 0=NRA   i i`s   i  iPL Y_h =Linker ver 3.0 i h =Name of main program :  i i 05i0=.INT<@jXui= LINK1.$$$ i= LINK2.$$$ hXi j 0MRe =%** ERROR ** module previously linked i P hX:=Processing external procedures i =% proc name total size phase i kim` qk Y0=XR kjXP ii hXNhXhXh =Linker processing completed i h Yf~Ly3MWa3D]{Xgu@Cap~8Uoy"+ALUboyZ  5   " / M q  ( 3 c h  MRENAME 0300PPI IIP0_'pujx=:Reix@5Prh5i= 5 p= RP=A=ZI=0=9I=$=/LEx@RiPi x5iix@Rx@R1iP R?P i` x5iiPP0 5 Y_=\1_  pvX05 10 5#0R"h =%%Rename error - file already exists:  p j P_  pvX05#10 5 0Rh = %Rename error - file not found:  p j [.Hc"/:=Q[} 7{MINDEX1 0300P.IIIIII I@@I@ I IIIIIIIIIIIIII*PPPkPP(PdPPSPP P PR_X=.2i.iRh .  R5=+ iP>=. i.ihR1i.Rsll0 milhhjn _iX5jn 000jn  0hR0jn 05jn  jn  05P'0jn 05nniP=/%INDEX1 - did not find all records on data base i .= out of     PlXd_hX% R>l_ X;Xx f  Xp4XQ 4%0_liX5Pll0 mi 0=TWRh _hX% Rflh.400 /mi i0 lh.j0 /mi _hX% Rp hR1_hX% R!fh_d0;0;=ix0; X R_d0;0;=ix0;=$$i;X Ri_hX% R_d0;0;=dat; X R _d0;0;=dat;=$$d;X PhR^=*%INDEX1 - error erasing and renaming files i   hXg Pe0d0d0=YR_0;0;=ix0; X R1id0=:<0<=.ix0<_hX% Re0d0d0=YR8_0;0;=dat; X R8fid0=:<0<=.dat<hj05l05ihh 40050d05hXg hXY_\ h0509=JQ9=KR%_hXR"hXT P3 P3: h 0=TWR=%INDEX1 error:  i R= Key not found i PR=Invalid command i PR= File not open i P R= Serious error i P[/258;>ADGJMP $0ES[p~"KObr$7KZ]` os8HXat>Ddu. 6 F J S f j    # : v   E \ e v  k o @M`'3LU2+VjPS Y\36 #1OvMERASE 0300GPPI IIP0_'pujx=:Reix@5Prh5i= 5 p= RP=A=ZI=0=9I=$=/LEx@RiPi x5iix@Rx@R1iP R?P i` x5iiPP0 5 Y_=\1_  pvX05 10 5#0Rh =%Erase - file does not exist:  p j [.Hc"/:=Q[}MDEBUG 0300PP_ \h =Activate line trace? y/n :  ii i 0=YR=Range of lines? lower,upper :  i j  P=!Activate procedure trace? y/n :  ii i 0=YR Ph [HMCUSTOMIZ0300P7IUII'I_=A=PILE=Customiz ver 3.0 i h h ='Which disk is JRTPAS3.COM located on :  ii i =$Which disk is EXEC.COM located on :  ii i h i0= :jrtpas3.com<Ti0= :exec.com< h. / i T h. / i =6The disk search list may contain up to 4 disk letters. i =8These indicate which disks will be searched for external i =6procedures and for PASCAL.LIB. Pascal source programs i =6are not searched for by the compiler and compiled main i =&programs are not searched for by EXEC. i h =4The disk search list is entered as 1 to 4 contiguous i =8characters, e.g. ABC. There must be no spaces, commas, i =or quotation marks. i h =enter new disk search list :  i i 05i`| +0@Ry +=Z5PPh  +=Z5U05U05 h.0 / i T h.0 / i Th =end of Customiz i YQ[gqzMJGRAF 0300?eePeIeIeI eIeIe Ipe IXe I@e I(#e eeeeeeIeeeeeeeeP-eee e!P e"e#e$e%e&e'I2e)e*Pe+e,e-e.e/e0_fALLOCATE_BUFFERe1e2e3e4ie6i e7Re8=JGRAF - graph size error: e9j e:P/e;e<e=iRP+e>jR:  P+e?R\   P+e@R~P+eARP+eBRpP+eCRXP+eDR@P+eE R((#P+eFeGgALLOCATE_BUFFERYeIeJPSeKeLeM_ fCRLFSeN  5eO  5ePieQiieR`eS  05eTi  05eUeVPeWeX  05eYi  05eZgCRLFSYe\e]Pe_e`Pjeaebec_.fX_AXESedee  eg =x5eh  eiiej%ek %el %em& $A0  %enl& miepeqRn erPs iesh et`  =-5PeugX_AXESYew_fXGRIDexiXjey eziRe{e|hXje} e~PegXGRIDYeePeeP;eee_*fY_AXESeeRejeiie`e =I5eePeePeeje =I5ee =y5e eie %e %e %e" $B  %el" miegY_AXESYe_fYGRIDeiX;eeReehX;e ePegYGRIDYeePReIeeeee_f CLEAR_BUFRe= 5eeiie` 705Peg CLEAR_BUFRYeePeee_ f MOVE_TITLEe= JGRAF ver 2.2uei `.  x5P ej8jejeie` e =*5eiePa eiei8e` e 8x5eieP eieie`8 e =*5eieP eg MOVE_TITLEYeePa eIeeeePv ee_f XLABELSe &ie$ e eR e e eeP eeeee ie`H e   U 05eieP egXLABELSYeePd ee_f YLABELSe &ie$ e eR ee jie eeP eeeee ie`Q e   U 05eie P e gYLABELSYe _)fPROCESS_AXIS_LABELSei= jgraf.$$$@el(i mie$iie`] e= 5e&ieel(i mie& U (05e&&ie(0= R e$ 0e9=xR@ hXv PV e9=yRS hXd PV e:eP eegPROCESS_AXIS_LABELSYe!_fSETUPe"  %e#"  %e$hXe%hXRe&hXSe'ie(i= jgraf.$$$0e)hXe*hXe+l=  mie,e-hXa e.hXe/gSETUPYe2e3P!e4e5e7e9P~e:e;_fPLOTe<e=e>e?R=plot computation error e@i PeA 05eBgPLOTYeD_ fDATAeE    eF   " eGR{PeH   eI   eJX~eKgDATAYeNeOPePeQ_ f DISPLAYeR0=pR eS0=seTR4i*0 eUeV ieWeXRjeYPreZ0=se[Rl0(#  e\miP0(#  ie]  e^e_hRRe`0=pRea0=sebRecgDISPLAYYef_=\f * JGRAFeg0eh9=DRZhX!Pei9=IRmhX Pej9=SR=s;iXPek9=CR=c;iXPel9=PR=p;iXPem9=XRPen=JGRAF - unknown command:  eo0 j Pep:erg* JGRAF[es !8CZe|&H9V_Yl'0]01  , b u  6 O n  " - F \  + 6 O  ( 6 ; > I N Q [ !)KSgvvy[hPUXchkv f|-BOSKUG 506ARCTAN PAS7 1CONVERTMIN2oCONVERTMPASu.ECOS PASZ yCRTMAP PASuEXEC COM EXP PASBJGRAF PAS9]1JSTAT PASc$LN PAS& lREADTHIS RESETBITASMSETBIT ASM.SIN PASRډSQRT PAS2zTESTBIT ASM *C Ê ÛY Copyright 1982 JRT Systems DISKSABZZZ UZ!9"1Ù UZgZ͖\Z'[5\ xZ(*]DM*ofͦ*_####Rq#p >2:x͛Y* Program termination $>2*]"d*d*d"d\3\""`i"*^#V#"{Šzʟ*^#V+*s#rt*_w#w#w#w#Rs#rx2L"JOH*J:LGdHI!yw# y*J@ z{xN*J:LGd"M-*glL!.#z !IyEw# y;*Mx2"!"*""­*͹\"ʗ**DM*"Ý*Y:G**ͩɯ<##N#Fxyxxyx`i>`i>^#V><"O"Q`i"U "W*Q|/g}/o#T]"S*U*Ws#r#*Ss#r*W*s#r*s#r*c *eDMz/W{/_`iDMxyxڥ`i"e*Jͩɯ G*%5+V+^xɯ<48#+C.!,#z +~>8>4q#p#s#r#w"*:_s#r#s#r#p**s#r#64"" <26#6#N6#F6#~6**"s#r#q#p:4*:_M\*^#V ^#V+|^&--  $MXC !*#z virt addr:1234 call:1234 $}xgxqg{q&* >“#ʞŠ!-#z +"> 2@!͹:_!))>p#p#="|!*"s#r#s#r6#w#w#w#w*:_>w#w#w!N#F#N#F |}*e*cDMx/Gy/O *>Y*}#"}ͱ ͑ {ʞ"##^#V" :_!*^#V*5 i "!""2W2N*"!"- !1 "/ *- #"- *gK:I$ :I */ 6#6#"/ *I:I*/ s#r#"/ */ 6#6* ^#V##{ z ¶ 4~ w !"1 *"3  *3 ^#V##"3 { z *1 5 "1 + *1 w#w#w#w#"1  >4^#V#xI yxy ###=< yd xd q#p#*w DMq#p###~ BK++++"w !> ^#V#x¦ yxگ û BK++" ##2##=™ x :_> 2* ɯ<"C N#F#`i"K ^#V#~2I bk +*DMQ "M ~+ z `i"`i"O ~w : *K *M *O DMͽ :I @ă z/W{/_`iDM`i"G *C ^#V+"E q#p ¼ *G s#ro&))*E *G z/W{/_##N#F r+s" " `i" | }x * " * |/g}/o#T]" * DM* fI !1 >N#F#x* yx< <@ !+#z _*gK*I* " * +" !]͛ *_DM*a!xw yxʖ ͛ bk##^#V!n ^#V* DMz® {x* DMz {x* DM r+s**E DM^#V##z {x < !/#z +++Gx!"*#"e*m">`w#" *"e*s#r#6F !""bk6#6#s#r#6#>q#p#p#p#p#=c >dp#=s >2͞ ͐  $|#}3ʫ .   %Error: Insufficient main storage$:w    ͌ %Warning: $*a*_z%{x]: h!:G*|:y#~# L s = =%Line 1234 $%Main $%Proc $g͚̈́*]!UZ*o*_ *a-*c:*eF*}S*` addr :0000 prog :0000 size :0000 base :0000 cur :0000 tos :0000 low :0000 compr:0000 purge:0000 $  !"2*#"*gK:Iʨ:¢<2 +y  exproc name addr use cnt time stat $ 12345678 0000 0000 0000 00 $|S'r#s#yS'r#s:G:> :>+2I!w# E*I:I*I*I:IS'cj" :1:21:2@2!2 ~#  :1S'cj"<@2  :----------- 00 * $PASCAL LIB""2!͹""*Cd*͌**!N#F#z{xN#F#x"yx5######=h~# :*|*͹""*"*͟""*z/W{/_`iDM|“}xڛ`i"*z/W{/_͟""*"7*:2***:Ow# ":=2*]T ":*T:O**w# _ s Msg err $  PASCAL.LIB error $}_}|og%Error: =*cs#r#"cBK*c+V+^ s#r*c+V+^^#Vs#r*c+V+^N#Fq#p2*c+V+^ s#r>2 x4y7{PY!A)I)Q)Y)a)i)q)y*]^#V#"]*a*cs#r#"c*]^#V#"]*_*cs#r#"c*]^#"]*a*cs#r#"c*]^#"]*_*cs#r#"c*]N#"]*c+V+^ s#r*c+V+^pC:12:1@2*1*1s#r!i$z *c+V+^"c~6#~6#^#V͌2*c+V+^"c~ #~ #^#V#"* *cs#r#"c!R#z >2c*c+V+^"c*s#r#"*+V+^"*cs#r#"c!"2:#"Ë*cC4+F+NG+F+Nx/Gy/O N"c^#V#z/W{/_`iDMxڟ^#V#DMʥ^#V#"+*"*:=2#*DM!)#z !(#z b*c+V+^"+~2"+F+Nq#p#`i""c"*c+~2Ì͓"c*"**z/W{/_#*DM+"*w# L":=2**s#r͹*6#6#s#r+V+^"+V+^"+V+^z/W{/_~2+V+^z/W{/_~222*c@ *ez{!3#z *]^#"]!^#VUz #U\nUU$ 9 UU// /./TbUUUP UUU-VFVUUU UUUUk UUUP$y$$$UUUUUU UUU,..,.,g.UUUUU['@KUQSUS.U..c!UUUU!#Q##U_U#UU>>>z+xyx>>>>*]Fx2#~#>N#Fp+q##"]`i:> ~#_6 #6 :x@!:G%Entry *]N#T] "]:x@ A^# %Exit $ $^#ʐ:ʚg0 Q ʁ@G!E# :!x!4#z 0Z *]"]"=*a"*c"as#r#*s#r#s#r*a+~/G+~/O "c##^#V#"a^#V"]"]*c++~"c"]*c++~"c"]*c"c*ez{x*glL*glLN "*iMD*gIa*c+V+^"c*gCLÕ*c+F+N+V+^^#Vr+sxxڃxyڃ*]##"]*c++++"c"]zxÃ*c+F+N+V+^^#Vr+sxz{*]##"]*c++++"c"]z*c+N+V+^^sy*]##"]*c+++"c"]*c+N+V+^^s{8*]##"]*c+++"c"]**cs#r#"c*c+V+^N#Fq#p*aN#F*cq#p#"c*cs#r#"c*cs#r#"c*cs#r#"c*cs#r#"c*c+V+^w#"c*]*cw#"c"]BK*c+V+^>*]~#,GO*cw# p#6#"c"]"]*c6#6#"cw# y?q#p#"c*cq#"c!| *c+F+N"cq#p!| *cw#w#"c*c+V+^w#"c*c +~ "c*c w#  "c*c+F+N+V+^"cq#p*c+F+N"c*aq#p*c"c^#V#~# ` BK*c+V+^z/W{/_+V+^"c" Õ 2 z¢ {x >2 z/W{/_`iDMy2 x2 BK* w# y : *  p#z *c"c^#V#~# !*c+~/w+~/w*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+V+^N#F#y!~# yu!s#r#"c*c+F+Nx/Gy/O xª!yxڲ!BK+V+^"c##yxy~# y!*c+V+^N#Fyx*c+V+^"G"+V+^+F+N*G"x "yx"!F#z x/Gy/O *G"DMy;"~# y1"s#r#"c*c+~N_"+V+^"G#g"!"G#+F+Nzt"{xچ"ʆ"چ"!G#z x/Gy/O "I#+V+^"K#z/W{/_"M#"cy"{"~2F#*G#+|/g}/o# DM:F#"# y"*cw#w#"c*K#"O#*M#*O#+"O#|$# y#"#""*I#|/g}/o#T]*cs#r#"c *c+V+^z/W{/_T]N#F#~# xk#s#r#"c*c+T]F+N+xʙ#~+ Ì#+DM"cz±#{xڿ#}|{z*c+"cV+^+F+N`iN#Fx#yx#~w#6#6!O#z .$*c+F+N+V+^"c^#V z${x($w!P#z *c+V+^zK$z/W{/_~"c"c*cDM+V+^z/W{/_~#zg$`i"c*c+V+^z/W{/_"c*c+F+Nx¥$yx$z/W{/_`iDMx/Gy/O "cx/Gy/Obk T] p#z$"c*c+F+N"cx/Gy/O +V+^`i"=%"?%T]x*%w# x %*=%DM*?% s#r>_%>_%>_%>_%>_%>_%2v&*c+V+^"y&z/W{/_T]+F+N`i"w&x/Gy/O "c2{&*w&DM*y&x®%yx%ھ%MD>2{&%>2{&x%I&D&# x%:{&N&&*w&*y&DMx/Gy/Obk T]~ D&I&#z&N&*w&*y&DM|/g}/o# DM I&D& x1&N&>P&>P&>G:v&g&*c6#6#"c*c6#6#"c*c+F+Nx/Gy/O #6#"c*c+6#6#"c*c+V+^z/W{/_~)I)T)_)!@#z :w2w:w2w:w@2w:w2wN *c+V+^"c"s*c+V+^"c*gK*c+V+^"c*gK:w2w:w2w:x@2x:x2x:x2x:x2x*c+V+^"{+V+^"c"y*c+V+^z/W{/_F++~"c2)x*c+V+^z/W{/_~+V+^+F+N"c`iGzp#þ)*c+V+^".*+V+^"0*+F+N`i"4*+V+^"6*z/W{/_"8*"c`i^#V"2*@*͎*ͺ****2**6**4*s#r*.*||*|**2*#|Z*}xڂ*+*6**0*++|u*}xڈ*!T#z !U#z !V#z *4**2*#"<**6*":**.**2*z/W{/_#">**>*DMx*:**<*~+ x**4**.*#":**8*"<**6*">**>*DMx*:**<*~# x**c+V+^"X++F+N`i"Z++V+^"\+"ch++*`+*b+MDxK+*^+w# yA+*f+*\+s#rx+ʮ+*X+ +^#V"d+zŠ+{xڴ+:Y++*X+*d+z/W{/_"f+!Q#z !R#z !S#z *\+#*Z+"^+*X+"`+*Z+DM*X+*d+x/Gy/O z/W{/_#"b+*c6#6#"c",!,>6#=,*,|d,+",*c+V+^"cz^,*cz/W{/_"c~_-a,g,#,,*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_3-",!,>6#=«,*,|,+",*c+V+^"cz,-,%-ò,*c,w# ,"c{怲{xO!, {G7-w*c+F+N+V+^"cx<-yx`i"a-"_--*a-DM*_-3-*c+V+^z/W{/_"c~_×-*cV+^"c##ͯ.¬-*c6#6#"c*c6#6#"c*c+T] w+-"c*c+T] w+-"c*c+T] /w+."c2f.".<2f.*c T] "cP. 1.:f.P.*c6#6#"c:f.:.*c6#6#"c*c T] "c. v.*c6#6#"c*c6#6#"c*c T] "ct.x».yx.{xO {G7.ɯ*c!~# ."c*c"c*c+F+N##q#p#"c*c++"c*c+V+^s#r*c+V+^s#r*c+~/W+~/_s#r*c+F+N"c+V+^ s#r*c+F+N"c+V+^x/Gy/Obk T]s#r2)0*c+F+N"c+V+^xү/x/Gy/O>2)0z/z/W{/_:)02)0x/y/{PY!/)/)/)/)/)0) 0)0:)0!0|/g}/o#s#r*c+F+N+V+^`i0s#r#"c*c+F+N+V+^`i0s#r#"c>Á0>Á0>Á0>Á0>Á0>Á020*c+V+^"c+F+Nx0z0x¦0yx>ʵ0>ڵ0>G:006#66#6>õ0z0x0yx>ʵ0>ڵ0>õ0>õ0|A1z2V12W1z1z/W{/_|#1|/g}/o#X1:W141z/W{/_:V1|/g}/o#!1# zR11!"1zn1{xډ1|/g}/o#T]͢1ѷ|g}o:1=21e1*1:11G>ó1²1O:12111O:121}o|g1x21*c+~202*92}o4*;2#";2!=22!"92!=2~#"92*92|*;2!=2ͽ2!2! s#r#6*.2:)2@ʽ4*1!4R4*.2SV!43!"u"7"7*c+~2)2+V+^"c"*2;:)24H5E5*,2pC:15!9#z :)2`,5:1@&5!>#z v5=5:1@:5!=#z ͥ6*,2~C> 21<7r5:wb5:w@M5M5 $*1"5<7*5*1DM s`i"1Y652S6ʮ5`i"Q65*1"Q6*1*1z/W{/_"1*Q6)|2X6*1"V6"T6*V6T] "V62#66!I#z 6!J#z !K#z :X6=2X65:S6*T6*1 ~# H6*1*1|/g}/o#T]*1z{6{xܟ5*c+V+^"cpC*1*1"1Y6~C!" 7͜4:)2@6* 7*1z6{x66!:#z <76{ 4* 7#" 7î6:)2@ 7* 7*1z/W{/_|7{4":7:1 "7> 297&7297:97 4*:7+":7|&7*7|M7+"7 â7*7|d7+"7*7^#"7â7**2|ʤ7+"*2*522N:*C:6.#:J:@җ960#<"C:2J::N:=2N:z9"C::I:<2I:*K: N0*C:w#"C::N:=2N:š9:I:<2I:>2M::M:*K: N9:I:G:M:=2M:9*C:6.#:J:@960#<9"C::I:*K: N0*C:w#"C::M:G:I:<2I::*32++~"32f:!t:!p:truefalse*32+F+N++~"32ړ:!t:Ù:!p:z/W{/_`iDMxҳ:*32"32!:";;";;";;";;";;";!:000002!;DM|;:!;<2!; ;`i:!;0*;w#";ɯ2};|D;|/g}/o#>2};:!w;:};Y;6- #0f;[;w# g;Y!w;000000*32+V+^z/W{/_"32*32+F+N+V+^z/W{/_`iDMx½;z/W{/_"32:)2G*c+;V+^+",2x;".2+"52**2<#"czF< << O~x/Gy/O 1<1<<#N#Fx/Gy/O .<    !"u!=2"?2=2?2?2?:12212*c+~2)2+V+^"c"*25A:)2ʠ<=<*,2pC:1¶#z D<:1@ʖ=C=:)2u=2=Ç=:=‡=:w 2wÏ=:w2w!"u!"u = %Input error $'Z>???Z>>'2?:?n>2?2?þ>:?:? > ʆ>:121 •>:121 ʾ>,ʾ>*?w#"?>2?:?<2?һ>>:??**2+"*2*52iAN"32! ? >:?»>2?2?!=2"?**2|?>ɯ:?H77@:?&?>2?:?3?>2?ɯ2?>2z?O!=2 +~HS?{?V?*@!=2~-g?z/W{/_BK*32+V+^q#p:y?:z?ڌ?>2y?!ɯ2y?!=2~+ʞ?-Ÿ?#?~#?²? ä?!? ~?W#~?W#~?_#~?_000000000000:0@:%@A@G%@a@g%@H'@h'@<2y?ɯɯ<:z?;@>2y?!ɯ2y?:z?G!=2~+S@-U@#z@~#@q@ Z@!u@ ́@!000000000000"@'ͭ@ͭ@dͭ@ ͭ@ͭ@*@~O#+*@"@0@:@ɯ<2y?*32+V+^+F+No&z@{x A A|/g}/o#T]"3AT]A!"3A!=2z"A~#A`i*3Az6 #)A:)2G*c+YAV+^+",2xYA".2+"52**2iA#"czA zApA O~x/Gy/O iA  !"uA!"1:)2`NB:)2@A A`BA|BAͫB*,2~C*c+~2)2`A+V+^"JB+V+^"LBz/W{/_+V+^+V+^"c",2!14w# &B>21"1*LBB:)2`ACC*1͹"1!"122!K#z 2žB!M# :12121>2ME3D2ME22!K#z 22#~+:B~22##!2 6 # B2~#.CB~#.CB2~#C:)2O(Cx@Gy@2CxGy'E# D:LE=2LE¿D*JE*HE|/g}/o#T]"1:121E*HEz/W{/_"1:121E*1*1|^E}xҙEYFNE*1*1DF"1*1z†E{xʏEx:121x:121> **2|:1NE̓FE«E!?# **2|E:121:1NE E EB>EEF> :)26F:1NE F -F F,F*1+"1:121:1G21:1NE UF AFNE*1*1|/g}/o#T]*1zzF{x3D2F:12F:12@½F:F*Fw#"F*F+"F|ʯF**2|ʽFFíF:12@212>:12?212F*52**2"*2iA~+"EGG"GG +G 4G!8#z *EGV+^"F!"F G!"F G!"F G*EGV+^+"EG"F G*c+V+^z^G{^GrGpC:1rG6#66#6*c+V+^zšG{šG:w ʮGåGpC:1ʮG6#66#6͜4R4G:1 xG̓FGB>ʺG!?# *c++N +V+^"cq#+ ~6+w2HH2FH2GH2PH2QH2RH<2OH*32+V+^"IH"KH!=2"MHH}H:FH IPI*KH.NG:OHmH>2OH*IHxw#"IHɯ2OHx*IHwH®H0}H.ʰHEʸHeʸH2H@:HSH!PH4HʈH>2FHîH>2GHîH:HHH=2HH*MHF#"MHxɯ<*MH~+H-I*IH6#"IH>6#=HHHH*IH6H:PH%IHEI0(I!QH4IHEGIeGI2OI@:OISHH(I>2GHEI:GH[I}I:PHqIG:RH@*KHw:RH!QH@iIH2IH2I@H2I@!Í@:I-ʫI}2RH}/<2RH00000 K:IJ:I I͚J"I"I*I#"I*I#"I"I:I2IL*I:I!!͹"I"?JIAJXM*?JDJ!D#—MINT"iJkJ>kJfJ*iJwKJɯ<ʂJ*J~#"JZJ>!U"J͌:IʨJ!N#z *IJ"J"J ͹"J"J*IDM*J*J3K*JDM*Jf*J*J! 6:3 K!Q#×M+K!C#×M**`i"K"Kbk{_z/W{/_"K2KʓK*K*KyK!C#×M*K"K:K=2KfK*K*KDM*KyKw# y¶KK:I@2ILK:I2ILBK)))) I~#KBK)))) Iw#L!"K*I͌*I͋J2ILK*I#"I"I*I+"I}fL:I2IL"M!" M"M*MK:IʻL:I²L:I ʲL* M*Iz¬L{xL*MxL* M|L}L* M͌*M*MK:I2IL*#"ɯ<" M*I" M*M"My2RM!$͹"SM"UM:RMXM*UMMMGxNM*SM2M"M:WMw#w#fMw#w#w#:Mw#w#ƒM*M# ͑'!IM~#  M Mz %Extern 12345678$M_OG>Ow# M6#M ~Ow+yGMɷ,NG=_Nx$Nyyɯ>2kN#"lN:kN*lN NWN:kN<2kN7N*lN+6@*lN:kN=M*lN+~wxw# rN+~'w +N#ڜNŸN ŒN>>~GڵNʳN>ɯ>N~N͢NNN#͊N~N͢NNN>>#͊NNN2O"O͝P|O*O͝P|O:O>> 'w+ &Oɷ "lOG>GxoOWxoO*lOw+"lO CO|O|O N:nOڅO> ͢NOʭO2nOO~#1OO~2nOG#1OO#O"~P"P~GOylP/P_P~6P*~P~2P~w*P~w͈O#P*~P~z2nO1O~w*~P~G:Pw*~P.N#nN*~P*P͈OUP*~P~w#nN/P*~P~w/P~O#nN:P/<O~#uP ~Ow+yG‰P#>~#O O =¥P"Q"Q#"QͳQ}Q0QQP*Q5QOQ*Qw#"QPQ*QQ*Q.N!!Qw#6Q*Qw#DQ*Q!Qw#VQ!QnN/Q! Q'+ nQ=*QF*QNPYxG{Aw:(Q*Q#!)Q±Q#¢Q<ɯ*Q#~!B# *Q~w>#6#=Qɯ2Q͓QQeQ:Q<2QQ!!Q̓P:Q"R!RO*R42nO>#1O~w"R"Rz5R6z/W{/_7R6E͖R͖R*R#w"R͖R͖R*R#w"R͖R*R#w>#6#=„R*R.N2RDM|ڬR:R<2RÚR`i:R"MS_S7S!"OS*MS~A3S@G>#z2nO1O>*MS# NQS> N QS> NdQS> NQS> N'QS+~*OS|/g}/o#!!A# *MS~IS!!*OS=VS"OS}S͸NzS*MSS͸NzSɯ<2vE2vp"S~ڜS!SßS!SS~# ¤S*S!SO*SͳR@PP~w~w*c S*c S*c "cT] O*c "cT] ~w.NO*c "cT] SV*c "cT] P*c+V+^ "cR*c+T] "c+w+ |TV+^R*c ͳRs#r#"c*c ͍Ss#r#"c*c+V+^{2T+V+^"T"cU:TZU+0.12345678901234E+99"UU~U>+2TU>-2T~͏U>2YU!T"WU*UU# N0*WUw#"WU:YU<2YU'U!T"T>2T>2T:T*c6 #=`U:TG*Tw#pU:To&:TO s#r#"cɷU@ڣU@G>+2TíUG>@G>-2Th&:###~2T#~2U>+2T>02T2U>U>U>U>U>U>U2,V*c T] "c͸NV>G:,VV*c6#6#"c*c6#6#"c*c!~# 7V"c*c"cV"V"V#rY*V#rYzgxںV{*V*VVy*V*V#'W W~+WW zW VX2gWjW~Gx# /W:gW=wWW`iX! !wW=RW=!wW_PY +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? +' ? !VX# XGY! ~ YT]qYXY*VF#~## Y*VNyWxGyO:V>5Y>@]YWYw*V6@#w# PY!U$z !V$z ~W#ʊYڊYOzʖYږYOxYyYxY"ZzʷY##"Yi&^#V+DM`if*Yq#p#s#r## Y"Z6#6͌ ZACALL error $i&))Z^#V+ KZ͛Y͛YExec ver 3.0 $!0 ~# oZ:0O!1>$ʋZ# Z# ~ nʫZaʿZlZpZ# ŽZ͛YåZ͛YåZ:x2xåZ:x@2xåZ>I2e>N2f>T2g\[ [< INT file not found$[\F[ N[K[_[ɯ< INT file empty$:[3ʏ[ r[ INT module not version 3 $*]*["g*["k*["o*["q*["i*"m*]*o"_"a"c*]*qt\t\*mzl\{xt\ \< insufficient storage$!\½\½\\  PASCAL.LIB damaged or not found $"&]6><2(]!U")]+]#]*&]w> ]>*)]~ZE]#")]G:(]+]xɯ 'EXPROC' then error('EXPROC command expected'); get_word; exproc_name := word; rewrite(f2, exproc_name + '.pas', binary, 256); get_word; if word <> 'INCLUDE' then error('INCLUDE command expected'); get_word; include_name := word; get_word; if word <> 'RECORD' then error('RECORD command expected'); get_word; record_name := word; end; {init} procedure part1; begin writeln(f2; '{ CRTMAP generated external procedure }'); writeln(f2; 'extern'); writeln(f2); writeln(f2; 'type'); writeln(f2; '%include (''',include_name,''')'); writeln(f2); writeln(f2; 'procedure ',exproc_name, '( var r : ', record_name,');'); writeln(f2); end; {part1} procedure part2; begin writeln(f2; 'procedure clear;'); writeln(f2; 'begin'); writeln(f2; 'write(chr(27),''*'');'); writeln(f2; 'end;'); writeln(f2); writeln(f2; 'procedure gotoxy ( x,y : integer );'); writeln(f2; 'begin'); writeln(f2; 'write(chr(27),''='',chr(y+20h),chr(x+20h));'); writeln(f2; 'end;'); writeln(f2); end; {part2} procedure part3; {create DISPLAY procedure} procedure process_coordinates; var x_coord, y_coord : char16; begin get_word; x_coord := word; get_word; y_coord := word; writeln(f2; 'gotoxy( ',x_coord,',',y_coord,');'); end; procedure process_string; begin {find start of string} while not (ch in ['''',chr(0dh),' ',chr(9),chr(1ah)]) do get_char; if ch <> '''' then error('Literal string expected'); write(f2; 'write('); repeat write(f2; ch); get_char; until ch = chr(0dh); writeln(f2; ');'); end; begin {part3} writeln(f2; 'procedure display;'); writeln(f2; 'begin'); writeln(f2; 'clear;'); while not end_of_file do begin get_word; case word of 'LITERAL' : begin process_coordinates; process_string; end; 'FIELD' : begin process_coordinates; get_word; writeln(f2; 'write( r.',word,');'); end; 'CURSOR' : process_coordinates; 'END' : end_of_file := true; else : error('LITERAL, FIELD, CURSOR or END command expected'); end; end; writeln(f2; 'end;' ); writeln(f2); end; {part3} procedure part9; begin writeln(f2; 'begin'); writeln(f2; 'display;'); writeln(f2; 'end;.'); end; {part9} begin {crtmap} init; part1; part2; part3; part9; close(f1); close(f2); end {crtmap}. %ltrace %ptrace extern type char1000 = array [1..1000] of char; char2000 = array [1..2000] of char; char3000 = array [1..3000] of char; char4000 = array [1..4000] of char; char5000 = array [1..5000] of char; char6000 = array [1..6000] of char; char7000 = array [1..7000] of char; char8000 = array [1..8000] of char; char9000 = array [1..9000] of char; jgraf_interface = record command, plot_char : char; x_grid, y_grid : boolean; rows, columns : integer; x_lower, x_upper, y_lower, y_upper : real; filename : array [1..14] of char; graf_title : string; b : ^char9000; bufr_size, line_size, row_count : integer; x_spacing, y_spacing : real; end; procedure jgraf ( var jg : jgraf_interface; x, y : real ); var i : integer; f1 : file of char; procedure setup; var ai : integer; axis_labels : array [1..50] of record axis : char; ptr : integer; end; procedure allocate_buffer; label 99; var x : integer; b1 : ^char1000; b2 : ^char2000; b3 : ^char3000; b4 : ^char4000; b5 : ^char5000; b6 : ^char6000; b7 : ^char7000; b8 : ^char8000; b9 : ^char9000; begin jg.line_size:=jg.columns+16; jg.row_count:=jg.rows+5; jg.bufr_size:=jg.line_size * jg.row_count + 8; x := (jg.bufr_size div 1000) + 1; if (x < 1) or (x > 9) then begin writeln('JGRAF - graph size error:', jg.bufr_size); goto 99; end; case x of 1 : begin new(b1); jg.b:=b1 end; 2 : begin new(b2); jg.b:=b2 end; 3 : begin new(b3); jg.b:=b3 end; 4 : begin new(b4); jg.b:=b4 end; 5 : begin new(b5); jg.b:=b5 end; 6 : begin new(b6); jg.b:=b6 end; 7 : begin new(b7); jg.b:=b7 end; 8 : begin new(b8); jg.b:=b8 end; 9 : begin new(b9); jg.b:=b9 end; end; 99: end; (* allocate_buffer *) procedure crlfs; (* put crlfs in buffer *) var i, ptr : integer; cr, lf : char; begin cr:=chr(0dh); lf:=chr(0ah); ptr:=jg.line_size - 1; for i:=1 to jg.row_count-1 do begin jg.b^[ptr]:=cr; jg.b^[ptr+1]:=lf; ptr:=ptr + jg.line_size; end; ptr := ptr + 8; jg.b^[ptr]:=cr; jg.b^[ptr+1]:=lf; end; (* crlfs *) procedure xgrid; var x : integer; procedure x_axes ( r : integer; main : boolean ); var i,r1,ptr,count : integer; ll,ss,rr,xx : real; begin r1 := jg.row_count - r; ptr := (r1 * jg.line_size) + 13; (* update axis labels array and file *) axis_labels[ai].axis:='x'; axis_labels[ai].ptr:=ptr; ai:=ai+1; rr:=r; ss:=jg.y_spacing; ll:=jg.y_lower; xx := ((rr - 3.0) * ss) + ll; write(f1; xx); if jg.x_grid or main then count := jg.columns else count := 1; for i:=0 to count do jg.b^[ptr+i] := '-'; end; (* x_axes *) begin (* xgrid *) x_axes(3,true); x := 13; while x <= jg.row_count-1 do begin x_axes(x,false); x := x + 10; end; end; (* xgrid *) procedure ygrid; var y : integer; procedure y_axes ( c : integer; main : boolean ); var i, ptr : integer; cc,ll,ss,yy : real; begin if jg.y_grid or main then begin ptr := (2 * jg.line_size) + c; for i:=1 to jg.rows + 1 do begin jg.b^[ptr]:='I'; ptr:=ptr + jg.line_size; end; end else begin (* no ygrid *) ptr := (jg.line_size * (jg.rows+2)) + c; jg.b^[ptr]:='I'; end; (* update axis labels array and file *) axis_labels[ai].axis:='y'; axis_labels[ai].ptr:=ptr; ai:=ai+1; cc:=c; ss:=jg.x_spacing; ll:=jg.x_lower; yy := ((cc - 14.0) * ss) + ll; write(f1; yy); end; (* y_axes *) begin (* ygrid *) y_axes(14,true); y := 24; while y <= jg.columns + 14 do begin y_axes(y,false); y := y + 10; end; end; (* ygrid *) procedure clear_bufr; type buffer = array [1..20] of char1000; var a : char1000; i : integer; ptr : ^buffer; begin a:=' '; map(ptr,addr(jg.b^)); for i:=1 to (jg.bufr_size div 1000) + 1 do ptr^[i]:=a; end; procedure move_title; var s : string[20]; x,i : integer; begin s := 'JGRAF ver 2.2'; for i:=1 to 13 do jg.b^[i]:=s[i]; x := (jg.line_size div 2) - (length(jg.graf_title) div 2) + 2; for i:=1 to 4 do begin jg.b^[x] := '*'; x:=x+1; end; x:=x+1; (* skip 1 space *) for i:=1 to length(jg.graf_title) do begin jg.b^[x] := jg.graf_title[i]; x:=x+1; end; x:=x+1; (* skip 1 space *) for i:=1 to 4 do begin jg.b^[x] := '*'; x:=x+1; end; end; (* move_title *) procedure process_axis_labels; var hold : array [1..30] of char; i,j : integer; ch : char; procedure xlabels; var count,ptr,number_length,k : integer; begin number_length:=j-1; ptr := axis_labels[i].ptr; if number_length <= 8 then begin ptr := ptr - number_length; count:=number_length; end else begin ptr:=ptr - 8; count:=8; end; for k:=1 to count do begin jg.b^[ptr] := hold[k]; ptr := ptr + 1; end; end; (* xlabels *) procedure ylabels; var count, ptr, number_length, k : integer; begin number_length:=j-1; ptr:=axis_labels[i].ptr; if number_length <= 8 then begin ptr := ptr + jg.line_size - (number_length div 2) + 1; count:=number_length; end else begin ptr := ptr + jg.line_size - 4; count:=8; end; for k:=1 to count do begin jg.b^[ptr]:= hold[k]; ptr := ptr + 1; end; end; (* ylabels *) begin reset(f1,'jgraf.$$$',binary,128); read(f1; ch); (* skip over leading blank *) for i:=1 to ai-1 do begin hold:=' '; j:=1; repeat read(f1; ch); hold[j]:=ch; j:=j+1; until ch = ' '; case axis_labels[i].axis of 'x' : xlabels; 'y' : ylabels; end; end; close(f1); end; (* process_axis_labels *) begin (* setup *) jg.x_spacing := (jg.x_upper - jg.x_lower) / jg.columns; jg.y_spacing := (jg.y_upper - jg.y_lower) / jg.rows; allocate_buffer; clear_bufr; crlfs; ai := 1; (* axis labels array index *) rewrite(f1,'jgraf.$$$',text,128); xgrid; ygrid; write(f1; ' '); close(f1); process_axis_labels; move_title; end; (* setup *) procedure data; label 99; var x1, y1 : integer; procedure plot ( x,y : integer ); (* place char in graph area - origin 0 at lower left *) var ptr : integer; begin ptr := (jg.line_size * (jg.row_count - y - 3)) + (x + 14); if ptr > jg.bufr_size then writeln('plot computation error') else jg.b^[ptr] := jg.plot_char; end; (* plot *) begin if not ((x >= jg.x_lower) and (x <= jg.x_upper) and (y >= jg.y_lower) and (y <= jg.y_upper)) then goto 99; x1 := round((x - jg.x_lower) / jg.x_spacing); y1 := round((y - jg.y_lower) / jg.y_spacing); plot(x1,y1); 99: end; procedure display ( mode : char ); var bytes_remaining, len, start : integer; begin if mode = 'p' then system(list); if mode = 's' then rewrite(f1,jg.filename,binary,1024); bytes_remaining := jg.bufr_size; start:=1; repeat if bytes_remaining >= 1024 then len:=1024 else len:=bytes_remaining; if mode = 's' then write(f1; copy(jg.b^,start,len)) else write( copy(jg.b^,start,len)); start:=start+1024; bytes_remaining:=bytes_remaining-1024; until bytes_remaining <= 0; if mode = 'p' then system(nolist); if mode = 's' then close(f1); end; (* display *) begin (* jgraf *) case upcase(jg.command) of 'D' : data; 'I' : setup; 'S' : display('s'); 'C' : display('c'); 'P' : display('p'); 'X' : dispose(jg.b); else : writeln('JGRAF - unknown command: ', jg.command); end; (* case *) end; (* jgraf *). ;setbit.asm ;external procedure which sets a bit on in a byte ; ; procedure setbit ( var x : char; bit : integer ); ; extern; ; bit# in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos de=wb hl=wbase ; ;get bit# in b_reg, addr(x) in hl, x into c_reg setbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h mov b,m ;bit# dcx h! mov d,m! dcx h! mov e,m ;addr(x) xchg ;hl=addr(x) mov c,m ;c=x ;create mask inr b ;incr loop count mvi a,1 loop rrc dcr b jnz loop ;a=mask c=byte ora c mov m,a ;store byte ret ; end ;resetbit.asm ;external procedure which reset bit in a byte ; ; procedure resetbit ( var x : char; bit : integer ); ; extern; ; bit# in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos de=wb hl=wbase ; ;get bit# in b_reg, addr(x) in hl, x into c_reg resetbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h mov b,m ;bit# dcx h! mov d,m! dcx h! mov e,m ;addr(x) xchg ;hl=addr(x) mov c,m ;c=x ;create mask inr b ;incr loop count mvi a,0feh loop rrc dcr b jnz loop ;a=mask c=byte ana c mov m,a ;store byte ret ; end ;testbit.asm ;external function which returns bit value of a byte ; ; function testbit ( x : char; bit : integer ): ; boolean; extern; ; ; bit number is in range 0..7 ; ;entry code db 95,6,0 ;int vmcode db 92 ;lpn vmcode db 0 ;mode vmcode ;on entry bc=wtos de=wb hl=wbase ; ;get bit# into b_reg and x into a_reg testbit xchg ;hl=wb dcx h! dcx h! dcx h! dcx h ;point to bit lownib mov b,m ;low byte of bit dcx h! mov a,m ;x inr b ;shift loop loop rlc dcr b jnz loop jc true ;bit is set ;false : bit is zero dcx h! mvi m,0! dcx h! mvi m,0 ret ;true : bit is one true dcx h! mvi m,0! dcx h! mvi m,1 ret ; end extern function ln ( x : real ): real; const index = 16; ln4 = 0.13862943611196e+01; r3 = 0.33333333333333e+00; r5 = 0.20000000000000e+00; r7 = 0.14285714285714e+00; r9 = 0.11111111111111e+00; r11 = 0.90909090909091e-01; r13 = 0.76923076923077e-01; r15 = 0.66666666666667e-01; r17 = 0.58823529411765e-01; r19 = 0.52631578947368e-01; r21 = 0.47619047619048e-01; r23 = 0.43478260869565e-01; r25 = 0.40000000000000e-01; r27 = 0.37037037037037e-01; r29 = 0.34482758620690e-01; r31 = 0.32258064516129e-01; var div_count,i : integer; result,term,term2 : real; p : array [1..index] of real; begin (* ln - natural logarithm *) if x <= 0.0 then ln:= -0.99999999999999e+63 else begin (* x must be in range 0.7 to 2.85 *) div_count:=0; while x < 0.7 do begin x:=x*4; div_count:=div_count-1; end; while x > 2.85 do begin x:=x/4; div_count:=div_count+1; end; term:=(x-1.0)/(x+1.0); term2:=sqr(term); for i:=1 to index do begin p[i]:=term; if (abs(term) <= 0.9e-51) then term := 0.0 else term:=term*term2; end; result:= 2.0 * ( p[1] +(p[2] * r3) +(p[3] * r5) +(p[4] * r7) +(p[5] * r9) +(p[6] * r11) +(p[7] * r13) +(p[8] * r15) +(p[9] * r17) +(p[10] * r19) +(p[11] * r21) +(p[12] * r23) +(p[13] * r25) +(p[14] * r27) +(p[15] * r29) +(p[16] * r31) ); ln:=result + div_count * ln4; end; (* else *) end; (* ln *). extern function sqrt ( x : real ): real; var sq,a,b : real; exponent,i : integer; zap : record case integer of 0 : (num : real); 1 : (ch8 : array [1..8] of char); end; begin if x = 0.0 then sqrt:=0.0 else begin sq:=abs(x); zap.num:=sq; exponent:=ord(zap.ch8[1]); exponent:=(exponent div 2) + 32; zap.ch8[1]:=chr(exponent); a:=zap.num; b:=0; i:=0; while a <> b do begin b:=sq/a; a:=(a+b)/2; i:=i+1; if i > 4 then begin i:=0; if abs(a-b) < (1.0e-12 * a) then a:=b; end; end; sqrt:=a; end; (* else *) end; (* sqrt *). extern function arctan ( x : real ): real; const half_pi = 1.5707963267948; sixth_pi = 0.52359877559828; twelfth_pi = 0.26179938779914; sqrt3 = 1.7320508075689; var flag2,flag3,i : integer; result : real; sign : char; procedure compute; var flip,power,x2,odd1,result2 : real; i,j : integer; begin (* compute *) flip:=1.0; power:=x; x2:=sqr(power); odd1:=1.0; j:=0; i:=0; result:=0.0; repeat result2:=result; result:=result + flip * ( power/odd1 ); odd1:=odd1+2.0; flip:=-flip; power:=power * x2; j:=j+1; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) < (1e-12*result) then result2:=result; end; until result = result2; end; (* compute *) begin (* arctan *) if x = 0.0 then arctan:=0.0 else begin if x < 0.0 then begin x:=-x; sign:='-' end else sign:='+'; if x > 1.0 then begin x:=1.0/x; flag2:=1; end else flag2:=0; if x > twelfth_pi then begin x:=( sqrt3 * x - 1.0 )/( x + sqrt3 ); flag3:=1; end else flag3:=0; if (abs(x) <= 1.0e-08) then result := x else compute; if flag3 = 1 then result:=result + sixth_pi; if flag2 = 1 then result:=half_pi - result; if sign = '-' then arctan:=-result else arctan:=result; end; (* else *) end; (* arctan *). extern function exp ( x : real ): real; const factor2 = 0.50000000000000e+00; factor3 = 0.16666666666667e+00; factor4 = 0.41666666666667e-01; factor5 = 0.83333333333333e-02; factor6 = 0.13888888888889e-02; factor7 = 0.19841269841270e-03; factor8 = 0.24801587301587e-04; factor9 = 0.27557319223986e-05; factor10 = 0.27557319223986e-06; factor11 = 0.25052108385442e-07; factor12 = 0.20876756987868e-08; factor13 = 0.16059043836822e-09; factor14 = 0.11470745597730e-10; factor15 = 0.76471637318198e-12; factor16 = 0.47794773323874e-13; factor17 = 0.28114572543455e-14; factor18 = 0.15619206968586e-15; factor19 = 0.82206352466245e-17; factor20 = 0.41103176233122e-18; factor21 = 0.19572941063392e-19; type str = array [1..22] of char; var result,xa : real; p : array [1..21] of real; count,i,j : integer; sign : char; begin (* exp *) if x >145.0 then exp:=0.99999999999999e+63 else if x < -145.0 then exp:=0.0 else begin if x < 0.0 then begin sign:='-'; x:=-x; end else sign:='+'; (* compute exp(x) for 0 1.5 then if x < 6.0 then begin count:=1; x:=x/4 end else if x < 24.0 then begin count:=2; x:=x/16 end else if x < 96.0 then begin count:=3; x:=x/64 end else begin count:=4; x:=x/256.0 end; if x < 0.007 then result:=x+1.0 else begin xa:=x; for i:=1 to 21 do begin p[i]:=xa; xa:=xa*x; end; result:= 1+x +(p[2]*factor2) +(p[3]*factor3) +(p[4]*factor4) +(p[5]*factor5) +(p[6]*factor6) +(p[7]*factor7) +(p[8]*factor8) +(p[9]*factor9) +(p[10]*factor10) +(p[11]*factor11) +(p[12]*factor12) +(p[13]*factor13) +(p[14]*factor14) +(p[15]*factor15) +(p[16]*factor16) +(p[17]*factor17) +(p[18]*factor18); end; (* else *) for i:=1 to count do result:=sqr( sqr(result) ); if sign = '-' then exp:=1.0/result else exp:=result; end; (* else *) end; (* exp *). extern function sin ( x : real ): real; const pi = 3.1415926535897; two_pi = 6.2831853071796; var i : integer; procedure compute_sin; var result,result2,f,exclam,x2,power : real; odd1,i : integer; begin (* compute_sin *) x2:=sqr(x); power:=x*x2; odd1:=-1; i:=0; result:=x; exclam:=6.0; f:=3.0; repeat result2:=result; if odd1 = 1 then result := result + (power/exclam) else result := result - (power/exclam); power:=power*x2; odd1:=-odd1; f:=f+2.0; exclam := f * (f-1.0) * exclam; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) < (1e-12*result) then result2:=result; end; until result = result2; sin:=result; end; (* compute_sin *) begin (* sin *) if (x=0.0) or (x=pi) or (x=two_pi) then sin:=0.0 else begin while x < 0.0 do x:=x+two_pi; while x > two_pi do x:=x-two_pi; if x > 1.0e-08 then compute_sin else sin := x; end; (* else *) end; (* sin *). extern function cos ( x : real ): real; const half_pi = 1.5707963267948; pi = 3.1415926535897; two_pi = 6.2831853071796; var i : integer; procedure compute_cos; var result,result2,f,exclam,x2,power,odd1 : real; i : integer; procedure factorial; begin f:=f+2.0; exclam:=exclam * (f-1.0) * f; end; begin (* compute_cos *) x2:=sqr(x); power:=x*x2; odd1:=-1.0; i:=0; result:=x; exclam:=6.0; f:=3.0; repeat result2:=result; result:=result + odd1 * (power/exclam); power:=power*x2; odd1:=-odd1; factorial; i:=i+1; if i > 5 then begin i:=0; if abs(result-result2) < (1e-12*result) then result2:=result; end; until result = result2; cos:=result; end; (* compute_cos *) begin (* cos *) if x = 0.0 then cos:=1.0 else begin (* else_1 *) x:=x+half_pi; if (x=0.0) or (x=pi) or (x=two_pi) then cos:=0.0 else begin while x < 0.0 do x:=x+two_pi; while x > two_pi do x:=x-two_pi; compute_cos; end; (* else *) end; (* else_1 *) end; (* cos *). (* JSTAT ver 1.0 JRT Systems *) (* *) (* jstat computes several basic statistics on *) (* an input array. *) (* *) (* parameters: *) (* n - the number of data items in the *) (* input array *) (* x - the input array of real numbers, *) (* may be up to 1000 elements, *) (* actual variable in calling pgm *) (* may be much smaller array *) (* r - the computed statistics are stored *) (* in this record *) extern type jstat_interface = record mean, standard_deviation, variance, skewness, kurtosis, m1, m2, m3, m4 : real; end; jstat_array = array [1..1000] of real; procedure jstat ( n : integer; var x : jstat_array; var r : jstat_interface ); var i : integer; total_x,total_x2,total_x3,total_x4 : real; function cube ( x : real ): real; begin cube:= x * sqr(x); end; function sqrt ( x : real ): real; var sq,a,b : real; exponent,i : integer; zap : record case integer of 0 : (num : real); 1 : (ch8 : array [1..8] of char); end; begin if x = 0.0 then sqrt:=0.0 else begin sq:=abs(x); zap.num:=sq; exponent:=ord(zap.ch8[1]); exponent:=(exponent div 2) + 32; zap.ch8[1]:=chr(exponent); a:=zap.num; b:=0; i:=0; while a <> b do begin b:=sq/a; a:=(a+b)/2; i:=i+1; if i > 4 then begin i:=0; if abs(a-b) < (1.0e-12 * a) then a:=b; end; end; sqrt:=a; end; (* else *) end; (* sqrt *) procedure totals; var i : integer; tx,tx2,tx3,tx4 : real; sum_x, mean : real; begin (* totals *) total_x:=0; total_x2:=0; total_x3:=0; total_x4:=0; sum_x:=0; for i:=1 to n do sum_x:=sum_x + x[i]; mean:=sum_x / n; r.mean:=mean; for i:=1 to n do begin tx := x[i] - mean; tx2 := sqr(tx); tx3 := tx * tx2; tx4 := tx * tx3; total_x := total_x + tx; total_x2 := total_x2 + tx2; total_x3 := total_x3 + tx3; total_x4 := total_x4 + tx4; end; end; (* totals *) begin (* jstat *) totals; r.m1 := total_x / n; r.m2 := total_x2 / n; r.m3 := total_x3 / n; r.m4 := total_x4 / n; r.standard_deviation := sqrt(r.m2); r.variance := r.m2; r.kurtosis := r.m4 / sqr(r.m2); r.skewness := r.m3 / sqrt( cube(r.m2)); end; (* jstat *). program convertm; (* convert rel modules to exproc int modules *) type char2 = array [1..2] of char; char4 = array [1..4] of char; char8 = array [1..8] of char; char14 = array [1..14] of char; file_char = file of char; control_record = record id : char4; name : char8; ept,ft : integer; version : char4; codtab, codtabr : integer; x : array [1..104] of char; end; var program_name, name : char8; ept,ft,codtab,codtabr : integer; rel_tab : array [1..500] of integer; done : boolean; ch, b : char; byte_count, rel_ptr : integer; i, bit_ptr : integer; filename : string[20]; f1,f2 : file of char; function testbit ( x : char; bit : integer ): boolean; extern; function hexint ( x : integer ): char4; var a : char4; begin a:=hex$(x); hexint[1]:=a[3]; hexint[2]:=a[4]; hexint[3]:=a[1]; hexint[4]:=a[2]; end; %include 'reset.pas' procedure init; label 10; var i : integer; c : array [1..128] of char; begin writeln('Convertm ver 3.0'); 10: writeln; write('enter name of REL file : '); readln(filename); writeln; if pos('.',filename) <> 0 then begin writeln('enter filename only, do not enter filetype'); goto 10; end; writeln; reset(f1,filename+'.rel',binary,1024); reset_check(f1); rel_ptr:=1; bit_ptr:=0; read(f1; b); byte_count:=0; rewrite(f2,filename+'.int',binary,2048); for i:=1 to 128 do c[i]:=chr(0); write(f2; c); done:=false; end; (* init *) procedure write_suffixes; var i : integer; begin ept:=byte_count; ft:=byte_count+2; codtab:=byte_count+4; write(f2; 0ffffh, 0ffffh); for i:=1 to rel_ptr-1 do write(f2; rel_tab[i]); write(f2; 0ffffh); codtabr:=codtab + (2 * (rel_ptr - 1)) + 2; end; (* write_suffixes *) procedure update_control_record; var c : control_record; begin open(f2, filename+'.int',binary); read(f2,rba,0; c); c.name:=program_name; c.ept:=ept; c.ft:=ft; c.codtab:=codtab; c.codtabr:=codtabr; c.version:='0300'; c.id[1]:=chr(0a0h); c.id[2]:=chr(04dh); c.id[3]:=chr(001h); write(f2,rba,0; c); close(f2); end; (* update_control_record *) function bit : char; var x : boolean; begin if bit_ptr >= 8 then begin read(f1; b); bit_ptr:=0; end; x:=testbit(b,bit_ptr); if x then bit:='1' else bit:='0'; bit_ptr:=bit_ptr+1; end; (* bit *) function two_bit : char2; var x : char2; begin x[1]:=bit; x[2]:=bit; two_bit:=x; end; (* two_bit *) function four_bit : char4; var x : record a,b : char2 end; begin x.a:=two_bit; x.b:=two_bit; four_bit:=x; end; (* four_bit *) function byte : char; var a,i,m : integer; begin a:=0; m:=128; for i:=1 to 8 do begin if bit = '1' then a:=a + m; m:= m div 2; end; byte:=chr(a); end; (* byte *) function name_count : integer; var x : integer; begin x:=0; if bit = '1' then x:=x+4; if bit = '1' then x:=x+2; if bit = '1' then x:=x+1; name_count:=x; end; (* name_count *) function address_field : integer; var low, hi : char; begin low:=byte; hi:=byte; address_field:= ord(low) + 256 * ord(hi); end; procedure byte_data; begin write(f2; byte); byte_count:=byte_count+1; end; procedure value_field; var x : integer; pgm_relative : boolean; begin pgm_relative:=false; case two_bit of '00' : write('absolute '); '01' : write('program relative '); '10' : write('data relative '); '11' : write('common relative '); end; x:=address_field; writeln(' = ',x); end; (* value_field *) procedure name_field; var i, n : integer; begin write('name field '); n:=name_count; write(' len =',n); name:=' '; for i:=1 to n do name[i]:=byte; writeln(' = ',name); end; (* name_field *) procedure special_link; begin writeln('-- special link item'); case four_bit of '0000' : begin write(' entry symbol '); name_field; end; '0001' : begin write('select common block '); name_field; end; '0010' : begin write('program name '); name_field; program_name:=name; end; '0101' : begin write('define common size '); value_field; name_field; end; '0110' : begin write('chain external '); value_field; name_field; end; '0111' : begin write('define entry point '); value_field; name_field; end; '1001' : begin write('external plus offset '); value_field; end; '1010' : begin write('define data size '); value_field; end; '1011' : begin write('set location counter'); value_field; end; '1100' : begin write('chain address '); value_field; end; '1101' : begin write('define program size '); value_field; end; '1110' : begin write('end module '); value_field; while bit_ptr <> 8 do ch:=bit; end; '1111' : begin write('end file '); done:=true; end; else : begin writeln('*** error - unknown special item'); read(i); end; end; (* case *) writeln; end; (* special_item *) procedure program_relative; var relocatable_field : integer; begin relocatable_field := address_field; writeln('program relative = ', hexint(relocatable_field)); write(f2; relocatable_field); rel_tab[rel_ptr]:=byte_count; rel_ptr:=rel_ptr+1; byte_count:=byte_count+2; end; procedure data_relative; begin writeln('data relative = ', hexint(address_field)); end; procedure common_relative; begin writeln('common relative = ', hexint(address_field)); end; procedure process_one_field; begin case bit of '0' : byte_data; '1' : case two_bit of '00' : special_link; '01' : program_relative; '10' : data_relative; '11' : common_relative; end; end; end; (* process_one_field *) begin (* convertm *) init; while not done do process_one_field; write_suffixes; close(f1); close(f2); update_control_record; writeln('byte count =',byte_count); writeln; writeln('Convertm processing complete'); end (* convertm *). MCONVERTM! 6 03008 r P IIIIIhIPT_ j5i  05j  05 i 05 j 05YPI_Rh =File not found i hYP I_=Convertm ver 3.0 i h =enter name of REL file :  i h =.pNhR=*enter filename only, do not enter filetype i P'h (ip=.rel<@(jX ih(l i mi h]ip=.int< i` h5P]l0 mihYP,_  j ]lmji i`]l EmiPm]lmij ijYP_]ip=.int<]lh. /mi 05 =03005i 5j M5 i5]lh.0 /mi ]YPj_R(l i mih_ 0;ZR=15P=05iYP_i _ihXj5j _ihXj505YP _ _jhX5_jhX505YP>_ h i`_ihXj=1Rw   jPW5YP_h_ihXj=1R_ihXj=1Rj_ihXj=1RiYP__ihX>5_ihX>500YP3_]l_ihX> mi  iYPX_ h_jhX9=00R= absolute  iP9=01R=program relative  iP9=10R=data relative  iP9=11R=common relative  iP:_hX= =  j YP_ = name field  i_hX= len = j= 5i`y _ihX>5P]= =  0 j YP_=-- special link item i _hX 9=0000R= entry symbol  ihXPY 9=0001R=select common block  ihXPY 9=0010RF= program name  ihX05PY 9=0101Ry=define common size  ihXXhXPY 9=0110R=chain external  ihXXhXPY 9=0111R=define entry point  ihXXhXPY 9=1001R =external plus offset  ihXXPY 9=1010R7=define data size  ihXXPY 9=1011Rf=set location counter ihXXPY 9=1100R=chain address  ihXXPY 9=1101R=define program size  ihXXPY 9=1110R = end module  ihXXR_ihXj5PPY 9=1111R% = end file  iiPY = *** error - unknown special item i iPY :h YPb __hX=program relative =  _jXT j ]lmi  E   i  jYP _=data relative =  __hXjXT j YP _=common relative =  __hXjXT j YP= __ihXj9=0RY hX3P 9=1R _jhX9=00R{ hXP 9=01R hXb P 9=10R hX P 9=11R hX P :P :Y_hX R hX= P hX,(]hX= byte count =  j h =Convertm processing complete i YTESTBIT Rhq~f*n|(6Fhv)<Xah1AVgp2^hqw 5DOotw 25@ado # W ` n  , 1 ; G O T W _ h q v y This file contains information which can be used to verify that files on the distribution disk are free from error. The VERIFY program will compute the sum of the bytes and the number of sectors for a file. To run VERIFY just enter "EXEC VERIFY". It will ask for the name of the file to be checked. It will then print out the sum and sector count for the file. filename sectors sum ARCTAN.PAS 11 12243360 CONVERTM.INT 27 14517511 COS.PAS 9 10210105 CRTMAP.PAS 30 38065559 CUSTOMIZ.INT 10 8256088 DEBUG.INT 3 1513428 ERASE.INT 6 1883617 EXEC.COM 186 61403522 EXP.PAS 16 16721381 INDEX0.INT 75 24192007 INDEX1.INT 51 14850541 INDEX2.INT 12 6867133 JGRAF.PAS 57 70433894 JRTASM.INT 118 39515005 JRTPAS3.COM 170 62032386 JSTAT.PAS 18 20914830 LETTERS.INT 10 2127916 LINKER.INT 30 10304547 LN.PAS 12 11677289 PASCAL.LIB 99 96853545 PASCAL0.INT 188 63422713 PASCAL1.INT 49 17099726 PASCAL2.INT 39 9356304 PASCAL3.INT 79 20773060 PASCAL4.INT 6 2616456 PICTURE.INT 42 10666019 RENAME.INT 7 2441556 RESETBIT.ASM 5 5944774 SEARCH.INT 4 421409 SETBIT.ASM 5 6016140 SIN.PAS 8 9287473 SQRT.PAS 5 5310766 TESTBIT.ASM 6 6850814 VERIFY.INT 8 610304 v%C-TO-PAS.CR  !"#$%&'()*+,-./0123456789:;<=o>?@ABCDEFGHIJKLMNOPQ*3: ZŜZO>QZ$Cw*џ̧\`G$-#GJYւ{J+w0g!Z9Oe~o*R̿{Uo'Z9#t)<RS=?3kTr9w/*Tz~¼o'`a>,*@R3.yj ّmQ1_ó;2O~N-AE]>t=~?Sw }^|GBHx1g\Z\:q JE#9t}@T֭o=ͩ_?Ӝ P]wR&U8kKޓШp*uv}[بpKޓ[Fq5*\% C\nhn&Y w4cHn!NZuv}[W?,Qa6*̜f uv}[p:Gg[cKޓήoXjTӏ:~jxuEBX*:-~\v oW8 JObݪ0C85]ѹ)̹ms q4uPʃ+JtHh-xH~$̩%ԩmq$\R#H)˅dڏsz?7Q2R>PI冒h9+?) a\>tEvx図 B>HKFNˁPgcN':} 8RPM swq47TK55*PhnSPQٮ#ψ{nU?.b+D aTU}JW"&ph#@T S*iVL;'iC^BFӎ"!@)cl8kUhGv%1C S