Sorry your browser is not supported!

WIDTH 40
'This example requires a color graphics adapter.
    SCREEN 2
    CIRCLE (320, 100), 200
    CIRCLE STEP(0, 0), 100
PRINT "Cosmic's Adventure"
PRINT "Created By:"
PRINT "Anthony Maniscalco"
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT "Hello!"
PRINT "Please enter your name."
INPUT a$
INPUT "Password: ", pas$
IF pas$ = "abcba" THEN BEEP
IF pas$ = "abcba" THEN GOTO 66
IF pas$ = "zxsaq" THEN BEEP
IF pas$ = "zxsaq" THEN CLS : GOTO 87
IF pas$ = "wesdx" THEN BEEP: CLS : GOTO 102
IF pas$ = "poiuy" THEN BEEP: CLS : GOTO 107
IF pas$ = "rtfgv" THEN BEEP: CLS : GOTO 109
IF pas$ = "trfvg" THEN BEEP: CLS : GOTO 111
CLS
PRINT "     Welcome to Cosmic's Adventure!  In this game, your goal is to save three of"
PRINT "your marsian friends located on three galactic planets. To play the game, at the"
PRINT "command prompt, you must input the name of an object around you and from there"
PRINT "the computer will automatically know what to do.  Good luck, you'll need it!"
PRINT
PRINT "*   *"
PRINT "  *"
PRINT "\___/"
PRINT
PRINT "COSMIC"
PRINT
INPUT "Please press enter. ", b$
CLS
d = 0
PRINT "     You are in a large office with a brown desk covered with heavy piles of"
PRINT "paper. Behind the large stacks is Mr. Star sitting erect in his luxurious chair."
10 INPUT b$
IF b$ = "desk" THEN PRINT "When Mr. Star is not looking, you open a desk drawer and take a"
IF b$ = "desk" THEN PRINT "pencil.": d = 0 + 1
IF b$ = "paper" THEN PRINT "They are records of UFO liscense grants."
IF b$ = "piles of paper" THEN PRINT "They are records of UFO liscense grants."
IF b$ = "piles" THEN PRINT "They are records of UFO liscense grants."
IF b$ = "chair" THEN PRINT "This luxurious chair made of pure gold is an antique that has"
IF b$ = "chair" THEN PRINT "been in the family for several generations."
IF b$ = "Mr. Star" THEN GOTO 11
GOTO 10
11 PRINT "Mr. Star asks if you are ready for you UFO test.  If you pass, you will receive"
PRINT "your UFO liscense.  Are you ready?"
INPUT c$
IF c$ = "no" THEN GOTO 10
12 PRINT "Mr. Star: In order to receive your UFO liscense you must pass a simple test."
INPUT "Please press enter. ", e$
CLS
g = 0
PRINT "UFO LISCENSE TEST"
PRINT "Please identify the three following constellations."
PRINT
PRINT "*"
PRINT "  *"
PRINT "    *"
PRINT "     *   *"
PRINT "     *   *"
INPUT "The name of this constellation is ", h$
IF h$ = "Ursa Minor" THEN g = g + 1
IF h$ = "Little Dipper" THEN g = g + 1
PRINT
PRINT " *"
PRINT "*  *  *"
PRINT "     *"
PRINT "       *"
PRINT
INPUT "The name of this constellation is ", f$
IF f$ = "Cygnus" THEN g = g + 1
PRINT
PRINT "  *"
PRINT "*   *"
PRINT "*   *"
PRINT
INPUT "The name of this constellation is ", i$
IF i$ = "Cepheus" THEN g = g + 1
IF g = 2 THEN GOTO 13
IF g = 3 THEN GOTO 13
PRINT "Sorry... but you failed the UFO test.  Next time, at least try to get two"
PRINT "correct.  Would you like to retake the test now?"
INPUT j$
IF j$ = "yes" THEN GOTO 12
END
13 PRINT "Mr. Star: Congratulations, "; a$; "! You passed the UFO liscense test."
INPUT "Please press enter. ", k$
CLS
PRINT "      You are now located outside Mr. Star's office.  Caught up in"
PRINT "happiness, you dance around your extroidinary new UFO, while Mr. Star"
PRINT "shares with you a warm smile as he looks out the clear window."
PRINT
14 INPUT l$
IF l$ = "office" THEN PRINT "On the wall of the office is a colorful advertisement"
IF l$ = "office" THEN PRINT "for radio station, Star 101.1."
IF l$ = "Mr. Star" THEN PRINT "He shares with you a warm smile."
IF l$ = "window" THEN PRINT "The window is halfway open allowing a gentle breeze"
IF l$ = "window" THEN PRINT "to enter the office."
IF l$ = "UFO" THEN PRINT "Would you like to enter the UFO?"
IF l$ = "UFO" THEN INPUT m$
IF m$ = "yes" THEN GOTO 15
GOTO 14
15 CLS : PRINT "     You enter the elaborate UFO and are amazed at your surroundings."
PRINT "There are four passenger seats, a giganic crystal windowshield, and a complex"
PRINT "operating device for the machine.  Wow!"
PRINT
o = 0
p = 0
16 INPUT n$
IF n$ = "seats" THEN PRINT "On the cushion of one, you find a shiny silver quarter.": o = 0 + 1
IF n$ = "cushion" THEN PRINT "As you clumsily look under the cushion you find a small"
IF n$ = "cushion" THEN PRINT "palm size radio.": p = 0 + 1
IF n$ = "operating device" THEN PRINT "You attempt to fly the UFO, but for some reason"
IF n$ = "operating machine" THEN PRINT "there is a technical problem with the ship."
IF n$ = "windowshield" THEN PRINT "The windowshield was hand made by Mr. Nebula."
IF n$ = "radio" THEN GOTO 17
GOTO 16
17 IF p = 1 THEN GOTO 18
PRINT "Unfortunately, you are not equipped with this possession."
GOTO 16
18 CLS
PRINT "Please input the radio station.  For example, you'd type 88.8 and tune"
PRINT "into that station."
PRINT
PRINT "------------------------------------------------------------------"
PRINT "80|||||||||||85||||||||||90||||||||||95||||||||||100|||||||||||105"
PRINT "------------------------------------------------------------------"
PRINT
INPUT q
IF q = 101.1 THEN GOTO 19
PRINT "Sorry, but the radio station you inputed is not valid."
INPUT "Please press enter. ", anthony$
GOTO 18
19 PRINT "Hello, you are listening to Star 101.1.  I am your D.J., Mr. Mercury."
PRINT "This is brand-new music from The Three Satellites new album titled,"
PRINT "Out Of This World.  Please press enter to hear this cosmic song."
INPUT r$
CLS
    'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
PRINT "How did you like that?  Well fans, right now we will pause for a brief"
PRINT "commercial break, put when we return, we'll pump up the jam!"
INPUT "Please press enter. ", s$
CLS
PRINT "Did you encounter a technical difficulty with your UFO again? Don't fret,"
PRINT "call UFO-HELP. (Note: You must correctly punch in the letters corresponding"
PRINT "numbers when you dial.) Mr. Venus says if he can't repair your UFO, there"
PRINT "was never anything wrong with it."
INPUT "Please press enter. ", t$
CLS
PRINT "     You decide to look for a nearby telephone outside the ship.  You"
PRINT "are now located outside a convenience store with a large sign attached"
PRINT "to the wall and a trashcan and bench to the side of the building."
PRINT
v = 0
20 INPUT u$
IF u$ = "sign" THEN PRINT "It is another advertisement for Star 101.1."
IF u$ = "wall" THEN PRINT "In a crevice in the wall you find a second quarter.": v = 0 + 1
IF u$ = "trashcan" THEN PRINT "Don't even think about it! There is nothing of value inside."
IF u$ = "bench" THEN PRINT "An elderly woman is sitting on the long bench."
IF u$ = "woman" THEN PRINT "She shares a friendly hello with you and smiles."
IF u$ = "store" THEN GOTO 21
GOTO 20
21 CLS : PRINT "     You enter the convenience store filled with many isles of galactic"
PRINT "foods and home remedies.  Behind the counter is Mr. Galaxy smiling."
PRINT
22 INPUT w$
IF w$ = "foods" THEN PRINT "Mmm... Astro foods!"
IF w$ = "home remedies" THEN PRINT "Wow! Nebular chap sticks!"
IF w$ = "Mr. Galaxy" THEN PRINT "Looking for a telephone?  There is a pay phone"
IF w$ = "Mr. Galaxy" THEN PRINT "located near the exit.": GOTO 23
GOTO 22
23 PRINT "You walk toward the pay phone and attempt to dial a number."
PRINT "Please don't include any hyphens or spaces in your number!"
INPUT "Please input your desired number: ", x
IF x = 8364357 THEN GOTO 24
PRINT "This number is not valid.": GOTO 23
24 PRINT "This phone call will cost $.50."
IF o = 1 THEN GOTO 25
PRINT "Sorry, you do not have enough money.": GOTO 23
25 IF v = 1 THEN GOTO 26
PRINT "Sorry, you do not have enough money.": GOTO 23
26 PRINT "The number is being transmitted. Please press any key on the following"
PRINT "2 screens to end the transmission and attempt to get connected to the line."
INPUT "Please press enter. ", y$
CLS
    'This example requires a color graphics adapter.
    SCREEN 1
    DIM Box%(1 TO 200)
    x1% = 0: x2% = 10: y1% = 0: y2% = 10
    LINE (x1%, y1%)-(x2%, y2%), 2, BF
    GET (x1%, y1%)-(x2%, y2%), Box%
    DO
        PUT (x1%, y1%), Box%, XOR
        x1% = RND * 300
        y1% = RND * 180
        PUT (x1%, y1%), Box%
    LOOP WHILE INKEY$ = ""
CLS
    'This example requires a color graphics adapter.
    PALETTE 0, 1
    SCREEN 1
    FOR i% = 0 TO 3: a%(i%) = i%: NEXT i%
    LINE (138, 35)-(288, 165), 3, BF
    LINE (20, 10)-(160, 100), 2, BF
    DO
        FOR i% = 0 TO 3
            a%(i%) = (a%(i%) + 1) MOD 16
        NEXT i%
        PALETTE USING a%(0)
    LOOP WHILE INKEY$ = ""
