0 SCREEN 13
FOR a = 61 TO 120
PALETTE a, (a - 60) * 256
NEXT a
FOR a = 121 TO 180
PALETTE a, (a - 120) * 256
NEXT a
FOR a = 180 TO 240
PALETTE a, (a - 180) * 256
NEXT a
pro = 12
FOR a = 1 TO 60
PALETTE a, 0
NEXT a
DRAW "c45 bm100,160 m+4,-10 r20 d3 l16 m-3,+8 l5 bm+8,-5 r3 e3 bu2"
PAINT STEP(0, 0), 45
DRAW "c20 bm-7,+3 l3 m-3,+6 r3 m+2,-6 bg1 bd2 bl1"
PAINT STEP(0, 0), 20
DRAW "bl50 c30 l3 g1 l3 g1 nl3 r8 u1 nl3 d2 c50 l7 r4 d1 r3"
DRAW "br100 c20 nr20 c30 d1 nr20 c40 d1 nr20 c50 d1 nr20 c60 d1 nr25 c50 d1 nr20 c40 d1 nr20 c30 d1 nr20 c20 d1 nr20"
DRAW "br50 c30 ne7 nd6 l1 c7 nd11 l1  c30 nd6 h7"
DRAW "br50 c40 d15 u7 l10 nd7 nu6 e1 c30 nu6 r8 u6"
DRAW "bu50 c30 l15 c50 l7 d1 nr7 d1 c42 nr7 u1 c50 u1 r7 r1 c30 d6 r10 e4 u1 bl2 bd1"
PAINT STEP(0, 0), 30
DRAW "bl50 c20 l20 d1 l1 c40 r22 nu4 nd4 d1 l1 c20 l9 nd2 nu4 l11"
DRAW "bl50 c30 d10 l15 u10 r14 d1 c45 d8 l13 u8 r12 d1 c60 d6 l11 u6 r10 bd1"
PAINT STEP(0, 0), 60
FOR a = 6 TO 0 STEP -.5
CIRCLE (100, 100), a, 60 - 10 * a
CIRCLE (101, 100), a, 60 - 10 * a
CIRCLE (100, 101), a, 60 - 10 * a
CIRCLE (101, 101), a, 60 - 10 * a
NEXT a
LINE (50, 50)-(60, 60), 60
CIRCLE (100, 50), 7, 60
PAINT (100, 50), 60
DRAW "bm200,50 c60 u10 l7 d10"
DRAW "bl50 c60 nu6 nd6 l8 nd6 u6"
DIM ogg(439, 13)
GET (86, 93)-(114, 107), ogg(0, 2)'pistola
GET (98, 148)-(126, 162), ogg(0, 1) 'sferetta
GET (100, 115)-(128, 129), ogg(0, 3)'lamiera
GET (36, 152)-(64, 166), ogg(0, 4)'cuneo
GET (86, 43)-(114, 57), ogg(0, 5) 'cerchio
GET (152, 158)-(180, 172), ogg(0, 6) 'riempitutto
GET (42, 48)-(70, 62), ogg(0, 7)'segmento
GET (124, 43)-(152, 57), ogg(0, 8)'supporto instabile
GET (182, 38)-(212, 52), ogg(0, 9)'segmento piegato
GET (189, 162)-(217, 176), ogg(0, 10)'piegarette
GET (227, 162)-(255, 176), ogg(0, 11) 'supporto stabile
GET (220, 109)-(248, 123), ogg(0, 12) 'tagliatutto
GET (168, 109)-(196, 123), ogg(0, 13)'missile
CLS
COLOR 60
DIM n(70, 9), oo(13)
PRINT "1 2 3 4 5 6 7 8 9 0"
GET (0, 0)-(8, 7), n(0, 1)
GET (16, 0)-(16 + 8, 7), n(0, 2)
GET (16 * 2, 0)-(16 * 2 + 8, 7), n(0, 3)
GET (16 * 3, 0)-(16 * 3 + 8, 7), n(0, 4)
GET (16 * 4, 0)-(16 * 4 + 8, 7), n(0, 5)
GET (16 * 5, 0)-(16 * 5 + 8, 7), n(0, 6)
GET (16 * 6, 0)-(16 * 6 + 8, 7), n(0, 7)
GET (16 * 7, 0)-(16 * 7 + 8, 7), n(0, 8)
GET (16 * 8, 0)-(16 * 8 + 8, 7), n(0, 9)
GET (16 * 9, 0)-(16 * 9 + 8, 7), n(0, 0)
CLS
DRAW "bm80,30 c60 l20 g20 d20 f20 r20 u20 l20 br30 bd20 nr30 u30 nr24 u30 r30 br30"
DRAW "r20 f20 d20 g20 l20 h20 u20 e20 br50 f60 h30 ng30 e30"
DRAW "bm81,30 c60 l20 g20 d20 f20 r20 u20 l20 br30 bd20 nr30 u30 nr24 u30 r30 br30"
DRAW "r20 f20 d20 g20 l20 h20 u20 e20 br50 f60 h30 ng30 e30"
DRAW "bm80,31 c60 l20 g20 d20 f20 r20 u20 l20 br30 bd20 nr30 u30 nr24 u30 r30 br30"
DRAW "r20 f20 d20 g20 l20 h20 u20 e20 br50 f60 h30 ng30 e30"
DRAW "bm81,31 c60 l20 g20 d20 f20 r20 u20 l20 br30 bd20 nr30 u30 nr24 u30 r30 br30"
DRAW "r20 f20 d20 g20 l20 h20 u20 e20 br50 f60 h30 ng30 e30"
FOR a = 0 TO 60
PALETTE a, a * 256 + a + a * 256 ^ 2: PALETTE 60, a * 256 + a + a * 256 ^ 2
NEXT a
LOCATE 18, 4: PRINT "Premi un tasto (i per istruzioni)"
a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
IF a$ = "u" THEN END
IF a$ = "i" THEN GOSUB 30000
CLS
r = 50
FOR a = 1 TO 200 - r
LINE (1, a + r)-(320, a + r), INT(a / ((200 - r) / 60))
NEXT a

