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`$e+READCRT.INV(3+*HORSES.INV (3t+TIMESET.INV (32  (.8 'CONSOLE (/+)TYPEAHEAD (/+&ADJUST > (/+$SHOW $*(/+%CLOCK !(0+)BGRAF.INV((2L+SYSTEM.DEMO.1WBu' *SOS.KERNEL ,V(*?*SOS.INTERP 43d(*+*SOS.DRIVER g%H(- %HELLO '(-+&SPLASH g(-+$MENU >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*LLLLhh`LLL`SOS 1.1 31-JAN-82(C) 1980, 1981 BY APPLE COMPUTER INC.G`** }*`o^`on 8 JJAj@` *?($`Ҡ ؠťРŠРŠH v?c,,,,h߈ߢ~))`3ULLU**-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 Nܐ'``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ƍťǍŠ)͠ Tٍۭۅ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 NL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ D` 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Ѻ Ѻ  Nܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ T٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ ,ݐE ) .) @L `lne ٫޿=ϏZaĚֲ̛zؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Nܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  aװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj 9ؠ uiȩ`u4泱ƳHhv ʠiȱivL=`L7ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠U)JJJJ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) |հۈ ̰آ*գ  Ͱ ݢգ LrLwؠ; ڥ(8` ְ( ȱ5 HȦ)`Ltץ: }ש {ְ⥺i ꥻ(8`Lt Ltש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬Ͳ̳ƄǺ yϰL  ΐ` [հ> H۪ȱHۑhƳh yϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ }ש {ְO ֤Fi)# Ԑ)Hۑۑh8`P) հ [հҥ,J+j泭۪ƳۑȊ ) jPL ͊.>.ʱ+,EP!.E.L{+,,ӄ*- P*e (` հB հ5 [հ0,J۪泭ۑƳ-e(` L Ͱ2 P tҐ#L8 T 2ΠHHȑhhȑ`Lm )N8` |հ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lgԥ.Lj Ͱ$)rJ Lɰ  ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH th8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p)  )LHѠٰ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Ltҥ. ՅL' ͐Lm pͰ.J/)@߅4ѥ N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `(  *ǵµ ՕØ5Ņ4mȩυɩč5 oψ }.8` oϙLOϐ ˢ 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`$ۑĥ` İp") N8`) TپU0 ĥLä U0 ĥLä !"#$ Đ2@H >ڰCŰrP` 0ڰ(` >ڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` >ڰ񈱴ۈ)ۅƭۅ X̰ 0ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LL ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Oڰä泱,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2`]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 àӑґ𠠣ŠŠ` 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` @SATR$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVCONV&CONVKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRINDEELSCOuuuuuuS}1DKuuuuuuuuuuuuȔ-zz4{ {@uu2{Ӎʍ?zzzzv#jvdvXX~}{{XJDފL^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXAAAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERҟɀ jiLr pێrpE 먑uvfuuuuuuus2uuuIdUduuuuuu횑uu5d?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeϪ ӠťςŠϪ栳ŦƮӁԣŠȠ҄ʡ֔ɇҠǠՠƠŅπŤࠠÂӥЕƠàӮŃÀԠ ՝ڱЅȠƠ ŠȮӑԲ„ҢӠɊɣŮծᠺՀǥƂŠϪŦåӁԠΠ̐ОSOS NTRPUcLcŮժᠺǥƂŠύ̕ŦåӁԠΠŠҟɀԠĠ̠ӠͮɅ ̠ȮӀՅ ̖ήFƈϐϠàӠЮЅ栠ҩŠîժŠ͠ŮҠɥơıŠƦ  )* 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ʆSTL8HSITQQSTO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR IN BREAK%&'(%+.@C$DE FG!H"I'MN#PQRTW(XɁ7XWWXjnXWi` 3^?@@bgchch ܆^ ^b ^b^b^L]b8g+H__^8PMNKLhhLi`La, ; V aFL) u a }kLi &^hhh5h689H: H:HLHKHH6H5HHH` 0k` +k` r l +k r k` l BlK$L%8eȢ 9:: a.ghh ` ` `]ɾ,L^hhKȱLe潥ɂ逅$L# nKL n =jLiLuLe uj5逢)&a WHVHLgLl8:9: ІSTT`)ɀLK$Ld8gLOPPKLMNhhf 2n*]L_L2_-L(fPL^OW;8<< ` lLX*i mXX 熅XL| `]'_ch_chbi^g ]ihh &^ r l fkh r d s sn %jji56L|%}  d s  mXHWHHH iLOPP$pX0S&ȱhȱ  n#W", noȱ28eLgji`L2n noȱ"Ɂɂ ȱ :, iWjj ȱiYjj8逪XW0 ,h0WHW$ 0X: h lo ,h0 noLh) noWA 0 xa loLhfffff`,@ff Cg fʳfH @gh(fL2 \ffک,ffLgTg`zgfgHELLO l a(% -, dLu l {ghhh$PLuj 2nȱȱ%$LWH loh l aLK$L% L^gHhHhH , - d l$% ag5h6h6hhhhh8g5h6h `6 hbLbf 6`L6`  f.CONSOLE\ VfUfff gfg0  (`H uhLu ff h u e Re()' ReKHLI BlLl89弅:彬: `H hɝɞɜ)`ff  h芅 e ()'` e'()HKIL ReLjL^) jk!Lu 0c p a0d婷tgL6_$%L{g Lk` Dd` Dd` yuL%{ Sd#`L,H yu %{h 6Lۇ,L68f`  KL BlLlOPPKLLi KL` Ѽ  e@ _m__^ ]Lb潭`: 808`:LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`ff@ZH  c#IJJABB 9::)ѭ=>>;<<?@@V ě ]jhhHH  `89::  e!)`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@0ɔĐ 8,f 8f L`ʅUU=ȄL aȱi8eiiji!U)L`UUU`La` :0.`9::hhgg.%g& $gegަhH逪hhʰ`  0c 5bLT IJJABBU U`L^a8 UiXjjU):,$f 0$ p $ 0t!L`?iٰcL,aU )!a{)Qi ڐ߽U) xai) xaɢ ɣɍж$HU xahʥ0UUȩ5%"/װ&hԐɈf 56ɀ56H nhɀ])& UoL 2nL \ͷfL uf# 2nfHffhf) _ ʢLh `Lj lhP `U a-Qggeg5hih 6i6 hbU" b$%UUUg 5b bL6_ _^_ __hg^`8 ` i6g55``BY BSAMHH H]fHhH_HcH wwhch_hhhfhi0hhhB B A` L^'( z)&񦕤LNKM$Ld ě n 2n n6[6 5ZkKhLhhhe9e:: mLi ?lei `Lu Bl:,"hhhhLiɜEɝDɞLe %{Hɾɺдmhɾ r l +k r l` lLk l,h`LwdLe$%/%5$ &5 &5e$$5e%%$&%$e$% Ll  yuHH 5sL mHHh$0'ph  ِlWȥmW`LVhXWXLhm lmmLlml ՔYZZ{|| y `lmmYZZ zWXX #z yYW# mXX =^W^0A,^`=8WW>X> XXXL^ h`L^ n Jj dxYm6Zm6Z y` zLr{5 LzL s ՐlmL z0566 `{{L s ِm*elL{mLiɑL Wlm$%`L{ }nInEz{iL{ }> }Luu8i$iznIi y("LiH)&h`( '&'`lmm566Ly ({H hjL` zYYHH 㔥YZZ #zhhe5566ɂ逅66 yZZY zL` zYILEzm ) u %{ zʊHYImm suhhhhYhZhZHHE` z YZZ yLyl5 Іf feLweLxL^lqx fyL^ Քxy{|y| yeGGHHɂHHlm{|m| y fyL` nxyyLzHI855J J6 666 h`{Hȱ{ȱ{ 656 syh H5Gh`lmm566 z5Hȱ5ȱ5 665 sy56h(`8ȱe iȅ s eff8  džffHs.GbHcHcLgxGgHhHhHH ]hhhGHHBBA!AghhLx8 džffeLw ]^A_B_B`)&N> ȱI8gJJ hhge ghhy6( y( y\LF )XHABB8 dž__^hHI8e^ dž@1 @+?%GHHHIJJih BABGHh`$  ě ww Дs IJJ^__Lhxeȱeȱe XE )s LxɁ >H>H= Vt~w/z*|cYX ~uƀ1r }iP  iɈ J~ i8Huiiu { t {h /~` O] } ]L} LoȘ戅 }iȅ {do`Abi$nFn)U`y`'d  ZuL`| ]z% uH Mh{ H S} } 1hJ inIn`L1 HHHHH u hL0shh6h6h555% 郢5566 郠` ye55M  M X~e t~e { Wei0 i8fe.șU0șUmymlylkykjyj00ڊIi i/ȄȪ)Ue.șUI)ЪU0.ȩ+f.8f-UEU/8 i:UUUUUfh r$h8fLfg s$gPf8ef t~f X~f o0`Lt ` H$ge X~h 80 YLˀH h zEn{iL{f d$h0L| ef q80fLCOt#t$%] UoLKjk8  LUo -$nșUnȩ0iL炩 }e kjI*mlinL9|Fn`nEz0ʢiH {nihoi8傐IL`7 }!LiD8$n |iL"}n)FjjjL}iɠ WnnI*imL9|jklm` s e-o+ smo..IE)2s S -+vL~@jjj)(L L^~jklmL>|5665m5l5k5n j5i`d,]WXX566 m5 l5k5n %j5i5` m l)m m`znth` ht`i  | |`i n*` jfJ`5665y5x5w5zEn{z v5ui`uei0,iiLb|{n`nI0hhL^|L| i{ {i` o~{ L~ }L 8ii -~ivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvj ) }L`i i@Li$i0 p  `ui` L` u eLd5665`iɀ*iH i ] @8 i tutt tj hn` t` q0UN0U 0U$n-UUU`i` p`5665i`$0BP?iH i ]hLrv  mlmkljkij8ihn`L4{$0DpA ͍ nHi80 @L|u @u h `&m&l&k&j`L8{ 2 {L$0pLȔ ˌˢULi ]ǩ|`LvH wwhA?B@7B@87F8f7877878L^7 8*JA5gB6B68 h圍h?H@H@HI?J@J@ hbh@h@h?gAhBhBJJ8 J圍J7d8eBaLv`ijBfi jL^`Ib^J88 ii UŦLXUU HHHHL̷ +hh LP iL +hlhkhn jhimhHN8 Lu`LȓJ1CUDVDVU Lŧ 0 7U L`uUU{U||LK: / cyUUȹUUȥ Uл yu U` hh U LuL  (L[ Uީ  @Y%(&:$LX Vu 2 iHn %jHkHlHK Vu ʍ ِlHmH5 Vu {iH ꎥHH楩e ) ,LuLK eՅ7Ui8U #  785U6VLǕU7e778ҥU^V_bcF_hcCgDhebbc ]^__`U8傅UV` uUȱU` L^ uUUƜ0ƛ ̘WqeWȱWqei W` u8UUWȥVUX`UeUV` UO / +'L U)łiV VL LB 8U 7ȱ7 UU ЯUVULU7V8 i L LS U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LOU7VV 4YgXg8UXg5VYg665VgWg 4 4VgWgWgJi XgWgZgVg 485壍XgVg6复YgWg 4 c uUUHVH ̘U7WUV8XVV8 ̘Wb7ȥXɂ逅c7 5ef fbe  7U8VLh88h7UV^^`H"h{||kjkȱ{ "ie{||  Ք{|56|6 y&5L^i8IjJkJk ܆lmm'&`L^fCDDEFUVFVX L4  uVgWgXgYg8WHHHH lL d L s HHH mu shhh5ȱ6ȱLȓ65 h5H6 dHHHȱȱ6H6H5H u =к shhh Luhhhh` U/mZlmYZ wjHkkiLL^ȥ5^H^h Lel5emȆ6п  Le^e__ iLڏe *& eee`  ě ww8A?pB@B@ ܆onL8jkL ufȩ8 ufLLа,L^  u  h s su= uXHXH L56ۥ 8ee L^?be^@ce@c __^_ ]__^;<<6 $Phihi^Ȋ^6gȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^\i FHHHHH hhhHHlm ,҄ suhh)>=>hgh<<;[a{gggegȱgehh LK ,L^  8` ^LВ hhL=6 $P 訽5cA[8饰 a{8`8\e@@He? 3^@@?hbbb0 ea ȑbc8L @@h5h656H mHlHkHjHiHl5 8eeghh^__` HHH H sh hhhn0iɐ ML {LW Lueff .!'$ iߪ$ 0 _H8eAfi\h$ P8 (L$ 0p ;<<ccb? @c@ube.a{bb,\(eb cc`eb`u ]LLi ]u ]Lui0 8 6,,% п zlm0}5}} kk} kklm Lz[ 80@ 6 2` { 㔠kH) ˎjhJJJJ ˎjL` 0:i`L^ u ` cJcmi J_mjmjJ_AgBhBh ]^A_B_B`L^ JEI L r Bkgelge8Å c  uLRNO rAKНTJVP Q8 DDFR S8 DiFEC CD)XDmXDYCBULěJAktbgIȌp q8  r s8 JJ` !UvUUU ^"( M F566 y}z{6{L% #z{{"} GLuL^ lHH)Nl ^lEN)`L0s h  o d ɃɄ d`" lJJJJsg u ǩ LjLu RLN @uWgkjg tgg )llhgsigt hgigtggCighgȌWgXgUgVg ? Og"ighgH lhWUiUgiUVgL 5s zWH hW 5UWW nW` hL , u s Ր mqlr l)# u 0 ? OgLLv ``L ,Nku X ul)F UgH`UgVg 1gg Ngg 4NhHUg hUgl  Lv` H o h8L ± kLvUg 4 vkUgk L4 |u %{ʊ0  ekUg`L ({HIJh*Ug) H 4hVgL ({ъ) Ug)LLW= ɀ6"2豼U : , OgL ǩUgHVgH u ɩUgWgVgXghVghUgL4,fg ǩfWggXgYgL4 ǩL4 ({ n^8fl)I)I `op Ll L ({ nl)v rHqhLCLvkUg 4Ug jg wqr` hple Computer 1980, 1981  B n ꧠWgVg 4Lc gg` B Sb n Lc cLˍVgUWgYgXg=89U>:>:iU`9mU:mU: J &IHJh=>>UXgUYg9VgWg`L^ O aFL6_, ?U`Lv 6A ff# gf\ʐ 6 2nL 6 6 ff˻fдf`ffff \UgH chLLv`șfЂfffffffޭfffffffffнɯfз˩fб`  Apple Business BASIC v1.1 - (C) Apȥ xGƁ8 LQii0$iti8ti 8偅w恤wvwuJ-$n0+G0)GGwL 00`U 0r)`rqqLf $uyG-++ $n-G` kiekiiIif`ri8r` 0#U 0Ui)U`hGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)GG(sȢ8傅䂐$u a0 xGL`$uAG)EGȩ+$i-Gȥf8 i y LH 0Gh 0GG5H6H6yLne ҥ GAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙUթU`yiɀjjn*8miɝ d L q$uLۤ$)JJ8偅8傪 ȥ f$i0Ł!y0GLĤLQ~䁰< a0$H ,Gl$uhuuj 3 ?XkkNuuj 3k 4%v. ݠ J #  f`u Bvphh` Lޝjk ,hh`Sj9-k L9j ekekk|z)ekk |j[   Lޝ`j 9kkj"j"kРwwghhoؠKkqvj 8LV`$uZuukvN kGv@  vvyLSj 3L8 ,V-uukv kv@vvyLLޝj 3 8 A80멀uukeqqtt$uA)*Ң֢t ?L B$uЫkЦuuj 3ysLġ,VkLyh  (`|||}z,A[ :808Ш`,1@`y Gy`LޝHq1$u tAvʘtDթ 3q(~th`pvquts~y ffp$pp8j/;XAx=|8ez{{ Іghh "o `Lޝ x  -:/ UUhhh{hzh}h| w Zp 0|8pJ LXLLӟG $p0`pog nkڥrok8o,koLjAaCcoJ nko5 nkk nLʟ S L? nL֟ HG56H6H k l ٥z{{ Bl}hhh ;в| |膆  ,;' Lޝ w Z pLNL2n`|H}HzH{HHH ɶ# {hH u  5s su,; Lu  5s$ zrL qiLpnH hɀ8(*iU. LLLv ]gYg mZg8 n ]gvkUgl)@7gg0u(> ѨƬƫHH ^hohp` ]g0U`ȹU`VgVg 4LhsgN ǩ ? Og#X ggjgF=sg7N^g LsXggYgZg ? Og T L̬WgUg`Lvo`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ ; wwA?B@B @=g>h>h b=i>j>k V bfhijklmnopqrstuvwxyz{|}~ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 HH `DONN DENMAN STRIKES! H o h8L  kLvUQ 2 vkUQk L2 |_ %eʊ0  ekUQ`L{ (eHIJh*UQ) H 2hVQL} (eъ) UQ)LLW= ɀ6"2豼? : ^g ag_gbg`gcgLLLu_g`g  u s Րml0L`g_g`Vubhb]lk{aap8y^věyynyBOgՐihm?lK;mm0j̷5:?4ӍCHH CD\hh Hh`L)i   IC DATA WPTEXTSYSTEMRESERVRESERVCAT kUgo 1$'XgdYgVgUWg ? OgL8`L:LUUU) UJnU UJJJJ /UU`H hmUUUUUU`0U`UU :UUL ǩ u ɋ 0#agUpUoUn ˌUUUU ȹUUUʈ00U%U$U [UU. ['U&U( UU7 `st?9}Ust5 ewx! es8wtx euuLUUNKNWNBAD PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASru HH` TakTu+ 1U)UU(U)U UU [VU#U ȹU Uuu`@nU TYPE BLKS NAME MODIFIED TIME CREATED TIME EOF U)!U)*UU)UUU mUmUUiVg` Ȳ ? OgXMLv$0% qr Ȳ 4qrqL `LeUsg La jg 3 Ugk 2nkUg ݳU nL@L 2nLRluvjghgsigtogwpgx`F UUqLOg qrL^op `VgWgsXgtYgkUg` ? OgLvVPgTQggRgfTg`EAd3] L^3]L^fWggXg Yg`agbgcg^WggXgYgdgegL4opqrst SVgggL0sUgfɯfH chLv ov1 kffff LLvLefU L_H ݳhUUE UU`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: ±`LvupHoHp  (hiXghiYg ? u`I !li)id`   r $ <,8 r  5si$ z656$0 p n %jjF$0ݢ0 liʽ`L , l)% `ٜL ` |u %{ Lʊ0 o `Ug c gg c Lm 2LˮL ꎅWXX` $` ,`HȘe`{ai|a|h - ;mLڮF 7 ; ` u op  4 t d sd LiLdʆ `! `Ȣ` :  `$ nL^u=g8i>hj>h ki=5j>6k6> hb 5b b$% kLi B  uLl$%`8f 7 ; ` u ` LuLeopL 0xH $0_ ih8fH`aai uhH2 {h JJJJf m ` :t os>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>) 9:`Y_Zx) ) =(`H6H 7I%h7680 9:LV 9:98;;<3ij X 3gh5 X 53e,<0m;f,<0m< X ij X h`)[_^Zh`3J 3L 3 ) 4J 4 ح4 ) 3 5 P L 4  J L5 P P ) ` C $ a0 '8` P a P a J  L a 0 P a0 P a0 P a0 L 8D9E:II  t8 t`A t\] L  67L) [,8누 ,[ Hh tF t,80,[ t` ^H ) `  t( K ,8`   ) J J LS HH `,80`B`#$+29Y` `` Z` [`  ) P LL ) 0)9  tL> )&0 ,8BkL  ,8Ii`a a tL> a0ca t, FDGE  L BLqk E: -D9%    C  tB@Bk L!8D9E:98F:G0 г氭LA t  BHb)bZI[J`K`IZJ[K`` H 0L06,8]\DEH j@ jhLXB j@0)HmHHh jܭ@L`@)[) L:[)L:[0 H j[ jh[ j X `[) >`b b)b`@d`e`BNk B L;<,b= ' 9 : #Rgnh*2U^wb b) b b)b``@?m` _ ^`\]LY@?m`  ٥`^_LY j` j@)` jLX@)c`@)a`@HEmDh0_^`0hDFL \DF]EGL) d>`H_E ^Db) b bh`  b)h` mDm`DE(EDmCDEhBkȌB`LBkB` '`)ݲ>`A@>A HH`>`<>EeFJKL.^CcHV=WwBbG? "C[JC` ?`> HH` s) L/ d` 6H5H` D^Ol>` ,b `  L LBa@LB a @LLD8?8`DE( 8DCDE` E0LXDE`DHEH hEGİ  ( ,=  HH`! (88" (èYÈ`,=0L  ZHYH`Lh~}k} =@ '` `è" (ÙY`L_Ùe`Ù `` q>  ,  'H&H` (# (9d7="Z` Jcd % ( i=` ( (,=) =x)) v(cd `# (,=ȅɅŐDL8H\0`(d  $,($  ,  .SILENTYPE A@  @ (C) 1980 Apple0,>!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  `0>H hJ)@$0P L S S L P  J L `J0 H/ H` d y ~ o t Z 8`8 8`8)8ILH > ' ` j 8` ) ` > ` C ` L ` S ` 348``  y y 8 ``  b6>#B r>@62 >?>>>>2@~|cpC p*dI"*E!EAQIGIIA@ADIAAIHAAAHAHI@EA@?A> 6A}5 AA>III$QIHII""M]DIAAIHIAHEHIIAA ((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( (l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/Q_dos|~.GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww `,M0L }H|H`! (```,M0L HH`LwO NPQ #) "# ```FJ "%/27@EHRU\ain #03@IN`,M0L& (,M0L7 Đ`ʥ逅8nOQRnʐQxOeʍOH )  h(eʅ8ʅİLp )` ) `)DNNLSOPRnPO  % &$N) HH` (# (Zg] >M")"#)  #`,M$ ()LFG O M`% (MLOFG ``,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#.PRINTER A"(C) 1980 by Apple Computer Inc.HA0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (` (Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,2 7 > C F I L Q Z d k |   * - 0 3 < ? B E H K N o x    ! $ ) , 1 4 7 : ? B J O T [ ` e j m p {     ' + / 1 3 5 7 9 ; = ? D I M T Y ^ a f k q v {   "(+037:?BGKPSdilotwz   "&)-047CKNUX[^nqt $ * - $'048;@FIMPUY\`hknqw  %*.38AINQTY]bv{~ !&),14>ADHKPSW`eipuy|kx 2;@CNRWY[]_acegjq{'+579;=?BFKQTWZ]`ehknsvy| !H_ AAp*@"*QIYQIPIIAPIDIAAIHIA"AHBLI@QA@^ A6$# >1fN&`6> 9?6">A@.~A>0=3&@~|cpa ,&(*,.0246;@Cch  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. ' Q  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx   ʊJJJ莟mwwxix 0ޤՐڢ  #&).369<ADGJMP^g $*-06=BKOR^agjmpu}*/28BWsvy~JJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~ϭ - f, ϥ- fϱϮEϑʩ`P u  CH` f(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJhIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  h`!J8݅ eۅ$  h` ' Q $צ! LP WL?$7߭$PH8 iߩ ih ߍ v`i,ʐi,iPIIʥ)ifʦʆ̐pLe/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L τ`ϩE҅0Ȅ(fL  ('Άѽн`8Hٰ      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi)h `  )`%)8`)    C   ʥ)Ģ    C Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.) H ' Q Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L# Ӣ ,$0F t բӅLs  mӥmԐLX 028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ 80 J8}L t L 0yʽz0 t L2  Lh `*f*&*)` ` h e`Hآ Hӭԭ h h`8٭  [L` H ' 8 Q ТΕLϦI X +)J* b I Q 8fxL@ X I)!) b `Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L[`ɠɀ)ӮԮmwӥmxԐ mi` CHBH`z !`LL) @L) L8`,P<0 )ߍL( J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  xLJ}~~Șݶ~`}}~L7 L }ީ~`  "&),/4:>BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~   #(/28AHPSWZehu ),14?Rat{   % 9 < C F U q u x     ' , 0 5 8 = F M U Z ] b i n s y ~   $ ) 1 8 E K N S V    . 5 8 A _  9 _\\b)ba)a b 04 )ߍY) J,P,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(I I `[M,Y0JՐ̑ʈ`Jհȍ,P,`,$ ( $  x) (,`% (L5, `é ĩ `Y) jYZNZ~ZO,Y0'^^^]]8^][[```__8`ΝL  `,0 x) `(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍĩϭ & &υΠÑΈΝ + ҰةeÅÐн,QȱÍR`)P`Ɂ" (`Hh) `ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* I `x|x|,,P-X + `T`U`V`W`X`[ȭ\` `YȭȭéL, HH`L5L  d     HEJ lO  zh) `(" ( (ÈE  z`) `(, LL͏[`͐\L" L L L [LM LM ,0L5 HH`! (56O[agm x `(" ((èDÈ`QȭR`P```JÈ`EÈ`S`Z)Z`,@`[, [L[`[͏[`,s[L\͐\L" ,XL \\L" ,CL [\L" [,)LL L YL Z)ߍZ`Z Z`aL bL )Z) ZL   x)Y [J h̰ [h,L`  ;Yo}"+9GPYo ` Xb[m][\m_\]_^`L ]m[]_m\_[\L [m]^\m_`L bXL Z ZT ,U H,T p  He҅Ґhe…å逅h,QRLґȥӑ,P0 h0  z`,0L5 ҅ӥĥŰ+,0p J L Lz )"Ơ̏ HH` MH,҅x  (ĥŐL ,PHȊ©L,T2,X-P" a{)X LnX0$0%,V ҥ #L$0T,WOKT0P;ҥ,W #LA\   8҅¥Ӆé҅L,`[,S`,XP"[YJ H) +̰ H) +ʭP h̰ʩ8,)΂ ̓`,T H h J `T!   J(P J J `,0L5,P0H0 ԥ f0)ĭX)X5 I`6 `7 I`8 I`9A)I@`{ ~I)_ J) ) )) ,0E EJ%O J(,@OEJLf ((((PPPPBTVSPLH   5Aʘ ;H:H` (# (I// 0`)I<0 ^)WL)6L= C H n ~ [`w!&)LQT^epty"5v{ .CONSOLE a (C) 1980 by Apple Computer Inc.O  O0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $p̑бʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA` *C< * *CA * (c) 1980, 1981, 1982 Apple Computer Inc. *CF *************************************************************P 7000,u=19:g$=g$+9)+"eC *************************************************************C * *C * Apple /// System Demonstrations *C# * V 1.2 CRT.INV","TIMESET.INV" d"splash" *C< * *CA * (c) 1980, 1981, 1982 Apple Computer Inc. *CF *************************************************************P 9_"BGRAF.INV","HORSES.INV","READ%C *************************************************************C * *C * Apple /// System Demonstrations *C# * HELLO V 1.2 / 6 = N S X ` t (-1:C\aeqw~36qw7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H M P S X \ _ b e j o t w z   $ ' ,   !$'*-27;@EILORUX[`chknsv~ "$&(*,.024HQW]ciq|           & + . 1 4 %=BEHKPX]aehorw{!$',/47:>ADGJMRUX\_behknsv|f(,:<>@BDFHJZbmt{!$,169>AILORU[aknqw~ $27?DGKPSX`{ (+2;X[^chm___":u-6v=115:h$=h$+"|"+10)+8)::h$=h$+"|"@clr40mode$=16)+1)Jsetback$=20)Tsetfore$=19)^maxwindo$=1)hsys$="Apple///":clr40mode$;Lsetback$;5);Vsetfore$;15);`1,139,4jt=2" Apple /// P:740=rounds>=4seek=1:choice=5: act like user pressed <5>. demo;". ";a$;2seek=1(choice=demo-k1choice=demo+k2)950seek=0time=1460:time seek=0time=1460:time *demo=demo+14750$ --- Handle menu selec"Demonstrations available:" =17:=1$"Please type the number of the"*=4:"demonstration you wish to see."; 900 seek=0! --- Scroll the choices. ---4,937,18colors1$::=10 :demo=1+a$:a$="<>"rounds=rounds+1t);:0y=222:400:down);:!:x=393-1:400:left);:Dy=233-1:400:up);:-I21);13);: standard text options on.vcolors$;:4,438,22*:" Apple /// Demonstration Programs"(" --------------------------------"": --- Paint the screen ---/16);"1";: Set 40-column, 16-color mode.$1);: Set full-size viewport.%  --- Make the marquis border --- colors$ :=2:=25!21);0);:color=5: all auto text options off.&x=238:400:righ-- ON KBD routine to be used during menu setup.--- 6key$=ŝ)@choice=key$)"Jchoice>0choice<=5::995 T300^:5 -- Subroutine to print one colored space. -- &color=color+1:20);color);" "; --- Main loop ---mo names from these statements.---"Console Demonstration"("Read & Set the Clock/Calendar" "Try the Type-Ahead Buffer""Adjust Video Monitor" "Apple /// Graphics Show"  "Exit from Demonstration" "<>" +:9, -**************P,Z300: Until the screen is all set up.d --- Initialize ---"xcolors$=19)+15)+20)+1)"colors1$=19)+0)+20)+9)"numdemos=6:k1=2:k2=numdemos-k1 left=8:right=9:down=10:up=11500= --- Data: read the de V 2.2 *K< * *KA * (c) 1980, 1982 Apple Computer Inc. *KF ******************************************************* K *********************************************************************K * *K * Apple /// System Demonstrations *K# * =3:=28 "V 1.2"; p"show"X --- ON KBD routine.---b=27:::"menu" l7000v372:g$,j,2);:j,@iJj=217:=37:=j:"|";:+T Line 1620 make the last vertical bar." setback$;6);setfore$;15); =7:=3 c=1sys$) sys$,c,1); s=13:9);:s c+maxwindo$;setfore$;0);setback$;5); lus"" System Demonstrations";=38 255);maxwindo$;setback$;6);1,639,24 =1:=24."38c";"To see the menu, press ESCAPE.";1,639,24setfore$;0);i=1172=i*2-1:=2:h$; =i:=1"j=1tion. --- choice=: Get the keypress.<choice=27choice=155choice=55: Treat ESCAPE as "7".1choice>="1")choice<=numdemos+"0")930900: Invalid choice./choice=choice-"0"): Yes, a valid choice.@time=521:seek=1:: Scroll the choice to middle of screen. ! --- Now get name of choice.:x=1choice:a$:x"=6:=1:choice;". ";::a$;:4,2037,21:colors$;:&" ... One moment please ...";8choice1000,1100,1200,1300,1400,1500,1600,1700,1800mode.->12711000"<32PascalFlag6000:ۺ3400>=32<=127ŝ); A printable character. 1500" --- Set up the screen. --- clr40mode$;maxwindo$;&fieldcolors$;:0boxcolors$;:2,239,4: ::=2:=8sorOFF$;"+";left);CursorON$; 300+  --- On KBD routine for screen 0 --- *=27"menu"/=131950 4800>7 ---- ON KBD Routine: Master switching point.---- = - Do main switching here, except in BASIC Escape -- maxwindo$; =24:=1fieldcolors$;*"39c";"To continue, press RETURN."; key$boxcolors$; !key$=13)3,638,23::&key$=27)"menu"0540N:% --- Start escape mode. --- readc(@ch%):ch$=ch%)Cure mode. )r Emulate the Escape-mode function. wCursorOFF$;|ch$;Left$; key);readc(@ch%):ch$=ch%)"+";Left$;CursorON$; 300 End Escape mode.ch$;left); 1500( --- Pause at bottom of screen -Okey="S")key=28:370Tkey="P")key=29:370Ykey="L")key=31:370^key="H")key=12:370ckey=8key=11key=10370>hkey=21key=9:370: ASCII 8, 10, 11 & 21 are the arrows.;m415: If we got here, the keypress ended Escap--- Utility subroutines --- , --- ESCAPE mode --- 1>127110006>95key=-32:key=%; Upshift lower case characters. @key="B")key=3:370Ekey="T")key=2:370AJkey="V")vtemp=:htemp=:1,280,22:=vtemp:=htemp:405 hold OPEN-APPLE and press SPACE-------"]Pinst$="---------To switch to the BASIC console, hold OPEN-APPLE and press SPACE--------"clr40mode$=16)+1)&fieldcolors$=20)+1)+19)+7)$boxcolors$=20)+2)+19)+7) 79c "1800#' maxwindo$=1)]BMode$="________________You are using the Apple Business BASIC Console._________________"]PMode$="________________You are using the Apple /// Pascal Console._____________________"\Binst$="--------To switch To the Pascal console, *KF *********************************************************************Pd --- Initialization. ---!nLeft=8:Right=21:Up=11:Down=10sLeft$=Left)xEsc=27:Ndfs=9:ContX=24Attn=155:Switch=160"CursorON$=5):CursorOFF$=6) *K( * *K< * (c) 1980, 1981,1982 Apple Computer Inc. *KA * K *********************************************************************K * *K * Apple /// System Demonstrations *K# * CONSOLE  "console" L"clock""typeahead" "adjust" x"splash"coldstart N:I*N ---This is a time delay routine that waits for "secs" seconds.--- 4Ntime=1520*secs >NtimeHN D"Console Demonstration"Nboxcolors$;:2,639,23:X3,638,23: l800v=60"34c";"You can quit this demonstration":$"34c";"by pressing ESCAPE.":1secs=3:I=1secs*520:I: Wait 3 seconds :1 --- Display 6 pages of instructions --- =2(" Welcome to the Apple /// Plus":+"Console Demonstration! Instructions") "on how to use this demonstration":* "appear in the section 'Using the ":+*"Console' in Chapter 3 of the Owner's"*4"Guide. AK *********************************************************************K * *K * Apple /// Demonstration Programs : Type-Ahead *K( * )";*+vtemp=:htemp=/+maxwindo$; 4+=1:=1!>+PascalFlagPMode$:BMode$H+=23#R+PascalFlagPinst$;:Binst$;f+1,280,22p+=vtemp:=htempz+CursorON$;+=AttnDoneFlag=1++: --- High character processing ---D+ It doesn't matter if you're in Escape, normal, or Pascal mode! +:+<>Switch11240,+ Switch to emulating the other console.+PascalFlag=(PascalFlag)+CursorOFF$; +=1:31);%+(PascalFlag)"500: restart keypress loop. Fp --- Process Control characters in Pascal-style console. --- zkey=#Key=8>18);" ";:8); Do destructive backspace. key=1331);:: CR key=24=1:31); 1500'*. ---R \ key=a key=27700f key=1331):")";:3580p key<>Left3480z -Handle backspace- >2left); 3580 key<>ContX3530 -Handle Delete- "\":3580 key<>Right3580 (1-dest)Ndfs); 3580& 1 --- clr40mode$; maxwindo$;: =10% "39c";"This is the end of the" % "39c";"Console Demonstration." =24, "To return to the Menu, press ESCAPE."; " key$, key$)<>272850 "menu" : !H --- Control charactersld OPEN-APPLE and press ESCAPE";p 1,280,22:s CursorON$;x doneflag=0:PascalFlag=0 1500 ")";A - Make tiny circles while waiting for keystrokes. -  DoneFlag:2720 2710 CursorOFF$; : --- Leave gracefully.see the":* "Standard Device Drivers Manual or":& "the introduction to the Apple":) "Business BASIC Reference Manual.":( 500'Z ---- Do the demonstration ---- _ : d BMode$f =23 i Binst$;Hn 200;"To end the demonstration, ho"and the RIGHT-ARROW won't retype.":' "Now they only move the cursor.":) " To leave Escape mode, you can":( "press almost any key, including": "ESCAPE.": 500:, " For more details on Escape mode,":' "or 'cursor-move mode', sole, experiment with Escape":(B "mode. Just press the ESCAPE key": ` "The cursor turns into a ";j :"+";::"."; o 500:'t " Now you can move the cursor":)~ "freely with the four arrow keys.":' "But the LEFT-ARROW won't erase":* llows you to practice with both.": 500:+" To switch from one console to":+ "the other during the demonstration":% "hold down the OPEN-APPLE key":' "while you press the SPACE bar.":(. " While you're using the BASIC":(8 "conl,":+"the console works a bit differently."+"For example, the backspace removes":$"characters from the screen.":*" Normally you never have both":%"kinds of console in the same":+"program. This special demonstration"*"aness BASIC console.":#"You'll experience the same":("keyboard and display screen you":+"have when you use programs written":("in BASIC or when you write your":"own BASIC programs."; 500:," With programs written in Pasca few brief reminders are":+H"provided on the next five screens.":#^maxwindo$;20);1);:=24:=1*_"39c";"To continue, press RETURN."; f500:)p" When you finish reading these":*"instructions, you'll be using the":&"Apple Busi *K7 * (c) 1980, 1981,1982 Apple Computer Inc. *K< * *MF ******************************************************* the next screen, your"* "Apple /// will run a program that":) "draws a design at the top of the":"$ "screen in about 10 seconds." . 600:+8 " Type something while the Apple ///"+= "is drawing. Be sure to press RETURN"*B "when you finis) as soon":'"as it has a chance. If you've":*"typed instructions, the Apple ///":+"executes them as soon as they appear""on the screen."600 --- screen 4 --- +" Try it! When you press RETURN to "+ "continue afterou type"("in a buffer. You won't see the":'"characters you typed until the":*"Apple /// finishes what it's doing." 600:+" The Apple /// remembers what you":,"typed and then echoes your message ":*"(prints it on the screenve to wait for your": "37c";"Apple /// Plus!":600 --- screen 3 --- ," Type-ahead works like this: While":+"your Apple /// is busy with a task--"+"running a program, or loading a file"+"from a disk--it stores what y patiently the Apple /// waits":)R"for you to do something, such as":)\"pressing the RETURN key when you":"h"finish reading this screen."k600m --- screen 2 --- p=54u"37c";"But type-ahead means that YOU don't":&z"37c";"ha";"at any time by pressing ESCAPE.":0secs=2:I=1secs*520:I: Wait 2 seconds  --- screen 1 ---  %*" One of the most convenient":+4"features of your Apple /// Plus is":*>"type-ahead. You may have noticed":*H"how;"Type-Ahead Buffer Demonstration"boxcolors$;:2,639,22:3,638,22+ --- Main program begins here. --- 900: Set up the screen.  --- screen 0 --- 800=61"34c";"You can leave this demonstration":0"34ckey$)<>136403,638,22:)  --- On KBD routine for screen 0 ---*=27"menu"/=132072 4800># --- Set up the screen. --- clr40mode$;maxwindo$;fieldcolors$:boxcolors$;:2,239,4:=2."36c");13);: standard text options on. :HX --- Routine to hold the screen until user presses . --- bmaxwindo$ l=24:=1qfieldcolors$;*v"39c";"To continue, press RETURN.";{boxcolors$; key$key$)=27"menu" --- Make the marquis border --- 1,140,5:=1:=1121);0);: all auto text options off. rounds=12x=139:400:right$;:y=14:400:down$;:x=391-1:400:left$;:&y=41-1:400:up$;: +rounds1021)+black) 2000< --- The following (to line 2000) are subroutines --- < --- which will be used later. --- 5 -- Subroutine to print one colored space. -- color=color+1)16)20);color); " ";'o$=1): Resets window to full screen.clr40mode$=16)+1)) --- Set up standard color sets. ---/fieldcolors$=19)+yellow)+20)+brown)-boxcolors$=19)+white)+20)+mdblue)(BandW$=19)+white)+20)+black)blackfore$=19************** d --- Initialize ---)nblack=0:magenta=1:dkblue=2:lavender=3&xdkgreen=4:grey=5:mdblue=6:ltblue=7$brown=8:orange=9:grey=10:pink=11'green=12:yellow=13:aqua=14:white=15right$=9):left$=8)up$=11):down$=10)2maxwindh. As soon as your":*V "computer completes the design, it":*` "will echo the characters you typed." 600 --- OK, Do it! --- 1,540,24:fieldcolors$;: 2,739,22:boxcolors$;: 3,738,22:=2 "You typed:" 500 3,738,22:=2 boxcolors$;19);2); =11:"",string$ boxcolors$; >15=17:, "The Apple remembers what you typed "- "and it waits for you to finish! "; maxwindo$; =24:fieldcolors$;1 "34C";"Do you want to try it againof the 16 colors your Apple /// "H"Plus can generate.": p600:'z" If you have a green-phosphor":("monitor, you should see a range":%"of tones from black to light":*"green. A black-and-white monitor":*"should produce a ra0=60"34c";"You can quit this demonstration":0"34c";"at any time by pressing ESCAPE.":/secs=3:I=1secs*520:I: Wait 3 seconds : =3**" When you press RETURN, you'll see"*4"a test screen with a block of each "*>"-- Set up the screen. ---1clr40mode$;: Set 40-column, 16-color mode. +maxwindo$;: Set full-size viewport. fieldcolors$:boxcolors$:2,239,4: =2:=9"Adjust Video Monitor"boxcolors$;:2,639,22:4,638,22 804:=1qfieldcolors$;*v"39c";"To continue, press RETURN.";{boxcolors$; key$key$)=27"menu"key$)<>136404,638,22:,  --- On KBD routine for screen 0 --- *=27"menu"/=132075 4800>  ---'fieldcolors$=19)+8)+20)+13)$boxcolors$=19)+0)+20)+9)setfore$=19)setback$=20)clr40mode$=16)+1)maxwindo$=1) +2000FX --- Routine to hold the screen until user presses . --- bmaxwindo$ l=2e$(7)="Light Blue"0colorname$(8)="Brown":colorname$(9)="Orange"5colorname$(10)="Light Grey":colorname$(11)="Pink"2colorname$(12)="Green":colorname$(13)="Yellow"0colorname$(14)="Aqua":colorname$(15)="White") --- Set up standard color sets. -**************PZœd --- Initialize ---ncolorname$(15)1xcolorname$(0)="Black":colorname$(1)="Magenta"6colorname$(2)="Dark Blue":colorname$(3)="Lavender"3colorname$(4)="Dark Green":colorname$(5)="Grey"3colorname$(6)="Blue":colornamst Sceen *K< * *KA * (c) 1980,1982 Apple Computer Inc. *KF *******************************************************< K *********************************************************************K * *K * Apple /// Demonstration Programs *K( * ADJUST: Montior Teis the end of the Demonstration."5"39c";" To return to the Menu, press ESCAPE."; key$key$)<>274290 (#"menu" ou can":) "also change your mind about what": "you typed.":+ " See the sections on type-ahead and"( "the console control keys in the":( "Standard Device Drivers Manual.": =15%maxwindo$;fieldcolors$;:=23:=14"39c";"This (Y/N)?";( 3,738,22 d key$#n key$="y"key$="Y"900:2490 s key$<>"n"key$<>"N"2660.x --- End the Demo, go back to Menu. --- } boxcolors$;:3,738,22 :+ " Note: All console features work":* "when you use type-ahead. Ynge from black":"to white." 600:*" If you have an RGB or NTSC color "*"monitor, or a color TV, adjust the "*"color until the blocks on the test "!"screen match their labels."J maxwindo$;fieldcolors$;7T =24:=1:"39c";"For test screen, press RETURN."; ^ key$h key$)<>132910# -OK, here's the test screen.- top=1:bot=6 setfore$;15); line=14 left=1:right=10 box=14 color=8setfore$;0) left,topright,bot0 setback$;color);: #1;"Month"; pencolor(%yellow) x=0:y=y0-18:moveto(%x,%y)+t#1;" ( =U.S. =Foreign)"<:nx=0:y=178:moveto(%x,%y)pencolor(%white) #1;" " #1;" " #1;"S" #1;"a" ,#1;"l" @#1;"e" T#1;"s" h#1;" "x0=28pencolor(%yellow)x=x0:y=191:moveto(%x,%y) :::::::y=y0:lineto(%x,%y)x=279:::::::lineto(%x,%y) : x=x0+3:y=y0-2:moveto(%x,%y)-#1;" J F M A M J J A S O N D"#` x=x0+105:y=y0-10:moveto(%x,%y) pencolor(%white) --- ...get the data for the bar chart. --- + 34,40,48,51,58,68,72,76,81,84,87,90 -$ 25,28,31,28,37,44,46,49,55,59,62,68 Lht(3,12)~ a=01month=112 temp!(ht(a,month)=temp*(192-x0)/100 Fmonthxa:y0=25:ecs=04:350 black=0 magenta=1 dkgreen=4 blue=6 !yellow=13 &aqua=14 +white=15N mode=1grafixmode(%mode,%1)*initgrafix4fillcolor(%dkgreen) Hfillport Rgrafixon\#1,".grafix"fy0=25:x0=28:266x=x0+edge+2:::::::y=y0fake+height+2:moveto(%x,%y)6;x=x0+edge:::::::::y=y0fake+height:::lineto(%x,%y)@^ Time delay routine.htime=1332*secs rtime|: mode=2grafixmode(%mode,%1) 10000: draw the pie chart.s:::::::y=y0fake+height:::lineto(%x,%y)6"x=x0+edge:::::::::::::::::::::::::::lineto(%x,%y)6'::::::::::::::::::y=y0fake::::::::::lineto(%x,%y)6,x=x0+edge+width-1:y=y0fake+height:::moveto(%x,%y)61x=x0+edge+width+1:y=y0fake+height+2:lineto(%x,%y)*::::::y=y0fake+height+2:lineto(%x,%y)r: s=011x=x0+edge+width+s:y=y0fake+s+1:moveto(%x,%y)+:::::::y=y0fake+height+2:lineto(%x,%y) s:pencolor(%black)6x=x0+edge+width-1:y=y0fake::::::::::moveto(%x,%y)6:::::::::::bottom=y0+1:top=bottom+height(viewport(%left,%right,%bottom,%top) fillport :  q=01'x=x0+edge+q:y=y0fake:moveto(%x,%y)-:::::::::y=y0fake+height+q:lineto(%x,%y)qr=0width-3)x=x0+edge+2+r:y=y0fake:moveto(%x,%y)"* 24000 k=22000400dn/x Apple /// System Demonstrations ( SHOW: Apple/// Graphics Show 2 (c) 1980, 1982 Apple Computer Inc.  draw_a_bar routine.left=edge:right=left+13!s ESCAPE."; key$ key$)<>273340 "menu"'# D =3X "10c";colorname$(color);l " ";color;v left=left+10:right=right+10{ color=color+1 box top=top+6:bot=bot+6 line maxwindo$; 3315" setback$;0);setfore$;15); =24:=15 "39c";"To go back to the menu, pres |#1;"$" #1;"1" #1;"0" #1;"0" #1;"0" #1;"s"pencolor(%yellow):0division=09D draw a division line.*Xx=x0-4:y=y0+16*division:moveto(%x,%y)lx=x0:::::lineto(%x,%y): now label it -x=x0-18:y=y0+16*division+4:moveto(%x,%y)  2# label%=10*division#14540;label%; division*x=x0-4:y=y0+16*division:moveto(%x,%y) x=x0:::::lineto(%x,%y)-x=x0-25:y=y0+16*division+4:moveto(%x,%y)  3#*label%=10*division4#14640;label%;Value%(j)+value%(j-1)~'label$(j)'5' 135.4, 137.1, 138.7, 140.1, 141.3, 142.35' 143.2, 143.9, 144.4, 144.8, 145.0, 145.05' 144.8, 144.4, 143.9, 143.2, 142.3, 141.35' 140.1, 138.7, 137.1, 135.4, 133.5, 131.45(=152:a:' 14, Private Elementary$' 4, Private High School .' 2.5, Private College 8' 1, Public College B' 56, Public Elementary L' 22, Public High School V'j=05`'value%(j)j'value%(j)=value%(j)*3.6*t'j<>0Value%(j)=nit <#15); F#a=120 Z#i=04n#hframe(%i)#i#a#lap=140#secs=.007*(20-lap)+.01 #i=04#hframe(%i) #hscroll#secs>0350#i"$lap&:&i=13:release: '"menu"%' Subroutine to draw a pie chart.'i3month=71-1pencolor(%color%(month))height=ht(year,month)+edge=27*(year)+3*(month-1)+2+3*(year+1)y0fake=y0+3*(month-1)+1200 month year:@secs=4:350*(# --- Now run the horse race! --- -#16);1); 2#hiveto(%x,%y)pencolor(%yellow)#1;"of Seven Products":color%(12) I=03 J=13J=1color%(3*I+J)=14J=2color%(3*I+J)=2J=3color%(3*I+J)=8JI$:% Now put the bars on the graph. width=5year=0%x,%y)4#1;"4 YR SALES RECORD"H:7R Put a color background in the data area only. \left=x0+1:right=139fbottom=y0+1:top=179(pviewport(%left,%right,%bottom,%top)fillcolor(%dkgreen) fillportinitgrafix:x=X0+1:y=176:mo:lineto(%x,%y): now label it -x=x0-11:y=y0+16*division+4:moveto(%x,%y)  # label%=division.label%/2=label%/2)#17130;label%/2; division:  title the graph. pencolor(%white) x=X0+1:y=187:moveto(S#1;"0" X#1;"0" ]#1;"0" b#1;" " g#1;"U" l#1;"n" q#1;"i" v#1;"t" {#1;"s"fillcolor(%black)pencolor(%yellow)division=010 draw a division line. *x=x0-4:y=y0+16*division:moveto(%x,%y))x=x0::::::::::::::::::e2$;#16870;"Year";)pencolor(%yellow):fillcolor(%black):" Divide and label the y-axis.x=0:y=178:moveto(%x,%y)pencolor(%yellow) &#1;" " +#1;"S" 0#1;"a" 5#1;"l" :#1;"e" ?#1;"s" D#1;" " I#1;"1" N#1;"0" fillcolor(%black) Jfillport Tgrafixon^y0=17:x0=17| draw the axes.x=x0:y=179:moveto(%x,%y)::::::y=y0:lineto(%x,%y)x=139::::::lineto(%x,%y): x=x0+3:y=y0-2:moveto(%x,%y)#1;" 79 80 81 82" XX,18c #1;for050,2150,2090,1790( 1450,1890,2120,1980,2150,2270,1990( 1790,2050,2220,2270,2190,2450,1990: a=03 b=17 valueht(a,b)=value*(.0660079)-34ba: "mode=3,grafixmode(%mode,%1)6initgrafix)@pencolor(%yellow):lcolor(%blue)bar=112height=ht(year-1,bar)edge=(bar-1)*21+x0+7$1708bar Lyear'V Hold the bar graph on the screen.secs=4:350dn:s Data for the 3-D graph.(x 1450,1620,1730,1940,2130,1900,1700( 1380,1900,1920,2lcolor(%blue) fillport:left=154:right=160(viewport(%left,%right,%bottom,%top)fillcolor(%magenta) fillport-initgrafix: reset window to maximum. (:p:year=12"year=1:fillcolor(%magenta)year=2:fil title the graph.'xnew=xloc:x=xnew+12:moveto(%x,%y)pencolor(%white),#1;"Foreign and Domestic Revenue: 1980"pencolor(%yellow):$8left=91:right=97Lbottom=y0-18-6:top=bottom+6(`viewport(%left,%right,%bottom,%top)tfil 129.2, 126.8, 124.3, 121.6, 118.8, 115.85 ( 112.7, 109.4, 106.0, 102.5, 98.9, 95.15( 91.3, 87.3, 83.2, 79.0, 74.7, 70.35( 65.8, 61.3, 56.7, 52.0, 47.2, 42.45(( 37.5, 32.6, 27.7, 22.7, 17.7, 12.652( 7.6, 2.5, - 2.5, - 7.6, - 12.6, - 17.75<( - 22.7, - 27.7, - 32.6, - 37.5, - 42.4, - 47.25F( - 52.0, - 56.7, - 61.3, - 65.8, - 70.3, - 74.75P( - 79.0, - 83.2, - 87.3, - 91.3, - 95.1, - 98.95Z( -102.5, -106.0, -109.4, -112.7, ue%(v+1))/2)&J.angle/2)=angle/2angle=angle+1T.x=cosine(angle)*rho+xc^.y=sine(angle)*rho+ych.moveto(%x,%y)!r.rho=165/145:v=0rho=175/145|.x=cosine(angle)*rho+xc.y=sine(angle)*rho+yc.lineto(%x,%y).v=0v=2x=x+16:x=x+120.li)-#1;"Schools"-moveto(%xo+21,%yo-24)-#1;"Public"-moverel(%xo+21,%0)-#1;"High".moverel(%xo+21,%0).#1;"Schools".moveto(%xref,%yref)". Label the thin slices.,.v=20-16.rho=(100+10*(v+1))/145&@.angle=(value%(v)+val:#Z- ---Label the pie itself --- d-moveto(%46,%106)n-#1;"Public"x-moverel(%46,%0)-#1;"Elementary"-moverel(%46,%0)-#1;"Schools"-moveto(%xc+66,%102)-#1;"Private"-moverel(%xc+66,%0)-#1;"Elementary"-moverel(%xc+66,%0-moveto(%xref,%yref-50)$ -#1;"Private Elementary 14%"-moveto(%xref,%yref-64)$-#1;"Private High Schools 4%"(-moveto(%xref,%yref-78)$2-#1;"Private Colleges 2%"<-moveto(%xref,%yref-92)$F-#1;"Public Colleges 1%"P-100,moveto(%xref,%yref-4)$,#1;"_______________ _______",moveto(%xref,%yref)$,#1;"Level of School Percent",moveto(%xref,%yref-22)$,#1;"Public Elementary 56%",moveto(%xref-14,%yref-36)&,#1;"* Public High Schools 22%"3V,lineto(%rads)*rho+xc,%rads)*rho*scaler+yc) `,I=03j,moveto(%xc,%yc)$t,rads=(value%(I)-rotation)*pi/1803~,lineto(%rads)*rho+xc,%rads)*rho*scaler+yc),I,::, --- Make a data table to the right of the pie. --- ,xref=365:yref=28,lineto(%-cosine(angle-180)+xo,%-sine(angle-180)+yo),', ---Slice the rest of the pie.--- $$,rads=(value%(5)-rotation)*pi/180.,moveto(%xo,%yo)38,lineto(%rads)*rho+xo,%rads)*rho*scaler+yo)B,moveto(%xc,%yc)L,rads=(-rotation)*pi/180+xc,%-sine(angle-180)+yc)++xo=172:yo=70+moveto(%xc,%yc)$+rads=(value%(4)-rotation)*pi/1803+lineto(%rads)*rho+xc,%rads)*rho*scaler+yc)+moveto(%xo,%yo)3+lineto(%rads)*rho+xo,%rads)*rho*scaler+yo)"+angle=value%(4)value%(5)7)"#f+rho=145:scaler=192/560*4.5/3.25k+pi=3.1415962(p+arc=value%(4):rotation=22: degress &z+moveto(%cosine(1)+xc,%sine(1)+yc)+angle=11802.+lineto(%cosine(angle)+xc,%sine(angle)+yc)++angle=181arc28+lineto(%-cosine(angle-180)ode(%2,%1) +fillcolor(%black):fillport +pencolor(%15)*+#1,".grafix" 4+grafixon>+ --- Title the graph H+moveto(%0,%191)"Z")a=a-32b<"a")b=b+32week$=a)+b) day%=0!ok=0:wk=17("week$=wkday$(wk),2)day%=wk:ok=1 #okwk=8$a=month$):b=month$,2,1)):c=month$,3,1))a>"Z")a=a-32b<"a")b=b+32c<"a")c=c+32month$=a)+b)+c)ok=0:mon=112.month$=months$(mon),3)month%=mon:ok=1okmon=13? Convert week$ to a cap ";dflt$;".";rdflt$)>8=-1| Positive feedback.waste=1220: =-1:=218);"Okay!";17)E Convert month$ to a capitalized, three letter abbreviation, / using properties of the ASCII chart. month%=05"in your Apple. Please see your Apple"+":"dealer for assistance. Thank you." ,=16:=2,6"To go back to the menu, press ESCAPE"; @key$Jkey$)=27"menu":ۺ320T(^ Inform user of default--subroutine/h:"Just press RETURN to enter1504 ---- Determine if this Apple has a clock. --- :waste=1550:wastetim1$<>2,639,23:':"Your clock is not operational.",:"Either your batteries have run down"*:"or no clock/calendar is installed".: *Kn *********************************************************************x 150550 --- On KBD routine. --- 0=27"menu": gets out to menu. ŝ)=" "1240  *KF * CLOCK: Read and Set the Clock/Calendar V 1.2 *KP * *KZ * (c) 1980, 1982 Apple Computer Inc. *Kd * !80::1570-::820-899:K( *********************************************************************K2 * *K< * Apple /// System Demonstrations prompts and get defaults --6::prompt$73508=-1:=1:">";string$/:string$=""=-1:=2:dflt$:string$=dflt$ <blank$;@! --- Main program loop. --- " --- Set up the screen. --- clr40mode$;maxwindo$;3fieldcolors$;:: clear screen to lavender. boxcolors$;2,239,4: =2:=5&"Read or Set the Clock/Calendar";200maxwindo$;:=23:=1fieldcolors$;blackfore$;6"39c";" To set the time and date, press SPACE."5"39c";"To go back tust AM or PM.":2140 blank$3903hdigit1%=hour%/10):hdigit2%=hour%-hdigit1%*10$hourparam%=hdigit1%*256+hdigit2%: --- Get the Minute ---2dflt$=ҟ,4,2))+1):dflt$="60"dflt$="59"2prompt$="Please type a number for the minut23.":"Please try again.";:2050">hour%>12string$=dflt$2190H=-1:dflt$="AM":350 R=-1:=1\"Is that AM or PM? >";a$#fa$=""=-1:=20:dflt$:2180.pa$)=112a$)=80hour%=hour%+12:2180>za$)<>97a$)<>65"Please type j:390dayparam%=day%: --- Get the Hour ---dflt$=П,2)Eprompt$="Please type a number from 0 to 23"+CRLF$+"for the hour."820*hour%=string$,4))t4hour%<1hour%>23"The number you type for the hour":"must be between 0 and he week."*"(You must enter this one yourself.)"">";week$week$=""1935532day%<1day%>7"Sorry, I didn't understand that.":"Please type at least the first three letters":"of the day's name.":1930=-1:=2:wkday$(day%) The day has to be between 1 and "length(month%)".":"Please try again.";:1770&39070ddigit1%=daynum%/10):ddigit2%=daynum%-ddigit1%*10&:daynumparam%=ddigit1%*256+ddigit2%N:%X --- Get the Day of the Week ---,::"Please enter the day of t Month --- dflt$=Ѡ,2)5length(month%)length(month%)"nd that. Try a number between 1 and 12, or type atleast three letters of the name.":=-1:1590%=-2:=2:months$(month%)::3905mdigit1%=month%/10):mdigit2%=month%-mdigit1%*10%monthparam%=mdigit1%*256+mdigit2%:) --- Get the Day of the$yearparam%=ydigit1%*256+ydigit2%:" --- Get the Month --- @,dflt$=months$(Ҡ,4,2))):prompt$="Please enter the month."6820@month$=string$$Emonth%=month$):month%>01670J430month%<1month%>12"Sorry, I don't understa82"#prompt$="Please type the year."820year%=string$)!year%>1900year%=year%-1900ayear%<82year%>99"The year has to be between 1982 and":"1999. Please try again.":14703903ydigit1%=year%/10):ydigit2%=year%-ydigit1%*1023:d3,1339,22:'n"You must now enter the new clock"'x"date and time settings. To make"("this easier, you may press RETURN"'"to accept certain preset values.": --- Get the Year ---1dflt$="19"+Р,2):dflt$<"1982"dflt$="19 ":&maxwindo$;:=3:=5:fieldcolors$;'"Set the Apple/// Clock/Calendar"; boxcolors$;4 Clear off the prompts, and set another window.2,639,23 (:::2fieldcolors$;<1,1140,24FPboxcolors$;Z2,1239,ine$="The date is "+month$+" "5now$,16,1)="0"line$=line$+now$,17,1):1200line$=line$+now$,16,2)#line$=line$+", 19"+now$,10,2)"37c";line$ 1070' --- Set the Clock/Calendar --- 2blank$=" NOW./Lhour=now$,2)): Get the numerical hour.Vampm$="a.m."'`hour>11hour=hour-12:ampm$="p.m."jhour=0hour=126tline$="The time is "+hour)+now$,3,6)+" "+ampm$~=6:"37c";line$:/month=now$,13,2)):month$=months$(month)#lo the menu, press ESCAPE.";8 Clear the "space to set clock" prompt from screen.2,639,22$boxcolors$;:1. --- This is the timing loop, which ---28 --- displays the current date and time. --- -Bnow$=+" "+: Get the time and date e."820min$=string$1min%=min$):min%=0min$,1)<>"0"min%=-1smin%<0min%>59"The number you type for the minute":"must be between 0 and 59.":"Please try again.":2260 3907 mindigit1%=min%/10):mindigit2%=min%-mindigit1%*10' minparam%=mindigit1%*256+mindigit2%8$ waste=1370:waste: Let user see what s/he typed.. :8 B 4,639,10::!L "34c";"You have entered: ">V " TIME= "hdigit1%hdigit2%":"mindigit1%mindigit2%A` " DATE= "wkday$(day%)", "months$(mh   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLGA3/1.01/LINr GRAFIXMO hparam%,%daynumparam%,%dayparam%,%hourparam%,%minparam%) --- Final screen. --- :4,1339,23:&( " Your Apple /// Plus now knows"K2 "that the date is "months$(Ҡ,4,2))),3)" "Ҡ,7,2)", 19"Р,2)","< "and that the time is ";IF П,2)APE to cancel setting the clock";( " and go back to the menu." key$ key$)=27"menu" key$="c"key$="C":1450 key$=" ":2250 key$)<>132510+ --- PERFORM the actual clock set. ---U timset(%yearparam%,%montonth%)" "daynum%",19"year%j 3,1339,22t :*~ "You now have the following options:" $ " On the minute, press"* "RETURN to set the clock as above;"$ "SPACE to reset the minute;"% " to correct a mistake;", "ESC HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GBRETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhhRETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT WBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITEh READC YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEGA3/1.016̻@@@@@@@@========jjjjjjjj䚚88888888ô@@@@@@@@========@C@@@@@@ @ @ `'II.0 [d.3] HINIT READC READC COLDSTAR COLDSTAR #.-2hhhhHH`$.CONSOLE24320/Jejjjjjjjjô@@@@@@@@========jjjjjjjjՙDDDDDDDD""""""""ôCCCCCCCC--------ô33333333CCCCCCCC--------䚚HINIT HINIT WDEVNUM EVNUM WDEVNUM HFRAME HFRAME HSCROLL HSCROLL  -----------------------------  ; 0.PROC HINIT  ;  ; First get the device number of the console  ; 0BRK 0.BYTE 084 ;GETDEVNUM SOS call 0.WORD DEVBLOCK  ; 0LDA CDEVNUM 0STA WDEVNUM ;Update the device number  ;  N  .PAGE  ;  ;-----------------------------------------------------------------------  ;  ; "Horse Demo" Invokable Module for Business Basic  ;  ; by Andy Hertzfeld 09/04/80  ;  ;-----------------------------------------> #'Hȑh`HJ) h)i `7FOP0P SQUARELOOP P FILLSQUARE&PCLOOP2APROWLOOPJP CHARLOOP1XPBLOOPrPGETCOL~PCOLORTABPBASECALCP BASECALC2P`x|@ p?xLO|cG~G??~|0J(` ,Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',-"&,,i8i#H&ii&hif&i'`!??Aq|~ |@GOO@{f@?~|yCsggyg bsrDbC~{w ?G_ ^_ 0 `x p8?xxy}}|~s|~{?ss3sxB`qpxxq!`ggg|pqx|A `A~{ ?/ X O  p @?>80<}~~~y~?OCax~`aqx|ygO?axqx|~a@OOOOggggcg|GsgpKp` ?_ 0:???  >BL2 <@p`@ yqXtpy{{xps~~G??~|?_O+B {sphXpD~yy ?G ?h, oo$ x~8 '?}|<~~~~~~~xG9 8~~?Oggh|??psy|~IyscssgG??O{sh,f g bsrDbC~{w ?G_ ^_ 0 `x p8?xxy}}|~s|?ss3sxB`qpxxq!`ggg|pqx||cG88888888D.CONSOLENMGC?;73/+# `nhhh m蹎mh荐 U gΐ0 \L, \HH``` 蝘 UΎ` %.7@I 88888888CCCCCCCC--------DDDDDDDD33333333wwwwwwwwffffffff䚚88888888CCCCCCCC--------fwwwwwww@@@@@@@@========jjjjjjjj䚚 TIMSET 150 900also allows"$ "you to set the Apple's clock." 1,140,24 fieldcolors$; =24:=1* "39C";"To continue, press RETURN."; a$ a$)<>132760 150 900 "39C";"To continue, press RETURN."; a$ a$)<>132760 <"13"П,5);:ampm$="AM":П,2))-12;ҟ,3,3);:ampm$="PM"P " "ampm$"."(Z "The next time you read the clock,"(d "your Apple will already know what"%n "the correct time and date are."x # " The Apple /// Plus System "! "Utilities disk TIMSET TIMSET  hxhyhi0rhi0qhi0phi0ohi0nhhi0mhi0lhi0khi0jhi0ihi0hyHxHbc`f1900000COPYRIGHT (C) APPLE COMPUTER 1980{vqlgba_\Z 'II.0 [d.3](