YZ*aaKENUZAMSGMSG1MSG2MSG3MSG4MSG5MSG6OUTSTANYOURBABANKBAPERAMOUNOUTSTANDINDIYOUBAPCOUNPROUNDAREYARDROUNPACTBAPMAPDUMNIIQQAMRATPPYEARAETEMFFFADAMTJWJYPPDDDDJMOHAMJTAMKKKKKJVOJAFEMAMAJUJUAUSEOCNODEPAHOURTIMTOTARTTTTTTSSSAARYYIMIN  !@"#$%&'()*+,-./0123456789:;<=>?@A@B@C@DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy;@0,;@@,;@5,;@5,;@5,;@5,;@5,;@5,;@,9@,9@,9@, A27-@@#7(PUSH Ԡ TO CONTINUE < F:B2y,"@@`d- (}+-0@n  ՠx( ( 1AMORITIZATION TABLE%%( 2MONTHLY MORTGAGE PAYMENT""( 3DEPRECIATION SCHEDULE( 4SAVINGS AND LOANS( 5FIND THE AVERAGE##( 6SQUARE FEET & SQ. YDS.!!( 7PAYCHECK CALCULATION&&( 8INTEREST ON AN INVESTMENT**( 9WHAT IF MORTGAGE COMPARISONS(10PROPERTY EXPENSES(11MONTHLY BAR GRAPH""(12DECIMAL / HAXADECIMAL(13 U.S. / METRIC(14CHECKBOOK BALANCE(15HELP (16RETURN TO DISK MENU*(*(CHOOSE ANY NUMBER THRU "$((YOUR CHOICE = $(}^!! @)!@AhAA A0A@APA`ApAABBB B0B@BPB`$$(ΠŠҮ̮Ӡ+('(START MONTH OF LOAN (1-12)=+-&@ ((LOAN AMOUNT ()= )(%(ANNUAL INTEREST RATE ()=))(%(MONTHLY LOAN PAYMENT ()=)$!6-@!AR@)( (}((ȠǠΠ.6-$'A8 6-&B 6-&L$$6-P:$A%?P,'AV 6-%`$$6-P:$A%?P,'Aj 6-%t$$6-P:$A%?P,'A~A0 (6-%@6-%@"@A`A0 Ap -+'@,&P:'@,6-$@&@**(P:'@,Ӡ Ӡ"( ("(INT. FOR YEAR END= ( (PRINCIPAL YEAR END=-( (-( PUSH Ԡ TO CONTINUE  F:B2y,"@A06-6-'6-*(-(0(A( Ae2AR(}<B5(-٠ԠϠ̠̠ԠŠ.8(B A(AMOUNT OF LOAN ($)AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES)(%(WHAT IS INTEREST RATE (%))$( (TERM OF LOAN ()$6-$'A''6-+@%'A,#+@$,6-'+@&@', $$6-P:$A%?P,'A!(!(MONTHLY PAYMENT OF $ ( ( @P (ASSET VALUE () (ASSET LIFE (YEARS) (6- -@ 6-% AAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES 6- -@ 6-+%@&,' 6-$ 6-&& $$6-P:$A%?P,'A0 $$6-P:$A%?P,'AX ((Ҡ b ( îӠl ( ŠӠv   @P) (})( ӠĠӠ..COMPUTE MAGAZINE--BASICALLY USEFUL BASIC1(1(&1 BALANCE OF A LOAN AFTER N PAYMENTS/,($2 MONTHLY PAYMENT TO AMORTIZE LOAN/(/,($3 # OF PAYMENTS TO AMORTIZE A LOAN/(.+(#4 ANNUAL % RATE USING AN INTERVAL.(-*("5 MONTHLY PAYMENT & INT. ON LOAN-('$(6 ANNUAL INVESTMENT GROWTH'($!(7 PERIODIC SAVINGS PLAN$((%(8 FUTURE PRICE VS INFLATION((##(9 RETURN TO THE MAIN MENU"(( YOUR CHOICE="(}OOAAABACADAEAFAGAHA($(ENTER YOUR CURRENT BALANCE.(-()(ENTER THE NUMBER OF PAYMENTS.-+('(ENTER YOUR MONTHLY PAYMENT.+"7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).7,6-'A6 6-@-@J6-$+@%,&T Y6-$&+&,Z$$6-P:$A%?P,'A[$$6-P:$A%?P,'A^.(.(BALANCE AFTER  PAYMENTS IS $c'('( YOU PAID $ IN INTEREST.g AIh%!(ENTER THE # OF PAYMENTS.%r.(*(ENTER THE BALANCE OF THE LOAN..|7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A006-$$+@'+@&+@%,#+6,,,$$6-P:$A%?P,'A ( (YOUR PAYMENTS ARE $ 6-$&$$6-P:$A%?P,'A&(&( YOU PAY $ IN INTEREST. AI'#(ENTER THE CURRENT BALANCE.'+('(ENTER YOUR MONTHLY PAYMENT.+7(3('ENTER YOUR ANNUAL INTEREST RATE IN (%).76-'A((6-6+K:@&'$,,'K:%@,$$6-P:$A%?P,'A+(+( YOU HAVE  PAYMENTS TO MAKE.. 6-$&.6-P:$A%?P,'A+(+(YOU WILL PAY $ IN INTEREST.& AI0,((WHAT IS THE BALANCE OF THE LOAN,:+('(ENTER YOUR MONTHLY PAYMENT.+D(($(ENTER THE # OF PAYMENTS.(N6-@P'AX6-]-@@ b6-+%,'@g 6-$l$$6-$+@&+@%,#+6,,q 6-v  6-{  6-$&6-A$$$6-P:$A%?P,'A*(*(YOUR ANNUAL (%) RATE IS %.((YOUR INTEREST IS $ AI#(HOW MUCH WAS YOUR LOAN#:(6(*HOW MANY MONTHLY PAYMENTS MUST YOU MAKE:0(,( WHAT IS YOU INTEREST RATE IN (%)06-'A6-'@ 6-$$6-+%,'$$6-P:$A%?P,'A$$6-P:$A%?P,'A$($(YOUR PAYMENTS WILL BE $4(4('YOUR INTEREST ON THE ENTIRE LOAN IS $L(L(AIF YOU WANT TO KNOW THE ANNUAL PERCENTAGE RATE, EXECUTE PROGRAM 4 AI:6(-HOW MUCH MONEY DO YOU INTEND TO DEPOSIT:9(5()WHAT IS THE ANNUAL INTEREST RATE IN (%)9 6-'A6(2(&HOW MANY COMPOUNDING PERIODS EACH YEAR6 A(=(1HOW MANY YEARS DO YOU INTEND TO INVEST THIS MONEYA*6-$+@%',#+$,4$$6-P:$A%?P,'A>I(I(AT THE END OF  YEARS YOU WILL HAVE  DOLLARS SAVED.H AI\JF(=HOW MUCH MONEY DO YOU INTEND TO DEPOSIT EACH PAY PERIODJf5(1(%HOW MUCH IS THE INTEREST RATE IN (%) 5p>(:(.HOW MANY PAYMENT PERIODS DO YOU INTEND TO SAVE>z6-'A116-$++@%,#+%@,&+@%,,'$$6-P:$A%?P,'AO(O(AT THE END OF  PAY PERIODS YOU WILL HAVE  IN YOUR ANNUITY. AI.*(!WHAT IS THE CURRENT PRICE OF ITEM.#((WHAT YEAR IS IT NOW#C(?(3FOR WHAT YEAR DO YOU WISH TO KNOW THE PRICE OF ITEMC 6-&<(8(,WHAT IS THE PROJECTED INFLATION RATE IN (%)<6-'A6-$+@%,#Q(Q(THE PRICE OF THE ITEM! IN  WILL BE $P:$A%?P,'A AI~1(1(&PRESS Ԡ TO GOTO ӠӠ F:B2y,"@AI A@(HOW MANY NUMBERSAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIES*(*(ENTER THE NUMBERS ONE AT A TIME6--@ 6-%  6-'(( THE AVERAGE IS  @PpSQ YARDS & SQ. FEETuAAHERBERT D. PECKHAM "PROGRAMMING BASIC" T.I. SOFTWARE SERIESz(נ٠ӠS(S(HFOR EACH ROOM, TYPE IN LENGTH AND WIDTH IN FEET SEPERATED BY A COMMA#( (#(͠ Ӡ(--@   -%$ 6-'@ $$6-P:$A%?P,'A(( ѠԠҠ( ѠӠ( ( @PX""PAY CALCULATION BY R.L.LEWISb? +'0@36-?6-l$$( PAYCHECK CALCULATIONvH( (D(5DO YOU WISH TO ADD UP THE HOURS PER YOUR PAY PERIODH4NAq%("(ENTER WHEN FINISHED%(( HOURS WORKED= -%"Aq  Ap`+('(HOW MANY HOURS DID YOU WORK+, (}((WHAT IS YOUR PAY PER HOUR,, -$,6-P:$A%?P,'A ( (YOUR GROSS PAY IS $ @P@PPBASIC COMPUTER PROGRAMS FOR THE HOME...CHARLES D. STERNBERG...HAYDEN BOOKSJ\6-@ +30@X(ENTER THE AMOUNT TO BE INVESTED\T'(#(ENTER THE INTEREST RATE'Y<(8(,ENTER THE NUMBER OF YEARS TO PROJECT GROWTH<^O(K(?ENTER THE NUMBER OF TIMES PER YEAR THEAMOUNT WILL BE COMPOUNDEDOhA`r@(6(+COMPOUNDING MUST BE AT LEAST ONCE EACH YEAR@ A0|(6.Y"@AD@(7SHALL I PRINT AFTER EACH COMPOUNDING PERIOD (٠ҠΠ)DP +'0@P($""( INITIAL INVESTMENT $''( ANNUAL INTEREST RATE %''( COMPOUNDED  X PER YEAR,,($#(#( BEGIN INTEREST))(!YR. AMOUNT AMOUNT TOTAL++(#--- --------- --------- ---------6-$?'6-B-@-@"((6-46-B-@H 6-$&6-P:+%>P,$A,46-'A<6-%B6-H6-4YA   A0  6-6- 5-@(-@#(/-@(5(%! )6-%@"@#)6-@ & 6-%0   ( # @P(#FFBASIC COMPUTER PROGRAMS FOR THE HOME. BY STERNBERG..HAYDEN BOOKS<#K +'0@36-@?6-@K6-@F#( ԽP#(ԠŽɠZ#( ӽ٠d#2(.("ENTER THE ITEM TO VARY ɠҠ٠2n#٠ƠŠӠx#0AA #J(D(8ENTER THE BEGINNING AMOUNT, ENDING AMOUNT TO CONSIDERJ#:(6(*ENTER THE INTERVAL BETWEEN PRINTS I.E.1000:# A#0IA`#H(B(6ENTER THE LOWEST, HIGHEST INTEREST RATE TO CONSIDERH#C(?(3ENTER THE INTERVAL BETWEEN PRINTS I.E., .25 FOR 1/4C# A#0YA#I(C(7ENTER THE LOWEST, HIGHEST NUMBER OF YEARS TO CONSIDERI#9(5()ENTER THE INTERVAL BETWEEN PRINTS I.E., 59# ٠ƠԠӛ#?(%(ENTER THE MORTGAGE AMOUNT)/6-?4IAP#;(#(ENTER THE INTEREST RATE';@A0$6-$A$ 6-$4YA`"$5(+(ENTER THE YEARS OF THE MORTGAGE/56-,$ (}ǠР6$ -@$(%(FOR A MORTGAGE OF  YEARS((J$ -T$-*(USING THE INTEREST RATE OF  %-(^$((( MORTGAGE MONTHLY PI TOTALh$**(" AMOUNT PAYMENT INTERESTr$..(&-------- ---------- ------------|$ -$ΠĠԠ$_6-+'A,'@E6-'++@%,#+$@,&@,%M6-$_6-$$@&$E$6-P:$A%?P,'AE6-P:$A%?P,'A$? ( !-@F:@,&(;-@)F:@,?($ $..(&$   @P'HHàҠӠҠŠŠ٠îǭΠӛ'!!Ϊ$'i +'0@E( ENTER PROPERTY NAMEi(( just press return when done ))'6->P6. .'4 @P8'I B@(/(ENTER THE MORTGAGE AMOUNT;6-?I BB'O BP(-(ENTER THE INTEREST RATE1; BO@BpL'6-$AV'6-+'A,'@`'C B(5(ENTER THE YEARS OF THE MORTGAGE9C Bj'y B(<(&ENTER THE ANNUAL TAXES ON THE PROPERTYH6-LZ6-'@o6-P:+%,$A,y Bt'\6-'A(L(2ENTER THE ANNUAL INSURANCE COST FOR THE PROPERTYX6-\y'46-'@&6-P:+%,$A,46-'A~'a B(G(1ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS6-Wa B'46-'@&6-P:+%,$A,46-'A'` B (F(0ENTER ANY OTHER MONTHLY COSTS THAT APPLYR6-V` B'a B0(A(+ENTER AVERAGE MONTHLY UTILITY COSTSM6-QW(}a B'Ϊ'l-6-'++@%,#+$@,&@,%56-$J6-P:+%,$A,X6-'Ab6-%%l6-%%'I.(&I(INTEREST RATE %'((( MORTGAGE MORTGAGE YEARS '1(1(&'%(%( Ϋ  '%(%(  '%(%(  '..(&----------------- ------------------'!!( SUBTOTAL  SUBTOTAL '&(&(̠٠Ӻ$%'1(1(&( @P*!!MONGRAPH REV. 2 JERRY WHITE+FOR COMPUTE TUTORIAL + B+g +@'0@@@A0@@@M6-@g0@@ +96-@6-/6. MONTHLY GRAPH9 Bp*+a,@@ +/AX@ =/AX@uO/@@ua/@@ 4+ B>+K%6-F:A`,%F:Aa,$AVK6-F:%@,%F:%@,$AVH+b-B:,86-BsD%++@:7<,,&@2,$@,N6-%$@ %%&b-@R+#%$@ F:%,  #$\+#-@8,!#6-8,f+ p+6-'@ez+6-@&6-@u&+8,',268,-P:,6 +*B 6-P:'A,* B+*A 6-P:'A,* B+*A 6-P:'@,* B+ 6-P:,+16-'@6-P:&,16-P:&+$@,,+-6-P:&+$@,,-6-P:&+$@,,+3 6.=:,6-@&B:,)6-@3 Bp+!! @)!@B`+3 6.=:,6-@&B:,)6-@$3 Bp+3 6.=:,6-@&B:,)6-@83 Bp+3 6.=:,6-@&B:,)6-@R3 Bp+3 6.=:,6-@&B:,)6-@f3 Bp+3@'@@@3AR,2(2('ˠ J F M A M J J A S O N D,//('Š A E A P A U U U E C O E,//('٠ N B R R Y N L G P T V C$,-@6-&.,,@%+$@,8,8,/@%%+$@,8,B,!!/@%%+$@,@uL,!!/@%+$@,@uV,-@%+$@,8,`,=Ae@=@@S:j,A -@6@928,@= A t,'@@'@@9~,))( ϠՠӠԠ, F:B2y,"@B, A,m +'0@A0@@[0@mAR@,(( MONTHLY GRAPH ,.(+( TYPE AMOUNTS FOR EACH MONTH: .(,+(( DO NOT USE NEGATIVE AMOUNTS +(,5 BP(JAN=+68@,-5 B,5 B`(FEB=+68@,-5 B,5 Bp(MAR=+68@,-5 B,5 B(APR=+68@,-5 B,5 B(MAY=+68@,-5 B,5 B(JUN=+68@,-5 B,5 B(JUL=+68@,-5 B-5 B (AUG=+68@,-5 B -5 B0(SEP=+68@ ,-5 B-5 B@(OCT=+68@,-5 B-5 BP(NOV=+68@,-5 B(-5 B`(DEC=+68@,-5 B2-$.--(%̠Ϡ̠ĠŠ.HHATARI BASIC REF. MAN. PG H-18 AS MODIFIED BY E. JACKSON & R. LEWIS.$($(1DEC to HEX conversion.!!(2HEX to DEC conversion.((CHOOSE 1 OR 2 /!! @)!@B 0 /"@B%/c +AR@"(%(I( ̠Ϡ̠M(c( < 0 / 65535 >/'-@@# à = '&/)-@#@) ؠ = 0000+/1( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUE0/!! )!BU5A:/*6-@*START THE SHELL SORT RTND/ 6-6-P:'@,N/6-&$@X/' @67<,.=:,' B!@b/ 67<,.>:&@%@:A,,l/'6-&@' B!v/&-@0%@& 7<@,/%-@A % B P0b +AR@"(%(I( ̠Ϡ̠M(b( < 0000 / FFFF >0'-@@# ؠ = '0"-@#@" à = 01( (1(#GOTO MENU: ENTER ANY NEGATIVE VALUE04-A06-1-@B:,16.7<,20A1-7<,/9#6-$@%A:,- B&$12AB%.13FB%81%%6-$@%@:,&@:A,%@B1 L1-@(%@ V1%-@A % B%2DD***SELECTED MEASUREMENT CONVERSIONS FROM ATARI BASIC REF. MAN.2## DO YOU WANT CONVERSIONS FOR2+(+( () à TO ծӮ STANDARD 2*(*(() ծӮĠ TO à2(( TYPE 1 OR 22B0pB23 B0388***USER SELECTS DESIRED METRIC TO U.S. CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N)."34NB1,3-(-("SELECT CONVERSIONS FROM THIS LIST:63!!((1) CENTIMETERS TO INCHES@3((2) METERS TO FEETJ3((3) KILOMETERS TO MILEST3((4) KILOGRAMS TO POUNDS^3((5) GRAMS TO OUNCESh3((6) LITERS TO QUARTSr3))(!(7) DEGREES CELSIUS TO FAHRENHEITw3((8) RETURN TO MENU|32(.("ENTER NUMBER OF CONVERSION DESIRED23"@A3??B3PB3B40B4pB5B5PB53$388*** USER SELECTS DESIRED U.S. TO METRI CONVERSIONS3.*(!WANT LIST OF CONVERSIONS (Y OR N).34NB3 3-(-("SELECT CONVERSIONS FROM THIS LIST:3!!((1) INCHES TO CENTIMETERS3((2) FEET TO METERS3((3) MILES TO KILOMETERS3((4) POUNDS TO KILOGRAMS3((5) OUNCES TO GRAMS3((6) QUARTS TO LITERS3))(!(7) DEGREES FAHRENHEIT TO CELSIUS4((8) RETURN TO MENU42(.("ENTER NUMBER OF CONVERSION DESIRED2 4"@A4??B60B6pB7B7PB7B80B8p4$&4***CM TO INCHES04!(HOW MANY CENTIMETERS!:4,,( CENTIMETERS =$?9 INCHESD4 ( $N4***METERS TO FEETX4(HOW MANY METERSb4%%( METERS =$@( FEETl4 ( $v4***KM TO MILES4 (HOW MANY KILOMETERS 4**( KILOMETERS =$?b MILES4 ( $4***KG TO POUNDS4(HOW MANY KILOGRAMS4**( KILOGRAMS =$@  POUNDS4 ( $4***GRAMS TO OUNCES4(HOW MANY GRAMS4&&( GRAMS =$?P OUNCES4 ( $4***LITERS TO QUARTS4(HOW MANY LITERS5''( LITERS =$@g QUARTS 5 ( $5***DEGREES C TO DEGREES F 5%!(HOW MANY DEGREES CELSIUS%*5LL( DEGREES CELSIUS =@ $'@%@2 DEGREES FAHRENHEIT45 ( $>5***INCHES TO CMH5(HOW MANY INCHESR5,,( INCHES =$@T CENTIMETERS\5 ( $f5***FEET TO METERSp5( HOW MANY FEETz5%%( FEET =$?0H METERS5 ( $5***MILES TO KM5(HOW MANY MILES5**( MILES =$@` KILOMETERS5 ( $5***POUNDS TO KG5(HOW MANY POUNDS5**( POUNDS =$?E KILOGRAMS5 ( $5***OUNCES TO GRAMS5(HOW MANY OUNCES5&&( OUNCES =$@(5 GRAMS5 ( $6***QUARTS TO LITERS6(HOW MANY QUARTS6''( QUARTS =$?` LITERS$6 ( $.6***DEGREES F TO DEGREES C86($(HOW MANY DEGREES FAHRENHEIT(B6NN( DEGREES FAHRENHEIT =@'@ $+&@2, DEGREES CELSIUSL6 ( $6##ATARI BASIC REF. MAN. PG. H-166-65 +(2( ˠҠ5(6RR(JYou may make corrections at any time by entering a negative dollar value.6**6. OLD CHECK OUTSTANDING6**6. OLD DEPOSIT NOT CREDITED6**6. OLD CHECK JUST CLEARED6**6. OLD DEPOSIT JUST CREDITED7**6. NEW CHECK (OR SERVICE CHARGE) 7**6. NEW DEPOSIT (OR INTEREST)7] BA(Y(CEnter the beginning balance as shown in your checkbook. ]7] BA(Y(CEnter beginning balance from bankstatement. ](7 B27 BA`<71@(1(PRINTER IS NOT OPERATIONAL.F7!!(PLEASE CHECK CONNECTIONS.P76-Z7S(O(CWould you like a permanent record on the printer. Sd7B:,"BApn7$$7@<@,4NBB`x7$$7@<@,0YBAp7 BA@73TEST PRINTER76-@7%%3YOUR BEGINNING BALANCE IS $72/3%BANK STATEMENT BEGINNING BALANCE IS $2371 BB`(1(Choose one of the following:7((1) 7((2) 7((3) 7((4) 7((5) 7((6) 7((7) DONE8(8%% @)!@BB`8 B"8??BD0BDpBEBEPBFBGBH,86&6.NEW CHECKBOOK BALANCE IS ,6-6 BI 686&6.NEW BANK BALANCE IS ,6-6 BI @86&6.OUTSTANDING CHECKS-DEPOSITS=,6-6 BI J8  3T8 BB`^8$$OLD CHECK -- STILL OUTSTANDINGh8 6. BIPr8 6-%|8$8''OLD DEPOSIT -- STILL NOT CREDITED8 6. BIP8 6-&8$8OLD CHECK -- JUST CLEARED8 6. BIP8 6-&8$8""OLD DEPOSIT -- JUST CREDITED8 6. BIP8 6-%8$933NEW CHECK (OR SERVICE CHARGE) -- JUST CLEARED9 6. BIP9 6-&&92(.("IS NEW CHECK STILL OUTSTANDING 209B:,"BF0:9$$7@<@,0NBFD9 6-&N93CHECK HAS CLEARED.X9$]9$$7@<@,0YBF0b9 6-%g9''3CHECK IS STILL OUTSTANDING.j9$l9//NEW DEPOSIT (OR INTEREST) --JUST CREDITEDv9 6. BIP9 6-%92(.("HAS YOUR NEW DEPOSIT BEEN CREDITED29B:,"BG09$$7@<@,0YBG`9 6-%9%%3DEPOSIT HASBEEN CREDITED.9$9$$7@<@,0NBG09 6-&9**3DEPOSIT HAS NOT BEEN CREDITED.9$9 DONE9j(j(_BANK'S BALANCE MINUS (OUTSTANDING CHECKS-DEPOSITS) SHOULD NOW EQUAL YOUR CHECKBOOK BALANCE.96-&+&,9BHP9E(A(IS $, THE ENDING BALANCE ON YOUR BANK STATEMENT E9B:,"BH59]7@<@,4Y(S(/CONGRATULATIONS: YOUR CHECKBOOK BALANCES!] @P9 BH`:Y!(2(YOUR CHECKBOOK TOTAL IS $O( OVER YOUR BANK'S TOTAL.Y BH`:E('(YOUR CHECKBOOK TOTAL IS $6E( UNDER YOUR BANK'S TOTAL. :.(.(#WOULD YOU LIKE TO MAKE CORRECTIONS?:S(S(HREMEMBER, YOU CAN ENTER A NEGATIVE DOLLAR VALUE TO MAKE A CORRECTION. :"((ENTER ٠ OR Π "*:B:,"@P4:7@<@,4Y$9: @P>:MSG PRINTING ROUTINEH:(( $R:"@3 $\:$f:MSG PRINT & INPUT ROUTINEp:9 BI`(.(Enter the amount for the 2(5(9z: B:"@3 $:$:+@%@:&& @ :&&(@ GOD GRANT ME :&&(@ THE SERENITY :&&(@ TO ACCEPT :&&(@ THE THINGS :&&(@ I CANNOT CHANGE,:&&(@ COURAGE TO :&&(@ CHANGE THE THINGS:&&(@ I CAN, AND THE :&&(@ WISDOM TO KNOW ;&&(@ THE DIFFERENCE. ;&& @ ;-@A $; A>>ROUTINE TO CALL MENU.>>##( >(LOADING DISK MENU !!>%D:MENU D1:BUSINESS((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((