CLS
REM ** PAMELA INSERRA **
REM ** OHIO SMITH TITLE PAGE **
5 SCREEN 7
COLOR 14, 1
PI = 4 * ATN(1)
GOSUB TITLE
GOSUB PAGETHREE
GOSUB DOORS
GOSUB DOORS2
GOSUB INSIDE
END

TITLE:
  CLS
  LOCATE 15
  PRINT "        YOU MUST USE CAPS LOCK"
  PRINT "IN ORDER FOR THE GAME TO WORK RIGHT!! "
  SLEEP 5
  GOSUB OHIO
  GOSUB SMITH
  RETURN
 
OHIO:
CLS
REM ** O **
  CIRCLE (40, 40), 40, 13
  CIRCLE (40, 40), 30, 13
  PAINT (5, 40), 13
 
REM ** SPUD **
  'BODY
  CIRCLE (40, 50), 12, 6
  PAINT (40, 50), 6
  'LEG
  LINE (40, 50)-(35, 63), 6
  LINE (40, 50)-(45, 63), 6
  'HEAD
  CIRCLE (40, 35), 7, 6
  PAINT (40, 35), 6
  'EYES
  PSET (37, 33)
  PSET (43, 33)
  'NOSE
  PSET (40, 35)
  'BELLYBUTTON
  PSET (40, 52)
  'MOUTH
  LINE (37, 37)-(43, 37), 4
  'ARMS
  LINE (40, 50)-(23, 43), 6
  LINE (40, 50)-(57, 43), 6
  'HAT
  LINE (30, 30)-(50, 30), 3
  LINE (35, 30)-(45, 27), 3, BF

REM ** O **
  CIRCLE (270, 40), 35, 9
  CIRCLE (270, 40), 20, 9
  PAINT (240, 40), 9

REM ** H **
  LINE (90, 10)-(110, 70), 8, BF
  LINE (130, 10)-(150, 70), 8, BF
  LINE (110, 30)-(130, 50), 8, BF

REM ** I **
  LINE (190, 10)-(210, 70), 3, BF
 RETURN

SMITH:
REM ** S **
  LINE (40, 90)-(80, 100), 14, BF
  LINE (40, 130)-(80, 140), 14, BF
  LINE (40, 100)-(80, 130), 14
REM ** M **
  LINE (90, 90)-(100, 140), 12, BF
  LINE (140, 90)-(150, 140), 12, BF
  LINE (100, 90)-(120, 110), 12
  LINE (120, 110)-(140, 90), 12
REM ** I **
  LINE (170, 90)-(180, 140), 10, BF
REM ** T **
  LINE (205, 100)-(215, 140), 7, BF
  LINE (190, 90)-(230, 100), 7, BF
REM ** H **
  LINE (240, 90)-(250, 140), 13, BF
  LINE (270, 90)-(280, 140), 13, BF
  LINE (250, 110)-(270, 120), 13, BF
  
10 LOCATE 23

INPUT "WOULD YOU LIKE TO PLAY? (Y/N)"; A$
IF A$ = "Y" THEN GOTO 50
IF A$ = "N" THEN GOSUB QUITPAGE
GOTO 10
50 GOSUB PAGETWO
RETURN


PAGETWO:
CLS
COLOR 1, 0
PRINT
PRINT "             PLEASE HELP!!!"
PRINT "MRS. SMITH HAS LOST HER SON, SPUD. HE"
PRINT "COULD BE ANYWHERE. IT IS YOUR JOB TO "
PRINT "FIND HIM. CAN YOU TAKE THE PRESSURE?"
PRINT "THIS IS YOUR CHANCE TO BE A HERO!!"
PRINT "THERE IS A PICTURE ENCLOSED TO HELP YOU"
PRINT "LET'S GO!!"


REM ** BOX AROUND SPUD **
  LINE (110, 90)-(220, 180), 14, B
  PAINT (160, 120), 12, 14

REM ** SPUD **
  CIRCLE (160, 145), 12, 6
  PAINT (160, 140), 6
  LINE (160, 150)-(155, 160), 6
  LINE (160, 150)-(165, 160), 6
  CIRCLE (160, 128), 7, 6
  PAINT (160, 128), 6
  PSET (157, 125)
  PSET (162, 125)
  PSET (160, 128)
  PSET (160, 147)
  LINE (157, 130)-(162, 130), 4
  LINE (160, 140)-(140, 137), 6
  LINE (160, 140)-(180, 137), 6
  LINE (150, 122)-(170, 122), 3
  LINE (155, 118)-(165, 122), 3, BF

