johnblood/learning-to-code
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

new qb64projects

Browse Source
This commit is contained in:
John Paul Wohlscheid
2021-04-20 22:22:17 -04:00
parent 250a292421
commit fcd9b60b3c
3 changed files with 58 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
qb64/Artillery3.bas Normal file
View File

@@ -0,0 +1,25 @@
PRINT "Artillery 3"
PRINT TAB(7); "Copyright 1979 Creative Computing"
INPUT "Do you need instructions?"; I$
t = 0
DIM S(2, 9)
DIM V(3), X(3), P(3), R(3, 3)
DATA 1,2,2,3,3,1,1,3,3,2,2,1,2,3,3,1,1,2,0
IF LEFT$(I$, 1) = "Y" THEN 1240 ELSE CLS
players:
PRINT
PRINT "No. of Players"
INPUT N
IF N = 2 THEN 170
IF N = 3 THEN 200
PRINT "Error -- Two or Three Players!"
PRINT
RETURN
GOSUB players
N1 = 1
PRINT ""

44
qb64/guessing-game.bas
View File

@@ -1,24 +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
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 skill of

13
qb64/order-system.bas
View File

@@ -1,4 +1,5 @@
REM Order System 1.0
_Title "Generic Ordering System"
REM Order System 0.1
REM by John Paul Wohlscheid
REM Variables
@@ -14,10 +15,16 @@ PRINT TAB(15); "Welcome to the first version of this Order System."
PRINT TAB(15); "To place your order, enter the amount you of each"
PRINT TAB(15); "item you want and the amount will be totalled"
PRINT TAB(15); "at the end."
print
print
print
PRINT
PRINT TAB(15); "First of all, please enter your name."
PRINT "First of all, please enter your name."
INPUT "Enter your first name: ", fname$
INPUT "Enter your last name: ", lname$
PRINT "Thank you," + fname$ + "!"
cls
PRINT TAB(15); "Thank you, " + fname$ + "!"
PRINT TAB(15); "Now, let's get to ordering."
PRINT