PRINT "Benvenuto in GEOX"
PRINT "In questo gioco tu sei un pilota"
PRINT "americano in missione nel Golfo "
PRINT "Persico che, improvvisamente,"
PRINT "dopo essere svenuto per un lampo di"
PRINT "luce, si sveglia in un luogo"
PRINT "molto, molto strano...."
WHILE INKEY$ = "": WEND
oo(1) = 1
GOSUB 10000
FOR yy = 1 TO 2
IF yy = 2 THEN rrr = 100
e = 0
FOR a = 1 TO 60
e = e + 1
LINE (180 - rrr + e * .6, 20 - e ^ .5)-(180 - rrr + e * .6, 20 + e ^ .5), 25
NEXT a
FOR a = 1 TO 10
e = e + 1
LINE (180 - rrr + e * .6, 20 - 60 ^ .5)-(180 - rrr + e * .6, 20 + 60 ^ .5), 25
NEXT a
FOR a = 60 TO 1 STEP -1
e = e + 1
g = 130 - e
LINE (180 - rrr + e * .6, 20 - g ^ .5)-(180 - rrr + e * .6, 20 + g ^ .5), 25
NEXT a
e = 0
FOR a = 1 TO 60
e = e + 1
LINE (180 - rrr + e * .6, 20 + e ^ .5)-(180 - rrr + e * .6, 140 + e ^ .5), a
NEXT a
FOR a = 1 TO 10
e = e + 1
LINE (180 - rrr + e * .6, 20 + 60 ^ .5)-(180 - rrr + e * .6, 140 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -1
e = e + 1
g = 130 - e
LINE (180 - rrr + e * .6, 20 + g ^ .5)-(180 - rrr + e * .6, 140 + g ^ .5), a
NEXT a
NEXT yy
PUT (62, 20), n(0, 1)
PUT (70, 20), n(0, 4)
PUT (162, 20), n(0, 1)
PUT (170, 20), n(0, 5)
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Sei con mani e piedi legati "
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Hai davanti due cilindri     "
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Ma... sono VIVI!!!! Parlano!"
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "14-Da dove spunta questo?    "
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "15-Bho!                      "
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Puoi parlare... "
WHILE INKEY$ = "": WEND
40 LOCATE 22, 1: PRINT "A-Slegatemi B-Chi siete? C-Dove sono?"
1 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
IF a$ = "a" THEN GOTO 10
IF a$ = "b" THEN GOTO 20
IF a$ = "c" THEN GOTO 30
GOTO 1
10 LOCATE 22, 1: PRINT "14-Ehi! Parla!                       "
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "-Certo che parlo! Slegami!"
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "14-Che ne dici? 15-Sei matto?  "
WHILE INKEY$ = "": WEND
GOTO 40
20 LOCATE 22, 1: PRINT "15-Noi siamo i CILINDRI!                 "
WHILE INKEY$ = "": WEND
GOTO 40
30 LOCATE 22, 1: PRINT "14-Niente domande. 15-Portiamolo dentro!"
WHILE INKEY$ = "": WEND
CLS : GOSUB 10000
LINE (50, 5)-(60, 5), 60
LINE (55, 1)-(55, 9), 60
e = 0
FOR a = 1 TO 60 STEP .5
e = e + .5
LINE (85, 20 + e ^ .5)-(50 + e * .5, 90 + e ^ .5), INT(a)
NEXT a
FOR a = 1 TO 10 STEP .5
e = e + .5
LINE (85, 20 + 60 ^ .5)-(50 + e * .5, 90 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -.5
e = e + .5
g = 130 - e
LINE (85, 20 + g ^ .5)-(50 + e * .5, 90 + g ^ .5), INT(a)
NEXT a
PUT (40, 20), n(0, 1), XOR
PUT (48, 20), n(0, 4), XOR
FOR a = 60 TO 0 STEP -1
CIRCLE (160, 140), a * 3, 60 - INT(a)
NEXT a
PUT (170, 140), n(0, 1), XOR
PUT (178, 140), n(0, 5), XOR
LOCATE 22, 1: PRINT "-Sono in GALERA!"
WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "-Ma senza legacci!"
WHILE INKEY$ = "": WEND
100 GOSUB 20000
LOCATE 22, 1
IF f > 0 AND f < 10 THEN PRINT "Sei in una gabbia. Non si esce": WHILE INKEY$ = "": WEND: GOTO 100
IF f = 101.14 THEN pro = pro - 1: PRINT "BOOM!                     ": WHILE INKEY$ = "": WEND: GOTO 101
IF f = 101.15 THEN PRINT "Non credo sia una normale serratura": WHILE INKEY$ = "": WEND: GOTO 100
IF f = 214 THEN PRINT "-Ehi, cono! 14-Non pa-parlo co-con tte!": WHILE INKEY$ = "": WEND: GOTO 100
IF f = 314 THEN PRINT "E' un cono                          ": WHILE INKEY$ = "": WEND: GOTO 100
IF f = 315 THEN PRINT "E' la serratura della gabbia            ": WHILE INKEY$ = "": WEND: GOTO 100
PRINT "Non Š una buona idea": WHILE INKEY$ = "": WEND: GOTO 100
101 GOSUB 10000
LINE (50, 5)-(60, 5), 60
LINE (55, 1)-(55, 9), 60
FOR a = 60 TO 0 STEP -1
CIRCLE (160, 140), a * 3, 60 - INT(a)
NEXT a
PUT (170, 140), n(0, 1), XOR
PUT (178, 140), n(0, 5), XOR
PUT (50, 70), ogg(0, 5), XOR
PUT (50, 90), n(0, 1), XOR
PUT (58, 90), n(0, 4), XOR
LOCATE 22, 1: PRINT "Ehi! Ho 'ucciso' un cono!           "
WHILE INKEY$ = "": WEND
200 GOSUB 20000: LOCATE 22, 1
IF f = 314 AND ggg = 0 THEN ggg = 1: oo(5) = 1: PRINT "Pare un cerchio: lo prendo            ": PUT (-19 + 5 * 23, 184), ogg(0, 5), PSET: PUT (50, 70), ogg(0, 5), XOR: PUT (50, 90), n(0, 1), XOR: PUT (58, 90), n(0, 4), XOR: WHILE INKEY$ = "": WEND:  _
GOTO 200
IF f = 315 THEN PRINT "E' la serratura della cella            ": WHILE INKEY$ = "": WEND: GOTO 200
IF f = 105.15 THEN PRINT "Giusto!                            ": WHILE INKEY$ = "": WEND: GOTO 299
PRINT "Non credo sia una buona idea   ": WHILE INKEY$ = "": WEND: GOTO 200
299 GOSUB 10000: LOCATE 22, 1
LINE (50, 5)-(60, 5), 60
LINE (55, 1)-(55, 9), 60
PRINT "Sono libero!"
WHILE INKEY$ = "": WEND
300 GOSUB 20000
IF f = 1 THEN PRINT "Quale Š il nord?  ": WHILE INKEY$ = "": WEND: GOTO 300
IF f = 2 THEN PRINT "Quale Š il sud?   ": WHILE INKEY$ = "": WEND: GOTO 300
IF f = 3 THEN PRINT "Dov'Š l'est?     ": WHILE INKEY$ = "": WEND: GOTO 300
IF f = 4 THEN PRINT "Dov'Š l'ovest?    ": WHILE INKEY$ = "": WEND: GOTO 300
IF f = 6 THEN PRINT "Vado!            ": WHILE INKEY$ = "": WEND: GOTO 301
IF f = 5 THEN PRINT "PerchŠ?            ": WHILE INKEY$ = "": WEND: GOTO 300
IF f = 101.05 THEN PRINT "Tiro al piattello? No,mi servono i colpi": WHILE INKEY$ = "": WEND: GOTO 300
PRINT "Non Š una buona idea          ": WHILE INKEY$ = "": WEND: GOTO 300
301 GOSUB 10000
FOR tt = 0 TO 65 STEP 65
e = 0
FOR a = 1 TO 60 STEP .5
e = e + .5
LINE (85 + tt, 20 + e ^ .5)-(50 + tt + e * .5, 90 + e ^ .5), INT(a)
NEXT a
FOR a = 1 TO 10 STEP .5
e = e + .5
LINE (85 + tt, 20 + 60 ^ .5)-(50 + tt + e * .5, 90 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -.5
e = e + .5
g = 130 - e
LINE (85 + tt, 20 + g ^ .5)-(50 + tt + e * .5, 90 + g ^ .5), INT(a)
NEXT a
NEXT tt
FOR a = 60 TO 0 STEP -2
CIRCLE (270, 40), a * 1.4, 60 - INT(a)
NEXT a
PUT (56, 40), n(0, 1), XOR
PUT (64, 40), n(0, 4), XOR
PUT (113, 40), n(0, 1), XOR
PUT (121, 40), n(0, 5), XOR
PUT (174, 20), n(0, 1), XOR
PUT (182, 20), n(0, 6), XOR
400 GOSUB 20000
IF f = 316 THEN PRINT "E' una gabbia; c'Š qualcosa dentro": WHILE INKEY$ = "": WEND: GOTO 400
IF f = 314 OR f = 315 THEN PRINT "E' un cono                            ": WHILE INKEY$ = "": WEND: GOTO 400
IF f = 315 THEN PRINT "": WHILE INKEY$ = "": WEND: GOTO 400
IF f = 6 THEN PRINT "I due amici forse non sono d'accordo": WHILE INKEY$ = "": WEND: GOTO 400
IF f = 101.15 OR f = 101.14 THEN PRINT "Oho... ho sbagliato mira...     ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "14-Ha tentato di ucciderci...Muori!": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "Un cuneo trapassa veloce la tua testa": GOTO _
 40000
IF f = 214 OR f = 215 THEN PRINT "14-Vuoi parlare col prigioniero? -Si": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "15-Vai pure, ma niente scherzi!         ": WHILE INKEY$ = "": WEND: GOTO 401
PRINT "Non Š una buona idea     ": WHILE INKEY$ = "": WEND: GOTO 400
401 GOSUB 10000
LINE (160 + 60, 100)-(160, 100 + 30), 34
LINE (160 + 60, 100)-(160 + 30, 100 - 40), 34
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 34
PAINT (180, 100), 34
LINE (160 - 10, 100 - 10)-(160, 100 + 30), 25
LINE (160 - 10, 100 - 10)-(160 + 30, 100 - 40), 25
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 25
PAINT (160, 100), 25
PAINT (160, 100 + 20), 25
FOR a = 60 TO 0 STEP -1
CIRCLE (160, 140), a * 3, 60 - INT(a)
NEXT a
PUT (150, 51), n(0, 1), PSET
PUT (158, 51), n(0, 4), PSET
LOCATE 22, 1: PRINT "-E tu chi sei?                  "
WHILE INKEY$ = "": WEND
408 LOCATE 22, 1: PRINT "14-Chi sei tu, invece!                 "
WHILE INKEY$ = "": WEND
oooo = 0
404 LOCATE 22, 1: PRINT "A-Chi sei?B-Non lo dico C-Non capiresti"
a$ = "": WHILE a$ <> "a" AND a$ <> "b" AND a$ <> "c": a$ = INKEY$: WEND
IF a$ = "a" THEN GOTO 402
IF a$ = "b" THEN GOTO 403
LOCATE 22, 1: PRINT "PerchŠ io non capirei?                 "
WHILE INKEY$ = "": WEND
409 oooo = 0: LOCATE 22, 1: PRINT "A-Bho? B-Dove mi trovo?C-Sono un pilota"
a$ = "": WHILE a$ <> "a" AND a$ <> "b" AND a$ <> "c": a$ = INKEY$: WEND
IF a$ = "b" THEN GOTO 411
IF a$ = "c" THEN GOTO 412
LOCATE 22, 1: PRINT "Bho? Come bho! Chi sei?                "
WHILE INKEY$ = "": WEND: GOTO 404
411 LOCATE 22, 1: PRINT "Sei su GEOX,e purtroppo ci sono anch'io"
WHILE INKEY$ = "": WEND: GOTO 408
412 LOCATE 22, 1: PRINT "14-UN PILOTA:COS'E' UN PILOTA? CHI SEI?"
WHILE INKEY$ = "": WEND: GOTO 404
403 LOCATE 22, 1: PRINT "14-Dimmelo, invece!                    "
oooo = 0
WHILE INKEY$ = "": WEND
GOTO 404
402 oooo = oooo + 1
IF oooo < 3 THEN LOCATE 22, 1: PRINT "14-Chi sei tu!                         ": WHILE INKEY$ = "": WEND: GOTO 404
LOCATE 22, 1:     PRINT "14-BASTA! Ero una spia nemica!         "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-Spia? 14-SŤ, una spia!                "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Ma tu, da quale pianeta vieni?      "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-Dalla... TERRA! 14-TERRA?!?!?         "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-E che razza di solido sei?          "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-SOLIDO? SONO UN UOMO! DOVE SONO FINITO!"
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Sei su GEOX, il pianeta dei solidi..."
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...di rotazione -E' una Candid Camera!  "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-Dove sono le telecamere? 14-Candid che?"
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-BASTA CON QUESTA PAGLIACCIATA!         "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-OK, ci sono cascato. Bello scherzo!   "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-BASTA ORA! UN BEL GIOCO DURA POCO!   "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Dimmi, vieni da un'altra dimensione? "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-Che ne so.Sono disperato.Vuoi aiutarmi?"
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-A patto che tu mi liberi!            "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-D'accordo allora: se mi aiuti io...  "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...aiuter• te a tornare a casa!         "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-D'accordo. Cosa devo fare?             "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Dovresti per prima cosa eliminare... "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...i due amici qui, poi si vedr….       "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "-Grazie. Grazie. Grazie. Ci prover•!    "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Vai dove vuoi, ma non andare...  "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...in questi luoghi, te li segno sul... "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...cerchio. Vai ora! -Ciao TETRAEDRO!   "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-TETRACHE? -E' il nome con cui noi... "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "...terrestri chiamiamo quelli come te!  "
WHILE INKEY$ = "": WEND
LOCATE 22, 1:     PRINT "14-Va bene, ma ora al lavoro!           "
WHILE INKEY$ = "": WEND
'1* 2* 3* 4*
'5* 6  7  8
'9  10 11 12

'stanza 1
1010 GOSUB 10000
IF tre = 1 THEN GOTO 1012
FOR tt = 0 TO 65 STEP 65
e = 0
FOR a = 1 TO 60 STEP .5
e = e + .5
LINE (85 + tt, 20 + e ^ .5)-(50 + tt + e * .5, 90 + e ^ .5), INT(a)
NEXT a
FOR a = 1 TO 10 STEP .5
e = e + .5
LINE (85 + tt, 20 + 60 ^ .5)-(50 + tt + e * .5, 90 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -.5
e = e + .5
g = 130 - e
LINE (85 + tt, 20 + g ^ .5)-(50 + tt + e * .5, 90 + g ^ .5), INT(a)
NEXT a
NEXT tt
PUT (56, 40), n(0, 1), XOR
PUT (64, 40), n(0, 4), XOR
PUT (113, 40), n(0, 1), XOR
PUT (121, 40), n(0, 5), XOR
1012 IF tree = 1 THEN GOTO 1013
FOR a = 60 TO 0 STEP -2
CIRCLE (270, 40), a * 1.4, 60 - INT(a)
NEXT a
PUT (174, 20), n(0, 1), XOR
PUT (182, 20), n(0, 6), XOR
GOTO 1011
1013
LINE (160 + 60, 100)-(160, 100 + 30), 34
LINE (160 + 60, 100)-(160 + 30, 100 - 40), 34
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 34
PAINT (180, 100), 34
LINE (160 - 10, 100 - 10)-(160, 100 + 30), 25
LINE (160 - 10, 100 - 10)-(160 + 30, 100 - 40), 25
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 25
PAINT (160, 100), 25
PAINT (160, 100 + 20), 25
PUT (150, 51), n(0, 1), PSET
PUT (158, 51), n(0, 4), PSET
1011 GOSUB 20000
IF f = 1 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 4 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1050
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1020
IF (f = 214 OR f = 215) AND tree = 0 THEN PRINT "-Potrei..14-Ci hai parlato anche troppo": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 316 THEN PRINT "E' una gabbia; c'Š dentro il tetraedro": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 314 OR f = 315 THEN PRINT "E' un cono                            ": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 315 THEN PRINT "": WHILE INKEY$ = "": WEND: GOTO 1011
IF f = 6 THEN PRINT "I due amici forse non sono d'accordo": WHILE INKEY$ = "": WEND: GOTO 1011
IF (f = 101.15 OR f = 101.14) AND oo(3) = 1 AND pro > 1 THEN pro = pro - 2: tre = 1: PRINT "BOOM! (un cono ti spara ma la lamiera": LOCATE 22, 1: WHILE INKEY$ = "": WEND: PRINT "para il colpo                        ": WHILE INKEY$ = "": WEND: GOTO  _
1010
IF f = 101.15 OR f = 101.14 THEN PRINT "Oho... ho sbagliato mira...     ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "14-Ha tentato di ucciderci...Muori!": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "Un cuneo trapassa veloce la tua testa": GOTO _
 40000
IF tre = 1 AND f = 104.16 THEN PRINT "Ho forzato la serratura! ": tree = 1: WHILE INKEY$ = "": WEND: GOTO 1010
IF f = 214 AND tree = 1 AND uio = 1 THEN GOTO 2000
IF f = 214 AND tree = 1 THEN GOSUB 35000: GOTO 1011
PRINT "Non Š una buona idea      ": WHILE INKEY$ = "": WEND: GOTO 1011
1020 GOSUB 10000
LOCATE 22, 1: PRINT "Che landa desolata!": WHILE INKEY$ = "": WEND
1021 GOSUB 20000
IF f = 5 THEN f = dietro
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1060
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1030
IF f = 1 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1021
IF f = 4 THEN dietro = 3: PRINT "Vado!                       ": WHILE INKEY$ = "": WEND: GOTO 1010
PRINT "Non Š una buona idea    ": WHILE INKEY$ = "": WEND: GOTO 1021
1050 GOSUB 10000
LOCATE 22, 1: PRINT "Che landa desolata!": WHILE INKEY$ = "": WEND
1051  GOSUB 20000
IF f = 5 THEN f = dietro
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1090
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1010
IF f = 4 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1051
IF f = 3 THEN dietro = 4: PRINT "Vado!                       ": WHILE INKEY$ = "": WEND: GOTO 1060
PRINT "Non Š una buona idea    ": WHILE INKEY$ = "": WEND: GOTO 1051
1030 GOSUB 10000
IF tyty <> 0 THEN GOTO 1032
FOR a = 60 TO 0 STEP -.5
CIRCLE (160, 70), a * .8, 60 - INT(a)
CIRCLE (160, 71), a * .8, 60 - INT(a)
NEXT a
PUT (80, 45), n(0, 1), PSET
PUT (88, 45), n(0, 4), PSET
GOTO 1031
1032
IF tyty = 2 THEN GOTO 1031
PUT (160, 90), ogg(0, 2), XOR
PUT (140, 90), n(0, 1), XOR
PUT (148, 90), n(0, 4), XOR
1031 GOSUB 20000
IF f = 5 THEN f = dietro
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1070
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1040
IF f = 1 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1031
IF f = 4 THEN PRINT "Vado!                       ": WHILE INKEY$ = "": WEND: GOTO 1020
IF f = 101.14 AND pro > 0 THEN pro = pro - 1: PRINT "BOOM!                     ": WHILE INKEY$ = "": WEND: tyty = 1: GOTO 1030
IF f = 314 AND tyty = 0 THEN PRINT "E' una sfera!           ": WHILE INKEY$ = "": WEND: GOTO 1031
IF f = 314 AND tyty = 1 THEN oo(2) = 1: PRINT "E' una pallina, la prendo": tyty = 2: PUT (160, 90), ogg(0, 2), XOR: PUT (140, 90), n(0, 1), XOR: PUT (148, 90), n(0, 4), XOR: PUT (-19 + 46, 184), ogg(0, 2), PSET: WHILE INKEY$ = "": WEND: GOTO 1031
IF f = 214 AND tyty = 0 THEN PRINT "-Ciao, sfera! 14-Cosa vuoi?": WHILE INKEY$ = "": WEND:  ELSE GOTO 1033
LOCATE 22, 1: PRINT "A-C'Š una citt… vicino? B-Chi sei?"
a$ = "": WHILE a$ <> "a" AND a$ <> "b": a$ = INKEY$: WEND
LOCATE 22, 1
IF a$ = "a" THEN PRINT "14-E' a sud-sud-est -Grazie!        ": WHILE INKEY$ = "": WEND: GOTO 1031
PRINT "14-Non ti interessa, straniero!  ": WHILE INKEY$ = "": WEND: GOTO 1031
1033
PRINT "Non Š una buona idea    ": WHILE INKEY$ = "": WEND: GOTO 1021
1040 GOSUB 10000
e = 0
FOR a = 1 TO 60
e = e + 1
LINE (240 + e ^ .5, 49 + e * .5)-(320 + e ^ .5, 49 + e * .5), a
NEXT a
FOR a = 1 TO 10
e = e + 1
LINE (240 + 60 ^ .5, 49 + e * .5)-(320 + 60 ^ .5, 49 + e * .5), 60
NEXT a
FOR a = 60 TO 1 STEP -1
e = e + 1
g = 130 - e
LINE (240 + g ^ .5, 49 + e * .5)-(320 + g ^ .5, 49 + e * .5), a
NEXT a
e = 0
FOR a = 1 TO 60 STEP .5
e = e + .5
LINE (105, 85)-(240 + e ^ .5, 50 + e * .5), INT(a)
NEXT a
FOR a = 1 TO 10 STEP .5
e = e + .5
LINE (105, 85)-(240 + 60 ^ .5, 50 + e * .5), 60
NEXT a
FOR a = 60 TO 1 STEP -.5
e = e + .5
g = 130 - e
LINE (105, 85)-(240 + g ^ .5, 50 + e * .5), INT(a)
NEXT a
PUT (250, 40), n(0, 1), XOR
PUT (258, 40), n(0, 4), XOR
IF tutu = 1 THEN GOTO 1041
PUT (280, 110), ogg(0, 13), XOR
PUT (280, 130), n(0, 1), XOR
PUT (288, 130), n(0, 5), XOR
LOCATE 22, 1: PRINT "Quello era il mio aereo!"
WHILE INKEY$ = "": WEND
1041 GOSUB 20000
IF f = 5 THEN f = dietro
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1080
IF f = 1 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1041
IF f = 3 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1041
IF f = 4 THEN dietro = 3: PRINT "Vado!                       ": WHILE INKEY$ = "": WEND: GOTO 1030
IF f = 315 AND tutu = 0 THEN PRINT "E' un missile Sidewinder      ": WHILE INKEY$ = "": WEND: GOTO 1041
IF f = 314 THEN PRINT "E' il mio F14                ": WHILE INKEY$ = "": WEND: GOTO 1041
IF f = 112.15 AND tutu = 0 THEN tutu = 1: oo(13) = 1: PRINT "Ho preso il missile!      ": PUT (280, 110), ogg(0, 13), XOR: PUT (280, 130), n(0, 1), XOR: PUT (288, 130), n(0, 5), XOR: PUT (-19 + 13 * 23, 184), ogg(0, 13), PSET: WHILE INKEY$ = "":  _
WEND: GOTO 1041
IF f = 112.14 AND oo(3) = 0 THEN oo(3) = 1: PRINT "Ho tagliato un pezzo di lamiera": PUT (-19 + 3 * 23, 184), ogg(0, 3), PSET: WHILE INKEY$ = "": WEND: GOTO 1041
PRINT "Non Š una buona idea    ": WHILE INKEY$ = "": WEND: GOTO 1041
1060 GOSUB 10000
LINE (150, 40)-(200, 140), 40, BF
CIRCLE (170, 60), 8, 10
PUT (130, 40), n(0, 1)
PUT (138, 40), n(0, 4)
1061 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1020
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1100
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1070
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1050
IF f = 314 THEN PRINT "C'Š scritto: inserire una ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "sfera per avere un cuneo     ": WHILE INKEY$ = "": WEND: GOTO 1061
IF f = 102.14 THEN oo(2) = 0: oo(4) = 1: GOTO 1060
PRINT "Non Š una buona idea    ": WHILE INKEY$ = "": WEND: GOTO 1061
1070 GOSUB 10000
LINE (50, 50)-(320, 50), 60
PUT (40, 40), n(0, 1), XOR
PUT (48, 40), n(0, 4), XOR
1071 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1030
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1110
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1080
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1060
IF f = 314 THEN PRINT "E' una semiretta!?!?       ": WHILE INKEY$ = "": WEND: GOTO 1071
IF f = 112.14 AND oo(7) = 0 THEN oo(7) = 1: PRINT "Ho preso un segmento    ": WHILE INKEY$ = "": WEND: GOTO 1070
PRINT "Non Š una buona idea      ": WHILE INKEY$ = "": WEND: GOTO 1071
1080 GOSUB 10000
FOR tt = 0 TO (65 * 4) STEP 65
e = 0
FOR a = 1 TO 60 STEP .5
e = e + .5
LINE (45 + tt, 20 + e ^ .5)-(10 + tt + e * .5, 90 + e ^ .5), INT(a)
NEXT a
FOR a = 1 TO 10 STEP .5
e = e + .5
LINE (45 + tt, 20 + 60 ^ .5)-(10 + tt + e * .5, 90 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -.5
e = e + .5
g = 130 - e
LINE (45 + tt, 20 + g ^ .5)-(10 + tt + e * .5, 90 + g ^ .5), INT(a)
NEXT a
NEXT tt
PUT (56, 40), n(0, 1), XOR
PUT (64, 40), n(0, 4), XOR
1081 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1040
IF f = 2 THEN dietro = 1: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1120
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1070
IF f = 3 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1081
IF f = 314 THEN PRINT "Un plotone di coni!     ": WHILE INKEY$ = "": WEND: GOTO 1081
IF f = 214 THEN PRINT "-Dove andate? -Non ti interessa!": WHILE INKEY$ = "": WEND: GOTO 1081
IF f = 105.14 AND oo(12) = 0 THEN oo(5) = 0: PRINT "14-D… qui!Dove l'hai preso?-Per terra": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "14-E' una chiave di cella, grazie per": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT  _
"avermela data. Tieni questo!         ": WHILE INKEY$ = "": WEND: oo(12) = 1: GOTO 1080
IF f = 101.14 THEN PRINT "Ne ho ammazzato uno!            ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "14-Ha ucciso un cono...Muori!": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "Un cuneo trapassa veloce la tua testa": GOTO 40000
PRINT "Non Š una buona idea     ": WHILE INKEY$ = "": WEND: GOTO 1081
1090 GOSUB 10000
FOR a = 60 TO 0 STEP -.5
CIRCLE (160, 70), a * 1.5, 60 - INT(a)
CIRCLE (160, 71), a * 1.5, 60 - INT(a)
NEXT a
PUT (50, 70), n(0, 1)
PUT (58, 70), n(0, 4)
1091 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1050
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1100
IF f = 4 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1091
IF f = 2 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1091
IF f = 101.14 THEN PRINT "L'ho preso! Non muore?          ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "14-Ma muori!              ": WHILE INKEY$ = "": WEND: LOCATE 22, 1: PRINT "La sfera ti schiaccia con la sua mole": GOTO 40000
IF f = 314 THEN PRINT "Uno SFERONE ENORMISSIMO!": WHILE INKEY$ = "": WEND: GOTO 1091
IF f = 214 AND oo(6) = 0 THEN PRINT "14-Tu hai bisogno di una cosa": LOCATE 22, 1: WHILE INKEY$ = "": WEND: PRINT "devi rispondere ad un indovinello": GOSUB 33000: GOTO 1090
1100 GOSUB 10000
IF oo(10) = 1 THEN GOTO 1101
PUT (150, 100), ogg(0, 10), XOR
PUT (130, 100), n(0, 1), XOR
PUT (138, 100), n(0, 4), XOR
1101 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1060
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1110
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1090
IF f = 2 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1101
IF f = 314 AND oo(10) = 0 THEN oo(10) = 1: PRINT "E' un piegarette, lo prendo ": PUT (150, 100), ogg(0, 10), XOR: PUT (130, 100), n(0, 1), XOR: PUT (138, 100), n(0, 4), XOR: PUT (-19 + 230, 184), ogg(0, 10), PSET: WHILE INKEY$ = "": WEND: GOTO 1101
PRINT "Non Š una buona idea      ": WHILE INKEY$ = "": WEND: GOTO 1101
1110 GOSUB 10000
1111 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1070
IF f = 3 THEN dietro = 4: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1120
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1100
IF f = 2 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1111
PRINT "Non Š una buona idea      ": WHILE INKEY$ = "": WEND: GOTO 1111

1120 GOSUB 10000
IF uio = 1 THEN GOTO 1222
e = 0
FOR a = 1 TO 60
e = e + 1
LINE (180 + e, 0)-(180 + e, 100 + e ^ .5), a
NEXT a
FOR a = 1 TO 10
e = e + 1
LINE (180 + e, 0)-(180 + e, 100 + 60 ^ .5), 60
NEXT a
FOR a = 60 TO 1 STEP -1
e = e + 1
g = 130 - e
LINE (180 + e, 0)-(180 + e, 100 + g ^ .5), a
NEXT a
PUT (160, 40), n(0, 1)
PUT (168, 40), n(0, 4)
1222
LINE (200, 110)-(250, 130), 60, BF
LINE (223, 130)-(227, 150), 20, BF
PUT (210, 115), n(0, 1)
PUT (218, 115), n(0, 5)
IF uio = 1 THEN LOCATE 22, 1: PRINT "Ho spaccato tutto! EVVIVA!": WHILE INKEY$ = "": WEND
1121 GOSUB 20000
IF f = 1 THEN dietro = 2: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1080
IF f = 3 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1121
IF f = 4 THEN dietro = 3: PRINT "Vado!               ": WHILE INKEY$ = "": WEND: GOTO 1110
IF f = 2 THEN PRINT "Il tetraedro mi ha vietato di andarci": WHILE INKEY$ = "": WEND: GOTO 1121
IF f = 314 THEN PRINT "E' una base militare     ": WHILE INKEY$ = "": WEND: GOTO 1121
IF f = 315 THEN GOSUB 38000: GOTO 1120
IF f = 111.13 OR f = 113.11 THEN PRINT "Presto qui far… caldo": oo(11) = 0: oo(13) = 0: uio = 1: WHILE INKEY$ = "": WEND: GOTO 1120
PRINT "Non Š una buona idea  ": WHILE INKEY$ = "": WEND: GOTO 1121
2000
LOCATE 22, 1: PRINT "-Ho distrutto tutto!": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "14-Ho trovato un mezzo di trasporto": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "14-Ora ti porto su Mondra!         ": WHILE INKEY$ = "": WEND
CLS : LOCATE 13, 15: PRINT "Dopo del tempo...": WHILE INKEY$ = "": WEND
GOSUB 10000
LINE (160 + 60, 100)-(160, 100 + 30), 34
LINE (160 + 60, 100)-(160 + 30, 100 - 40), 34
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 34
PAINT (180, 100), 34
LINE (160 - 10, 100 - 10)-(160, 100 + 30), 25
LINE (160 - 10, 100 - 10)-(160 + 30, 100 - 40), 25
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 25
PAINT (160, 100), 25
PAINT (160, 100 + 20), 25
LINE (60, 40)-(80, 60), 20, BF
LINE (100, 30)-(130, 60), 15, BF
LINE (140, 35)-(150, 60), 20, BF
LINE (190, 40)-(240, 60), 30, BF
PUT (150, 51), n(0, 1), PSET
PUT (158, 51), n(0, 4), PSET
LOCATE 22, 1: PRINT "Eccoci su Mondra!           ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Ora vado a cercare un mio amico ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "e... L'INVASIONE: usa la tua arma": WHILE INKEY$ = "": WEND
PUT (20, 20), ogg(0, 2), XOR
PUT (40, 20), ogg(0, 2), XOR
PUT (60, 20), ogg(0, 2), XOR
PUT (70, 20), ogg(0, 2), XOR
PUT (80, 20), ogg(0, 2), XOR
PUT (90, 20), ogg(0, 2), XOR
PUT (100, 20), ogg(0, 2), XOR
PUT (120, 20), ogg(0, 2), XOR
PUT (140, 20), ogg(0, 2), XOR
PUT (160, 20), n(0, 1)
PUT (168, 20), n(0, 5)
LOCATE 22, 1: PRINT "-Cosa? I solidi di rotazione ci    ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "invadono!!!!!!!!!!!!!!!!           ": WHILE INKEY$ = "": WEND
2002 GOSUB 20000
IF f = 101.15 AND pro > 0 THEN pro = pro - 1: PRINT "BOOM                 ": WHILE INKEY$ = "": WEND: GOTO 2002
IF f = 315 THEN PRINT "Un esercito di sfere!  ": WHILE INKEY$ = "": WEND: GOTO 2002
IF f = 101.15 THEN PRINT "Fine colpi!                ": WHILE INKEY$ = "": WEND: GOTO 2002
IF f = 214 THEN GOTO 3000
PRINT "Non Š il momento di fare scemate!": WHILE INKEY$ = "": WEND: GOTO 2002
3000 PRINT "-Ehi! 14-Ci arrendiamo!": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "-A chi? 14-A loro (150 sfere)!": WHILE INKEY$ = "": WEND
FOR a = 60 TO 0 STEP -.5
CIRCLE (60, 70), a * .8, 60 - INT(a)
CIRCLE (60, 71), a * .8, 60 - INT(a)
CIRCLE (250, 70), a * .8, 60 - INT(a)
CIRCLE (250, 71), a * .8, 60 - INT(a)
NEXT a
PUT (60, 10), n(0, 1)
PUT (68, 10), n(0, 6)
LOCATE 22, 1: PRINT "16-Ti ho visto usare quella prima": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "-La pistola? 16-SŤ, Š un'arma... ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "...formidabile! Con un solo colpo": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Ha trapassato 13 sfere! Dammela! ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "16-E ora la sperimenter• su di te": WHILE INKEY$ = "": WEND
IF pro = 0 THEN GOTO 4000
LOCATE 22, 1: PRINT "-Noooooo! Un proiettile t'uccide ": WHILE INKEY$ = "": WEND: GOTO 40000
4000 LOCATE 22, 1: PRINT "-Nooooooo! (svieni per la paura) ": WHILE INKEY$ = "": WEND
CLS : LOCATE 13, 15: PRINT "Poco dopo...": WHILE INKEY$ = "": WEND
GOSUB 10000
LINE (160 + 60, 100)-(160, 100 + 30), 34
LINE (160 + 60, 100)-(160 + 30, 100 - 40), 34
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 34
PAINT (180, 100), 34
LINE (160 - 10, 100 - 10)-(160, 100 + 30), 25
LINE (160 - 10, 100 - 10)-(160 + 30, 100 - 40), 25
LINE (160, 100 + 30)-(160 + 30, 100 - 40), 25
PAINT (160, 100), 25
PAINT (160, 100 + 20), 25
LOCATE 22, 1: PRINT "Siamo salvi! La battaglia Š vinta": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Per• ho anche una brutta notizia:": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "Non so come farti tornare...dovrai": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "restare qui!                      ": WHILE INKEY$ = "": WEND
CLS
PALETTE 60, 0
PRINT : PRINT : PRINT "Il povero pilota rimase cosŤ su"
PRINT "Mondra. CapŤ che quei solidi erano come"
PRINT "uomini, e che dopo tutto non sarebbe"
PRINT "stato male lŤ. Grazie alla sua "
PRINT "provenienza si fece amici i "
PRINT "poliedri, e fece grandi cose per"
PRINT "aiutarli."
FOR a = 1 TO 60
PALETTE 60, a
NEXT a
WHILE INKEY$ = "": WEND
END
10000 CLS
FOR a = 1 TO 200 - r
LINE (1, a + r)-(320, a + r), INT(a / ((200 - r) / 60))
NEXT a
FOR a = 1 TO 13
IF oo(a) = 1 THEN PUT (-19 + a * 23, 184), ogg(0, a), PSET
NEXT a
FOR a = 1 TO 9
PUT (-7 + a * 23, 176), n(0, a), XOR
NEXT a
FOR a = 10 TO 13
PUT (-11 + a * 23, 176), n(0, 1), XOR
PUT (-3 + a * 23, 176), n(0, a - 10), XOR
NEXT a
LOCATE 22, 1: PRINT "                                        "
RETURN
20000 f = 0
LOCATE 22, 1: PRINT "                                        "
LOCATE 22, 1
20001 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
IF a$ = "u" THEN GOTO 20003
IF a$ = "a" THEN GOTO 20007
IF a$ = "p" THEN GOTO 20010
IF a$ = "e" THEN GOTO 20020
GOTO 20001
20003 PRINT "USARE "; : f = 100
20004 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
B$ = "": WHILE B$ = "": B$ = INKEY$: WEND
IF VAL(a$ + B$) > 13 THEN PRINT a$ + B$; " CON "; : f = f + VAL(a$ + B$): GOTO 20005
IF oo(VAL(a$ + B$)) = 0 THEN GOTO 20004:  ELSE PRINT a$ + B$; " CON "; : f = f + VAL(a$ + B$)
20005 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
B$ = "": WHILE B$ = "": B$ = INKEY$: WEND
IF VAL(a$ + B$) > 13 THEN PRINT a$ + B$: f = f + VAL(a$ + B$) / 100: GOTO 20006
IF oo(VAL(a$ + B$)) = 0 THEN GOTO 20005:  ELSE PRINT a$ + B$; : f = f + VAL(a$ + B$) / 100
20006 WHILE INKEY$ = "": WEND
LOCATE 22, 1
IF f = 110.07 AND oo(9) = 0 THEN PRINT "Ho piegato un segmento!": oo(7) = 0: oo(9) = 1: PUT (-19 + 9 * 23, 184), ogg(0, 9), PSET: PUT (-19 + 7 * 23, 184), ogg(0, 7), XOR: WHILE INKEY$ = "": WEND: GOTO 20000
IF f = 110.07 AND oo(9) = 1 THEN oo(9) = 0: oo(7) = 0: oo(8) = 1: PRINT "Ho creato un supporto per il missile": PUT (-19 + 8 * 23, 184), ogg(0, 8), PSET: PUT (-19 + 7 * 23, 184), ogg(0, 7), XOR: PUT (-19 + 9 * 23, 184), ogg(0, 9), XOR: WHILE INKEY$  _
= "": WEND: GOTO 20000
IF (f = 108.06 OR f = 106.08) THEN oo(8) = 0: oo(11) = 1:  PUT (-19 + 11 * 23, 184), ogg(0, 11), PSET: PUT (-19 + 8 * 23, 184), ogg(0, 8), XOR: PRINT "Ecco, ora il supporto Š stabile": WHILE INKEY$ = "": WEND: GOTO 20000
GOTO 20100
20007 PRINT "ANDARE ";
20008 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
IF a$ = "n" THEN f = 1: PRINT "A NORD": GOTO 20009
IF a$ = "s" THEN f = 2: PRINT "A SUD": GOTO 20009
IF a$ = "e" THEN f = 3: PRINT "A EST": GOTO 20009
IF a$ = "o" THEN f = 4: PRINT "A OVEST": GOTO 20009
IF a$ = "i" THEN f = 5: PRINT "INDIETRO": GOTO 20009
IF a$ = "a" THEN f = 6: PRINT "AVANTI": GOTO 20009
GOTO 20008
20009 WHILE INKEY$ = "": WEND: GOTO 20100
20010 f = 200: PRINT "PARLARE CON ";
20011 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
B$ = "": WHILE B$ = "": B$ = INKEY$: WEND
IF VAL(a$ + B$) < 14 THEN GOTO 20011 ELSE PRINT a$ + B$: f = f + VAL(a$ + B$)
WHILE INKEY$ = "": WEND: GOTO 20100
20020 f = 300: PRINT "ESAMINARE ";
20021 a$ = "": WHILE a$ = "": a$ = INKEY$: WEND
B$ = "": WHILE B$ = "": B$ = INKEY$: WEND
IF VAL(a$ + B$) = 0 THEN GOTO 20021
IF VAL(a$ + B$) > 13 THEN f = f + VAL(a$ + B$): PRINT a$ + B$: WHILE INKEY$ = "": WEND: GOTO 20100
e = VAL(a$ + B$)
PRINT e
WHILE INKEY$ = "": WEND
LOCATE 22, 1
IF e = 1 AND oo(1) = 1 THEN PRINT "E' la mia pistola. Con"; pro; "colpi"
IF e = 2 AND oo(2) = 1 THEN PRINT "E' una sferetta da lancio         "
IF e = 3 AND oo(3) = 1 THEN PRINT "E' una lamiera del mio aereo: uno scudo!"
IF e = 4 AND oo(4) = 1 THEN PRINT "E' un cuneo da lancio. Non lascia scampo"
IF e = 5 AND oo(5) = 1 THEN PRINT "E' un cerchio                       "
IF e = 6 AND oo(6) = 1 THEN PRINT "E' un riempitutto per piani e volumi"
IF e = 7 AND oo(7) = 1 THEN PRINT "E' un segmento"
IF e = 8 AND oo(8) = 1 THEN PRINT "E' per il missile, ma non Š stabile "
IF e = 9 AND oo(9) = 1 THEN PRINT "E' un segmento piegato              "
IF e = 10 AND oo(10) = 1 THEN PRINT "E' un piegarette                    "
IF e = 11 AND oo(11) = 1 THEN PRINT "E' il supporto per il missile       "
IF e = 12 AND oo(12) = 1 THEN PRINT "E' un tagliatutto. Taglia tutto!    "
IF e = 13 AND oo(13) = 1 THEN PRINT "E' un missile del mio (ex) F14      "
IF oo(e) = 0 THEN PRINT "Non ce l'ho!                    "
WHILE INKEY$ = "": WEND
GOTO 20000
20100 LOCATE 22, 1: RETURN
30000 CLS : PRINT "Le azioni possibili durante l'interatti-": PRINT "vit… sono:"
PRINT : PRINT "USARE n CON n"
PRINT "ANDARE (nord, sud, est, ovest, avanti,"
PRINT "       indietro)"
PRINT "PARLARE CON n"
PRINT "ESAMINARE n"
PRINT : PRINT "Dove n Š il numero dell'oggetto"
PRINT : PRINT "ATTENZIONE: per il corretto funziona"
PRINT "-mento del programma, si sconsiglia l'u-"
PRINT "so del tasto 'INVIO' - l'opzione ESAMINA"
PRINT "Š usata anche per prendere gli oggetti"
WHILE INKEY$ = "": WEND
RETURN
40000 WHILE INKEY$ = "": WEND
CLS : COLOR 60: PALETTE 60, 0
LOCATE 13, 14: PRINT "GIOCO FINITO!"
FOR a = 1 TO 60: PALETTE 60, a: NEXT a
END
35000
LOCATE 22, 1: PRINT "14-Finalmente! Perfetto!": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "-Ora devi mantenere il patto!": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "14-SŤ, ti porter• su Mondra, il...": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "...pianeta dei poliedri, ma...Devi": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "sapere che Mondra e Geox sono in  ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "eterna guerra: io sono un agente": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "segreto e devo sabotare una base": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "a sud-est da qui. Aiutami ed io ": WHILE INKEY$ = "": WEND
LOCATE 22, 1: PRINT "manterr• il patto!              ": WHILE INKEY$ = "": WEND
RETURN
38000 CLS
PRINT "   PUNTI DEL NUOVO GOVERNO DI GEOX": PRINT
PRINT "I punti fondamentali  del nuovo  governo"
PRINT "sono 2: la guerra e la riforma sociale. ": PRINT
PRINT "-GUERRA    Per quanto riguarda la guerra"
PRINT "con Mondra, Š prevista tra breve una in-"
PRINT "vasione del pianeta con 2000 coni,  5000"
PRINT "cilindri e 8000 sfere,  tutti armati con"
PRINT "cunei invece che  con sfere.  Sono state"
PRINT "disposte alcune macchine per cambiare le"
PRINT "sfere con cunei, molto pi— efficaci."
PRINT "-RIFORMA SOCIALE La riforma sociale Š il"
PRINT "cavallo di battaglia  del nuovo governo,"
PRINT "che mira a rendere  uguale il numero  DI"
PRINT "TUTTI I SOLIDI DI ROTAZIONE."
WHILE INKEY$ = "": WEND
RETURN
33000 WHILE INKEY$ = "": WEND
CLS
PRINT "Se sbagli dovr• ucciderti!"
PRINT "Quanti triangoli vedi qui?"
DRAW "bm 150,30 f25 nl50 f25 nl100 f25 nl150 f25 l200 e100 g25 "
DRAW "nf 75 g25 nf50 g25 nf 25 g25 r200 h25 ng25 h25 ng50 h 25 ng75"
LOCATE 20, 1: INPUT wer
IF wer = 27 THEN oo(6) = 1: PRINT "Giusto! Tieni questo riempitutto!": WHILE INKEY$ = "": WEND: RETURN
PRINT "Sbagliato! Ora devi morire...": WHILE INKEY$ = "": WEND: GOTO 40000