CLS
WIDTH 40
PRINT "You have been connected to Mr. Venus's"
PRINT "UFO Helpline. After explaining"
PRINT "your problem, he replies, 'I will be to your assistance within seconds'."
INPUT "Please press enter. ", z$
CLS
PRINT "As you exit the convenience store, you"
PRINT "spot Mr. Venus working busily on your"
PRINT "UFO. He replies it'll only take another few seconds."
INPUT "Please press enter. ", aa$
CLS
PRINT "    -------------------------"
PRINT "  /    o     o     o     o   \"
PRINT " /____________________________\"
PRINT " \                            / "
PRINT "  \__________________________/  "
PRINT
PRINT "Your true adventure now begins"
PRINT "as you travel to the first of"
PRINT "three extroidinary planets."
PRINT "Good luck! Hopefully, you will"
PRINT "rescue your friends."
INPUT bb$
CLS
PRINT "The game from this point on takes a"
PRINT "new turn as you depart the UFO, and"
PRINT "land on the first of three foreign"
PRINT "planets.  Other commands to know in"
PRINT "the next three levels are N to"
PRINT "progress to the next screen, and P"
PRINT "to proceed to the previous screen."
INPUT "Please press enter. ", dd$
CLS
COLOR 5
40 PRINT "     As you exit the UFO you see a"
PRINT "bizarre house with a group of singers"
PRINT "singing excellent in front of the house."
PRINT "They perform beside a black mailbox and"
PRINT "say a heart warming hello."
PRINT
41 INPUT ee$
IF ee$ = "house" THEN GOTO 43
IF ee$ = "singers" THEN GOTO 42
IF ee$ = "mailbox" THEN PRINT "The mailbox is empty."
GOTO 41
42 PRINT "The group of singers are The Three"
PRINT "Satellites. They'd like to play their"
PRINT "new song for you."
INPUT "Please press enter. ", ff$
CLS
    scale$ = "BAGFEDC"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
PRINT "Not bad..."
GOTO 41
43 PRINT "You enter the bizarre house."
INPUT "Please press enter. ", gg$
CLS
SCREEN 2
44 PRINT "     As you enter the house, you spot a beatiful room with a dinette set"
PRINT "in the middle surrounded by elegant chairs.  Above the set is a sparkling"
PRINT "chandelier shedding light on the room.  To your side is a lovely flower"
PRINT "sprouting out a pocelian vase.  On the wall is a crystal clock ticking"
PRINT "away."
PRINT
45 INPUT hh$
IF hh$ = "N" THEN GOTO 46
IF hh$ = "P" THEN GOTO 40
IF hh$ = "set" THEN PRINT "The table was furnished by Mr. Mars."
IF hh$ = "chairs" THEN PRINT "Under one chair, you find a notepad.": kk = 0 + 1
IF hh$ = "chandelier" THEN PRINT "You are blinded by its radiant rays."
IF hh$ = "flower" THEN PRINT "This flower would attract any young woman."
IF hh$ = "vase" THEN PRINT "You see your reflection in the glass vase."
IF hh$ = "clock" THEN PRINT "Tick, tock, Tick, tock."
IF hh$ = "plates" THEN IF jj = 1 THEN PRINT "You set up the plates on the table.": tt = 0 + 1
IF hh$ = "silverware" THEN IF ll = 1 THEN PRINT "You set up the silverware neatly on the table.": uu = 0 + 1
IF hh$ = "glasses" THEN IF rr = 1 THEN PRINT "Above each plate, you place a glass.": vv = vv + 1
IF hh$ = "cooked roast" THEN GOTO 53
GOTO 45
53 IF tt = 1 THEN PRINT "You place half the roast in one plate, half in another.": ww = 0 + 1
GOTO 45
46 IF tt = 1 THEN GOTO 54
GOTO 55
54 IF uu = 1 THEN GOTO 56
GOTO 55
56 IF vv = 1 THEN GOTO 57
GOTO 55
57 IF ww = 1 THEN GOTO 58
CLS
55 PRINT "     You are now located in the kitchen filled with many cupboards stacked"
PRINT "on the long marble countertop.  The refrigerator is to the side of the"
PRINT "room up against the wall.  On the opposite side of the room is an oven."
PRINT
47 INPUT ii$
IF ii$ = "N" THEN GOTO 49
IF ii$ = "P" THEN GOTO 44
IF ii$ = "cupboards" THEN PRINT "You find a set of plates in the cupboard.": jj = 0 + 1
IF ii$ = "countertop" THEN PRINT "On the countertop, you find a set of silverware.": ll = 0 + 1
IF ii$ = "refrigerator" THEN PRINT "You find a fresh roast inside the refrigerator.": mm = 0 + 1
IF ii$ = "oven" THEN GOTO 48
GOTO 47
48 INPUT "What would you like to use the oven with? ", nn$
IF nn$ = "roast" THEN PRINT "You cook the roast, letting off a tantalizing aroma.": oo = o + 1
IF nn$ = "roast" THEN PRINT "The roast is now known as the cooked roast."
GOTO 47
49 PRINT "     You enter the next room, and discover a small alien siiting on"
PRINT "his bed crying.  His bed is decorated with blue wallpaper and a night"
PRINT "stand with a picture leaning up against the lamp."
PRINT
50 INPUT pp$
IF pp$ = "N" THEN GOTO 51
IF pp$ = "P" THEN GOTO 46
IF pp$ = "alien" THEN PRINT "Hello, my name is Neptune. (Weep!) I am sad for I"
IF pp$ = "alien" THEN PRINT "cannot win the heart of Mars, the alien of my"
IF pp$ = "alien" THEN PRINT "dreams. Please help me..."
IF pp$ = "nightstand" THEN PRINT "In one of the drawers you find a pair of scissors.": qq = 0 + 1
IF pp$ = "picture" THEN PRINT "It is a picture of Mars, Neptune's love."
IF pp$ = "bed" THEN PRINT "Under his bed, you find a set of glasses.": rr = 0 + 1
IF pp$ = "lamp" THEN PRINT "A picture of Neptune's face appears on the lamp."
GOTO 50
51 PRINT "     As you enter Mar's room, you see her combing her long fragile hair"
PRINT "on her bed.  You are surrounded by a long pink wall, several mirrors, and"
PRINT "bureau stretching across the room."
PRINT
52 INPUT SS$
IF SS$ = "P" THEN GOTO 49
IF SS$ = "hair" THEN PRINT "What beatiful brown hair she has."
IF SS$ = "mirrors" THEN PRINT "You look at your reflection in the mirror."
IF SS$ = "bureau" THEN PRINT "Inside one of its drawers you find a picture of"
IF SS$ = "bureau" THEN PRINT "Neptune, which gave the impression it seemed to be hidden."
IF SS$ = "Mars" THEN PRINT "With a quiet voice, Mars says, 'If only Neptune was romantic.'"
IF SS$ = "invitation" THEN GOTO 65
GOTO 52
CLS
58 PRINT "Neptune: Thank you, "; a$; ", you have prepared a dinner for Mars and I."
PRINT "However, I have nothing to offer her. (Note: You are located in the dining"
PRINT "room at the present time.)"
PRINT
60 INPUT xx$
IF xx$ = "scissors" THEN IF qq = 1 GOTO 59
IF xx$ = "flower" THEN PRINT "They would attract any young woman."
GOTO 60
59 INPUT "Use with? ", yy$
IF yy$ = "flower" THEN PRINT "Using your scissors, you cut the flower."
PRINT "Neptune: Wow! What a beatiful flower. Attached to it, I'd like to"
PRINT "write a note to her."
PRINT
62 INPUT zz$
IF zz$ = "notepad" THEN GOTO 61
GOTO 62
61 IF kk = 1 THEN GOTO 63
GOTO 62
63 INPUT "Use with? ", aaa$
IF aaa$ = "pencil" THEN GOTO 64
GOTO 63
64 PRINT "Neptune: Now that you have your notepad and pencil, you translate"
PRINT "Neptune's message onto the paper and attach it to the flower."
PRINT "Please give this invitation to dinner to Mars.": GOTO 51
65 PRINT "Oh my, I have been invited to dinner by Neptune. How romantic!"
INPUT "Please press enter. ", bbb$
CLS
PRINT "Mars puts on a beatiful dress and joins Neptune for dinner."
PRINT "Neptune: Thanks for all of your help! At the start of the game enter"
PRINT "'ABCBA' and you will continue from this point on. See ya!"
END
66 CLS : PRINT "     You are now located on the second floor of the grotesque house."
PRINT "You are located in an entertainment room with a small alien dancing around"
PRINT "the room.  You are amazed at the wide screen television and the gigantic"
PRINT "cassette recorder."
PRINT
67 INPUT ccc$
IF ccc$ = "alien" THEN PRINT STRING$(48, 14)
IF ccc$ = "alien" THEN PRINT "I love to sing and dance and would like to make a"
IF ccc$ = "alien" THEN PRINT "out of my enjoyable hobby."
IF ccc$ = "alien" THEN PRINT STRING$(48, 14)
IF ccc$ = "television" THEN PRINT "You turn on the television and see a commercial"
IF ccc$ = "television" THEN PRINT "for Star 101.1."
IF ccc$ = "recorder" THEN PRINT "Too bad you are not equipped with a tape to pop in."
IF ccc$ = "N" THEN GOTO 68
IF ccc$ = "P" THEN PRINT "     In the dining room you find Neptune and Mars enjoying"
IF ccc$ = "P" THEN PRINT "a romantic evening with The Three Satellites singing melodious"
IF ccc$ = "P" THEN PRINT "love songs to them."
IF ccc$ = "P" THEN GOTO 80
IF ccc$ = "record" THEN IF mmm = 1 THEN PRINT "You record the Three Satellites new song"
IF ccc$ = "record" THEN PRINT "which is called and known by 'Out Of This World', the title track!": ooo = 0 + 1
GOTO 67
80 PRINT
81 INPUT nnn$
IF nnn$ = "Neptune" THEN PRINT "He thanks you again for all your help."
IF nnn$ = "Mars" THEN PRINT "She seems to be enjoying Neptune's company."
IF nnn$ = "The Three Satellites" THEN PRINT "How lovely they play music!"
IF nnn$ = "tape" THEN IF mmm = 1 THEN PRINT "You show the tape to the Three Satellites.": GOTO 85
IF nnn$ = "N" THEN GOTO 66
GOTO 81
68 PRINT "     As you walk into the art room, you find a tall easel, hundreds of"
PRINT "bottles of colorful paints, long, thin paint brushes and a palette."
PRINT
69 INPUT ddd$
IF ddd$ = "easel" THEN GOTO 75
IF ddd$ = "paints" THEN PRINT "You pick up the bottles of paint.": eee = 0 + 1
IF ddd$ = "paint brushes" THEN PRINT "You take with you the many paintbrushes.": fff = 0 + 1
IF ddd$ = "palette" THEN PRINT "You take the wooden palette.": ggg = 0 + 1
IF ddd$ = "N" THEN GOTO 70
IF hhh$ = "P" THEN GOTO 66
GOTO 69
75 IF eee = 1 THEN GOTO 76
PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
76 IF fff = 1 THEN GOTO 77
PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
77 IF ggg = 1 THEN GOTO 78
PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
78 IF jjj = 1 THEN GOTO 79
PRINT "You do not have all of the required equipment to use the easel.": GOTO 69
79 INPUT "What would you like to paint a picture of? ", kkk$
IF kkk$ = "electric guitar" THEN PRINT "You paint the picture and it is known as contest entry.": lll = 0 + 1: GOTO 69
PRINT "This picture is not valid.": GOTO 69
70 PRINT "     You walk into the sweaty gym filled with many healthy aliens working"
PRINT "out on the equipment.  Soft mats are lined up in rows on the glossy floor."
PRINT
71 INPUT hhh$
IF hhh$ = "equipment" THEN PRINT "Wow! What a work out - weights, running machines,"
IF hhh$ = "equipment" THEN PRINT "jumpropes, stretching, WHEW!"
IF hhh$ = "mats" THEN PRINT "Under a mat you find a smock.": jjj = 0 + 1
IF hhh$ = "floor" THEN PRINT "The floor appears glossy because of the reflection of"
IF hhh$ = "floor" THEN PRINT "bright lights."
IF hhh$ = "aliens" THEN PRINT STRING$(51, 1)
IF hhh$ = "aliens" THEN PRINT "Wow! This is a workout! Why don't you get in shape?"
IF hhh$ = "aliens" THEN PRINT "You have a long adventure ahead of you."
IF hhh$ = "aliens" THEN PRINT STRING$(51, 1)
IF hhh$ = "N" THEN GOTO 72
IF hhh$ = "P" THEN GOTO 68
GOTO 71
72 PRINT "     You are now located in the D.J. booth for Star 101.1.  The D.J.,"
PRINT "Mr. Mercury is spinning records behind a booth filled with many albums."
PRINT "Posters hang on his wall bringing color to the room."
PRINT
73 INPUT iii$
IF iii$ = "Mr. Mercury" THEN PRINT "He is upset because he cannot get his hands"
IF iii$ = "Mr. Mercury" THEN PRINT "on the brand-new single by The Three Satellites."
IF iii$ = "albums" THEN PRINT "Pop, adult contempary, country, modern rock, Wow!"
IF iii$ = "posters" THEN PRINT "On is written in an alien language:": GOTO 74
IF iii$ = "P" THEN GOTO 70
IF iii$ = "contest entry" THEN mmm = 1 + 0
IF iii$ = "contest entry" THEN PRINT "What a fabulous picture of an electric guitar!"
IF iii$ = "contest entry" THEN PRINT "For entering, I will give you this blank cassette.  Thanks!"
IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "Oh my, I am so happy.  You got a hold"
IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "The Three Satellites new single. I will now"
IF iii$ = "Out Of This World" THEN IF ooo = 1 THEN PRINT "give you the password to the third floor, zxsaq.": GOTO 86
GOTO 73
74 PRINT "24, 12, 13, 7, 22, 8, 7!"
PRINT "11, 26, 18, 13, 7   26   11, 18, 24, 7, 6, 9, 22   12, 21   26, 13"
PRINT "22, 15, 22, 24, 7, 9, 18, 24   20, 6, 18, 7, 26, 9   7, 12   26, 23, 23"
PRINT "7, 12   14, 2   24, 12, 15, 15, 22, 24, 7, 18, 12, 13!"
GOTO 73
85 PRINT "They reply, 'Oh, you want to record our singing, we assume.  No"
PRINT "problem we will follow you.  Just use the command record."
INPUT "Please press enter. ", qqq$
GOTO 66
86 PRINT "Press enter to hear 'Out Of This World' with me, Mr. Mercury says."
INPUT ppp$
CLS
    FOR i% = 440 TO 1000 STEP 5
    SOUND i%, i% / 1000
    NEXT i%
    'Play scale in 7 different octaves
    scale$ = "CCAACCAA"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
        NEXT i%
    FOR i% = 1000 TO 440 STEP 5
    SOUND i%, i% / 1000
    NEXT i%
    END
