REM Add 10 more circles DECLARE SUB Vlines () DECLARE SUB rlines () DECLARE SUB Llines () DECLARE SUB upLines () DIM answer AS INTEGER counter = 1 'evade COLOR 2 PRINT "_________ ___ __ _________ ___________ ---------- " PRINT "| _____| \ \ / / ||--------|| ||_________|| | _____| " PRINT "| | \ \ / / || || || || | | " PRINT "| _____ \ \ / / ||________|| || || | _____ " PRINT "| -----| \ \ / / ||________|| || || | -----| " PRINT "| | \ \ / / || || || || | | " PRINT "| _____ \ \__/ / || || ||_________|| | _____ " PRINT "|________| \____/ || || |_________|| |________| " COLOR 4 6 PRINT "MENU" PRINT "****" PRINT "1.PLAY" PRINT "2.INTROCUTIONS" PRINT "3.EXIT" PRINT "4.ABOUT ME" INPUT ":"; answer c2 = 0 CLS IF answer = 1 THEN GOTO 5 ELSEIF answer = 2 THEN PRINT " |" PRINT " 'a'= <-- ////\\\\ 's'= v ///\\\\ 'w'= ^ ////\\\\ 'd' = ---> " PRINT " | " GOTO 6 ELSEIF answer = 3 THEN END ELSEIF answer = 4 THEN PRINT " NAME: Ian Bester" PRINT "EMAIL: bleachbynirvana@netscape.net" GOTO 6 ELSE PRINT "NUMBER CAN NOT BE USED" SLEEP GOTO 6 END IF 5 CLS x = 10 y = 30 t = 10 f = 170 c = 150 v = 30 z = 0 c2 = 270 v2 = 110 z2 = 0 FOR i = 0 TO 9999 SCREEN 7 CALL Vlines CALL rlines CALL Llines CALL upLines 'boxes LINE (40, 40)-(60, 60), 7, BF LINE (40, 80)-(60, 100), 7, BF LINE (40, 120)-(60, 140), 7, BF LINE (40, 160)-(60, 180), 7, BF LINE (40, 0)-(60, 20), 7, BF LINE (80, 40)-(100, 60), 7, BF LINE (80, 80)-(100, 100), 7, BF LINE (80, 120)-(100, 140), 7, BF LINE (80, 160)-(100, 180), 7, BF LINE (80, 0)-(100, 20), 7, BF LINE (120, 40)-(140, 60), 7, BF LINE (120, 80)-(140, 100), 7, BF LINE (120, 120)-(140, 140), 7, BF LINE (120, 160)-(140, 180), 7, BF LINE (120, 0)-(140, 20), 7, BF LINE (160, 40)-(180, 60), 7, BF LINE (160, 80)-(180, 100), 7, BF LINE (160, 120)-(180, 140), 7, BF LINE (160, 160)-(180, 180), 7, BF LINE (160, 0)-(180, 20), 7, BF LINE (200, 40)-(220, 60), 7, BF LINE (200, 80)-(220, 100), 7, BF LINE (200, 120)-(220, 140), 7, BF LINE (200, 160)-(220, 180), 7, BF LINE (200, 0)-(220, 20), 7, BF LINE (240, 40)-(260, 60), 7, BF LINE (240, 80)-(260, 100), 7, BF LINE (240, 120)-(260, 140), 7, BF LINE (240, 160)-(260, 180), 7, BF LINE (240, 0)-(260, 20), 7, BF LINE (280, 40)-(300, 60), 7, BF LINE (280, 80)-(300, 100), 7, BF LINE (280, 120)-(300, 140), 7, BF LINE (280, 160)-(300, 180), 7, BF LINE (280, 0)-(300, 20), 7, BF 'SLEEP 1 FOR delay = 1 TO 9999 NEXT delay IF i MOD 2 = 0 THEN RANDOMIZE TIMER boom = INT(RND * 4) boom2 = INT(RND * 4) IF x >= (c - 30) AND y = v THEN c = c + 10 z = 15 ELSEIF x <= (c + 30) AND y = v THEN c = c - 10 z = 15 ELSEIF y >= (v - 30) AND x = c THEN v = v + 10 z = 15 ELSEIF y <= (v + 30) AND x = c THEN v = v - 10 z = 15 ELSE z = 0 END IF IF x >= (c2 - 149) AND y = v2 THEN c2 = c2 + 10 z2 = 15 ELSEIF x <= (c2 + 151) AND y = v2 THEN c2 = c2 - 10 z2 = 15 ELSEIF y >= (v2 - 89) AND x = c2 THEN v2 = v2 + 10 z2 = 15 ELSEIF y <= (v2 + 91) AND x = c2 THEN v2 = v2 - 10 z2 = 15 ELSE z2 = 0 END IF END IF IF c = x AND y = v THEN PRINT TAB(30); "u lose" GOTO 1 END IF IF c2 = x AND y2 = v THEN PRINT TAB(30); "u lose" GOTO 1 END IF IF i = 9999 THEN GOTO 2 END IF keystroke$ = INKEY$ IF keystroke$ = "w" THEN y = y - 10 ELSEIF keystroke$ = "s" THEN y = y + 10 ELSEIF keystroke$ = "d" THEN x = x + 10 ELSEIF keystroke$ = "a" THEN x = x - 10 ELSEIF keystroke$ = "q" THEN GOTO 2 END IF IF y = 180 THEN y = 20 END IF IF y = 10 THEN y = 170 END IF IF x = 10 THEN x = 300 END IF IF x = 310 THEN x = 20 END IF IF v = 180 THEN v = 20 END IF IF v = 10 THEN v = 170 END IF IF c = 10 THEN c = 310 END IF IF c = 320 THEN c = 20 END IF IF v2 = 180 THEN v2 = 20 END IF IF v2 = 10 THEN v2 = 170 END IF IF c2 = 10 THEN c2 = 310 END IF IF c2 = 320 THEN c2 = 20 END IF SCREEN 7 CIRCLE (310, 150), 5, 0 CIRCLE (300, 150), 5, 0 CIRCLE (290, 150), 5, 0 CIRCLE (280, 150), 5, 0 CIRCLE (270, 150), 5, 0 CIRCLE (260, 150), 5, 0 CIRCLE (250, 150), 5, 0 CIRCLE (240, 150), 5, 0 CIRCLE (230, 150), 5, 0 CIRCLE (220, 150), 5, 0 CIRCLE (210, 150), 5, 0 CIRCLE (310, 190), 5, 0 CIRCLE (300, 190), 5, 0 CIRCLE (290, 190), 5, 0 CIRCLE (280, 190), 5, 0 CIRCLE (270, 190), 5, 0 CIRCLE (260, 190), 5, 0 CIRCLE (250, 190), 5, 0 CIRCLE (240, 190), 5, 0 CIRCLE (230, 190), 5, 0 CIRCLE (220, 190), 5, 0 CIRCLE (210, 190), 5, 0 CIRCLE (200, 190), 5, 0 CIRCLE (190, 190), 5, 0 CIRCLE (180, 190), 5, 0 CIRCLE (170, 190), 5, 0 CIRCLE (160, 190), 5, 0 CIRCLE (150, 190), 5, 0 CIRCLE (140, 190), 5, 0 CIRCLE (130, 190), 5, 0 CIRCLE (120, 190), 5, 0 CIRCLE (110, 190), 5, 0 CIRCLE (100, 190), 5, 0 CIRCLE (90, 190), 5, 0 CIRCLE (80, 190), 5, 0 CIRCLE (70, 190), 5, 0 CIRCLE (60, 190), 5, 0 CIRCLE (50, 190), 5, 0 CIRCLE (40, 190), 5, 0 CIRCLE (30, 190), 5, 0 CIRCLE (20, 190), 5, 0 CIRCLE (10, 190), 5, 0 CIRCLE (200, 150), 5, 0 CIRCLE (190, 150), 5, 0 CIRCLE (180, 150), 5, 0 CIRCLE (170, 150), 5, 0 CIRCLE (160, 150), 5, 0 CIRCLE (150, 150), 5, 0 CIRCLE (140, 150), 5, 0 CIRCLE (130, 150), 5, 0 CIRCLE (120, 150), 5, 0 CIRCLE (110, 150), 5, 0 CIRCLE (100, 150), 5, 0 CIRCLE (90, 150), 5, 0 CIRCLE (80, 150), 5, 0 CIRCLE (70, 150), 5, 0 CIRCLE (60, 150), 5, 0 CIRCLE (50, 150), 5, 0 CIRCLE (40, 150), 5, 0 CIRCLE (30, 150), 5, 0 CIRCLE (20, 150), 5, 0 CIRCLE (10, 150), 5, 0 CIRCLE (310, 110), 5, 0 CIRCLE (300, 110), 5, 0 CIRCLE (290, 110), 5, 0 CIRCLE (280, 110), 5, 0 CIRCLE (270, 110), 5, 0 CIRCLE (260, 110), 5, 0 CIRCLE (250, 110), 5, 0 CIRCLE (240, 110), 5, 0 CIRCLE (230, 110), 5, 0 CIRCLE (220, 110), 5, 0 CIRCLE (210, 110), 5, 0 CIRCLE (200, 110), 5, 0 CIRCLE (190, 110), 5, 0 CIRCLE (180, 110), 5, 0 CIRCLE (170, 110), 5, 0 CIRCLE (160, 110), 5, 0 CIRCLE (150, 110), 5, 0 CIRCLE (140, 110), 5, 0 CIRCLE (130, 110), 5, 0 CIRCLE (120, 110), 5, 0 CIRCLE (110, 110), 5, 0 CIRCLE (100, 110), 5, 0 CIRCLE (90, 110), 5, 0 CIRCLE (80, 110), 5, 0 CIRCLE (70, 110), 5, 0 CIRCLE (60, 110), 5, 0 CIRCLE (50, 110), 5, 0 CIRCLE (40, 110), 5, 0 CIRCLE (30, 110), 5, 0 CIRCLE (20, 110), 5, 0 CIRCLE (10, 110), 5, 0 CIRCLE (310, 70), 5, 0 CIRCLE (300, 70), 5, 0 CIRCLE (290, 70), 5, 0 CIRCLE (280, 70), 5, 0 CIRCLE (270, 70), 5, 0 CIRCLE (260, 70), 5, 0 CIRCLE (250, 70), 5, 0 CIRCLE (240, 70), 5, 0 CIRCLE (230, 70), 5, 0 CIRCLE (220, 70), 5, 0 CIRCLE (210, 70), 5, 0 CIRCLE (200, 70), 5, 0 CIRCLE (190, 70), 5, 0 CIRCLE (180, 70), 5, 0 CIRCLE (170, 70), 5, 0 CIRCLE (160, 70), 5, 0 CIRCLE (150, 70), 5, 0 CIRCLE (140, 70), 5, 0 CIRCLE (130, 70), 5, 0 CIRCLE (120, 70), 5, 0 CIRCLE (110, 70), 5, 0 CIRCLE (100, 70), 5, 0 CIRCLE (90, 70), 5, 0 CIRCLE (80, 70), 5, 0 CIRCLE (70, 70), 5, 0 CIRCLE (60, 70), 5, 0 CIRCLE (50, 70), 5, 0 CIRCLE (40, 70), 5, 0 CIRCLE (30, 70), 5, 0 CIRCLE (20, 70), 5, 0 CIRCLE (10, 70), 5, 0 CIRCLE (310, 30), 5, 0 CIRCLE (300, 30), 5, 0 CIRCLE (290, 30), 5, 0 CIRCLE (280, 30), 5, 0 CIRCLE (270, 30), 5, 0 CIRCLE (260, 30), 5, 0 CIRCLE (250, 30), 5, 0 CIRCLE (240, 30), 5, 0 CIRCLE (230, 30), 5, 0 CIRCLE (220, 30), 5, 0 CIRCLE (210, 30), 5, 0 CIRCLE (200, 30), 5, 0 CIRCLE (190, 30), 5, 0 CIRCLE (180, 30), 5, 0 CIRCLE (170, 30), 5, 0 CIRCLE (160, 30), 5, 0 CIRCLE (150, 30), 5, 0 CIRCLE (140, 30), 5, 0 CIRCLE (130, 30), 5, 0 CIRCLE (120, 30), 5, 0 CIRCLE (110, 30), 5, 0 CIRCLE (100, 30), 5, 0 CIRCLE (90, 30), 5, 0 CIRCLE (80, 30), 5, 0 CIRCLE (70, 30), 5, 0 CIRCLE (60, 30), 5, 0 CIRCLE (50, 30), 5, 0 CIRCLE (40, 30), 5, 0 CIRCLE (30, 30), 5, 0 CIRCLE (20, 30), 5, 0 CIRCLE (10, 30), 5, 0 CIRCLE (20, 10), 5, 0 CIRCLE (20, 20), 5, 0 CIRCLE (20, 30), 5, 0 CIRCLE (20, 40), 5, 0 CIRCLE (20, 50), 5, 0 CIRCLE (20, 60), 5, 0 CIRCLE (20, 70), 5, 0 CIRCLE (20, 80), 5, 0 CIRCLE (20, 90), 5, 0 CIRCLE (20, 100), 5, 0 CIRCLE (20, 110), 5, 0 CIRCLE (20, 120), 5, 0 CIRCLE (20, 130), 5, 0 CIRCLE (20, 140), 5, 0 CIRCLE (20, 150), 5, 0 CIRCLE (20, 160), 5, 0 CIRCLE (20, 170), 5, 0 CIRCLE (30, 10), 5, 0 CIRCLE (30, 20), 5, 0 CIRCLE (30, 30), 5, 0 CIRCLE (30, 40), 5, 0 CIRCLE (30, 50), 5, 0 CIRCLE (30, 60), 5, 0 CIRCLE (30, 70), 5, 0 CIRCLE (30, 80), 5, 0 CIRCLE (30, 90), 5, 0 CIRCLE (30, 100), 5, 0 CIRCLE (30, 110), 5, 0 CIRCLE (30, 120), 5, 0 CIRCLE (30, 130), 5, 0 CIRCLE (30, 140), 5, 0 CIRCLE (30, 150), 5, 0 CIRCLE (30, 160), 5, 0 CIRCLE (30, 170), 5, 0 CIRCLE (70, 10), 5, 0 CIRCLE (70, 20), 5, 0 CIRCLE (70, 30), 5, 0 CIRCLE (70, 40), 5, 0 CIRCLE (70, 50), 5, 0 CIRCLE (70, 60), 5, 0 CIRCLE (70, 70), 5, 0 CIRCLE (70, 80), 5, 0 CIRCLE (70, 90), 5, 0 CIRCLE (70, 100), 5, 0 CIRCLE (70, 110), 5, 0 CIRCLE (70, 120), 5, 0 CIRCLE (70, 130), 5, 0 CIRCLE (70, 140), 5, 0 CIRCLE (70, 150), 5, 0 CIRCLE (70, 160), 5, 0 CIRCLE (70, 170), 5, 0 CIRCLE (190, 10), 5, 0 CIRCLE (190, 20), 5, 0 CIRCLE (190, 30), 5, 0 CIRCLE (190, 40), 5, 0 CIRCLE (190, 50), 5, 0 CIRCLE (190, 60), 5, 0 CIRCLE (190, 70), 5, 0 CIRCLE (190, 80), 5, 0 CIRCLE (190, 90), 5, 0 CIRCLE (190, 100), 5, 0 CIRCLE (190, 110), 5, 0 CIRCLE (190, 120), 5, 0 CIRCLE (190, 130), 5, 0 CIRCLE (190, 140), 5, 0 CIRCLE (190, 150), 5, 0 CIRCLE (190, 160), 5, 0 CIRCLE (190, 170), 5, 0 CIRCLE (230, 10), 5, 0 CIRCLE (230, 20), 5, 0 CIRCLE (230, 30), 5, 0 CIRCLE (230, 40), 5, 0 CIRCLE (230, 50), 5, 0 CIRCLE (230, 60), 5, 0 CIRCLE (230, 70), 5, 0 CIRCLE (230, 80), 5, 0 CIRCLE (230, 90), 5, 0 CIRCLE (230, 100), 5, 0 CIRCLE (230, 110), 5, 0 CIRCLE (230, 120), 5, 0 CIRCLE (230, 130), 5, 0 CIRCLE (230, 140), 5, 0 CIRCLE (230, 150), 5, 0 CIRCLE (230, 160), 5, 0 CIRCLE (230, 170), 5, 0 CIRCLE (270, 10), 5, 0 CIRCLE (270, 20), 5, 0 CIRCLE (270, 30), 5, 0 CIRCLE (270, 40), 5, 0 CIRCLE (270, 50), 5, 0 CIRCLE (270, 60), 5, 0 CIRCLE (270, 70), 5, 0 CIRCLE (270, 80), 5, 0 CIRCLE (270, 90), 5, 0 CIRCLE (270, 100), 5, 0 CIRCLE (270, 110), 5, 0 CIRCLE (270, 120), 5, 0 CIRCLE (270, 130), 5, 0 CIRCLE (270, 140), 5, 0 CIRCLE (270, 150), 5, 0 CIRCLE (270, 160), 5, 0 CIRCLE (270, 170), 5, 0 CIRCLE (150, 10), 5, 0 CIRCLE (150, 20), 5, 0 CIRCLE (150, 30), 5, 0 CIRCLE (150, 40), 5, 0 CIRCLE (150, 50), 5, 0 CIRCLE (150, 60), 5, 0 CIRCLE (150, 70), 5, 0 CIRCLE (150, 80), 5, 0 CIRCLE (150, 90), 5, 0 CIRCLE (150, 100), 5, 0 CIRCLE (150, 110), 5, 0 CIRCLE (150, 120), 5, 0 CIRCLE (150, 130), 5, 0 CIRCLE (150, 140), 5, 0 CIRCLE (150, 150), 5, 0 CIRCLE (150, 160), 5, 0 CIRCLE (150, 170), 5, 0 CIRCLE (110, 10), 5, 0 CIRCLE (110, 20), 5, 0 CIRCLE (110, 30), 5, 0 CIRCLE (110, 40), 5, 0 CIRCLE (110, 50), 5, 0 CIRCLE (110, 60), 5, 0 CIRCLE (110, 70), 5, 0 CIRCLE (110, 80), 5, 0 CIRCLE (110, 90), 5, 0 CIRCLE (110, 100), 5, 0 CIRCLE (110, 110), 5, 0 CIRCLE (110, 120), 5, 0 CIRCLE (110, 130), 5, 0 CIRCLE (110, 140), 5, 0 CIRCLE (110, 150), 5, 0 CIRCLE (110, 160), 5, 0 CIRCLE (110, 170), 5, 0 CIRCLE (10, 10), 5, 0 CIRCLE (10, 20), 5, 0 CIRCLE (10, 30), 5, 0 CIRCLE (10, 40), 5, 0 CIRCLE (10, 50), 5, 0 CIRCLE (10, 60), 5, 0 CIRCLE (10, 70), 5, 0 CIRCLE (10, 80), 5, 0 CIRCLE (10, 90), 5, 0 CIRCLE (10, 100), 5, 0 CIRCLE (10, 110), 5, 0 CIRCLE (10, 120), 5, 0 CIRCLE (10, 130), 5, 0 CIRCLE (10, 140), 5, 0 CIRCLE (10, 150), 5, 0 CIRCLE (10, 160), 5, 0 CIRCLE (10, 170), 5, 0 CIRCLE (310, 10), 5, 0 CIRCLE (310, 20), 5, 0 CIRCLE (310, 30), 5, 0 CIRCLE (310, 40), 5, 0 CIRCLE (310, 50), 5, 0 CIRCLE (310, 60), 5, 0 CIRCLE (310, 70), 5, 0 CIRCLE (310, 80), 5, 0 CIRCLE (310, 90), 5, 0 CIRCLE (310, 100), 5, 0 CIRCLE (310, 110), 5, 0 CIRCLE (310, 120), 5, 0 CIRCLE (310, 130), 5, 0 CIRCLE (310, 140), 5, 0 CIRCLE (310, 150), 5, 0 CIRCLE (310, 160), 5, 0 CIRCLE (310, 170), 5, 0 CIRCLE (c, v), 5, z CIRCLE (x, y), 5, 4 CIRCLE (c2, v2), 5, z2 'new ideal IF x = 60 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 100 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 140 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 180 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 220 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 260 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 ELSEIF x = 300 AND (y = 20 OR y = 40 OR y = 50 OR y = 60 OR y = 80 OR y = 90 OR y = 100 OR y = 130 OR y = 140 OR y = 120 OR y = 160 OR y = 170 OR y = 180) THEN x = x + 10 END IF IF y = 40 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 80 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 120 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 160 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 200 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 240 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 ELSEIF y = 280 AND (x = 250 OR x = 290 OR x = 210 OR x = 170 OR x = 130 OR x = 90 OR x = 50) THEN y = y - 10 END IF IF y = 60 AND (x = 50 OR x = 90 OR x = 130 OR x = 170 OR x = 210 OR x = 250 OR x = 290) THEN y = y + 10 ELSEIF y = 20 AND (x = 50 OR x = 90 OR x = 130 OR x = 170 OR x = 210 OR x = 250 OR x = 290) THEN y = y + 10 ELSEIF y = 100 AND (x = 50 OR x = 90 OR x = 130 OR x = 170 OR x = 210 OR x = 250 OR x = 290) THEN y = y + 10 ELSEIF y = 140 AND (x = 50 OR x = 90 OR x = 130 OR x = 170 OR x = 210 OR x = 250 OR x = 290) THEN y = y + 10 ELSEIF y = 180 AND (x = 50 OR x = 90 OR x = 130 OR x = 170 OR x = 210 OR x = 250 OR x = 290) THEN y = y + 10 END IF IF c = 60 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 100 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 140 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 180 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 220 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 260 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 ELSEIF c = 300 AND (v = 20 OR v = 40 OR v = 50 OR v = 60 OR v = 80 OR v = 90 OR v = 100 OR v = 130 OR v = 140 OR v = 120 OR v = 160 OR v = 170 OR v = 180) THEN c = c + 10 END IF IF v = 40 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 80 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 120 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 160 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 200 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 240 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 ELSEIF v = 280 AND (c = 250 OR c = 290 OR c = 210 OR c = 170 OR c = 130 OR c = 90 OR c = 50) THEN v = v - 10 END IF IF v = 60 AND (c = 50 OR c = 90 OR c = 130 OR c = 170 OR c = 210 OR c = 250 OR c = 290) THEN v = v + 10 ELSEIF v = 20 AND (c = 50 OR c = 90 OR c = 130 OR c = 170 OR c = 210 OR c = 250 OR c = 290) THEN v = v + 10 ELSEIF v = 100 AND (c = 50 OR c = 90 OR c = 130 OR c = 170 OR c = 210 OR c = 250 OR c = 290) THEN v = v + 10 ELSEIF v = 140 AND (c = 50 OR c = 90 OR c = 130 OR c = 170 OR c = 210 OR c = 250 OR c = 290) THEN v = v + 10 ELSEIF v = 180 AND (c = 50 OR c = 90 OR c = 130 OR c = 170 OR c = 210 OR c = 250 OR c = 290) THEN v = v + 10 END IF 'old ideal to lazy to redo IF x = 40 AND y = 50 OR x = 40 AND y = 40 OR x = 40 AND y = 60 OR x = 40 AND y = 170 OR x = 40 AND y = 160 OR x = 40 AND y = 180 OR x = 40 AND y = 130 OR x = 40 AND y = 120 OR x = 40 AND y = 140 OR x = 40 AND y = 90 OR x = 40 AND y = 80 OR x = 40 AND y = 100 OR x = 40 AND y = 10 OR x = 40 AND y = 20 OR x = 40 AND y = 0 THEN x = -10 ELSEIF x = 80 AND y = 50 OR x = 80 AND y = 40 OR x = 80 AND y = 60 OR x = 80 AND y = 170 OR x = 80 AND y = 160 OR x = 40 AND y = 180 OR x = 80 AND y = 130 OR x = 80 AND y = 120 OR x = 80 AND y = 140 OR x = 80 AND y = 90 OR x = 80 AND y = 80 OR x = 80 AND y = 100 OR x = 80 AND y = 10 OR x = 80 AND y = 20 OR x = 80 AND y = 0 THEN x = x - 10 ELSEIF x = 120 AND y = 50 OR x = 120 AND y = 40 OR x = 120 AND y = 60 OR x = 120 AND y = 170 OR x = 120 AND y = 160 OR x = 120 AND y = 180 OR x = 120 AND y = 130 OR x = 120 AND y = 120 OR x = 120 AND y = 140 OR x = 120 AND y = 90 OR x = 120 AND y = 80 OR x = 120 AND y = 100 OR x = 120 AND y = 10 OR x = 120 AND y = 20 OR x = 120 AND y = 0 THEN x = x - 10 ELSEIF x = 160 AND y = 50 OR x = 160 AND y = 40 OR x = 160 AND y = 60 OR x = 160 AND y = 170 OR x = 160 AND y = 160 OR x = 160 AND y = 180 OR x = 160 AND y = 130 OR x = 160 AND y = 120 OR x = 160 AND y = 140 OR x = 160 AND y = 90 OR x = 160 AND y = 80 OR x = 160 AND y = 100 OR x = 160 AND y = 10 OR x = 160 AND y = 20 OR x = 160 AND y = 0 THEN x = x - 10 ELSEIF x = 200 AND y = 50 OR x = 200 AND y = 40 OR x = 200 AND y = 60 OR x = 200 AND y = 170 OR x = 200 AND y = 160 OR x = 200 AND y = 180 OR x = 200 AND y = 130 OR x = 200 AND y = 120 OR x = 200 AND y = 140 OR x = 200 AND y = 90 OR x = 200 AND y = 80 OR x = 200 AND y = 100 OR x = 200 AND y = 10 OR x = 200 AND y = 20 OR x = 200 AND y = 0 THEN x = x - 10 ELSEIF x = 280 AND y = 50 OR x = 280 AND y = 40 OR x = 280 AND y = 60 OR x = 280 AND y = 170 OR x = 280 AND y = 160 OR x = 280 AND y = 180 OR x = 280 AND y = 130 OR x = 280 AND y = 120 OR x = 280 AND y = 140 OR x = 280 AND y = 90 OR x = 280 AND y = 80 OR x = 280 AND y = 90 OR x = 280 AND y = 80 OR x = 280 AND y = 100 OR x = 280 AND y = 10 OR x = 280 AND y = 20 OR x = 280 AND y = 0 THEN x = x - 10 ELSEIF x = 240 AND y = 50 OR x = 240 AND y = 40 OR x = 240 AND y = 60 OR x = 240 AND y = 170 OR x = 240 AND y = 160 OR x = 240 AND y = 180 OR x = 240 AND y = 130 OR x = 240 AND y = 120 OR x = 240 AND y = 140 OR x = 240 AND y = 90 OR x = 240 AND y = 80 OR x = 240 AND y = 90 OR x = 240 AND y = 80 OR x = 240 AND y = 100 OR x = 240 AND y = 10 OR x = 240 AND y = 20 OR x = 240 AND y = 0 THEN x = x - 10 END IF IF c = 40 AND v = 130 OR c = 40 AND v = 120 OR c = 40 AND v = 140 OR c = 40 AND y = 90 OR c = 40 AND v = 80 OR c = 40 AND v = 100 OR c = 40 AND v = 10 OR c = 40 AND v = 20 OR c = 40 AND v = 0 THEN c = c - 10 ELSEIF c = 80 AND v = 130 OR c = 80 AND v = 120 OR c = 80 AND v = 140 OR c = 80 AND v = 90 OR c = 80 AND v = 80 OR c = 80 AND v = 100 OR c = 80 AND v = 10 OR x = 80 AND v = 20 OR c = 80 AND v = 0 THEN c = c - 10 ELSEIF c = 120 AND v = 130 OR c = 120 AND v = 120 OR c = 120 AND v = 140 OR c = 120 AND v = 90 OR c = 120 AND v = 80 OR c = 120 AND v = 100 OR c = 120 AND v = 10 OR c = 120 AND v = 20 OR c = 120 AND v = 0 THEN c = c - 10 ELSEIF c = 160 AND v = 130 OR c = 160 AND v = 120 OR c = 160 AND v = 140 OR c = 160 AND v = 90 OR c = 160 AND v = 80 OR c = 160 AND v = 100 OR c = 160 AND v = 10 OR c = 160 AND v = 20 OR c = 160 AND v = 0 THEN c = c - 10 ELSEIF c = 200 AND v = 130 OR c = 200 AND v = 120 OR c = 200 AND v = 140 OR c = 200 AND v = 90 OR c = 200 AND v = 80 OR c = 200 AND v = 100 OR c = 200 AND v = 10 OR c = 200 AND v = 20 OR c = 200 AND v = 0 THEN c = c - 10 ELSEIF c = 280 AND v = 130 OR c = 280 AND v = 120 OR c = 280 AND v = 140 OR c = 280 AND v = 90 OR c = 280 AND v = 80 OR c = 280 AND v = 90 OR c = 280 AND v = 80 OR c = 280 AND v = 100 OR c = 280 AND v = 10 OR c = 280 AND v = 20 OR v = 280 AND v = 0 THEN c = c - 10 END IF IF c2 = 60 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 100 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 140 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 180 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 220 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 260 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 ELSEIF c2 = 300 AND (v2 = 20 OR v2 = 40 OR v2 = 50 OR v2 = 60 OR v2 = 80 OR v2 = 90 OR v2 = 100 OR v2 = 130 OR v2 = 140 OR v2 = 120 OR v2 = 160 OR v2 = 170 OR v2 = 180) THEN c2 = c2 + 10 END IF IF v2 = 40 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 80 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 120 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 160 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 200 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 240 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 ELSEIF v2 = 280 AND (c2 = 250 OR c2 = 290 OR c2 = 210 OR c2 = 170 OR c2 = 130 OR c2 = 90 OR c2 = 50) THEN v2 = v2 - 10 END IF IF v2 = 60 AND (c2 = 50 OR c2 = 90 OR c2 = 130 OR c2 = 170 OR c2 = 210 OR c2 = 250 OR c2 = 290) THEN v2 = v2 + 10 ELSEIF v2 = 20 AND (c2 = 50 OR c2 = 90 OR c2 = 130 OR c2 = 170 OR c2 = 210 OR c2 = 250 OR c2 = 290) THEN v2 = v2 + 10 ELSEIF v2 = 100 AND (c2 = 50 OR c2 = 90 OR c2 = 130 OR c2 = 170 OR c2 = 210 OR c2 = 250 OR c2 = 290) THEN v2 = v2 + 10 ELSEIF v2 = 140 AND (c2 = 50 OR c2 = 90 OR c2 = 130 OR c2 = 170 OR c2 = 210 OR c2 = 250 OR c2 = 290) THEN v2 = v2 + 10 ELSEIF v2 = 180 AND (c2 = 50 OR c2 = 90 OR c2 = 130 OR c2 = 170 OR c2 = 210 OR c2 = 250 OR c2 = 290) THEN v2 = v2 + 10 END IF IF c2 = 40 AND v2 = 130 OR c2 = 40 AND v2 = 120 OR c2 = 40 AND v2 = 140 OR c2 = 40 AND v2 = 90 OR c2 = 40 AND v2 = 80 OR c2 = 40 AND v2 = 100 OR c2 = 40 AND v2 = 10 OR c2 = 40 AND v2 = 20 OR c2 = 40 AND v2 = 0 THEN c2 = c2 - 10 ELSEIF c2 = 80 AND v2 = 130 OR c2 = 80 AND v2 = 120 OR c2 = 80 AND v2 = 140 OR c2 = 80 AND v2 = 90 OR c2 = 80 AND v2 = 80 OR c2 = 80 AND v2 = 100 OR c2 = 80 AND v2 = 10 OR c2 = 80 AND v2 = 20 OR c2 = 80 AND v2 = 0 THEN c2 = c2 - 10 ELSEIF c2 = 120 AND v2 = 130 OR c2 = 120 AND v2 = 120 OR c2 = 120 AND v2 = 140 OR c2 = 120 AND v2 = 90 OR c2 = 120 AND v2 = 80 OR c2 = 120 AND v2 = 100 OR c2 = 120 AND v2 = 10 OR c2 = 120 AND v2 = 20 OR c2 = 120 AND v2 = 0 THEN c2 = c2 - 10 ELSEIF c2 = 160 AND v2 = 130 OR c2 = 160 AND v2 = 120 OR c2 = 160 AND v2 = 140 OR c2 = 160 AND v2 = 90 OR c2 = 160 AND v2 = 80 OR c2 = 160 AND v2 = 100 OR c2 = 160 AND v2 = 10 OR c2 = 160 AND v2 = 20 OR c2 = 160 AND v2 = 0 THEN c2 = c2 - 10 ELSEIF c2 = 200 AND v2 = 130 OR c2 = 200 AND v2 = 120 OR c2 = 200 AND v2 = 140 OR c2 = 200 AND v2 = 90 OR c2 = 200 AND v2 = 80 OR c2 = 200 AND v2 = 100 OR c2 = 200 AND v2 = 10 OR c2 = 200 AND v2 = 20 OR c2 = 200 AND v2 = 0 THEN c2 = c2 - 10 ELSEIF c2 = 280 AND v2 = 130 OR c2 = 280 AND v2 = 120 OR c2 = 280 AND v2 = 140 OR c2 = 280 AND v2 = 90 OR c2 = 280 AND v2 = 80 OR c2 = 280 AND v2 = 90 OR c2 = 280 AND v2 = 80 OR c2 = 280 AND v2 = 100 OR c2 = 280 AND v2 = 10 OR c2 = 280 AND v2 = 20 OR c2 = 280 AND v2 = 0 THEN c2 = c2 - 10 END IF LOCATE 1, 1 PRINT i NEXT i 2 SCREEN 0 PRINT x, y PRINT TAB(30); " you win" 1 SLEEP 1 SCREEN 0 SCREEN 7 GOTO 6 END SUB Llines '< LINE (156, 0)-(159, 24), 0, BF LINE (156, 40)-(159, 64), 0, BF LINE (156, 80)-(159, 104), 0, BF LINE (156, 120)-(159, 144), 0, BF LINE (156, 160)-(159, 184), 0, BF LINE (196, 0)-(199, 24), 0, BF LINE (196, 40)-(199, 64), 0, BF LINE (196, 80)-(199, 104), 0, BF LINE (196, 120)-(199, 144), 0, BF LINE (196, 160)-(199, 184), 0, BF LINE (236, 0)-(239, 24), 0, BF LINE (236, 40)-(239, 64), 0, BF LINE (236, 80)-(239, 104), 0, BF LINE (236, 120)-(239, 144), 0, BF LINE (236, 160)-(239, 184), 0, BF LINE (276, 0)-(279, 24), 0, BF LINE (276, 40)-(279, 64), 0, BF LINE (276, 80)-(279, 104), 0, BF LINE (276, 120)-(279, 144), 0, BF LINE (276, 160)-(279, 184), 0, BF LINE (36, 0)-(39, 24), 0, BF LINE (36, 40)-(39, 64), 0, BF LINE (36, 80)-(39, 104), 0, BF LINE (36, 120)-(39, 144), 0, BF LINE (36, 160)-(39, 184), 0, BF LINE (76, 0)-(79, 24), 0, BF LINE (76, 40)-(79, 64), 0, BF LINE (76, 80)-(79, 104), 0, BF LINE (76, 120)-(79, 144), 0, BF LINE (76, 160)-(79, 184), 0, BF LINE (116, 0)-(119, 24), 0, BF LINE (116, 140)-(119, 64), 0, BF LINE (116, 180)-(119, 104), 0, BF LINE (116, 120)-(119, 144), 0, BF LINE (116, 160)-(119, 184), 0, BF END SUB SUB rlines '> LINE (61, 0)-(64, 24), 0, BF LINE (61, 40)-(64, 64), 0, BF LINE (61, 80)-(64, 104), 0, BF LINE (61, 120)-(64, 144), 0, BF LINE (61, 160)-(64, 184), 0, BF LINE (101, 0)-(104, 24), 0, BF LINE (101, 40)-(104, 64), 0, BF LINE (101, 80)-(104, 104), 0, BF LINE (101, 120)-(104, 144), 0, BF LINE (101, 160)-(104, 184), 0, BF LINE (141, 0)-(144, 24), 0, BF LINE (141, 40)-(144, 64), 0, BF LINE (141, 80)-(144, 104), 0, BF LINE (141, 120)-(144, 144), 0, BF LINE (141, 160)-(144, 184), 0, BF LINE (181, 0)-(184, 24), 0, BF LINE (181, 40)-(184, 64), 0, BF LINE (181, 80)-(184, 104), 0, BF LINE (181, 120)-(184, 144), 0, BF LINE (181, 160)-(184, 184), 0, BF LINE (221, 0)-(224, 24), 0, BF LINE (221, 40)-(224, 64), 0, BF LINE (221, 80)-(224, 104), 0, BF LINE (221, 120)-(224, 144), 0, BF LINE (221, 160)-(224, 184), 0, BF LINE (261, 0)-(264, 24), 0, BF LINE (261, 40)-(264, 64), 0, BF LINE (261, 80)-(264, 104), 0, BF LINE (261, 120)-(264, 144), 0, BF LINE (261, 160)-(264, 184), 0, BF LINE (301, 0)-(304, 24), 0, BF LINE (301, 40)-(304, 64), 0, BF LINE (301, 80)-(304, 104), 0, BF LINE (301, 120)-(304, 144), 0, BF LINE (301, 160)-(304, 184), 0, BF END SUB SUB upLines '^ LINE (36, 35)-(64, 39), 0, BF LINE (36, 75)-(64, 79), 0, BF LINE (36, 115)-(64, 119), 0, BF LINE (36, 155)-(64, 159), 0, BF LINE (156, 35)-(184, 39), 0, BF LINE (156, 75)-(184, 79), 0, BF LINE (156, 115)-(184, 119), 0, BF LINE (156, 155)-(184, 159), 0, BF LINE (116, 35)-(144, 39), 0, BF LINE (116, 75)-(144, 79), 0, BF LINE (116, 115)-(144, 119), 0, BF LINE (116, 155)-(144, 159), 0, BF LINE (76, 35)-(104, 39), 0, BF LINE (76, 75)-(104, 79), 0, BF LINE (76, 115)-(104, 119), 0, BF LINE (76, 155)-(104, 159), 0, BF LINE (196, 35)-(224, 39), 0, BF LINE (196, 75)-(224, 79), 0, BF LINE (196, 115)-(224, 119), 0, BF LINE (196, 155)-(224, 159), 0, BF LINE (236, 35)-(264, 39), 0, BF LINE (236, 75)-(264, 79), 0, BF LINE (236, 115)-(264, 119), 0, BF LINE (236, 155)-(264, 159), 0, BF LINE (276, 35)-(304, 39), 0, BF LINE (276, 75)-(304, 79), 0, BF LINE (276, 115)-(304, 119), 0, BF LINE (276, 155)-(304, 159), 0, BF END SUB SUB Vlines 'v LINE (36, 21)-(64, 24), 0, BF LINE (36, 61)-(64, 64), 0, BF LINE (36, 101)-(64, 104), 0, BF LINE (36, 141)-(64, 144), 0, BF LINE (36, 181)-(64, 184), 0, BF LINE (76, 21)-(104, 24), 0, BF LINE (76, 61)-(104, 64), 0, BF LINE (76, 101)-(104, 104), 0, BF LINE (76, 141)-(104, 144), 0, BF LINE (76, 181)-(104, 184), 0, BF LINE (156, 21)-(184, 24), 0, BF LINE (156, 61)-(184, 64), 0, BF LINE (156, 101)-(184, 104), 0, BF LINE (156, 141)-(184, 144), 0, BF LINE (156, 181)-(184, 184), 0, BF LINE (196, 21)-(224, 24), 0, BF LINE (196, 61)-(224, 64), 0, BF LINE (196, 101)-(224, 104), 0, BF LINE (196, 141)-(224, 144), 0, BF LINE (196, 181)-(224, 184), 0, BF LINE (236, 21)-(264, 24), 0, BF LINE (236, 61)-(264, 64), 0, BF LINE (236, 101)-(264, 104), 0, BF LINE (236, 141)-(264, 144), 0, BF LINE (236, 181)-(264, 184), 0, BF LINE (276, 21)-(304, 24), 0, BF LINE (276, 61)-(304, 64), 0, BF LINE (276, 101)-(304, 104), 0, BF LINE (276, 141)-(304, 144), 0, BF LINE (276, 181)-(304, 184), 0, BF END SUB