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 (30CHAPTER.2_#_#CHAPTER.3_#_#CHAPTER.4_#_#CHAPTER.5_#_#CHAPTER.6_#_#-READ.ME.FIRST  06IFLASHNAME.DATpG06w *MENU.MAKER r | *SOS.DRIVER {4 Z.TABLE.CONTENTS G0_*FIRST.PAGE __CHAPTER.1_"_"III.WDP.08u' *HELLO.TEXT05HELLO 05/ *SOS.INTERP 4ke05! *SOS.KERNEL @,V06!a%SEG.T lj06Ÿ/ DISKNAME.DATo >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L1)-984-0300 WELCOME! WAP /// SIG Public Domain Library Category/Number: Word Processing/3WDP-08 Disk Format: Self-booting Write On! /// is on 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: FLASchapters as we have time - or volunteers. We hope you enjoy it and encourage your submission of programs to our PD library. e of the original word procesing programs for our SARA. Originally an Apple // program, it was rewritten in Business Basic for the Apple ///. It has some interesting features - which our partially transcribed manual described. We will add 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` @SATRWrite On! PLE PI PD DISK 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"kmn79C";"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ʆSTL8HSITQQSTTHE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. T 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),qstuvwxyVOLUME 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 1660,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":1750M$="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:=21 HH`Ln,/023x #) "# (```'+"'*CFMRZ_ '058FV[fjsuw;Console 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"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrz|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|l; 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 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:"7Driver -- Copyright (C) 1983 by Apple Computer Inc..CONSOLE aO  OO&+- ((((PPPPBTVSPLH   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}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==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: ,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̰+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<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`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &xix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL `ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mww HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4www """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 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 ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  ,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥeepɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #ihat Write-On! Can Do For You . . . . . . . . 1-1 What You Will need............................1-3 Setting Up The System.........................1-5 Making Write-On! Work Diskettes . . . . . . 1 Chapter 1 - Welcome to the World of Write-On! W WRITE-ON! USER'S MANUAL TabIe of Contents    ) . 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ئȢΆѽϽ`/-7 How To Learn Write-On!........................1-8 Some Basic Concepts...........................1-9 Chapter 2 - Your First Session With Write-On! Entering Your First Document . . . . . . . . 2-1 Command Mode..................................2-3 Positioning thdapted to your AppIe ///. Essentially, WRITE-ON! /// works exactIy as described in this manuaI except: 1. WRITE-ON! /// is much faster than the versions which run on the Apple II. You've used WRITE-ON! before. You will find that thi WRITE-ON! /// This page describes the few differences between the WRITE-ON! programs which run on the Apple II computer and this new version especially aems and Solutions .......................6-6 Using Data Files .............................5-5 The Data File Converter ......................5-10 Chapter 6 - Help!! Error Message ................................6-1 Probl Chapter 5 - Data Files Data Files ...................................5-1 Creating Data Files ..........................5-2 Editing a Data File ..........................5-4 cript Margins . . . . . . . . .4-17 Temporary Margins.............................4-20 Print-Image Disk FiIes . . . . . . . . . . . .4-23 Chaining Files Together . . . . . . . . . . . 4-24 .....4-8 UnderIining and Overstriking . . . . . . . . .4-10 Tabs..........................................4-11 Keyboard Input of Variables . . . . . . . . . 4-14 Alternate or S Page Characteristics..........................4-2 Printing Format...............................4-4 SpeciaI Page Numbering . . . . . . . . . . . 4-6 Line Commands............................k File........................3-8 Chapter 4 - Printing Techniques Printer Commands..............................4-1 Inserting Text Into the Document . . . . . . .3-1 Rearranging Text..............................3-3 Global Change and Repeat Change . . . . . . .3-6 Merging in a Dis Loading a File From Disk......................2-11 A Quick Review................................2-12 Chaptor 3 - Editing Techniques e CLP...........................2-4 Making Simple Corrections . . . . . . . . . .2-5 Saving the Text File..........................2-7 Printing the Document.........................2-9 s version reads and writes more efficiently to disk. This means that programs and text load faster. 2. WRITE-ON! /// uses all the features of the Apple /// and its SOS operating system. Therefore, you don't need the InstCHAPTER.3v_#' 'CHAPTER.2v_#' 'CHAPTER.1v_"'  '(PAGE.1.1k9 see what happens! 5. Since the Apple /// has an 8O-characer display screen, we have added a feature which allows you to preview your finished document on the screen without printing it. Try the SCREEN option when using the PRlNTER program andkette called "BUSINESS.LETTERS" in the second disk drive, you could save a new file called "NEW.CUSTOMER" in either of two ways: FlLE NAME VOLUME NEW.CUSTOMER BUSINESS.LETTERS NEW.CUSTOMER .D2 4. WRITE-ON! /// will ask for a "volume name" when you want to get or save a disk file. This can either be the disk drive address or the volume name given to The diskette when it was created. For instance, if you have a dis.EX2 FORM LETTER EXAMPLE FORM.LETTER.EX MAILING LABEL EXAMPLE MAIL.LABEL.EX D.DATA FILE EXAMPLE D.DATA FILE.EX SCRIPT EXAMPLE SCRIPT.EX BS.EX.1 TABS EXAMPLE 2 TABS.EX.2 KBD INPUT EXAMPLE KBD.INPUT.EX TEMP MARGIN EXAMPLE 1 TEMP.MARGIN.EX1 TEMP MARGIN EXAMPLE 2 TEMP.MARGINexamples mentioned in the User's Manual as follows: MANUAL WRITE-ON! // REARRANGEMENT SAMPLE REARRANGE.SAM TABS EXAMPLE 1 TAallation Program, Lower Case Adapter or Shift Modification which are described in the manuaI. 3. Files are named differently on the Apple ///. The names must be shorter and cannot contain blanks. So we had to rename the CHAPTER.4v_#' 'a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!ng Do underlining and overstriking (boldface) on printers with backspace capablilty. Have up to twenty headings print at the beginning of every page. 1-1 out text lines to make an even right margin, center titles and other information, and skip and indent for new paragraphs. Enter name and address (or any information) into form letters (or any other text) from the keyboard while printidit and merge any text disk file -- even files not created by Write-On! -- and spool text to disk for later printing or editing. Set variable margins (top, bottom, left, right) and set, use and clear tabs. Automatically fill insert, delete, find, change, repeat. All commands are easy to remember. (Change is 'C', Insert is 'I', Top is 'T' etc. Move, copy, delete, and insert large blocks of text lines and paragraphs with a single command. E computer. With Write-On! and this step by step User's manual you will learn how to -- Print your letters, reports and manuscripts quickly and automatically. Enter your text with automatic carriage return, "shift key", What Write-On! Can Do For You Write On! is the easy to use word processing system designed for you and your AppleCHAPTER.6v_#' 'CHAPTER.5v_#' ' WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Write-On! DISK ID#: 3WDP-08 BOOTABLE?: Bootable Write-On! was one of the original Apple // word processing programs rewritten for the Apple ///. Released by Datamost in 1981, the program has a copyrighRD? (Y/N) ",AN$". AN$="Y"AN$="y"2400:2370#8 "79C";"-DELETION CANCELLED-"KB :=15:"Do you wish to select another record for deletion? (Y/N) ";AN$ L AN$="Y"AN$="y"2210:230?` Sort records for deletion *********=38:"";N N=0230N>NLAST7):2210$:=6:"79C";"DELETE A RECORD"+::;"File contains ";NLAST;" records" :20);"RECORD NUMBER ";N 20);N$(N)1 :20);"ABOVE RECORD SELECTED FOR DELETION".$ ::=25:"DELETE THE RECO230? Delete a record *****************"=6:"79C";"DELETE A RECORD"9::"79C";"ENTER RECORD NUMBER YOU WISH TO DELETE"3"79C";"-enter 0 to return to the main menu-"):;"File contains ";NLAST;" records"RECORD NUMBER ";NLAST+1N\:=20:"NEW BOWLER'S NAME: --------------------";:=-20:"",N$(NLAST+1)5fN$(NLAST+1))>20N$(NLAST+1)=N$(NLAST+1),20)pNLAST=NLAST+19z:=20:"Do you wish to add another name? (Y/N) ",AN$ AN$="Y"AN$="y"2110:o you wish to modify another record? (Y/N) ",AN$" AN$="Y"AN$="y"1710:ۺ230C4 Add to bowler list *****************,>:=6:"79C";"ADD NAME TO BOWLER LIST"/H"79C";"-please limit name to 20 spaces-"'R::20);"20);"ENTER TOTAL PINS: ";P(N);:=60:"",P$P$=""2010P=P$):P(N)=P?20);"ENTER WEEKS BOWLED: ";W(N);:=60:"",W$W$=""2040W=W$):W(N)=W*30);"RECORD NUMBER ";N;" COMPLETED"D:25);"";:"D:=60:"",HG$lHG$=""1920vHG=HG$):G(N,4)=HG?20);"ENTER HIGH SET BOWLED: ";S(N);:=60:"",S$S$=""1950S=S$):S(N)=SA20);"ENTER HIGH FLAT BOWLED: ";F(N,2);:=60:"",F$F$=""1980F=F$):F(N,2)=F?s to be Transcribed Read.Me.First : Some basic information about this disk On Side Two: The actual Write-On program and associated files. Apple /// version. Chapter.1 : Partially Transcribed Chapter.2 : Needs to be Transcribed Chapter.3 : Needs to be Transcribed Chapter.4 : Needs to be Transcribed Chapter.5 : Needs to be Transcribed Chapter.6 : Needeasing this disk even though the manual has NOT been transcribed - a project we will try to complete over time. Any help appreciated! On Side One: First.Page : Differences between Write On! for the Apple // and the "new"essing program for a beginner. If nothing else, it would be instructive to look at the code, to see how the programmer accomplished certain tasks. The SOS.Interp and Driver files have been updated to the latest versions. ** JUNE, 1995 NOTE: We are relt by Speicher Systems. Both are no longer in business. Write-On! was written in Business Basic and is slow compared even to Ink Well, another Business Basic Word Processor. But it can do a lot considering and may be worth a look as a simple word procj INC=NNLAST-1t N$(INC)=N$(INC+1)~ INC N$(NLAST)="":NLAST=NLAST-1 "79C";"-RECORD DELETED-"9 25);"Your bowler list contains ";NLAST;" records." D Generate a new data file **************0 :=6:"79C";"GENERATE A NEW BOWLERS LIST"@ :"79C";"CAUTION--proceeding will delete loaded values--": 28);"Do you wish to continue? (Y/N) ";:AN$:AN$ AN$="Y"AN$="y"2550:230B :"79C";"-Please wait for initialization of the data bank-" 45;SLA$ PRINT#4;"AVG:"; TAB(07);N$(STAN); TAB(28);:PRINT#4 USING 200;INT(STA);:PRINT#4; TAB(32);N$(SMAN); TAB(52);:PRINT#4 USING 200;INT(SMA);:PRINT#4; TAB(56);N$(SLAN); TAB(76);:PRINT#4 USING 200;INT(SLA) V,#4;5);"------------------------------LF#4;"PINS:";07);N$(STPN);26);:#4220;STP;:#4;32);N$(SMPN);51);:#4210;SMP;:#4;56);N$(SLPN);75);:#4210;SLP"#4;"AVG:";07);N$(STAN);26);:#4205;STA;:#4;32);N$(SMAN);50);:#4205;SMA;:#4;56);N$(SLAN);74);:#420#4;"SET:";07);N$(STSN);28);:#4200;STS;:#4;32);N$(SMSN);52);:#4200;SMS;:#4;56);N$(SLSN);76);:#4200;SLS#4;"FLAT:";07);N$(STFN);28);:#4200;STF;:#4;32);N$(SMFN);52);:#4200;SMF;:#4;56);N$(SLFN);76);:#4200;S===================================="X#4;"SEASON HIGH";15);"AVERAGE 100";36);"AVERAGE 90-99";58);"AVERAGE below 90"#4;"GAME:";07);N$(STGN);28);:#4200;STG;:#4;32);N$(SMGN);52);:#4200;SMG;:#4;56);N$(SLGN);76);:#4200;SLG$="R"4010 Q$="TS"10000B Output routine #1 ****************** œ12510#4,FILENAME$ PAGE=1/#4;25);"ROCKVILLE SENIOR CENTER BOWLING".#4;23);"1990-1991 DUCKPIN PROGRAM ";;#4;19);"=======00@ Output to printer ******************& :=6:"80C";"OUTPUT TO PRINTER"C ::20);"Enter printer name: .PRINTER";:=-8:"";FILENAME$= FILENAME$=""FILENAME$=".PRINTER":=-1:=41:FILENAME$ Q$="SD"9510 Q file *******************"R :=6:"80C";"PRINT TO FILE"K\ ::20);"Enter full file name: .D1/BOWL.FILE";:=-13:"";FILENAME$Bf FILENAME$=""FILENAME$=".D1/BOWL.FILE":=-1:=43:FILENAME$p Q$="SD"9510z Q$="R"4010 Q$="TS"100 Q$="R":3510 Q$="TS":3310 Q$="TS":3410 Q$="TS":3510@ Print to screen ******************* FILENAME$=".CONSOLE" SCR=1:CT=0 Q$="SD"9510 Q$="R"4010 Q$="TS"10000@H Print to+0 19);"10)........Return to Main Menu"#: :=30:"ENTER SELECTION: ",ANSD ANS<1ANS>107):3020N 9X ANS3170,3180,3190,3200,3210,3220,3230,3240,3250,230b Q$="SD":3310l Q$="SD":3410v Q$="SD":3510 Q$="R":3310 Q$="R":3410een."- 20);"5)........Print Records to file."0 20);"6)........Print Records to printer."5 20);"7)........Print Top Standings to screen."3 20);"8)........Print Top Standings to file."6& 20);"9)........Print Top Standings to printer." Process data ! :=6:"80C";"-PRINT MENU-"4 20);"1)........Print Session Data to screen."2 20);"2)........Print Session Data to file."5 20);"3)........Print Session Data to printer."/ 20);"4)........Print Records to scr0N$(NLAST+1)=N$(NLAST+1),20)x INC:NLAST=INC:2700 NLAST=INC-1' :"79C";"BOWLERS LIST COMPLETED"/ 28);"THERE ARE ";NLAST;" BOWLERS LISTED" AN$ 230C Print records ********************* 5000: BOWLERS LIST"/< "79C";"-please limit name to 20 spaces-"*F "80C";"-enter 'END' when complete-"#P ::20);"RECORD NUMBER ";INCJZ :=20:"NEW BOWLER'S NAME: --------------------";:=-20:"",N$(INC)d N$(INC)="END"26905n N$(NLAST+1))>2410` ::"80C";"You may enter names from the keyboard or extract names from a BOWL.LIST file."R 10);"Do you wish to transfer names from a BOWL.LIST file? (Y/N) ";:"";AN$ AN$="Y"AN$="y"9010 ( INC=1B02 :=6:"79C";"GENERATE A NEW -----------------------------------------"u6#4;10);"NAME";28);"HIGH";35);"HIGH";42);"HIGH";49);"TOTAL";57);"TOTAL";64);"AVERAGE";74);"WEEKS"X@#4;28);"GAME";35);"SET";42);"FLAT";49);"GAMES";57);"PINS";64);76);"#"J#4;5);"--------------------";28);"----";35);"----";42);"----";49);"----";57);"-----";66);"----";74);"----"TPAGE=21,480,24^INC=1NLASThGT(INC)=04240r#4;INC;4);N$(INC);28);:#4200;G(INC,4);:#4;35);:#4200;S(INC)G(INC,4)=>STG(2)STG(6)=STG(5):STG(5)=STG(4):STG(4)=STG(3):STG(3)=STG(2)xG(INC,4)=>STG(2)STGN(6)=STGN(5):STGN(5)=STGN(4):STGN(4)=STGN(3):STGN(3)=STGN(2):STGN(2)=INC:STG(2)=G(INC,4):5600@G(INC,4)=>STG(3)STG(6)=STG(5):STG(5)=STG(4):STG(4)=STG( hG(INC,4)=05600\rG(INC,4)=>STG(1)STG(6)=STG(5):STG(5)=STG(4):STG(4)=STG(3):STG(3)=STG(2):STG(2)=STG(1)|G(INC,4)=>STG(1)STGN(6)=STGN(5):STGN(5)=STGN(4):STGN(4)=STGN(3):STGN(3)=STGN(2):STGN(2)=STGN(1):STGN(1)=INC:STG(1)=G(INC,4):5600NR TOP SCORE PRESENTATION ".";"SEX$(INC)="F"Q=16960,SEX$(INC)="M"Q=269606GT(INC)=06960@P(INC)/GT(INC)=>10054701JP(INC)/GT(INC)=>90P(INC)/GT(INC)<1005970 T64809^ Average above 100 Average below 90(G(INC,4)>SLGSLG=G(INC,4):SLGN=INC$S(INC)>SLSSLS=S(INC):SLSN=INC(F(INC,2)>SLFSLF=F(INC,2):SLFN=INC$P(INC)>SLPSLP=P(INC):SLPN=INC4P(INC)/GT(INC)>SLASLA=P(INC)/GT(INC):SLAN=INCINC5INC=1NLAST: FOow 100(G(INC,4)>SMGSMG=G(INC,4):SMGN=INC$S(INC)>SMSSMS=S(INC):SMSN=INC(F(INC,2)>SMFSMF=F(INC,2):SMFN=INC$P(INC)>SMPSMP=P(INC):SMPN=INC4P(INC)/GT(INC)>SMASMA=P(INC)/GT(INC):SMAN=INC 53806 >STGSTG=G(INC,4):STGN=INC$PS(INC)>STSSTS=S(INC):STSN=INC(ZF(INC,2)>STFSTF=F(INC,2):STFN=INC$dP(INC)>STPSTP=P(INC):STPN=INC4nP(INC)/GT(INC)>STASTA=P(INC)/GT(INC):STAN=INC x5380> Average 90 and belINC)=0:SLAN1(INC)=0INC0 INC=1NLAST: FOR RECORDS PRESENTATION GT(INC)=05380P(INC)/GT(INC)=>10051901(P(INC)/GT(INC)=>90P(INC)/GT(INC)<1005260 25330<< Average 100 or greater(FG(INC,4)C)=0:SMA1(INC)=0:SMAN1(INC)=0vSLG(INC)=0:SLGN(INC)=0:SLS(INC)=0:SLSN(INC)=0:SLF(INC)=0:SLFN(INC)=0:SLP(INC)=0:SLPN(INC)=0:SLA(INC)=0:SLAN(INC)=0SLG1(INC)=0:SLGN1(INC)=0:SLS1(INC)=0:SLSN1(INC)=0:SLF1(INC)=0:SLFN1(INC)=0:SLP1(INC)=0:SLPN1(INC)=0:SLA1(0:STPN1(INC)=0:STA1(INC)=0:STAN1(INC)=0vSMG(INC)=0:SMGN(INC)=0:SMS(INC)=0:SMSN(INC)=0:SMF(INC)=0:SMFN(INC)=0:SMP(INC)=0:SMPN(INC)=0:SMA(INC)=0:SMAN(INC)=0SMG1(INC)=0:SMGN1(INC)=0:SMS1(INC)=0:SMSN1(INC)=0:SMF1(INC)=0:SMFN1(INC)=0:SMP1(INC)=0:SMPN1(INF=0:SLFN=0:SLP=0:SLPN=0:SLA=0:SLAN=0 INC=16vSTG(INC)=0:STGN(INC)=0:STS(INC)=0:STSN(INC)=0:STF(INC)=0:STFN(INC)=0:STP(INC)=0:STPN(INC)=0:STA(INC)=0:STAN(INC)=0STG1(INC)=0:STGN1(INC)=0:STS1(INC)=0:STSN1(INC)=0:STF1(INC)=0:STFN1(INC)=0:STP1(INC)= Determine award bowlers ************* "Q=1:5);"Processing data: ";DSTG=0:STGN=0:STS=0:STSN=0:STF=0:STFN=0:STP=0:STPN=0:STA=0:STAN=0DSMG=0:SMGN=0:SMS=0:SMSN=0:SMF=0:SMFN=0:SMP=0:SMPN=0:SMA=0:SMAN=0DSLG=0:SLGN=0:SLS=0:SLSN=0:SLo continue-";:CT=0:AN$:::4150:0 Initialize **************** :INC=1B3DN$(INC)="":S(INC)=0:GT(INC)=0:P(INC)=0:W(INC)=0NINC2=12XF(INC,INC2)=0 bINC2lINC2=14vG(INC,INC2)=0 INC2INC> NC) 4250#4;INC;4);N$(INC) CT=CT+1'SCR=1CT=10PAGE=1PAGE=2:4330SCR=1CT=204320INCSCR=1AN$SCR=0:#4:1,180,24 30209"79C";"-press any key to continue-";:CT=0:AN$::?"79C";"-press any key t;:#4;42);:#4200;F(INC,2);:#4;49);:#4200;GT(INC);:#4;56);:#4220;P(INC);B|#4;65);:#4205;P(INC)/GT(INC);:#4;74);:#4200;W(INC)j~ PRINT#4; TAB(67);:PRINT#4 USING 200;INT(P(INC)/GT(INC));:PRINT#4; TAB(74);:PRINT#4 USING 200;W(I3)hG(INC,4)=>STG(3)STGN(6)=STGN(5):STGN(5)=STGN(4):STGN(4)=STGN(3):STGN(3)=INC:STG(3)=G(INC,4):56002G(INC,4)=>STG(4)STG(6)=STG(5):STG(5)=STG(4)XG(INC,4)=>STG(4)STGN(6)=STGN(5):STGN(5)=STGN(4):STGN(4)=INC:STG(4)=G(INC,4):5600$G(INC,4)=>STG(5)STG(6)=STG(5)HG(INC,4)=>STG(5)STGN(6)=STGN(5):STGN(5)=INC:STG(5)=G(INC,4):56002G(INC,4)=>STG(6)STG(6)=G(INC,4):STGN(6)=INCS(INC)=05720ZS(INC)=>STS(1)STS(6)=STS(5):STS(5)=STS(4):STS(4)=STS(3):STS(3)=STS(2):STS(2)=STS(1)GN(3)=INC:SMG(3)=G(INC,4):61002G(INC,4)=>SMG(4)SMG(6)=SMG(5):SMG(5)=SMG(4)XG(INC,4)=>SMG(4)SMGN(6)=SMGN(5):SMGN(5)=SMGN(4):SMGN(4)=INC:SMG(4)=G(INC,4):6100$G(INC,4)=>SMG(5)SMG(6)=SMG(5)HG(INC,4)=>SMG(5)SMGN(6)=SMGN(5):SMGN(5)=INC:xG(INC,4)=>SMG(2)SMGN(6)=SMGN(5):SMGN(5)=SMGN(4):SMGN(4)=SMGN(3):SMGN(3)=SMGN(2):SMGN(2)=INC:SMG(2)=G(INC,4):6100@G(INC,4)=>SMG(3)SMG(6)=SMG(5):SMG(5)=SMG(4):SMG(4)=SMG(3)hG(INC,4)=>SMG(3)SMGN(6)=SMGN(5):SMGN(5)=SMGN(4):SMGN(4)=SMGN(3):SMSMG(4)=SMG(3):SMG(3)=SMG(2):SMG(2)=SMG(1)pG(INC,4)=>SMG(1)SMGN(6)=SMGN(5):SMGN(5)=SMGN(4):SMGN(4)=SMGN(3):SMGN(3)=SMGN(2):SMGN(2)=SMGN(1):SMGN(1)=INC:SMG(1)=G(INC,4):6100NzG(INC,4)=>SMG(2)SMG(6)=SMG(5):SMG(5)=SMG(4):SMG(4)=SMG(3):SMG(3)=SMG(2)STAN(6)=STAN(5):STA(5)=P(INC)/GT(INC):STAN(5)=INC:5960>>P(INC)/GT(INC)=>STA(6)STA(6)=P(INC)/GT(INC):STAN(6)=INC H69608R Average 90-100 \G(INC,4)=06100\fG(INC,4)=>SMG(1)SMG(6)=SMG(5):SMG(5)=SMG(4):(INC)/GT(INC):STAN(3)=INC:59608P(INC)/GT(INC)=>STA(4)STA(6)=STA(5):STA(5)=STA(4)d P(INC)/GT(INC)=>STA(4)STAN(6)=STAN(5):STAN(5)=STAN(4):STA(4)=P(INC)/GT(INC):STAN(4)=INC:5960**P(INC)/GT(INC)=>STA(5)STA(6)=STA(5)T4P(INC)/GT(INC)=>STA(5)AN(6)=STAN(5):STAN(5)=STAN(4):STAN(4)=STAN(3):STAN(3)=STAN(2):STA(2)=P(INC)/GT(INC):STAN(2)=INC:5960FP(INC)/GT(INC)=>STA(3)STA(6)=STA(5):STA(5)=STA(4):STA(4)=STA(3)t P(INC)/GT(INC)=>STA(3)STAN(6)=STAN(5):STAN(5)=STAN(4):STAN(4)=STAN(3):STA(3)=PINC)/GT(INC)=>STA(1)STAN(6)=STAN(5):STAN(5)=STAN(4):STAN(4)=STAN(3):STAN(3)=STAN(2):STAN(2)=STAN(1):STA(1)=P(INC)/GT(INC):STAN(1)=INC:5960TP(INC)/GT(INC)=>STA(2)STA(6)=STA(5):STA(5)=STA(4):STA(4)=STA(3):STA(3)=STA(2)P(INC)/GT(INC)=>STA(2)ST(5)STF(6)=STF(5)8F(INC,2)=>STF(5)STF(5)=F(INC,2):STFN(5)=INC:58402F(INC,2)=>STF(6)STF(6)=F(INC,2):STFN(6)=INCP(INC)/GT(INC)=05960bP(INC)/GT(INC)=>STA(1)STA(6)=STA(5):STA(5)=STA(4):STA(4)=STA(3):STA(3)=STA(2):STA(2)=STA(1)P(F(INC,2)=>STF(3)STFN(6)=STFN(5):STFN(5)=STFN(4):STFN(4)=STFN(3):STFN(3)=INC:STF(3)=F(INC,2):58402F(INC,2)=>STF(4)STF(6)=STF(5):STF(5)=STF(4)XF(INC,2)=>STF(4)STFN(6)=STFN(5):STFN(5)=STFN(4):STFN(4)=INC:STF(4)=F(INC,2):5840$F(INC,2)=>STF,2)=>STF(2)STF(6)=STF(5):STF(5)=STF(4):STF(4)=STF(3):STF(3)=STF(2)xF(INC,2)=>STF(2)STFN(6)=STFN(5):STFN(5)=STFN(4):STFN(4)=STFN(3):STFN(3)=STFN(2):STFN(2)=INC:STF(2)=F(INC,2):5840@F(INC,2)=>STF(3)STF(6)=STF(5):STF(5)=STF(4):STF(4)=STF(3)hF(INC,2)=05840\bF(INC,2)=>STF(1)STF(6)=STF(5):STF(5)=STF(4):STF(4)=STF(3):STF(3)=STF(2):STF(2)=STF(1)lF(INC,2)=>STF(1)STFN(6)=STFN(5):STFN(5)=STFN(4):STFN(4)=STFN(3):STFN(3)=STFN(2):STFN(2)=STFN(1):STFN(1)=INC:STF(1)=F(INC,2):5840NvF(INC=STS(5):STS(5)=STS(4)T0S(INC)=>STS(4)STSN(6)=STSN(5):STSN(5)=STSN(4):STSN(4)=INC:STS(4)=S(INC):5720":S(INC)=>STS(5)STS(6)=STS(5)DDS(INC)=>STS(5)STSN(6)=STSN(5):STSN(5)=INC:STS(5)=S(INC):5720.NS(INC)=>STS(6)STS(6)=S(INC):STSN(6)=INCX(4):STSN(4)=STSN(3):STSN(3)=STSN(2):STSN(2)=INC:STS(2)=S(INC):5720>S(INC)=>STS(3)STS(6)=STS(5):STS(5)=STS(4):STS(4)=STS(3)dS(INC)=>STS(3)STSN(6)=STSN(5):STSN(5)=STSN(4):STSN(4)=STSN(3):STSN(3)=INC:STS(3)=S(INC):57200&S(INC)=>STS(4)STS(6)S(INC)=>STS(1)STSN(6)=STSN(5):STSN(5)=STSN(4):STSN(4)=STSN(3):STSN(3)=STSN(2):STSN(2)=STSN(1):STSN(1)=INC:STS(1)=S(INC):5720LS(INC)=>STS(2)STS(6)=STS(5):STS(5)=STS(4):STS(4)=STS(3):STS(3)=STS(2)tS(INC)=>STS(2)STSN(6)=STSN(5):STSN(5)=STSNSMG(5)=G(INC,4):61002G(INC,4)=>SMG(6)SMG(6)=G(INC,4):SMGN(6)=INCS(INC)=06220ZS(INC)=>SMS(1)SMS(6)=SMS(5):SMS(5)=SMS(4):SMS(4)=SMS(3):SMS(3)=SMS(2):SMS(2)=SMS(1)S(INC)=>SMS(1)SMSN(6)=SMSN(5):SMSN(5)=SMSN(4):SMSN(4)=SMSN(3):SMSN(3)=SMSN(2):SMSN(2)=SMSN(1):SMSN(1)=INC:SMS(1)=S(INC):6220LS(INC)=>SMS(2)SMS(6)=SMS(5):SMS(5)=SMS(4):SMS(4)=SMS(3):SMS(3)=SMS(2)tS(INC)=>SMS(2)SMSN(6)=SMSN(5):SMSN(5)=SMSN(4):SMSN(4)=SMSN(3):SMSN(3)=SMSN(2):SMSN(2)=INC:SMS(2)=S(INC):6220>S(I(INC)=06720ZS(INC)=>SLS(1)SLS(6)=SLS(5):SLS(5)=SLS(4):SLS(4)=SLS(3):SLS(3)=SLS(2):SLS(2)=SLS(1)S(INC)=>SLS(1)SLSN(6)=SLSN(5):SLSN(5)=SLSN(4):SLSN(4)=SLSN(3):SLSN(3)=SLSN(2):SLSN(2)=SLSN(1):SLSN(1)=INC:SLS(1)=S(INC):6720LS(INC)=>SLS(2)G(4)XG(INC,4)=>SLG(4)SLGN(6)=SLGN(5):SLGN(5)=SLGN(4):SLGN(4)=INC:SLG(4)=G(INC,4):6600$G(INC,4)=>SLG(5)SLG(6)=SLG(5)HG(INC,4)=>SLG(5)SLGN(6)=SLGN(5):SLGN(5)=INC:SLG(5)=G(INC,4):66002G(INC,4)=>SLG(6)SLG(6)=G(INC,4):SLGN(6)=INCS=SLGN(2):SLGN(2)=INC:SLG(2)=G(INC,4):6600@G(INC,4)=>SLG(3)SLG(6)=SLG(5):SLG(5)=SLG(4):SLG(4)=SLG(3)hG(INC,4)=>SLG(3)SLGN(6)=SLGN(5):SLGN(5)=SLGN(4):SLGN(4)=SLGN(3):SLGN(3)=INC:SLG(3)=G(INC,4):66002G(INC,4)=>SLG(4)SLG(6)=SLG(5):SLG(5)=SL5):SLGN(5)=SLGN(4):SLGN(4)=SLGN(3):SLGN(3)=SLGN(2):SLGN(2)=SLGN(1):SLGN(1)=INC:SLG(1)=G(INC,4):6600NnG(INC,4)=>SLG(2)SLG(6)=SLG(5):SLG(5)=SLG(4):SLG(4)=SLG(3):SLG(3)=SLG(2)xxG(INC,4)=>SLG(2)SLGN(6)=SLGN(5):SLGN(5)=SLGN(4):SLGN(4)=SLGN(3):SLGN(3))=>SMA(6)SMA(6)=P(INC)/GT(INC):SMAN(6)=INC <69606F Average 80-90 PG(INC,4)=06600\ZG(INC,4)=>SLG(1)SLG(6)=SLG(5):SLG(5)=SLG(4):SLG(4)=SLG(3):SLG(3)=SLG(2):SLG(2)=SLG(1)dG(INC,4)=>SLG(1)SLGN(6)=SLGN(MA(5)=SMA(4)dP(INC)/GT(INC)=>SMA(4)SMAN(6)=SMAN(5):SMAN(5)=SMAN(4):SMA(4)=P(INC)/GT(INC):SMAN(4)=INC:6460*P(INC)/GT(INC)=>SMA(5)SMA(6)=SMA(5)T(P(INC)/GT(INC)=>SMA(5)SMAN(6)=SMAN(5):SMA(5)=P(INC)/GT(INC):SMAN(5)=INC:6460>2P(INC)/GT(INC/GT(INC):SMAN(2)=INC:6460FP(INC)/GT(INC)=>SMA(3)SMA(6)=SMA(5):SMA(5)=SMA(4):SMA(4)=SMA(3)tP(INC)/GT(INC)=>SMA(3)SMAN(6)=SMAN(5):SMAN(5)=SMAN(4):SMAN(4)=SMAN(3):SMA(3)=P(INC)/GT(INC):SMAN(3)=INC:64608 P(INC)/GT(INC)=>SMA(4)SMA(6)=SMA(5):S3)=SMAN(2):SMAN(2)=SMAN(1):SMA(1)=P(INC)/GT(INC):SMAN(1)=INC:6460TP(INC)/GT(INC)=>SMA(2)SMA(6)=SMA(5):SMA(5)=SMA(4):SMA(4)=SMA(3):SMA(3)=SMA(2)P(INC)/GT(INC)=>SMA(2)SMAN(6)=SMAN(5):SMAN(5)=SMAN(4):SMAN(4)=SMAN(3):SMAN(3)=SMAN(2):SMA(2)=P(INC)2F(INC,2)=>SMF(6)SMF(6)=F(INC,2):SMFN(6)=INCP(INC)/GT(INC)=06460bP(INC)/GT(INC)=>SMA(1)SMA(6)=SMA(5):SMA(5)=SMA(4):SMA(4)=SMA(3):SMA(3)=SMA(2):SMA(2)=SMA(1)P(INC)/GT(INC)=>SMA(1)SMAN(6)=SMAN(5):SMAN(5)=SMAN(4):SMAN(4)=SMAN(3):SMAN(INC:SMF(3)=F(INC,2):63402F(INC,2)=>SMF(4)SMF(6)=SMF(5):SMF(5)=SMF(4)XF(INC,2)=>SMF(4)SMFN(6)=SMFN(5):SMFN(5)=SMFN(4):SMFN(4)=INC:SMF(4)=F(INC,2):6340$F(INC,2)=>SMF(5)SMF(6)=SMF(5)8F(INC,2)=>SMF(5)SMF(5)=F(INC,2):SMFN(5)=INC:6340INC,2)=>SMF(2)SMFN(6)=SMFN(5):SMFN(5)=SMFN(4):SMFN(4)=SMFN(3):SMFN(3)=SMFN(2):SMFN(2)=INC:SMF(2)=F(INC,2):6340@~F(INC,2)=>SMF(3)SMF(6)=SMF(5):SMF(5)=SMF(4):SMF(4)=SMF(3)hF(INC,2)=>SMF(3)SMFN(6)=SMFN(5):SMFN(5)=SMFN(4):SMFN(4)=SMFN(3):SMFN(3)==SMF(3):SMF(3)=SMF(2):SMF(2)=SMF(1)`F(INC,2)=>SMF(1)SMFN(6)=SMFN(5):SMFN(5)=SMFN(4):SMFN(4)=SMFN(3):SMFN(3)=SMFN(2):SMFN(2)=SMFN(1):SMFN(1)=INC:SMF(1)=F(INC,2):6340NjF(INC,2)=>SMF(2)SMF(6)=SMF(5):SMF(5)=SMF(4):SMF(4)=SMF(3):SMF(3)=SMF(2)xtF(MSN(4)=INC:SMS(4)=S(INC):6220".S(INC)=>SMS(5)SMS(6)=SMS(5)D8S(INC)=>SMS(5)SMSN(6)=SMSN(5):SMSN(5)=INC:SMS(5)=S(INC):6220.BS(INC)=>SMS(6)SMS(6)=S(INC):SMSN(6)=INCLF(INC,2)=06340\VF(INC,2)=>SMF(1)SMF(6)=SMF(5):SMF(5)=SMF(4):SMF(4)NC)=>SMS(3)SMS(6)=SMS(5):SMS(5)=SMS(4):SMS(4)=SMS(3)dS(INC)=>SMS(3)SMSN(6)=SMSN(5):SMSN(5)=SMSN(4):SMSN(4)=SMSN(3):SMSN(3)=INC:SMS(3)=S(INC):62200S(INC)=>SMS(4)SMS(6)=SMS(5):SMS(5)=SMS(4)T$S(INC)=>SMS(4)SMSN(6)=SMSN(5):SMSN(5)=SMSN(4):SSLS(6)=SLS(5):SLS(5)=SLS(4):SLS(4)=SLS(3):SLS(3)=SLS(2)tS(INC)=>SLS(2)SLSN(6)=SLSN(5):SLSN(5)=SLSN(4):SLSN(4)=SLSN(3):SLSN(3)=SLSN(2):SLSN(2)=INC:SLS(2)=S(INC):6720>S(INC)=>SLS(3)SLS(6)=SLS(5):SLS(5)=SLS(4):SLS(4)=SLS(3)dS(INC)=>SLS(3)SLSN(6)=SLSN(5):SLSN(5)=SLSN(4):SLSN(4)=SLSN(3):SLSN(3)=INC:SLS(3)=S(INC):67200S(INC)=>SLS(4)SLS(6)=SLS(5):SLS(5)=SLS(4)TS(INC)=>SLS(4)SLSN(6)=SLSN(5):SLSN(5)=SLSN(4):SLSN(4)=INC:SLS(4)=S(INC):6720""S(INC)=>SLS(5)SLS(6)=SLS(5)D,S(INC)=>);"4)........RETURN TO MAIN MENU."L=22:=18:::" DATAPOINT PRINTER MUST BE CONNECTED AND TURNED ON ";:: =14:=30:"SELECTION: ";ANSANS<1ANS>48040ANS8140,8160,8180,230) PICA PRINT PP=150:8190* INT 9628 PRINTER OPTIONS-"Ir:15);"1)........PICA (10 Characters per inch; 6 Lines per inch)."H|15);"2)........ELITE (12 Characters per inch; 6 Lines per inch)."L15);"3)........CONDENSED (17 Characters per inch; 8 Lines per inch)."+15 Set printer *************=J:=4:"79C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-"CT::20);"Enter printer name: .PRINTER";:=-8:"";FILENAME$=^FILENAME$=""FILENAME$=".PRINTER":=-1:=38:FILENAME$5h:=6:"80C";"-DATAPOI)=SLGN(I):SLGN(I)=06SLS1(I)=SLS(I):SLS(I)=0:SLSN1(I)=SLSN(I):SLSN(I)=06SLF1(I)=SLF(I):SLF(I)=0:SLFN1(I)=SLFN(I):SLFN(I)=06SLA1(I)=SLA(I):SLA(I)=0:SLAN1(I)=SLAN(I):SLAN(I)=0I,Q=2:5390: RETURN FOR LADIES DATA ;@ N(I)=06vSMG1(I)=SMG(I):SMG(I)=0:SMGN1(I)=SMGN(I):SMGN(I)=06SMS1(I)=SMS(I):SMS(I)=0:SMSN1(I)=SMSN(I):SMSN(I)=06SMF1(I)=SMF(I):SMF(I)=0:SMFN1(I)=SMFN(I):SMFN(I)=06SMA1(I)=SMA(I):SMA(I)=0:SMAN1(I)=SMAN(I):SMAN(I)=06SLG1(I)=SLG(I):SLG(I)=0:SLGN1(: GENERATE MENS DATA-RESET FOR LADIES DATA6NSTG1(I)=STG(I):STG(I)=0:STGN1(I)=STGN(I):STGN(I)=06XSTS1(I)=STS(I):STS(I)=0:STSN1(I)=STSN(I):STSN(I)=06bSTF1(I)=STF(I):STF(I)=0:STFN1(I)=STFN(I):STFN(I)=06lSTA1(I)=STA(I):STA(I)=0:STAN1(I)=STAN(I):STA4)=P(INC)/GT(INC):SLAN(4)=INC:6960*P(INC)/GT(INC)=>SLA(5)SLA(6)=SLA(5)TP(INC)/GT(INC)=>SLA(5)SLAN(6)=SLAN(5):SLA(5)=P(INC)/GT(INC):SLAN(5)=INC:6960>&P(INC)/GT(INC)=>SLA(6)SLA(6)=P(INC)/GT(INC):SLAN(6)=INC0INC:Q=271309DI=16LA(4):SLA(4)=SLA(3)tP(INC)/GT(INC)=>SLA(3)SLAN(6)=SLAN(5):SLAN(5)=SLAN(4):SLAN(4)=SLAN(3):SLA(3)=P(INC)/GT(INC):SLAN(3)=INC:69608P(INC)/GT(INC)=>SLA(4)SLA(6)=SLA(5):SLA(5)=SLA(4)dP(INC)/GT(INC)=>SLA(4)SLAN(6)=SLAN(5):SLAN(5)=SLAN(4):SLA(/GT(INC)=>SLA(2)SLA(6)=SLA(5):SLA(5)=SLA(4):SLA(4)=SLA(3):SLA(3)=SLA(2)P(INC)/GT(INC)=>SLA(2)SLAN(6)=SLAN(5):SLAN(5)=SLAN(4):SLAN(4)=SLAN(3):SLAN(3)=SLAN(2):SLA(2)=P(INC)/GT(INC):SLAN(2)=INC:6960FP(INC)/GT(INC)=>SLA(3)SLA(6)=SLA(5):SLA(5)=SbP(INC)/GT(INC)=>SLA(1)SLA(6)=SLA(5):SLA(5)=SLA(4):SLA(4)=SLA(3):SLA(3)=SLA(2):SLA(2)=SLA(1)P(INC)/GT(INC)=>SLA(1)SLAN(6)=SLAN(5):SLAN(5)=SLAN(4):SLAN(4)=SLAN(3):SLAN(3)=SLAN(2):SLAN(2)=SLAN(1):SLA(1)=P(INC)/GT(INC):SLAN(1)=INC:6960TP(INC)F(INC,2)=>SLF(4)SLFN(6)=SLFN(5):SLFN(5)=SLFN(4):SLFN(4)=INC:SLF(4)=F(INC,2):6840$F(INC,2)=>SLF(5)SLF(6)=SLF(5)8F(INC,2)=>SLF(5)SLF(5)=F(INC,2):SLFN(5)=INC:68402F(INC,2)=>SLF(6)SLF(6)=F(INC,2):SLFN(6)=INCP(INC)/GT(INC)=069602):SLFN(2)=INC:SLF(2)=F(INC,2):6840@rF(INC,2)=>SLF(3)SLF(6)=SLF(5):SLF(5)=SLF(4):SLF(4)=SLF(3)h|F(INC,2)=>SLF(3)SLFN(6)=SLFN(5):SLFN(5)=SLFN(4):SLFN(4)=SLFN(3):SLFN(3)=INC:SLF(3)=F(INC,2):68402F(INC,2)=>SLF(4)SLF(6)=SLF(5):SLF(5)=SLF(4)XN(5)=SLFN(4):SLFN(4)=SLFN(3):SLFN(3)=SLFN(2):SLFN(2)=SLFN(1):SLFN(1)=INC:SLF(1)=F(INC,2):6840N^F(INC,2)=>SLF(2)SLF(6)=SLF(5):SLF(5)=SLF(4):SLF(4)=SLF(3):SLF(3)=SLF(2)xhF(INC,2)=>SLF(2)SLFN(6)=SLFN(5):SLFN(5)=SLFN(4):SLFN(4)=SLFN(3):SLFN(3)=SLFN(SLS(5)SLSN(6)=SLSN(5):SLSN(5)=INC:SLS(5)=S(INC):6720.6S(INC)=>SLS(6)SLS(6)=S(INC):SLSN(6)=INC@F(INC,2)=06840\JF(INC,2)=>SLF(1)SLF(6)=SLF(5):SLF(5)=SLF(4):SLF(4)=SLF(3):SLF(3)=SLF(2):SLF(2)=SLF(1)TF(INC,2)=>SLF(1)SLFN(6)=SLFN(5):SLF ELITE PRINT PP=120:8190. CONDENSED PRINT PP=1:8190E:=4:=15:"DO YOU WISH TO CHANGE THE LEFT MARGIN ? (Y/N) ":U$ U$="Y"U$="y"8210:8280C :"79C";"LEFT MARGIN IS SETTABLE IN UNITS OF 12/1440 INCHES"E "80C";"NOTE: ONE CHARACTER SPACE MARGINS ARE INDICATED BELOW.">& :"79C";"One character space at 10 CPI........12 UNITS"<0 "79C";"One character space at 12 CPI........10 UNITS"<: "79C";"One character space at 17.14 #4200;G(INC,1)+G(INC,2)+G(INC,3);x%#4;57);:#4200;F(INC,1);:#4;65);:#4205;(G(INC,1)+G(INC,2)+G(INC,3))/3;:#4;74);:#4205;P(INC)/GT(INC)% PRINT#4; TAB(57);:PRINT#4 USING 200;F(INC,1);:PRINT#4; TAB(67);:PRINT#4 USING 200;INT((G(INC,1;"----";42);"----";49);"----";57);"-----";66);"----";74);"----"%PAGE=21,480,24%INC=1NLAST%GT(INC)=09670%#4;INC;4);N$(INC);28);:#4200;G(INC,1);:#4;35);:#4200;G(INC,2);:#4;42);:#4200;G(INC,3);:#4;49);:==========="sl%#4;10);"NAME";28);" 1st";35);" 2nd";42);" 3rd";49);"SET";57);"HIGH";64);"AVERAGE";73);"SEASON"Kv%#4;28);"GAME";35);"GAME";42);"GAME";57);"FLAT";73);"AVERAGE"%#4;5);"--------------------";28);"----";35)#230B% Output routine #2 ****************** &%œ125100%#4,FILENAME$:% D%PAGE=1/N%#4;25);"ROCKVILLE SENIOR CENTER BOWLING".X%#4;23);"1990-1991 DUCKPIN PROGRAM ";;b%#4;19);"================================E$=""FILENAME$=".D1/BOWL.LIST":=-1:=43:FILENAME$"x#"80C";"-loading data file-"##2,FILENAME$ #INC=1B #ž#29150=##2;N(INC),NL$(INC),NF$(INC),ADDR$,CIT$,ST$,ZIP$,PH$,CDE$"#N$(INC)=NL$(INC)+", "+NF$(INC)#INC#NLAST=INC-1:#2EXISTING BOWL.LIST FILE"7P#"79C";"Note:- Only bowler names will be copied."ZZ#"80C";"All other data must be entered by using the modify option of the MAIN MENU."Kd#::20);"Enter full file name: .D1/BOWL.LIST";:=-13:"";FILENAME$Bn#FILENAM;"----- LIST SORT COMPLETED -----":PAUSE=1500:PAUSE:230"EXCH=0:T=S:8770H(# Extract names from BOWL.LIST file ********2#NL$(B),NF$(B)@<#:=6:"80C";"-TRANSFER BOWLER NAMES FROM BOWL.LIST FILE-".F#"80C";"LOAD AN ,2)5"GT(INC)=GT(INC+1):P(INC)=P(INC+1):W(INC)=W(INC+1)"N$(INC+1)=TEMPN$C"N(INC+1)=TEMPN:G(INC+1,4)=TEMPG:S(INC+1)=TEMPS:F(INC+1,2)=TEMPF2"GT(INC+1)=TEMPGT:P(INC+1)=TEMPP:W(INC+1)=TEMPW"EXCH=EXCH+1:S=INC-1 "".";"INCS"EXCH=0:"79C"-`"P(INC)/GT(INC)=>P(INC+1)/GT(INC+1)8910Jj"TEMPN=N(INC):TEMPN$=N$(INC):TEMPG=G(INC,4):TEMPS=S(INC):TEMPF=F(INC,2),t"TEMPGT=GT(INC):TEMPP=P(INC):TEMPW=W(INC)~"N$(INC)=N$(INC+1)K"N(INC)=N(INC+1):G(INC,4)=G(INC+1,4):S(INC)=S(INC+1):F(INC,2)=F(INC+1H=EXCH+1:S=INC-1 "".";"INCS"EXCH=0:"79C";"----- LIST SORT COMPLETED -----":PAUSE=1500:PAUSE:230$"EXCH=0:T=S:86004.":=8:"80C";"SORTING BOWLER LIST BY AVERAGES" 8"T=NLAST-1 B"INC=1TL"GT(INC)=08810V"GT(INC+1)=08910+1):G(INC,4)=G(INC+1,4):S(INC)=S(INC+1):F(INC,2)=F(INC+1,2)5!GT(INC)=GT(INC+1):P(INC)=P(INC+1):W(INC)=W(INC+1)!N$(INC+1)=TEMPN$C!N(INC+1)=TEMPN:G(INC+1,4)=TEMPG:S(INC+1)=TEMPS:F(INC+1,2)=TEMPF2!GT(INC+1)=TEMPGT:P(INC+1)=TEMPP:W(INC+1)=TEMPW!EXC:"80C";"SORTING BOWLER LIST ALPHABETICALLY" !T=NLAST-1 !INC=1T!N$(INC)<=N$(INC+1)8720J!TEMPN=N(INC):TEMPN$=N$(INC):TEMPG=G(INC,4):TEMPS=S(INC):TEMPF=F(INC,2),!TEMPGT=GT(INC):TEMPP=P(INC):TEMPW=W(INC)!N$(INC)=N$(INC+1)K!N(INC)=N(INC*******->!:=8:"80C";"--- SORT BOWLER LIST ---"2H!:20);"1).... Reorder list alphabetically."2R!20);"2).... Reorder list by average score.",\!:25);"INDICATE SELECTION: ";:"";AN$f!AN$="1"8580p!AN$="2"8750z!7):85107!:=8CPI..... 7 UNITS"AD :10):"SET LEFT MARGIN IN UNITS OF 12/1440 INCHES... ";TT N t=TT*12 X œ12510b #1,FILENAME$l #v #1;27);91);LL;";";PP;" G"; #1;27);91);t;"q"; #1 230;4! Sort routine ******)+G(INC,2)+G(INC,3))/3);:PRINT#4; TAB(74);:PRINT#4 USING 200;INT(P(INC)/GT(INC)) %9680%#4;INC;4);N$(INC) %CT=CT+1'%SCR=1CT=10PAGE=1PAGE=2:9760%SCR=1CT=209750%INC%SCR=1AN$&SCR=0:#4:1,180,24 &30209&"79C";"-press any key to continue-";:CT=0:AN$::? &"79C";"-press any key to continue-";:CT=0:AN$:::9580/' TOP SCORES ************** 'œ12510$'#4,FILENAME$.' 8'PAGE=1/B'#4;25);"ROCKVILLE SENIOR CENTER BOWLING".L,G(INC,3),G(INC,4),S(INC),F(INC,1),F(INC,2),GT(INC),P(INC),W(INC),SEX$(INC)f+INCp+NLAST=INC-16z+::"79C";"-LOADING OF ARCHIVE FILE COMPLETED-""+30);NLAST;" RECORDS LOADED"+#2+AN$+230B, Save archive file e name: .D1/ARCHIVE.FILE";:=-16:"";FILENAME$E+FILENAME$=""FILENAME$=".D1/ARCHIVE.FILE":=-1:=43:FILENAME$% +"80C";"-loading archive file-" *+œ125104+#2,FILENAME$>+ H+INC=1BR+ž#211120s\+#2;N(INC),N$(INC),G(INC,1),G(INC,2)19);:#4205;SLA(INC);:#440);N$(SLAN1(INC));:#459);:#4205;SLA1(INC))INC)SCR=1AN$)SCR=0:#4:3020A* Load an archive file ************ )+:=6:"80C";"LOAD AN ARCHIVE FILE"N +::20);"Enter full filr)SLF(INC)=0SLF1(INC)=010630m|)#42);N$(SLFN(INC));:#420);:#4200;SLF(INC);:#440);N$(SLFN1(INC));:#460);:#4200;SLF1(INC))INC=)#415);"LADIES ---------- TOP AVERAGES ---------- MENS" )INC=16m)#42);N$(SLAN(INC));:#4);"LADIES ------------ TOP SETS ------------ MENS" @)INC=16mJ)#42);N$(SLSN(INC));:#420);:#4200;SLS(INC);:#440);N$(SLSN1(INC));:#460);:#4200;SLS1(INC)T)INC=^)#415);"LADIES ------------ TOP FLATS ----------- MENS" h)INC=16#(#41)#4:#420);"BOWLERS WITH AVERAGES UNDER 90">)#415);"LADIES ------------ TOP GAMES ------------ MENS" )INC=16m")#42);N$(SLGN(INC));:#420);:#4200;SLG(INC);:#440);N$(SLGN1(INC));:#460);:#4200;SLG1(INC),)INC=6)#415N1(INC));:#460);:#4200;SMF1(INC)(INC=(#415);"LADIES ---------- TOP AVERAGES ---------- MENS" (INC=16m(#42);N$(SMAN(INC));:#419);:#4205;SMA(INC);:#440);N$(SMAN1(INC));:#459);:#4205;SMA1(INC)(INC(SCR=1AN$;:#440);N$(SMSN1(INC));:#460);:#4200;SMS1(INC)(INC=(#415);"LADIES ------------ TOP FLATS ----------- MENS" (INC=16#(SMF(INC)=0SMF1(INC)=010430 (INC=16m(#42);N$(SMFN(INC));:#420);:#4200;SMF(INC);:#440);N$(SMFF(INC=16mP(#42);N$(SMGN(INC));:#420);:#4200;SMG(INC);:#440);N$(SMGN1(INC));:#460);:#4200;SMG1(INC)Z(INC=d(#415);"LADIES ------------ TOP SETS ------------ MENS" n(INC=16mx(#42);N$(SMSN(INC));:#420);:#4200;SMS(INC)0);:PRINT#4 USING 200;STA(INC);:PRINT#4 TAB(40);N$(STAN1(INC));:PRINT#4 TAB(60);:PRINT#4 USING 200;STA1(INC) (INC(SCR=1AN$((#432(#4:#420);"BOWLERS WITH AVERAGES 90 to 100-"><(#415);"LADIES ------------ TOP GAMES ------------ MENS" 4200;STF1(INC)'INC='#415);"LADIES ---------- TOP AVERAGES ---------- MENS" (INC=16m (#42);N$(STAN(INC));:#419);:#4205;STA(INC);:#440);N$(STAN1(INC));:#459);:#4205;STA1(INC) ( PRINT#4 TAB(2);N$(STAN(INC));:PRINT#4 TAB(2);N$(STSN1(INC));:#460);:#4200;STS1(INC)'INC='#415);"LADIES ------------ TOP FLATS ----------- MENS" 'INC=16#'STF(INC)=0STF1(INC)=010220m'#42);N$(STFN(INC));:#420);:#4200;STF(INC);:#440);N$(STFN1(INC));:#460);:#6m'#42);N$(STGN(INC));:#420);:#4200;STG(INC);:#440);N$(STGN1(INC));:#460);:#4200;STG1(INC)'INC='#415);"LADIES ------------ TOP SETS ------------ MENS" 'INC=16m'#42);N$(STSN(INC));:#420);:#4200;STS(INC);:#440'#4;23);"1990-1991 DUCKPIN PROGRAM ";;V'#4;19);"==========================================="`'#435);"--TOPSCORES--"5j'#4:#420);"BOWLERS WITH AVERAGES 100 AND OVER">t'#415);"LADIES ------------ TOP GAMES ------------ MENS" ~'INC=1 **************** 2,:=6:"80C";"SAVE DATA AS AN ARCHIEVE FILE"N-::20);"Enter full file name: .D1/ARCHIVE.FILE";:=-16:"";FILENAME$E -FILENAME$=""FILENAME$=".D1/ARCHIVE.FILE":=-1:=43:FILENAME$$-"80C";"-saving archive file-" -œ12510(-#2,FILENAME$2-<-INC=1NLASTpF-#2;INC,N$(INC),G(INC,1),G(INC,2),G(INC,3),G(INC,4),S(INC),F(INC,1),F(INC,2),GT(INC),P(INC),W(INC),SEX$(INC)P-INC'Z-::"79C";"-ARCHIVE FILE SAVED-"0d-25);NLAST;" RECORDS STORED IN ";FILENAME$!M@! BROOKS LOIStp8 !F`! COLESON RUBYLl p !F! CURRING NAOMIPj@Y!F! EWINS PAULINEh(@ !F ! FERISS MARYZ@V! BALL MYRTLEF,p` !F! BICMAN BETTEv [@!F@! BOWMAN JOEp&f@!M!BOWMAN MARGARET  !F ! BRODY CHUCK~(@ 0AN$*0230<0 Error routine **************[07);20);"ERROR !!!! RETURNING TO PRINTER MAIN MENU.":PAUSE=1500:PAUSE::23030 "BOWL.PROGRAM" 2.0 100-12520 Senior Center's DATAPOINT printer."M05);"14...Generate new bowler list: Establish the initial bowler list."= 05);"15...Quit program: Exits the program."O012);"REMEMBER TO USE THE 'SAVE DATA' COMMAND TO AVOID LOSING NEW DATA."; elected disks."S/5);"11...Save archive file: Saves and locks data in an archive file."C/5);"12...Load archive file: Recalls an archive file."L/5);"13...Select printer options: Sets the font and line spacing of"3/12);"theaves to disk. Default '.D2/BOWL.DATA'"G/12);"REMEMBER...IF YOU WRITE OVER AN EXISTING FILE, THE DATA IN"N/12);"THAT FILE WILL BE OVERWRITTEN AND LOST !!! Use a new file name."S/5);"10...Read disk directory: Reviews the directory of s Choices include screen, disk file, printer."K/12);"NOTE: THIS IS WHERE THE NEW PERFORMANCE DATA IS CALCULATED !!!"V/6);"8...Reorder bowler list: Reorders list alphabetically or by averages."Q/6);"9...Save data: Sers the individual summary data."Fv/6);"5...Add to bowler list: New bowler names added here."M/6);"6...Delete record: Bowler names removed from the list.",/6);"7...Process and display records:"U/6);" ads data from file: Recalls previously stored data."OX/6);"3...Enter game data: Enter the day's bowling results here."Mb/12);"ALL THE INDIVIDUAL GAME SCORES SHOULD BE ENTERED AT ONE SITTING."Ml/6);"4...Modify data file: Altreater"//30);"-averages between 90 and under 100"&/30);"-averages under 90"0/AN$N:/:3);"The program is menu-driven and allows for the following actions:"DD/6);"1...Program information: Presents this information."IN/6);"2...Losuit the particular needs of their bowling activity.";." A summary of individual scores is maintained in addition to a listing of the high perform-ance in several categories.";)/" This is done for bowlers with:":(/30);"-averages of 100 or gn-#2:FILENAME$x-AN$-230<. Program information **************=.:=4:"80C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-".5);"This program was prepared for the Rockville Senior Center in July, 1990, andis designed to !F0! FREISS JOE:$@@!M@! FREISS SYLVIA@y*@_!FP! GONNALE HARRY^&@ @!M`! HICCS JAMES^"@!Mp! HOCHSON JEANT&BERNIE72pP !M! TAYLER JOHNj@!M! URBAN CLARA*@ !F! WALTHERS IRA8,@$`!M!WALTHERS MARGARET.02@ !F ! ZETH JANEN"p` !F$! PARDET B.J."\"@\!F(!BARBORE RUTHIE<@!F,!SHAMOUNT BERTHAf M@!FGUS'4@!M !SHARTIN BERNIE72pP !M! TAYLER JOHNj@!M! URBAN CLARA*@ !F! WALTHERS IRA8,@$`!M!WALTHERS MARGARET.02@ !F  ',p2 !Fx! RICHEL ARLENE~ 0_@!F! ROWMAN ELAINEC@@!F! SEGERT GERRYb"@@!F! SEGERT GUS'4@!M !SHARTIN  ,p"` !FP! MACKIE JIM(0p@ !MX! MILLET BILL\@!M`! MILLET MARY:w @q!Fh! MOCCEK MOLLY,p0O!Fp! PAYNSON MARY7@!F(! KINDS RUTHTp !F0!KRAYSON ALBERTR&@!M8! KRATSON IRENE4t$p@ !F@!LANBERT LUTHERH0p! !MH!LANBERT VIRGINIA\J@@!F! HOCHSON RALPH:@!M! HOPPE WALTl .W@!M! HOWARK MANNYx(p> !M! KINBERT AARONL&@!M ! KINER PAULINEB