LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|H !ͮ%SYSTEM.MISCINFOH !VS-SYSTEM.PASCAL3dH !.SYSTEM.STARTUPH !u!/SYSTEM.WRK.TEXT#DH !uIII.REP.09S.08Bu' DISKNAME.DATJ!J)HELP.ASCI H6*SOS.DRIVER 4fH !/ *SOS.INTERP<#DH !*SOS.KERNEL _,VH !a.SYSTEM.LIBRARYm#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   !"#$%&'()*+,-./0123456789: `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'͝ )X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 "'*CFMRZ_ '058FV[fjsuw;Profile Driver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&%1  % &$0) `/0) `,.0L tHsH`! (xy```,.0L HH`Ln,/023x #) "# (```'+.`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n134nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n2")Copyright (C) 1983 by Apple Computer Inc. HH` (# (KXT .")"#)  #`,.$ ()-'( / GMRU[`chnqt{ "/258:GTWZ]`cfi "%(.:?BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER AШ١ވH)Ih*#ЭУލLȱLȱӌLLȱѭ)I yJн%yK8 ѮIЬI,LIЍ/5ȱЍ069Ј8Ј Щ`JP (` $'*169B˷L H)H2Pʈ2˷LGDB ЭC-íHέ''G 6`,HH)Ʉ ) hHhh`. 4`.04:A`xLIB <BAC <C>н8 Ѡ .CONSOLE"NRP)  P`'G'Ȫhh`̽G` )D$6E%7F# D 5 (˱E$i$%6i67Fи$i($6EИ P QDL8H\0`(d  $,($  ,JATTACH.7A1 - Apple v1.3,1.31 - Quark v1.2,1.3,1.31 - rem Cue, exp Nor|CompLJ.ATTACH `e" .PPRINTER NQ12{y SCREEN DUMP ACTIVE >88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xr *̍m%%#$  " ` L ``(%, ( *x (I  ) (j` DÈ` ȑ`! (`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A= NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/ C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8st HH` MjH,: <J h̰ <rh,oL`%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅df`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 WL)6La5 I`6 cef`7 I`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabOO&+- ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aIAHOTW\_bx{'69@IPW]`cfjmpsx}(̠`x (̠` [   `L `` ``I FF x (̠%L#fowz*13579;=?ACFNWaehmpx "'+@\mrv{( 3  +J FF tѤ `U t`*8`AB*0 B8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx 7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ88 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< K 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ` N=    `H Wh (0­1í2L-. * <өхυ L"= N8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9    x) `(,  LuL-upp<`uqq=L: vuL L L <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i0L È`,g HH`LL! l      5  Hdcefh&+si  M08f* 2*H UhX U'+`0`)0)0 X*4,2*,10M.-- x0 0`0֤F`,(0LH  ,-! (`í-ȑí.ȑí/ȑí0ȑí1ȑ``)M#-"ȩȩȭ*SEPH DHUEY NHMH` (# (B1BBl^`h[,($ ( h ))lfg % (*+,("-#.$/&1)%)?0'`,(0LHEąĩEŅ,/'+?8fPF ZCOPYRIGHT 1981 APPLE COMPUTERMICHAEL JOI P S V \ a h m p s x |     ' + < ? D G N U f k p x (+@EIR[ty} NQEpson Printer Driver2.EPSONER A               . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F ORUX]`finsw| !%*/369<?BEJMRUX]`h  2;AGMS[fot|;?DGLTot <?BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFIL̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+388,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $pI I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h AL: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0";O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(ĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j* I `x|x|,,}P-X~ F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Í   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJȩ`,(0LH  HL*,0))`Í-ȱÍ.ȱÍ/x0)0)? 00XȱÍ1``(LH*00fg `;?MOQSUWY[]`fjnx},49?HMRV\_dx}'38;HMRUZekqv{4(C) Apple Computer 1983. Serial Card RS-232 Driver.t.RS232L c "߄P(C) Apple Computer Inc. 1983MUcfkw &+8;@CJMPSV]bejApple Dot Matrix Printer Driverv7.DMP A Copyright (C) 1983 by Apple Computer Inc.,`,'0LM ! (```*M#ȩ ȭ-ȩ`,'0LM @>L,, 3,,0-./(,$)x*%)/+(```04@DRTVXZ\^`belv{!$'*-049?BIIC ,$P( n(.0- .-L 3L 3`,,P*M#-"x Z)(,,p` *+)+X,,PM#-" I82-A/0M)-/M#-" &0x,) ++`x2Z SHRH` (# ($GGjc`,'$ ( 2 *)601 % (, :'`'LM :01 `,'0LM& (,'0LMI (C) 1983 by Apple Computer Inc.v7 .PARALLEL A`@dCopyright (C) 1983 by Apple Computer Inc.!$'*-036<?FKUn|  $)036=BEJQX]`ejorw "'.147:=@CWZadknDParallel Printer Driver -- Copyright ` ) `x,X0R p)(`KO} #9<CHKjoz $*-DINS^bkmoqyX ))hq mm0 stqs[L,j,XLl)`Z5L,lLp,VP VeLE,WWVfLEZZLpnl,Y0g,dP\,]0X]eLE\pqnp aLm bLm cZ )^ `ÍTȱÍU`n064e0[x R X([ `R )l) )g mmL)` mmL ),d-eYLfYuqgQ,V0L@VEPf>i\]M,j,qg$[H" (x^ÈȌm(`TȭU` n  q `ȩ`,S0L HH`Lfh,V W ,W0x_)_ qnZ[oprsXY\]mRl`)  __ ` ) (`^" ( ÙH 8fqhq:,V0-,X0x R) X)(LW h,TULarȥȑ`,S0LoEąĩEŅ o`n L# 8fqn,S0L lHkH`! (rs`^HH` (# (ALS`,S$ ( M iR)QKL % "_TUkVW S`% (SLn Zx R)(KL `,S0LrEąĩEŅq,k0st 2Z SHRH` (# ($GGjc`,'$ ( 2 *)601 % (, :'`'LM :01 `,'0LM& (,'0LMIĥIC ,$P( n(.0- .-L 3L 3`,,P*M#-"x Z)(,,p` *+)+X,,PM#-" /((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" ( """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer147:=@CWZadkn9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwwwDINS^bkmoqy!$'*-036<?FKUn|  $)036=BEJQX]`ejorw "'.\pqnp aLm bLm cZ ) ` ) `x,X0R p)(`KO} #9<CHKjoz $*-fYuqgQ,V0L@VEPf>i\]M,j,qg$[HX ))hq mm0 stqs[L,j,XLl)`Z5L,lLp,VP VeLE,WWVfLEZZLpnl,Y0g,dP\,]0X]eLERl`)  __ ` ) (`^" ( Ù^ `ÍTȱÍU`n064e0[x R X([ `R )l) )g mmL)` mmL ),d-eYL 8fqn,S0L lHkH`! (rs`^" (x^ÈȌm(`TȭU` n  q `ȩ`,S0L HH`Lfh,V W ,W0x_)_ qnZ[oprsXY\]mKL `,S0LrEąĩEŅq,k0stH 8fqhq:,V0-,X0x R) X)(LW h,TULarȥȑ`,S0LoEąĩEŅ o`n L# HH` (# (ALS`,S$ ( M iR)QKL % "_TUkVW S`% (SLn Zx R)(e Computer Inc. 1983M\^`belv{!$'*-049?BIUcfkw &+8;@CJMPSV]bej!Apple // Super Serial Card Drivert.SSCARD A "߄P(C) ApplI82-A/0M)-/M#-" &0x,) ++`x,`,'0LM ! (```*M#ȩ ȭ-ȩ`,'0LM @>L,, 3,,0-./(,$)x*%)/+(```04@DRTVXZÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1 ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$7߭&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL%)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,ӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F y  h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ Hӭԭ` L``  `L` H , 8 V ТΕLϦI ] +)J* g I V 8fxLL) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)LL }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @ 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< \x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [ w w`svywyw w w w ww ww w t t t t`hhhyhyhhTy y xHH` yyy yy y  `tstty ty tt`svL&whhh th ths x yHH`}x|x yx|x`|x tsvzxv{xv}xȘvv v txx`xxhhsvhvhvhhvv vHH`svywyww ww w}xw w w w v`# Fv`vvv cv`v Fv`hhhhwwhhjjjjwjvj vLw wvsw }x|xHH`wswsw w`hhhhhhUsȑȭsȭsȭsȭsȭsȭsȢs y s }~)yL!&X(E'+@FGH{|}~ @ Ev0vDvvLQv1vEv `uv Fv`|v Fv`nsPnsPv`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv`v`# Fv`vvv cv`v Fv` ts;ttttt ts?tt@ttt tss18tAttBttst t St8tLbut~sts tt tt t tttL ctDta s5sLub s&sLuA ssLu  s StLu CtЫsvv cv x;=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\] t.CONSOLE.GRAFIX.PRINTER.RS232.D?tt%t.t5tsss`sss`s+s&s!ss0ss0``tstt`tҰt ̮tssssssssst9tt:tttSOS NTRPs1BLsL-xL~xLjyLyL2|LY|L|L|Le{L{L{L{LzLzL@{LP{L{L{L|L |L|L|LA~LU~L^{LwQusnssPLtLt$(/4:?IXad#ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{} vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{(Z.AUDIO C(C) 1980 by Apple Computer Inc.D thj thh t thsth   hht t t.tU t8\Z][TZ[ te t tt e    FvHH`(LzLyhhh th th thji thht thsthhhtt FvHH` s` `svL&wLysv{v{vvv v{`{{sv{v{vvv v`{svLwsvL&wsv{v{vvv v{`{|sv|vveawvHvHL冠Xw e`veawhvhvL冠X e`eaHHL𨭙whvhwȱvHvHLhvhwhxhyyvxȥwxLȱXȘ vX)XYXHXHXevXYL ȱX khjhkjHjHLȱXvevevlPe`fQeag fHfHL Pe`fQeagfi fggHfHL gPe`fQeag hfhfLX  eg`edfaeeg fHfHL冠X  `edfaeegfi fggHfHL冠X  eg`edfaeeg hfhfL冠Xw e`HHXYp X lLhh)X0 eXXYLeTveUwUwv8vXwvYL HHLXHXHL飨RHRHL gRe`fSeag fHfHL Re`fSeagfi fggHfHL gRe`fSeag hfhfLèPHPHL g\R]S]S_\ȥ]Z[[ )z RPRRSQRRQ RȥRi fL XaXYX `&a` `a`RdSeSedvȱdevd`ȱ`Zȱ[`XiXYXiXY HH LURSTUVWRmvmwwyz{{|}}}|Fxy exxx&yvexxweyyxȩxxixyzxȱzxȱzxȱzxziz{|i|}Г\]\8\]SU T쀍VW@RRSTUVARARWXYZ[ 8 8 ť 8i杩村ƝRSTbVcWXYZd[e\Rح)pRSERRSTUVARX8  W8LZW RSUTVW@RRSTVXWRHH LRUSTUWVR3vRRvjjj)*R`pA'rFͰͰͰͰͰͰͰNj䋂 Y.D1/SYSTEM.PASCALg.D1/SYSTEM.MISCINFO<Put Pascal system disk in built-in drive. Press RETURN.!?_ @` ;*(|@΍ߞJBITڌ*xY6YsB_>3F b$9ˉ?$^V`ZRybÇԮSͰͰ lllllllllllllllla^^^^^^^hhhHH``8Zv[vvv vZ[``)s svLw`)ssvL&whhhhhhHH`tststt`tststP tt`hvhvhh h h  vvh)s1 svhhh) $v v vHH`hhh))Z[L} }    ~HH`* |8  }L} |`|` } }` }`8\] ~ h|vvv v`|svLwsvsL&wsvW|vX|vvv vV|`V|}|sv~|v|vvv v`}|svLwsvL&whhhvhvhvhvhhvvh)ssvhhh vHH`hhhhhmmvLhlhlhhLhvhwhevvhewwwHvHLhhhvhwhevvhewwwvLkmhjhkhlhm Lɢhvhwhh%wH%vHLhvhwhhwHvHLhhIHIHLXXhhQX0XŏoXf0bXE0XRXŎIE8XX&XeYei揭W8XYL XiXYL hvhwv&whxhyy8\v\]w]8\Z][L\xȥ]xL ņhvhwhxhyv&wyZxȥ[xZevZ[ew[8\Z][LL ņhvhwwZvȥ[vLhvhwwvZȱv[)@ L94)  L90 2)hhLҰ`0!ƍL`&&&0 ƃƃ`\0 2)hhhhLҰ40$494) 0-L™"L™&% 8`$ `Vvvv`w8}Iȥ}v Ì665``ō0 2)bENŃ ƃƌ!Ffff 5&Ō0*0  F2)hhLҰ0 2)`Ń 0"kgffff惩ŃO0 2):46vlhh0jH*vjHHHl`w $x$y $z}J`} $~ $ $vLח$xp$~P!0 2)hhLҰx)x~)~y̢|8`$~ $$`|)@0 2)п)8`0戨L 0 8`hh •v h0 LE LElnLdLj/ L 8L •v hI=+ L •v襀I= ƀ LȄHHLhhhhh*68jh*v #n0 2)LҰ%n HHLHHLh)vhh)hvL nhxhyhvhwEy0wyvx/1'w0+!hvhwhvhwHHLhHHL%nHHLhhh ~hxe~ |ŀ8~e|vl8 nXLLL=LN   Faf`LM hxhyhvhwXYwy`LvxvwxyaLL Lwyhxhyxyxyhvhwvwvwvxx ȱvxvx L})L8|~}L~) w~fjv|) y|f}jx8xvyz{{HzHz{{HzHzw9ޓz{9ߓ{{HzHz{v {HzHHxiHLHHLHHLV??zF~H~HLX hh&ņL0eeƆL򆥆8儅ņ 8刪8刪ƄLhh&eȹ~Ȅh)1~)wf~jjj)?vńevw9ܒ hHHLhHHL @hhHHHHh|h}h~hzxI%vyI%wzȥzLhhh ~he~Ȅ Ȅvl %~8~e~ h9 0 ʚL %~~ hI9ʚL %~0~ hʚL|v|z}{zve|ʥ~z{ƅ|}hh &hezheHzH}H|He|HHLh~hh|h}hzh{{zȱz~80 iff| ==HHLhvhwh~hh|h}| x%vvy%ww~80vwwvxyyxi v&wx&yhzh{{zȱ檥HHL펭kmhjhkhlhmXk&ljȑlLjjlLQjlLLװwvwvLVL{ he`zhea{zHzHL he`heaHHLhh a `&L揥`a lhezheHzHLXX{0{wvz{LLV^__`XȱY`ȱL+ XYXYXXYL XYXYX步kg\8孅\]\)\]H\H0X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LXeXYL iIiIi挥IiIiƌ8別剰 ` gf!ffgff8fg8&&`ffgff&&`hhhh 挥IiIiHHLhhhh 挥HHLhvhwhxhyz{Ey0y{)zx!{0wEȩLLshh0HHLIiIiHHLhvhwhhevewHHLhIihIiHHLhvhwhh8vwHHLgfff fefgegfgffff`hh0 hhLΌhh"IiIiIiIi lHHLHHLfgL`| Ù`v|`4) ``5)@v|v`0  F2)hhLҰ` {ezeyexe~ a ` 8{zy~x4) ` ; a `w}"$x~yzŀ {Ł|8`w}w}x~x~yyzzv`v Ȗ| ȖvIvL2v Ȗ| Ȗ UL˛w} Lɛ|LS}%v0tn50h0 2)XLҰw } $Lɛ}v| Ś L ^%!0~0500 2)LҰ L [Fxfyfzf{F~fff8{zy~e8)/H1HHHHHHH ^{LLSRTUX Vȱ*W.XR!R4T5UVWR\]Lð``­8Ɠ ~…`LRSi TVARLWYWX8 X ΰ0 [L쨩R[SER\8居\]岅]LE08居\岅]L8\Z][ ņ8\Z][L\]eHLhzh{hvhwhxhy{wy07ȱzx0xȱx,xyL# xȱxxyL#HHLuHHLuHHxvȥyvL򆭓8~`~ȱ~wLͧ8~~vȥ~wvevȱvev~8~Ɔ`ȱUUU 1VAR WHILE WITH hhh`hahhhhLhlhmhellhemmma ʑlmLU`LmlLhhh~hhe~~hehhhhh`ehae`Ii`Iia~Ŋ.LΦ'~0 ~L~8~L~8冪HF IMPLEMEN4IN )INTERFAC3LABEL MOD 'NOT &OF OR (OTHERWIS6PROCEDURPROGRAM !PACKED +REPEAT RECORD -SET *SEGMENT !SEPARATE6THEN TO TYPE UNIT 2UNTIL USESȑLNdoǤKKK*5@KlKĥKKK@#AND 'ARRAY ,BEGIN CASE CONST DIV 'DO DOWNTO END ELSE EXTERNAL5FOR FILE .FORWARD "FUNCTION GOTO Ihhhheȱe a{8 ȱa {8 Lu0:A[_ ҕLLqȱi8A ȹȱՀƈ4i Lȱ~ȱ~ȩȥȩLȑ  LXiXYLhvhwhxhywyvxȑvxLje`jkeakle`lmeamakm ʱjlL[`L{jlLh`ha hhhhhhhhL򆭙kmhlhmhellhemmhjhkhejjhekkXL=aʱjlmkL͢`L뢱jlL8\Z][JHjHLv| w}L5)@ w}Lwv0|0X ?lhzhhhTLsUwT8vUwv8vXȥwYzT VL SRSLȱ yxȱyxL`x8xyx8xyx zxб wvȱwvЗLABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v``| Ȗv Ȗw?}:w}NE||0vEvvv|)0L Lv $| ,0 2) LҰ0 2)HHL8w#0 xyzL]Fxfyfzzzvxyzz aLvɀ牢L(xyvxIxyIiyxxHyHLhh' HHHHLHHHH0 2)LҰ? w֢| Lw}v |  Lv Ȗv|L^LILhhhh:ɀ ,IiIi&lh{hzhyhx Y xHyHzH{HL Y LLv ȖwLi ћ Lw8}8eP&$0 LhhLҰwe}8eL^iL^挅@Fxfyfzeee~ffffإ Lr % a `v Ȗ| Ȗ U LvE|v|w&}0  F2)2LҰv L}x ~8&&&&&&&~ȥ~ ; % a `v Ȗ| Ȗ U LvE|v|w}M0 2)LҰ FL }| L}wL w0 2)LҰL v 5Li| }8wei L i8ŧSRERL槤\]L槅  `\]e&mmeeUȱP8\\]]L8\Z][ ņ8\Z][L\8]` ৠ|8Ɠ ~5~8~8\~ȥ]~8~Ə8 ƏL,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e x x ` x `8\] 6L*`8Z[0[HZHHH ~xZ[``i`iHhHliHhHlhhh|h}he||he}}hhɀ HH}H|H U~L nHH}H|H10 P{L wLI yL) |L) {L) |L) hhhhL:B~ L򆥉}zL~? |$RќĆL||}z{Lv ɳ 6L| ɳ|}zЬ{~  6L򆤀+8 Ɛ x Lس``  x x ` x `8\] 6L*`8Z[0[HZHHH ~xZ[``i`iHhHliHhHlhhh|h}he||he}}hhɀ HH}H|H U~L) nHH}H|H10 P{L) wL) ||he}}hhɀL" n10LTv <=TU~ L򆥉}zL~? |$RќĆL||}z{Lv ɳ 6L| ɳ|}zЬ{~  6L򆤀+8 Ɛ x Lس``  {L |L L򆥏HHHH}H|H{HzHyHxH~ |LL |L򆥏HHHH}H|H{HzHyHxH~ zL~ zL`hhL`hhhhLhhhhhhL~[Z[h))hhxhyhzh{0Lh0{h|h}he漥HHHH ~x -x 楽HH`Y|{{{-x-x2|e{{{ `hhLHHLLȰLhh nHHLhh nLhhɀ A~L n10 @{LȅɥHHHH jyL |LȑVȑUT8U8񹅻񹅼8X廑Y弑zL뮩L審L審L/ Stack overflow Type to continueeHH LsL審L審pX8XYL審 L審 L審 L審 L審 L寢hhhhCQHPH PȱPPQL RhPhQL9 RSwR8vSwv^ȱv_ȱv\ȱv]X i RHLj RwRvȱRwVv ΫwWvVwWWURTȱRUWYRXȱRYRRRSL ӯsPQvȑ RȥST^xȥ_xȥ\xȥ]xx\y]^_WVW8\Z][LlXz C ~ƆSRSLtȱ ȱņڠRRL Xz CL Xz CPQȑL XzX )XY  ~0 LOXz L ~8~}8|~}~L~L8~lm8 ƁPȹPȹPȹPȹPȹPȹPȹP Ym~Lhl w~iviwY8vvXwvYU~iTiURSy8xyRER`hh )Lhh ΫLhhw vwLehhWwVvWw]}\|]}XiXYv8zvwv8zvw8vv~wv~\ť~8~8~~ȥ~))i )HHl0 "$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`XǠĠӠ!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECԠŠР@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#ü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt ` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Lo۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H h h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V `` ͝de0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠oQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aƀLV~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅLw ~~8ʭ==` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LGIL,h hBCʈ _.ł( Ł|} ŀ}|z Z   :    ( tV8$@hvhwhhxylxh:vwlv8<<+-Í-۲0ݡߑ ع       &  * عteVG8  )   uh[NA4'á NTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,) $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:I LONGINTI   )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba ddaƅ  ILL, _LwLL,E0LL _Lw ILL,ELL _LwEe8刅刪ʈʈݒ&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` _LWŁ|}ƅLwE||怦}ʚH恺8倅偪2& |" "%: ˡ J#鿥  &'azȄaAB%Type to continue% " ġ2 2fj <32 &ˡ 2 26!ˡ 2Rˡ 2=˄+&ȡ   ,á- .ت/S# /أ d-, P# /أd-, I# /أ -.@0! áצ IO error # / d-צ Exec err # /d-.>?@O^^;COPYRIGHT APPLE COMPUTER INC. 1981-1983 RELEASE VERSION 1.1$< | \ &PASCALSYUSERPROGINITIALIGETCMD UCSDFILE EXTFILEMEXTFILEMTABLE INFORMATIONCI4Current date is Hd*B2ed on U.  P ? Apple //X @{BB@6bBB@ijpbZb ԳԳ@ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,}" ,Í ˫T \$ á (ȡ*龫 ȡazȄaA3>,ء4ت /6: á :@4 @ A P @6d\5P6ת@ת,š[ץ44š7]ץ114á7g14š^743355 5073331é731é14Ä3*á74147Í4!ץ44á4@ >'@ ;> )#%0ë>>@@@| V  )šá4?š?VP>:+>P:X;髁@@@˄@#@ˡ @@#>@@ O@ ˡ? @ ?>@ > ? @ ?>쓡 @ ?>@ > á@ > :@ >:@ >:![L&á'횩)ˡ8 >#> \ˡآآآ*:UU šC+P VVPVU _aaO@á ( ˄ ë 9:ץaššë 铄˄dS79P7 a(7 آآ-? :آ&آ#> ?  ڢڢצڢ ڢ  آأأآآآ 9Pš8P8>뫀 8a a:a aa>ʁ@ צ" ˄ Ʉ8>ʁ@"ؚ"álʁ@&ʁ@ > "áVʁ@ ʁ@"Ä:ʁ@铡-@ ʁ@ >ʁ@ @>ʁ@ @>ʁ@{ 7( آڢآآ"٢ڢ٣ PSYSTEMPW\PIj 8́@́AƁAa@ƁAǐƁAP:ץaá:/Pa8ʁ@ >"á"ʁ@ˡ ʁ@ʁ@ʁ@ צʁ@ ʁ@á áÄڡɡá ɡ 럚肚`諁6"  >  >b) á إaaġ00000תȡ  ڕ0ق,  & "ë 넡6 & Í< š˄ u 8 Íáš#ńW   0  𓍡ńȄ (˫/ ˡ   Í wˡ ˡ ! ˡ(  Ǖš]6W.TEXTת .CODEתš!!Ȅ!!P!x!P ( >ˡ 뚹  צ`&Ꟛ צ.CODE$.BACKׯצ.ASCIaF*:˄/˄&ڲ#áצ:áD6>,ת(.Ä !á צ[š!!!(4צ4848@צ/44צ:.Í4šצ/44š>444ȓ4.484854צ/46444ȩ4å.ˍo˩4ń\88P.TEXTׯ74צ:4*å#Í%Í4ōM4á@4Pá/á *á?@%áΪ@:ץ44ȡAá+#Ó4צ/ˍ4@תP4á7ˡ 3ء #צ ۂ #ء >  >݂"ˡ ޕ݂ނɡ  <Ąɡ낫š ꓡ š땫ĻD<ꓡ"á삫ûš > "ˡ˫   ɡĻ2꓄ > >"ˡ ꄓr<Lá > "á=ˡ땏PVvP jLV~ &"#n####&XHv4  R: thd z  `"B$>"z>@t!-ǀ@? ? צPEz>ׯ{ y@צ>>  OQSUWY[] ''A>zˡ@*B;̀̀آA'ʀˡBʀáʀá>??>D;T ,+z>>"ȡ{ˡo!צError # . closing FILE or DEVICE opened by last program$>"z>@t!-ǀ@? ? צPE š:X fˡ ؞!؟?!? ?ˡMx?š3ġ  ?w?v?ádt J~*!ˡ !蟚dt*ńȄ4šáRתPńȄ ,ń.áš蕿@šQȡ2é000+-Í-ë0^ 000á'3á 000 {]\ ȡ3"#쾿 > 9dá. 6áá:00áQP 0á0 뾿 9šš > | á1á3  ] |Nš  ɡ'áצ-32768 ` 逫-ġ@00ń0ˡ ɡc ȡꫀZš "1諀멀ȡ! ꫀ𩀄򩀄"7ũ  @š& "ˡ鿩/ȡšš  > ;N áEF > 섡/ F >"ˡFFFFF>N >=" "ˡ v  á ń# Ȅ ꚹ~á^"Ä<7=+ > ˍ >  BFF >"ˡFFTFPd= šš > "ˡ "Lá"  që   N "ˡ  )á á áˡ  šá áK<"á83 ɻ  X\Hب&̂(ʂ( ʂ(ʂ(ʂ($ʂ(̂)ʂ)!&ʂ)ʂ)ʂ($ʂ($z>ׯ{ y@צ>>  OQSUWY[] ''A>zˡ@*B;̀̀آA'ʀˡBʀáʀá>??>D;TNo user programתP4text? o@ Compiling... NNRRRSYSPASCAL/RT2SYS.CODE:JJ>z Xأأ أ > ,11ȡd1d1ٲ ٲ  ٗ 1!&ءdt >? ? ޢ ȡڤ ˡpݢڤ?Xܢ0ۤ ݢ`ڤáޣ!ݢ`ڤˡ  ޣ ר d't!צPΦתP22>  pq%sy!{P{ %צSystem re-initialized& j28h4rP  צCONSOLE:(#צSYSTERM:(>z ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????ר d't!צPΦתP22>  pq%sy!{P{ %צSystem re-initialized& j28h4 צCONSOLE:(#צSYSTERM:(>z ë0???JanFebMarAprMayJunJulAugSepOctNovDec?????????$  wx55ȡ"5555vu *?    H2צ*צ:צ??"?[צ0Bצ0tצ0,k\M B3&ʂddʂdضáSʂdšJ?ʂd1Ƃ;צ*SYSTEM.STARTUP.P1 Ƃ;P צPGתPˡǀ?P:ײP)@$$ Ȅ٤ ̂d ʂdʂd >ʂd׷ړ ؞&"ڡؿʂdá ʂd ʂd.áʂdʂdʂd ˻عcʂdצCONSOLEjʂdSYSTERMתYʂdצGRAPHICHʂdPRINTERת7ʂdצREMIN(ʂdREMOUTתE ʃE ʃE  ʃEʃD̃EʃEʃEʃEʃEʃEʃEʃEʃE  ʃE 4$Ƃ+̂dʂdȡ+٤ ̂eʂeתʂeʂeܣʃDܢʃD%ܢ% ʃD>ʃDʃD+ >&?̃DʃDʃDʃDʃD%̃E ʃEʃEʃEʃEʃE ʃEʃE ʃ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(Ƃ+ ƃ*SYSTEM.MISCINFOתPƃ"á̃DܢʃDʃDܢʃD'7SYSPASCAL/RT2SYS.TEXT*tZt^+ZRt^DEVO/SYSPASCAL"JJ*.r;t^JJ:>;t^; NNRRP ^5PECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,)  " تP"á 3 Gצ&Warning: Cannot open the library file + <+צ Warning: צ is not usedR پ$ò$ÄZȡIP  ٲ7)؞7)ؿ؂پ$áڸ444Z ȡ+ؾaġ +ز+ؾ $ 2تPww"á\w++L+IÄ)++LIBRARY FILES:ׯ wڪ 0ޢߢšáޢޣߢ  dޣ"ޢ#ޣ$)ޣߢ  dÍÍޢ  ܓۤ ۤ Äܓۤ  dÄÍߢۢڤ   ڪP44444444"ߚ44 4 4!4"d4$4% 4#44#4á74-4& 4&44&4T ڢڢ& ڢ&ڣڣڢ$ڢڣ"ڢÄڢá     á ۢڤ š sá ŶÄ)ڤ ܢɡ ڶá  á ġMáš6 ܂ۻݪ d ( ڣ"ڣ١ڢڣڢ#ڣ$ڣáڣ$ڣ#š ڢ#ڣ$ڣ%fڢ%ڢ١ڢ&ڣ$ڣ$ ڢ&ڣڣڢÄڣ% ܣġ ۤ ٤ ڨ ܢܣ*@ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġܡ=" áܡ ܓצ $  ޓ(ݤ ߢܯߢ  d˯7 H ۣȡڤ  ۣ צۣۢ0H dō (ܓ(*(ܡ )*) *)* ܓ)ת) (!($IKPz(  Íܡ  , Ąܓ"á    (( )(á (((ܡ( **(( *Ä(*Ä**Ȅ*Ą*MȄ*)v*ȡO(ۤ +++ō++ɍ+ ō+ ȍ+ ( ́ ́ ʁ ʁ צ ʁ ʁ ˄ʁ @˄ʁ ˄3 ʁ ! ʁ Þ"Ä  = &)ʁ á ʁ   "ń,ʁ !  ʁ ޾6ˡ!PV$~<d(Jf 6 " open ̂iv̂jʂjʂj1ʂj ʂj 1> 1Ɓ1ƀƀƀ b1v*ƁP!1Execution aborted. Put in system disk and reboot.*ƁP!1Execution aborted. Put in system disk and reboot.Yd 8ءPšP Tצ:ƂPƂצ/ƂPƂ̂iƂiƂPƂiƁǠƂiP?̂e?>ʂe?>"ˡ$צUnable to open ̂iv̂jʂjʂj1ʂj ʂj 1> 1Ɓ1ƀƀƀ ired library files are not present 3L?Required intrinsic(s) not available (possible bad library file)X PުP*vƁnPvƁΪPƂ;PƂ;ƂƁƂgƂf̂dƂPʂd ΦתPצ:Ƃ+3w w+w+b43  n 4ńV54̂.5ʂ.ȡ;5575) ʂ 5554 Ƃצ*SYSTEM.LIBRARYPxƂ ʂx+3:-Error: Requ˄ɡۤ  dáߢ  dá ߢ &ޣ˄ ߢ  ߢ ۤ ߢޣ"ߢ ޣ#ޢ ޢۤ ޢ á٢á( ת$&(0!    š  ݓۤ ۤ Äݓ š ۤ  ɍX ޚ "ˡ8ˡޚ   dܓڢڢ   "ġ$ނ#;> > ;>c> 0Ʉ  廹> ō> 0 0,?? 19 c? ??á>0 ;? ?,2-2ȡ ނ0ō>- >>+2ȡ09ō>0 ˡ c> >>0Ʉ廹> ٪P3-, ,á55תآ1آ 0 5 6633 ȡ 6363 dȡ 6 3 65 4/ á5  5 -5 ---525 ˡ 5. 5.2,2h  ػ!2 jڝ?"ɡ6?#?#ھá?#٧?#ڝ?"ٕ?"ڕ?"?J=á=2áˡL2" ۝?"ܓ?#۾á ?#ܡ$?#RšR?#ئתPVdá;<:PP#PC/š:7צ:P; ./Ad ?3 1ˡI á+ݢˡڦתRáצ!צ2ڧ? š ǀڧ?ǀǀ Ǔš@:צ!á צ!P$;ئ00000תP  0ڂȡ۾0Ʉ< R<87  áG:/ |77áBš2@/áf9šoá+ھ.á ھ/á 2á9&á9á  áán8ڧ? á 6ȡ/ݾ!á ݾ /P޾ /P 5RR3ۂɄݓVá(۾'ۂ@n: צ/˄5ȡ0ƀƀP̀ʀȡ0ܾaġ 00ܾ 87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8ת802Ȅ&0á݂0 4 6ȡ4 0.  á5٪P,6YتPš  ȡ޾ *:Í#Í*á ޾:ˍ צ:P?P#áL۾ ݏ۾0 4ޕ P5:Ä:P.áٳ ا?ǀǓ ا?ǀ:1!&ÍXÍc(ÍEÍ QáG'á@=+á3@á)Fá Gá Há >z? ؚ21!$4YP>3$M l 0 nL T "&"ˡ.&"ˡ$  " áP$ނ š: -Ʉ  $ $ $šš$%&$۞$$ۂۂەߓf%%&"ˡ|ɡ& & "ˡN$ߡá4 á,á"$࣡ $ $šš&$۞$$ۂۂە R%%&"ˡ.&"ˡ$  " áP$ނ š: - ;?  ō> ? 0*2 )2ܪP/ۻ0/ٻ1 23/3"32\ 6۪Pá? ?"11ǐȡs. .ٻ..3P33? 223.20#0á-=?#?"?#?"?"?"002 ,٪PتPZ,PƀPZ3ƀ3ZƀU$UáVV?"ɡYV?"YB?#V,á?#VZ,,ZYYV?#VVY,W?"Wǐš ?"VUiV,bbbbbbbbbbbbbbbbDISKEDIT ǰȑHH`0&# L? zD<F`"tL>nRJRl: * ( 2  R     6&>@). Calls the SOS routine GET_MARK.}  :?  hhҰ L0? hhhh Ӱ HHL#6?e ?hhhhhhưȑHH`# D?hhhhhhhh   * <L*?   d *hhhhL#"!6?   * <L*?   * <b L%$:?   * <c L%$j** * <LedbVRQPONMLKJIHFDCA>963?  hhhhhhꍴ0 ȩhh * <Ȱ ȩLa`XMJ0-*('& ~? * <LGF=:43-,+*%" f?   d *hhhhL#"!6?  hhhhϰ j쭳j*쭲L=<40.-,% V?  hhhh왺ED<:520.-+*)$ f?  hh * <hhL'&$"<?  hhhhHH * <İ ȑjȑ*ȑLedbROLJI |?  hh왺 ȑL54)&#!  L?  hhhh * <Ű 깷LCB1.-,*)&# ^?  hhL  ?  hhhh * <hhʰ 쭷ȑL{@H?hhhhhhjWȑ jȑ(!Hh0?H&h*0HH`?  hh *h < L+*(" B?  hh * <` hhL&ȑ`W CL& hʈL&fi` hhHj*H*HHL&SOS-PARAM-TABLE߻5޻5ݻ5ܻ56; ; ;  <  3 5=(=2hx? ?"? ? ?  . /202hh%hh%HH`%ʎ%HHXWɡ?#X?#XW?"XWš?#X?#XW?"X?"W?"?#VVVU2 R2 ػ%2تP3+&+2T'á  ܚ2"  P ٨ ب5 5`8`&A;;;ɡ.D2/NEWFILE.A0.ASCIת;5ɡ.D2/NEWFILE.B0.ASCIת^;Oɡ.D2/NEWFILE.C0.ASCIת<;iɡ.D2/NEWFILE.D0.ASCIת.D2/NEWFILE.E0.ASCIת;ɡ;:0;5ɡ;:";Oɡ;4:;i`<ٿ<<`AڹF2E-D(C#BA  ")00ѡ `<ؿ<<>>>á3>===éAÍ ѡ 6צA `?I`? áѡ ѡ  ??ѡA@=! `A۹F2E-D(C#BA  ")00ۂѡ  This is block B  ѡO This is block B  צ| ѡ| @?A?ȡ`?ť`?Ʉ3ѡ`?DC<`` ˄K 1-) % -DC á צ7 AáB ɡ צ PB ũBdɄ PתPD4ɩCɄ< NtbJ4צQ---Quit 0צEnter your choice: 3s okgBq` )"$&(*,.02468:<>@WUFHJL[PRTVXZ\^iQqÍ ץPress RETURN to go to Menu:   MAIN MENU,צB---Block Editor0צC---Cat Fixer 0צH---Helpful Info0צQ---QuiLRFHJLNPRTVXl\téBńBBéBɄBB=>U& help.asci|ˡl{ɡ O{á @}á;צPress RETURN: `BBũBɄ@<AAȡ AAѡ Ѷ1R)ead, E)dit, D)irectory, P)rint, Q)uit, <-, ->: Dr^  ,4 "$&(*,.02468:<>@REBOOTˡf Block Editor.3Put disk to be edited in drive 2 and press RETURN: B>0=ѥp~~`~Qq˄` ``  ɡ`'á צPress Return: ? צINSERT SYSTEM DISK AND Blocks ɡá\`` ``   'ثAAȡ;`Aá  `AAA` ` `AAA `&`'  `(`)  `*`+ צ-Prev Next File Name Type Map program diskedit; const bytes = 512; var resp,stuff:char; filename: string[19]; w: string[80]; h,v,i,x,y,z,q,line,nibble,filenum,tnum,blocknum,fileblock: integer; nextblock,first,last: integer; bigmap: array[0..279] of integer;tuff) end; procedure numget; begin x:=0; while ord(resp)<>32 do begin x:=x*10+ord(resp)-48; read(resp) end end; procedure catfix; begin filenum:=0; writeln(chr(28)); writeln('Cat Fix':43); writeln; writeln( {checkcontrol} procedure catdone; begin write(chr(28)); writeln('Files transferred to new disk.'); writeln; writeln('Remove damaged disk. Put Program disk in Drive 1'); writeln; write('Press RETURN to go to Main Menu: '); readln(s if segmap=true then map:=false else map:=true end; {segcheck} procedure checkcontrol; begin map:=true; mapid; if map=true then checkdup; if map=true then segcheck; if map=true then markit end; blocknum:=blocknum+1; fileblock:=ord(mapbuf[blocknum])+256*ord(mapbuf[blocknum+256]); nextblock:=ord(mapbuf[blocknum+1])+256*ord(mapbuf[blocknum+257]) end; {while loop} 1])+256*ord(mapbuf[blocknum+257]); while (blocknum<255) and (nextblock>0) and (segmap=false) do begin map:=true; unitread(4,buf,bytes,fileblock); mapid; checkdupe; if (map=true) and (blocknum>1) then segmap:=true; {segment other than segment 1 is also a map, then} begin {we're looking at an erased file.} segmap:=false; mapbuf:=buf; blocknum:=1; fileblock:=ord(mapbuf[blocknum])+256*ord(mapbuf[blocknum+256]); nextblock:=ord(mapbuf[blocknum+ if (ord(buf[x])<>0) and (ord(buf[x])<>1) then map:=false end; if map=true then if ord(buf[2])=0 then map:=false end; {mapid} procedure segcheck; {checks to find another map in the file. If a file} 256 do begin if z=ord(buf[y])+256*ord(buf[y+256]) then dupe:=true end end until (x=255) or (dupe=true) or (z=0); if dupe=true then map:=false end; procedure mapid; begin for x:=257 to 512 do begin nd; close(outfile,lock) end; {markit} procedure checkdup; {if the same char appears, no map} begin dupe:=false; x:=0; repeat x:=x+1; z:=ord(buf[x])+256*ord(buf[x+256]); if z<>0 then begin for y:=x+1 toile,filename); bigmap[i]:=filenum+128; fileblock:=ord(mapbuf[x])+256*ord(mapbuf[x+256]); while (fileblock<>0) and (x<=256) do begin bigmap[fileblock]:=filenum; writeit; x:=x+1; fileblock:=ord(mapbuf[x])+256*ord(mapbuf[x+256]) e else if filenum<53 then tnum:=filenum-26 else if filenum<79 then tnum:=filenum-52 else if filenum<105 then tnum:=filenum-78 else tnum:=filenum-104; filename[14]:=chr(64+tnum); writeln('Writing to ',filename); rewrite(outffilename:='.D2/NEWFILE.B0.ASCI' else if filenum<79 then filename:='.D2/NEWFILE.C0.ASCI' else if filenum<105 then filename:='.D2/NEWFILE.D0.ASCI' else filename:='.D2/NEWFILE.E0.ASCI'; if filenum<27 then tnum:=filenum 2} begin unitread(4,buf,bytes,fileblock); write(outfile,buf) end; {writeit} procedure markit; {writes to bigmap} begin x:=1; filenum:=filenum+1; if filenum<27 then filename:='.D2/NEWFILE.A0.ASCI' else if filenum<53 then buf,newbuf,mapbuf: packed array[1 .. bytes] of char; bigbuf: packed array[0 .. 1023] of char; hexchar,caps:set of char; outfile,infile: file of char; print,map,dupe,segmap:boolean; procedure writeit; {writes new file to drive 'This segment of the program attempts to recover files from disks'); writeln('with damaged directories. You''ll need a blank formatted disk'); writeln('to store the recovered files in Drive 2.'); writeln; writeln('Put DAMAGED disk in Drive 1'); writeln('Put NEW DISK in Drive 2'); writeln; write('Press RETURN'); readln; for i:=0 to 279 do bigmap[i]:=0; writeln; write('Start at block (RETURN=8): '); read(resp); if ord(resp)<>32 t then write(outfile,' This is block ',i,w,' ') end; {if x=bytes} write('| '); if print then write(outfile,'| '); for z:=y to x do begin if (ORD(buf[z])>31) and (ORD(buf[z])<127) then ') end; procedure english; begin if x=bytes then begin if i<10 then w:=' ' ELSE if (i>9) and (i<100) then w:=' ' ELSE w:=''; write(' This is block ',i,w,' '); if print 11: up otherwise replace end; {case loop} GOTOXY (h,v); read(keyboard,resp) end; {while loop} if resp= chr(32) then rehex; GOTOXY (0,23); write(' RETURN to accept; ESC to abort: '); h:=0; v:=0; nibble:=0; newbuf:=buf; resp:=chr(08); while (resp<>chr(32)) and (resp<>chr(27)) do begin case ord(resp) of 8: back; 21: fro; 10: down; gin if ord(resp)>96 then resp:=chr(ord(resp)-32); write(resp); bigbuf[nibble]:= resp; fro end else write(chr(07)) end; procedure editor; begin GOTOXY(0,23); write('Use arrows; 00-FF; begin nibble:=nibble+1; h:=h+1 end else write(chr(7)); if (h=8) or (h=17) or (h=26) or (h=35) or (h=44) then h:=h+1 end; procedure replace; begin if resp in hexchar then be if (h<52) and (v<21) then begin nibble:=nibble+1; h:=h+1 end else if v<21 then begin h:=0; nibble:=nibble-47; down end else if (v=21) and (h<16) then (h=26) or (h=35) or (h=44) then h:=h-1 end; procedure down; begin if nibble<976 then nibble:=nibble+48; if v<20 then v:=v+1 else if (v=20) and (h<17) then v:=v+1 else write(chr(07)) end; procedure fro; begin write(chr(07)) end; procedure back; begin if h>0 then begin nibble:=nibble-1; h:=h-1 end else if v>0 then begin h:=52; nibble:=nibble+47; up end else write(chr(07)); if (h=8) or (h=17) or newbuf[x]:=chr(z); x:=x+1; nibble:=nibble+1 end; {while loop} unitwrite(5,newbuf,bytes,i) end; {rehex procedure} procedure up; begin if v>0 then begin nibble:=nibble-48; v:=v-1 end else if bigbuf[nibble] in caps then z:=16*(ord(bigbuf[nibble])-55) else z:=16*(ord(bigbuf[nibble])-48); nibble:=nibble+1; if bigbuf[nibble] in caps then z:=z+ord(bigbuf[nibble])-55 else z:=z+ord(bigbuf[nibble])-48; checkcontrol end {if loop} end; {for loop} writeln; catdone end; procedure rehex; begin nibble:=0; x:=1; while nibble<1023 do begin t else if last>279 then last:=279; writeln; writeln('Reading Block ',first,' to Block ',last); for i:=first to last do begin if bigmap[i]=0 then begin unitread(4,buf,bytes,i); hen numget else x:=8; first:=x; if first<8 then first:=8 else if first>278 then first:=278; writeln; write('Stop at block (RETURN=279): '); read(resp); if ord(resp)<>32 then numget else x:=279; last:=x; if last27 then quit end; pr write(ord(buf[B1+16])+256*ord(buf[B1+17]):5); writeln(ord(buf[B1+18])+256*ord(buf[B1+19]):8); entry:=entry+1; if entry<13 then if ord(buf[entry*39+6])=0 then entry:=13 end; {while entry<13} writeln; write('Press 4]):5,' ') end else write(' '); B1:=entry*39+6; for x:=B1 to B1+14 do begin if ord(buf[x])=0 then write(' ') else write(buf[x]) end; write(ord(buf[B1+15]):6); ); entry:=1; writeln end; writeln('Prev Next File Name Type Map Blocks'); while entry<13 do begin if entry=0 then begin write(ord(buf[1])+256*ord(buf[2]):4); write(ord(buf[3])+256*ord(buf[in if ord(buf[x])=0 then write(' ') else write(buf[x]) end; write(' '); write(ord(buf[38])+256*ord(buf[39]):7,' '); write(ord(buf[40])+256*ord(buf[41]):7,' '); writeln(ord(buf[42])+256*ord(buf[43]):12 writeln('Key Block of Disk'); writeln; writeln('Prev Next Disk/Volume Name Files Bit Map Total Blocks'); write(ord(buf[1])+256*ord(buf[2]):4); write(ord(buf[3])+256*ord(buf[4]):5,' '); for x:=6 to 20 do beg readln; print:=true; rewrite(outfile,'.PRINTER') end; {printit procedure} procedure catlist; {displays block in directory format} var entry,B1: integer; begin entry:=0; writeln(chr(28)); if ord(buf[1])=0 then begin '); GOTOXY (6,23); write ('Next Block (0-279): '); readln(i); if (i<0) or (i>279) then reblock end; procedure printit; begin write(chr(28),'Turn printer on and hit RETURN: '); else begin write(' '); if print then write(outfile,' ') end {else loop} end (*if q=4 loop*) end; (*procedure hex*) procedure reblock; begin GOTOXY (5,23); write(' write(righthex); if print then write(outfile,righthex); bigbuf[nibble]:=righthex; nibble:=nibble+1; q:=q+1; if q=4 then begin q:=0; line:=line+1; if (line=6) or (x=bytes) then english RD(buf[x])-onechr*16; case twochr of 15:righthex:='F'; 14:righthex:='E'; 13:righthex:='D'; 12:righthex:='C'; 11:righthex:='B'; 10:righthex:='A' otherwise righthex:=CHR(twochr+48) end; thex:='D'; 12:lefthex:='C'; 11:lefthex:='B'; 10:lefthex:='A' otherwise lefthex:=CHR(48+onechr) end; write(lefthex); if print then write(outfile,lefthex); bigbuf[nibble]:=lefthex; nibble:=nibble+1; twochr:=O=x+1; line:=0 end; (*procedure english*) procedure hex; var lefthex,righthex: char; onechr,twochr: integer; begin onechr:=ORD(buf[x]) DIV 16; case onechr of 15:lefthex:='F'; 14:lefthex:='E'; 13:lef'9','A'..'F','a'..'f']; caps:=['A' .. 'F']; while (stuff<>'Q') and (stuff<>'q') do begin write(chr(28)); unitread(5,buf,bytes,i); if (i>1) and (i<6) then catlist; y:=1; nibble:=0; for x:=1 to bytes do hex; if print then begin close(outfile); print:=false end; {if print} writeln; write('R)ead, E)dit, D)irectory, P)ri{print..............................boolean value. Print this block?} end. exchar............................set of characters in hexadecimal numbers} {caps...............................set of characters from A to F} {outfile............................the printer} ...four-bit segment in bigbuf} {buf................................array of characters from file} {newbuf.............................array of characters written to new file} {bigbuf.............................array of hexadecimal characters from file} {h....................integer: a counter} {z..................................integer: a counter} {q..................................integer: 6 4-byte segments} {line...............................integer:24 bytes per line} {nibble..........................{h..................................horizontal coordinate} {v..................................vertical coordinate} {i..................................block number of starting block} {x..................................integer: a counter} {y..............IST} {resp...............................characters read from the keyboard} {stuff..............................characters read from the keyboard} {w..................................string width} until (resp='Q') or (resp='q') end; begin {MAIN BODY} writeln(chr(28)); gotoxy(0,10); writeln('BlockByter':45); writeln('by':41); writeln('Robert Boston':47); for x:=1 to 400 do writeln(chr(11)); menu { VARIABLE Lxer ':48); writeln('H---Helpful Info':48); writeln('Q---Quit ':48); writeln; write ('Enter your choice: ':51); read(resp); writeln; case (resp) of 'B','b': reader; 'C','c': catfix; 'H','h': info; 'Q','q': quit end $end; $ "gotoxy(0,24); "write('Press RETURN to go to Menu: '); "readln(resp); "close(infile,lock) end; procedure menu; begin repeat writeln(chr(28)); writeln('MAIN MENU':44); writeln; writeln('B---Block Editor':48); writeln('C---Cat Fiile,stuff); while stuff<>'|' do begin &if ord(stuff)<123 then write(stuff) &else if stuff='{' then writeln (else if (stuff='}') then *begin ,gotoxy(0,24); ,write('Press RETURN: '); ,readln(resp); ,write(chr(28)) *end; &read(infile,stuff) and (i>0) then i:=i-1 else if (ord(stuff)=21) and (i<279) then i:=i+1 end; line:=0; q:=0 end {while loop} end; procedure info; begin "write(chr(28)); "reset(infile,'help.asci'); "read(infnt, Q)uit, <-, ->: '); read(keyboard,stuff); case stuff of 'R','r': reblock; 'P','p': printit; 'E','e': editor; 'D','d': catlist otherwise if (ord(stuff)=8) BLOCKBYTER Helpful Information The BlockByter program contains two major segments:1. The Block Editor allows you to read, edit, and print information in any block of a SOS, ProDOS, or DOS 3.3 disk.2. The Cat Fixer attempts to recover files file is block270.The Editor's Prompt LineAfter the program displays the hex/text representation of a block it printsthe current block number (in decimal numbers) and prompts for a command. Thechoices are R)ead, E)dit, P)rint, D)irectory, Q)uit, <--, --> the third block,and so on.To read the file map, multiply the high byte by 256 and add the low byte.Examples:Byte 260 of the map is 00; byte 4 is 0E. The fifth block in the file is block14.Byte 260 of the map is 01; byte 4 is 0E. The fifth block in the) contains the HIGH BYTE of the file's block number.The two halves of this map are always in parallel, 256 bytes apart. Byte 256and byte 0 designate the first block of the file. Byte 257 and byte 1designate the second block. Byte 258 and byte 2 designatelock) containsthe list of block numbers which the file occupies. A map can contain up to 256 block numbers. The first half of the map (byte 0 to byte 255) containsthe LOW BYTE of the file's block number. The second half of the map (byte 256to byte 511er directory blocks (3-5) in the same way: firsttext only, then hex and text. If you encounter subdirectories elsewhere onthe disk you may display them as text by pressing D)irectory.Map BlocksIn SOS and ProDOS, each file's Map Block (also called the Key Br first gives you a text display of Block 2, the first directory block, listing the Map Block of each file. When you press RETURN, the editor lists the same block in both hex and text so that you can edit the directory if youwish. It will treat the oth in binary or 01 00 in hexadecimal. 257 would be 00000001 00000001 or 01 01. 511 would be 00000001 11111111 or 01 FF. 512 would be 00000010 00000000 or 02 00.Directory BlocksIn SOS and ProDOS, the disk directory normally occupies Blocks 2 to 5. Theeditoly add bytes together (the decimalnumber 1000 would require 4 bytes), so the computer uses a HIGH BYTE, in which the lowest number continues the geometric progression of the LOW BYTE. Example: Using two bytes, the decimal number 256 is 00000001 00000000and 1A (16 times the first digit and add the second digit).The largest 8-bit (or one-byte) number is 11111111 (decimal 255, hex FF). To handle numbers larger than 11111111, 255, or FF the computer must use two ormore bytes. It would be wasteful to simp easier to read when translated into hexadecimal notation (base 16) inwhich the digits range from 0 to F (0 is 0, 9 is 9, A is 10, F is 15). Example: the decimal number 17 is 00010001 in binary and 26 is 00011010. In hexadecimal, the same numbers are 11 Hexadecimal Numbers: The Apple works with 8-digit binary (base 2) numbers, and an 8-digit number constitutes one BYTE composed of 8 BITs. The term "bit" stands for Binary digit. These numbers are difficult to read in binary form, but they are somewhat whose directories are damaged or overwritten. THE BLOCK EDITOR The Block Editor displays the information in each block as text and ashexadecimal numbers. You may edit only the hexadecimal side of the screen. How to ReadYou must enter only the first character of each command.R)ead allows you to read any block on the disk. After you press R, you'll beasked to enter a block number (decimal 0 to 279) to be read.E)dit allows you to edit the block's hex representation using cursor controls.P)rint will print the current block to the printer.D)irectory will display subdirectory blocks as text only.Q)uit will return you to the Main Menu.<-- Left arrow will read the previous block.--> Right arrow will read the next block.EditiBLOCK EDIT AND BLOCKBYTERrive 1. (The program tells you when to switch disks.) Finally, you can specify the range of blocks which Cat Fixer should search for maps. lly, you{can specify the range of blocks which Cat Fixer should search for maps.|ile produced by Cat Fixer is an ASCII file, for that's themost common file type. If your copied file doesn't work, use Pascal's A)ltercommand to change the file type. Cat Fixer requires a blank formatted disk in Drive 2 and your original damaged disk in Ddirectory to find and restore the file. Cat Fixer uses only the mapblocks of the disk.Do not use Cat Fixer as anything but a last resort, however. Because theprogram doesn't consult the directory, it doesn't know what kind of file it'scopying. Every ftext files on a disk whose directory was erased by a power surge, but it has also restored files when the original directory entry was replaced by the entry of a new file.In such cases, programs like Lazarus cannot restore the file, for they read the disk ck. CAT FIXER The Cat Fixer segment of the program works only with SOS or ProDOS disks. It identifies each map on a disk, reads the blocks on that map, and writes themto a new file on a new disk. Cat Fixer can restore reen. The text sidewill not reflect your edits until the program reads the revised data from thedisk. Therefore, it's a good idea to P)rint the block before editing. If youmake an error in your hexadecimal math you'll have a hard copy of the originalblochanges, press ESC.To accept the changes and rewrite the block on the disk, press RETURN. Theprogram will write the changed block to the disk, read the revised block, anddisplay it for verification.Note: You can edit ONLY the hexadecimal side of the scngIn E)dit mode, the program puts the cursor at the beginning of the currentblock. You can move the cursor to any nibble (half-byte) with the cursorcontrol keys. Pressing 0-9 or A-F (or a-f) will replace hexadecimalcharacters in the block. To abort the