'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
'º                                                       º
'º                                                       º
'º    *   *            MR. SMILEY              *   *     º
'º                    (Mr. Smacman)                      º
'º   *     *                                  *     *    º
'º    *****       Made by Steve Nunnally       *****     º
'º                                                       º
'º                         º                             º
'º                        ÀÄÙ                            º
'º                                                       º
'ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
'º                                                       º
'º This time Mr. Smiley finds himself helping his little º
'º green friends, the Smackers. The evil Mr. Donut threw º
'º them all over the place. You must save all your pals  º
'º and defeat the evil Mr. Donut, go now, good luck!!!!! º
'º Anyways I hope you like it. For any questions or tips º
'º e-mail at nunnally@pinn.net Please visit my homepage  º
'º http://www.acidworks.com  Thank You.                  º
'º                              -Steve Nunnally          º
'º                                                       º
'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
'
'   This program was made by Steve Nunnally. Copyright (C) 1997
'All of this code was written by me, Steve Nunnally. DO NOT copy
'this code unless you have my permission! And you MAY NOT change
'the name in this paragraph to your name.     
'
DECLARE SUB BeatGame ()
DIM SHARED over AS INTEGER
DIM SHARED up AS INTEGER
DIM SHARED dup AS INTEGER
DIM SHARED dover AS INTEGER
DIM SHARED dots AS INTEGER
DIM SHARED smiley(650)
DIM SHARED smiley.right(650)
DIM SHARED smiley.left(650)
DIM SHARED wall(650)
DIM SHARED happy(650)
DIM SHARED nothing(600)
DIM SHARED Level AS INTEGER
DIM SHARED Donut(650)
DIM SHARED MissSmiley(650)
RANDOMIZE TIMER
Level = 1
CLS : SCREEN 12
'Mr. Smiley Center
CIRCLE (30, 30), 10, 14
PAINT (30, 30), 14
CIRCLE (30, 30), 7, 0, 3, .1
CIRCLE (26, 25), 2, 0
CIRCLE (34, 25), 2, 0
CIRCLE (g, g), e, e
'Mr. Smiley Right
CIRCLE (100, 30), 10, 14, .5, 5.7
LINE (100, 30)-(108, 26), 14
LINE (100, 30)-(108, 35), 14
PAINT (95, 27), 14
CIRCLE (101, 24), 2, 0
'Mr. Smiley Left
CIRCLE (170, 30), 10, 14
CIRCLE (170, 30), 10, 0, 2.7, 3.6
LINE (170, 30)-(162, 26), 14
LINE (170, 30)-(162, 35), 14
PAINT (175, 25), 14
CIRCLE (167, 24), 2, 0
'The Wall
LINE (230, 10)-(250, 50), 7, BF
'Your little smiley friends
CIRCLE (310, 30), 3, 10
PAINT (310, 30), 10
CIRCLE (310, 29), 2, 0, 3.5, 5.5
CIRCLE (309, 28), 0, 0
CIRCLE (311, 28), 0, 0
'Evil Mr. Donut, Ahhhh!
CIRCLE (480, 30), 10, 6: CIRCLE (480, 30), 5, 6
PAINT (480, 37), 6: do.col = 0
FOR i = 1 TO 150
  do.col = do.col + 1
  IF do.col = 15 THEN do.col = 1
  y = INT(RND * 20) + 20
  x = INT(RND * 20) + 470
  CIRCLE (x, y), 0, do.col
