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
|
