'===========================================================================
' Subject: ZOXAN II                          Date: 03-04-93 (07:48)       
' Author:  Tapani Raiko                      Code: QB, QBasic, PDS        
' Origin:  www.dc.ee/Files                 Packet: GAMES.ABC
'===========================================================================
cheat = 0
RANDOMIZE TIMER
SCREEN 7
CLS
COLOR 10
LOCATE 1, 21
PRINT "ZOXAN II"
COLOR 8
LOCATE 3, 18
PRINT "THE MAIN FLEET"
PRINT
PRINT "                MADE BY TAPANI RAIKO"
DIM v(5, 8)
DIM mo(9, 5)
DIM vp(15, 4)
FOR w = 1 TO 57
 READ r$
 FOR q = 1 TO 38
  IF MID$(r$, q, 1) = "." THEN 665
  e = ASC(MID$(r$, q, 1)) - 65
  LINE (q, w)-(q, w), e
  LINE (2 * q + 40, 2 * w)-(2 * q + 41, 2 * w + 1), e, BF
665 NEXT
NEXT
'                      \/
DATA ........PPP........E.......CCC.......E
DATA .......PPPPP.......E......CCKCC......E
DATA .......PPPPP.......EE....CCKKKCC....EE
DATA ......PPHHHPP......EEE...CKKOKKC...EEE
DATA ..P...PHHHHHP...P..EEEE..KKOOOKK..EEEE
DATA .PP...PHHHHHP...PP..EEEEE.KOPOK.EEEEE.
DATA .PP...PHPPPHP...PP..EEEEEEEEEEEEEEEEE.
DATA PPP...PPPPPPP...PPP..EEEEEMMMMMEEEEE..
DATA PPPHHHPPPPPPPHHHPPP...EEEEMEEEMEEEE...
DATA PPPHHHPPPPPPPHHHPPP....EEMMMEMMMEE....
DATA PPP...PPPPPPP...PPP.....EEEEEEEEE.....
DATA .PP...PPPPPPP...PP........EEEEE.......
DATA .PP....HH.HH....PP.........EEE........
DATA ..P....OO.OO....P..........EEE........
DATA ......MMMMMMM..............EEE........
DATA .....IEEEEEEEI............EEEEE.......
DATA .....IIGGIGGII............EPPPE.......
DATA .....IIIIIIIII............EEEEE.......
DATA ......IIIIIII..............EEE........
'                      \/
DATA ..BB...........BB...........F.........
DATA .BBBB.........BBBB.........FMF........
DATA BJJJJB.......BJJJJB.......FMNMF.......
DATA JJDDJJ.......JJDDJJ.......MNNNM.......
DATA .DLLD.........DLLD.......BBBBBBB......
DATA ..LL....OOO....LL......BBBBBBBBBBB....
DATA ..HH...OOOOO...HH.....BBBBJJJJJBBBB...
DATA ..HH..OOOOOOO..HH....BBBBBJBBBJBBBBB..
DATA ..HH.COOHHHOOC.HH....BJBBJJJBJJJBBJB..
DATA ..HHCCOOHHHOOCCHH...BBJBBBBBBBBBBBJBB.
DATA ..HCCC.OOHOO.CCCH...BBJBBBBBJBBBBBJBB.
DATA C.CCC...OOO...CCC.C.BBJBBBBJJJBBBBJBB.
DATA CCCC.....I.....CCCCBBBJBBBBJPJBBBBJBBB
DATA .CCC.....I.....CCC.BBBJBB..JPJ..BBJBBB
DATA ..CCC....I....CCC..BBBBB...JJJ...BBBBB
DATA ...CCC.......CCC...BBBB.....J.....BBBB
DATA ....CCC.....CCC....BBB.............BBB
DATA .....CCC...CCC.....BB...............BB
DATA ......CC...CC......B.................B
'                      \/
DATA ........III............I..G...II....IG
DATA ...CC..IEEEI..CC......IIIGG.GIIIIGIIGI
DATA ..CKKC.EMMME.CKKC....IIGGGMGGIIIIGIGG.
DATA ..CKKKC.MPM.CKKKC....GGMGGMMMGGGGGGG..
DATA .CKKKKCCHHHCCKKKKC..GGGMMMMMMMMMGGMGG.
DATA .CKKKC.CKKKC.CKKKC..GGMMMMOMMMOMMMGGG.
DATA CKKKKC.CKKKC.CKKKKCGGGMMOMOOMMMMOMGG..
DATA CKKKKC.CKKKC.CKKKKCIIGGMMOOOOOMOOMGG..
DATA CKKKKC.CKKKC.CKKKKCGIGGMMMOPOPOOMGGGG.
DATA CKKKC..CKKKC..CKKKCGGGGMMMOOPOOMMGGII.
DATA CKKKC.CKKKKKC.CKKKC.GGGMMMOPOPOMMGGIII
DATA CKKKC.CKKKKKC.CKKKC.GGMMMOMOOOOMGGGG..
DATA CKKKC.COOOOOC.CKKKC.IGGGMMOMMOMMMMGGG.
DATA CKKKCCKOKKKOKCCKKKC.IGGGGGMMMOMOMMMGG.
DATA CKKC.COOOKOOOC.CKKC..IGGMGMMMMMMGGG.II
DATA .CKC.CKKKKKKKC.CKC.....GMGGGGMGGGGI..I
DATA .CKC..CKIIIKC..CKC.....GGGGGGGGGGII...
DATA ..C....CKKKC....C......IIIGG..GIII....
DATA ........CCC.............II....G..I....