90 LOCATE 11
INPUT "PUSH G TO GO ON"; GO$
 IF GO$ = "G" THEN GOTO 30
GOTO 90
30 GOSUB BACKGROUND
GOSUB HORIZONTALMAN
RETURN


BACKGROUND:
CLS
REM ** SUN & GRASS **
  LINE (0, 173)-(320, 173), 2
  PAINT (170, 176), 2, 2
  CIRCLE (60, 60), 20, 14
  PAINT (60, 60), 14, 14

PRINT "YOU ARE NOW ON YOUR WAY TO FIND SPUD"
PRINT "MRS. SMITH IS VERY GLAD YOU DECIDED"
PRINT "TO HELP FIND HER BELOVED SON"
PRINT "           GOOD LUCK!!"
RETURN

YOUWALKING:
REM ** BODY **
  LINE (25 + H, 135)-(15 + H, 145), 1 * C
  LINE (30 + H, 140)-(20 + H, 150), 1 * C
  LINE (15 + H, 145)-(20 + H, 150), 1 * C
  LINE (25 + H, 135)-(30 + H, 140), 1 * C
  PAINT (21 + H, 142), 1, 1 * C
  PAINT (19 + H, 145), 1, 1 * C
  LINE (55 + H, 135)-(65 + H, 145), 1 * C
  LINE (50 + H, 140)-(60 + H, 150), 1 * C
  LINE (55 + H, 135)-(50 + H, 140), 1 * C
  LINE (65 + H, 145)-(60 + H, 150), 1 * C
  PAINT (59 + H, 142), 1, 1 * C
  PAINT (61 + H, 145), 1, 1 * C
  CIRCLE (40 + H, 145), 20, 7 * C
  PAINT (40 + H, 145), 1, 7 * C
  CIRCLE (15 + H, 150), 2, 7 * C
  PAINT (15 + H, 150), 7, 7 * C
  CIRCLE (65 + H, 150), 2, 7 * C
  PAINT (65 + H, 150), 7, 7 * C
  LINE (30 + H, 160)-(50 + H, 170), 1 * C, BF
  LINE (40 + H, 160)-(40 + H, 170), 7 * C

  LINE (25 + H, 170)-(39 + H, 172), 10 * C, BF
  LINE (41 + H, 170)-(55 + H, 172), 10 * C, BF

REM ** HEAD **
  CIRCLE (40 + H, 120), 15, 6 * C
  PAINT (40 + H, 120), 7, 6 * C
  LINE (26 + H, 115)-(54 + H, 115), 6 * C
  PAINT (49 + H, 112), 6, 6 * C
  PSET (35 + H, 120)
  PSET (45 + H, 120)
  PSET (40 + H, 125)
  LINE (35 + H, 129)-(45 + H, 129), 4 * C
RETURN



HORIZONTALMAN:
 FOR H = 0 TO 330
 C = 1
 GOSUB YOUWALKING
 FOR HOLD = 1 TO 900
 NEXT HOLD
 C = 0
 GOSUB YOUWALKING
 NEXT H
 C = 1
 GOSUB YOUWALKING
 RETURN



PAGETHREE:
CLS
COLOR 12, 0
PRINT "MRS. SMITH HAS BEEN TO TWO DIFFERENT"
PRINT "PLACES TODAY: "
PRINT "                1) MALL"
PRINT "                2) PUBLIX"
PRINT
PRINT
REM ** SHOPPING BAG **
  LINE (50, 75)-(70, 80), 1, B
  LINE (40, 80)-(80, 100), 13, BF
REM ** PUBLIX **
  CIRCLE (165, 90), 15, 2
  PAINT (165, 90), 2, 2
  CIRCLE (165, 90), 5, 0
  PAINT (165, 90), 0, 0
  LINE (150, 90)-(160, 120), 2, BF

