'===========================================================================
' Subject: THE CHASE: KIND OF LIKE NIBBLES    Date: 07-25-99 (14:37)       
'  Author: Scott Stein                        Code: QB, QBasic, PDS        
'  Origin: santa@tir.com                    Packet: GAMES.ABC
'===========================================================================

DECLARE SUB intro ()
DECLARE SUB jimlef ()
DECLARE SUB jimright ()
DECLARE SUB jimup ()
DECLARE SUB jimdown ()
DECLARE SUB mikelef ()
DECLARE SUB mikeright ()
DECLARE SUB mikeup ()
DECLARE SUB mikedown ()

DEFINT A-Z
COMMON SHARED jimx
COMMON SHARED jimy
COMMON SHARED mikex
COMMON SHARED mikey
COMMON SHARED bobx
COMMON SHARED boby

ON KEY(1) GOSUB terminate
KEY(1) ON
CLS
vhf5 = 1
intro

level = 1
COLOR 9
CLS
count = -1
1 count = count + 1                     '
hi = 0
l = 0
IF count = 3 THEN                       '
LOCATE 12, 40                           ' counts turns & tells player when
PRINT "YOU LOSE"                        ' he loses
END                                     '
ELSE GOTO 6                             '
END IF                                  '
                                        '

6 SCREEN 8
CLS
COLOR 4
heywood = 1
DO WHILE heywood <> 0
LOCATE 3, 2
IF vhf5 = 1 THEN PRINT "Press space to begin "
IF vhf5 = 2 THEN PRINT "Press space to continue"
IF INKEY$ = " " GOTO 9998
LOOP
9998 CLS
IF level = 1 THEN              '
bobx = 13                      '
boby = 40                      ' Locates Bob's starting position on level 1
END IF                         '
IF level = 2 OR level = 3 OR level = 4 THEN              '
bobx = 5                       ' Locates Bob's starting position on level 2
boby = 25                      '
hi = 1
END IF                         '

LOCATE bobx, boby              ' Prints Bob using coordinates determined by
PRINT "ßß"                     ' level
                               
mikex = 21
mikey = 76
LOCATE mikex, mikey
COLOR 5
PRINT "ßß"
jimx = 2
jimy = 5
LOCATE jimx, jimy
COLOR 2
PRINT "ßß"
5 COLOR 9, 0                    '
                              
ghi = 3                         '
LINE (5, 5)-(5, 168)            ' Draws first box
LINE (5, 5)-(633, 5)            '
LINE (633, 5)-(633, 168)        '
LINE (633, 168)-(5, 168)        '
IF level = 2 OR level = 4 THEN LINE (316, 30)-(316, 155)      '
IF level = 3 OR level = 4 THEN LINE (40, 88)-(595, 88)
'''''''''''''''''''''''''''''''
LINE (6, 6)-(6, 169)            '
LINE (6, 6)-(632, 6)            ' Draws second box
LINE (632, 6)-(632, 169)        '
LINE (632, 169)-(6, 169)        '
IF level = 2 OR level = 4 THEN LINE (315, 30)-(315, 155)
IF level = 3 OR level = 4 THEN LINE (41, 88)-(596, 88)
3 RANDOMIZE TIMER               '
r1 = INT((RND * 20) + 2)        ' creates random numbers for number coordinates
r2 = INT((RND * 75) + 2)        '
IF (level = 2 OR level = 4) AND r1 > 4 AND r1 < 21 AND r2 = 40 THEN GOTO 3
IF (level = 3 OR level = 4) AND r1 = 12 AND r2 > 5 AND r2 < 76 THEN GOTO 3
l = l + 1                                       '
        IF l = 10 THEN                          '
                level = level + 1               '
                l = 1                           '
                GOTO 6                          '
        END IF                                  '
LOCATE r1, r2                   ' locates random coordinates and prints
PRINT CHR$(1)                         ' # there
LOCATE 23, 40                   ' prints # of turns left under board
PRINT "Level"; level
LOCATE 23, 5
PRINT "Sailors:"; 10 - l
LOCATE 23, 70
PRINT "Turns:"; 3 - count%       '
IF hi = 1 THEN GOTO 100
IF hi = 2 THEN GOTO 200
IF hi = 3 THEN GOTO 300
IF hi = 4 THEN GOTO 400









