diff --git a/qb64/cascading-numbers2.bas b/qb64/cascading-numbers2.bas index 1580366..f1425f4 100644 --- a/qb64/cascading-numbers2.bas +++ b/qb64/cascading-numbers2.bas @@ -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 "==========================================================" \ No newline at end of file diff --git a/qb64/guessing-game.bas b/qb64/guessing-game.bas new file mode 100644 index 0000000..e2ff766 --- /dev/null +++ b/qb64/guessing-game.bas @@ -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 \ No newline at end of file diff --git a/qb64/order-system.bas b/qb64/order-system.bas new file mode 100644 index 0000000..8f4a023 --- /dev/null +++ b/qb64/order-system.bas @@ -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." \ No newline at end of file