87 PRINT "     You are now located on the third and final floor of the strange house."
PRINT "The room you are currently in is pitch dark. To get around the room, use"
PRINT "the commands (N)orth, (S)outh, (E)ast, (W)est."
PRINT
88 INPUT a$
INPUT b$
INPUT c$
INPUT d$
INPUT e$
f = 0
IF a$ = "N" THEN f = 0 + 1
IF b$ = "W" THEN f = f + 1
IF c$ = "S" THEN f = f + 1
IF d$ = "E" THEN f = f + 1
IF e$ = "S" THEN f = f + 1
IF f = 5 THEN GOTO 89
PRINT "You did not find your way to a lamp in the darkness. Try again.": GOTO 88
89 PRINT "     You discover a lamp and nervously turn it on.  You are in a hallway"
PRINT "and see three golden doors. Which one would you like to enter?"
PRINT
PRINT " __________              __________                __________"
PRINT "|          |            |          |              |          |"
PRINT "|          |            |          |              |          |"
PRINT "|       o  |            |        o |              |        o |"
PRINT "|          |            |          |              |          |"
PRINT "|__________|            |__________|              |__________|"
PRINT
g = INT(RND * 3) + 1
INPUT h
IF h = g THEN GOTO 90
PRINT "You swing open the door and a deadly frightening skeleton walk out and..."
PRINT "I can't look...": END
90 PRINT "You swing open the door."
    scale$ = "CDEFGABCBAGFEDC"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
CLS
PRINT "   Locked in a small cage towards the back of the room is your marsian friend"
PRINT "Jupiter.  He jumps for joy when he sees your delightful smile again."
PRINT
91 INPUT j$
IF j$ = "cage" THEN PRINT "Unfortunately,  the cage is locked."
IF j$ = "Jupiter" THEN GOTO 92
IF j$ = "N" THEN GOTO 93
GOTO 91
92 PRINT "Jupiter: Oh woe is me. I have been locked in this cage for ever so long."
PRINT "Please save me... You will confront Mean Meteor, the evil alien who"
PRINT "locked me in this cage.  He holds the key to my freedom. Take these three"
PRINT "weapons with you: a zapper, blaster, and crasher. Good Luck!"
GOTO 91
93 PRINT "     As you enter the next door, you confront Mean Meteor, himself!"
PRINT "To destroy the evil alien, use the commands (Z)ap to use your zapper,"
PRINT "(B)last to activate your blaster, and (C)rash to use your crasher."
PRINT "  \   /"
PRINT "    *"
PRINT " /-----\"
PRINT "Mean Meteor"
PRINT
k = 0
l = 0
INPUT m$
IF m$ = "Z" THEN PRINT "You zap the Mean Meteor.": k = 0 + 1: GOTO 94
PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = 0 + 1
94 INPUT n$
IF n$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: GOTO 95
PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1
95 INPUT o$
IF o$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101: GOTO 96
PRINT "The Mean Meteor uses his beamer on you.": l = l + 1: IF l = 3 THEN GOTO 100
96 INPUT p$
IF p$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101: GOTO 97
PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 100
97 INPUT q$
IF q$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 101
PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 100
100 PRINT "Your health meter reads 0.  You have perished.": END
101 Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
    PLAY Music$
    WHILE PLAY(0) > 5: WEND
    PRINT "You have defeated the Mean Meteor!"
INPUT "Please press enter. ", r$
CLS
PRINT "     You take the key from the perished Mean Meteor's cloak pocket and"
PRINT "unlock Jupiter's cave."
PRINT "Oh thank you, "; a$; "! You have saved me from the evil hands of"
PRINT "the Mean Meteor!  You reply, 'It's all in a day's work!' You may have"
PRINT "saved Jupiter, but you must also rescue Saturn and Pluto, for the wrath"
PRINT "of the Mean Meteor lives on...  Use the password 'WESDX' to travel to your"
PRINT "second quest.": END
102 PRINT "      As you walk down the twisting staircase, and exit the house,"
PRINT "passing many beatiful gardens surrounding a large pool, you enter the UFO"
PRINT "with Jupiter.  You are now traveling to the House of Trivia, the second"
PRINT "level.  The questions are derived from Parker Bros.'s Trivial Pursuit Family"
PRINT "Edition board game."
INPUT "Please press enter. ", b$
CLS
PRINT "     After quite a long trip, you land on the second of three planets."
INPUT "You see the large House of Trivia.  Press enter to enter the building. ", c$
CLS
PRINT "     You are located on the first floor of the House of Trivia.  Please"
PRINT "do not be discouraged if the questions are too challenging.  It is absolutely"
PRINT "fine if you research the topics or ask other family members of friends."
PRINT "Here is the first set of questions:"
105 e = 0
INPUT "PP: What does the Amazon River empty into? ", f$
IF f$ = "The Atlantic Ocean" THEN e = 0 + 1
PRINT "ENT: What animated Disney classic features the musical number, Pink"
INPUT "Elephants on Parade. ", g$
IF g$ = "Dumbo" THEN e = e + 1
PRINT "HIS: What country was Texas part of when soldiers shouted 'Remember the"
INPUT "Alamo'? ", h$
IF h$ = "Mexico" THEN e = e + 1
INPUT "SN: What's the red-hot rock that flows out of a volcano called? ", i$
IF i$ = "lava" THEN e = e + 1
INPUT "SL: What country serves up Teriyaki McBurgers? ", j$
IF j$ = "Japan" THEN e = e + 1
PRINT "WC: How many women entered a 1973 Canadian military forces moustache-growing"
INPUT "zero (0), 3 or 12? ", k
IF k = 12 THEN e = e + 1
PRINT "You have answered "; e; " questions correctly."
IF e = 6 THEN GOTO 106
PRINT "Sorry, you did not correctly answer all of the questions. You are welcome"
PRINT "to try again. Remember not to get discouraged.": END
106 PRINT "Congratulations! You answered all six questions correctly!"
    'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
PRINT "Your new password is 'poiuy'.": END
107 c = 0: CLS : PRINT "     You are now on the second floor of the House of Trivia. Here"
PRINT "is the second set of questions:"
INPUT "PP: What Roman general said: 'I came, I saw, I conquered'? ", b$
IF b$ = "Julius Caesar" THEN c = c + 1
PRINT "ENT: What Sesame Street character has a toothpaste named after him?"
INPUT d$
IF d$ = "Big Bird" THEN c = c + 1
PRINT "HIS: What country's centavos were vending machine slug rejectors to detect?"
INPUT e$
IF e$ = "Mexico's" THEN c = c + 1
PRINT "SN: What was first exploded 34 miles north of Santa Fe on July 16, 1945?"
INPUT f$
IF f$ = "an atomic bomb" THEN c = c + 1
INPUT "SL: What's the most poular U.S. cuisine in the U.S? ", g$
IF g$ = "Italian" THEN c = c + 1
PRINT "WC: What dessert did waitresses once refer as to 'nervous pudding'?"
INPUT h$
IF h$ = "jell-o" THEN c = c + 1
PRINT "You have correctly answered "; c; " questions."
IF c = 6 THEN GOTO 108
PRINT "Sorry, but you did not answer all of the preceding questions correctly. Try again!": END
    'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