FOR X = 1 TO 0
PRINT
NEXT X
COLOR 10
PRINT "MALL 1)      PUBLIX 2)"
COLOR 1
PRINT
PRINT
PRINT
PRINT
PRINT "     SEARS"
FOR X = 1 TO 9
PRINT
NEXT X
COLOR 12

PRINT "WHERE WOULD YOU LIKE TO GO"
70 LOCATE 23
INPUT "FIRST (1 OR 2)"; PLACE
IF PLACE = 1 THEN GOSUB MALL
IF PLACE = 2 THEN GOSUB PUBLIX
IF NOT PLACE = 1 AND NOT PLACE = 2 THEN 70
RETURN


MALL:
 CLS
  PAINT (40, 160), 4
  COLOR 2, 0
  PRINT
  PRINT "YOU'VE REACHED THE MALL. YOU HAVE"
  PRINT "DECIDED TO GO TO SEARS SINCE THAT'S"
  PRINT "WHERE YOU SHOPPED."
  LINE (80, 60)-(200, 160), 8, B
  PAINT (100, 120), 7, 8

  LINE (0, 160)-(320, 160), 7
  PAINT (40, 170), 0, 7
 REM ** S **
  LINE (81, 70)-(100, 70), 1
  LINE (81, 70)-(81, 80), 1
  LINE (81, 80)-(100, 80), 1
  LINE (100, 80)-(100, 90), 1
  LINE (100, 90)-(81, 90), 1
 REM ** E **
  LINE (105, 70)-(105, 90), 1
  LINE (105, 70)-(125, 70), 1
  LINE (105, 80)-(125, 80), 1
  LINE (105, 90)-(125, 90), 1
 REM ** A **
  LINE (130, 90)-(130, 70), 1
  LINE (150, 90)-(150, 70), 1
  LINE (130, 70)-(150, 70), 1
  LINE (130, 80)-(150, 80), 1
 REM ** R **
  LINE (155, 70)-(155, 90), 1
  LINE (155, 70)-(175, 70), 1
  LINE (175, 70)-(175, 80), 1
  LINE (175, 80)-(155, 80), 1
  LINE (165, 80)-(175, 90), 1
 REM ** S **
  LINE (199, 70)-(180, 70), 1
  LINE (180, 70)-(180, 80), 1
  LINE (180, 80)-(199, 80), 1
  LINE (199, 80)-(199, 90), 1
  LINE (199, 90)-(180, 90), 1


 'left
 LINE (140, 140)-(130, 159), 8, B
 'right
 LINE (140, 140)-(150, 159), 8, B
 SLEEP 3
 RETURN


RIGHTDOOR:
  LINE (H, 141)-(H, 158), 15
  PAINT (149, 150), 0 * C, 7
 RETURN

DOORS:
  FOR H = 140 TO 149
  C = 1
   GOSUB RIGHTDOOR
  C = 0
   FOR HOLD = 1 TO 5000
    NEXT HOLD
   GOSUB RIGHTDOOR
    NEXT H
  C = 1
   GOSUB RIGHTDOOR
 RETURN


LEFTDOOR:
  LINE (H, 141)-(H, 158), 15
  PAINT (131, 150), 0 * C, 7
 RETURN

DOORS2:
  FOR H = 138 TO 130 STEP -1
  C = 1
  GOSUB LEFTDOOR
  C = 0
  FOR HOLD = 1 TO 5000
  NEXT HOLD
  GOSUB LEFTDOOR
  NEXT H
  C = 1
  GOSUB LEFTDOOR
 RETURN

INSIDE:
CLS
REM ** OUTLINE **
  LINE (0, 90)-(140, 90), 9
  LINE (0, 120)-(140, 120), 9
  LINE (140, 200)-(140, 120), 9
  LINE (180, 200)-(180, 120), 9
  LINE (180, 120)-(320, 120), 9
  LINE (140, 90)-(140, 0), 9
  LINE (180, 90)-(180, 0), 9
  LINE (180, 90)-(320, 90), 9
  PAINT (160, 100), 8, 9


LOCATE 3
PRINT "                                TOYS(2)"
LOCATE 3
PRINT "MENS(1)"
LOCATE 25
PRINT "                              WOMANS(4)"
LOCATE 25
PRINT "ELECTRONICS(3)"

