Samantha Taylor 

getting better

finally after piling ibuprofen and cold medicine in me i am finally getting better i hopefull will recover and get back in the swing of things. my internet access is messed up, someone is either using my username and password unauthorized or the server is down. it keeps regecting my password. i am so sick of bad luck :)

ugh

I am sweating my head off after taking a tylenol cold and sinus, it's a good thing. hopefully i get back to feeling good really soon and i hope that my life will be much easier when i get over this awful stuff. :)

Ugh Sick as a dog!

I have a terrible, terrible fever. I am sweating, caughing, body aches ugh! feel plum horrible. I cant stay away from my blog though. I have spent the entire day in bed or up sitting staring into space. Body aches are the worst things that you could go through. It's an nightmare and i can't get things together meself i could clean house, i couldn't do anything.

maintaining

i am doing ok now, but for a few days i have felt a little coo-coo! :) plenty of sleep is the key to feeling better

Here's a qbasic script for a operating system, just compile it and walla!

Here's a script i found online while trying to find something fun to do so my brains wouldn't fry from boredom. It's a script for this cute little tiny operating system . It has a pong game, calculator and etc. It's neato, just copy and paste starting at the "" then paste it on a text document and then name it "OSX.bas"
in your text editor save it in parenthesis or else you will get osx.bas.txt so save it as "osx.bas" then compile and you have a fun program. :) have fun



