Boxes & Squares Demo – Atari 8bit – Basic

Rivista: A.N.A.L.O.G. – Anno: 1981 – Trascrizione: Fiorentini Francesco

Primo Maggio piovoso e uggioso, almeno dalle parti di chi scrive, quindi per ammazzare il tempo mi sono messo a cercare alcuni listati sulle riviste a mia disposizione. Questo listato é decisamente breve ed anche il risultato non é che sia poi niente di che, ma ho comunque voluto aggiungerlo alla nostra collezione.

Un semplicissimo demo per i nostri amati Atari 400/800.

Listato pubblicato sulla rivista A.N.A.L.O.G. di Marzo/Aprile 1981, rivista edita da MICHAEL J. DESCHENES LEE PAPPAS.

Titolo: Boxes & Squares Demo
Piattaforma: Atari 8bit
Linguaggio: Basic
Versione originale: N/A
Pubblicazione: A.N.A.L.O.G.
Numero: 2 – Marzo/Aprile
Anno: 1981
Trascrizione: Francesco Fiorentini
Anno: 2024
Download: N/A
Note: Versione funzionante su tutte le macchine Atari 8bit.

Istruzioni
Premete un tasto qualsiasi per interrompere l’esecuzione del programma. Dopo la pressione del tasto dovrete attendete qualche secondo, il tempo che i cicli si completino, prima di ritrovarvi al prompt.

.

Qui di seguito trovate il codice da copiare sul vostro computer Atari ad 8 bit.
Il codice é pronto per essere copiato su un emulatore, consigliamo Altirra.

Di seguito riportiamo le istruzioni per copiare il listato sull’emulatore Altirra ed eseguire il gioco:
– lanciare l’emulatore Altirra
– avviare il Basic: File -> Boot Image... e selezionare ATARIBAS.ROM (se non l’avete potete cercarla qui)
– copiate il codice sotto riportato
– incollatelo nell’emulatore tramite la funzione: View -> Paste Text
– per velocizzare l’operazione di copia del codice potete usare la funzione: System -> Warp Speed
– terminata l’operazione di copia (disattivate il Warp nel caso, System -> Warp Speed)
– digitare RUN
Buon divertimento!

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.

Listato:  Boxes & Squares Demo – Atari 8bit – Basic

1
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
10 GOSUB 400

20 GRAPHICS 23

30 FOR I=1 TO 32

40 X1=INT(RND(0)*160)

50 Y1=INT(RND(0)*96)

60 X2=INT(RND(0)*160)

70 Y2=INT(RND(0)*96)

80 IF X1=X2 OR Y1=Y2 THEN 40

90 COLOR INT(RND(0)*3+1)

100 PLOT X1,Y1

110 DRAWTO X1,Y2:GOSUB 400

120 DRAWTO X2,Y2:GOSUB 400

130 DRAWTO X2,Y1:GOSUB 400

140 DRAWTO X1,Y1:GOSUB 400

150 NEXT I

160 GOSUB 370

170 TRAP 330:J=0

180 GRAPHICS 7+16

190 X1=INT(RND(0)*80)

200 Y1=INT(RND(0)*48)

210 X2=X1+INT(RND(0)*80)

220 Y2=Y1+INT(RND(0)*48)

230 IF X1=X2 OR Y1=Y2 THEN 40

240 COLOR INT(RND(0)*3+1)

250 PLOT X1,Y1

260 DRAWTO X1,Y2:GOSUB 400

270 DRAWTO X2,Y2:GOSUB 400

280 DRAWTO X2,Y1:GOSUB 400

290 DRAWTO X1,Y1:GOSUB 400

300 X1=X1+2:Y1=Y1+2

310 X2=X2-1:Y2=Y2-1

320 GOTO 240

330 J=J+1:TRAP 330

340 GOSUB 370

350 IF J<4 THEN 180

360 GOTO 20

370 FOR K=1 TO 500

380 IF PEEK(764)<>255 THEN GRAPHICS 0:END

390 RETURN

400 T=10:V=RND(1)*10

410 FOR X=0 TO V STEP 10

420 R=R+1:IF R=4 THEN R=0

430 SOUND R,V,T,14:NEXT X

440 RETURN