Rivista: Dossier Texas 99/4A – Anno: 1984, Dicembre – Numero 1 – Trascrizione: Francesco Fiorentini
Dopo i giochi Paratrooper e Duello Astrale, pubblicati su RetroLiPS come omaggio alla macchina Texana, ecco un altro listato in TI Basic per il TI99/4A.
Il cielo si oscura all’improvviso. Nubi innaturali si squarciano sopra le città e, da un’altra dimensione, piovono mostri pronti a divorare ogni cosa. Non arrivano dallo spazio profondo, ma dall’alto, come un incubo che cade sulla Terra. In questo gioco sei tu a prendere il volo: pilota d’élite, ultima speranza dell’umanità, chiamato a fronteggiare l’invasione direttamente nei cieli del pianeta.
A bordo del tuo velivolo da combattimento, sfrecci tra montagne e tempeste, affrontando orde di creature colossali e mutanti che avanzano senza pietà. Ogni battaglia è una danza mortale tra aria e fuoco: schiva artigli e piogge di detriti, mentre con le tue armi spingi il tuo mezzo oltre i limiti conosciuti. I nemici diventano sempre più feroci, ma anche tu migliori, missione dopo missione.
Il destino della Terra non è più nelle mani di eserciti o governi, ma nelle tue ali e nel tuo coraggio. Solo chi osa guardare il pericolo dall’alto può sperare di abbatterlo. Preparati a volare, combattere e resistere, perché quando il cielo diventa il campo di battaglia, gli eroi non camminano… decollano.
Il listato e’ stato estratto dalla rivista Dossier Texas 99/4A – Anno: 1984, Dicembre – Numero 1, edizioni CO.STA. srl di Pisa.
Link diretto alla rivista su archive.org: https://archive.org/details/Texas994A-Dossier-01/mode/2up
Titolo: Duello Astrale
Piattaforma: TI99/4A
Linguaggio: TI Basic
Versione originale: –
Pubblicazione: Dossier Texas 99/4A
Anno: 1984, Dicembre
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A
Note: Usare il TI Basic.
Istruzioni…
Usate il tasti:
TAB per sparare con il laser
Freccia su’ e freccia giu’ per spostarvi in verticale.
Qui di seguito trovate il codice da copiare sul vostro TI99/4A oppure su un emulatore, noi suggeriamo Classic99.
Di seguito le istruzioni per caricare il listato sull’emulatore Classic99:
– Copiare il listato di cui sotto
– Avviare l’emulatore
– Da Cartridge -> Apps, selezionare Extended Basic
– Premere un tasto qualsiasi
– Dopodiché premere 1 per avviare il TI Basic
– Dal comando Edit, selezionare Paste XB per incollare il listato
– Digitare RUN per eseguire il codice
Buon divertimento!
Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘>’ e ‘<’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.
Listato: Gioco Spaziale – TI99/4A – TI Basic
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
110 REM
120 REM GIOCO SPAZIALE
130 REM
140 REM ---
150 CALL CLEAR
160 RANDOMIZE
170 CALL SCREEN(2)
180 FOR A=1 TO 16
190 CALL COLOR(A,2,2)
200 NEXT A
210 X(1)=1
220 X(2)=5
230 X(3)=9
240 X(4)=13
250 X(5)=17
260 V(1)=46
270 V(2)=60
280 V(3)=150
290 V(4)=81
300 V(5)=130
310 Z(1)=40
320 Z(2)=59
330 Z(3)=64
340 Z(4)=72
350 Z(5)=87
360 Z(6)=149
370 FOR D=96 TO 107
380 READ A$
390 CALL CHAR(D,A$)
400 NEXT D
410 FOR B=1 TO 31
420 READ C,E,F
430 CALL HCHAR(C,E,F)
440 NEXT B
450 DIM R(12)
460 FOR I=1 TO 12
470 READ R(I)
480 NEXT I
490 REM --- MOSTRI ---
500 CALL CHAR(46,"0081423C7E7E3C24")
510 CALL CHAR(60,"81423C7E7E3C2424")
520 CALL CHAR(81,"3C7EDBFFA5A5A581")
530 CALL CHAR(130,"3C7EDBFFA5A5A581")
540 CALL CHAR(150,"004224183C7E42C3")
550 REM ---STELLE ---
560 CALL CHAR(40,"004")
570 CALL CHAR(59,"0002")
580 CALL CHAR(64,"00000000000002")
590 CALL CHAR(72,"00000000000002")
600 CALL CHAR(87,"00000400004")
610 CALL CHAR(149,"000020000004")
620 REM --- VASCELLO ---
630 CALL CHAR(42,"000000FF")
640 CALL CHAR(152,"F0F8783F3878F8F")
650 CALL HCHAR(9,4,152)
660 REM --- CIELO ---
670 FOR PL=1 TO 50
680 LO=INT(RND*12)+1
690 LI=Z(INT(RND*6)+1)
700 CALL HCHAR(R(LO),INT(RND*32)+1,LI)
710 NEXT PL
720 REM --- MONTAGNE ---
730 CALL HCHAR(19,12,107)
740 CALL HCHAR(20,11,107,2)
750 CALL HCHAR(21,9,107,5)
760 CALL HCHAR(19,28,107)
770 CALL HCHAR(20,24,107,7)
780 CALL HCHAR(21,23,107,10)
790 CALL HCHAR(22,6,107,27)
800 CALL HCHAR(23,5,107,28)
810 CALL HCHAR(24,2,107,31)
820 CALL HCHAR(19,5,72)
830 CALL HCHAR(17,16,40)
840 CALL HCHAR(19,19,72)
850 CALL HCHAR(19,15,40)
860 CALL HCHAR(17,23,87)
870 CALL HCHAR(21,3,64)
880 CALL HCHAR(18,21,72)
890 CALL HCHAR(20,8,59)
900 CALL HCHAR(5,29,130)
910 REM --- MUSICA ---
920 CALL SOUND(300,277,10)
930 CALL SOUND(300,349,10)
940 CALL SOUND(300,349,10)
950 CALL SOUND(300,349,8)
960 CALL SOUND(300,370,10)
970 CALL SOUND(300,349,10)
980 CALL SOUND(300,277,10)
990 REM --- COLORI ---
1000 CALL COLOR(2,8,2)
1010 CALL COLOR(4,14,2)
1020 CALL COLOR(5,15,2)
1030 CALL COLOR(6,13,2)
1040 CALL COLOR(7,13,2)
1050 CALL COLOR(8,3,2)
1060 CALL COLOR(9,5,2)
1070 CALL COLOR(10,5,2)
1080 CALL COLOR(13,9,2)
1090 CALL COLOR(15,9,2)
1100 CALL COLOR(16,11,2)
1110 GOTO 1230
1120 REM ---
1130 DATA "0000000003071F7F","01071F7FFFFFFFFF","010307070F1F7FFF","00000001E3FFFFFF","000000001C3E7EFF"
1140 DATA "008080C0C0E0E0F0","F0F8F8FCFCFEFEFF","8080C0E0F0F8FCFF","8081C1C3E7FFFFFF","00000000C0F0FCFF"
1150 DATA "0103073FFFFFFFFF","FFFFFFFFFFFFFFFF"
1160 DATA 23,3,96,23,4,97,22,5,98,21,6,96,21,7,99,21,8
1170 DATA 97,20,9,96,20,10,97,19,11,98,18,12,100,19,13,101,20,13
1180 DATA 102,21,14,104,21,15,105,21,16,96,21,17,106,21,18,104,21,19,103,21,20,99,21
1190 DATA 21,99,21,22,106,20,23,98,19,24,96,19,25,99,19,26,105,19,27,98,18,28,100,19
1200 DATA 29,104,19,30,103,20,31,103,20,32,106
1210 DATA 1,3,4,6,7,9,10,12,13,15,16,17
1220 D=0
1230 B=5
1240 C=9
1250 A=130
1260 REM --- ESECUZIONE DEL GIOCO ---
1270 FOR K=1 TO 290
1280 D=D+1
1290 IF D=3 THEN 1490
1300 CALL JOYST(2,E,F)
1310 IF (F-C-3)*(F-C+21)*F=0 THEN 1350
1320 CALL HCHAR(C,4,32)
1330 C=C-F
1340 CALL HCHAR(C,4,152)
1350 CALL KEY(2,G,L)
1360 IF G<>18 THEN 1420
1370 CALL HCHAR(C,5,42,26)
1380 CALL HCHAR(C,5,32,26)
1390 O=O+1
1400 IF O>99 THEN 1570
1410 IF C=B THEN 1440
1420 NEXT K
1430 GOTO 1570
1440 CALL SOUND(300,-6,3)
1450 A1=A
1460 A=V(INT(RND*5)+1)
1470 IF A1=A THEN 1460
1480 DS=DS+1
1490 D=0
1500 CALL HCHAR(B,29,32)
1510 B1=B
1520 B=X(INT(RND*5)+1)
1530 IF B=B1 THEN 1520
1540 CALL HCHAR(B,29,A)
1550 GOTO 1300
1560 REM --- STAMPA DEI RISULTATI ---
1570 CALL CLEAR
1580 CALL SCREEN(2)
1590 FOR A=1 TO 16
1600 CALL COLOR(A,3,2)
1610 NEXT A
1620 CALL SCREEN(2)
1630 PRINT TAB(5);"RISULTATI < Q Q < "
1640 PRINT
1650 CALL HCHAR(23,7,42,9)
1660 PRINT
1670 PRINT
1680 PRINT "IN ";O;" COLPI DI LASER:"
1690 PRINT
1700 PRINT "AVETE UCCISO ";DS;" MOSTRI"
1710 PRINT
1720 TR=INT(100/(O/DS)+0.5)
1730 PRINT "-------------"
1740 PRINT
1750 PRINT " PUNTEGGIO";TR*DS*10;" PUNTI"
1760 FOR S=1 TO 1000
1770 NEXT S
1780 PRINT
1790 PRINT
1800 PRINT "VUOI GIOCARE ANCORA?"
1810 PRINT
1820 PRINT "PREMI PULSANTE FUOCO"
1830 CALL KEY(2,B,C)
1840 IF B<>18 THEN 1830
1850 RESTORE
1860 O=0
1870 DS=0
1880 GOTO 150
