Compare commits
No commits in common. "master" and "JohnBlood-master-patch-48566" have entirely different histories.
master
...
JohnBlood-
|
@ -1,23 +0,0 @@
|
||||||
REM Order System 0.5 - FreeBasic Edition
|
|
||||||
REM by John Paul Wohlscheid
|
|
||||||
|
|
||||||
REM Variables
|
|
||||||
|
|
||||||
DIM items as integer 'item total
|
|
||||||
DIM fname as string 'customer first name
|
|
||||||
DIM lname as string 'customer last name
|
|
||||||
DIM total as integer 'order total
|
|
||||||
|
|
||||||
REM Main Program
|
|
||||||
|
|
||||||
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 TAB(15); "First of all, please enter your name."
|
|
||||||
INPUT "Enter your first name: ", fname
|
|
||||||
INPUT "Enter your last name: ", lname
|
|
||||||
PRINT "Thank you, " + fname + "!"
|
|
||||||
PRINT
|
|
||||||
|
|
|
@ -1,38 +0,0 @@
|
||||||
[start]
|
|
||||||
cls
|
|
||||||
print "This program will help you determine"
|
|
||||||
print "if you are old enough to apply for"
|
|
||||||
print "Social Security."
|
|
||||||
print
|
|
||||||
input "Please enter your current age."; age
|
|
||||||
if age < 65 then [young]
|
|
||||||
if age > 65 then [old]
|
|
||||||
if age = 65 then [correct]
|
|
||||||
goto [start]
|
|
||||||
|
|
||||||
[young]
|
|
||||||
cls
|
|
||||||
print "You are too young. Please try again"
|
|
||||||
print "in a couple of years."
|
|
||||||
print
|
|
||||||
input "Press 'Enter' to continue."; dummyVariable
|
|
||||||
print
|
|
||||||
goto [start]
|
|
||||||
|
|
||||||
[old]
|
|
||||||
cls
|
|
||||||
print "You are should have applied for"
|
|
||||||
print "Social Security by now."
|
|
||||||
print
|
|
||||||
input "Press 'Enter' to continue."; dummyVariable
|
|
||||||
print
|
|
||||||
goto [start]
|
|
||||||
|
|
||||||
[correct]
|
|
||||||
cls
|
|
||||||
print "You are now eligiable to apply for "
|
|
||||||
print "Social Security."
|
|
||||||
print
|
|
||||||
input "Press 'Enter' to continue."; dummyVariable
|
|
||||||
print
|
|
||||||
goto [start]
|
|
|
@ -1,18 +0,0 @@
|
||||||
[start]
|
|
||||||
print "Type a dollar and cent amount ?"
|
|
||||||
input "(Press 'Enter' alone for help) "; amount
|
|
||||||
let tax = amount * 0.05
|
|
||||||
print "Tax is: "; tax; ". Total is: "; tax+amount
|
|
||||||
goto [start]
|
|
||||||
|
|
||||||
[help]
|
|
||||||
cls
|
|
||||||
print "SALESTAX.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
|
|
||||||
cls
|
|
||||||
goto [start]
|
|
|
@ -1,25 +0,0 @@
|
||||||
[start]
|
|
||||||
print "Type a dollar and cent amount ?"
|
|
||||||
input "(Press 'Enter' alone for help) "; valueA
|
|
||||||
let tax = amount * 0.05
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
let valueB = int(valueA)
|
|
||||||
valueC = valueA - valueB
|
|
||||||
|
|
||||||
goto [start]
|
|
||||||
|
|
||||||
[help]
|
|
||||||
cls
|
|
||||||
print "SALESTAX.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
|
|
||||||
cls
|
|
||||||
goto [start]
|
|
|
@ -1,10 +0,0 @@
|
||||||
# LDPL 'Hello World' example
|
|
||||||
|
|
||||||
data:
|
|
||||||
name is text # Your name will go here.
|
|
||||||
|
|
||||||
procedure:
|
|
||||||
display "Hello World!" lf "What's your name? "
|
|
||||||
accept name
|
|
||||||
display "你好, " name ", welcome to LDPL!" lf
|
|
||||||
|
|
|
@ -1,2 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
print "Hello, world!\n";
|
|
|
@ -1,4 +0,0 @@
|
||||||
#!/usr/bin/perl
|
|
||||||
use v5.10;
|
|
||||||
|
|
||||||
say "Hello, World!";
|
|
|
@ -1,25 +0,0 @@
|
||||||
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 ""
|
|
||||||
|
|
|
@ -1,40 +0,0 @@
|
||||||
REM Cascading numbers
|
|
||||||
REM by John Paul Wohlscheid
|
|
||||||
|
|
||||||
REM ask for numbers
|
|
||||||
PRINT "Please enter four numbers and watch the values cacade"
|
|
||||||
INPUT "Enter your first number: "; num1%
|
|
||||||
INPUT "Enter your second number: "; num2%
|
|
||||||
INPUT "Enter your third number: "; num3%
|
|
||||||
INPUT "Enter your fourth number: "; num4%
|
|
||||||
|
|
||||||
ab% = num1% - num2%
|
|
||||||
cd% = num3% - num4%
|
|
||||||
finalnum% = ab% - cd%
|
|
||||||
|
|
||||||
REM displaying numbers while using str$ to convert numbers to strings
|
|
||||||
CLS
|
|
||||||
PRINT STR$(num1%) + " " + STR$(num2%) + " " + STR$(num3%) + " " + STR$(num4%)
|
|
||||||
PRINT " \ / \ /"
|
|
||||||
PRINT " \ / \ /"
|
|
||||||
PRINT " \ / \ /"
|
|
||||||
PRINT " \ / \ /"
|
|
||||||
PRINT " \ / \ /"
|
|
||||||
PRINT
|
|
||||||
print " " + STR$(ab%) + " " + STR$(cd%)
|
|
||||||
PRINT
|
|
||||||
print " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
print " \ /"
|
|
||||||
print " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
print " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
PRINT " \ /"
|
|
||||||
print " \/"
|
|
||||||
PRINT
|
|
||||||
print " " + STR$(finalnum%)
|
|
||||||
PRINT "=========================================================="
|
|
|
@ -1,30 +0,0 @@
|
||||||
REM Cascading numbers 2.0
|
|
||||||
REM by John Paul Wohlscheid
|
|
||||||
|
|
||||||
REM ask for numbers
|
|
||||||
PRINT "Please enter twn numbers and watch the values cacade"
|
|
||||||
INPUT "Enter your first number: "; num1%
|
|
||||||
INPUT "Enter your second number: "; num2%
|
|
||||||
INPUT "Enter your third number: "; num3%
|
|
||||||
INPUT "Enter your fourth number: "; num4%
|
|
||||||
INPUT "Enter your fifth number: "; num5%
|
|
||||||
INPUT "Enter your sixth number: "; num6%
|
|
||||||
INPUT "Enter your seventh number: "; num7%
|
|
||||||
input "Enter your eighth number: "; num8%
|
|
||||||
INPUT "Enter your ninth number: "; num9%
|
|
||||||
INPUT "Enter your tenth number: "; num10%
|
|
||||||
|
|
||||||
ab% = num1% - num2%
|
|
||||||
cd% = num3% - num4%
|
|
||||||
ef% = num5% - num6%
|
|
||||||
gh% = num7% - num8%
|
|
||||||
ij% = num9% - num10%
|
|
||||||
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%) + " " + STR$(num7%) + " " + STR$(num8%) + " " + STR$(num9%) + " " + STR$(num10%)
|
|
||||||
PRINT " " + STR$(ab%) + " " + STR$(cd%) + " " + STR$(ef%) + " " + STR$(gh%) + " " + STR$(ij%)
|
|
||||||
|
|
||||||
|
|
||||||
PRINT "=========================================================="
|
|
|
@ -1,24 +0,0 @@
|
||||||
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
|
|
|
@ -1,5 +0,0 @@
|
||||||
PRINT "Hello World"
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,20 +0,0 @@
|
||||||
'-------------------------
|
|
||||||
'-LINE demonstration #2 -
|
|
||||||
'-------------------------
|
|
||||||
|
|
||||||
const YELLOW = _RGB32(255, 255, 0)
|
|
||||||
|
|
||||||
SCREEN _NEWIMAGE(640, 480, 32)
|
|
||||||
cls
|
|
||||||
line (299, 219)-(319,0), YELLOW
|
|
||||||
LINE -(339, 219), YELLOW
|
|
||||||
LINE -(629, 239), YELLOW
|
|
||||||
LINE -(339, 259), YELLOW
|
|
||||||
LINE -(319, 479), YELLOW
|
|
||||||
LINE -(299, 259), YELLOW
|
|
||||||
LINE -(0, 239), YELLOW
|
|
||||||
LINE -(299, 219), YELLOW
|
|
||||||
LOCATE 16.36
|
|
||||||
PRINT "PRESS A KEY"
|
|
||||||
SLEEP
|
|
||||||
SYSTEM
|
|
|
@ -1,32 +0,0 @@
|
||||||
'-------------------------
|
|
||||||
'-LINE demonstration #3 -
|
|
||||||
'-------------------------
|
|
||||||
|
|
||||||
CONST YELLOW = _RGB32(255, 255, 0)
|
|
||||||
dim Style&
|
|
||||||
dim Bit%
|
|
||||||
dim Dir%
|
|
||||||
|
|
||||||
Dir% = -1
|
|
||||||
|
|
||||||
SCREEN _NEWIMAGE(640, 480, 32)
|
|
||||||
do
|
|
||||||
cls
|
|
||||||
_LIMIT 30
|
|
||||||
LOCATE 2, 33
|
|
||||||
PRINT "A Stylized Line"
|
|
||||||
LOCATE 4, 21
|
|
||||||
PRINT "Press the Space Bar to change directions"
|
|
||||||
LOCATE 6, 23
|
|
||||||
PRINT "Press the Escape key to exit the program."
|
|
||||||
if _KEYHIT = 32 THEN Dir% = -Dir%
|
|
||||||
Bit% = Bit% + Dir%
|
|
||||||
if Bit% = 16 THEN
|
|
||||||
Bit% = 0
|
|
||||||
ELSEIF Bit% = -1 then
|
|
||||||
Bit% = 15
|
|
||||||
End if
|
|
||||||
Style& = 2 ^ Bit%
|
|
||||||
LINE (99, 129)-(539, 409), YELLOW, B , Style&
|
|
||||||
_DISPLAY
|
|
||||||
LOOP UNTIL _KEYDOWN(27)
|
|
|
@ -1,4 +0,0 @@
|
||||||
PRINT "Enter your name:"
|
|
||||||
INPUT user$
|
|
||||||
PRINT "Hello " + user$
|
|
||||||
|
|
|
@ -1,30 +0,0 @@
|
||||||
_Title "Generic Ordering System"
|
|
||||||
REM Order System 0.1
|
|
||||||
REM by John Paul Wohlscheid
|
|
||||||
|
|
||||||
REM Variables
|
|
||||||
|
|
||||||
DIM items% 'item total
|
|
||||||
DIM fname$ 'customer first name
|
|
||||||
DIM lname$ 'customer last name
|
|
||||||
DIM total% 'order total
|
|
||||||
|
|
||||||
REM Main Program
|
|
||||||
|
|
||||||
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 "First of all, please enter your name."
|
|
||||||
INPUT "Enter your first name: ", fname$
|
|
||||||
INPUT "Enter your last name: ", lname$
|
|
||||||
|
|
||||||
cls
|
|
||||||
PRINT TAB(15); "Thank you, " + fname$ + "!"
|
|
||||||
PRINT TAB(15); "Now, let's get to ordering."
|
|
||||||
PRINT
|
|
||||||
|
|
|
@ -1,39 +0,0 @@
|
||||||
start:
|
|
||||||
CLS
|
|
||||||
PRINT "This program will help you determine"
|
|
||||||
PRINT "if you are old enough to apply for"
|
|
||||||
PRINT "Social Security."
|
|
||||||
PRINT
|
|
||||||
INPUT "Please enter your current age."; age
|
|
||||||
IF age < 65 THEN GOSUB young:
|
|
||||||
IF age > 65 THEN GOSUB old:
|
|
||||||
IF age = 65 THEN GOSUB correct:
|
|
||||||
GOTO start
|
|
||||||
|
|
||||||
young:
|
|
||||||
CLS
|
|
||||||
PRINT "You are too young. Please try again"
|
|
||||||
PRINT "in a couple of years."
|
|
||||||
PRINT
|
|
||||||
INPUT "Press 'Enter' to continue."; dummyVariable
|
|
||||||
PRINT
|
|
||||||
GOTO start
|
|
||||||
|
|
||||||
old:
|
|
||||||
CLS
|
|
||||||
PRINT "You are should have applied for"
|
|
||||||
PRINT "Social Security by now."
|
|
||||||
PRINT
|
|
||||||
INPUT "Press 'Enter' to continue."; dummyVariable
|
|
||||||
PRINT
|
|
||||||
GOTO start
|
|
||||||
|
|
||||||
correct:
|
|
||||||
CLS
|
|
||||||
PRINT "You are now eligiable to apply for "
|
|
||||||
PRINT "Social Security."
|
|
||||||
PRINT
|
|
||||||
INPUT "Press 'Enter' to continue."; dummyVariable
|
|
||||||
PRINT
|
|
||||||
GOTO start
|
|
||||||
|
|
|
@ -1,11 +0,0 @@
|
||||||
Red [needs: view]
|
|
||||||
view [
|
|
||||||
f1: field "First name"
|
|
||||||
f2: field "Last name"
|
|
||||||
button "Greet me!" [
|
|
||||||
t1/text: rejoin ["Have a nice day " f1/text " " f2/text "!"]
|
|
||||||
]
|
|
||||||
return
|
|
||||||
t1: text "" 200
|
|
||||||
|
|
||||||
]
|
|
Binary file not shown.
|
@ -1,3 +0,0 @@
|
||||||
Red [Needs: 'View]
|
|
||||||
|
|
||||||
view [text "Hello, World!"]
|
|
BIN
red/hello.exe
BIN
red/hello.exe
Binary file not shown.
|
@ -1,3 +0,0 @@
|
||||||
Red [Title: "Simple hello world Script"]
|
|
||||||
|
|
||||||
print "Hello, World"
|
|
|
@ -1,3 +0,0 @@
|
||||||
Red [ tite: "Simple Image Viewer" needs: 'view]
|
|
||||||
|
|
||||||
|
|
6352
red/libRedRT-defs.r
6352
red/libRedRT-defs.r
File diff suppressed because one or more lines are too long
|
@ -1 +0,0 @@
|
||||||
red/symbol/make-opt red/alloc-at-tail red/none/make-in red/unicode/to-utf16-len red/unicode/to-utf16 red/handle/make-at red/unicode/load-utf16 red/ownership/unbind-each red/image/resize red/image/delete red/date/make-at red/vector/make-at red/OS-image/delete red/float/abs red/image/any-resize red/OS-image/width? red/OS-image/height? red/binary/make-at red/OS-image/make-image red/file/to-OS-path red/string/rs-abs-at red/map/put red/collector/keep red/collector/register red/unicode/get-cache red/percent/rs-make-at red/string/sniff-chars
|
|
File diff suppressed because it is too large
Load Diff
BIN
red/libRedRT.dll
BIN
red/libRedRT.dll
Binary file not shown.
Binary file not shown.
|
@ -1,2 +0,0 @@
|
||||||
Red [ Title: "My program" needs: 'view]
|
|
||||||
view [ text "Its a great big world!" button "Quit" [quit] ]
|
|
Binary file not shown.
|
@ -1,3 +0,0 @@
|
||||||
Red [Needs: 'View]
|
|
||||||
|
|
||||||
view [name: field button "Hi" [print ["Hi" name/text]]]
|
|
|
@ -1,60 +0,0 @@
|
||||||
# Get My Number Game
|
|
||||||
# written by: you!
|
|
||||||
|
|
||||||
puts "Welcome to 'Get My Number!'"
|
|
||||||
|
|
||||||
print "What's your name? "
|
|
||||||
|
|
||||||
input = gets
|
|
||||||
|
|
||||||
name = input.chomp
|
|
||||||
|
|
||||||
puts "Welcome, #{name}!"
|
|
||||||
|
|
||||||
# Store a random number for the player to guess.
|
|
||||||
|
|
||||||
puts "I've got a number between 1 and 100."
|
|
||||||
|
|
||||||
puts "Can you guess it?"
|
|
||||||
|
|
||||||
target = rand(100) + 1
|
|
||||||
|
|
||||||
# Track how many gueses the player has made.
|
|
||||||
|
|
||||||
num_guesses = 0
|
|
||||||
|
|
||||||
# Track whether the player has guessed correctly
|
|
||||||
|
|
||||||
guessed_it = false
|
|
||||||
|
|
||||||
until num_guesses == 10 || guessed_it
|
|
||||||
|
|
||||||
puts "You've got #{10 - num_guesses} guesses left."
|
|
||||||
|
|
||||||
print "Make a guess."
|
|
||||||
|
|
||||||
guess = gets.to_i
|
|
||||||
|
|
||||||
num_guesses += 1
|
|
||||||
|
|
||||||
# Compare the guess to the target.
|
|
||||||
# Print the appropriate message.
|
|
||||||
|
|
||||||
if guess < target
|
|
||||||
puts "Oops. Your guess was LOW."
|
|
||||||
elsif guess > target
|
|
||||||
puts "Oops. Your guess was HIGH."
|
|
||||||
elsif guess == target
|
|
||||||
puts "Good job, #{name}!"
|
|
||||||
puts "You guessed my number in #{num_guesses} gueses!"
|
|
||||||
guessed_it = true
|
|
||||||
end
|
|
||||||
|
|
||||||
end
|
|
||||||
|
|
||||||
# If player ran out of turns, tell them what the nubmer was.
|
|
||||||
|
|
||||||
unless guessed_it
|
|
||||||
puts "Sorry. You didn't get my number. (It was #{target}.)"
|
|
||||||
end
|
|
||||||
|
|
|
@ -1,13 +0,0 @@
|
||||||
def order_soda(flavor, size = "medium", quantity = 1)
|
|
||||||
if quantity == 1
|
|
||||||
plural = "soda"
|
|
||||||
else
|
|
||||||
plural = "sodas"
|
|
||||||
end
|
|
||||||
puts "#{quantity} #{size} #{flavor} #{plural}!"
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
order_soda("orange")
|
|
||||||
order_soda("lemon-lime", "small", 2)
|
|
||||||
order_soda("grape", "large")
|
|
|
@ -1,3 +0,0 @@
|
||||||
numbers = [5, 3, 2, 4, 1]
|
|
||||||
|
|
||||||
print numbers.sort
|
|
|
@ -1,29 +0,0 @@
|
||||||
def accelerate
|
|
||||||
puts "Stepping on the gas"
|
|
||||||
puts "Speeding up"
|
|
||||||
end
|
|
||||||
|
|
||||||
def sound_horn
|
|
||||||
puts "Pressing the horn button"
|
|
||||||
puts "Beep beep!"
|
|
||||||
end
|
|
||||||
|
|
||||||
def use_headlights(brightness)
|
|
||||||
puts "Turning on #{brightness} headlights"
|
|
||||||
puts "Watch out for deer!"
|
|
||||||
end
|
|
||||||
|
|
||||||
def use_headlights(brightness = "low-beam")
|
|
||||||
puts "Turning on #{brightness} headlights"
|
|
||||||
puts "Watch out for deer!"
|
|
||||||
end
|
|
||||||
|
|
||||||
def mileage(miles_driven, gas_used)
|
|
||||||
return miles_driven / gas_used
|
|
||||||
end
|
|
||||||
|
|
||||||
trip_mileage = mileage(400, 12)
|
|
||||||
puts "You got #{trip_mileage} MPG on this trip."
|
|
||||||
|
|
||||||
lifetime_mileage = mileage(11432, 366)
|
|
||||||
puts "This car averages #{lifetime_mileage} MPG."
|
|
Loading…
Reference in New Issue
Block a user