' JJJJ ?\>' L-=l>  ԠéԠˠ COPYRIGHT (C) 1982 MICROSOFT - CP V0 ^ *^ *>`y# 21dy_Ͳ2dy2Ͷ:ӷ 1d͙ͨA͌>>͌Ͱͨ2/:۷&!p_~#foױ:ؘ&!v"!âRead errorâNo file/:۷! ~ ($#0 WxxԀԂG ~ # x!*~ɯ2:۷=!1 8=_.:;<> o$>!*2*!"( @G:(:wx2p(#* 6?w(#6 . (#* 6?w(#6 #6" #~?  xDIR ERA TYPESAVEREN USER!y # !۶2:2a{_:d۷(R:۷>Ķe(A:t=2e 2!!s6#5eͼ(:۷Ķ!͚ͧ(͵1͵ !F#x(~ww!" !d~6Ͷe:ö!~#͙*~ ( (͌#>?͙͌͵  COPYRIGHT (C) 1979, DIGITAL RESEARCH _(> ͌> ͓> ͙~#͌ _2<ɯ2 Ӈ33ooiiUU ԩ \\\\\\ĭ ? x JL ``LLL SЅQRP  ѩ ҩIթˍHթS Q ivSՅQP SQP q<`RPSQ`ΧԠĠڸčԠԠ͠Ԡ؍2>o:= gw8H<8HJJJJHx / h Le<>DŽ=i> y@A y@A>i -< < <=Ќ> LeÍ.xxH hh@(LN*// -П( ( $8` А jNx`. չx$50x.$50xLmъJJJJ`Hjf5 h $50x`  0123456789:;<=>?x ԭ(`H݌hHhHh݌>?F؅G(jf5(  ш bխ( FGj _Ѡ0x ѐ$xxH` ( bh bL;2{![: <2<:>042>!>2!"!:       !"#$%&'()*+,-./Ȍ` Hx Ԑ -(hL(h8֩`2>!w#w#wHa."y .:g"*"!~(!5:# :* : $"2!":_!YoN!~6(*} *: y(B:4:2G<2x/a2:#8 o: }#oa":\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`U L+*xS&x'8*3Ixix&& 8 ѹ ѥ' ѹ & x)*++`FGG8`0($ p,&"8'x0| &HhHh Ј Щ Щ ИV Y iӦ'&Y iӮx ꪽiӦ' Щ Щ Щ Щ н`Hh` cI꽌ɪVɭ&YӤ& &YӤ&  꽌ɪ۾ö:۷=!۾:ö/!~  6?#̙(u:`O> 8Z{ ͙ͨA͓>:͓͑>:͓͑x  >  (> ͓x 0 ͚͑ 8/ ͢!51#~Y1#"<̙8All (y/n)?/(8͙!6!~8 w4!*~8͚͌8=8͈ͧ/(/2o&)|(+!Ͱ ͼ< ͭ͢8No space/: P!*!=(_ 0#"/ &G!~(p p2( 8͙8͢ӿ!߿( $ 4~($̀k :<(ok( Ͱ1>2>21:!8 !ͤ2:߷ ( Q H>2>2÷*Ͷ1: C͹2(O ֶDM} >"* :꿷:(ӷsO s#r:߷:== :y== 3*! N!Fwyx(>8>*w~#+w#w+ɯ222͍ط̀kͷ * :꿷(~ w ~ 5 '# ! #  8 w ~>2߿h!5÷*!"̀k"!w# ! wS2߿k* ~<w( G:x ( ( No # :2!~Яwt>÷ ̀kͳͷ6۸<͕PYy( ͧ0*ӿ{z0BKͧ0<ոy ! * ͷC<÷ ̀*~wkͳ W͕ ̀k Ẁ͕k~ͷ[ G*̿ ~ ͧ wͷ :꿷(N N#Fy( *ӿ}|͸#*ӿ_#DM*̿6# x *׿*̿s#r2*6#6t{kͷ>(:߾ #~$ =2۸=::ҿ/GyO>2!q*"t2{k(R*(0Bͷ:Oy($?(͍! *ƿ:o$*~ͣwط6طw**{#zr+sR**ٿh*ʿ* ( ͛wT(T !!ƿN#F$*ƿ[O: (* :꿷(n& ^#V͹Oֶ"*}:п*)= ":ѿO:𿡵o"* *!$~2~2:ҿ2$: O:w:w <*ƿ# ):O!tyoxg*:O_}!N#Fz"*տ#*s#rͷ ~! ( ( (( Áy!4 5~yd5:O|^#V#"##"¿##"Ŀ##Sݿƿ*ȿο*ӿ|!6(6>*¿w#w*Ŀw#w*_""!N#F*Ŀ^#V*¿~#foyx0*ο{_zW+*ο8 yx8#*ۿDM*¿s#r*Ŀs#ryOxG*ݿ0MD!!пN:! ^#V22'2*(! 2222:뿷(*6:( w:2G2:߷( [!$*}D{2,>J>V J>V LV0 ^ *^ *>퍋`(~+v ͳݯ2 !>w :!޾05͏ ͜ 3͜x( #Nm:޷!ޖ2͏!5 #wOm~x p B/*y<(< c :!qMDü2>ͼ!~6 6O}:޷   2>:޷  :޷2յÁ2 6y60 ^B@Oy  B: ͗  #Bͳ:!޾ B B  $O}:2*N# ʕ ʕ x(:2M xܥܷܼܲ2S{2!"s1߯222!Ey) 02K!S_^#V*}ݡ޽ޣGƾ̾  %+272!"2:(Ó     $$$ SUB2͙ͭ1d Ͷ1M,͢ Bad loadCOM/: !۶1:C_*"&ۯ2>2Aү2!~(͍#>‚ ø??2B!1ۅo0$:B~#:A$ ><2A!4!T](8 +#0Nwy+++8File existsͧ_: ;: :۷;=Ͷ2 ;2C !5 ӷگP:۷(=Ͷ##~ ###~T!Ͱ ӷR0r= lM/!~2>1~2ۯ2\!!!~( (#~(#xƿWw#üT*"Q(*:ѿG# "OQ(:!8w4طw : Hͤ!~ =26H2*!!~~#~O~G#n,-. W! w! y !x(4.:<(*! q!pͧ:< . (o.:<(ط6}200AN! ~态O>G~G!~G} ̀*!r#r#rk( ͷ˽_y#x#{8s+p+q͕ͣ* ˽!!q#p#w:!߾w*:O_}*MDz"ͣ>2*~=20:2~2wG:*߶w>"!""2!"O2: !"("8 !6##6͝"͘"7>2:8͝"Y:8͝"m(͘"s !>"r>2t͂:ͨ!~L#q[K!!o~,foɷ:LL Softcard CP/M 60K Ver. 2.23 (c) 1980,1982 Microsoft L LԍLѩ &HL H &L ϱ`HHEFG(X`͊~0,~hͱ.~8ͅqh: 2y2!!{o!:=8~y!3͎ ^#V!~2w.2G2WE22* 21!w#w#w>2*"I!2E!À͊ƏN(!/6`+6+w+6b|>>?22!ɯog"$2E!.B...X&*}(8.|8&"$LCF(+60I2Q̓!xq!y2EEͅ22G:ͱ 2F~!>ͭ:H! y2E{2GE!Ͱ:E̓!ME!x~H & hlH &L H h`G!~_ :( 6>ڤ! ~((+! ~OO:x >22:*(*û*:w*(:$_"~28 ?@wx( !E!fony 2$8>2N:O*:9!O#~#1~y9:02?"2O: K*:*(0**:8'(*:08*(*: 8(*7!n,ʤ!w˹#~V5:!( +_ywɷ+*:]lc_O{ͤ Oäy2CøMpÑu×À`is}sss / !~ ͊66= ̓!E  ! Ͱ !{g1:Q!E͂:(!Y"*>w2 2ӯ22>2!"2!"çtͣ~?(~?ẁ][ͣw͕]titt24A!4#""$<TURBO COM TURBO COMq TURBO OVR !"TURBO MSG #$TLIST COMw%&'()*+,-./0123II-LORESP -456789cp/m sys`II-HIRESBAK7:;<=>?@ #~ͦ08) 8 ! 80T])) T])_y|}&#9N8w!DB9+O#>) W _}8(8J`9{T]=o`9y 2!!!:O::O:!*! !45(! +/ 0y0(CUTTER PASZDUMP PAS[T1 COM\]^_`abcdefghijkT1 COMqlmnopqrstuvwxyzHANGUL BAK{HANGUL PAS|x!D9N #^#Vh&D9! 9! 9^#Vh&D9!"x/o&9p#HR>' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> HI-DEMO COMABCDEFGLMNOPQRSTII-PDL P HKBD COMXVWXYZ[\]^_`II-SOUNDP IJHI-DEMO PASKHI-DEMO COM'UabcdII-HIRESP 6efghijk {ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2!  d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!eS>))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } (G!9 w#Eͺw}8) >' ́ ͬ͗ (ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> ?O#60 #WyOh(yDOyƀZ?y@~0? GD??hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&r <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#}}>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M 2i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR> ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͘:4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 ˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = _~65+~ 8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցw(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k! !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ! o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j>22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0}D%>2D3y$2y*" y*FE6#"y':D=ʪ(= >C!OM>C!HN22y*D"y*D" y3y&erer Compiling 3y(  --> -͟-JE:y  Compilation aborted;" liinal: !S Include error messages!-2AEĤ-͏-z"{!;"ͦ!`$r$ P$8: z >ogged drive:Aork file:51ain file:D-dit ompile un ave eecute ir uit\$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*>:D(,Workfile 51 not saved. Save2D!-P-!E\$ Saving \-*FE+6%&er!]l2D<2D\&*DE&er<(NWyer~#G& >Wyx xր> \er\! 6T] Directory :2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'^!*"HE!zd k)jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"2 (max *ͯ) ind run-time error uit ͦ!k$$P$(#7^#VLWMECRSXDQOMCHSEFQ,$$*'(*9&-++$+y#@'D'H'P'n''$z" Main file name͟-a">2D*-D!\$!%"%& Work file namea">2E ͏-;"*-E!\ compiler ptions Text: [DE*FE+8#[FE*HEFree: շR\. bytes (ͯ>-ͯ>)= compile ->  V!!y#>:Da#emory a#om-file a#cn-file :D(]tart address:*Dͯ (min ! ͯ) nd address:*Dͯnf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKq Disk fullv.&&:D2D!]l2D%&;">>>2Dß-Start addressa"! -"DEnd addressa"*< -"D *| ;"Enter PCa"-"'!"y>2y Searching͟-(K-P-z-!E P--(&!%"}%!%"%Ä :BE:AEĤ-͏-K-%:D=(2BE;"---------------------------------------  *< "D<2D >(!TURBO Pascal systemkV!Version 3.00A V!CP/M-80, Z80 Copyright (C) 1983,84,85 ̈́BORLAND Inc. (! Term"~ʰ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pSZѷR&* s#r$ s#rL <?*L!\  <( !\$>2>2L:>!(* $!%"%!%"}%͏-E*DE"`D"bD"PD"TD"XD"jDKHE;%6 #"FE Loading -\&$&Wyer<(.Cm{Km{B &Wyw# File not foundv.͠%2 New File#!*FE File too big%2E;"!e6B#6A#6K!F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|p R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"nes :yp):y z*not found ;"( *y R.#Code: [y*y+8#*y.#* yData: 8#>2BEZ*0sGError &ha.:AE(f*B~(^ 80O#0#( ~# #: ~ (7 0![B 0  ( #z*found2D:y[PD"PD:i A*PDAͽ7@>*PD*jD:iGͱAͽ78[jD;0ͱA*jD[PD;@>@>*jD:iGͱA@>:iOG*jDͱA"jDA*PDͱA"PD@GA,=@>:iGO*jDA"jDA*PDA*jD[DE;(GA@>*DE"PD"jD@,=!t{"RD?F(ͭ7q7Ư2BE> FindD;1>Replace withD>OptionsD;1:hg%.â>2~D1 2 2͊/6@>#>#[RD͑At{R[PD"D!DF6(C#~08:0 &40_0.+ͦW U N G B { SD*DE:}Dg(*FE_ *D"Df [FE;Ҁ3;ڀ3D::  #~x> (> ( No file ~<2q{nf"o{#,*o{ͥ,`i,Bytes Remaining On X: Ra.>k_er |,,( ͽ,0:q{)New drivea" : ͦA er2_e=͇6*D[`D"`D "bD?*`Dͩ3b7<6,=͇6*D"`D "bD@,=b7F(#>#[RD͑AD>t{R[PD"D[`D;[bD8;0 *`DR"DMD?KDy/Ox/G[D*`DF@>*`D;"PD*TD[`D;8[bD;0*PD"TD*bD[`DR,=MD@?*PD"`D"bD,=b7!D͖7D~ s6!"vD2xD͢<<:h88 !*͢51!BLine !BCol !:rD BInsert BOverwrite :yD BIndent:lD<*xD(2xD!͢0[vD*PD;ʤ7ͤ7[DE*PDRMDy(> 02B͏B ! ͢<>0*PD"vDä70G> |(?>.&E!y % Error found in above include filez-( E!D v.* y*Disk or directory fullv.;"Run-time error position :BE'(:D=(;=3+z-!E(!D3y >C!OM2Replace (/): nf͢2B͏B  y !͢2B͏B  y qB>ͦY( NƯ2BE:DO:DO0f *D?x(!D͏BGA ,=9Af F@>,=*`D[bDDGf(=_0F(3~838T(4 K6F( 4~8386f;:~D04^ KD CDx E48f(*D423ͩ3^>Search string not found?ͯ3,=[FE;8;"PDRt{"RD?@[DE͑A*FE+ÑA08:A8 [a8{طf(r (Y/N)? ͦY(N N->P!AS2e"f:\er<2\:EK- z- $E!D$>2D:D&%:DE!D #*DE6 #"FE2D2D2BE*B"DE}!>M!SG .2AEv.(!%"%!%"}%\%*FE6#"DE!ͦ0 8 ))))o@b7*RD"fD*PD"bDNF A(>(*RD"dD*PD"`DF@>*`Dé3@>*bDé3&ͧ7!t{<N7GA@>*FEé3!t{"RD?#>#{;8!{"RD?6!rD~w6!yDfnâ*PDͱA@>*PDͱA"PD@,=*PDA@>*jD[DE;@>*PD[jD;(A>0(-'11d1 1R8<00 E-: #V6#:/0^ :D>y 6 ~04J ~(~ͨ/#4 1 - qB( (( 1_~ݾ04s~#ͨ/~8V÷1~5+~ 1B>ɯ2~D1 2U>"B!B"Ñ.@>*i-&͢*B";"&3+'&}!>O!VR .!&ѷ( Programa"!>C!OM .(!\:D!!!PD!!Dir maska"er:\( =_erA2,Wyer&O<(RyO!ay ~ =!Wy  :h=0;<6,=>Write block to filef5*-&<(">Overwrite old \--(&*bD~6 >*`D͒&wD;1D>Read block from filef5*-&<  >\>.?<6*FE[HE RDM*D7?!5*DR!5"}%`%"bD*D"`D*m{RDM![D5><6,͊/6qB2D!BE6*RD{;0FAw#͗A"RD?ý.qB( !D6#w!DB/ !DiC/7=( !C ^#V7͊/qB4#ẘ/2B͏B!͢!D~#~ͨ/= < >^@ N#0O # >>O 2B͏B!t@>:  x>./-!\Q.:DwQ.>wQ.6- not found&<͛&. Press   *FEr+sS{2tD<2uD!C"r{!lD>*DEͩ3:D=(!͢:DG> ͖;/:/0.(!.z8 2DW2BE!WD[D9ͤ7 Fk:C.Ar:P9*PD,=@>ͱA"PD!t{"RD?@,=P9 *PDͱA<,=@>:b9A#>#[RD͑At{R*PD7?6 #6 *RD<"RD?*RD;@>*XD;"PD*ZD/9 :9*RD*A8;8"RD79&7*PDA82@>"PD@,=#>*RD<8*A8<8*A0#s#rvnu(*{"y:y= 3yer!93y$[{"{"y"{2{!"Tyl͜kz óF(:KóF͊NR(?l+l"{2{um~͂r͍m:{zm>zmmo(Ho*s{um͇m#o 8 jxzmx um !Wzy zm~# ummb+y(6 ͢F(:CE2CE*\D"^D>B*^DcB[\DR͠w"^D#m{R!Y{[\D*^DR( cB~"\D[\D*^DR{ SDEXWZ/-BNTHCV #+t{ ~;:h=G<͡<<:lDG(~;0< (:h=GF(͡<<#>[RD͑A#"D;0+͡<<[D;(~;0< (͋<~;0  0@͙<:(M>FF @[dD;87[fD;8!,FF ![`D;8[bD;(0 :Fk:FÄ:o(noHo>1!͔k!y:y(0l͒k:{(>͜k͗k!d͆k>!͜k͗k>͜k͗k* y͊k:yg.>͗k!͆k͞FR~.r ! ͂k[yBl?l:{_Bl*s{͇m"s{:{_0lwk͗kZnur ~ ͎H ͷH J *K*y^H:yrM!4y{!2lD:h==2pDb72pD2lD6b7F*jD[DE͑A"jD[PD;@8E[PD;( Ay2B"jD6x :(:i=8 !͢ b GA[PD;( ͱAy2Bx @:i=_yW81 FA0':uD8!(2uD*jDBͱA ="jDsq*jD :i_yO0ͱA y "jDGA#"RD*RD?#>[RDկR0<2q{+;8+*PDͱA@>*PDͱA"PD@,=!t{"RD*A8?*A0;8 :q{ #>#*A8*PDAk::qD*RD"hD@>*PDA"PD,=!C"r{ :!C"r{2qD"PD,=FN7*RD[hDRA6  N7*RD?{6 ;(#×A!t{"RD?:@>*PD777"88r8q7z7M8_88h7<7E797;ҺBsxx&7796 s4+r7,1;2K2t{t{t{Y{Y{   LFR                 <>,[].*+-/$:=(){}^#' 89999 :™> : 2tD:i=o&͢> !͢Y*PDSdDSfD!t{6~[`D; "dD[bD; "fD X6 #(e;0[bD;0!"fD[`D;0!"dD>2oD6 #*RD?FN7:uD=N7 (w# ;0D=>Line too long - CR inserted?!}p{~460#/ 0p#:w!Y͆k!͗k!{ ~͜k#:y= ͖l2{l*{*y*{"y!"{!9!3y$:y= '!{4y 6#3yerer A7MD> ;8 ;(8 #`iLA{R+MD{kͱA8 RMD&;,=D>*PDͱA,=++?:( Y:i=ͼ;,=9A,=#>[RD;8~ (8*A8*sA*A8%*PDA7z7B;*RD *RD<8"RDsA?×AsA~ (͏B¤7ͬ;0ä7ͬ;0ä7:uD!i74 &o͢*jDG( ͱA0<<<#[FER#{+[DE> ;8 {{sq{*FE#"{$$$$"{* y"ygo2{2{2{2{2{2{2y2{2{"{"{͏q+"Ty> 2{>2{>2{*DE"{"{!y6*yl*HE+"w{T]B"s{"u{"{{k!tE:y= ͖ll"yr͕ovn)u ͒Fo ͒FINTERRUPTED?ý.+Bv.0z[FERB>]Tͫ>SFEx 8 G 2By(*`D͎?"`D*bD͎?"bD*jD͎?"jD*PD͎?"PD*TD͎?"TD*XD͎?"XD;طB [FERMDx 8 G 2By(SFE[dD͑AF("dDN[fD͑A"fDt{:h=OR}88<9,=ͤ; >B6!͢ !{s{+; {;PYÑA#>#MD*dD4>"dD*fD4>"fDi`#t{R:oDO0*PD?*PD!t{A(%~[dD; "`D[fD; "bDw##+> w*HER8&B >0B byte(s) left?>ERROR: Out of space?ý.>*** '@ozmrm*s{umm͛O[Z{r+svo7IrHoZnu ~:\{80r= W*m*`{qR*m{[k{R#*^{͇R:\{ z o fo7Iz(^oiyr2bknoIm U*mfo:]{O*b{!Tnr)vR*X{RrE[b{@o7Io(noR|(͜k+Im |*O G(>*{"X{͋gok>2W{~o:\{:Y*mIgCmX:d{=(<(Pk[Pk*e{͗kPk*o{͊kPk:\{ x - !# x Pke. x  ! ͆k:\{  y*^{*{|[^{Rr,:\{(O 04 :{o '#000*`{| *m{~`{z!(#"b{TR jx r3vnur ir,͍rr4RQOr:\{ rum*s{"Z{!\{~zm#mi{~+2W{V+^+SX{V+^\{~+"y{*s{Ky{B #N#F ~ 6++~ @+~(;6+^+V*s{Kw{B r*#N#F ~ ++(~+(F+Nq+pÛR2{[Z{r+s"{{mHo:{ )vn3u ͂k> vn:u iw+p+r+sHo6+p+:{( r+s~r+:{rL͖nHo:{*yW(!"{*{{*s{"{{~6+F+V+^+(#?l:{(%V+^+͇R:\{2{*b{}2{0l"{r+s+x(J~OF+~2{+V+^+"Z{͇R*s{1U:{rr)ͅSvn0u(Po?lTnr(:{rHum:{zmwkum×k:{:{!{rag:\{r!{^4!{:]{w*{>"͔ko(vnrur ͅS2{fo>>)o>( ><)o>(2{goG j x (Ar!{~ 6>*)o (Tn vR*X{Tn( TnrJ++V+o(8o͈o͛O*Z{"^{*b{͚rrb"b{"`{>2\{TRvnTu:{:{!{4~2{*{*{!"{"{2{͋P*{"b{"{"{:{2]{2{2{>2\{TRPvnu(5O*{[{R8"{o(8O5O͈oP*{io(@ofo:{>2{͋P2{"{o(:{novn0ur:{om*b{"o{*^{͇R0o"{́*{n(+Jvnu J"{͛"{͑*{o(8o!Wz "{*{!Wz:^{_:o{G~͜k#Im i:b{=G0O^kȯ͜k ix ( r͗kJ:b{=}ʜk×ki:\{r,[^{͍r8 [`{͍rr-*s{*s{um͇m*s{njurͅSvnnu wk͗k?lͅS?lͰ^vnrur PkE͗kͅS>͔k?lͅSvntu(PoͰ^PkE×kTnr)vR:W{ :\{ 0r*m:\{~o^okr,Znur^^ոr,vnrur Pkcm{!f#(!v͆kPkzf!{4ͅS!{5Im*X{>*͔k2{wS"{͂k*s{[u{R0I#N#F#~#^#VGz(+~O͔k*{#R?l+lͅSvn0uPo>2{:{2{_(>2{͜kZnu('ͲgWTn=WTn(TnYZn8v^#V@o:{rH+~2\{!"b{skfPkR!{5:{(F^ 0j>+)o(>-)o(:{(0 $% }͜k͗k>/)oʛVno+F+V+^+V+^+++V+^+V+^+WfoF+~+2W{V+^+H~+(A͇R:W{ *:\{8̈́^dX:\{(* 8) $Pk*mIg*mg]m:i{XImok(^o(^onoz(͒k͎k>Ôk:\{(80r6:{vn0uvnQu͈o;R*`{[^{|rF===;;;}2\{TR'oum*s{ͺmm"^{>2\{>2]{!"b{TRvnMuvn`u ͛O:\{80rD*Z{"^{>!>!02\{"b{TRvnZu0oi$%r1,-r18o#>o!um͇m:{zmummo(no!{~42\{S^{"ummvo͛O[Z{r+s6HoZnu ~͕R5OHoZnu ~G2{{2{:{2{maLum͇m*{{*u{"{{*s{umumumum[{umumo R*s{umumvnu  ͇mo( o y2{O r!u"Z{p+q[Z{+r+so(no:{(&@o2{O:\{0r0:b{= Pk&{͜kPk͗k###?lͻ^2{2{͈o!{~(Pkf(Pk i:{r.͎kvnu "i:{r.ѷR#͊kPkRB> PkR>2{ o(:{͜k͗k^o(Bl:{˟͜k͗k:{:{ͅS2{2{o(vn0u(6wk͗k?lvnnu( ~2{+V+^i"{>2{Or$2{:{:\{rC͵N@o2{N:{(x=rK:{! *b{:{ :{ 0l *{"{++~(+:{w+r+s+[Z{r+s+++OvnBuO9PQ@QkQͥQQRr$TnV+^"Z{͇RvnHu0o;R*Z{*`{[^{R#|rb*{:{ GPk>!͔k!:͆kPk" >!͔k!,͆k>*͔k:{= Pk&*{|('[{R(:{( :{>Ĝk͊k͎k!"͂kPkHo"s{"u{"{{*s{[{{R#^#V~( ++~+(~rI*s{:{_um͇mzmumummo(*s{͛O͕Rvnbu> #:{rKTn !\{i{0 #r,V+^+V+^SX{͇R2W{~ö́^dXf Z!p !oUY4ok^o^noÆk Z!UY Z!!! Z`YþZ Zr?!(!ook^o͗^ Zr@!!Y!Z Z:\{ *^{qR*o{͎k Z!ZnoY:\{_^#VÆkp{-"^{-"`{i:{GX!{~OTn x_*{"{!{6Hi:\{n͋gok̈́^*`{qR:i{r,*k{| }0!()Pk+=< }8 Pk#<  0j͎kPk:{O(*m{[k{R#͎k!L͆k*^{͇R*b{| }=(.= Pk)$ Pk)]T):{g ͎k!͆k iPk:\{ oGh,^_W`^_W`Y\j 5:{_j2{x 1yO͜k͗k ’k!M͆k^kTn =W͇R*^{"{:\{GͲg \:\{0( f*^{"{:\{G͇R:\{Or>͋g*^{~ r>*`{~ r>*b{|r>e.͗k!8͆kn E!͆knͻ^x Or,vnu! gCmX*{͆knoþZ!! Zr%ok^ogok^o͗^o(okg:\{ :b{= rÅYfoͭ\ok^o͗^ok^o͗^!noÆkfo^^oͭ\ok:b{=g.^o͗^͗k! g:\{r"fo͢^Ha o ͗^okx (- o ͗^ok!x (.͒kokx ( !͒k͒k>2\{ZrnoII:W{O*X{:\{ 4g!# &:b{=g.͗k! (>! (>**X{͔kÆk Pk! sk(':{O( *^{[`{R(͎kR#͊k!V͆k PkPks:b{=Pk#r*X{ :b{=>" Pk}>2ÔkPk*͗k:\{ 0 (͋g!, ( !:(4g!]ÆR= ͆k=r/!=x  ( r/Pk|gPk}oÛ_ ( r/Pk|gPk}oÛ_`Znvxr/~Ha`= x !͆k `a_x !3(! ( ! r/͆k! (  ( r/Pk|gPk}o r/!(!E(!N(!Vvnyu "ax ( r/PozifoZrͲg7:\{8 0͋g:\{ɯ=>2{o(ZsZ8 [rA!͆kQ͋gZZg:\{8 ( 8rB :b{=g.͗k!!r (!D ( !N:b{= !M͆ko(no!:{Ćk:{G! Æk!:{w(!:{(!2{Æk>2{o( !͆k[Z8! e! Æk!fo^nox(;^ e e!"{e !fo!^nocfo^^o!fo^^o͗^^ook͗^no!k͆kfo^o ^!=͆kno!e!}Æko! ͗^no!; Æk!e!fY !!!er#͆k!UU!]]okͻ^xŹr,!͆ko(8oo ^noZnw ^#Vvn|u !͒k.dTnr)V+^ reGe!x (! Ækex (Pk˸!J!F !! ! !F!+  ! ! !4 e!x ̆k Æk!!ex  Æk>#>+eÜkePk&ePkl&ePk}lgok^oͭ\:b{=g.͗k!x (!Á\fo^^og:\{ ( :b{=> rok^og:\{ :b{= r! (!fo͗^!ok^o͗^.!HÆkfo͗^!]^o͗^]*^{qR*o{͒k!`Y]^o͗^]*^{qR*o{͒k!z`Y!!]]okfog:\{rfo͗^!k:{ >**{͔k:b{=Pk&͋g:b{= PknPk^#V*^{qR*b{:k{gÊk j 1xr<.a͗k"X{>2\{!t"^{!"`{i"b{bk>!*X{Ôk͇gr)Ͳg:{*{O G>!(>*͔kG >͔kPk h("Tn .vR:W{>!(>*!{p*X{"{:h(1i(ti(͟ivnxe> 2\{!"bk}oPk}/o|/g:{9j{2{b:{_Jj(x Pk}/o|/g#PkxG2{x 0( Pkokz x !͆k  x Pke.x Pk z ! ͆kz (0#( 8 Pkx sk!͆k Pkxr, {ȷyKr,*{|[{zRr[rA!͆k[b!͆k/!͆k\j !x ~,() !͆k^k[b^x8 8rB o A^Ha o ͗^x * o ok͗^!x .͒kx ok!͒kx!(!y (!& ( ! (!"͆ko&[no!÷Z!!"{:{r#!͆k*^{qRo $mer?(!=!D>fo͗^oko ͗^PkDMPk!no͆k Pko&>fo͗^oko ͗^PkPk!foTn(Tn ++V+^͒kgno foTn V+^͇R gl*b{ePkMhPk!9 0o͗^8ofo͗^nofo͢^foͻ^o( !{͘_"{`a_!h_x(## (##(##^#Vzr/.x 0r/! ͆k ok͘_xr/y(r,!O͆k T`Znvxr/~HaT` x Pke.`a0Jx!&()!  ((% r/=(PkPk`Yfogok^og!dv]fogok^o͗^ok^oͻ^!Nñ]! !!>Æk!!!k!b!Y9V! Âk͎^Pki~o͗^Pk*m^Ime~ook^x r^x r^x r^x r ! Æk^x r!Pke.͘_Zn%v~<(<=Ha*8o>2{| }=(E(okPk)<Pk:\{o:]{OTnr)vR*X{|!{F(͋g6*X{"{*{[X{"{:\{'o!{~ 4͋g6Pk^#V*^{͇R:\{n͋gok*b{͗^:{O( ͎k!L͆kPk8o> 2\{!"b{+"^{-"`{>2{ jr)ix riqcSQ`cSQRԅcSIΊcCOӏcARCTAΔcLΙcEXОcINԣcFRAècRANDOͬdPARAMCOUNԜdPARAMSTҡdLcHcSWAcPT+dIORESULdEOdEOLdSEEKEOdSEEKEOLdFILESIZdFILEPOdKEYPRESSE dMEMAVAIeMAXAVAIePORԿeSTACKPTeADDveSIZEOƝeBDOSHSeBDOTeBIOSHeBIOeME#"{*{[{R80[{:{Geryer !>S{*{~#"{ 2y:{2{:{2{*{#"{A[?_a{?qr0:?||r}DM!>))0 = BKgo>jB0 7?= ## ##+~͏q2y( yR[{:y [!{F(ˆl:{_!Wyp<,ll*Ty#"Ty2{*yRrb"y:y=( {k*{:{G(#^#VR8###+h&))DMT]+#s#r#s#r!{4:{G*{^#V#lF#lF#l:y=[yR}2{)lg[{[TyR(l"Ty! !{ANDIMOSHSHOXO<>< (IWRITELZWRITZREADL2ZREA3ZDELETf\INSERԇ\ASSIGCYRESEԹYREWRITžYCLOSYERASqYRENAMfYSEEˌYGETME͔]NEן]FREEMEʹ]DISPOSſ]MAR]RELEAS]OVRDRIV]CRTINI8^CRTEXI=^GOTOXm]CLRSCB^CLREOH^NORMR(GA(AU(;X(5V (/B@()C(#W(LK(D(F(RG(NP(Jr]$q~+( -(r]6!{~w$q~,o$q~͆rr]02{$q~͆r0 $q~:yr`*-\er!*s{[{S{R<|rc}o)x r 9j\j(rJjx xGٯ|/g}/o#~-(+Òox ( r͙jTnFx+ 8V+^ F+N+V+^+~+ngNWz (+~~'(^(# f!Wz~^($#(6' B#~r7' #~' w# #~ͦr7@#w# #}r8LFUBtTPPAEHtTPRUCERtTPTSNOCtTPNINOCtTPTUONOCtTPTUOTSLtTPNIXUAtTPTUOXUAtTPNIRSUtTPTUORSUtTPRORRE tAERBC    DER[{" y:y= 3yer{q{ tEGETNItAHCtAER tAELOOBtXETuTYB  URT SLAF  NIXAM !I P tUPTUO tUPNI tOC tRT tBK tSL tUA tSU uENˎ"Wyer3yer=rd{W{"{!9 *{d{W{"{!9 d{W{!9 zzm{*s{w+"s{k~qrr:n͸n~a8{0 zm#~͂r0*s{#Õo~qrr:*u{[s{Rum*s{"u{*{{*w{"}{:{(\y2{*u{[}{R 2VIDEM^HIGHVIDEM^LOWVIDER^INSLINW^DELLIN\^DELAى]BLOCKREA\BLOCKWRIT\RANDOMIZŃ]MOV^FILLCHA^EXIa^HALg^PORm^STACKPTx^FLUSȫYEXECUT~YCHAIyYSTҺ\VA"]BDOSeBIOeCH%dORdCOP`dLENGTAdPORdCONCAԁdSUCcPREcUPCAS7dTRUNþcROUNcODdAB|"{"{2{2y!"{:{2{:{2{Hp~#:{r[*{"{*{"{!yq ( ( ( 8w#2{~q͏q~q6*{#"{}(> :y(>I> > *{a.͠(. *** Abort compilation-r  :y *{~y= g:Wzo Õo$(3͆r0=͆r0ͦE(. .()( ͣr9 r8 F#~͜k#y͜k!Wz ~#͜k>)>%>!{͜kz>> >>>!͜k}͜k|G:y p#(=(*Rrl:y([{= [{:y([{*s{7Rrc*y%%Rrb )uuuuvv4vPROGRAENFORWAREXTERNAPACKEARRAFILSERECORSTRINOABSOLUTTHEELSDUNTINONI.:LABECONSTYPVABEGIOVERLAPROCEDURFUNCTIOBEGIwSISWHIL$TREPEALTFOkTCAS!UGOT&VWITNVINLINŘVT#DOWNT+.~)>:>;>,>.>( >)>=>^ݾÒonrnr ororo:{(r)ororor#orvnurvn`ur$q2{=2{~( ( ((({( ~* $qF~$(!$qx*~  ~) $q} $q$q~ͦI(M{=#^#V~(+~# ++F+H˸a8{0 y(͂r8"{S{~2{*{[{:{m[)o~(~.#Òo>])o~dSEEKEOLdFILESIZdFILEPOdKEYPRESSE dMEMAVAIeMAXAVAIePORԿeSTACKPTeADDveSIZEOƝeBDOSHSeBDOTeBIOSHeBIOeMEdSEEKEOLdFILESIZdFILEPOdKEYPRESSE dMEMAVAIeMAXAVAIePORԿeSTACKPTeADDveSIZEOƝeBDOSHSeBDOTeBIOSHeBIOeME 50 length 51 subrange base 52Lower bound > upper bound 53Reserved word 54 assignment 55 exceeds line 56Error in integer 57Error in 58 character in 60s 61 s ands 62Structureds 63s 64s and untypeds 65Untypeds Column:=0; End; End; End; { Of With } End; { Of For } End; { Of Proc } Begin Dir(0,5); (* 0 Means Drive A: *) (* 5 Means 5 File-Names In A Line *) End.  End; { 8 result 49  length 50 length 51 subrange base 52Lower bound > upper bound 53Reserved word 54 assignment 55 exceeds line 56Error in integer 57Error in 58 character in 60s 61 s ands 62Structureds 63s 64s and unointer 01';' 02':' 03',' 04'(' 05')' 06'=' 07':=' 08'[' 09']' 10'.' 11'..' 12BEGIN 13DO 14END 15OF 17THEN 18TO DOWNTO 20Boolean 21  22  23  24  25  26  27  28Pointer 29Record 30Simple(6 #( {w#6x2q(#Q!\q(a!\\!Q  a{ ointer 01';' 02':' 03',' 04'(' 05')' 06'=' 07':=' 08'[' 09']' 10'.' 11'..' 12BEGIN 13DO 14END 15OF 16PROCEDURE FUNCTION 17THEN 18TO DOWNTO 20Boolean 21  22  23  24  25  26  27  28Pointer(6 #( {w#6x2q(#Q!\q(a!\\!Q  a{ "/"""@2Ё!12 2*"*"rKB*"!ۂ &),HV]agqty Egmv"&^#V#{*N#F r+s!6#6q!C"* *#s#r####g#s#r7!}!*!y 0&! ~#fo(:z <2z!f!z64!6">2{G:|2{x4!  ^C$qqqq1:2_ :_:@. '. !<.    31Simple 32 33 34 35 36Type 37Untyped 40 label 41Unknown syntax error 42 in preceding definitions 43Duplicate label 44Type mismatch 45 46 and CASE selector 47Operand(s) operator 48 result 49  length  29Record 30Simple 31Simple 32 33 34 35 36Type 37Untyped 40 label 41Unknown syntax error 42 in preceding definitions 43Duplicate label 44Type mismatch 45 46 and CASE selector 47Operand(s) operator 4 are not allowed  can not be  constant  does not  expression  identifier  file  here Integer File Illegal  or Undefined  match  real String Textfile  out of range  variable  overflow  expected  type Invalid  p"/"""@2Б!12 2*"*"rKB*"!ے &),HV]agqty Egmv"&^#V#{*N#F r+s!6#6q  7*"! *o"![K<!ѷ(  :{>> 2|TURBO COM TURBO.COM not found. Re-insert disk in drive X: and hit RETURN$ 66I/O 67 s must be parameters 68 componentss 69dering of fields 70Set base 71 GOTO 72Label not within current block 73 FORWARD procedure(s) 74INLINE error 75 use of ABSOLUTE 90 not found 91Unexpected end of source 97Too many nest0- ,}l˸k 8 ́ # x(͙ -k 8 -k 8, }l8;*!# ! >8# # 8---͙ ,,,-xGg?+2n*8t z~,->"x"$}.́  ,͙ ́ ! >,.-͙ RR!+k = R!+k = !+k = !+k = !#k = !+k = T]KB!z> S>))0 = |  DMgo>jB0 7?= H<͡z5)<z {0Gɯgo,D!\$!$"$!$"$Ͱ,D*'D"AC"CC"1C"5C"9C"KCK+DC$6 #")D% Loading -\%$%wp<(.CmzKmzB %ww#% File not found×-ͨ$2% New File#!B*)D% File too big$2D8!!e 8˸x   ͠ ,-xG} }م 9 .>#n0  = - nx  ,-(-˸G,- }ٕ? 9.>R 88 ?= u+-(> 08  8R ?x  , 78ƀ8ƀ8ox٨!دo(   L). )!h6# (*(.(!8}(*(Ww#>?> w#a{ |e}nƐ'@'ý7||}>"C ""*B"[R*"^#V#^#V#N#FO/o&9O/o&9!9(ed WITH's 98Memory 99Compilerd WITH's 98Memory 99Compilerj _}8(8J`9{T]=o`9y $yWv4Copyright (C) 1983 BORLAND IncTelevideo 900 seriesg= *()0ATERP<~7#~= o&ͦoͦc|ͣ}!!" GOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨u xx( ?}ٽR }ց <( 7 = |٤g{٣_z٢Wy١Ox٠G 8͉ }x>"8}ƀ/ƀó ͙ - }> (G!9 w#EMw}8"RB0 >R:*C͍ (max *͍) ind run-time error uit ̈́!s##X#(#7^#VLWMECRSXDQOMCHSEFQ+##*0')A%N**>*"H&L&P&X&v&&#w!% Main file name,^!>2CK,C!\$!$"$ %% Work file name^!>2D Ͱ,8!Kx<8{(* !9O!T9^-l&!T9^~6#w!T9^K#^C#᯸( x # | }>$͙ >" 8# }>(́ x }} ˸T}ٕ(0D= ,= (  0% , 7 R ?(88 x  - d!9-!I-[[o&  :(y ͠|( r*"x2y( >28!"9!!>2 0&+!0 [ (!ePWA8Q0G: x@!\w# ~#(}:8= +ͥ*!v-!pͥ*|!!:(=2!-: <2!~!!Y:jO:l:kO:m!ͥ*n! !i45(!+/ 0y0( o&0%͔,# ͙ }g }؉}颋.:}8c~I$I~L*.ٷx˸́ }0G,\<}͔,-(- ! >0 $# o8 Á >"m.`1pF,t6|!wS<.z}[|%FXc~ur1}ٯx(<˸k 8́ !~Jk ^#VS!9[R8[R>O"w2x2!"" ͵*>2"!"""!\u*: ͭ!~6go(\R*s#r_2x( s x(T]DMR0 -a%Ù}Wo*!~6o&͠|ͣ}^C( #~#6$>!"N>!~8>O6*"w (=(&("( :( 8y(~#ͽ7+ (6*#~́*#~ *~(h#"b=  8ͽ ̶J= B== ͯ}8= ͵}/l !*###~-_~(4x(>-q{(ay(oe z(>.q (o =e{>Eq>+|(|Dg>-q|/ 0:p# ~# +>0w#,-  60# ˸}րogM͇| .( = ~> x0w#xG% % ZJDM%-_-K< =>:("^"*^˞*V˖0 SѷR8A* N#F#s#r 0})jS\*###w* N#FB ^r+s>!T]>)j)0 0= w: ͳ##N#F*B>w#w#[s#rò>2u*6 #-Nw#Fwq#p#6#w#w#w͞* :( Q: *^ F* < >26"~^*-w#0ͺO!Z>k 8 =  ͙ # ͙ ́ ͺ͙ 0 - OT0 j oD,:j !I}袋.}8c~I$I~L!>8# # ͙ # = Ù  (( #w(͕́̕q*#~ʶ (͕́ ͕ Õ*##~6[O*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46`>*:4^q}Q*|(|( 6-#Sy[R8 (G> QC~Q#6*>2>*##w:>*##~*#~(E͋ ( ( ( ͕!] ( ( ((w#(͕́̕6!]~-#8~>7́ Õ͕>O*{͍̈́s #r*{/͍ d͋ ͕ = _~65(+~">!2DM"~ʲx(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>>SѷR* s#r$ s#r*"[R0s#r>"[ww#Ͳ^"~ <@*u!\  >2*|>! * \$\<(!: [1Á\!(f"́> 2:!"Fnf^VNF!DLT\I!!53!r1!!> x #-= o˸x(-͙ }(x>8( , `i!>"| | >)=|(DMbo˸y88yx(0 8> *ͳyC!' !+TRUEFALSEy!9^#~#(G~Q#> Q> Q "F!(#R0ͳ*4#4>R *4 #4(Ͳ>>2*V(/˖:(#~+ x y!t( =( X:(R*:(###~*u"|>":( E *6#w*6#6 !\$!u[ (W( #:~CONTRMKBDLSTAUXUSR>2ͭ*#~ u*:> >w###6Õ  #6++p>2Su:*6###ww#w$w#Á @ >hìx-Sx9?+{Η@}|  gZJDM0 ,7}o˸ #yO!@9i&  #w#/w#w#!9! E9!!9~(+FM!"9!(#>2 User break1: I/O Run-time error e, PC=[R"` Program aborted*1!`!a<mͅ:Ê'&!vu!!v0z"p!v*p!v*pn&s*p#÷!v!vu!v*!"!*n&}2 * &'Rv,*!"!*n&!'**^}oE>,å,}R”,*&Eʑ,!}2å,{R¥,!}2*&**^}oE,!}2 ! !/ ! e.d!u!!*?!^*-^#Vͭ*-!z*-^#V*-^#VR!!!{.*&!! !{.}o}o!!n&!.}oEʣ& *!Eʶ&͊%*&}o*&}o}oE&M!!u!}2*{*R*ʑ "O*V*On&}2Q*Q&!E: *&}o}2È !*Q&ͱ*&Ep !!_e.!uÈ !! e.!u*O#!! ͱ!2E M!!! e.!0 !*V! e.!0!"Du!N-s BEGIN END IF THEN FOR ELSE DO REPEAT TO WHILE WITH UNTIL FUNCTION NOT OF OR CASE DIV DOWNTO EXTERNAL FILE GOTO IN R!Oe.*K?R͔*K!#e.*K?s#r*K^#V!$Eʛ$*K*K^#V!̀ *K*K^#VͭÉ%R®$͗É%R$*K É%R$*K É%R7%*K  *K^#V*K"n*&}oEL!*nz@"h!! ͱ*h#**n"!*zy"b!! ͱ*b#X}2_"`!u!*`0zʌ"X*`*Xn&}2Z*Z&R*&}o}2Ã*Z&!\*_&}oE!! ^#V!$}oE(͗c( R@(A&*v͔c(*v*v*z&e.͔!"!{"!B*s#r*!s#r*!s#r* !s#r*!s#r*!s#r*͔*͔*͔*R*M*!$EL'!*!̀!! e.!*ͭ!!z*{*R!"*!"*!!!}2z*"!{"v*z& R(*vn&E'*v!s(!*v^#V*v^#V*v^#VR^*v !5u!.e.!?!"3*3!0J!*3n&!0!9.}oEʏ!!5!*3n&e. !5u*3!"3'!!5E!@Error in parameter: !!0O!!5!3!1K*3*Ds#r!{"K*K!ss PROCEDURE ARRAY RECORD CONST MOD NIL PACKED PROGRAM ABSOLUTE SET SHL SHR STRING TYPE FORWARD VAR XOR INLINE LABEL ^#VR*K^#VR*K ^#VrE4%͗É%RR%*K!sÉ%R{%*K!s*K!sÉ%*K!s!{"-*-^#V*-^#VRM*-^#V!$E&*-*-^#V!̀*-! e.*-ͱ!MÃ*Z&!$Ev!*Z&ͱ*&E[!!_e.!us!! e.!uÃ*&}o}2*X#ä!! ͱ!2EM!!! e.!0"V*&E !u!*V0z!s#r*!s#r*!s#r*!s#r*!s**s#r!"*!!!* !s*!s*!s*!s!u!!0z)"!*!*n&s*#)!!?!*K0!R!Ee.*K?R͔*K!#e.*K?s#r*K^#V!$Eʵ#*K*K^#V!̀ *K*K^#VͭÉ% Rž$*K*K!Oe.*K?!*K0!*K!.e.*K?!!͚!Fu!FPLPLMTMBPOHEFOPAHMFMCPL+L-?"I*IRv"*K É%RŠ"*K É%R¢"*K É%Rº"*K É% R"*K  É% R¸#*K*K!Ee.*KE-!}2<-!!+?!^E5-!}2<-!}2d!u*&!"!0"d!u**rEO.,* &! Eʗ-,-* &!A!Z.E.*" d!u!* &e.d!u,* &!A!Z.}oE-B00}O!@{.HM00}O!@{.FM00}!@.FO}O!@{.PA}Or@{.MT00}O!@{.M×;!}2*&͠}oE;!}2!@{.HE }O!@{.FO }O!@{.MT00}O!@{.M turn listing on againOO@I Include files will only be listed if the {$I directive is in column oneO@F If you use the HE or FO directive then you can use the character "#"O@G to indicate where in the HEading or 2E%0!*!͵@I *&E20*!!!0Oó/Ù0@Include file: !!0@ not found. Listing stoppedOr! !\e.2!˜u͹.!ͭ{$I!?"z*z{$I+!?*z{$I-!?2!}2q! !\e.2!˜u!! ͱj(@Printing file: ! !0@ (Press any key to stop)O!̞!!!!ͪ).HE2!!!ͪ){.HE2}oE:͹.!}2:!}2q*q&!}2͍7E^ lines @ {.@CP10}O@ {.@7PA} immediate page break @ {.@PA}O@ {.@7PO } spaces in left margin @ {.@CP8}O@ {.@7HE <,EL.!e.!* ͭ!e.!*!ͭ*!"*!"l-"!u!!?e.2Eʬ.*!*͎!$Eʢ.!}2é.!}2ó.!}2*&!N{.HETURBO PASCAL Program Lister, Copyright 1983 Borland Inter! !̞P.}o}oE8!?e.! ?!$E>8͌1l8@File: ! !0@ not found.O@;Enter name of file to list (?) for help to skip: ! ! ͪ)! u7! 2E:@5Options: L(inenumFOoting you want the page number.O@O ---------------------------------------------------------------------------- OO@:Enter name of file to list (?) for help to skip: ! ! ͪ)! u! 2}oE1!"z*z!Eʋ1!}e.!?"x*x*z^Eʋ1!*z!*x*z!Rͪ)!u!2Eʋ1>/!!zʵ1"r! ͱ*r#×1@+ TURBO SOURCE LISTEROO@= *&EB;*!"!2EB;!*!͵@ *&EO;*!!!0O;0!̞\}oEʐ;!̞!×;!}2*&͠}oE;!}2!@{.HE }O!@{.FO }O!@{.MT00}O!@{.Mtext>} place as heading on each page @ {.@HEProgram test}O@ {.@7FO } place as footing on each page @ {.@FOContinued..}O@ {.@L-} turn listing offO@ {.@!L+} *͎!$Eʢ.!}2é.!}2ó.!}2*&!N{.HETURBO PASCAL Program Lister, Copyright 1983 Borland Inter*͎!$Eʢ.!}2é.!}2ó.!}2*&!N{.HETURBO PASCAL Program Lister, Copyright 1983 Borland Interbers M(ark reserved words (L,M,LM)? ! O!Le.!?!^!le.!?!^}oEʥ9!}2 Stmt Source Code !uø9!}2!u!Me.!?!^!me.!?!^}oE9!}2:!} ExampleO@O -----------------------------------------------------------------------------O@ {.@7PL } sets the pagelength to lines. @ {.@PL66}O@ {.@7CP } new page if Use this program to make a listing of your programs.O@@ To format your print you may use the following directivesO@+ in your source code:OO@E Directive Explanation {/* TURBOPASCAL LORES-GRAPHIC TOOL BOX. APPLE CP/M, TURBO PASCAL 3.0 VERSION, FILE: TURBORES II/LORES OR II/LORES, VERSION 1.1 BUGS CLUB 1989/9/15 PROGRAM BY LEE TAE-KYOUNG. MV - ADDED DISASSEMBLED LISTING TO DO: DEACTIVA2/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE LORESBOX( _X1,_Y1,_X2,_Y2 : INTEGER ); BEGIN LORESHLINE(_X1,_X2,_Y1); LORESHLINE(_X1,_X2,_Y2); LORESVLINE(_Y1ORESPLOT( _X1,_Y1 : INTEGER ); BEGIN INLINE($2A/_X1/ { ld hl,(_X1) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45) } $45/ { ld b,l } $21/$00/$F4/ { ld hl,0xF400 } $70/ { L1 ld (hl),b } $23/ { L2 inc hl } $7D/ { ld a,l } $FE/$78/ { cp 0x78 } 7); { ld (hl),a } END; PROCEDURE LORESVLINE( _Y1,_Y2,_AT_X : INTEGER ); BEGIN INLINE($2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_Y2/ { ld hl,(_Y2) } { jr c,L1 } $FE/$80/ { cp 0x80 } $38/$F6/ { jr c,L2 } $FE/$F8/ { cp 0xF8 } $38/$EE/ { jr c,L1 } $2E/$00/ { ld l,0x00 } $24/ { inTE MOUSE TEXT ON //e */} { /* LO_RES_GRAPHICS */ } PROCEDURE VIEWLORES; BEGIN INLINE($32/$54/$E0/ { ld (0xE054),a } $32/$56/$E0/ { ld (0xE056),a } $32/$52/$E0/ { ld (0xE052),a } $32/$50/$E0); { ld (0xE0BEGIN INLINE($2A/_X1/ { ld hl,(_X1) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_X2/ { ld hl,(_X2) } $7D/ { ld a,l } $32/$2C/$F0/ { ld (0xF02C),a } /$F0/ { ld (0xF045),a } $21/$00/$F8/ { ld hl,0xF800 } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE LORESHLINE( _X1,_X2,_AT_Y : INTEGER ); $38/$F9/ { jr c,L1 } $FE/$80/ { cp 0x80 } $38/$F6/ { jr c,L2 } $FE/$F8/ { cp 0xF8 } $38/$F1/ { jr c,L1 } $2E/$00/ { ld l,0x00 } $7D/ { ld a,l } $32/$2D/$F0/ { ld (0xF02D),a } $2A/_AT_X/ { ld hl,(_AT_X) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $21/$28/$F8/ { ld hl,0xF828 } $2c h } $7C/ { ld a,h } $FE/$F8/ { cp 0xF8 } $20/$E6); { jr nz,L1 } END; PROCEDURE LORESCOLOR( _X : BYTE ); BEGIN _X := _X * 16 + _X; MEM[ $F030 ] := _X; END; PROCEDURE L50),a } END; PROCEDURE TEXTMODE; BEGIN INLINE($3A/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0); { ld a,(0xE051) } END; PROCEDURE CLEARLORES( _X : BYTE ); BEGIN _X := _X * 16 + _X; INLINE($2A/_X/ { ld hl,(_X $2A/_AT_Y/ { ld hl,(_AT_Y) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $21/$19/$F8/ { ld hl,0xF819 } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $7 { L1 ld a,(hl) } $EE/$FF/ { xor 0xFF } $77/ { ld (hl),a } $23/ { L2 inc hl } $7D/ { ld a,l } $FE/$78/ { cp 0x78 } $38/$F6/ $24/ { inc h } $7C/ { ld a,h } $FE/$F8/ { cp 0xF8 } $20/$E9); { jr nz,L1 } END; PROCEDURE INVLORES; BEGIN INLINE($21/$00/$F4/ { ld hl,0xF400 } $7E/ ,_Y2,_X1); LORESVLINE(_Y1,_Y2,_X2); END; PROCEDURE LORESBOXFILL( _X1,_Y1,_X2,_Y2 : INTEGER ); VAR _X : BYTE; BEGIN FOR _X := _Y1 TO _Y2 DO LORESHLINE(_X1,_X2,_X); END; FUNCTION LORESSCRN( _X,_Y: INTEGER ) : BYTE; BEGIN 1/$00/$30/ { ld hl,0x3000 } $7E/ { L1 ld a,(hl) } $EE/$FF/ { xor 0xFF } $77/ { ld (hl),a } $23/ { inc hl } $7C/ { ld a,h } DED DISASSEMBLED LISTING ADDED //e COMPATIBILITY TO DO: COMPILE TO A .COM DON'T WORK */} { /* HIGH_RES_GRAPHICS */ } VAR INITHEAPPTR : INTEGER; PROCEDURE VIEWHIRES; BEGIN INLINE($32/$00/$E0/ { ld (0xE000),a } { //e } CEDURE LOADLORES( _PICNAME : _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; _LOBYTE : BYTE; BEGIN ASSIGN(_FP,_PICNAME); RESET(_FP); FOR _COUNT := $F400 TO $F7FF DO BEGIN _LOBYTE := LO(_COUNT); I $2A/_COLORMASK2/ { ld hl,(_COLORMASK2) } $4D/ { ld c,l } $21/$00/$30/ { ld hl,0x3000 } $70/ { L1 ld (hl),b } $23/ { inc hl } $71/ END; CLOSE(_FP); END; ((_LOBYTE >= $78) AND (_LOBYTE <= $7F)) OR (_LOBYTE >= $F8) THEN WRITE(_FP, MEM[_COUNT]); INLINE($2A/_X/ { ld hl,(_X) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_Y/ { ld hl,(_Y) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $21/$71/$Fa } { //e } $3A/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0); { ld a,(0xE051) } END; PROCEDURE CLEARHIRES( _X : BYTE ); CONST COLORMASK : ARRAY[0..15] OF BYTE = ($0,$0,$2A,$55,$55,$2A,$7F,$7F,$80,$80,$AA,$D5,$D5,$AA $3A/$57/$E0/ { ld a,(0xE057) } $3A/$55/$E0/ { ld a,(0xE055) } $3A/$52/$E0/ { ld a,(0xE052) } $3A/$50/$E0); { ld a,(0xE050) } END; PROCEDURE VIEWTEXT; BEGIN INLINE($32/$01/$E0/ { ld (0xE001),F NOT ((_LOBYTE >= $78) AND (_LOBYTE <= $7F)) OR (_LOBYTE >= $F8) THEN READ(_FP, MEM[_COUNT]); END; CLOSE(_FP); END; PROCEDURE SAVELORES( _PICNAME: _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEG { ld (hl),c } $23/ { inc hl } $7C/ { ld a,h } $FE/$50/ { cp 0x50 } $20/$F7); { jr nz,L1 } END; PROCEDURE INVHIRES; BEGIN INLINE($2{/* TURBOPASCAL HIRES-GRAPHIC TOOL BOX. APPLE CP/M, TURBO PASCAL 3.0 VERSION, FILE: TURBORES II/HIRES OR II/HIRES, VERSION 1.1 BUGS CLUB 1989/9/15 ORIGINAL PROGRAM BY BYUN, SEONG_WAN PROGRAM MODIFIED BY LEE TAE-KYOUNG. MV - AD8/ { ld hl,0xF871 } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } LORESSCRN := MEM[$F045]; END; { /* LORES PICTURE LOAD & SAVE */ } TYPE _NT = STRING[12]; PRO,$FF,$FF); VAR _COLORMASK1, _COLORMASK2 : BYTE; BEGIN _COLORMASK1 := COLORMASK[ _X*2 ]; _COLORMASK2 := COLORMASK[ _X*2+1 ]; INLINE($2A/_COLORMASK1/ { ld hl,(_COLORMASK1) } $45/ { ld b,l } THEN WRITE(_FP, MEM[_COUNT]); END; CLOSE(_FP); END;GIN _LOBYTE := LO(_COUNT); IF NOT ((_LOBYTE >= $78) AND (_LOBYTE <= $7F)) OR (_LOBYTE >= $F8) ER; _LOBYTE : BYTE; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $F400 TO $F7FF DO BEGIN _LOBYTE := LO(_COUNT); IF NOT ((_LOBYTE >= $78) AND (_LOBYTE <= $7F)) OR (_LOBYTE >= $F8) $FE/$50/ { cp 0x50 } $20/$F6); { jr nz,L1 } END; PROCEDURE HIRESCOLOR( _X : BYTE ); CONST COLORMASK : ARRAY[0..7] OF BYTE = (0,$2A,$55,$7F,$80,$AA,$D5,$FF); BEGIN MEM[ $F0E4 ] := COLORMASK[ _X ]; END; /$79/$07/ { STY $0779 } $A9/$02/ { LDA #$02 } $85/$36/ { STA $36 } $A9/$C1/ { LDA #$C1 } $85/$37/ { STA $37 } $A9/$91/ { LDA #$91 } $20/$ED/$FD/ RESS6502) } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } HIRESSCRN := MEM[$F045]; END; PROCEDURE DISABLEHIGRAPHIC; BEGIN INLINE($32/$01/$E0/ { ld hl,(_Y2) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_X2/ { ld hl,(_X2) } $22/$45/$F0/ { ld (0xF045),hl } $21/$3A/$F5/ { ld hl,0xF53A } $22/$D0/$F3/ { ld { ld (0xF0E6),a } INITHEAPPTR := HEAPPTR; HEAPPTR := HEAPPTR + $2000; ERRORPTR := ADDR( DISABLEHIGRAPHIC ); END; PROCEDURE HIRESHARDCOPY; CONST DOUBLE = 0; ENLARGE = 0; INVERSE = 0; VAR BIT_DENSITY : BY LDA #$01 } $60); { L1 RTS } END; BEGIN _ADDRESS6502 := ADDR(_6502HSCRN); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADDRESS6502 := _ADDRESS6502 + $2000; INLINE($2A/_ PROCEDURE HIRESPLOT( _X1,_Y1 : INTEGER ); BEGIN INLINE($2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_X1/ { ld hl,(_X1) } $22/$46/$F0/ { ld (0xF046),hl d de,0x3000 } $ED/$B0); { ldir } END; PROCEDURE INSTALLHIGRAPHIC; BEGIN IF ABS(HEAPPTR-RECURPTR)<$2500 THEN BEGIN WRITELN('INSUFFICIENT MEMORY!'); WRITELN('PRESS CTRL-C !!'); READLN; { ld (0xE001),a } { //e } $3A/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0/ { ld a,(0xE051) } $2A/INITHEAPPTR/ { ld hl,(INITHEAPPTR) } $01/$00/$20/ { ld bc,0x2000 } $11/$00/$30/ { l(0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE HIRESLINE( _X1,_Y1,_X2,_Y2 : INTEGER ); BEGIN HIRESPLOT(_X1,_Y1); HIRESLINETO(_X2,_Y2); END; PROCEDURE HIRESBOX( _X1,_Y1,_X2TE ABSOLUTE $F046; MODE : BYTE ABSOLUTE $F047; _GO_6502 : INTEGER ABSOLUTE $F3D0; _Z80_PNT : INTEGER ABSOLUTE $F3DE; PROCEDURE _HIRESHARDCOPY; BEGIN INLINE($8E/$79/$04/ { STX $0479 } $8CX1/ { ld hl,(_X1) } $22/$46/$F0/ { ld (0xF046),hl } $2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_ADDRESS6502/ { ld hl,(_ADD} $21/$57/$F4/ { ld hl,0xF457 } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE HIRESLINETO( _X2,_Y2 : INTEGER ); BEGIN INLINE($2A/_Y2/ END; INLINE($21/$00/$30/ { ld hl,0x3000 } $01/$00/$20/ { ld bc,0x2000 } $ED/$5B/HEAPPTR/ { ld de,(HEAPPTR) } $ED/$B0/ { ldir } $3E/$40/ { ld a,0x40 } $32/$E6/$F0); EGIN INLINE($20/$11/$F4/ { JSR $F411 } $B1/$26/ { LDA ($26),Y } $25/$30/ { AND $30 } $29/$7F/ { AND #$7F } $F0/$02/ { BEQ L1 } $A9/$01/ { ,_Y2 : INTEGER ); BEGIN HIRESLINE(_X1,_Y1,_X2,_Y1); HIRESLINETO(_X2,_Y2); HIRESLINETO(_X1,_Y2); HIRESLINETO(_X1,_Y1); END; FUNCTION HIRESSCRN( _X1,_Y1: INTEGER ) : BYTE; VAR _ADDRESS6502 : INTEGER; PROCEDURE _6502HSCRN; B{ JSR $FDED } $4C/$93/$FE); { JMP $FE93 } END; BEGIN BIT_DENSITY := 75 + DOUBLE; MODE := ENLARGE SHL 6 OR INVERSE SHL 5 OR 2; _GO_6502 := ADDR(_HIRESHARDCOPY) + $1000; MEM[_Z80_PNT] := 1; END; r <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́x!D9N #^#Vh&D9! 9! 9^#Vh&D9!"x/o&9p#HR>' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> ; CLOSE(_FP); END;EGER; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $3000 TO $4FF7 DO WRITE(_FP, MEM[_COUNT])}>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M {ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2! { /* PICTURE LOAD & SAVE */ } TYPE _NT = STRING[12]; PROCEDURE LOADHIRES( _PICNAME : _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); RESET(_FP); FOR _COUNT := $3000 TO $4FF7 DO READ(_FP #~ͦ08) 8 ! 80T])) T])_y|}&#9N8w!DB9+O#>) W _}8(8J`9{T]=o`9y ))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd }  8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ց""*B"[Ru*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͺw}8) >' ́ ͬ͗  d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!e!"~#(}:$= +*!5!*!!:(2!5:(>2!!!:O::O:!*! !45(! +/ 0y0( ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͘\$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#})jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"22i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"͗ o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j(ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> :4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 ˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = _~65+~2>2L:>!(* w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k! !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ!>22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0}?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR>?O#60 #WyOh(yDOyƀZ?y@~0? GD??hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&{/* TURBOPASCAL PADDLE TOOL BOX. APPLE CP/M, TURBO PASCAL 3.0 VERSION, FILE: II/PDL, VERSION 1.0 BUGS CLUB 1989/9/15 PROGRAM BY LEE TAE-KYOUNG. MV - ADDED DISASSEMBLED LISTING */} { /* PADDLE */ } FUNCTION PDL( _X : BYTE ) :" `!"*L͊\L͊\L͊\!}2!*&"*Ͱ_![Ez`L͊\*Ͱ_͟VL͊\L͊\*&ZR™`*&#}2`R`*&!͕E`*&+}2`!,}2L͊\`R`!,#}2*&!,͕E2`ʹ[E$1000; MEM[_Z80_PNT] := 1; END; { /* PICTURE LOAD & SAVE */ } TYPE _NT = STRING[12]; PROCEDURE LOADHIRES( _PICNAME : _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); RESET(_FP); FOR _,0x2000 } $11/$00/$30/ { ld de,0x3000 } $ED/$B0); { ldir } END; PROCEDURE INSTALLHIGRAPHIC; BEGIN IF ABS(HEAPPTR-RECURPTR)<$2500 THEN BEGIN WRITELN('INSUFFICIENT MEMORY!'); WRITELN('; REPEAT UNTIL KEYPRESSED; DISABLEHIGRAPHIC; END. {OF MAIN}); VIEWHIRES; HIRESCOLOR(0); FOR X:=30 TO 60 DO HIRESBOX(X*4,X*4,X*2+50,X*2+30); INVHIRES; DELAY(500); INVHIRES1 } $60); { L4 RTS } END; BEGIN MEM[ $F006 ] := _PITCH; MEM[ $F007 ] := _LENGTH; _ADDRESS6502 := ADDR( _6502SOUND ); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADD BYTE; BEGIN MEM[ $F046 ] := _X; INLINE($21/$1E/$FB/ { ld hl,0xFB1E } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } PDL := MEM[ $F047 ]; END; FUNCTION TO $4FF7 DO WRITE(_FP, MEM[_COUNT]); CLOSE(_FP); END;AR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $3000 COUNT := $3000 TO $4FF7 DO READ(_FP, MEM[_COUNT]); CLOSE(_FP); END; PROCEDURE SAVEHIRES( _PICNAME: _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $3000 {/* TURBOPASCAL SOUND TOOL BOX. APPLE CP/M, TURBO PASCAL 3.0 VERSION, FILE: TURBO/SOUND OR II/SOUND, VERSION 1.1 BUGS CLUB 1989/9/15 PROGRAM BY LEE TAE-KYOUNG. MV - ADDED DISASSEMBLED LISTING */} { /* SOUND */ } PROCEDURE SO ^!L!k͊\*#^!͟V!8 !2!\*&"}2*&! ͩEl_*&!@}2*&e.!Ήv![E0_L͊\*&e.!Ήv"*`"*R_!" `(R_!" `0R_!" `9R`!RESS6502 := _ADDRESS6502 + $2000; END; PROCEDURE BEEP ( _X : INTEGER ); VAR _COUNT : INTEGER; BEGIN FOR _COUNT := 0 TO _X DO MEM[ $E030 ] := 0; END;BUTTON ( _X : BYTE ) : BYTE; BEGIN BUTTON := PDL( _X + 5 ); END $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } PDL := MEM[ $F047 ]; END; FUNCTION PROGRAM HIGH_RES_GRAPHICS; (*$I II-HIRES.P *) VAR X : INTEGER; BEGIN {OF MAIN} INSTALLHIGRAPHIC; CLEARHIRES(3); VIEWHIRES; HIRESCOLOR(0); FOR X:=30 TO 60 DO HIRESBOX(X*4,X*4,X*2+50,X*2+30); INVHIRES; DELAY(500); INVHIRESDEC $07 } $F0/$09/ { BEQ L4 } $CA/ { L3 DEX } $D0/$F6/ { BNE L2 } $A6/$06/ { LDX $06 } $D0/$EF/ { BNE L1 } $F0/$ED/ { BEQ LUND( _PITCH,_LENGTH : BYTE ); VAR _ADDRESS6502 : INTEGER; PROCEDURE _6502SOUND; BEGIN INLINE($AD/$30/$C0/ { L1 LDA $C030 } $88/ { L2 DEY } $D0/$04/ { BNE L3 } $C6/$07/ { nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKq:  #~x> (> ( No file ~<2q{nf"o{#,*o{ͥ,`i,Bytes Remaining On X: Ra.>k_er |,,( ͽ,0:q{)New drivea" : ͦA er2_e>:D(,Workfile 51 not saved. Save2D!-P-!E\$ Saving \-*FE+6%&er!]l2D<2D\&*DE&er<(NWyer~#G& >Wyx xր> \er\! 6T] Directory :2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'^!*"HE!zd k(?>.&E!y % Error found in above include filez-( E!D v.* y*Disk or directory fullv.;"Run-time error position :BE'(:D=(;=3+z-!E(!D3y >C!OM22D*-D!\$!%"%& Work file namea">2E ͏-;"*-E!\p R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"D%>2D3y$2y*" y*FE6#"y':D=ʪ(= >C!OM>C!HN22y*D"y*D" y3y&erer Compiling 3y(  --> -͟-JE:y  Compilation aborted;" li Disk fullv.&&:D2D!]l2D%&;">>>2Dß-Start addressa"! -"DEnd addressa"*< -"D *| ;"Enter PCa"-"'!"y>2y Searching͟-(K-P-z-!E P--(&!%"}%!%"%Ä :BE:AEĤ-͏-K-%:D=(2BE;"---------------------------------------  *< "D<2D >(!TURBO Pascal systemkV!Version 3.00A V!CP/M-80, Z80 Copyright (C) 1983,84,85 ̈́BORLAND Inc. (! Term"B!B"Ñ.@>*i-&͢*B";"&3+'&}!>O!VR .!&ѷ( Programa"!>C!OM .(!\:D!!!PD!!Dir maska"er:\( =_erA2,Wyer&O<(RyO!ay ~ =!Wy  :h=0$!%"%!%"}%͏-E*DE"`D"bD"PD"TD"XD"jDKHE;%6 #"FE Loading -\&$&Wyer<(.Cm{Km{B %&Wyw#ü% File not foundv.͠%2 New File#!*FE File too big%2E;"!e6B#6A#6K!F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|nes :yp):y z*not found ;"( *y R.#Code: [y*y+8#*y.#* yData: 8#>2BEZ*0sGError &ha.:AE(f*B~(^ 80O#0#( ~# #: ~ (7 0![B 0  ( #z*found2D:y compiler ptions Text: [DE*FE+8#[FE*HEFree: շR\. bytes (ͯ>-ͯ>)= compile ->  V!!y#>:Da#emory a#om-file a#cn-file :D(]tart address:*Dͯ (min ! ͯ) nd address:*Dͯinal: !S Include error messages!-2AEĤ-͏-z"{!;"ͦ!`$r$ P$8: z >ogged drive:Aork file:51ain file:D-dit ompile un ave eecute ir uitr (Y/N)? ͦY(N N->P!AS2e"f:\er<2\:EK- z- $E!D$>2D:D&%:DE!D #*DE6 #"FE2D2D2BE*B"DE}!>M!SG .2AEv.(!%"%!%"}%\%*FE6#"DE!ͦ0 8 ))))o@#+t{ ~;:h=G<͡<<:lDG(~;0< (:h=GF(͡<<#>[RD͑A#"D;0+͡<<[D;(~;0< (͋<~;0  0@͙<:(M>FF @[dD;87[fD;8!,FF ![`D;8[bD;(0 :Fk:FÄ:=͇6*D[`D"`D "bD?*`Dͩ3b7<6,=͇6*D"`D "bD@,=b7F(#>#[RD͑AD>t{R[PD"D[`D;[bD8;0 *`DR"DMD?KDy/Ox/G[D*`DF@>*`D;"PD*TD[`D;8[bD;0*PD"TD*bD[`DR,=MD@?*PD"`D"bD,=b7!D͖7D~ s6!"vD2xD͢<<:h88 !*͢51!BLine !BCol !:rD BInsert BOverwrite :yD BIndent:lD<*xD(2xD!͢0[vD*PD;ʤ7ͤ7[DE*PDRMDy(> 02B͏B ! ͢<>0*PD"vDä70G> |#"RD*RD?#>[RDկR0<2q{+;8+*PDͱA@>*PDͱA"PD@,=!t{"RD*A8?*A0;8 :q{ #>#*A8*PDAk::qD*RD"hD@>*PDA"PD,=!C"r{ :!C"r{2qD"PD,=FN7*RD[hDRA6  N7*RD?{6 ;(#×A!t{"RD?:@>*PD ;?f(;ȾV( 30ɾkb)))͏B(N aͩ3͖;N U>Replace (/): nf͢2B͏B  y !͢2B͏B  y qB>ͦY( NƯ2BE:DO:DO0f *D?x(!D͏BGA ,=9Af F@>,=*`D[bD@>:  x>./-!\Q.:DwQ.>wQ.6- not found&<͛&. Press   *FEr+sS{2tD<2uD!C"r{!lD>*DEͩ3:D=(!͢:DG> ͖;/:/0.(!.z8 2DW2BE!WD[D[PD"PD:i A*PDAͽ7@>*PD*jD:iGͱAͽ78[jD;0ͱA*jD[PD;@>@>*jD:iGͱA@>:iOG*jDͱA"jDA*PDͱA"PD@GA,=@>:iGO*jDA"jDA*PDA*jD[DE;(GA@>*DE"PD"jD@,=!t{"RD?F(ͭ7q7Ư2BE> b7*RD"fD*PD"bDNF A(>(*RD"dD*PD"`DF@>*`Dé3@>*bDé3&ͧ7!t{<N7GA@>*FEé3!t{"RD?#>#{;8!{"RD?6!rD~w6!yDfnâ*PDͱA@>*PDͱA"PD@,=*PDA@>*jD[DE;@>*PD[jD;(A>0(-'11d1 1R8<00 E-: #V6#:/0^ :D>y 6 ~04J ~(~ͨ/#4 1 - qB( (( 1_~ݾ04s~#ͨ/~8V÷1~5+~ 1B>ɯ2~D1 2U>ͱA8 RMD&;,=D>*PDͱA,=++?:( Y:i=ͼ;,=9A,=#>[RD;8~ (8*A8*sA*A8%*PDA7z7B;*RD *RD<8"RDsA?×AsA~ (͏B¤7ͬ;0ä7ͬ;0ä7:uD!i74 &o͢*jDG( ͱA0<<<#[FER#{+[DE> ;8 ;<6,=>Write block to filef5*-&<(">Overwrite old \--(&*bD~6 >*`D͒&wD;1D>Read block from filef5*-&<  >\>.?<6*FE[HE RDM*D7?!5*DR!5"}%`%"bD*D"`D*m{RDM![D5><6,͊/6qB2D!BE6*RD{;0FAw#͗A"RD?ý.qB( !D6#w!DB/ !DiC/7=( !C ^#V7͊/qB4#ẘ/2B͏B!͢!D~#~ͨ/= < >^@ N#0O # >>O 2B͏B!t9ͤ7 Fk:C.Ar:P9*PD,=@>ͱA"PD!t{"RD?@,=P9 *PDͱA<,=@>:b9A#>#[RD͑At{R*PD7?6 #6 *RD<"RD?*RD;@>*XD;"PD*ZD/9 :9*RD*A8;8"RD79&7*PDA82@>"PD@,=#>*RD<8*A8<8*A0DGf(=_0F(3~838T(4 K6F( 4~8386f;:~D04^ KD CDx E48f(*D423ͩ3^>Search string not found?ͯ3,=[FE;8;"PDRt{"RD?@[DE͑A*FE+ÑA08:A8 [a8{طf(FindD;1>Replace withD>OptionsD;1:hg%.â>2~D1 2 2͊/6@>#>#[RD͑At{R[PD"D!DF6(C#~08:0 &40_0.+ͦW U N G B { SD*DE:}Dg(*FE_ *D"Df [FE;Ҁ3;ڀ3D:™> : 2tD:i=o&͢> !͢Y*PDSdDSfD!t{6~[`D; "dD[bD; "fD X6 #(e;0[bD;0!"fD[`D;0!"dD>2oD6 #*RD?FN7:uD=N7 (w# ;0D=>Line too long - CR inserted?!}p #~ͦ08) 8 ! 80T])) T])_y|}&#9N8w!DB9+O#>) W _}8(8J`9{T]=o`9y 2!!!:O::O:!*! !45(! +/ 0y0(2lD:h==2pDb72pD2lD6b7F*jD[DE͑A"jD[PD;@8E[PD;( Ay2B"jD6x :(:i=8 !͢ b GA[PD;( ͱAy2Bx @:i=_yW81 FA0':uD8!(2uD*jDBͱA ="jDsq*jD :i_yO0ͱA y "jDGAx!D9N #^#Vh&D9! 9! 9^#Vh&D9!"x/o&9p#HR>' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> 777"88r8q7z7M8_88h7<7E797;ҺBsxx&7796 s4+r7,1;2K2{t{{t{{t{Y{Y{{{{ PB9,=ͤ; >B6!͢ !{s{+; {;PYÑA#>#MD*dD4>"dD*fD4>"fDi`#t{R:oDO0*PD?*PD!t{A(%~[dD; "`D[fD; "bDw##+> w*HER8&B >0B byte(s) left?>ERROR: Out of space?ý.>*** {ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2!  d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!e@@:uDo:i}(=(2uD*jDͱA"jD =:i=ü;[r{Ⱦ(7:qD 02uD6 F( *dD;8 "dDN( *fD;8 "fDLA!{R(MDkb#!{6 ;ͤ7:h=*RDGA<*FE+RDMT]8 > A7MD> ;8 ;(8 #`iLA{R+MD{kS>))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } ]Tͫ>SFEx 8 G 2By(*`D͎?"`D*bD͎?"bD*jD͎?"jD*PD͎?"PD*TD͎?"TD*XD͎?"XD;طB [FERMDx 8 G 2By(SFE[dD͑AF("dDN[fD͑A"fDt{:h=OR}88<""*B"[Ru*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#Eͺw}8,[].*+-/$:=(){}^#' 89999 :b+y(6 ͢F(:CE2CE*\D"^D>B*^DcB[\DR͠w"^D#m{R!Y{[\D*^DR( cB~"\D[\D*^DR{ SDEXWZ/-BNTHCV 8 (8~wPT] ) >' ́ ͬ͗ (ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> ?O#60 #WyOh(yDOyƀZ?y@~0? GD??hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&r <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#}}>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M 2i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR> ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͘:4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 ˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = _~65+~ 8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցw(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k! !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ! o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j>22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0}O CANCEL ̈́!o&"U*U!E/()*U! ͒EB((!!! !DM! !DM! *WDM! ! !DM! *W!DM! !! fz("Y![!*Y!*Yn&s*Y#ð(![!!n&s! !DM- !"!*!n&"*!*!}oEG"Ì"*f!͛ͺ ->  !*!n&f!͛ *!" "͛ ͛ͺ---- LOWERCASE STATUS ---- ͛ͺ(40 COLUMN ONLY):  k!n&R#͛ͺEnabled 7\$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*fz.&"!*!*n&s*#&!*!!s͛ͺLowercase Enable/Disable?(E/D) !o&}2l͛ *l&ERʟ&eR¬&!!s&DR&dR&!! s&͛ͺincorrect responce ͛ͺ#CTRL-A,K inp:2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'1!d!,UB>))jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"2RfzH$"!!*n&*E?$!*"*#$͛ ͛ͺADD CHAR ! *!"#*! Eʦ$͛ͺ Full X%!**s͛ͺ -(for HELP,-1)-> !N *!E8%͛ ! !f# R##͛ͺDisabled 7#͛ͺUnknown ̈́͛ ͛ͺ$---- CTRL-A,CTRL-K INPUT STATUS ---- ͛ͺ(80 COLUMN ONLY):  k!n&9R¹#͛ͺEnabled #ZR#͛ͺDisabled #͛ͺUnknown ̈́!*!nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqut Enable/Disable?(E/D) !o&}2c͛ *c&ERJ'eRW'!!9s×'DRk'dRx'!!Zs×'͛ͺincorrect responce ![!"Wk͛ͺ5PUT 60K CP/M SYSTEM DISK IN DRIVE A: AND PRESS RETURN ͛ͺOR PRESS T"͛ͺ CTRL- !o&!@R*s#r*^#V́!!͛O}oEe!͛!" !"*!RBҞ!͛ͺCTRL-*!@" ! ~R¹!͛ͺ$7E !R!͛ͺRUB !͛*" ͛ͺ---- KEY_BOARD STATUS ---"~ʰ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pSZѷR&* s#r$ s#rL <?*L!\  <( !\$>2>2L:>!(* z/%"}*}͛!&!="*}" *}#%͛ *!Eʶ$!**s*!Eʋ%͛ͺNothing to Delele F&͛ ͛ͺ DELETE CHAR ! !"#*!E%͛ͺ Not Found F&*! E.&*! !F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|p R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"! *WDM! ! !DM! *W!DM! ! !DM! !DM! *WDM! ! !DM! *W!DM! ![!!n&s! !DM! *WDM! ! !DM! *W!DM! >!!1!d!UTB>S2:W:U:R:P2:T:QJP*UU*ժ}2!:P*&!n&}2!:P*&!!n&}2*E*M!0p#q#|P !0~w#|P ûP*U}2!!P*&n&s""*}2E*"F!W"*wm*b{"o{*^{͇R0o"{́*{n(+Jvnu J"{͛"{͑*{o(8o!Wz "{*{!Wz:^{_:o{G~͜k#Im i:b{=G0O^kȯ͜k ix ( r͗kJ:b{=}ʜk×ki:\{r,[^{͍r8 [`{͍rr-*s{*s{um͇m*s{AR,aR,I$~,DR-,dR3,Y%~,LRG,lRM,G&~,CRa,cRg,&~,SR{,sR~,͘'*&!Q*&!q}oEʬ* dR{Y%+,LRLlR{G&E,CRCcR{&_,SRSsR{͘'**{:{ GPk>!͔k!:͆kPk" >!͔k!,͆k>*͔k:{= Pk&*{|('[{R(:{( :{>Ĝk͊k͎k!"͂kPkHo"s{"u{"{{*s{[{{R#^#V~( ++~+(~rI*s{:{_um͇mzmumummo(*s{͛O͕Rvnbu> #:{rKTn #s#rvnu(*{"y:y= 3yer!93y$[{"{"y"{2{!"Tyl͜kz óF(:KóF͊NR(?l+l"{2{um~͂r͍m:{zm>zmmo(Ho*s{um͇m#o 8 jxzmx um !Wzy zm~# umm͛ͺ+------------------------+ ͛ͺ! CP/M KEY_BOARD UTILITY ! ͛ͺ+------------------------+ !!͛ͺHIT ANY KEY TO START !o&}2>!͛ ͛ͺ---- O P T I O N ---- ͛ͺA : ADD CHAR DEFINTION [Z{r+s"{{mHo:{ )vn3u ͂k> vn:u iw+p+r+sHo6+p+:{( r+s~r+:{rL͖nHo:{*yW(!"{*{{*s{"{{~6+F+V+^+(#?l:{(%V+^+͇R:\{2{*b{}2{0l"{r+s+x(J~OF+~2{+V+^+"Z{͇R*s{ummvo͛O[Z{r+s6HoZnu ~͕R5OHoZnu ~G2{{2{:{2{maLum͇m*{{*u{"{{*s{umumumum[{umumo R*s{umumvnu  ͇mo( o y2{O r!u"Z{p+q[Z{+r+so(no:{(&@o2{O:\{0r0HI-DEMO PAS{<}sq{*FE#"{$$$$"{* y"ygo2{2{2{2{2{2{2y2{2{"{"{͏q+"Ty> 2{>2{>2{*DE"{"{!y6*yl*HE+"w{T]B"s{"u{"{{k!tE:y= ͖ll"yr͕ovn)u ͒Fo ͒F ~2{+V+^i"{>2{Or$2{:{:\{rC͵N@o2{N:{(x=rK:{! *b{:{ :{ 0l *{"{++~(+:{w+r+s+[Z{r+s+++OvnBuO9PQ@QkQͥQQRr$TnV+^"Z{͇RvnHu0o;R*Z{*`{[^{R#|rb'@ozmrm*s{umm͛O[Z{r+svo7IrHoZnu ~:\{80r= W*m*`{qR*m{[k{R#*^{͇R:\{ z o fo7Iz(^oiyr2bknoIm U*mfo:]{O*b{!Tnr)vR*X{RrE[b{@o7Io(noR|(͜k+Im |*͛ͺD : DELETE CHAR DEFINITION ͛ͺL : LOWERCASE (40 COLUMN ONLY) ͛ͺ"C : CTRL-A,CTRL-K (80 COLUMN ONLY) ͛ͺS : SAVE CONFIGURATION TO DISK ͛ͺQ : QUIT ͛ ͛ͺSELECT OPTION : !o&}2͛ *&um~zm~+(zmumumm2{ROA*s{*{*{:{:{:{!{4͞F2{2{2{"{"{S{|(R( ͊k͒k!͆kMPk#^#V++~+(vR:W{ 7:\{8(@(98(6 0/Pk)sk*X{͎k*b{͊kPk2W{>2\{!"b{skfPkR!{5:{(F{~460#/ 0p#:w!Y͆k!͗k!{ ~͜k#:y= ͖l2{l*{*y*{"y!"{!9!3y$:y= '!{4y 6#3yerer1!͔k!y:y(0l͒k:{(>͜k͗k!d͆k>!͜k͗k>͜k͗k* y͊k:yg.>͗k!͆k͞FR~.r ! ͂k[yBl?l:{_Bl*s{͇m"s{:{_0lwk͗kZnur ~ ͎H ͷH J *K*y^H:yrM!4y{!"|"~*|}2G*~"E!:"*w"l"n"p"r*r*pP*n*lP"\"^"`"b*b*`*^*`"Q*^*\P*b*\P*b*`PèQ &%0)`"O"Q!Q"E*E!EQ*E!"EQ*E! "E*Q"F*O}2E*E"*w!En ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_X2/ { ld hl,(_X2) } $22/$45/$F0/ { ld (0xF045),hl } $21/$3A/$F5/ { ld hl,0xF53A } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl $4D/ { ld c,l } $21/$00/$30/ { ld hl,0x3000 } $70/ { L1 ld (hl),b } $23/ { inc hl } $71/ { ld (hl),c } $23/ !*!!2*!!MQ*#S͢P!͢P͠EGT R P!ͰP!!<fz"*!*_FP,_PICNAME); RESET(_FP); FOR _COUNT := $F400 TO $F7FF DO BEGIN _LOBYTE := LO(_COUNT); IF NO BEGIN INLINE($2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_X1/ { ld hl,(_X1) } $22/$46/$F0/ { ld (0xF046),hl } $21/$57/$F4/ { ld hl,0xF457 } 0xE054) } $3A/$51/$E0); { ld a,(0xE051) } END; PROCEDURE CLEARHIRES( _X : BYTE ); CONST COLORMASK : ARRAY[0..15] OF BYTE = ($0,$0,$2A,$55,$55,$2A,$7F,$7F,$80,$80,$AA,$D5,$D5,$AA,$FF,$FF); VAR _COLORMASK1, _COLORMASK&}2S*S&2:T:Q* 0**R̀!%EʀR͛ͺINSUFFICIENT MEMORY! ͛ͺPRESS CTRL-C !!  !0 [>@2*"*! "! R"Ryy67 L!K!}2F!!N!!N|g}o!|g}o}2G!E/ { L1 ld a,(hl) } $EE/$FF/ { xor 0xFF } $77/ { ld (hl),a } $23/ { inc hl } $7C/ { ld a,h } $FE/$50/ { cp 0x50 } $20/ { inc hl } $7C/ { ld a,h } $FE/$50/ { cp 0x50 } $20/$F7); { jr nz,L1 } END; PROCEDURE INVHIRES; BEGIN INLINE($21/$00/$30/ { ld hl,0x3000 } $7{/* TURBOPASCAL HIRES-GRAPHIC TOOL BOX. APPLE CP/M, TURBO PASCAL 3.0 VERSION, FILE: TURBORES II/HIRES OR II/HIRES, VERSION 1.1 BUGS CLUB 1989/9/15 ORIGINAL PROGRAM BY BYUN, SEONG_WAN PROGRAM MODIFIED BY LEE TAE-KYOUNG. MV - AD $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE HIRESLINETO( _X2,_Y2 : INTEGER ); BEGIN INLINE($2A/_Y2/ { ld hl,(_Y2) } $7D/ {2 : BYTE; BEGIN _COLORMASK1 := COLORMASK[ _X*2 ]; _COLORMASK2 := COLORMASK[ _X*2+1 ]; INLINE($2A/_COLORMASK1/ { ld hl,(_COLORMASK1) } $45/ { ld b,l } $2A/_COLORMASK2/ { ld hl,(_COLORMASK2) }R!"*!s !!X!:p!X !0!OfzfS"V!Xͤ*VͶ *V#ES!Xz  !I!!I:p! !0!OfzS"!ͤ* *#àS!z !R!7PP!ͰP!!<fz;T"*!*$F6); { jr nz,L1 } END; PROCEDURE HIRESCOLOR( _X : BYTE ); CONST COLORMASK : ARRAY[0..7] OF BYTE = (0,$2A,$55,$7F,$80,$AA,$D5,$FF); BEGIN MEM[ $F0E4 ] := COLORMASK[ _X ]; END; PROCEDURE HIRESPLOT( _X1,_Y1 : INTEGER ); $3A/$55/$E0/ { ld a,(0xE055) } $3A/$52/$E0/ { ld a,(0xE052) } $3A/$50/$E0); { ld a,(0xE050) } END; PROCEDURE VIEWTEXT; BEGIN INLINE($32/$01/$E0/ { ld (0xE001),a } { //e } $3A/$54/$E0/ { ld a,(DED DISASSEMBLED LISTING ADDED //e COMPATIBILITY */} { /* HIGH_RES_GRAPHICS */ } VAR INITHEAPPTR : INTEGER; PROCEDURE VIEWHIRES; BEGIN INLINE($32/$00/$E0/ { ld (0xE000),a } { //e } $3A/$57/$E0/ { ld a,(0xE057) } ,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE HIRESLINE( _X1,_Y1,_X2,_Y2 : INTEGER ); BEGIN HIRESPLOT(_X1,_Y1); HIRESLINETO(_X2,_Y2); END; PROCEDURE HIRESBOX( _X1,_Y1,_X2,_Y2 : INTEGER ); BEGIN HIRESLINE(_X1,$2A/_Y2/ { ld hl,(_Y2) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_X2/ { ld hl,(_X2) } $22/$45/$F0/ { ld (0xF045),hl } $21/$3A/$F5/ { ld hl,0xF53A } $22/$D0/$; HEAPPTR := HEAPPTR + $2000; ERRORPTR := ADDR( DISABLEHIGRAPHIC ); END; PROCEDURE HIRESHARDCOPY; CONST DOUBLE = 0; ENLARGE = 0; INVERSE = 0; VAR BIT_DENSITY : BYTE ABSOLUTE $F046; MODE : BYT RTS } END; BEGIN _ADDRESS6502 := ADDR(_6502HSCRN); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADDRESS6502 := _ADDRESS6502 + $2000; INLINE($2A/_X1/ { ld hl,(_X1) } $22/$TRING[12]; PROCEDURE LOADHIRES( _PICNAME : _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); RESET(_FP); FOR _COUNT := $3000 TO $4FF7 DO READ(_FP, MEM[_COUNT]); CLOSE(_FP); END; PRdir } END; PROCEDURE INSTALLHIGRAPHIC; BEGIN IF ABS(HEAPPTR-RECURPTR)<$2500 THEN BEGIN WRITELN('INSUFFICIENT MEMORY!'); WRITELN('PRESS CTRL-C !!'); READLN; END; INLINE($21/$00/$30/ { ld hl,0x3_Y1,_X2,_Y1); HIRESLINETO(_X2,_Y2); HIRESLINETO(_X1,_Y2); HIRESLINETO(_X1,_Y1); END; FUNCTION HIRESSCRN( _X1,_Y1: INTEGER ) : BYTE; VAR _ADDRESS6502 : INTEGER; PROCEDURE _6502HSCRN; BEGIN INLINE($20/$11/$F4/ { JSR $F41/ { LDA #$02 } $85/$36/ { STA $36 } $A9/$C1/ { LDA #$C1 } $85/$37/ { STA $37 } $A9/$91/ { LDA #$91 } $20/$ED/$FD/ { JSR $FDED } $4C/$93/$FE); { JME ABSOLUTE $F047; _GO_6502 : INTEGER ABSOLUTE $F3D0; _Z80_PNT : INTEGER ABSOLUTE $F3DE; PROCEDURE _HIRESHARDCOPY; BEGIN INLINE($8E/$79/$04/ { STX $0479 } $8C/$79/$07/ { STY $0779 } $A9/$0246/$F0/ { ld (0xF046),hl } $2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_ADDRESS6502/ { ld hl,(_ADDRESS6502) } $22/$D0/$F3/ { ldOCEDURE SAVEHIRES( _PICNAME: _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $3000 TO $4FF7 DO WRITE(_FP, MEM[_COUNT]); CLOSE(_FP); END;000 } $01/$00/$20/ { ld bc,0x2000 } $ED/$5B/HEAPPTR/ { ld de,(HEAPPTR) } $ED/$B0/ { ldir } $3E/$40/ { ld a,0x40 } $32/$E6/$F0); { ld (0xF0E6),a } INITHEAPPTR := HEAPPTR1 } $B1/$26/ { LDA ($26),Y } $25/$30/ { AND $30 } $29/$7F/ { AND #$7F } $F0/$02/ { BEQ L1 } $A9/$01/ { LDA #$01 } $60); { L1 P $FE93 } END; BEGIN BIT_DENSITY := 75 + DOUBLE; MODE := ENLARGE SHL 6 OR INVERSE SHL 5 OR 2; _GO_6502 := ADDR(_HIRESHARDCOPY) + $1000; MEM[_Z80_PNT] := 1; END; { /* PICTURE LOAD & SAVE */ } TYPE _NT = S/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0/ { ld a,(0xE051) } $2A/INITHEAPPTR/ { ld hl,(INITHEAPPTR) } $01/$00/$20/ { ld bc,0x2000 } $11/$00/$30/ { ld de,0x3000 } $ED/$B0); { l (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } HIRESSCRN := MEM[$F045]; END; PROCEDURE DISABLEHIGRAPHIC; BEGIN INLINE($32/$01/$E0/ { ld (0xE001),a } { //e } $3ATEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q* COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$/ { LDA #$01 } $60); { L1 RTS } END; BEGIN _ADDRESS6502 := ADDR(_6502HSCRN); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADDRESS6502 := _ADDRESS6502 + $2000; INL:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>-I,35-I,39-J); LORESHLINE(39-I,35-I,39-J); END; END; DELAY(500); FOR C:=1 TO 30 DO INVLORES; UNTIL KEYPRESSED; TEXTMODE; END. {OF MAIN}1,_Y1,_X2,_Y2 : INTEGER ); BEGIN HIRESLINE(_X1,_Y1,_X2,_Y1); HIRESLINETO(_X2,_Y2); HIRESLINETO(_X1,_Y2); HIRESLINETO(_X1,_Y1); END; FUNCTION HIRESSCRN( _X1,_Y1: INTEGER ) : BYTE; VAR _ADDRESS6502 : INTEGER; PROCEDURE _6502HSCR$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1 :2L> ̈́M9 ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILEPROGRAM HIGH_RES_GRAPHICS; (*$I II-LORES.P *) VAR I,J,C,DATACOUNT:INTEGER; L:REAL; CONST DATA:ARRAY[0..14] OF INTEGER =(9,8,8,8,0,15,15,15,15,15,15,15, 9,0,-1); BEGIN {OF MAIN} REPEAT VIEWLORES; CLEARLORES(14)HHͯ :^!w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMN; BEGIN INLINE($20/$11/$F4/ { JSR $F411 } $B1/$26/ { LDA ($26),Y } $25/$30/ { AND $30 } $29/$7F/ { AND #$7F } $F0/$02/ { BEQ L1 } $A9/$01TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM IF C=-1 THEN BEGIN DATACOUNT:=0; C:=DATA[DATACOUNT]; DATACOUNT:=1; END; END; LORESCOLOR(C); LORESVLINE(I,I+4,J); LORESHLINE(I,I+4,J); LORESVLINE(39; DATACOUNT:=0; L:=0; C:=0; FOR I:=20 TO 35 DO BEGIN FOR J:=0 TO 60 DO BEGIN L:=L+1.8; IF L>4 THEN BEGIN C:=DATA[DATACOUNT]; DATACOUNT:=DATACOUNT+1; L:=0; TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM:=O!L NE!4 E E:/.*&L 6$L9k9.Xͯ *KM^020 :020:121'ͳ':²ͯ !G6!"!"7 *M^n/ :a/:H!6:ͯ !&6> *N& N2 !p+q!6!6+6 !6: S: M!6g8:N2M*M8p!6!6!6>!ڕ*&P 6!4z!6!6#6#6!6*M8:ھ:*͇g2ê::¿::,͡A<2O>! ^#V͎ * :w*#" = = = = = ͯ  *M !6q  !6q  !6q  *& !6à  !6 à  !60à  *& !6  !6  !6  *& . 1 4 7 : = F P [ f q  r+s+p+q*~$7*>*>H&>*#"*#"> 2:R͎:!6!6=2:ʙ!6:“H9Ž>!6-e!6ͻ2=2ʺ-é:>>"ͻ2:!!5ͻ2ͬ!\ͯ m!62m!62m!62m!62m'2:2:TҒ:2!6*ME:2::Ҳ:<22ý: 2:} >ͯ :i:2:d*M:[ ͔: :ͳ.!ws+p+q+p+q:w=2wN *s*u w*s#"s*u#"u' !"*M^7 !x6:!xھ **DM͆ 2yʭ :yʗ ͯ *"*6:2x÷ *"!x4d !"/ !j}=2| !"*KM^'_ !z6:|!z1 *:[ ͱ!N5!6:%:<2*6 * 6å!q!6> !d*&I :]>!4A>:<2O* :w:?†!6!q!6?!:ҠgÐ!q*&*~!6:22: :]Hں:A2O>: 2ͯ *M8):[ͱ!N5!6ñ:5!6#6>!ڰ!6:<2O>/:!O!T *M͡H~K:¡!6[–ͱ!N5:2:2!4=:[¼ͱ4:!6:.2O8: :* ͇gTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM-:>>!p+q:,!6*DM9:<!6:z 2W!6D*&L :w:<2Ov*:>=20O> ڒ:0:AO>Ҥ::A }}Hͬ!wͻO`idͻV[2O>2:!X!6:!TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM "}*}DM͆ ' ͯ *"!z4 :e !"͆ !z6:|!z '? 2*H#"H!{6:{ր!Ң *{& :{4 2!{4m *":ڹ ͯ !z4I '2!"!q: !4>!S :S! :2*MTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM/H:_2:!q:A/>Z!/H8: 2::=O>m:W!Q} Hmd>9>!6:2*M!E ^#V͎ڗO **~2*#"m2m͖ 2m!6m!6m!6 m2m:   *}2D" * * *&"!q:UY: Y:ҩ: ʩ:_2ʘ:€!6<:<2!ژ!6 >!]Ҥ; !6:Q::H: !6*M : !6!q:a/>z!TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMdir } END; PROCEDURE INSTALLHIGRAPHIC; BEGIN IF ABS(HEAPPTR-RECURPTR)<$2500 THEN BEGIN WRITELN('INSUFFICIENT MEMORY!'); WRITELN('PRESS CTRL-C !!'); READLN; END; INLINE($21/$00/$30/ { ld hl,0x3; REPEAT UNTIL KEYPRESSED; DISABLEHIGRAPHIC; END. {OF MAIN}); VIEWHIRES; HIRESCOLOR(0); FOR X:=30 TO 60 DO HIRESBOX(X*4,X*4,X*2+50,X*2+30); INVHIRES; DELAY(500); INVHIRES' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈* hl,(_ADDRESS6502) } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } HIRESSCRN := MEM[$F045]; END; PROCEDURE DISABLEHIGRAPHIC; BEGIN INLINE($3A:= 0 to _X do Mem[ $E030 ] := 0; end;!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:HTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0/ { ld a,(0xE051) } $2A/INITHEAPPTR/ { ld hl,(INITHEAPPTR) } $01/$00/$20/ { ld bc,0x2000 } $11/$00/$30/ { ld de,0x3000 } $ED/$B0); { lTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM:H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_!TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMddress6502 := Addr( _6502sound ); if _Address6502 < $B000 then _Address6502 := _Address6502 + $1000 else _Address6502 := _Address6502 + $2000; end; procedure Beep ( _X : integer ); var _Count : integer; begin for _Count _Address6502 : integer; procedure _6502sound; begin Inline($AD/$30/$C0/$88/$D0/$04/$C6/$07/$F0/$09/$CA/$D0/$F6/ $A6/$06/$D0/$EF/$F0/$ED/$60); end; begin Mem[ $F006 ] := _Pitch; Mem[ $F007 ] := _Length; _ATEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMINLINE($21/$00/$30/ { ld hl,0x3000 } $7E/ { L1 ld a,(hl) } $EE/$FF/ { xor 0xFF } $77/ { ld (hl),a } $23/ { inc hl } $7C/ { ld a,h } ISASSEMBLED LISTS ADDED SOFTSWITCHES FOR IIe */} { /* HIGH_RES_GRAPHICS */ } VAR INITHEAPPTR : INTEGER; PROCEDURE VIEWHIRES; BEGIN INLINE($32/$0C/$E0/ { ld (0xE00C),a } { //e } $32/$00/$E0/ { ld (0xE000),a } { //e } / { LDA #$02 } $85/$36/ { STA $36 } $A9/$C1/ { LDA #$C1 } $85/$37/ { STA $37 } $A9/$91/ { LDA #$91 } $20/$ED/$FD/ { JSR $FDED } $4C/$93/$FE); { JM $2A/_COLORMASK2/ { ld hl,(_COLORMASK2) } $4D/ { ld c,l } $21/$00/$30/ { ld hl,0x3000 } $70/ { L1 ld (hl),b } $23/ { inc hl } $71 LDA #$01 L1 RTS } END; BEGIN _ADDRESS6502 := ADDR(_6502HSCRN); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADDRESS6502 := _ADDRESS6502 + $2000; INLINE($2A/_X1/ ; HEAPPTR := HEAPPTR + $2000; ERRORPTR := ADDR( DISABLEHIGRAPHIC ); END; PROCEDURE HIRESHARDCOPY; CONST DOUBLE = 0; ENLARGE = 0; INVERSE = 0; VAR BIT_DENSITY : BYTE ABSOLUTE $F046; MODE : BYTE001.):=$00; { //e } INLINE($3A/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0); { ld a,(0xE051) } END; PROCEDURE CLEARHIRES( _X : BYTE ); CONST COLORMASK : ARRAY[0..15] OF BYTE = ($0,$0,$2A,$55,$55,$2A,$7F,$7F,$80,$80,$AA,$D $3A/$57/$E0/ { ld a,(0xE057) } $3A/$55/$E0/ { ld a,(0xE055) } $3A/$52/$E0/ { ld a,(0xE052) } $3A/$50/$E0); { ld a,(0xE050) } END; PROCEDURE VIEWTEXT; BEGIN MEM(.$E00D.):=$00; { //e } MEM(.$TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM/ { ld (hl),c } $23/ { inc hl } $7C/ { ld a,h } $FE/$50/ { cp 0x50 } $20/$F7); { jr nz,L1 } END; PROCEDURE INVHIRES; BEGIN TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COME ABSOLUTE $F047; _GO_6502 : INTEGER ABSOLUTE $F3D0; _Z80_PNT : INTEGER ABSOLUTE $F3DE; PROCEDURE _HIRESHARDCOPY; BEGIN INLINE($8E/$79/$04/ { STX $0479 } $8C/$79/$07/ { STY $0779 } $A9/$02TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMOCEDURE SAVEHIRES( _PICNAME: _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); REWRITE(_FP); FOR _COUNT := $3000 TO $4FF7 DO WRITE(_FP, MEM[_COUNT]); CLOSE(_FP); END;TRING[12]; PROCEDURE LOADHIRES( _PICNAME : _NT ); VAR _FP : FILE OF BYTE; _COUNT : INTEGER; BEGIN ASSIGN(_FP,_PICNAME); RESET(_FP); FOR _COUNT := $3000 TO $4FF7 DO READ(_FP, MEM[_COUNT]); CLOSE(_FP); END; PRTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COM/ { LDA #$02 } $85/$36/ { STA $36 } $A9/$C1/ { LDA #$C1 } $85/$37/ { STA $37 } $A9/$91/ { LDA #$91 } $20/$ED/$FD/ { JSR $FDED } $4C/$93/$FE); { JM hl,(_ADDRESS6502) } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } HIRESSCRN := MEM[$F045]; END; PROCEDURE DISABLEHIGRAPHIC; BEGIN INLINE($3A$2A/_Y2/ { ld hl,(_Y2) } $7D/ { ld a,l } $32/$47/$F0/ { ld (0xF047),a } $2A/_X2/ { ld hl,(_X2) } $22/$45/$F0/ { ld (0xF045),hl } $21/$3A/$F5/ { ld hl,0xF53A } $22/$D0/$; HEAPPTR := HEAPPTR + $2000; ERRORPTR := ADDR( DISABLEHIGRAPHIC ); END; PROCEDURE HIRESHARDCOPY; CONST DOUBLE = 0; ENLARGE = 0; INVERSE = 0; VAR BIT_DENSITY : BYTE ABSOLUTE $F046; MODE : BYT/ { LDA #$01 } $60); { L1 RTS } END; BEGIN _ADDRESS6502 := ADDR(_6502HSCRN); IF _ADDRESS6502 < $B000 THEN _ADDRESS6502 := _ADDRESS6502 + $1000 ELSE _ADDRESS6502 := _ADDRESS6502 + $2000; INL END; PROCEDURE HIRESPLOT( _X1,_Y1 : INTEGER ); BEGIN INLINE($2A/_Y1/ { ld hl,(_Y1) } $7D/ { ld a,l } $32/$45/$F0/ { ld (0xF045),a } $2A/_X1/ { ld hl,(_X1) } $22/$46/$F0/ { ld (0xdir } END; PROCEDURE INSTALLHIGRAPHIC; BEGIN IF ABS(HEAPPTR-RECURPTR)<$2500 THEN BEGIN WRITELN('INSUFFICIENT MEMORY!'); WRITELN('PRESS CTRL-C !!'); READLN; END; INLINE($21/$00/$30/ { ld hl,0x3/$54/$E0/ { ld a,(0xE054) } $3A/$51/$E0/ { ld a,(0xE051) } $2A/INITHEAPPTR/ { ld hl,(INITHEAPPTR) } $01/$00/$20/ { ld bc,0x2000 } $11/$00/$30/ { ld de,0x3000 } $ED/$B0); { lTEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COME ABSOLUTE $F047; _GO_6502 : INTEGER ABSOLUTE $F3D0; _Z80_PNT : INTEGER ABSOLUTE $F3DE; PROCEDURE _HIRESHARDCOPY; BEGIN INLINE($8E/$79/$04/ { STX $0479 } $8C/$79/$07/ { STY $0779 } $A9/$02TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMF046),hl } $21/$57/$F4/ { ld hl,0xF457 } $22/$D0/$F3/ { ld (0xF3D0),hl } $2A/$DE/$F3/ { ld hl,(0xF3DE) } $77); { ld (hl),a } END; PROCEDURE HIRESLINETO( _X2,_Y2 : INTEGER ); BEGIN INLINE(TEST 000ͤ* *#Â$!z #:W:U:R:P!!͠E$" YTEST 000!I:p! !0!OHI-DEM2 PASzHI-DEM2 BAK{HI-DEM3 PASE|HI-DEM2 COMN; BEGIN INLINE($20/$11/$F4/ { JSR $F411 } $B1/$26/ { LDA ($26),Y } $25/$30/ { AND $30 } $29/$7F/ { AND #$7F } $F0/$02/ { BEQ L1 } $A9/$011,_Y1,_X2,_Y2 : INTEGER ); BEGIN HIRESLINE(_X1,_Y1,_X2,_Y1); HIRESLINETO(_X2,_Y2); HIRESLINETO(_X1,_Y2); HIRESLINETO(_X1,_Y1); END; FUNCTION HIRESSCRN( _X1,_Y1: INTEGER ) : BYTE; VAR _ADDRESS6502 : INTEGER; PROCEDURE _6502HSCR