NEXT i
CIRCLE (475, 24), 2, 0: CIRCLE (485, 24), 2, 0
CIRCLE (480, 30), 0, 0
CIRCLE (480, 30), 4, 1: PAINT (480, 30), 1
CIRCLE (480, 30), 4, 0: PAINT (480, 30), 0
CIRCLE (480, 30), 11, 1: CIRCLE (480, 30), 15, 1: PAINT (480, 42), 1
CIRCLE (480, 30), 11, 0: CIRCLE (480, 30), 15, 0: PAINT (480, 42), 0
'Your girl
CIRCLE (540, 30), 8, 13
PAINT (540, 30), 13
CIRCLE (540, 30), 6, 0, 3, .1
CIRCLE (537, 26), 1, 0
CIRCLE (543, 26), 1, 0
'Get the pretty pictures
GET (20, 20)-(40, 40), smiley
GET (90, 20)-(110, 40), smiley.right
GET (160, 20)-(180, 40), smiley.left
GET (230, 20)-(250, 40), wall
GET (300, 20)-(320, 40), happy
GET (370, 20)-(390, 40), nothing
GET (470, 20)-(490, 40), Donut
GET (530, 20)-(550, 40), MissSmiley
CLS
COLOR 15
PRINT ""
PRINT ""
PRINT "   This time Mr. Smiley finds himself helping his little green friends,"
PRINT " the Smackers. The evil Mr. Donut threw them all over the place. You must"
PRINT " save all your pals  and defeat the evil Mr. Donut, go now, good luck!!!"
PRINT " Use arrows to move, press q to quit, and press s to skip a level."
PRINT ""
PRINT "                                           -Steve Nunnally"
PRINT ""
PRINT "                           PRESS ENTER"
DO
LOOP UNTIL INKEY$ = CHR$(13)
MakeLevel:

CLS
l = 9: w = 30: t = 0
FOR i = 1 TO 551
   READ s$
   IF s$ = "3" THEN dup = w: dover = l
   IF s$ = "2" THEN up = w: over = l
   IF s$ = "1" THEN PUT (l, w), wall
   IF s$ = "0" THEN PUT (l, w), happy
   t = t + 1
   IF t = 29 THEN l = -12: w = w + 21: t = 0
   l = l + 21
NEXT

PUT (over, up), smiley, PSET
PUT (dover, dup), Donut

IF Level = 11 THEN BeatGame

DO
 key$ = INKEY$
 SELECT CASE key$
  CASE CHR$(0) + "P"
  PUT (over, up), nothing, PSET
  IF POINT(over + 10, up + 30) <> 7 THEN up = up + 21
  IF up > 410 THEN up = 30
  PUT (over, up), smiley, PSET
  CASE CHR$(0) + "H"
  PUT (over, up), nothing, PSET
  IF POINT(over + 10, up - 15) <> 7 THEN up = up - 21
  IF up < 25 THEN up = 408
  PUT (over, up), smiley, PSET
  CASE CHR$(0) + "K"
  PUT (over, up), nothing, PSET
  IF POINT(over - 10, up + 10) <> 7 THEN over = over - 21
  IF over < 9 THEN over = 597
  PUT (over, up), smiley.left, PSET
  CASE CHR$(0) + "M"
  PUT (over, up), nothing, PSET
  IF POINT(over + 30, up + 10) <> 7 THEN over = over + 21
  IF over > 600 THEN over = 9
  PUT (over, up), smiley.right, PSET
  CASE "q": GOTO QuitGame
  CASE "s": GOSUB YouBeatIt
 END SELECT
 PUT (dover, dup), Donut, XOR
 dy = INT(RND * 15) + 1
 IF dy = 1 AND POINT(dover + 10, dup + 30) <> 7 THEN dup = dup + 21
 IF dy = 2 AND POINT(dover + 10, dup - 15) <> 7 THEN dup = dup - 21
 IF dy = 3 AND POINT(dover - 10, dup + 10) <> 7 THEN dover = dover - 21
 IF dy = 4 AND POINT(dover + 30, dup + 10) <> 7 THEN dover = dover + 21
 IF dup > 410 THEN dup = 30
 IF dup < 25 THEN dup = 408
 IF dover < 9 THEN dover = 597
 IF dover > 600 THEN dover = 9
 PUT (dover, dup), Donut
 WAIT &H3DA, 8
 IF dover = over AND up = dup THEN GOSUB YouLost