108 PRINT "Your new password is 'rtfgv'.": END
109 CLS : PRINT "     You are on the third and final floor of the House of Trivia. You"
PRINT "receive your third card:"
b = 0
PRINT "PP: What blond singer invited Oakland Athletic Jose Canseco to her private"
INPUT "apartment in 1991? ", a$
IF a$ = "Madonna" THEN e = e + 1
INPUT "ENT: Who are the heroes in a half shell? ", c$
IF c$ = "The Teenage Mutant Ninja Turtles" THEN e = e + 1
PRINT "HIS: What war's beginning had Americans fighting under flags reading"
PRINT "'An Appeal to Heaven,' 'Don't Tread on Me', and 'Liberty or Death'?"
INPUT d$
IF d$ = "The Revolutionary War's" THEN e = e + 1
INPUT "SN: What color are the leaves of a tea plant? ", f$
IF f$ = "green" THEN e = e + 1
PRINT "SL: What beverage's 1892 ads dubbed it 'The Ideal Brain Tonic...For Headache"
INPUT "& Exhaustion...At Soda Fountains? ", g$
IF g$ = "Coca Cola's" THEN e = e + 1
INPUT "What does Ichabod Crane do for a living? ", h$
IF h$ = "He's a schoolteacher" THEN e = e + 1
PRINT "You have correctly answered "; e; " questions."
IF e = 6 THEN GOTO 110
PRINT "Sorry, but you did not answer all of the preceding questions correctly. Try again!": END
110 PRINT "Congratulations!  You have answered all 18 questions in the House"
PRINT "of Trivia correctly.  Suddenly, the House of Trivia crumbles to pieces,"
PRINT "revealing Saturn.  He jumps for joy, for you have successfully rescued him."
PRINT "Prepare now to travel to the House of Puzzles to save Pluto and destroy"
PRINT "the Mean Meteor for good!"
'Play scale in 7 different octaves
    scale$ = "CDEFGAB"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
PRINT "Your new password is 'trfgv'.": END
111 PRINT "Jupiter, Saturn, and you exit the UFO and confront the House of Puzzles."
PRINT "You enter the house and confront the first of four puzzles."
PRINT
PRINT "___________________________________________________"
PRINT "|        |         |         |                    |"
PRINT "|        |         |         |                    |"
PRINT "|        |         |         |                    |"
PRINT "|        ------------------------------------------"
PRINT "|        |         |         |         |          |"
PRINT "|        |         |         |         |          |"
PRINT "|        |         |         |         |          |"
PRINT "----------------------------------------          |"
PRINT "|                  |         |         |          |"
PRINT "|                  |         |         |          |"
PRINT "|                  |         |         |          |"
PRINT "---------------------------------------------------"
INPUT "Input the total number of squares found in the preceding figure. ", a
IF a = 13 THEN GOTO 112
PRINT "Sorry, your answer is incorrect. Please try again.": END
112 PRINT "You are correct! There are 13 squares in the preceding figure."
PRINT "Here is the next puzzle:"
PRINT
PRINT "Common Combos - Listed below are groups of three unrelated words.  Find a"
PRINT "word that either precedes or follows all the words in each group."
PRINT
PRINT "1. cable  squad  side          __________"
PRINT "2. snow  horse  soft           __________"
PRINT "3. boat  hold  keeper          __________"
PRINT "4. cat  sword  flying          __________"
PRINT "5. stone  hole  note           __________"
PRINT "6. light  dream  break         __________"
PRINT "7. under  hand  band           __________"
PRINT "8. cup  mortar  over           __________"
INPUT "1 - ", b$
INPUT "2 - ", c$
INPUT "3 - ", d$
INPUT "4 - ", e$
INPUT "5 - ", f$
INPUT "6 - ", g$
INPUT "7 - ", h$
INPUT "8 - ", i$
j = 0
IF b$ = "car" THEN j = j + 1
IF c$ = "shoe" THEN j = j + 1
IF d$ = "house" THEN j = j + 1
IF e$ = "fish" THEN j = j + 1
IF f$ = "key" THEN j = j + 1
IF g$ = "day" THEN j = j + 1
IF h$ = "stand" THEN j = j + 1
IF i$ = "board" THEN j = j + 1
PRINT "You answered "; j; " common combos correctly."
IF j = 8 THEN GOTO 113
PRINT "Sorry, you did not answer all 8 questions correctly. Try again.": END
113 PRINT "Congratulations!  You answered all 8 common combos correctly."
PRINT "Here is the next puzzle:"
PRINT
PRINT "Sqares - Each of the Squares contains an 8-letter word.  It can be found"
PRINT "by starting at one of the letters and reading either clockwise or counter-"
PRINT "clockwise."
PRINT
PRINT "1. O N Q     2. R O C    3. G U A"
PRINT "   I   U        B   H       N   G"
PRINT "   T S E        E R U       A L E"
PRINT
PRINT "4. O N E     5. A D S    6. M B E   7. C M E"
PRINT "   T   K        O   T       E   R      I   C"
PRINT "   S Y E        R R E       M E R      N A H"
PRINT
INPUT "1 - ", k$
INPUT "2 - ", l$
INPUT "3 - ", m$
INPUT "4 - ", n$
INPUT "5 - ", o$
INPUT "6 - ", p$
INPUT "7 - ", q$
r = 0
IF k$ = "question" THEN r = r + 1
IF l$ = "brochure" THEN r = r + 1
IF m$ = "language" THEN r = r + 1
IF n$ = "keystone" THEN r = r + 1
IF o$ = "roadster" THEN r = r + 1
IF p$ = "remember" THEN r = r + 1
IF q$ = "mechanic" THEN r = r + 1
PRINT "You correctly answered "; r; " questions."
IF r = 7 THEN GOTO 198
PRINT "Sorry, you did not correctly answer all of the preceding questions. Try again.": END
198 PRINT "You have correctly answered each square.  You arrive at a large door."
PRINT "Behind the door is the Mean Meteor.  To enter the door, you must find the"
PRINT "password:"
PRINT "1. PRINT THE WORDS LIGHTS OUT."
PRINT "2. INSERT ARE BETWEEN THE S AND THE O."
PRINT "3. CHANGE THE FIFTH VOWEL FROM THE LEFT TO A P."
PRINT "4. EXCHANGE THE SIXTH CONSONANT FROM THE LEFT AND THE FOURTH VOWEL FROM THE"
PRINT "RIGHT."
PRINT "5. REPLACE THE FOURTH CONSONANT TO THE RIGHT WITH AN E."
PRINT "6. PLACE THE SECOND E FROM THE LEFT IN FRONT OF THE E."
PRINT "7. MAKE THE S AN N."
PRINT "8. CHANGE THE I TO AN L."
PRINT "9. EXCHANGE THE FIRST AND THE LAST LETTERS."
INPUT "PLEASE PRESS ENTER. ", SS$
CLS
PRINT "10. EXCHANGE THE FOURTH VOWEL FROM THE LEFT AND THE SIXTH CONSONANT FROM THE"
PRINT "RIGHT."
PRINT "11. INSERT A D BETWEEN THE EIGHT AND NINTH LETTERS FROM THE LEFT."
PRINT "12. PLACE AN M BEFORE THE P."
PRINT "13. CHANGE THE G TO AN A."
PRINT "14. REPLACE THE LAST LETTER WITH AN S."
PRINT "15. CHANGE THE NINTH CONSONANT FROM THE RIGHT TO A B."
PRINT "16. INSERT AN H BETWEEN THE SIXTH AND SEVENTH LETTERS FROM THE LEFT."
PRINT "17. CHANGE THE FIRST H FROM THE LEFT TO A K."
INPUT "The password is ", t$
IF t$ = "brokenheadlamps" THEN GOTO 199
PRINT "Sorry, you have entered the incorrect password!": END
199 PRINT "You have entered the correct password and open the door.  This is"
PRINT "your last battle with the Mean Meteor."
INPUT "Please press enter. ", u$
CLS
293 PRINT "     As you enter the door, you confront Mean Meteor, himself!"
PRINT "To destroy the evil alien, use the commands (Z)ap to use your zapper,"
PRINT "(B)last to activate your blaster, and (C)rash to use your crasher."
PRINT "  \   /"
PRINT "    *"
PRINT " /-----\"
PRINT "Mean Meteor"
PRINT
k = 0
l = 0
INPUT aa$
IF aa$ = "Z" THEN PRINT "You zap the Mean Meteor.": k = 0 + 1: GOTO 294
PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = 0 + 1
294 INPUT bb$
IF bb$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: GOTO 295
PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1
295 INPUT cc$
IF cc$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201: GOTO 296
PRINT "The Mean Meteor uses his beamer on you.": l = l + 1: IF l = 3 THEN GOTO 200
296 INPUT dd$
IF dd$ = "C" THEN PRINT "You crash the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201: GOTO 297
PRINT "The Mean Meteor shoots his lazer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 200
297 INPUT ee$
IF ff$ = "B" THEN PRINT "You blast the Mean Meteor.": k = k + 1: IF k = 3 THEN GOTO 201
PRINT "The Mean Meteor shoots his beamer and your health weakens.": l = l + 1: IF l = 3 THEN GOTO 200
200 PRINT "Your health meter reads 0.  You have perished.": END
201 Music$ = "MBT180o2P2P8L8GGGL2E-P24P8L8FFFL2D"
    PLAY Music$
    WHILE PLAY(0) > 5: WEND
    PRINT "You have defeated the Mean Meteor!"
INPUT "Please press enter. ", r$
CLS
SCREEN 0
COLOR 4
PRINT "    The Mean Meteor suddenly vanishes into the brisk air and you release"
PRINT "Pluto from his cage.  You have rescued Jupiter, Saturn, and Pluto, and you"
PRINT "can now sleep well, knowing you have brought peace to your three friends!"
PRINT
PRINT "Staff: "
PRINT "Created By: Anthony Maniscalco"
PRINT "Special Thanks To:"
PRINT "Trivial Pursuit Family Edition"
PRINT "Pennypress Fun and Easy Variety Puzzles (First Issue)"
PRINT "Salvator and Gregory Gagliard - Couldn't succeed without you!"
PRINT "Characters (in order of appearance):"
PRINT "Cosmic (you)          Mr. Star          Mr. Mercury"
PRINT "The Three Satellites  Mr. Venus         Mr. Galaxy"
PRINT "Neptune               Mars              Dancing Marsian"
PRINT "Work-out aliens       Dead skeleton     Mean Meteor"
PRINT "Jupiter               Saturn            Pluto"
    'Play scale in 7 different octaves
    scale$ = "BACGFDEDFGCAB"
    PLAY "L16"
    FOR i% = 0 TO 6
        PLAY "O" + STR$(i%)
        PLAY "X" + VARPTR$(scale$)
    NEXT i%
