LBSOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUNDINVALID KERNEL FILExةw,@  4  J  ȱ⩤i8#) ) 8LeSOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 ,VH!a.SYSTEM.LIBRARYH!ͮ%SYSTEM.MISCINFOH!VS-SYSTEM.PASCAL3dH!.SYSTEM.STARTUPH! )XFER.BLKS H!-READ.ME.FIRST/0III.REPAIRS.02Bu' -DISKEDIT.V2.28H! )EDIT.INSTH!-MAKE.BIG.CODEH!*SOS.DRIVER $#[% *SOS.INTERP<#DH!*SOS.KERNEL _m#im#iЛ#Lȱ  6L憦  Lsmm l y` @8(Je稽 ʈ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<    $+147:>ADGLQ\o} 38;>CS`sz #&*2<?B .CONSOLE a (C) 1980 by Apple Computer Inc13579;=?ACFNWaehmpx $@QVZ_diw|  +069AFMRW]bgjmr #(+036DGPSdgjmp{~0 ^8` Y[՝ԝϝН  `F`aHc h d f eb``F d bb`̠`̠`  , p ` ` `e bb ̠%`?*xF,X ʝTT(`…ʍLÅˍMPNW)QI)Qi P`)QW`xH) PQn8 h(` p= 1 Z5%Lf bb Ѥ `U `F8`]^Fg8 b b g x (`U8  6LxHT ʍRʍSh)ɄJJn8Tx,X ʠʠ ,X0,T0ʬTʠRʠS( <LT UTUVVmTʥi,WɁ)˭Qi ɠ)QP`L"Y 8 Yi % Lҭ"] ! LL 9_L )'LD- Z)Aa)H LtL< L0LxxVU,X0 L8 (I 6Lt)T ʪi)ITn  <V=ߠF,X0өXѩ ϩ - (]Y L  Aҩ] = ,Z- `)4a)X-qȑ @L L0L 9_L )8'$դԦ OˍMNK` `H <h (L­MíNLIJ  Xөхυ   `(%H (FI  ) (j` `È` ȑ`! (`JI|L_L$[`[`*J%Khh`դ8eԅԥi ՄԐhh, (iIlhIkgj`ȑȥJI  I "L)H (O_Z o O?ͩdfe̍ƅԥDžծF)D\ \ ' (   "m` 2H1H` (& ( ( (k^##D0C O F̍mAA?@  " DL8H\0`(d  $,($  ,L APPLE /// SOS Profile Driver (C) Copyright 1981, Apple Computer Inc.R|.PROFILE&(C) APPLE COMPUTER INC. 1981A `m0,>!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>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>.O  OOEJLf ((((PPPPBTVSPLH   5Aʘ ;H:H` (# (I// 0`)I<0 ^)WL)6L5 I`6 `7 I`8 I`9A)I@`{ ~I)_ J) ) )) ,0E EJ%ȎбʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA`f(,:<>@BDFHJZbmt{!$,169>AILORU[aknqw~ $27?DGK"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $pI I `[M,Y0JՐ̑ʈ`Jհ0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0,Y0'^^^]]8^][[```__8`_\\b)ba)a b 04 )ߍY) J,P,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(ĩϭ & &υΠÑΈΝ + ҰةeÅÐн,,P,`,$ ( $  x) (,`% (L5, `é ĩ `Y) jYZNZ~ZOI `x|x|,,P-X + ΝL  `,0 x) `(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍ lO  zh) `(" ( (ÈE  z`)QȱÍR`)P`Ɂ" (`Hh) `ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* ((èDÈ`QȭR`P```JÈ`EÈ`S`T`U`V`W`X`[ȭ\` `YȭȭéL, HH`L5L  d     HEJZ`aL bL )Z) ZL   x) `(, LL͏[`͐\L" L L L [LM LM ,0L5 HH`! (56O[agm x `(" m[]_m\_[\L [m]^\m_`L bXL Z Z`Z)Z`,@`[, [L[`[͏[`,s[L\͐\L" ,XL \\L" ,CL [\L" [,)LL L YL Z)ߍZ`Z Lz )"Ơ̏ HH` MH,Y [J h̰ [h,L`  ;Yo}"+9GPYo ` Xb[m][\m_\]_^`L ];ҥ,W #LA\   8҅¥Ӆé҅L,T ,U H,T p  He҅Ґhe…å逅h,QRLґȥӑ,P0 h0  z`,0L5 ҅ӥĥŰ+,0p J L J `,0L5,P0H0 ԥ f0)ĭX)X҅x  (ĥŐL ,PHȊ©L,T2,X-P" a{)X LnX0$0%,V ҥ #L$0T,WOKT0P J(,@`[,S`,XP"[YJ H) +̰ H) +ʭP h̰ʩ8,)΂ ̓`,T H h J `T!   J(P JPSX`{ (+2;X[^chm%=BEHKPX]aehorw{!$',/47:>ADGJMRUX\_behknsv|  !$'*-27;@EILORUX[`chknsv~ "$&(*,.024HQW]ciq|8f* 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 reliable. SIDE TWO: The famous Mensch Block Edit Program. Allows you to view or change code at the root level. Not for the faint of heart! 0 WAP /// SIG PUBLIC DOMAIN LIBRARY DISK 3REP-02 CATEGORY: REPAIRS TITLE: Apple /// Diagnostics Disk/Block Editor SIDE ONE: Another version of the Apple /// Diagnostics disk. Easy to use - but beware: the disk check program has been reported to be un /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030M P S X \ _ b e j o t w z   $ ' , / 6 = N S X ` t (-1:C\aeqw~36qw           & + . 1 4 7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H ȩ`,(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,bbbbbbbbbbbbbbbbversion 2.2DBLOCKEDI ǰȑ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ڪP/.-XšI/9šX/0ɡX/0-. ..-.//X/Í/šX/áX.dX  ˡá,Ƃ(צ edit.instƂ)P צ new block number YP= צ= = = צ= צ; = YáYšXY XX Y X צ= number of new device YP= צ= צ= T צ page has been swappedEáEED  0X;  e0 f0 צ8 function not implemented.. press space to continueDצ= =  40 50 60 70 80 90 a0 b0 c0 d0HEá áFH Z Grunning programHؚš G 00 10 20 30@<8.02468:<>@BDFHJLNPRTVXZ\^`|x H š G6H ɡ H.Há9 b^ZVRNJFB LHD@<8.02468:<>@BDFHJLNPRTVXZ\^`|xZ zt1flb^ZVRNJFB LHDtagbZcMd@e3f&~sh]RG<1*Z zt1fl89tagbZcMd@e3f&~sh]RG<1123456789Cf צ reading blockC צ on device  Cj001234567Ƃ) )press space to continue { escape to end }D DÍצwriteing blockC צ on device   YáYCX <&EPE ɡ.ZDCommands: \(shift to ascii input P(age ؏ צmode is  hex 1 2 'O^$ؤ/ D(evice B(lock P(rint Q(uit I(nstructionsFF  1p  "5&=G,.0;468:<>MBDFHJLNPRTVXZ\^`buf}lnp{tvxz|~FQáqFFqá  4 ` f P:(,nt device:   block#: C צ page E  Eáצ2(pagePצ1(pagePצcommands E(dit / D(evice B(lock P(rint Q(uit I(nstructionsFF  1p  "5&=G,.0;468:<>MBDFHJLNPRTVXZ\^`buf}lnp{tvxz|~FQáqFF   CE  current device:   block#: C צ page E  Eáצ2(pagePצ1(pagePצcommands E(dit צ= " 0צ#C(ursor editing or P(rompt editing XDDXXXDcéDCÍצ Dáڡsave changes? DDyáצ= = () צto what YPYYE%press space to continue to exitDצ% DDyápGXצ8 צchange YPYɡYšYYEnܹKá ˡVáˡ<ˡ0ˡ$S& Tš"\ˡEܿ ásave changes?   block#: C צ page E pC D "$&(*,.0#468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~.צascii ܹá ˡáˡˡˡ EEáEE current device: ,'F','f':low:=15; (end; (case hex[1] of ,'1':hi:=1;  '2':hi:=2; ,'3':hi:=3; ,'4':hi:=4; ,'5':hi:=5; ,'6':hi:=6; ,'7':hi:=7; ,'8':hi:=8; ,'9':hi:=9; ,'A','a':hi:=10; ,'B','b':hi:=11; ,'C','c':hi:=12;  'D','d':hi:=13; [2] of ,'1':low:=1;  '2':low:=2; ,'3':low:=3; ,'4':low:=4; ,'5':low:=5; ,'6':low:=6; ,'7':low:=7; ,'8':low:=8; ,'9':low:=9; ,'A','a':low:=10; ,'B','b':low:=11; ,'C','c':low:=12;  'D','d':low:=13; ,'E','e':low:=14; ; ,6:hex[1]:='6'; ,7:hex[1]:='7'; ,8:hex[1]:='8'; ,9:hex[1]:='9'; ,10:hex[1]:='a'; ,11:hex[1]:='b'; ,12:hex[1]:='c'; ,13:hex[1]:='d'; ,14:hex[1]:='e'; ,15:hex[1]:='f'; (end; end; ({$page} procedure hex_dec; begin (low:=0; (hi:=0; (case hexx[2]:='7'; ,8:hex[2]:='8'; ,9:hex[2]:='9'; ,10:hex[2]:='a'; ,11:hex[2]:='b'; ,12:hex[2]:='c'; ,13:hex[2]:='d'; ,14:hex[2]:='e'; ,15:hex[2]:='f'; (end; (case hi of ,1:hex[1]:='1'; ,2:hex[1]:='2'; ,3:hex[1]:='3'; ,4:hex[1]:='4'; ,5:hex[1]:='5'(unitread(dev_num,buffer,512,block);  end; {$page}   procedure dec_hex; begin (hex:='00'; (hi:=dec div 16; (low:=dec mod 16; (case low of ,1:hex[2]:='1'; ,2:hex[2]:='2'; ,3:hex[2]:='3'; ,4:hex[2]:='4'; ,5:hex[2]:='5'; ,6:hex[2]:='6'; ,7:hen (gotoxy(00,04); (write('writeing block',block,' on device ',dev_num); (unitwrite(dev_num,buffer,512,block);  end;  procedure read_block;  begin (screen_changed:=true; (gotoxy(20,12); (write(' reading block',block,' on device ',dev_num); ount=19) or escape_pressed) or eof(infile)); ,line_count:=0; ,gotoxy(0,23); ,write('press space to continue { escape to end }'); ,read(ch); (until ((escape_pressed or eof(infile)) or (ch=chr(27))); (close(infile);  end; procedure write_block; begi(infile:text; (line_in:string;   begin (screen_changed:=true; (reset(infile,'edit.inst'); (line_count:=0; (repeat ,write(chr(28)); ,gotoxy(0,2); ,repeat 0readln(infile,line_in); 0writeln(line_in); 0line_count:=line_count+1; ,until (((line_c begin (charcount:=0; (escape_pressed:=false; (unitstatus(1,charcount, 21); (if charcount<> 0 then +begin +read(inchar); +if ord(inchar)=27 then escape_pressed:=true; +end; end; {$page} !  procedure instructions; var line_count:integer; '0'); ,nm:=nm*10; ,nm:=nm+t; ,lc:=lc+1; *until (not(ok) or (lc=1+length(num))); ( end; (if lc>5 then ok:=false;  if lc=1 then ok:=false; (val:=nm;  end;   function escape_pressed: boolean; var charcount: integer; $inchar: char; ger; (  {$page}  function val(num:string):integer; var lc,nm,t:integer; begin (lc:=1; (nm:=0; (t:=0; (ok:=true; (if length(num)>0 then *begin *repeat ,if num[lc]>'9' then ok:=false; ,if num[lc]<'0' then ok:=false; ,t:=ord(num[lc])-ord(,h,v:integer; (screen_changed:boolean; (dev_num:integer; (devices:set of char; (p:string; (block:integer; (ch:char; (page:integer; (choice:char; (print_ascii:boolean; (int_line:array[0..15] of integer; (ok:boolean; (answer:string; (low,hi:inte{$page} {$comment (c) 1982 Jim Mensch, Apple computer} {$comment unauthorized duplication prohibited}  {$comment version 2.2}   program block_editor; var (buffer:packed array[1..2,0..255] of char; (hex:packed array[1..2] of char; (dec:integer; (ha,'E','e':hi:=14; ,'F','f':hi:=15; (end; (dec:=low+(hi*16); end; {$page}  procedure write_int_line;  var cn:integer; begin (screen_changed:=true; (cn:=0; (repeat *dec:=int_line[cn]; *dec_hex; *write(hex,' '); *cn:=cn+1; (until cn> 15; (cn:=0; (write(' '); (if print_ascii then *begin *repeat ,if int_line[cn]< 32 then int_line[cn]:=ord('.'); ,write(chr(int_line[cn])); ,cn:=cn+1; *until cn=16;  end; end;   procedure write_array; var cn,c:integer; begin (scre procedure print_normal_byte(byte:integer); begin (screen_changed:=true; (gotoxy(h,v); (dec:=ord(buffer[page,byte]); (write(hex); (if dec<32 then dec:=ord('.'); (gotoxy(ha,v); (write(chr(dec)); end;  {$page}   procedure cursor_edit; const v:=hi+7; (h:=(low*3)+8;  ha:=(low+60);  end;   procedure print_byte_inverse(byte:integer); begin (screen_changed:=true; (write(chr(18)); (gotoxy(h,v); (dec:=ord(buffer[page,byte]); (dec_hex; (write(hex); (write(chr(17)); end; '); ( if length(answer)=0 then exit(change_block); *block:=val(answer); (until ok; (read_block;  end; {$page}   procedure locate_byte(byte:integer); var cv,ch,low,hi:integer; begin (low:=byte mod 16; (hi:=byte div 16;  ); *readln(answer);  gotoxy(0,2); (writeln(' '); (writeln(' '); (writeln(' (writeln(' ');  end;  procedure change_block; begin (repeat *gotoxy(0,2); *write(' '); *gotoxy(0,2); *write(' new block number 'swer); (until ok; (read_block;  end; procedure clrscrn;  begin  gotoxy(0,2); (writeln(' '); (writeln(' '); '); (writeln(' '); *if length(answer)=0 then exit(change_device); *if length(answer)>1 then ok:=false; *if not(answer[1] in devices) then ok:=false; *if ok then dev_num:=val(an '); *gotoxy(0,2); *write('number of new device '); *readln(answer);  gotoxy(0,2); (writeln(' '); (writeln(' (screen_changed:=true; (gotoxy(0,2); (write(' page has been swapped'); (if page=1 then page:=2 +else page:=1; end;  procedure change_device; begin (devices:=['4','5','9']; (repeat *ok:=true; *gotoxy(0,2); *write(' '); (writeln(' '); (writeln(' '); end; {$page}  procedure change_page; begin c0'); (writeln(' d0'); (writeln(' e0'); (writeln(' f0'); ( end; procedure print_block; begin (gotoxy(0,2); (write(' function not implemented.. press space to continue'); (read(ch);  gotoxy(0,2); (writeln(' ; (gotoxy(0,7); (writeln(' 00'); (writeln(' 10'); (writeln(' 20'); (writeln(' 30'); (writeln(' 40'); (writeln(' 50'); (writeln(' 60'); (writeln(' 70'); (writeln(' 80'); (writeln(' 90'); (writeln(' a0'); (writeln(' b0'); (writeln(' procedure write_screen; var cn:integer; begin (cn:=0; (write(chr(28)); (gotoxy(0,0); (print_ascii:=false; (write('running program'); (gotoxy(8,5); (repeat *int_line[cn]:=cn; *cn:=cn+1; (until cn > 15; (write_int_line; (print_ascii:=trueen_changed:=true; (cn:=0; (c:=0; (repeat *repeat  c:=cn mod 16; ,int_line[c]:=ord(buffer[page,cn]); ,cn:=cn+1; *until c=15; *gotoxy(8,6+(cn div 16)); *write_int_line; (until cn=256; (screen_changed:=false;  end; {$page} * escape=27; (back_arrow=8; (forward_arrow=21; (up_arrow=11; (down_arrow=10; (switch=9; (pge=80; (space=32; (  var cursor_hor,cursor_vert:integer; (hex_in:string[2]; (ascii_in:char; (temp:integer; (hex_mode,ascii_mode,cmove:boolean; ( begin (cursor_hor:=0; (cursor_vert:=0; (temp:=0; (gotoxy(0,0); writeln('Commands: \(shift to ascii input P(age'); (repeat *hex_mode:=true; *gotoxy(cursor_hor+8,cursor_vert+7); *temp:=cursor_hor+(16*cursor_vert); ( locate_(writeln(' '); (writeln(' ');  end;  {$page}   procedure edit_buffer; begin (repeat *gotoxy(0,2); *write('C(ursor editing or ; (write('save changes? '); (read(ch); (if ch='y' then write_block  else read_block;  gotoxy(0,2); (writeln(' '); e,byte]:=chr(dec); +print_normal_byte(byte); * end; *gotoxy(0,4); *write('press space to continue to exit'); *read(ch); *gotoxy(0,4); *write(' '); *if ord(ch)=27 then done:=true; (until done; (gotoxy(0,4):=dec; +locate_byte(byte); +print_byte_inverse(byte); +dec:=ord(buffer[page,byte]); +dec_hex; +gotoxy(15,2); +write('(',hex,') '); +gotoxy(0,3); +write('to what '); +readln(answer); +hex[1]:=answer[1]; +hex[2]:=answer[2]; +hex_dec; +buffer[pag,write(' '); ,done:=false; ,gotoxy(0,2); ,write('change '); ,readln(answer); *until length(answer)<3; *if length(answer)>0 then begin; +hex[1]:=answer[1]; +hex[2]:=answer[2]; +hex_dec; +byterocedure prompt_edit; var byte,cn:integer;  done:boolean;  cursor:boolean;  cursor_h,cursor_v:integer;  begin (cursor:=false; (byte:=0; (repeat *repeat ,ok:=true; ,gotoxy(0,2); 8ascii_mode:=false; 8end; *end; {else} *print_normal_byte(temp); *until ascii_in=chr(escape); (gotoxy(0,4); (write('save changes? '); (read(ch); (if ch='y' then write_block  else read_block;  clrscrn;  end; {$page} 3  p;end; 2up_arrow:if cursor_vert<>0 then @cursor_vert:=cursor_vert-1; 0down_arrow:if cursor_vert<>15 then @cursor_vert:=cursor_vert+1; -end; -if ord(ascii_in)>31 then /if ascii_in<>'\' then buffer[page,temp]:=ascii_in 3else begin 8hex_mode:=true; Dcursor_vert:=cursor_vert-1; Dend; @cursor_hor:=cursor_hor-1; ( end; -forward_arrow:begin @if cursor_hor=15 then Dbegin Dcursor_hor:=-1; Dif cursor_vert<> 15 then Dcursor_vert:=cursor_vert+1; Dend; @cursor_hor:=cursor_hor+1; ev_num,' block#: ',block); ;write(' page ',page); ;gotoxy(h,v); * end; ,end; ,end ,else ,begin ,case ord(ascii_in) of 0back_arrow:begin @if cursor_hor=0 then Dbegin Dcursor_hor:=16; Dif cursor_vert<>0 then e; 5space:begin ;gotoxy(h,v); ;readln(hex_in); ;hex[1]:=hex_in[1]; ;hex[2]:=hex_in[2]; ;hex_dec; ;buffer[page,temp]:=chr(dec); ;end; 3112,pge:begin ;IF PAGE=1 THEN page:=2 ?else page:=1; ;write_array; ;gotoxy(0,1); ;write('current device: ',d; Dif cursor_vert<> 15 then Dcursor_vert:=cursor_vert+1; Dend; @cursor_hor:=cursor_hor+1; ;end; 2up_arrow:if cursor_vert<>0 then @cursor_vert:=cursor_vert-1; 0down_arrow:if cursor_vert<>15 then @cursor_vert:=cursor_vert+1; 4switch:hex_mode:=fals0back_arrow:begin @if cursor_hor=0 then Dbegin Dcursor_hor:=16; Dif cursor_vert<>0 then Dcursor_vert:=cursor_vert-1; Dend; @cursor_hor:=cursor_hor-1; ( end; -forward_arrow:begin @if cursor_hor=15 then Dbegin Dcursor_hor:=-1byte(temp); *print_byte_inverse(temp); *if not(hex_mode) then gotoxy(ha,v); *gotoxy(0,4); *write('mode is '); *if hex_mode then write('hex ') .else write('ascii '); *read(ascii_in); *if hex_mode then begin ,case ord(ascii_in) of P(rompt editing '); *ok:=true; *read(ch); *if ch in ['c','C','p','P'] then ok:=true .else ok:=false; (until ok; (if (ch='c') or (ch='C') then cursor_edit ,else prompt_edit; (gotoxy(0,2); (write(' '); end;   begin (write_screen; (block:=0; (page:=1; (dev_num:=5; (read_block; (repeat *if screen_changed then write_screen; *gotoxy(0,1); *write('current device: ',dev_num,' block#: ',block); *write(' page ',page);  if screen_changed then write_arrayS, AND VERY LITTLE ERROR TRAPPING. USE CAUTION THIS IS ONLY A PRELIMINARY VERSION. IF YOU WANT AN UPDATED VESION JUST CALL OR DROP ME A NOTE. ANY COMMENTS OR QUESTIONS CAN ALSO BE DIRECTED TO ME. (C) 1982 JIM MENSCH, AP*********** NOTES WHEN THE PROGRAM STARTS THERE IS GARBAGE IN THE BUFFER. TO READ IN A BLOCK SIMPLY CHANGE THE BLOCK PARAMETER OR THE DEVICE PARAMETER. AS OF THIS DATA THERE IS NO EDITING FUNCTIONng the computer will give you the chance to make the changes permanent. If you do not choose to save them the computer will reload the original data from the disk. ******************************************************************ent block to any output file { not implemented yet }. E)dit will let you modify the contents of the buffer. Enter byte location (two digit hex number) and the computer will prompt you for the new value. Upon exiti editing strange things may happen. P)age number is which half of the buffer you are editing page one is the 1st. 256 byte of the current block, page two is the second. K)print will print out the hex dump of the currrd disk ( Note if you reconfigure the driver file on this disk device numbers will not be the same ) B)lock number is absolute disk block number. if you specify a block that is not on the volume that you are Instructions for Disk Edit D)evice number is the Pascal unit number of the device. 4: internal disk drive 5: external disk drive 9: profile ha.'B','b':change_block; ( 'P','p':print_block; * 'I','i':instructions; *end; ( if choice='Q' then choice:='q'; (until choice='q';  end. ; *gotoxy(0,0); *if page=1 then p:='2(page' -else p:='1(page';  write('commands E(dit ',p,' D(evice B(lock P(rint Q(uit I(nstructions'); *read(choice); *case choice of .'E','e':edit_buffer; .'1','2':change_page; .'D','d':change_device; PLE COMPUTER. PLEASE ONLY DUPLICATE WITH MY PERMISION.{I JUST WANT TO KNOW HOW MANY ARE OUT THERE !} ASCIIDUM bbbbbbbbbbbbbbbbbMERGEBLK       צcurrent device:  צ block#:   page  ?commands N(ext block P(age D(evice B(lock Q(uit T(ransfer   } yu q mBtf  +7 "9C(*,.02468:<>@KDSHJLNPRTVXk\w`by Qáq qáv "6 ̂(ʂ'ʂ*á@      צcurrent device:  צ block#:   page  ?commands N(ext block P(age D(evice B(lock Q(uit T(ransferk number  @ Ƃ'צfile name of save file Ƃ+Pnumber of blocks to xfer Ƃ* ̂'Ƃ+̂'  ʂ'̂'̂(ʂ'ʂ*á@  צ8 page has been swapped press space to continue á   nצ number of new device  D צ new bloc 50 60 70 80 90 a0 b0 c0 d0 e0 f0פááBD R running programؚš  00 10 20 30 40 ˡá, צ reading block צ on device   f ɡ .á9 D bbbbbbbbbbbbbbbbץ)O)צNAME OF OUTPUT FILE xP)xNAME OF INPUT FILE OPOצOצNUMBER OF BLOCKS TO XFER  )šOצ))%mB Z26jpi4JJ<@rNpJJLPNpN ``B%~%# ^;#ECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,=