REM **MEN**
  CIRCLE (70, 38), 14, 8, 0, PI
  LINE (55, 38)-(63, 38), 8
  LINE (85, 38)-(77, 38), 8
  LINE (63, 38)-(63, 60), 8
  LINE (77, 38)-(77, 60), 8
  LINE (70, 46)-(70, 60), 8
  LINE (63, 46)-(77, 46), 8
  LINE (58, 60)-(82, 60), 8
  PAINT (69, 50), 7, 8
  PAINT (71, 50), 7, 8
  PAINT (70, 38), 7, 8
  CIRCLE (70, 18), 10, 8
  PAINT (70, 18), 7, 8
  CIRCLE (58, 39), 2, 7
  PAINT (58, 39), 7, 7
  CIRCLE (82, 39), 2, 7
  PAINT (82, 39), 7, 7
REM ** TOYS **
  LINE (210, 50)-(230, 70), 2, B
  PAINT (220, 60), 4, 2
  LINE (217, 55)-(217, 65), 2
  LINE (217, 65)-(227, 65), 2

  LINE (270, 40)-(290, 60), 6, B
  PAINT (280, 50), 11, 6
  CIRCLE (280, 50), 7, 6
 
  LINE (230, 10)-(250, 30), 14, B
  PAINT (240, 20), 12, 14
  LINE (240, 15)-(240, 25), 14
 
REM ** ELECTRONICS **
  LINE (50, 130)-(110, 170), 8, B
  LINE (55, 135)-(105, 165), 8, B
  PAINT (54, 135), 8, 8
  LINE (80, 130)-(70, 110), 8
  LINE (80, 130)-(90, 110), 8
  PAINT (80, 140), 7, 8

REM ** WOMEN **
  CIRCLE (250, 150), 14, 12, 0, PI
  LINE (235, 150)-(245, 150), 12
  LINE (265, 150)-(255, 150), 12
  LINE (245, 150)-(235, 165), 12
  LINE (255, 150)-(265, 165), 12
  LINE (235, 165)-(265, 165), 12
  LINE (245, 165)-(245, 173), 12
  LINE (250, 165)-(250, 173), 12
  LINE (255, 165)-(255, 173), 12
  LINE (242, 173)-(258, 173), 12
  PAINT (250, 150), 13, 12
  PAINT (246, 170), 13, 12
  PAINT (253, 170), 13, 12
  CIRCLE (238, 151), 2, 13
  CIRCLE (262, 151), 2, 13
  PAINT (237, 151), 13, 13
  PAINT (263, 151), 13, 13
  CIRCLE (250, 130), 10, 12
  PAINT (250, 130), 13, 12


110 LOCATE 12
INPUT "WHICH DEPARTMENT? (1, 2, 3, 4)"; D
IF NOT D = 1 AND NOT D = 2 AND NOT D = 3 AND NOT D = 4 THEN GOTO 110
IF D = 1 THEN GOSUB MEN
IF D = 2 THEN GOSUB TOYS
IF D = 3 THEN GOSUB ELECTRONICS
IF D = 4 THEN GOSUB WOMEN
RETURN

MEN:
  CLS
  LOCATE 3
  PRINT "SORRY KID I HAVEN'T SEEN SPUD TODAY."
  LINE (0, 30)-(320, 30), 7
  LINE (0, 173)-(320, 173), 7

REM ** DESK **
  LINE (200, 120)-(280, 160), 6, B
  LINE (200, 120)-(220, 115), 6
  LINE (220, 115)-(290, 115), 6
  LINE (280, 120)-(290, 115), 6
  LINE (290, 115)-(290, 160), 6
  LINE (280, 160)-(290, 160), 6
  PAINT (240, 140), 7, 6
  PAINT (288, 150), 7, 6
  PAINT (240, 119), 7, 6

REM ** CLERK **
  CIRCLE (250, 80), 12, 7
  PAINT (250, 80), 6, 7
  CIRCLE (245, 78), 1, 7
  CIRCLE (255, 78), 1, 7
  CIRCLE (250, 81), 1, 4
  LINE (245, 85)-(255, 85), 4
  LINE (240, 75)-(260, 75), 0
  PAINT (250, 74), 0, 7
  CIRCLE (250, 103), 15, 9
  PAINT (250, 103), 9, 9
  LINE (250, 91)-(250, 115), 0
 
  LINE (260, 100)-(280, 119), 16, BF
  'PAINT (270, 115), 16, 7
  LINE (265, 103)-(275, 105), 7, BF
  LINE (280, 105)-(288, 107), 16
  LINE (288, 107)-(288, 115), 16
  LINE (280, 119)-(288, 115), 16
  PAINT (285, 110), 16, 16

