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,VQ#!a%SEG.T jLŸ/ -READ.ME.FIRST OO&NOISES _S- !S (PEG.LEAP S !IREAD.MEl lO,SKETCHER.III  Q!Q*SOS.DRIVER o >LL*SOS.INTERP 4keQ#! *SOS.KERNEL @"S- !S FONTS S. !S %HELLOELLO UQ%!S+ )HELLO.PIC!@R!R*HELLO.TEXTQ"O%LINES S- !S; *MENU.MAKER L;III.BSB.08u' )BGRAF.INV(Q'!L+&BLOCKS S, !S3 DISKNAME.DAT R!R,DOWNLOAD.INVS. !+FLASHNAME.DATJQ$!S* (FONTDEMO  >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: Business Basic/3BSB-08 Disk Format: Self-booting This disk is full of what we  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򠭠έ魭have a catalog, call (805)-822-8580 and make the request. We hope you enjoy this disk and urge you to contribute to your SIG and the Journal. think are some of the best Business Basic programs from Bob Consorti's On Three Magazine. Over the years, On Three has remained a major supporter of our SARA and frankly deserves the /// community's continued support. If you don't 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` @SATRnpqrstuvwxyz{|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|ystem; and Slow Down or Speed Up your /// (WARNING: DO NOT USE reboot or speed settings with Selector/Catalyst) PATTERNS.PART1 :Graphics Demo RONS.DEMO :Walking Man Demo SPREADSHEETING :De :Program that makes "Headlines" KEYPRESS.DOC :Documentation for KEYPRESS.INV Invokable KEYPRESS.TEST :Demo for KEYPRESS.Inv MISC.DOC.TEST :Demo for MISC.INV Invokable to lock/unlock Reset Key; Reboot S:Another Spreadsheet program for use with Visical/3EZ Pieces DEMO.1 :Graphics Demo DEMO.2 :Graphics Demo DEMO.3 :Graphics Demo GRAPHING.DEMO :Utility to make graphs on screen HEADFIRST RIANS.COLORS :Graphics Demo BRIANS.THREEme :Graphics Demo BYTE.TWO.TEST :For programmers, identifies when a "special key" is pressed CIRCLING.DEMO :Graphics Demo. Should look familiar! CNTL.C.MAYBE t from Basic using MISC.INV invokable BASIC.FOR.D.T :Disk formating utility BASIC.T.E.W.PRG :A program that generates negative square roots and random numbers BENS.SUPER.SLOT :Slot Machine Game Bhics demo LINES : Graphics demo NOISES : Lots of them! FONTDEMO : A font demonstration program SIDE TWO AIRPLANE.SS :Visicalc/3EZ Pieces Decision Support Spreadsheet BAS.BOOT :A program that allows you to reboo  )* 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( Ӣ 􆎐OLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$(/ WAP /// SIG MENU.MAKER PROGRAM (v. 6.1) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY V    ) . 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̑`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`ۅ&ۥeepJ)=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),1VEMENTS>2" The cursor moving keys control movement of the DOT"=7"Examine the numeric keypad. The corresponding numbers"?<"will show you which way the dot will plot on the screen."A"For example: pressing":7F22);"9 will move the dot N************************************ OPEN THE GRAPHICS DRIVER8 YOU MUST HAVE THE GRAFIX DRIVER IN YOUR SOS.DRIVER#1,".GRAFIX"  LOAD THE GRAPHICS ROUTINES œ2529:"BGRAF.INV"InitGrafix:# INSTRUCTIONS ON PEN MOprogram allows you to draw on the graphics *> * screens of the Apple ///, load and save pictures *= * to and from disk in a very easy to use manner. *= * *= ******************** ------------------------- | O N T H R E E | *> * by Stephen M. Dorman | June-July, 1983 | *> * and L. A. Ditson ------------------- *> * *> * This > *******************************************************> * *> * Apple /// Graphics Primer ------------------- *> * & Sketcher | Copyright 1983 by | *> B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXT 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1I=1:I=2I>2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 81+LCA):::: RebootN=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I13000Zha$="{,|,~,}; selects; to new disk; 13))2000 fgrafixon@ SWITCH THE PENCOLOR AND FILLCOLOR (WILL TURN DOT OFF & ON) p,f pencolor(%p) fillcolor(%f) ' ERASE CURRENT BUFFER9( ::"This will erase the picture currently in use.";2 " (CONTINUURN TO QUIT THE PROGRAM"(*"CONTROL-S to SAVE PICTURE TO DISK"/4"CONTROL-W to CHANGE WIDTH OF PLOTTER PEN"@>"Make sure you go back to the sketcher before using these";H" commands."1R"Hit any key to go to the SKETCHER";:reply$+\(reply$15)(f>15)7):1500":'fillcolor(%f),pencolor(%p)@ MAIN SELECTION MENU::"CONTROL SUMMARY","CONTROL-B to CHANGE BUFFER BEING USED"(m=0)(m=2)2040-"CONTROL-C to CHANGE PEN OR FILL COLORS"5"CONTROL-E t 1=Magenta 2=Dark Blue 3=Purple";"4= D. Green 5=Grey 1 6=Med. Blue 7=Lt. Blue"7"8= Brown 9=Orange 10=Grey 2 11=Pink"8"12=Green 13=Yellow 14=Aqua 15=White""Pencolor: ";p"Fillcolor: ";f reply$="1"f=0:p=15.reply$="2"f=15:p=0 8fillcolor(%f):pencolor(%p) BfillportL! PEN COLOR SELECTION ROUTINE(m=0)(m=2)%::15,1080,24: SCREEN FORMAT8:"Here are the choices for pencolor and fillcolor"9"0= BlackNE :=10."You have two choices in the B&W modes:"9" 1). NORMAL (white pen color/black fillcolor)"9" 2). INVERSE (black pen color/white fillcolor)""" Select (1 or 2):";reply$.(reply$)<1)(reply$)>2)7):1000$-E &a$=12)2700: CONTROL-L 0a$=13)2000: CONTROL-M :a$=16)2800: CONTROL-P Da$=17)3050: CONTROL-Q Na$=19)3000: CONTROL-S Xa$=23)3100: CONTROL-Wb410l:1 BLACK AND WHITE PEN COLOR SELECTION ROUTIa$="7"x=x-1:y=y+1:410a$="8"y=y+1:410a$="4"x=x-1:410a$="6"x=x+1:410a$="2"y=y-1:410a$="3"x=x+1:y=y-1:410a$="5"2500 a$=2)3200)a$=3)1500:GRAFIXON: CONTROL-Ca$=5)2600: CONTROL1)y=96:x=140|m=2y=96:x=280m=3y=96:x=70 œ3960 grafixon*dotat(%x,%y):LINETO(%(x+dx),%(y+dy))4 ACTUAL PLOTTING AND CONTROL OF PROGRAM ROUTINEa$:lineto(%(x+w),%y)a$="9"x=x+1:y=y+1:410a$="1"x=x-1:y=y-1:410:"Which buffer (1 or 2):";b(b<1)(b>2)260"b=1a=2:a=1, CLEAR BOTH BUFFERS6grafixmode(%m,%b) @fillport Jgrafixmode(%m,%a):fillportTgrafixmode(%m,%b)^c OPTIONS MENU h2000m INITIAL PEN PLACEMENTr(m=0)(m=XT screen3"3: Mode 3: 140 x 192 Full sixteen color mode"):"Enter your selection:";m$:m=m$) COLOR OR BLACK AND WHITE?(m=0)(m=2)1000(m=1)(m=3)1500(m<0)(m>3)160  INITIAL BUFFER SELECTION)=10:=25 192 dots BLACK AND WHITE (same resolution";" as Apple ]["$" Hi-Resolution mode)4"1: Mode 1: 280 x 192 Limited Hires color mode";"2: Mode 2: 560 x 192 Black and White (80 chars/line)"7" the same resolution of the TEt forget to save the buffers (CONTROL-S) before you quit if"+"you want to start over in a new mode.." (PRESS ANY KEY TO CONTINUE)":REPLY$: MODE SELECTION9::"Select which mode you would like to sketch on:"=10B"0: MODE 0: 280 xE? y/n)";reply$*< (reply$="y")(reply$="Y")fillport F grafixonP + LOAD A PICTURE INTO THE BUFFER IN USE :5 "Enter the file name of picture to load: ";name$ name$)<12710 "You were using buffer"; b;" last". "which buffer 1 or 2 to load it into?:";c (c<1)(c>2)7):2750 grafixmode(%m,%c) gload.name$ grafixmode(%m,%c) grafixon - PAGE FLIPPING ROUTINE-- VARIABLE SPEEDA ::"This subroutine will flip very quickly between the two"B 30C$="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"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 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::"12405l=ơ):: Routine to back up one directory level.a$=С,l-1) s=a$)a$=a$,s-1)a$,1)="/"5060:s=s-1 5030=a$240( MENU.MAKER 6.10 * Thanks to C.M.Davidson for his help!NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 level; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE ,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=21 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES "JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$=grafixmode(%m,%b) w grafixon{ t=1k:t| i  FOTO FILE SAVE ROUTINE :4 "Enter name under which to save picture:";name$ name$)<13010 gsave.name$ grafixon 1 QUITTING ROUTINE: THERE HAS TO BE A WAY OUT& ::p will be so fast as to almost display"E, "both buffers simultaneously. Hit any key to stop the animation"%6 "Enter value greater than 0: ";k@ k<12870 J grafixonT i=110000Y i=10000:^ grafixmode(%m,%a) c grafixonh j=1k:jr "buffers. The speed of this flipping can be controlled, and"8 "may be fun to experiment with for basic animation"6 "The value you give will be the end of a do loop"8 "Try 125. This is a good speed to allow flipping."D" "if you input 1, the fli".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.MAKER",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 RIOfLfL~@@xyp|??|CfLfL~pg@`xf@@1 `C a|0`@?@x~|?@@x~C>C=?O CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLASHER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker" 15initgrafixgrafixmod= WAP /// SIG HELLO PROGRAM. SPECIAL UPDATE 11/17/90 dgo#1,".GRAFIX"".d1/bgraf.inv"gload."HELLO.PIC" 1000:RELEASE:#1:#1,".D1/hello.text" ž#145 #1;ERIN$ #ERIN$(30-#1/2=23:=25:"PRESS ANY KEY TWE'D LOVE TO SEE YOU AT A SIG MEETING! WE ANSWER QUESTIONS & GIVE DEMOS. BEST OF ON THREE BASIC PROGRAMS klm piled by Dave Ottalini WAP /// SIG October, 1990 Reviewed October 15, 1994 You will find a treasure chest of great programs on this disk. Some can be used as is, others must be incorporated into other programs as your needs ca WAP /// SIG PUBLIC DOMAIN LIBRARY 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-0300 THE BEST BUSINESS BASIC PROGRAMS FROM "ON THREE" MAGAZINE ComEAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320Cd3d3fpplf1pF>N|@xy@p~p?|`xx|x@@fLfL~pv?|gyp@B0 a ` ? @@<|y0x~@p<?@@xy@@fLfL~~@p@fLfL~|??@@fLfL~pg0g<|yapLfxrpxd3d3f@@x~p|p@xpCfLfL~p@~xyp|C~psC||@|~@@@yy?@@x~@@d3d3fy~@@?@d3d3fy|??@@d3d3fp0o~}y{pl_v~z@xy@|@3|a O~s?f`~sx@@fLfL~p6L2L2L3L3l3l3d3d3fyx?fLfL~@@xy~?|@@Cd3d3fpg@~xf|~@@x~|??@@|~y@@d3d3fy~@@?@fLfL~|??@fLfL~pgplf1pF>N|@xf@|@?|a?fx~sx@@d3d3fypgI3fM3fM3fL3fLfLfLfLfLfp|?|`p|`p?p~d3d3f@@x~xx|Cd3d3fp@xxy?x@|`p|@@@xy|??@@~?@@fLfL~~@@g@d3d3fyp?sfLfL~@@`xy@Cd3d3fpg7gOf|yapG>xxr@~xfp|Cf0 sC|xC|~@@d3d3fppC<?@@x~@@d3d3fy@x@p@d3d3fy|??~L3d3d3~3gL~~~L~~~3d3d3~L3~x a @00 c@~~3~gLfLfL~3`7`c`ll9f}gL~~p?x@|`x@~L3d3d3~3fL~0 C@0 `~Lx~L{f3~0y@`~~~3gL~`~L3d3d3~x~~L3d3d3~~g~L3d3d3~L`v`?|MsgO@``@gLfLfL~Lxv`??|MsGO<|3~~ |aO~s0?yLcyLc~3gLfLfL~3g{L~~p?x@|`x@~L3d3d3~~a Osa~`|~r GRAFIXMO L?3d3d3~`~`~3gL~~~~3gLfLfL~L3~3?|CO|f0~3gLfLfL~~?C||~~3~~gLfLfL~3gL~x|a s0?aLc|~s~~L~x3d3d3~3`w`?||qgf}gL~~3g|L~0M@y@?`~~3fM3fM3fL3fL3fLfLfLfLfL~L3~~3|gLfLfL~~~L3~~g~L3d3d3~3`gL~~p?x@`~L3d3d3~~` @3a `|a |~~L~~3d3d3~L3~x|ap?aLc|~s~~3>|~?|~gLfLfL~L`6`Ac\l9sfL[3~~~p?|@~p~p~L~L3~0 g@?`~~L2L2L3L3L3l3l3d3d3~3gL~`~L@3d3d3~~~3gLfLfL~~g~L3d3d3~L3~~3gLfLfL~~` O3a~|a|~~3~~?x~~gLfLfL~3ggL~x~p?|@~p?|`~~L>xx`?xx3d3d3~3xv`_?~M{o_?~};gL~~  a @00 c c~3gfLL~~?xq@`~~~L3~`~3gLfLfL~~~3gLfLfL~~g~GA3/1.01/LIN `}wqnkjba_\[ZYXWVURQ$hhhhhh HH H)HHH`20+*)Hhhhhhh HHHH`&$< 詏 )x `a^]NMJGF>=<10/.+* )) y xHHHJJiH 詏 鮀hhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$h J)` `!0 nljhfdcbQNMLJFEDCBA<;6hhhhhh  HH`420.,*)&#"! Rhhhhhh    HH`DB@><:983.+('&$hhh-&#  P  `"hhhhhh  HH`420.,*)&#"! Rhhhhhh  B B HH`yyP`GB HH`)r` @A>~|zxvtslgbWTSRPMED=hhhh   HH`420.-&#  Phhhh   HH`420.h   HH`420.-&#  Phhhhhhhhhh  HH`DB@><:86421.+*)'jhhhhhhhh    X XLJFE>987410/-   `+(%" Bhhh h h h hh hhhhhh  HH`ZXVTRPNLJHFDB@<;85431hhh    `OLIHEDCB?<;8541.+*x  `"hhhhhhhh    HH`XVTRPN.GRAFIX jj# \\JHFD=;9210-,+*)!   v Q )``.`5`=`C`E` `BGRAF (C) APPLE 1980j @@@@ @``` kLK``9(89:9g:h:h L89:mm95:6:6hg gh h 99 O S   L `ee m`iɂ`0`hIhJh\h] wh]h^ w\\ ]] ]L ]L\A \A JHIH`i8\i]i\`\]`K`M %b&*L+ 16>:)    kLhhhhhh HHHH`&$<D^Z FpHx  )) y xHHHJJiH 詏 鮀RETADDR ISOSDSTATGSCB kSOSOPEN INITCHK READPARM5CREFNUM DWBUFADR ?BMOVCHK RBUFADR 7WRITEPAR=SREFNUM FRREFNUM 6WREFNUM >INITFLG KSOSCLOSE RETADDR % ! INITCHK  ITCHK LINETO LINETO WBUFLEN  UFLEN SOSWRITE SWRITERWBUF     CALCABS x q ABS RETADDR CALCABS  ABS RETADDR  SOSDSTAT SDSTATGSCB INITCHK  ITCHK DOTREL DOTREL WBUFLEN  UFLEN SOSWRITE SWRITERWBUF SWRITERWBUF  RETADDR c _ < 8 INITCHK O ITCHK WBUFLEN Y UFLEN SOSWRITE\ SWRITERWBUF T L H D @ DOTAT DOTAT RWBUF ZRNJFCALCABS BRETADDR SOSDSTATSDSTATGSCB  MOVEREL MOVEREL INITCHK ITCHK WBUFLEN UFLEN SOSWRITEWBUFLEN !UFLEN SOSWRITE$SWRITERWBUF BUF RETADDR ieB>INITCHK UITCHK MOVETO MOVETO  WBUFLEN _UFLEN SOSWRITEbSWRITERETADDR INITCHK ITCHK RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  INITCHK ITCHK FILLPORT FILLPORT RETADDR tpINITCHK ITCHK PENCOLOR PENCOLOR RANGECHKNGECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF |x FILLCOLO FILLCOLO TRETADDR  SETCTAB SETCTAB  INITCHK ITCHK RANGECHKHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  'SOSWRITESWRITERWBUF  RETADDR PLINITCHK sITCHK VIEWPORT VIEWPORTWBUFLEN }UFLEN SOSWRITESWRITERWBUF  xplhd`\XUFLEN SOSWRITESWRITERWBUF ~zvrRETADDR $ INITCHK ITCHK XFROPTIO XFROPTIORANGECHKNGECHKWBUFLEN UFLEN #ITCHK WBUFLEN DUFLEN SOSWRITEGSWRITERWBUF ?:72-(SYSFONT SYSFONT RETADDR njDRAWIMAG DRAWIMAGINITCHK ITCHK WBUFLEN RETADDR INITCHK ITCHK RANGECHKECHKWBUFLEN UFLEN SOSWRITESWRITERWBUF  NEWFONT NEWFONT INITCHK =+SOSWRITE@.!RWBUF  83& INITCHK uITCHK GRAFIXON GRAFIXONWBUFLEN UFLEN SOSWRITESWRITERWBUF zBUF GPGSREQDLGRAFIXMO GRAFIXMORBUFLEN 9RANGECHKwWBUFLEN ASOSWRITERWBUF \SOSREAD GBASADR TSOSSMARK$INITCHK ITCHK INITGRAF INITGRAFWBUFLEN  T P SOSDSTATj SDSTATGSCB LINEREL LINEREL INITCHK g ITCHK WBUFLEN  UFLEN SOSWRITE SWRITERWBUF } d ` \ X RELEASE RELEASE INITCHK  ITCHK BMOVCHK  OVCHK INITFLG  ITFLG RWBUF  F SOSDSTAT" SDSTATGSCB % CB INITCHK  ITCHK CREFNUM  EFNUM e(%2,%1) grafixonmaxloops%=2)*2)+4 $15.loopnum%=1maxloops%8angle%=03602Bpc%=16*1):pencolor(%pc%)Lmoveto(%280,%130)1Vx%=25*angle%))+280:y%=25*angle%))+130`lineto(%x%,%y%)bmoveto(%120,%130)1ex%=2S ENDEI/P: FREES UP SPACES USED BY THE 'BGRAF.INV'"Z#1: CLOSING GRAPHICS DRIVER."d:".D1/MENU.MAKER": THE END!#x::"ERROR #";;" IN LINE #";WASTE=02504 DO NOTHING BUT WASTE SOME TIME AND THEN RETURN WASTEGRAFIXON: DAh(: reply$="V"reply$="v"dy=penwidthD  BUFFER SWITCH ROUTINE a,b grafixmode(%m,%b) grafixon dotat(%x,%y) 7; THIS ROUTINE WILL FREE UP MEMORY USED BY GRAPHICS <I=131ARELEASE: THIS FREES UP THE GRAPHICS BUFFERSFlike the pen to be: ";penwidth? ::"Do you wish to change the (H)orizontal or (V)ertical"# "pen width or (B)oth";:reply$! penwidth<03102# :grafixon4& reply$="B"reply$="b"dx=penwidth:dy=penwidth(0 reply$="H"reply$="h"dx=penwidt"This will allow you to quit"? "Do you want to quit without saving your picture? (y/n) "; reply$" reply$="Y"reply$="y"3900  grafixon D PLOTTER PEN WIDTH CHANGING ROUTINE-- VERY INTERESTING EFFECTS! :7 "How wide would you YLOC  SDSTATGSCB  INITCHK  ITCHK XLOC XLOC RETADDR     SOSDSTAT SDSTATGSCB   INITCHK  ITCHK YLOC  ASADR SOSSMARK SSMARKRETADDR  z v INITCHK  ITCHK XYCOLOR XYCOLOR RWBUF  F SOSREAD  SREAD RETADDR  SOSDSTATGPGSREQD GSREQDSOSCLOSE SCLOSEGRAFIXMO AFIXMOGLOAD GLOAD RBUFLEN  N RWBUF    SOSREAD  EAD GBASADR GBASADR ( ASADR SOSDSTAT~ SDSTATGSCB  INITCHK { ITCHK CREFNUM  EFNUM RBUFADR  ADR SREFNUM  EFNUM RREFNUM  M WBUFADR   ADR GSAVE GSAVE WREFNUM F  M GPGSREQD5 GSREQDSOSCLOSE> SCLOSEWBUFLEN 8  LEN SOSWRITE; SWRITERWBUF C F 5*angle%))+120:y%=25*angle%))+130flineto(%x%,%y%) jangle% tloopnum%~15flineto(%x%,%y%) jangle% tloopnum%~15d "PEG.LEAP"n::"REQUEST.INV"Ox=10:=29:"I N I T I A L I Z I N G"::=35:"Please Wait":2000:1300:480 *** Get Instructions$a$:a%=control$,a$):a%=0130/a%150,160,240,320,400,1250:a%<>1130:ۿ *** Return or Enter rom%:=xscrn.from%:cursor$;6>cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$"H=yscreen%:=xscreen%:cursor$7Ryoffset%=ypos.from%-ypos%:xoffset%=xpos.from%-xpos%\yoffset%>0yoffset%=1fxoffset%>0xoffset%=1pyoffset%<0yoffset%=-1zble%(x%,y%-1)=05407 table%(x%,y%-2)=5:table%(x%,y%-1)=0:pos%(from%-9)=0pos%(from%)=0:pos%(move%)=1 table%(x%,y%)=06) *** Got one so blank from and jumped location @*cursor$=space$:table%(xpos.from%,ypos.from%)=5cursor$=oh$)4=yscrn.f(from%+18)<>move%730table%(x%,y%+1)=0540<table%(x%,y%+2)=5:table%(x%,y%+1)=0:pos%(from%+9)=0:790(from%-2)<>move%760table%(x%-1,y%)=0540<table%(x%-2,y%)=5:table%(x%-1,y%)=0:pos%(from%-1)=0:790(from%-18)<>move%540ta/((from%+move%)/2)<>(from%+move%)/2)5403(from%-move%)-2)*(from%-move%)-18)<>0540)y%=from%/9)+1:x%=from%-from%/9)*9(from%+2)<>move%700table%(x%+1,y%)=0540<table%(x%+2,y%)=5:table%(x%+1,y%)=0:pos%(from%+1)=0:790l Move. Try Again..."$Na%=11500::=-1:28);:480AX=22:=31:" Move Peg to Where? ";:=yscreen%:=xscreen%>bypos%=(yscreen%+1)/3+1:xpos%=(xscreen%-10)/6:first%=1:1300lmove%=(ypos%-1)*9)+xpos%:pos%(move%)540vfrom%=move%580os%(from%)600 *** Illegal move@cursor$=space$:table%(xpos.from%,ypos.from%)=5cursor$=oh$)&=yscrn.from%:=xscrn.from%:cursor$;60cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$":=yscreen%:=xscreen%:cursor$1D=20:=1:7);"Illegash$:table%(xpos%,ypos%)=5cursor$=oh.flash$ *** Get from locationHcursor$;:ypos%=(yscreen%+1)/3+1:xpos%=(xscreen%-10)/6:first%=0:130jyscrn.from%=yscreen%:xscrn.from%=xscreen%:ypos.from%=ypos%:xpos.from%=xpos%:from%=(ypos%-1)*9)+xpos%pos%,ypos%)=5cursor$=oh.flash$cursor$;:first%=0 *** Main program[yscreen%=11:xscreen%=40:=23:=25:"Position Cursor And Strike ENTER.";:ypos%=5:xpos%=5*=22:=31:" Move Which Piece? ";X=yscreen%:=xscreen%:cursor$=space.fla)=5cursor$=oh.flash$|cursor$;:first%=0 *** Down arrow key>19470>11(<34>46)470first%4506cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$ cursor$;Y=+3:ypos%=(+1)/3+1:cursor$=space.flash$:tablet%(xprsor$=oh.flash$,cursor$;:first%=06? *** Right arrow key@>52390J(<8>14)>40390Tfirst%3706^cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$ hcursor$;Wr=+6:xpos%=(-10)/6:cursor$=space.flash$:table%(xpos%,ypos%h.flash$cursor$;:first%=0 *** Left arrow key<28130(<8>14)<40310first%2906cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$ cursor$;X"=-6:xpos%=(-10)/6:cursor$=space.flash$:tablet%(xpos%,ypos%)=5cukeyxscreen%=:yscreen%=: *** Up arrow key <5230<11(<34>46)230first%2106cursor$=space$:table%(xpos%,ypos%)=5cursor$=oh$ cursor$;X=-3:ypos%=(+1)/3+1:cursor$=space.flash$:table%(xpos%,ypos%)=5cursor$=oxoffset%<0xoffset%=-1Lcursor$=space$:=yscreen%+(yoffset%*3):=xscreen%+(xoffset%*6):cursor$;" *** Any moves left on board?"count%=0:row%=28:col%=28table%(col%,row%)<>51020count%=count%+1>temp%=0:x%=col%-1col%+1:temp%=temp%+table%(x%,row%):x%temp%=10480>temp%=0:y%=row%-1row%+1:temp%=temp%+table%(col%,y%):y%temp%=10480 col% row%3 *** No more moves. Print appropriate message.B=22:=1:29);:=18:=1:"Only ";count%;" Pieces Remaining,24,24d 126,0,0,0,0,127,0,0,0f 93,0,0,0,0,31,24,24,24h 123,24,24,24,24,120,0,0,0!j 124,24,24,24,24,24,24,24,24l 125,24,24,24,24,31,0,0,0)n 128,128,128,156,162,162,162,156,128)p 129,128,128,128,128,128,128,128,128 32);"[---] [---] [---]"$ 32);"| o | | o | | o |". 32);"{---} {---} {---}"8 32);"[---] [---] [---]"B 32);"| o | | o | | o |"%L 32);"{---} {---} {---}":6);V %_ *** Character redefinition data` 8b 91,0,0,0,0,120,24 | o | | o | | o | | o | | o | | o |"620);"{---} {---} {---} {---} {---} {---} {---}"620);"[---] [---] [---] [---] [---] [---] [---]"6 20);"| o | | o | | o | | o | | o | | o | | o |"6 20);"{---} {---} {---} {---} {---} {---} {---}"32);"{---} {---} {---}"620);"[---] [---] [---] [---] [---] [---] [---]"620);"| o | | o | | o | | o | | o | | o | | o |"620);"{---} {---} {---} {---} {---} {---} {---}"620);"[---] [---] [---] [---] [---] [---] [---]"620);"| o |6:=28:18);"Press RETURN to continue";17);pa$:<>132160y *** Print the boardz:32);"[---] [---] [---]"32);"| o | | o | | o |"32);"{---} {---} {---}"32);"[---] [---] [---]"32);"| o | | o | | o |"rom the game board."bR5);"automatically."::5);"First, position the cursor under the jumping 'peg' and strike"\5);"the ENTER key. Then move the cursor to the empty hole that you":5);"are jumping to and again strike the ENTER key."6f=1 a simple little game that is played a lot like checkers.":5);"The object of the game is to remove as many 'pegs' as possible by"H5);"jumping each 'peg' with another. You may not jump diagonally.":5);"The 'peg' that you jump will be removed fos%((row%-1)*9+col%)=1:: pos%(41)=0:table%(5,5)=0u*1,180,20::::2,279,19::=2:=32:6);"P E G L E A P":=7:=22:"Would You Like Instructions? (Y/N)"44a$:=78=1102170:ۻ<>89<>121a$2100>=4:=1:29);5);" This is9:col%=19:table%(col%,row%)=-5:pos%((row%-1)*9+col%)=0::Irow%=23:col%=46:table%(col%,row%)=5:pos%((row%-1)*9+col%)=1::I row%=46:col%=28:table%(col%,row%)=5:pos%((row%-1)*9+col%)=1::Irow%=78:col%=46:table%(col%,row%)=5:pb%)!a%=19*b%:c%:a$=a$+c%):CONTROL(%17,@a$)".CONSOLE"oh$=128)+8):oh.flash$=18)+128)+17)+8):space$=129)+8):space.flash$=18)+129)+17)+8):control$=13)+11)+8)+21)+10)+27)table%(9,9),pos%(81)Jrow%=17=24:=22:"Do You Wish To Leave This Game? (Y/N)";a$:=89=121:1190<>78<>1101270 1300:=savev%:=saveh%:O=24:=1:30);:=23:18);"Press ESCAPE key To Leave This Game";17);: *** Initialize routineb%:a$=ll Else Fails, Read The Instructions!" *** Play again or exit5=24:=22:"Would You Like To Play Again? (Y/N)";&a$:=89=1212040:1300:480<>78<>1101170::".d1/menu.maker" *** ESCAPE key pressedsavev%=:saveh%=Yet."LVcount%>4count%<8=17:=1:"NOT BAD.":=+1:"Give It Another Shot."`count%<81160jcount%>241150]t=17:=1:"OUCH!":"You Had ";count%;" Pieces Remaining.":"Today Is Not Your Day!":1160Q~=17:=1:"WRONG OBJECTIVE!"::"When A."count%<>110800$=17:=1:"BRAVO!":=+1:"A Perfect Score!"6.table%(5,5)=5"In the center! You're A Genius!"8count%<>21100.B=17:=1:"EXCELLENT!":=+1:"Try Again."GLcount%=3count%=4=17:=1:"GREAT!":=+1:"Don't Give Up / *****************************************/ * Bob's Blocks */ * ------------ */ * This simple little program shows how */ * fast the Apple /// can display diff- */ * erent color/. This program shows you some *0 * of the different sounds the Apple /// *0 * can make. Just type it in and enter *0 * the command 'RUN'. *0 ******************************************!d14);: Turn off the scre0 ******************************************0 * Bob's Noises?? *0 * -------------- *0 * Up to now we have used this column to *0 * show off the graphics capabilities of *0 * the //U.MAKER" 1000(xxdist%=140:ydist%=192:mode%=3:buf%=1'grafixmode(%mode%,%buf%):grafixon fillport 1000a%=01000pencolor(%1)*16)&moveto(%1)*xdist%,%1)*ydist%)&lineto(%1)*xdist%,%1)*ydist%)200"=27:::".D1/MENandom endpoints for the * / * lines so you will get a colorful */ * straw affect. To use, make sure you */ * have '/BASIC/BGRAF.INV' on line. */ *****************************************dœ".D1/BGRAF.INV"ninitgrafix:/ *****************************************/ * Bob's Lines */ * ----------- */ * Another very short program, it will */ * draw lines on your graphics screen. *0 * It picks rlor%100$x.left%=1)*40:x.right%=1)*40(x.left%>x.right%x.left%,x.right%!y.top%=1)*24:y.bot%=1)*24"y.top%>y.bot%y.top%,y.bot%$x.left%,y.top%x.right%,y.bot%"=27:::".D1/MENU.MAKER" 10000/loop.color%=0:back.color%=20:clear.view%=28black%=0:white%=15(text.mode%=16:color.mode%=1!2text.mode%);color.mode%)< c1000dloop.color%=black%white%n200#xback.color%);loop.color%);clear.view%);loop.cos on the screen. Just */ * type in the program and enter 'RUN'. */ * This works best with a color monitor */ * but is still okay without one. */ ****************************************** x.left%=0:x.right%=0:y.top%=0:y.bot%=en3ncount%=0:time%=1:c.val%=16383:mode%=128:vol%=63x#1,".audio":499#1;mode%);vol%);$#1;count%-256*count%/256));#1;count%/256));"#1;time%-256*time%/256));#1;time%/256)); 1000a%=11000cou5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh ghzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~GA3/1.01:7SY GETFONT :".D1/MENU.MAKER"^240)::a=32255:a);:: i=1n!n$=34)+"FONTS/"+n$(i)+34)Getfont(@n$,@a$)Loadfont(@a$)t$=n$(i)+" Character Set" "=1:=1,"73C";t$6=24=@12)"Hit SPACE BAR to EXIT, any other key to continue";Jk$"Tk$<>" " a%(511),a$(23),n$(23)a$="a%":i=1"DOWNLOAD.INV"(#1,"FONTS" 2ž#1200 d#1;b$Pnb$,3,4)<>"FONT"100:a$(i)=b$:n$=b$,16,15):j=115:n$,j,1)<>" "xn$(i)=b$,16,j-1) i=i+1100 n=i-1 :=5j=1n:6)a$(jnt%=1)*c.val%)200500$=27#1:::".D1/MENU.MAKER" 1000YGETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  make Screen Blankers for BOS3 - Bob Consorti's upgrade to SOS (Dec. 1993). Now, what's on this disk? Here's the rundown: SIDE ONE SKETCHER.III : A graphic sketching utility PEG.LEAP : A fun game something like checkers BLOCKS : Grapll for. Please be aware that your WAP /// SIG has modified these programs so that, when done, they will return you to our "Menu.Maker" program. You need to change the code to make it look elsewhere or end if you like. ** Note some of these were used to back issues of On Three by calling 1-(206)-334-8001 (On Three). While you're at it, be sure to get on their mailing list. eful version of this time-setting program All these programs are well documented. Just LOAD and then LIST them to see. Each will also indicate which ON THREE magazine issue they came from. The WAP office has most of these in the library. Or you can get (WARNING: DO NOT USE reboot or speed settings with Selector/Catalyst) PATTERNS.PART1 :Graphics Demo RONS.DEMO :Walking Man Demo SPREADSHEETING :Demo of a Basic Spreadsheet TIMESET :A more us :Documentation for KEYPRESS.INV Invokable KEYPRESS.TEST :Demo for KEYPRESS.Inv MISC.DOC.TEST :Demo for MISC.INV Invokable to lock/unlock Reset Key; Reboot System; and Slow Down or Speed Up your /// Pieces DEMO.1 :Graphics Demo DEMO.2 :Graphics Demo DEMO.3 :Graphics Demo GRAPHING.DEMO :Utility to make graphs on screen HEADFIRST :Program that makes "Headlines" KEYPRESS.DOC office has most of these in the library. Or you can get back issues of On Three by calling 1-(805)-822-8580 (On Three). While you're at it, be sure to get on their mailing list. mo of a Basic Spreadsheet TIMESET :A more useful version of this time-setting program All these programs are well documented. Just LOAD and then LIST them to see. Each will also indicate which ON THREE magazine issue they came from. The WAPFONTSvS. ' ')APPLE.CHRS8 !{1 )ROMAN.CHRS9 !h ,STANDARD.CHRS8 !y{1 >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "!-3>">""w"""""""""""?"  "??""r""w"">""w>**>8c  g"?c6**""w#&*2""w"""""""!!!)."""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$>>< (#21*,*>*>> "2*&" >" ">"  "?8>" """">"""""""< "00>> " """>>6>>***~" "!@?""?$$>>>  @@  >6>6 P"YEEY".333>> >333>!?&>33> 3333 00000633 ++++666666633>33> 6>06>; ++++>3 3333>$? ?pp86>6|~fnl6vf~><~~<`lnf~||f6|<~f|~fnl`<6vfff<<<<<````ff<f66f<<<<<<>~ZZZ>~fff<~f~<>~fv6|~fnl``<~f>><fff~|fff<ZZZ~|f<|>8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p8>"""> > >>> > >""> >> >>>">> >">">>"> ~~ < <~b0pppppppp"AAAAAA>>6>>***~" "w"w>>$$>>>00@@ !~6>6AAAAAA <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,>!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>".&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lg""c***6ccg""< >$>88