DIM oma(1 TO 361)
DIM puna(1 TO 361)
DIM viher(1 TO 361)
DIM sini(1 TO 361)
DIM dubla(1 TO 361)
DIM rajah(1 TO 361)
DIM isopuna(1 TO 1444)
DIM isoviher(1 TO 1444)
DIM isosini(1 TO 1444)
DIM isodubla(1 TO 1444)
DIM isorajah(1 TO 1444)
GET (1, 1)-(19, 19), oma
GET (20, 1)-(38, 19), puna
GET (1, 20)-(19, 38), viher
GET (20, 20)-(38, 38), sini
GET (1, 39)-(19, 57), dubla
GET (20, 39)-(38, 57), rajah
GET (80, 2)-(117, 39), isopuna
GET (42, 40)-(79, 77), isoviher
GET (80, 40)-(117, 77), isosini
GET (42, 78)-(79, 115), isodubla
GET (80, 78)-(117, 115), isorajah
DIM tu(4, 100)
FOR w = 1 TO 4
 READ r$
 FOR q = 1 TO 100
  IF MID$(r$, q, 1) = "a" THEN tu(w, q) = 1
  IF MID$(r$, q, 1) = "b" THEN tu(w, q) = 2
  IF MID$(r$, q, 1) = "c" THEN tu(w, q) = 3
  IF MID$(r$, q, 1) = "d" THEN tu(w, q) = 4
  IF MID$(r$, q, 1) = "e" THEN tu(w, q) = 5: q = 100
 NEXT
NEXT
DATA aa.a.ab..bb.a..aaa.b..abb..aabc...aa.bb..aaa...abb.ad.b.aa..bbb.e
DATA bbb..abcd.b..aabb..b.b.b.b.aaaa..bbc.c.a..ccd..bbb..baacc.e
DATA cccc..d.aaaaa..bbb..ccc..ddd.....abcd..cca..ccb...ccc..ddd.e
DATA ddddd..abcd..ada.adb.adc.add...aaaaa...bbbbb...ccccc...ddddd..abcce
FOR w = 1 TO 9
 IF w = 5 THEN w = 6
 READ mo(w, 1)
 READ mo(w, 2)
 READ mo(w, 3)
 READ mo(w, 4)
 READ mo(w, 5)
NEXT
DATA 2,1,1.5,50,0, 4,2.5,2.5,30,0, 10,1.5,2,25,.25, 7,2.5,2.5,20,.5
DATA 20,1,2,10,1, 40,2,2.5,8,1, 60,1,3,7,1.5, 50,1,3.5,5,3.5

