' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( D  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d ֠z# u`ˠĠűŲųŴ̠ΠŠ΍ԠԍҍҠ̠ΠŠ̠ˠĠ  H1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVEGTHE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- 22:1:BN$:WW1W::10120FN::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": aG -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED ESS ANY KEY TO CONTINUE .........."E~'Q$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75E'(16384)127Ĺ16368,0:::E'BN$(WD$,40):L166WD$(WD$,2,L1):LL1:10150E'WD$(WD$,2,L1)(WD$,1)F':6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768#Et'WD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY ............. PR784,0:785,3:786,96:787,0eCB'::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";:CL'I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";:CV'2:2:" ";:39:" ":17:2:" ";:39:" ";:C`'10030JDj'6,222:7,77:768:W1200:B.'6:H$"R E C O R D A N D T A P E":10020PB/'9:H$"I N D E X E R":10020uB0'12:H$"BY RUDY A. GUY":10020:C8'768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:HT CRASH BECAUSE IT WON'T BE ABLE TO CREATE OR MODIFY THE NECESSARY FILES."A#22:"() TYPE 'Q' TO QUIT THIS PROGRAM NOW. () PRESS ANY OTHER KEY TO RUN IT.";:Z$A#Z$"Q"19999A#A' PROGRAM TITLE A'10040A$'(22((H$)2)):H$:/ INDEXER MUSIC INDEX ALBUMS SONGS"@#:"TO COPY THOSE FILES, USE APPLE'S FILEM OR FID UTILITY."QA#:"DO NOT WRITE-PROTECT YOUR NEW DISKETTE. OTHERWISE, THIS PROGRAM MIGOWN FORMATTED, BLANK DISKETTE. DO NOT COPY ANY OTHER FILES ONTO IT."t?#23:"PRESS ANY KEY TO CONTINUE...";:Z$?#::14:"INSTRUCTIONS"?#:"FIRST, FORMAT A BLANK DISKETTE. THEN, COPY THESE PROGRAMS AND FILES ONTO IT:"s@#:14:"RECORD TAPE"WARNING TO NOVICE USERS"^>#:"THIS PROGRAM CAN CREATE OR MODIFY OTHER PROGRAMS AND FILES.">#:"THIS COULD POSSIBLY ERASE OR OTHERWISE DAMAGE OTHER PROGRAMS ON THIS DISKETTE."G?#:"TO BE SAFE, COPY THIS PROGRAM (AND ITS SUPPORT FILES) ONTO ITS HAVE A TAB ON ITS WRITE-PROTECT NOTCH?)"=P#::4:"TYPE 'Y' IF THE ANSWER IS 'YES' TO EITHER OF THE ABOVE TWO QUESTIONS."=Z#:4:"PRESS ANY OTHER KEY IF THE ANSWER IS 'NO' TO BOTH QUESTIONS. ";=d#Z$=n#Z$"Y"ı>x#:2:9:9<2#3:16:"---------":16:"IMPORTANT":16:"---------"<<#7:4:"1. DOES THIS DISKETTE CONTAIN ANY OTHER FILES BESIDES THIS PROGRAM AND ITS SUPPORT FILES?"1=F#:4:"2. IS THIS DISKETTE WRITE-PROTECTED? (THAT IS, DOES ITYN$;YN$"INIT"ė:19999S;:12:"INITIALIZING NEW DISK. DO NOT INTERRUPT!"{;(4);"INIT MUSIC RETRIEVAL SYSTEM"; :"DONE":I13000::45;% CENTERING ROUTINE ;*(23((A$)2)):A$:;/ ALBUM,8-TRACK,CASSETTE,REEL/REEL;(#PE = ";ER:"LINE NUMBER = ";EL)::110:::8:"SORRY! THIS DISK IS FULL. PLEASE REMOVE DISK FROM DRIVE AND REPLACE IT WITH A FRESH, UNINITIALIZED DISK."; ::"TYPE TO INITIALIZE THE NEW DISK. (ANYTHING ELSE TO QUIT) ";218)(219)256=9ER5EL1845ĺ:EF1:W2$;0:0:C2$:1870h9ER5EL1870ĺ:EF1:W$;0:0:C$:1259ER5EL995EL1515EL1160ĺ:C$:::211:((37)1):" NO RECORDS IN FILE.":I12000:::1109ER920559ER25545:::"ERROR TYANGE, OR DELETE"n8"[3] LIST ENTRIES":"[4] SORT ENTRIES":"[5] COMPUTE RECORDING TIME":"[6] EXIT PROGRAM"8:::"SELECT ONE OF THE ABOVE :";:YN$:::YN$"1"YN$"7"19858YN(YN$)::8199998 ERROR ROUTINES 9ER(222):EL(AGE 7::"''''''''''''''''''''''''''''''''''''''''' '' '''''''''''''''''''''''''''''''''''''''''"72:A$"MUSIC INDEXER":2090788:"[1] ADD ALBUM":"[2] SEARCH, CH:12:"SEARCHING...":34,13:O1$:R1$;I:6ME$(RE$,1):LE$(RE$,2,4):S((RE$,6,2)):AL$(RE$,8,40):AR$(RE$,48,30):LN((RE$,(RE$)77))6FILN:ALI:TT(LE$)6O2$:R2$;LN:AR$:S:I1S:ST$(I),MI(I),SE(I)::C2$6:7 TITLE P: 5]:45bI130:AR$AR$" ":(AR$)30I30:<5g:N5lI14(LE$)^5qLE$"0"LE$f5v:q5{C1$:5:10:"ALBUM NAME:":(RE$,8,40):"ARTIST NAME:":(RE$,48,30)5(37)2:"IS THIS THE ENTRY THAT YOU WANT ?";:YN$::YN$"Y"1935,6O1$:R1$;AL:RE$:C1$"4+1935:P40 CHECK FOR NEXT RECORD NUMBER p45O2$:R2$;0::AR:AR01865~4:I1AR24?AR(I)4D4IC2$:AR0ı4NO$:R$;0:NU:C$:4S LENGTHEN AR$,AL$,LE$ 5XI140:AL$AL$" ":(AL$)40I40" ";MI(J);" MIN.";:X$(SE(J)):(X$)2X$"0"X$E3" "X$;" SEC."3C2$:22:"IS THIS THE CORRECT SONG ?";:YN$::YN$"N"JS18103 YN$"Y"18153:12:"SEARCHING...":34,13:O2$:R2$;I:1765334,23:3O$:R$;I:AL:C$3!FII4&NU:O2$:R2$;I%2AR$:AR$"0"1770,2S72J1SO2ST$(J),MI(J),SE(J)U2y2J1S:S$(ST$(J),(S$))178022:C2$21680: : NO MATCH2::10::"SONG :";::" "ST$(J):2:"ARTIST :";::" ";AR$:23:"LENGTH :";::4)1X141Ĺ16368,0:11081X155Ĺ16368,0::480B116901 SEARCH FOR SONG PART OF SEARCH/CHANGE/ DELETE ROUTINE 1:12:"SONG TITLE: ";S$:S$""ġ:1101:12:"SEARCHING...":34,131O$:R$;0:NU:C$2I1..":34,13 0mO$:R$;0:NU:C$)0rO1$50wI1NU@0|R1$;IW0RE$:RE$"0"1675u0(RE$,SW,(S$))S$İ19150:C1$0::12:"SORRY. NO TITLE BY THAT NAME."0:"PRESS FOR ANOTHER SEARCH, TO GO BACK TO MENU."1X(1638CHING"::O2$:R2$;I:1555i/J8:"SEARCH BY :"::"[1] ALBUM NAME":"[2] ARTIST NAME":"[3] SONG TITLE"/O8:12:YN$:YN(YN$):YN1YN31615/TYN31710/YYN1SW8:1635/^SW48/c:12:"ENTER SEARCH KEY :";:"";S$: 0h12:"SEARCHING.:" ":.1C2$G.6"TITLE : ";(SO$(J),1,31):"ARTIST :";AR$.;"LENGTH :";M(J);":";:X$(S(J)):(X$)2X$"0"X$.@X$:"IS THIS SONG ALRIGHT ?";:YN$::YN$"Y"ė:SS1:ST$(S)SO$(J):MI(S)M(J):SE(S)S(J):FL0:1340/E:20:30::"SEART%- FL1ĭS$(SO$(J),(S$))1580D-FL2ĭMM(J)SSS(J)1580J-W-:C2$:p-20:30:" "-"CO0Ģ22:"SORRY! NO MATCH FOUND":I13000::FL0:1385-'22:"THAT'S ALL OF THEM. NO MATCH FOUND.":I13000::FL0:1385.,20:30";S$:(S$)40(S$)1ė:1480-,FL11500O,FL2:"TIME (MIN,SEC) :";M,SSe,M1M60ė:1490,:20:30::"SEARCHING":,O$:R$;0:NU:C$,I1NU:O2$:R2$;I,AR$:AR$"0"1560,T,J1T,SO$(J),M(J),S(J),-J1$::YN$"N"ı#+LE0:S0::1300s+ SEARCH FOR SONG FL=1 BY TITLE FL=2 BY TIME +:21:"SEARCH BY:":8)"1) SONG TITLE":8)"2) SONG LENGTH"+21:11:YN$:::YN(YN$):YN1YN21470,YN1FL1:21:"TITLE :ECORD ?";:YN$:$*:YN$"N"1455R* MAKE FILE A PERMANENT RECORD l*1840:FL1::21:140~*:175::200*AR0NUNU1:1445*NUAR(AR)*I1S:LELEA(I):*305+::12:"DO YOU WISH TO FORMAT ANOTHER TAPE ?";:YN)_MI0SE01410")dS141410_)i:"DD ANOTHER SONG":"EARCH FOR A SONG":"UIT")nX(16384):X193Ĺ16368,0::1325)sX211Ĺ16368,0::1465)xX209Ĺ16368,0:1410)}1390*:22:"DO YOU WANT TO MAKE THIS A PERMANENT R REMAINING.":I13000::SS1:N1N3:1385z(KS2:S;") ";:(ST$(S),30);:35)MI(S);":";:X$(SE(S)):(X$)2X$"0"X$(PX$:34,S3:(UMI(N160):SEN1(N160)60:20::"TIME REMAINING: ";MI;":";:X$(SE):(X$)2X$"0"X$(ZX$:34,20::NO '-SS1L'221:"SONG TITLE:";ST$(S):(ST$(S))40(ST$(S))1ė:1330'7:"LENGTH (MIN,SEC) :";MI(S),SE(S):SE(S)60SE(S)0ė:1335'<N3N1'AN2A(S):N1N1(N25): ADD 5 SEC. OF SILENCE BETWEEN SONGS*(FN10Ģ21::"NOT ENOUGH TIME75&JJ1:JK21260!& 1270'&G& RECORDING CALCULATOR u&A$"RECORDING CALCULATOR"::2090::34,1&12:"ENTER LENGTH OF TAPE (ONE SIDE) : ";NO$:NO(NO$)&#NO1NO60ĺ"ENTRY ERROR":I13000:::1310'(N1NO60::1:"LEN.="1%3%O2$:W2$;0:AR:I1AR2:AR(I)::C2$9%D%K1N1^%K1(K12):K101295n%K2NK1:J1v%IJ%K3IK1:(RE$(I),LO,HI)(RE$(K3),LO,HI)1285&K$RE$(I):RE$(I)RE$(K3):RE$(K3)K$:K4LN(I):LN(I)LN(K3):LN(K3)K4:IIK1:I112͍0͌̇揎Ü⸼Æ͍%ـϏ͌0ǜϛ%Ո̍χܟՂؘ͍%ـϟ󃎼ρ%Ղρ́󃎼0̍󃞿ǃ ΜՀ%쌾ÆϏ󃘼χـ́Ϗ!̇ǰΜ%쌾ـǛ̀Ǐ,󃶼͏󃞌̓ ',쉆ϛϏǧ ύͰ͇Ձ矝ǟ Ͱς/°汀ϏΏϰ  ǣͰ ϙǃǰ/͇ΰ 汀Ϗ! Ͱ͆ ςϙσdž%ƛß͏ϰ Ͱ/汀Ϗ! 憘ϊ͆%ς왛Ý켌熘φ1ƛܙ͍Ͱ "࿃Շ汀Ɓ憘ǰ 憚 ͆ ƃ̙Ùσ̰ ᇧÌ.󇃀Շ絀Ƈ @ 滀Ϗ +샌憟  ςĘØǃ 翀Ɓ      THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- AETURN TO MAIN MENU ";A$&999 -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1988 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE========================="U23:1:"PRESS ANY KEY FOR NEXT YEAR'S FIGURES ";:A$23:1:" ";M1Y23:7::" ";E;" YEAR ANALYSIS COMPLETE ";X15000:X23:1::" PRESS ANY KEY TO R======================================";S25:8:"MONTH # CUMULATIVE TOTAL"~<6:8:"------- ----------------"FA(Y,M)X:TTA(Y,M)PI(B12)TZTTIdVV1:V4:13:M;nN(T)x21:"$";N:M22:1:"==============="FOR 7.25%, TYPE 7.25":2:"(MAXIMUM 20) ---> ";BDB0B211280i13:20:" ";:1250:1:1:"========================================"; BB100:A(E,12)Y1E:V2:VV12:15:"YEAR NUMBER ";Y:M112((3:1:"==1:M1:6:2:"HOW MUCH WILL YOU SAVE EACH MONTH?":2:"DO NOT USE $-SIGN OR COMMAS!"8:2:"(1000 MAXIMUM) ---> ";X:X1000.0112408:22:" ";:122010:2:"WHAT IS THE ANNUAL INTEREST RATE?"111:2:"FOR 10%, TYPE 10":2::1:1:"========================================";o23:1:"========================================";3:2:"HOW MANY YEARS DO YOU WANT TO COVER?"4:2:"(1 TO 20 YEARS) ---> ";E:E0E2112104:22:" ";:1190TY-L2:"YEARS AT A 6% ANNUAL INTEREST RATE,"XV2:"COMPOUNDED MONTHLY, YOUR SAVINGS"`2:"WOULD BE $16,469 AT THE END OF THE"j2:"10 YEARS.t21:1:"========================================"~23:8:"PRESS ANY KEY TO BEGIN ... ";:A$7YOU WANT TO KNOW HOW MUCH MONEY YOU"R 2:"WILL HAVE IN THE BANK IF YOU SAVE A" 2:"GIVEN AMOUNT OF MONEY EACH MONTH FOR" $2:"A SET NUMBER OF YEARS AT A SPECIFIED" .2:"INTEREST RATE?" 8 B2:"FOR INSTANCE, IF YOU SAVE $100 FOR 10"2,L1)(WD$,1). 22:1:BN$:WW1W::620 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": END OF TITLE :1:1:"========================================"  3$ 2:"DO Y ............. PRESS ANY KEY TO CONTINUE .........." bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000 vBN$(WD$,40):L166WD$(WD$,2,L1):LL1:650 WD$(WD$,,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:7685 XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRAR,166:782,6:783,76:784,0:785,3:786,96:787,0y ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" ":17:2:" ";:39:" ";: 300\ 6,222:7 d PROGRAM TITLE n400:(22((H$)2)):H$:_,7:H$"S A V E F O R A":200611:H$"R A I N Y D A Y":200@0 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:781     THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- AXPRESSED WRITTEN CONSENT&OF PUBLIC DOMAIN RESEARCH.'DTHIS PERMISSION $"RUN MENU": % -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE&9LBN$(WD$,1)(WD$,39):10280H$(BN$(WD$,LI1)(WD$,(39(LI)))X$((22:1:BN$$2(Q1I(L40)Q0:WD$(WD$,(WD$)40)$<(WW1SS:::10230$F(10230%N::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):DGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY...........PRESS ANY KEY TO CONTINUE..........."#'16368,0:L(WD$):SS60#(I1L1:(16384)127Ĺ16368,0:::# (I39LBN$(WD$,I,40):10280!$(I377:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768l"' STREAMER "'Q$"----------------------------------------""'Q1::21:1:Q$:Q$;#'WD$" ... AN AWARD-WINNING PRO7,0:!~' BORDER AND TITLES$!':i!'H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";:!'I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";:!'2:2:" ";:39:" ":17:2:" ";:39:" ";:!'10030!' TUNE ["'6,222:7,INGS * 8'9:H$"P L A N T M A N":100200 V'G `' INIT VARIBLES \ j' SOUND ROUTINES!t'768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:78S ALL !!!"Z :"TYPE '1' AND THEN PRESS TO RETURN TO START OF PROGRAM ";I9` o I90ī200 IT1ī2400 L1 3000 19999' PROGRAM TITLE SCREEN '10080$'(22(H$)2):H$;:: CENTER STRING .' TITLE STR"I RECOMMEND THE FOLLOWING PLANTS:"0j :L1:Ot I1T1:1130:C1I1ī3000`~ C2I2ī3000q I3C3ī2440 I5C3ī3000 I4C4ī2450 I6C4ī3000 C5I7ī3000 C5I8ī3000 A$ LL1 L14ī3020 I  :"THAT IOOM AIR""5 = ANY":c"ENTER TWO ATMOSPHERE CODES (FOR EXAMPLE: 2,3) ";I4,I6I40ĭI46ĭI60ĭI66ī23052280 ::"ENTER MIN,MAX ROOM TEMPERATURE (FOR EXAMPLE: 60,70) ";I7,I8 I7I82305$` :::IAL WATERING NEEDED":_"ENTER TWO WATERING CODES (FOR EXAMLE: 2,3) ";I3,I5I30ĭI38ĭI50ĭ58ī22202190:::"ATMOSPHERE CODES:":"1 = HUMID""2 = HUMID WITHOUT SPRAYING LEAVES""3 = DRY""4 = Rī2110 2050,>:::"WATER CODES:":DH"1 = EVENLY MOIST"rR"2 = DRY":"3 = MODERATE, CAN'T DRY OUT"f"4 = MODERATE,LET DRY OUT"p"5 = SEASONAL,MORE IN SUMMER LESS IN WINTER"z"6 = REST PERIOD NEEDED YEARLY""7 = SPEC `1060 jA$,C1,C2,C3,C4,C5&tB:::"LIGHT CODES:":S"1 = SHADE"i"2 = SEMI-SHADY""3 = SEMI-SUNNY""4 = INDIRECT":"5 = SUNNY":"ENTER MIN,MAX CODE FOR YOUR ROOM (EXAMPLE: 2,3) ";I1,I2I2I1ĭI10ĭI26 290%"CODE PLANT"+3L19FI11T1P1130cI1;"-----";A$mLL1|L191070$I1.8"0 = CONT. LIST OR ENTER PLANT NUMBER ENTER 999 FOR MENU : ";I=BI0ī300LI1T1ī1000VL1SS IN WINTER"4vC36ĺ"REST PERIOD NEEDED YEARLY"YC37ĺ"SPECIAL WATERING NEEDED"m"ATMOSPHERE: "C41ĺ"HUMID"C42ĺ"HUMID WITHOUT SPRAYING LEAVES"C43ĺ"DRY"C44ĺ"ROOM AIR"C45ĺ"ANY""TEMPERATURE: ";C5C14ĭC22ĺ"SEMI-SUNNY, "9C15ĭC23ĺ"INDIRECT, "MC24ĺ"SUNNY "S0b:"WATER: "}DC31ĺ"EVENLY MOIST "NC32ĺ"DRY"XC33ĺ"MODERATE, CAN'T DRY OUT "bC34ĺ"MODERATE LET DRY OUT " lC35ĺ"SEASONAL, MORE IN SUMMER, LEABLE PLANTS? (Y/N)";I$.I$"Y"ī1000@I$"N"ī260g""PLANT CODE NUMBER? (0 = LIST)";Iv,I1ī10006IT1ī200@JI11IT1130^I1hrA$|"LIGHT: "C12ĺ"SHADY, "C13ĭC21ĺ"SEMI-SHADY, " *":::" 1...PLANT GROWTH NEEDS 2...PLANTS FOR YOUR HOME 0...EXIT THIS PROGRAM"::" WHICH OF THE ABOVE? (0-2) ";I:I2ī2000I019999I1ī230"WANT A LIST OF AVAILANT",2,4,1,4,65?I "EUPHORBIA S.-CROWN OF THORNS",2,4,4,4,65iJ "RUELIA M.-MONKEY PLANT",2,4,1,1,65K "BEGONIA E.-WATERMELON",2,4,1,4,60L "ACALYPHA-CHENILLE PLANT",2,4,1,4,65T176P17A$(50) :::10:"* * * PLANT MAN * * PALM",3,5,1,4,65<C "DRACENA S.-RIBBON PLANT",2,4,1,4,65cD "CISSUS R.-GRAPE IVY",2,4,1,4,65E "SENECIO M.-WAX IVY",2,5,4,4,60F"GIBASIS-TAHITIAN BRIDAL VEIL",3,5,4,4,60G "AECHMEA F.-SILVER VASE B",2,4,7,4,60H "PILEA C.-ALUMINUM PLLANT",3,5,1,4,658= "SCILLA-SILVER SQUILL",2,4,1,4,60d>"HEMIGRAPHIS-PURPLE WAFFLE",1,3,1,1,65?"ABUTILON-FLOWERING MAPLE",3,5,1,4,60@ "DAVALLIA S.-RABBIT FOOT FERN",2,4,1,1,65A "HOWEIA-KENTIA PALM",2,4,1,4,65B"BEAUCARNEA-PONY TAILS",2,4,4,4,6087 "CALATHEA Z.-ZEBRA PLANT",2,4,1,1,65g8 "PEPEROMIA C.-EMERALD RIPPLE",2,4,4,4,659"FICUS B.-WEEPING FIG",3,5,4,4,65: "BOWIEA-CLIMBING ONION",2,4,4,4,60;"POLYSCIAS F.-MING ARALIA",3,5,1,4,65<"MIMOSA P.-SENSITIVITY P&0 "HELXINE-BABY TEARS",2,4,1,1,60R1 "PILEA M.-ARTILLERY PLANT",2,4,4,1,65{2"CRASSULA A.-JADE PLANT",3,5,4,4,603"KALANCHOE",3,5,4,4,604 "ECHEVERIA-CHICK & HENS",3,5,2,4,605 "SEDUM-JELLY BEANS",3,5,2,4,60 6 "ZEBRINA-INCH PLANTLEPHANT EARS",2,4,1,4,65D* "SCHEFFLERA-UMBRELLA TREE",2,4,1,4,65m+ "CEROPEGIA-ROSARY VINE",2,4,4,4,65, "BROMELIAD FAMILY",2,5,7,4,60- "MAMMILLARIA CACTUS",3,5,2,3,60."RHOEO-MOSES IN THE CRADLE",3,5,1,4,60/"PODOCARPUS",3,5,1,4,60",2,4,1,1,654# "FITTONIA-NERVE PLANT",2,4,1,1,65M$"COLEUS",3,5,3,4,60|% "PLECTRANTHUS A.-SWEDISH IVY",2,4,4,4,60& "HOYA-WAX VINES",2,4,4,4,60'"LITHOPS-STONE PLANTS",3,5,4,3,65( "BEGONIA M.-IRON CROSS",2,4,1,1,60) "CALADIUM-EAGUS SPRENGERII",2,4,4,4,608 "YUCCA TREE",3,5,4,3,60[ "CODIAEUM-CROTONS",3,5,3,1,65  "CISSUS A.-KANGAROO VINE",2,4,4,4,60 "SAXIFRAGA-STRAWBERRY BEGONIA",3,5,4,4,55 ! "COLUMNEA M.-GOLDFISH",2,4,4,2,65 " "AESCHYNANTHUS-LIPSTICK VINESSION",3,5,1,4,60;  "FATSIA-JAPANESE ARALIA",2,4,1,4,55j  "ADIANTUM R.-MAIDENHAIR FERN",2,4,1,1,65  "PLATYCERIUM-STAG HORN FERN",2,4,7,1,65  "CHRYSALIDOCARPUS-ARECA PALM",2,4,1,4,65  "SPATHIPHYLLUM-WHITE FLAG",2,4,1,4,65  "ASPAR,5,5,2,3,60:  "AEONIUM-PINWHEEL SUCCULENTS",2,5,4,3,60f  "TOLMIEA-PIGGY BACK PLANT",2,4,1,1,60  "DIZYGOTHECA-FALSE ARALI",2,4,1,4,65  "HEDERA H.-ENGLISH IVY",2,4,1,4,60  "SAINTPAULIA-AFRICAN VIOLET",2,4,1,4,60  "GYNURA-PURPLE PA DOTS",2,4,2,3,60> "SANSEVIERIA T.-SNAKE PLANT",1,4,4,4,65i "AGAVE P.-PRINCESS AGAVE",3,5,2,3,65 "MARANTA-PRAYER PLANT",2,4,1,4,60  "PEPEROMIA O.-BABY RUBBER PLANT",2,4,4,4,65 "FICUS E.-RUBBER TREE",3,5,4,4,65  "CACTUS FAMILY",4,604  "SYNGONIUM P.-TRILEAF WONDER",2,4,1,4,60b  "TRADESCANTIA-WANDERING JEW",2,4,4,4,60  "ALOE VERA-MEDICINE PLANT",2,4,4,3,60  "CHLOROPHYTUM-SPIDER PLANT",2,4,1,4,60 "DRACENA M.-DRAGON TREE",2,4,1,4,65 "HAWORTHIA P.-PEARLYP10000: *** PLANT MAN *** "ARAUCARIA-NORFORK ISLAND PINE",1,3,1,4,60 "DIFFENBACHIA-DUMBCANE",2,4,4,4,60 "MONSTERA D.-SPLIT LEAF PHILO",2,4,1,4,60  "PHILODENDRON-HEART LEAF",2,4,1              ĠԠĠΠϠԮĠΠӠĠ٠ƮŠ̠ӠΠŠԮǠϠ̮ӮŠԮ͠ŠȮҠҠӮΠԍĠנ΍ΠˠҍӠҍӠΠŠԮōР٠Ġנ΍ΠΠōΠĠō٠ƍΠĠōЍӠؠŽӠΠӍРŠ    ΠЍҍ GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- H- H THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- HE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVEB3THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER 40):L166WD$(WD$,2,L1):LL1:10150F1'WD$(WD$,2,L1)(WD$,1)g1'22:1:BN$:WW1W::101201N::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU"2 -------- NOTICOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY ............. PRESS ANY KEY TO CONTINUE .........."0~'Q$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W750'(16384)127Ĺ16368,0:::(1'BN$(WD$,39:" ":17:2:" ";:39:" ";:+/`'10030/j'6,222:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768n0t'WD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN S:775,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:787,0.B'::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";:.L'I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: /V'2:2:" ";:R KEY TO RUN IT.";:Z$(-#Z$"Q"19999.-#D-' PROGRAM TITLE O-'10040i-$'(22((H$)2)):H$:-.'(7):H$"M Y R E C I P E B O X":10020-3'(11):H$"BY JUDD ELLMERS":10020:g.8'768,173:769,48:770,192:771,136:772,208:773,4:774,198APPLE'S FILEM OR FID UTILITY.",#:"DO NOT WRITE-PROTECT YOUR NEW DISKETTE. OTHERWISE, THIS PROGRAM MIGHT CRASH BECAUSE IT WON'T BE ABLE TO CREATE OR MODIFY THE NECESSARY FILES."-#22:"() TYPE 'Q' TO QUIT THIS PROGRAM NOW. () PRESS ANY OTHE+#::14:"INSTRUCTIONS"t+#:"FIRST, FORMAT A BLANK DISKETTE. THEN, COPY THESE PROGRAMS AND FILES ONTO IT:"+#:14:"MY RECIPE BOX RECIPE RECORD CHICKEN SOUP",#:"TO COPY THOSE FILES, USE SSIBLY ERASE OR OTHERWISE DAMAGE OTHER PROGRAMS ON THIS DISKETTE."*#:"TO BE SAFE, COPY THIS PROGRAM (AND ITS SUPPORT FILES) ONTO ITS OWN FORMATTED, BLANK DISKETTE. DO NOT COPY ANY OTHER FILES ONTO IT."+#23:"PRESS ANY KEY TO CONTINUE...";:Z$ ABOVE TWO QUESTIONS."g)Z#:4:"PRESS ANY OTHER KEY IF THE ANSWER IS 'NO' TO BOTH QUESTIONS. ";o)d#Z$~)n#Z$"Y"ı)x#:2:9:"WARNING TO NOVICE USERS")#:"THIS PROGRAM CAN CREATE OR MODIFY OTHER PROGRAMS AND FILES."C*#:"THIS COULD POER FILES BESIDES THIS PROGRAM AND ITS SUPPORT FILES?"(F#:4:"2. IS THIS DISKETTE WRITE-PROTECTED? (THAT IS, DOES IT HAVE A TAB ON ITS WRITE-PROTECT NOTCH?)")P#::4:"TYPE 'Y' IF THE ANSWER IS 'YES' TO EITHER OF THE ADDITIONS TO THE DISK."2'VOP$;FI$;", L60"I'`WR$;FI$;", R0":NT'jIZNp'tWR$;FI$;",R";I:IN$(I)v'~'CL$''(#'2#3:16:"---------":16:"IMPORTANT":16:"---------"D(<#7:4:"1. DOES THIS DISKETTE CONTAIN ANY OTHTIALIZING THIS PROGRAM"5&nOP$;"RECIPE RECORD, L30"U&xWR$;"RECIPE RECORD, R0":0^&CL$d&&W NOT 'Y' OR 'N' ROUTINE &X:::"PLEASE ANSWER 'Y' OR 'N'."::::&K PRINT ADDITIONS TO FILE'L12:"PLEASE WAIT WHILE I PRINT THESE %CL$%9%o READ RECIPE RECORD FILE FROM DISKW%pOP$;"RECIPE RECORD, L30"w%zRD$;"RECIPE RECORD, R0":Z%I1Z%RD$;"RECIPE RECORD,R"I%RR$(I)%%CL$%%c CREATE RECIPE RECORD FILE&d:12:"ONE MOMENT ... INICL$ # # 'HELP' ROUTINE*#6000O#:8);::"RECIPES ON FILE"::W#C2b#I1Z#C22Ģ24::"PRESS 'RETURN' TO CONTINUE.";:A$::8);::"RECIPES ON FILE":::C2#RR$(I)#CC1##${ PRINTS RECIPE NAMES TO RECIN$(I) ""CL$""H" PRINT CORRECTED RECIPE BACK TO DISK":12:"I AM NOW WRITING THE CORRECTED RECIPE BACK TO THE DISK. PLEASE WAIT.""OP$;FI$;", L60""I1Z"WR$;FI$;", R";I"IN$(I)""WR$;FI$;", R0":Z#LEASE CHECK YOUR SPELLING.":::~!:"A LIST OF RECIPES CURRENTLY ON DISK IS AVAILABLE BY TYPING 'HELP'."::W12999::!18:" PLEASE WAIT WHILE I LOAD THE RECIPE."!OP$;FI$;", L60"!RD$;FI$;",R0":Z!I1Z!RD$;FI$;", R";I"$;FI$;", R";I IN$(I) I. Z(NZ)2E WR$;FI$;" ,R0":ZN CL$T $v . LOAD RECIPE FILE FROM DISK  LOAD RECIPE FILE FROM DISK 6000 I1Z:FI$RR$(I)4050  12::FI$;" WAS NOT FOUND ON RECORD.":::!!:"P;FI$", L60"! WR$;FI$", R0":19 WR$;FI$", R1":TY$B CL$H y ADD INGREDIENTS AND INSTRUCTIONS TO FILE :12:"PLEASE WAIT WHILE I STORE THE RECIPE ON DISK." OP$;FI$;", L60" RD$;FI$;",R0" Z ZZ1 IZN WR 150, I1N:IN$(I): 6 )@ 255_J "ARE ALL CORRECTIONS MADE (Y OR N)? ";:A$:A$:zT A$"Y"ZN:4500:110^ A$"N"2740h 7000:2890 CREATE RECIPE FILE :12:"PLEASE WAIT WHILE I CREATE A FILE FOR THIS RECIPE."  OP$FTER THE PROMPT APPEARSTHEN PRESS 'RETURN' FOR THE NEXT LINE."D P IZ1N\ IN$(I)g I$(I)} (I$(I))12830 (I$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER."::2790 IN$(I)I$(I)  ::FI$:::"740W (IN$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER.":2700] p ::FI$:::> "THIS ALLOWS YOU TO CHECK YOUR TYPING. IFA LINE IS CORRECT, PRESS 'RETURN' AND THE NEXT LINE WILL BE DISPLAYED. MAKE ANY CORRECTIONS AI$:::F "ENTER ADDITIONAL LINES ONE AT A TIME. A MAXIMUM OF 50 LINES MAY APPEAR IN THE RECIPE. PRESS 'RETURN' TO STOP ENTERING.":P I11000:Z 150d I1Z:IN$(I):n Z1Z1x 255 IZ150 IN$(I) (IN$(I))1NI1:2"::& "ENTER RECIPE NAME - ":FI$9 (FI$)1110Y FI$"HELP"İ5000:::2530c 4000r Z502620 Z50ĺ:"FILE IS FULL. DO YOU WANT TO EDIT THIS FILE (Y OR N)? ";:A$:A$: A$"Y"1500( A$"N"1102 7000:2580< ::FING RECIPE":7: :9);::"ADD TO EXISTING RECIPE"::[ I150:IN$(I)"":I$(I)"":k :"TYPE ";q ~ "HELP"; :" TO SEE LIST OF RECIPES." ::"PRESS TO RETURN TO MENU.":: "----------------------------------------IO1āJ159:"*";::!*I2Z-4IN$(I)3>OHIO1āJ159:"*";::_RD$;"PR#0":\24:1:"PRINT OUT ANOTHER RECIPE? (Y/N)";:A$fA$"N"ī110pA$"Y"ī2000z"";:2140 ADD TO EXISTING RECIPE :::9)"ADD TO EXISTT OF RECIPES."D:"----------------------------------------"::q"ENTER RECIPE NAME - ":FI$:FI$""110FI$"HELP"İ5000:::2020::4000:D$;"PR#"IO: "RECIPE TYPE - ";IN$(1):"RECIPE NAME - ";FI$: ? ";:A$:A$:rA$"N"15506|A$"Y"İ4500:110c:"PLEASE ANSWER 'Y' OR 'N'.":::1640x PRINT ROUTINE:12)::"PRINTOUT RECIPE":::2012:14);::"VIEW RECIPE":::"TYPE ";"HELP";" TO SEE LISLL STEP THROUGH ALL ITEMS IN THE RECIPE."6"I1ZB,IN$(I)_6I$(I):(I$(I))11620@(IN$(I))60ĺ:"LENGTH IF LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1590JIN$(I)I$(I)T^h"ARE ALL CORRECTIONS NOW MADE(Y OR N)----------------------------------------"::`8:"ENTER NAME OF RECIPE - ":FI$:FI$""110FI$"HELP"İ5000:::15204000:10);::"EDIT A RECIPE":::::FI$::+"IF ITEM IS CORRECT, PRESS 'RETURN' FOR THE NEXT LINE. THIS WI0:110=:"PLEASE ANSWER 'Y' OR 'N':NORMAL:PRINT:GOTO 990U EDITING ROUTINE~:::10)"EDIT EXISTING RECIPE":7:8);::"EDIT EXISTING RECIPE":::"TYPE ";"HELP";" TO SEE A LIST OF THE RECIPES."-:"ENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1140TIN$(I)I$(I)Zx::TY$::3);::FI$:~150I2N:IN$(I):255"IS THE RECIPE CORRECT (Y OR N)? ";:A$:A$:A$"N"1100A$"Y"İ350E LINE IS CORRECT, PRESS 'RETURN' FOR THE NEXT LINE. IF THE LINE IS WRONG, RE-ENTER LINE AFTER PROMPT THEN PRESS 'RETURN'. RECIPE CAN BE PRINTED OUT 60 COLUMNS WIDE"`I2NjIN$(I)tI$(I)~(I$(I))11180C(I$(I))60ĺ:"L COLONS!!!"::I250'$IN$(I)E.(IN$(I))1NI1:11008(IN$(I))60ĺ:"LENGTH IS LIMITED TO 60 CHARACTERS. PLEASE RE-ENTER LINE.":1060BL::TY$::3);::FI$::V"RECIPE WILL PRINT OUT ONE LINE AT A TIME. IF TH"ENTER INGREDIENTS AND INSTRUCTIONS ONE LINE (60 CHARACTERS MAXIMUM) AT A TIME. INGREDIENTS AND INSTRUCTIONS MAY BE ENTERED IN ANY FORM THAT IS CONVENIENT FOR YOU. ENTER RECIPE EXACTLY AS YOU WANT IT TO PRINT OUT.":"DO NOT USE COMMAS ORPE IS - ":3);::TY$:Gb:"IS THIS CORRECT (Y OR N)? ";:A$:A$:ZlA$"N"ĺ:530xvA$"Y"İ3000:5500:1000:"PLEASE ANSWER 'Y' OR 'N'."::610 ENTER RECIPE::" "TY$" "::" "FI$" ":::13);::"ENTER RECIPE"::::530 & 0"ENTER TYPE OF RECIPE (DESSERT MISC., CAKE, CANDY, PIE, MAIN DISH, SALAD AND DRESSING, SAUCE, VEGETABLE, DRINK, SOUP,BREAD, APPETIZER, MISC.)." ::"TYPE IS - ";TY$ D: N"RECIPE NAME IS - ":3);::FI$:X:"RECIPE TYW RECIPE / I150:IN$(I)"":I$(I)"":V :10);::"ENTER NEW RECIPE":: "NAME OF RECIPE SHOULD BE LIMITED TO 30 CHARACTERS.": "ENTER NAME OF RECIPE -":FI$:FI$""110 (FI$)30ĺ::"PLEASE LIMIT NAME TO 30 CHARACTERS."::M":6 "ENTER SELECTION NUMBER: ";:A$:A(A$):A: A1A7Ğ:41);:" NUMBER NOT IN ACCEPTABLE RANGE. ";:41);::W12000::110 A1IO0 A4IO1 A2010,500,1500,2000,2500,40,210 "BON APPETIT!":19999  ENTER NE x"OPTIONS ARE:":2 }5)"1 VIEW RECIPES":R 5)"2 ENTER NEW RECIPE":v 5)"3 EDIT EXISTING RECIPE": 5)"4 PRINT RECIPE ON PRINTER": 5)"5 ADD TO EXISTING RECIPE": 5)"6 INITIALIZE RECIPE BOX": 5)"7 EXIT PROGRASK? (Y/N) ":A$:958 <A$"Y"ĺ:"ARE YOU SURE?"::"--> ANSWERING 'Y' WILL ERASE ALL FILES."::"--> ANSWERING 'N' WILL TAKE YOU TO THE MENU.":A$: F255 PA$"Y"İ6500:110 ZA$"N"ī110 d7000:50 n:10);::"RECIPE FILE"::C+ 100009000. MY RECIPE BOX I DD$(13)(4):D$(4)OP$DD$"OPEN ":RD$D$"READ ":WR$D$"WRITE ":CL$D$"CLOSE "IN$(52),I$(52)#110(:150 28:"DO YOU WANT TO ERASE ALL THE RECIPES THAT ARE STORED ON THIS DIΠЍčŠ͠ΩˍɭΠӍ΍ӍԠҍӠЍԍҍōӍӍӍč  ----------//---------- AA- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVETHE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. E ABLE TO CREATE OR MODIFY THE NECESSARY FILES."#22:" () TYPE 'Q' TO QUIT THIS PROGRAM NOW. () PRESS ANY OTHER KEY TO RUN IT.";:Z$#Z$"Q"999#} -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PROM T 002 SHOPPING LIST ---------------------"#:" TO COPY THOSE FILES, USE APPLE'S FILEM OR FID UTILITY."2#:" DO NOT WRITE-PROTECT YOUR NEW DISKETTE. OTHERWISE, THIS PROGRAM MIGHT CRASH BECAUSE IT WON'T B"4#23:" PRESS ANY KEY TO CONTINUE ... ";:Z$W#2:1:14)"INSTRUCTIONS"41);#5:958:" FIRST, FORMAT A BLANK DISKETTE. THEN, COPY THESE PROGRAMS AND FILES ONTO IT:"R#:12:"--------------------- *A 021 SHOPPING LIST PROGRAPROGRAMS AND FILES."o#::"THIS COULD POSSIBLY ERASE OR OTHERWISE DAMAGE OTHER PROGRAMS ON THIS DISKETTE."#::"TO BE SAFE, COPY THIS PROGRAM (AND ITS SUPPORT FILES) ONTO ITS OWN FORMATTED, BLANK DISKETTE. DO NOT COPY ANY OTHER FILES ONTO IT.SWER IS 'YES' TO EITHER OF THE ABOVE TWO QUESTIONS."P#:4:"PRESS ANY OTHER KEY IF THE ANSWER IS 'NO' TO BOTH QUESTIONS. ";Z#Z$d#Z$"Y"ın#2:9:"WARNING TO NOVICE USERS":5:958x#:"THIS PROGRAM CAN CREATE OR MODIFY OTHER SKETTE CONTAIN ANY OTHER FILES BESIDES THIS PROGRAM AND ITS SUPPORT FILES?"<#12:3:"2. IS THIS DISKETTE WRITE-PROTECTED? (THAT IS, DOES IT HAVE A TAB ON ITS WRITE-PROTECT NOTCH?)"9F#17::4:"TYPE 'Y' IF THE AN)"Y"ī20104060:::"LIST IS FULL.":::"MUST PRINT THIS LIST AND CONTINUE":"NEW LIST."::"PRESS RETURN";:676:A$"Y":34,0::4010(#:Q$"----------------------------------------":Q$:Q$:2:16:"IMPORTANT"c2#7:3:"1. DOES THIS DI:36,13:"** END SHOPPING LIST **"4D$;"PR#0"q"A$"S"ĺ" FILE ALREADY SAVED .... ":W13000::999,:D$;"PR#0":D$;"DELETE";N$:"LIST DELETED"(222)5ĺ"SHOPPING LIST DOES NOT EXIST"::"DO YOU WISH TO CREATE ONE? ";A$ (A$,1Ğ::"TYPE 'D' TO DESTROY LIST AFTER PRINTING"::4030@999v:"TYPE 'S' TO SAVE THE LIST AFTER PRINTING"::~A$A$"D"A$"S"40704040:D$;"PR#1":36,10:"** CURRENT SHOPPING LIST **":I1N1I;" ";L$(I)%I1)  ; D$::"DO YOU WISH TO MAKE ADDITIONS ";:A$R (A$,1)"Y"4000\ 202034,0::2:"PRESS 'Y' TO PRINT SHOPPING LIST PRESS 'N' TO QUIT ========================================";:"";A$7(A$,1)"Y"$;"OPEN";N$:D$;"WRITE";N$!4N.>I1N19HL$(I)?RJ\"END"]fD$;"CLOSE";N$gp34,0mz * LOOK AT LIST * "*** CURRENT SHOPPING LIST ***": I1N12 I;" ";L$(I);:36,25:L$(I1)"END"L$(I1)"E"ĺ(I1);" ";L$(010 "! * CREATE LIST *+:N1U"ENTER 'E' TO END INPUT":34,(37):}"MAXIMUM 13 CHARACTERS PER ITEM":"ITEM NUMBER ";N;" ";:"";L$(N)L$(N)"E"ī2090 NN1N1015020 2040*D$;"OPEN";N$:D$;"DELETE";N$:DY JIM PEARSON MODIFIED BY DAVID HURLEY 3 9000a D$(13)(4):L$(100):N$"SHOPPING LIST"g  $:D$;"PR#0":5000  * READ LIST IF IT EXISTS* D$;"OPEN";N$ D$;"READ";N$ N I1N L$(I)L$(I)"END"ĺD$;"CLOSE":3ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY ............. PRESS ANY KEY TO CONTINUE .........." bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000" vBN$(WD$,40):":17:2:" ";:39:" ";:# 300 6,222:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768f XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE 7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:787,0 ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" d PROGRAM TITLE n400:(22((H$)2)):H$:e,6:H$"S H O P P I N G L I S T":20069:H$"PROGRAM BY JIM PEARSON":200@12:H$"MODIFIED BY DAVID HURLEY":200:a 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,      PS MAY REQUEST THIS PERMISSION. ----------//---------- HDOMAIN RESEARCH.)DTHIS PERMISSION WILL BE GIVEN)CFREE TO ORGANIZATIONS SUCH AS )LEGITIMATE USER GROUPS. *------ ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE>)THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROU3,15' STRAWBERRIES,"1/2 CUP",1,1,1,39,1,3,2,2,4h'" PINEAPPLE,"LARGE SLICE",5,1,1,15,7,1,1,1,2x', K1400:K'6 944,95:946'@ 944,132:946'J 944,126:946'T 944,104:946'^ 999( -------- NOTICE --4,32& WATERMELON,"1 CUP",3,1,24,23,4,4,2,1,6^& BAGEL,"ONE PLAIN",8,9,1,0,9,6,6,1,7& "CHICKEN NOODL'SOUP","1 CUP",3,5,1,0,1,1,4,1,3& "SPAGHETTI/M'BALL","1 CUP",17,29,32,37,17,18,20,12,21' COLESLAW,"1/2 CUP",4,1,2,27,2,2,1,F",11,38,7,7,7,11,15,17,14H% BROCCOLI,"1/2 CUP",1,4,39,39,5,9,3,7,3v% PEANUTS,"1/4 CUP",11,14,0,0,8,3,31,3,4% "ROAST BEEF","3 OZ",9,39,0,0,3,12,20,1,18% "BAKED HAM","3 OZ",9,39,0,0,37,15,25,1,18& BOLOGNA,"1 OZ",4,8,0,0,3,4,4,9,5,1,3,10,8,9,1,6A$x POPCORN,"1 CUP PLAIN",1,1,0,0,0,1,1,0,1s$ "POTATO CHIPS","10 2 IN",6,1,0,5,3,1,6,1,2$ COLA,"8 OZ",5,0,0,0,0,0,0,0,0$ DOUGHNUT,"1 PLAIN",6,2,1,0,5,4,3,1,2$ TUNA,"3 OZ",8,39,1,0,3,6,39,1,9% TACO,"ONE BEEOLATE CAKE","1/16 2'+ICIN",12,5,2,0,1,4,1,4,3_#F "COFFEE,CREAM,SUGAR",CUP,2,1,1,0,1,1,3,2,1#P "SUGAR COOKIE","3 IN",4,2,0,0,3,2,2,2,2#Z JELLO,"1/2 CUP",4,3,0,0,0,0,0,0,0#d WHISKEY,"1 OZ",5,0,0,0,0,0,0,0,0$n "APPLE PIE","1/6 SLICE",1ANS","1/2 CUP",8,12,3,5,7,2,4,7,14^" "MACRONI AND CHEESE","1/2 CUP",11,13,9,0,8,12,6,18,6" PIZZA,"1/4 14' CHEESE PIE",18,18,19,20,25,28,19,33,16"( "CHOCOLATE BAR","1 OZ",7,3,2,0,2,7,1,8,2"2 BUTTER,"1 TSP",2,0,4,0,0,0,0,0,0-#< "CHOC3! "WHOLE WHEAT BREAD",SLICE,3,4,0,0,4,2,4,3,4d! "CORN FLAKES","3/4 CUP",4,2,0,0,6,1,2,0,2! RICE,"1/2 CUP",6,3,0,0,7,5,6,1,5! "HOT DOG","BUN AND WIENER",6,5,0,0,11,7,8,3,4! HAMBURGER,"3 OZ",9,39,0,0,5,11,25,1,16"" "BAKED BEUP",1,1,27,39,2,2,1,3,3J "ORANGE JUICE","1/2 CUP",3,1,5,39,7,0,2,1,0u PEAS,"1/2 CUP",3,6,10,17,16,5,8,2,9 "BAKED POTATO","5 OZ",6,5,0,39,8,4,13,1,7 TOMATO,"3 SLICES",1,1,18,39,4,3,4,1,3! "WHITE BREAD",SLICE,3,3,0,0,7,4,4,2,34,3,j CARROT,"5 IN.",1,1,39,7,2,2,1,2,2Ut CORN,"1/2 CUP",4,3,67,6,2,3,5,1,3~ GRAPEFRUIT,"1/2 MEDIUM",2,1,10,39,3,2,2,3,4 SPINACH,"1/2 CUP",0,3,39,39,5,7,2,10,8 LETTUCE,"2 LEAVES",0,1,19,15,2,2,1,3,4 "GREEN SALAD","3/4 C,26,2,398 "PORK CHOP","3 OZ",15,39,0,0,39,14,25,1,16iB "APPLE","MEDIUM SIZE",4,1,2,10,3,2,0,1,2L "FRENCH FRIES","20 PIECES",12,6,0,30,7,5,13,1,6V "BANANA","MEDIUM SIZE",5,2,5,20,4,4,4,1,4` "GREEN BEANS","1/2 CUP",1,2,7,14,3,4,2,2,8,6,24,1,29,1D "BEEF LIVER","3 OZ",10,39,39,38,16,39,39,1,39o BACON,"2 SLICES",5,10,0,0,6,4,5,0,4 "FRIED CHICKEN","3 OZ",10,39,3,0,4,23,30,1,12$ "FRANKFURTER","2 OZ",9,16,0,0,7,7,8,1,6. "PEANUT BUTTER","2 TBSP",9,14,0,0,3,2EESE","1/2 CUP",6,34,4,0,3,17,1,12,2S "ICE CREAM","1/2 CUP",7,6,7,2,3,8,1,8,1| MILK,"1 CUP",7,16,5,4,7,28,1,29,0 "CHOCOLATE MILK","1 CUP",11,19,6,5,5,25,2,27,4 "SKIM MILK","1 CUP",4,16,10,4,7,28,1,30,0 YOGURT,"1 CUP",11,20,::: z 2 --> TONE GENERATOR DATA BLOCKV 255,255,173,48,192,136,208,5y 206,177,3,240,9,202,208,245 174,176,3,76,178,3,96,0  --> FOOD DATA BLOCK "CHEDDAR CHEESE","1 OZ",6,15,5,2,1,6,1,21,1$ "COTTAGE CH3" CAL PRO V-A V-C THI RIB NIA CALC IR"|"% OF DAILY NEED. SERVING SIZE OF ...":FOOD$(K);", ";PRTN$(K)"."; P310:J5355 39J,39J11*J4L19>LHPP4R39,39X(K,L)P\Lf944,25:946pA$CALL GRAPHICS, STOP, RETURN%2030Y12:"ANOTHER FOOD GRAPH (Y,N)? ";A$:A$(A$,1)jA$"Y"1630{A$"N"2870944,20:946:944,22:946:12:"DO YOU MEAN YES OR NO??????"K1800:K::1950  --> GRAPH SUBROUTINEA$::1630K2060I&12:" TYPE STOP OR ANOTHER FOOD: ";FOOD$`0FOOD$"STOP"2250j:1630D --> END OF MAIN ROUTINEN X --> PAGE SUBROUTINEb23:"PRESS ANY KEY TO CONTINUE...";lA$::v   --> K1N1L$FOOD$(K)1940%K8BADSPBADSP10LBADSP2051760s:12:12:"***SPELLING ERRORS***"14:15:"***PROGRAM ENDS***":2860944,BADSP946:14" --> SORRY, ";L$;" NOT ON LIST <--"16:"PRESS RETURN." IN ROUTINE^:2:"...TYPE FOOD NAME FOR GRAPH ...TYPE 'HELP' TO SEE FOOD LIST AGAIN ...TYPE 'STOP' TO EXIT PROGRAM ";L$hL$"HELP"1680r:1550:189010:"CHOOSE YOUR FOOD AGAIN.":1890:1630L$"STOP"227012:10)K!K:944,220:94671550:1890:1630> ^ --> FOOD LIST SUBROUTINE:3:" FIRST PART OF THE FOOD LIST:";LF$J1N12"FOOD$(J);22);FOOD$(J1),J29160061890:5@J:J T --> MA CALCIUM"" IR = IRON"$G -->READ BLOCK OF FOOD DATAhFOOD$(N1),PRTN$(N1),X(N1,9)z944,183:94612:15:"FOOD RECORDS READ"K1N1FOOD$(K),PRTN$(K),X(K,1),X(K,2),X(K,3),X(K,4),X(K,5),X(K,6),X(K,7),X(K,8),X(K,9) E USED BELOW THE BAR GRAPH:":P:" CAL = CALORIES"RZ" PRO = PROTEIN"ld" V-A = VITAMIN A"n" V-C = VITAMIN C"x" THI = THIAMIN RIB = RIBOFLAVIN" " NIA = NIACIN CALC =1890 14501 --> FOOD INFO SUBROUTINE]2:"ON THE LEFT OF THE SCREEN WILL BE"("7 WHITE BLOCKS, REPRESENTING THE"2"5%, 10% 15%, 20%, 25%, 30% AND 35%"<"U.S. RECOMMENDED DAILY ALLOWANCES."F:"THE FOLLOWING ABBREVIATIONS ARPER LIMIT"7"IS 39% AND SOME FOODS MAY SUPPLY MORE"T"THAN THAT PERCENTAGE."^1890:"TO EXIT A GRAPH, PRESS THE 'SPACE BAR'."2:"IMPORTANT: THE FOODS MUST BE SPELLED EXACTLY AS THEY ARE PRESENTED IN THE LIST."1890:1310: COLOR."1890<2:"NOTE THAT THE RECOMMENDED DAILY"h"ALLOWANCES CHANGE SOMEWHAT DEPENDING""ON WHETHER THE USER IS MALE, FEMALE,""UNDER 11 YEARS, UNDER 15 YEARS OR""UNDER 18 YEARS OF AGE" :"ALSO NOTE THAT THE GRAPH'S UPENTER THE NAME OF A COMMON FOOD AND THIS PROGRAM WILL SEARCH FOR IT."t:"IF THE FOOD IS FOUND, A GRAPH ILLUSTRATING THAT FOOD'S CONTRIBUTION"~"TO THE U.S. RECOMMENDED DAILY ALLOWANCE WILL BE PRINTED ON THE SCREEN INSSIGNMENTS &::D$(4):LF$(10)>N162:BADSP70:255J$K023^.NTE:944K,NTEe8KmB L --> INFORMATION ON PROGRAMV8:" DO YOU WANT INSTRUCTIONS? (Y/N)";[I$:I$"Y"I$"N"1115`I$"Y"1450Ij:2:"(WD$,(WD$)40)' WW1SS:::6300 630 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU":  FOOD GRAPH BY CURT TORGERSON  DATA DERIVED FROM  THE NATIONAL DAIRY  COUNCIL AY TO CONTINUE..........."6 v16368,0:L(WD$):SS60f I1L1:(16384)127Ĺ16368,0:::1000 I39LBN$(WD$,I,40):680 I39LBN$(WD$,1)(WD$,39):680 BN$(WD$,LI1)(WD$,(39(LI))) 22:1:BN$ Q1I(L40)Q0:WD$$"----------------------------------------"F bQ1::21:1:Q$:Q$; lWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY...........PRESS ANY KE18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";:i 2:2:" ";:39:" ":17:2:" ";:39:" ";:r 300  TUNE 6,222:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768 X STREAMER , ]Q8:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:787,0:  BORDER AND TITLES : H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";:7 I?!d PROGRAM TITLE SCREEN (n400Q(22(H$)2):H$;:: CENTER STRINGg, TITLE STRINGS 67:H$"R D A F O O D V A L U E S":200@11:H$"BY CURT TORGERSON":200^ INIT VARIBLES  SOUND ROUTINES 768,173:769,4            ----------//---------- VGRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE)THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. z#?   ΠР ԠΠ ٮ٠ àؠ ӠӠ  ٠- ԠĠ# ĠӠ# ǠԠ͠ ǠԠ ٠Šؠ- ŠĠ ҠɮƠ  ɮǠՠ ɮԭ̠͠ҠŧӠҠŠˠϠ ǠՠԺĠŠԠԠŠƠŠӠҠӠ͠Ӡ ՠY'S","STOP NOW, IF YOU ARE USING THE","DISKETTE YOU BORROWED FROM THE","LIBRARY. YOU COULD EASILY RUIN IT."," ","REMEMBER, YOU ARE FULLY RESPONSIBLE","FOR ANY DAMAGE OR ALTERATION TO THE" <#"LIBRARY'S DISKETTE AND ITS FILES.","*MAKE YOUR COPY NOW","COP:"LOADING OPENING MENU":12:13:"PLEASE WAIT ...":D$"RUNOPENING MENU" :24:3:" TO EXIT, TO CONTINUE";:16368,0 A(16384):A127140 A$(A128):A$(27)ĝ:120 24:2:40);:: (#"*USE YOUR COPY, NOT THE LIBRAR39);:H$A$(I,0):20::J118:J4:3:A$(I,J);40);:J:IMX110O d130:I n16368,0:18:18:"- - -":20:8:"PRESS TO RETURN TO":6:"THE OPENING MENU OR PRESS ANY":4:"OTHER KEY TO READ THIS FILE AGAIN";:A$:A$(27)90H x::10:10" ":2:40);:34,0::V2321:V:1:" ";:40:" ";: P3:4:38);:2:1:41);:1:4:38):2:H$"IMPORTANT: READ ME FIRST":20::12:H$" ONE MOMENT PLEASE ....":20:16368,0:34,5:40:13:2:39);C Z32,0:33,40:34,0:35,24:I1MX::2:3:2 IMPORTANT: READ ME FIRST BY GREG TANG : 70S(21(H$)2):H$;:_R0:L1v(A$:A$"*"MXR:2B$(A$,1):B$"*"A$(R,L)A$:LL1:40<RR1:L1:A$(R,0)(A$,(A$)1):409 FD$(13)(4):A$(20,18)::::23:2:" ";:39:     PRESSED WRITTEN CONSENT OF THE PUBLISHER. ----------//---------- NERS" " T"PROGRAM DESCRIPTIONS"- ^"MENU8 h"EOD"  -------- NOTICE -------- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTEH  THIS PROGRAM MUST OBTAIN THE EX278I,Y1278I,Y11D W150:A(16384):A127A$(A128):190J S 100d RUN FILE { A$"1"A$"5"100 A(A$) D$"RUN"NM$(A) , DATA BANK 6"IMPORTANT: READ ME FIRST" @"ABOUT THE PDSOF SERVICE" J"TIPS FOR BEGIN,0:16302,0:16300,0:230,328 ZY1182:I70:16368,0] d7:I,Y1I,Y11:I1,Y1I1,Y11 n279I,Y1279I,Y11:278I,Y1278I,Y11 xW150:A(16384):A127A$(A128):190 4:I,Y1I,Y11:I1,Y1I1,Y11 279I,Y1279I,Y11:I; OPENING MENU PROGRAM BY GREG TANG b :11:11:"ONE MOMENT PLEASE ..."}D$(13)(4):NM$(20)II1:NM$(I):NM$(I)"EOD"30(MXI12D$"BLOADUNPACKER"<D$"BLOADPI.OPENING MENU"F768 P16297,0:16304   -------- NOTICE -------- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTE  THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----------//----------  < -- HELLO -- H D$(4)j::10:14)"WELCOME TO ..."D$"BLOAD PI.PDSOF"(D$"BLOAD UNPACKER"2768:16297,0:16304,0:16302,0:16300,0:230,32<D$"RUN OPENING MENU"}   UIPMENT PROBLEMS RESULTING FROM","USING THE SOFTWARE AND DISKETTES.","YOU, THE BORROWER, BEAR ALL RISKS"$"AND MUST ARRANGE FOR YOUR OWN USER","SUPPORT.","*FOR FURTHER INFORMATION","READ THE PDSOF USER'S GUIDE BOOKLET.","YOU CAN READ IT AT THE LIBRARIA ANY WARRANTY OR","REPRESENTATION, EITHER EXPRESSED OR","IMPLIED, REGARDING THE SOFTWARE'S","PERFORMANCE OR ITS FITNESS FOR ANY"h$"PARTICULAR PURPOSE. UNDER NO CIR-","CUMSTANCES ARE THEY LIABLE OR RESPON-","SIBLE FOR ANY DAMAGE, INCLUDING DATA","OR EQOFTWARE ON FILE; PUBLIC","DOMAIN RESEARCH, INC.: PUBLIC DOMAIN","RESEARCH.","*WARRANTY","NEITHER YOUR LIBRARY, THE","PROGRAMMERS, PUBLIC DOMAIN RESEARCH,"$"PUBLIC DOMAIN SOFTWARE ON FILE,","FACTS ON FILE, INC. NOR ITS SUPPLIERS","AND DISTRIBUTORS MAKERADEMARKS AND/OR","SERVICE MARKS THAT FOLLOW THEIR","NAMES: APPLE COMPUTER, INC.: APPLE,","APPLE II, APPLE II+, APPLE IIE,","APPLE IIC, APPLESOFT BASIC, INTEGER","BASIC, APPLE DOS AND APPLE PRODOS;"|$"FACTS ON FILE, INC.: PDSOF AND PUB-","LIC DOMAIN STHE PDSOF TITLE GRAPHICS ARE"T$"COPYRIGHTED BY PUBLIC DOMAIN","SOFTWARE ON FILE. SEE THE","INDIVIDUAL FILE AND PROGRAM LISTINGS","FOR OTHER COPYRIGHT NOTICES.","*TRADEMARKS AND SERVICE MARKS","THE FOLLOWING ORGANIZATIONS ARE THE"h$"OWNERS OF THE TTHE PROGRAMS FOR YOUR OWN OR A","FRIEND'S PERSONAL USE. AS A PATRON"@$"OF YOUR LIBRARY, YOU HAVE THE","PUBLISHER'S PERMISSION."," ","WRITTEN PERMISSION TO DISTRIBUTE AN","ENHANCED PROGRAM WILL BE GRANTED TO","A LEGITIMATE USER GROUP ON REQUEST."," ","ETTE, REREAD THE PROGRAM'S","INSTRUCTIONS, OR GET ADVICE FROM AN"Z$"EXPERIENCED USER."E,$"*COPYRIGHTS","PUBLIC DOMAIN RESEARCH COPYRIGHTED","ITS ENHANCEMENTS TO THE PROGRAMS.","HOWEVER, THESE COPYRIGHTS WON'T","RESTRICT YOU FROM COPYING AND USING","RIVE AND TURN THE","COMPUTER OFF. 2) WAIT AT LEAST 15","SECONDS AND TURN IT ON AGAIN -- THE"A$"COMPUTER WILL REBOOT AUTOMATICALLY."," ","IF THE PROGRAM STILL WON'T RUN,","CONSULT YOUR APPLE MANUAL, REVIEW","THE 'TIPS FOR BEGINNERS' FILE ON","THIS DISKARE MAKING AN","OPERATOR'S ERROR. MAYBE THE PROGRAM","IS BEYOND YOUR LEVEL OF EXPERIENCE.","*IF A PROGRAM DOESN'T WORK (CONT)"]#"THE SUREST WAY TO GET A PROGRAM","RUNNING SMOOTHLY AGAIN IS TO FOLLOW","THESE TWO EASY STEPS: 1) LEAVE THE","DISK IN THE DORY CONFLICT","BETWEEN PROGRAMS. MAYBE THE PROGRAM","IS TRYING TO WRITE TO A WRITE-","PROTECTED DISKETTE. PERHAPS YOUR","EQUIPMENT IS MALFUNCTIONING. MAYBE"#"THE PROGRAM DOESN'T WORK WITH YOUR","PARTICULAR PRINTER OR EXPANSION","CARD. PERHAPS YOU OUS USER DAMAGED A","DISKETTE."," ","PLEASE REPORT DEFECTIVE DISKETTES TO","YOUR LIBRARIAN."," ","BUT BEFORE YOU DO, BE SURE THE FAULT","DOESN'T LIE ELSEWHERE, AS IS THE","CASE 99% OF THE TIME."#"*IF A PROGRAM DOESN'T WORK (CONT)","MAYBE THERE'S A MEMIT IT IN A BOOK DROP."," "#"AS EMPHASIZED BEFORE, ALWAYS USE","YOUR COPY, NOT THE LIBRARY'S.","*IF A PROGRAM DOESN'T WORK","THE PROGRAMS WERE TESTED THOROUGHLY","BEFORE THEY WERE DELIVERED TO YOUR","LIBRARY. HOWEVER, IT'S POSSIBLE"#"THAT A PREVIREMES IN","TEMPERATURE. DON'T SET ANYTHING ON","TOP OF IT."#"*PROTECT THE DISKETTE (CONT)","STORE THE DISKETTE IN ITS PROTECTIVE","ENVELOPE IN A SAFE PLACE. RETURN IT","AS SOON AS POSSIBLE (OTHER PEOPLE","ARE WAITING TO BORROW IT)."," ","NEVER DEPOSE WHEN THE","DRIVE'S RED LIGHT IS ON. OTHERWISE,","YOU COULD SERIOUSLY DAMAGE THE DISK"<x#"AND YOUR COMPUTER."," ","KEEP THE DISKETTE AWAY FROM DUST,","DIRT, GREASE, CIGARETTE SMOKE, FOODS","AND BEVERAGES, MAGNETIC FIELDS AND","METAL DETECTORS, AND EXTT. CARRY IT IN A","HARD CARRYING CASE. IF YOUR LIBRARY","DOESN'T PROVIDE YOU WITH ONE, USE","YOUR OWN."," "Xd#"NEVER TOUCH THE EXPOSED RECORDING","SURFACE.","*PROTECT THE DISKETTE (CONT)","DON'T INSERT THE DISKETTE INTO OR","REMOVE IT FROM A DISK DRIVY THE LIBRARY'S DISKETTE ONTO ONE","OF YOUR BLANK DISKETTES, NOW."," ","RUN THE PROGRAMS WITH YOUR COPY,","NEVER WITH THE LIBRARY'S.","*PROTECT THE DISKETTE"mP#"TRANSPORT THE DISKETTE TO AND FROM","THE LIBRARY WITH UTMOST CARE. DO","NOT BEND OR CRUSH I      THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----------//---------- ION ON OUR SERVICE,","READ THE PDSOF USER'S GUIDE BOOKLET.","YOU CAN READ IT AT THE LIBRARIAN'S","DESK.","*" -------- NOTICE -------- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTE|SERVICE (CONT)"$"WE DEDICATE THE PDSOF COLLECTION TO","THE MANY PEOPLE WHO CREATED THE","PROGRAMS, TO PUBLIC DOMAIN RESEARCH","WHICH ENHANCED THE PROGRAMS, AND TO","YOUR LIBRARY WHICH MAKES THE","PROGRAMS AVAILABLE TO YOU."," "l$"FOR MORE INFORMATTHORS."," ","WHEN YOU CUSTOMIZE A PROGRAM, YOU"$"INCREASE ITS VALUE TO YOU. AS A","BONUS, YOU SHARPEN YOUR PROGRAMMING","SKILLS."," ","JUST REMEMBER, NEVER DELETE A","COPYRIGHT NOTICE OR THE NAMES OF THE","PROGRAM AUTHORS AND ENHANCERS.","*THE PDSOF TIONS, POOR GRAMMAR, FAULTY","SYNTAX, IMPROPER USAGE, TYPOS AND","MISSPELLINGS."/T$"*THE PDSOF SERVICE (CONT)","YOU CAN COPY, MODIFY AND USE ANY OF","THE PROGRAMS FOR YOUR OWN OR A","FRIEND'S PERSONAL USE."," ","BY USING THE PROGRAMS, YOU HONOR THE","AUE GRADE. AND, MOST","OF THOSE NEEDED WORK."," ","THE PUBLIC DOMAIN RESEARCH STAFF","MADE NUMEROUS ENHANCEMENTS BY","ELIMINATING BUGS AND, AS MUCH AS"P"$"POSSIBLE, VAGUE INSTRUCTIONS,","CONFUSING ON-SCREEN PROMPTS,","MISLEADING TITLES, SKETCHY","DESCRIPCH,"#"AN IMPARTIAL ORGANIZATION DEVOTED TO","THE RESEARCH, EVALUATION,","IMPROVEMENT AND DISSEMINATION OF","PUBLIC DOMAIN WORKS.","*THE PDSOF SERVICE (CONT)","PUBLIC DOMAIN RESEARCH TESTED"#"THOUSANDS OF PROGRAMS. LESS THAN 10","PER CENT MADE TH,"FILE PUBLISHING HOUSE. WE HAVE BEEN"#"SERVING YOU AND THE LIBRARY","COMMUNITY FOR SEVERAL DECADES WITH","QUALITY REFERENCE AND INFORMATION","MATERIALS.","*THE PDSOF SERVICE (CONT)","THE AWARD-WINNING PROGRAMS WERE","SELECTED BY PUBLIC DOMAIN RESEAR27)ĝ:160D 24:2:" ";::W (# DATA BANK ' Z#"*THE PDSOF SERVICE","WE AND YOUR LIBRARY ARE PLEASED TO","PRESENT THESE PROGRAMS TO YOU."," ","PUBLIC DOMAIN SOFTWARE ON FILE","(PDSOF) IS A PART OF THE FACTS ON"TO READ THIS FILE AGAIN";0 A$:A$(27)120s ::10:10:"LOADING OPENING MENU":12:13:"PLEASE WAIT ..." D$"RUN OPENING MENU" :24:3:" TO EXIT, TO CONTINUE";:16368,0 A(16384):A127190 A$(A128):A$(2:39);& n32,0:33,40:34,0:35,24~ xI1MX::2:3:39);:H$A$(I,0):20::J118:J4:3:A$(I,J);40);:J:IMX140 180:I 16368,0:18:18:"- - -":20:8:"PRESS TO RETURN TO":6:"THE OPENING MENU OR PRESS ANY":4:"OTHER KEY 23:2:" ";:39:" ":2:" ";:34,0q Z:V2321:V:1:" ";:40:" ";: d3:4:38);:2:1:41);:1:4:38):2:H$"ABOUT THE PDSOF SERVICE":20::12:H$" ONE MOMENT PLEASE ....":20:16368,0:34,5:40:13:} >ABOUT THE PDSOF SERVICE PROGRAM BY GREG TANG F 70_(21(H$)2):H$;:kR0:L1(A$:A$"*"MXR:2B$(A$,1):B$"*"A$(R,L)A$:LL1:40<RR1:L1:A$(R,0)(A$,(A$)1):40FD$(13)(4):A$(20,18):::H P     N'S","DESK.","*":  ---====] NOTICE [====--- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTE THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----==][==----D-- -NS HOW TO","VIEW A CATALOG, LIST AND PRINT A","PROGRAM, AND RUN A PROGRAM DIRECTLY","FROM THE APPLESOFT OR INTEGER PROMPT."," "%"YOU CAN READ IT AT THE LIBRARIAN'S","DESK.","*":  ---====] NOTICE [====--- COPYRIGHT 1985T' FILE"%"ON THIS DISKETTE, RESTUDY YOUR APPLE","MANUALS, OR GET HELP FROM AN","EXPERIENCED USER.","*FOR MORE TIPS","STUDY 'PART ONE -- TIPS FOR","BEGINNERS' IN THE PDSOF USER'S GUIDE"%"BOOKLET. IT'S AN EXPANDED VERSION","OF THIS FILE AND EXPLAIORE YOU REBOOT THE SYSTEM."," "N%"IF ALL THE ABOVE ATTEMPTS FAIL, TURN","OFF THE COMPUTER FOR AT LEAST 15","SECONDS. THEN, WITH THE DISKETTE IN","THE DRIVE, TURN THE COMPUTER ON."," ","IF SUCCESS STILL ELUDES YOU, REVIEW","THE 'IMPORTANT: READ ME FIRSYSTEM AND START AGAIN."," ","TO REBOOT, TYPE 'PR#6'. OR, PRESS","THE 'OPEN APPLE-CONTROL-RESET' KEY"%"COMBINATION.","*RETURNING (CONT)","IF YOU ARE STILL EXPERIENCING","DIFFICULTIES, REINSERT THE DISKETTE","AND GENTLY WIGGLE THE DISK DRIVE","DOOR BEF," KEY."," ","IF THAT DOESN'T WORK, THEN TYPE","'RUN MENU' AND PRESS THE ","KEY. THIS SHOULD RETURN YOU TO"e$"THE SELECT-A-PROGRAM MENU. FROM","THERE, YOU CAN RESELECT THE PROGRAM."," ","IF YOU STILL ENCOUNTER PROBLEMS,","REBOOT THE S","SOFT OR INTEGER PROMPT APPEARS ON","THE SCREEN."," ","THIS ALSO OCCURS IN CERTAIN PROGRAMS","WHEN YOU MAKE AN IMPROPER ENTRY.","*RETURNING (CONT)"|$"IN THESE CASES, YOU CAN RETURN TO","THE PROGRAM YOU WERE RUNNING BY","TYPING 'RUN' AND PRESSING THE"OW THE ON-SCREEN PROMPTS. THESE","LEAD YOU BACK TO THE SELECT-A-","PROGRAM MENU AUTOMATICALLY."," ","UNFORTUNATELY, WE COULDN'T ADD THIS","FEATURE TO SOME OF THE PROGRAMS IN"$"OUR MULTI-DISKETTE COLLECTION. WHEN","YOU EXIT THESE PROGRAMS, THE APPLE-AT","PROGRAM. IT'S THAT EASY."," ""$"IF YOU DON'T WANT TO RUN ANOTHER","PROGRAM, REMOVE THE DISK (WHEN THE","DRIVE'S RED LIGHT IS OFF) AND TURN","OFF THE COMPUTER.","*RETURNING TO SELECT-A-PROGRAM MENU","IF YOU WANT TO RUN ANOTHER PROGRAM,"T$"FOLLTHE SCREEN, YOU CAN GO DIRECTLY TO","THE SELECT-A-PROGRAM MENU SIMPLY BY"##"PRESSING THE NUMBER 5 KEY."," ","ONCE YOU ARE IN THE SELECT-A-PROGRAM","MENU, YOU CAN START THE PROGRAM OF","YOUR CHOICE SIMPLY BY PRESSING THE","LETTER (A TO Z) ASSIGNED TO THSELF-BOOTING. THIS","MEANS THAT ALL YOU HAVE TO DO IS","INSERT YOUR COPY IN THE DEFAULT DISK"I#"DRIVE, TURN ON THE COMPUTER AND THEN","WAIT FOR THE OPENING MENU TO APPEAR","ON THE SCREEN.","*GETTING STARTED (CONT)","ONCE THE OPENING MENU COMES UP ON","READ ME FIRST'"," FILE ON THIS DISKETTE."," ","IF YOU HAVE NOT YET READ THOSE","DOCUMENTS, AND HAVE NOT YET MADE"]#"YOUR COPY OF THE DISKETTE YOU","BORROWED FROM THE LIBRARY, PLEASE DO","SO NOW.","*GETTING STARTED, THE EASY WAY","YOUR COPY WILL BE FOR BEGINNERS', IS","INTENDED TO SERVE ONLY AS A QUICK-","REFERENCE AID FOR NOVICE USERS.","*INTRODUCTION (CONT)","WE ASSUME THAT YOU HAVE ALREADY","STUDIED"," "u Z#" - THE APPLE MANUALS WHICH CAME"," WITH YOUR COMPUTER."," "," - THE 'IMPORTANT: LOADING OPENING MENU":12:13:"PLEASE WAIT ...":D$"RUNOPENING MENU" :24:3:" TO EXIT, TO CONTINUE";:16368,0 A(16384):A127140 A$(A128):A$(27)ĝ:120 24:2:40);:: (#"*INTRODUCTION","THIS FILE, 'TIPS 9);:H$A$(I,0):20::J118:J4:3:A$(I,J);40);:J:IMX110L d130:I n16368,0:18:18:"- - -":20:8:"PRESS TO RETURN TO":6:"THE OPENING MENU OR PRESS ANY":4:"OTHER KEY TO READ THIS FILE AGAIN";:A$:A$(27)90E x::10:10:"39:" ":2:40);:34,0::V2321:V:1:" ";:40:" ";: P3:4:38);:2:1:41);:1:4:38):2:H$"TIPS FOR BEGINNERS":20::12:H$" ONE MOMENT PLEASE ....":20:16368,0:34,5:40:13:2:39);@ Z32,0:33,40:34,0:35,24:I1MX::2:3:35 TIPS FOR BEGINNERS PROGRAM BY GREG TANG = 70V(21(H$)2):H$;:bR0:L1y(A$:A$"*"MXR:2B$(A$,1):B$"*"A$(R,L)A$:LL1:40<RR1:L1:A$(R,0)(A$,(A$)1):40< FD$(13)(4):A$(20,18)::::23:2:" ";:ITH THEIR"3$"GROWTH NEEDS INCLUDING THE LIGHT,"\$"WATER, ATMOSPHERE AND TEMPERATURE"$"CONDITIONS. YOU TELL THE COMPU-"$"TER THE CONDITIONS FOR YOUR HOME"$"AND IT WILL RECOMMEND PLANTS."$"*SAVE FOR A RAINY DAY"%"THIS PROGRAOGRAM TO CREATE AND"8|$"PRINT A HANDY SHOPPING LIST."N$"*MY RECIPE BOX"t$"HOME COOKS CAN WRITE AND STORE"$"TO DISK THEIR FAVORITE RECIPES."$"OPTIONS INCLUDE EDITING AND"$"PRINTING."$"*PLANT MAN" $ "LISTS 76 PLANTS ALONG W, HEIGHT, WEIGHT",,$"AND DAILY ACTIVITY."D6$"*RDA FOOD VALUES"l@$"DRAWS GRAPHS THAT ILLUSTRATE THE"J$"PERCENTAGE OF U.S. RECOMMENDED"T$"DAILY ALLOWANCES FOUND IN 62"^$"COMMON FOODS. IN COLOR."h$"*SHOPPING LIST" r$"USE THIS PRUMBER OF FACTORS IN-"9#"CLUDING AGE, SEX, AND FAMILY"I#"HISTORY."Z#"*DIET AID"#"WANT TO LOSE SO MANY POUNDS IN"$"SO MANY WEEKS? THIS PROGRAM"$"ESTIMATES YOUR DAILY CALORIE"$"REQUIREMENTS BASED ON THESE""$"VARIABLES: AGE#"1 MINUTE TO 999 MINUTES. IN".#"COLOR."G#"*GRANDAPPLE CLOCK"n#"A TICKTOCKING GRANDFATHER CLOCK"#"COMPLETE WITH CHIMES, AN ALARM"#"AND A SWINGING PENDULUM."#"*LONGEVITY"#"CALCULATES YOUR LIFE EXPECTANCY"#"BASED ON A NION DATA #2#"*ETERNAL CALENDAR"J<#"PRINTS A CALENDAR FOR ANY GIVEN"nF#"MONTH ON THE SCREEN, AND ANY"P#"GIVEN YEAR AFTER 1581 ON THE"Z#"PRINTER."d#"*JANE'S TIMER"n#"COUNTS DOWN THE NUMBER OF"x#"MINUTES THAT YOU ENTER, FROM" EXT DESCRIPTION"0:8:" FOR THE PROGRAM"[8:" DESCRIPTION MENU.":LP1:1040| LOAD DESCRIPTION ARRAYS :R0:F0M$:M$"*"MXR:(M$,1)"*"RR1:M$(R)(M$,(M$)1):F0:2020A$(R,F)M$:FF1:2020 (# DESCRIPTESCRIPTION"+:8:" FOR THE PROGRAM"V8:" DESCRIPTION MENU.":LP1:1040gA$"P"200RR1:LP0:R01000RR1:7:8:"YOU HAVE GONE BEYOND THE"8:"FIRST PROGRAM DESCRIPTION."11:8:"PRESS ...":8:" FOR N ";Y VA$"N"1200t `RR1:LP0:RMX1000 jRR1:7 t8:"YOU HAVE GONE BEYOND THE" ~8:"LAST PROGRAM DESCRIPTION." 11:8:"PRESS ...": 8:"