INPUT "Please press enter. ", cosmic$
CLS
COLOR 2
PRINT "Prologue:"
PRINT
PRINT "     Cosmic, Jupiter, Saturn, and Pluto live happily on their home planet,"
PRINT "Jibip.  All three will leave in peace and free from fear of the Meam Meteor."
PRINT "As for Mr. Star and Mr. Galaxy, they continue on with their jobs, Mr. Star"
PRINT "granting liscenses and Mr. Galaxy selling food.  As for Mr. Mercury, he"
PRINT "hasn't stopped playing the Three Satellites new song yet!  The Three"
PRINT "Satellites are currently on a tour to all of the foreign galaxies.  They"
PRINT "added the marsian dancing in the entertainment room to their group."
PRINT "Mr. Venus continues to repair broken UFO, but he has a new commercial"
PRINT "with him singing!  Watch Out!  Neptune and Mars were just married and had"
PRINT "a baby boy, Boom.  As for the dead skeleton, he continues to haunt those"
PRINT "who enter his lair.  The work-out aliens are now running a gym of their own"
PRINT "where the Mean Meteor has enlisted to get in shape with his next bought"
PRINT "with you.  However, he's still screaming, for he can't turn off the"
PRINT "running machine."
INPUT "Please press enter. ", prologue$
CLS
PRINT "Thanks for playing!"
PRINT "January 18, 1993"
END









































    
















































                                                                  

1 TOM=131:M=40:S=40:W=5:A=10:P=25
10 KEY OFF:COLOR 14,4,4:CLS
20 PRINT"WELCOME TO ..."
30 PRINT:PRINT :PRINT :PRINT :PRINT
40 FOR TIM=1 TO 1000:NEXT TIM
50 PRINT"             THE CASTLE DEFENSE GAME OF SKILL!!!"
60 PRINT
70 PRINT "FIRST YOU WILL CHOSE WHERE YOUR ARCHERS WILL STAND."
80 PRINT "YOU HAVE";A;"ARCHERS AND MAY PLACE THEM EITHER ON THE ROOF TO SHOOT DOWN AT "
90 PRINT "INTRUDERS OR IN THE ENTRANCEWAY OR ON THE BALCONIES INSIDE THE CASTLE."
100 INPUT "HOW MANY WILL GO ON THE ROOF";AR
110 INPUT "HOW MANY WILL GO IN THE ENTRANCEWAY";AE
120 INPUT "HOW MANY WILL GO ON THE BALCONIES";AB
130 IF AB+AE+AR=A THEN 160
140 PRINT "YOUR ANSWERS MUST EQUAL ";A;"!!!"
150 GOTO 80
160 PRINT :PRINT "NOW THE WIZARDS, YOU HAVE";W;"OF THEM."
170 INPUT "HOW MANY ON THE ROOF";WR
180 INPUT "HOW MANY IN THE ENTRANCEWAY";WE
190 INPUT "HOW MANY ON THE BALCONIES";WB
200 IF WB+WE+WR=5 THEN 230
210 PRINT "YOUR ANSWERS MUST EQUAL ";W;"!!!"
220 GOTO 170
230 PRINT :PRINT "NOW YOUR MEN ARMED WITH A POLE ARM EACH, YOU HAVE ";P;"."
240 INPUT "HOW MANY IN THE MIDDLE OF THE CASTLE";PM
250 INPUT "HOW MANY ON THE ROOF";PR
260 INPUT "HOW MANY IN THE ENTRANCEWAY";PE
270 INPUT "HOW MANY ON THE BALCONIES";PB
280 IF PM+PR+PE+PB=P THEN 310
290 PRINT "YOUR ANSWERS HAVE TO TOTAL ";P;"!!!"
300 GOTO 240
310 PRINT :PRINT "NOW YOUR ";S;" SWORDSMEN."
320 INPUT "HOW MANY IN THE ENTRANCEWAY";SE
330 INPUT "HOW MANY SET FOR A FLANK ATTACK";SF
340 INPUT "HOW MANY ON BALCONIES";SB
350 INPUT "HOW MANY IN MIDDLE OF CASTLE";SM
360 IF SE+SF+SB+SM=S THEN 390
370 PRINT "YOUR ANSWERS MUST EQUAL ";S;"!!!"
380 GOTO 320
390 PRINT :PRINT "NOW YOUR MEN ARMED WITH SPIKED SHIELDS AND DAGGERS, YOU HAVE ";M;"."
400 INPUT "HOW MANY IN THE ENTRANCEWAY";ME
410 INPUT "HOW MANY SET FOR A FLANK ATTACK";MF
420 INPUT "HOW MANY ON BALCONIES";MB
430 INPUT "HOW MANY IN MIDDLE OF CASTLE";MM
440 IF ME+MF+MB+MM=M THEN 470
450 PRINT "YOUR ANSWERS MUST EQUAL ";M;"!!!"
460 GOTO 400
465 PRINT "THE ENEMIES ATTACK!!!"
470 LET TF=SF+MF:IF TF=0 THEN 520:IF TF>20 THEN 500
480 S=S-(SF-1):M=M-(MF-2)
490 GOTO 510
500 TOM=TOM-(TF-4):S=S-2:M=M-1:GOTO 520
510 TOM=TOM-(INT (TF/3))
520 LET TM=SM+MM+PM:IF TM>30 THEN 550
530 S=S-(SM-3):M=M-(MM-2):P=P-(PM-4)
540 TOM=TOM-(INT (TM/4)):GOTO 570
550 TOM=TOM-(TM-5)
570 CLS
710 LET TGM=M+A+W+S+P
720 IF TOM<TGM THEN 1000:IF TOM>TGM THEN 2000
730 PRINT "YOU TIED, TRY AGAIN"
735 FOR I=1 TO 5000:NEXT I
740 GOTO 1
1000 PRINT "YOU WIN!!! YOU FORCE THE OPPONENTS TO SURRENDER!!!"
1005 PRINT "THE SCORE WAS";TGM;"TO";TOM;"."
1010 END
2000 PRINT "YOU LOSE!!! THE OPPONENTS FORCE YOU TO SURRENDER!!!"
2005 PRINT "THE SCORE WAS";TOM;"TO";TGM;"."
2010 END

10 '*****************
20 '**     FLY     **
30 '*****************
40 '
50 CLEAR
60 GOSUB 1730
70 SCREEN 1
80 KEY OFF
90 CLS
100 COLOR 1,7
110 OPTION BASE 1
120 DEFINT X,Y
130 DIM FLY0(21),FLY1(21),FLY2(21)
140 DIM SWAT(714)
150 DIM X(3),Y(3)
160 DELAY=3000
170 '
180 ' Build the fly images
190 BODY$="c1u5be1d6r1u6bf1d5"
200 URWING$="c3bu3br1e3r1g3r1e3"
210 ULWING$="bg3bl7h3l1f3l1h3"
220 DRWING$="c3br6h3l1f3l1h3"
230 DLWING$="bl5g3l1e3l1g3"
240 DRAW BODY$+URWING$+ULWING$
250 DRAW "bd20br6"
260 DRAW BODY$+DRWING$+DLWING$
270 GET (131,91)-(152,103),FLY0
280 GET (151,91)-(172,103),FLY1
290 GET (151,105)-(172,117),FLY2
300 '
310 ' Build the swatter image
320 CLS
330 LINE (0,50)-(75,135),3,BF
340 FOR X = 5 TO 65 STEP 10
350 FOR Y = 55 TO 125 STEP 10
360 LINE (X,Y)-(X+5,Y+5),0,BF
370 NEXT Y,X
380 FOR Y = 106 TO 135
390 IF Y < 111 THEN CLR=3 ELSE CLR=0
400 DRAW "c=clr; bm0,=y; m+25,25 m+25,0 m+25,-25"
410 NEXT Y
420 LINE (30,136)-(45,199),1,BF
430 GET (0,50)-(75,199),SWAT
440 '
450 ' Draw the screen border
460 CLS
470 LINE(0,0)-(319,199),2,BF   
480 LINE(9,9)-(310,190),3,BF
490 '
500 ' Next fly appears
510 LINE(15,15)-(304,184),0,BF
520 FOR I = 1 TO 7+5*RND
530 FLY=INT(3*RND+1)
540 BUZZ=0
550 SOUND 47,0
560 SOUND 63+7*RND,999
570 WHILE BUZZ < DELAY
580 PUT(74*FLY,67),FLY1,PSET
590 PUT(74*FLY,67),FLY2,PSET
600 BUZZ=BUZZ+99
610 WEND
620 SOUND 47,0
630 PUT(74*FLY,67),FLY0,PSET
640 NEXT I
650 '
660 ' Swatters schwaapf into screen
670 FOR SWIPE = 1 TO 3
680 SOUND 999,1
690 PUT (87*SWIPE-51,35),SWAT
700 NEXT SWIPE
710 '
720 ' How well did you follow the fly?
730 K$ = INKEY$
740 IF K$ <> "" THEN 730
750 LOCATE 3,7
760 PRINT "CHECK WHICH SWATTER (1,2,3) ?
770 K$=INKEY$
780 IF K$ = "" THEN 770
790 IF K$<>"1" AND K$<>"2" AND K$<>"3" THEN 770
800 GUESS=VAL(K$)
810 LINE (87*GUESS-51,35)-(87*GUESS+24,184),0,BF
820 IF GUESS <> FLY THEN 1260
830 '
840 ' Another one bytes the dust
850 DELAY=.7370001*DELAY
860 GOSUB 1490
870 LOCATE 3,7
880 PRINT "GOT IT !!!";TAB(37);
890 SPOT=74*GUESS+9
900 FOR I = 0 TO 40
910 FREQ=99*SIN(2.1-I/17)^3+678
920 SOUND 99,0
930 SOUND FREQ,2
940 IF I MOD 3 = 0 THEN DRAW "bm=spot;,67"
950 CLR=INT(3*RND+1)
960 DX=INT(9*RND-4)
970 DY=INT(9*RND-4)
980 DRAW "c=clr; m+=dx;,=dy;"
990 NEXT I
1000 LINE (15,15)-(304,184),0,BF
1010 IF RANK=99 THEN 1620
1020 IF RANK <> 11 THEN 1100
1030 '
1040 ' You mad it past the first level of proficiency
1050 RANK=1
1060 LINE (15,15)-(304,184),0,BF
1070 LOCATE 12,4
1080 PRINT "YOU JUST MADE 'SENIOR DE-BUGGER'!!!"
1090 PLAY"MF O3 T200 L5 MS cde.cffcd.cde.cffcd..."
1100 IF RANK <> 12 THEN 1180
1110 '
1120 ' You made it past the second level of proficiency
1130 RANK=2
1140 LINE (15,15)-(304,184),0,BF
1150 LOCATE 12,4
1160 PRINT "WOW! WHAT A PROFESSIONAL! BUZZ ON!";
1170 PLAY"MF O3 T200 L5 MS ccg.ccg.efgedccffcd..."
1180 LINE (15,15)-(304,184),0,BF
1190 LOCATE 12,4
1200 PRINT "OH OH! HERE COMES A FASTER FLY ...";
1210 FOR I = 1 TO 999
1220 NEXT I
1230 GOTO 510
1240 '
1250 ' Missed it
1260 DELAY=1.47*DELAY
1270 IF DELAY > 3000 THEN DELAY=3000
1280 GOSUB 1490
1290 LINE (87*FLY-51,35)-(87*FLY+24,184),0,BF
1300 LOCATE 3,7
1310 PRINT "WHOOPS, IT GOT AWAY.";TAB(37);
1320 SOUND 57,47
1330 FOR I = 1 TO 100
1340 PUT (74*FLY,67),FLY1,PSET
1350 PUT (74*FLY,67),FLY2,PSET
1360 NEXT I
1370 LINE (15,15)-(304,184),0,BF
1380 LOCATE 12,7
1390 IF DELAY = 3000 THEN MISS$="HERE COMES ANOTHER ONE ..."
1400 IF DELAY < 3000 THEN MISS$="HERE COMES A SLOWER FLY ..."
1410 PRINT MISS$;
1420 IF SPEED < 9000 THEN RANK=1
1430 IF SPEED < 8000 THEN RANK=0
1440 FOR I = 1 TO 999
1450 NEXT I
1460 GOTO 510
1470 '
1480 ' Compute score and rank
1490 SPEED=(3000-DELAY)*10/3
1500 IF SPEED < 0 THEN SPEED=0
1510 LOCATE 25,5
1520 PRINT USING "SPEED = ####";SPEED;
1530 IF SPEED > RECORD THEN RECORD=SPEED
1540 LOCATE 25,22
1550 PRINT USING "RECORD = ####";RECORD;
1560 IF SPEED > 8000 AND RANK < 1 THEN RANK=11
1570 IF SPEED > 9000 AND RANK < 2 THEN RANK=12
1580 IF SPEED > 9999 THEN RANK=99
1590 RETURN
1600 '
1610 ' Best score possible!
1620 LOCATE 10,5
1630 PRINT "YOU DID IT!!! NO BUGS LEFT!!!"
1640 LOCATE 12,5
1650 PRINT "WELCOME TO THE S.W.A.T. TEAM !"
1660 PLAY "T169 L9 MS abcdefgacegecacgfedfdfdgdccedabbcaegfc"
1670 BGD = INT(RND * 6)
1680 PLT = INT(RND * 2)
1690 COLOR BGD,PLT
1700 GOTO 1660
1710 '
1720 ' Subroutine, reset random number sequence
1730 RANDOMIZE VAL(MID$(TIME$,4,2) +RIGHT$(TIME$,2))
1740 RETURN