100 FOR i% = 1 TO 100                            '
vhf5 = 2
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
ghi = ghi + 1
IF ghi > 3 THEN ghi = 1
COLOR 4
boby = boby + 1                                 ' moves bob to the right by
IF boby = 79 OR boby = 1 THEN GOTO 1            ' pressing 6
IF boby = jimy AND bobx = jimx THEN GOTO 1
IF boby = mikey AND bobx = mikex THEN GOTO 1
        IF level = 2 OR level = 4 THEN
        GOTO 107
        ELSE GOTO 108
        END IF
107 IF bobx > 4 AND bobx < 21 AND boby = 40 THEN GOTO 1
108 IF level = 3 OR level = 4 THEN
        GOTO 109
        ELSE GOTO 130
        END IF
109 IF bobx = 12 AND boby > 5 AND boby < 76 THEN GOTO 1
130 COLOR 4
LOCATE bobx, boby                               '
PRINT "ßß"                                      '
LOCATE bobx, boby - 2                           ''
PRINT "  "                                      ''
LOCATE bobx - 1, boby                           ''
PRINT " "                                       '' deletes spaces around Bob
LOCATE bobx + 1, boby                           ''
PRINT " "                                       ''
hi = 1                                          ''
IF (bobx = r1 OR bobx + 1 = r1 OR bobx - 1 = r1) AND (boby = r2 OR boby + 1 = r2 OR boby - 1 = r2) THEN GOTO 5          '' checks if Bob got the number
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF ghi = 1 OR ghi = 2 THEN
GOTO 101
ELSE GOTO 105
END IF
101 IF ABS(jimy - boby) > ABS(jimx - bobx) THEN GOTO 103
IF ABS(jimy - boby) < ABS(jimx - bobx) THEN GOTO 104
IF ABS(jimy - boby) = ABS(jimx - bobx) THEN GOTO 103
103 IF SGN(jimy - boby) = 1 THEN jimlef
IF SGN(jimy - boby) = -1 THEN jimright
GOTO 160
104 IF SGN(jimx - bobx) = 1 THEN jimup
IF SGN(jimx - bobx) = -1 THEN jimdown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
160 IF ABS(mikey - boby) > ABS(mikex - bobx) THEN GOTO 161
IF ABS(mikey - boby) < ABS(mikex - bobx) THEN GOTO 162
IF ABS(mikey - boby) = ABS(mikex - bobx) THEN GOTO 161
161 IF SGN(mikey - boby) = 1 THEN mikelef
IF SGN(mikey - boby) = -1 THEN mikeright
GOTO 105
162 IF SGN(mikex - bobx) = 1 THEN mikeup
IF SGN(mikex - bobx) = -1 THEN mikedown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
105 IF bobx = jimx AND (boby = jimy OR boby + 1 = jimy) THEN GOTO 1
IF bobx = mikex AND (boby = mikey OR boby + 1 = mikey) THEN GOTO 1
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
l$ = INKEY$
IF l$ = "2" OR l$ = CHR$(0) + "P" THEN GOTO 300                     '
IF l$ = "4" OR l$ = CHR$(0) + "K" THEN GOTO 200                         ' checks for next movement
IF l$ = "8" OR l$ = CHR$(0) + "H" THEN GOTO 400                        '
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
IF level = 2 OR level = 4 THEN LINE (316, 30)-(316, 155)
IF level = 2 OR level = 4 THEN LINE (315, 30)-(315, 155)
IF level = 3 OR level = 4 THEN LINE (40, 88)-(595, 88)
IF level = 3 OR level = 4 THEN LINE (41, 88)-(596, 88)
COLOR 4                                         ' moves color back to red
NEXT i%




200 FOR i% = 1 TO 100
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
ghi = ghi + 1
IF ghi > 3 THEN ghi = 1
boby = boby - 1
IF boby = 1 OR boby = 79 THEN GOTO 1
IF boby = jimy AND bobx = jim THEN GOTO 1
IF boby = mikey AND bobx = mikex THEN GOTO 1
        IF level = 2 OR level = 4 THEN
        GOTO 207
        ELSE GOTO 230
        END IF