u = 61: o = 20: i = 0: p = 0
DO
 IF POINT(o, u) = 10 THEN p = 1
 o = o + 21
 IF o >= 605 THEN u = u + 21: o = 20
 IF i > 470 THEN GOSUB YouBeatIt
 i = 1 + i
LOOP UNTIL p = 1

LOOP UNTIL key$ = CHR$(27)
END

YouLost:
PUT (dover, dup), Donut, PSET
COLOR 5
LOCATE 14, 20: PRINT "                                        "
LOCATE 15, 20: PRINT "  Mr. Donut caught you. =(  Try Again.  "
COLOR 15
LOCATE 16, 20: PRINT "              Press Enter               "
LOCATE 17, 20: PRINT "                                        "
DO
LOOP UNTIL INKEY$ = CHR$(13)
SYSTEM

QuitGame:
COLOR 5
LOCATE 14, 20: PRINT "                                        "
LOCATE 15, 20: PRINT "  Quiting already? Okay goodbye.   =)   "
COLOR 15
LOCATE 16, 20: PRINT "              Press Enter               "
LOCATE 17, 20: PRINT "                                        "
DO
LOOP UNTIL INKEY$ = CHR$(13)
SYSTEM

YouBeatIt:
COLOR 5
LOCATE 14, 20: PRINT "                                        "
LOCATE 15, 20: PRINT "  You saved all of your friends!!!! =)  "
COLOR 15
LOCATE 16, 20: PRINT "              Press Enter               "
LOCATE 17, 20: PRINT "                                        "
DO
LOOP UNTIL INKEY$ = CHR$(13)
IF Level = 1 THEN Level = 2: GOSUB MakeLevel
IF Level = 2 THEN Level = 3: GOSUB MakeLevel
IF Level = 3 THEN Level = 4: GOSUB MakeLevel
IF Level = 4 THEN Level = 5: GOSUB MakeLevel
IF Level = 5 THEN Level = 6: GOSUB MakeLevel
IF Level = 6 THEN Level = 7: GOSUB MakeLevel
IF Level = 7 THEN Level = 8: GOSUB MakeLevel
IF Level = 8 THEN Level = 9: GOSUB MakeLevel
IF Level = 9 THEN Level = 10: GOSUB MakeLevel
IF Level = 10 THEN Level = 11: GOSUB MakeLevel

