LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|-READ.ME.FIRST'/N*! !+BOWL.DATA.1  *" * ARCHIVE.FILE -1-1*HELLO.TEXT*MENU.MAKER  },>DISKNAME.DAT b%b%%SEG.T #j-Ÿ/ III.MSC.08OGRAMu' *SOS.DRIVER 4-Z*SOS.KERNEL ,,V* ! *SOS.INTERP X4ke* !T.BOWL.LIST.PRGM _4*! !!%HELLO [*! 4 ,BOWL.PROGRAM >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LGA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   !ґȥӑ,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`)aI88  >!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"""""""> >>>xr #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L Lwww """"""""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  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@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é/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4 HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5p 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`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莟mwwJ) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruz/47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}&(ling scores. It works well and could be adapted to other bowling organization's needs. On Side Two: Grid Grade is a set of four programs that allows a teacher to keep track of his/her students and their grades: GRIDDER; GRADER; GRADESHEET AND CLASSL WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Bowling/Grid Grade DISK ID#: 3MSC-08 BOOTABLE?: Bootable A disk contributed by Jim Salerno, Bowling is a program originally developed for a senior citizen center to help them keep track of bowEAD 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 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~ IST. HEET AND CLASSLIST. (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 % <+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV%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`$eVOLUME 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 0 WELCOME! /// SIG Public Domain Library Disk Category: Miscellaneous/III.MSC.08 Disk Format: Self-booting - Both Sides Side One of this PD disk /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s@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 ɩ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 `` LLɠ8`ΛLL渠`0 `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é I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘN8`) ))У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`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>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ة  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4 ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L )ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 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Ȱۈ)ۅƭۅ 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ɰ )# Ԑ)0\-JM-, J3,e$,d,,  * *l߅߅H ߅ \xi ߅LHHH *ح)0 D) HHHH,, ߩ0  xLߍ߭lߩ * xLx @h hhh ,0)ߨ)Ah&'0HHHH xhhhh ,0)ߍLLhhh@)&&&(&('+*H)H(h)H@x )HH30.Ѥ  БĈ` 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žѥ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` (2P 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ʆSTL8HSITQQSTde0f`   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 }`` ?)ŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠWYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~$ 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 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[ji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89:: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs AL<^ȱ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, 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% mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2ZuL.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 y56y^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$oȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  +|] {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ɥ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@ @@h5H ?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 "!!!IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788vvyLj L ʟ,-uukv kv@vvyL5Lj ʟA80멀uukeqqtt$uA)*t L; $uЫkЦuuj ysLq,kl$uhuuj XkkNuuj k 4%v. #  1$u tAvʘtDթ q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ ghh "o `L x  wwghhoؠKkqvj L`$uZuukvN kGv@  pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8cJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH 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^J 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 xLCxl5Ym6Z`u vphh` Ljk ,hh`Sj9-k L9j ekekk|z)ekk |j[ ٢  L`j 9kkj"j"kеAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙRթR`yiɀjjn*8miɝ d L .q$uL$)JJ8偅8傪 u Tf$i0Ł!y0GLqL~䁰< 0$H ,GhGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)R?eR>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` ׫$`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;eehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !12HR=HR-12:AMPM$="PM"$55);HR;":";ҟ,4,2);":";AMPM$"X=1300:X:".D1/MENU.MAKER"MO$=,:30);"";:"ENTER SELECTION: ",ANS6ANS<1ANS>127):170A@ANS5610,810,1610,2010,2210,1010,3410,610,5000,6010,7003,410> QUIT PROGRAM *****************,:=6:"79C";"STAND BY FOR MENU.MAKER"2YEAR$="19"+t."+20);"8)........Read Disk Directory.".20);"9)........Select Printer Options.";19);"10)........Reorder Bowler List Alphabetically."B19);"11)........Generate Bowl List from Bowl Program Data."%"19);"12)........Quit Program.")n."420);"2)........Load an Existing Bowler List."*20);"3)........Modify Bowler List."*20);"4)........Add to Bowler List."%20);"5)........Delete Record."(20);"6)........Save Bowler List."+20);"7)........Display Bowler Liszes the memory set aside for the maximum number of bowlersFxN(B),NL$(B),NF$(B),ADDR$(B),CIT$(B),ST$(B),ZIP$(B),PH$(B),CDE$(B)::=4:"80C";"-ROCKVILE SENIOR CENTER BOWLING LIST-"=6:"80C";"-MAIN MENU-"+20);"1)........Program Informatio.d "BOWL.LIST.PRGM" 100-7200 +f James Salerno August 1990:h:=4:"80C";"-ROCKVILE SENIOR CENTER BOWLING LIST-"Hj:15);"Enter maximium number of bowlers in the program: ";:"";B$lB$=""B=50:B=B$)En B sih`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?e37):610 œ720ANS690,700,710".D1":AN$:610".D2":AN$:6101607)::610E  Load an existing data file ************1*:=6:"80C";"LOAD AN EXISTING BOWLER LIST"K4::20);"Enter full file name: .D1/BOWL.LIST";60? 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"LAST+1)H:=10:"NEW BOWLER'S PHONE NUMBER: ";:"",PH$(NLAST+1)I:=10:"NEW BOWLER'S CODE INFORMATION: ";:"",CDE$(NLAST+1)NLAST=NLAST+19:=10:"Do you wish to add another name? (Y/N) ",AN$ AN$="Y"AN$="y"2010:1RESS: ";:"",ADDR$(NLAST+1)I:=10:"NEW BOWLER'S CITY: ";:"",CIT$(NLAST+1)H :=10:"NEW BOWLER'S STATE: ";:"",ST$(NLAST+1)I:=10:"NEW BOWLER'S ZIP CODE: ";:"",ZIP$(N,:=2:"79C";"ADD NAME TO BOWLER LIST"'::10);"RECORD NUMBER ";NLAST+1H:=10:"NEW BOWLER'S LAST NAME: ";:"",NL$(NLAST+1)H:=10:"NEW BOWLER'S FIRST NAME: ";:"",NF$(NLAST+1)J:=10:"NEW BOWLER'S ADD=""=-1:=42:CDE$(N):1990CDE$(N)=AN$*30);"RECORD NUMBER ";N;" COMPLETED"D:25);"";:"Do you wish to modify another record? (Y/N) ",AN$"AN$="Y"AN$="y"1610:ۺ160C Add to bowler list *****************=42:"",AN$&bAN$=""=-1:=42:ZIP$(N):1910lZIP$(N)=AN$Bv10);"ENTER PHONE NUMBER: ";PH$(N);:=42:"",AN$%AN$=""=-1:=42:PH$(N):1940PH$(N)=AN$C10);"ENTER COMMENTS: ";CDE$(N);:=42:"",AN$&AN$ ";CIT$(N);:=42:"",AN$&&AN$=""=-1:=42:CIT$(N):18500CIT$(N)=AN$B:10);"ENTER STATE: ";ST$(N);:=42:"",AN$%DAN$=""=-1:=42:ST$(N):1880NST$(N)=AN$CX10);"ENTER ZIP CODE: ";ZIP$(N);:ST NAME: ";NF$(N);:=42:"",AN$%AN$=""=-1:=42:NF$(N):1790NF$(N)=AN$D10);"ENTER ADDRESS: ";ADDR$(N);:=42:"",AN$'AN$=""=-1:=42:ADDR$(N):1820ADDR$(N)=AN$C10);"ENTER CITY: accept value press RETURN without input-"+::;"File contains ";NLAST;" records":10);"RECORD NUMBER ";ND:10);"ENTER LAST NAME: ";NL$(N);:=42:"",AN$%AN$=""=-1:=42:NL$(N):1760NL$(N)=AN$B10);"ENTER FIR"9T::"79C";"ENTER RECORD NUMBER YOU WISH TO REVIEW"3^"79C";"-enter 0 to return to the main menu-")h:;"File contains ";NLAST;" records"r=38:"";N |N=0160N>NLAST7):1610%:=2:"79C";"MODIFY DATA FILE";"80C";"-toINC),ST$(INC),ZIP$(INC),PH$(INC),CDE$(INC)LINC$V::"79C";"-DATA FILE SAVED-"0`25);NLAST;" RECORDS STORED IN ";FILENAME$j#2tAN$~160?@ Modify data file ***************%J:=6:"79C";"MODIFY DATA FILE);"Enter full file name: .D1/BOWL.LIST";:=-13:"";FILENAME$BFILENAME$=""FILENAME$=".D1/BOWL.LIST":=-1:=43:FILENAME$!"80C";"-saving data file-" œ5510$#2,FILENAME$.8INC=1NLASTVB#2;N,NL$(INC),NF$(INC),ADDR$(INC),CIT$((INC),CDE$(INC)INCNLAST=INC-13::"79C";"-LOADING OF DATA FILE COMPLETED-""30);NLAST;" RECORDS LOADED"#2AN$160> Save data file ****************#:=6:"80C";"SAVE DATA FILE"K::20:=-13:"";FILENAME$B>FILENAME$=""FILENAME$=".D1/BOWL.LIST":=-1:=43:FILENAME$"H"80C";"-loading data file-" Rœ5510\#2,FILENAME$f pINC=1B zž#2920[#2;N(INC),NL$(INC),NF$(INC),ADDR$(INC),CIT$(INC),ST$(INC),ZIP$(INC),PH$=38:"";N N=0160N>NLAST7):2210$:=6:"79C";"DELETE A RECORD"+::;"File contains ";NLAST;" records" :20);"RECORD NUMBER ";N 20);NL$(N);", ";NF$(N)1 :20);"ABOVE RECORD SELECTED FOR DELETION".$ ::=25:"DELETE THE RECORD? (Y/N) ",AN$". AN$="Y"AN$="y"2390: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:160n:"79C";"One charac4:=30:"SELECTION: ";ANSANS<1ANS>45040ANS5140,5160,5180,160)  PICA PRINT PP=150:5190* ELITE PRINT (PP=120:5190.2 CONDENSED PRINT <PP=1:5190EF:....ELITE (12 Characters per inch; 6 Lines per inch)."L15);"3)........CONDENSED (17 Characters per inch; 8 Lines per inch)."+15);"4)........RETURN TO MAIN MENU."L=22:=18:::" DATAPOINT PRINTER MUST BE CONNECTED AND TURNED ON ";:: =1Enter printer name: .PRINTER";:=-8:"";FILENAME$=FILENAME$=""FILENAME$=".PRINTER":=-1:=38:FILENAME$5:=6:"80C";"-DATAPOINT 9628 PRINTER OPTIONS-"I:15);"1)........PICA (10 Characters per inch; 6 Lines per inch)."H15);"2)....R=1CT=114320INCSCR=1AN$ SCR=0:#4 34209"79C";"-press any key to continue-";:CT=0:AN$::; Set printer *************=:=4:"79C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-"C::20);"====================================="TINC=1NLASTK^#4;1);INC;4);NL$(INC);", ";NF$(INC);35);PH$(INC);50);CDE$(INC)Eh#4;5);ADDR$(INC);30);CIT$(INC);", ";ST$(INC);" ";ZIP$(INC) CT=CT+1'SCR=1CT=10PAGE=1PAGE=2:4320SC$=".PRINTER":=-1:=38:FILENAME$@ Output routine ****************** œ5510#4,FILENAME$ PAGE=1/#4;25);"ROCKVILLE SENIOR CENTER BOWLING".#4;23);"1990-1991 DUCKPIN PROGRAM ";;#4;19);"======""FILENAME$=".D1/BOWL.LIST":=-1:=43:FILENAME$ 4010@ Output to printer ******************&:=6:"80C";"OUTPUT TO PRINTER"C$::20);"Enter printer name: .PRINTER";:=-8:"";FILENAME$=.FILENAME$=""FILENAME ******************* FILENAME$=".CONSOLE" SCR=1:CT=0 4010@ Print to file *******************" :=6:"80C";"PRINT TO FILE"K ::20);"Enter full file name: .D1/BOWL.LIST";:=-13:"";FILENAME$B FILENAME$=...Print records to file."0z 20);"3)........Print records to printer."* 20);"4)........Return to main menu"# :=30:"ENTER SELECTION: ",ANS ANS<1ANS>47):3420  ANS3520,3560,3610,160@ Print to screen ELETED-"9 25);"Your bowler list contains ";NLAST;" records." CH Print records ********************R GOSUB 4610 !\ :=6:"80C";"-PRINT MENU-"/f 20);"1)........Print records to screen."-p 20);"2).....tion ` INC=NNLAST-1Sj N(INC)=N(INC+1):NL$(INC)=NL$(INC+1):NF$(INC)=NF$(INC+1):ADDR$(INC)=ADDR$(INC+1)Vo ST$(INC)=ST$(INC+1):ZIP$(INC)=ZIP$(INC+1):PH$(INC)=PH$(INC+1):CDE(INC)=CDE$(INC+1)t INC~ N$(NLAST)="":NLAST=NLAST-1 "79C";"-RECORD D Program information **************::=2:"80C";"-ROCKVILE SENIOR CENTER BOWLING LIST-"5);"This program was prepared for the Rockville Senior Center in July, 1990, andis designed to suit the particular needs of their bowling activity.";_" A list of bowlers is maintained along with addresses , phone numbers and short notes."N::3);"The program is menu-driven and allows for the following actions:"DD6);"1...Program information: Presents this information."HN6);"2...L5 WAP /// SIG HELLO PROGRAM. UPDATED 1/12/91 DGO FOR III.MSC.16 DISK :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$Ud "HELLO"=n:=8:"80C";"-ROCKVI="-":PH$(INC)="-":CDE$(INC)="-" INC160.  "BOWL.LIST.PRGM" 100-7200 (INC),F(INC,2),GT(INC),P(INC),W(INC)INCNLAST=INC-1:#2INC=1NLAST I=120L$=N$(INC),I,1)L$=","7150INL$(INC)=N$(INC),I-1)NF$(INC)=N$(INC),I+2)aN(INC)=INC:ADDR$(INC)="-":CIT$(INC)="-":ST$(INC)="-":ZIP$(INC)NU."Kb::20);"Enter full file name: .D1/BOWL.DATA";:=-13:"";FILENAME$BlFILENAME$=""FILENAME$=".D1/BOWL.DATA":=-1:=43:FILENAME$"v"80C";"-loading data file-"#2,FILENAME$INC=130 ž#27090E#2;N(INC),N$(INC),G(INC,4),S;"-GENERATE BOWLER LIST FROM BOWL PROGRAM DATA-"0]"80C";"LOAD AN EXISTING BOWLER DATA FILE"J_"79C";"Note:- Only bowler names will be copied to the bowler list."Z`"80C";"All other data must be entered by using the modify option of the MAIN ME1 8".";BINCSLEXCH=0:"79C";"----- LIST SORT COMPLETED -----":PAUSE=1500:PAUSE:160VEXCH=0:T=S:6090HX Extract bowler list from Bowl Program *****-[N$(B),G(B,4),S(B),F(B,2),GT(B),P(B),W(B)B\:=6:"80C"NC)=ST$(INC+1):ZIP$(INC)=ZIP$(INC+1):PH$(INC)=PH$(INC+1):CDE$(INC)=CDE$(INC+1)UN(INC+1)=TN:NL$(INC+1)=TNL$:NF$(INC+1)=TNF$:ADDR$(INC+1)=TADDR$:CIT$(INC+1)=TCIT$GST$(INC+1)=TST$:ZIP$(INC+1)=TZIP$:PH$(INC+1)=TPH$:CDE$(INC+1)=TCDE$.EXCH=EXCH+1:S=INC-)6210TN=N(INC):TNL$=NL$(INC):TNF$=NF$(INC):TADDR$=ADDR$(INC):TCIT$=CIT$(INC):TST$=ST$(INC):TZIP$=ZIP$(INC):TPH$=PH$(INC):TCDE$=CDE$(INC)iN(INC)=N(INC+1):NL$(INC)=NL$(INC+1):NF$(INC)=NF$(INC+1):ADDR$(INC)=ADDR$(INC+1):CIT$(INC)=CIT$(INC+1)WST$(I12);"REMEMBER TO USE THE 'SAVE LIST' COMMAND TO AVOID LOSING NEW DATA.";AN$160;p Sort routine *************7z:=8:"80C";"SORTING BOWLER LIST ALPHABETICALLY" T=NLAST-1 INC=1TNL$(INC)<=NL$(INC+1nior Center's DATAPOINT printer."H5);"10...Reorder bowler list: Reorders list alphabetically."W5);"11...Copy list from bowl program: Generates a list from bowl program names."=5);"12...Quit program: Exits the program."O6);"7...Print bowler list: Choices include screen, disk file, printer."R6);"8...Read disk directory: Reviews the directory of selected disks."K6);"9...Select printer options: Sets the font and line spacing of"312);"the Seemoved from the list."Q6);"6...Save data: Saves to disk. Default '.D2/BOWL.LIST'"G12);"REMEMBER...IF YOU WRITE OVER AN EXISTING FILE, THE DATA IN"N12);"THAT FILE WILL BE OVERWRITTEN AND LOST !!! Use a new file name."Uoads bowler list: Recall previously stored data."Kl6);"3...Modify bowler list: Alter the individual information."Fv6);"4...Add to bowler list: New bowler names added here."M6);"5...Delete record: Bowler names rLE SENIOR CENTER BOWLING PROGRAM-")x:25);"1)........Bowling Program."+25);"2)........Bowler List Program."0:30);"";:"ENTER SELECTION: ";:ANS:ANSMANS=1:"79C";"-LOADING SENIOR CENTER BOWL PROGRAM-":"BOWL.PROGRAM"VANS=23d "BOWL.PROGRAM" 2.0 100-12520 +n James Salerno October 1990 =x:=4:"80C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-"H:15);"Enter maximium number of bowlers in the program: ";:"";B$B$=""B=60:B=B$)E Save data file ****************#V:=6:"80C";"SAVE DATA FILE"K`::20);"Enter full file name: .D1/BOWL.DATA";:=-13:"";FILENAME$BjFILENAME$=""FILENAME$=".D1/BOWL.DATA":=-1:=43:FILENAME$!t"80C";"-saving ,FILENAME$ INC=1B ž#21020O#2;N(INC),N$(INC),G(INC,4),S(INC),F(INC,2),GT(INC),P(INC),W(INC),SEX$(INC)INCNLAST=INC-13::"79C";"-LOADING OF DATA FILE COMPLETED-""30);NLAST;" RECORDS LOADED"#2$AN$.230>Le ************/:=6:"80C";"LOAD AN EXISTING DATA FILE"K::20);"Enter full file name: .D1/BOWL.DATA";:=-13:"";FILENAME$BFILENAME$=""FILENAME$=".D1/BOWL.DATA":=-1:=43:FILENAME$""80C";"-loading data file-" œ12510#220);"3)............RETURN TO MAIN MENU."=35:"SELECTION ";ANSANS<1ANS>37):710 œ830 :=2ANS800,810,820 ".D1":AN$:710*".D2":AN$:7104230>7)::710E Load an existing data filr":MO$="October":MO$="November":MO$="December":A READ DISK DIRECTORY ************(:=6:"80C";"DISK DIRECTORY MENU"+:20);"1)............DISK DRIVE #1.")20);"2)............DISK DRIVE #2."/AM":HR>12HR=HR-12:AMPM$="PM"$055);HR;":";ҟ,4,2);":";AMPM$":X=1300:X:".D1/MENU.MAKER"DMO$="January":NMO$="February":XMO$="March":bMO$="April":lMO$="May":vMO$="June":MO$="July":MO$="August":MO$="Septembe QUIT PROGRAM *****************,:=6:"79C";"STAND BY FOR MENU.MAKER"2YEAR$="19"+Р,2):DAY=Ѡ,2)):MO=Ҡ,4,2))7MO580,590,600,610,620,630,640,650,660,670,680,690"20);MO$;" ";DAY;", ";YEAR$;7&HR=П,2)):AMPM$=""3|19);"14)........Generate a New Bowler List."%19);"15)........Quit Program."):30);"";:"ENTER SELECTION: ",ANSANS<1ANS>157):240SANS12010,910,1310,1710,2110,2210,3010,8510,1110,710,11510,11010,8000,2510,510> )........Reorder Bowler List."&J20);"9)........Save Data File.",T19);"10)........Read Disk Directory."5^19);"11)........Save Data as an Archive File."-h19);"12)........Load an Archive File."/r19);"13)........Select Printer Options..Load an Existing Data File."'20);"3)........Enter Game Data."(20);"4)........Modify Data File."/"20);"5)........Add Name to Bowler List."%,20);"6)........Delete Record."3620);"7)........Process and Display Records."+@20);"8SLG(7),SLGN(7),SLS(7),SLSN(7),SLF(7),SLFN(7),SLA(7),SLAN(7) ### ###.# #### #####=:=2:"80C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-"=4:"80C";"-MAIN MENU-"+20);"1)........Program Information."220);"2)....... B sizes the memory set aside for the maximum number of bowlers:N(B),N$(B),G(B,4),S(B),F(B,2),GT(B),P(B),W(B),SEX$(B)@STG(7),STGN(7),STS(7),STSN(7),STF(7),STFN(7),STA(7),STAN(7)@SMG(7),SMGN(7),SMS(7),SMSN(7),SMF(7),SMFN(7),SMA(7),SMAN(7)@data file-" ~œ12510#2,FILENAME$INC=1NLASTL#2;INC,N$(INC),G(INC,4),S(INC),F(INC,2),GT(INC),P(INC),W(INC),SEX$(INC)INC$::"79C";"-DATA FILE SAVED-"025);NLAST;" RECORDS STORED IN ";FILENAME$#2:FILENAME$AN$230= Enter game data *************** INC=1$(:=6:"80C";"ENTER GAME DATA"+2::;"File contains ";NLAST;" records"#<::20);"Record Number ";INC$FG(INC,1)=0:G(INC,2)=0:G(INC,3)=0P20);N$(INC)1Z:=2 ::=25:"DELETE THE RECORD? (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 recoontains ";NLAST;" records"=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".$ AN$="Y"AN$="y"2110:230? 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 c20 spaces-"'R::20);"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$PLETED"D:25);"";:"Do 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 1980F=F$):F(N,2)=F?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;" COME BOWLED: ";G(N,4);:=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$=""1z:SEX$(N)="M"20);"ON MEN'S BOWLER LIST ";:"(press 'C' to change) ",AN$:AN$="C"AN$="c"SEX$(N)="F":=-1:1840CD:20);"ENTER NUMBER OF GAMES BOWLED: ";GT(N);:=60:"",GT$NGT$=""1890XGT=GT$):GT(N)=GTBb20);"ENTER HIGH GAM:20);"RECORD NUMBER ";N20);N$(N)&SEX$(N)=""SEX$(N)="F"0SEX$(N)="F"20);"ON WOMEN'S BOWLER LIST ";:"(press 'C' to change) ",AN$:AN$="C"AN$="c"SEX$(N)="M":=-1:20);" ":=-eturn to the main menu-"):;"File contains ";NLAST;" records"=38:"";N N=0230N>NLAST7):1710%:=6:"79C";"MODIFY DATA FILE";"80C";"-to accept value press RETURN without input-"+::;"File contains ";NLAST;" records"9630);TEMP;" RECORDS REVIEWED OF THE LIST OF ";NLAST@AN$J230? Modify data file ***************%:=6:"79C";"MODIFY DATA FILE"9::"79C";"ENTER RECORD NUMBER YOU WISH TO REVIEW"3"79C";"-enter 0 to r1)>F(INC,2)F(INC,2)=F(INC,1)GT(INC)=GT(INC)+GB,P(INC)=P(INC)+G(INC,1)+G(INC,2)+G(INC,3)TEMP=INC:INC=INC+1INC>NLAST1580,28);"";:"ANOTHER ENTRY? (Y/N) ",AN$AN$="N"AN$="n"1580 "1320%,:"79C";"-LEAVING DATA ENTRY-"1=20:"ENTER HIGH FLAT GAME SCORE: ";F(INC,1)IG(INC,1)+G(INC,2)+G(INC,3)>S(INC)S(INC)=G(INC,1)+G(INC,2)+G(INC,3))G(INC,1)>G(INC,4)G(INC,4)=G(INC,1))G(INC,2)>G(INC,4)G(INC,4)=G(INC,2))G(INC,3)>G(INC,4)G(INC,4)=G(INC,3))F(INC,0:"ENTER NUMBER OF GAMES BOWLED: ",GBdGB>37):1320!nGB=01530:W(INC)=W(INC)+1+x=20:"ENTER 1st GAME SCORE: ";G(INC,1)GB=11450+=20:"ENTER 2nd GAME SCORE: ";G(INC,2)GB=21450+=20:"ENTER 3rd GAME SCORE: ";G(INC,3)rds for deletion *********j 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 initializati56);N$(SLAN);74);:#4205;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);"---;N$(SLFN);76);:#4200;SLF#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;(SLGN);76);:#4200;SLG#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) ";;#4;19);"==========================================="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$ME$ Q$="SD"9510 Q$="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="R"4010 Q$="TS"10000@ Output to printer ******************& :=6:"80C";"OUTPUT TO PRINTER"C ::20);"Enter printer name: .PRINTER";:=-8:"";FILENAME$= FILENAME$=""FILENAME$=".PRINTER":=-1:=41:FILENA Print to 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":3310 Q$="R":3410 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 Top Standings to printer."+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$=.......Print Records to screen."- 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************ 5000: 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).26905n N$(NLAST+1))>20N$(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 *********6:"79C";"GENERATE A NEW 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"on of the data bank-" 4410` ::"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 :=--------------------------------------------------------------------"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);C:STG(1)=G(INC,4):5600NG(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 Average above 100 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)=IN5INC=1NLAST: FOR 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 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=INCINC Average 90 and below 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 100 or greater(FG(INC,4)>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> 1(INC)=0:SLPN1(INC)=0:SLA1(INC)=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 INC)=0:SMP1(INC)=0:SMPN1(INC)=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:SLP)=0:STFN1(INC)=0:STP1(INC)=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(LG=0:SLGN=0:SLS=0:SLSN=0:SLF=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(INCINC2INC> 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=0DS"79C";"-press any key to 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 (74);:PRINT#4 USING 200;W(INC) 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$::?:#4;35);:#4200;S(INC);:#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):STG(5)=STG(4):STG(4)=STG(3)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):S=SMGN(4):SMGN(4)=SMGN(3):SMGN(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)SMG(4)=SMG(3):SMG(3)=SMG(2)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)MG(6)=SMG(5):SMG(5)=SMG(4):SMG(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):ST4P(INC)/GT(INC)=>STA(5)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)S4):STAN(4)=STAN(3):STA(3)=P(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)P(INC)/GT(INC)=>STA(2)STAN(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(STA(2):STA(2)=STA(1)P(INC)/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),2):5840$F(INC,2)=>STF(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)=5)=STF(4):STF(4)=STF(3)hF(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(INC1)=F(INC,2):5840NvF(INC,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(TS(6)=S(INC):STSN(6)=INCXF(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(0&S(INC)=>STS(4)STS(6)=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)STSN(6)=STSN(5):STSN(5)=STSN(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):5720TS(3)=STS(2):STS(2)=STS(1)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)SMGN(6)=SMGN(5):SMGN(5)=INC:SMG(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:=G(INC,4):SLGN(6)=INCS(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)4)SLG(6)=SLG(5):SLG(5)=SLG(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)(4):SLGN(4)=SLGN(3):SLGN(3)=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(C,4)=>SLG(1)SLGN(6)=SLGN(5):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)=SLGNINC:6460>2P(INC)/GT(INC)=>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)=>SMA(4)SMA(6)=SMA(5):SMA(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)=AN(3)=SMAN(2):SMA(2)=P(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(INAN(4):SMAN(4)=SMAN(3):SMAN(3)=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):SMF(INC,2):SMFN(5)=INC:63402F(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)=SM4):SMFN(4)=SMFN(3):SMFN(3)=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)=SMF(3):SMF(3)=SMF(2)xtF(INC,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(SMF(5):SMF(5)=SMF(4):SMF(4)=SMF(3):SMF(3)=SMF(2):SMF(2)=SMF(1)`F(INC,2)=>SMF(1)7)"*LRMY7)"*LQM^7)"*LQMY7)"*LPM^7)"*LPMY7)"*LWM^7)"*LWMY7)"*LVM^7)"*LVMY7)"*LUM^7)"*LUMY-*'^7)"LUMY"L-*'HVM^RWPTd*|"L-*'HVMYZ7)"LVMSMF(6)=SMF(5):SMF(5)=SMF(4):SMF(4)=)=SMSN(5):SMSN(5)=SMSN(4):SMSN(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)=SMS(2)=S(INC):6220>S(INC)=>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:6720LS(INC)=>SLS(2)SLS(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) Lines per inch)."+15);"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 PRIN5h:=6:"80C";"-DATAPOINT 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; 8A ;@ Set printer *************=J:=4:"79C";"-ROCKVILE SENIOR CENTER BOWLING PROGRAM-"CT::20);"Enter printer name: .PRINTER";:=-8:"";FILENAME$=^FILENAME$=""FILENAME$=".PRINTER":=-1:=38:FILENAME$1(I)=SLG(I):SLG(I)=0:SLGN1(I)=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(I)=0:STAN1(I)=STAN(I):STAN(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)=06SLGNC:Q=271309DI=16: 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):STLAN(5):SLAN(5)=SLAN(4):SLA(4)=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)=INC0I(3)SLA(6)=SLA(5):SLA(5)=SLA(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(1)=INC:6960TP(INC)/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)=>SLAP(INC)/GT(INC)=06960bP(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):SF(6)=SLF(5):SLF(5)=SLF(4)XF(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)=INCFN(4)=SLFN(3):SLFN(3)=SLFN(2):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)SLSLF(1)SLFN(6)=SLFN(5):SLFN(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):SLSLS(6)=SLS(5)D,S(INC)=>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)=>T PP=150:8190* 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";"On200;G(INC,3);:#4;49);:#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);:PRI-------";28);"----";35);"----";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);:#4======================================"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);"-------------#INC#NLAST=INC-1:#2#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);"=====3:"";FILENAME$Bn#FILENAME$=""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)ILE-".F#"80C";"LOAD AN EXISTING 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";:=-1INCS"EXCH=0:"79C";"----- 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 F)=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"EXCH=EXCH+1:S=INC-1 "".";"8810V"GT(INC+1)=08910-`"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(INCTEMPP:W(INC+1)=TEMPW!EXCH=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)=0)=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+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)=750z!7):85107!:=8:"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 Sort routine *************->!:=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"8e character space at 17.14 CPI..... 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! NT#4 USING 200;INT((G(INC,1)+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);"ROCKVILL),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)f+INCp+NLAST=INC-16z+::"79C";"-LOADING OF ARCHIVE FILE COMPLETED-""+30);NLAST;" RECORDS LOADED"+#2+AN$+230B, +::20);"Enter full file 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#42);N$(SLAN(INC));:#419);:#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 ------ MENS" h)INC=16#r)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)LG1(INC),)INC=6)#415);"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 -----(INC(SCR=1AN$(#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;S0;SMF(INC);:#440);N$(SMFN1(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)#420);:#4200;SMS(INC);:#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);:#420 GAMES ------------ MENS" F(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));:$(STAN(INC));:PRINT#4 TAB(20);: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$(STFN1(INC));:#460);:#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:#4200;STS(INC);:#440);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---------- MENS" ~'INC=16m'#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);E SENIOR CENTER BOWLING".L'#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 -- Save archive file **************** 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;" REC!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~(@ AVOID LOSING NEW DATA."; 0AN$*0230<0 Error routine **************[07);20);"ERROR !!!! RETURNING TO PRINTER MAIN MENU.":PAUSE=1500:PAUSE::23030 "BOWL.PROGRAM" 2.0 100-12520 spacing of"3/12);"the 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 Reviews the directory of selected 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 lineSave data: Saves 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: 6);" 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...dify data file: Alters 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/ormation."IN/6);"2...Loads 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...Mo30);"-averages of 100 or greater"//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 infy, 1990, andis designed to suit 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:":(/ORDS STORED IN ";FILENAME$n-#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 Jul!F0! FREISS JOE:$@@!M@! FREISS SYLVIA@y*@_!FP! GONNALE HARRY^&@ @!M`! HICCS JAMES^"@!Mp! HOCHSON JEANT& contains a program designed by Jim Salerno to keep track of bowling scores for a Senior League. It works great, but please study it carefully, as it was designed for a specific group. It is adaptable to you own needs. On Side Two yu will find "Grid/Grade", programs for teachers to help them keep track of students grades, etc. We hope you enjoy these programs and invite your comments and contributions. contains a program designed by Jim Salerno to keep track of bowling scores for a Senior League. It works great, but please study it carefully, as it was designed for a specific group. It is adaptable to you own needs. On Side Two yo)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 ou will find "Grid/Grade", programs for teachers to help them keep track of students grades, etc. We hope you enjoy these programs and invite your comments and contributions. ns. 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),* :"79C";"-LOADING SENIOR CENTER BOWLER LIST PROGRAM-":"BOWL.LIST.PRGM"7):1101660,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:=21BOWLING BY JIM SALERNO a$,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:"