-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathCALC.BAS
More file actions
executable file
·60 lines (59 loc) · 1003 Bytes
/
CALC.BAS
File metadata and controls
executable file
·60 lines (59 loc) · 1003 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
SCREEN 9
PRINT " THE SUPER CALCULATOR"
PRINT " BY: BEN FRANCK"
PRINT
2 PRINT
PRINT "ENTER WHAT YOU WANT TO DO:"
PRINT "A) ADD"
PRINT "B) SUBTRACT"
PRINT "C) MULTIPLY"
PRINT "D) DIVIDE"
PRINT "E) QUIT"
INPUT A$
IF A$ = "D" THEN 1
IF A$ = "C" THEN 3
IF A$ = "B" THEN 4
IF A$ = "A" THEN 5
PRINT "BYE!!"
PRINT
END
1 PRINT
PRINT "ENTER THE FIRST NUMBER";
INPUT A
PRINT
PRINT "ENTER THE SECOND NUMBER";
INPUT B
PRINT
PRINT "THE ANSWER IS:";
PRINT A / B
GOTO 2
3 PRINT
PRINT "ENTER THE FIRST NUMBER"
INPUT C
PRINT
PRINT "ENTER THE SECOND NUMBER"
INPUT D
PRINT
PRINT "THE ANSWER IS:";
PRINT C * D
GOTO 2
4 PRINT
PRINT "ENTER THE FIRST NUMBER";
INPUT E
PRINT
PRINT "ENTER THE SECOND NUMBER";
INPUT F
PRINT
PRINT "THE ANSWER IS:";
PRINT E - F
GOTO 2
5 PRINT
PRINT "ENTER THE FIRST NUMBER";
INPUT G
PRINT
PRINT "ENTER THE SECOND NUMBER";
INPUT H
PRINT
PRINT "THE ANSWER IS:";
PRINT G + H
GOTO 2