1 kx = 200
ky = 150
ax = (320 - kx) / 2
lx = ax + kx
ay = (200 - ky) / 2
ly = ay + ky
x = 154
xx = 0
elo = 3
ase = 1
lvl = 1
a = 0
k = 0
sc = 0
mon = 0
pau = 0
nop = 2
CLS
LOCATE 1, 16
COLOR 8
PRINT "ZOXAN II"
LOCATE 1, 28
COLOR 7
PRINT sc
PUT (0, 0), oma
PUT (25, 0), oma
PUT (50, 0), oma
PUT (x, ly - 19), oma

2 a = a - 1
IF a < 1 THEN 3
IF mon = 0 AND a < 100 THEN sc = sc + a: LOCATE 1, 28: COLOR 7: PRINT sc
IF mon = 0 THEN a = 0
' oma alus
103 y$ = INKEY$
IF y$ = "c" THEN GOSUB 12
IF y$ = "4" THEN xx = -2 * nop
IF y$ = "5" THEN xx = 0
IF y$ = "6" THEN xx = 2 * nop
IF y$ = " " THEN 5
y$ = INKEY$
y$ = INKEY$
y$ = INKEY$
y$ = INKEY$
105 IF xx = 0 THEN 664
IF x + xx < ax THEN xx = 1 * nop
IF x + xx > lx - 19 THEN xx = -1 * nop
PUT (x, ly - 19), oma, XOR
x = x + xx
PUT (x, ly - 19), oma
' omat paukut
664 FOR w = 1 TO 9
 IF o(w, 1) < 1 THEN 4
 IF o(w, 2) < ay + 8 THEN LINE (o(w, 1), o(w, 2))-STEP(0, 0), 0: pau = pau - 1: o(w, 1) = 0: GOTO 4
 qq = 0
 FOR q = 1 TO 5
  IF v(q, 5) > 0 AND v(q, 1) + 19 > o(w, 1) AND v(q, 1) < o(w, 1) AND v(q, 2) + 19 > o(w, 2) - 8 * nop AND v(q, 2) < o(w, 2) - 8 * nop THEN qq = q
  IF v(q, 5) > 5 AND v(q, 1) + 38 > o(w, 1) AND v(q, 1) < o(w, 1) AND v(q, 2) + 38 > o(w, 2) - 8 * nop AND v(q, 2) < o(w, 2) - 8 * nop THEN qq = q
 NEXT
 IF qq = 0 THEN 106
 v(qq, 4) = v(qq, 4) - .5
 pau = pau - 1
 LINE (o(w, 1), o(w, 2))-STEP(0, 0), 0
 o(w, 1) = 0
 v(qq, 6) = v(qq, 6) - 1
 IF v(qq, 6) > 0 THEN 4
 p = v(qq, 5)
 pp = v(qq, 1)
 ppp = v(qq, 2)
IF p = 1 THEN PUT (pp, ppp), puna, XOR
IF p = 2 THEN PUT (pp, ppp), viher, XOR
IF p = 3 THEN PUT (pp, ppp), sini, XOR
IF p = 4 THEN PUT (pp, ppp), dubla, XOR
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
IF p = 6 THEN PUT (pp, ppp), isopuna, XOR
IF p = 7 THEN PUT (pp, ppp), isoviher, XOR
IF p = 8 THEN PUT (pp, ppp), isosini, XOR
IF p = 9 THEN PUT (pp, ppp), isodubla, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
 IF v(qq, 5) < 5 THEN sc = sc + v(qq, 5) * 50
 COLOR 7
 LOCATE 1, 28
 PRINT sc
 IF p > 5 AND p < 10 THEN COLOR 7, 15: COLOR 7, 14: COLOR 7, 12: COLOR 7, 4: COLOR 7, 8: COLOR 7, 0
 IF v(qq, 5) < 6 THEN v(qq, 5) = 5 ELSE v(qq, 5) = 10
 p = v(qq, 5)
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
 v(qq, 7) = v(qq, 3)
 v(qq, 8) = v(qq, 4)
 GOTO 4
106 LINE (o(w, 1), o(w, 2))-STEP(0, 0), 0
 o(w, 2) = o(w, 2) - nop * 8
 LINE (o(w, 1), o(w, 2))-STEP(0, 0), 15
