L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`z!#X²     ԠΠ  պŠԠ1ŠԮà ӠԠҠ ̠Ϡ ̠Ϯà!ΠԠ͠ ΠǠ ΠҠ+ Р Š@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp9,15I5@I5BI34355D10,14I5FI5H11,1336:12,375J1:5,6:5,25:5,1126L2,":120843/NG$NG$"0":1208594/(NG$)2NG$NG$"0"d5/33)"======="::17)"GRAND TOTAL: ";y6/39(NG$));NG$7/0A/23:ZZ$C/2002 FINANCIAL SUMMARY2NR02PF1Ċ12PF0Ċ0220000234,5:PF113045224 2#/NG$NG$".00":12069/$/NG$NG$"0":12071I%/(NG$)2NG$NG$"0"Y&/TETETX(J)n'/39(NG$));NG$u+/J,/NG(TE100.5)100-/NG$(NG)./NH$(NG$,3)//(NH$,1)"."ī120840/NI$(NG$,2)1/(NI$,1)"."ī120832/NG$NG$".00 COST" ..PF112055&.24:V/" PRESS 'RETURN KEY' TO CONTINUE "_/:5j /35,23u/J1E/EX$(J);/NG(TX(J)100.5)100/NG$(NG)/NH$(NG$,3) /(NH$,1)"."ī12069!/NI$(NG$,2)"/(NI$,1)"."ī12068NG$)2NGNG#"0"$+33)"======="O+33)"======="::17)"GRAND VALUE: ";d+39(NG$));NG$k+0x+23:ZZ$+200. EXPENSE LISTING.TE0:.PF1Ċ1.PF0Ċ0.20000.34,5.."EXPENSE ITEM TOTALNG$+PF111155&+J15Ģ24:ZZ$2+J15ėB+GTGTTV(J)I+Ja+NG(GT100.5)100o+NG$(NG)+NH$(NG$,3)+(NH$,1)"."ī11175+NI$(NG$,2)+(NI$,1)"."11174++NG$NG$".00":11175+NG$NG$"0":11178+(((TH(J))));TH(J);'{+TV(J)V(J)TH(J)B|+NG(TV(J)100.5)100P~+NG$(NG)a+NH$(NG$,3)z+(NH$,1)"."ī11144+NI$(NG$,2)+(NI$,1)"."ī11143+NG$NG$".00":11144+NG$NG$"0":11145+(NG$)2NG$NG$"0"+39(NG$));I$(J); j+NG(V(J)100.5)100.k+NG$(NG)?m+NH$(NG$,3)Wn+(NH$,1)"."11124ho+NI$(NG$,2)p+(NI$,1)"."ī11122q+NG$NG$".00":11124r+NG$NG$"0":11125t+(NG$)2NG$NG$"0"u+25(NG$));NG$;y+TH$(J)(TH(J))z+30 *GT0*PF1Ċ1#*PF0Ċ0.+200004+d+" CROP NAME UI U.$ QUANT T.$ "j+t+34,5+PF111090 +24:*+" PRESS 'RETURN KEY' TO CONTINUE "4+>+35,23H+34,4M+5R+J1I\+C$(J);f+17)UI$(J)Q'V(J)R'TH(J)%S'TV(J),V'JA`'D$;"CLOSE CROP"bt' READ IN EXPENSE TEXT FILESy~'D$;"OPEN EXPENSE"'D$;"READ EXPENSE"'E'J1E'EX$(J)'TX(J)'J'D$;"CLOSE EXPENSE"'200* CROP LISTING WITH TOTALSPENSE LISTING"*v"3. FINANCIAL SUMMARY"D"4. TURN PRINTER ON"_"5. TURN PRINTER OFF"j20005Q11000,12000,13000,19000,19100' READ IN TEXT FILES CROP=C$(J)'D$;"OPEN CROP"$'D$;"READ CROP".'IB'J1IL'C$(J)N'UXPENSE ITEMS"'"5. UPDATE EXPENSES"220005RQ1000,1100,1200,1500,1800dX OUTPUT MENUob20000g14)"OUTPUT MENU"hPF1ĺ13)"PRINTER IS ";:::"ON":iPF0ĺ13)"PRINTER IS ";:::"OFF":l:"1. CROP LISTING"q"2. EX0  EX$(J) TX(J) J7 D$;"CLOSE EXPENSE"@ 200Q INPUT MENU\20000t:14)"INPUT MENU":"1. ENTER CROP NAMES, UI, & UNIT VALUE""2. CHANGE CROP NAMES, UI, & UNIT VALUE""3. UPDATE CROP HARVEST" "4. ENTER EE CROP"7 SAVE EXPENSE INFO TO DISK (EX$(J) & TX(J)N D$;"OPEN EXPENSE"g D$;"DELETE EXPENSE"~ D$;"OPEN EXPENSE" D$;"WRITE EXPENSE" C$(I)"STOP"3050 C$(I)"STOP"3060 E1 J1E1 3070 E J1E 307OPEN CROP" D$;"DELETE CROP"4D$;"OPEN CROP"ID$;"WRITE CROP"`C$(I)"STOP"2050xC$(I)"STOP"2060I1J1I12070 I J1I2070C$(J)UI$(J)V(J)TH(J)TV(J) J*D$;"CLOSES "+022:E522:"ENTER NO. OF EXPENSE TO UPDATE ";JR:J0200Z?19eD35,23kIxNEX$(J);S20)TX(J);X27:NX(J)]TX(J)TX(J)NX(J)^20b35:TX(J)gJ01840 SAVE CROP NAMES TO DISK (C$) D$;"0); "EXPENSE ITEM: ";EX$(E)8"EX$(E)"STOP"1576>$H&1545S(35,24]*34,0f,200| UPDATE EXPENSES 2020034,18:"EXPENSE ITEM OLD$ + NEW$ = T EXP$"!34,19&24:"TYPE '0' TO STOP UPDATING EXPENS DISTANCE IN ROWS: ";IR(J)A^"11. FIRST HARVEST DATE: ";FH$(J)h_"12. YIELD PER 100FT. ROW: ";Y(J)`"13. FT. OF ROW PLANTED: ";FP(J)a24::" TYPE '0' TO EXIT THE CHANGE ROUTINE ":b20:35,23:K2ī1103c"WHICH VARIABLE DO YOU WANT";SD$(J)/W" 4. FALL PLANTING DATE: ";FD$(J)XX" 5. FT. OF ROW PER PERSON: ";FR(J)Y" 6. SEEDS PER 100 FT. OF ROW: ";SR(J)Z" 7. SEED UNIT OF ISSUE: ";PU$(J)[" 8. DEPTH TO PLANT: ";DI(J)\" 9. DISTANCE BETWEEN ROWS: ";BR(J)]"10.ANGE ROUTINE M20000! N34,3Q O:"WHICH RECORD DO YOU WISH TO CHANGE? ";J_ PJ02000j QK2ė R:"YOU MAY CHANGE ANY OF THE FOLLOWING:" SK12:K2Ģ5 T" 1. CROP NAME: ";C$(J) U" 2. UI: ";UI$(J)V" 3. SPRING PLANTING DATE: ;"DISTANCE BETWEEN ROWS: ";BR(I)A <"DISTANCE IN ROW: ";IR(I)d ="FIRST HARVEST DATE: ";FH$(I) >"YIELD PER 100 FT ROW: ";Y(I) ?"FT OF ROW PLANTED: ";FP(I) A BC$(I)"STOP"1092 C1069 D35,24 G34,0 H2000 K200 L CH 2C$(I)"STOP"1090( 4"UI: ";UI$(I)N 5"SPRING PLANTING DATE: ";SD$(I)q 6"FALL PLANTING DATE: ";FD$(I) 7"FT OF ROW PER PERSON: ";FR(I) 8"SEEDS PER 100 FT OF ROW: ";SR(I) 9"SEED UNIT OF ISSUE: ";PU$(I) :"DEPTH TO PLANT: ";DI(I)" ,24 20000 34,3" 22:S "THIS SEGMENT ALLOWS YOU TO ENTER UP TO "; "FIFTY CROPS FOR USE DURING THE YEAR. "; "TYPE 'STOP' TO TERMINATE ENTERING DATA ";  -II1 .4:35,21 /"CROP #: ";I 1"CROP NAME: ";C$(I)INITIAL OPTIONS:"1 :"1. READ DATA FROM DISK"F "2. MAKE INPUT"\ "3. READ OUTPUT"u "4. RETURN TO MENU" 20005 Q10000,5000,7000,999 , SORT ROUTINE 34,0:35,24:"BRUN MENU:"  INITIAL INPUT ROUTINE I0 34,0:35i) D$(4): CTRL-D+ D$;"NOMONI,O,C"6<J1IBcPH(50)dC$(50),UI$(50),SD$(50),FD$(50),FR(50),SR(50),PU$(50),DI(50),BR(50),IR(50),FH$(50),Y(50),FP(50)eI019:C$(J); FIRST MENU 34,020000 "YOU HAVE FOUR           ,40 &N32,0&N34,19&N4&N EXPENSE LISTING?&N20000E&NO&N34,5h&N13)"EXPENSE ITEMS"n&Ny&OJ1E&O12)J;". ";EX$(J)& OJ&O20&O33,40:32,0:34,0&OO=========================="!%$NF%%N::"WHAT IS YOUR PLEASURE? ";QL%&N_%N CROP LISTINGj%N20000%N" CROP NAME";%N21)" CROP NAME"%NJ1I%NJ;". ";C$(J)%NJ14Ĺ33,20%NJ14Ĺ32,20%NJ15Ģ4%NJ%N20&N33(NG$));NG$$5324:0 $63ZZ$)$73200B$3NG$NG$".00":13106X$8J TURN PRINTER ONi$BJPF1:" 80N"s$LJ7000$J TURN PRINTER OFF$JPF0$J7000$ N TOP OF MENU PAGE$!N:$"N5)"COMPUTERIZED GARDEN ACCOUNTANT "%#N:"=============33)"=======":(#*3NG(NR100.5)1006#+3NG$(NG)G#,3NH$(NG$,3)`#-3(NH$,1)"."ī13106q#.3NI$(NG$,2)#/3(NI$,1)"."ī13105#03NG$NG$".00":13106#13NG$NG$"0":13107#23(NG$)2NG$NG$"0"#33:5)"NET RETURN ON GARDEN "; $4339E100.5)100"3NG$(NG),"3NH$(NG$,3)E" 3(NH$,1)"."ī13093V"!3NI$(NG$,2)o""3(NI$,1)"."ī13092"#3NG$NG$".00":13093"$3NG$NG$"0":13094"%3(NG$)2NGNG$"0""&3:"TOTAL GARDEN EXPENSES ";"'339(NG$));NG$"(3NRGTTE#)33)! 3(NH$,1)"."ī13074,!3NI$(NG$,2)E!3(NI$,1)"."ī13073^!3NG$NG$".00":13074u!3NG$NG$"0":13075!3(NG$)2NGNG$"0"!3:"VALUE OF VEGETABLES HARVESTED ";!3;!339(NG$));NG$!3J1E!3TETETX(J)!3J "3NG(T1 2" PRESS 'RETURN KEY' TO CONTINUE ";: 2:5E 235,23b 211)"FINANCIAL SUMMARY" 211)"=================": 2GT0:TE0:NR0 2J1I 2TV(J)V(J)TH(J) 3GTGTTV(J) 3J 3NG(GT100.5)100 3NG$(NG)! 3NH$(NG$,EN PLANTING REPORT >";.27)"==========================".:"CROP NAME PLANTING DATES PLANTING DISTANCE DEPTH SEEDS".20)"SPRING FALL BETWEEN IN TO PLANT REQ."/21)"MO DA MO DA ROW ROW"T  +24:ZZ$@. GARDEN PLANTING REPORT (80 CHARACTER PRINTER)K.20000U.34,3.6:"SEARCH FOR PLANTING MONTH? (Y/N) ";Q$.Q$"N"12020.:"ENTER PLANTING MO. TO SEARCH FOR (IE 01=JAN)? ";S$.PF1Ċ1:" 80N".:27)"< GARDS: ";IR(J)-+"FIRST HARVEST DATE: ";FH$(J)Q+"YIELD PER 100 FT. ROW: ";Y(J)s+"FT. OF ROW PLANTED: ";FP(J)+"NO. OF PEOPLE GARDEN IS TO FEED: ";P+"PROJECTED HARVEST AMOUNT: ";PH(J)+"PLANNED HARVEST WILL FEED ";FP(J)FR(J)+11133ANTING DATE: ";SD$(J)7+"FALL PLANTING DATE: "FD$(J)\+"FT. OF ROW PER PERSON: ";FR(J)+"SEEDS PER 100 FT. OF ROW: ";SR(J)+"SEED UNIT OF ISSUE: ";PU$(J)+"DEPTH TO PLANT: ";DI(J)+"DISTANCE BETWEEN ROWS: ";BR(J) +"DISTANCE IN ROWO REVIEW A RECORD. ";:ZZ$ +*+34,2B+(16384)1557013[+(16384)16011060o+16368,0:936+ZZ$"0"7013+"ENTER CROP NO. TO REVIEW: ";J+J07013++:"NO: ";J+"CROP: ";C$(J)+"UI: ";UI$(J)+"SPRING PL1090+34,4 +6"R+J1I1*W+J;9\+7)C$(J);If+31)UI$(J)Yk+PF111130qp+J15PF0Ģ24:ZZ$r+J15PF0ėz+J{+"PR#0": TURN PRINTER OFF}+23+:" < PRESS '0' KEY TO END > ";+"PRESS THE SPACE BAR TW'FH$(J)Y'Y(J)Z'FP(J)%]'J=^'D$;"CLOSE HARVEST"F_'200Y* CROP LISTINGb*GT0*PF1Ċ1: TURN PRINTER ON +20000++" CROP LISTING "+"NO. CROP NAME UI "+:PF114000,15000,16000,17000,19900,19950,200K' READ IN TEXT FILES CROP=C$(J)b'D$;"OPEN HARVEST"y$'D$;"READ HARVEST".'IB'J1IL'C$(J)N'UI$(J)O'SD$(J)P'FD$(J)Q'FR(J)R'SR(J)S'PU$(J)T'DI(J)U'BR(J)V'IR(J)  PLANTING & HARVEST REPORT"@z"5. CRT SPRING PLANTING REPORT"]|"6. CRT HARVEST REPORT""7. PLANTING REQ. FOR FAMILY SIZE""8. TURN PRINTER ON""9. TURN PRINTER OFF""10. RETURN TO MAIN MENUE"20005&Q11000,12000,13000,1NY IS THIS GARDEN TO FEED?";P'e34,0-fWhPF1ĺ13)"PRINTER IS ";:::"ON":iPF0ĺ13)"PRINTER IS ";:::"OFF":l:"1. CROP LISTING"q"2. GARDEN PLANTING INFORMATION"v"3. GARDEN HARVEST COMPARISON REPORT"x"4. CRT GARDEN%J*D$;"CLOSE HARVEST"(/2001 200B INPUT MENUM20000e:14)"INPUT MENU":"1. ENTER BASIC CROP INFORMATION""2. CHANGE BASIC CROP INFORMATION"20005Q1000,1100X OUTPUT MENUb20000d12:"HOW MAT"D$;"OPEN HARVEST"1D$;"WRITE HARVEST"?Q1ĺI1Q Q1āJ1I1]Q2ĺImQ2āJ1IxC$(J)UI$(J)SD$(J)FD$(J)FR(J)SR(J)PU$(J)DI(J)BR(J)IR(J) FH$(J)!Y(J)"FP(J)ARVEST DATE: ";FH$(J):K+24:ZZ$7:1103["YIELD PER 100 FT. ROW: ";Y(J)d:Kq24:ZZ$}:1103"FT. OF ROW PLANTED: ";FP(J):K:1103 SAVE CROP INFO TO DISKD$;"OPEN HARVEST"D$;"DELETE HARVES;PU$(J):K24:ZZ$):1103G"DEPTH TO PLANT: ";DI(J)P:K]24:ZZ$i:1103"DISTANCE BETWEEN ROWS: ";BR(J):K24:ZZ$:1103"DISTANCE IN ROWS: ";IR(J):K24:ZZ$:1103"FIRST HZ$w:11031y"FALL PLANTING DATE: ";FD$(J):z:KG{24:ZZ$S|:1103x~"FT. OF ROW PER PERSON: ";FR(J):K24:ZZ$:1103"SEEDS PER 100 FT. OF ROW: ";SR(J):K24:ZZ$:1103"SEED UNIT OF ISSUE: " TO CHANGE? ";PWdP1130,1135,1140,1145,1150,1155,1160,1165,1170,1175,1180,1185,1190pj"CROP NAME: ";C$(J)yk:Kl24:ZZ$m:1103o"UI: ";UI$(J)p:Kq24:ZZ$r:1103t"SPRING PLANTING DATE: ";SD$(J)u:Kv24:ZG$NG$"00":19968$/MNG$NG$"0":@/N(NG$)2NG$NG$"0":W/ N TOP OF MENU PAGE_/!N:/"N" COMPUTERIZED GARDEN PLANNER "/#N:"======================================="/$N/%N::"WHAT IS YOUR PLEASURE? ";Q/&N0N CROP LISTAR TO CONTINUE ---> ";).B24:ZZ$:70138.MQ8PF1:B.M7013P.MQ9PF0Z.M7013.M F.P. TAB SUB-ROUTINE WITH 2 DIGETS RIGHT OF DECIMAL POINT.MNG$(NG).MNH$(NG$,3).M(NH$,1)"."19968.MNI$(NG$,2).M(NI$,1)"."19967/MNBRP$(RP) -BRP$;7(RP$));;-BPU$(J);5(PU$(J)));F-BBR(J)V-BPF117080d-BJ15Ģ24-BJ15Ğ:J15ĺ" <---PRESS SPACE BAR TO CONTINUE ---> ";-BJ15Ģ24:ZZ$-BJ15ė-BJ15ĝ-BJ-BPF1Ċ0.B24::" <--- PRESS SPACE B ,wB34,31,|B5)"PLANTING REQ. FOR FAMILY OF ";8,}BPi,B:" CROP NAME FT OF ROW SEEDS REQ ROW",B16)"REQUIRED DIST",B34,6,BJ1I,BRP(PFR(J))(SR(J)100),BC$(J);17(C$(J)));,BP$(PFR(J)),BP$;8(P$)) -+>PH(J)FP(J)(Y(J)100)6+>27((PH(J))));PH(J);G+>28)UI$(J);Z+>HFFP(J)FR(J)t+>HF((HF100.5))100+>33)HF+>J15Ģ24:ZZ$+>J15ė+>J+>ZZ$+?7013+hB PLANTING REPORT FOR FAMILY SIZE+mBPF1Ċ1:" 80N"+rB2000011)"CRT HARVEST REPORT "**>M*>17)"PICK PROJ. HARVEST "|*>"CROP NAME MO DA HARVEST FEEDS "*>34,5*>24:*>" PRESS 'RETURN KEY' TO CONTINUE "*>*>34,5*>6*>J1I*>C$(J);*>17)FH$(J);),2)15105):C$(J);'):15)SD$(J);@):GSFP(J)(SR(J)100)W):27((GS)));GS;h):28)PU$(J);):37((FP(J))));FP(J)):PF115105):J15Ģ24:ZZ$):J15ė);J);ZZ$);7013)> CRT HARVEST REPORT)>20000)>34,3$*>15)"SPRING SEEDS FT. ROW"N(:"CROP NAME DATE REQ. PLANTED"X(:34,4h(:PF115060r(:24:(:" PRESS 'RETURN KEY' TO CONTINUE "(:(:34,4(:5(:J1I(:Q$"N"15069(:S$(SD$(J),2)15069 ):S$(SD$(J: CRT SPRING GARDEN PLANTING REPORT/':20000[':"SEARCH FOR PLANTING MONTH (Y/N)? ";Q$m':Q$"N"15010'::"ENTER PLANTING MONTH TO SEARCH FOR (IE 01 FOR JAN)? ";S$':PF1Ċ1':':3)"CRT SPRING GARDEN PLANTING REPORT "':(:6 &634,5&66&6J1I+&6C$(J);H&618((SR(J))));SR(J);Y&722)PU$(J);v& 729((FP(J))));FP(J);&7PHFP(J)(Y(J)100)&7PH$(PH)&736((PH)));PH;&738)UI$(J)J15Ģ24:ZZ$&(7J15ė&-7J&27ZZ$&777013$'CRT GARDEN PLANTING & HARVEST REPORT/%6200009%634,3j%62)"CRT GARDEN PLANTING & HARVEST REPORT "p%6%625)"FT. ROW PRJ. "%6"CROP NAME SEEDS REQ PLANTED HARVEST"%634,6%624:%6" PRESS 'RETURN KEY' TO CONTINUE "&$3RH$;7(RH$));-$3PH(FP(J)100)Y(J)H$ 3UI$(J);5(UI$(J)));V$ 3PH$(PH)k$3PH$;5(PH$));$3UI$(J);10(UI$(J)));$3PH(PH)$3RH(RH)$3RH$(RH)$3DF$(PHRH)$3DF$;8(DF$));$3UI$(J)$"3J$'30$+37013$%6 DIFFERENCE"=#226)"REQUIRED HARVEST (+ OR -)"R#238)"PROJECTED"#2"--------------------------------------------------------------"#2J1I#2C$(J);19(C$(J)));#2UI$(J);6(UI$(J)));#3RH(PFR(J)100)Y(J)$3RH$(RH)="2 GARDEN HARVEST COMPARISON REPORT (80 CHARACTER PRINTER)H"220000R"234,3g"2PF1Ċ1:" 80N""2:13)"<=GARDEN HARVEST COMPARISON REPORT=>""213)"====================================":#2"CROP NAME UI GARDEN GARDEN );8(SD$(J)));+!/FD$(J);9(FD$(J)));I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4    RUN EDITOR":120 80% 216,0:ZW"=======================================]#(" WASHINGTON APPLE PI 2:" PROGRAM MENU7<"=======================================  A"A --> CRYPTOGRAMS"::"B --> SENTENCE EDITOR" P:21Y d"ENTER THE ";::"LETTER";::" OF YOUR CHOICE>>> ";:Z$_ g iZ$"A"Z$"B"Ģ20:1:958:80 k(9((Z$)65)2)::">>>" l19:958:19:"LOADING...": nZ$"A"ĺ:(4);"RUN CRYPTO":110 xZ$"B"ĺ:(4);"& 1000:255!::):W"=======================================]#(" WASHINGTON APPLE PI 2:" PROGRAM MENU7<"=======================================  A"A --> CRYPTOGRAMS"::"B -->500TE$N$*-* TAB POSITIONS4*JT1(TE$):T1T12WT130T1^ *iY1K{ L(EX$(X,Y))*T(Y)30L4Y>*H*R5);"CATEGORY";24);"AMOUNT"\4);"--------------------------"f5);CA$(1);T1);"$";D$;"READ ";F$X112&Y1K3EX(X,Y):YA&XL0216,0`:D$;"CLOSE ";F$gD*N* CONVERT TO STRINGSX*bXMlY1KvNEX(X,Y)500EX$(X,Y)N$Y*Y1KTETEEX(X,Y)YNTE:$"SEPTEMBER":42500|M10M$"OCTOBER":4250NM11M$"NOVEMBER":4250lM12M$"DECEMBER":4250s*:P11000:" EXPENSES FOR THE MONTH OF ";M$** READ TEXT FILE*4400(13)D$;"OPEN ";F$M12Č198:998:998:958:4100?"M1M$"JANUARY":4250\,M2M$"FEBRUARY":4250v6M3M$"MARCH":4250@M4M$"APRIL":4250JM5M$"MAY":4250TM6M$"JUNE":4250^M7M$"JULY":4250hM8M$"AUGUST":4250rM9M2030 *'* REVIEW EXPENSES?* ON MONITORF*X:P11000:c(8):" REVIEW MONTHLY EXPENSES "34,2" TYPE MONTH TO REVIEW (1-12): ";M$:M(M$)M$""Č198:998:998:958:4100#M1 $34,0.*,8* UPDATE TEXT FILE3B*>L3760IV(13)\`D$;"OPEN ";F$pjD$;"WRITE ";F$|tX112~Y1KEX(X,Y)YXD$;"CLOSE ";F$216,0:"PRESS TO GO TO MAIN MENU ->":V$:XPENSE TO TOTAL( * FROM FILE/ *? XM:YE:ZWU EX(X,Y)EX(X,Y)Z\ *b  " ARE THERE MORE ENTRIES? (Y/N): ";V$V$""Č198:998:998:958:3580V$"Y"V$"N"Č198:998:998:958:3580V$"Y"ė::3260N"Č998:998:998:998:998:958:3350Np 998:998:998:998:958Vz : "ARE ALL ENTRIES CORRECT? (Y/N): ";V$ V$""Č998:998:958:3460 V$"Y"V$"N"Č998:998:958:3460 V$"N"ė::3260 * * ADD NEW ESE:$";W$:W(W$)3 W$""Č198:998:958:33509* X4 " YOU ENTERED $";W$^> H " IS THIS CORRECT? (Y/N): ":V$R V$""Č198:998:998:998:998:958:3400\ V$"Y"V$"N"Č198:998:998:998:958:3400,f V$"(M$)) M$""Č198:998:958:3270O M1M12Č198:998:958:3270U  " ENTER EXPENSE CATEGORY (1-";K;"): ";:"";E$:E(E$) E$""Č198:998:958:3310 E1E10Č198:998:958:3310 : " ENTER AMOUNT OF EXPEND$;"OPEN ";F$  D$;"READ ";F$,& X11270 Y1KD: EX(X,Y)KD YRN XfX D$;"CLOSE ";F$qb 216,0xl *v (10)  " ENTER NEW EXPENSES "  : P11000:P 34,3  " ENTER MONTH OF EXPENSE (1-12): ";M$:M)*zV$""Č198:998:998:958:2160UV1V7Č198:998:998:958:2160V3000,4000,5000,7000,8000,9000,10000 * * ENTER NEW EXPENSES * :P11000: * * READ TEXT FILE * 3160 (13)  S"(>5);"2. REVIEW MONTH'S EXPENSES"KH5);"3. PRINT EXPENSE REPORT"jM5);"4. ERROR CORRECTION"O5);"5. EXPENSE CATEGORIES"R5);"6. QUIT"\5);"7. INITIALIZE TEXT FILE"f:p" TYPE A NUMBER AND PRESS -> ";V$:V(V$L13);"@@@@@@@@@@@@@@@@@"&V::/`(9)5jVt"BE SURE CAPS LOCK IS DOWN"\~lP14000:s** MAIN MENU* :P11000:(12) " MAIN MENU " *::45);"1. ENTER NEW EXPENSE v * * * TITLE SCREEN1 *A :P11000J (5)h 13);"@@@@@@@@@@@@@@@@@" 13);"@ @" $13);"@ EXPENSE @" .13);"@ REPORT @" 813);"@ @" B13);"@ @") N0ī590* &(N$,1)"."N$"0"N$< 0(N$)3ī590Z :(N$,(N$)2,1)"."ī600 D(N$,(N$)1,1)"."N$N$"0":600 NN$N$".00" X(N$)6N$(N$,(N$)6)","(N$,6) b(N$)10N$(N$,(N$)10)","(N$,10) lN0N$"("N$")":7450 +.*+8F+B" CORRECT AMOUNT: $";A2$:A2(A2$)j+LA2$""Č198:998:958:7490p+V+`10);"YOU ENTERED $";A2$+j8);"IS THIS CORRECT? (Y/N)":V$+tV$"N"Č998:998:998:998:958:7490,~998:998:998:998(M$)+*M1M12Č198:998:958:73801*`*"CATEGORY OF EXPENSE (1-10): ";C$:C(C$)*C$""Č198:998:958:7410*C1C10Č198:998:958:7410**" AMOUNT OF ORIGINAL ERROR: $";A1$:A1(A1$)+$A1$""Č198:998:958)*:P11000:)4*1)>* READ TEXT FILE8)H*C)R(13)N)\7350a)fD$;"OPEN ";F$t)pD$;"READ ";F$)zX112)Y1K)EX(X,Y))Y)X)D$;"CLOSE ";F$)216,0)*)::*" MONTH OF ERROR (1-12): ";M$:MY ENTERED AND ">("THEN ENTERING THE CORRECT AMOUNT."D(q("YOU MUST KNOW THE MONTH IN WHICH THE"("ERROR OCCURRED, THE AMOUNT OF THE"( "ORIGINAL ENTRY AND THE CORRECT AMOUNT"((23)( "PRESS TO CONTINUE ->":V$2030 'X*%'b* ERROR CORRECTION,'l*?'v:P11000:PI'(10)O'i'" ERROR CORRECTION "o'u''34,2'::'"CORRECTING AN ERROR MADE IN ENTERING"'"AN EXPENSE TAKES THE FORM OF REMOVING"("THE AMOUNT ORIGINALL(27):* ESCAPE<&(18):* CANCELS CONDENSED PRINT MODEJ&D$;"PR#0T&(9)g&:P11000:Pq&"::&,"DO YOU WANT ANOTHER REPORT? (Y/N)":V$&6V$"Y"ė::5880&@(20)&J"PRESS TO GO TO MAIN MENU ->":V$&T34,0'^:T$):T140L%36,T:GT$!%*.%(X8140>%236,X:"=";E%<XP%F(12)W%Z*w%d* PUT TOTALS BACK TO ZERO~%n*%xX112%DT(X)0%X%*%Y1K%CT(Y)0%Y%*%GT0%*%* RETURN TO MONITOR%*&(EX$(X,Y)):SS9:TSL,$j36,T:EX$(X,Y);3$tXK$~L(CT$(Y)):T140L]$36,T:CT$(Y)d$Yk$*x$X8140$36,X:"-";$X$$36,11:"TOTALS";$S21$X112$L(DT$(X)):SS9:TSL$36,T:DT$(X);$X % L(G36,20:" YEAR-TO-DATE"#)#X81409#36,X:"=";@#XF#]#36,9:"CATEGORY";f#T17r#X113|#TT9#36,T:MO$(X);#X##X8140#36,X:"-";#$X#.#8Y1K#BS21#L36,9:CA$(Y);#VX112$`L" :5"" PRESS TO BEGIN PRINTING":V$<" *Y"** PRINTER INSTRUCTIONS`"4*k">(13)"HD$;"PR#1":* PRINTER"R(9);"150N":* WIDTH"\(27):* ESCAPE"f(15):* CONDENSED"p*"z::"36,20:"EXPENSE REPORT"#!XY!b**!l* - GRAND TOTAL -1!v*@!DCGT:450L!GT$DC$S!*m!* PRINT ON PRINTERt!*!:(8)!!"*** PRINT REPORT ***"!!P12000:P!!34,2!::!" TURN ON PRINTER AND ALIGN PAPER"* X112 Y1K. DCEX(X,Y):450? EX$(X,Y)DC$F YM XT *p * - DOWN TOTALS -w * X112 DCDT(X):450 DT$(X)DC$ X * &* - CROSS TOTALS - 0* :Y1K DDCCT(Y):450!NCT$(Y)DC$*#* - CROSS TOTALS -**5Y1KAX112YCT(Y)CT(Y)EX(X,Y)`Xg"Yn,*6* - GRAND TOTAL -@*JY1KTGTGTCT(Y)^Yh*r* @ CONVERT TO STRINGS @|** - ALL EXPENSES - D$;"OPEN ";F$%(D$;"READ ";F$12X112<<Y1KIFEX(X,Y)PPYWZXkdD$;"CLOSE ";F$vn216,0}x** @@@ CALCULATIONS @@@** - DOWN TOTALS -*X112Y1KDT(X)DT(X)EX(X,Y)YX0::D$;"CLOSE ";F$:2030 *7* PRINT REPORT>*P:P11000:Y(7)r16);"- STAND BY -"P11000:13);"READING FILES AND"13);"CALCULATING TOTALS...** OPEN FILE* 5230(13)T(1));EX$(X,1)p*!zY2KA5);CA$(Y);T(Y));EX$(X,Y)HYUXT129cX);"-";jXp8);"TOTAL";T1);"$ ";TE$XT129X);"=";XTE0:* :"PRESS TO GO TO MAIN MENU ->":V$34,بج٩ؠ蠨٠䮍嬠Šԍ򮍍뮠     EP,OCT,NOV,DEC,TOTALS7 +*{7*+ CASH EXP,GROCERIES,MORTGAGE,UTILITIES,AUTO,GASOLINE,CLOTHING,INSURANCE,TAXES,DOCTORS74+* BY #* # TOM ALEXANDER #* # #* # LANGUAGE-APPLESOFT # 6(EX(X,Y)6(Y6(X/6(D$;"CLOSE ";F$:6(216,0@6(b6(10);"TEXT FILE INITIALIZED"j6(:6(" PRESS TO GO TO MAIN MENU":V$6(:20306(*6**6+* DATA STATEMENTS6 +*7+ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,S5'*#5'* INITIALIZE TEXT FILE*5'*25'N0>5'10270J5'X112U5'Y1Kc5(EX(X,Y)Nj5 (Yq5(X|5(216,05((*52((13)5<(104105F(D$;"OPEN ";F$5P(D$;"DELETE ";F$5Z(D$;"OPEN ";F$5d(D$;"WRITE ";F$5n(X1126x(Y1KG THE TEXT FILE WILL ERASE"D4`'"ALL INFORMATION NOW IN THAT FILE."L4j':e4t'" DO YOU WANT TO:"k4~'4'5);"1. INITIALIZE TEXT FILE"4'5);"2. RETURN TO MAIN MENU"4'4'" TYPE A NUMBER AND PRESS -> ";V$:V(V$)4'V2ė:20302#* QUIT3<#*&3F#:P11000:/3P#(5)G3Z#5);"THANK YOU..."W3d#P12000:g3n#D$;"CLOSE"o3x#:v3'*3'* INITIALIZE TEXT FILE3$'*3.':P11000:38'" *** INITIALIZE TEXT FILE ***"3B'P11000:3L'::4V'"INITIALIZIN2 !36,39:"----------"2*!*)24!X1K52>!X$(X)H2H!L(X$):T33LW2R!36,T:X$;j2\!36,41:CA$(X)q2f!Xy2p!:2z!(12)2!D$;"PR#0"2!(9)2!:P11000:2!(10)2!"PRESS TO GO TO CATEGORY MENU":V$2!:80902(#* 3;"TURN ON PRINTER AND ALIGN PAPER"*1 :Z1 5);"PRESS TO BEGIN PRINTING":V$`1 o1 D$;"PR#1"1 (9);"80N":* WIDTH1 ::1 36,30:"EXPENSE CATEGORIES"1 1!36,30:"NUMBER";1 !36,40:"CATEGORY"1!36,29:"--------";12);"NUMBER";21);"CATEGORY"C00 11);"--------";20);"----------"N0: X1KZ0D X$(X)m0N L(X$):T15L0X T);X$;20);CA$(X)0b X0l :::0v "PRESS TO GO TO CATEGORY MENU":V$0 :80900 *0 :P11000:0 (7)"1 5)RINTED ON PRINTER"4/9);"3. RETURN TO MAIN MENU" -> ";V$:V(V$)/V$""Č198:998:958:8160/V1V3Č198:998:958:8160/V2ī8340/ V3Ĺ34,0::2000/ :P11000:/ :0& ->":V$.34,0::2000!.@*?.J* CATEGORIES OF EXPENSEF.T*X.^:P11000:b.h(10)h.r.|" EXPENSE CATEGORIES ".:.34,2.(6)." DO YOU WANT THE CATEGORIES:"..9);"1. DISPLAYED ON MONITOR"/9);"2. P7360 - *&-* UPDATE TEXT FILE--*8-((13)C-27820V-<D$;"OPEN ";F$j-FD$;"WRITE ";F$v-PX112-ZY1K-dEX(X,Y)-nY-xX-D$;"CLOSE ";F$-216,0-:P11000:P-(10)."PRESS TO GO TO MAIN MENU:958 ,8," ARE ALL ENTRIES CORRECT? (Y/N) ";V$L,V$"N"ė:7360X,XM:YC_,*v,EX(X,Y)EX(X,Y)A1},*,EX(X,Y)EX(X,Y)A2,*,,"ARE THERE MORE CORRECTIONS (Y/N) ";V$,V$""Č198:998:958:7660-V$"Y"ė:1(N) z 850 :::p "DO YOU HAVE ";: 50,63:"CREDIT CARD OR STORE CREDIT": 50,255: " Y/N ";N$  N$"N" :: 1400 "PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" N1N110,255: " EXPENSES":" Y/N ";N$ : 9 N$"N" :: 1000 H"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR 'ITEM' " :"WHEN ALL DATA HAS BEEN ENTERED" RNN1 \"ITEM ";N;: T$(N) a T$(N)"STOP" 1000 f" AMOUNT ";T1(N) pSSTONTH THIS LIST IS FOR ";K$+  K$"" 650I "THE CURRENT YEAR ";J$ S ::{ "MORTGAGE OR RENT PAYMENT ";M : "GAS & ELECTRIC PAYMENT ";U : "TELEPHONE CHARGES ";T : : *"DO YOU HAVE ";: 50,63:"TRANSPORTATION";: 5 " 3. TELEPHONE "> " 4. TRANSPORTATION EXPENSES"j " 5. CREDIT & DEPARTMENT STORES CARDS" &" 6. GROCERY EXPENSES" ?" 7. MISCELLANEOUS EXPENSES" X" 8. SAVINGS ACCOUNTS" q"---------------------------------------": : "M***":5 EN$"THIS PROGRAM WILL SUMMARIZE YOUR": 50Z ^N$"MONTHLY BUDGET FOR YOU": 50` h w"***************************************"::: "THE FOLLOWING CATEGORIES ARE INCLUDED": " 1. MORTGAGE OR RENT " " 2. GAS & ELECTRIC ";:16298,0:':::::::AN$"A BUDGET PROGRAM"W 20(N$)2) N$]z N$"FROM APPLE \ BOSTON" 20(N$)2) N$I13000 I 250 2 20(N$)2) N$: ,"************************************           !!! ! ! ! ! !!堬ˬ堣堣󮩠箍󠭍宠󠭍󮠠堣嬠ᮠ砠󮠠򮠠D(I);, 32)"$";G(I) 6 IOE"---------------------------------------"{O " ** TOTAL EXPENSES **";: 32)"$";S2h:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ | N$"Y" 5200 2500" ITEM AMOUNT"/}"---------------------------------------"[ " ** TOTAL EXPENSES **";: 32)"$";S1:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$  N$"Y" 5100 2500" DATE AMOUNT": I1 N21" I;" ";------------"9 " ** TOTAL EXPENSES **";: 32)"$";S i:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$} N$"Y" 5000  2500 <F" ACCOUNT AMOUNT":P I1 N11Z I;" ";C$(I);d 32)"$";C1(I)n I THE AMOUNT" " Y/N ";N$0 N$"Y" 3570; 2500W "CORRECTED AMOUNT ";Tb 2500ht~" ITEM AMOUNT":  I1 N1 I;" ";T$(I); 32)"$";T1(I)  I "--------------------------- $";U :G "DO YOU WANT TO CHANGE THE AMOUNT"W " Y/N ";N$k N$"Y" 3370v 2500* "CORRECTED AMOUNT ";U4 2500  :::: "TELEPHONE $";T :  "DO YOU WANT TO CHANGE00 N114900 %& ::::P0 "MORTGAGE EXPENSES $";MX: :D "DO YOU WANT TO CHANGE THE AMOUNT" I " Y/N ";N$N N$"Y" 3170X 2500b "CORRECTED AMOUNT ";Ml 2500  :::: "GAS & ELECTRIC PERCENTAGE BREAKDOWN"(x " #11. QUIT"0} :Z "WHICH ( # ) NUMBER DO YOU WANT ";Nk N1 3100| N2 3300 N3 3500 N4 3700 N5 3900 N6 4100 N7 4300 N8 4500 N9 1800 N1060R RENT"#2 " # 2. GAS & ELECTRIC":< " # 3. TELEPHONE"VF " # 4. TRANSPORTATION"~P " # 5. CREDIT CARDS & DEPT STORES"Z " # 6. GROCERIES"d " # 7. MISCELLANEOUS"n " # 8. SAVINGS ACCOUNTS "s " # 9. COMPLETE PRINTOUT AGAIN"v " #10.R MONTH";p 50,255"s" =$";*uS50Z"DO YOU WANT TO SEE INDIVIDUAL LIST"j" Y/N ";N$ N$"Y" 2500  N$"YES" 2500 8000 ::: "WHICH ITEM OR LIST " "WOULD YOU LIKE TO SEE "::( " # 1. MORTGAGE O1)"GROCERIES $";S2Q"MISCELLANEOUS EXPENSES $";S3y"SAVINGS ACCOUNTS $";S4 S5(((((((MU)T)S)S1)S2)S3)S4)*4"---------------------------------------":f 50,127 k"**TOTAL EXPENSES FOJ$07:"***************************************"=Ddl"MORTGAGE OR RENT $";M"GAS AND ELECTRICITY $";U"TELEPHONE $";T"TRANSPORTATION EXPENSES $";S"CREDIT CARDS & DEPT STORES $";SNTERED" rN4N412|" ACCOUNT ";N4;: S$(N4)M S$(N4)"STOP" 1800d" AMOUNT ";S(N4)tS4S4S(N4) 1650 "***************************************":N$"BUDGET FOR THE MONTH OF": 50&" ";K$;" ";;I(N3)S3S3I(N3)! 1450-@:::J"DO YOU HAVE  ";: 50,63:"SAVINGS ACCOUNTS";: 50,255:" TO ENTER": " Y/N ";N$ Y N$"N" :: 1800h"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ES";: 50,255:" EXPENSES": " Y/N ";N$ B N$"N" :: 1600"PLEASE ENTER ";: 50,127 :"STOP";: 50,255 :" FOR'ACCOUNT'":"WHEN ALL DATA HAS BEEN ENTERED" N3N31" ITEM ";N3;: I$(N3)  I$(N3)"STOP" 1600" AMOUNT ":"ZERO";: 50,255 :" (0) FOR THE DATE" :"WHEN ALL DATA HAS BEEN ENTERED" [N2N21 |" DAY OF THE MONTH ";D(N2) D(N2) 0 1400" AMOUNT ";G(N2) S2S2G(N2)  1250x:::'"DO YOU HAVE ";: 50,63:"MISCELLANEOU$"ACCOUNT ";N1;: C$(N1)6) C$(N1)"STOP" 1200N." AMOUNT ";C1(N1)_8S1S1C1(N1)jB 1050v:::"DO YOU HAVE ";: 50,63:"GROCERY";:50,255:" EXPENSES": " Y/N ";N$  N$"N" :: 1400 N"PLEASE ENTER ";: 50,127G THIS PROGRAM": 50 3&TN$"HAVE A NICE DAY": 509&Y)100)100;" %"O%"MISCELLANEOUS EXPENSES ";((S3S5100.5)100)100%"SAVINGS ACCOUNTS ";((S4S5100.5)100)100;" %"%:::%"HIT RETURN TO GET BACK TO MENU"%U1$%2500%@:::&JN$"THANK YOU FOR USIN"TELEPHONE ";((TS5100.5)100)100;" %"$"TRANSPORTATION EXPENSES ";((SS5100.5)100)100;" %"$"CREDIT CARDS & DEPT STORES ";((S1S5100.5)100)100;" %"%"GROCERIES ";((S2S5100.5GRAM" #:#"***************************************"@#o#"ITEM % OF INCOME"u##"MORTGAGE OR RENT ";((MS5100.5)100)100;" %"#"GAS AND ELECTRICITY ";((US5100.5)100)100;" %"A$(S3Q)I(R)" 43005"" WHICH ITEM NUMBER ";R P","ACCOUNT ";R;: S$(R)["1QS(R)q"6 "AMOUNT "; S(R)"JS4(S4Q)S(R)"c 4500"p"tS51979"uM234"z"***************************************""#" MONTHLY BUDGET PROR)!S1(S1Q)C1(R)!!7 3900>!P" WHICH ITEM NUMBER ";RZ!d" DATE ";R;: D(R) e!iQG(R)|!n "AMOUNT "; G(R) !S2(S2Q)G(R)! 4100!" WHICH ITEM NUMBER ";R !" ITEM ";R;: I$(R)!QI(R)! "AMOUNT "; I(R) "S3  N$"Y" 5400 % * 2500 0 $ 8000M " WHICH ITEM NUMBER ";Re "ITEM ";R;: T$(R)q QT1(R)  "AMOUNT ";T1(R) S(SQ)T1(R)  3700 " WHICH ITEM NUMBER ";R "ACCOUNT ";R;: C$(R) QC1(R) !  "AMOUNT ";C1(1" ACCOUNT AMOUNT":C I1 N41 V I;" ";S$(I);i 32)"$";S(I)q I"---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S4 :"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ :  I1 N31 ( I;" ";I$(I);< 32)"$";I(I) E I u "---------------------------------------"  " ** TOTAL EXPENSES **";: 32)"$";S30:"DO YOU WANT TO CHANGE ANY DATA Y/N ";N$ D N$"Y" 5300 b 2500