12HPSET.BAS  : Show patterns using PSET in mode 12h
2BINARY$.BAS : Make a binary string from an integer value
320X240.BAS  : Doug Lusher's Modex for Qb4.5
320X240Q.BAS : Modex for Qbasic Interpreter or QB4.5
4LEVEL.BAS   : Graphic effect using PUT and GET
5LEAF.BAS    : Alex Wellerstein's graphic effect using DRAW
826_BIT.BAS  : Encode 8-bit characters in 6-bit text format
AH-CIRC.BAS  : Andy Hayes' circle graphic
ALEXSAVE.BAS : Alex Wellerstein's polygon screen effect
ALRMBOBS.BAS : Shade bobs with a really annoying sound effect
ANIMA5.BAS   : Tony Caves' graphic animation example program
ANIMA6.BAS   : An update to the Anima5.bas program
ANSIFUNC.BAS : Put .ANS data into a function returning a string
ANSISHOW.BAS : Display .ANS files without ANSI.SYS in QBasic/QB
ANSISUB.BAS  : A QB SUB to display .ANS file without ANSI.SYS
ARG!!.BAS    : A simple game for QB/QBasic in mode 13h
ARGS_EX.BAS  : Count command line arguments in QB
AURORA.BAS   : Changing text background by palette manipulation
AW_WOW.BAS   : Alex Wellerstein's bouncing logo graphic
A_WORM.BAS   : Text mode 'worm' eats characters - restore on exit
BALLS.BAS    : Dave Morrow's metallic spheres graphic in mode 13h
BAS2BAS.BAS  : Converts number from one numerical base to another
BASMENU.BAS  : QBasic menu launch QBasic programs  (reads directory)
BCOPY.BAS    : Opens file in BINARY and writes it elsewhere
BEACHBAL.BAS : Bouncing ball animation demo in mode 12h
BEEP!.BAS    : Several sound effects in QBasic
BEES.BAS     : Richard Dale's screen effect in mode 12h
BIGPALET.BAS : Rotating the palette in mode 13h to use more colors
BIGSTR.BAS   : Input routine to edit big string in limited space
BIN-LONG.BAS : Convert long integers to variable length binary strings
BIN_RAND.BAS : Using BINARY and RANDOM file modes with data bases
BIOSCRSR.BAS : Setting the DOS cursor for console output in QB
BLOSSOM.BAS  : Matthew Pulley's mode 13h graphic display
BOUNCEB.BAS  : Dave Morrow's bouncing balls graphic for mode 13h
BRESNHAM.BAS : Using Bresenham circle and line algorithms in mode 13h
BRITEBAK.BAS : Changing the palette to use other text background colors
BSV&LD.BAS   : Demonstrates using BSAVE and BLOAD for mode 13h screens
BUBBLES.BAS  : Mode 12h circles appear to come at you like blown bubbles
CABLEOFF.BAS : Mode 7h random static graphic effect (copycat cableout.bas)
CABLEOUT.BAS : Dave Morrow's mode 7h random static graphic effect
CARDPICS.BAS : Mode 12h demo to draw, save, load, and display data
CARDS.BAS    : Text mode deck creation, display, and shuffling demo
CARDSANY.BAS : Create and shuffle Poker and Tarot decks in QBasic
CGSCRLBR.BAS : Carl Gorringe's text mode scroll bar
CHNGE_EX.BAS : QBasic code to make change using least bills/coins
CHRCOUNT.BAS : Count occurrences of a given character in a file in QB
CHRSTRIP.BAS : Strips non-alphnumeric characters from a file
CHR_CODE.BAS : Shows the CHR$ codes of keys pressed
CIRC1.BAS    : Makes a smiley face using CIRCLE in mode 12h
CIRCBURN.BAS : A variation on Mike Castelli's mode 13h grapic display
CIRCFILL.BAS : Mode 12h graphic display with time and date display
CIRCSAV.BAS  : Variation on Circfill.bas with text screen restore
CLOTH.BAS    : Andrew K. Dart's mode 12h graphic display looks like fiber
CNVRTBAS.BAS : Demo of numerical base conversion in QBasic
COLRBAKC.BAS : James Broadbent's mode 12h message box display
COMMAS.BAS   : Putting commas into numerical strings in QBasic
COMPARRY.BAS : Comparing contents of arrays in QBasic
CONCAT.BAS   : Concatenates files divided using SPLITTER.BAS
CONFETTI.BAS : Mode 13h grapical display resembles falling confetti
CONSANSI.BAS : Read and display .ANS files using ANSI.SYS in QBasic
CURDIR.BAS   : Find current working directory using SHELL command
CYBPUNK.BAS  : Mode 13h moving text demonstration
DAYERROR.BAS : Returns day of week as DOS errorcode. QB .EXE only
DAYOWEEK.BAS : QBasic routines to figure day of week
DELAY_EX.BAS : Example of using BIOS clock for an elapse timer
DICE.BAS     : A simple dice game in QBasic
DICT.BAS     : Parses text file into 26 sorted files with no dupes
DICTNARY.BAS : Parse and merge sort text file into alpha sort word list
DIEFLY.BAS   : Aaron Tucker's mode 13h display reminds of an insect
DIRLIST.BAS  : Scrolling directory list for QB only
ELVIS.BAS    : Window input routine with password ability
ERASE_EX.BAS : Example of using ERASE with dynamic arrays
ERRCODES.BAS : QBasic SUB with error codes given as strings
ERRLEV.BAS   : Return errorlevel in standalone QB .EXE
EXE_APND.BAS : Binary append of data to an existing .EXE file
EXTPALET.BAS : Palette rotation in QBasic
EZBOBS.BAS   : Shade bobs in mode 13h
FADE-IO.BAS  : Fading text in and out using PALETTE
FADE13.BAS   : Using hardware palette access to fade a graphic display
FAKEDOS.BAS  : A fake DOS lists directories but won't run anything
FASTBOBS.BAS : Another mode 13h shade bobs implementation
FERN.BAS     : Rodney Taylor's fern leaf fractal display
FILEBAG.BAS  : Qbasic tool to bundle and separate files
FILECOMP.BAS : Compare the contents of two files in QBasic
FILETEST.BAS : Test existence of a file in QBasic using ON ERROR
FINDIGIT.BAS : SUBs to extract alpha and numeric data from strings
FINDTEXT.BAS : QBasic example of search a file for a text string
FIREWORK.BAS : Dave Morrow's mode 12h fireworks graphical display
FIRWRKS2.BAS : Dave Morrow's mode 13h fireworks graphical display
FLAME2.BAS   : Mathew Robertson's 13h flames graphical display
FLOPS.BAS    : Nick Beltran's mode 13h metal bars graphical display
FOREST.BAS   : James McMurrin's graphic demo of a math principle
FREAK.BAS    : Kevin Krumwiede's mode 12h graphic demo with CIRCLE
GAMEBASE.BAS : A collection of routines forming the base for a game
GAMEOVER.BAS : Nathan Bright's big letters in graphics example
GASKET.BAS   : Kevin Krumwiede's mode 12h demo of a Sierpinski gasket
GET13PUT.BAS : Using GET and PUT to save/restore a mode 13h screen
GETKEYS.BAS  : Using INKEY$ to get keyboard input
GRAPH.BAS    : James Broadbent's realtime graphing example
GRAVPAD.BAS  : Reading the Gravis Gamepad in QBasic
GRIDMENU.BAS : Highlited grid type menu for QBasic
HDWRSCR2.BAS : Earl Montgomery's 2nd example of hardware scrolling
HDWRSCRL.BAS : Earl Montgomery's 1st attempt at hardware scrolling
HDWSCRL1.BAS : Earl Montgomery's 1st example of hardware scrolling
HEX32DEC.BAS : Qbasic routines for hexatridecimal conversions
HISCOREX.BAS : Maintain a sorted high scores file in QBasic
HIWORLD.BAS  : Controlling the keyboard LEDs in QBasic
HPTRAILZ.BAS : Bouncing lines in mode 12h
HTM2HTML.BAS : Rename all files with .htm to .html with QBasic
INERTIA.BAS  : Graphical example of implementing gravity and intertia
INVNTORY.BAS : Screen interface example for use with a database
JDBUB.BAS    : Joshua Dickerson's rising bubbles graphic display
JMSAVE.BAS   : James McMurrin's line based graphical display
KBARR.BAS    : Routine to read keyboard and track keys in array
KEYCMD.BAS   : Simple example of using KBARR routines in program
KEYDEFS.BAS  : Using extended keys such as cursor, home, and end
KEYQUIK.BAS  : Reading keyboard hardware port to speed input
KEYSHOW.BAS  : Shows scan codes for keys when pressed
KISSED.BAS   : Keep It Simple Stupid Editor - a text editor program
KKSTARS.BAS  : Moving starfield display in mode 12h
KMSCROLL.BAS : Read and provide scrolling display of a file
KMSTARZ.BAS  : Kevin Moonlight's 2D scrolling starfield
KS_PAC.BAS   : Kevin Smith's Pacman graphic animation display
KWIKVIEW.BAS : Reads and prints a text file
LABEL.BAS    : Reads disk label using SHELL and a temp file
LEAPDAYS.BAS : Routine to identify leap years
LIGHTBAR.BAS : Example of using a scrolling light bar to select text
LLED.BAS     : Simple editor showing use of linked lists in QBasic
LONGFN.BAS   : Use SHELL command to get long file names from DOS
MAPMAKER.BAS : Define, save, and load example terrain map in QBasic
MARQUEE.BAS  : Theater marquee style text box for QBasic
MATHOP.BAS   : Parse basic math operations with *, +, -, and /
MENU02.BAS   : Keydriven menu with animated prompts
MODE13H.BAS  : Simple animation in mode 13h
MOON.BAS     : Douglas Lusher's moon bombardment graphic display
MOVE_EX.BAS  : Example of moving a character on a terrain map
NAMEBASE.BAS : Example of creating/accessing a database in QBasic
NDXCRLF.BAS  : Creates an index array of CR/LF pairs for Binary viewers
NOBEEP.BAS   : Using direct video writes to display odd characters
NOBLINK.BAS  : Text mode with 16 background colors  QB4.5 only
NULSHELL.BAS : Redirect SHELL command output to NUL device
NUMBERS.BAS  : Print numerical values as text  EX. one, two, three
ONKEY.BAS    : Using ONKEY to make hot keys for your programs
OOP.BAS      : Data encapsulation in QBasic using a STATIC SUB
PALPAL.BAS   : Hardware palette manipulation to fade in/out and restore
PALROT$.BAS  : Rotate palette forward and backward via hardware access
PARMS.BAS    : Set and read your program parameters in QBasic
PARSCMD.BAS  : Parse QB command line into array and count arguments
PASSTYPE.BAS : Pass defined types and edit them in secondary modules
PCXVIEW.BAS  : Show a 320x200 .PCX file in mode 13h in QBasic
PLANETS.BAS  : Joshua Dickerson's graphic planetary motion demo
PLASMA.BAS   : Ian Remmler's graphic plasma display
PLASMA3.BAS  : Ian Remmler's graphic plasma display, complete
PLAYMOVE.BAS : Moving graphical sprites in a playfield with obstacles
PLOTXY.BAS   : Plot points proportionally to a graphic display
PLYRMOVE.BAS : Use GET and PUT to move sprite retaining background
POCKET.BAS   : Demonstration of fixed length strings in QBasic
POKE12.BAS   : Generate random graphic patterns in mode 12h
POLYSAVE.BAS : Moving polygon graphic display with palette changes
POPUPS.BAS   : Demo using pop-up menus in QBasic
POSTIT72.BAS : Make QBasic decodable files for text transmission
PRIME.BAS    : Find primes in QBasic and display with quick scroll
PRNTEST.BAS  : Get error report from the printer port in QBasic
PUTCHAR.BAS  : Using direct video access to read/write characters
PUTPIX12.BAS : Compare QBasic 12h routines to manual pixel writes
QBERRS.BAS   : Error list for error trapping in QBasic
QBLANDER.BAS : Playable Lunar lander game in mode 13h for QBasic
QBMEMV.BAS   : View your active RAM in hex/ascii using QBasic
QPOSTIT.BAS  : Postit!7.2 modified to be used in QBasic uncompiled
QUIKTERM.BAS : Basic terminal emulation with ANSI emulation in QBasic
QUIKVIEW.BAS : Displaying .ANS files in QBasic with ANSI.SYS loaded
QWKREAD.BAS  : Douglass Lusher's QWK packet reader   QB only
R-W-TEST.BAS : Basic file I/O example in QBasic
READ_INI.BAS : Using .ini files with QBasic
READRAND.BAS : Creates index of a text file and prints a random line
READSCR.BAS  : Reads input data from screen display
REGKEY.BAS   : Example of creating and testing registration keys
RGB-FLOW.BAS : Bouncing discs graphic display in mode 12h
RGB13FLO.BAS : More bouncing discs in mode 13h this time
RNDOP_EX.BAS : Example of generating random opponents in QBasic
RNDSTR.BAS   : Example of randomizing the contents of a string
ROMANS.BAS   : Convert integers to roman numeral strings
ROTLINE.BAS  : Delete oldest line in file when adding new one.
ROUND2X.BAS  : Round to n places without PRINT USING in QBasic
SANDR.BAS    : Search and replace for QBasic strings
SCALFONT.BAS : Creating and Use scalable graphic mode fonts in QBasic
SCREEN7.BAS  : Using multiple screens in mode 7h
SCROLBOX.BAS : Resizable scrollbox with text hi-lite
SCROLL12.BAS : Smooth scrolling text in graphic mode 12h
SCROLL13.BAS : Smooth scrolling text in graphic mode 13h
SCROLLY.BAS  : Scroll text in text mode
SEETIME.BAS  : Read and display the BIOS clock
SETCAPS.BAS  : Set CAPSLOCK to on or off in QBasic
SHIFT.BAS    : Bit shifting emulation for QBasic
SHIFTED.BAS  : Show shift status by reading BIOS shift bits
SHOWKEYS.BAS : Show CHR$ value of keys
SHOWTIME.BAS : Display time onscreen while waiting for key input
SLWPRNT.BAS  : Ray Turner's slow print routine
SNOW.BAS     : Mode 13h graphic display resembling falling snow
SP13H.BAS    : Mode 13h graphic display using lines and palette changes
SPACEEYE.BAS : Mode 12h graphic display resembling an eye
SPEK.BAS     : Mode 13h graphic display
SPHERES.BAS  : Mode 13h graphic display emulating spheres
SPHERES2.BAS : Mode 13h graphic display umulating spheres
SPLITTER.BAS : Break large files into 1M sections
SPRITE.BAS   : Write data directly to PUT buffer
SPRITMSK.BAS : Smooth sprite animation with background in Mode 13h
SPRSAVE.BAS  : Save and load sprite data using arrays
STARRUSH.BAS : Mode 12h starfield simulation with forward motion
STARS_DR.BAS : David Rothschild's starfield display for Mode 12h
STARZ.BAS    : Stephen van Loendersloot's paralax scrolling starfield
STEEL.BAS    : Tony Cave's steel ball Mode 13h graphic screen effect
STR2LONG.BAS : Returns the value of a numerical string with commas
STRWIN.BAS   : A string input window for QBasic
STRZ_TC.BAS  : Tony Cave's forward motion starfield for Mode 12h
SUBGOSUB.BAS : Illustrates the differences between SUB and GOSUB
SUBTUTOR.BAS : Tutorial program on the use of QBasic SUBs and FUNCTIONs
SVGA_XTB.BAS : 800x600x256 SVGA Graphical display using lines and palettes
TAPETIME.BAS : Tool for calculating total time for musical selections
TAXCALC.BAS  : A first program : calculates sales tax
TBSTARZ.BAS  : Tyler Barnes' moving starfield display for Mode 13h
TBSTARZ2.BAS : Tyler Barnes' forward moving starfield display for Mode 12h
TESTCOLR.BAS : Test palette colors for VGA text modes for redefine
TESTDISK.BAS : Test disk status with QBasic
TEXTVIEW.BAS : A limited simple text viewer for QBasic
THEWOODS.BAS : A playable text-based adventure game for QBasic
TILES.BAS    : Graphic display using tiles in Mode 12h
TIRED.BAS    : Mandie N.'s Mode 13h graphical display
TIRED2.BAS   : A variation on Mandie N.'s mode 13h display
TREKWAR.BAS  : Denis Boyles' animated graphic display
TRIANGLE.BAS : Carl Gorringe's variation on a Sierpinski gasket
TRIFRACT.BAS : Carl Gorringe's second variation on Sierpinski gaskets
TSMYST.BAS   : Trevor Sinclair's QBasic version of Mystify Your Mind
VESA101.BAS  : Vesa Mode 101h 60x480x256 graphic display for QB only
VESA102.BAS  : Vesa Modes 101h and 102h example code for QB only
VESABROT.BAS : Earl Montgomery's Mandelbrot sets in SVGA Vesa modes
VGASCROL.BAS : Smooth scroll text in VGA modes using PUT and GET
VIRTSCRN.BAS : Douglas Lusher's extended scrolling screen for QBasic
WILLTELL.BAS : The William Tell Overture using the QBasic PLAY command
WRDCOUNT.BAS : Count the number of words in a text file in QBasic
WUMPUS2.BAS  : Playable text based game, Hunt the Wumpus
XMASTUNE.BAS : Aaron Tucker's Qbasic Xmas tune jukebox using PLAY
YINYANG.BAS  : Alex Wellerstein's YinYang graphic effect
ZIP-PEEK     : Zip files reader