4 NEXT
'vihulaispaukut
FOR w = 1 TO 15
 IF vp(w, 1) = 0 THEN 6
 IF POINT(vp(w, 1), vp(w, 2)) = 13 THEN LINE (vp(w, 1), vp(w, 2))-STEP(0, 0), 0
 vp(w, 1) = vp(w, 1) + vp(w, 3)
 vp(w, 2) = vp(w, 2) + vp(w, 4)
 IF POINT(vp(w, 1), vp(w, 2)) = 0 THEN LINE (vp(w, 1), vp(w, 2))-STEP(0, 0), 13
 IF x + 17 > vp(w, 1) AND x + 2 < vp(w, 1) AND ly - 2 > vp(w, 2) AND ly - 17 < vp(w, 2) THEN 8
 IF (vp(w, 1) < ax OR vp(w, 1) > lx OR vp(w, 2) > ly) AND POINT(vp(w, 1), vp(w, 2)) = 13 THEN LINE (vp(w, 1), vp(w, 2))-STEP(0, 0), 0
 IF vp(w, 1) < ax OR vp(w, 1) > lx OR vp(w, 2) > ly THEN vp(w, 1) = 0
6 NEXT
'vihulaiset
FOR w = 1 TO 5
 IF v(w, 5) = 0 THEN 66
 IF v(w, 5) > 5 THEN 9
 IF v(w, 6) < -8 THEN v(w, 5) = 0: p = 5: pp = v(w, 1): ppp = v(w, 2): GOSUB 7: mon = mon - 1: GOTO 66
 IF v(w, 1) + v(w, 3) < ax THEN v(w, 3) = ABS(v(w, 3))
 IF v(w, 1) + v(w, 3) + 19 > lx THEN v(w, 3) = -ABS(v(w, 3))
 IF v(w, 2) + v(w, 4) < ay THEN v(w, 4) = ABS(v(w, 4))
 IF v(w, 2) + v(w, 4) + 38 > ly THEN v(w, 4) = -ABS(v(w, 4))
 p = v(w, 5)
 pp = v(w, 1)
 ppp = v(w, 2)
IF p = 1 THEN PUT (pp, ppp), puna, XOR
IF p = 2 THEN PUT (pp, ppp), viher, XOR
IF p = 3 THEN PUT (pp, ppp), sini, XOR
IF p = 4 THEN PUT (pp, ppp), dubla, XOR
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
 v(w, 1) = v(w, 1) + v(w, 3)
 v(w, 2) = v(w, 2) + v(w, 4)
 pp = v(w, 1)
 ppp = v(w, 2)
IF p = 1 THEN PUT (pp, ppp), puna, XOR
IF p = 2 THEN PUT (pp, ppp), viher, XOR
IF p = 3 THEN PUT (pp, ppp), sini, XOR
IF p = 4 THEN PUT (pp, ppp), dubla, XOR
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
 IF v(w, 6) < 1 THEN v(w, 6) = v(w, 6) - 1: GOTO 66
 IF v(w, 3) > v(w, 7) THEN v(w, 3) = v(w, 3) - .1 * nop ELSE v(w, 3) = v(w, 3) + .1 * nop
 IF v(w, 4) > v(w, 8) THEN v(w, 4) = v(w, 4) - .1 * nop ELSE v(w, 4) = v(w, 4) + .1 * nop
 IF RND(1) < .08 THEN v(w, 7) = RND(1) * nop * 2 * mo(v(w, 5), 2) - mo(v(w, 5), 2) * nop
 IF RND(1) < .08 THEN v(w, 8) = RND(1) * nop * 2 * mo(v(w, 5), 2) - mo(v(w, 5), 2) * nop
 IF RND(1) > 1 / mo(v(w, 5), 4) THEN 66
 qq = 0
 FOR q = 1 TO 15
  IF vp(q, 1) = 0 THEN qq = q
 NEXT
 IF qq = 0 THEN 66
 vp(qq, 1) = v(w, 1) + 9
 vp(qq, 2) = v(w, 2) + 20
 IF POINT(vp(qq, 1), vp(qq, 2)) = 0 THEN LINE (vp(qq, 1), vp(qq, 2))-STEP(0, 0), 13
 vp(qq, 3) = 0
 vp(qq, 4) = mo(v(w, 5), 3) * nop
 IF mo(v(w, 5), 5) = 0 THEN 66
 IF x < v(w, 1) THEN vp(qq, 3) = -nop * mo(v(w, 5), 5) ELSE vp(qq, 3) = nop * mo(v(w, 5), 5)
