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(STANDARD^!tREAD.ME.FIRSTRR 4keϲ. *SOS.KERNEL @,Vϲ/a,WEIGHT.CHART I3Z9)PRINT.ALL ^SEG.F ^,DOWNLOAD.INV^!+,WAP.STANDARD^! *MENU.MAKER |R ,PLOT.UTILITY  I/!/.PLOTTER.DRIVER I0 %SEG.T lj^Ÿ/ ,RES.4.GRAFS2  MI3*SOS.DRIVER o!@^^*SOS.INTERP I3a:,GRAF.UTILITY  I/!-,GRAPH.PAP.PL 'I2- )GRATICULE I3HELLO ϲ./ *HELLO.TEXTϲ.R,INSTRUCTIONS_&I0c%III.GRX.18CS.08u' )BGRAF.INV(I1!L+)BUS.GRAPH {I0Z,CRT.IK.VD.PL _I0O DISKNAME.DATϲ0c.FLASHNAME.DATGϲ0R *FREQ.PLOTS  >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L0 WELCOME! Public Domain Library Disk # 3GRX-18 Category/Name: GRAPHICS/Graphic Utilities Disk Format: Self-booting (Side One) This disk contains 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: FLASnd them useful. Please read the file called "Instructions" for more information. On side two, you will find two Pascal graphics utilities from D.C. Merc Design. You will have to know how to use Pascal to get the most out of these non-comp a number of graphics utilities you might find interesting. On side one, you will find a number of ploting and graphing programs written in Business Basic by ///er Carlo Infante. Most are designed for use with an Apple plotter, but you may fiCSTRING 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` @SATRnpqrstuvwxyz{|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|".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"km79C";"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 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::"  )* 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>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xr8` L=?՝ԝϝН ` 1`*x (DEHG 1h H J IFD`* H FFLx (̠`x (̠` [   `L `` ``I FF x (̠%L#fowz8 (`…ʍ0Åˍ142;)5I)5i 4`)5;`xH)$ 45R8 h(`x ( 3  +J FF tѤ `U t`*8`AB*0 B 1x ` (`98  bLH8 xʍ6ʍ7hh)ɄJJRH88,< ʠʠ &,<0,80ʬ8ʠ6ʠ7( hL8 989::m8ʥi,;Ɂ)˭5i ɠ)54`x* ,< ʝ8 =i N% JL@ҭ"A N! xLC L 'Lp- >)AE)H ;LLW x0Lx:9,<0 `Ld L)(I bL)8 ʪi)I8R & h:1ߠ*x (,< K NL% AҩA N= ,>- JD)3E)X,qȑ ;?L x0LC L '5դԦ kˍ12/` N=    `H Wh (0­1í2L-. * <өхυ L"= N8` ȑ`! (`.-LLL$?`?` hh- (*J%/hh`դ8eԅԥi ՄԐhh, (MIPLIOKN`ȑȥ.- * ө<ѩ ϩ - (A=)X@ @ ' (  L "x) Q(`x)(` 2H1H` (& ( ( (##D0C 3 *̍m%%#$  " ` L ``(%, ( *x (I  ) (j` DÈDriver -- Copyright (C) 1983 by Apple Computer Inc.`.PROFILE&% `)ߍQI "L), (3C> SHJI̍ƅԥDžծ*x (3'͝  HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Profile 4nʐ3x1eʍ1,/p/H h(eʅ8ʅİLa )`Y)D00L:1?24n21  % &$0) `/0) `,.0L tHsH`! (xy```,.0L HH` (# (KXT .")"#)  #`,.$ ()-'( / .`% (.L,/0x ('( `,.0L& (,.0L7 Đ`ʥ逅8n13DL8H\0`(d  $,($  ,BSerial Printer Driver -- Copyright (C) 1983 by Apple Computer Inc..PRINTER A")Copyright (C) 1983 by Apple Computer Inc.>88  >!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>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>*13579;=?ACFNWaehmpx "'+@\mrv{#&+25FKQT\adgjmry~$/6;>AHOTW\_bx{'69@IPW]`cfjmpsx} #4:=Z_bpsv{ "%(+.2ADGJx{~;Console Driv 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h AL:g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Crx x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $fh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}00L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hce<Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L  #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXLґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰ʩBTVSPLH   5"ʘ HH` (# (=  0`)aIٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐ̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')+; V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` `Ph0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &x 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL  }`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxi HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww     ! ( 0 7 I N S _  . 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 EJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  RY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<?BCNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKO m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭeٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ R",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 RBcguwy{}$(/4:?IXad# 9S`YX`X-,ˆ̭U)? VW @ ?ddxtB˩Eʍ@Xx ,P Eʍ(itiBX`,A0Lp HH`! (```,A0Lp HH`L%&S```l by Apple Computer Inc.D vHuH` (# (jjA`,A$ (BC x) @( A`% (ALpx)`(BC `,A0Lp& (,A0Lp9 æĬSɀ֙TȌS    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{(Z.AUDIO C(C) 1980(-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̑`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 Q̐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ئȢΆѽϽ`/(ɀ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`ۅ&ۥeepEAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",3200 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 M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 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+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,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 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ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 disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 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:sic; +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$=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=1cCT>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),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$ 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU.">G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve GETFONT  MENU.MAKER FONT MODULESEG=0"Menu.Maker"D"Download.Inv"NC$=B$(I),16,B)Xarray$="C%"bname$=34)+C$+34)lgetfont(@name$,@array$)vloadfont(@array$)J=1:SAME=0".D1/MENU.MAKER",3202010C$="N"C$="n"200;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 20002,280,21 DF$(I)=D$+"/DISKNAME.DAT"F$(I)=D$+"/FLASHNAME.DAT"410:ۺ310 PRINTER v 1.0 p$ 900A$="PRINTING"+F$(I):$=01:=0::"80C";A$;::12)F=23:=0::"79C";"PRESS ANY KEY TO HALT PRINTING"::2,280,21 2000*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"#1,D$::"Processing directory ";34);D$;34);", please wait."; ž#1880*#1;A$:A$)<48104A$,3,4)<>"TEXT"810>X=X+1:".";HE=15:F$=A$,16,15)RF$,E,1)=" "E=E-1:850\F$(X)=D$+"/"+F$,E)f810p:  Pausež#1740#1;A$:A$)<4710A$,3,4)="TEXT"X=X+1710 :X>YN=P::7);"There are no text files in the ";34);D$;34);" directory." ::I=P::7);"Unable to locate and open ";34);D$;34);" directory." ::IT$=N$,E,1):T$=" "T$=","610XE=E+1:E>N$)610:590bD$=N$,S,E-S)l:v:E>S+1600:D$="": œ770P=3:"Looking for ";34);D$;34);" directory." #1,D$=P3:"Reading from ";34);D$;34);" directory." I>X200300S=1:D=1:B=1570D$=""500 Y=X:S=ED$(D)=D$:640 X=Y440D=D+1:S=E:440D=D-1:X=0F$(X):X=0 J=1D D$=D$(J)790&J0 :œ6303DE=S+1:N$,S,1)=" "N$,S,1)=","S=S+1:580%Nž#2390 ^1000c: h#2;a$ma$rY=1150:Y0wB=B+1: Count the number of lines printed xB=15B=30355yB=60#3;12)zB=60B=1 {#3;a$|360B<=20#3;13)::410#3;12):Z=11000:ZI I=3d: PRINTER V. 1.0 ::=2::"PRINT.ALL v. 1.0":3=4:"Directory Name(s) or return to quit: ";n$N$)=0::"MENU.MAKER"430 X>0260I=11000:I:200: ,I=1X 14000 6#2,F$(I)@#3,".PRINTER" Jl; 3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  ~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>88  >!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrr|>00000>0# #0>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|GA7  3  5  GETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 Y5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh ghzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "ing. Assumes printer device is ".dmp"#2,".dmp" #2: #2:#0: INITIALIZE PLOTTER#1,".RS232"#1;"IN;SP2;PU;"a We've named the plotter file#1, we've selected pen #2 as the active one and we've lifted it SET UP SCAg scale use GOSUB 9000+N5000: labels axes and titles the plot1X#1;"PU;SP1;PU;": select Pen#1 and lift it @b6000: defines function to be plotted, loads constants etc.v7000: we plot#1: ttthat's all folks!> prints program listd file is plot.utility-1000: initialize plotter, select pen #2 2000: set up scale factors_&3000: draw vertical grid on a linear basis. For log scale, change line 550 to gosub 8000 O:4000: draw hoizontal grid on a linear scale. For loJOIN OTHER WAP /// SIG MEMBERS ON THE TCS! CALL THE OFFICE FOR COSTS. GRAPHICS UTILITIES DISK 1SK a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help! <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"LING FACTORSxl=750:xm=9750:x3=xm-xlyl=639:ym=7119:y3=ym-yl zl=0:zm=1 ul=0:um=1-a1=x3/(um-ul):b1=xm-a1*um:x(u)=a1*u+b1- a2=y3/(zm-zl):b2=ym-a2*zm:Y(z)=a2*z+b2o fn x(u) and fn y(z) convert user variables u and z to plotting variables x and y and take care of scaling9 l(x)=x)/10): fn l(x) is log(x) to the base 10*pi=3.14159  DRAW VERTICAL GRID D=(UM-UL)/10 u=ul1.05*umD X=X(U):Y=YL 15000 #1;"PD;PR0,",Y3,";PU;" Y=450 15000 #1;".inv FILLPORT grafixon 2000: set up scale factors_&3000: draw vertical grid on a linear basis. For log scale, change line 550 to gosub 8000 _:4000: draw horiz. grid on a linear basic. For log scale, change line 570 to GOSUB 9000.,Nimply, i.e. by just moving the section. btw 6000 and 6999 from one to the other.'1000: initialize graphics screen.D after you've run the program once (and invoked Bgraf.inv), youE  can run it again by typing run 525 so as not to reload grafd FILE IS graf.utility2n general program for graphing functions in BB0x place comments about specific program here9 the intent is to have graf.utility very similar to 9 plot utility so that you can switch from one to the7 other vry s00 xF#1;"PD;"F:,>#1;"LB";D$;+3): prints expression D$>hBX=X(U):Y=Y(Z)-rB#1;"PA",X,",",Y,";": moves to point x,y|B> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> 7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"STANDARD )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 n "down" heres expression D$ >#1;D$>hBx=x(u):y=y(z).rBlineto(%X,%Y): draws a line to point x,y|B&PF moves to point u,z with beam off-ZF use this for the first point of a curvedFx=x(u):y=y(z) nF15000xF/F in plot.util I place the pex##1,".grafix"##19100;10^z # #.4E#z#j=zlzm-1 #i=29#z=j+l(i)#x=x(u):y=y(z)#MOVETO(%X,%Y)#linerel(%xm,%0)#i#j&':moveto(%x,%y): moves to point x,y:>moverel(%4,%4)*>#1,".grafix": printu=j+l(i)x=x(u):y=y(z)MOVETO(%X,%Y)linerel(%0,%YM)ij"A(# draws horizontal grid on a log scale.zm-zl are the decades.<#u=ul F#z=zlzmP#x=x(u):y=y(z)Z#moveto(%x,%y)d#linerel(%xm,%0)n#moveto(%x+4,%Y+8)e run 7500B@ draws vertical grid on a log scale.um-ul is the # of decadesTz=zl ^u=ulumhx=x(u):y=y(z)rmoveto(%x,%y)|linerel(%0,%Ym)moveto(%x+6,%y+8)#1,".grafix"#18100;10^u  #.4Euj=ulum-1 i=29* use GOSUB 18000 for the first point.8 here's an example =du=um/100 Bi=15La(u)=u*pi)/iVu=ulumdu `z=a(u)ju=ul18000 t17000~uiX close everythingbl4v for a hard copy via the Grappler types and graph here9 to print a string d$ on the screen at the point u,z+ use statement GOSUB 18000:GOSUB 16000 ,p define functions and do the graph here0z use gosub 17000 to convert from u,z to x,y) and to draw a line to the new point& u  draws horizontal griddz=(zm-zl)/10u=ulz=zl1.05*zmdzx=x(u):y=y(z)moveto(%x,%y)linerel(%xm,%0)moveto(%x+4,%Y+8)#1,".grafix"#14100;z  #.#z7 place instructions to label curv9 l(x)=x)/10): fn l(x) is log(x) to the base 10T  draws vertical grid du=(um-ul)/10 z=zl u=ul1.05*umdu x=x(u):y=y(z) moveto(%x,%y) linerel(%0,%Ym) moveto(%x+6,%y+8) #1,".grafix" #13100;u  #.# >00000>" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!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 ,<,<.>.>/?/?d0hpGIKMUclsy  $.BPV^dhx %(-5QY\adgjmruzdLXXL%lk,W0f,bPZ,[0W[cLZnoln _L" `L" aX ) ` ) `x,V0 %)(`JN{"'*INYox{L)` kkLl ),b-cWLldWuoeQ,T0L@TEPd>gZ[M,h,oe$YHV ))ho kk0 qroqYLJ,h,VLJj)`X5L8,jL%,TP TcL,UUTH`LB<Xf,T U K,U0x])] olXYmnpqVWZ[kj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`l031e-Yx V(Y K`j) )g kkh,RSL@pȥȑ`,Q0LmEąĩEŅ Km`l KL 8fol,Q0L HHGH`! (NOo}`\" (x\ÈȌk(`RȭS` l  o `ȩ`,Q0L HPJK % "]RSiTU Q`% (QLl Xx )(JK `,Q0LpEąĩEŅ|o,i0prH 8fofo7,T0*,V-x ) V)(LU K HH` (# ( (Q`,Q$ ()DL8H\0`(d  $,($  ,This is the plotter driver_r.RS232 c .(C) Apple Computer Inc. 1983L%TO=I*(10^J):Z=L(O):Y=Y(Z):X=XL ^5000c#1;"PD;PR",X3,",0;PU;"hI=15500rI|JY=YM 5000X=XM #1;"PD;" 5100#1;"PU;SP1;PU" 7000 BEGIN CURVE PLOTTING K=5.5ECO=5015025A(E)=K*(E^3.5)/(ECO I=112h=y(sales(i)) u=i:z=.1 18000 20000$i 8u=ul:z=.1 B18000Llinerel(%xm,%0)WX close everythingbl4v for a hard copy via the Grappler type run 7500$L provides screen dump to dmp 0V Works if pict(2)="Feb":a$(3)="Mar":a$(4)="Apr":a$(5)="May":a$(6)="Jun"Na$(7)="Jul":a$(8)="Aug":a$(9)="Sep":a$(10)="Oct":a$(11)="Nov":a$(12)="Dec" i=112:sales(i)=i/12):i i=112 u=i:z=zl 18000moverel(%4,%9)#4,".grafix" #4;a$(i)i4100;z  #.#z7 place instructions to label curves and graph here9 to print a string d$ on the screen at the point u,z+ use statement GOSUB 18000:GOSUB 16000 p Months labeling utilityza$(12),sales(12)Ka$(1)="Jan":a$m) moveto(%x+6,%y+8) #1,".grafix" #13100;u  #.#& u  draws horizontal griddz=(zm-zl)/10u=ulz=zl1.05*zmdzx=x(u):y=y(z)moveto(%x,%y)linerel(%xm,%0)moveto(%x+4,%Y+8)#1,".grafix"#1*ul:a2=ym/(zm-zl):b2=-a2*zl x(u)=a1*u+b1y(z)=a2*z+b29 l(x)=x)/10): fn l(x) is log(x) to the base 10T  draws vertical grid du=(um-ul)/10 z=zl u=ul1.05*umdu x=x(u):y=y(z) moveto(%x,%y) linerel(%0,%Ya grappler.#1,".GRAFIX""BGRAF.INV"GRAFIXMODE(%2,%1) HI RES MODE, BUFFER #1 FILLPORT GRAFIXONL0XM=559:YM=191:pi=3.14159:ul=0:um=1:zl=0:zm=1ul=0 um=14zl=0 zm=1.2pi=3.141593a1=xm/(um-ul):b1=-a1v fillport grafixon 2000: set up scale factors,N5000: labels axes and titles the graf.;b6000: defines constants, functions and does the graf.#v7000: closes everything down.F gosub 7500 contains the screen dump to the printer vily, i.e. by just moving the section. btw 6000 and 6999 from one to the other.'1000: initialize graphics screen.D after you've run the program once (and invoked Bgraf.inv), youE  can run it again by typing run 525 so as not to reload graf.ind FILE IS bus.graph2n general program for graphing functions in BB0x place comments about specific program here9 the intent is to have graf.utility very similar to 9 plot utility so that you can switch from one to the7 other vry simpu=l(20):z=l(0.7) 8000@x=x(u):y=y(z) J5000T#1;"LB";A$;+3)^",Y,";"#1;"PA",X,",",Y,";"|X=400:5000#1;"LB"O;+3) p5000 z#1;"PD";*Xa$="CRT Cathode Drive Characteristics"bu=l(20):z=3.1:8000la$="Beam Current (uAmps)" vu=ul:z=zm 8000a$="Video Drive (Volts)"^2)E=10100.5:U=L(E) 0O=A(E) :Z=L(O)DX=X(U):Y=Y(Z)IE=106000KYYM600 N5100XEbECO lX=XL:Y=YL v5000#1;"PU;SP0;"#2,".dmp"#2;27);"M"; #2: #0:#1;"PU;PA",X,",ure is in graphics memory #1 `#7,".DMP"j#7;25);"GSR"t#7~B@ draws vertical grid on a log scale.um-ul is the # of decadesTz=zl ^u=ulumhx=x(u):y=y(z)rmoveto(%x,%y)|linerel(%0,%Ym)moveto(%x+6,%y+8)#1,".grafix"#18100;10^u  #.4Euj=ulum-1 i=29u=j+l(i)x=x(u):y=y(z)MOVETO(%X,%Y)linerel(%0,%YM)ij"A(# draws horizontal grid on a log scale.zm-zl are the decades.<#u=ul F#z=zlzmP#x=x(u):y=nt................ n/a Version ID................. 1.3.0 Press: ESCAPE to exit to top Edit menu ? for Help Edit Driver Parameters Select Device Type................ $63 Char, Read, Write Device Subtype............. $01 Unit Number................ $00 Manufacturer ID............ $0001 Apple Block Cou This is the plotter driver 5 - Configuration Block data Non-changeable information: ...... .RS232 2 - Driver Status.............. ACTIVE 3 - Slot Number................ n/a 4 - Comment / System Configuration Program 5 Jan 86 6:42:17 PM Edit Driver Parameters item field value 1 - Device Name.......... 1-10 min/plot Color Special Hardware Camera Ready Special Paper, Pens etc. Special Software Apple // PLOTING AND GRAPHING WITH THE /// By Carlo Infante FEBRUARY 1986 PROS AND CONS OF PLOTTING PROS CONS Accurate, Beautiful Slow Speed Line Drawings (%X,%Y)rz<=k-w41000|u1=u+k-z:z1=kx=x(u1):y=y(z1)LINETO(%X,%Y)z(u1=u+w:z1=z+w 240070and height h:umoverel(%+8,%0) Duj=110Numoverel(%1,%0)Xulinerel(%0,%h)bumoverel(%0,%-h)lujvu%@ fa un rettangolino tratteggiatoEsales(i)Nlinerel(%10,%0)HNlinerel(%0,%-h)RN70u draws a filled rectangle of width 10 es to point x,y:>moverel(%4,%4)*>#1,".grafix": prints expression D$ >#1;D$>hBx=x(u):y=y(z).rBlineto(%X,%Y): draws a line to point x,y|B&PF moves to point u,z with beam off-ZF use this for the first point of a curvedFxy(z)Z#moveto(%x,%y)d#linerel(%xm,%0)n#moveto(%x+4,%Y+8)x##1,".grafix"##19100;10^z # #.4E#z#j=zlzm-1 #i=29#z=j+l(i)#x=x(u):y=y(z)#MOVETO(%X,%Y)#linerel(%xm,%0)#i#j&':moveto(%x,%y): mov an item to be edited : Device Name Apple /// System Configuration Program 5 Jan 86 6:43:41 PM Edit Driver Configuration Block 0 1 2 3 4 5 6 7 8 9 A B C D E F -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 0x - [0A] 2E 00 00 00 00 00 00 00 00 00 80 Cursor keys ARE allowed ESCAPE to quit ? for Help Cursor is at 00. New M fn l(x) is log(x) to the base 10 2090 pi=3.14159 2999 RETURN TITLING AND LABELING THE PLOT (signing it and dating it too) 5000 REM LABEL PLOT AND AXES 5050 A$="TITLE OF YOUR GRAPH" 5060 B$="INDEPENDENT VARIABLE (u)" 5070 C$="Z" 50-ul):b1=xm-a1*um:DEF FN x(u)=a1*u+b1 2060 a2=y3/(zm-zl):b2=ym-a2*zm:DEF FN Y(z)=a2*z+b2 2070 REM fn x(u) and fn y(z) convert user variables u and z to plotting variables x and y and take care of scaling 2080 DEF FN l(x)=LOG(x)/LOG(10):RE REM We've named the plotter file#1, we activated pen #2 and we've lifted it 1999 RETURN 2000 REM SET UP SCALING FACTORS 2020 xl=750:xm=9750:x3=xm-xl 2030 yl=639:ym=7119:y3=ym-yl 2035 zl=0:zm=1 2040 ul=0:um=1 2050 a1=x3/(umTS AND PLOTS. 630 GOSUB 7000:REM MOVE PEN TO ORIGIN AND RECAPS IT. 640 CLOSE#1:REM TTTHAT'S ALL FOLKS! 650 END INITIALIZING AND SCALING THE PLOT 1000 REM INITIALIZE PLOTTER 1010 OPEN#1,".RS232" 1020 PRINT#1;"IN;SP2;PU;" 1030 AL GRID ON A LINEAR BASIS. 570 GOSUB 4000:REM DRAW HORIZONTAL GRID ON A LINEAR SCALE. 590 GOSUB 5000:REM LABELS AXES AND TITLES THE PLOT 600 PRINT#1;"PU;SP1;PU;":REM SELECT PEN#1 AND LIFT IT 610 GOSUB 6000:REM DEFINES FUNCTION, LOADS CONSTANen to the Stall and Close the Driver PLOTTER.UTILITY MAP 100 REM FILE IS PLOT.UTILITY 200 REM INSERT COMMENTS HERE 500 GOSUB 1000:REM INITIALIZE PLOTTER, SELECT PEN #2 530 GOSUB 2000:REM SET UP SCALE FACTORS 550 GOSUB 3000:REM DRAW VERTICen your variables U,Z and the plotter variables X,Y o This is done with a simple mathematical Expression: def fn X(u) = ...: def fn Y(z) = ... o Specify constants, function to be plotted o Define Plotting Increment o Run the Plot o Return P Initialize the Plotter & Select the Pen (PRINT #1;"IN;SP1") o Define Plotting Area (XL = ....:XM = ...:YL = ...:YM = ...) o Define User Variables and limits (UL = ...:UM = ...:ZL = ...:ZM = ...:) o Scale: i.e. define the mathematical relationship betwes the Plotter that the Command string is Complete. PLOTTING MATHEMATICAL FUNCTIONS What you need to do o Open the Driver (e.g. OPEN #1, ".RS232" o Pen Down Lowers Pen to Paper PA20,15 Plot Absolute Moves Pen to Point 20,15 "PA",X,",",Y,"; Plot Absolute Moves Pen to Point X,Y ";" Terminator TellPlotter to Pick up Select Pen 2 Selected Pen SP0 Restores Pen PU Pen UP Lifts Pen from Paper PD N Initialize Initializes Plotter, Sets up Standard Conditions SP1, SP2 Select Pen 1 Causes er to do something, insert 310 PRINT #1;"command, terminator" At the end of the program insert 60000 CLOSE #1:END EXAMPLES OF SPECIALIZED COMMANDS THAT THE PLOTTER RECOGNIZES COMMAND MEANING EFFECT Idata value: ( range: 00..FF ) PLOTTING IN BUSINESS BASIC with the Apple /// Plotter is treated by SOS like just another peripheral To "Talk to it" you insert a command such as: 300 OPEN #1, ".RS232" Every time you want the plott80 X=XL+X3/2:Y=YM:D$=A$ 5090 GOSUB 15000 5095 Q=-LEN(d$)/2:PRINT#1;"CP",Q,"1.5"; 5097 GOSUB 16000 5100 X=XL+.75*X3:Y=YL:D$=B$ 5104 GOSUB 15000 5108 Q=-LEN(d$)/2:PRINT#1;"cp",Q,"-2"; 5110 GOSUB 16000 5120 X=XL:Y=YM:D$=C$ 5130 GOSUB 15000 5140 PRINT#1;"cp0,.5"; 5150 GOSUB 16000 5700 REM next we figure out the date from the internal clock 5710 REM and we put it on the plot together with the author's name 5720 DIM m$(12) 5730 m$(1)="Jan":m$(2)="Feb":m$(3)="Mar":m$(LOTS. o HAVE FUN.................... Carlo Infante PRODUCE GOOD LOOKING PLOTS. o HAVE FUN.................... Carlo Infantecj PLOTTER SUPPLIES .LJ .LM+5 PlOTTERS NTINUE" GET Z$ TO REMIND YOU OF WHICH PEN TO SWAP AND WHEN FOR MULTICOLOR PLOTS SUMMARY and CONCLUSIONS o PLOTTING WITH THE APPLE /// IN BUSINESS BASIC IS STRAIGHFORWARD o YOU DON'T NEED MUCH IN EITHER HARDWARE OR SOFTWARE TO PRODUCE GOOD LOOKING PCES (HP, INMAC ETC) O USE REGULAR TYPING PAPER FOR TEST PLOTS O PENS AVAILABLE IN TWO WIDTHS: 0.3 AND 0.7 MM O AND IN LOTS OF COLORS O INSERT COMMANDS SUCH AS HOME PRINT "INSTALL RED 0.3 MM IN LEFT STALL" PRINT:PRINT:PRINT PRINT "PRESS ANY KEY TO CO Relative Char. Changes Size of Size Drawn Characters PLOTTER SUPPLIES PlOTTERS REQUIRE SPECIAL PAPER (FOR GOOD QUALITY PLOTS), OVERHEAD MATERIAL AND PENS. O AVAILABLE FROM A VARIETY OF SOUR Set Fonts SL Character Slant Slants Characters SM Symbol Mode Draws Symbol (e.g. +,*) at each point SR Circle Absolute LB Draws Character Draws Character String String SA Select Alternate Selects 1 of 4 Characterso you can "preview" the Plotter Output on the /// screen. EXAMPLES OF OTHER PLOTTING COMMANDS COMMAND MEANING EFFECT AA,CA Arc Absolute Draws Arc/Circle Driver is .GRAFIX Use Smilar Commands e.g. OPEN #1, ".RS232" ----> OPEN #1, ".GRAFIX" PRINT #1 "PU;PA;",X,",",Y,";"----> PERFORM MOVETO(%X,%Y) Need to have BGRAF.INV on Program Disk GRAF.UTILITY AND PLOT.UTILITY Have the same flow and structure th pen up, then puts pen down. 18010 REM use this for the first point on a curve 18020 x= FN x(u):y= FN y(z) 18030 GOSUB 15000 18040 PRINT#1;"PD;" 18050 RETURN SCREEN GRAFICS IN BUS. BASIC WITH THE /// Resolution is limited to 556 x 192 point x,y with pen up 15010 RETURN 16000 PRINT#1;"LB";D$;+CHR$(3):REM prints expression D$ 16010 RETURN 17000 X= FN X(U):Y= FN Y(Z) 17010 PRINT#1;"PA",X,",",Y,";":REM moves to point x,y 17020 RETURN 18000 REM moves pen to point u,z wi6230 FOR u=ul TO um STEP du 6240 z= FN a(u) 6250 IF u=ul THEN GOSUB 18000 6260 GOSUB 17000 6270 NEXT u 6280 NEXT i 6900 RETURN PLOT.UTILITY KEY SUB ROUTINES 15000 PRINT#1;"PU;PA",X,",",Y,";":REM moves pen toconvert from u,z to x,y 6020 REM and to draw a line to the new point 6030 REM use GOSUB 18000 for the first point. 6200 REM HERE'S AN EXAMPLE 6205 du=um/100:REM DEFINES PLOTTING INCREMENT 6210 FOR i=1 TO 5 6220 DEF FN a(u)=SIN(u*pi)/i =day$+" "+month$+" "+y$ 5810 d$="Carlo Infante "+d$ 5820 x=xl:y=yl:GOSUB 15000 5830 PRINT#1;"CP1,-2"; 5840 GOSUB 16000 5999 RETURN HERE'S WHERE WE PLOT! 6000 REM DEFINE FUNCTIONS AND DO THE GRAPH HERE 6010 REM use gosub 17000 to 4)="Apr": m$(5)="May":m$(6)="Jun" 5740 m$(7)="Jul":m$(8)="Aug":m$(9)="Sep":m$(10)="Oct": m$(11)="Nov":m$(12)="Dec" 5750 y$="19"+LEFT$(DATE$,2) 5770 i=VAL(MID$(DATE$,4,2)) 5780 month$=m$(i) 5790 day$=RIGHT$(DATE$,2) 5800 d$REQUIRE SPECIAL PAPER (FOR GOOD QUALITY PLOTS), OVERHEAD MATERIAL AND PENS. O AVAILABLE FROM A VARIETY OF SOURCES (HP, INMAC ETC) O USE REGULAR TYPING PAPER FOR TEST PLOTS O PENS AVAILABLE IN TWO WIDTHS: 0.3 AND 0.7 MM O AND IN LOTS OF COLORS O INSER-&#  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>:)    kLGA3/1.01/LINr GRAFIXMO nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 WBUFLEN !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 RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSEhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀 `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITESWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT Y(Z)=A2*Z+B2D=(UM-UL)/10U=ULUMDX=X(U):Y=YL 5000#1;"PD;PR0",Y3,";PU;""U,D=(ZM-ZL)/106Z=ZL1.05*ZMD @Y=Y(Z)JX=XL T5000^#1;"PD;PR",X3,",0;PU;"Z#1;"PU;SP0;SP2;PU;" X=XL:Y=YL 5000%d GRAPH PAPER: 100x100 i 10 x 10 MAJOR DIVISIONSn#1,".RS232"x#1;"IN;SP1;PU;"XL=750:XM=9750:X3=XM-XLYL=639:YM=7119:Y3=YM-YLUL=0:UM=100ZL=0:ZM=100A1=X3/(UM-UL):B1=XM-A1*UMX(U)=A1*U+B1A2=Y3/(ZM-ZL):B2=YM-A2*ZMYLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE  RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF U=ULUM(UM-UL)/100X=X(U):Y=YL 5000#1;"PD;PR0",Y3,";PU;"UD=(ZM-ZL)100Z=ZLZMDY=Y(Z):X=XL 5000#1;"PD;PR",X3,",0;PU;"Z#1;"PU;SP0;"#2,".PRINTER" #2: #0:#1;"PU;PA",X,",",Y,"; the printer via grappler.#1,".GRAFIX""BGRAF.INV"GRAFIXMODE(%2,%1) HI RES MODE, BUFFER #1 FILLPORT GRAFIXONLx1=xl:x2=xm/2-1y1=yl:y2=ym/2-1ul=0um=1zl=0zm=1e 20000: sub r. 20K defines fn x xm=559:yl=0:ym=191:pi=3.14159%2000: scale and graf quadrant A%3000: scale and graf quadrant B%&4000: scale and graf quadrant C%05000: scale and graf quadrant D#v7000: closes everything down.F gosub 7500 contains the screen dump tod FILE IS RES.4.GRAFS2.n GRAFS FOUR OF THE RESOLUTION DEFINITIONS'x MTFA APPEARS IN LOWER LEFT CORNER( MTF in lower right and upper right spot size in upper right'1000: initialize graphics screen. fillport grafixon&xl=0:"$#1,".GRAFIX":MOVETO(%(X+2),%8) #1O:#1220#2,".dmp" #2: #0:#2,".dmp"#2;25);"GS" #2:(%XM,%0)DB:#1,".GRAFIX""DB=-C+10010,Y=(DB+C)*YM/C6MOVETO(%8,%(Y+8)):#1DB@DBJA(O)=-10*L(1+O^2)TO=.1 ^I=1NhX=X(O):Y=(A(O)+C)*YM/CrDOTAT(%X,%Y) |O=D*OI&#1,".GRAFIX":MOVETO(%XM/2,%YM/2) #1;" K=L(OM/OL):D=(10^K)^(1/N)J=L(OL)L(OM) I=19O=I*(10^J) X=X(O)MOVETO(%X,%0)LINEREL(%0,%YM) I=1500IJ%MOVETO(%559,%0):LINEREL(%0,%YM)C=60DB=-C010Y=(DB+C)*YM/C#MOVETO(%0,%Y):LINERELUN 50000$ FOR COPY OF PROGRAM LISTING, TYPE RUN 10002#1,".GRAFIX"<"BGRAF.INV"FGRAFIXMODE(%2,%1)dFILLPORT:GRAFIXONnOM=100:OL=.1xXM=560:YM=191N=XM FNL(X) IS LOGT(X)L(X)=X)/10)!X(O)=(L(O)-L(OL))*XM/K FREQUENCY PLOTSC O = OMEGA: DEFAULT RANGE IS .1 TO 100 TO CHANGE GOTO STEP 110C VERT. RANGE IS 0 TO -60 dB: TO CHANGE GOTO STEP 240C TO CHANGE XFER FUNCTION FROM SINGLE POLE GOTO STEP 330(" FOR HARD COPY OUTPUT TYPE R"#1;"PA",X,",",Y,";"(u) and fn y(z) so as to convertu and z to x and y for quadrant A here's an example du=(um-ul)/50"k=.01:alpha=1/k)*a(u)=k*alpha*u)4u=ulumdu >z=a(u)Hu=ul18000 R17000\u f21000 pd$="MTFA"zu=.65:z=.8 18000 16000s=1:q=-3.56du=(um-ul)/50b(u)=q*((s*u)^2))u=ulumdu z=b(u)u=ul18000 17000udu=(um-ul)/40u=ulumdu z=a(u)  18000  z1=b(u) z>=z12900 z=z1  17000$ uT  x1=xzm-zl):b2=-a2*zlx(u)=a1*u+b1y(z)=a2*z+b2du=(um-ul)/10u=ul1.05*umduz=zl420moveto(%x,%y)linerel(%0,%Ym)u"dz=(zm-zl)/8,z=zl1.05*zmdz6u=ul@420Jmoveto(%x,%y)Tlinerel(%xm,%0)^zhd file is graticule(n generates standard scope graticulex#1,".GRAFIX""BGRAF.INV"GRAFIXMODE(%2,%1) HI RES MODE, BUFFER #1 FILLPORT GRAFIXON0XM=559:YM=191:pi=3.14159:ul=0:um=1:zl=0:zm=13a1=xm/(um-ul):b1=-a1*ul:a2=ym/(/5:x3=.01*xm:u=ulHXz=zlzmdz X18000Ylinerel(%x3,%0)tYz~Y1-a1*ul"*Na2=(y2-y1)/(zm-zl):b2=y1-a2*zl4Nx(u)=a1*u+b1>Ny(z)=a2*z+b2HNR Su=ul:z=zl:18000`Tlinerel(%x2,%0) T18000(Ulinerel(%0,%y2)Udu=(um-ul)/5Uu=ulumdu TV18000 Vy3=.02*ymWlinerel(%0,%y3)WuWdz=(zm-zl)(u):y=y(z).rBlineto(%X,%Y): draws a line to point x,y|B&PF moves to point u,z with beam off-ZF use this for the first point of a curvedFx=x(u):y=y(z) nF15000xF/F in plot.util I place the pen "down" here" Na1=(x2-x1)/(um-ul):b1=x#.4E#z#j=zlzm-1 #i=29#z=j+l(i)#x=x(u):y=y(z)#MOVETO(%X,%Y)#linerel(%xm,%0)#i#j&':moveto(%x,%y): moves to point x,y:>moverel(%4,%4)*>#1,".grafix": prints expression D$ >#1;D$;>hBx=xETO(%X,%Y)linerel(%0,%YM)ij"A(# draws horizontal grid on a log scale.zm-zl are the decades.<#u=ul F#z=zlzmP#x=x(u):y=y(z)Z#moveto(%x,%y)d#linerel(%xm,%0)n#moveto(%x+4,%Y+8)x##1,".grafix"##19100;10^z # og scale.um-ul is the # of decadesTz=zl ^u=ulumhx=x(u):y=y(z)rmoveto(%x,%y)|linerel(%0,%Ym)moveto(%x+6,%y+8)#1,".grafix"#18100;10^u  #.4Euj=ulum-1 i=29u=j+l(i)x=x(u):y=y(z)MOV8000 xu=-.1 17000 d$="s" 16000u=-u 18000u=2)):z=a(u) 17000moverel(%-11,%-1) d$=">" 16000 X close everythingbl4v for a hard copy via the Grappler type run 7500B@ draws vertical grid on a lzm=1 20000du=(um-ul)/100a(u)=-(u^2))u=ulumdu z=a(u)u=ul18000 17000 u 21000d$="gaussian"(u=-2.8:z=.8 218000 <16000Fu=-2)):z=a(u)P18000:moverel(%-4,%-1) Zd$="<" d16000 n1)"u=ul18000 ,170006u ;d$="*" @i=14Ju=(3*i-1.75)*(um-ul)/12 hz=a(u) m18000rmoverel(%-7,%-1) |16000i d$="MTF" u=.2:z=.2 18000 16000$x1=xL:x2=xm/2+1y1=ym/2+1:y2=ym ul=-3um=3zl=017000N UX I] U=.6*PI:Z=-.8b d$="sine wave" l 18000 v 16000 21000<x1=xm/2+1:x2=xmy1=ym/2+1:y2=ymul=0um=1zl=0zm=1 20000 21000 q=-3.56du=(um-ul)/50a(u)=q*(u^2))u=ulumdu z=a(um/2+1:x2=xm y1=yl:y2=ym/2-1 ul=0 um=pi zl=-1.1 zm=1.2 20000 du=(um-ul)/200 alpha=24 I=14 A=1-.2*(I-1) U1=UL+(UM-UL)*(I-1)/4 U2=U1+(UM-UL)/4 A(U)=A*ALPHA*U)& U=U1U2+DUDU 0 Z=A(U): U=U118000 D 440: x tic marksr510: Y TICK MARKS!|580: PUTS DOTS ON GRATICULEmoveto(%x,%y)x=x(u):y=y(z) x tic marksDU=UM/50:DZ=0.01u=ulumdu Z=.5-DZ420:400:Z=Z+2*DZ420:LINETO(%X,%Y+1)UDZness Basic program that prints graph paper on a -: plotter. -: PLOT.UTIL : Business Basic plot utility program. -: WEIGHT.CHART : Business Basic weight chart program for a plotter. -: CRT.IK.VD.PL : Business Basic program to measure CRT iled programs. The files DCM.ASCII and DCMA.ASCII have more information about the programs. As always, we appreciate your comments. #2: #0:,0 #1;"CP 0,0.1;LBPESO BIMBINA 1985";+3) MOVE SUB ROUTINEX=X(U):Y=Y(Z)#1;"PU;PA",X,",",Y,";" DRAW SUB ROUTINEX=X(U):Y=Y(Z)#1;"PD;PA",X,",",Y,";"  5000#1;"CP-1,-1;LB";J;+3)JII=ZLZM-55 J=14 Z=I+JU=UL &50000U=UM :5100DU=UL N5000X#1;"CP-4,0;LB";Z;+3)bJlIl#1;"PU;SP0;" vU=UL:Z=ZL 5000#2,".dmp"#2;27);"M"#1;"LB";Z;+3)sZtU=2.5:Z=ZM u5000v#1;"SI 0.5,0.75;",x#1;"CP -1,.2;LBWEIGHT CHART 1985";+3) |#1;"PU;SP2;PU;SI 0.1,0.15;" I=03J=0255U=I*(UM-UL)/4+J*(UM-UL)/120Z=ZL J=0490 5000Z=ZM 5100Z=ZLI=04A$U=I*(UM-UL)/4Z=ZL 5000Z=ZM 5100Z=ZL 5000#1;"CP-1,-1.2;"#1;"LB";A$;+3)I%" "SEP","OCT","NOV","DEC","JAN" ,Z=ZLZM56U=UL @5000JU=UM T5100^U=UL c5000h#1;"CP-4,0;"rd FILE IS PESO.BIMBINA3n#1,".RS232"x#1;"IN;SP1;PU;"!XL=750:XM=9750:YL=639:YM=7119UL=0:UM=10:ZL=140:ZM=160B$="PESO BIMBINA 1985"AA1=(XM-XL)/(UM-UL):B1=XM-A1*UM:A2=(YM-YL)/(ZM-ZL):B2=YM-A2*ZMX(U)=A1*U+B1Y(Z)=A2*Z+B2 1:1,4999 #1:#0:=ZM/40:DU=.01Z=ZL1.05*ZMDZ U=.5-DU420:400:U=U+2*DU&420:LINETO(%X,%Y)0Z:DDU=0.1/5:Z=1.6/8N630XZ=1-Z:DU=0.1/5b630lvU=ULUMDU420DOTAT(%X,%Y)U#1,".dmp"#1;27);"M"#current. -: GRATICULE : Business Basic program to generate standard scope -: graticule. -: RES.4.GRAPH.S2 : Business Basic program that graphs four of the -: resolution definitions. -: INSTRUCTIONS : How to use this dis