'Level One
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,1,1,1,1,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,0,0,0,1
DATA 1,0,1,0,0,0,0,0,1,1,0,1,0,1,1,1,0,1,0,1,1,0,0,0,0,0,1,0,1
DATA 1,0,1,0,1,1,1,0,1,1,0,1,0,1,1,1,0,1,0,1,1,0,1,1,1,0,1,0,1
DATA 1,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,1
DATA 1,1,0,1,1,1,1,0,1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1,1,1,0,1,1
DATA 1,1,0,1,1,0,0,0,1,0,1,1,0,0,0,0,0,1,1,0,1,0,0,0,1,1,0,1,1
DATA 1,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0,1,1
DATA 1,0,0,0,0,0,1,1,1,0,1,1,0,1,0,1,0,1,1,0,1,1,1,0,0,0,0,0,1
DATA 9,0,1,1,1,0,1,1,1,0,0,0,0,0,3,0,0,0,0,0,1,1,1,0,1,1,1,0,9
DATA 1,0,0,0,0,0,1,1,1,0,1,1,0,1,0,1,0,1,1,0,1,1,1,0,0,0,0,0,1
DATA 1,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1,0,1,1
DATA 1,1,0,1,1,0,1,1,1,0,1,1,0,0,0,0,0,1,1,0,1,1,1,0,1,1,0,1,1
DATA 1,1,0,1,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,0,1,1,0,1,1
DATA 1,0,0,0,1,1,1,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,1,1,1,0,0,0,1
DATA 1,0,1,0,1,1,1,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,1,1,1,0,1,0,1
DATA 1,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,1
DATA 1,0,0,0,1,1,1,1,1,1,0,0,0,0,1,0,0,0,0,1,1,1,1,1,1,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'Level Two
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,1,0,1,1,1,0,1,0,0,1,1,0,1,1,0,0,1,0,1,1,1,0,1,0,0,1
DATA 1,0,1,1,0,1,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,1,0,1,1,0,1
DATA 1,0,1,0,0,0,1,0,0,0,1,0,0,0,2,0,0,0,1,0,0,0,1,0,0,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,0,0,1,0,0,0,1,0,1,1,1,1,1,0,1,0,0,0,1,0,0,0,1,0,1
DATA 1,0,1,1,1,1,1,1,1,1,1,0,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,0,1
DATA 1,0,1,1,0,0,0,1,0,0,0,0,1,0,1,0,1,0,0,0,0,1,0,0,0,1,1,0,1
DATA 9,0,0,0,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,0,0,0,9
DATA 1,0,1,1,0,0,0,1,0,1,1,0,0,0,1,0,0,0,1,1,0,1,0,0,0,1,1,0,1
DATA 1,0,1,1,1,1,1,1,0,1,1,0,1,0,1,0,1,0,1,1,0,1,1,1,1,1,1,0,1
DATA 1,0,0,0,0,0,0,0,0,1,1,0,1,0,1,0,1,0,1,1,0,0,0,0,0,0,0,0,1
DATA 1,0,1,1,0,1,0,1,0,0,1,0,1,0,3,0,1,0,1,0,0,1,0,1,0,1,1,0,1
DATA 1,0,1,1,0,0,0,0,0,1,1,0,1,1,0,1,1,0,1,1,0,0,0,0,0,1,1,0,1
DATA 1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1
DATA 1,0,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,0,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'Level Three
DATA 1,1,1,1,9,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,9,1,1,1,1
DATA 1,2,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,0,0,0,0,0,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,1,1,1,1,1,1,1,0,1,0,0,3,0,0,1,0,1,1,1,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,0,1,1,0,1,0,0,0,0,0,1,0,1,1,0,1,0,1,0,1,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,9,1,1,1,1,1,1,1,1,1,9,1,1,1,1,1,1,1,1,1,9,1,1,1,1
'Level Four
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1
DATA 1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1
DATA 1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,1
DATA 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1
DATA 1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1
DATA 1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,1
DATA 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,3,1,1,0,0,1,1,0,0,1,1,0,0,0,1
DATA 1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1
DATA 1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,1
DATA 1,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,1
DATA 1,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1
DATA 1,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,0,1
DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'Level Five
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,0,0,0,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,0,0,0,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,0,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,0,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'Level Six
DATA 1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1
DATA 1,1,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1
DATA 1,1,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,0,1,1
DATA 1,0,0,1,0,1,0,0,0,1,0,1,1,1,0,1,1,1,0,1,0,0,0,1,0,1,0,0,1
DATA 1,0,1,1,0,1,1,0,1,1,0,0,1,0,2,0,1,0,0,1,1,0,1,1,0,1,1,0,1
DATA 1,0,1,0,0,0,0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,0,0,0,0,0,1,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,1,0,1,0,1,0,1
DATA 1,0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,0,0,0,1,0,1
DATA 1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1
DATA 1,0,1,0,1,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,1,0,1,0,1,0,1
DATA 1,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,1
DATA 1,0,1,1,1,1,1,1,0,1,0,0,1,1,3,1,1,0,0,1,0,1,1,1,1,1,1,0,1
DATA 1,0,1,1,1,1,1,1,0,1,0,1,1,0,0,0,1,1,0,1,0,1,1,1,1,1,1,0,1
DATA 9,0,0,0,0,0,0,0,0,0,0,1,1,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,9
DATA 1,1,1,0,1,1,1,0,1,1,0,1,0,0,1,0,0,1,0,1,1,0,1,1,1,0,1,1,1
DATA 1,1,1,0,1,1,1,0,1,1,0,1,0,1,1,1,0,1,0,1,1,0,1,1,1,0,1,1,1
DATA 1,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,0,1,1,1,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,1,0,1,1,1,1
DATA 1,1,1,1,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,9,1,1,1,1
'Level Seven
DATA 1,1,1,9,1,1,1,1,1,1,9,1,1,1,9,1,1,1,9,1,1,1,1,1,1,9,1,1,1
DATA 1,2,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1
DATA 1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,1,1,1,0,1,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,0,1,1,1,1,1,1,0,1,1,1
DATA 1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,1,3,0,0,1,0,1,0,1,1,0,1,0,1,0,1
DATA 9,0,1,0,1,0,1,1,0,1,0,1,0,1,1,1,0,1,0,1,0,1,1,0,1,0,1,0,9
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,0,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1
DATA 1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,1,1,0,1,1,1,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,1,0,1,1,1,1,1,1,0,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1
DATA 1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,1,0,1,0,1
DATA 1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1
DATA 1,1,1,9,1,1,1,1,1,1,9,1,1,1,9,1,1,1,9,1,1,1,1,1,1,9,1,1,1
'Level Eight
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,1
DATA 1,0,1,0,0,0,0,1,1,0,0,0,0,0,2,0,0,0,0,0,1,1,0,0,0,0,1,0,1
DATA 1,0,0,0,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,0,0,0,1
DATA 1,1,0,1,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,0,1,1
DATA 1,1,0,1,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,0,1,1
DATA 1,0,0,0,1,1,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,1,1,0,0,0,1
DATA 9,0,1,0,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,0,1,0,9
DATA 1,0,0,0,1,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,1,1,0,0,0,1
DATA 1,1,1,1,1,1,1,1,0,0,0,1,0,1,3,1,0,1,0,0,0,1,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,1,1,0,0,0,1
DATA 9,0,1,0,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,0,1,0,9
DATA 1,0,0,0,1,1,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,1,1,0,0,0,1
DATA 1,1,0,1,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,0,1,1
DATA 1,1,0,1,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,1,0,1,1
DATA 1,0,0,0,1,1,0,1,1,0,1,1,1,1,0,1,1,1,1,0,1,1,0,1,1,0,0,0,1
DATA 1,0,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,0,1
DATA 1,0,0,0,1,1,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'Level Nine
DATA 1,1,9,1,1,1,1,9,1,1,1,1,9,1,1,1,9,1,1,1,1,9,1,1,1,1,9,1,1
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 1,0,2,0,1,1,0,1,0,1,1,0,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 1,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1
DATA 1,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 9,0,1,0,0,0,0,1,0,1,1,0,3,0,1,0,1,0,0,0,0,1,0,0,0,0,1,0,9
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 1,1,1,1,1,1,1,0,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 9,0,1,0,1,1,0,1,0,1,1,0,1,0,0,0,1,0,1,1,0,1,0,1,1,0,1,0,9
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1
DATA 1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 9,0,1,0,1,1,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,1,0,9
DATA 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1
DATA 1,1,9,1,1,1,1,9,1,1,1,1,9,1,1,1,9,1,1,1,1,9,1,1,1,1,9,1,1
LevelTen:
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,2,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,9,1,9,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,3,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,9,1,1,1,9,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,9,9,9,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,0,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,0,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1
DATA 1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'End Animation Data
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,2,9,9,9,9,3,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9
DATA 0,0,0,0,0,0,0,0,0,0,0,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9

