Trains – BBC Micro – Basic

Rivista: Acorn User – Numero: 1 – Anno: 1982 – Trascrizione: Francesco Fiorentini

Esordio del BBC Micro nella rubrica RetroLiPS. E decisamente un esordio in pompa magna…

Quello che andiamo a presentarvi é un veloce listato, estratto dalla rivista inglese Acorn User, numero 1 del 1982, che fará emettere al vostro BBC Micro una serie di suoni simili ad una locomotiva a vapore. Oppure all’emulatore che deciderete di usare (noi suggeriamo BeebEm). 🙂

Titolo: Trains
Piattaforma: BBC Micro
Linguaggio: Basic
Versione originale: Joe Telford and John Coll
Pubblicazione: Acorn User – numero 1
Anno: 1982
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A

Come sempre, qui di seguito trovate il codice ottimizzato per essere copiato direttamente sul vostro BBC Micro oppure su un emulatore. Il nostro consiglio é quello di utilizzare BeebEm.

Una volta avviato BeebEm non dovrete far altro che copiare il listato sottostante ed incollarlo sull’emulatore tramite: Edit -> Paste. Dopodiché digitate RUN ed il gioco é fatto!

BONUS: dopo questo listato abbiamo deciso di aggiungerne un altro paio che trovate nel riquadro sottostante.

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: Trains – BBC Micro – 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
10 REM TRAINS

20 REM START UP

30 FOR L = 20 TO 2 STEP -1

40 SOUND 0,-15,100,L

50 SOUND 0,0,100,L/2

60 NEXT

70 REM TRAVEL

80 FOR L = 1 TO 40

90 SOUND 0,-15,100,2

100 SOUND 0,0,100,2

110 NEXT

120 REM WHISTLE

130 SOUND 1,-15, 150,20

140 SOUND 1,0,100,10

150 SOUND 1,-15,150,20

160 REM CONTINUE TRAVELING

170 FOR L = 1 TO 40

180 SOUND 0,-15,100,2

190 SOUND 0,0,100,2

200 NEXT

210 REM SLOW DOWN

220 FOR L = 2 TO 20

230 SOUND 0,-15,100,L

240 SOUND 0,0,100,L/2

250 NEXT

Listato:  Star Trek Red Alert e Sirens – BBC Micro – Basic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
10 REM STAR TREK RED ALERT

20 FOR L = 1 TO 10

30 FOR P = 50 TO 150

40 SOUND 17, -15,P,2

50 NEXT

60 NEXT



10 REM SIRENS

20 FOR L = 1 TO 10

30 FOR P = 50 TO 100

40 SOUND 17,-15,P, 2

50 SOUND 17,-15,P, 2

60 NEXT

70 FOR P = 100 TO 50 STEP-1

80 SOUND 17,-15,P, 2

90 SOUND 17,-15,P, 2

100 NEXT

110 NEXT