207 IF bobx > 4 AND bobx < 21 AND boby = 40 THEN GOTO 1
208 IF level = 3 OR level = 4 THEN
        GOTO 209
        ELSE GOTO 230
        END IF
209 IF bobx = 12 AND boby > 5 AND boby < 76 THEN GOTO 1
230 LOCATE bobx, boby
PRINT "ßßß"
LOCATE bobx, boby + 2
PRINT "  "
LOCATE bobx + 1, boby
PRINT " "
LOCATE bobx - 1, boby
PRINT " "
l$ = INKEY$
hi = 2
IF (bobx = r1 OR bobx + 1 = r1 OR bobx - 1 = r1) AND (boby = r2 OR boby + 1 = r2 OR boby - 1 = r2) THEN GOTO 5
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF ghi = 1 OR ghi = 2 THEN
GOTO 201
ELSE GOTO 205
END IF
201 IF ABS(jimy - boby) > ABS(jimx - bobx) THEN GOTO 203
IF ABS(jimy - boby) < ABS(jimx - bobx) THEN GOTO 204
IF ABS(jimy - boby) = ABS(jimx - bobx) THEN GOTO 203
203 IF SGN(jimy - boby) = 1 THEN jimlef
IF SGN(jimy - boby) = -1 THEN jimright
GOTO 260
204 IF SGN(jimx - bobx) = 1 THEN jimup
IF SGN(jimx - bobx) = -1 THEN jimdown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
260 IF ABS(mikey - boby) > ABS(mikex - bobx) THEN GOTO 261
IF ABS(mikey - boby) < ABS(mikex - bobx) THEN GOTO 262
IF ABS(mikey - boby) = ABS(mikex - bobx) THEN GOTO 261
261 IF SGN(mikey - boby) = 1 THEN mikelef
IF SGN(mikey - boby) = -1 THEN mikeright
GOTO 205
262 IF SGN(mikex - bobx) = 1 THEN mikeup
IF SGN(mikex - bobx) = -1 THEN mikedown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
205 IF bobx = jimx AND (boby = jimy OR boby + 1 = jimy) THEN GOTO 1
IF bobx = mikex AND (boby = mikey OR boby + 1 = mikey) THEN GOTO 1
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
IF l$ = "6" OR l$ = CHR$(0) + "M" THEN GOTO 100
IF l$ = "2" OR l$ = CHR$(0) + "P" THEN GOTO 300
IF l$ = "8" OR l$ = CHR$(0) + "H" THEN GOTO 400
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
IF level = 2 OR level = 4 THEN LINE (316, 30)-(316, 155)
IF level = 2 OR level = 4 THEN LINE (315, 30)-(315, 155)
IF level = 3 OR level = 4 THEN LINE (40, 88)-(595, 88)
IF level = 3 OR level = 4 THEN LINE (41, 88)-(596, 88)
COLOR 4
NEXT i%




300 FOR i% = 1 TO 40
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
ghi = ghi + 1
IF ghi > 3 THEN ghi = 1
bobx = bobx + 1
IF bobx = 22 OR bobx = 1 THEN GOTO 1
IF bobx = jimx AND boby = jimy THEN GOTO 1
IF bobx = mikex AND boby = mikey THEN GOTO 1
        IF level = 2 OR level = 4 THEN
        GOTO 307
        ELSE GOTO 308
        END IF
307 IF bobx > 4 AND bobx < 21 AND boby = 40 THEN GOTO 1
308 IF level = 3 OR level = 4 THEN
        GOTO 309
        ELSE GOTO 330
        END IF
