Rivista: Your Computer – Anno: 1985, Marzo – Numero 1 – Trascrizione: Francesco Fiorentini
Finalmente anche l’Apple II fa il suo ingresso in RetroLiPS, con un listato ripreso dalla rivista australiana Your Computer intitolato Reactor Chase.
Lo scopo di questo gioco è disattivare tutti i reattori presenti sullo schermo entrando nella loro base ed uscendo dalla parte superiore.
Attenzione: se tocchi il bordo o la tua scia (entrambi di colore verde chiaro) morirai e condannerai circa altre 100.000 persone a una morte lenta per ogni reattore che lasci attivo.
Se riesci a superare il primo schermo, passerai allo schermo 2 che ha cinque reattori, e poi allo schermo 3 che ne ha sette.
Se riesci a disattivare tutti i 15 reattori, ti verrà assegnata la “Stella d’oro” e godrai dell’immensa gratitudine della popolazione.
Attenzione: scegli con attenzione il tuo livello – “Esperto” è davvero molto veloce.
Titolo: Reactor Chase
Piattaforma: Apple II
Linguaggio: Basic
Versione originale: R. Woodhouse
Pubblicazione: Your Computer
Anno: 1985, Marzo
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A
Note: N/A
Istruzioni…
Usate il tasti:
A e Z per andare rispettivamente su’ e giu’
Freccia destra e freccia sinistra per spostarvi in orizzontale.
Qui di seguito trovate il codice da copiare sul vostro TI99/4A oppure su un emulatore, noi suggeriamo AppleWin.
Di seguito le istruzioni per caricare il listato sull’emulatore AppleWin:
– Copiare il listato di cui sotto
– Avviare l’emulatore
– Premere SHIFT + INS per incollare il listato sull’emulatore
– 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: Reactor Chase – Apple II – 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
2 REM * *
3 REM * REACTOR CHASE *
4 REM * *
5 REM * APPLE 11 48K *
6 REM * R.WOODHOUSE *
7 REM * *
8 REM ********************
9 HOME
10 VTAB 12: HTAB 12: PRINT " * REACTOR CHASE *"
11 FOR W = 1 TO 3000: NEXT W
12 HOME
13 VTAB 12: PRINT " DO YOU WANT INSTRUCTIONS? (Y/N)"
14 PRINT : INPUT " > "; A$
15 IF A$ < "Y" THEN 17
16 GOSUB 6000
17 GOSUB 6500
20 LEVEL = 1
30 GR : P = 3: SC = 0: HOME
35 Q = RND (1)
40 A = 0:B = 20
50 GOSUB 5000
60 VTAB 22: HTAB 22: PRINT "SCORE: "
70 VTAB 22: HTAB 5: PRINT "LEVEL: "; LEVEL
90 COLOR= 12
100 HLIN 0,39 AT 0
110 HLIN 0,39 AT 39
120 VLIN 0,39 AT 0
130 HLIN 7,12 AT 20
140 HLIN 27,32 AT 20
150 HLIN 17,21 AT 14
170 HLIN 17,21 AT 24
1000 X = PEEK (-16384)
1010 POKE -16368,0
1020 IF X = 193 THEN 3000
1030 IF X = 218 THEN 4000
1040 PLOT A,B
1050 A = A + 1
1060 FOR T = 1 TO Z: NEXT
1070 IF SCRN(A,B) = 12 THEN GOTO 10000
1075 IF SC = P THEN GOTO 7000
1085 HTAB 30: VTAB 22: PRINT SC
1090 GOTO 1000
2000 X = PEEK (-16384)
2010 POKE -16368,0
2020 IF X = 193 THEN 3000
2030 IF X = 218 THEN 4000
2040 PLOT A,B
2050 A = A - 1
2060 FOR T = 1 TO Z: NEXT
2070 IF SCRN(A,B) = 12 THEN GOTO 10000
2075 IF SC = P THEN 7000
2085 HTAB 30: VTAB 22: PRINT SC
2090 GOTO 2000
3000 X = PEEK (-16384)
3010 POKE -16368,0
3020 IF X = 149 THEN 1000
3030 IF X = 136 THEN 2000
3040 PLOT A,B
3050 B = B - 1
3060 FOR T = 1 TO Z: NEXT
3070 IF SCRN(A,B) = 12 THEN GOTO 10000
3075 IF SC = P THEN GOTO 7000
3080 IF SCRN(A,B) = 13 AND SCRN(A,B - 1) = 9 THEN SC = SC + 1: PRINT CHR$(7)
3085 HTAB 30: VTAB 22: PRINT SC
3090 GOTO 3000
4000 X = PEEK (-16384)
4010 POKE -16368,0
4020 IF X = 149 THEN 1000
4030 IF X = 136 THEN 2000
4040 PLOT A,B
4050 B = B + 1
4060 FOR T = 1 TO Z: NEXT
4065 IF SCRN(A,B) = 12 THEN GOTO 10000
4075 IF SC = P THEN 7000
4085 HTAB 30: VTAB 22: PRINT SC
4090 GOTO 4000
5000 COLOR= 1
5010 D = 7:E = 32:F = 17:G = 10:H = 27:I = 32
5020 J = 7:K = 10:L = 27:M = 10
5030 N = 17:O = 32:S = 17:T = 21
5040 VLIN E - 3,E AT D + 1
5050 VLIN E - 3,E AT D + 3
5060 VLIN E - 4,E - 3 AT D + 2
5070 PLOT D,E: PLOT D + 4,E
5080 COLOR= 13: PLOT D + 2,E - 2: COLOR= 9: PLOT D + 2,E - 3
5090 COLOR= 1
5100 VLIN G - 3,G AT F + 1
5110 VLIN G - 3,G AT F + 3
5120 VLIN G - 4,G - 3 AT F + 2
5130 PLOT F,G: PLOT F + 4,G
5140 COLOR= 13: PLOT F + 2,G - 2: COLOR= 9: PLOT F + 2,G - 3
5190 COLOR= 1
5200 VLIN I - 3,I AT H + 1
5210 VLIN I - 3,I AT H + 3
5220 VLIN I - 4,I - 3 AT H + 2
5230 PLOT H,I: PLOT H + 4,I
5240 COLOR= 13: PLOT H + 2,I - 2: COLOR= 9: PLOT H + 2,I - 3
5280 IF SC > 2 THEN 5290
5285 RETURN
5290 COLOR= 1
5300 VLIN K - 3,K AT J + 1
5310 VLIN K - 3,K AT J + 3
5320 VLIN K - 4,K - 3 AT J + 2
5330 PLOT J,K: PLOT J + 4,K
5340 COLOR= 13: PLOT J + 2,K - 2: COLOR= 9: PLOT J + 2,K - 3
5390 COLOR= 1
5400 VLIN M - 3,M AT L + 1
5410 VLIN M - 3,M AT L + 3
5420 VLIN M - 4,M - 3 AT L + 2
5430 PLOT L,M: PLOT L + 4,M
5440 COLOR= 13: PLOT L + 2,M - 2: COLOR= 9: PLOT L + 2,M - 3
5480 IF SC > 7 THEN 5490
5485 RETURN
5490 COLOR= 1
5500 VLIN O - 3,O AT N + 1
5510 VLIN O - 3,O AT N + 3
5520 VLIN O - 4,O - 3 AT N + 2
5530 PLOT N,O: PLOT N + 4,O
5540 COLOR= 13: PLOT N + 2,O - 2: COLOR= 9: PLOT N + 2,O - 3
5590 COLOR= 1
5600 VLIN T - 3,T AT S + 1
5610 VLIN T - 3,T AT S + 3
5620 VLIN T - 4,T - 3 AT S + 2
5630 PLOT S,T: PLOT S + 4,T
5640 COLOR= 13: PLOT S + 2,T - 2: COLOR= 9: PLOT S + 2,T - 3
5999 RETURN
6000 HOME : VTAB 3: PRINT "THE OBJECT OF THIS GAME IS TO DE-ACTIVATE ALL THE ATOMIC REACTORS ON"
6010 PRINT "THE SCREEN BY ENTERING THEM AT THE BOTTOM AND LEAVING THEM AT THE TOP, BEFORE THEY EXPLODE."
6015 PRINT
6020 PRINT "YOU MUST NOT TOUCH THE BORDER, THE BARRIERS OR YOUR OWN TRAIL (ALL COLOURED LIGHT GREEN) OR YOU WILL DIE OF RADIATION POISONING AND THE REACTORS WILL MELT DOWN, KILLING THOUSANDS OF PEOPLE!!!!!"
6030 PRINT : PRINT "IF YOU CLEAR ALL REACTORS ON THE FIRST SCREEN YOU WILL BE TAKEN TO THE NEXT LEVEL WHICH IS HARDER"
6040 PRINT : PRINT "USE THE 'A' AND 'Z' KEYS FOR UP AND DOWN MOVEMENT AND THE '<-' AND '->' KEYS FOR LEFT AND RIGHT."
6050 PRINT : PRINT : PRINT "PRESS <SPACE> WHEN READY TO START"
6060 GET A$
6070 RETURN
6500 HOME : VTAB 12: HTAB 3: PRINT "ENTER YOUR RATING"
6510 HTAB 22: PRINT "(B)EGINNER"
6520 HTAB 22: PRINT "(A)VERAGE"
6530 HTAB 22: PRINT "(E)XPERT"
6540 GET A$
6550 IF A$ = "B" THEN Z = 400
6560 IF A$ = "A" THEN Z = 200
6570 IF A$ = "E" THEN Z = 100
6580 RETURN
7000 TEXT : HOME
7010 IF SC > 8 THEN 7100
7020 P = B: LEVEL = 2
7030 VTAB 12: HTAB 15: PRINT "PLEASE WAIT"
7040 FOR R = 1 TO 1500: NEXT R: HOME
7050 GR
7060 GOTO 40
7100 TEXT : HOME
7110 IF SC > 14 THEN 8000
7120 P = 15: LEVEL = 3
7130 VTAB 12: HTAB 15: PRINT "PLEASE WAIT"
7140 FOR R = 1 TO 2000: NEXT R: HOME
7150 GR
7160 GOTO 40
8000 TEXT : HOME : VTAB 12: HTAB 12: PRINT "CONGRATULATIONS"
8010 PRINT : PRINT "YOU HAVE SAVED "; INT ((15 + Q) * 10000); " PEOPLE"
8020 PRINT : PRINT "YOU WILL BE AWARDED THE GOLD STAR"
8030 PRINT : HTAB 10: PRINT "FOR EXCELLENCE"
8040 GOTO 8040
10000 FOR A = 1 TO 5
10001 HGR : HCOLOR= 5: POKE 28, PEEK (228): CALL 62454
10002 FOR X = 1 TO 30: NEXT X: PRINT CHR$(7)
10003 HGR2
10004 NEXT A
10005 TEXT : HOME : PRINT : PRINT " YOU BLEW IT!!!!!"
10010 PRINT : PRINT "BECAUSE OF YOU "; INT ((15 - SC) + Q) * 100000; " PEOPLE DIED"
10020 PRINT : PRINT "DO YOU WISH TO TRY AND DO BETTER"
10030 PRINT : PRINT " NEXT TIME"
10040 PRINT : INPUT ">: "; A$
10050 IF A$ = "Y" THEN 20