1 TOM=131:M=40:S=40:W=5:A=10:P=25
10 KEY OFF:COLOR 14,4,4:CLS
20 PRINT"WELCOME TO ..."
30 PRINT:PRINT :PRINT :PRINT :PRINT
40 FOR TIM=1 TO 1000:NEXT TIM
50 PRINT"             THE CASTLE DEFENSE GAME OF SKILL!!!"
60 PRINT
70 PRINT "FIRST YOU WILL CHOSE WHERE YOUR ARCHERS WILL STAND."
80 PRINT "YOU HAVE";A;"ARCHERS AND MAY PLACE THEM EITHER ON THE ROOF TO SHOOT DOWN AT "
90 PRINT "INTRUDERS OR IN THE ENTRANCEWAY OR ON THE BALCONIES INSIDE THE CASTLE."
100 INPUT "HOW MANY WILL GO ON THE ROOF";AR
110 INPUT "HOW MANY WILL GO IN THE ENTRANCEWAY";AE
120 INPUT "HOW MANY WILL GO ON THE BALCONIES";AB
130 IF AB+AE+AR=A THEN 160
140 PRINT "YOUR ANSWERS MUST EQUAL ";A;"!!!"
150 GOTO 80

DECLARE SUB CreateBackground ()
DECLARE SUB GetKeypress (Keycode%)

