Compare commits

..

No commits in common. "master" and "JohnBlood-master-patch-48566" have entirely different histories.

36 changed files with 0 additions and 7936 deletions

View File

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

View File

@ -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]

View File

@ -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]

View File

@ -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]

View File

View File

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

View File

@ -1,2 +0,0 @@
#!/usr/bin/perl
print "Hello, world!\n";

View File

@ -1,4 +0,0 @@
#!/usr/bin/perl
use v5.10;
say "Hello, World!";

View File

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

View File

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

View File

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

View File

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

View File

@ -1,5 +0,0 @@
PRINT "Hello World"

View File

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

View File

@ -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)

View File

@ -1,4 +0,0 @@
PRINT "Enter your name:"
INPUT user$
PRINT "Hello " + user$

View File

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

View File

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

View File

@ -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.

View File

@ -1,3 +0,0 @@
Red [Needs: 'View]
view [text "Hello, World!"]

Binary file not shown.

View File

@ -1,3 +0,0 @@
Red [Title: "Simple hello world Script"]
print "Hello, World"

View File

@ -1,3 +0,0 @@
Red [ tite: "Simple Image Viewer" needs: 'view]

File diff suppressed because one or more lines are too long

View File

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

Binary file not shown.

Binary file not shown.

View File

@ -1,2 +0,0 @@
Red [ Title: "My program" needs: 'view]
view [ text "Its a great big world!" button "Quit" [quit] ]

Binary file not shown.

View File

@ -1,3 +0,0 @@
Red [Needs: 'View]
view [name: field button "Hi" [print ["Hi" name/text]]]

View File

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

View File

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

View File

@ -1,3 +0,0 @@
numbers = [5, 3, 2, 4, 1]
print numbers.sort

View File

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