309 IF bobx = 12 AND boby > 5 AND boby < 76 THEN GOTO 1
330 LOCATE bobx, boby
PRINT "Û"
LOCATE bobx - 1, boby
PRINT " "
LOCATE bobx - 1, boby + 1
PRINT " "
LOCATE bobx, boby - 1
PRINT " "
LOCATE bobx, boby + 1
PRINT " "
FOR j% = 1 TO 13000
NEXT j%
l$ = INKEY$
hi = 3
IF (bobx = r1 OR bobx + 1 = r1 OR bobx - 1 = r1) AND (boby = r2 OR boby + 1 = r2 OR boby - 1 = r2) THEN GOTO 5
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF ghi = 1 OR ghi = 2 THEN
GOTO 301
ELSE GOTO 305
END IF
301 IF ABS(jimy - boby) > ABS(jimx - bobx) THEN GOTO 303
IF ABS(jimy - boby) < ABS(jimx - bobx) THEN GOTO 304
IF ABS(jimy - boby) = ABS(jimx - bobx) THEN GOTO 303
303 IF SGN(jimy - boby) = 1 THEN jimlef
IF SGN(jimy - boby) = -1 THEN jimright
GOTO 360
304 IF SGN(jimx - bobx) = 1 THEN jimup
IF SGN(jimx - bobx) = -1 THEN jimdown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
360 IF ABS(mikey - boby) > ABS(mikex - bobx) THEN GOTO 361
IF ABS(mikey - boby) < ABS(mikex - bobx) THEN GOTO 362
IF ABS(mikey - boby) = ABS(mikex - bobx) THEN GOTO 361
361 IF SGN(mikey - boby) = 1 THEN mikelef
IF SGN(mikey - boby) = -1 THEN mikeright
GOTO 305
362 IF SGN(mikex - bobx) = 1 THEN mikeup
IF SGN(mikex - bobx) = -1 THEN mikedown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
305 IF bobx = jimx AND (boby = jimy OR boby + 1 = jimy) THEN GOTO 1
IF bobx = mikex AND (boby = mikey OR boby + 1 = mikey) THEN GOTO 1
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
IF l$ = "6" OR l$ = CHR$(0) + "M" THEN GOTO 100
IF l$ = "4" OR l$ = CHR$(0) + "K" THEN GOTO 200
IF l$ = "8" OR l$ = CHR$(0) + "H" THEN GOTO 400
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
IF level = 2 OR level = 4 THEN LINE (316, 30)-(316, 155)
IF level = 2 OR level = 4 THEN LINE (315, 30)-(315, 155)
IF level = 3 OR level = 4 THEN LINE (40, 88)-(595, 88)
IF level = 3 OR level = 4 THEN LINE (41, 88)-(596, 88)
COLOR 4
NEXT i%




400 FOR i% = 1 TO 40
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
ghi = ghi + 1
IF ghi > 3 THEN ghi = 1
bobx = bobx - 1
IF bobx = 1 OR bobx = 22 THEN GOTO 1
IF bobx = jimx AND boby = jimy THEN GOTO 1
IF bobx = mikex AND boby = mikey THEN GOTO 1
        IF level = 2 OR level = 4 THEN
        GOTO 407
        ELSE GOTO 408
        END IF
407 IF bobx > 4 AND bobx < 21 AND boby = 40 THEN GOTO 1
408 IF level = 3 OR level = 4 THEN
        GOTO 409
        ELSE GOTO 430
        END IF
