LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eML0CHEERSBOOTu' *SOS.KERNEL ,V!a*SOS.INTERP4#D!*SOS.DRIVER W#D!",INSTRUCTIONSz2 !2.BOATS.MAP.TEXTDh!'READ.ME.FIRST >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `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#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽ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ü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈ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΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj 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`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRw 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 x356789:;<=>?@ABCDEFGHIJKLMNOPQRSTU 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  )* 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 `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST 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 /CHEERS diskette into 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>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 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 >> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐҍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L`" (~)y ~JJ* I `x|x|,,}P-X~`9`<ȭ=` * @jI`:ȭpȭqé,i0LÈ`,g HH`LL! l      5  Hdcefh&+si M0  h) `(" ( (È& 8 `)2ȱL1upp<`uqq=L> vuL L L <Li Li ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` * IMk`4`5`6`7`8<L<`<p<`,ms<L=q=L> ,lXL ==L> ,lCL <=L> <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8   x) `(, Lu%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m pHe҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L ҅ӥĥŰ+,0p 4 Ls Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`L i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  * @jIH,5 p  ,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H h 4 `5!   4(P 4 4 `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐ`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aI!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н},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx 00 )ߍ:) J,P,QJ,R,S,T,V( > `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJBSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc. .IMAGEWRITER A)Copyright (C) 1983 by Apple Computer Inc. (xy```,.0L HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuwʥ逅8n134nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ` #(+.4;INSV}  BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTERITER A")Copyright (C) 1983 by Apple Computer Inc.E FG@?IТ,P,MEHhL,p,p,P,ME ,MEпл(0 x)X`  HH`! (``  HH`! ( C`,B`# (tJ_clnprtvxz| mHlH` (fff}`,B$ ( JK % (x)? @(BL x)?( JK B` C3ɀD  LC`IH` IHH.I8HЩIѭ E)?    + / @ C H K R Y j o t | ,/DIMV_x}  RU' Copyright 1982 Quark Incorporated V.AUDIO C#COPYRIGHT 1982 QUARK ENGINEERINGL      . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |   !%*/369<?BEJMRUX]`h  2;AGMS[fot|        BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| > `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L> ֦ڱΑ0Б֤ l L p,:0 JfiΥiώJe΅Хiю@ F $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿հ0`ՑʭrpȐ`=m@< F l AL> 8p,:Jf׮@$PA F $P@/A'ʤ˅΄ϥ̤ͅЄ F $̑бʑΈ0Ƞ l L> $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ F ,: HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n134nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L HH`Ln@``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/((((PPPP c. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww bx{'69@IPW]`cfjmpsx} #4:=Z_bpsv{ "%(+.2ADGJx{~9Copyright (C) 1983 Apple Computer, In*13579;=?ACFNWaehmpx "'+@\mrv{#&+25FKQT\adgjmry~$/6;>AHOTW\_ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx (̠`x (̠` [   `L `` ``I FF x (̠%L#fowzʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*8`AB*0 B8` L=?՝ bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ88 (`@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< K 1x ` (`98 N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= N8 =i N% JL`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A= NL% AҩA ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 *̍m%%#$  " ` L ``(%, ( *x (I  ) (j` DÈ` ȑ`! (983 by Apple Computer Inc.`.PROFILE&% `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'͝ )X@ @ ,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Profile Driver -- Copyright (C) 1`ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix 0ޤՐڢ  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~'+.149?CG**&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~ ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` if٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$7߭$PH8 nߩ nh ߍϭ - k,,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8I    0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)  m٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F y բӅLx  mӥmԐL] h ` 0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Ε8}L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ Hӭԭ h h`8٭028ٍڍ , 8 V ТΕLϦI ] +)J* g I V 8fxL@ ] I)!) g 80 J`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L``  `L` HӮԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``Lթ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)IKMOQSUWY[]_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 [    $ 3 : = F d  > B H M s Profile the same way you would move any other Pascal program. THE CALCULATOR The calculator in the Accessories is convenient, but limited. It is no substitute for a good desktop calculator. It gives 6 to 7 significant figures, and doesn't deal wile /// with 256K of memory. It is desirable to have two drives, but everything except the programs on the articles diskette will work on one drive. USING /// CHEERS WITH CATALYST (tm) /// Cheers is Catalyst 2.0 compatible. You can move it to your get an actual "snapshot" of the screen. The printing is always done with the standard character set, even if you have changed to some other character set on the screen. REQUIREMENTS FOR USING /// CHEERS This version of /// Cheers will run on any Appriter. It is set to 9600 baud and no parity. USING AN IMAGEWRITER PRINTER TO PRINT WINDOWS, PATTERNS AND SPECIAL CHARACTERS Before you begin printing anything, /// Cheers asks you if you have an Imagewriter printer. If you do, you can respond yes to how. The SOS.DRIVER file that comes with /// Cheers has a serial printer driver that is set for 1200 baud and odd parity (standard for Apple ///). There is also a driver named ".IMAGEWRITER" that you use (or rename to ".PRINTER") if you have an ImageWnters, but the text in the articles will. In order to print articles out on paper, you may need to install your own printer driver. Use the SOS.DRIVER file from any program that already works with your printer. Your Apple /// Owner's Guide tells you back to the contents menu; OPEN-APPLE-?, at any time, gives you Help. INSTALLING YOUR PRINTER DRIVER ON THE BOOT DISKETTE The windows, background patterns and special characters that are used on the screen with /// Cheers will not print to most priTURN to accept. When the Contents page comes up, you again use the arrow keys to select the option and press RETURN when you've highlighted the option you want. As you read the articles, SPACE BAR or RETURN moves you to the next page; ESCAPE takes youN-APPLE-? at any time and get help. Pressing ESCAPE always backs you out of where you are. Press the SPACE BAR and you are ready to insert the /Articles diskette into the desired drive. Select the appropriate option with the arrow keys and press REy{|}~ insert /CHEERS and press RETURN. After about half a minute the title page will appear with instructions. Holding down OPEN-APPLE and pressing ? gives lots of helpful info about the magazine's workings, even if you're not a beginner. You can use OPE  SUPPLEMENTAL INSTRUCTIONS FOR /// CHEERS  GETTING STARTED Insert the /CHEERSBOOT diskette into the built-in drive, close the door, and turn on the power (or hold down CONTROL and press RESET). When it stops, follow the message to `e|&+.QVYcjuy~':{th numbers outside the range -32,767 to +32,767. oString(VAR St: StString; ICharToAdd: Char; IFieldWidth: StRange); $PROCEDURE StAlterStringLengthAttribute(VAR St: StString; KLen: StRange); $PROCEDURE StBackwardString(VAR St: StString); $PROCEDURE StCapitalizeFirstLetterOfString(VAR St: StStringACKED ARRAY [StRange] OF Char; &StSetOfChar = SET OF Char; &StJustify = (StLeftJustify, StCenterJustify, StRightJustify); $PROCEDURE StAddLeadingCharsToString(VAR St: StString; HCharToAdd: Char; HFieldWidth: StRange); $PROCEDURE StAddTrailingCharsTSIC) ${ $String Aids $Written by D. Michael Christensen $(C) 1984 by Donovan's Reef $} $ ${$SETC Apple := 3} $CONST &StCharsInString = 80; $ $TYPE &StString = String[StCharsInString]; &StRange = 0..StCharsInString; &StPackedArrayOfChar = PPROCEDURE SosGetTime(VAR Time); $PROCEDURE SosTerminate; " ---------------------------------------------------------------------- Segment #33: System version = A3/1.1, code type is P-Code (least sig. 1st) STRINGAI library unit (LINKED INTRINhname, FileList; 9ListLeng: Integer; 9VAR RetCode); $PROCEDURE SosSetInfo(VAR Pathname, FileList; 9ListLeng : Integer; 9VAR RetCode); 9 $PROCEDURE SosVolume(VAR DevName, VolName, TotalBlks, FreeBlks, RetCode); $PROCEDURE SosSetTime(VAR Time); $CEDURE SosGetDNmb(VAR DevName, DevNumb, RetCode); $PROCEDURE SosDInfo(Devno: Integer; 7VAR DevName, DevList, RetCode); $PROCEDURE SosDestroy(VAR Pathname, RetCode); $PROCEDURE SosRename(VAR OldPath, NewPath, RetCode); $PROCEDURE SosGetInfo(VAR Patthews } $PROCEDURE SosSetDebug; ${ From Pascal Technical Reference Manual, Apple Computer } $FUNCTION SosGetSosNum(PasNum: Integer): Integer; $FUNCTION SosGetPascalNum(SosNum: Integer): Integer; ${ From SOSIO unit by Apple Computer, Inc. } $PRO $} ${$C Copyright 1981 1982 1983 Apple Computer Inc. } $CONST &Sos512KHighBank = 15; $TYPE &SosBankRange = 0..Sos512KHighBank; ${ High Bank written by Donovan's Reef } $FUNCTION SosGetHighBank: SosBankRange; ${ SetDebug written by Brian Mat LIBRARY MAP FOR /p/boats.lib (C) 1984, 1985 Donovan's Reef Segment #32: System version = A3/1.1, code type is 6502 SOSAIDS library unit (LINKED INTRINSIC) ${ $Sos Aids $Donovan's Reef $Special reduction of Apple's PSOSIO unit for Boats); $PROCEDURE StCharReplacementInString(VAR St: StString; HOldChar, NewChar: Char); $PROCEDURE StConvJustifyToString(Justify: StJustify; DVAR St: StString); $FUNCTION StCountCharInstancesInString(St: String; JCh: Char): Integer; $PROCEDURE StFillMask(VAR St: StString; 9Mask: StString; 9MaskCh: Char); $PROCEDURE StFillStringWithChar(VAR St: StString; CLen: StRange; CFillCh: Char); $PROCEDURE StFormatString(VAR St: StString; =FieldWidth: Integer; =BackdropCh, SpaceCh: Char; =Justify: StJhar; AJustify: StJustify; ALeftDelimiter, RightDelimiter, ASeparator: String; AVAR Overflow: Boolean); $PROCEDURE TyDispReal(VAR P: Interactive; 9R: Real; 9FieldWidth, Precision: Integer; 9BackdropCh, SpaceCh: Char; 9Justify: StJustify; 9VAR OveURE TyDispInteger(VAR P: Interactive; StringLength: Integer); $FUNCTION TyByteFromString(St: String): TyByteRange; $PROCEDURE TyByteToString(Byte: TyByteRange; =VAR St: String; =OffChar, OnChar: Char); $PROCEDURE TyCardFromUnsignedInteger(Unsigned: TyUnsignedInteger; HVAR SET OF Char; &TyUntypedFile = FILE; &TyHeapPointer = ^Integer; $PROCEDURE TyArrayFromString(St: String; @VAR PackedArrayOfChar: Bytestream; @StringLength, ArrayLength: Integer); $PROCEDURE TyArrayToString(VAR PackedArrayOfChar: Bytestream; >VAR SyBigStringSize]; &TyLongInteger = Integer[TyBigIntegerSize]; &TyUnsignedInteger = PACKED ARRAY [0..1] OF TyByteRange; &TyExtUnsignedInteger = PACKED ARRAY [0..3] OF TyByteRange; &TyCardinal = Integer[5]; &TyExtCardinal = Integer[10]; &TySetOfChar =e = 0..TyMaxNibbleLessOne; &TyBitRange = 0..TyMaxBitInByteLessOne; &TyBitSet = SET OF TyBitRange; &TyByteRange = 0..TyByteLessOne; &TyBlockRange = 0..TyBlockSizeLessOne; &TyBlock = PACKED ARRAY [TyBlockRange] OF TyByteRange; &TyLongString = String[T$} $USES &{$USING .Profile/Boats/St.Aids.Code} &StringAids; $ $CONST &TyMaxNibbleLessOne = 15; &TyMaxBitInByteLessOne = 7; &TyByteLessOne = 255; &TyBlockSizeLessOne = 511; &TyBigStringSize = 255; &TyBigIntegerSize = 36; $ $TYPE &TyNibbleRang------------------------------------------ Segment #34: System version = A3/1.1, code type is P-Code (least sig. 1st) TYPEAIDS library unit (LINKED INTRINSIC) ${ $Type and File Aids $Written by D. Michael Christensen $(C) 1984 by Donovan's Reef StTrimLeadingCharsFromString(VAR St: StString; KCharsToTrim: StSetOfChar); $PROCEDURE StTrimTrailingCharsFromString(VAR St: StString; LCharsToTrim: StSetOfChar); $PROCEDURE StUpperToLowerCase(VAR St: StString); " ----------------------------t: StString; FPasteString: StString; FAtPosition: StRange); $PROCEDURE StPatternReplacementInString(VAR St: StString; KOldPattern, NewPattern: StString); $PROCEDURE StRemoveCharsFromString(VAR St: StString; FCharsToTrim: StSetOfChar); $PROCEDURE ustify); $FUNCTION StLengthOfLongerString(St1, St2: StString): StRange; $PROCEDURE StLowerToUpperCase(VAR St: StString); $PROCEDURE StOdometerFromInteger(N: Integer; DVAR St: String; DFieldWidth: Integer); $PROCEDURE StPasteStringOverString(VAR Srflow: Boolean); $PROCEDURE TyDispString(VAR P: Interactive; ;St: String; ;FieldWidth: Integer; ;BackdropCh, SpaceCh: Char; ;Justify: StJustify); $PROCEDURE TyFileTransferByBlock(VAR F, G: TyUntypedFile; DSource, Dest: String; DDots: Boolean; DVAR GoodIO: Boolean); $PROCEDURE TyHexByteToTwoChars(Byte: TyByteRange; BVAR HighNibble, LowNibble: Char); $FUNCTION TyHexCharFromNibble(Nibble: TyNibbleRange): Char; $FUNCTION TyHexStringToDecimal(Hex: String): TyByteRange; $PROCEDURE TyHexWordToS=Delimiter: DaDelimiter); $PROCEDURE DaDayInEnglish(Weekday: DaWeekdays; =VAR St: String); $FUNCTION DaDayNumberToWeekday(DayNumber: DaWeekRange): DaWeekdays; $FUNCTION DaDayOfWeekFromDate(Date: DaDate): DaWeekdays; $PROCEDURE DaDecrementDateByDaDaDate; AVAR St: String; AFormat: DaDateFormats; ANoDay, NoYear, NoCentury: Boolean; ADelimiter: DaDelimiter); $PROCEDURE DaDateToString(Date: DaDate; =VAR St: String; =Format: DaDateFormats; =NoDay, NoYear, NoCentury: Boolean; ORD } &DaDateFormats = (DaYYMMDD, DaMMDDYY, DaDDMMMYY, DaMonthDayCommaYear); &DaTimeFormats = (DaHHMMSSUUU, DaXHMMSSUUUXM, DaAfterOClock); $FUNCTION DaCheckIsThisALeapYear(Year: DaYearRange): Boolean; $PROCEDURE DaDateSpanToString(LowDate, HighDate: RD 1Hours: DaHoursRange; 1Minutes: DaMinuteRange; 1Seconds: DaSecondRange; 1Milliseconds: DaMillisecondRange; /END; { RECORD } &DaDate = /PACKED RECORD 1Year: DaYearRange; 1Month: DaMonthRange; 1Day: DaDayRange; 1Weekday: DaWeekdays /END; { REC&DaYearRange = DaMinYear..DaMaxYear; &DaCenturyRange = DaMinCentury..DaMaxCentury; &DaHoursRange = 0..DaMaxHours; &DaMinuteRange = 0..DaMaxMinutes; &DaSecondRange = 0..DaMaxSeconds; &DaMillisecondRange = 0..DaMaxMilliseconds; &DaTime = /PACKED RECOesday, 4DaThursday, DaFriday, DaSaturday); &DaLongInteger = Integer[18]; &DaOrderedDayRange = 0..DaMaxOrdinalDay; &DaDayRange = 0..DaMaxDay; &DaMonthRange = 0..DaMaxMonth; &DaYearWithinCenturyRange = 0..DaMaxYrWithinCentury; elected somewhat arbitrarily } &DaMaxHours = 23; &DaMaxMinutes = 60; &DaMaxSeconds = 60; &DaMaxMilliseconds = 9999; $ $TYPE &DaDelimiter = String[1]; &DaWeekRange = 0..DaDaysInWeek; &DaWeekdays = (DaNoWeekday, DaSunday, DaMonday, DaTuesday, DaWednDaDaysInWeek = 7; &DaMaxOrdinalDay = 366; &DaMaxDay = 31; &DaMaxMonth = 12; &DaMaxYrWithinCentury = 99; &DaMinCentury = 15; { Gregorian Calendar began Thursday October 4, 1582. } &DaMaxCentury = 99; &DaMinYear = 1582; &DaMaxYear = 9999; { MaxYear sDATEAIDS library unit (LINKED INTRINSIC) ${ $Date Aids $Written by D. Michael Christensen $(C) 1984 by Donovan's Reef $} $ $USES &{$USING .Profile/Boats/St.Aids.Code} &StringAids, &{$USING .Profile/Boats/Ty.Aids.Code} &TypeAids; $ $CONST & BDelimiter: Char); " ---------------------------------------------------------------------- Segment #35: System version = A3/1.1, code type is P-Code (least sig. 1st) ing; EVAR Overflow: Boolean); $FUNCTION TyRealFromString(St: String): Real; $PROCEDURE TyRealToString(R: Real; =VAR St: String; =Precision: Integer; =VAR Overflow: Boolean); $PROCEDURE TyStringToSetOfChar(St: String; BVAR SetOfChar: StSetOfChar;Range; $PROCEDURE TyNumberToEnglishString(Number: TyLongInteger; FVAR St: TyLongString; FFirstCall: Boolean); $PROCEDURE TyNumericRangeToString(Low, High: Real; EVAR St: String; EPrecision: Integer; ELeftDelimiter, RightDelimiter, ESeparator: StrJustIntegerRight(N: Integer; AVAR St: String; AFieldWidth: Integer); $PROCEDURE TyJustRealRight(R: Real; >VAR St: String; >FieldWidth, Precision: Integer; >VAR Overflow: Boolean); $FUNCTION TyMaskBits(Byte: TyByteRange; 8BitSet: TyBitSet): TyBytetring(Word: Integer; @VAR St: String); $PROCEDURE TyHowOftenToEnglishString(HowManyTimes: TyLongInteger; HVAR St: TyLongString); $FUNCTION TyIntFromString(St: String): Integer; $PROCEDURE TyIntToString(N: Integer; ParentNumber, ParentLength: TyByteRange); ;False: =(BitMapPointer, TotalBlocks: Integer) 7END; { RECORD-CASE } $VAR &{ Globals } &GlobalDTyByteRange; Title: String; >AllowClearOnFirstChar, AllowExitBackDoor, ?AllowAcceptWhenFull: Boolean; >{ Fields below are modified by this unit } >Modified: Boolean; >ExitCode: BoExitRange; >LastCh: Char; >LastKeys: CoKeySet; >LastAccessoriesCall: IntegereCh: Char; >SpecialWindowLine, SpecialMessageLine: Integer; >LeftFieldDelimiter, >RightFieldDelimiter: String[8]; >ForeDelimiter, BackDelimiter, ForeEnclosure, ?BackEnclosure, ForeField, BackField, ForeFrame, ?BackFrame, ForePort, BackPort: CoColor;ckWord; &BoPositioningChars = ARRAY [BoPosiRange] OF Char; &BoWindowEnvironment = Justify: StJustify; >FieldInInverse, PortInInverse: Boolean; >LoadSpecialSet, WithWallPaper, WithTitle, ?FrameTitle: Boolean; >WallPaperCh, BackdropCh, SpaclipLeft, 0BoAErase, BoBErase, BoAUndo, BoBUndo); &BoEditRange = BoAForeDelete..BoBUndo; &BoEditingChars = ARRAY [BoEditRange] OF Char; &BoPosi = (BoForeNDS, BoBackNDS, BoForeField, BoBackField, BoForeWord, 0BoBackWord); &BoPosiRange = BoForeNDS..BoBaBoPageBottom, BoWhenFullAccept); &BoExitRange = BoNoExitKeyPressed..BoWhenFullAccept; &BoExitingChars = ARRAY [BoExitRange] OF Char; &BoEdit = (BoAForeDelete, BoBForeDelete, BoABackDelete, BoBBackDelete, 0BoCBackDelete, BoAKlipRight, BoBKlipRight, BoAKe = String[BoVolLength]; &BoMotifRange = 1..BoMaxMotifChar; &BoMotifCharSet = ARRAY [BoMotifRange] OF ChSoleCharSet; &BoExit = (BoNoExitKeyPressed, BoAsIsAccept, BoEscape, BoTab, BoDownField, 0BoUpField, BoForwardField, BoBackwardField, BoTopOfPage, 0, &{$USING .Profile/Boats/Po.Aids.Code} )PortAids; $CONST &BoPathLength = 60; &BoVolLength = 15; &BoUserMessage = 'Message to User'; &BoMaxMotifChar = 7; &BoChainReturn = 'RETURNING FROM CHAIN'; $ $TYPE &BoPath = String[BoPathLength]; &BoVolum RECORD } &BoGlobalEnvironment = SystemCharSet, SpecialCharSet: ChCharSet; >MotifCharSet: BoMotifCharSet; >FirstPrint, FormFeedAtEnd: Boolean; >LeftMarginForPrinting: Integer; >LastDirectoryPath, LastSourcePath, ?LastDestinationPath: BoPath; >LastOperator: Char; >LastPrecision: Integer; >LastFirstOperand, LastSecondOperand, >LastResult: Real; >PosiChars: BoPositioningChars; >PosiSet: StSetOfChar; >EditChars: BoEditingChars; >EditSet: StSetOfChar; >ExitChars: BoExitingChars; >Ek for the Apple ///. Begun in 1984, its graphics are outstanding! This disk includes the boot and program disks. Requires 3APL-02 to operate (that disk has the only two issues ever produced.) /// SIG, Washington Apple Pi 12022 Parklawn Dr. Rockeville, Md. 20852 (301)-984-0300 WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Three Cheers Boot and Program DISK ID#: 3APL-01 BOOTING : Self-Booting Three Cheers was the first and only magazine on disdowSetup: BoWindowEnvironment; @PortColumn, PortLine: Integer; @ReceivedCh: Char; @Keys: CoKeySet); edString(VAR WindowSetup: BoWindowEnvironment; APortColumn, PortLine: Integer; ASt: String); $PROCEDURE BoDispField(WindowSetup: BoWindowEnvironment; :Field: String; :FieldWidth: Integer; :FieldJustify: StJustify); $PROCEDURE BoDispKeysPressed(Winetup: BoPageEnvironment); $PROCEDURE BoCloseWindow(VAR UnderScreen: PoPort;