Sam.bas and demo video

This commit is contained in:
Tyrel Souza 2023-08-10 14:44:20 -04:00
parent eb7ed17cf8
commit ad307dffce
No known key found for this signature in database
GPG Key ID: F3614B02ACBE438E
2 changed files with 18 additions and 18 deletions

BIN
Demo.mp4 Normal file

Binary file not shown.

28
sam.bas
View File

@ -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