Initial commit

basic/hilo.bas

@@ -0,0 +1,39 @@
+' Here is an interactive HI-LO
+' Program
+[start]
+    guessMe = int(rnd(1)*100) + 1
+    'Clear the screen and print the title and instructions
+    cls
+    print
+    print HI-LO
+    print
+    print "I have decided on a number between"
+    print "a hundred, and I want you to guess"
+    print "what it is. I will tell you to guess"
+    print "higher or lower, and we'll count up"
+    print "the number of guesses you use."
+    print
+
+[ask]
+    ' Ask the user to guess the number and tally the guess
+    input "OK. What is your guess"; guess
+    ' Now add one to the count variable to count the guesses
+    let count = count + 1
+    ' Check to see if the guess is right
+    if guess = guessMe then goto [win]
+    ' Check to see if the guess is too low
+    if guess < guessMe then print "Guess higher."
+    ' Check to see if the guess is too high
+    if guess > guessMe then print "Guess lower"
+    ' Go back and ask again
+    goto [ask]
+[win]
+    ' Tell how many guess it took to win
+    print "You win! It took "; count; " guesses."
+    ' Reset the count variable to zero for the next game
+    let ocunt = 0
+    ' Ask to play again
+    input "Play again (Y/N)"; play$
+    if instr("YESyes", play$) > 0 then goto [start]
+    print "Press ALT-F4 to close this window."
+    end

basic/salestax.bas

@@ -0,0 +1,19 @@
+[start]
+    print "Type a dollar and cent ammount."
+    input "(Press 'Enter' alone for help) ?" ; amount
+    if amount = 0 then goto [help]
+    let tax = amount * 0.05
+    print "Tax is: "; tax; ". Total is: "; tax + amount
+    goto [start]
+    
+[help]
+    cls
+    print "SALETAX.BAS Help"
+    print
+    print "This tax program determines how much tax is"
+    print "due on an amount entered and also computes"
+    print "the total amount. The tax rate is 5%"
+    print
+    input "Press [Enter] to continue."; dummyVariable
+    print
+    goto [start]