' ver 1.67
'i'll put something here soon
speed = 175000
SCREEN 12                                                       'the intro
cc = 0: yy = 3: lv = 5: we = 0
times = TIMER
CLS
LOCATE 26, 40: COLOR 10: PRINT "Timing the program...Please wait..."
StartTime# = TIMER
FOR r = 1 TO speed: NEXT r
StopTime# = TIMER
xx = 22500 / (StopTime# - StartTime#)
PRINT "The speed is:"; xx: SLEEP 2
CLS : PLAY "o1l10bd"
LOCATE 11, 30: COLOR 5: PRINT "ÛÛÛ ÛÛÛ Û Û ÛÛÛ Û Û ÛÛÛ ÛÛÛ "
LOCATE 12, 30: PRINT "Û   ÛÛ  Û Û ÛÛÛ ÛÛÛ ÛÛ  ÛÛ  "
LOCATE 13, 30: PRINT "ÛÛÛ Û Û ÛÛÛ ÛÛÛ Û Û ÛÛÛ Û Û "
PLAY "l10bdgfl20o2bdgfp8"
CLS
LOCATE 10, 25: COLOR 1: PRINT "ÛÛÛÛÛ ÛÛÛÛÛ Û   Û ÛÛÛÛÛ Û   Û ÛÛÛÛÛ ÛÛÛÛÛ "
LOCATE 11, 25: PRINT "Û     Û   Û Û   Û Û     Û   Û Û     Û   Û "
LOCATE 12, 25: PRINT "Û     ÛÛÛÛÛ Û   Û ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛ  ÛÛÛÛÛ "
LOCATE 13, 25: PRINT "Û     Û  Û  Û   Û     Û Û   Û Û     Û  Û  "
LOCATE 14, 25: PRINT "ÛÛÛÛÛ Û   Û ÛÛÛÛÛ ÛÛÛÛÛ Û   Û ÛÛÛÛÛ Û   Û "
PLAY "o3l20bbddp8ffcdagfdl10o4cccl9fafl8fal2f"
x = 7: r = 10
xx2 = xx / 2
FOR ws = 1 TO 25
IF ws = 1 THEN x = 7
IF ws = 2 THEN r = 9: x = 8
IF ws = 3 THEN x = 8
IF ws = 4 THEN r = 8: x = 8
IF ws = 5 THEN x = 7
IF ws = 6 THEN r = 7: x = 7
IF ws = 7 THEN r = 8: x = 7
IF ws = 8 THEN x = 8: r = 9
IF ws = 9 THEN x = 9: r = 8
IF ws = 10 THEN r = 9: x = 9
IF ws = 11 THEN x = 10
IF ws = 12 THEN r = 10: x = 11
IF ws = 13 THEN r = 11: x = 10
IF ws = 14 THEN x = 9
IF ws = 15 THEN x = 8
IF ws = 16 THEN r = 10: x = 8
IF ws = 17 THEN x = 7: r = 9
IF ws = 18 THEN r = 10: x = 8
IF ws = 19 THEN x = 7: r = 11
IF ws = 20 THEN r = 10: x = 7
IF ws = 21 THEN x = 8: r = 11
IF ws = 22 THEN x = 7: r = 10
IF ws = 23 THEN x = 6: r = 9
IF ws = 24 THEN x = 7:
IF ws = 25 THEN CLS : x = 7: r = 10
LOCATE x, r: COLOR 12: PRINT "  ÜÜÜÜÜ   ÜÜÜÜÜ   Ü      Ü   ÜÜÜÜÜÜ  Ü     Ü   ÜÜÜÜÜÜ   ÜÜÜÜÜ  ": x = x + 1
LOCATE x, r:           PRINT " ÛÛÛÛÛÛÝ ÛÛÛÛÛÛÛ ÞÛÝ    ÞÛÝ ÛÛÛÛÛÛÛÝÞÛÝ   ÞÛÝ ÛÛÛÛÛÛÛÝ ÛÛÛÛÛÛÛ ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÛßßßß ÞÛÛßßßÛÛÝÞÛÝ    ÞÛÝÞÛÛßßßßß ÞÛÝ   ÞÛÝÞÛÛßßßßß ÞÛÛßßßÛÛÝ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÝ     ÞÛÝ   ÞÛÝÞÛÝ    ÞÛÝÞÛÝ      ÞÛÝ   ÞÛÝÞÛÝ      ÞÛÝ   ÞÛÝ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÝ     ÞÛÛÜÜÜÛÛÝÞÛÝ    ÞÛÝÞÛÛÜÜÜÜ  ÞÛÛÜÜÜÛÛÝÞÛÛÜÜ    ÞÛÛÜÜÜÛÛÝ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÝ     ÞÛÛÛÛÛÛÛ ÞÛÝ    ÞÛÝ ÛÛÛÛÛÛÛ ÞÛÛÛÛÛÛÛÝÞÛÛÛÛÝ   ÞÛÛÛÛÛÛÛ ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÝ     ÞÛÛßÛÛß  ÞÛÝ    ÞÛÝ  ßßßßÛÛÝÞÛÛßßßÛÛÝÞÛÛßß    ÞÛÛßÛÛß  ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÝ     ÞÛÝ ßÛÜ  ÞÛÝ    ÞÛÝ      ÞÛÝÞÛÝ   ÞÛÝÞÛÝ      ÞÛÝ ßÛÜ  ": x = x + 1
LOCATE x, r:           PRINT "ÞÛÛÜÜÜÜ ÞÛÝ  ßÛÜ ÞÛÛÜÜÜÜÛÛÝ ÜÜÜÜÜÛÛÝÞÛÝ   ÞÛÝÞÛÛÜÜÜÜÜ ÞÛÝ  ßÛÜ ": x = x + 1
LOCATE x, r:           PRINT " ÛÛÛÛÛÛÝÞÛÝ   ßÛÝ ÛÛÛÛÛÛÛÛ ÞÛÛÛÛÛÛÛ ÞÛÝ   ÞÛÝ ÛÛÛÛÛÛÛÝÞÛÝ   ßÛÝ": x = x + 1
LOCATE x, r:           PRINT "  ßßßßß  ß     ß   ßßßßßß   ßßßßßß   ß     ß   ßßßßßß  ß     ß "
FOR qk = 1 TO xx2: NEXT qk
NEXT ws
LOCATE 19, 20: PRINT "Version 1.67"
PRINT "press key to contiue..."
SLEEP
7 CLS
COLOR 11: LOCATE 1, 1: PRINT STRING$(80, 987)
LOCATE 28, 1: PRINT STRING$(80, 987)
FOR ss = 1 TO 28
rr = 1
LOCATE ss, rr: PRINT "Û": NEXT ss
FOR ss = 1 TO 28
rr = 80
LOCATE ss, rr: PRINT "Û": NEXT ss
LOCATE 22, 1: PRINT STRING$(80, 987)
COLOR 2: LOCATE 23, 3: PRINT "WELCOME TO MY FIRST QBASIC GAME!!!"
LOCATE 25, 3: PRINT "I STILL HAVE A FEW BUGS TO FIX, LIKE THE 'OUT OF STACK SPACE' ERROR MESSAGE."
LOCATE 26, 3: PRINT "YOU'LL PROBABLY GET THAT MESSAGE WHEN YOU PLAY FOR A LONG TIME."
LOCATE 27, 3: PRINT "DON'T WORRY, IT'S HARMLESS."
LOCATE 9, 28: COLOR 14: PRINT "ÉÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊÊ»"
LOCATE 10, 28: PRINT "¹                         Ì"
LOCATE 11, 28: PRINT "¹                         Ì"
LOCATE 12, 28: PRINT "¹                         Ì"
LOCATE 13, 28: PRINT "¹                         Ì"
LOCATE 14, 28: PRINT "ÈËËËËËËËËËËËËËËËËËËËËËËËË˼"
COLOR 5: LOCATE 11, 35: PRINT "1.Play Game"
COLOR 8: LOCATE 12, 35: PRINT "2.Change Dificulty"
COLOR 7: LOCATE 13, 35: PRINT "3.Quit"
op = 8: gh = 15
re = 27: rw = 55
FOR ty = 1 TO 7
FOR qk = 1 TO 3
FOR qw = 1 TO xx: NEXT qw
NEXT qk
LOCATE op, 29: COLOR 14: PRINT "ººººººººººººººººººººººººº"
LOCATE gh, 29: PRINT "ººººººººººººººººººººººººº"
LOCATE 10, re: PRINT "Í"
LOCATE 10, rw: PRINT "Í"
LOCATE 11, re: PRINT "Í"
LOCATE 11, rw: PRINT "Í"
LOCATE 12, re: PRINT "Í"
LOCATE 12, rw: PRINT "Í"
LOCATE 13, re: PRINT "Í"
LOCATE 13, rw: PRINT "Í"
op = op - 1
gh = gh + 1
re = re - 1
rw = rw + 1
NEXT ty
FOR tk = 1 TO 19
FOR qk = 1 TO 2
FOR qw = 1 TO xx: NEXT qw
NEXT qk
LOCATE 10, re: PRINT "Í"
LOCATE 10, rw: PRINT "Í"
LOCATE 11, re: PRINT "Í"
LOCATE 11, rw: PRINT "Í"
LOCATE 12, re: PRINT "Í"
LOCATE 12, rw: PRINT "Í"
LOCATE 13, re: PRINT "Í"
LOCATE 13, rw: PRINT "Í"
re = re - 1
rw = rw + 1
NEXT tk
COLOR 11
FOR ss = 1 TO 28
rr = 80
LOCATE ss, rr: PRINT "Û": NEXT ss
COLOR 4: LOCATE 10, 30: INPUT "Choose Your Option"; a
IF a >= 5 OR a <= 0 THEN GOTO 7 ELSE GOTO 8
8 IF a = 1 THEN GOTO 9
IF a = 2 THEN GOTO dificulty
IF a = 3 THEN GOSUB ended
9 CLS : zz = zz + 1
10 COLOR 3
a = 27: b = 30
ON KEY(11) GOSUB up        'intiilizes keys
ON KEY(12) GOSUB left
ON KEY(13) GOSUB right
ON KEY(14) GOSUB down
ON KEY(1) GOSUB ended
KEY(1) ON                  'turns the keys on
KEY(11) ON
KEY(12) ON
KEY(13) ON
KEY(14) ON
CLS
ON zz GOTO 12, 14, 16     'NOW WITH TWO LEVELS!!!!!!
12 t1 = 1: t2 = 2: t3 = 3: t4 = 4: t5 = 5: t6 = 6: t7 = 7: t8 = 8: t9 = 9: t10 = 10: t11 = 11: t12 = 12: t13 = 13: t14 = 14: t15 = 15
LOCATE 13, 30: COLOR 5: PRINT "Level 1": PLAY "l15o1abl20dddl10o2cbf": SLEEP 2: CLS
a1 = 21: a2 = 22: a3 = 25: a4 = 26: a5 = 29: a6 = 30: a7 = 33: a8 = 34: a9 = 37: a10 = 38
b1 = 21: b2 = 24: b3 = 27: b4 = 30: b5 = 33: b6 = 36
c1 = 25: c2 = 31: c3 = 37
d1 = 21: d2 = 22: d3 = 23: d4 = 27: d5 = 28: d6 = 29: d7 = 32: d8 = 33: d9 = 34: d10 = 37
e1 = 21: e2 = 25: e3 = 26: e4 = 27: e5 = 28: e6 = 33: e7 = 34: e8 = 35: e9 = 36: e10 = 40
f1 = 21: f2 = 22: f3 = 26: f4 = 27: f5 = 31: f6 = 32: f7 = 36: f8 = 37
g1 = 21: g2 = 22: g3 = 26: g4 = 27: g5 = 31: g6 = 32: g7 = 36: g8 = 37
h1 = 23: h2 = 27: h3 = 31: h4 = 35: h5 = 39
i1 = 25: i2 = 26: i3 = 27: i4 = 28: i5 = 35: i6 = 36: i7 = 37: i8 = 38
j1 = 21: j2 = 24: j3 = 25: j4 = 28: j5 = 31: j6 = 32: j7 = 35: j8 = 38: j9 = 39
k1 = 21: k2 = 22: k3 = 23: k4 = 24: k5 = 25: k6 = 31: k7 = 32: k8 = 33
l1 = 23: l2 = 24: l3 = 25: l4 = 29: l5 = 30: l6 = 31: l7 = 35: l8 = 36: l9 = 37
m1 = 30: m2 = 31: m3 = 32: m4 = 33: m5 = 34: m6 = 35: m7 = 36: m8 = 37
n1 = 25: n2 = 26: n3 = 27: n4 = 28: n5 = 29: n6 = 30: n7 = 31: n8 = 32: n9 = 33: n10 = 34: n11 = 35: n12 = 36: n13 = 37: n14 = 38
o1 = 21: o2 = 24: o3 = 27: o4 = 28: o5 = 27: o6 = 31: o7 = 32: o8 = 35: o9 = 36: o10 = 37: o11 = 40
GOTO 25
14 t1 = 5: t2 = 7: t3 = 6: t4 = 8: t5 = 9: t6 = 10: t7 = 4: t8 = 3: t9 = 1: t10 = 2: t11 = 12: t12 = 11: t13 = 15: t14 = 13: t15 = 14
RESTORE: LOCATE 13, 30: COLOR 5: PRINT "Level 2": PLAY "l15o1abl20dddl10o2cbf": SLEEP 2: CLS
READ a1, a2, a3, a4, a5, a6, a7, a8, a9, a10   'initialize the varibles
READ b1, b2, b3, b4, b5, b6
READ c1, c2, c3
READ d1, d2, d3, d4, d5, d6, d7, d8, d9, d10
READ e1, e2, e3, e4, e5, e6, e7, e8, e9, e10
READ f1, f2, f3, f4, f5, f6, f7, f8
READ g1, g2, g3, g4, g5, g6, g7, g8
READ h1, h2, h3, h4, h5
READ i1, i2, i3, i4, i5, i6, i7, i8
READ j1, j2, j3, j4, j5, j6, j7, j8, j9
READ k1, k2, k3, k4, k5, k6, k7, k8
READ l1, l2, l3, l4, l5, l6, l7, l8, l9
READ m1, m2, m3, m4, m5, m6, m7, m8
READ n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n11, n12, n13, n14
READ o1, o2, o3, o4, o5, o6, o7, o8, o9, o10, o11
DATA 21,22,23,24,28,29,33,34,35,36
DATA 23,26,29,32,35,38
DATA 25,30,37
DATA 21,22,24,25,28,29,32,33,35,36
DATA 23,24,27,28,32,33,34,35,38,39
DATA 22,23,28,29,32,33,36,37
DATA 21,24,25,26,29,30,35,36
DATA 25,26,27,28,35
DATA 23,24,25,30,31,32,36,37
DATA 23,24,27,28,32,33,37,38,39
DATA 21,22,23,26,27,28,34,35
DATA 24,25,27,30,31,35,36,37,38
DATA 21,22,25,26,29,30,34,35
DATA 21,22,23,24,25,26,32,33,34,35,36,37,38,39
DATA 21,22,26,27,30,31,34,35,38,39,40
GOTO 25
16 CLS : COLOR 9
PRINT "You've beat my first game!!!"
PRINT "More levels coming soon..."
SLEEP 5
GOSUB ended
25 FOR z = 1 TO 27                           'draws the border
LOCATE z, 20: COLOR 5: PRINT "Û": NEXT z
FOR z = 1 TO 27
LOCATE z, 41: COLOR 5: PRINT "Û": NEXT z
LOCATE 28, 23: PRINT "Press F1 to exit"
LOCATE 1, 21: COLOR 9: PRINT "ÛÛÛÛ            ÛÛÛÛ"   'draws the finish line
LOCATE 1, 25: COLOR 7: PRINT "***FINISH***"
LOCATE a, b: COLOR 3: PRINT CHR$(1)           'thats the movable character
100 FOR z = 1 TO 27                           'draws the border
LOCATE z, 20: COLOR 5: PRINT "Û": NEXT z
FOR z = 1 TO 27
LOCATE z, 41: COLOR 5: PRINT "Û": NEXT z
LOCATE 2, 42: COLOR 4: PRINT "ÖÄÄÄÄÄÄÄÄÄ·"
LOCATE 3, 42: COLOR 4: PRINT "º         º"
LOCATE 4, 42: COLOR 4: PRINT "º         º"
LOCATE 5, 42: COLOR 4: PRINT "ÓÄÄÄÄÄÄÄÄĽ"
LOCATE 7, 42: COLOR 4: PRINT "ÖÄÄÄÄÄÄÄÄÄ·"
LOCATE 8, 42: COLOR 4: PRINT "º         º"
LOCATE 9, 42: COLOR 4: PRINT "º         º"
LOCATE 10, 42: COLOR 4: PRINT "ÓÄÄÄÄÄÄÄÄĽ"
LOCATE 8, 45: COLOR 11: PRINT "Lives"
LOCATE 9, 44: COLOR 12: PRINT lv
LOCATE 3, 45: COLOR 3: PRINT "Score" ' draws the score
LOCATE 4, 44: COLOR 10: PRINT cc
IF we = 0 AND cc > 1000 THEN lv = lv + 1: we = we + 1
IF we = 1 AND cc > 2000 THEN lv = lv + 1: we = we + 1
IF we = 2 AND cc > 3000 THEN lv = lv + 1: we = we + 1
IF we = 3 AND cc > 4000 THEN lv = lv + 1: we = we + 1
IF TIMER >= times + yy THEN cc = cc - 15: yy = yy + 3
LOCATE 21, a1: COLOR t4: PRINT CHR$(4)     'draws a1-a10
LOCATE 21, a2: PRINT CHR$(4)                     'this begins the madness
LOCATE 21, a3: PRINT CHR$(4)
LOCATE 21, a4: PRINT CHR$(4)
LOCATE 21, a5: PRINT CHR$(4)
LOCATE 21, a6: PRINT CHR$(4)
LOCATE 21, a7: PRINT CHR$(4)
LOCATE 21, a8: PRINT CHR$(4)
LOCATE 21, a9: PRINT CHR$(4)
LOCATE 21, a10: PRINT CHR$(4)
LOCATE 20, b1: COLOR t5: PRINT CHR$(6)        'draws b1-b6
LOCATE 20, b2: PRINT CHR$(6)
LOCATE 20, b3: PRINT CHR$(6)
LOCATE 20, b4: PRINT CHR$(6)
LOCATE 20, b5: PRINT CHR$(6)
LOCATE 20, b6: PRINT CHR$(6)
LOCATE 19, c1: COLOR t1: PRINT CHR$(5)      'draws c1-c3
LOCATE 19, c2: PRINT CHR$(5)
LOCATE 19, c3: PRINT CHR$(5)
LOCATE 18, d1: COLOR t2: PRINT CHR$(3)       'draws d1-d10
LOCATE 18, d2: PRINT CHR$(3)
LOCATE 18, d3: PRINT CHR$(3)
LOCATE 18, d4: PRINT CHR$(3)
LOCATE 18, d5: PRINT CHR$(3)
LOCATE 18, d6: PRINT CHR$(3)
LOCATE 18, d7: PRINT CHR$(3)
LOCATE 18, d8: PRINT CHR$(3)
LOCATE 18, d9: PRINT CHR$(3)
LOCATE 18, d10: PRINT CHR$(3)
LOCATE 17, e1: COLOR t9: PRINT CHR$(14)       'draws e1-e10
LOCATE 17, e2: PRINT CHR$(14)
LOCATE 17, e3: PRINT CHR$(14)
LOCATE 17, e4: PRINT CHR$(14)
LOCATE 17, e5: PRINT CHR$(14)
LOCATE 17, e6: PRINT CHR$(14)
LOCATE 17, e7: PRINT CHR$(14)
LOCATE 17, e8: PRINT CHR$(14)
LOCATE 17, e9: PRINT CHR$(14)
LOCATE 17, e10: PRINT CHR$(14)
LOCATE 16, f1: COLOR t8: PRINT CHR$(15)       'draws f1-f8
LOCATE 16, f2: PRINT CHR$(15)
LOCATE 16, f3: PRINT CHR$(15)
LOCATE 16, f4: PRINT CHR$(15)
LOCATE 16, f5: PRINT CHR$(15)
LOCATE 16, f6: PRINT CHR$(15)
LOCATE 16, f7: PRINT CHR$(15)
LOCATE 16, f8: PRINT CHR$(15)
LOCATE 15, g1: COLOR t10: PRINT CHR$(21)       'draws g1-g8
LOCATE 15, g2: PRINT CHR$(21)
LOCATE 15, g3: PRINT CHR$(21)
LOCATE 15, g4: PRINT CHR$(21)
LOCATE 15, g5: PRINT CHR$(21)
LOCATE 15, g6: PRINT CHR$(21)
LOCATE 15, g7: PRINT CHR$(21)
LOCATE 15, g8: PRINT CHR$(21)
LOCATE 14, h1: COLOR t11: PRINT CHR$(17)       'draws h1-h5
LOCATE 14, h2: PRINT CHR$(17)
LOCATE 14, h3: PRINT CHR$(17)
LOCATE 14, h4: PRINT CHR$(17)
LOCATE 14, h5: PRINT CHR$(17)
LOCATE 12, i1: COLOR t12: PRINT CHR$(177)       'draws i1-i8
LOCATE 12, i2: PRINT CHR$(177)
LOCATE 12, i3: PRINT CHR$(177)
LOCATE 12, i4: PRINT CHR$(177)
LOCATE 12, i5: PRINT CHR$(177)
LOCATE 12, i6: PRINT CHR$(177)
LOCATE 12, i7: PRINT CHR$(177)
LOCATE 12, i8: PRINT CHR$(177)
LOCATE 11, j1: COLOR t13: PRINT CHR$(23)       'draws j1-j9
LOCATE 11, j2: PRINT CHR$(23)
LOCATE 11, j3: PRINT CHR$(23)
LOCATE 11, j4: PRINT CHR$(23)
LOCATE 11, j5: PRINT CHR$(23)
LOCATE 11, j6: PRINT CHR$(23)
LOCATE 11, j7: PRINT CHR$(23)
LOCATE 11, j8: PRINT CHR$(23)
LOCATE 11, j9: PRINT CHR$(23)
LOCATE 10, k1: COLOR t14: PRINT CHR$(145)       'draws k1-k8
LOCATE 10, k2: PRINT CHR$(145)
LOCATE 10, k3: PRINT CHR$(145)
LOCATE 10, k4: PRINT CHR$(145)
LOCATE 10, k5: PRINT CHR$(145)
LOCATE 10, k6: PRINT CHR$(145)
LOCATE 10, k7: PRINT CHR$(145)
LOCATE 10, k8: PRINT CHR$(145)
LOCATE 9, l1: COLOR t15: PRINT CHR$(157)       'draws l1-l9
LOCATE 9, l2: PRINT CHR$(157)
LOCATE 9, l3: PRINT CHR$(157)
LOCATE 9, l4: PRINT CHR$(157)
LOCATE 9, l5: PRINT CHR$(157)
LOCATE 9, l6: PRINT CHR$(157)
LOCATE 9, l7: PRINT CHR$(157)
LOCATE 9, l8: PRINT CHR$(157)
LOCATE 9, l9: PRINT CHR$(157)
LOCATE 8, m1: COLOR t7: PRINT CHR$(232)       'draws m1-m8
LOCATE 8, m2: PRINT CHR$(232)
LOCATE 8, m3: PRINT CHR$(232)
LOCATE 8, m4: PRINT CHR$(232)
LOCATE 8, m5: PRINT CHR$(232)
LOCATE 8, m6: PRINT CHR$(232)
LOCATE 8, m7: PRINT CHR$(232)
LOCATE 8, m8: PRINT CHR$(232)
LOCATE 7, n1: COLOR t6: PRINT CHR$(148)       'draws n1-n14
LOCATE 7, n2: PRINT CHR$(148)
LOCATE 7, n3: PRINT CHR$(148)
LOCATE 7, n4: PRINT CHR$(148)
LOCATE 7, n5: PRINT CHR$(148)
LOCATE 7, n6: PRINT CHR$(148)
LOCATE 7, n7: PRINT CHR$(148)
LOCATE 7, n8: PRINT CHR$(148)
LOCATE 7, n9: PRINT CHR$(148)
LOCATE 7, n10: PRINT CHR$(148)
LOCATE 7, n11: PRINT CHR$(148)
LOCATE 7, n12: PRINT CHR$(148)
LOCATE 7, n13: PRINT CHR$(148)
LOCATE 7, n14: PRINT CHR$(148)
LOCATE 6, o1: COLOR t3: PRINT CHR$(236)       'draws o1-o11
LOCATE 6, o2: PRINT CHR$(236)
LOCATE 6, o3: PRINT CHR$(236)
LOCATE 6, o4: PRINT CHR$(236)
LOCATE 6, o5: PRINT CHR$(236)
LOCATE 6, o6: PRINT CHR$(236)
LOCATE 6, o7: PRINT CHR$(236)
LOCATE 6, o8: PRINT CHR$(236)
LOCATE 6, o9: PRINT CHR$(236)
LOCATE 6, o10: PRINT CHR$(236)
LOCATE 6, o11: PRINT CHR$(236)
FOR tt = 1 TO xx: NEXT tt   'location of delay
        LOCATE 18, d1 - 1: COLOR 0: PRINT "Û"     'erases d1-d10
        LOCATE 18, d2 - 1: PRINT "Û"
        LOCATE 18, d3 - 1: PRINT "Û"
        LOCATE 18, d4 - 1: PRINT "Û"
        LOCATE 18, d5 - 1: PRINT "Û"
        LOCATE 18, d6 - 1: PRINT "Û"
        LOCATE 18, d7 - 1: PRINT "Û"
        LOCATE 18, d8 - 1: PRINT "Û"
        LOCATE 18, d9 - 1: PRINT "Û"
        LOCATE 18, d10 - 1: PRINT "Û"
        LOCATE 16, f1 + 1: COLOR 0: PRINT "Û"     'erases f1-f8
        LOCATE 16, f2 + 1: PRINT "Û"
        LOCATE 16, f3 + 1: PRINT "Û"
        LOCATE 16, f4 + 1: PRINT "Û"
        LOCATE 16, f5 + 1: PRINT "Û"
        LOCATE 16, f6 + 1: PRINT "Û"
        LOCATE 16, f7 + 1: PRINT "Û"
        LOCATE 16, f8 + 1: PRINT "Û"
        LOCATE 12, i1 - 1: COLOR 0: PRINT "Û"     'erases i1-i8
        LOCATE 12, i2 - 1: PRINT "Û"
        LOCATE 12, i3 - 1: PRINT "Û"
        LOCATE 12, i4 - 1: PRINT "Û"
        LOCATE 12, i5 - 1: PRINT "Û"
        LOCATE 12, i6 - 1: PRINT "Û"
        LOCATE 12, i7 - 1: PRINT "Û"
        LOCATE 12, i8 - 1: PRINT "Û"
        LOCATE 8, m1 + 1: COLOR 0: PRINT "Û"     'erases m1-m8
        LOCATE 8, m2 + 1: PRINT "Û"
        LOCATE 8, m3 + 1: PRINT "Û"
        LOCATE 8, m4 + 1: PRINT "Û"
        LOCATE 8, m5 + 1: PRINT "Û"
        LOCATE 8, m6 + 1: PRINT "Û"
        LOCATE 8, m7 + 1: PRINT "Û"
        LOCATE 8, m8 + 1: PRINT "Û"     'erases the double speed characters
'adds numbers to dblspd characters and counters dblspd variables
d1 = d1 + 1: d2 = d2 + 1: d3 = d3 + 1: d4 = d4 + 1: d5 = d5 + 1: d6 = d6 + 1: d7 = d7 + 1: d8 = d8 + 1: d9 = d9 + 1: d10 = d10 + 1
f1 = f1 - 1: f2 = f2 - 1: f3 = f3 - 1: f4 = f4 - 1: f5 = f5 - 1: f6 = f6 - 1: f7 = f7 - 1: f8 = f8 - 1
i1 = i1 + 1: i2 = i2 + 1: i3 = i3 + 1: i4 = i4 + 1: i5 = i5 + 1: i6 = i6 + 1: i7 = i7 + 1: i8 = i8 + 1
m1 = m1 - 1: m2 = m2 - 1: m3 = m3 - 1: m4 = m4 - 1: m5 = m5 - 1: m6 = m6 - 1: m7 = m7 - 1: m8 = m8 - 1
        IF d1 = 41 THEN LOCATE 18, 40: PRINT "Û": d1 = 21
        IF d2 = 41 THEN LOCATE 18, 40: PRINT "Û": d2 = 21
        IF d3 = 41 THEN LOCATE 18, 40: PRINT "Û": d3 = 21
        IF d4 = 41 THEN LOCATE 18, 40: PRINT "Û": d4 = 21
        IF d5 = 41 THEN LOCATE 18, 40: PRINT "Û": d5 = 21
        IF d6 = 41 THEN LOCATE 18, 40: PRINT "Û": d6 = 21
        IF d7 = 41 THEN LOCATE 18, 40: PRINT "Û": d7 = 21
        IF d8 = 41 THEN LOCATE 18, 40: PRINT "Û": d8 = 21
        IF d9 = 41 THEN LOCATE 18, 40: PRINT "Û": d9 = 21
        IF d10 = 41 THEN LOCATE 18, 40: PRINT "Û": d10 = 21
        IF f1 = 20 THEN LOCATE 16, 21: PRINT "Û": f1 = 40
        IF f2 = 20 THEN LOCATE 16, 21: PRINT "Û": f2 = 40
        IF f3 = 20 THEN LOCATE 16, 21: PRINT "Û": f3 = 40
        IF f4 = 20 THEN LOCATE 16, 21: PRINT "Û": f4 = 40
        IF f5 = 20 THEN LOCATE 16, 21: PRINT "Û": f5 = 40
        IF f6 = 20 THEN LOCATE 16, 21: PRINT "Û": f6 = 40
        IF f7 = 20 THEN LOCATE 16, 21: PRINT "Û": f7 = 40
        IF f8 = 20 THEN LOCATE 16, 21: PRINT "Û": f8 = 40
        IF i1 = 41 THEN LOCATE 12, 40: PRINT "Û": i1 = 21
        IF i2 = 41 THEN LOCATE 12, 40: PRINT "Û": i2 = 21
        IF i3 = 41 THEN LOCATE 12, 40: PRINT "Û": i3 = 21
        IF i4 = 41 THEN LOCATE 12, 40: PRINT "Û": i4 = 21
        IF i5 = 41 THEN LOCATE 12, 40: PRINT "Û": i5 = 21
        IF i6 = 41 THEN LOCATE 12, 40: PRINT "Û": i6 = 21
        IF i7 = 41 THEN LOCATE 12, 40: PRINT "Û": i7 = 21
        IF i8 = 41 THEN LOCATE 12, 40: PRINT "Û": i8 = 21
        IF m1 = 20 THEN LOCATE 8, 21: PRINT "Û": m1 = 40
        IF m2 = 20 THEN LOCATE 8, 21: PRINT "Û": m2 = 40
        IF m3 = 20 THEN LOCATE 8, 21: PRINT "Û": m3 = 40
        IF m4 = 20 THEN LOCATE 8, 21: PRINT "Û": m4 = 40
        IF m5 = 20 THEN LOCATE 8, 21: PRINT "Û": m5 = 40
        IF m6 = 20 THEN LOCATE 8, 21: PRINT "Û": m6 = 40
        IF m7 = 20 THEN LOCATE 8, 21: PRINT "Û": m7 = 40
        IF m8 = 20 THEN LOCATE 8, 21: PRINT "Û": m8 = 40
  'draws the double speed characters
LOCATE 18, d1: COLOR t2: PRINT CHR$(3)       'draws d1-d10
LOCATE 18, d2: PRINT CHR$(3)
LOCATE 18, d3: PRINT CHR$(3)
LOCATE 18, d4: PRINT CHR$(3)
LOCATE 18, d5: PRINT CHR$(3)
LOCATE 18, d6: PRINT CHR$(3)
LOCATE 18, d7: PRINT CHR$(3)
LOCATE 18, d8: PRINT CHR$(3)
LOCATE 18, d9: PRINT CHR$(3)
LOCATE 18, d10: PRINT CHR$(3)
LOCATE 16, f1: COLOR t8: PRINT CHR$(15)       'draws f1-f8
LOCATE 16, f2: PRINT CHR$(15)
LOCATE 16, f3: PRINT CHR$(15)
LOCATE 16, f4: PRINT CHR$(15)
LOCATE 16, f5: PRINT CHR$(15)
LOCATE 16, f6: PRINT CHR$(15)
LOCATE 16, f7: PRINT CHR$(15)
LOCATE 16, f8: PRINT CHR$(15)
LOCATE 12, i1: COLOR t12: PRINT CHR$(177)       'draws i1-i8
LOCATE 12, i2: PRINT CHR$(177)
LOCATE 12, i3: PRINT CHR$(177)
LOCATE 12, i4: PRINT CHR$(177)
LOCATE 12, i5: PRINT CHR$(177)
LOCATE 12, i6: PRINT CHR$(177)
LOCATE 12, i7: PRINT CHR$(177)
LOCATE 12, i8: PRINT CHR$(177)
LOCATE 8, m1: COLOR t7: PRINT CHR$(232)       'draws m1-m8
LOCATE 8, m2: PRINT CHR$(232)
LOCATE 8, m3: PRINT CHR$(232)
LOCATE 8, m4: PRINT CHR$(232)
LOCATE 8, m5: PRINT CHR$(232)
LOCATE 8, m6: PRINT CHR$(232)
LOCATE 8, m7: PRINT CHR$(232)
LOCATE 8, m8: PRINT CHR$(232)
FOR z = 1 TO 27                           'draws the border
LOCATE z, 20: COLOR 5: PRINT "Û": NEXT z
FOR z = 1 TO 27
LOCATE z, 41: COLOR 5: PRINT "Û": NEXT z
FOR tt = 1 TO xx: NEXT tt   'location of delay
GOSUB addnumber  'adds numbers to all variables
GOSUB ifs        'counters everything
GOSUB eraser     'erases all characters
GOTO 100

up:   'DONE!!!
        a = a - 1
        GOSUB udrlifs
        LOCATE a, b: COLOR 3: PRINT CHR$(1)
        LOCATE a + 1, b: COLOR 0: PRINT "Û"
        IF a <= 21 THEN cc = cc + 10
        IF a <= 13 THEN cc = cc + 25
        IF a = 18 OR a = 16 OR a = 12 OR a = 8 THEN cc = cc + 30
        IF a = 5 OR a = 4 OR a = 3 OR a = 2 THEN cc = cc - 25
RETURN

down:  'DONE!!!
        a = a + 1
        GOSUB udrlifs
        LOCATE a, b: COLOR 3: PRINT CHR$(1)
        LOCATE a - 1, b: COLOR 0: PRINT "Û"
        IF a = 21 THEN cc = cc - 10
        IF a <= 13 THEN cc = cc - 25
        IF a = 18 OR a = 16 OR a = 12 OR a = 8 THEN cc = cc - 50
RETURN

right:  'DONE!!!
        b = b + 1
        GOSUB udrlifs
        LOCATE a, b: COLOR 3: PRINT CHR$(1)
        LOCATE a, b - 1: COLOR 0: PRINT "Û"
        oo = oo + 1
        IF oo >= 5 AND a <= 21 THEN cc = cc + 30: oo = 0 ELSE RETURN
        IF a = 13 THEN cc = cc - 30
        IF a < 6 THEN cc = cc - 30
RETURN

left:   'DONE!!!
        b = b - 1
        GOSUB udrlifs
        LOCATE a, b: COLOR 3: PRINT CHR$(1)
        LOCATE a, b + 1: COLOR 0: PRINT "Û"
        jj = jj + 1
        IF jj >= 5 AND a <= 21 THEN cc = cc + 30: jj = 0 ELSE RETURN
        IF a = 13 THEN cc = cc - 30
        IF a < 6 THEN cc = cc - 30
RETURN

udrlifs: 'DONE!!!
        IF a >= 28 THEN a = 27
        IF a <= 0 THEN a = 1
        IF b >= 41 THEN b = 40
        IF b <= 20 THEN b = 21
        IF a = 1 THEN cc = cc + 250: GOSUB winner
        IF a = 21 AND b = a1 THEN GOSUB crash
        IF a = 21 AND b = a2 THEN GOSUB crash
        IF a = 21 AND b = a3 THEN GOSUB crash
        IF a = 21 AND b = a4 THEN GOSUB crash
        IF a = 21 AND b = a5 THEN GOSUB crash
        IF a = 21 AND b = a6 THEN GOSUB crash
        IF a = 21 AND b = a7 THEN GOSUB crash
        IF a = 21 AND b = a8 THEN GOSUB crash
        IF a = 21 AND b = a9 THEN GOSUB crash
        IF a = 21 AND b = a10 THEN GOSUB crash
        IF a = 20 AND b = b1 THEN GOSUB crash
        IF a = 20 AND b = b2 THEN GOSUB crash
        IF a = 20 AND b = b3 THEN GOSUB crash
        IF a = 20 AND b = b4 THEN GOSUB crash
        IF a = 20 AND b = b5 THEN GOSUB crash
        IF a = 20 AND b = b6 THEN GOSUB crash
        IF a = 19 AND b = c1 THEN GOSUB crash
        IF a = 19 AND b = c2 THEN GOSUB crash
        IF a = 19 AND b = c3 THEN GOSUB crash
        IF a = 18 AND b = d1 THEN GOSUB crash
        IF a = 18 AND b = d2 THEN GOSUB crash
        IF a = 18 AND b = d3 THEN GOSUB crash
        IF a = 18 AND b = d4 THEN GOSUB crash
        IF a = 18 AND b = d5 THEN GOSUB crash
        IF a = 18 AND b = d6 THEN GOSUB crash
        IF a = 18 AND b = d7 THEN GOSUB crash
        IF a = 18 AND b = d8 THEN GOSUB crash
        IF a = 18 AND b = d9 THEN GOSUB crash
        IF a = 18 AND b = d10 THEN GOSUB crash
        IF a = 17 AND b = e1 THEN GOSUB crash
        IF a = 17 AND b = e2 THEN GOSUB crash
        IF a = 17 AND b = e3 THEN GOSUB crash
        IF a = 17 AND b = e4 THEN GOSUB crash
        IF a = 17 AND b = e5 THEN GOSUB crash
        IF a = 17 AND b = e6 THEN GOSUB crash
        IF a = 17 AND b = e7 THEN GOSUB crash
        IF a = 17 AND b = e8 THEN GOSUB crash
        IF a = 17 AND b = e9 THEN GOSUB crash
        IF a = 17 AND b = e10 THEN GOSUB crash
        IF a = 16 AND b = f1 THEN GOSUB crash
        IF a = 16 AND b = f2 THEN GOSUB crash
        IF a = 16 AND b = f3 THEN GOSUB crash
        IF a = 16 AND b = f4 THEN GOSUB crash
        IF a = 16 AND b = f5 THEN GOSUB crash
        IF a = 16 AND b = f6 THEN GOSUB crash
        IF a = 16 AND b = f7 THEN GOSUB crash
        IF a = 16 AND b = f8 THEN GOSUB crash
        IF a = 15 AND b = g1 THEN GOSUB crash
        IF a = 15 AND b = g2 THEN GOSUB crash
        IF a = 15 AND b = g3 THEN GOSUB crash
        IF a = 15 AND b = g4 THEN GOSUB crash
        IF a = 15 AND b = g5 THEN GOSUB crash
        IF a = 15 AND b = g6 THEN GOSUB crash
        IF a = 15 AND b = g7 THEN GOSUB crash
        IF a = 15 AND b = g8 THEN GOSUB crash
        IF a = 14 AND b = h1 THEN GOSUB crash
        IF a = 14 AND b = h2 THEN GOSUB crash
        IF a = 14 AND b = h3 THEN GOSUB crash
        IF a = 14 AND b = h4 THEN GOSUB crash
        IF a = 14 AND b = h5 THEN GOSUB crash
        IF a = 12 AND b = i1 THEN GOSUB crash
        IF a = 12 AND b = i2 THEN GOSUB crash
        IF a = 12 AND b = i3 THEN GOSUB crash
        IF a = 12 AND b = i4 THEN GOSUB crash
        IF a = 12 AND b = i5 THEN GOSUB crash
        IF a = 12 AND b = i6 THEN GOSUB crash
        IF a = 12 AND b = i7 THEN GOSUB crash
        IF a = 12 AND b = i8 THEN GOSUB crash
        IF a = 11 AND b = j1 THEN GOSUB crash
        IF a = 11 AND b = j2 THEN GOSUB crash
        IF a = 11 AND b = j3 THEN GOSUB crash
        IF a = 11 AND b = j4 THEN GOSUB crash
        IF a = 11 AND b = j5 THEN GOSUB crash
        IF a = 11 AND b = j6 THEN GOSUB crash
        IF a = 11 AND b = j7 THEN GOSUB crash
        IF a = 11 AND b = j8 THEN GOSUB crash
        IF a = 11 AND b = j9 THEN GOSUB crash
        IF a = 10 AND b = k1 THEN GOSUB crash
        IF a = 10 AND b = k2 THEN GOSUB crash
        IF a = 10 AND b = k3 THEN GOSUB crash
        IF a = 10 AND b = k4 THEN GOSUB crash
        IF a = 10 AND b = k5 THEN GOSUB crash
        IF a = 10 AND b = k6 THEN GOSUB crash
        IF a = 10 AND b = k7 THEN GOSUB crash
        IF a = 10 AND b = k8 THEN GOSUB crash
        IF a = 9 AND b = l1 THEN GOSUB crash
        IF a = 9 AND b = l2 THEN GOSUB crash
        IF a = 9 AND b = l3 THEN GOSUB crash
        IF a = 9 AND b = l4 THEN GOSUB crash
        IF a = 9 AND b = l5 THEN GOSUB crash
        IF a = 9 AND b = l6 THEN GOSUB crash
        IF a = 9 AND b = l7 THEN GOSUB crash
        IF a = 9 AND b = l8 THEN GOSUB crash
        IF a = 9 AND b = l9 THEN GOSUB crash
        IF a = 8 AND b = m1 THEN GOSUB crash
        IF a = 8 AND b = m2 THEN GOSUB crash
        IF a = 8 AND b = m3 THEN GOSUB crash
        IF a = 8 AND b = m4 THEN GOSUB crash
        IF a = 8 AND b = m5 THEN GOSUB crash
        IF a = 8 AND b = m6 THEN GOSUB crash
        IF a = 8 AND b = m7 THEN GOSUB crash
        IF a = 8 AND b = m8 THEN GOSUB crash
        IF a = 7 AND b = n1 THEN GOSUB crash
        IF a = 7 AND b = n2 THEN GOSUB crash
        IF a = 7 AND b = n3 THEN GOSUB crash
        IF a = 7 AND b = n4 THEN GOSUB crash
        IF a = 7 AND b = n5 THEN GOSUB crash
        IF a = 7 AND b = n6 THEN GOSUB crash
        IF a = 7 AND b = n7 THEN GOSUB crash
        IF a = 7 AND b = n8 THEN GOSUB crash
        IF a = 7 AND b = n9 THEN GOSUB crash
        IF a = 7 AND b = n10 THEN GOSUB crash
        IF a = 7 AND b = n11 THEN GOSUB crash
        IF a = 7 AND b = n12 THEN GOSUB crash
        IF a = 7 AND b = n13 THEN GOSUB crash
        IF a = 7 AND b = n14 THEN GOSUB crash
        IF a = 6 AND b = o1 THEN GOSUB crash
        IF a = 6 AND b = o2 THEN GOSUB crash
        IF a = 6 AND b = o3 THEN GOSUB crash
        IF a = 6 AND b = o4 THEN GOSUB crash
        IF a = 6 AND b = o5 THEN GOSUB crash
        IF a = 6 AND b = o6 THEN GOSUB crash
        IF a = 6 AND b = o7 THEN GOSUB crash
        IF a = 6 AND b = o8 THEN GOSUB crash
        IF a = 6 AND b = o9 THEN GOSUB crash
        IF a = 6 AND b = o10 THEN GOSUB crash
        IF a = 6 AND b = o11 THEN GOSUB crash
RETURN

ended:  'DONE!!!
        CLS : COLOR 5
        LOCATE 10, 20: PRINT "°°°°°   °°°°°   °°°°°  "
        LOCATE 11, 20: PRINT "°       °       °      "
        LOCATE 12, 20: PRINT "°°°°°   °°°°°   °°°°°  "
        LOCATE 13, 20: PRINT "    °       °       °  "
        LOCATE 14, 20: PRINT "°°°°° ² °°°°° ² °°°°° ²"
        LOCATE 16, 18: PRINT "Sean Schuster Software"
        PLAY "o1l10bbbagdgdfl5fagl3g"
        END
RETURN

crash: 'DONE!!!
        CLS
        PLAY "l4o2d"
        LOCATE 15, 35: COLOR 3: PRINT "YOU'RE CRUSHED!!"
        IF cc > 1000 THEN cc = cc - 500
        lv = lv - 1
        IF lv = 0 THEN LOCATE 16, 20: PRINT "You Died!!!": SLEEP 1: GOSUB ended
        SLEEP 1: GOTO 10
RETURN

winner: 'DONE!!!
        PLAY "o2l5aabbl10ccddo2ccl15cccl7adcadcl20eefffef"
        CLS : COLOR 10
        LOCATE 13, 25: PRINT "±     ± ± ±±    ± ±±    ± ±±±± ±±±± "
        LOCATE 14, 25: PRINT "±     ± ± ± ±   ± ± ±   ± ±    ±   ±"
        LOCATE 15, 25: PRINT "±  ±  ± ± ±  ±  ± ±  ±  ± ±±±  ±±±± "
        LOCATE 16, 25: PRINT "± ± ± ± ± ±   ± ± ±   ± ± ±    ±  ± "
        LOCATE 17, 25: PRINT "±±   ±± ± ±    ±± ±    ±± ±±±± ±   ±"
        lv = lv + 1
        SLEEP 3: GOTO 9
RETURN

ifs:  'DONE!!!
        LOCATE a, b: COLOR 3: PRINT CHR$(1)
        COLOR 0
        IF a1 = 41 THEN LOCATE 21, 40: PRINT "Û": a1 = 21
        IF a2 = 41 THEN LOCATE 21, 40: PRINT "Û": a2 = 21
        IF a3 = 41 THEN LOCATE 21, 40: PRINT "Û": a3 = 21
        IF a4 = 41 THEN LOCATE 21, 40: PRINT "Û": a4 = 21
        IF a5 = 41 THEN LOCATE 21, 40: PRINT "Û": a5 = 21
        IF a6 = 41 THEN LOCATE 21, 40: PRINT "Û": a6 = 21
        IF a7 = 41 THEN LOCATE 21, 40: PRINT "Û": a7 = 21
        IF a8 = 41 THEN LOCATE 21, 40: PRINT "Û": a8 = 21
        IF a9 = 41 THEN LOCATE 21, 40: PRINT "Û": a9 = 21
        IF a10 = 41 THEN LOCATE 21, 40: PRINT "Û": a10 = 21
        IF b1 = 20 THEN LOCATE 20, 21: PRINT "Û": b1 = 40
        IF b2 = 20 THEN LOCATE 20, 21: PRINT "Û": b2 = 40
        IF b3 = 20 THEN LOCATE 20, 21: PRINT "Û": b3 = 40
        IF b4 = 20 THEN LOCATE 20, 21: PRINT "Û": b4 = 40
        IF b5 = 20 THEN LOCATE 20, 21: PRINT "Û": b5 = 40
        IF b6 = 20 THEN LOCATE 20, 21: PRINT "Û": b6 = 40
        IF c1 = 41 THEN LOCATE 19, 40: PRINT "Û": c1 = 21
        IF c2 = 41 THEN LOCATE 19, 40: PRINT "Û": c2 = 21
        IF c3 = 41 THEN LOCATE 19, 40: PRINT "Û": c3 = 21
        IF d1 = 41 THEN LOCATE 18, 40: PRINT "Û": d1 = 21
        IF d2 = 41 THEN LOCATE 18, 40: PRINT "Û": d2 = 21
        IF d3 = 41 THEN LOCATE 18, 40: PRINT "Û": d3 = 21
        IF d4 = 41 THEN LOCATE 18, 40: PRINT "Û": d4 = 21
        IF d5 = 41 THEN LOCATE 18, 40: PRINT "Û": d5 = 21
        IF d6 = 41 THEN LOCATE 18, 40: PRINT "Û": d6 = 21
        IF d7 = 41 THEN LOCATE 18, 40: PRINT "Û": d7 = 21
        IF d8 = 41 THEN LOCATE 18, 40: PRINT "Û": d8 = 21
        IF d9 = 41 THEN LOCATE 18, 40: PRINT "Û": d9 = 21
        IF d10 = 41 THEN LOCATE 18, 40: PRINT "Û": d10 = 21
        IF e1 = 20 THEN LOCATE 17, 21: PRINT "Û": e1 = 40
        IF e2 = 20 THEN LOCATE 17, 21: PRINT "Û": e2 = 40
        IF e3 = 20 THEN LOCATE 17, 21: PRINT "Û": e3 = 40
        IF e4 = 20 THEN LOCATE 17, 21: PRINT "Û": e4 = 40
        IF e5 = 20 THEN LOCATE 17, 21: PRINT "Û": e5 = 40
        IF e6 = 20 THEN LOCATE 17, 21: PRINT "Û": e6 = 40
        IF e7 = 20 THEN LOCATE 17, 21: PRINT "Û": e7 = 40
        IF e8 = 20 THEN LOCATE 17, 21: PRINT "Û": e8 = 40
        IF e9 = 20 THEN LOCATE 17, 21: PRINT "Û": e9 = 40
        IF e10 = 20 THEN LOCATE 17, 21: PRINT "Û": e10 = 40
        IF f1 = 20 THEN LOCATE 16, 21: PRINT "Û": f1 = 40
        IF f2 = 20 THEN LOCATE 16, 21: PRINT "Û": f2 = 40
        IF f3 = 20 THEN LOCATE 16, 21: PRINT "Û": f3 = 40
        IF f4 = 20 THEN LOCATE 16, 21: PRINT "Û": f4 = 40
        IF f5 = 20 THEN LOCATE 16, 21: PRINT "Û": f5 = 40
        IF f6 = 20 THEN LOCATE 16, 21: PRINT "Û": f6 = 40
        IF f7 = 20 THEN LOCATE 16, 21: PRINT "Û": f7 = 40
        IF f8 = 20 THEN LOCATE 16, 21: PRINT "Û": f8 = 40
        IF g1 = 41 THEN LOCATE 15, 40: PRINT "Û": g1 = 21
        IF g2 = 41 THEN LOCATE 15, 40: PRINT "Û": g2 = 21
        IF g3 = 41 THEN LOCATE 15, 40: PRINT "Û": g3 = 21
        IF g4 = 41 THEN LOCATE 15, 40: PRINT "Û": g4 = 21
        IF g5 = 41 THEN LOCATE 15, 40: PRINT "Û": g5 = 21
        IF g6 = 41 THEN LOCATE 15, 40: PRINT "Û": g6 = 21
        IF g7 = 41 THEN LOCATE 15, 40: PRINT "Û": g7 = 21
        IF g8 = 41 THEN LOCATE 15, 40: PRINT "Û": g8 = 21
        IF h1 = 20 THEN LOCATE 14, 21: PRINT "Û": h1 = 40
        IF h2 = 20 THEN LOCATE 14, 21: PRINT "Û": h2 = 40
        IF h3 = 20 THEN LOCATE 14, 21: PRINT "Û": h3 = 40
        IF h4 = 20 THEN LOCATE 14, 21: PRINT "Û": h4 = 40
        IF h5 = 20 THEN LOCATE 14, 21: PRINT "Û": h5 = 40
        IF i1 = 41 THEN LOCATE 12, 40: PRINT "Û": i1 = 21
        IF i2 = 41 THEN LOCATE 12, 40: PRINT "Û": i2 = 21
        IF i3 = 41 THEN LOCATE 12, 40: PRINT "Û": i3 = 21
        IF i4 = 41 THEN LOCATE 12, 40: PRINT "Û": i4 = 21
        IF i5 = 41 THEN LOCATE 12, 40: PRINT "Û": i5 = 21
        IF i6 = 41 THEN LOCATE 12, 40: PRINT "Û": i6 = 21
        IF i7 = 41 THEN LOCATE 12, 40: PRINT "Û": i7 = 21
        IF i8 = 41 THEN LOCATE 12, 40: PRINT "Û": i8 = 21
        IF j1 = 41 THEN LOCATE 11, 40: PRINT "Û": j1 = 21
        IF j2 = 41 THEN LOCATE 11, 40: PRINT "Û": j2 = 21
        IF j3 = 41 THEN LOCATE 11, 40: PRINT "Û": j3 = 21
        IF j4 = 41 THEN LOCATE 11, 40: PRINT "Û": j4 = 21
        IF j5 = 41 THEN LOCATE 11, 40: PRINT "Û": j5 = 21
        IF j6 = 41 THEN LOCATE 11, 40: PRINT "Û": j6 = 21
        IF j7 = 41 THEN LOCATE 11, 40: PRINT "Û": j7 = 21
        IF j8 = 41 THEN LOCATE 11, 40: PRINT "Û": j8 = 21
        IF j9 = 41 THEN LOCATE 11, 40: PRINT "Û": j9 = 21
        IF k1 = 20 THEN LOCATE 10, 21: PRINT "Û": k1 = 40
        IF k2 = 20 THEN LOCATE 10, 21: PRINT "Û": k2 = 40
        IF k3 = 20 THEN LOCATE 10, 21: PRINT "Û": k3 = 40
        IF k4 = 20 THEN LOCATE 10, 21: PRINT "Û": k4 = 40
        IF k5 = 20 THEN LOCATE 10, 21: PRINT "Û": k5 = 40
        IF k6 = 20 THEN LOCATE 10, 21: PRINT "Û": k6 = 40
        IF k7 = 20 THEN LOCATE 10, 21: PRINT "Û": k7 = 40
        IF k8 = 20 THEN LOCATE 10, 21: PRINT "Û": k8 = 40
        IF l1 = 41 THEN LOCATE 9, 40: PRINT "Û": l1 = 21
        IF l2 = 41 THEN LOCATE 9, 40: PRINT "Û": l2 = 21
        IF l3 = 41 THEN LOCATE 9, 40: PRINT "Û": l3 = 21
        IF l4 = 41 THEN LOCATE 9, 40: PRINT "Û": l4 = 21
        IF l5 = 41 THEN LOCATE 9, 40: PRINT "Û": l5 = 21
        IF l6 = 41 THEN LOCATE 9, 40: PRINT "Û": l6 = 21
        IF l7 = 41 THEN LOCATE 9, 40: PRINT "Û": l7 = 21
        IF l8 = 41 THEN LOCATE 9, 40: PRINT "Û": l8 = 21
        IF l9 = 41 THEN LOCATE 9, 40: PRINT "Û": l9 = 21
        IF m1 = 20 THEN LOCATE 8, 21: PRINT "Û": m1 = 40
        IF m2 = 20 THEN LOCATE 8, 21: PRINT "Û": m2 = 40
        IF m3 = 20 THEN LOCATE 8, 21: PRINT "Û": m3 = 40
        IF m4 = 20 THEN LOCATE 8, 21: PRINT "Û": m4 = 40
        IF m5 = 20 THEN LOCATE 8, 21: PRINT "Û": m5 = 40
        IF m6 = 20 THEN LOCATE 8, 21: PRINT "Û": m6 = 40
        IF m7 = 20 THEN LOCATE 8, 21: PRINT "Û": m7 = 40
        IF m8 = 20 THEN LOCATE 8, 21: PRINT "Û": m8 = 40
        IF n1 = 20 THEN LOCATE 7, 21: PRINT "Û": n1 = 40
        IF n2 = 20 THEN LOCATE 7, 21: PRINT "Û": n2 = 40
        IF n3 = 20 THEN LOCATE 7, 21: PRINT "Û": n3 = 40
        IF n4 = 20 THEN LOCATE 7, 21: PRINT "Û": n4 = 40
        IF n5 = 20 THEN LOCATE 7, 21: PRINT "Û": n5 = 40
        IF n6 = 20 THEN LOCATE 7, 21: PRINT "Û": n6 = 40
        IF n7 = 20 THEN LOCATE 7, 21: PRINT "Û": n7 = 40
        IF n8 = 20 THEN LOCATE 7, 21: PRINT "Û": n8 = 40
        IF n9 = 20 THEN LOCATE 7, 21: PRINT "Û": n9 = 40
        IF n10 = 20 THEN LOCATE 7, 21: PRINT "Û": n10 = 40
        IF n11 = 20 THEN LOCATE 7, 21: PRINT "Û": n11 = 40
        IF n12 = 20 THEN LOCATE 7, 21: PRINT "Û": n12 = 40
        IF n13 = 20 THEN LOCATE 7, 21: PRINT "Û": n13 = 40
        IF n14 = 20 THEN LOCATE 7, 21: PRINT "Û": n14 = 40
        IF o1 = 41 THEN LOCATE 6, 40: PRINT "Û": o1 = 21
        IF o2 = 41 THEN LOCATE 6, 40: PRINT "Û": o2 = 21
        IF o3 = 41 THEN LOCATE 6, 40: PRINT "Û": o3 = 21
        IF o4 = 41 THEN LOCATE 6, 40: PRINT "Û": o4 = 21
        IF o5 = 41 THEN LOCATE 6, 40: PRINT "Û": o5 = 21
        IF o6 = 41 THEN LOCATE 6, 40: PRINT "Û": o6 = 21
        IF o7 = 41 THEN LOCATE 6, 40: PRINT "Û": o7 = 21
        IF o8 = 41 THEN LOCATE 6, 40: PRINT "Û": o8 = 21
        IF o9 = 41 THEN LOCATE 6, 40: PRINT "Û": o9 = 21
        IF o10 = 41 THEN LOCATE 6, 40: PRINT "Û": o10 = 21
        IF o11 = 41 THEN LOCATE 6, 40: PRINT "Û": o11 = 21
        IF a = 21 AND b = a1 THEN GOSUB crash
        IF a = 21 AND b = a2 THEN GOSUB crash
        IF a = 21 AND b = a3 THEN GOSUB crash
        IF a = 21 AND b = a4 THEN GOSUB crash
        IF a = 21 AND b = a5 THEN GOSUB crash
        IF a = 21 AND b = a6 THEN GOSUB crash
        IF a = 21 AND b = a7 THEN GOSUB crash
        IF a = 21 AND b = a8 THEN GOSUB crash
        IF a = 21 AND b = a9 THEN GOSUB crash
        IF a = 21 AND b = a10 THEN GOSUB crash
        IF a = 20 AND b = b1 THEN GOSUB crash
        IF a = 20 AND b = b2 THEN GOSUB crash
        IF a = 20 AND b = b3 THEN GOSUB crash
        IF a = 20 AND b = b4 THEN GOSUB crash
        IF a = 20 AND b = b5 THEN GOSUB crash
        IF a = 20 AND b = b6 THEN GOSUB crash
        IF a = 19 AND b = c1 THEN GOSUB crash
        IF a = 19 AND b = c2 THEN GOSUB crash
        IF a = 19 AND b = c3 THEN GOSUB crash
        IF a = 18 AND b = d1 THEN GOSUB crash
        IF a = 18 AND b = d2 THEN GOSUB crash
        IF a = 18 AND b = d3 THEN GOSUB crash
        IF a = 18 AND b = d4 THEN GOSUB crash
        IF a = 18 AND b = d5 THEN GOSUB crash
        IF a = 18 AND b = d6 THEN GOSUB crash
        IF a = 18 AND b = d7 THEN GOSUB crash
        IF a = 18 AND b = d8 THEN GOSUB crash
        IF a = 18 AND b = d9 THEN GOSUB crash
        IF a = 18 AND b = d10 THEN GOSUB crash
        IF a = 17 AND b = e1 THEN GOSUB crash
        IF a = 17 AND b = e2 THEN GOSUB crash
        IF a = 17 AND b = e3 THEN GOSUB crash
        IF a = 17 AND b = e4 THEN GOSUB crash
        IF a = 17 AND b = e5 THEN GOSUB crash
        IF a = 17 AND b = e6 THEN GOSUB crash
        IF a = 17 AND b = e7 THEN GOSUB crash
        IF a = 17 AND b = e8 THEN GOSUB crash
        IF a = 17 AND b = e9 THEN GOSUB crash
        IF a = 17 AND b = e10 THEN GOSUB crash
        IF a = 16 AND b = f1 THEN GOSUB crash
        IF a = 16 AND b = f2 THEN GOSUB crash
        IF a = 16 AND b = f3 THEN GOSUB crash
        IF a = 16 AND b = f4 THEN GOSUB crash
        IF a = 16 AND b = f5 THEN GOSUB crash
        IF a = 16 AND b = f6 THEN GOSUB crash
        IF a = 16 AND b = f7 THEN GOSUB crash
        IF a = 16 AND b = f8 THEN GOSUB crash
        IF a = 15 AND b = g1 THEN GOSUB crash
        IF a = 15 AND b = g2 THEN GOSUB crash
        IF a = 15 AND b = g3 THEN GOSUB crash
        IF a = 15 AND b = g4 THEN GOSUB crash
        IF a = 15 AND b = g5 THEN GOSUB crash
        IF a = 15 AND b = g6 THEN GOSUB crash
        IF a = 15 AND b = g7 THEN GOSUB crash
        IF a = 15 AND b = g8 THEN GOSUB crash
        IF a = 14 AND b = h1 THEN GOSUB crash
        IF a = 14 AND b = h2 THEN GOSUB crash
        IF a = 14 AND b = h3 THEN GOSUB crash
        IF a = 14 AND b = h4 THEN GOSUB crash
        IF a = 14 AND b = h5 THEN GOSUB crash
        IF a = 12 AND b = i1 THEN GOSUB crash
        IF a = 12 AND b = i2 THEN GOSUB crash
        IF a = 12 AND b = i3 THEN GOSUB crash
        IF a = 12 AND b = i4 THEN GOSUB crash
        IF a = 12 AND b = i5 THEN GOSUB crash
        IF a = 12 AND b = i6 THEN GOSUB crash
        IF a = 12 AND b = i7 THEN GOSUB crash
        IF a = 12 AND b = i8 THEN GOSUB crash
        IF a = 11 AND b = j1 THEN GOSUB crash
        IF a = 11 AND b = j2 THEN GOSUB crash
        IF a = 11 AND b = j3 THEN GOSUB crash
        IF a = 11 AND b = j4 THEN GOSUB crash
        IF a = 11 AND b = j5 THEN GOSUB crash
        IF a = 11 AND b = j6 THEN GOSUB crash
        IF a = 11 AND b = j7 THEN GOSUB crash
        IF a = 11 AND b = j8 THEN GOSUB crash
        IF a = 11 AND b = j9 THEN GOSUB crash
        IF a = 10 AND b = k1 THEN GOSUB crash
        IF a = 10 AND b = k2 THEN GOSUB crash
        IF a = 10 AND b = k3 THEN GOSUB crash
        IF a = 10 AND b = k4 THEN GOSUB crash
        IF a = 10 AND b = k5 THEN GOSUB crash
        IF a = 10 AND b = k6 THEN GOSUB crash
        IF a = 10 AND b = k7 THEN GOSUB crash
        IF a = 10 AND b = k8 THEN GOSUB crash
        IF a = 9 AND b = l1 THEN GOSUB crash
        IF a = 9 AND b = l2 THEN GOSUB crash
        IF a = 9 AND b = l3 THEN GOSUB crash
        IF a = 9 AND b = l4 THEN GOSUB crash
        IF a = 9 AND b = l5 THEN GOSUB crash
        IF a = 9 AND b = l6 THEN GOSUB crash
        IF a = 9 AND b = l7 THEN GOSUB crash
        IF a = 9 AND b = l8 THEN GOSUB crash
        IF a = 9 AND b = l9 THEN GOSUB crash
        IF a = 8 AND b = m1 THEN GOSUB crash
        IF a = 8 AND b = m2 THEN GOSUB crash
        IF a = 8 AND b = m3 THEN GOSUB crash
        IF a = 8 AND b = m4 THEN GOSUB crash
        IF a = 8 AND b = m5 THEN GOSUB crash
        IF a = 8 AND b = m6 THEN GOSUB crash
        IF a = 8 AND b = m7 THEN GOSUB crash
        IF a = 8 AND b = m8 THEN GOSUB crash
        IF a = 7 AND b = n1 THEN GOSUB crash
        IF a = 7 AND b = n2 THEN GOSUB crash
        IF a = 7 AND b = n3 THEN GOSUB crash
        IF a = 7 AND b = n4 THEN GOSUB crash
        IF a = 7 AND b = n5 THEN GOSUB crash
        IF a = 7 AND b = n6 THEN GOSUB crash
        IF a = 7 AND b = n7 THEN GOSUB crash
        IF a = 7 AND b = n8 THEN GOSUB crash
        IF a = 7 AND b = n9 THEN GOSUB crash
        IF a = 7 AND b = n10 THEN GOSUB crash
        IF a = 7 AND b = n11 THEN GOSUB crash
        IF a = 7 AND b = n12 THEN GOSUB crash
        IF a = 7 AND b = n13 THEN GOSUB crash
        IF a = 7 AND b = n14 THEN GOSUB crash
        IF a = 6 AND b = o1 THEN GOSUB crash
        IF a = 6 AND b = o2 THEN GOSUB crash
        IF a = 6 AND b = o3 THEN GOSUB crash
        IF a = 6 AND b = o4 THEN GOSUB crash
        IF a = 6 AND b = o5 THEN GOSUB crash
        IF a = 6 AND b = o6 THEN GOSUB crash
        IF a = 6 AND b = o7 THEN GOSUB crash
        IF a = 6 AND b = o8 THEN GOSUB crash
        IF a = 6 AND b = o9 THEN GOSUB crash
        IF a = 6 AND b = o10 THEN GOSUB crash
        IF a = 6 AND b = o11 THEN GOSUB crash

RETURN

addnumber: 'DONE!!!
        a1 = a1 + 1: a2 = a2 + 1: a3 = a3 + 1: a4 = a4 + 1: a5 = a5 + 1: a6 = a6 + 1: a7 = a7 + 1: a8 = a8 + 1: a9 = a9 + 1: a10 = a10 + 1
        b1 = b1 - 1: b2 = b2 - 1: b3 = b3 - 1: b4 = b4 - 1: b5 = b5 - 1: b6 = b6 - 1
        c1 = c1 + 1: c2 = c2 + 1: c3 = c3 + 1
        d1 = d1 + 1: d2 = d2 + 1: d3 = d3 + 1: d4 = d4 + 1: d5 = d5 + 1: d6 = d6 + 1: d7 = d7 + 1: d8 = d8 + 1: d9 = d9 + 1: d10 = d10 + 1
        e1 = e1 - 1: e2 = e2 - 1: e3 = e3 - 1: e4 = e4 - 1: e5 = e5 - 1: e6 = e6 - 1: e7 = e7 - 1: e8 = e8 - 1: e9 = e9 - 1: e10 = e10 - 1
        f1 = f1 - 1: f2 = f2 - 1: f3 = f3 - 1: f4 = f4 - 1: f5 = f5 - 1: f6 = f6 - 1: f7 = f7 - 1: f8 = f8 - 1
        g1 = g1 + 1: g2 = g2 + 1: g3 = g3 + 1: g4 = g4 + 1: g5 = g5 + 1: g6 = g6 + 1: g7 = g7 + 1: g8 = g8 + 1
        h1 = h1 - 1: h2 = h2 - 1: h3 = h3 - 1: h4 = h4 - 1: h5 = h5 - 1
        i1 = i1 + 1: i2 = i2 + 1: i3 = i3 + 1: i4 = i4 + 1: i5 = i5 + 1: i6 = i6 + 1: i7 = i7 + 1: i8 = i8 + 1
        j1 = j1 + 1: j2 = j2 + 1: j3 = j3 + 1: j4 = j4 + 1: j5 = j5 + 1: j6 = j6 + 1: j7 = j7 + 1: j8 = j8 + 1: j9 = j9 + 1
        k1 = k1 - 1: k2 = k2 - 1: k3 = k3 - 1: k4 = k4 - 1: k5 = k5 - 1: k6 = k6 - 1: k7 = k7 - 1: k8 = k8 - 1
        l1 = l1 + 1: l2 = l2 + 1: l3 = l3 + 1: l4 = l4 + 1: l5 = l5 + 1: l6 = l6 + 1: l7 = l7 + 1: l8 = l8 + 1: l9 = l9 + 1
        m1 = m1 - 1: m2 = m2 - 1: m3 = m3 - 1: m4 = m4 - 1: m5 = m5 - 1: m6 = m6 - 1: m7 = m7 - 1: m8 = m8 - 1
        n1 = n1 - 1: n2 = n2 - 1: n3 = n3 - 1: n4 = n4 - 1: n5 = n5 - 1: n6 = n6 - 1: n7 = n7 - 1: n8 = n8 - 1: n9 = n9 - 1: n10 = n10 - 1: n11 = n11 - 1: n12 = n12 - 1: n13 = n13 - 1: n14 = n14 - 1
        o1 = o1 + 1: o2 = o2 + 1: o3 = o3 + 1: o4 = o4 + 1: o5 = o5 + 1: o6 = o6 + 1: o7 = o7 + 1: o8 = o8 + 1: o9 = o9 + 1: o10 = o10 + 1: o11 = o11 + 1
RETURN

eraser: 'DONE!!!
        FOR ii = 1 TO 27
        LOCATE ii, 1: COLOR 0: PRINT "Û"
        NEXT ii
        LOCATE 21, a1 - 1: COLOR 0: PRINT "Û"   'erases a1-a10
        LOCATE 21, a2 - 1: PRINT "Û"
        LOCATE 21, a3 - 1: PRINT "Û"
        LOCATE 21, a4 - 1: PRINT "Û"
        LOCATE 21, a5 - 1: PRINT "Û"
        LOCATE 21, a6 - 1: PRINT "Û"
        LOCATE 21, a7 - 1: PRINT "Û"
        LOCATE 21, a8 - 1: PRINT "Û"
        LOCATE 21, a9 - 1: PRINT "Û"
        LOCATE 21, a10 - 1: PRINT "Û"
        LOCATE 20, b1 + 1: COLOR 0: PRINT "Û"      'erases b1-b6
        LOCATE 20, b2 + 1: PRINT "Û"
        LOCATE 20, b3 + 1: PRINT "Û"
        LOCATE 20, b4 + 1: PRINT "Û"
        LOCATE 20, b5 + 1: PRINT "Û"
        LOCATE 20, b6 + 1: PRINT "Û"
        LOCATE 19, c1 - 1: COLOR 0: PRINT "Û"    'erases c1-c3
        LOCATE 19, c2 - 1: PRINT "Û"
        LOCATE 19, c3 - 1: PRINT "Û"
        LOCATE 18, d1 - 1: COLOR 0: PRINT "Û"     'erases d1-d10
        LOCATE 18, d2 - 1: PRINT "Û"
        LOCATE 18, d3 - 1: PRINT "Û"
        LOCATE 18, d4 - 1: PRINT "Û"
        LOCATE 18, d5 - 1: PRINT "Û"
        LOCATE 18, d6 - 1: PRINT "Û"
        LOCATE 18, d7 - 1: PRINT "Û"
        LOCATE 18, d8 - 1: PRINT "Û"
        LOCATE 18, d9 - 1: PRINT "Û"
        LOCATE 18, d10 - 1: PRINT "Û"
        LOCATE 17, e1 + 1: COLOR 0: PRINT "Û"    'erases e1-e10
        LOCATE 17, e2 + 1: PRINT "Û"
        LOCATE 17, e3 + 1: PRINT "Û"
        LOCATE 17, e4 + 1: PRINT "Û"
        LOCATE 17, e5 + 1: PRINT "Û"
        LOCATE 17, e6 + 1: PRINT "Û"
        LOCATE 17, e7 + 1: PRINT "Û"
        LOCATE 17, e8 + 1: PRINT "Û"
        LOCATE 17, e9 + 1: PRINT "Û"
        LOCATE 17, e10 + 1: PRINT "Û"
        LOCATE 16, f1 + 1: COLOR 0: PRINT "Û"     'erases f1-f8
        LOCATE 16, f2 + 1: PRINT "Û"
        LOCATE 16, f3 + 1: PRINT "Û"
        LOCATE 16, f4 + 1: PRINT "Û"
        LOCATE 16, f5 + 1: PRINT "Û"
        LOCATE 16, f6 + 1: PRINT "Û"
        LOCATE 16, f7 + 1: PRINT "Û"
        LOCATE 16, f8 + 1: PRINT "Û"
        LOCATE 15, g1 - 1: COLOR 0: PRINT "Û"     'erases g1-g8
        LOCATE 15, g2 - 1: PRINT "Û"
        LOCATE 15, g3 - 1: PRINT "Û"
        LOCATE 15, g4 - 1: PRINT "Û"
        LOCATE 15, g5 - 1: PRINT "Û"
        LOCATE 15, g6 - 1: PRINT "Û"
        LOCATE 15, g7 - 1: PRINT "Û"
        LOCATE 15, g8 - 1: PRINT "Û"
        LOCATE 14, h1 + 1: COLOR 0: PRINT "Û"     'erases h1-h5
        LOCATE 14, h2 + 1: PRINT "Û"
        LOCATE 14, h3 + 1: PRINT "Û"
        LOCATE 14, h4 + 1: PRINT "Û"
        LOCATE 14, h5 + 1: PRINT "Û"
        LOCATE 12, i1 - 1: COLOR 0: PRINT "Û"     'erases i1-i8
        LOCATE 12, i2 - 1: PRINT "Û"
        LOCATE 12, i3 - 1: PRINT "Û"
        LOCATE 12, i4 - 1: PRINT "Û"
        LOCATE 12, i5 - 1: PRINT "Û"
        LOCATE 12, i6 - 1: PRINT "Û"
        LOCATE 12, i7 - 1: PRINT "Û"
        LOCATE 12, i8 - 1: PRINT "Û"
        LOCATE 11, j1 - 1: COLOR 0: PRINT "Û"     'erases j1-j9
        LOCATE 11, j2 - 1: PRINT "Û"
        LOCATE 11, j3 - 1: PRINT "Û"
        LOCATE 11, j4 - 1: PRINT "Û"
        LOCATE 11, j5 - 1: PRINT "Û"
        LOCATE 11, j6 - 1: PRINT "Û"
        LOCATE 11, j7 - 1: PRINT "Û"
        LOCATE 11, j8 - 1: PRINT "Û"
        LOCATE 11, j9 - 1: PRINT "Û"
        LOCATE 10, k1 + 1: COLOR 0: PRINT "Û"     'erases k1-k8
        LOCATE 10, k2 + 1: PRINT "Û"
        LOCATE 10, k3 + 1: PRINT "Û"
        LOCATE 10, k4 + 1: PRINT "Û"
        LOCATE 10, k5 + 1: PRINT "Û"
        LOCATE 10, k6 + 1: PRINT "Û"
        LOCATE 10, k7 + 1: PRINT "Û"
        LOCATE 10, k8 + 1: PRINT "Û"
        LOCATE 9, l1 - 1: COLOR 0: PRINT "Û"     'erases l1-l9
        LOCATE 9, l2 - 1: PRINT "Û"
        LOCATE 9, l3 - 1: PRINT "Û"
        LOCATE 9, l4 - 1: PRINT "Û"
        LOCATE 9, l5 - 1: PRINT "Û"
        LOCATE 9, l6 - 1: PRINT "Û"
        LOCATE 9, l7 - 1: PRINT "Û"
        LOCATE 9, l8 - 1: PRINT "Û"
        LOCATE 9, l9 - 1: PRINT "Û"
        LOCATE 8, m1 + 1: COLOR 0: PRINT "Û"     'erases m1-m8
        LOCATE 8, m2 + 1: PRINT "Û"
        LOCATE 8, m3 + 1: PRINT "Û"
        LOCATE 8, m4 + 1: PRINT "Û"
        LOCATE 8, m5 + 1: PRINT "Û"
        LOCATE 8, m6 + 1: PRINT "Û"
        LOCATE 8, m7 + 1: PRINT "Û"
        LOCATE 8, m8 + 1: PRINT "Û"
        LOCATE 7, n1 + 1: COLOR 0: PRINT "Û"     'erases n1-n14
        LOCATE 7, n2 + 1: PRINT "Û"
        LOCATE 7, n3 + 1: PRINT "Û"
        LOCATE 7, n4 + 1: PRINT "Û"
        LOCATE 7, n5 + 1: PRINT "Û"
        LOCATE 7, n6 + 1: PRINT "Û"
        LOCATE 7, n7 + 1: PRINT "Û"
        LOCATE 7, n8 + 1: PRINT "Û"
        LOCATE 7, n9 + 1: PRINT "Û"
        LOCATE 7, n10 + 1: PRINT "Û"
        LOCATE 7, n11 + 1: PRINT "Û"
        LOCATE 7, n12 + 1: PRINT "Û"
        LOCATE 7, n13 + 1: PRINT "Û"
        LOCATE 7, n14 + 1: PRINT "Û"
        LOCATE 6, o1 - 1: COLOR 0: PRINT "Û"     'erases o1-o11
        LOCATE 6, o2 - 1: PRINT "Û"
        LOCATE 6, o3 - 1: PRINT "Û"
        LOCATE 6, o4 - 1: PRINT "Û"
        LOCATE 6, o5 - 1: PRINT "Û"
        LOCATE 6, o6 - 1: PRINT "Û"
        LOCATE 6, o7 - 1: PRINT "Û"
        LOCATE 6, o8 - 1: PRINT "Û"
        LOCATE 6, o9 - 1: PRINT "Û"
        LOCATE 6, o10 - 1: PRINT "Û"
        LOCATE 6, o11 - 1: PRINT "Û"
RETURN

dificulty:
1000 CLS
        PRINT "Please wait while program is retiming..."
        StartTime# = TIMER
        FOR r = 1 TO speed: NEXT r
        StopTime# = TIMER
        xx = 22500 / (StopTime# - StartTime#)
        CLS
        LOCATE 11, 30: PRINT "1.Impossible"
        LOCATE 12, 30: PRINT "2.Hard"
        LOCATE 13, 30: PRINT "3.Normal (Reccomended)"
        LOCATE 14, 30: PRINT "4.Easy"
        LOCATE 9, 25: INPUT "Choose your preference"; g
        IF g <= 0 OR g >= 5 THEN GOTO 1000
        IF g = 1 THEN xx = 2 / xx: GOTO 7
        IF g = 2 THEN xx = 1.5 / xx: GOTO 7
        IF g = 3 THEN GOTO 7
        IF g = 4 THEN xx = xx * 1.25: GOTO 7
RETURN