update latest work

This commit is contained in:
John Paul Wohlscheid 2021-03-03 17:42:43 -05:00
parent 9e716f942a
commit ba1daaea6b
3 changed files with 33 additions and 1 deletions

View File

@ -23,7 +23,8 @@ finalnum% = ab% - cd%
REM displaying numbers while using str$ to convert numbers to strings
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 "=========================================================="

24
qb64/guessing-game.bas Normal file
View 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
View 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."