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-READ.ME.FIRST%3%SEG.T j)Ÿ/ !@19*HELLO.TEXT170LOMARTIRE11;!1;*MENU.MAKER })>*SOS.DRIVER n4(Z*SOS.INTERP 4ke17! *SOS.KERNEL ?,V17!aIII.MSC.05u' )BGRAF.INV(9(!L+BOSTONjS.!S.DISKNAME.DAT19!T FLASHNAME.DATN19/HELLO 9(!9()HELLO.PIC >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: Contributions Disk 04/III.MSC.05 Disk Format: Self-booting This is our fourth disk full  CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING 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 DISCONNECONV&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򠭠έ魭calc. There's an Imagewriter printer program, and there's Robert Boston's checking utility. Finally, Barbara Dudman offers some throughts on improving our Pascal Menu.Maker program. We hope you enjoy them and encourage your submission of programsof programs contributed from a number of sources. John Lomartire, with programming help from On Three's Bob Consorti, put together a disk cleaning utility. John also contributed a spreadsheet for ranking a set of numbers generated by Advanced VisiABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,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ȢЅ 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]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,^`=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 y^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 lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 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$v5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y5665m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $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{fp ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{ sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠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^Ȋ^6RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^JcJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$` ,`HȘe`{ai|a|h kLF  a h ; ` s 欦op б G je б ɩ ̬ 穰t d sd 7L=LVdʆ `! `Ȣ`  婐 ɩ`$ L2u u`I Il8)id`  z Q>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS 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Ս>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽ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۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈ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΅ƱƳ ΰҥ,J泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H h h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V `` ͝de0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj 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`Π'à̠oQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQST `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_a>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrmopqrstuvwxyz{|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|k it for your own needs. When you first enter data, the program will ask for the beginning balance of your account. After that, each entry identified by a 'D' will add to the balance. An entry marked with anything else will subtract from the balance. Pr BOBBY'S BANKER will help keep your personal bank account in order, if you write fewer than 1,000 checks a year. Although the menu and the prompts should be clear enough, you may like to know about the structure of the entry format, and how you can modifyBOSTONvS.' 'CHECKSS/=j%HELLO .S/S%j$HELPl S/S)jTOTALS/=j  )* 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 ddar|>00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>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 ,<,<.>.>/?/?d0hp<=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,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,23Lhʩd8,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Րrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0    ) . 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{}J) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruzp Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"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$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"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"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:ess RETURN to see examples: -----------------------------------------------| CHECK#, D)EPOSIT, OR S)TOP: D | PAYEE: JUNE PAYCHECK | -----------------------------------------------| AMOUNT: 800 they be checks, deposits, or errors. You don't need to include the asterisk in typing the identifier to cancel the entry. Simply enter 342, D, or whatever the normal identifier is. Just make sure that you don't include an asterisk in any non-tax entries TAX TIME If you wish to mark some entries for tax purposes, simply follow the entry identifier with an asterisk, like 342* or D*. Then, when you select "T" as your menu choice, the program will print all of the entries which include an asterisk, whethert as you usually would. Perhaps you forgot to cancel an error entry. Or perhaps you made an error in one of the uncancelled entries. The program will list all of your uncancelled entries, making your search much easier. more quickly. It takes the balance shown on the bank statement, adds in any uncancelled deposits, subtracts any uncancelled checks, and prints out what your check- book balance should be. If the two numbers disagree, then you must search your records jushe incorrect entry. And remember to cancel the new error correction entry.) BALANCING THE BOOKS In balancing the books, the program does exactly what you'd have to do with pencil, paper, and calculator. It just does the job can correct it. In other words, if you make a mistake, the program won't screw up your records. It will simply tell you that you've made a mistake. (Remember, though, that it won't correct your mistake. You'll have to enter a D or an ERR entry to fix tnter the correct check number, but the incorrect amount, the program will tell you that there is an error in the check entry. In any case, if there is an error, the program will do nothing with the wrong entry. It notifies you of the problem so that you in the amount of the transaction as well. If you enter an incorrect check number, if you've already cancelled the check, or if you enter an incorrect amount for a "D" or "ERR", the program will tell you that it can't find the uncancelled entry. If you er error entries, you simply type in the check number, "D", or "ERR" to indicate that that particular transaction is noted on your bank statement. (Remember to cancel your errors, for the program can't tell them from other withdrawals.) Then you must type---------------------| PAYEE: WRONG DEPOSIT 3/31 | AMOUNT: 7.62 | -----------------------------------------------| CANCELLING ENTRIES When you cancel checks, deposits, o AMOUNT: 13.25 | These entries decrease the | balance because they do NOT | start with a "D" identifier | CHECK#, D)EPOSIT, OR S)TOP: ERR | --------------------------ies DECREASE your balance. | -----------------------------------------------| CHECK#, D)EPOSIT, OR S)TOP: 1352 | PAYEE: SAM'S FLOWER SHOP | -----------------------------------------------| | ----------------------------------------------| PAYEE: ERROR IN CHECK 297 | AMOUNT: 1.32 | -----------------------------------------------| The above entries INCREASE,and the following | entr.32 | | These entries increase the balance because they| start with a "D" identifier. | | CHECK#, D)EPOSIT, OR S)TOP: D . ies. asterisk in any non-tax entries.  program banker! 10a,8a,20a,+4#.2#,4x,+4#.2#Ientry$(1000),can$(100,1):tot=0:start=1:fl$="checks":ft$="total":460,( this subroutine loads the entry$ array$2#1,fl$:#2,ft$:#2;tot,start<x=1tot:#1;entry$(x):FP entry sy$(x),3,1)="/"start=x:ۂ430) this section balances the checkbook y=1:"Loading file...":50*:"Enter bank statement balance: ";r$ r$=""7):1000:z=r$)x=starttot9entry$(x),3,1)=":"1040:z=z+entry$(x),39,8prt#3;entry$(x).fgot=0"Can't find ";can$(z,0),can$(z,1)pz/z"Hit return to file cancelled checks: ";r$* this section files the new checklist:fl$:fl$,#1,fl$ start=1x=1tot:#1;entry$(x):/x=1tot:entr,3,1)=":"860&>entry$(x),11,l)<>can$(z,0)860zHentry$(x),40,7))<>can$(z,1))can$(z,0)<>"d"can$(z,0)<>"D""Error in check ";can$(z,0),can$(z,1):got=1:860ARentry$(x),40,7))=can$(z,1))entry$(x),3,1)=":":got=1#\got=0x:ۻS"790:can$(y,0)=r$)" Amount: ";r$:r$=""7):750:ۻr$)>77):750:can$(y,1)=r$y=y+1:7204  this section searches for the cancelled checks z=1y-1 l=can$(z,0)):got=0*x=starttot4entry$(x)y/n): ";r$:r$<>"Y"r$<>"y"prt=0prt=0720&"Turn printer on. Hit return:";r$#3,".printer"+#3;"Cancelled checks as of ";:#3:#3+:"Check number, D)eposit, S)top: ";r$,r$=""7):720:ۻr$)>47):720&r$="s"r$="Xmenu$="h"menu$="H"1230bmenu$="t"menu$="T"1370Qlmenu$="s"menu$="S":=12:"79C";"PROGRAM ENDED. "::".D1/MENU.MAKER"v7):460! this section cancels checks y=1:"Loading file...":50B"Do you want a printout? (9c";"B = Balance books" "79c";"H = Help " "79c";"T = Tax listing """79c";"S = Stop ":&32);"Enter your choice";0": ";menu$:menu$="e"menu$="E"80Dmenu$="c"menu$="C"650Nmenu$="b"menu$="B"980ft$:ft$,:#2,ft$:#2;tot:#2;start this is the main menu:=5:prt=1"79c";"Banker""79C";"by""79C";"Robert Boston":"79c";"Main Menu": "79c";"E = Enter stuff " "79c";"C = Cancel checks" "7$T:10;day$,nbr$,payto$,amt,0:.^"If not ok type 'N' else hit return: ";r$!hr$="n"r$="N"::::260rbal=bal+amt:tot=tot+1$|#110;day$,nbr$,payto$,amt,bal"10;day$,nbr$,payto$,amt,bal ::260 this files new total,:430&" Date (day only): ";r$7"r$)=1r$="0"+r$:ۻr$)>2r$)<107):260,day$=mo$+r$+yr$*6" Payee: ";payto$*@" Amount: ";money$7Jnbr$="d"nbr$="D"amt=money$):amt=0-money$)$(x):bal=entry$(tot),8)):tot>0entry$(tot)::"Number of month: ";mo$+mo$)<2mo$="0"+mo$+"/":mo$=mo$+"/"&mo$>"12/"mo$<"01/"07):210yr$="/"+Р,2)("Check#, D)eposit, or S)top: ";nbr$nbr$="s"nbr$="S"ectionZ dœ160 nfl$,x#1,fl$ ft$,#2,ft$'" Starting balance: ";bal :210=33180!"Error ";;" in line ";::50:"Loading file . . .">tot>0:fl$:fl$,:#1,fl$:x=1tot:#1;entry)),:"Your checkbook balance should be ";z"$:"Is balance ok? (y/n): ";r$I.r$=""1060:ۻr$)=89r$)=121460:ۻr$)<>78r$)<>110106008:"Here's a list of uncancelled entries:":BB"Do you want a printout? (y/n): ";r$:r$<>"Y"r$<>"y"prt=0Lprt=01130*V"Turn printer on and hit return: ";r$`#3,".printer"jy=0tx=starttot?~entry$(x),3,1)="/"entry$(x):y=y+1:prt#3;entry$(x)-y=20"Hit return to continue: ";r$:y=04:"Your checkbook b4,B$(I),16,B)#5,".PRINTER" $ž#4120 .#4;a$ 8#5;a$ B1070LV:=24:=0::#w=w+.5*(w=0):I=1(w*1000):: Halt Subroutine::=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING.": 1300(=23:=0::"79Ca$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!el; 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 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.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:"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+Lalance, again, should be ";z&:"Hit return to go to menu: ";r$460 this is the help section#3,"help":q=11:1310:q=22:1310:q=22:1310:q=16:1310:q=13:1310 :460. this section prints the help infor";"CONTINUE...?":'(<>89<>121<>78<>11013202=78=11010<9F=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING":P2,280,2 Z1310dn"x ..... "DATE.TIME.LINE" ....M=Ҡ,4,2))BM1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540M$="JANUARY":1550M$="FEBRUARY":1550M$="MARCH":1550M$="APRIL":1550M$="MAY":1550M$="JUNE":1550M$="JULY":1550M$="AUGUST":1550M$="SEPTEMBER":1550M$="OCTOBER":1550M$="NOVLO3L3L3L3|LO0<||Op|C?0|LC?LC??sC|@CLO3L3L3L3|LL|?|?0 @ C00 @ @0 @p@s<|@LL|OO3L3L3L3LO<|@O|sC|sL||OO3L3L3L3LO0<|p@s|CLOp0<|s??@ ?pL|O3L3L3L3L3L3L3L3L3L3L3L3L3L3LO?|pp0<C@@C0GA3/1.01/LINr GRAFIXMO JOIN OTHER WAP /// SIG MEMBERS ON THE TCS! CALL THE WAP OFFICE FOR DETAILS. CONTRIBUTIONS DISK #4 DISK name$=34)+D$+34) GLOAD.D$16);1) GRAFIXONX=12000:X::RELEASE:#5302l ...... WAP /// SIG MENU.MAKER (VERSION 4.55)T1400 ^:WW=1:h |: CHANGE THE FONT".D1/download.inv"C$=B$(I),16,B)array$="C%"name$=34)+C$+34)getfont(@name$,@array$)loadfont(@array$)J=1:SAME=0:215#5,".GRAFIX"".D1/BGRAF.INV"D$=B$(I),16,B)EMBER":1550M$="DECEMBER":1550826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1580$"П,2))=0"12";џ,6);:ٟ;$,П,2))=>12" PM-":" AM-" 61630@WW=1390J=26:=21:1400 LO3L3L3L3||@?OLO3L3L3L3|s?0s0<p3?|@sO?L|p?|<|@C|3|3L3L3L3L3?|| 03O|3LL33LO3L3L3L3|LO3<||Cp LO3L3L3L3|?3|C?pLC??@sp<C3|OO3L3L3L3LO|<|pCp p3p@OO3L3L3L3LO0<|p C00 @ C00 @ 0 @s ss0sO|LOp<|s?CCCsCCL|OO3L3L3L3LO<|pL3LLLL03?L3L3L3LO|s?0|p|?R18:@IF(B18=R14,0,@IF(B18R17:@IF(B17=R14,0,@IF(B17R16:@IF(B16=R14,0,@IF(B16R15:@IF(B15=R14,0,@IF(B15R14:176.97 >R5:176.97 >Q33:175.23 >Q32:@SUM(Q15...Q30)-(C3-2) >Q30:@IF(B30=Q14,0,@IF(B30Q29:@IF5:@IF(B25=R14,0,@IF(B25R24:@IF(B24=R14,0,@IF(B24R23:@IF(B23=R14,0,@IF(B23R22:@IF(B22=R14,0,@IF(B22R21:@IF(B21=R14,0,@IF(B21R20:@IF(B20=R14,0,@IF(B20R19:@IF(B19=R14,0,@IF(B19S32:@SUM(S15...S30)-(C3-2) >R33:176.97 >R32:@SUM(R15...R30)-(C3-2) >R30:@IF(B30=R14,0,@IF(B30R29:@IF(B29=R14,0,@IF(B29R28:@IF(B28=R14,0,@IF(B28R27:@IF(B27=R14,0,@IF(B27R26:@IF(B26=R14,0,@IF(B26R20 BOT 0,171.05 V -1,0 BOT 0,176.18 V -1,0 BOT 0,176.26 V -1,0 BOT 0,177.78 V -1,0 BOT 0,175.23 V -1,0 BOT 0,176.97 V -1,0 EOD TABLE 0,1 "" VECTORS 0,1 "" TUPLES 0,16 "" DATA 0,0 "" -1,0 BOT 0,185.4 V -1,0 BOT 0,186.24 V -1,0 BOT 0,185.63 V -1,0 BOT 0,186.1 V -1,0 BOT 0,186.54 V -1,0 BOT 0,182.73 V -1,0 BOT 0,180.19 V -1,0 BOT 0,180.42 V -1,0 BOT 0,174.22 V -1,0 BOT 0,168.88 V -1,Hit return to goto Main Menu: ";r$460$:r$<>"Y"r$<>"y"prt=0nprt=01420*x"Turn printer on and hit return: ";r$#3,".printer" :y=0 x=1tot>entry$(x),"*")<>0y=y+1:entry$(x):prt#3;entry$(x)1y<201470::"Hit return to continue: ";r$y=0("(B29=Q14,0,@IF(B29Q28:@IF(B28=Q14,0,@IF(B28Q27:@IF(B27=Q14,0,@IF(B27Q26:@IF(B26=Q14,0,@IF(B26Q25:@IF(B25=Q14,0,@IF(B25Q24:@IF(B24=Q14,0,@IF(B24Q23:@IF(B23=Q14,0,@IF(B23Q22:@IF(B22=Q14,0,@IF(B22Q21:@IF(B21=Q14,0,@IF(B21Q20:@IF(B20=Q14,0,@IF(B20Q19:@IF(B19=Q14,0,@IF(B19Q18:@IF(B18=Q14,0,@IF(B18Q17:@IF(B17=Q14,0,@IF(B17Q16:@IF(B16=Q14,0,@IF(B16Q8.88 >K33:174.22 >K32:@SUM(K15...K30)-(C3-2) >K30:@IF(B30=K14,0,@IF(B30K29:@IF(B29=K14,0,@IF(B29K28:@IF(B28=K14,0,@IF(B28K27:@IF(B27=K14,0,@IF(B27K26:@IF(B26=K14,0,@IF(B26K25:@IF(B25=K14,0,@IF(B25F(B21L20:@IF(B20=L14,0,@IF(B20L19:@IF(B19=L14,0,@IF(B19L18:@IF(B18=L14,0,@IF(B18L17:@IF(B17=L14,0,@IF(B17L16:@IF(B16=L14,0,@IF(B16L15:@IF(B15=L14,0,@IF(B15L14:168.88 >L5:1628L27:@IF(B27=L14,0,@IF(B27L26:@IF(B26=L14,0,@IF(B26L25:@IF(B25=L14,0,@IF(B25L24:@IF(B24=L14,0,@IF(B24L23:@IF(B23=L14,0,@IF(B23L22:@IF(B22=L14,0,@IF(B22L21:@IF(B21=L14,0,@I,0,@IF(B17M16:@IF(B16=M14,0,@IF(B16M15:@IF(B15=M14,0,@IF(B15M14:171.05 >M5:171.05 >L33:168.88 >L32:@SUM(L15...L30)-(C3-2) >L30:@IF(B30=L14,0,@IF(B30L29:@IF(B29=L14,0,@IF(B29L28:@IF(B28=L14,0,@IF(B@IF(B24M23:@IF(B23=M14,0,@IF(B23M22:@IF(B22=M14,0,@IF(B22M21:@IF(B21=M14,0,@IF(B21M20:@IF(B20=M14,0,@IF(B20M19:@IF(B19=M14,0,@IF(B19M18:@IF(B18=M14,0,@IF(B18M17:@IF(B17=M14...M30)-(C3-2) >M30:@IF(B30=M14,0,@IF(B30M29:@IF(B29=M14,0,@IF(B29M28:@IF(B28=M14,0,@IF(B28M27:@IF(B27=M14,0,@IF(B27M26:@IF(B26=M14,0,@IF(B26M25:@IF(B25=M14,0,@IF(B25M24:@IF(B24=M14,0,14,0,@IF(B20N19:@IF(B19=N14,0,@IF(B19N18:@IF(B18=N14,0,@IF(B18N17:@IF(B17=N14,0,@IF(B17N16:@IF(B16=N14,0,@IF(B16N15:@IF(B15=N14,0,@IF(B15N14:176.18 >N5:176.18 >M33:171.05 >M32:@SUM(M150,@IF(B27N26:@IF(B26=N14,0,@IF(B26N25:@IF(B25=N14,0,@IF(B25N24:@IF(B24=N14,0,@IF(B24N23:@IF(B23=N14,0,@IF(B23N22:@IF(B22=N14,0,@IF(B22N21:@IF(B21=N14,0,@IF(B21N20:@IF(B20=NB16=O14,0,@IF(B16O15:@IF(B15=O14,0,@IF(B15O14:176.26 >O5:176.26 >N33:176.18 >N32:@SUM(N15...N30)-(C3-2) >N30:@IF(B30=N14,0,@IF(B30N29:@IF(B29=N14,0,@IF(B29N28:@IF(B28=N14,0,@IF(B28N27:@IF(B27=N14,=O14,0,@IF(B23O22:@IF(B22=O14,0,@IF(B22O21:@IF(B21=O14,0,@IF(B21O20:@IF(B20=O14,0,@IF(B20O19:@IF(B19=O14,0,@IF(B19O18:@IF(B18=O14,0,@IF(B18O17:@IF(B17=O14,0,@IF(B17O16:@IF(4,0,@IF(B30O29:@IF(B29=O14,0,@IF(B29O28:@IF(B28=O14,0,@IF(B28O27:@IF(B27=O14,0,@IF(B27O26:@IF(B26=O14,0,@IF(B26O25:@IF(B25=O14,0,@IF(B25O24:@IF(B24=O14,0,@IF(B24O23:@IF(B23F(B19=P14,0,@IF(B19P18:@IF(B18=P14,0,@IF(B18P17:@IF(B17=P14,0,@IF(B17P16:@IF(B16=P14,0,@IF(B16P15:@IF(B15=P14,0,@IF(B15P14:177.78 >P5:177.78 >O33:176.26 >O32:@SUM(O15...O30)-(C3-2) >O30:@IF(B30=O126=P14,0,@IF(B26P25:@IF(B25=P14,0,@IF(B25P24:@IF(B24=P14,0,@IF(B24P23:@IF(B23=P14,0,@IF(B23P22:@IF(B22=P14,0,@IF(B22P21:@IF(B21=P14,0,@IF(B21P20:@IF(B20=P14,0,@IF(B20P19:@I15:@IF(B15=Q14,0,@IF(B15Q14:175.23 >Q5:175.23 >P33:177.78 >P32:@SUM(P15...P30)-(C3-2) >P30:@IF(B30=P14,0,@IF(B30P29:@IF(B29=P14,0,@IF(B29P28:@IF(B28=P14,0,@IF(B28P27:@IF(B27=P14,0,@IF(B27P26:@IF(BK24:@IF(B24=K14,0,@IF(B24K23:@IF(B23=K14,0,@IF(B23K22:@IF(B22=K14,0,@IF(B22K21:@IF(B21=K14,0,@IF(B21K20:@IF(B20=K14,0,@IF(B20K19:@IF(B19=K14,0,@IF(B19K18:@IF(B18=K14,0,@IF(B18K17:@IF(B17=K14,0,@IF(B17K16:@IF(B16=K14,0,@IF(B16K15:@IF(B15=K14,0,@IF(B15K14:174.22 >K5:174.22 >J33:180.42 >J32:@SUM(J15...J30)-(C3-2) >J30:@IF(B30=J14,0,@IF(B30J29:@IF(B29=J14,0,@IF(B29E27:@IF(B27=E14,0,@IF(B27E26:@IF(B26=E14,0,@IF(B26E25:@IF(B25=E14,0,@IF(B25E24:@IF(B24=E14,0,@IF(B24E23:@IF(B23=E14,0,@IF(B23E22:@IF(B22=E14,0,@IF(B22E21:@IF(B21=E14,0,@IF(B21<,2,1)) >F16:@IF(B16=F14,0,@IF(B16F15:@IF(B15=F14,0,@IF(B15F14:186.1 >F5:186.1 >F1:/GCC7 >E33:185.63 >E32:@SUM(E15...E30)-(C3-2) >E30:@IF(B30=E14,0,@IF(B30E29:@IF(B29=E14,0,@IF(B29E28:@IF(B28=E14,0,@IF(B28F23:@IF(B23=F14,0,@IF(B23F22:@IF(B22=F14,0,@IF(B22F21:@IF(B21=F14,0,@IF(B21F20:@IF(B20=F14,0,@IF(B20F19:@IF(B19=F14,0,@IF(B19F18:@IF(B18=F14,0,@IF(B18F17:@IF(B17=F14,0,@IF(B17F30:@IF(B30=F14,0,@IF(B30F29:@IF(B29=F14,0,@IF(B29F28:@IF(B28=F14,0,@IF(B28F27:@IF(B27=F14,0,@IF(B27F26:@IF(B26=F14,0,@IF(B26F25:@IF(B25=F14,0,@IF(B25F24:@IF(B24=F14,0,@IF(B24G19:@IF(B19=G14,0,@IF(B19G18:@IF(B18=G14,0,@IF(B18G17:@IF(B17=G14,0,@IF(B17G16:@IF(B16=G14,0,@IF(B16G15:@IF(B15=G14,0,@IF(B15G14:186.54 >G5:186.54 >G1:/GCC7 >F33:186.1 >F32:@SUM(F15...F30)-(C3-2)6:@IF(B26=G14,0,@IF(B26G25:@IF(B25=G14,0,@IF(B25G24:@IF(B24=G14,0,@IF(B24G23:@IF(B23=G14,0,@IF(B23G22:@IF(B22=G14,0,@IF(B22G21:@IF(B21=G14,0,@IF(B21G20:@IF(B20=G14,0,@IF(B20H15:@IF(B15=H14,0,@IF(B15H14:182.73 >H5:182.73 >G33:186.54 >G32:@SUM(G15...G30)-(C3-2) >G30:@IF(B30=G14,0,@IF(B30G29:@IF(B29=G14,0,@IF(B29G28:@IF(B28=G14,0,@IF(B28G27:@IF(B27=G14,0,@IF(B27G2) >H22:@IF(B22=H14,0,@IF(B22H21:@IF(B21=H14,0,@IF(B21H20:@IF(B20=H14,0,@IF(B20H19:@IF(B19=H14,0,@IF(B19H18:@IF(B18=H14,0,@IF(B18H17:@IF(B17=H14,0,@IF(B17H16:@IF(B16=H14,0,@IF(B16H28:@IF(B28=H14,0,@IF(B28H27:@IF(B27=H14,0,@IF(B27H26:@IF(B26=H14,0,@IF(B26H25:@IF(B25=H14,0,@IF(B25H24:@IF(B24=H14,0,@IF(B24H23:@IF(B23=H14,0,@IF(B23I18:@IF(B18=I14,0,@IF(B18I17:@IF(B17=I14,0,@IF(B17I16:@IF(B16=I14,0,@IF(B16I15:@IF(B15=I14,0,@IF(B15I14:180.19 >I5:180.19 >H33:182.73 >H32:@SUM(H15...H30)-(C3-2) >H30:@IF(B30=H14,0,@IF(B301)) >I25:@IF(B25=I14,0,@IF(B25I24:@IF(B24=I14,0,@IF(B24I23:@IF(B23=I14,0,@IF(B23I22:@IF(B22=I14,0,@IF(B22I21:@IF(B21=I14,0,@IF(B21I20:@IF(B20=I14,0,@IF(B20I19:@IF(B19=I14,0,@IF(B19J14:180.42 >J5:180.42 >I33:180.19 >I32:@SUM(I15...I30)-(C3-2) >I30:@IF(B30=I14,0,@IF(B30I29:@IF(B29=I14,0,@IF(B29I28:@IF(B28=I14,0,@IF(B28I27:@IF(B27=I14,0,@IF(B27I26:@IF(B26=I14,0,@IF(B26J21:@IF(B21=J14,0,@IF(B21J20:@IF(B20=J14,0,@IF(B20J19:@IF(B19=J14,0,@IF(B19J18:@IF(B18=J14,0,@IF(B18J17:@IF(B17=J14,0,@IF(B17J16:@IF(B16=J14,0,@IF(B16J15:@IF(B15=J14,0,@IF(B12,1)) >J28:@IF(B28=J14,0,@IF(B28J27:@IF(B27=J14,0,@IF(B27J26:@IF(B26=J14,0,@IF(B26J25:@IF(B25=J14,0,@IF(B25J24:@IF(B24=J14,0,@IF(B24J23:@IF(B23=J14,0,@IF(B23J22:@IF(B22=J14,0,@IF(B22E20:@IF(B20=E14,0,@IF(B20E19:@IF(B19=E14,0,@IF(B19E18:@IF(B18=E14,0,@IF(B18E17:@IF(B17=E14,0,@IF(B17E16:@IF(B16=E14,0,@IF(B16E15:@IF(B15=E14,0,@IF(B15E14:185.63 >E5:185.63 >E1:/GCC7 >D33:186.24 >D32:@SUM(D15...D30)-(C3-2) >D30:@IF(B30=D14,0,@IF(B30D29:@IF(B29=D14,0,@IF(B29D28:@IF(B28=D14,0,@IF(B28D27:@IF(B27=D14,0,@IF(B27D26:@IF(B26=D14,0,@IF(B26D25:@IF(B25=D14,0,@IFme any comments, etc. that you might have. Drop me a line, call me, or leave a message on Compuserve. Sincerely, John Lomartire 34 Burr School Rd. Westport, CT 06880 (203)-226-4198 CIS # 72307,1000 up and print it out if you like. "TEMP.DIF.HOR" is the DIF file used to enter existing horizontal values in a vertical arrangement as explained in the article text. If you want to publish this in the WAP journal, be my guest. In particular I would welcoproposed article describing the technique. Formatting commands have NOT been entered so that it must be formatted to the desired layout. "SORT.VC" is an Advanced Visicalc file of an example spreadsheet in which 16 numbers are ranked. You can bring this n disclosed. In use, it goes pretty fast, but not as fast as the 3 EZ Pieces sort. Also, if you have a lot of numbers involved, it may take a while to run through them all, so don't think the computer has hung up. "VC.SORT.WP" is an ASCII file and is a September 3, 1990 Dear Dave, The three files on this disk, other than "READ.ME" which is what you are now reading, give details on a procedure for ranking a set of numbers generated by Advanced Visicalc. As far as I know no such procedure has ever bees ==> >A5:"Original Values >A3:"# Values for sorting >A1:"SORTING A VISICALC W >A1:/GCC20 /W1 /GOC /GRA /GADY /GC7 /X>A1:>A1: /PSLY /PSBN /PSTN /PS#N /PSP55 /PSW200 /PSF66 /PSM0 /PSR 5.4 >B1:"ORKSHEE >B1:/GCC7 >A33:"Original Values >A32:"Corrected Sum (Rank) >A30:"_________|__________ >A29:/ADY LC::"| >A28:/ADY LC::"| >A27:/ADY LC::"| >A18:/ADY LC::"| >A17:/ADY LC::"| >A16:/ADY LC::"| >A15:/ADY LC::"Original Values >A14:"Original Value=C14,0,@IF(B15C14:185.4 >C5:185.4 >C3:16 >C1:"T >C1:/GCC7 >B30:176.97 >B29:175.23 >B28:177.78 >B27:176.26 >B26:176.18 >B25:171.05 >B24:168.88 >B23:174.22 >B22:180.42 >B21:180.19 >B20:182.73 >B19:186.54 >B18:186.1 >B17:185.63 >B16:186.24 >B15:184,0,@IF(B22C21:@IF(B21=C14,0,@IF(B21C20:@IF(B20=C14,0,@IF(B20C19:@IF(B19=C14,0,@IF(B19C18:@IF(B18=C14,0,@IF(B18C17:@IF(B17=C14,0,@IF(B17C16:@IF(B16=C14,0,@IF(B16C15:@IF(B15,@IF(B29C28:@IF(B28=C14,0,@IF(B28C27:@IF(B27=C14,0,@IF(B27C26:@IF(B26=C14,0,@IF(B26C25:@IF(B25=C14,0,@IF(B25C24:@IF(B24=C14,0,@IF(B24C23:@IF(B23=C14,0,@IF(B23C22:@IF(B22=C1@IF(B18D17:@IF(B17=D14,0,@IF(B17D16:@IF(B16=D14,0,@IF(B16D15:@IF(B15=D14,0,@IF(B15D14:186.24 >D5:186.24 >D1:/GCC7 >C33:185.4 >C32:@SUM(C15...C30)-(C3-2) >C30:@IF(B30=C14,0,@IF(B30C29:@IF(B29=C14,0(B25D24:@IF(B24=D14,0,@IF(B24D23:@IF(B23=D14,0,@IF(B23D22:@IF(B22=D14,0,@IF(B22D21:@IF(B21=D14,0,@IF(B21D20:@IF(B20=D14,0,@IF(B20D19:@IF(B19=D14,0,@IF(B19D18:@IF(B18=D14,0,SORTING A GROUP OF VALUES IN ADVANCED VISICALC by John Lomartire Advanced Visicalc has been one of my favorite spreadsheets for the Apple /// but from time to time I have encountered situations where it would be helpful if the numbers generated by the s1)) [Remember to use the cell designations that apply for your particular matrix.] All this expression says is, if B15=C14 enter "0". If B15=<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>:)    kLhat the cells with a "1" belong to horizontal values that are LESS than the first vertical value, and that a "2" goes with horizontal values that are GREATER than the first vertical value. A zero, of course, means that the vertical and horizontal numbers hhhhhh 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 is the number of values being compared should appear in this row (row 32). For convenience, the original values can then be replicated again in the row below these ranking numbers (row 33) so that you can tell at a glance each number's ranking. An abilit your spreadsheet.] This takes the sums of each column in the matrix and subtracts the total number of values being compared minus two. In the example, this is entered in the expression as (C3-2). Numbers from "1" to the "X" where "X" ls from C15 through R30. (Zeros may also appear in other places if one or more values are duplicated.) At the bottom of the first matrix column (col. C) enter @SUM(C15 ... C30) - (C3-2) [Remember to use the notation that applies to se R for the B15 question and N for the C14 question. These R and N choices are repeated for each column and as they are entered, a "0", "1", or "2" should appear in the vertical cells. When completed, the matrix will have "0" showing in the diagonal celare the same. To fill out the rest of the matrix, replicate the entire first row (row 15) down the rest of the vertical values with /RC15 ... R15:C16 ... C30 RETURN Now, because the comparison involves each horizontal value with every vertical value, uNY KEY TO 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"= WAP /// SIG HELLO PROGRAM. SPECIAL UPDATE 11/17/89 DGO#1,".GRAFIX"".d1/bgraf.inv"gload."HELLO.PIC" grafixon G$::RELEASE:#1:#1,".D1/hello.text" ž#145 #1;ERIN$ #ERIN$(30-#1/2=23:=25:"PRESS AYLOC  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 y to rank a set of numbers can be particularly important if statistical considerations are to be applied to the set of values. It is easy to pick out the median, extremes, etc. With a little practice, it is easy to add more numbers to a matrix and have an automatic reassessment of the rankings for the expanded number series. Admittedly, this is slower than the sorting feature available in 3 E Z Pieces, but if you have a need to sort in Advanced Visicalc, it is one way of getting the computer to do the woXXXXXXXXXXXXXXXXXXXXXXXX>JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAHXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; GXXXXXXXXXXXXXXXXXXXXXXXXXXXA FXXXControl program. c Printer Control program. omplete knowledge of Pascal. See the Read.Me.First file for more complete information about the files. Ms. Dudman has also provided an update to the ALLDUMP.INV invokable (see the files DUMPER and DUMPER.DOCS.) PRINTER.CONTROL: A Basic Printer d Disk.Code invokable to make it easier to clean your disk drives.) DUDMAN (subdirectory) - Barbara Dudman has provided the /// SIG with a number of improvements to the Pascal Menu.Maker programs (Disks 3PCL-10&11). To use them, you must have a cle (Pascal text form) used with Disk.Clean - DOCS :ASCII version of DISK.TEXT - DT.BASIC :Short Basic program to show how Disk.Text invokable works. - READ.ME.FIRST :About this program. (Many thanks to On Three's Bob Consorti who provide Visicalc file of an example spreadsheet in which 16 numbers are ranked. DESCRIPTION: On Side Two: LOMARTIRE2 (subdirectory) - DISK.CLEAN :A new version of Disk.Clean to help clean your disk drives. - DISK.TEXT :Invokable modu for using a procedure for ranking a set of numbers generated by Advanced Visicalc. - TEMP.DIF.HOR :The DIF file used to enter existing horizontal values. - VC.SORT.WP :Article describing the technique. - SORT.VC :An Advanced WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Contributions Disk 04 DISK ID#: 3MSC-05 BOOTABLE? Bootable The fourth PD disk full of programs/articles from WAP members. On Side One: LOMARTIRE1 (subdirectory) - READ.ME :Instructions to our PD library. rk. Finally, this technique works only for numbers because the built-in Visicalc functions treat all labels as having a "value" of zero. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA EXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXD DXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX2 CXXXXXXXXXXXXXXXXXX>BXXX