CONST UpArrow = -72, DnArrow = -80, LArrow = -75, RArrow = -77

RANDOMIZE TIMER
DIM Grid%(1 TO 12, 1 TO 12)
DIM STable!(0 - 31 TO 360 + 32), CTable!(0 - 31 TO 360 + 32)
DIM Textures(1 TO 15, 1 TO 4, 1 TO 30)
PX! = 9: PY! = 11    'the starting coordinates of the player's location
Stride! = 3          'the distance covered in one "step" by the player
                     '   by pressing the up or down arrow keys
Heading% = 0         'the heading of the player (in degrees)
Turn% = 5            'number of degrees of rotation produced by
                     '   pressing the right or left arrow keys

FOR Y% = 1 TO 12
  FOR X% = 1 TO 12
   READ Grid%(X%, Y%)
  NEXT
NEXT

FOR TexturesL = 1 TO 15
FOR TexY% = 1 TO 30
FOR TexX% = 1 TO 4
    READ Textures(TexturesL, TexX%, TexY%)
NEXT
NEXT
NEXT

Factor! = (ATN(1) * 8) / 360
FOR A% = 0 TO 359
  Angle! = CSNG(A%) * Factor!
  STable!(A%) = SIN(Angle!) * .1
  CTable!(A%) = COS(Angle!) * .1
NEXT
FOR A% = -31 TO -1
  STable!(A%) = STable!(A% + 360)
  CTable!(A%) = CTable!(A% + 360)
NEXT
FOR A% = 360 TO 360 + 32
  STable!(A%) = STable!(A% - 360)
  CTable!(A%) = CTable!(A% - 360)
NEXT

SCREEN 7, , 0, 0
PRINT
PRINT
PRINT "            RAYCASTER DEMO"
PRINT
PRINT "      UP ARROW........Move Forward"
PRINT "      DOWN ARROW......Move Backward"
PRINT "      RIGHT ARROW.....Turn Right"
PRINT "      LEFT ARROW......Turn Left"
PRINT
PRINT
PRINT "            Please wait...";

CALL CreateBackground
BEEP
LOCATE , 1
PRINT "        Press any key to begin...";
DO WHILE LEN(INKEY$): LOOP: DO UNTIL LEN(INKEY$): LOOP

ViewPg% = 0: WorkPg% = 1: BG1% = 2: BG2% = 3
SCREEN , , WorkPg%, ViewPg%
GOSUB ComputeView

DO 'Main loop
CALL GetKeypress(Keycode%)
SELECT CASE Keycode%
  CASE LArrow
    Heading% = (Heading% + Turn%) MOD 360
    GOSUB ComputeView
  CASE RArrow
    Heading% = (Heading% + (360 - Turn%)) MOD 360
    GOSUB ComputeView
  CASE UpArrow
    NewPX! = PX! - (STable!(Heading%) * Stride!)
    NewPY! = PY! - (CTable!(Heading%) * Stride!)
    IF Grid%(NewPX!, NewPY!) = 0 THEN
      PX! = NewPX!: PY! = NewPY!
      GOSUB ComputeView
    ELSE 'tried to walk through a wall
      SOUND 80, 1
    END IF
  CASE DnArrow
    NewPX! = PX! + (STable!(Heading%) * Stride!)
    NewPY! = PY! + (CTable!(Heading%) * Stride!)
    IF Grid%(NewPX!, NewPY!) = 0 THEN
      PX! = NewPX!: PY! = NewPY!
      GOSUB ComputeView
    ELSE 'tried to walk through a wall
      SOUND 80, 1
    END IF
  CASE 27
    EXIT DO
  CASE ELSE
    BEEP
  END SELECT
LOOP
SCREEN 0: WIDTH 80, 25
END

ComputeView:
PCOPY BG1%, WorkPg%: SWAP BG1%, BG2%
X1% = 0
FOR A% = Heading% + 32 TO Heading% - 31 STEP -1
  StepX! = STable!(A%): StepY! = CTable!(A%)
  XX! = PX!: YY! = PY!
  L% = 0
  DO
    XX! = XX! - StepX!: YY! = YY! - StepY!
    L% = L% + 1
    K% = Grid%(XX!, YY!)
  LOOP UNTIL K%
  DD% = 900 \ L%
  H% = DD% + DD%
  DT% = 100 - DD%
  ymoves = 0
  FOR Y = DT% TO DT% + H% STEP (H%) / 30
  ymoves = ymoves + 1
  FOR X = 1 TO 4
    IF ymoves > 30 THEN ymoves = 30
    LINE (X1% + X, DT% + ((ymoves - 1) * (H%) / 30))-(X1% + X + 1, DT% + ((ymoves) * (H%) / 30)), Textures(K%, X, ymoves), B
  NEXT
  NEXT
  'LINE (X1%, DT%)-STEP(4, H%), K%, BF
  X1% = X1% + 5
NEXT
SWAP WorkPg%, ViewPg%
SCREEN , , WorkPg%, ViewPg%
RETURN

' Level data
DATA  9,  1,  9,  1,  1,  1,  1,  1,  1,  1,  9,  1
DATA  1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  9
DATA  9,  0,  2, 10,  0,  0,  0,  0,  0, 0,  0,  1
DATA  1,  0, 10,  2,  0,  0,  0,  0,  0,  0,  0,  9
DATA  9,  0,  0,  0,  0,  5,  0,  0,  0, 0,  0,  1
DATA  1,  0,  0,  0,  0,  4,  0,  0,  0,  0,  0,  9
DATA  9,  0,  0,  0,  0,  6,  0,  0,  0,  0,  0,  1
DATA  1,  0, 13,  0,  0,  4,  0,  0,  0, 12,  0,  9
DATA  9,  0,  5,  0,  0,  5,  0,  0,  0,  0,  0,  1
DATA  1,  0, 13,  0,  0,  0,  0,  0,  0, 12,  0,  9
DATA  9,  0,  5,  0,  0,  0,  0,  0,  0,  4,  0,  1
DATA  1,  9,  1,  9,  1,  9,  1,  9,  1,  9,  1,  9

'Texture data
'Text. 1
DATA 0, 8, 0, 0
DATA 8, 7, 8,
DATA 7, 7, 7, 8
DATA 7, 7, 7, 8
DATA 8, 8, 8, 0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 8,8,8
DATA 7, 7,7,7
DATA 8, 8,8,8
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7,8,0
DATA 8, 7, 8, 0
DATA 8, 7, 8,2
DATA 8, 2, 8, 2
DATA 2, 10, 2, 2
DATA 2, 2, 10, 2
DATA 2, 2, 2, 2
'Text. 2
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 3
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 4
DATA 4, 4, 4, 4
DATA 4, 8, 4, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 4, 8, 4, 8
DATA 4, 4, 4, 4
'Text. 5
DATA 4, 8, 4, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 4, 8, 4
'Text. 6
DATA 4, 6, 4, 6
DATA 4, 4, 4, 4
DATA 8, 4, 8, 4
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 4, 7, 4, 7
DATA 4, 4, 4, 4
DATA 4, 6, 4, 6
'Text. 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 8
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 9
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 10
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 11
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 12
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 13
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 14
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
'Text. 15
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8
DATA 8, 7, 8, 7
DATA 7, 7, 7, 7
DATA 7, 15, 7, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 15, 15, 15, 15
DATA 7, 15, 7, 15
DATA 7, 7, 7, 7
DATA 8, 7, 8, 7
DATA 8, 8, 8, 8
DATA 8, 8, 8, 8

DEFINT A-Z
DEFSNG A-Z

SUB CreateBackground

SCREEN , , 2, 0: CLS
' Sky
LINE (0, 0)-(319, 99), 0, BF
' Moon (Prev. a Sun)
CIRCLE (50, 30), 10, 8: PAINT (50, 30), 14, 8
'CIRCLE (53, 27), 2, 8: PAINT (53, 27), 8, 8
CIRCLE (43, 29), 10, 0: PAINT (43, 29), 0, 0
' Clouds moved after moon so they would overlap it
FOR Cnt% = 1 TO 10
  X% = INT(RND * 320)
  Y% = INT(RND * 80) + 10
  R% = INT(RND * 50)
  AR! = RND / 10
  CIRCLE (X%, Y%), R%, 15, , , AR!: PAINT (X%, Y%), 15
NEXT

 'Building (gray)
LINE (200, 20)-(220, 15), 8
LINE (220, 15)-(240, 20), 8
LINE (200, 20)-(200, 99), 8
LINE (240, 20)-(240, 99), 8
LINE (200, 99)-(240, 99), 8
PAINT (220, 50), 8
FOR Cnt% = 1 TO 20 ' Lights
  PSET (INT(RND * 38 + 201), INT(RND * 80 + 20)), 14
NEXT
LINE (200, 20)-(220, 15), 0 ' Building (border)
LINE (220, 15)-(240, 20), 0
LINE (219, 15)-(219, 99), 0
LINE (200, 20)-(200, 99), 0
LINE (240, 20)-(240, 99), 0
PCOPY 2, 3
FOR Y% = 100 TO 199
  FOR X% = 0 TO 319
    IF RND AND 1 THEN PSET (X%, Y%), 8
  NEXT
NEXT

SCREEN , , 3, 0
FOR Y% = 100 TO 199
  FOR X% = 0 TO 319
    IF RND AND 1 THEN PSET (X%, Y%), 8
  NEXT
NEXT

SCREEN , , 0, 0

END SUB

DEFINT A-Z
SUB GetKeypress (Keycode%)
DO: Ky$ = INKEY$: LOOP UNTIL LEN(Ky$)
Keycode% = ASC(Ky$): IF Keycode% = 0 THEN Keycode% = -ASC(MID$(Ky$, 2, 1))

END SUB