409 IF bobx = 12 AND boby > 5 AND boby < 76 THEN GOTO 1
430 LOCATE bobx, boby
PRINT "Û"
LOCATE bobx + 1, boby
PRINT " "
LOCATE bobx + 1, boby + 1
PRINT " "
LOCATE bobx, boby - 1
PRINT " "
LOCATE bobx, boby + 1
PRINT " "
FOR j% = 1 TO 13000
NEXT j%
l$ = INKEY$
hi = 4
IF (bobx = r1 OR bobx + 1 = r1 OR bobx - 1 = r1) AND (boby = r2 OR boby + 1 = r2 OR boby - 1 = r2) THEN GOTO 5
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
IF ghi = 1 OR ghi = 2 THEN
GOTO 401
ELSE GOTO 405
END IF
401 IF ABS(jimy - boby) > ABS(jimx - bobx) THEN GOTO 403
IF ABS(jimy - boby) < ABS(jimx - bobx) THEN GOTO 404
IF ABS(jimy - boby) = ABS(jimx - bobx) THEN GOTO 403
403 IF SGN(jimy - boby) = 1 THEN jimlef
IF SGN(jimy - boby) = -1 THEN jimright
GOTO 460
404 IF SGN(jimx - bobx) = 1 THEN jimup
IF SGN(jimx - bobx) = -1 THEN jimdown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
460 IF ABS(mikey - boby) > ABS(mikex - bobx) THEN GOTO 461
IF ABS(mikey - boby) < ABS(mikex - bobx) THEN GOTO 462
IF ABS(mikey - boby) = ABS(mikex - bobx) THEN GOTO 461
461 IF SGN(mikey - boby) = 1 THEN mikelef
IF SGN(mikey - boby) = -1 THEN mikeright
GOTO 405
462 IF SGN(mikex - bobx) = 1 THEN mikeup
IF SGN(mikex - bobx) = -1 THEN mikedown
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
405 IF bobx = jimx AND (boby = jimy OR boby + 1 = jimy) THEN GOTO 1
IF bobx = mikex AND (boby = mikey OR boby + 1 = mikey) THEN GOTO 1
COLOR 9
LOCATE r1, r2
PRINT CHR$(1)
COLOR 4
IF l$ = "6" OR l$ = CHR$(0) + "M" THEN GOTO 100
IF l$ = "4" OR l$ = CHR$(0) + "K" THEN GOTO 200
IF l$ = "2" OR l$ = CHR$(0) + "P" THEN GOTO 300
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
IF level = 2 OR level = 4 THEN LINE (316, 30)-(316, 155)
IF level = 2 OR level = 4 THEN LINE (315, 30)-(315, 155)
IF level = 3 OR level = 4 THEN LINE (40, 88)-(595, 88)
IF level = 3 OR level = 4 THEN LINE (41, 88)-(596, 88)
COLOR 4
NEXT i%


terminate:
COLOR 7
END
SUB intro

CLS
LOCATE 13, 35
COLOR 14
PRINT "THE CHASE"
LOCATE 14, 32
PRINT "by Scott Stein"
COLOR 9
PRINT
LOCATE 16, 14
PRINT "You are a red ship trying to rescue  your sailors floating"
LOCATE 17, 14
PRINT "in the sea. If you run into a wall you die. You must also"
LOCATE 18, 14
PRINT "escape the slower green and purple ships. However, they can"
LOCATE 19, 14
PRINT "move through walls. Good luck, you'll need it!!!!"


    COLOR 4, 0
    a$ = "*    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    *    "
    WHILE INKEY$ <> "": WEND 'Clear keyboard buffer
    WHILE INKEY$ = ""
        FOR a = 1 TO 5
            LOCATE 1, 1                             'print horizontal sparkles
            PRINT MID$(a$, a, 80);
            LOCATE 22, 1
            PRINT MID$(a$, 6 - a, 80);
            FOR b = 2 TO 21                         'Print Vertical sparkles
                c = (a + b) MOD 5
                IF c = 1 THEN
                    LOCATE b, 80
                    PRINT "*";
                    LOCATE 23 - b, 1
                    PRINT "*";
                ELSE
                    LOCATE b, 80
                    PRINT " ";
                    LOCATE 23 - b, 1
                    PRINT " ";
                END IF
            NEXT b
        NEXT a
    WEND


END SUB
SUB jimdown
FOR i% = 1 TO 1
COLOR 2
jimx = jimx + 1
LOCATE jimx, jimy
PRINT "Û"
LOCATE jimx - 1, jimy
PRINT " "
LOCATE jimx - 1, jimy + 1
PRINT " "
LOCATE jimx, jimy - 1
PRINT " "
LOCATE jimx, jimy + 1
PRINT " "
FOR j% = 1 TO 4000
NEXT j%
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%