'''Windows X

'Created by Hacksoft. It's a neat little program, our own OS, with
'a few neat things here and there. Have a look!

'You can find Hacksoft on the web for wicked QBasic games at:

'http://members.aol.com/jeffereys/index.htm

DECLARE SUB guess ()
DECLARE SUB graphicsload ()
DECLARE SUB mainmenu ()
DECLARE SUB ponggame ()
DECLARE SUB cursormenu ()
DECLARE SUB calculator ()
DECLARE SUB osx ()
DECLARE SUB help ()
DECLARE SUB screensaver ()
DECLARE SUB freenet ()
DECLARE SUB about ()

DIM SHARED cursorpic(100), cursorpic2(100), l, u, cursort, move$
DIM SHARED l(200), u(200), udir(200), ldir(200), cl(200), stars

graphicsload

SUB about
CLS
COLOR 14
PRINT "About Windows X"
PRINT
COLOR 15
PRINT "Windows X was created by Jamie"
PRINT "McCrae of Hacksoft. Windows X"
PRINT "took only 5 hours of computer"
PRINT "time to complete. It is pretty"
PRINT "versatile, because it has its"
PRINT "own OS, games, and utilities."
PRINT "Enjoy!"
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
CLS
mainmenu
END SUB

SUB calculator
DO
SCREEN 2
CLS
PRINT "Enter your formula type."
PRINT "1) Addition"
PRINT "2) Subtraction"
PRINT "3) Multiplication"
PRINT "4) Division"
PRINT "5) Powers"
PRINT "6) Quit"
INPUT formula$
num = 0
num2 = 0
IF formula$ = "1" THEN
CLS
PRINT "Enter a number."
INPUT num
DO
num = num + num2
PRINT "Enter next number. Type -50000 for final answer."
INPUT num2
LOOP UNTIL num2 = -50000
PRINT "The answer is"; num; "."
ELSEIF formula$ = "2" THEN
CLS
PRINT "Enter the number to be subtracted."
INPUT num
DO
num = num - num2
PRINT "Enter the number to subtract. Type -50000 for final answer."
INPUT num2
LOOP UNTIL num2 = -50000
PRINT "The answer is"; num; "."
ELSEIF formula$ = "3" THEN
CLS
PRINT "Enter first number."
INPUT num
PRINT "Enter second number."
INPUT num2
PRINT "The answer is"; num * num2; "."
ELSEIF formula$ = "4" THEN
CLS
PRINT "Enter number to be divided."
INPUT num
PRINT "Enter the divisor."
INPUT num2
PRINT "The answer is "; num / num2; "."
ELSEIF formula$ = "5" THEN
CLS
PRINT "Enter the number."
INPUT num
PRINT "What power is the number?"
INPUT num2
PRINT "The answer is"; num ^ num2; "."
ELSEIF formula$ = "6" THEN
EXIT DO
END IF
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
LOOP
mainmenu
END SUB

SUB cursormenu
CLS
PRINT "This is the cursor menu."
PRINT "There are two cursor types."
PRINT "To select the left cursor,"
PRINT "press 1. For the one on the"
PRINT "right, press 2."
PUT (100, 120), cursorpic, PSET
PUT (220, 120), cursorpic2, PSET
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ = "1" OR move$ = "2"
IF move$ = "1" THEN cursort = 1
IF move$ = "2" THEN cursort = 2
CLS
mainmenu
END SUB

SUB freenet
CLS
COLOR 9: PRINT "Free Internet Connect -"
COLOR 13: PRINT "Press a key to commence."
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
CLS
COLOR 10: PRINT "Pssh, like you'd really get"
PRINT "the Internet for free using"
PRINT "this program!"
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
mainmenu
END SUB

SUB graphicsload
SCREEN 13
LINE (100, 100)-(105, 105), 15
LINE (105, 105)-(100, 107), 15
LINE (100, 107)-(100, 100), 15
PAINT (101, 103), 15, 15
LINE (100, 100)-(105, 110), 15
GET (100, 100)-(110, 110), cursorpic
CIRCLE (155, 155), 5, 15
PSET (155, 155), 15
LINE (150, 155)-(152, 155), 15
LINE (158, 155)-(160, 155), 15
LINE (155, 150)-(155, 152), 15
LINE (155, 158)-(155, 160), 15
GET (150, 150)-(160, 160), cursorpic2
CLS
l = 200
u = 100
cursort = 1
mainmenu
END SUB

SUB guess
SCREEN 12
CLS
COLOR 9
PRINT "Guess!"
PRINT
PRINT "Guess the number between 1 and 100."
PRINT "Enter your guess."
RANDOMIZE TIMER
number = INT(RND * 100) + 1
guesses = 10
DO
PRINT "You have"; guesses; "guesses."
INPUT tryme
IF tryme number THEN
PRINT "Try lower!"
END IF
guesses = guesses - 1
LOOP UNTIL tryme = number OR guesses = 0
IF tryme = number THEN
PRINT "You got the number!"
ELSE
PRINT "You didn't get the number in the time given."
END IF
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
mainmenu
END SUB

SUB help
SCREEN 12
DO
CLS
COLOR 14
PRINT "Help Screen - Main Menu"
PRINT
PRINT "1) Help on Calculator"
PRINT "2) Help on Pong"
PRINT "3) Help on Help"
PRINT "4) Help on OSX"
PRINT "5) Help on Main Menu"
PRINT "6) Help on About"
PRINT "7) Help on Selecting a Cursor"
PRINT "8) Help on Free Net (hee hee)"
PRINT "9) Help on Guess"
PRINT "10) Exit Help"
INPUT choice$
IF choice$ = "1" THEN
PRINT "The calculator is easy. Simply follow the on-screen"
PRINT "instructions by pressing the number that corresponds"
PRINT "with the action."
ELSEIF choice$ = "2" THEN
PRINT "The point of Pong is to avoid the ball getting past"
PRINT "your paddle, (the one on the left.) To reflect the"
PRINT "the ball off your paddle, use the up and down arrow"
PRINT "keys to get the paddle in the ball's flight path."
PRINT "First to 5 wins the game."
ELSEIF choice$ = "3" THEN
PRINT "You just used help! All you have to do is keep doing"
PRINT "what you just did, only with the other numbers."
ELSEIF choice$ = "4" THEN
PRINT "OSX is basically DOS, it supports all DOS commands,"
PRINT "and has extra utilities like color, its own help,"
PRINT "and a reference screen which can be accessed from "
PRINT "the prompt. For those of you that don't know how"
PRINT "to use DOS, OSX will be useless to you."
ELSEIF choice$ = "5" THEN
PRINT "In the main menu, there are green boxes, called 'icons'"
PRINT "and have purple writing beneath them to tell what they"
PRINT "do. To access them, use the cursor, (either an arrow"
PRINT "or targeting recticle,) move it over an icon, (it must"
PRINT "be in the center,) by using the arrow keys and select"
PRINT "it with SPACEBAR."
ELSEIF choice$ = "6" THEN
PRINT "About is just one screen. When you're done reading,"
PRINT "press any key."
ELSEIF choice$ = "7" THEN
PRINT "To select a cursor in the cursor main menu, simply"
PRINT "read the on-screen instructions and press the number"
PRINT "that corresponds with the action. (It's just like"
PRINT "one of those recorded messages on the telephone.)"
ELSEIF choice$ = "8" THEN
PRINT "Free Net is very complex, you'll have to access"
PRINT "it and follow the on-screen instructions. :)"
ELSEIF choice$ = "9" THEN
PRINT "You must have had to come across a game like this!"
PRINT "It's the traditional game of guess the number,"
PRINT "which is between 1 and 100. Just type your guess"
PRINT "and press enter and you'll be told if it was too"
PRINT "low, high or if you got the number."
ELSEIF choice$ = "10" THEN
mainmenu
END IF
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
LOOP
END SUB

SUB mainmenu
SCREEN 13
CLS
LINE (220, 70)-(210, 60), 10, B
LINE (212, 62)-(212, 64), 15
LINE (215, 63)-(216, 63), 15
LINE (216, 63)-(216, 65), 15
LINE (216, 65)-(215, 65), 15
LINE (215, 65)-(215, 67), 15
LINE (215, 67)-(216, 67), 15
LINE (211, 66)-(212, 66), 15
LINE (213, 66)-(213, 69), 15
LINE (213, 68)-(211, 68), 15
LINE (211, 68)-(211, 66), 15
LINE (218, 62)-(219, 62), 15
LINE (219, 62)-(219, 66), 15
LINE (217, 68)-(217, 69), 15
LINE (219, 68)-(219, 69), 15
LINE (215, 61)-(214, 61), 15
LINE (210, 72)-(207, 72), 5
LINE (207, 72)-(207, 76), 5
LINE (207, 76)-(210, 76), 5
LINE (210, 76)-(210, 74), 5
LINE (210, 74)-(209, 74), 5
LINE (213, 72)-(213, 76), 5
LINE (213, 76)-(216, 76), 5
LINE (216, 76)-(216, 72), 5
LINE (218, 72)-(218, 76), 5
LINE (218, 76)-(220, 76), 5
LINE (220, 74)-(218, 74), 5
LINE (218, 72)-(220, 72), 5
LINE (222, 72)-(224, 72), 5
LINE (222, 72)-(222, 74), 5
LINE (222, 74)-(224, 74), 5
LINE (224, 74)-(224, 76), 5
LINE (224, 76)-(222, 76), 5
LINE (226, 76)-(228, 76), 5
LINE (228, 76)-(228, 74), 5
LINE (228, 74)-(226, 74), 5
LINE (226, 74)-(226, 72), 5
LINE (226, 72)-(228, 72), 5
'guess21060
LINE (110, 5)-(110, 10), 38
LINE (110, 10)-(115, 5), 38
LINE (115, 5)-(120, 10), 38
LINE (120, 10)-(120, 5), 38
LINE (125, 5)-(125, 10), 38
LINE (130, 10)-(130, 5), 38
LINE (130, 5)-(135, 10), 38
LINE (135, 10)-(135, 5), 38
LINE (140, 5)-(140, 10), 38
LINE (140, 10)-(145, 8), 38
LINE (145, 8)-(140, 5), 38
LINE (150, 5)-(150, 10), 38
LINE (150, 10)-(155, 10), 38
LINE (155, 10)-(155, 5), 38
LINE (155, 5)-(150, 5), 38
LINE (160, 5)-(160, 10), 38
LINE (160, 10)-(165, 5), 38
LINE (165, 5)-(170, 10), 38
LINE (170, 10)-(170, 5), 38
LINE (175, 5)-(180, 5), 38
LINE (175, 5)-(175, 8), 38
LINE (175, 8)-(180, 8), 38
LINE (180, 8)-(180, 10), 38
LINE (180, 10)-(175, 10), 38
LINE (125, 15)-(135, 15), 38
LINE (135, 15)-(145, 25), 38
LINE (145, 25)-(155, 15), 38
LINE (155, 15)-(165, 15), 38
LINE (165, 15)-(145, 25), 38
LINE (145, 25)-(125, 15), 38
LINE (145, 25)-(135, 35), 38
LINE (135, 35)-(125, 35), 38
LINE (125, 35)-(145, 25), 38
LINE (145, 25)-(155, 35), 38
LINE (155, 35)-(165, 35), 38
LINE (165, 35)-(145, 25), 38
PAINT (134, 33), 39, 38
PAINT (134, 18), 39, 38
PAINT (154, 18), 39, 38
PAINT (154, 33), 39, 38
LINE (116, 38)-(116, 44), 10
LINE (116, 44)-(116, 38), 10
LINE (116, 38)-(120, 42), 10
LINE (120, 42)-(124, 38), 10
LINE (124, 38)-(124, 44), 10
LINE (127, 44)-(127, 38), 10
LINE (127, 38)-(132, 38), 10
LINE (132, 38)-(132, 44), 10
LINE (132, 41)-(128, 41), 10
LINE (135, 44)-(135, 38), 10
LINE (138, 38)-(138, 44), 10
LINE (138, 38)-(143, 44), 10
LINE (143, 44)-(143, 38), 10
LINE (150, 44)-(150, 38), 10
LINE (150, 38)-(154, 41), 10
LINE (154, 41)-(157, 38), 10
LINE (157, 38)-(157, 44), 10
LINE (160, 44)-(160, 38), 10
LINE (160, 38)-(164, 38), 10
LINE (161, 41)-(162, 41), 10
LINE (161, 44)-(164, 44), 10
LINE (167, 44)-(167, 38), 10
LINE (167, 38)-(172, 44), 10
LINE (172, 44)-(172, 38), 10
LINE (175, 38)-(175, 44), 10
LINE (175, 44)-(179, 44), 10
LINE (179, 44)-(179, 38), 10
LINE (182, 47)-(112, 47), 9
'calc3060
LINE (40, 70)-(30, 60), 10, B
LINE (38, 61)-(32, 69), 12, B
PAINT (34, 63), 4, 12
LINE (34, 63)-(36, 63), 0
PSET (33, 65), 0
PSET (33, 67), 0
PSET (33, 68), 0
PSET (34, 65), 0
PSET (36, 65), 0
PSET (37, 66), 0
PSET (35, 66), 0
PSET (34, 67), 0
PSET (36, 67), 0
PSET (37, 68), 0
PSET (35, 68), 0
PSET (33, 68), 0
LINE (22, 72)-(22, 76), 5
LINE (22, 72)-(24, 72), 5
LINE (22, 76)-(24, 76), 5
LINE (26, 76)-(26, 72), 5
LINE (26, 72)-(29, 72), 5
LINE (29, 72)-(29, 76), 5
LINE (29, 74)-(26, 74), 5
LINE (31, 72)-(31, 76), 5
LINE (31, 76)-(33, 76), 5
LINE (35, 76)-(35, 72), 5
LINE (35, 72)-(37, 72), 5
LINE (36, 76)-(37, 76), 5
LINE (39, 72)-(39, 76), 5
LINE (39, 76)-(41, 76), 5
LINE (41, 76)-(41, 72), 5
LINE (43, 72)-(43, 76), 5
LINE (43, 76)-(46, 76), 5
LINE (48, 76)-(48, 72), 5
LINE (48, 72)-(51, 72), 5
LINE (51, 72)-(51, 76), 5
LINE (51, 74)-(49, 74), 5
LINE (53, 72)-(56, 72), 5
LINE (54, 72)-(54, 76), 5
LINE (58, 76)-(58, 72), 5
LINE (58, 72)-(61, 72), 5
LINE (61, 72)-(61, 76), 5
LINE (61, 76)-(58, 76), 5
LINE (63, 76)-(63, 72), 5
LINE (63, 72)-(66, 72), 5
LINE (66, 72)-(66, 75), 5
LINE (66, 75)-(63, 75), 5
LINE (63, 75)-(66, 76), 5
PSET (64, 76), 0
PSET (65, 76), 0
PSET (66, 74), 0
PSET (66, 75), 0
PSET (66, 74), 5
'help3090
LINE (40, 100)-(30, 90), 10, B
LINE (33, 93)-(34, 92), 14
LINE (34, 92)-(38, 92), 14
LINE (38, 92)-(38, 95), 14
LINE (38, 95)-(35, 95), 14
LINE (35, 95)-(35, 96), 14
PSET (35, 98), 14
LINE (25, 102)-(25, 106), 5
LINE (25, 104)-(27, 104), 5
LINE (27, 102)-(27, 106), 5
LINE (29, 106)-(29, 102), 5
LINE (29, 102)-(32, 102), 5
LINE (32, 104)-(29, 104), 5
LINE (29, 106)-(32, 106), 5
LINE (34, 106)-(34, 102), 5
LINE (34, 106)-(37, 106), 5
LINE (39, 106)-(39, 103), 5
LINE (39, 102)-(41, 102), 5
LINE (41, 102)-(41, 104), 5
LINE (41, 104)-(39, 104), 5
LINE (40, 130)-(30, 120), 10, B
LINE (37, 122)-(32, 129), 6, B
PAINT (34, 124), 6, 6
PSET (36, 125), 14
LINE (28, 132)-(30, 132), 5
LINE (31, 132)-(31, 136), 5
LINE (31, 136)-(28, 136), 5
LINE (28, 136)-(28, 132), 5
LINE (30, 135)-(32, 137), 5
LINE (34, 132)-(34, 136), 5
LINE (34, 136)-(37, 136), 5
LINE (37, 136)-(37, 132), 5
LINE (39, 132)-(39, 136), 5
LINE (41, 132)-(44, 132), 5
LINE (42, 132)-(42, 136), 5
'quitwas30120
'pong9060
LINE (100, 70)-(90, 60), 10, B
LINE (90, 74)-(88, 72), 5, B
LINE (88, 76)-(88, 74), 5, B
LINE (94, 72)-(92, 76), 5, B
LINE (96, 76)-(96, 72), 5, B
LINE (96, 72)-(99, 76), 5
LINE (99, 76)-(99, 72), 5
LINE (104, 72)-(101, 72), 5
LINE (101, 72)-(101, 76), 5
LINE (101, 76)-(104, 76), 5
LINE (104, 76)-(104, 74), 5
LINE (104, 74)-(103, 74), 5
LINE (92, 63)-(92, 66), 15
LINE (98, 65)-(98, 68), 15
LINE (95, 63)-(95, 63), 15
'cursor9090
LINE (100, 100)-(90, 90), 10, B
LINE (88, 102)-(86, 102), 5, B
LINE (86, 106)-(86, 102), 5, B
LINE (88, 106)-(86, 106), 5, B
LINE (90, 106)-(90, 102), 5, B
LINE (92, 106)-(90, 106), 5, B
LINE (92, 102)-(92, 106), 5, B
LINE (94, 106)-(94, 102), 5, B
LINE (96, 104)-(94, 102), 5, B
LINE (94, 104)-(96, 106), 5
LINE (100, 102)-(98, 102), 5
LINE (98, 102)-(98, 104), 5
LINE (98, 104)-(100, 104), 5
LINE (100, 104)-(100, 106), 5
LINE (100, 106)-(98, 106), 5
LINE (104, 102)-(102, 106), 5, B
LINE (106, 102)-(106, 106), 5
LINE (106, 104)-(108, 106), 5
LINE (108, 104)-(106, 102), 5, B
LINE (93, 93)-(97, 95), 15
LINE (93, 93)-(93, 97), 15
LINE (93, 97)-(97, 95), 15
LINE (95, 95)-(94, 95), 15
LINE (95, 96)-(97, 98), 15
'net90120
LINE (100, 130)-(90, 120), 10, B
LINE (94, 122)-(96, 122), 1
LINE (93, 123)-(97, 123), 1
LINE (92, 124)-(98, 124), 1
LINE (92, 125)-(98, 125), 1
LINE (97, 126)-(93, 126), 1
LINE (94, 127)-(96, 127), 1
LINE (94, 123)-(96, 123), 2
LINE (94, 124)-(96, 124), 2
LINE (94, 125)-(95, 126), 2
LINE (95, 126)-(96, 126), 2
LINE (96, 127)-(95, 127), 2
LINE (85, 132)-(85, 136), 5
LINE (85, 132)-(87, 132), 5
LINE (86, 134)-(86, 134), 5
LINE (89, 132)-(89, 136), 5
LINE (91, 134)-(89, 132), 5, B
LINE (89, 134)-(91, 136), 5
LINE (93, 136)-(93, 132), 5
LINE (93, 132)-(95, 132), 5
LINE (94, 134)-(94, 134), 5
LINE (94, 136)-(95, 136), 5
LINE (97, 136)-(97, 132), 5
LINE (97, 132)-(99, 132), 5
LINE (98, 134)-(98, 134), 5
LINE (98, 136)-(100, 136), 5
LINE (103, 136)-(103, 132), 5
LINE (103, 132)-(106, 136), 5
LINE (106, 136)-(106, 132), 5
LINE (108, 132)-(108, 136), 5
LINE (108, 132)-(110, 132), 5
LINE (110, 132)-(109, 132), 5
LINE (109, 134)-(109, 134), 5
LINE (109, 136)-(110, 136), 5
LINE (112, 132)-(114, 132), 5
LINE (113, 132)-(113, 136), 5
'aboutx15060
LINE (160, 70)-(150, 60), 10, B
LINE (152, 62)-(157, 67), 38
LINE (152, 67)-(157, 62), 38
LINE (153, 62)-(153, 62), 38
LINE (153, 67)-(153, 67), 38
LINE (157, 67)-(157, 67), 38
LINE (156, 62)-(156, 62), 38
LINE (156, 67)-(156, 67), 38
LINE (145, 72)-(145, 76), 5
LINE (145, 72)-(147, 72), 5
LINE (147, 72)-(147, 76), 5
LINE (147, 74)-(145, 74), 5
LINE (151, 74)-(149, 72), 5, B
LINE (152, 76)-(149, 74), 5, B
LINE (156, 76)-(154, 72), 5, B
LINE (158, 76)-(158, 72), 5, B
LINE (160, 76)-(158, 76), 5, B
LINE (160, 72)-(160, 76), 5, B
LINE (164, 72)-(162, 72), 5, B
LINE (163, 76)-(163, 72), 5, B
'screen15090
LINE (160, 100)-(150, 90), 10, B
PSET (153, 93), 15
PSET (154, 96), 15
PSET (153, 97), 15
PSET (155, 97), 15
PSET (157, 98), 15
PSET (158, 96), 15
PSET (155, 95), 15
PSET (158, 93), 15
PSET (156, 92), 15
PSET (155, 93), 15
PSET (157, 94), 15
PSET (152, 95), 15
LINE (134, 102)-(136, 102), 5
LINE (134, 102)-(134, 104), 5
LINE (134, 104)-(136, 104), 5
LINE (136, 104)-(136, 106), 5
LINE (136, 106)-(134, 106), 5
LINE (138, 106)-(138, 102), 5
LINE (138, 102)-(140, 102), 5
LINE (140, 106)-(138, 106), 5
LINE (142, 106)-(142, 102), 5
LINE (144, 104)-(142, 102), 5, B
LINE (142, 104)-(144, 106), 5
LINE (146, 106)-(146, 102), 5
LINE (146, 102)-(149, 102), 5
LINE (148, 104)-(147, 104), 5
LINE (147, 106)-(149, 106), 5
LINE (151, 106)-(151, 102), 5
LINE (151, 102)-(153, 102), 5
LINE (153, 104)-(151, 104), 5
LINE (151, 106)-(153, 106), 5
LINE (155, 106)-(155, 102), 5
LINE (155, 102)-(158, 106), 5
LINE (158, 106)-(158, 102), 5
LINE (147, 108)-(149, 108), 5
LINE (147, 108)-(147, 110), 5
LINE (147, 110)-(149, 110), 5
LINE (149, 110)-(149, 112), 5
LINE (149, 112)-(147, 112), 5
LINE (151, 112)-(151, 108), 5
LINE (151, 108)-(153, 108), 5
LINE (153, 108)-(153, 112), 5
LINE (153, 110)-(151, 110), 5
LINE (155, 108)-(156, 112), 5
LINE (156, 112)-(158, 108), 5
LINE (160, 108)-(160, 112), 5
LINE (160, 112)-(162, 112), 5
LINE (162, 110)-(160, 110), 5
LINE (160, 108)-(162, 108), 5
LINE (164, 108)-(164, 112), 5
LINE (164, 110)-(166, 112), 5
LINE (166, 110)-(164, 108), 5, B
'
'os-x150120
LINE (160, 130)-(150, 120), 10, B
PSET (153, 129), 15
PSET (152, 128), 15
PSET (151, 127), 15
PSET (152, 126), 15
PSET (154, 128), 15
PSET (154, 125), 15
PSET (156, 127), 15
PSET (156, 124), 15
PSET (157, 124), 15
PSET (158, 124), 15
PSET (157, 121), 15
PSET (158, 121), 15
PSET (159, 121), 15
PSET (159, 122), 15
LINE (149, 136)-(147, 132), 5, B
LINE (153, 132)-(151, 132), 5, B
LINE (151, 134)-(151, 132), 5, B
LINE (153, 134)-(151, 134), 5, B
LINE (153, 136)-(153, 134), 5, B
LINE (153, 136)-(153, 136), 5, B
LINE (153, 136)-(151, 136), 5, B
LINE (157, 134)-(155, 134), 5, B
LINE (159, 136)-(163, 132), 5
LINE (159, 132)-(163, 136), 5
DO
IF cursort = 1 THEN
PUT (l, u), cursorpic, XOR
ELSEIF cursort = 2 THEN
PUT (l - 5, u - 5), cursorpic2, XOR
END IF
move$ = CHR$(0)
DO
move$ = INKEY$
LOOP UNTIL move$ > CHR$(0)
IF cursort = 1 THEN
PUT (l, u), cursorpic, XOR
ELSEIF cursort = 2 THEN
PUT (l - 5, u - 5), cursorpic2, XOR
END IF
IF move$ = CHR$(0) + "K" AND l > 0 THEN
l = l - 5
ELSEIF move$ = CHR$(0) + "M" AND l 0 THEN
u = u - 5
ELSEIF move$ = CHR$(0) + "P" AND u ", move$
IF thedrive = 2 THEN INPUT "A:>", move$
IF move$ = "a:" OR move$ = "A:" THEN
thedrive = 2
ELSEIF move$ = "c:" OR move$ = "C:" THEN
thedrive = 1
ELSEIF move$ = "help" THEN
PRINT "OSX is amazingly easy, it's basically DOS."
PRINT "Type 'reference' to get all the extra commands."
PRINT "That's all you really need to know."
ELSEIF move$ = "reference" THEN
PRINT "Reference Thing:"
PRINT
PRINT "help - the help screen"
PRINT "reference - this screen"
PRINT "color 1 - changes text color (numbers 1-15 can be used)"
PRINT "quit - leave OSX and go to main menu"
ELSEIF move$ = "color 1" THEN
COLOR 1
ELSEIF move$ = "color 2" THEN
COLOR 2
ELSEIF move$ = "color 3" THEN
COLOR 3
ELSEIF move$ = "color 4" THEN
COLOR 4
ELSEIF move$ = "color 5" THEN
COLOR 5
ELSEIF move$ = "color 6" THEN
COLOR 6
ELSEIF move$ = "color 7" THEN
COLOR 7
ELSEIF move$ = "color 8" THEN
COLOR 8
ELSEIF move$ = "color 9" THEN
COLOR 9
ELSEIF move$ = "color 10" THEN
COLOR 10
ELSEIF move$ = "color 11" THEN
COLOR 11
ELSEIF move$ = "color 12" THEN
COLOR 12
ELSEIF move$ = "color 13" THEN
COLOR 13
ELSEIF move$ = "color 14" THEN
COLOR 14
ELSEIF move$ = "color 15" THEN
COLOR 15
ELSE
SHELL move$
END IF
LOOP UNTIL move$ = "quit"
mainmenu
END SUB

SUB ponggame
CLS
LOCATE 8, 8: COLOR 15: PRINT "Hackman Software Pong"
SLEEP 2
yourscore = 0
enemyscore = 0
DO
CLS
PRINT "Scores:"
PRINT
PRINT "You have: "; yourscore; " wins."
PRINT "The computer has: "; enemyscore; " wins."
PRINT
PRINT "First to five wins!"
SLEEP 5
RANDOMIZE TIMER
way = INT(RND * 2)
IF way = 0 THEN bdirection = 2
IF way = 1 THEN bdirection = 4
bl = 160
bu = 110
u = 50
eu = 50
CLS
DO
IF yourscore = 1 THEN
LINE (100, 50)-(100, 150), 15
LINE (90, 150)-(110, 150), 15
LINE (100, 50)-(90, 60), 15
ELSEIF yourscore = 0 THEN
LINE (80, 50)-(120, 150), 15, B
ELSEIF yourscore = 2 THEN
LINE (80, 50)-(120, 100), 15
LINE (120, 100)-(80, 150), 15
LINE (80, 150)-(120, 150), 15
ELSEIF yourscore = 3 THEN
LINE (80, 50)-(120, 75), 15
LINE (120, 75)-(80, 100), 15
LINE (80, 100)-(120, 125), 15
LINE (120, 125)-(80, 150), 15
ELSEIF yourscore = 4 THEN
LINE (80, 50)-(80, 100), 15
LINE (80, 100)-(120, 100), 15
LINE (120, 50)-(120, 150), 15
END IF
IF enemyscore = 1 THEN
LINE (200, 50)-(200, 150), 15
LINE (190, 150)-(210, 150), 15
LINE (200, 50)-(190, 60), 15
ELSEIF enemyscore = 0 THEN
LINE (180, 50)-(220, 150), 15, B
ELSEIF enemyscore = 2 THEN
LINE (180, 50)-(220, 100), 15
LINE (220, 100)-(180, 150), 15
LINE (180, 150)-(220, 150), 15
ELSEIF enemyscore = 3 THEN
LINE (180, 50)-(220, 75), 15
LINE (220, 75)-(180, 100), 15
LINE (180, 100)-(220, 125), 15
LINE (220, 125)-(180, 150), 15
ELSEIF enemyscore = 4 THEN
LINE (180, 50)-(180, 100), 15
LINE (180, 100)-(220, 100), 15
LINE (220, 50)-(220, 150), 15
END IF
LINE (0, 0)-(319, 199), 15, B
LINE (160, 0)-(160, 200), 15
LINE (0, u)-(10, u + 50), 15, BF
LINE (310, eu)-(320, eu + 50), 15, BF
LINE (bl, bu)-(bl + 10, bu + 10), 15, BF
SOUND 0, 1
move$ = INKEY$
IF move$ = CHR$(0) + "H" AND u > 0 THEN
LINE (0, u)-(10, u + 50), 0, BF
u = u - 10
ELSEIF move$ = CHR$(0) + "P" AND u = u AND bu = eu AND bu = u AND bu = eu AND bu eu + 20 THEN
eu = eu + 10
ELSEIF bu CHR$(0)
u = 65
mainmenu
END SUB

SUB screensaver
SCREEN 13
CLS
FOR i = 1 TO 200
l(i) = -10
NEXT i

CLS

DO
PRINT "Enter number of stars. Maximum= 100."
INPUT stars
LOOP UNTIL stars 319 OR u(i) 200 THEN
l(i) = 160
u(i) = 100
udir(i) = INT(RND * 40) - 20
udir(i) = udir(i) / 10
ldir(i) = INT(RND * 40) - 20
ldir(i) = ldir(i) / 10
cl(i) = INT(RND * 3)
IF cl(i) = 0 THEN cl(i) = 7
IF cl(i) = 1 THEN cl(i) = 8
IF cl(i) = 2 THEN cl(i) = 15
END IF
l(i) = l(i) + ldir(i)
u(i) = u(i) + udir(i)
PSET (l(i), u(i)), cl(i)
udir(i) = udir(i) + udir(i) / 5
ldir(i) = ldir(i) + ldir(i) / 5
NEXT i
IF init > 0 THEN init = init - 1
LOOP UNTIL INKEY$ ""
CLS
mainmenu

END SUB

Passion Flower Reduces Stress :$

I was watching a television show today and found something interesting. You know that wild purple flower that grows wild in your back yard? Look inside of it and it has a cross? Do you want to know why it's called a "passion" flower? It's because of Christ and his purple robe he carried. According to Dr. Reginald Cherry on TBN the passion flower is supposed to reduce stress! :) I know that they really smell wonderful and they are very beautiful flowers that i love very much to begin with. If you would like to know more about the stress reducing power of passionflower go to drcherry.org

Shiny Happy People Laughing

This is a really lmao song that was on fairenheit 9-11 this is about the equivelent of barney and the tenacity of the pope... .get a life fat guy!

Artist: R.E.M. Lyrics
Song: Shiny Happy People Lyrics

Shiny happy people laughing

Meet me in the crowd
People people
Throw your love around
Love me love me
Take it into town
Happy happy
Put it in the ground
Where the flowers grow
Gold and silver shine

Shiny happy people holding hands
Shiny happy people laughing

Everyone around love them, love them
Put it in your hands
Take it take it
There?s no time to cry
Happy happy
Put it in your heart
Where tomorrow shines
Gold and silver shine

Shiny happy people holding hands
Shiny happy people laughing

painting

I want to make my own greeting cards this year but i have no idea what designs to use. I know that they are going to be handpainted, maybe i will use a lake design. I will bring you on futher details of my exciting greeting cards

starting yer day

It's nothing better than getting in the morning facing the news that you have seen on television. I am talking about the good noews things that are getting better. The euro being higher than the american dollar bothers me because i am afraid that our value as we speak is going down hill.
It's nice to see good bargains at the stores but doesn't it make our economy look as we are going into the stages of being a third world country? I am sure things will pick up as soon as the economy heals and everything is settled in iraq. I just hope things will get better instead of worse and i am pretty sure they will if there's a way.

Everyone is a FrEaK!

You know what? I am tired of everyone going around labeling someone as something when they don't see the label that's written on their head. So I am here right now to say that everyone is a freak in some respect.
I noticed someone had changed the other day, I noticed that you know they have spiffed up, looked nice, lost weight fixed up and sure they still had their faults but they looked good, and it looked to me like they were trying to change their lives and become a better person. Then someone comes up beside the other and says "look at that ugly cow. I don't think she has had a date in over 10 years" and they both laughed.
I am sorry, but for everyone everywhere that's had someone talk behind their back. To everyone who has ever said anything about anyone else.. eh you are a freak. You are too blind to look behind yourself in the mirror and see that large @$$ that you are toting around and point and laugh about another person, guess what? there's another person pointing at your @$$ laughing their heads off. So before you think about going out pointing at someone and making a comment, look behind yourself in the mirror, then compliment a person who is trying instead of insulting them behind your back.