diff --git a/qb64/Artillery3.bas b/qb64/Artillery3.bas new file mode 100644 index 0000000..fcaf212 --- /dev/null +++ b/qb64/Artillery3.bas @@ -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 "" + diff --git a/qb64/guessing-game.bas b/qb64/guessing-game.bas index e2ff766..c09527b 100644 --- a/qb64/guessing-game.bas +++ b/qb64/guessing-game.bas @@ -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 skillof \ No newline at end of file +print "You have the skill of diff --git a/qb64/order-system.bas b/qb64/order-system.bas index 2e743b4..b95ad94 100644 --- a/qb64/order-system.bas +++ b/qb64/order-system.bas @@ -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