FOR PREVIOUS D FOR DESCRIPTION MENU ...";1 16368,0J $(16384)1271060 .A$((16384)128):A$"N"A$"P"A$"M"ĺ"";:16368,0:1060 8:2:3:38): BV517:V:3:38):G L22:1:"   DISPLAY DESCRIPTION K T$M$(R):16368,0:V719:V2:3:37):t :2:3:38):2:(21(T$)2):T$: V818:V2:5:A$(R,V8):# LP1Ģ22:1:" PRESS ... FOR NEXT DESCRIPTION

FOR PREVIOUS DESCRIPTION 16368,0! ,(16384)1273009 6A$((16384)128)k @A$(27)(A$"A"(A$(64MX)))ĺ"";:290 JA$(27)ė:10:10:"LOADING OPENING MENU":12:13:"PLEASE WAIT ...":D$(13)(4)::D$"RUNOPENING MENU" hR(A$)64:R13RR1 r1000:2:11:"PROGRAM DESCRIPTIONS"::LP0:7 V719Z (V6)MXĢV2:3:38)::270 V2:3:"<";(58V);"> ";M$(V6);39);: X$(MX64):22:2:"PRESS FOR A PROGRAM DESCRIPTION" " TO RETURN TO OPENING MENU" "O PROGRAM DESCRIPTIONS MENU PROGRAM BY GREG TANG |dA$(26,10):M$(26):2000:::16368,0:n1:4:38):2:1:41):4:38)xV218:1:" ";:40:" ";:19:2:" ";:39:" ":20:2:40); SHOW PAGE +       PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTE THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----==][==----NOШШШΜ眹瀸ǜθШ%ՃШШШ%ШШШΜ眹瀸ǜθΜ瀸ǜοՁШ%ШШШ%ШШШΜ眹瀸ǜθШ%ՃШШШ%ШШ%ЩШШШΜ瀟ǜοՁШ%ШШШ%ШШШ@r ЩՂШШШ瀇Ш%Ш瀏Ш%ЩШШШΜ省瀏ǜθՁШ%Ш    @@ 0:ȡHe@ hhл`Ie@҈ THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----------//---------- ------ "SHOPPING LIST PROGRAM"- w "MY RECIPE BOX"> | "PLANT MANO "RAINY.DAY"Z "EOD"  -------- NOTICE -------- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING TO DISTRIBUTEj A1AMX110 :7 ::10:14:"LOADING PROGRAM"V 12:14:"PLEASE WAIT ..."i "D$"RUN"NM$(A){ , DATA BANK 6"ETERNAL CALENDAR" @"JANE'S TIMER" J"GRANDAPPLE CLOCK" T"LONGEVITY" ^ "DIET AID" h "RDA FOOD VALUES" r 16384):A127A$(A128):220$ I 4:I,Y1I,Y11:I1,Y1I1,Y11w 279I,Y1279I,Y11:278I,Y1278I,Y11 W150:A(16384):A127A$(A128):220 130 GOT FILE TO RUN AA192 A26ĺD$"RUNOPENING MENU" SELECT-A-PROGRAM"- ZD$"BLOADUNPACKER":768a d230,32:16304,0:16297,0:16302,0:16300,0 n DRAW DOTS AND GET INPUT xY1182:I70:16368,0 7:I,Y1I,Y11:I1,Y1I1,Y11 279I,Y1279I,Y11:278I,Y1278I,Y11 W150:A(k :SELECT-A-PROGRAM MENU UBY GREG TANG ^ 255d11:11:"ONE MOMENT PLEASE ..."(D$(13)(4):NM$(24)2II1:NM$(I):NM$(I)"EOD"50<MXI1F LOAD HI-RES PICTURE  PD$"BLOADPI.    O DISTRIBUTE THIS PROGRAM MUST OBTAIN THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. ----------//---------- RM INSPIRES YOU TO"4%"SAVE. IT DEMONSTRATES HOW"\%"SAVINGS GROW DRAMATICALLY OVER A"s&%"PERIOD OF TIME."|'"*"  -------- NOTICE -------- COPYRIGHT 1985 PUBLIC DOMAIN RESEARCH ANYONE WISHING T%ՀðÆ㿳惀ဃ(,၏ՒnjƆøπ%Հ%ƃᆁᆃ(ᆽᆃ%%ǜǘÀ憀΀%'njÁðƘÆÆඃᆙ(9%njÀ憀΀%''Ç瀆ᆃ%%Ïnj恏%'感ÀÃ$̰ðᶏnj灘ᘀÏ-ð憘ÆÌ񿇆ß%9󸎞%(㆟Ì翁$ః(-繃ްð憘󸎜,憀،njჀ$࿃(-dž憘$$ః(-繃̘̌ð᎘熘Ց㆘Ì$)憀ƜఃÌ(9$憘Ì$ÇÀ$$Ւnjϰdž񙿸$(憀枘؆ః%$@ ̄ð㹿-،ό$8繃̌̌ðƘ$((ㆇόی%θ#·ο%󎁔%Οο%%񀎃%%%%%񔊀%΀ο%񀎃񔊀%ο%󇎿%θ#%%񔊀%θ%ՃШШШ%ЩՂШШШÜ瀟Ш%Ш瀏Ш%ЩЩՂÜ⸼Æ͍%ـϏρ 0ǜϛ%Ո̍χܟՂؘ͍%ـϟ󃎼͍  %Ղ͍󃎼0̍󃞿ǃ ΜՀ%쌾ÆϏ󃘼͍χ ـ́ς!̇ǰΜ%쌾ـǛ̀LJ,󃶼͏󃞌̓ ',쉆ϛϏǧ ύͰ͇Ձ矝ǟ Ͱς/͇͍́ 汀ϏΏϰ  ǣͰ ϙǃ͍̓ /͇ΰώǏ  汀Ϗ! Ͱ͆ ςϙσLJχ dž%ƛß͏ϰ ͂ύ/汀Ϗ! 憘ϊ͆%ς왛Ý켌熘φ1ƛܙ͍Ͱ π͏"࿃Շ汀Ɓ憘ǰ 憚 ͆ ƃ̙Ùσ̰LJǐ ͇.󇃀Շ絀Ƈ @ 滀Ϗ +샌憟  ςĘØǃ 翀Ɓ     ΀-Á憌瀙ÆÌ%%恘,ΜnjՊÀπ%'ß㿳%Ⴡ(,ΜnjÀ憀ICER5000: DISPLAY MONTH(R21080<RA$(13)21900OR21150:IGNOREUUU ** PRINTER MENU ** U:U6V"PRINTER SLOT? (1-4) ";SLOTVSLOT1SLOT4ĺ(7);"PARDON?":22020V:"V"WHICH YEAR?(YYYY): ";Y0$THER CHOICE"7RT:" ........ RETURN TO MENU"GR24:21:A$[RA$(8)21180qRMM1:M121174RM12:YY1R5000:21150RA$(21)21190RMM1:M1321186RM1:YY1R5000:21150RA$(32)21210R3000: CHO(32);:1&RI118:I:1:(32);:39:(32);:N0R18:1:I139:(32);:T:RiDR3000: CHOICENR5000: DISPLAY MONTHXR:20:T5bRT:" .... LAST MONTH"lRT:" ... NEXT MONTH" vRT:" ..... ANOEK16:DAY17(LD11DAYFIRST6290:VD1LAST6290G`A$(D1)jLINE$(WEEK)(LINE$(WEEK),T(M1)3DAY(A$))A$(LINE$(WEEK),(LINE$(WEEK))T(M1)3DAY)tD1D11M1NR ** SCREEN MENU **R: R:1:1:I139:YY100)YY))DD(1.0001DD7(DD7))yLINE$(7)(LINE$(7),T(M1))MO$(MM)(LINE$(7),(LINE$(7))T(M1)(MO$(MM)))MM126120LAST28:(Y4(Y4))0(Y100(Y100))0LAST296200LASTF0(MM1)F0(MM)8FIRSTDD:D11BWE:f/p ** BUILD 3 MONTHS **Gq USED BY PRINTERzI17:LINE$(I)"":J180:LINE$(I)LINE$(I)(32)::X(0):M113:M3AM1YY(Y1):MM(M10):MM136050MMMM12:YYYY1 DD(D0F0(MM)(YY4)(YY400)(83(Y4(Y4))0(Y100(Y100))0LAST29T (Y400(Y400))0LAST29^5300wPLASTF0(MM1)F0(MM)FIRSTDD:D11WEEK16:9WEEK:DAY17:4DAY2D11DAYFIRST5360D1LAST5360D110ĺ(32);D1;:D1D110&YY(Y1):MM(M10):MM135040;MMMM12:YYYY1nDD(D0F0(MM)(YY4)(YY400)(YY100)YY)DD(1.0001DD7(DD7))4:17(MO$(MM))2MO$(MM);", ";Y8:6"SUN MON TUE WED THR FRI SAT"MM125200LAST2CHOICE OF MONTH **# 20:1:958- 1020E 8:20:"(01,1986)"f 7:8:"ENTER DATE : MM,YYYYy 7:21:"";M,Y Y1581M0M13ı 22:1:" SORRY, INCONSISTANT DATA";:W12000::1:41);:3000  ** DISPLAY MONTH **101WD$,2,L1)(WD$,1)2 22:1:BN$:WW1W::620 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": END OF TITLE 30000  ** SET WINDOW ** 32,1:33,37:34,1:35,16:: ** BRARY ............. PRESS ANY KEY TO CONTINUE .........." bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000 vBN$(WD$,40):L166WD$(WD$,2,L1):LL1:650 WD$(2:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:7689 XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LI781,166:782,6:783,76:784,0:785,3:786,96:787,0} ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" ":17:2:" ";:39:" ";: 300` 6,22d PROGRAM TITLE n400:(22((H$)2)):H$:k,7:H$"E T E R N A L C A L E N D A R":200611:H$"BY PAUL IRWIN":200:4 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:          ͍0LJ ̇揎؁ƙ'ǜ技쀛͇1,166:782,6:783,76:784,0:785,3:786,96:787,0z ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" ":17:2:" ";:39:" ";: 300] 6,222:vd PROGRAM TITLE n400:(22((H$)2)):H$:c,7:H$"J A N E ' S T I M E R":200611:H$"BY EVERETT COLLIER":200:1 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:78     NE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE"THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- D***** CALENDAR *****.!A* WRITTEN BY *H!B* PAUL IRWIN *b!D********************<" -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- O Jy11:10:"CHOOSE OUTPUT DEVICE": Ty::14:"CREEN"Q ^y:14:"

RINTER"m hy:14:"UIT TO MENU"x yX(0) y21:14:"WHICH? ";:A$ yA$"S"31160 y21000:31010 yA$"P"31180 y22000:31010 yA$"Q"31130 }999!@,10)fvI110&pvJ17:Y$(J,I):,zv2ycy ** MAINLINE MENU ** r"y:::255'y:41):41):41),y2:17:"CALENDAR":6y::@y"A PERPETUAL CALENDAR PROGRAM WITH OUTPUTTO EITHER YOUR SCREEN OR PRINTER."" Dv"** "Ev"** "&HvEIGHT4Iv" **** "BJv"** **"PKv"** **"^Lv" **** "lMv"** **"zNv"** **"Ov" **** " RvNINESv" **** " Tv"** **"Uv"** **"Vv" **** "Wv" ** "Xv" ** "Yv"** "\vY$(7v"** ".v"***** "&/v" **"40v"** **"B1v" **** "K4vSIXY5v" **** "g6v"** **"u7v"** "8v"***** "9v"** **":v"** **";v" **** " >vSEVEN?v"******"@v"* **"Av" ** "Bv" ** "Cv" ** "THREEv" **** " #v"** **"1v" **"?v" ** "Mv" **"[v"** **"jv" **** " t vFOUR!v" ** ""v" *** "#v" * ** "$v"******"%v" ** "&v" ** "'v" ** "*vFIVE+v"******",v"** " -* **"u"** **"$u" **** " .v ONE<v" ** "Jv" *** "Xv" ** "fv" ** "tv" ** "v" ** " v" **** " vTWO v" **** "v"** **"v"** **"v" ** "v" ** "v"** "v"******"v12:F0(I):^uMO$(12):MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERuJANUARY,FEBRUARY:I112:MO$(I):uLINE$(7)uT(3):T(1)1:T(2)28:T(3)55u ZEROu" **** "u"** **"u"** **"u"** **"u"** :uD03"Du PHASE DAY OF WEEKbu START THE YEAR ON MARCH FIRST AND TABLE THE FIRST DAY OF EACH MONTH. THIS WORKS WHEN FEBRUARY IS THE LAST MONTH! uF0(12):0,31,61,92,122,153,184,214,245,275,306,337:I1(32)VA03V6010'VLINE$(7)DVA$"S M T W T F S"nV" ";A$;" ";A$;" ";A$VI16:LINE$(I):WI13:(32):WAW"<<< HAVE A GREAT YEAR! >>>"WI18:(32):WCNW0Y0u ** CONSTANTS *RESS A KEY ";:A$2JV::15:"... STANDBY ..."<TV::FVSLOTVV(9);"80N"dVCN1NC%oV(32)zV(32)VL17VI120:(32);:VY$(L,Y11);" ";Y$(L,Y21);" ";Y$(L,Y31);" ";Y$(L,Y41)VV(32):(32)V$V(Y0$)422050Y&VY1((Y0$,1)):Y2((Y0$,2,1)):Y3((Y0$,3,1)):Y4((Y0$,1))f(VY(Y0$),VY1582Y2999ĺ(7);"PARDON?":22050.V0V"HOW MANY COPIES?(1-20): ";NC%:NC%1NC%20220622V:6V"START UP THE PRINTER, THEN"@V"P8:780,246:781,166:782,6:783,76:784,0:785,3:786,96:787,0 ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" ":17:2:" ";:39:" ";: 30 24576"d PROGRAM TITLE +n400E(22((H$)2)):H$:v,7:H$"G R A N D A P P L E C L O C K":200611:H$"BY BILL SMITH":200:? 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,20     ITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- T -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVEuTHE EXPRESSED WR UP ***"JI W12555:6,W:7,15:768:W:W25515:6,W:7,15:768:ZJ W12500:jN 16368,0:X 22:" START THE TIME OVER AGAIN? (Y/N) "b (16384)1273170l (16384)2171000v (16384)206ĺ"";:16368,0:3160 99901:XD1 H24:1370+ ((13)14)25 1240I D0901:XD0X H29:1370k ((13)14)2u 1240 DD0TM:DD DD12:SS(16336):DD (16384)1273150& D00 D1: MN02000 D :22:" *** TIME ISX(MN((MN10)10)):H17:1370:2:1240X((MN((MN100)100))10):H12:1370:X0((MN((MN1000)1000))100)020403:1240X((MN((MN1000)1000))100):H7:1370:X020602:1240   SECONDS LOOPS  D15000)1000))100)01560!1240OX((MN((MN1000)1000))100):X01580]"H7:1240,22:" PRESS ANY KEY TO START ";:A$:6::@22:8:"PRESS ANY KEY TO EXIT EARLY"MNMN1: MINUTES LOOPDD12:SS(16336):DD+V,V2H:H,H3V2:1340[Z0:V,V5H:V,V5H1:V,V5H2:V,V5H3:: CLEAR DIGITv INITIALIZE SCREENH29:1270:H24:127022,17:22,20X(MN((MN10)10)):H17:1240X((MN((MN100)100))10):H12:X0((MN((MN12H3:H,H3V2:V2,V5H:H,H3V5:VH,H3V:V,V5H3:H2,V2:H,H3V5:{V,V2H:H,H3V2:V,V5H3:(H,H3V:V,V2H:H,H3V2:V2,V5H3:H,H3V5:2V3,V4H:1320<H,H3V:V,V5H3:FV,V3H3:1330PNGE (1-999) : ";:"";MN$&MN(MN$)<MN1MN9991190BL1500j DRAW LETER SUBROUTINESxX01270X1280,1290,1300,1310,1320,1330,1340,1350,1360:V,V5H:H,H3V:V,V5H3:H,H3V5:V,V5H2:( H,H3V:V,V/ VCHANGE LINE 111 TO TUNE CLOCK : WTM490W ` f j:15:V16{ t1,370:1,3739 ~1,380:1,3838 1,1:38,1:1,37:38,37 16368,0 21:" ENTER MINUTES TO BE COUNTED DOWN IN THE RA,2,L1)(WD$,1)/ 22:1:BN$:WW1W::620 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": END OF TITLE  JANE'S EGG TIMER BY EVERETT COLLIER Q R RY ............. PRESS ANY KEY TO CONTINUE .........." bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000 vBN$(WD$,40):L166WD$(WD$,2,L1):LL1:650 WD$(WD$7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:7686 XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRA920.) ....";A :6:16:"REMEMBER":9:4:"TO STOP THE CLOCK AND RETURN TO THE SELECT-A-PROGRAM MENU, PRESS ANY KEY.":I13000:AA1MIN(((A100(A100))100.05)(A100))(A1200AA1200:PM12HOUR(AMIN)100-HOUR NOTATION SYSTEM. THUS, FOR 1:40 PM,":"TYPE 1340 INSTEAD OF 1:40.) ....";SETc5120ZB$"N":ZC$"N":ZD$"N":"WHAT IS THE PRESENT TIME? (USE 24-HOUR NOTATION. THUS, FOR":"9:20 PM, TYPE 2120 INSTEAD OF 9:20 OR PPLE'S GRANDFATHER CLOCK"K:"WHICH OF THE FOLLOWING WOULD YOU LIKE:":e"CHIMES ? (Y/N)";ZB$"TICK TOCK ? (Y/N)";ZC$"ALARM ? (Y/N)";ZD$(ZD$,1)"Y"5120Y:"WHAT TIME SHOULD THE ALARM GO OFF? (USE THE 24-HOUR, NOT THE 12AA15:B,C:4B,C:A5A14:B,C:5B,C:APA112:B,C:6B,C:A5:825,16:8252,16:32:826,141:8253,141 A770790:B:A,B:AA0:B0:C0:XPH%65:XPM%65:1060::14);::"GRANDAPPLE CLOCK"::" HI, I'M A70,24,192,46,200,78,192,110,170,132,138,140,106,132,84,110,76,78,84,46,106,24173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96&A18:B:A0A1627816382:B:A,B:A::3:1:0232,150:233,63A118:B,C:3B,C:,62,62,46,46,54,55,55,46,46,46,54,63,55,46,45,5,0144,1,148,1,178,14,200,40,204,40,208,74,212,74,216,74,216,74,200,110,146,148,98,136,102,136,74,110,78,110,82,110,60,73,100,13M204,110,178,136,132,148,84,136,60,110,64,74,70,40,86,14,130,2,138,16,16,36,36,0036,36,00254,54,54,54,54,14,00h118,118,118,118,118,05,100,100,100,100,100,12,0 14,14,14,14,14,14,14,14,14,14,222,219,219,27,96,12,12,12,12,12,12,12,12,12,12,0053,39,0044,62,00163,63,54,45,53,62,62,62,54,53,53JALARMSET1630TE4:3^SETSET1:E1:R1?hAE87dr(16384)127ZD$"N":R0:1680|768,255:769,255:770A16368,0100,150,100,250,100,150,50,15008,00,18,00,22,00,25,00,32,00,44,00,70,00,73,00,77,00 3A81510F1400:F.A47:E:1470?A11000:AWHHOUR:HOUR0H12yE1H:768,250:769,100:770F1800:FEE500(H133)",MIN60ALARM(HOUR1)100:16006ALARMHOUR100MIN@PM1ALARMALARM1200PB11390(Z768,100:769,03:770Kd780,180:B1:7168,180:1410dn768,70:769,03:770x7168,180:780,180:B2G1:AB1ĕ780,180B2ĕ7168,180E1:1060A03:E768,E:769,50:770:F1200:F:A 300&PM%XPH%PH%PM%1ĘPM%:1300@PH%XPH%ĘXPH%:1300lOPM%PM%:XPH%PH%:B1:E1:FLAG1İ1450FLAG0:R010201060 1140,80:2140,80:7:780,180:G19(AE486267:Q12FG60<(16384)127999FF0 j12&tPM%MIN6460:PM%:1290J~PH%(HOUR64PM%)12:PH%:1300cPH%XPH%ĘPH%:1300{PM%PH%ĘPH%:1300B01260OPM%:1290XPH%:1300OPM%PH%ĘPH%:1300HOUR6MIN34ĘPH%:1300XPH%PM%XPH%PH%ĘPM%:1DA  5000% (ZC$,1)"Y"13103 AE4862U (16384)127Ĺ16368,0:999\ A~ $MINMIN1:(ZD$,1)"Y"İ1580 .MIN601130 8MIN0:HOURHOUR1 B(ZB$,1)"Y"FLAG1 LHOUR121130 VHOUR0:PM1PM0:1130`PM0PM1:113 WD$(WD$,2,L1)(WD$,1)= 22:1:BN$:WW1W::620 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": END OF TITLE   GRANDAPPLE CLOCK BY BILL SMITH GAMBIER ISLAND, B.C., CANA OF THIS LIBRARY ............. PRESS ANY KEY TO CONTINUE .........." bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000 vBN$(WD$,40):L166WD$(WD$,2,L1):LL1:6500k 6,222:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768D XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS:"OF ASTHMA, BRONCHITIS, CANCER,"t"DIABETES, DIGESTIVE SYSTEM, EMPHYSEMA":"OR THYROID DISORDER FOUND IN YOUR""PARENTS AND GRANDPARENTS? ";AA0DD2:3080:1480TT3A:3030::"HIT RETURN TO CONTINUE";Z$:3020 "PART:1370`:"DID ANY OF YOUR ABOVE KIN DIE OF HEART":"ATTACK OR STROKE BEFORE THE AGE OF 60?"u"(Y OR N): ";A$(A$,1)"N"TT0:3030:1460(A$,1)"Y"TT2:3030:1460DD2:3080:1420":"WHAT IS THE TOTAL NUMBER OF INCIDENCES"50<TT2:3030hF:"DID ANY OF YOUR GRANDPARENTS, PARENTS,":"BROTHERS OR SISTERS DIE OF A HEART"P"ATTACK OR STROKE BEFORE THE AGE OF 50?"Z"(Y OR N): ";A$d(A$,1)"N"TT0:3030:1410n(A$,1)"Y"TT4:3030:1410xDD2:3080:3030:1270!DD4:3080:1220X:"WHAT IS/WAS YOUR MOTHER'S AGE":"IN YEARS? ";AsA11DD4:3080:1270 A80TT0:3030:1310TT1.5:3030:"WHAT IS/WAS YOUR FATHER'S AGE ";A(A11DD3:3080:13102A80TT0:3030:13TT0:3030:1200'DD3:3080:11608DD13000:j:3020:"PART I FAMILY HISTORY":3020::"DID AT LEAST TWO OF YOUR GRANDPARENTS""LIVE TO AGE 80 OR MORE? (Y OR N): ";A$(A$,1)"N"TT2:3030:1270 (A$,1)"Y"TT29079668.478510:(SX$,1)"F"BAA.12276975.953098WjS$SX$:(11):BA(BA.5):TBAt"THE BASE LIFE EXPECTANCY FOR ";N$:9)"IS ";T;" YEARS."~A$" ":"ARE YOU A CAUCASION? (Y OR N): ";A$(A$,1)"N"TT5:3030:1200(A$,1)"Y"20:" BACKGROUND INFORMATION"5.3020:3090X8:5:"WHAT IS YOUR NAME? ";N$B:"ENTER YOUR AGE IN YEARS: ";AY:AAY:A0A993270L:"ARE YOU MALE OR FEMALE? (M OR F): ";SX$VS$(SX$,1):S$"M"S$"F"DD3:3080:11004`BAA.1j ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": p  9:16:"LONGEVITY" 15:1 A$" " " DO YOU WANT BACKGROUND INFORMATION?":" (Y OR N): ";A$ (A$,1)"N"1080%$:30:SS606 I1L1:(16384)127Ĺ16368,0:::1000W I39LBN$(WD$,I,40):680 I39LBN$(WD$,1)(WD$,39):680 BN$(WD$,LI1)(WD$,(39(LI))) 22:1:BN$ Q1I(L40)Q0:WD$(WD$,(WD$)40) WW1SS:::630 630Q1::21:1:Q$:Q$; lWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY...........PRESS ANY KEY TO CONTINUE..........." v16368,0:L(WD$)" ";:9 2:2:" ";:39:" ":17:2:" ";:39:" ";:B 300O  TUNE 6,222:7,77:768:W1200::6,222:7,30:768:6,222:7,30:768:6,222:7,30:768:6,149:7,212:768 X STREAMER ]Q$"----------------------------------------" b5,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:787,0:|  BORDER AND TITLES : H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:-+d PROGRAM TITLE SCREEN (n400Q(22(H$)2):H$;:: CENTER STRINGg, TITLE STRINGS 69:H$"L O N G E V I T Y":200^ INIT VARIBLES  SOUND ROUTINESd 768,173:769,48:770,192:771,136:772,208:773,4:774,198:77                   THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST THIS PERMISSION. ----------//---------- A:A0<HOUR12HOUR0"F1700 -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVEREATER STRESS EARNING A"E$ "LIVING AND CONSUME MORE RICH FOODS.":$ :"IS YOUR JOB ACTIVE OR SEDENTARY?":"(A OR S): ";A$$ (A$,1)"S"TT3:3030:2570$ (A$,1)"A"TT3:3030:2570$ DD4:3080:2530$ :AY612620% "ARE YOU STILNNUAL INCOME EXCEED $50,000?":"(Y OR N): ";A$Q# (A$,1)"N"TT0:3030:2490t# (A$,1)"Y"TT2:3030:2490# DD4:3080:2450# :"DO YOU WANT TO KNOW WHY? ";A$# (A$,1)"N"2530$ :"PEOPLE WITH HIGHER INCOMES USUALLY":"EXPERIENCE GS. WHY THIS IS TRUE IS UNKNOWN.":"YOU HAVE A GREATER CHANCE OF BEING"u"t "INVOLVED IN AN ACCIDENT IF YOU WORK AT""~ "HEAVY LABOR. PEOPLE WHO WORK AT JOBS":"ASSOCIATED WITH OVEREATING ALSO HAVE A"" "SHORTER LIFE EXPECTANCY.".# :"DOES YOUR A? ";A$+!. (A$,1)"N"ĺ:TT0:3030:2380N!8 (A$,1)"Y"DD4:3080:2340^!B TT2:3030!L :"DO YOU WANT TO KNOW WHY? ";A$!V (A$,1)"N"ī2450!` :"PROFESSIONALS USUALLY LIVE LONGER...":"EXCEPT MUSICIANS, ARCHITECTS AND PHAR-"G"j "MACIST1)"N"2340. (A$,1)"Y"DD4:3080:2270k :"ARE YOU A MUSICIAN, ARCHITECT OR":"PHARMACIST? ";A$  (A$,1)"N"TT2:3030:2380  (A$,1)"Y"DD4:3080:2300  TT1:3030:2380!$ :"DOES YOUR WORK INVOLVE HEAVY INDUSTRIAL":"LABOR70:\:"ALTHOUGH ATTENDING SCHOOL DOES NOT MAKE":"YOU LIVE LONGER, MORE EDUCATION COR-""RELATES WITH INCREASED INCOME, THUS""BETTER ACCESS TO HEALTH CARE.":"IS YOUR OCCUPATION CLASSIFIED AS":"PROFESSIONAL? (Y OR N): ";A$ (A$,:"THE TOTAL NUMBER OF YEARS YOU ATTENDED"<p"SCHOOL? ";A[zA0AAYDD2:3080:2130wA12TT2:3030:2220A14TT0:3030:2220A17TT1:3030:2220A17TT3:3030:"DO YOU WANT TO KNOW WHY? ";A$(A$,1)"N"22 "(Y OR N): ";A$7*(A$,1)"Y"TT2:3030:2120Z4(A$,1)"N"TT0:3030:2120o>DD2:3080:2080H:"PRESS RETURN TO CONTINUE";Z$R:3020:"PART III EDUCATION AND OCCUPATION"\3020*f:"STARTING FROM FIRST GRADE, WHAT ARE"ST EXAMINATION AND A":"PAP SMEAR AT LEAST ONCE A YEAR?"M"(Y OR N): ";A$p(A$,1)"N"TT0:3030:2120(A$,1)"Y"TT2:3030:2120 DD2:3080:2030"DO YOU HAVE A PHYSICAL AND PROCTOSCOPIC":"EXAMINATION AT LEAST ONCE EACH YEAR?"USUALLY SPEND":"TOO MUCH TIME IN NONPHYSICAL ACTIVITY"d"AND MAY BE UNHAPPY, USING SLEEP AS AN""ESCAPE, A PSYCHOLOGICAL CRUTCH...":"DEPRESSED PEOPLE HAVE SHORTER LIFE""EXPECTANCIES.":(SX$,1)"M"20708"DO YOU HAVE A BREA06b:"HOW MANY HOURS DO YOU SLEEP EACH":"DAY? ";AUlA1A24DD4:3080:1890pvA9TT0:3030:1940A9TT4:3030:1940A9TT6:3030:"DO YOU WANT TO KNOW WHY? ";A$(A$,1)"N"20007:"ADULTS WHO SLEEP TOO MUCH RGO STRESS".&"IN MAINTAINING THAT SYSTEM!"0:"DO YOU EXERCISE MODERATELY - JOG, BIKE":"RIDE, TAKE LONG WALKS, SWIM - AT LEAST":"2 OR 3 TIMES EACH WEEK? ";A$D(A$,1)"N"TT0:3030:1890N(A$,1)"Y"DD2:3080:1850XTT3:303"N"1840`:"MODERATE DRINKING (UP TO TWO DRINKS":"PER DAY) REDUCES EMOTIONAL STRESS, BUT""MORE THAN TWO DRINKS PER DAY PRODUCES""PHYSIOLOGICAL DAMAGE. AS FOR TEETO-":"TALERS, THEY MAY HAVE RATHER RIGID" "VALUE SYSTEMS AND MAY UNDEA3B12:1710"TTB:3030a:"HOW MANY ALCOHOLIC DRINKS DO YOU HAVE":"EACH DAY? ";A{A0DD4:3080:1720A0TT1:3030:1770A2TT3:3030:1770A2TT8:3030:1770:"DO YOU WANT TO KNOW WHY? ";A$ (A$,1)6BA10@TTB:3030[J:"HOW MANY PACKS OF CIGARETTES DO YOU":"SMOKE EACH DAY? ";AuTA0DD4:3080:1610^A0B0:1710hA1B2:1710rA1B4:1710|A1.5B5:1710A2B7:1710A2B8:1710A3B10:1710 II HEALTH AND DIET":3020:Y"DO YOU HAVE HIGH BLOOD PRESSURE?":"(Y OR N): ";A$(A$,1)"Y"AY20TT10:3030::1580(A$,1)"N"TT0:3030::1580"DD3:3080:1540,"HOW MANY POUNDS OVERWEIGHT ARE YOU? ";A:A0B0:1600!!! ! ! ! ! !!!!!!!!!""" " " " " """""""""HIS PERMISSION. ----------//---------- EXPRESSED WRITTEN CONSENT~3OF PUBLIC DOMAIN RESEARCH.3DTHIS PERMISSION WILL BE GIVEN3CFREE TO ORGANIZATIONS SUCH AS 4CEMENTS TO THIS PRO- GRAM ARE COPYRIGHTED 1985 PUBLIC DOMAIN RESEARCH. ANY- ONE WISHING TO DISTRIBUTE THIS MODIFIED PROGRAM MUST HAVE,3THE EXPRESSED WRITTEN CONSENT OF THE PUBLISHER. LEGITIMATE USER GROUPS MAY REQUEST TZ$:: 1 b1 "SORRY! THIS PROGRAM CANNOT PROJECT THE":"LIFE EXPECTANCY OF YOUR STATED AGE."1 "TRY YOUR REAL AGE THIS TIME!"1 1 XX13000::(37)6:9581 10902 -------- NOTICE -------- ALL ENHANY0 "ILY HISTORY, RACE AND EDUCATION IN ADD-":"ITION TO PHYSICAL AND EMOTIONAL CONSID-"0 "ERATIONS. YOUR RESPONSES TO QUESTIONS"0 "REGARDING THESE FACTORS FORM THE BASIS":"FOR YOUR PROJECTED LONGEVITY."1 :"HIT RETURN TO START THE PROGRAM";S DATA ARE UTILIZED IN"U/v "THIS PROGRAM TO ESTIMATE YOUR BASE LIFE":"EXPECTANCY."|/ :"HIT RETURN FOR NEXT PAGE";Z$:/ " YOUR LIFE EXPECTANCY DEPENDS ON":"MANY FACTORS INCLUDING PLACE OF RESI-"/ "DENCE, MOBILITY STATUS, NATIVITY, FAM-":"UPON HUMAN POPULATION STUDIES, AND MED-".N "ICAL EXPERTS HAVE IDENTIFIED THE REQUI-":"SITE CRITERIA FOR THE MAINTENANCE OF".X "GOOD HEALTH.".b " VITAL STATISTICS COMPUTED BY THE":"U.S. PUBLIC HEALTH SERVICE FROM 1960"/l "AND 1970 CENSUICATED BY THE CURRENT POPULARITY OF"P-& "ASTROLOGY, BIORHYTHMS, NUTRITION AND"-0 "HEALTH CARE PROGRAMS. SCIENTISTS HAVE":"DEVELOPED A VARIETY OF METHODS TO ESTI-"-: "MATE HUMAN LONGEVITY. STATISTICIANS"+.D "HAVE CREATED MORTALITY TABLES BASED".."$, 10)"CHECK YOUR ANSWERS!!!"X, :"RESTART PROGRAM FROM THE BEGINNING.";:2990, :"PLEASE CHECK YOUR ANSWER!!!":XX12000::(37)DD:958:, :" HUMAN BEINGS ARE OFTEN PREOCCUPIED"$- "WITH THE PROSPECTS FOR LONG LIFE AS IN-":"D;Z$+ (Z$,1)"Y"1000:G+ :10)"GOOD LUCK ";N$:W12500::999c+ X138:"-";:X:"-":+ ::41);:" "N$",";41);:" YOUR LIFE EXPECTANCY IS NOW "T" YEARS.";41);:41);:+ AYTA$" ":, :"YOU MUSTN'T TRY TO FOOL MOTHER NATURE.. 0 +1 +2 +3 HAPPY"$*r 17);:AC*| A3A3DD2:3080:2930_* A0TTA:3030:2970o* TTA:3030* :"HIT RETURN TO CONTINUE";Z$:* 3020:3030:3020+ ::::"DO YOU WANT TO RUN ANOTHER LIFE EXPECTANCY PROFILE? (Y OR N): "YOUR CAR'S SEAT BELTS AND"Q)6 "FOLLOW SPEED LIMITS REGULARLY?":"(Y OR N): ";A$t)@ (A$,1)"N"TT0:3030:2910)J (A$,1)"Y"DD3:3080:2870)T TT1:3030)^ :"ON THE FOLLOWING SCALE HOW WOULD YOU":"RATE YOURSELF?":*h "SAD -3 -2 -1 ( TTA:3030d( :"ON A SCALE OF 0 TO 5, HOW MUCH OF AN":"AGGRESSIVE, INTENSE AND COMPETITIVE"( "PERSON ARE YOU (5 IS THE MOST AGGRES-"( "SIVE, INTENSE AND/OR COMPETITIVE)? ";A( A0A5DD2:3080:2830(" TTA:3030), :"DO YOU USE AY25' A0A0:2760Y' "HOW MANY OF THE PAST ";A;" YEARS WERE":"YOU SINGLE? ";Ad' AA10t' TTA:3030' :"ON A SCALE OF 0 TO 3, HOW MUCH OF A":"CALM, PASSIVE PERSON ARE YOU (3 IS THE"' "MOST CALM)? ";A' A0A3DD2:3080:2780$$&Z (A$,1)"R"TT1:3030:2680G&d (A$,1)"U"DD4:3080:2640W&n TT1:3030&x :"ARE YOU MARRIED OR LIVING WITH SOMEONE"& "ON A PERMANENT BASIS? (Y OR N): ";A$& (A$,1)"Y"TT3:3030:2770& (A$,1)"N"DD2:3080:2690' :AL WORKING? (Y OR N): ";A$<% (A$,1)"N"TT0:3030:2620_%( (A$,1)"Y"DD2:3080:2580o%2 TT2:3030%< :"PRESS RETURN TO CONTINUE";Z$%F :3020:"PART IV LIFESTYLE":3020&P :"ARE YOU LIVING IN A RURAL OR URBAN":"AREA? (R OR U):";ALT YOUR PHYSICIAN"@b"BEFORE YOU UNDERTAKE ANY DIET PROGRAM."nl"THE FOLLOWING DIET PLAN IS FOR HEALTHY"v"INDIVIDUALS, FREE OF HEART DISEASE,""DIABETES, THYROID DISORDERS OR CHRONIC""OBESITY.":"HOW MUCH WEIGHT ";V$;" DO YOU WATT0:TC0:I15:TTTM(I)TT:TCCT(I)TC:B,"-----","-----"\"TOTALS",(TT),(TC)}&:V$"(LBS)":V1V$"(KGS)"0"HIT RETURN TO CONTINUE";Z$::2620: DIET PLANNING D9)"DIET PLANNING SCHEDULE"N2620X:"YOU SHOULD CONSUTS BASED ON YOUR ACTI-"E"VITY PROFILE. AGE, WEIGHT, HEIGHT AND"p"SEX ARE USED TO ESTIMATE YOUR BASAL""METABOLIC RATE (SLEEPING).":"ACTIVITY","HOURS","CALORIES"I04:A$(I):II04:A$(I),(TM(I1)),(CT(I1)):I,50BM)KC)+rCT(4)TM(4)(BM(240BM)KC)L|CT(5)TM(5)(BM(350BM)KC)Rw:"HIT RETURN TO CONTINUE";Z$:I15:CTCTCT(I):"HERE ARE YOUR DAILY CALORIC REQUIRE-""MENTS. THE TABLE REPRESENTS YOUR CAL-""ORIC REQUIREMENI4ĺ"WALKING ";)I5ĺ"EXERCISE ";/C20);:TM(I):q":"DAILY ACTIVITY TOTAL IS ";TT;" HOURS"},:14306 CALCULATE CALORIC REQUIREMENTS@1620J1680TCT(1)TM(1)BM^CT(2)TM(2)(BM(85BM)KC) hCT(3)TM(3)(BM(1" 26305TT0:I15:TTTTTM(I)::TT241590;}"PLEASE ADJUST YOUR SELECTIONS SO THEY":"TOTAL 24 HOURS:":"ITEM","ACTIVITY":I15:" "I,;:1500:1560I1ĺ"SLEEPING ";I2ĺ"SITTING ";I3ĺ"STANDING ";0>PBT.08461538A39.8:A20BT.577569A54.143874:1390HZ1390dBT.08076923A37.576923:A20BT.635870A51.669203nBMBTSAx2620: FIND CALORIC REQUIREMENTS12)"ACTIVITY PROFILE"2620"HOW MANY HOURS DO YOU SPEND:0WT01240D V1HTHT.3937:WTWT2.2: CONVERT TO ENGLISH\K.010101:KCWT154:"HIT RETURN TO CONTINUE";Z$:( CALCULATE SURFACE AREA DUBOIS METHOD2SA(WT.425)(HT.725)K< CALCULATE BASAL METABOLIC RATE FSX$"F"138`VM("M"):VE("E"):VV(V$)4jVVVMVEī1100[t(V$,1)"M"V1: SET METRIC FLAG~:"ARE YOU MALE OR FEMALE? (M OR F): ";SX$S$(SX$,1):S$"M"S$"F"İ2680:1150:"WHAT IS YOUR AGE IN YEARS? ";AA0A99İ2680:1170ET PLANNING PROGRAM":::::M "DO YOU WANT BACKGROUND DATA (Y OR N)";Z$d (Z$,1)"Y"İ2330p $:2620 .9)"PHYSICAL REQUIREMENTS" 82620 B L"SELECT ENGLISH OR METRIC MEASUREMENT":"(E OR M): ";V$ VV$"E"V$"M"İ2680:110020 ::10:6:"LOADING SELECT-A-PROGRAM MENU"::13:"PLEASE WAIT ...":D$(13)(4):D$"RUN MENU": END OF TITLE A$(5),TM(10),N$(30) V0:: "SLEEPING ","SITTING ","STANDING ","WALKING ","EXERCISE " " DI........"i bQ$"----------------------------------------":Q1::21:1:Q$:Q$;:16368,0:L(WD$):W75 l(16384)127Ĺ16368,0:::1000 vBN$(WD$,40):L166WD$(WD$,2,L1):LL1:650 WD$(WD$,2,L1)(WD$,1) 22:1:BN$:WW1W::6:7,30:768:6,222:7,30:768:6,149:7,212:768 XWD$" ... AN AWARD-WINNING PROGRAM PRESENTED BY PUBLIC DOMAIN SOFTWARE ON FILE FOR THE USE OF THE PATRONS OF THIS LIBRARY ............. PRESS ANY KEY TO CONTINUE ..87,0M ::H119:1:21H:" ";:20H:" ";:18:21H:" ";:20H:" ";: I18:10I:1:" ";:40:" ";:9I:1:" ";:40:" ";: 2:2:" ";:39:" ":17:2:" ";:39:" ";: 3000 6,222:7,77:768:W1200::6,222:7,30:768:6,222!d PROGRAM TITLE n400:(22((H$)2)):H$:],9:H$"D I E T A I D":200: 768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96:7139:"-";:::'F :I04+'P A$(I):IH'Z I04:,A$(I);:TM(I1)O'd IU'n 'x "SORRY! TRY A MORE REALISTIC ANSWER."' X12000::(37)2:958:{( -------- NOTICE -------- ALL ENHANCEMENTS TO THIS PRO- DIET PLAN TO LOSE WEIGHT."& :" STARVATION DIETS ARE NOT RECOMMENDED.YOU SHOULD CHOOSE A PLAN THAT ALLOWS FORA STEADY WEIGHT LOSS OF ABOUT TWO POUNDSOR ONE KILOGRAM PER WEEK."&( 22:" PRESS RETURN TO START THE PROGRAM...";XX$&2 :'< IUREMENT TO ESTIMATE YOUR DAILY CALORIC REQUIREMENTS";% "FOR THE ACTIVITIES OF SLEEPING, SITTING,STANDING WALKING AND EXERCISING."& :" ONCE YOUR TOTAL DAILY CALORIC REQUIREMENTS ARE KNOWN, YOU WILL BE GIVEN THE OPTION OF SELECTING AIET FOR YOU BASED ON YOUR CURRENT STATE OF HEALTH."e$ 22:" PRESS RETURN FOR NEXT PAGE...";XX$8% :" THIS PROGRAM USES YOUR SEX, AGE, HEIGHT AND WEIGHT TO COMPUTE YOUR BASAL METABOLIC RATE (BMR). YOUR BMR IS THEN USED AS A STANDARD OF MEASFERS PROPER AMOUNTS OF THE VITAMINS AND MINERALS NECESSARY FOR GOOD HEALTH."3$ :" IT IS IMPORTANT THAT YOU CONSULT A PHYSICIAN BEFORE YOU EMBARK ON ANY DIET AS DIETING CAN SERIOUSLY AFFECT YOUR HEALTH. A PHYSICIAN CAN SUGGEST THE BEST DEXT PAGE...";XX$" :" MANY PEOPLE TODAY ARE PREOCCUPIED WITH DIETING AND NUTRITION. FAD DIETS, WHICH LIMIT INTAKE OF FATS, PROTEINS ANDCARBOHYDRATES ARE ALWAYS IN VOGUE. HOWEVER, YOUR BODY RESPONDS BEST TO A"Q# "BALANCED DIET, ONE THAT OF54 LB. (70 KG.) MAN:">!~ :"ACTIVITY"12)"CALORIES/HOUR"V! :"SLEEPING"," 70"k! "SITTING"," 85"! "STANDING","150"! "WALKING 2MI/HR","240"! "CLIMBING","350"! "JOGGING","420"! "SWIMMING","650"" 22:" PRESS RETURN FOR NPAGE...";XX$ j :" THE BASAL ENERGY REQUIREMENTS OF HUMANS ARE WELL KNOWN, AS ARE THE ENERGYREQUIREMENTS FOR VARIOUS COMMON DAILY ACTIVITIES. AS A STANDARD OF MEASURE,"!t "THE FOLLOWING TABLE CONTAINS THE ENERGY REQUIREMENTS PER HOUR FOR A 1 CONDITIONS (FASTING AND COMPLETE REST)."V "THIS MINIMUM ENERGY REQUIREMENT IS EXPRESSED AS CALORIES PER SQUARE METER OF BODY SURFACE PER HOUR, AND IS POPULARLY KNOWN AS YOUR BASAL METABOLISMRATE (BMR)." ` :" PRESS RETURN FOR NEXT S."|8 "THE ENERGY VALUE OF FOOD AND THE ENERGY REQUIREMENTS OF MAN ARE USUALLY EXPRESSED AS CALORIE EQUIVALENTS."B )L " A CONSIDERABLE AMOUNT OF ENERGY IS REQUIRED BY THE BODY JUST TO MAINTAIN ITS NORMAL FUNCTIONS UNDER BASAL E, A UNIT OF HEAT IS VERY CONVENIENT FOR MEASURING THE ENERGY EXCHANGES OF THE HUMAN BODY.". "THE HEAT UNIT CHOSEN IS THE CALORIE, WHICH REPRESENTS THE AMOUNT OF HEAT NEEDED TO RAISE THE TEMPERATURE OF ONE KILOGRAM OF WATER ONE DEGREE CELSIUWTWT2.25I;10);WT;V$;30);AC::V1WTWT2.2<Il:"DO YOU WANT TO RUN ANOTHER (Y OR N)";Z$ (Z$,1)"Y"1010 999 BACKGROUND INFORMATION ^$ :" ENERGY DERIVED FROM FOOD ULTIMATELY APPEARS AS HEAT. THEREFOR:V$" LBS":V1V$" KGS"%I1LLM"WEEK #"10)"WEIGHT"30)"CALORIES"iWTWT(WLLL):KCWT154SA(WT.425)(HT.725)KBMBTSA1620CT0:J15:CTCTCT(J):JACCTCCWT((WT100.5))100:AC(AC100.5)100 V1ILY. YOU MAY";>"ACCOMPLISH THIS BY DECREASING YOUR IN-"`H"TAKE BY ";CC;" CALORIES OR BY"R"INCREASING YOUR DAILY ACTIVITIES BY"\"THE SAME AMOUNT."f:"OK, HERE IS YOUR DIET PLANNING SCHEDULE."p:"HIT RETURN TO CONTINUE";Z$z:ED."::1940)CC(WLLL)500:ACTCCC/] "YOUR CURRENT DAILY CALORIE REQUIREMENT""IS ";TC" CALORIES. TO ACHIEVE THE" "WEIGHT LOSS YOU DESIRE, YOU MUST ALLOW"*"YOURSELF A NUTRITIONAL PROGRAM PROVID-" 4"ING ";AC;" CALORIES DANT TO":"LOSE? ";WL)WL1İ2680:1940<V1WLWL2.2m:"HOW MANY WEEKS DO YOU WANT TO TAKE? ";LLLL1İ2680:1970WLLL52040"*** WEIGHT LOSS GREATER THAN ";V0ĺ"5 LBS"V1ĺ"2.27 KGS" "/WEEK IS NOT RECOMMEND