REM ** BODY **
  LINE (25 + H, 135)-(15 + H, 145), 1 * C
  LINE (30 + H, 140)-(20 + H, 150), 1 * C
  LINE (15 + H, 145)-(20 + H, 150), 1 * C
  LINE (25 + H, 135)-(30 + H, 140), 1 * C
  PAINT (21 + H, 142), 1, 1 * C
  PAINT (19 + H, 145), 1, 1 * C
  LINE (55 + H, 135)-(65 + H, 145), 1 * C
  LINE (50 + H, 140)-(60 + H, 150), 1 * C
  LINE (55 + H, 135)-(50 + H, 140), 1 * C
  LINE (65 + H, 145)-(60 + H, 150), 1 * C
  PAINT (59 + H, 142), 1, 1 * C
  PAINT (61 + H, 145), 1, 1 * C
  CIRCLE (40 + H, 145), 20, 7 * C
  PAINT (40 + H, 145), 1, 7 * C
  CIRCLE (15 + H, 150), 2, 7 * C
  PAINT (15 + H, 150), 7, 7 * C
  CIRCLE (65 + H, 150), 2, 7 * C
  PAINT (65 + H, 150), 7, 7 * C
  LINE (30 + H, 160)-(50 + H, 170), 1 * C, BF
  LINE (40 + H, 160)-(40 + H, 170), 7 * C

  LINE (25 + H, 170)-(39 + H, 172), 10 * C, BF
  LINE (41 + H, 170)-(55 + H, 172), 10 * C, BF

REM ** HEAD **
  CIRCLE (40 + H, 120), 15, 6 * C
  PAINT (40 + H, 120), 7, 6 * C
  LINE (26 + H, 115)-(54 + H, 115), 6 * C
  PAINT (49 + H, 112), 6, 6 * C
  PSET (35 + H, 120)
  PSET (45 + H, 120)
  PSET (40 + H, 125)
  LINE (35 + H, 129)-(45 + H, 129), 4 * C

REM ** SIGN/FLOOR **
  COLOR 3
  LOCATE 7
  PRINT "           MEN'S"
  COLOR 2
  PAINT (20, 190), 1, 7
  LINE (60, 40)-(160, 60), 3, B
     SLEEP 7
     GOSUB QUITPAGE

RETURN

TOYS:
  CLS
  COLOR 12, 0
  LOCATE 2
  PRINT "    THOUGHT HE'D BE HERE DIDN'T YA!"
  PRINT "    WELL SORRY.  :(    NO SPUD HERE"
  LINE (0, 40)-(320, 40), 4
  LINE (O, 180)-(320, 180), 4
  PAINT (40, 160), 4, 4
REM ** HEAD **
  CIRCLE (160, 130), 50, 14
  PAINT (160, 130), 14, 14
REM ** HAT **
  LINE (120, 90)-(200, 105), 3, BF
  CIRCLE (200, 100), 42, 3, 0, PI
  CIRCLE (120, 100), 42, 3, 0, PI
  CIRCLE (220, 103), 23, 3, 0, PI
  CIRCLE (100, 103), 23, 3, 0, PI
  PAINT (180, 85), 3, 3
  PAINT (150, 85), 3, 3
  CIRCLE (243, 110), 7, 2
  CIRCLE (77, 110), 7, 2
  PAINT (243, 110), 2, 2
  PAINT (77, 110), 2, 2
REM ** FACE **
  CIRCLE (160, 155), 12, 0
  PAINT (160, 155), 0, 0
  LINE (140, 110)-(160, 115), 0
  LINE (180, 110)-(160, 115), 0
  CIRCLE (145, 120), 4, 1
  CIRCLE (175, 120), 4, 1
  PAINT (145, 120), 1, 1
  PAINT (175, 120), 1, 1
  CIRCLE (145, 120), 1, 11
  CIRCLE (175, 120), 1, 11
  PAINT (145, 120), 11, 11
  PAINT (175, 120), 11, 11
  LINE (160, 125)-(150, 135), 6
  LINE (150, 135)-(163, 135), 6
    SLEEP 6
    GOSUB QUITPAGE
  RETURN

