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 (3tTIMESET.INV (3HELLO ?{!$*HELLO.TEXT{ SPALSH {){* (.!)HELLO.PIC!@---READ.ME.FIRSTADJUST > (/$SHOW c*(/!'CLOCK !(0)BGRAF.INV((2L+III.SYS.037.1u' *SOS.KERNEL ,Vk!a*SOS.INTERP 44kek! *SOS.DRIVER g%H(- &HELLO2 _{!%&SPLASH n{*!-$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*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` @SATRCONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭  )* 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ʆSTL8HSITQQSTCSTRING TOO 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 Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A,lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`Ly^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z t $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6HH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h57Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1  sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` ! ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6fhijklmnopqrstuvwxyz{|}~ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`>> ""*:<"">""""""""""""">>><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 ,u=19:g$=g$+9)+"___":u-6C *************************************************************C * *C * Apple /// System Demonstrations *C# * V 1.2.1 (WAP /// SIG - Adapted 5/90 S.INV","READCRT.INV" d"splash":: ADAPTED FOR WAP /// SIG - OUR 100TH DISK!! ! SIG) * C< * *CA * (c) 1980, 1981, 1982 Apple Computer Inc. *CF *************************************************************P Z=".D1"+_"BGRAF.INV","HORSEC *************************************************************C * *C * Apple /// System Demonstrations *D# * HELLO2 V 1.2.1 (WAP //// 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[^chmv=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 /// 10 Year Anni: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.1 (WAP /// SIG) *K< * *KA * (c) 1980, 1982 Apple Computer Inc. *KF *******************************************************K *********************************************************************K * *K * Apple /// System Demonstrations *K# * ); =3:=28"V 1.2.1" p"show"X --- ON KBD routine.---b=27:::"menu" l7000v000vgrafixmode(%mode,%1)*initgrafix4fillcolor(%dkgreen) Hfillport Rgrafixon\#1,".grafix"fy0=25:x0=28:2j=1372: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$;5versary"" System Demonstration";=38 255);maxwindo$;setback$;6);1,639,24 =1:=241"38c";"THANKS FOR SUPPORTING YOUR /// SIG"1,639,24setfore$;0);i=1172=i*2-1:=2:h$; =i:=1"tion. --- 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,1800<>x`spfffp`<f|xp@@p`s?pp?p~fa|LC?|x~fap?@p@`pdfff|p`L3L3L3LfffY3L3L3Lfffs?px`pdfff|p< ```@`0`@`! p`spp<@pfffp`?p^`@ p`L?pxp?? ~8p`|pxpp<pxsp?0~p<x|@8pfffspp~p??xpdfff|pxp?>xpdfff|p`?@\``@p`L?ppp~a|LC?||~fap<p@8pfffsp`3L3L3L3fff&L3L3L3dfffL?p`p@?x~`||``?p|fffp? @``@`0`@`?p`|p~p<?y`pfffp`<|p~`s?p?p~`x@?p?`~p<pp8p`spxpp?p|p~0`p?`pp@pdfff|pp~|`p<@pfffsp`?p<>pfffp`<@p?` p`s?p@|@x?p|x`p?@p@pdfff|p`LOgs?p` 0 @aC0`?p33dfff|p< ```@``@`!p`sp`?p?pdfff|p`?px`L?p@ C0`0 @ @`~p?c@8p`|pxp~p? p`|p~?s?|<`p "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 <?G8`pfffspp~p< ppfffspxp<p~~pfsp~pp?|@8xp`|pp?pp@pdfff|p`|xs?p`p@?x~`||x`?p? p@`pdfff|p`?px0 @ |@ p?pdfff|p`?``Lp`L?pO|C?xF0|L~~p<xxpppfffp`?@`Xpx`L?p|`x?p|~`pp?ppgff`|p~3CC@y``p3L3L3L3fff&L3L3L3dfff|p< @xxx`x>{p`spp?p>8pdfff|p`?pxp<|~x`F8pfffspxp?@p@8`pdfff|p`x`L?p`x?p<gp@8pfffsp`?pxp OL||L~fp<|fffp`<``p``s?p?p~`x@?p?`~p?p@`|~@pdfff|p`<x`8p~`s?p@@0`a@ C0|axpp<|?~ `pgf`sp~?s?|g`pp? `0`p`|pp<0@?@pfffsppxp<x~pfffspxp<xp@pfffp`<|y`s?p@|@x?pxxp?@xp@`pdfff|p`?pxp O|||Lc~fp?|dfff|pg0@OO|L3@L?~x3L3L3L33`@@ gL3L3L3LO|3@@?@gL3L3L3L3' gOxp|ay`s0L`|@8`p>3L3L3L33fff2L3L3L3ffffL3L3L3Lx@?p~`p||O3L3L3L33`?`@0@`gO|O`~?`p3L3L3L3L~033px~p|@x?|@Lp@@3Op3gOx@3`~` gL3L3L3Lpx|L@x8|p>3L3L3L3O|O@|?x083L3L3L3L~3`|@?p~|@?3~@` 0gL3L3L3LL31 @ C0` 0||3~fL3L3L3LL`0 0@@@@3|3`8pgL3L3L3L3g?Opa C00 `a?0 3|~xgOx3`pgO~N@?pqxGpdfff|p`?pp<px`~@8pspxp<p?`@8pfffsp`s?L?p`|p O~ayXC?ss`?p<p@8pfffsppx|@?p|?pxp<pfffp`<xx<p`s?pO|C?y~F0|L~~p?px`pdfff|p`<x `p`p`s?p|`pL`~@|13L3L3L3L@|@p3L3L3L3OL`pp@33O|3y|0pgO@3`~p` gL3L3L3LLx3x@?p~`p38@~G` gL3L3L3L`y`a0 p|3gL3L3L3L3gOp~a|C?p~faas0|O@??83L3L3L33B g?O|~~`|@?x~`p3`p8 gL?L3 O~s?@|3fff2L3L3L3ffffL3L3L3LL`?=FP0<@@@p3@3?|p8` gL3L3L3LL@~3L3L3L3O38~~`pgL3L3L3L3g3OL@8pp@`p3L3L3L3g~ygfa0p|O3L3L3L3LO3px~p|@x`|@|3x|?gL3L3L3LLB 3|`00 @a C0L?`c pL3L333xxN@|3`0@gO@L|3L3L3L3Lc@A`3L3L3L3OOpx` 3L3L3L3Ls3`|@?p~|@?3@08` ?gL3L3L3Lg~yfa0p|3gL3L3L3LLpi88Xa@O3px?@|O@`@@c03L3L3L33t@g@O|gx?s0 |fay|LC?3`|ppg0Value%(j)=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, lease: '"SPLASH"%' Subroutine to draw a pie chart.'i=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=0 --- Now run the horse race! --- -#16);1); 2#hinit <#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:re% Now put the bars on the graph. width=5year=03month=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*(#dkgreen) fillportinitgrafix:x=X0+1:y=176:moveto(%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$:e the graph. pencolor(%white) x=X0+1:y=187:moveto(%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(%0-4:y=y0+16*division:moveto(%x,%y))x=x0:::::::::::::::::::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:  titl;"l" :#1;"e" ?#1;"s" D#1;" " I#1;"1" N#1;"0" 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=xo(%x,%y)#1;" 87 88 89 90" XX,18c #1;fore2$;#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,grafixmode(%mode,%1)6initgrafix)@pencolor(%yellow):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:movet(x 1450,1620,1730,1940,2130,1900,1700( 1380,1900,1920,2050,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=3year=12"year=1:fillcolor(%magenta)year=2:fillcolor(%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.:top=bottom+6(`viewport(%left,%right,%bottom,%top)tfillcolor(%blue) fillport:left=154:right=160(viewport(%left,%right,%bottom,%top)fillcolor(%magenta) fillport-initgrafix: reset window to maximum. (:p:to(%x,%y)  3#*label%=10*division4#14640;label%; title the graph.'xnew=xloc:x=xnew+12:moveto(%x,%y)pencolor(%white),#1;"Foreign and Domestic Revenue: 1990"pencolor(%yellow):$8left=91:right=97Lbottom=y0-18-6 141.35' 140.1, 138.7, 137.1, 135.4, 133.5, 131.45( 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.3v=20-16.rho=(100+10*(v+1))/145&@.angle=(value%(v)+value%(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-moverel(%xc+66,%0)-#1;"Elementary"-moverel(%xc+66,%0)-#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.,.moveto(%xref,%yref-92)$F-#1;"Public Colleges 1%"P-:#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"moveto(%xref-14,%yref-36)&,#1;"* Public High Schools 22%"-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%"<-e a data table to the right of the pie. --- ,xref=365:yref=100,moveto(%xref,%yref-4)$,#1;"_______________ _______",moveto(%xref,%yref)$,#1;"Level of School Percent",moveto(%xref,%yref-22)$,#1;"Public Elementary 56%",)*rho*scaler+yo)B,moveto(%xc,%yc)L,rads=(-rotation)*pi/1803V,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,::, --- Mak*rho+xo,%rads)*rho*scaler+yo)"+angle=value%(4)value%(5)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)+yc)++angle=181arc28+lineto(%-cosine(angle-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)EL"?\+#1"70c";" (source: U.S. Education Dept., 1989)"#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 Actual drawing of pie starts here.+xc=148:yc=90 +grafixmode(%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 enter. Demo Program v. 1.2. r came with the /// or were used by dealers to show off the ///'s capabilities. Side One: A specially modified 10th anniversary version of the /// Demo Program. Runs continuously. Side Two: The original unmodified Apple /// Demo Program v. 1.2 WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Apple /// Demo Disk #1 DISK ID#: 3SYS-03 BOOTABLE? Bootable The first of three Demo Disks for the /// to honor the 10 year anniversary of SARA and 100 disks in the WAP PD library. Demo Disks eitheprompts 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  /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030NY KEY TO CONTINUE.":G$U::=".d1"".D1/HELLO2";FLASH$:#2%dFLASH=110: FLASHER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".D2/HELLO2"= WAP /// SIG HELLO PROGRAM. SPECIAL UPDATE 05/18/90 DGO#1,".GRAFIX"".d1/bgraf.inv"gload."HELLO.PIC" grafixon G$::RELEASE:#1:#1,".D1/hello.text" ž#145 #1;ERIN$ #ERIN$(30-#1/2=23:=25:"PRESS Ah`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh Halso 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](0 WELCOME! Apple /// Public Domain Library Category/Number: System Software/3SYS-03 Disk Format: Self-booting Both Sides With this disk, your WAP /050,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)tfilision+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%; |#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*div #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: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" its 10 year anniversary, having been officially introduced during the National Computer Conference in Anaheim, California in May, 1980. The /// SIG is one of WAP's oldest and we're proud to keep the trust of old and new users alike. // SIG reaches a tremendous milestone! This is our 100th Public Domain disk. To celebrate, we're placing this Apple /// demo disk (and a few more!) into the PD to show what SARA can really do. They are also introduced as the /// is celebrating 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;for