update latest work
This commit is contained in:
parent
9e716f942a
commit
ba1daaea6b
|
@ -23,7 +23,8 @@ finalnum% = ab% - cd%
|
||||||
|
|
||||||
REM displaying numbers while using str$ to convert numbers to strings
|
REM displaying numbers while using str$ to convert numbers to strings
|
||||||
CLS
|
CLS
|
||||||
PRINT STR$(num1%) + " " + STR$(num2%) + " " + STR$(num3%) + " " + STR$(num4%) + " " + STR$(num5%) + " " + STR$(num6%)
|
PRINT STR$(num1%) + " " + STR$(num2%) + " " + STR$(num3%) + " " + STR$(num4%) + " " + STR$(num5%) + " " + STR$(num6%) + " " + STR$(num7%) + " " + STR$(num8%) + " " + STR$(num9%) + " " + STR$(num10%)
|
||||||
|
PRINT " " + STR$(ab%) + " " + STR$(cd%) + " " + STR$(ef%) + " " + STR$(gh%) + " " + STR$(ij%)
|
||||||
|
|
||||||
|
|
||||||
PRINT "=========================================================="
|
PRINT "=========================================================="
|
24
qb64/guessing-game.bas
Normal file
24
qb64/guessing-game.bas
Normal file
|
@ -0,0 +1,24 @@
|
||||||
|
score = 0
|
||||||
|
PRINT "Hello, Player! What is your name?"
|
||||||
|
INPUT ; name$
|
||||||
|
PRINT
|
||||||
|
PRINT "Welcome " + name$ + "!"
|
||||||
|
PRINT "Please answer the following questions."
|
||||||
|
PRINT "A score of 5 is perfect."
|
||||||
|
PRINT "What is the result of 1 + 1?"
|
||||||
|
INPUT ; answer
|
||||||
|
IF answer = 2 THEN score = score + 1
|
||||||
|
PRINT "What does 3 times 4 equal?"
|
||||||
|
INPUT ; answer
|
||||||
|
IF answer = 12 THEN score = score + 1
|
||||||
|
PRINT "What is the answer to 81 divided by 9"
|
||||||
|
INPUT ; answer
|
||||||
|
IF answer = 9 THEN score = score + 1
|
||||||
|
print "What does 7 time 8 plus 10 equal"
|
||||||
|
INPUT ; answer
|
||||||
|
if answer = 66 then score = score + 1
|
||||||
|
print "What is the answer to the ultimate auestion of life, the universe, and everything."
|
||||||
|
input ; answer
|
||||||
|
if answer = 42 then score = score + 1
|
||||||
|
print "Your score: " + score
|
||||||
|
print "You have the skillof
|
7
qb64/order-system.bas
Normal file
7
qb64/order-system.bas
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
REM Order System 1.0
|
||||||
|
rem by John Paul Wohlscheid
|
||||||
|
|
||||||
|
print tab(15); "Welcome to the first version of the Order System."
|
||||||
|
print tab(15); "In order to place your order, enter the amount you"
|
||||||
|
print tab(15); "of each item you want and the amount will be totalled"
|
||||||
|
print tab(15); "at the end."
|
Loading…
Reference in New Issue
Block a user