ELECTRONICS:
  CLS
  
  LINE (0, 200)-(320, 200), 7
  LINE (0, 14)-(320, 14), 7
  LINE (0, 90)-(320, 90), 7
  LINE (0, 50)-(320, 50), 7
  PRINT "NOT MUCH BUSINESS IN THE ELECTRONICS"
  PRINT "  DEPARTMENT TODAY.  NO SPUD EITHER!"
  LINE (10, 15)-(10, 90), 7
  LINE (50, 15)-(50, 90), 7
  LINE (90, 15)-(90, 90), 7
  LINE (130, 15)-(130, 90), 7
  LINE (170, 15)-(170, 90), 7
  LINE (210, 15)-(210, 90), 7
  LINE (250, 15)-(250, 90), 7
  LINE (290, 15)-(290, 90), 7


  PAINT (40, 160), 1, 7
  LINE (20, 20)-(40, 40), 7, BF
  LINE (20, 60)-(40, 80), 7, BF
  LINE (60, 20)-(80, 40), 7, BF
  LINE (60, 60)-(80, 80), 7, BF
  LINE (100, 20)-(120, 40), 7, BF
  LINE (100, 60)-(120, 80), 7, BF
  LINE (140, 20)-(160, 40), 7, BF
  LINE (140, 60)-(160, 80), 7, BF
  LINE (180, 20)-(200, 40), 7, BF
  LINE (180, 60)-(200, 80), 7, BF
  LINE (220, 20)-(240, 40), 7, BF
  LINE (220, 60)-(240, 80), 7, BF
  LINE (260, 20)-(280, 40), 7, BF
  LINE (260, 60)-(280, 80), 7, BF
  LINE (300, 20)-(320, 40), 7, BF
  LINE (300, 60)-(320, 80), 7, BF
REM ** TV **
  LINE (50, 130)-(110, 170), 8, B
  LINE (55, 135)-(105, 165), 8, B
  PAINT (54, 135), 8, 8
  LINE (80, 130)-(70, 110), 8
  LINE (80, 130)-(90, 110), 8
  PAINT (80, 140), 7, 8
  
  LINE (120, 200)-(150, 90), 7
  LINE (200, 200)-(170, 90), 7
  PAINT (160, 160), 7, 7

REM ** DESK **
  LINE (200, 120)-(280, 160), 6, B
  LINE (200, 120)-(220, 115), 6
  LINE (220, 115)-(290, 115), 6
  LINE (280, 120)-(290, 115), 6
  LINE (290, 115)-(290, 160), 6
  LINE (280, 160)-(290, 160), 6
  PAINT (240, 140), 7, 6
  PAINT (288, 150), 7, 6
  PAINT (240, 119), 7, 6
 
  LINE (260, 100)-(280, 119), 16, BF
  LINE (265, 103)-(275, 105), 7, BF
  LINE (280, 105)-(288, 107), 16
  LINE (288, 107)-(288, 115), 16
  LINE (280, 119)-(288, 115), 16
  PAINT (285, 110), 16, 16

  SLEEP 6
  GOSUB QUITPAGE
 RETURN

WOMEN:
 CLS
  LOCATE 2
  PRINT "                YOU WIN!!!"
  LINE (0, 20)-(320, 20), 11
  PAINT (30, 30), 12, 11
REM ** BIG SPUD **
  CIRCLE (160, 70), 35, 6
  CIRCLE (160, 140), 50, 6
  PAINT (160, 70), 6, 6
  PAINT (160, 160), 6, 6
  LINE (120, 40)-(200, 45), 11, BF
  LINE (140, 25)-(180, 40), 11, BF
  CIRCLE (170, 60), 4, 1
  CIRCLE (150, 60), 4, 1
  PAINT (170, 60), 1, 1
  PAINT (150, 60), 1, 1
  CIRCLE (170, 60), 2, 0
  CIRCLE (150, 60), 2, 0
  PAINT (170, 60), 0, 0
  PAINT (150, 60), 0, 0
  CIRCLE (160, 70), 3, 4
  PAINT (160, 70), 4, 4
  CIRCLE (160, 80), 10, 4, PI * 1, 0
  LINE (90, 110)-(130, 130), 6
  LINE (230, 110)-(190, 130), 6
  LINE (160, 180)-(180, 200), 6
  LINE (160, 180)-(140, 200), 6
  SLEEP 6
  GOSUB WIN
 RETURN