66 NEXT
GOTO 2

9 'ison vuoro
 IF v(w, 6) < -15 THEN 10
 IF v(w, 1) + v(w, 3) < ax THEN v(w, 3) = ABS(v(w, 3)): v(w, 7) = ABS(v(w, 7))
 IF v(w, 1) + v(w, 3) + 38 > lx THEN v(w, 3) = -ABS(v(w, 3)): v(w, 7) = -ABS(v(w, 7))
 IF v(w, 2) + v(w, 4) < ay THEN v(w, 4) = ABS(v(w, 4)): v(w, 8) = ABS(v(w, 8))
 IF v(w, 2) + v(w, 4) + 57 > ly THEN v(w, 4) = -ABS(v(w, 4)): v(w, 8) = -ABS(v(w, 8))
 p = v(w, 5)
 pp = v(w, 1)
 ppp = v(w, 2)
IF p = 6 THEN PUT (pp, ppp), isopuna, XOR
IF p = 7 THEN PUT (pp, ppp), isoviher, XOR
IF p = 8 THEN PUT (pp, ppp), isosini, XOR
IF p = 9 THEN PUT (pp, ppp), isodubla, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
 v(w, 1) = v(w, 1) + v(w, 3)
 v(w, 2) = v(w, 2) + v(w, 4)
 pp = v(w, 1)
 ppp = v(w, 2)
IF p = 6 THEN PUT (pp, ppp), isopuna, XOR
IF p = 7 THEN PUT (pp, ppp), isoviher, XOR
IF p = 8 THEN PUT (pp, ppp), isosini, XOR
IF p = 9 THEN PUT (pp, ppp), isodubla, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
 IF v(w, 6) < 1 THEN v(w, 6) = v(w, 6) - 1: GOTO 66
 IF RND(1) * 100 < 5 - mon THEN GOSUB 13
 IF RND(1) < .08 THEN v(w, 3) = RND(1) * nop * 2 * mo(v(w, 5), 2) - mo(v(w, 5), 2) * nop
 IF RND(1) < .08 THEN v(w, 4) = RND(1) * nop * 2 * mo(v(w, 5), 2) - mo(v(w, 5), 2) * nop
 IF RND(1) > 1 / mo(v(w, 5), 4) THEN 66
 qq = 0
 FOR q = 1 TO 15
  IF vp(q, 1) = 0 THEN qq = q
 NEXT
 IF qq = 0 THEN 66
 vp(qq, 1) = v(w, 1) + 19
 vp(qq, 2) = v(w, 2) + 39
 IF POINT(vp(qq, 1), vp(qq, 2)) = 0 THEN LINE (vp(qq, 1), vp(qq, 2))-STEP(0, 0), 13
 vp(qq, 4) = mo(v(w, 5), 3) * nop
 vp(qq, 3) = vp(qq, 4) * (v(w, 1) - x + 9) / (v(w, 2) + 47 - ly)
 vp(qq, 3) = vp(qq, 3) + RND(1) * 4 - 2
 IF vp(qq, 3) > mo(v(w, 5), 5) * nop THEN vp(qq, 3) = mo(v(w, 5), 5) * nop
 IF vp(qq, 3) < -mo(v(w, 5), 5) * nop THEN vp(qq, 3) = -mo(v(w, 5), 5) * nop
GOTO 66

13 FOR ww = 1 TO 5
 IF v(ww, 5) = 0 THEN m = ww: ww = 5
