mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2026-04-26 10:21:30 +00:00
basic: OPTION DIALECT must come 1st, hot restart for FOR loops, chainAssignments, more games, CONVERT, DEC+
This commit is contained in:
Steven Hugg
@@ -0,0 +1,230 @@
|
||||
0 REM http://www.bitsavers.org/bits/HP/paperTapes/JeffM/CRAPS.BAS
|
||||
1 OPTION DIALECT HP2000
|
||||
10 REM THIS IS A SPECIAL VERSION OF CRAPS
|
||||
20 REM 1) MAXIMUM BANK IS $1000
|
||||
30 REM 2) THE PLAYER GETS 10 CHANCES TO PLACE A BET
|
||||
40 REM 3) COMMENTS HAVE BEEN ADJUSTED FOR FAMILIES
|
||||
50 PRINT TAB(18)"G T E S Y L V A N I A"
|
||||
60 PRINT
|
||||
70 PRINT TAB(27)"1 9 7 4"
|
||||
80 PRINT
|
||||
90 PRINT TAB(20)"F A M I L Y D A Y"
|
||||
100 PRINT
|
||||
110 PRINT
|
||||
120 PRINT TAB(16)"COMPUTERIZED CRAP GAME RULES"
|
||||
130 PRINT
|
||||
140 PRINT
|
||||
150 PRINT
|
||||
160 PRINT "2, 3, OR 12 ON THE FIRST THROW IS A LOSER."
|
||||
170 PRINT "7 OR 11 ON THE FIRST THROW WINS."
|
||||
180 PRINT
|
||||
190 PRINT "IF FIRST THROW IS NOT A WINNER OR A LOSER IT BECOMES";
|
||||
200 PRINT " YOUR POINT."
|
||||
210 PRINT "CONTINUE TO ROLL UNTIL EITHER 7 OR YOUR POINT OCCURS."
|
||||
220 PRINT "ROLL 7 AND YOU LOSE. MAKE YOUR POINT AND YOU WIN."
|
||||
230 PRINT
|
||||
240 PRINT "YOU MAY END THE GAME BY ENTERING A ZERO BET."
|
||||
250 PRINT
|
||||
260 PRINT "I RESERVE THE RIGHT TO END THE GAME AT ANY TIME."
|
||||
270 PRINT
|
||||
280 LET F6=0
|
||||
290 PRINT "NO PROFANITY!"
|
||||
300 PRINT
|
||||
310 PRINT "WHAT TIME IS IT";
|
||||
320 INPUT T
|
||||
330 IF T<2401 THEN 390
|
||||
340 IF F6<1 THEN 360
|
||||
350 PRINT "DUMMY! ";
|
||||
360 PRINT "WHAT TIME";
|
||||
370 LET F6=F6+1
|
||||
380 GOTO 320
|
||||
390 LET T=T*19
|
||||
400 IF T<1900 THEN 430
|
||||
410 LET T=T-1900
|
||||
420 GOTO 400
|
||||
430 PRINT "THANK YOU - ON WITH THE GAME."
|
||||
440 FOR D=1 TO T
|
||||
450 LET R1=RND(0)
|
||||
460 NEXT D
|
||||
470 LET F2=0
|
||||
480 LET F3=0
|
||||
490 LET F4=0
|
||||
500 LET F5=0
|
||||
510 LET X=0
|
||||
520 LET Y=0
|
||||
530 PRINT " ENTER YOUR BANKROLL ";
|
||||
540 INPUT F7
|
||||
550 IF F7<1001 THEN 620
|
||||
560 LET F5=F5+1
|
||||
570 IF F5>1 THEN 600
|
||||
580 PRINT "YOU'RE TOO RICH FOR MY ELECTRONS!"
|
||||
590 GOTO 530
|
||||
600 PRINT "BE REASONABLE! THIS IS NOT LOS VEGAS."
|
||||
610 GOTO 530
|
||||
620 LET F8=F7
|
||||
630 PRINT "YOU NOW HAVE TEN TRYS TO BEAT THE BANK."
|
||||
640 LET Q=10
|
||||
650 GOTO 750
|
||||
660 PRINT
|
||||
670 IF F8>F7 THEN 710
|
||||
680 IF F7>F8 THEN 730
|
||||
690 PRINT "EVEN WITH THE BOARD - HMPH!"
|
||||
700 GOTO 2050
|
||||
710 PRINT "YOU HAVE WON "F8-F7" DOLLARS. TRY AND GET IT."
|
||||
720 GOTO 2050
|
||||
730 PRINT "YOU HAVE LOST "F7-F8" DOLLARS. SORRY ABOUT THAT."
|
||||
740 GOTO 2050
|
||||
750 IF Q=0 THEN 660
|
||||
760 LET Q=Q-1
|
||||
770 PRINT " PLACE YOUR BET ";
|
||||
780 INPUT B
|
||||
790 IF B=0 THEN 660
|
||||
800 IF B<1 THEN 1830
|
||||
810 IF B>F8 THEN 1890
|
||||
820 LET B=INT(B)
|
||||
830 GOSUB 2240
|
||||
840 PRINT " FIRST THROW";V;W;
|
||||
850 IF A=2 THEN 930
|
||||
860 IF A=3 THEN 950
|
||||
870 IF A=7 THEN 970
|
||||
880 IF A=11 THEN 990
|
||||
890 IF A=12 THEN 910
|
||||
900 GOTO 1010
|
||||
910 PRINT " BOX CARS ";
|
||||
920 GOTO 1430
|
||||
930 PRINT " SNAKE EYES ";
|
||||
940 GOTO 1430
|
||||
950 PRINT " CRAPS ";
|
||||
960 GOTO 1430
|
||||
970 PRINT " BIG SEVEN - A WINNER";
|
||||
980 GOTO 1090
|
||||
990 PRINT " BIG ELEVEN - A WINNER";
|
||||
1000 GOTO 1090
|
||||
1010 LET C=A
|
||||
1020 PRINT " YOUR POINT ";A
|
||||
1030 GOSUB 2240
|
||||
1040 PRINT " NEXT THROW ";V;W
|
||||
1050 IF A=7 THEN 1410
|
||||
1060 IF A#C THEN 1030
|
||||
1070 PRINT " MADE YOUR POINT";
|
||||
1080 REM WIN COUNTER
|
||||
1090 LET X=X+1
|
||||
1100 IF X>1 THEN 1150
|
||||
1110 IF X=3 THEN 1170
|
||||
1120 IF X=4 THEN 1190
|
||||
1130 IF X>4 THEN 1210
|
||||
1140 GOTO 1220
|
||||
1150 PRINT " AGAIN";
|
||||
1160 GOTO 1110
|
||||
1170 PRINT ". DARNIT!";
|
||||
1180 GOTO 1220
|
||||
1190 PRINT ". STOP THAT!";
|
||||
1200 GOTO 1220
|
||||
1210 PRINT ". -DISGUSTING-";
|
||||
1220 IF Y=2 THEN 1280
|
||||
1230 IF Y=3 THEN 1300
|
||||
1240 IF Y=4 THEN 1320
|
||||
1250 IF Y=5 THEN 1340
|
||||
1260 IF Y>5 THEN 1360
|
||||
1270 GOTO 1370
|
||||
1280 PRINT " FOR A CHANGE - DON'T GET COCKY.";
|
||||
1290 GOTO 1370
|
||||
1300 PRINT " IN SPITE OF ME.";
|
||||
1310 GOTO 1370
|
||||
1320 PRINT " SPOIL SPORT";
|
||||
1330 GOTO 1370
|
||||
1340 PRINT " FEEL BETTER?";
|
||||
1350 GOTO 1370
|
||||
1360 PRINT " - - RELAX";
|
||||
1370 LET Y=0
|
||||
1380 PRINT
|
||||
1390 LET F8=F8+B
|
||||
1400 GOTO 1800
|
||||
1410 PRINT " SEVEN - - -";
|
||||
1420 REM LOSS COUNTER
|
||||
1430 LET Y=Y+1
|
||||
1440 PRINT " YOU LOSE";
|
||||
1450 IF Y>1 THEN 1550
|
||||
1460 IF Y=3 THEN 1570
|
||||
1470 IF Y=4 THEN 1590
|
||||
1480 IF Y=5 THEN 1610
|
||||
1490 IF Y>5 THEN 1630
|
||||
1500 IF X=2 THEN 1650
|
||||
1510 IF X=3 THEN 1680
|
||||
1520 IF X=4 THEN 1710
|
||||
1530 IF X>4 THEN 1740
|
||||
1540 GOTO 1760
|
||||
1550 PRINT " AGAIN. ";
|
||||
1560 GOTO 1460
|
||||
1570 PRINT " KEEP UP THE GOOD WORK!";
|
||||
1580 GOTO 1500
|
||||
1590 PRINT " EAT YOUR HEART OUT!";
|
||||
1600 GOTO 1500
|
||||
1610 PRINT " IT'S NOT YOUR DAY, IS IT, SUCKER?";
|
||||
1620 GOTO 1500
|
||||
1630 PRINT " YOU'RE JUST TOO GOOD TO BE TRUE.";
|
||||
1640 GOTO 1500
|
||||
1650 PRINT ".";
|
||||
1660 PRINT " BUT KEEP TRYING.";
|
||||
1670 GOTO 1760
|
||||
1680 PRINT ".";
|
||||
1690 PRINT " THAT ENDS YOUR LITTLE STREAK.";
|
||||
1700 GOTO 1760
|
||||
1710 PRINT ".";
|
||||
1720 PRINT " GOTCHA!";
|
||||
1730 GOTO 1760
|
||||
1740 PRINT ".";
|
||||
1750 PRINT " AT LAST I FIXED YOUR WAGON.";
|
||||
1760 PRINT ""
|
||||
1770 LET X=0
|
||||
1780 LET F8=F8-B
|
||||
1790 IF F8<1 THEN 2220
|
||||
1800 PRINT
|
||||
1810 PRINT "YOU NOW HAVE "F8"DOLLARS IN THE BANK."
|
||||
1820 GOTO 750
|
||||
1830 PRINT "NO BETS LESS THAN A BUCK.";
|
||||
1840 LET F2=F2+1
|
||||
1850 IF F2=2 THEN 1950
|
||||
1860 IF F2>2 THEN 1970
|
||||
1870 PRINT
|
||||
1880 GOTO 750
|
||||
1890 PRINT "NO CREDIT AT THIS CASINO.";
|
||||
1900 LET F3=F3+1
|
||||
1910 IF F3=2 THEN 1950
|
||||
1920 IF F3>2 THEN 1970
|
||||
1930 PRINT
|
||||
1940 GOTO 750
|
||||
1950 PRINT " (SECOND WARNING)"
|
||||
1960 GOTO 750
|
||||
1970 PRINT " G O T O # @ & % "
|
||||
1980 LET F4=F4+1
|
||||
1990 IF F4=2 THEN 2020
|
||||
2000 IF F4>2 THEN 2040
|
||||
2010 GOTO 750
|
||||
2020 PRINT " DO THAT AGAIN AND I'LL QUIT"
|
||||
2030 GOTO 750
|
||||
2040 PRINT " I WARNED YOU - SMART GUY - I QUIT"
|
||||
2050 PRINT
|
||||
2060 PRINT
|
||||
2070 PRINT
|
||||
2080 PRINT
|
||||
2090 PRINT "NEXT PLAYER. . . PLEASE ENTER YOUR LUCKY NUMBER."
|
||||
2100 PRINT
|
||||
2110 PRINT
|
||||
2120 PRINT
|
||||
2130 PRINT
|
||||
2140 PRINT
|
||||
2150 PRINT
|
||||
2160 INPUT F6
|
||||
2170 PRINT
|
||||
2180 PRINT
|
||||
2190 PRINT
|
||||
2200 PRINT
|
||||
2210 GOTO 50
|
||||
2220 PRINT " B U S T"
|
||||
2230 GOTO 2050
|
||||
2240 LET V=INT(6*RND(0)+1)
|
||||
2250 LET W=INT(6*RND(0)+1)
|
||||
2260 LET A=V+W
|
||||
2270 RETURN
|
||||
2280 END
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,196 @@
|
||||
0 OPTION DIALECT HP
|
||||
1 REM **** HP BASIC PROGRAM LIBRARY **************************
|
||||
2 REM
|
||||
3 REM LANDER: ROCKET LANDING VEHICLE
|
||||
4 REM
|
||||
5 REM 36684 REV A -- 10/73
|
||||
6 REM REV A-1 -- 3/75 BYARD
|
||||
7 REM **** CONTRIBUTED PROGRAM *******************************
|
||||
100 REM PROGRAM LANDER
|
||||
110 REM
|
||||
130 REM
|
||||
200 PRINT "WELCOME TO THE PUC SCHOOL FOR BUDDING ASTRONAUTS!"
|
||||
210 PRINT
|
||||
220 PRINT " DO YOU WANT INSTRUCTIONS? 1=YES ";
|
||||
230 INPUT C
|
||||
240 PRINT
|
||||
250 IF C#1 THEN 1000
|
||||
300 PRINT "YOU ARE AT THE CONTROLS OF A ROCKET LANDING VEHICLE."
|
||||
310 PRINT
|
||||
320 PRINT "INITIALLY YOU ARE A GIVEN DISTANCE ABOVE THE SURFACE ";
|
||||
330 PRINT "MOVING"
|
||||
335 PRINT "DOWNWARD (VELOCITY IS NEGATIVE)."
|
||||
350 PRINT "YOU CHOOSE THE AMOUNT OF FUEL TO BE BURNED DURING";
|
||||
360 PRINT " THE NEXT ONE SECOND."
|
||||
370 PRINT "OF TIME."
|
||||
400 PRINT
|
||||
410 PRINT " IF YOU BURN ZERO, THEN YOU WILL FALL FASTER BECAUSE OF ";
|
||||
420 PRINT "GRAVITY."
|
||||
430 PRINT " IF YOU BURN EXACTLY THAT REQUIRED TO OVERCOME GRAVITY, ";
|
||||
440 PRINT "THEN"
|
||||
445 PRINT "YOUR VELOCITY WILL BE CONSTANT."
|
||||
450 PRINT " IF YOU BURN MORE, THEN YOU WILL SLOW DOWN OR EVEN";
|
||||
460 PRINT " START TO MOVE"
|
||||
470 PRINT "UPWARD (VELOCITY IS POSITIVE)!"
|
||||
475 PRINT
|
||||
480 PRINT "THE IDEA IS TO GET THE LANDER DOWN TO THE SURFACE,";
|
||||
490 PRINT " LANDING WITH AS"
|
||||
495 PRINT "LITTLE VELOCITY AS POSSIBLE."
|
||||
500 PRINT "THERE IS MORE THAN ENOUGH FUEL, BUT BE CAREFUL NOT";
|
||||
510 PRINT " TO WASTE IT!"
|
||||
600 PRINT
|
||||
700 PRINT "LANDING ON THE MOON IS EASIER, TRY THAT FIRST."
|
||||
720 PRINT
|
||||
730 PRINT
|
||||
1000 PRINT "GOOD LUCK AND HAPPY LANDINGS!"
|
||||
1005 REM
|
||||
1006 LET X0=V0=0
|
||||
1007 PRINT
|
||||
1010 PRINT
|
||||
1030 PRINT "LOCATION: MOON(1) OR EARTH(2) ";
|
||||
1040 INPUT C
|
||||
1042 PRINT
|
||||
1043 LET K=0
|
||||
1045 IF C=1 THEN 1060
|
||||
1047 LET K=1
|
||||
1048 IF C=2 THEN 1060
|
||||
1050 PRINT "THAT LOCATION IS NOT RECOGNIZED."
|
||||
1055 GOTO 1030
|
||||
1060 LET G=5+27*K
|
||||
1070 LET M=30+60*K
|
||||
1075 IF X0>0 THEN 1100
|
||||
1080 LET X=X0=500+1500*K
|
||||
1090 LET V=V0=-50-100*K
|
||||
1100 PRINT "INITIAL CONDITIONS: STANDARD(1), OLD(2), OR NEW(3) ";
|
||||
1110 INPUT D
|
||||
1120 IF D=1 THEN 1150
|
||||
1130 LET X=500+1500*K
|
||||
1140 LET V=-50-100*K
|
||||
1145 GOTO 1200
|
||||
1150 IF D=2 THEN 1170
|
||||
1155 LET X=X0
|
||||
1160 LET V=V0
|
||||
1165 GOTO 1200
|
||||
1170 LET X=INT(RND(0)*(100+K*100))*10+100
|
||||
1180 LET V=-INT(RND(0)*(10+K*10))*5
|
||||
1190 IF V*V>2*(M-G)*X THEN 1180
|
||||
1200 LET X0=X
|
||||
1210 LET V0=V
|
||||
1290 LET F=INT((M*(V^2+2*G*X)/(M-G))^.5*.13+.5)*10
|
||||
1300 PRINT
|
||||
1302 PRINT "INITIAL HEIGHT: ";X;"FEET"
|
||||
1303 PRINT "INITIAL VELOCITY: ";V;"FEET/SEC"
|
||||
1305 PRINT "TOTAL FUEL SUPPLY: ";F;"UNITS"
|
||||
1307 PRINT "MAXIMUM BURN: ";M;"UNITS/SEC"
|
||||
1308 PRINT "AMOUNT OF BURN TO CANCEL GRAVITY: ";G;"UNITS/SEC"
|
||||
1320 PRINT
|
||||
1330 PRINT
|
||||
1340 PRINT "TIME","HEIGHT","VELOCITY","FUEL","BURN"
|
||||
1350 PRINT
|
||||
2000 LET T=-1
|
||||
2010 LET T=T+1
|
||||
2020 PRINT T,X,V,F," ";
|
||||
2030 INPUT B
|
||||
2040 LET B1=ABS(B)
|
||||
2050 IF B1 <= M THEN 2080
|
||||
2060 PRINT " ","MAX BURN IS ";M;"BURN ";
|
||||
2070 GOTO 2030
|
||||
2080 LET T9=T8=2
|
||||
2090 IF B1=0 THEN 2110
|
||||
2100 LET T9=F/B1
|
||||
2110 LET A=B-G
|
||||
2120 LET R=V*V-2*A*X
|
||||
2140 IF R<0 THEN 2200
|
||||
2150 IF A=0 THEN 2180
|
||||
2160 LET T8=-(V+R^.5)/A
|
||||
2170 GOTO 2200
|
||||
2180 IF V >= 0 THEN 2200
|
||||
2190 LET T8=-X/V
|
||||
2200 IF (T8>0 AND T8 <= 1) OR T9 <= 1 THEN 2300
|
||||
2210 LET X=X+V+A/2
|
||||
2220 LET V=V+A
|
||||
2230 LET F=F-B1
|
||||
2235 IF X>1.00000E-04 THEN 2010
|
||||
2240 LET T=T+1
|
||||
2245 GOTO 2630
|
||||
2300 IF T8>0 AND T8 <= T9 THEN 2600
|
||||
2310 PRINT T+T9,"OUT OF FUEL"
|
||||
2320 LET F=B1=0
|
||||
2330 LET X=X+V*T9+A*T9^2/2
|
||||
2340 LET V=V+A*T9
|
||||
2350 LET A=-G
|
||||
2360 LET T8=(V+(V*V-2*A*X)^.5)/G
|
||||
2370 IF T8<1-T9 THEN 2500
|
||||
2380 LET X=X+V*(1-T9)+A*(1-T9)^2/2
|
||||
2390 LET V=V+A*(1-T9)
|
||||
2400 LET T=T+1
|
||||
2410 PRINT T,X,V
|
||||
2420 LET T8=(V+(V^2-2*A*X)^.5)/G
|
||||
2430 IF T8 <= 1 THEN 2600
|
||||
2440 LET X=X+V+A/2
|
||||
2450 LET V=V+A
|
||||
2460 GOTO 2400
|
||||
2500 LET T=T+T9
|
||||
2600 LET F=F-B1*T8
|
||||
2610 LET T=T+T8
|
||||
2620 LET V=V+A*T8
|
||||
2630 PRINT T,0,V,F
|
||||
2640 PRINT
|
||||
2650 PRINT
|
||||
2700 IF V<-1 THEN 2800
|
||||
2710 LET D=INT(RND(0)*5+1)
|
||||
2711 IF D=2 THEN 2730
|
||||
2712 IF D=3 THEN 2745
|
||||
2713 IF D=4 THEN 2750
|
||||
2714 IF D=5 THEN 2760
|
||||
2720 PRINT "YOU ARE NOW A QUALIFIED ASTRONAUT."
|
||||
2725 GOTO 1007
|
||||
2730 PRINT "AS GENTLE AS A KITTEN'S PURR!!"
|
||||
2735 GOTO 1007
|
||||
2740 PRINT "A BUTTERFLY COULDN'T HAVE DONE BETTER!"
|
||||
2745 GOTO 1007
|
||||
2750 PRINT "AS SOFT AS A SNOWFLAKE!"
|
||||
2755 GOTO 1007
|
||||
2760 PRINT "MR. SPOCK WOULD BE PROUD OF YOU!!!"
|
||||
2765 GOTO 1007
|
||||
2800 IF V<-5 THEN 2900
|
||||
2810 LET D=INT(RND(0)*4+1)
|
||||
2811 IF D=2 THEN 2830
|
||||
2812 IF D=3 THEN 2840
|
||||
2813 IF D=4 THEN 2850
|
||||
2820 PRINT "A BIT ROUGH, BUT YOU ARE STILL IN ONE PIECE!"
|
||||
2825 GOTO 1007
|
||||
2830 PRINT "IF YOU HAD BEEN DRIVING A 1970 LTD, THAT WOULD HAVE COST";
|
||||
2831 PRINT " YOU $500!"
|
||||
2835 GOTO 1007
|
||||
2840 PRINT "ANY FASTER AND YOU WOULD HAVE BOUNCED!"
|
||||
2845 GOTO 1007
|
||||
2850 PRINT "YOU HAD BETTER CHECK YOU LANDING GEAR!!"
|
||||
2855 GOTO 1007
|
||||
2900 IF V<-10 THEN 3000
|
||||
2910 LET D=INT(RND(0)*5+1)
|
||||
2911 IF D=2 THEN 2930
|
||||
2912 IF D=3 THEN 2940
|
||||
2913 IF D=4 THEN 2950
|
||||
2914 IF D=5 THEN 2960
|
||||
2920 PRINT "IS YOUR MEDICAL INSURANCE PAID UP??"
|
||||
2925 GOTO 1007
|
||||
2930 PRINT "YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT!"
|
||||
2935 GOTO 1007
|
||||
2940 PRINT "NEIL ARMSTRONG DID IT THE FIRST TIME!!"
|
||||
2945 GOTO 1007
|
||||
2950 PRINT "THE BEST LAID SCHEMES OF MICE AND MEN,"
|
||||
2951 PRINT " OFT' GO ASTRAY."
|
||||
2955 GOTO 1007
|
||||
2960 PRINT "HAVE YOU EVER THOUGHT OF A DIFFERENT LINE OF WORK??"
|
||||
2965 GOTO 1007
|
||||
3000 LET D=INT(RND(0)*3+1)
|
||||
3001 IF D=2 THEN 3020
|
||||
3002 IF D=3 THEN 3030
|
||||
3010 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED."
|
||||
3015 GOTO 1007
|
||||
3020 PRINT "YOU JUST CREAMED A 29 MEGABUCK LANDER!"
|
||||
3025 GOTO 1007
|
||||
3030 PRINT "AREN'T YOU GLAD THIS IS ONLY A COMPUTER SIMULATION!!"
|
||||
3035 GOTO 1007
|
||||
9999 END
|
||||
@@ -0,0 +1,96 @@
|
||||
1 OPTION DIALECT HP
|
||||
10 PRINT "DANIEL O'ROURKE FEB. 23, 1977"
|
||||
20 PRINT "MINI-COMPUTOR 102"
|
||||
30 PRINT "SUBJECT: MORTGAGE PAYMENT"
|
||||
40 FOR A=1 TO 3
|
||||
50 PRINT
|
||||
60 NEXT A
|
||||
70 PRINT "HI, I AM A COMPUTOR. YOU HAVE COME TO ME "
|
||||
80 PRINT "SO I CAN HELP YOU SOLVE YOUR MORTGAGE"
|
||||
90 PRINT "PROBLEMS, BECAUSE I CAN MAKE CALCULATIONS"
|
||||
100 PRINT "MUCH FASTER AND MORE ACCURATELY THAN YOU"
|
||||
110 PRINT "CAN. IF YOU DON'T KNOW HOW TO USE ME,AND"
|
||||
120 PRINT "YOU WOULD LIKE INSTRUCTIONS, PLEASE TYPE"
|
||||
125 PRINT "A 1 (ONE). FOLLOW IT WITH A CARRIAGE RETURN."
|
||||
130 PRINT "IF NOT TYPE A 0 (ZERO) FOLLOWED BY A CARRI-"
|
||||
140 PRINT "AGE RETURN. DO IT NOW, PLEASE."
|
||||
142 PRINT
|
||||
144 PRINT
|
||||
150 INPUT B
|
||||
152 IF B=1 THEN 160
|
||||
155 IF B=0 THEN 285
|
||||
157 IF B#1 THEN 142
|
||||
160 PRINT
|
||||
165 PRINT
|
||||
170 PRINT "THANK YOU, HERE ARE YOUR INSTRUCTIONS."
|
||||
180 PRINT
|
||||
190 PRINT
|
||||
200 GOTO 250
|
||||
250 PRINT "TYPE IN THE AMOUNT YOU WISH TO BORROW."
|
||||
260 PRINT "FOLLOW IT WITH A COMMA (,) THEN TYPE IN"
|
||||
270 PRINT "THE NUMBER OF YEARS YOU WOULD LIKE TO TAKE"
|
||||
280 PRINT "TO REPAY THAT LOAN. FOLLOW THAT WITH"
|
||||
282 PRINT "A CARRIAGE RETURN. DO IT NOW."
|
||||
285 PRINT
|
||||
286 PRINT
|
||||
290 INPUT C,D
|
||||
295 PRINT
|
||||
296 PRINT
|
||||
297 IF B=0 THEN 340
|
||||
300 PRINT "THANK YOU, NOW TYPE IN THE INTEREST RATE."
|
||||
310 PRINT "THIS INFORMATION MUST BE IN DECIMAL FORM."
|
||||
320 PRINT "EXAMPLE: .10=10% INTEREST RATE."
|
||||
325 PRINT "FOLLOW THIS INFORMATION WITH A CARRIAGE RE-"
|
||||
330 PRINT "TURN. DO IT NOW."
|
||||
340 INPUT E
|
||||
342 LET G=C*(((E/12)*(1+E/12)^(D*12))/((1+E/12)^(D*12)-1))
|
||||
344 LET F=(G*D*(12))-C
|
||||
350 PRINT
|
||||
351 PRINT
|
||||
352 PRINT "THANK YOU."
|
||||
354 PRINT "THE TOTAL COST OF YOUR LOAN IS";F
|
||||
355 PRINT
|
||||
356 PRINT "YOUR MONTHLY PAYMENTS (INCLUDING INTEREST) ARE";G
|
||||
358 PRINT
|
||||
359 PRINT
|
||||
360 PRINT "NOW YOU WILL RECEIVE A PAYMENT SCHEDULE"
|
||||
370 PRINT "OF PAYMENTS FOR THE FIRST TWELVE MONTHS OF"
|
||||
380 PRINT "YOUR REPAYMENT PERIOD. THEN I WILL TELL YOU"
|
||||
390 PRINT "HOW MUCH YOU HAVE PAID TOWARDS THE PRINCIPLE,"
|
||||
400 PRINT "THEN I WILL TELL YOU HOW MUCH YOU HAVE PAID"
|
||||
410 PRINT "ON THE INTEREST, AND THEN I WILL TELL YOU HOW"
|
||||
420 PRINT "MUCH YOU STILL HAVE LEFT TO REPAY (BALANCE DUE)."
|
||||
430 PRINT
|
||||
440 PRINT
|
||||
510 PRINT "MONTH","PRINCIPLE","INTEREST","BALANCE DUE"
|
||||
515 LET R=(E/12)*C
|
||||
520 FOR I=1 TO 12
|
||||
530 LET K=(E/12)*C
|
||||
540 LET P=G-K
|
||||
550 LET C=(C)-(P)
|
||||
570 PRINT I,P,K,C
|
||||
600 NEXT I
|
||||
650 PRINT
|
||||
660 PRINT
|
||||
670 PRINT "THE AMOUNT YOU HAVE PAID TOWARDS THE PRINCIPLE IS:"
|
||||
675 LET Q=G-E
|
||||
685 PRINT
|
||||
690 PRINT "$";Q
|
||||
695 PRINT
|
||||
700 PRINT
|
||||
710 PRINT "THE AMOUNT YOU HAVE PAID ON INTEREST IS:"
|
||||
715 PRINT
|
||||
720 PRINT "$";R
|
||||
725 PRINT
|
||||
730 PRINT
|
||||
735 PRINT "YOUR BALANCE DUE IS:"
|
||||
736 PRINT
|
||||
740 PRINT "$";C
|
||||
750 PRINT
|
||||
760 PRINT
|
||||
780 PRINT "THIS COMPLETES THE MORTGAGE PAYMENT PROGRAM."
|
||||
790 PRINT "THANK YOU FOR YOUR COOPERATION."
|
||||
800 FOR T=1 TO 4
|
||||
810 PRINT
|
||||
820 NEXT T
|
||||
999 END
|
||||
@@ -1,3 +1,6 @@
|
||||
1 REM***STAR TRADER FROM
|
||||
2 REM***http://www.dunnington.info/public/basicgames/
|
||||
3 REM***2 chain files merged and ported to 8bitworkshop
|
||||
5 OPTION DIALECT HP
|
||||
6 OPTION BASE 0:REM I GUESS HP HAS ZERO BASE???
|
||||
10010 DIM S[12,15],T[12,12],T$[72],B[3,12]
|
||||
|
||||
Reference in New Issue
Block a user