PUBLIX:
 CLS
 PAINT (30, 30), 8, 14
 PRINT "                YOU LOSE                "
 PRINT "       SPUD WASN'T LEFT AT PUBLIX       "
 CIRCLE (160, 90), 80, 14
 PAINT (140, 90), 9, 14
 CIRCLE (130, 60), 10, 14
 PAINT (130, 60), 0, 14
 CIRCLE (190, 60), 10, 14
 PAINT (190, 60), 0, 14
 CIRCLE (160, 130), 30, 14, 0, PI

 SLEEP 6
 GOSUB QUITPAGE
RETURN


WIN:
 CLS
700
 LOCATE 15
 INPUT "WOULD YOU LIKE TO PLAY AGAIN?(YES, NO)"; PLAY$
 IF PLAY$ = "YES" THEN GOTO 5
 IF PLAY$ = "NO" THEN GOSUB QUITPAGE
 IF NOT PLAY$ = "YES" AND NOT PLAY$ = "NO" THEN GOTO 700


RETURN



QUITPAGE:
CLS
COLOR 1, 0
REM ** L **
  LINE (40, 40)-(45, 80), 4, BF
  LINE (40, 75)-(70, 80), 4, BF
REM ** A **
  LINE (85, 40)-(90, 80), 4, BF
  LINE (85, 40)-(115, 45), 4, BF
  LINE (110, 40)-(115, 80), 4, BF
  LINE (90, 60)-(110, 65), 4, BF
REM ** T **
  LINE (125, 40)-(155, 45), 4, BF
  LINE (137, 45)-(143, 80), 4, BF
REM ** E **
  LINE (165, 40)-(170, 80), 4, BF
  LINE (170, 40)-(195, 45), 4, BF
  LINE (170, 55)-(195, 60), 4, BF
  LINE (170, 75)-(195, 80), 4, BF
REM ** R **
  LINE (205, 40)-(210, 80), 4, BF
  LINE (205, 40)-(235, 45), 4, BF
  LINE (235, 45)-(230, 60), 4, BF
  LINE (230, 60)-(205, 55), 4, BF
  LINE (225, 60)-(230, 80), 4
  LINE (230, 60)-(235, 80), 4
  LINE (230, 80)-(235, 80), 4
  PAINT (230, 70), 4
REM ** SPUD **
  CIRCLE (160, 145), 12, 6
  PAINT (160, 140), 6
  LINE (160, 150)-(155, 160), 6
  LINE (160, 150)-(165, 160), 6
  CIRCLE (160, 128), 7, 6
  PAINT (160, 128), 6
  PSET (157, 125)
  PSET (162, 125)
  PSET (160, 128)
  PSET (160, 147)
  LINE (157, 130)-(162, 130), 4
  LINE (160, 140)-(140, 137), 6
  LINE (160, 140)-(180, 137), 6
  LINE (150, 122)-(170, 122), 3
  LINE (155, 118)-(165, 122), 3, BF
  
RESTORE
FOR B = 1 TO 29
READ N, D
SOUND N, D

NEXT B
DATA 261, 4, 32767, 1, 293, 4, 32767, 1, 310, 8, 32767, 1, 310, 4, 32767, 15
DATA 310, 4, 32767, 1, 349, 4, 32767, 1, 370, 8, 32767, 1, 370, 4, 32767, 15
DATA 455, 8, 32767, 1, 420, 8, 32767, 1, 349, 6, 32767, 15
DATA 349, 4, 32767, 1, 276, 4, 32767, 1, 310, 8, 32767, 1, 310, 4
750
LOCATE 22
PRINT "WOULD YOU LIKE TO PLAY AGAIN"
INPUT "(YES OR NO)"; ANS$
IF ANS$ = "YES" THEN GOTO 5
IF ANS$ = "NO" THEN END
IF NOT ANS$ = "YES" AND NOT ANS$ = "NO" THEN 750
END
 RETURN