From eb7ed17cf866d999f1eda3d865b08bc15fa2e4ce Mon Sep 17 00:00:00 2001
From: Tyrel Souza <tyrelsouza@gmail.com>
Date: Mon, 7 Aug 2023 10:44:59 -0400
Subject: [PATCH] first commit

---
 sam.bas | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 sam.bas

diff --git a/sam.bas b/sam.bas
new file mode 100644
index 0000000..1557e16
--- /dev/null
+++ b/sam.bas
@@ -0,0 +1,34 @@
+10 INPUT "WHAT IS YOUR NAME?"; NM$
+30 INPUT "WHAT IS THE DATE?"; SD$
+35 INPUT "WHAT IS ThE starting balance?"; sb
+40 LET CB = SB
+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"
+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
+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
+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!"
+1080 PRINT CHR#(7)
+1090 GOTO 45
+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
+3030 GOTO 45
+9999 END