NEXT
p = lvl
mon = mon + 1
v(m, 1) = v(w, 1) + 9
pp = v(m, 1)
v(m, 2) = v(w, 2) - 4
ppp = v(m, 2)
v(m, 3) = 0
v(m, 4) = 0
v(m, 5) = p
v(m, 6) = mo(p, 1)
v(m, 7) = RND(1) * mo(p, 2) * 2 * nop - mo(p, 2) * nop
v(m, 8) = -RND(1) * mo(p, 2) * nop
IF lvl = 1 THEN PUT (pp, ppp), puna, XOR
IF lvl = 2 THEN PUT (pp, ppp), viher, XOR
IF lvl = 3 THEN PUT (pp, ppp), sini, XOR
IF lvl = 4 THEN PUT (pp, ppp), dubla, XOR
RETURN

10 'iso katoaa
 sc = sc + 1000 * lvl
 IF lvl = 4 THEN sc = sc + 1000 * (ase + elo - 2)
 v(w, 5) = 0
 mon = mon - 1
 lvl = lvl + 1
 k = 0
 ase = ase + 1
 IF ase < 4 THEN 67
 ase = 3
 IF elo = 3 THEN elo = 2: sc = sc + 1000
 elo = elo + 1
67 CLS
 LOCATE 1, 16
 COLOR 8
 PRINT "ZOXAN II"
 LOCATE 1, 28
 COLOR 7
 PRINT sc
 IF elo = 3 THEN PUT (0, 0), oma ELSE PUT (0, 0), rajah
 IF elo > 1 THEN PUT (25, 0), oma ELSE PUT (25, 0), rajah
 PUT (50, 0), oma
 PUT (x, ly - 19), oma
 FOR ww = 1 TO 5
  IF v(ww, 5) > 0 THEN p = v(ww, 5): pp = v(ww, 1): ppp = v(ww, 2): GOSUB 7
 NEXT
GOTO 66

3 IF lvl = 5 THEN 11
IF mon = 5 THEN 103
k = k + 1
IF tu(lvl, k) = 0 THEN a = 70: GOTO 103
a = 5
p = tu(lvl, k)
IF p = 5 THEN p = lvl + 5: a = 9999999
FOR w = 1 TO 5
 IF v(w, 5) = 0 THEN m = w: w = 5
NEXT
mon = mon + 1
IF p < 5 THEN v(m, 1) = RND(1) * (kx - 19) + ax ELSE v(m, 1) = RND(1) * (kx - 38) + ax
pp = v(m, 1)
v(m, 2) = ay
ppp = ay
v(m, 3) = RND(1) * mo(p, 2) * 2 * nop - mo(p, 2) * nop
v(m, 4) = RND(1) * mo(p, 2) * nop
v(m, 5) = p
v(m, 6) = mo(p, 1)
v(m, 7) = RND(1) * mo(p, 2) * 2 * nop - mo(p, 2) * nop
v(m, 8) = RND(1) * mo(p, 2) * nop
IF p = 1 THEN PUT (pp, ppp), puna, XOR
IF p = 2 THEN PUT (pp, ppp), viher, XOR
IF p = 3 THEN PUT (pp, ppp), sini, XOR
IF p = 4 THEN PUT (pp, ppp), dubla, XOR
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
IF p = 6 THEN PUT (pp, ppp), isopuna, XOR
IF p = 7 THEN PUT (pp, ppp), isoviher, XOR
IF p = 8 THEN PUT (pp, ppp), isosini, XOR
IF p = 9 THEN PUT (pp, ppp), isodubla, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
GOTO 103

5 IF pau > 2 * ase THEN 105
pau = pau + ase
p1 = 0
p2 = 0
p3 = 0
IF ase = 2 THEN ppp = 2 ELSE ppp = 1
FOR w = 1 TO 9
 IF o(w, 1) = 0 AND ppp = 1 AND ase <> 2 THEN p1 = w: ppp = 2: w = w + 1
 IF o(w, 1) = 0 AND ppp = 2 AND ase > 1 THEN p2 = w: ppp = 3: w = w + 1
 IF o(w, 1) = 0 AND ppp = 3 AND ase > 1 THEN p3 = w: ppp = 0
