tyrel/sams_sleuth_project
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sam.bas and demo video

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Demo.mp4 Normal file
View File

Binary file not shown.

28
sam.bas
View File

@ -1,34 +1,34 @@
10 INPUT "WHAT IS YOUR NAME? "; NM$
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
41 PRINT "CHOOSE ONE and press RETURN"
41 PRINT "CHOOSE ONE AND PRESS RETURN"
45 PRINT ""
50 PRINT " C WRITE CHECK"
60 PRINT " D MAKE DEPOSIT"
70 PRINT " B CHecK Balance"
90 PRINT " Q QUit"
70 PRINT " B CHECK BALANCE"
90 PRINT " Q QUIT"
100 INPUT MC$
110 IF MC$ = "C" then GOTO 1000
120 IF MC$ = "D" then GOTO 3000
140 IF MC$ = "B" then GOTO 2000
150 IF MC$ = "Q" then GOTO 9999
110 IF MC$ = "C" THEN GOTO 1000
120 IF MC$ = "D" THEN GOTO 3000
140 IF MC$ = "B" THEN GOTO 2000
150 IF MC$ = "Q" THEN GOTO 9999
1000 INPUT "WHAT IS THE DATE "; DC$
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
1030 LET CB = CB - CA
1040 GOTO 45
1045 PRINT
1050 PRINT "YOU DO NOT HAVE"
1060 PRINT "ENOUGH MONEY TO"
1070 PRINT "WRITE THiS CHeCK!"
1070 PRINT "WRITE THIS CHECK!"
1080 PRINT CHR#(7)
1090 GOTO 45
2000 PRINT "Your cuRRENT BALANCE IS, $"; CB
2000 PRINT "YOUR CURRENT BALANCE IS, $ "; CB
2010 GOTO 45
3000 INPUT "WHAT IS The date?"; DD$
3010 INPUT "HOW MUCH MONEY DO YOU WANT TO DepoSIT"; DATE
3020 LET CB=CB+DATE
3000 INPUT "WHAT IS THE DATE? "; DD$
3010 INPUT "HOW MUCH MONEY DO YOU WANT TO DEPOSIT "; DA
3020 LET CB=CB+DA
3030 GOTO 45
9999 END