SUB BeatGame

LOCATE 23, 40: PRINT "PRESS ENTER"
CIRCLE (360, 125), 90, 15, , , .5
CIRCLE (290, 175), 7, 15: CIRCLE (277, 189), 3, 15
LOCATE 7, 39: PRINT "I saved all my"
LOCATE 8, 37: PRINT "friends. I won!!!!"
LOCATE 9, 39: PRINT "You're not all"
LOCATE 10, 40: PRINT "powerful! =)"
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOSUB ClearBubble
CIRCLE (380, 125), 90, 15, , , .5
CIRCLE (355, 180), 7, 15: CIRCLE (365, 189), 3, 15
LOCATE 7, 43: PRINT "That may be,"
LOCATE 8, 40: PRINT "but while you were"
LOCATE 9, 41: PRINT "busy I got your"
LOCATE 10, 44: PRINT "girl! HAHA"
DO
LOOP UNTIL INKEY$ = CHR$(13)
LOCATE 23, 40: PRINT "           "
GOSUB ClearBubble
CIRCLE (380, 125), 90, 15, , , .5
CIRCLE (355, 180), 7, 15: CIRCLE (365, 189), 3, 15
LOCATE 8, 41: PRINT "Miss Smiley, get"
LOCATE 9, 44: PRINT "out here!!"
mover = dover + 250
PUT (mover, dup), MissSmiley
FOR i = 1 TO 9
 CurrentTimer! = TIMER
 WHILE TIMER < (CurrentTimer! + 50 / 100): WEND
 PUT (mover, dup), MissSmiley, XOR
 mover = mover - 25
 PUT (mover, dup), MissSmiley
