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 ""

46
qb64/guessing-game.bas
View File

@@ -1,24 +1,24 @@
score = 0 score% = 0
PRINT "Hello, Player! What is your name?" Print "Hello, Player! What is your name?"
INPUT ; name$ Input ; name$
PRINT Print
PRINT "Welcome " + name$ + "!" Print "Welcome " + name$ + "!"
PRINT "Please answer the following questions." Print "Please answer the following questions."
PRINT "A score of 5 is perfect." Print "A score of 5 is perfect."
PRINT "What is the result of 1 + 1?" Print "What is the result of 1 + 1?"
INPUT ; answer Input ; answer
IF answer = 2 THEN score = score + 1 If answer = 2 Then score = score + 1
PRINT "What does 3 times 4 equal?" Print "What does 3 times 4 equal?"
INPUT ; answer Input ; answer
IF answer = 12 THEN score = score + 1 If answer = 12 Then score = score + 1
PRINT "What is the answer to 81 divided by 9" Print "What is the answer to 81 divided by 9"
INPUT ; answer Input ; answer
IF answer = 9 THEN score = score + 1 If answer = 9 Then score = score + 1
print "What does 7 time 8 plus 10 equal" Print "What does 7 time 8 plus 10 equal"
INPUT ; answer Input ; answer
if answer = 66 then score = score + 1 If answer = 66 Then score = score + 1
print "What is the answer to the ultimate auestion of life, the universe, and everything." Print "What is the answer to the ultimate auestion of life, the universe, and everything."
input ; answer Input ; answer
if answer = 42 then score = score + 1 If answer = 42 Then score = score + 1
print "Your score: " + score print "Your score: " + score
print "You have the skillof 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 by John Paul Wohlscheid
REM Variables 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); "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); "item you want and the amount will be totalled"
PRINT TAB(15); "at the end." PRINT TAB(15); "at the end."
print
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 first name: ", fname$
INPUT "Enter your last name: ", lname$ 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 PRINT