'=========================================================================== ' 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