Sam.bas and demo video
This commit is contained in:
parent
eb7ed17cf8
commit
ad307dffce
28
sam.bas
28
sam.bas
@ -1,34 +1,34 @@
|
|||||||
10 INPUT "WHAT IS YOUR NAME? "; NM$
|
10 INPUT "WHAT IS YOUR NAME? "; NM$
|
||||||
30 INPUT "WHAT IS THE DATE? "; SD$
|
30 INPUT "WHAT IS THE DATE? "; SD$
|
||||||
35 INPUT "WHAT IS ThE starting balance?"; sb
|
35 INPUT "WHAT IS THE STARTING BALANCE? "; SB
|
||||||
40 LET CB = SB
|
40 LET CB = SB
|
||||||
41 PRINT "CHOOSE ONE and press RETURN"
|
41 PRINT "CHOOSE ONE AND PRESS RETURN"
|
||||||
45 PRINT ""
|
45 PRINT ""
|
||||||
50 PRINT " C WRITE CHECK"
|
50 PRINT " C WRITE CHECK"
|
||||||
60 PRINT " D MAKE DEPOSIT"
|
60 PRINT " D MAKE DEPOSIT"
|
||||||
70 PRINT " B CHecK Balance"
|
70 PRINT " B CHECK BALANCE"
|
||||||
90 PRINT " Q QUit"
|
90 PRINT " Q QUIT"
|
||||||
100 INPUT MC$
|
100 INPUT MC$
|
||||||
110 IF MC$ = "C" then GOTO 1000
|
110 IF MC$ = "C" THEN GOTO 1000
|
||||||
120 IF MC$ = "D" then GOTO 3000
|
120 IF MC$ = "D" THEN GOTO 3000
|
||||||
140 IF MC$ = "B" then GOTO 2000
|
140 IF MC$ = "B" THEN GOTO 2000
|
||||||
150 IF MC$ = "Q" then GOTO 9999
|
150 IF MC$ = "Q" THEN GOTO 9999
|
||||||
1000 INPUT "WHAT IS THE DATE "; DC$
|
1000 INPUT "WHAT IS THE DATE "; DC$
|
||||||
1010 INPUT "WHO ARE YOU WRITING THE CHECK TO "; PC$
|
1010 INPUT "WHO ARE YOU WRITING THE CHECK TO "; PC$
|
||||||
1020 INPUT "HOW MUCH IS THE chcck FOR"; CA
|
1020 INPUT "HOW MUCH IS THE CHCCK FOR "; CA
|
||||||
1021 IF CA > CB THEN GOTO 1045
|
1021 IF CA > CB THEN GOTO 1045
|
||||||
1030 LET CB = CB - CA
|
1030 LET CB = CB - CA
|
||||||
1040 GOTO 45
|
1040 GOTO 45
|
||||||
1045 PRINT
|
1045 PRINT
|
||||||
1050 PRINT "YOU DO NOT HAVE"
|
1050 PRINT "YOU DO NOT HAVE"
|
||||||
1060 PRINT "ENOUGH MONEY TO"
|
1060 PRINT "ENOUGH MONEY TO"
|
||||||
1070 PRINT "WRITE THiS CHeCK!"
|
1070 PRINT "WRITE THIS CHECK!"
|
||||||
1080 PRINT CHR#(7)
|
1080 PRINT CHR#(7)
|
||||||
1090 GOTO 45
|
1090 GOTO 45
|
||||||
2000 PRINT "Your cuRRENT BALANCE IS, $"; CB
|
2000 PRINT "YOUR CURRENT BALANCE IS, $ "; CB
|
||||||
2010 GOTO 45
|
2010 GOTO 45
|
||||||
3000 INPUT "WHAT IS The date?"; DD$
|
3000 INPUT "WHAT IS THE DATE? "; DD$
|
||||||
3010 INPUT "HOW MUCH MONEY DO YOU WANT TO DepoSIT"; DATE
|
3010 INPUT "HOW MUCH MONEY DO YOU WANT TO DEPOSIT "; DA
|
||||||
3020 LET CB=CB+DATE
|
3020 LET CB=CB+DA
|
||||||
3030 GOTO 45
|
3030 GOTO 45
|
||||||
9999 END
|
9999 END
|
||||||
|
Loading…
Reference in New Issue
Block a user