NEXT
o(p1, 1) = x + 9
o(p1, 2) = ly - 23
o(p2, 1) = x + 2
o(p2, 2) = ly - 18
o(p3, 1) = x + 17
o(p3, 2) = ly - 18
IF p1 > 0 THEN LINE (o(p1, 1), o(p1, 2))-STEP(0, 0), 15
IF p2 > 0 THEN LINE (o(p2, 1), o(p2, 2))-STEP(0, 0), 15
IF p3 > 0 THEN LINE (o(p3, 1), o(p3, 2))-STEP(0, 0), 15
GOTO 105

7 IF p = 1 THEN PUT (pp, ppp), puna, XOR
IF p = 2 THEN PUT (pp, ppp), viher, XOR
IF p = 3 THEN PUT (pp, ppp), sini, XOR
IF p = 4 THEN PUT (pp, ppp), dubla, XOR
IF p = 5 THEN PUT (pp, ppp), rajah, XOR
IF p = 6 THEN PUT (pp, ppp), isopuna, XOR
IF p = 7 THEN PUT (pp, ppp), isoviher, XOR
IF p = 8 THEN PUT (pp, ppp), isosini, XOR
IF p = 9 THEN PUT (pp, ppp), isodubla, XOR
IF p = 10 THEN PUT (pp, ppp), isorajah, XOR
RETURN

8 'itteen osu
IF cheat = 1 THEN 6
IF POINT(vp(w, 1), vp(w, 2)) = 13 THEN LINE (vp(w, 1), vp(w, 2))-STEP(0, 0), 0
vp(w, 1) = 0
IF elo = 1 THEN 88
PUT ((3 - elo) * 25, 0), oma, XOR
PUT ((3 - elo) * 25, 0), rajah
elo = elo - 1
GOTO 6
88 IF ase > 1 THEN ase = ase - 1: GOTO 6
PUT (50, 0), oma, XOR
PUT (50, 0), rajah
PUT (x, ly - 19), oma, XOR
PUT (x, ly - 19), rajah
LOCATE 12, 15
COLOR 7
PRINT "GAME OVER"
FOR w = 1 TO 15
 vp(w, 1) = 0
NEXT
FOR w = 1 TO 9
 o(w, 1) = 0
NEXT
FOR w = 1 TO 5
 v(w, 5) = 0
NEXT
FOR w = 1 TO 1000
NEXT
FOR w = 1 TO 15
 y$ = INKEY$
NEXT
DO
LOOP UNTIL INKEY$ > ""
GOTO 1

12 CLS
LOCATE 1, 16
COLOR 8
PRINT "ZOXAN II"
LOCATE 1, 28
COLOR 7
PRINT sc
IF elo = 3 THEN PUT (0, 0), oma ELSE PUT (0, 0), rajah
IF elo > 1 THEN PUT (25, 0), oma ELSE PUT (25, 0), rajah
PUT (50, 0), oma
PUT (x, ly - 19), oma
FOR w = 1 TO 5
 IF v(w, 5) > 0 THEN p = v(w, 5): pp = v(w, 1): ppp = v(w, 2): GOSUB 7
NEXT
RETURN

11 SCREEN 9
CLS
COLOR 13, 0
RESTORE 6
PLAY "l64"
PLAY "t120"
FOR w = 1 TO 12
 READ t$
 FOR q = 1 TO LEN(t$)
  PRINT MID$(t$, q, 1);
  IF MID$(t$, q, 1) <> " " THEN PLAY "n10"
  FOR e = 1 TO 200
  NEXT
 NEXT
 FOR e = 1 TO 1000
 NEXT
 PRINT
NEXT
COLOR 0, 0

DATA "'ALLRITE! WE GRILLED THEM... HMM, I MEAN:"
DATA "ZOXAN MAINFLEET COMPLETELY ANNIHILATED, SIR.'"
DATA
DATA "'IS THERE ANY OTHER HELPCALLS ON RADIO?'"
DATA
DATA "'LET'S CHECK..."
DATA "NOPE. WE CAN GO BACK TO TERRA FOR A VACATION.'"
DATA
DATA "'A VACATION? IT'S WAR!"
DATA "WE WILL GO TO GENERAL HAMILTON TO GET NEW ORDERS AND INSTRUCTIONS..."
DATA
DATA "...AND OF COURSE A NEW SHIP!'"