4094
609@XYO@TT@,*-!4Q
19
3840@S?77J==>=??+???@=I;
1344J@U@L@U@N@U@P@U@R@U@T"REC1= 1 ; REC2= 2 ; INTR= 3 ; RAND = 4 ; CONV = 5 ;"
@U@UP?<)K!
"FIBO = 6"%@U@V"OPTION"
8T@AW@8P@A@7E4N4AFUGZ1"6
1344X%8"ENTER INTEREST IN PERCENT    "
@8T@DW@8P@D@P?9DQ@DU@Z"ENTER AMMOUNT OF LOAN        "
@8T@GW@U@\"NUMBER OF YEARS              "
@8T@JW@U@^"NUMBER OF PAYMENTS PER YEAR  "
@8T@MW@8%8%U@ P@JP@MCQ@J@8P@DP@MDQ@P@8P@P@P?6AQ@S8P@GP@PC@P?6@P?6P@SDP@JEBDQ@V@U@""MONTHLY PAYMENT"$P@V!%8"TOTAL INTEREST  "$P@VP@JCP@GB!%@U@$%8%8P@GQ@S@U@&"INTEREST     APPLIED TO PRINCIPAL         BALANCE"%@U@(P@SP@PCQ@Y@8P@VP@YBQ@\@8P@SP@\BQ@S@8P@Y!$P@\!$" "$P@S!%U@*P@SP@VB@P?3(BZDF@8P@SP@PC!$P@VP@SP@PCB!%@8"LAST PAYMENT!"$P@SP@PCP@SA!%U@,%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@ZE]8YAFU@."NEXT PROGRAM"
8'&T@
W@8&P@
&@P?-(AZ@3@8YUDU@0@U@2%8"THIS BASIC PROGRAM USES LARGE NUMBER ARITHMETIC TO"%U@4"COMPUTE VERY LARGE VALUES OF N FACTORIAL."%@U@8%8"HOW MANY FACTORIALS WOULD YOU LIKE"
U@:T@JW@U@<%U@>%UA@P?*)K!
"TABLE OF FACTORIALS"%UABP?3Q@\@UADP?3R@"P?6I@UAFP?6Q@PP@JP'4@VG/P@P@]J9UAH@UAJP?3Q@DP@\P'4@VG>P@D@]HNUALP@DR@"P@DR@"HP@PCI@UANX@DUAPP?3Q@DP@\P'4@VHYP@D@]I
UARP@DR@"H@P?'D@)HQ@V@UATP@V@P?3(A@ZI UAVP@DP@\(DZIDUAXP@\@P?$(C@ZM5UAZP@\@P?6AQ@\UA\P@D@P?6AR@"P@DP?6AR@"HP@VAIUA^P@DR@"P@DR@"H@P?'P@VCBIUA X@DUA"P@P!
"!"
@P?!)K!
"= "
@UA$@UA&P?3QG'@UA(P?3QG*@UA*P@\Q@DP?6@P?6F@VJHP@D@]J/UA,[J<UA.","
@UA0PG*@P?6AQG*UA2PG*@P?^(D@ZJ,UA4%UA6P?[)K!
UA8P?3QG*@UA:X@DUA<@UA>[J<UB@%UBBX@PUBDYNHUBF@UBHP@DR@"HQG-@UBJP?XQG0P?3@P?6F@VKQPG0@]M3UBLPG-@P?[PG0ED@)HQG3@UBNPG-@P?[PG0EPG3CBQG-UBP@UBRPG3@P?3(F@ZK?UBTPG'@P?3(A@ZM0UBV"0"
@UBXPG3@P?6(F@ZLKUBZ"1"
@UB\PG3@P?X(F@ZLWUB^"2"
@UB PG3@P?U(F@ZL
UB""3"
@UB$PG3@P?R(F@ZL/UB&"4"
@UB(PG3@P?O(F@ZL;UB*"5"
@UB,PG3@P?L(F@ZMGUB."6"
@UB0PG3@P?!(F@ZMSUB2"7"
@UB4PG3@P?I(F@ZM
UB6"8"
@UB8PG3@P?F(F@ZM+UB:"9"
@UB<P?6QG'@UB>XG0UC@GUCBP@P!
"! IS TOO LARGE TO COMPUTE."%@UCD%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@ZN]8YF+UCF"NEXT PROGRAM"
8'&T@
W@8&P@
&@P?0(A@ZUD8Y@3UCH%8"FACTORIALS GENERATED RECURSIVELY"%UCJ%UCL"TO VIEW RECURSION, TYPE A '1'"
@UCNT@VW@UCP"YOU WISH N! FOR WHAT N"
UCRT@JW@UCTP@JP@J@)H(F@ZRYUCVP@J@P?6(D@ZR1UCXP@J@P?C(B@ZSKUCZ%UC\[P/UC^"                        N!= "
PG6!%@UC %UC"YT,UC$@UC&@UC(@UC*P@V@P?6(F@ZQKUC,"RECURSIVE ENTRY, N="
P@J!
"F="
PG6!%UC.P@J@P?6(A@ZRIUC0P@J@P?6BQ@JUC2[P/UC4P@J@P?6AQ@JUC6PG6P@JCQG6@UC8P@V@P?6(F@ZRGUC:"RECURSIVE EXIT, N="
P@J!
"F="
PG6!%@UC<GUC>P?6QG6@UD@%UDBYQ+UDD@UDF@UDH@UDJ"NO GAMMA FUNCTIONS TODAY, TRY AGAIN."%UDLYO UDN"POSITIVE INTEGERS ONLY, PLEASE TRY AGAIN"%UDPYO UDR"SORRY, BUT FOR N GREATER THAN 33 THE VALUE OF"%@UDT"N! IS TOO LARGE.  (34! = 2.952328E+38 AND THE"%@UDV"LARGEST PERMITTED NUMBER IS 1.701412E+38)."%UDX"PLEASE TRY ANOTHER VALUE OF N"%@UDZYO UD\%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@ZUA8YOJUD^YN]UD Y&/UD2%8"THE RULES OF THIS GAME ARE VERY SIMPLE"%UD4"I WILL SELECT A RANDOM NUMBER BETWEEN 1 AND 1000"%UD6"EACH PLAYER IN TURN WILL TYPE IN "
@UD8"A NUMBER WITHIN THOSE LIMITS"%UD:"EACH NUMBER IN WILL BECOME THE NEW LOWER OR UPPER LIMIT"%@UD<"THE PLAYER THAT TYPES IN THE NUMBER"
@UD>" I SELECTED LOSES"%@UE@^8%8"THE NUMBER OF PLAYERS ARE "
UEBT@\W@8P?'QG9@8P?6Q@Y@8P?'PG<@)IC@)HQG3@UED"PLAYER"$"LOWER"$"UPPER"$"INPUT"%UEFP?6QG*@UEHPG*!$P@Y!$PG9!
@P?@)K!
8TG?W@8PG?PG3(AZY38PG?P@Y(BZYAUEJ"ILLEGAL"%@8YX\UELPG?PG9P?6B(BZX88PG?PG3(BZY[UEN"LOW"%@8PG?Q@Y@8YY$UEP"HIGH"%8PG?QG9@UERPG*P@\(AZXW8PG*@P?6AQG*8YX\UET%8"SORRY NUMBER"
PG*!
"YOU LOSE"%UEV%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@ZZZ8YW^UEX"NEXT PROGRAM"
8'&T@
W@8&P@
&@P?-(AZ@3@8Y&/UEZ@UE\%8"BASE TO BASE INTEGER CONVERSION."%UE^%8"BASE OF INPUT NUMBER"
UE TJ<W@UE"PJ<@P?[(E@Z\]UE$"NUMBER OF DIGITS"
UE&TJ?W@UE(PJ?@P?6BQJ?UE*PJ?Q@PP?3@P?6F@V\CP@P@]\ZUE,"DIGIT"
PJ?P@PB!
"="
UE.P@PRHBLW@UE0X@PUE2Y^QUE4"DOES THE NUMBER EXCEED 6 DIGITS (IF SO TYPE A '1')"
UE6TG-W@UE8PG-@P?6(AZ[!@UE:"WHAT IS THE INPUT NUMBER"
UE<TG-W@UE>PG-)E@P?[)ED@)HQJ?@UF@PJ?Q@PP?3@P?6F@V]/P@P@]^QUFBPG-@P?[P@PED@)HQG<@UFDPG-@P?[P@PEPG<CBQG-UFFP@PRHBPG<I@UFHX@PUFJ%UFL"CONVERT TO BASE"
@UFNTKBW@UFP%UFRPJ?Q@PP?3@P?6F@V^0P@P@]^;UFTP@PRHBH!
UFVX@PUFX"( BASE"
PJ<!
")"%@UFZ"EQUALS"%UF\P?3QKEP>=P'4@V
WPKE@]!WUF^PJ?Q@PP?3@P?6F@V
%P@P@] 2UF P@PRHBHPKBD)HQG-@UF"P@P@P?3(A@Z /UF$P@P@P?6BRHBP@PP?6BRHBHPJ<P@PRHBHPKBPG-CBCAIUF&P@PRHBPG-I@UF(P@PPJ?(DZ /UF*P@PRHBH@P?3(F@Z /UF,PJ?@P?6BQJ?UF.X@PUF0PKERI
P?3RHBHPKBPG-CBI@UF2P?3RHBPG-I@UF4PJ?)M@P?3RHBH)MAP?3(A@Z"MUF6XKEUF8"ARRAY OVERFLOW"%UF:%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@Z!68Y[GUF<"NEXT PROGRAM"
8'&T@
W@8&P@
&@P?-(AZ@3@8Y&/UF>PKEQ@PP?3@P?6F@V"YP@P@]"$UG@P@PRI
H!
UGBX@PUGD"( BASE"
PKB!
")"%@UGF%UGH%UGJY!!UGL%UGN"THIS PROGRAM GENERATES THE FIRST N NUMBERS"%UGP"IN THE FIBONACCI SERIES, WHICH CAN BE DEFINED"%@UGR"BY THE RECURSIVE RELATIONSHIP:"%UGT" "$"F(N) = F(N-1) + F(N-2)"%UGV"  "$"F(1) = 1"%@UGX" "$"F(0) = 0"%UGZ%UG\%UG^"UPPER LIMIT"
@8T@MW@UG P?6Q@JP@MP'4@V$:P@J@]%OUG"[%;UG$"F("
P@J!
")"$"="
PG6!%UG&X@JUG(%8"AGAIN"
@8'&T@
W@8&P@
&@P?0(A@Z%$8Y$!UG*"NEXT PROGRAM"
8'&T@
W@8&P@
&@P?-(AZ@3@8Y&/UG,@UG.P@J@P?6(A@Z&
UG0P@J@P?6BQ@JUG2PG6PKHAQG6@UG4PG6PKHBQKH@UG6P@J@P?6AQ@JUG8GUG:P?6QG6@UG<P?3QKH@UG>GUJVOP/ @
1077P@
1076H@
1060 @
1060
0P^
0P]
0P\
0PV
0PT
0P%
0P'
0P

0QD,@
11114@
1069
0:&4@
3056
0
0
1036
0P>P@
1078 @
3904C+RB;HRB PC+I@8XC+UB<PC7R@(HPC7RAIHRB H(DZP6UB>P>.PC7R@GHP?UCPC7R@(HPC7RAIHRB HP?OCA@P?RBRCVHC)HCQDCUC@"YOU COLLECT"
PDC!
"ON "
8YQ
UCBPC7RAIHRB H@P?R(B@ZQQ8"NEXT TIME, BUY A SHOW"
@8YQZUCD"TEAR UP YOUR"
UCF" TICKET ON "
@UCHP?$QC+@8P?$RB;PC7RAIHI@8[SY8%UCJPDFPDCAPC7R@GHBQDF@UCLXC7UCNPDF@P?$(D@ZR UCP"YOUR TOTAL WINNINGS AMOUNT TO $"
PDF!%8YU*UCR"YOUR TOTAL LOSSES AMOUNT TO $"
PDF)M!%8YU*UCX"POS.  HORSE   LENGTHS BEHIND"%UCZP?^QC+P?[P'4@VSSPC+@]U&UC\PC+!
UC^PC+RB;H@7S(S3S>TITTT
T*T5