NEXT
LOCATE 23, 40: PRINT "PRESS ENTER"
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOSUB ClearBubble
CIRCLE (360, 125), 90, 15, , , .5
CIRCLE (290, 175), 7, 15: CIRCLE (277, 189), 3, 15
LOCATE 7, 40: PRINT "That may be,"
LOCATE 8, 38: PRINT "but I see you are"
LOCATE 9, 40: PRINT "just a giant"
LOCATE 10, 42: PRINT "donut!!!"
DO
LOOP UNTIL INKEY$ = CHR$(13)
GOSUB ClearBubble
CIRCLE (360, 125), 90, 15, , , .5
CIRCLE (290, 175), 7, 15: CIRCLE (277, 189), 3, 15
LOCATE 8, 39: PRINT "So I will just"
LOCATE 9, 41: PRINT "eat you!!!"
DO
LOOP UNTIL INKEY$ = CHR$(13)
LOCATE 23, 40: PRINT "           "
GOSUB ClearBubble
FOR i = 1 TO 4
 CurrentTimer! = TIMER
 WHILE TIMER < (CurrentTimer! + 50 / 100): WEND
 PUT (over, up), nothing, PSET
 over = over + 26
 PUT (over, up), smiley.right, PSET
NEXT
PUT (over, up), nothing, PSET
PUT (over, up), smiley, PSET
LOCATE 23, 40: PRINT "PRESS ENTER"
CIRCLE (380, 125), 90, 15, , , .5
CIRCLE (355, 180), 7, 15: CIRCLE (365, 189), 3, 15
LOCATE 7, 43: PRINT "Thank you for"
LOCATE 8, 41: PRINT "all the help. You"
LOCATE 9, 44: PRINT "have done a"
LOCATE 10, 44: PRINT "good job!!!"
DO
LOOP UNTIL INKEY$ = CHR$(13)
SYSTEM

ClearBubble:
LOCATE 6, 35: PRINT "                       "
LOCATE 7, 35: PRINT "                       "
LOCATE 8, 35: PRINT "                       "
LOCATE 9, 35: PRINT "                       "
LOCATE 10, 35: PRINT "                       "
LOCATE 11, 35: PRINT "                       "
CIRCLE (360, 125), 90, 0, , , .5: CIRCLE (380, 125), 90, 0, , , .5
CIRCLE (290, 175), 7, 0: CIRCLE (277, 189), 3, 0
CIRCLE (355, 180), 7, 0: CIRCLE (365, 189), 3, 0
RETURN

END SUB