END SUB
SUB jimlef
FOR i% = 1 TO 1
COLOR 2
jimy = jimy - 1
LOCATE jimx, jimy
PRINT "ßßß"
LOCATE jimx, jimy + 2
PRINT "  "
LOCATE jimx + 1, jimy
PRINT " "
LOCATE jimx - 1, jimy
PRINT " "
FOR j% = 1 TO 4000
NEXT j%
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%
END SUB
SUB jimright
FOR i% = 1 TO 1
COLOR 2
jimy = jimy + 1                                 ' moves bob to the right by
LOCATE jimx, jimy                               '
PRINT "ßß"                                      '
LOCATE jimx, jimy - 2                           ''
PRINT "  "                                      ''
LOCATE jimx - 1, jimy                           ''
PRINT " "                                       '' deletes spaces around Bob
LOCATE jimx + 1, jimy                           ''
PRINT " "                                       ''
FOR j% = 1 TO 4000                              ' delays game for movement
NEXT j%                                         '
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4                                         ' moves color back to red
NEXT i%
END SUB
SUB jimup
FOR i% = 1 TO 1
COLOR 2
jimx = jimx - 1
LOCATE jimx, jimy
PRINT "Û"
LOCATE jimx + 1, jimy
PRINT " "
LOCATE jimx + 1, jimy + 1
PRINT " "
LOCATE jimx, jimy - 1
PRINT " "
LOCATE jimx, jimy + 1
PRINT " "
FOR j% = 1 TO 4000
NEXT j%
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%

END SUB
SUB mikedown
FOR i% = 1 TO 1
COLOR 5
IF mikey = jimy AND mikex + 1 = jimx THEN
mikeup
GOTO 1991
END IF
mikex = mikex + 1
LOCATE mikex, mikey
PRINT "Û"
LOCATE mikex - 1, mikey
PRINT " "
LOCATE mikex - 1, mikey + 1
PRINT " "
LOCATE mikex, mikey - 1
PRINT " "
LOCATE mikex, mikey + 1
PRINT " "
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%

1991 END SUB
SUB mikelef
FOR i% = 1 TO 1
COLOR 5
IF mikex = jimx AND mikey - 1 = jimy THEN
mikeright
GOTO 1992
END IF
mikey = mikey - 1
LOCATE mikex, mikey
PRINT "ßßß"
LOCATE mikex, mikey + 2
PRINT "  "
LOCATE mikex + 1, mikey
PRINT " "
LOCATE mikex - 1, mikey
PRINT " "
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%
1992 END SUB
SUB mikeright
FOR i% = 1 TO 1
COLOR 5
IF mikex = jimx AND mikey + 1 = jimy THEN
mikelef
GOTO 1990
END IF
mikey = mikey + 1
LOCATE mikex, mikey
PRINT "ßß"
LOCATE mikex, mikey - 2
PRINT "  "
LOCATE mikex - 1, mikey
PRINT " "
LOCATE mikex + 1, mikey
PRINT " "
COLOR 9, 0
LINE (5, 5)-(5, 168)
LINE (5, 5)-(633, 5)
LINE (633, 5)-(633, 168)
LINE (633, 168)-(5, 168)
LINE (6, 6)-(6, 169)
LINE (6, 6)-(632, 6)
LINE (632, 6)-(632, 169)
LINE (632, 169)-(6, 169)
COLOR 4
NEXT i%

1990 END SUB
SUB mikeup
FOR i% = 1 TO 1
COLOR 5
IF mikey = jimy AND mikex - 1 = jimx THEN
jimdown
GOTO 1993
END IF
mikex = mikex - 1
LOCATE mikex, mikey
PRINT "Û"
LOCATE mikex + 1, mikey
PRINT " "
LOCATE mikex + 1, mikey + 1
PRINT " "
LOCATE mikex, mikey - 1
PRINT " "
LOCATE mikex, mikey + 1
PRINT " "
COLOR 9, 0                                      ''
LINE (5, 5)-(5, 168)                            ''
LINE (5, 5)-(633, 5)                            ''
LINE (633, 5)-(633, 168)                        '' redraws board
LINE (633, 168)-(5, 168)                        ''
LINE (6, 6)-(6, 169)                            ''
LINE (6, 6)-(632, 6)                            ''
LINE (632, 6)-(632, 169)                        ''
LINE (632, 169)-(6, 169)                        ''
COLOR 4
NEXT i%
1993 END SUB