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 $<+!1MENU.MAKERmYY$LIFE  -!DISKNAME.DATkl l -PERPETUAL.CAL  - - *SOS.DRIVER s6 *SOS.INTERP 44ke'! *SOS.KERNEL ,V&!a(SURVIVAL 5+!18)CIVIL.WAR iS/!+CODEBREAKER . . $GOLF +!1HELLO gl(!N*HELLO.TEXT|D' -KNITTING.TOOL y , , III.GAMES.0101Bu' *AUDIO.DEMO a/ AUDIO.DEMO2 0AUDIO.TEXT)BGRAF.INV( !L+)BIORHYTHM l+!1+CAL.COUNTER >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[\]^_`abcdefŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠ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>6k6 :#2,".D1/hello.text" ž#270 (#2;ERIN$ 2ERIN$<40F#2P".d1/Menu.Maker"h`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 H 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` ׫$`Q Author UnknownL=0W=0 R1=0 P1=0 Q1=0 M3=0 M4=0 P2=0 T1=0 T2=0) THIS PROGRAM ENTERED 05/09/81 BY RC."DO YOU WANT DESCRIPTIONS? (0=YES,1=NO)";Z: U=16U Z=1100&"THIS I +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$="BAS6,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1:CT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),1lnopqOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$(/ WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY VAPPLE /// GAMES "DEFENSIVE OFFENSIVE":M<"(1) ARTILLERY ATTACK (1) ARTILLERY ATTACK"KF"(2) FORTIFICATION AGAINST FRONTAL ATTACK (2) FRONTAL ATTACK"OP"(3) FORTIFICATION AGAINST FLANKIN MOST BATTLES TEND TO RESULT">-"AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU"2C3"THE OBJECT OF THE GAME IS TO WIN AS MANY BATTLES AS POSSIBLE"74::"TO CONTINUE TYPE 'RETURN' OR 'ENTER'";:A$::#7"YOUR STRATEGY CHOICES ARE:":D8hjS A CIVIL WAR SIMULATION."@" TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS FOR ONE."?"REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR"B#"RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE"B("BASED ON THE ACTUAL OCCURANCE. IC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks7FA=324000: back out one directory level -IA=(81+UCA)A=(nc..CONSOLE aO  OO&+- ((((PPPPBTVSPLH   5"Lp HH`! (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#;Console Driver -- Copyright (C) 1983 by Apple Computer I`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0DL8H\0`(d  $,($  ,(Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)0,>!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>rtuvwxyz{|}~ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CHARSET )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXT 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1I=1:I=2I>2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 81+LCA):::: RebootN=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1Iٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h AL: 8p,:Jf׮@$PA B $P@/AL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx 0, )ߍ:) J)*PR΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $g " x) (,`% (g`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}0 x) `(`hh% ( ! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i0L È`,g HH`LLL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L <Le Le ,g0L HH`! (C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu #1:CY` 9ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L  ҅ӥҍe`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7  !$(+.147<?BFILORUX]`finsw| !%*/369<?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S  `L` H , 8 V ТΕLϦI ] +)J* g I V 8fxL@ ] I)!) g Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L`` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }LO}~~Șݻ~`}}~L< L }ީ~` z|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix 0ޤՐڢν!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5`ʝ`))ժuvЭ H ʊJyjhШ(PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d""""""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer/(((le Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww H`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw9Copyright (C) 1983 Appʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L H HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n134n NQBSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Copyright (C) 1983 by Apple Computer Inc._  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x (+@EIR[ty}80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984 * SET OF STRATEGIES"370"","CONFEDERACY","UNION"/C5=(2*C1/5)*(1+1/(2*(4*1)+1)-Y)+1))))C5=C5*(1+1/O)*(1.28+F1/(B+1))+0.5)(C5+100/O33306"YOU ARE ON THE OFFENSIVE"@370JM<>1360T"YOU ARE ON THE DEFENSIVE"^370&h"BOTH SIDES ARE ON THE OFFENSIVE"r|"YOUR STRATEGY";YY=51487Y-3)<3395:"YOU FOOL!! USE THE * * OTHER *HOW MUCH DO YOU WISH TO SPEND FOR AMMUNITION? ";B B<0750F+S+B<=D1230("THINK AGAIN....YOU HAVE ONLY $";D1160O=((2*F^2+S^2)/F1^2+1)0<10260"MORALE IS HIGH"300 O<5290"MORALE IS FAIR"300""MORA(1+(P1-Y1)/(M3+1))),"";M2*(1+(P2-T2)/(M4+1)))"MONEY","$";D1,"$";D2'"INFLATION","";I1+15;"%","";I2;"%"1"HOW MUCH DO YOU WISH TO SPEND FOR FOOD? ";F F<07505"HOW MUCH DO YOU WISH TO SPEND FOR SALARIES? ";S S<07507"7gD1=100*(M1*(100-I1)/2000)*(1+(R1-Q1)/(R1+1))+.5)#hD2=100*M2*(100-I2)/2000+0.5)iF1=5*M1/6 jA1=Z kU=14lmU?nSTALL=1999:STAL=STAL+1:STALL:"THIS IS THE BATTLE OF ";s800x"","CONFEDERACY","UNION":*"MEN","";M1*G MANUEVERS (3) FLANKING MANUEVERS"IZ"(4) FALLING BACK (4) ENCIRCLEMENT"_;`"YOU MAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY."ab1,1180,24dM1,M2,C1,C2,M,A,OeI1=10+(L-W)*2fI2=10+(W-L)*2&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~- k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&مh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ! LP \LD$7߭$PH8 nߩ nh ߍϭ i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiH     0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #iϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v``  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)  V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ,$0F y բӅLx  mӥmԐL] h -0300 WELCOME! Public Domain Library Disk # 3GAM-01 Category: Games Disk #1 (Side Two) Disk Format: Self-booting Business Basic After booting t z1480A<>3950"SEVEN DAYS"A1=11480D"JUNE 25 - JULY 1, 1862 GENERAL LEE (CSA) UPHELD THE OFFENSIVE"F"THROUGH OUT THE BATTLE AND FORCED GEN. MC CLELLAN AND THE UNION"!"FORCES AWAY FROM RICHMOND." 1480A<>41000"N. MCDOWELL IN A PREMATURE BATTLE AT BULL"2900 \"SHILOH"fA1=11480@p"APRIL 6-7, 1862 THE CONFEDERATE SURPRISE ATTACK AT SHILOH"'r"FAILED DUE TO POOR ORGANIZATION."000,8500,3700,1,14,0"GO TO JAIL.""GO DIRECTLY TO JAIL""DO NOT PASS GO.""DO NOT COLLECT $200."107 A<>1850*"BULL RUN"4A1=11480A>"JULY 21, 1861 GEN. BEAUREGARD COMMANDING THE SOUTH MET THE"D@"UNION FORCES WITH GE5000,120000,5377,12653,1,6,0# 38000,45000,11000,12000,1,7,0# 32000,90000,13000,17197,2,8,0$ 50000,70000,12000,23000,3,10,0$ 66000,60000,18000,16000,2,11,0" 37000,60000,6700,5800,2,12,0% 62000,110000,17723,18000,2,13,0# 65000,100)vR1=R1+M1*(100-I1)/20 {M3=M3+M1 }M4=M4+M2A=141500100! 18000,18500,1967,2708,1,1,0# 40000,44894,10699,13047,3,2,0$ 95000,115000,20614,15849,3,3,0# 54000,63000,10000,14000,2,4,0# 40000,50000,10000,12000,3,5,0# 7AL CASUALTIES AT "; A1=1800 O=1470#C5+E<17*C2*C1/(C5*20)+5*O490"YOU LOSE "; L=L+1555"YOU WIN "; W=W+1+800,W=81490DT1=T1+C5+ENT2=T2+17*C2*C1/(C5*20)+5*O XP1=P1+C1 bP2=P2+C2lQ1=Q1+(F+S+B426 E=100/O+"CASUALTIES",C5,17*C2*C1/(C5*20)+.5)"DESERTIONS",E),5*O)C5-C1>=0439>"YOUR CASUALTIES WERE ";100*(C1-C5)/C1+.5);"%LESS THAN"441>"YOUR CASUALTIES WERE "100*(C5-C1)/C1+.5);"% MORE THAN"!"THE ACTUs `e|&+.QVYcjuy~':{   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [    $ 3 : = F d  > B H M +.149?CGIKMOQSUWY[]_acegikmoqsuwy{}%(-47=FMUX\_jmz  .169DWfy  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~' files or Pascal programs, not Business Basic), etc. and will grow as time permits. Follow the prompts and enjoy!! his disk, simply follow the prompts, and you will be able to read or run the programs on this or any other Business Basic disk. Our library will be arranged into disks with games, fonts, utilities, Pascal (these may be textTHE SECOND BULL RUN"A1=11480H"AUG 29-30, 1862 THE COMBINED CONFEDERATE FORCES UNDER LEE AND";"JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 1480A<>51050"ANTIETAM"A1=11480F"SEPT 17, 1862 THE SOUTH FAILED TO INCORPORATE MARYLAND INTO""THE CONFEDERACY." 1480A<>61100$"FREDERICKSBURG".A1=11480E8"DEC 13, 1862 THE CONFEDERACY UNDER LEE SUCESSFULLY REPULSED"2:"AN ATTECK BY THE UNION UNDER GEN. BURNSIDE." B1480LA<>7T$,1)400360T$360 ======================== UNIT'UNIT760,810,850,900,950,1000,1050TABLE$(I,2)=B$CALTABLE(I)=C*CAL)TABLE$(I,0)=C) I=I+1220 ======================== PRINT TABLE:20,$B$="END"330B$=A$420DUMMY,DUMMY240 " =========================), LIST ALL FOOD WITH THE SAM INITIAL$6 LETTER AS TYPED BY USER@ J"DON'T HAVE ";A$T^hT$,DUMMY,DUMMYrT$="END"220|A$,1)=100TABLE(50)TABLE$(50,2)=5J" INPUT EACH ITEM YOU HAD TO EAT TODAY. WHEN FINISHED ENTER 'END'."7::"ARE YOU MALE OR FEMALE (1=MALE/2=FEMALE)??";M=12 " UPPER CASE ONLY.":#:"ITEM : ";A$:A$="END"510B. <"(=19/2"***** S.F. APPLE CORE - JULY 1980 *****"L<=23:=8:"HIT TO CONTINUE.":=24:=11:"HIT TO END.";:A$F0,2340,24 PA$<>32)A$<>27):60ZdA$=27)::nxI=0T=0R(L)=L*150+.5)/3 ::20,060,24R(L)=L*100+.5)/100=4:13)"CALORIE COUNTER"::8)"BY LISA & GARY RENSBERGER":7)"PERSONAL COMPUTING-DEC. 1979"::9)"ADAPTED FOR THE APPLE BY:"::14)"JON RICHARDS" =15,#" > Make all entries in UPPER CASE<=L1550&"THE CONFEDERACY HAS WON THE WAR" "THE UNION HAS WON THE WAR"CONVERGED ON";"ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY."&"THE CONFEDERACY HAS SURRENDERED" 1500 "THE UNION HAS SURRENDERED"1,180,24::" YOU HAVE WON ";W;" BATTLES AND LOST ";L;" BATTLES."Y=51550W50"SPOTSYLVANIA"A1=11480F"MAY 5, 1864 GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO FAIL"9"HERE, AND CONTINUED AT COLD HARGOR AND PETERSBURG." 1480"ATLANTA"A1=11480D"AUGUST, 1864 SHERMAN AND THREE VETERAN ARMIES GEN. ROSENCRANS"94"ARMY FOR THREE MONTHS. GEN. GRANT BROKE THE SIEGE." <1480FA<>121400P"CHATTANOUGA"ZA1=11480Bd"SEPT 15, 1863 CONFUSION IN A FOREST NEAR CHICKAMAUGA LED"$f"TO A COSTLY SOUTHERN VICTORY." n1480xA<>1314BURG"A1=11480D"JUNE 30,1863 A SOUTHERN MISTAKE BY GEN. LEE AT GETTYSBURG"<"COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE WAR." 1480A<>111350"CHICKAMAUGA"(A1=11480B2"NOV. 25, 1863 AFTER THE SOUTH HAD SIEGED ANDING GENERALS, 'STONEWALL JACKSON.'" 1480A<>91250"VICKSBURG"A1=11480C"JULY 4, 1862 VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH":"BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI" 1480A<>101300"GETTYS1150V"MURFREESBORO"`A1=11480Ej"DEC 31, 1862 THE SOUTH UNDER GEN. BRAGG WON A CLOSE BATTLE" t1480~A<>81200"CHANCELLORSVILLE"A1=11480C"MAY 1-6,1863 THE SOUTH HAD A COSTLY VICTORY AND LOST ONE";"OF THEIR OUTST060,24:J=040:"-";:J &N=0I-1'0TABLE$(N,0);5);TABLE$(N,1);15):TABLE$(N,2);36);TABLE(N)DT=TABLE(N)+TNNX TOTALSbI=040:"-";:I:$l10)"TOTAL CALORIES ";36);Tv:,4)"* * HIT SPACE BAR TO CONTINUE * *" L$:::M=2T<2200"IT APPEARS YOU ARE EATING LESS THAN THE AVERAGE FEMALE. YOU COULD EAT ";2200-T;" MORE CALORIES AND KEEP YOUR PRESENT WEIGHT":M=2T2200" IT APPEARS YOU ARE EATING MORE THAN THE AVERAGEPLE,4,100D YOGURT,4,250N SANDWICH P B & J,1,320X SANDWICH TUNA,1,350b SALAD BLUECHEESE,1,40!l SALAD THOUSAND ISLAND,1,40v COOKIE,1,64 CRACKER SALTINE,5,17 CRACKER AK-MAK,3,117 DOUGHNUT,1,157 MEAT LOAF,5, PANCAKES,5,75 SYRUP,2,50 PEAS,4,73 POTATO,1,90 PRUNES,1,25 POTATO CHIPS,5,10 SUGAR,2,50 PORK CHOP,5,290 HOT CHOCOLATE,4,277 WINE,4,95& JUICE-V-8,4,350 JUICE GRAPEFRUIT,4,90: PINEAPEE CREAM & SUGAR,4,57T GRAHAM CRACKER,5, 14^ EGG,1,75h HOT DOG,1,125r GRAPEFRUIT,5,70| JAM,2,60 LENTIL SOUP,4,606 MACARONI & CHEESE,4,600 MUFFIN,1,140 MILK,4,140 OATMEAL,4,150 ORANGE JUICE,4,110 ,318 CHEESE(PARMESAN),2,20 CHEESE(SWISS),3,105# CHICKEN(FRIED BREAST),5,232$ CHICKEN(FRIED DRUMSTICK),5,64" CHOCOLATE MILK,4,277, CHOCOLATE ECLAIR,5,3166 CHOCOLATE FUDGE,5,100 @ CHOCOLATE ICE CREAM,4,360 J COFFH),5,250! CAKE(CHOCLATE LAYER),5,356 COFFEE CAKE,5,133 CUPCAKE,1,229 FRUIT CAKE,5,142 CANTALOPE,6,30 CARROTS,4,60 CATSUP,2,17  CAULIFLOWER,4,30 CELERY,5,8 COTTAGE CHEESE,4,200 CREAM CHEESE,3UTS,4,20 BEEF STEW,4,260 BEER,4,173( BEETS,4,802 BERRY PIE,5,365< BISCUIT,5,130F BREAD,6,55P TOAST,6,55Z BROCCOLI, 5,29 d BRUSSELS SPROUT,4,60n BUTTER,2,100x BUTTERMILK,4,85  CHEESE CAKE(2 INCBEANS, 4, 30 LIMA BEANS, 4, 180 HAMBURGER,3, 61 ROAST, 3, 82 STEAK, 3, 73 APPLE JUICE, 4,126  BANANA CREAM PIE,5,377 APRICOT,1 , 20 ARTICHOKE,1,51 GREEN BEANS,4,26 BEAN SOUP,4,260  BEAN SPROS"8C<1TABLE$(I,1)="STRIP"B$L ========FOOD ITEMS==========V APPLE,1,188#` APPLE SAUCE(SUGARLESS),4,110!j APPLE SAUCE(REGULAR),4,230t ASPARAGUS,5,3~ BACON,7,50 BANANA,1, 85 PORK AND BEANS, 4,320 STRING C<1TABLE$(I,1)="PIECE"& =============================="HOW MANY SLICES?? ";CC>1TABLE$(I,1)="SLICES"C<1TABLE$(I,1)="SLICE"$ ============================$"HOW MANY STRIPS?? ";C.C>1TABLE$(I,1)="STRIP$(I,1)="OUNCES"pC<1TABLE$(I,1)="OUNCE"z ======================"HOW MANY CUPS? ";CC>1TABLE$(I,1)="CUPS"C<1TABLE$(I,1)="CUP"" ============================" HOW MANY PIECES?? ";CC>1TABLE$(I,1)="PIECES"====== ========================"HOW MANY?? ";C TABLE$(I,1)=" "C>1B$=B$+"S" * =========================4"HOW MANY TBSP?? ";C>TABLE$(I,1)="TBSP"HR =====================\"HOW MANY OUNCES?? ";CfC>1TABLE00)/3200:"IT IS LIKELY YOU GAINED ";R(L);" POUNDS TODAY!! ":2600Q:L=(2800-T)/3200:"IT IS LIKELY YOU LOST ";R(L);" POUNDS TO DAY! ":2600DL=(T-2800)/3200::"YOU LIKELY GAINED ";R(L);" POUNDS TODAY!!" 2600" =====================0M=1T>2800" IT APPEARS YOU ARE EATING MORE THAN THE AVERAGE MALE. YOU SHOULD EAT ";T-2800;" FEWER CALORIES JUST TO MAINTAIN YOUR PRESENT WEIGHT.":730Q:L=(2200-T)/3200:"IT IS LIKELY YOU LOST ";R(L);" POUNDS TO DAY! ":2600S:L=(T-22 FEMALE. YOU SHOULD EAT ";T-2200;" FEWER CALORIES TO MAINTAIN YOUR PRESENT WEIGHT.":M=2T>THAN2200710M=1T<2800"IT APPEARS YOU ARE EATING LESS THAN THE AVERAGE MALE. YOU COULD EAT ";2800-T;" MORE CALORIES AND KEEP YOUR PRESENT WEIGHT. ":72115 BEEF STEW,4,260 CATSUP,2,17 FRENCH TOAST,6,170 FRUIT COCKTAIL,4,100 HAM,6,400 FISH-TROUT,5,216 RICE,4,200 FISH-SALMON,5,200 CRAB,4,54 FISH-RED SNAPPER,5,183  RAISINS,4,428 LEMONADE,4,100  MARGARINE,2,100* ICE CREAM,4,3004 CORN,4,80> CORN ON THE COB,1,92H CEREAL,4,80R SPAGHETTI W SAUCE,4,555\ BAKED BEANS,4,260f BLINTZES,5,220p CREPES,5,220z FRUIT COCKTAIL,4,100 PEARS-CANNED,4,160R I=15I:"Biorhythm analysis for ";L;" days - prepared for:" 5 Z$(N);", born on: ";T$(P1);" ";M1;"/";D1;"/";Y18 ?L "This Biorythm chart begins: ";T$(P2);" ";M2;"/";D2;"/";Y2Ft 13);"P=Physical E=Emotional I=Intelectua3880J2=J2+D2+Y2*365J2<639723P2=8 N1=Y2-.1CO=J2-J1+N1/4)-Y1/4)-N1/100)+Y1/100)+N1/400)-Y1/400)M1>22080X=Y1 4060 O=O+X Y2/4-Y2/4)<>021804X=Y2 H4060 \O=O+XpF(2)=F(2)+X PRINT CHART HEADE"Send output to Printer or Screen (enter 'P' or 'S')?";PRNT$PRNT$="s"PRNT$="S"PRNT$="S"1780#1,".printer"#17 ****** CALCULATE OFFSET,INCLUDE LEAP YEARS ******X=M1 38800J1=J2+D1+Y1*365DJ1<639723P1=8XX=M2 l/"+Y1$Y1>991560Y1=Y1+1900M1;"/";D1;"/";Y1M2=M1:D2=D1:Y2=Y1 ,3680 @P1=P2J T"Starting date for chart:"; hM2,D2,Y2|Y2>991720Y2=Y2+1900M2;"/";D2;"/";Y2 3680 "Length of chart in days:";LAill plot your biorhythm cycles."<:@P" This biorhythm is prepared for (name): ";Z$(N+1)Z-d"Enter dates in this format: MM,DD,YYYY" xN=N+1"Birthdate:"; M1,D1,Y1?M1$=M1):D1$=D1):Y1$=Y1):BIRTH$(N)=M1$+"/"+D1$+""MON","TUE","WED","THU","FRI","SAT"," ",6.28318CF(1),F(2),F(3),F(4),F(5),F(6),F(7),F(8),F(9),F(10),F(11),F(12)) 31,28,31,30,31,30,31,31,30,31,30,31=8  79C -1255;"Biorhythm program for Apple ///";1255;"This program wj  ****** 6 ****** Developed for the Apple /// by Fred Davis0 ****** Box 11787, San Francisco, CA 94101 ****** 8O$(51)LBIRTH$(100) `T$(8)tF(12),J(2),Z$(20)6T$(1),T$(2),T$(3),T$(4),T$(5),T$(6),T$(7),T$(8),K< "SUN",-END ROUTINE------------( KEYPRESS$ < :::ODS( * THE FIRST NUMBER IS THE SERVING * * SEE LINES 710-1030:1-UNITS:2=TBSPS1 * 3=OZS.:4=CUPS:5=PIECES:6=SLICES:7=STRIPS" *THE 2ND NUMBER IS CALORIES$ * CALL ME IF THERE ARE ERRORS$ * JON RICHARDS(415) 824-1864 (' ----------AM MUSHROOM,4,120` CREAM-WHIPPED,2,49j WATERMELON,6,90#t JUICE GRAPE(SUGARLESS),4,160~ WHISKEY-BOURBON,3,83 WHISKEY-SCOTCH,3,73  WAFFLES,5,232 SUNFLOWER SEEDS,3,159 END,1,1+ * YOU CAN ADD DATA FOR YOUR OWN FO,1,75 SOUP-CLAM CHOWDER,4,87 COKE,3,13.125 FRENCH TOAST,5,170 SANDWICH-BOLOGNA,1,351!$ STRAWBERRY SHORTCAKE,1,350. STRAWBERRIES,4,608 FISH-SWORD,5,180"B PANCAKES(DRY CURD),1,182.66L WALNUTS,1,20 V SOUP-CRE PINEAPPLE-CANNED,4,190 SOUP-CHICKEN NOODLE,3,18 SOUP-CREAM MUSHROOM,3,24 JELLO,4,206 SANDWICH-CHEESE,5,230 SAUSAGE,5,94 PIE-PUMPKIN,5,300 SUGAR-BROWN,2,50 WATER,1,0 COFFEE(BLACK),4,0 ORANGEl A=overall Average" @ 13);"Down Average Up"@ 13);"-------------------------!+++++++++++++++++++++++++"" SET F(2) TO 29 FOR LEAP YRS  X=0  GENERATE THE BIO PLOT ( L=O+L< C=0 P O=OL-1 d C=C+1 x X=151 O$(X)="-" X O$(26)="!" Y=0! X=(K*(O/23-O/23)))*25)+26 O$(X)="P"  Y=Y+X! X=(K*(O/33-O/33)))*25)+26 , O$(X)="I" @ Y=Y+X!T X=(K*(O/28-O/28)))*25)+26 h O$(X)="E" | Y=(Y+X)/3 O$(Y)="A" :::M"A putter can be used only on the green. You putt by inputting a number"J"from 1 to 10. The distance and accuracy of your putt are controlled"J"by the magnitude of your input. A one will tap the ball accurately,"S"A ten will drive it* THESE ARE YOUR CLUBS ***":2620::/TCT$=" - 4 Woods numbered 1 thru 4":2620:/^CT$=" - 8 (Eight)Irons 2 thru 9":2620:1hCT$=" - a putter and a wedge ":2620::Br" HIT ANY KEY FOR INSTRUCTIONS":A$| "I can see you've already spent considerable time at the 19th"!"hole, TRY ANSWERING AGAIN.""240, 6:::R@::CT$="You are about to play a round of golf at the new and exciting ":2620'ECT$="Essick Country Club. ":2620:2J:CT$="**A$(13)="13TH TEE"A$(14)="14TH TEE"A$(15)="15TH TEE"A$(16)="16TH TEE"A$(17)="17TH TEE"A$(18)="18TH TEE" ::'"are you a new member of the club""YES OR NO : ";X$X$="YES"X$="yes"300X$="NO"X$="no"430C 2350 A$(25)A$(1)="1ST TEE"(A$(2)="2ND TEE"2A$(3)="3RD TEE"<A$(4)="4TH TEE"FA$(5)="5TH TEE"PA$(6)="6TH TEE"ZA$(7)="7TH TEE"dA$(8)="8TH TEE"nA$(9)="9TH TEE"xA$(10)="10TH TEE"A$(11)="11TH TEE"A$(12)="12TH TEE"* Developed for the Apple /// by Fred Davis0 ****** Box 11787, San Francisco, CA 94101  ****** 4180,X=1@TX=0h| TURN AROUND INFORMATION,"Another biorythm with same name ? ";Q$Q$="y"Q$="Y"Q$="Y"1620+"Another Biorythm with new name ? ";E$E$="y"E$="Y"E$="Y"13600D:  ******6 *****P2=N7-7*N7/7)+1)( FIND DAYS EXPENDED IN PRIOR MONTHS<J2=0PX=14000 dI=1X-1xJ2=J2+F(I)I GET NAME FILE 4420 CHECK X FOR LEAP YEARX/400-X/400)=04140X/100-X/100)=04180X/4-X/4)<>0ree cycles start at zero at the moment of birth."  PRNT$="S"3660 #1 #0 L4220` FIND DAY OF WEEKtN1=M2+12*.6+1/M2)N2=Y2-.6+1/M2)N3=13*(N1+1)/5)N4=5*N2/4)N5=N2/100)N6=N2/400)N7=N3+N4-N5+N6+D2-1is associated with physical vitality endurance and energy level."Hp "Emotional corresponds to sensitivity, intuition and cheerfulness."S "Intellectual is related to alertness, cognitive power and judgement ability."U "According to the theory all th biorhythm theory postulates that there are certain biological cycles which"R4 "have a constant period in the human body. According to the theory there are"SH "three main cycles: 23 day physical, 28 day emotional, & 33 day intellectual."P\ "Physical T$(P2);3);M2;"/";D2; =13 X=151 O$(X); X  INCREMENT DATE0 P2=83180 D P2=P2+1X P2>7P2=1 l D2=D2+1 D2>F(M2)D2=1:M2=M2+1 M2<133260 M2=1:Y2=Y2+1 X=Y2:F(2)=28 4060 F(2)=F(2)+X O U "The approximately 100ft. but with questionable accuracy.":: S=S+1S<>19470K1=2 2220S<>10560K1=1="Do you want to play another nine holes ":"YES/NO ";X2$X2$="YES"X2$="yes"560X2$="NO"X2$="no"22206"IF YOU PLAY LIKE YOU TYPE YOU'LL NEVER MAKE IT."0::YDY1=YND"X"You are on the ";A$(S);"..."%b"It is ";Y;" yards long, PAR ";DlC=0vK=0Y)=01780 C=C+1S+C<3700"WEDGE,IRON or WOOD : ";720D"Tell at the ESSICK COUNTRY CLUB 2340> "The par is ";(K1*36);". you are ";(E-K1*36);" over par."< 374,4,434,4,210,3,376,4,205,3,440,4,422,4,510,5,595,5< 510,5,434,4,210,3,312,4,428,4,440,4,205,3,515,5,318,4$ . ----- INITIALIZE -----8"After ";(K1*9);" holes you have had ";E;" strokes"K1*36-E<02310(K1*36-E)<>02270"NICE GAME..YOU SHOT PAR" 2340?"The PAR is ";(K1*36);". You are ";(K1*36-E);" under par."M"*** CONGRADULATIONS you played a great game;" feet from the pin. *18204K<>12130>"You sunk it from one ft. H2160"R"You sunk it from ";K;" feet" \2160f"YOU S U N K IT"pzC<>12190"*HOLE IN ONE* E=E+C4"You have had ";C;" strokes on hole NO. ";S;"."430OD 2160G"OH BOY, you jabbed the putt ";9*X)+2);" inches from the cup."F=1 1820F=02100F>02050 F=F)%"You overshot the blooming cup!"F<>12080& "You are now ONE FT from the pin. 2010* "You are now ";Fhe pin": &C=C+10"What is your putt ";:ADA>101890NA<11890 X1910b"Can't use that. RETYPE. l1850vK=F&F=F=(A^2+A-((.5*A^2-A+1)*X))))F)>X)+1.52010K>5210010*X))=71980"THE TAP IS GOX))<>31730F=10*X)) 17707*X))<>71760F=50*X)+50) 1770F=50*X)+10)F)=02160F<>11810>" You are on the green 1 FT from the pin ...LUCKY SHOT " 18206"You are on the green, ";F;" feet from tthe woods. REPLAY - TWO STROKE PENALTY 6C=C+1@Y=Y1J640 TY=Y)-^"You overshot the green by ";Y;" yards."h640r2*X))=116803|"The idea is to hit the ball not the .. sand.640"You topped it - NO GAIN..6404* Y=Y)Y=30*X)+15&"You're in a trap near the green.640(" YOU S U N K THE SHOT...(BIG DEAL) 2160V/6=A1580Y-202201110 1250X<1901110X>2101110 Y=Y-XI=1(4-A+C^2)V=30*X))X/11=X/11)1400 X/5=X/5)1530X/28=X/28)1430X/27=X/27)1580(I2Y>271380<Y<-231620FY)<51510P(>41060 1080.$"Your woods are numbered 1 - 4 ,RETYPE "; .10208K=01110B7*X))=31700 L1650VX=X)*250)`A<>11150jX<2201110 t1250~A<>21190X<2101110X>2301110 1250A<>31230X<200numbered 2 thru 9 RETYPE850 K=09405*X))=31700 1650M=35*X)+200)X=M-14.4*A-(7*X)+38)) Y=Y-XM/27=M/27)1580M/8=M/8)1480M/69=M/69)2150 1330"WHAT NUMBER WOOD ";AA<11060Airon or wood."720 Y<(18*X)+73)810<" HEY ... YOU CANT USE A WEDGE AT THIS DISTANCE....." 680*15*X))=1321504Y=Y-(75*X)+50)) >1700H"What number iron ";RA \A<2890 fA>9890p910-z"Your irons are me which type of club to use,a wedge and iron or a wood."@" -FROM NOW ON I WILL JUST ASK WEDGE, IRON OR WOOD. - ";Z$Z$="WOOD"Z$="wood"1010 Z$="WEDGE"Z$="wedge"780Z$="IRON"Z$="iron"8401"You can only choose a wedge, 8 CT$(80):2570'B ----- TITLE PAGE ROUTINE ------"L =8:CT$="*** GOLF ***":2620!V CT$="By author unknown":2620` CT$="March 1979":2620=j ------------------------------------------------------ ,t :CT$="Pick a Wedge,Wood, or Iron":2620!~ CT$="for 9 or 18 holes":2620 ----- PAUSE ROUTINE -----. =21:CT$="Press the 'ESCAPE' to end":2620: =22:CT$="< Press the SPACE BAR to continue...>":2620= ------------------------------------------------------- KEYPRESS$ KEY650A<1A>4610A<>25720 E=18500:=9:"YOU SHOULD ALWAYS SET THE FOLLOWING", :"PRIORITIES IN A SURVIVAL SITUATION:": 8)"1. WATER.*:8)"2. SHELTER."4:8)"3. BECOMMING UNLOST.">:8)"4. FOOD." H58ATER, SHELTER, BECOMMING"9)"UNLOST, FOOD."3=15:5)"3. FOOD, WATER, SHELTER, BECOMMING"9)"UNLOST"2=18:5)"4. BECOMMING UNLOST, WATER, FOOD,"9)"SHELTER."+=23:"SELECT THE BEST ANSWER, ";N$;:AA=2R=R+1A=25"ANYTHING WITH DEAD AIR SPACES WILL"N:"MAKE GOOD INSULATION!" X58104b:=5:"3. RANK THE FOLLOWING PRIORITIES TO BE"*l"CONSIDERED IN A SURVIVAL SITUATION."2v=9:5)"1. FOOD, SHELTER, WATER, BECOMMING"9)"UNLOST"-=12:5)"2. WDEAD AIR SPACES." =10:5)"2. MANY LAYERS.")=12:5)"3. CLOSE WEAVE MATERIAL.""=14:5)"4. WATERPROOFING."+=23:"SELECT THE BEST ANSWER, ";N$;:AA=1R=R+1A=15650&A<1A>44600A<>15720 :E=1610/D:=9:A<>25720 E=14602:=7:"YOU CAN FUNCTION ABOUT THREE DAYS IN "/:"THE DESERT WITH THE TEMPERATURE AT 100":"DEGREES WITH NO WATER!" 58100:=5:"2. INSULATION IS ANYTHING THAT HAS""THE FOLLOWING QUALITY:"#=8:5)"1. UNCTION WITHOUT WATER INTAKE? ","(TEMPERATURE 100 DEGREES)6:@5)"1. 10 DAYS"J:5)"2. 3 DAYS"T:5)"3. 2 WEEKS"^:5)"4. 1 DAY"+h=23:"SELECT THE BEST ANSWER, ";N$;:ArA<1A>4280|A=2R=R+1A=25650INUE...>"= -------------------------------------------------------KEYPRESS$3KEYPRESS$=27)5920:ۻKEYPRESS$<>32)210= -------------------------------------------------------0:=5:"1. HOW LONG CAN THE AVERAGE PERSON"&""F: JACK L ESPINAL":70!C$="DATE: 1 AUGUST 1980":70.:C$="THIS PROGRAM WILL EVALUATE YOUR":70,C$="ABILITY TO SURVIVE AN EMERGENCY":70#C$="WILDERNESS EXPERIENCE.":70)=21:" PRESS 'ESCAPE' TO END.","< PRESS THE SPACE BAR TO CONT"< C$(40)@ ** You must add the .AUDIO Driver to your SOS.DRIVER **#1,".AUDIO"(2716);0)<120F PRINT CENTER ROUTINEP=20-C$)/2ZC$: PRINTS LINEd"": CONTROL Gnx=5:C$="SURVIVAL":70":C$="BYmod. Sept.1982 for Original Apple 3 ers.2 Program clessified - PUBLIC DOMAIN - ! ' G O L F '< ------------------------------------------------------ "* * * THE END * * *":26207 :)< ----- PRINT CENTER ROUTINE -----F =40-CT$)/2P CT$d 27)2550' ----- SPECIAL END ROUTINE -----= ------------------------------------------------------- : = -------------------------------------------------------  :2530( 2570:=10/2 =10:CT$=101R:=5:"4. WHAT IS THE MOST IMPORTANT THING"+\"THAT YOU SHOULD BE ABLE TO USE IN AN"f"EMERGENCY?"&p=10:5)"1. YOUR SURVIVAL KIT."z=12:5)"2. YOUR KNIFE."=14:5)"3. YOUR BRAIN."'=16:5)"4. YOUR SIGNAL MIRROR."+=23:"SELECT THE BEST ANSWER, ";N$;:AA=3R=R+1A=35650A<1A>4850A<>35720E=110203:=8:"THE MOST IMPORTANT THING THAT YOU MUST"/:"BE ABLE TO USE IN A SURVIVAL SITUATION":"IS YOUR BRAIN!!" 58102:=5::"FOLLOWING WAYS:"::10)"EVAPERATION." :10)"RESPIRATION." :10)"RADIATION." :10)"CONVECTION."$ :10)"CONDUCTION." . 581038 :=5:"12. WHICH WAYS CAN HEAT BE INTRODUCED"B "INTERNALLY IN THE BODY:"L =8:5)"1 RADIATION."=15:5)"4. CONVECTION."&=17:5)"5. NONE OF THE ABOVE."%=19:5)"6. ALL OF THE ABOVE." 5610A=6R=R+1A=65650A<1A>62130A<>65720E=123601:=7:"THE HUMAN BODY CAN LOOSE HEAT IN THE":=7:"THE FIRST SIGN OF HYPOTHERMIA IS">:"SHIVERING." H5810/R:=5:"11. OTHER THAN EVAPERATION, WHICH"*\"WAYS CAN THE BODY LOOSE HEAT TO THE"f"ENVIRONMENT?"p=9:5)"1. RESPIRATION."z=11:5)"2. CONDUCTION."=13:5)"3. S THE"#"INITIAL SIGN OF HYPOTHERMIA:"=9:5)"1. STUMBLING."=11:5)"2. SWEATING."=13:5)"3. SHIVERING."!=15:5)"4. A DUMB BRAIN." 5610A=3R=R+1 A=35650A<1A>41980 A<>35720*E=12130-4lA=35650vA<>35720E=11980-:=7:"WHEN WATER IS SCARSE, YOU SHOULD"*:"EAT ONLY CARBOHYDRATES SINCE THEY"0:"REQUIRE THE LEAST AMOUNT OF BODY FLUIDS":"FOR ASSIMILATION." 5810/:=5:"10. WHICH OF THE FOLLOWING IAT WATER IS SCARCE,,"WHICH OF THE FOLLOWING WOULD REQUIRE "*"THE LEAST AMOUNT OF BODY FLUIDS FOR"&"ASSIMILATION?"0=11:5)"1. PROTEIN.":=13:5)"2. FAT.""D=15:5)"3. CARBOHYDRATES." N5610XA=3R=R+1bA<1A>31800:=7:"EACH OF THE FOLLOWING CAN CAUSE"E=11800':"CIRCULATORY UPSET IN THE BODY:"::10)"HYPOXIA.":10)"HYPOTHERMIA.":10)"HYPERTHERMIA.":10)"HYP0HYDRATION":10)"FATIGUE." 5810.:=5:"9. ASSUMING TH)"2. HYPOTHERMIA.""J=13:5)"3. HYPOHYDRATION."!T=15:5)"4. HYPERTHERMIA."^=17:5)"5. FATIGUE." h=19:5)"6. ALL OF THEM."!r=21:5)"7. NONE OF THEM." |5610A=6R=R+1A<1A>71570A=65650A<>65720,41420A<>25720E=115703:=7:" THE INTERNATIONAL DISTRESS SIGNAL FOR"-:"WILDERNESS USE IS THREE OF ANYTHING." 58101":=5:"8. WHICH OF THE FOLLOWING CAN CAUSE","CIRCULATORY UPSET?"6=9:5)"1. HYPOXIA." @=11:5:=5:"7. THE INTERNATIONAL DISTRESS SIGNAL""FOR WILDERNESS USE IS:"=9:5)"1. SOS."&=11:5)"2. THREE OF ANYTHING."!=13:5)"3. A LARGE FIRE.""=15:5)"4. NONE OF THESE." 5610A=2R=R+1A=25650A<1A>9)"AND SECURITY." 5610A=4R=R+1A=45650(A<1A>411802A<>45720<E=11420+F:=7:"THE BODY NEEDS, BESIDES AIR AREP::7)"WATER."Z:7)"WARMTH."d:7)"ENERGY."n:7)"REST." x5810I=115002=10:5)"1. WATER, WARMTH, SALT, ENERGY,"9)"AND REST.".=13:5)"2. WATER, WARMTH, ENERGY, SALT9)"AND SECURITY."0=16:5)"3. WATER, FOOD, REST, SECURITY,"9)"AND ENERGY."0=19:5)"4. WATER, WARMTH, ENERGY, REST,"1180,t:=7:"COTTON LOOSES ALMOST ALL OF ITS"0~:"INSULATION VALUE WHEN IT BECOMES WET SO"-:"IT SHOULD BE AVOIDED IN WET WEATHER." 5810*:=5:"6. WHAT ARE THE GENERAL BODY"*"NECESSITIES OF SURVIVAL BESIDES AIR""AND SHELTER?"0"5. WHAT CLOTHING MATERIAL SHOULD YOU""AVOID IN WET WEATHER?"=8:5)"1. COTTEN"=10:5)"2. WOOL"$=12:5)"3. NYLON".=14:5)"4. POLYESTER" 85610BA=1R=R+1LA=15650VA<1A>41020`A<>15720jE=1. CONDUCTION."V =10:5)"2. CONVECTION."` =12:5)"3. RADIATION.""j =14:5)"4. MUSCLE ACTION."&t =16:5)"5. NONE OF THE ABOVE."%~ =18:5)"6. ALL OF THE ABOVE." 5610 A=6R=R+1 A=65650 A<1A>62360 A<>65720 E=125702 :=7:"HEAT CAN BE INTRODUCED INTO THE BODY " :"IN THE FOLLOWING WAYS:" ::10)"CONDUCTION." :10)"CONVECTION." :10)"RADIATION." :10)"MUSCLE ACTION." 58100 :=4:"13. WHICH OF THE FOLLOWING ARE TNEED WARM CLOTHING FOR A"(2"TWO DAY BACKPACKING TRIP INTO THE"<"ARIZONA DESERT?"F=10:5)"1. YES."P=13:5)"2. NO." Z5610dA=1R=R+1nA<1A>23880xA=15650A<>15720E=140202:=7:"IT GETS VERY COLD, EVE"4. YOURSELF." 5610A=4R=R+1A=45650A<1A>43720A<>45720E=13880,:=7:"YOU ARE THE ONLY PERSON WHO IS "' "RESPONSIBLE FOR YOUR SELF IN THE"#:"BACKCOUNTRY OR WILDERNESS." 58103(:=5:"21. WILL YOU :10)"SQUARE KNOT."j:10)"SHEETBEND."t:10)"FIGURE EIGHT." ~58103:=5:"20. WHO IS RESPONSIBLE FOR YOU IN THE""BACKCOUNTRY?"=9:5)"1. RANGERS." =11:5)"2. THE SHERIFF." =13:5)"3. YOUR FATHER."=15:5)YES." =14:5)"2. NO." 5610A=1R=R+1A=15650A<1A>23520$A<>15720.E=1372028:=7:"YOU SHOULD BE ABLE TO TIE EACH OF THE"/B:"FOLLOWING KNOTS. THEY COULD SAVE YOUR"L:"LIFE!"V::10)"BOWLINE."`USUALLY THE BEST CURE FOR MOST") :"SELF INFLECTED OUTDOOR MISERIES." 58103 :=5:"19. CAN YOU TIE A KNOT IN A ROPE THAT") "YOU WOULD BE WILLING TO TRUST YOUR") "LIFE TOO IN A 150 FOOT LIFT FROM A" "FLOODING ISLAND?" =11:5)"1. 4 5810/> :=5:"18. REST CAN BE THE BEST CURE FOR",H "MOST SELF INFLECTED OUTDOOR MISERIES."R =9:5)"1. TRUE."\ =12:5)"2. FALSE." f 5610p A=1R=R+1z A=15650 A<1A>23390 A<>15720 E=135203 :=7:"REST IS COLD" "ENVIRONMENT." =10:5)"1. YES." =13:5)"2. NO." 5610 A=1R=R+1 A=15650 A<1A>23250 A<>15720 E=133902 :=7:"BODY VENTILATION IS JUST AS IMPORTANT"-* :"AS INSULATION IN A COLD ENVIRONMENT." 610b A=4R=R+1l A=45650v A<1A>43090 A<>45720 E=13250. :=7:"A WARM FRONT IS FORCASTED BY HIGH" :"ALTITUDE CIRRUS CLOUDS." 58102 :=5:"17. BODY VENTILATION AS WELL AS BODY"* "INSULATION IS NEEDED IN A VERY ORTH."  5810- :=5:"16. HIGH ALTITUDE CIRRUS CLOUDS"- "FORCAST WHICH OF THE FOLLOWING WEATHER"& "CONDITIONS?"0 =10:5)"1. COLD FRONT."": =12:5)"2. THUNDERSTORMS."D =14:5)"3. HIGH WINDS."N =16:5)"4. WARM FRONT." X 5=11:5)"2. GRID NORTH."' =13:5)"3. GEOGRAPHICAL NORTH."& =15:5)"4. NONE OF THE ABOVE." 5610 A=4R=R+1 A<1A>42950 A=45650 A<>45720 E=13090. :=7:"THE NEEDLE IN A COMPASS POINTS TO" :"MAGNETIC N56106 A=3R=R+1@ A=35650J A<1A>52790T A<>35720^ E=129502h :=7:" YOUR ATTITUDE IS MOST IMPORTANT IN A"r :"SURVIVAL SITUATION." | 58104 :=5:"15. THE NEEDLE IN A COMPASS POINTS TO:" =9:5)"1. TRUE NORTH." E." 5810/ :=5:"14. WHICH OF THE FOLLOWING IS THE". "MOST IMPORTANT IN A SURVIVAL SITUATION?" =8:5)"1. SKILLS." =10:5)"2. CLOTHING." =12:5)"3. ATTITUDE." =14:5)"4. EQUIPMENT." " =16:5)"5. FOOD INTAKE." , d 5610n A=6R=R+1x A=65650 A<1A>62570 A<>65720 E=12790/ :=7:"THE FOLLOWING ARE THE SYMPTOMS FOR" :"HYPOHYDRATION." ::10)"HEADACHE." :10)"CONSTIPATION." :10)"MUSCLE CRAMPS." :10)"FATIGUHE"# "SYMPTOMS OF HYPOHYDRATION OR" "DEHYDRATION?"( =8:5)"1. HEADACHE."2 =10:5)"2. FATIGUE."!< =12:5)"3. CONSTIPATION.""F =14:5)"4. MUSCLE CRAMPS."&P =16:5)"5. NONE OF THE ABOVE."%Z =18:5)"6. ALL OF THE ABOVE."N IN THE DESERT"0:"AT NIGHT. YOU WILL NEED WARM CLOTHING." 58103:=5:"22. WATERCHILL CAN BE WORSE THAN WIND" "CHILL."=9:5)"1. TRUE."=12:5)"2. FALSE." 5610A=1R=R+1A<1A>24020A=15650A<>15720E=141500:=7:"WATERCHILL IS MANY TIMES WORSE THEN"":"WINDCHILL." ,581036:=5:"23. FAST SWIMMING IN COLD WATER HELPS",@"TO KEEP YOU WARM AND PROLONG SURVIVAL"J=9:5)"1. TRUE."T=12:5)"2. FALSE." ^5610hA453306A<>35720@E=15480+J:=7:"THE AVERAGE EMERGENCY SURVIVAL"*T:"SITUATION LASTS ABOUT THREE DAYS." ^5810h r:=8:17)"SCORE = ";R|=14T=1500:T6R>=28E BODY"1:"TO ACCLIMATIZE TO AN EXTREME ENVIRONMENT" 58106:=(5):"30. HOW LONG DOES THE AVERAGE SURVIVAL""EMERGENCY LAST?"=9:5)"1. ONE HOUR."=11:5)"2. ONE MONTH."=13:5)"3. THREE DAYS."=15:5)"4. SEVEN DT?"P=8:5)"1. TWO DAYS."Z=10:5)"2. ONE DAY."d=12:5)"3. ONE MONTH."$n=14:5)"4. ABOUT TWO WEEKS." x5610A=4R=R+1A=45650A<1A>45180A<>45720E=153302:=7:"IT TAKES ABOUT TWO WEEKS FOR THA=7R=R+1A=75650A<1A>75000 A<>75720E=15180.:=7:"A SURVIVAL SITUATION CAN SUDDENLY"%(:"DEVELOPE WHERE EVER YOU ARE." 25810,<:=(5):"29. HOW LONG DOES IT TAKE TO"-F"ACCLIMATIZE TO AN EXTREME ENVIRONMEN DESERT.""=10:5)"2. IN THE ARCTIC."&=12:5)"3. WHEN YOU MISMANAGE"9)"YOUR BODY." =15:5)"4. IN THE CITY."%=17:5)"5. IN AN AUTOMOBILE."&=19:5)"6. NONE OF THE ABOVE."%=21:5)"7. ALL OF THE ABOVE." 5610=15650BA<1A>24840LA<>15720VE=150000`:=7:"IN MOST CASES, YOU WILL USE UP MORE".j:"BODY WATER THAN YOU WILL FIND DIGGING"t:"IN THE DESERT. ~58101:=5:"28. SURVIVAL SITUATIONS CAN DEVELOP"!=8:5)"1. ON THE5810.:=5:"27. IN A DESERT, IT IS BETTER TO"*"CONSERVE AND PROTECT WATER THAT YOU"("HAVE INSIDE YOUR BODY RATHER THAN"*"EXPEND IT DIGGING FOR NEEDED WATER."=11:5)"1. TRUE."=14:5)"2. FALSE." $5610.A=1R=R+18AINNER BODY RESPONSES TO HEAT GAIN,",:"HEAT LOSS, WATER LOSS, AND CHEMICAL".:"UPSET CAN CAUSE ALL OF THE FOLLOWING:""::10)"OVERALL TIREDNESS."!:10)"LOSS OF MUSCLE USE.":10)"A DUMB BRAIN."!:10)"AN ATTITUDE CHANGE." SE."!4=15:5)"3. A DUMB BRAIN."'>=17:5)"4. AN ATTITUDE CHANGE."&H=19:5)"5. NONE OF THE ABOVE."%R=21:5)"6. ALL OF THE ABOVE." \5610fA=6R=R+1pA=65650zA<1A>64600A<>65720E=148404:=7:"YOUR OULD BE A WOOL BLANKET." 58103:=5:"26. YOUR INNER BODY RESPONSES TO HEAT"&"GAIN,HEAT LOSS, WATER LOSS, AND", "CHEMICAL UPSET CAN CAUSE WHICH OF THE""FOLLOWING?"& =11:5)"1. OVERALL TIREDNESS."'*=13:5)"2. LOSS OF MUSCLE U=13:5)"2. A FIRE STARTER.""=15:5)"3. A DOWN JACKET."#=17:5)"4. A WOOL BLANKET." 5610A=4R=R+1A=45650A<1A>44430A<>45720E=146001:=7:"YOUR BEST CHOICE UNDER MOST SURVIVAL",:"SITUATIONS WHEAT UNDER WINDCHILL"#::"AND WATERCHILL CONDITIONS." D58103N:=5:"25. IF IT WERE VERY COLD AND YOU WERE")X"GIVEN ONE ITEM FROM THE FOLLOWING."-b"WHICH WOULD YOU CHOOSE, DRESSED AS YOU"l"ARE RIGHT NOW?"v=11:5)"1. A KNIFE."#E FETAL POSITION CAN""BE BENEFICIAL."=10:5)"1. TRUE."=13:5)"2. FALSE." 5610A=1R=R+1A=15650A<1A>24280A<>15720E=144301&:=7:"THE FETAL POSITION WILL CONSERVE THE"/0:"MAXIMUM AMOUNT OF 1A>24150rA=2R=R+1|A=25650A<>25720E=142804:=7:"FAST SWIMMING WILL CAUSE MORE HEAT LOSS"0:"THEN WILL BE GENERATED BY THE SWIMMING." 58103:=5:"24. WHEN YOU ARE EXPOSED TO WINDCHILL"-"OR WATER CHILL, TH"YOU SHOULD TRY CLIMBING MOUNT EVEREST!!"9R<28R>=25" YOU CAN TRAVEL MOST ANYWHERE!"7R<25R>=20" BE CAREFUL WHERE YOU TRAVEL"@R<20R>=15"ALWAYS TAKE A SURVIVAL INSTRUCTOR WITH YOU"= -------------------------------------------------------3R<158)"";::"YOU HAD BETTER STAY HOME!!"=23+=23:"SELECT THE BEST ANSWER, ";N$;:A I=1250 I=175 REWARD FOR RIGHT ANSWER :=12:15)"GOOD JOB!"&"":"":" "0I=11"" clear counter"%" accept pattern, start run":!" -- any KEY to continue --"g$ ------------ -- (start) make image -- pic%(12)pic%(0)="A800")pic%(1)="A800")pic%(2)="0000")pic%(3)=lor(%15) fillportfillcolor(%0)viewport(%0,%200,%0,%200) ------------  -- (start) instructions --%=2:"78c";"Conway's Life Game" =6:"PLACE INITIAL PATTERN"" move about"" place counter2800:moverel(%-2,%4):drawimage(@pic%(0),%2,%0,%0,%6,%12)y,x 2600 ------------( -- (start) show next generation --6viewport(%oldleft,%oldright,%oldbottom-1,%oldtop)3 oldbottom is the "top" dot of two-dot counterfillcosetctab(%15,%col,%0)2{col=3col=12col=13setctab(%15,%col,%15)col-----------*--(start) calculate next generation-- 2400pencolor(%9)x=oldleftoldright2y=oldbottomoldtop4moveto(%x,%y)Mxycolor>10A":ۺ500V ----------W -- (start) fix colors --*Xcol=015:setctab(%0,%col,%col):col-]col=03:setctab(%9,%col,%(col+1)):col/bcol=1215:setctab(%9,%col,%(col-1)):colgsetctab(%9,%4,%4)lsetctab(%9,%11,%11)qcol=015v!g$)=10y>bottomedgemoverel(%0,%-4)*&g$)=11y5g$="x"g$="X"drawimage(@pic%(0),%2,%0,%0,%2,%2):2800:g$="a"g$="(%newleft,%newtop)500 2600$------sub-subroutine getpatternx=xloc:y=ylocdotat(%x,%y+1)g$pencolor(%0)dotat(%x,%y+1) pencolor(%15)moveto(%x,%y)g$)=27:+g$)=8x>leftedgemoverel(%-2,%0).topedge=189"BGRAF.INV" 2000 2200oldleft=leftedgeoldright=rightedgeoldbottom=bottomedgeoldtop=topedgegrafixmode(%3,%1) grafixon fillport------------ $ -- (start) first generation -- 2400moveto % * * Life on the Color Table * *:: USE OLD BUSINESS BASIC OR PROFILE BGRAPH.INV TO RUN 200400600 (:: 21000 <1200F50 ------------ -- (start) initialize --leftedge=2rightedge=136bottomedge=54TIME=11000:TIME >:::000:IDE=1N X RESPONSE FOR WRONG ANSWERb:=12:18)"WRONG"-l#1;128);63);255);63);100);0)vE=0 PAUSE SUBROUTINE#=23:"HIT ANY KEY TO CONTINUE"=23:=25:B$: !*=10:C$="*** THE END ***":70"0000")pic%(4)="8800")pic%(5)="8800")pic%(6)="0000")pic%(7)="0000")pic%(8)="A800")pic%(9)="A800")pic%(10)="0000")pic%(11)="0000")^ ------------ _ -- (sturt) reset window --#` newleft=(oldleft+oldright)/2)Ad "average" position may fall "between" proper cell positions(e NEWLEFT)2<>0newleft=newleft-1j newright=newleft+2%o newbottom=(oldbottom+oldtop)/2)0t newbottom-1)4<>0newbottom=newbottom-2y newtop=newbottom+4~ & r GRAFIXMO );"#1;TIME%-256*TIME%/256));#1;TIME%/256)); 1000A%=11000COUNT%=1)*C.VAL%)200500(=27#1:::: HIT ESCAPE TO END 1000  BOB'S NOISES* AUDIO PROGRAM FROM ON THREE MAGAZINE(d14);: TURN OFF SCREEN3nCOUNT%=0:TIME%=1:C.VAL%=16383:MODE%=128:VOL%=63x#1,".AUDIO":499#1;MODE%);VOL%);$#1;COUNT%-256*COUNT%/256));#1;COUNT%/256)%-256*CNT%/256));CNT%/256));2#1;TIME%-256*TIME%/256));TIME%/256)); #1:A THIS IS A PROGRAM FROM THE OSBORNE/MCGRAW HILL GUIDE TO THE? APPLE ///. IT WILL CREATE ANY TONES YOU WANT IF YOU PLUG= IN THE RIGHT NUMBERS. SEE PAGES 182-185 FOR MORE INFO.#1,".AUDIO":MODE%=128#1;MODE%);VOL%);/#1;CNT_C THIS IS A DEMO OF THE .AUDIO DRIVER AND THE AUDIOSUB PROGRAM.? MAKE SURE YOU HAVE THE .AUDIO DRIVER IN YOUR DRIVER FILE! VOL%=30 X=18TIME%,CNT%E( 25,15564,5,7782,15,3891,5,1946,30,973,20,486,1,243,100,122 2500<XF PRINT#1;CHR$(MODE%);CHR$(VOL%); 520 PRINT#1;CHR$(CNT%-256*INT(CNT%/256));CHR$(INT(CNT%/256)); 530 PRINT#1;CHR$(TIME%-256*INT(TIME%/256));CHR$(INT(TIME%/256)); 540 CLOSE#1:REM ADD A RETURN HERE WHEN USED AS SUBROUTINE 490 REM THIS IS A PROGRAM FROM THE OSBORNE/MCGRAW HILL GUIDE TO THE 491 REM APPLE ///. IT WILL CREATE ANY TONES YOU WANT IF YOU PLUG 492 REM IN THE RIGHT NUMBERS. SEE PAGES 182-185 FOR MORE INFO. 500 OPEN#1 AS OUTPUT,".AUDIO":MODE%=128 510 ewtop+4#K oldtop>topedgeoldtop=topedgeP  ------------! -- (start) expand window -- xnewrightnewright=x ynewtopnewtop=y ------------!' -- (start) update window --( oldleft=newleft-2'- oldleftrightedgeoldright=rightedge< oldbottom=newbottom-4/A oldbottom=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   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>:)    kLhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSE 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 SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR 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  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM ck":=4:"(In inches)? ";TI6"8. How many yards per pound":=4:"of yarn? ";SNUM=WIDTH*EPIAMT=(WARP+W)*WIDTH*EPIPOUNDS=(AMT/R*100))/100WEFT=(WIDTH+TI)*PI*WARPLB=(WEFT/S*100))/100,16::"You will need ";NUM;" Warp threaI<"4. How much waste? (in inches) ";W:W=(W/36*100))/1006"5. How many yards per pound":=4:"of yarn? ";R:13)"***THE WEFT***":("TABBY AND PATTERN WEFT Y/N ? ";C$'"6. How many picks per inch? ";PI;"7. How much take-in per pibe? ";Warp0}=5:"Is that in yards or inches? (Y/I) ";A$(A$<>"Y"A$<>"I"=4:CALL-958:125&A$="I"WARP=(WARP/36*100))/1002"2. How wide will it be? (in inches) ";WIDTH:13);"***THE WARP***":'"3. How many ends per inch? ";EP calculate your yarn needs."+-=15:"Press the 'C' key to continue.":2Y$7Y$<>"C"45di12);"***THE PROJECT***"9n:"What do you plan to call the weaving?":" ";NAME$+s:17-(NAME$))/2);"***";NAME$;"***"'x:"1. How long will it $ ***The Warp/Weft Calculator*** January 24, 1984 C.W.D.:21):)=14::"@@@@@@The Warp/Weft@@@@@@":&=16::"******Calculator******":#:p("Greetings. Tell me about the project":"you're planning and I will help you":"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 ds,"$@"Each ";WARP+W;" Yards long." E:"At";R;" yards per pound"nJ:POUNDS;" Pounds of yarn will be needed":"To supply the ";AMT;" Yards needed for":" the entire warp." O:"At";S;",yards per pound"T:LB;" Pounds of yarn will be needed to":"supply the ";WEFT;" Yards needed for ":"the ";PI*WARP*36);" Weft threads."YC$="Y"600>^:"Press the 'C' key when you are ready":"to continue.";hZ$rZ$<>"C"360x:"Would you like to :":5);"A. Review this calculation. ";:Y2;:" ";:"***";:=24R$(M);:" ";Y;" ***"+" S M T W T F S ";:SW=0:500!=24:" S M T W T F S "& ...BUILD FIRST DATE-LINE & PRINTL$="":D1=DW-.5:SW=0520L2$="":D2=DX-.5 I=17 DT=I-DW+1IMY2=Y-1,R$(M2-1);:"1MZ=11:YZ=Y-1M=2MZ=12:YZ=Y-1" ...FIND STARTING DAY-OF-WEEK'CZ=YZ/100+.005):YZ=YZ-100*CZ:DM=1"D1=2.6*MZ)+DM+YZ$,D1=D1+YZ/4+.1)+CZ/4+.1)-2*CZ6DW=D1-7*D1/7+.01)+1@SW=0460JM=M+1:M>12.5M=1:Y=Y+1 TN=N-1^MZ=M-2:Y ----------------------------------2"VIDEO OR PRINTER (V/P) ":X$:X$="P":200X$<>"V"160SW=0 :=4MZ=M-2:YZ=YSW=1250K=K+1:K>13K=2RK=3K=5K=7K=9K=11K=13=21:"HIT ANY KEY TO CONTINUE":X$:X$::=4M=<:FA(12),R$(12) PK=0:=2U"PERPETUAL CALENDAR"::ZI=112:A(I):IdI=112:R$(I):In=4x"HOW MANY MONTHS? ";NN=1"MONTH # ";MN>1"FIRST MONTH # ";M"YEAR ";Y:Y<100Y=1900+Y= --------------------- ";DI:10)"Total pattern yarn required= ";WLT;" yards or ";LS;"pounds."%%:10)"At";T;",Yards per pound"*:" supply the ";WLT;"yards needed for":"the ";QI*WARP*36);" weft threads."F:" PRESS THE 'C' ! 'KEY' when you are ready ":" to continue. ";Y$Y$<>"C"720410 :10)"Picks per inch= ";QI:10);"Take-in per pick ( in inches )=w many picks per inch ? ";QIGl:4)"10. How much take-in per pick ":=4:"( in inches ) ? ";DID1L$=L$+" "+48+DT)0I<6.5L$=L$+" ":IDSW=0650 NI=17 XDU=I-DX+1bID2L2$=L2$+" "+48+DU)vI<6.5L2$=L2$+" "IL$;:SW=0:670 =24:L2$ ...CHECK FOR LEAP-YEAR C=Y/100+.005):YC=Y-100*C A(2)=28YC=4*YC/4+.1)A(2)=29YC<.5A(2)=28"YC<.5C=4*C/4+.1)A(2)=29- ...BUILD REMAINING DATE-LINES AND PRINTEN=0EO=0L$="":L2$="" I=17 DT=DT+1:SW=0810DT>A(M-1)+.5EN=1:910 SW~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$=Cl:"YOU DIDN'T GET IT...",v" THE ANSWER IS: ";B(1);B(2);B(3);B(4)"::"WELL DONE, CODEBREAKER!":"YOU GOT THE ANSWER IN"5);"JUST ";C;" GOES "E)440 "BLACK"B(E)=B(E)+10D(E)=D(E)+20 H=H+1EH=4650 F=14 D=D(F) G=14D<>B(G)530" WHITE "B(G)=B(G)+10540GF &G=140B(G)<10580:B(G)=B(G)-10DGNH=0Xb C=18""ENTER YOUR GUESS NUMBER ";C;XX>9999260"X<1000260,P=X/1000)6Q=(X-1000*P)/100)@R=(X-1000*P-100*Q)/10)JS=X-1000*P-100*Q-10*R) TD(1)=P ^D(2)=Q hD(3)=R rD(4)=S |E=14D(E)<>B(RESS RETURN."dn"DIGITS CAN BE REPEATED"x"YOU HAVE 8 GOES TO BREAK""THE DIFFICULT CODE."="******************************************************"Z=15000:Z B(4) D(4)H=0 A=14B(A)=1)*9)+1A >"*******************************************************"%"CODEBREAKER BY A.J.B. AND T.S.">("*******************************************************"2<F"WHEN YOU ARE TOLD TO DO"!P"SO, ENTER A 4-DIGIT NUMBER"Z"AND THEN P30,31,30,31@j "*** JANUARY","** FEBRUARY","***** MARCH","***** APRIL";t "****** MAY","****** JUNE" ,****** JULY N~ "**** AUGUST","* SEPTEMBER","*** OCTOBER","** NOVEMBER","** DECEMBER" .5M=1:Y=Y+1.N=N-1:N>.52108:=22:02);30)9X=12000:X=B -------------------------------------------------------BC::"IF YOU WOULD LIKE TO SEE ANOTHER CALENDAR TYPE 'YES'";Y$DY$="YES"60V*` 31,28,31,30,31,30,31,31,+.05):D4=DU-10*D2D2<.5L2$=L2$+" "D2>.5L2$=L2$+48+D2)L2$=L2$+48+D4)I<6.5L2$=L2$+" "IL$;:SW=0:1010 =24:L2$EN<.5760SW=01040EO<.5890" "# ...DO IT AGAIN FOR NEXT MONTH$M=M+1:M>12=1820*DT>A(M)+.5EN=1:9904D1=DT/10+.05):D2=DT-10*D1>D1<.5L$=L$+" "HD1>.5L$=L$+48+D1)RL$=L$+48+D2)\I<6.5L$=L$+" "fIpSW=0990 zL2$=""EN>.5L$="" I=17"DU=DU+1:DU>A(M)+.5EO=1:990D2=DU/10"JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$