LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030.CLOCK.ARTICLES^#&jŸ/ DISKNAME.DAT(FLASHNAME.DATGw *MENU.MAKER 8n -READ.ME.FIRST; )SET.CLOCK !! (CLOCK.PD)xIII.REP.11u' *HELLO.TEXTpHELLO / *SOS.INTERP 4ke! *SOS.KERNEL @,V!a*SOS.DRIVER l4fF%SEG.T >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number :Repairs/3REP-11 Disk Format: Self-booting "TICKTOCK" is a very small DOS-b CONV&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[  !"#$%&'()*+,-./0123456789:;<=>ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLASis on side two. We hope you enjoy it and encourage your submission of programs to our PD library. y. brary. ased program that will check the speed of your SARA's clock. It is self-booting on your /// - just insert it into .D1 and do a cold or warm boot. Information on how to use the program and adjust the clock is on side one. TICKTOCK CSTRING 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>6k6SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eh`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` ׫$`ɥ%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i ?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghij0 `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` @SATR ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aI!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  8>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>kmnopqrstuvwxyz{|}~ 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST`8 iIi`9A)I@`a{ ~I)_ bJ) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩd8,h)ec efeede`,5 H h 4 `5!   4(P 4 4 `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐBGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| > `ʝ"`t  !#%')+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L> ֦ڱΑ0Б֤ l L p,:0 JfiΥiώJe΅Хiю@ F $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿հ0`ՑʭrpȐ`=m@< F l AL> 8p,:Jf׮@$PA F $P@/A'ʤ˅΄ϥ̤ͅЄ F $̑бʑΈ0Ƞ l L> $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ F ,:A@@8A@q==C)CB)B Crx 00 )ߍ:) J,P,QJ,R,S,T,V( > `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJн},,P,`,g$ ( $g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AA F }~L } `,}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐҍ3`)1`Ɂ" (cefd`Hcefh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L`" (~)y ~JJ* I `x|x|,,}P-X~`9`<ȭ=` * @jI`:ȭpȭqé,i0LÈ`,g HH`LL! l      5  Hdcefh&+si M0  h) `(" ( (È& 8 `)2ȱL1upp<`uqq=L> vuL L L <Li Li ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` * IMk`4`5`6`7`8<L<`<p<`,ms<L=q=L> ,lXL ==L> ,lCL <=L> <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8   x) `(, Lu%CYgu #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m pHe҅Ґhe…å逅h,23Lhґȥӑ,10 h0  `,g0L ҅ӥĥŰ+,0p 4 Ls Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`L i,1HȊ©L,52,9-P" a{)9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  * @jIH,5 p   !%*/369<?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w      ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |  )Le U ph,RSL ȥȑ`,Q0L rsEąĩEŅ prs`pqx pL 8fx v  pqЗ,Q0L  * H) H`! (0 1 N \ `\" (\ÈȌk`R ( "]yRSiTU Q`% (,Q0# (xpqy(`Q(L y )(JK `,Q0L EąĩEŅ| ,i0p H 8f f 7,T0*,V- x) V( H H` (# ( ~  Q`,yy`,Q$ ( v mxw )PJK(C) COPYRIGHT 1983, 1984 D A DATASYSTEMS P O W E R P R I N T RAM SPOOLER PRINTER DRIVER FOR THE APPLE III    + / @ C H K R Y j o t | ,/DIMV_x}  RU!Power Print /// V 1.3 02K buffer .PRINTER c ߄(C) D A DATASYSTEMS 1984LȭS` v p v v v `ȩ`,Q0L  H H`L$ !=K,T U p,U0x])] pXYrtqsu VWkj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`p031e-Y x V(Y p`j) )g kkL)` kkLQ ),b-cWLQdWu eQ,T0L@TEPd>gZ[M,h, e$YHV ))h kk0 Y5I)5i 4`)5;`xH)$ 45R8 h(`x ( =  5ةJ FF Ѥ`ةU Hh`*8`AB*0 B8` g=?՝ԝϝНhh)ɄJJRH88,< ʠʠ -,<0,80ʬ8ʠ6ʠ7( oL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ88 (`…ʍ0Åˍ142;)L 'L- >)AE)H LL 0Lx:9,<0 {Lf g)(I iL)8 ʪi)I8R - o:1ߠ*x (,< K Lx { (`98,S0  iLH8 xʍ6ʍ72L ߽TՅԅڅՅ ڭD)E)XL {* L H LߕեԩT`-.  <өхυ fL"= U8 =i U% LLBҭ"A U! LC <ѩ ϩ f- (שA= UL YשҩA UQ˩ <>=$` L)׭D):E)X3F)@Бqȑ ?L 0LC L! '=դԦ ˍ12/`ש U=    `H h (0­1í ,`x ( `x ( `Í"`.-LLL:?`?` fhh- (*J%/hh`դ8eԅԥi fՄԐhh, (MIPLIOKN`ׅ؅م֨ȑȥ.-  ө) Q(`x)(` HHGH` (& ( ( (4499ZJ0Q 3 *̍m%%#$ ) " { g {PiPS`(%, ( *x (I  ) (j` DÈ` ȑ`! (LE %  `)ߍQI "L?, (3C> _HJI̍ڥƅԥDžծ*x (3/͝ )`@ @ ' (T  $ g "x (```,A0Lp HH`L%&S```lBcguwy{}$(/4:?IXad#AProfile Universal Driver--Copyright (C) 1984 Apple Computer, Inc.l.PROFI0Lp& (,A0Lp9 æĬSɀ֙TȌS 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`!'*14;>AFsx(Z.AUDIO C(C) 1980 by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,Ah m p s  '5;CIM]t  6>AFILORWZ_dgnsx{ ) ` ) `x,V0 J)(`JN         ) , / 2 6 9 > A I N Q [ ^ f i l o r u x }   ' * / 4 O [ ` c g l q x     ) + - / 7 C L R X b e Lo,h,VLoj)`L],jLJ,TP TcL,UUTdLXXLJpq,yL L\L],W0,bPZ,[0驀[cLZtppqtux vuu _L= `L= aXpq { L`*x (DEHG Lh H J IFD`* H FFLx (̠`x (̠`Ѕ v   {L {` {`I FF x (̠%L,#r{-1@GIKMOQSUWY\dmw{~-@HLSZadiy~ (-49>MP[bnw~ 29@GJM[adipsv``,.0L HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw8n134nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy` HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅  #NS?Serial Printer Driver -- Copyright Apple Computer, Inc. 1982-83 .IMAGEWRITER A)Copyright (C) 1983 by Apple Computer Inc.ox{  %*/:>GIKMUclsy  $.BPV^dhx %(-5QY\adgjmruzUTdLXXL%lk,W0f,bPZ,[0W[cLZnoln _L" `L" aX ) ` ) `x,V0 %)(`JN{"'*INYkkL)` kkLl ),b-cWLldWuoeQ,T0L@TEPd>gZ[M,h,oe$YHV ))ho kk0 qroqYLJ,h,VLJj)`X5L8,jL%,TP TcL,UHH`LB<Xf,T U K,U0x])] olXYmnpqVWZ[kj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`l031e-Yx V(Y K`j) )g U Kh,RSL@pȥȑ`,Q0LmEąĩEŅ Km`l KL 8fol,Q0L HHGH`! (NOo}`\" (x\ÈȌk(`RȭS` l  o `ȩ`,Q0L )PJK % "]RSiTU Q`% (QLl Xx )(JK `,Q0LpEąĩEŅ|o,i0prH 8fofo7,T0*,V-x ) V)(L HH` (# ( (Q`,Q$ (I(C) Apple Computer 1981, 1982, 1983. Built-in Serial Port RS-232 Driver._r.RS232 c "߄P(C) Apple Computer Inc. 1983L &18=@CJQVY^adz} %.=@GPW^dgjmqtwz '*;ADejm&,69=@CFIM\_beEEpson Parallel Driver set for Slot 1 with UPIC or other Parallel Card2.EPSONER A ZCOPYRIGHT 1981 APPLE COMPUTERMICHAEL JOSEPH DHUEY NHMH` (# (B1BBl^`h[,($ ( h ))lfg % (*+, }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &ix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwx HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4ww """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer'38;HMRUZekqv{9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwww*ȩ`,(0LH  HL*,0))`Í-ȱÍ.ȱÍ/x0)0)? 00XȱÍ1``(LH*00fg `;?MOQSUWY[]`fjnx},49?HMRV\_dx}8f* 2*H UhX U'+`0`)0)0 X*4,2*,10M.-- x0 0`0֤F`,(0LH  ,-! (`í-ȑí.ȑí/ȑí0ȑí1ȑ``)M#-"ȩȩȭOSEPH DHUEY NHMH` (# (B1BBl^`h[,($ ( h ))lfg % (*+,("-#.$/&1)%)?0'`,(0LHEąĩEŅ,/'+?8fPF ZCOPYRIGHT 1981 APPLE COMPUTERMICHAEL J;?MOQSUWY[]`fjnx},49?HMRV\_dx}'38;HMRUZekqv{Parallel Driver2 .PPRINTER AZ`0֤F`,(0LH  ,-! (`í-ȑí.ȑí/ȑí0ȑí1ȑ``)M#-"ȩȩȭ*ȩ`,(0LH  HL*,0))`Í-ȱÍ.ȱÍ/x0)0)? 00XȱÍ1``(LH*00fg `("-#.$/&1)%)?0'`,(0LHEąĩEŅ,/'+?8fPF 8f* 2*H UhX U'+`0`)0)0 X*4,2*,10M.-- x0 0`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0p(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ ` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` 79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10(J)=A$(I),1,31)!J/2<>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),VOLUME 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$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".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 THE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. TICKTOC CLOCK SPEED UTILITY SPEED UTILITYEAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"16,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; selects; back 1 level; G$:::320H: Error Routi,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=21 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".M$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hB$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 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 THPOS=44:I/2<>I/2)I=I+1I2=-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=(80+LCA)"PRINT.ALL".KA=(81+UCA)A=(81+LCA):::: Reboot *LA=(83+LCA)A=(83+UCA)"PRINT.SHOW"N=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM00 =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=(80+UCA)A=SIC 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:16ther it is going too fast - or too slow. If you have a problem, you can easily fix it yourself. WHAT YOU"LL SEE To use TICKTOCK, simply insert the disk and reboot your system. The program is DOS-based and includes the software on disk to turn ons at the same time. You'll be returned to the familier "INSERT DISK AND REBOOT" message. MORE CLOCK INFORMATION: We've included a Three EZ Pieces data base on this disk listing all our PD disks with Apple /// clock-related files (CLOCK.PD). Anove is on this disk side for your convenience and can be run from Menu.Maker (you'll have to hit + "C" to end and then at the ")" prompt type "Run Menu.Maker" to return to MM. ENDING To stop the program, press the and keyed and used System Utilities, Desktop Manager, Powerkeys or a Basic or Pascal program to set the proper time to start with.) In Washington DC, you can call the Naval Observatory for the atomic clock. That number is (202)-653-1800. The short program aboEVICE 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$(J)=A$(I),1,31)!J/2<> =20:=10:ٟ:10=".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 VOLUME NAME (/DISKNAME) OR Dis program: 10 VPOS=20:HPOS=10:Print TIME$;:GOTO 10 This will give you a continuous time print-out on screen, allowing you to adjust the clock potentiameter against a time source of your choosing. (Again - you'll have to have a clock chip installn my ///+ and started with a 1 Second Test of +75. Adjusting the pot, I was able to get it down to +21. I would have to say the best you can do is get it as close to "0" as you can. THE ALTERNATIVE WAY IS TO: Use Business Basic to run th Lift it up and away from you, resting against the Apple /// case (still connected to the motherboard with the ribbon cable.) The pot is approximately under the "L" key and can be adjusted with a small (thin) flat-head screwdriver. I tried this o. HOW TO ADJUST YOUR CLOCK The clock adjustment "pot" is located on the motherboard just next to the clock chip. You can get at it by taking off the cover of your keyboard and unscrewing the four screws holding the keyboard to the chassis.a "clock" ticking in the background throughout. Actually that's it. The "1 Second Test" will give you a number that is either + or -.; presumably your clock is either too fast or too slow based on that number, and should be adjusted accordingly the Apple // emulation mode. Once booted, at the top of the screen, you'll see: APPLE /// CLOCK CALIBRATION TEST Just below it will be: 1 Second Test (a number) You'll hear ther Data Base (CLOCK.ARTICLES) lists articles you might be interested in from past years. FINALLY Let the /// SIG know if you have any success with TICKTOCK and if you have any suggestions for using it. A ThreeWorks Database search turned up no articles or even mention of this program. Nor was there a mention even in the Apple /// Technical Reference Manual. TICKTOCK was found in the PD library of our old friend Joe Dobrowolski of Apple Users Group International fame. Dave Ottalini WAP !P nCHSx0 BASIC 1.23ORDSll print 14 lines Descriptionss/ xnCVS RECORDSll print 1 lines WAP Format"";))))))))))))))))))    !!EZPECTJournal)))))))))))))))))))))))))))))))  !!!!!!!!!!!!!! P nCVS  !P nCVSJWAP /// SIG PUBLIC DOMAIN LIBRARY JANUARY 1992 1992-ESCRIPTIONER #-ESCRIPTION-ESCRIPTION-ESCRIPTION---OTES-WAP /// SIG PD))))))))))))))))))  PDS NAMELERDISK ID#SUBJECTY BOOTABLE?NONBOOTABLE DISK SIZE-NOSERATING SYSTEM- DESCRIPTIONDER #GeGGDD/0; ""B   /// SIG December 5, 1992 (updated a tad - April 17, 1995) x0 INFORMATIONRDS--unts Payable/Ge%  BootableDS 5.25SOS     BNew Member Disk: Side Two-C3INF-02 InformationBootableDS 5.25SOSSide Two (continued):&A3.QUESTIONS (subdirectory)(continued)9 :Set3 : 3EZ Pieces, 512K expansion, repairs.8A3.SOFTWARE :Text file you can EXEC to let you capture text.g!Contributions Disk 01: Side Two-C3MSC-02 MiscellaneousBootableDS 5.25SOS#Suthard (subdirectory) (continued):C- CLEAN.TR.DATA : Basic program that is part of New.Travel program.G- CLOCK.WEEKDAY : kable graphics dump.=- HENON :FOTOfile you can use to dump to your printer.$- PAINT :Basic paint program.Suthard (subdirectory)%- BIG.CLOCK :Basic clock program.?- BIG.TEXT :Basic program that switches to 40 column mode.@- CAPTURE ur ///.EMAC.N.BAK :Transfering files from the Mac to the /// and back.!Contributions Disk 01: Side Two-B3MSC-02 MiscellaneousBootableDS 5.25SOSOn Side Two (continued):Davidson (subdirectory):D- ALLDUMP.TEXT :Text version of Alldump.Inv invoKIT :Add a clock to your ///.AEMULATION.TIPS :Modify your Emulation Disk to reset to Monitor.+FILE.RECOVERY :Recovering damaged files.8HARD.DISKS :How to take apart a Profile Hard Disk.;LASER.PRINTERS :How to use a Laser Printer with yoNCE.DOC2: More on what each Confidence Disk test means.;-DIAG.DISKS.INST: Diagnostics Disks available for the ///.How Do I?: Side Two-A3INF-29 Information NonbootableDS 5.25SOS On Side Two:2A3.INFO :Basic Information about the ///.*CLOCK.xpect to do.;-BADDISK.WARNING: Problems with one brand of floppy disks.4-BOOT.FROM.A2 : Switching your .D2 Drive with .D1:-CLOCK.RESET : How to reset the A3 Clock on January 1.>-CONFIDENCE.DOC : Using the Confidence Disk for RAM problems.@-CONFIDEable with my serial printer that I% use with my modem?* The Best of ATUNC #5: Side Two-C3INF-27 InformationBootableDS 5.25SOSOn Side Two (Contined)::TEST.AND.REPAIR (SUBDIRECTORY):=-A3.EZ.REPAIRS : Easy repairs most ///ers can eching columns and rows in the 3EZ Pieces spreadsheet. HARDWARE.MISC (Subdirectory)DBARCODE.READER : Cauzin Softstrip barcode reader for the Apple //.>CLOCK.MAKE.OWN : Where to find clock kits for your Apple ///ISERIAL.CABLE : Can I use the same cModify your em disk to allow reset to monitor.=MAC.N.BAK :Transfering data between Apple///s and Macs. The Best of ATUNC #3: Side Two-B3INF-25 InformationBootableDS 5.25SOS On Side Two:!EZPIECES (Subdirectory-Continued)LEZP.ROWS.INVERS : SwitInstall a battery backup for your clock chip.>CATALYST.INFO :Catalyst works with all storage devices, etc.HCLOCK.KIT :How to install a clock chip/battery backup in your ///.8DISK.DIRECTORY :Restoring a disk with directory damage.?EMULATION.TIPS :rGXEBEC.HRD.DISK :Fairly positive review of a hard drive made by Xebec.!)Best of ///s Company: Disk 01: Side One-A3INF-07 InformationBootableDS 5.25SOS.Some of the best information from Ed Gooding's///'s Company BBS. On Side One:>BATTERY.BACKUP :puter programs and Databases.2MARILYN :Fotofile of that famous actress.FMORE.A3.Q.A :Discussions include Pascal, SOSclock, CP/M and more.>AWRITER.REVIEW :A not-so-positive review of Applewriter 1.0.*WJUGGLER.REVIEW :A review of Word JuggleS :PFS file conversion, Clock chip after 2000 and more.@SOS.DRIVER.NOTE :How the SOS.Driver file is set up on this disk.Best of The Source: Side Two3INF-04 InformationBootableDS 5.25SOS On Side Two:MCOPYRIGHT.INFO :Tutorial on copyrights for com :A list of the latest software versions.EA3.DOCTOR :Symptoms of a sick Apple /// and possible solutions.ICOLOR.MONITOR :Hook up your color monitor so it will work in emulation.4DRIVER.CONFIG :How to set up your SOS.Driver file.ESOFTWARE.HELPBasic program to present the Time and Date on a ///+.I- DIR.TEXT.MAKE : Basic program that sends directory info to a text file.=- EZ.LOAD : Basic program to load 3EZ Pieces into .RAM.,- EZ.LOAD.DOC : Documentation for EZ.Load.B- EZ.UNLOAD : Basic program that UNloads 3EZ Pieces from .RAM.*- FILE.COPY : Basic copy file program.E- GET.WEEKDAY : Basic program that figures out the day of the week.iBest of Salerno: Side Two3MSC-11 MiscellaneousBootableDS 5.25SOSAMany thanks to WAP /// SIM/DD/(   0    gram.= QUIKDIAL :Modem owners can directly dial a telephone number.> NOTE.PAD :Maintain an instant "scratchpad" of reminders, etc.rint a copy of any text screen being displayed by your program.C QUIK.CAT :Catalog the directory/subdirectory of files on any disk.? PRINTMGR :Send complex "setup codes" directly to your printer.A DISK.MGR :Format disks or copy any file from within any prois disk.xPower Keys DM+: Side One-D3UTL-17 Utilities NonbootableDS 5.25SOSSide One (continued):H ASCI.TBL :Displays a table of the presently loaded ASCII character set.C SHOWTIME :Displays the system date and time (requires clock chip).K QUIKSCRN :P GRAPH.PLOT :Plots graphs.C- LOAN.PAY.CALC :Compute your loan payments over any given time.:- PDL.TEST :A test program for the Apple Joystick.?- TIME.PROGRAM :Displays the time if you have a clock chip.(DISK.INFO :What's on th MicroScie Disk Drive.Basic Utilities: Side Two-E3UTL-06 UtilitiesBootableDS 5.25SOS On Side Two:!UTILS.8 (subdirectory-continued):B- CALCULATE.AREA :Calculate the area of whatever you would like./- GRAPH.PAC :A Graphics Drawing program.!-er.6TCLOCK.DRIVER :Apple // Thunderclock Driver (clock).CUPIC.DRIVER :Apple /// Univeral Parallel Interface Card Driver..UPICEPSON.DRVER :Epson version of UPIC Driver.,USCI.1.4 :MicroSci Disk Drive Driver.;USCI.FMTDX :Formatter Driver forith the fact your /// can't count past 1999.SOS Drivers: Side One-D3UTL-04 UtilitiesBootableDS 5.25SOSOn Side One (continued):*STYPE.BIG :Silentype Printer Driver.=STYPE.SMALL :Smaller version of Silentype Printer Drivestions about how to fix them. On Side One:CLOCK (subdirectory):3- BATTERY.BACKUP : How to install a battery backup./- CLOCK.KIT : How to install a clock chip.9- SET.SPEED : How to increase the speed of your ///.F- TIMESET.2000 : How to deal wl clock for the ///. Great for the /// owner whose watch has broken.$Repairing Your Apple ///: Side One-A3REP-03RepairsBootableDS 5.25SOS;A double-sided disk full of information related to problemsCexperienced by Apple ///ers, and suggides large Pascal text files into smaller files.J0NINE2ONE : Interesting number game whose purpose is to arrange a sequence: of the first 9 digits (1 to 9) into a pattern.6WEEKDAY : Day of the week calculator given any date.KTIMER : DigitaPrinters.FDavid Craig Disk #1: Side Two3PCL-13Pascal NonbootableDS 5.25SOS On Side Two:HASMFORMAT : Formats assembler listing files so that all back-patches areH correctly patched. Nice utility for the /// assembly people.?FILEDIV : Dive reader.JTIMESET :Set your system's time and date IF you have a clock chip.=CALENDAR :What day is it ... was it ... or will it be?.RENUMBER :Renumber your Basic programs.GPRT.CODES.PROG :Reveals the printer codes for C.Itoh/IBM/NEC Ger Jim Salerno for this excellent disk!4On Side Two (Self-Booting)(Includes a Menu program):JDRIVER.CHECK :A Basic program that checks the drivers you have on line.=PRINTER.MENU :Prints a list of fonts for a C.Itoh printer."FILE.READER :Text filTITLEory 1MAGAZINE/NEWSLETTERAUTHORVOLUMNMONTHDAYISSUE-Club.s Do You Know Where Your Clock Is?ATUNC NewsletterWhitten4January119877ClockYesResetting your /// clock.P Helpful HintsOn ThreeVarious7Jan/Feb1/219905-6Spreadsheet HintsYes@Various readers offer their solutions to copying valuristmasGSuggests: Titan ///+// Card; Graphics Manager; Clock Chip; Subscriptionto On Three; Games.Clock AdjustmentNews and Views Dobrowolski2January0119864ClockFHow to properly adjust your Apple /// clock. Taken from Baud AppleingComputer and PiecesYes@Apple /// clock speed problems; Eight years later ... ProDos isFfinally getting as useful as SOS (latest version lets you name deviceslike .Printer!)!Christmas Presents for the A///erATUNC NewsletterWhitten3December1219863 A3 Chsenberg7April4198411 Apple ///No>New versions of Pascal (1.1) and Apple Writer (2.0) available.@New pricing on 256 K upgrade. /// clock with battery for $50.00.!Bits and Pieces for the Apple ///News and ViewsOttalini5 September919898Bits Monitor mode;5Getting help for sick ///s; Font generation programs.Apple /// HintsATUNC NewsletterInfante/Whitten3January0119862Hints'Printer control codes in /// EZ Pieces. Reseting the year on your clock.Apple /// Notes Mini/App/les RoEZP files with7an A-143; Installing a clock; Transfering PFS to 3EZPs.AnswersNews and Views Dobrowolski2April0419866-7 Answers 04@Not all Apple /// software is in PD; Clock upgrades for the ///;?SOS 1.3 upgrade; Use 1.3S with Selector;Apple ///kFrom ///'s Company BBS.eAdjusting Your /// ClockThe /// NewsletterMooreJune82419852 /// ClockYESHow to adjust it.AnswersNews and Views Dobrowolski2March0319864 Answers 03GDescribes PD library system; What is a hacker?; Reading 3B -North Jersey Apple /// Users Group Newsletter 111984  v"A Battery Backup for the /// ClockThe /// MagazineGooding2Mar/Apr03198634 /// ClocMSUBJECTS  )))))))))))))))))))))))     !!!!!! P nCVSKUS7   !}P CHSYEAR(S)PG(S)S)SUBJECT COLLECTION-NOTE---ARTICLES3  es from oneFspreadsheet to another. They basically suggested creating a DIF file.DClock/Screen Problem: Reader Martin DeMuro says changing the battery4for his clock fixed a rolling screen on the monitor. Helpful HintsOn Three Lomartire6May/June5/619896 3EZP HintYes9How 3EZ Pieces deals with a working clock in your system.Installing the Clock ChipThe /// MagazineMoore3January1198719TutorialYesETutorial on how to install a clock chip. Does not deal with adding abattery back-up.1 2 O^5dAnderson4November8198324-27ClockNo."...or a 30 minute do-it-yourself project...."g the Titan///+//e cards.'Where To Find Clock Kits for Your AppleATUNC NewsletterGooding3January0119868 Clock Kit?Short reprint from ///'s Company BBS regarding how to install aclock chip in your ///.Your SOS Deserves a Clock Apple Orchar/. Time Out!Baud Appleing Computer ClubLinders1July3198515Apple /// ClockYes.Tutorial on how to adjust the Apple /// clock.TipsNews and Views Dobrowolski2February0219865Tips 02@Reset clock after the new year; Looking for tips usin Syracuse, NY 13217. (315)-677-3660.The /// and MeThe Apple TreeLloydJanuary2019845 Column 04NoF///+ is now available. Includes clock and interlace and new keyboard.=Incorporating a Quickfile or Visicalc file into Apple Writer.Apple Serve //ble to kbd; bad slots; no software.-The /// and MeThe Apple TreeLloydNovember1819835 Column 02No/Apple finally gives the /// a clock that works.CThe Apple Tree is the publication of the Syracuse Apple Uses Group;@Box 6586 Teall Ave. Station;drives.kSyncopatic Apple ///SoftalkJeppson3June101983180-192 InterruptsYesSystem Clock Interupt Driver.+Technical Flaws Plague Apple's New ComputerWall Street JournalChaseApril15198131 Apple ///NoEProblems: sockets; clock; short caile Demo program?; Source for1.3 SOS upgrade?Specials on /// StuffATUNC NewsletterStone2November1119855 Apple ///YESAVarious hardware and software avails..Including /// clock setups;BPrice break on hard disks from CMC Computer Systems; Other ms/SolutionsApple ThREE Group NewsletterOctober19851BugsYesD/// EZ Pieces Bug, Internal Clock gaining or losing time; Real Bugs! QuestionsNews and Views Dobrowolski2February0219866 Questions 02HClock upgrade for the ///?; Source for Profecipe.On the Trail of the Apple /// WAP JournalOttalini10June6198832+ Column O06YesDThreeWorks update; Apple /// News (more problems for On Three, DarylCAnderson, Pick That Tune, ATUNC PD library); Apple /// clock speed; New PD disks.Probleto the club.Barbequed Lamb recipe. Newsletter #5!Apple ///'rs Unanimous NewsletterCowman1May3519881-3Newsletter U05Yes@Clock kit and Intertlace kits available. A "hilarous" review ofAScript ///; Pascal tutorial continues; Spicy Tomato Aspic r4198222-23ReviewYESPositive review. Newsletter #4!Apple ///'rs Unanimous NewsletterCowman1April7419881-2Newsletter U04YesAInterlace and clock upgrades available to members. Asks for more?contributions to the Newsletter. PD disks donated It's /// O'Clock and All's WellSoftalkJeppson3November3198268-80Apple /// ClockYes"Apple /// Clock and how to use it.).UPDATE Driver for use with Thunderclock.})New Clock-On-A-Chip Kit for the Apple ///Open Apple Gazette Winkenpaw1Sept/Oct;------------------------------------------------------------------ ; ; calc.main 2.01 7/17/86 ; ; ; 2.00 initial testing version ; 2.01 initial version with full impl. ; ;-----------------------------------------------------------------1 2 O^( ( (.macro DBPL (de%1 (bpl %2 (.endm ( ( (.macro INC2 (inc %1 (bne $802 (inc %1+1 $802 (.endm ( (.macro SUB0 (sec (lda #0 (sbc %1 (sta %1 (lda #0 (sbc %1+1 (sta %1+1 (.endm ( ( (.macro FERR (lda #%1 (sta err_number (.endm ( ( (.macro BLT (bcc %1 (.endm ( ( (.macro BGE (bcs %1 (.endm ( (.macro JNE (beq $801 (jmp %1 $801 (.endm ( ( (.macro DBNE (de%1 (bne %2 (.endm ( (.macro movenum ( (ldx #numlen-1 $803 lda %1,x (sta %2,x (dex (bpl $803 (.endm (  (.macro LA (lda p_%2 (sta %1 (lda p_%2+1 (sta %1+1 (.endm ( ( (.macro LM (lda %2 (sta %1 (.endm ( -  numlen .equ 0b ;double precision = 11 bytes/number  SYSDPWR rts  0jsr my_init 0jsr do_it 0jsr wrap_up 0rts  curr_op .byte 00 curr_op_num .byte 00  result .block numlen,00  op_pend_flag .byte 00  do_it main_loop (jsr get_num ;num--> fr1, op--> save_op $005 moveb #00,op_pend_flag (movenum fr1,result (moveb save_op,curr_op (moveb save_op_num,curr_op_num ( (tax ;check f( (moveb sv_xb_r6,xb_r6 (moveb sv_xb_r10,xb_r10 (rts  05 lda 1a00,y (sta sv_1a00,y (iny (bne $005  rts  sv_xb_r6 .byte 00 sv_xb_r10 .byte 00 sv_1a00 .block 100,0  wrap_up (ldy #00 $005 lda sv_1a00,y (sta 1a00,y (iny (bne $005 result ;---------------------- init and wrap stuff ------------------------  my_init (jsr save_all (lda 0ffef (sta xb_r6 (sta xb_r10 (rts save_all  moveb xb_r6,sv_xb_r6 (moveb xb_r10,sv_xb_r10  (ldy #00 $0_mul-1 0.word do_div-1 0.word do_pwr-1 0.word do_eq-1  do_add jmp SYSDADD do_sub jmp SYSDSUB do_mul jmp SYSDMUL do_div jmp SYSDDIV do_pwr jmp SYSDPWR do_eq jmp show_get_num_msg .ascii "Enter >> " 0.byte 0ff  p_gn_msg .word get_num_msg max_ops .byte 05 op_table .ascii "+-*/^=" binop_tbl .byte 02,02,02,02,02,01 opfn_tbl .word do_add-1 0.word do_sub-1 0.word doar 0and #7f 0rts put_char CALL m_put_char 0rts  save_op .byte 00 save_op_num .byte 00 string_index .byte 00 string .block 40,0 p_string .word string ; ??? -2000 sr put_char (jmp $002  $025 ;is an op (stx save_op_num (sta save_op ( (ldy p_string (lda p_string+1 (jsr SYSDPIN ;convert string to FR1 number (rts  get_char CALL m_get_chring,y (iny (sty string_index (bne $002 ;always  $020 ;char is not ok for number (ldx max_ops $022 cmp op_table,x (beq $025 (dex (bpl $022  lda #07 ;beep (j(jsr SYSNMID ;checks for 0-9 (bcs $010 (cmp #"E" (beq $010 (cmp #"e" (beq $010 (cmp #"." (bne $020 $010 ;char is ok for number (jsr put_char (ldy string_index (sta str in table (lda #30 ;set the string to a "0" for possible (sta string ;entry of an operator only here (lda #0d ; (sta string+1 ; ( (CALL m_msg0,p_gn_msg ( $002 jsr get_char ( result (movenum result,fr1 (jsr SYSDPOUT (rts  ( get_num ;accept char input for proper number 0;terminated by an operator 0;result is fr1 << number 0; save_op << operator char ( ; save_op_num << operator numbeave_op_num (lda bin_op_tbl,x (cmp #02 (bne $090 (moveb #80,op_pend_flag (moveb next_op,save_op $090 rts (  do_the_op (lda curr_op_num (asl a (tay (lda opfn_tbl+1,y (pha (lda opfn_tbl,y (pha (rts (  show_(movenum result,fr1  $010 jsr do_the_op (movenum fr1,result (jsr show_result (bit op_pend_flag (bmi $005 (jmp main_loop ( handle_op2 ;set op pending flag for second op which @;is a binary op (ldx sor binary op (lda bin_op_tbl,x (cmp #02 (bne $010 ( (jsr get_num ;second number for binary ops (moveb save_op,next_op (jsr handle_op2 (movenum fr1,fr2 ;set up two operands for binop BLT sct_RR3 BNE sct_RR2 INX CPX #3. BNE sct_RR1 sct_RR2 FERR #1 sct_RTS RTS sct_RR3 movenum IHPI,FR2 ;FR1=FR1*2/PI JSR SYSDMUL sct_RR4 LDA FR1 ;USE EXTENDED RESULT TO ascii "SYSDSIN" (.endc  SYSDSIN LDA FR1+2 ;REMOVE AND SAVE SIGN AND #080 STA sct_SGN LDA FR1+2 ORA #080 STA FR1+2 LDX #0 ;CHECK SIZE sct_RR1 LDA FR1,X CMP MAX,X (.ascii "SYSDCOS" (.endc ( SYSDCOS ; CHANGE ARGUMENT: COS(X) = SIN(X+PI/2) 'movenum HALFPI,FR2 JSR SYSDADD 8; 8; REMOVE MULTIPLES OF 2*PI, MAPPING THE 8; UNIT CIRCLE FROM [0,2*PI] TO [0,4] 8; (.if test (. * ;* 1) ALGORITHM DEVELOPED FROM * ;* CODY, PP 125-149. TABLE * ;* 3346 FROM HART. * ;* * ;**************************************** ;* (.if test * ;* FR1 - ARGUMENT * ;* * ;* OUTPUTS: * ;* FR1 - RESULT * ;* * ;* NOTES: SIN(X) * ;* * ;* BY MIKE WESTERFIELD * ;* COPYRIGHT (C) JANUARY 1983 * ;* BY HAYDEN BOOK COMPANY, INC. * ;* * ;* INPUTS: ; ; could save a few bytes by replacing the refs to N2 and N4 by N1's with ; appropriate incs of the dest reg+1 ; ;**************************************** ;* * ;* SYSDCOS - COS(X) * ;* SYSDSIN -  1 2 5 3\ 4 6 7 8 9 10 VV::AO^9Y BPL sct_RR6 ;MAINTAIN PRECISION CMP #080 ;WHILE REMOVING MULTIPLES BNE sct_RR5 ;OF 2*PI LDA FR1+1 CMP #03 BLT sct_RR6 sct_RR5 JSR SYSDROL ;REMOVE INTEGER JMP sct_RR4 sct_RR6 LDX #15. ;NORMALIZE sct_RR6A LDA FR1+2,X BNE sct_RR7 DBPL X,sct_RR6A STA FR1 STA FR1+1 BMI sct_RTS sct_RR7 08B,062,0C5 '.byte 07F,0FD,023,035,0E3,03B,0AD,057,00C,078,043 '.byte 080,000,0A5,05D,0E7,031,02D,0F2,095,0F3,043 '.byte 080,001,049,00F,0DA,0A2,021,068,0C2,034,0C4 p_p09 .word p09-2000  .byte 07F,0E2,0B7,0D6,0A2,01F,046,0D5,09B,007,007 '.byte 07F,0E8,074,07A,019,0BE,047,0CC,088,0FC,059 '.byte 07F,0EE,0F1,083,0A7,0EE,014,04E,0C4,0AE,0BC '.byte 07F,0F4,028,03C,01A,043,0F5,0EF,0DD,064,0D2 '.byte 07F,0F9,099,069,066,073,015,0EA,N2 .byte 080,002,000,000,000,000,000,000,000,000,000 N4 .byte 080,003,000,000,000,000,000,000,000,000,000 EPS .byte 07F,0BC P09 .byte 07F,0D4,0BF,05A,04E,07E,0A8,0C1,029,0FA,0EF '.byte 07F,0DB,055,05D,060,031,011,073,06C,05E,0DB ' numlen,00  ; ; DATA AREAS ; MAX .byte 080,022,0C9 const_PI .byte 080,002,049,00F,0DA,0A2,021,068,0BF,0E5,0C2  HALFPI .byte 080,001,049,00F,0DA,0A2,021,068,0BF,0E5,0C2 IHPI .byte 080,000,022,0F9,083,06E,04E,044,015,029,0FC FR1,X STA TFR2,X LDA TFR1,X STA FR1,X DBPL X,DT1 JSR SYSDSIN movenum TFR2,FR2 JMP SYSDDIV  sct_SGN .byte 00 sct_N .block numlen,00  TFR1 .block numlen,00 TFR2 .block FR2 - RESULT * ;* * ;**************************************** ;* (.if test (.ascii "SYSDTAN" (.endc  SYSDTAN movenum FR1,TFR1 JSR SYSDCOS LDX #10. DT1 LDA ;* BY HAYDEN BOOK COMPANY, INC. * ;* * ;* INPUTS: * ;* FR1 - ARGUMENT * ;* * ;* OUTPUTS: * ;* *********************** ;* * ;* SYSDTAN - TAN (X) * ;* * ;* BY MIKE WESTERFIELD * ;* COPYRIGHT (C) JANUARY 1983 * ;FR1 = N^2 LA R6,P09 ;FR1 = P(N^2)*N LM R8,#9 JSR SYSDPOL movenum sct_N,FR2 JSR SYSDMUL ; ; SET SIGN ; sct_SS1 LDA sct_SGN EOR FR1+2 STA FR1+2 RTS ;*****************1 CMP EPS+1 BGE sct_PE1 sct_SG2 movenum HALFPI,FR2 ;MAP TO RADIANS JSR SYSDMUL JMP sct_SS1 ; ; POLYNOMIAL EXPANSION ; sct_PE1 movenum FR1,FR2 ;N = FR1 +movenum FR1,sct_N JSR SYSDMUL LDA FR1+2 ORA #080 STA FR1+2 JSR SYSDADD ; ; DONE IF FR1 < EPS (SMALL ANGLE ; APPROXIMATION ; sct_SG1 LDA FR1 ;CHECK SIZE CMP EPS BLT sct_SG2 BNE sct_PE1 LDA FR1+ LDA sct_SGN EOR #080 STA sct_SGN sct_RR10 LDA FR1 ;QUIT IF < .5 BPL sct_SG1 LDA FR1+1 ;BRANCH IF < 1 BEQ sct_SG1 movenum N2,FR2 ;FR1=2-FR1 BPL sct_SG1 LDA FR1+1 ;BRANCH IF < 2 CMP #02 BLT sct_RR10 movenum N4,FR2 ;FR1 = 4-FR1, LDA FR1+2 ;SGN = -SGN ORA #080 STA FR1+2 JSR SYSDADD LDA FR1+2 BMI sct_RR8 JSR SYSDROL JMP sct_RR7 sct_RR8 LDA FR1+2 ;RESTORE SIGN AND #07F STA FR1+2 ; ; REDUCE RANGE FROM [0,4] TO [0,1] ; sct_RR9 LDA FR1 ;QUIT IF < .5 1 2 3 4 5 6 SOUT ]9IC ! !`CO^5 numlen .equ 0b ;double precision = 11 bytes/number rest_mem .equ 012 ;cntl-r clr_entry .equ 003 ;cntl-c pi .equ 022 ;quote ; e .equ 065 s, etc. ; 2.02 remove put_char and add back cursor to error char beep ; 2.01 initial version with full impl. ; 2.00 initial testing version ; ;------------------------------------------------------------------ test .equ 0 ered cntl chars out on first char typed ; 2.05 added my_display to SYSDOUT to handle non-E numbers ; 2.04 fixed re-show of first char typed ; 2.03 added Clr, ce and cr=add handlers, fixed chained ops handler ; and unified display of resultantilog) ; clear out supermacros on entry and restore at exit ; added logic to get_num to check for double E.- chars ; also allows leading - sign ; ; 2.06 set getnum to default to prev result for no num entry ; and filt; added simple error trap to display * (beep) and zero result ; added undo (cntl-U) command ; changed clears to cntl-Z = zero and cntl-C = clear ; added dummy pi and e constants ; added EXP function with cntl-L (for changed entry command to (K)alc ; added memory register with save/restore (cntl-S,R) ; no longer clearing screen on entry ; loading result on eXit into = macro unless too big ; no loading of = macro if Quit used changed string store locs from x'30 to x'20 bytes ; change undo to backup ; remove e const, change e to exp fn ; added Help line display ; added deg and %pct functions ; 2.07 added SIN COS TAN functions ; orage in macro correctly ; fix to handle incorrect re-display for 0>x>.01 ; and .01 display as .01. ; ; 2.10 fixes for - neg nums and macro loading for E1 numbers ; ; 2.09 fixes for 2.08 ; 2.08 fixes for 2.07 ; 0.PROC CALC,0 ;------------------------------------------------------------------ ; ; calc 2.12 9/05/86 ; ; 2.12 want fix for macro 1.23 from 1.234 ; want fix for Zero command after 123 -> 023 ; 2.11 fix to handle "0" value st ;e  undo_cmd .equ 002 ;cntl-u  start (jmp entry (.ascii "K" (.word start-1 (.word end-start (.ascii "QuikCalc"  (.INCLUDE CALC.MAC (.include pkymacs (.include callmacs (.include zpcommon  entry jsr my_init 0jsr do_it 0jsr wrap_up 0rts  ; COMMON DATA R0 .equ 080 ;GENERAL PURPOSE R1 .equ 081 ;REGISTERS R2 .equ 082 R3 .equ 083 R4 .equ 084 R5 .equ 085 R6 .equ 086 jsr put_string ;add char to string (jmp get_one  chk_for_op ;char is not ok for number (ldx max_ops $010 cmp op_table,x (beq is_an_op (dex (bpl $010 (jsr beep_n_back (jmp (beq char_is_ok (jmp beep_n_back alpha_cnt .byte 01 alpha_tbl .ascii "E." alpha_f_tbl e_cnt .byte 0ff dp_cnt .byte 0ff char_is_ok ;char is ok for number (bne chk_num (jmp get_num ( chk_num jsr SYSNMID ;checks for 0-9 (bcs char_is_ok ( chk_alpha (ldx alpha_cnt $005 cmp alpha_tbl,x (beq $010 (dex (bpl $005 (bmi chk_for_op $010 inc alpha_f_tbl,x  #020 (bcs $010 ;don't display cntl chars 2.10 (lda #020 ;show a dummy space instead 2.10 $010 jsr put_char (pla $090 rts ( ( get_one jsr get_char (cmp #clr_entry ;cntl-c is clear-entry... (rts  $030 cmp #undo_cmd ;cntl-u (bne $040 (movenum save_undo,fr1 (rts $040 jsr clear_n_showit ;2.10 (jmp chk_num clear_n_showit (pha (jsr clear_display pla (pha (cmp p the "-" 2.10 (jmp char_is_ok ;does put_string & jmp to get_one 2.10 ( $010 cmp #pi (bne $020 (movenum const_pi,fr1 (rts $020 cmp #rest_mem ;cntl-r (bne $030 (movenum mem_reg,fr1 SYSDOUT (jsr result_2_fr1 (CALL m_msg,p_string get_first (jsr get_char chk_first ;check for constants e pi(") or restore or undo command (cmp #"-" (bne $010 ;leading minus sign ok (jsr clear_n_showit ;puts uperator number in table ( (ldx #00 (stx string_index (stx save_op (stx save_op_num (dex (stx dp_cnt ;initialize these to ff so one inc -> 0 (stx e_cnt ( (CALL m_msg0,p_gn_msg  (jsr result_2_fr1 (jsr (bpl gnum_1 ;---------------------------------------------------- get_num ;accept char input for proper number 0;terminated by an operator 0;result is fr1 << number 0; save_op << operator char ( ; save_op_num << ocond number for binary ops (moveb save_op,next_op (jsr handle_op2 (movenum fr1,fr2 ;set up two operands for binop (jsr result_2_fr1 gnum_2a jsr do_the_op (jsr fr1_2_result (bit op_pend_flag (bmi gnum_1a 00,op_pend_flag (jsr fr1_2_result (moveb save_op,curr_op (moveb save_op_num,curr_op_num ( (tax ;check for binary op (lda bin_op_tbl,x (cmp #02 (bne gnum_2a gnum_2 (jsr get_num ;se FR1 .equ 09C ;FLOATING POINT FR2 .equ 0B0 ; MATH REGISTERS RETAD .equ 0BC ;RETURN ADDRESS CHRAD .equ 0BE ;CHARACTER ADDRESS do_it gnum_1 jsr get_num ;num--> fr1, op--> save_op  gnum_1a moveb #M1H .equ 091 ;MATH REGISTERS M2L .equ 092 M2H .equ 093 M3L .equ 094 M3H .equ 095 SIGN .equ 096 ERR_number .equ 097 ;FLOATING POINT ERROR # AD1 .equ 098 ;FP AND DP OPERAND RAD .equ 09A ; LOAD REGISTERS R7 .equ 087 R8 .equ 088 R9 .equ 089 R10 .equ 08A R11 .equ 08B R12 .equ 08C R13 .equ 08D R14 .equ 08E R15 .equ 08F xb_r6 .equ 1687 xb_r10 .equ 168b   M1L .equ 090 ;TWO BYTE INTEGER get_one  is_an_op ;is an op (stx save_op_num (sta save_op (lda string_index (beq $090 ;leave old string there if no new nmbr (lda #0ff (jsr put_string $090 ldy adj_p_string (lda adj_p_string+1 (jsr SYSDPIN ;convert string to FR1 number ( (rts fr1_2_result (ldx #numlen-1 $005 lda result,x (sta save_undo,x (lda fr1,x (sta result,x (dex (bpl $005 (rts  result_2_fr1 (movenum result,fr1 (sv_xb_r6 .byte 00 sv_xb_r10 .byte 00 sv_1a80 .block 40,0 ;x'80-BF  save_op .byte 00 save_op_num .byte 00 string_index .byte 00 get_num_msg .ascii "CALC >> " 0.byte 0ff  p_gn_msg0 0inc zp_key_data+1 0 $005 lda string,x ;2.10 0sta @zp_key_data,y 0dey 0dex 0bpl $005 0dec zp_key_data+1 $090 rts 0 0 ; ; LOCAL DATA AREAS ; macro_len .byte 00 value 0 0and #7f 0tax 0 ;1D is offset into macro table of the = key @;we will bump ptr up one page then use @;the 0D * 10 (macro entry len) = D0 as a @;ptr to the base of the = entry 0clc 0lda #0d0 0adc macro_len 0tay 0 0bcs $090 0 lda actual_len 0cmp #011 0bcc $002 0lda #010 0 $002 sta macro_len ora #080 0ldy #1d ;offset to = key macro 0sta @zp_on_flags,y ;set the flag 0bne $020 0lda #01 0sta actual_len 0bne $002 0 $020 lda save_the_exp+1 ;don't load macro if the 0and #7f ;result is > e15 or < e-15 0bne $090 0lda save_the_exp 0cmp #1(rts save_123 .byte 00,00,00 rest_123_macs  ldy #02 $005 lda save_123,y (sta @zp_on_1_flag,y (dey (bpl $005 (rts  set_macro 0lda fr1 ;2.11 check for "0" 0ora fr1+1 80,y (sta 1a80,y (dey (bpl $005 ( (moveb sv_xb_r6,xb_r6 (moveb sv_xb_r10,xb_r10 (rts  save_123_macs (ldx #00 (ldy #02 $005 lda @zp_on_1_flag,y (sta save_123,y (txa (sta @zp_on_1_flag,y (dey (bpl $005 005 lda 1a80,y (sta sv_1a80,y (dey (bpl $005 ( (lda 0ffef (sta xb_r6 (sta xb_r10 (jsr save_123_macs  (CALL m_msg,p_help_msg (rts  wrap_up (jsr rest_123_macs (ldy #3f $005 lda sv_1ado_pct_fn jsr SYSDMUL 0movenum N100,fr2 0jmp SYSDDIV  ;---------------------- init and wrap stuff ------------------------  my_init (moveb #00,err_number  moveb xb_r6,sv_xb_r6 (moveb xb_r10,sv_xb_r10  (ldy #3f $ do_zero lda #00 0sta result 0sta result+1 0sta sout_exp 0sta sout_exp+1 0pla 0pla 0jmp do_it 0 do_memstore movenum fr1,mem_reg 0rts do_deg_fn movenum k_pi_div_180,fr2 0jmp SYSDMUL  get_char CALL m_get_char 0and #7f 0rts put_char CALL m_put_char 0rts do_exit jsr set_macro ;save number string in + macro H;unless "E" format  do_quit pla 0pla do_null do_eq rts dx save_op_num (lda bin_op_tbl,x (cmp #02 (bne $090 (moveb #80,op_pend_flag (moveb next_op,save_op $090 rts (  do_the_op (lda curr_op_num (asl a (tay (lda opfn_tbl+1,y (pha (lda opfn_tbl,y (pha (rts ( (lda #1f (jsr put_char ;clear to end of line (rts   put_string (ldy string_index (sta string,y (iny (sty string_index (rts handle_op2 ;set op pending flag for second op which @;is a binary op (lrts   beep_n_back  lda #07 ;beep (jsr put_char (lda #08 ;backup (jsr put_char (lda #20 (jsr put_char (lda #08 (jsr put_char (rts  clear_display (CALL m_msg0,p_gn_msg .word get_num_msg max_ops .byte 13 op_table .byte 00 ;null op does eq 0.ascii "+-*/^=" 0.byte 011 ;cntl-Q is QUIT 0.byte 018 ;cntl-X is eXit 0.byte 01a