Fair Enough – BBC Micro – Basic

Rivista: Acorn User – Numero: 2 – 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 2 del 1982, che fará suonare un motivetto medievale al vostro BBC Micro… Oppure all’emulatore che deciderete di usare (noi suggeriamo BeebEm). 🙂

Titolo: Fair enoug
Piattaforma: BBC Micro
Linguaggio: Basic
Versione originale: Joe Telford
Pubblicazione: Acorn User – numero 2
Anno: 1982
Trascrizione: Francesco Fiorentini
Anno: 2024
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!

Se volete variare la velocitá di esecuzione del brano, potete intervenire sulla variabile tempo (linea 170). Abbassandone il valore il brano verrá velocizzato, mentre aumentandolo la velocitá si ridurrá drasticamente.

BONUS: dopo questo listato abbiamo deciso di aggiungerne un altro. Stesso motivetto ma con qualche nota in piú.

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:  Fair Enough – 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
10 REM FAIR ENOUGH 

20 :

30 REM CONVERT TUNE TO 

40 REM PITCH AND TIME 

50 REM NUMBER VALUES 

60 DATA 69,16,69,8,97,16,97,8,77,12 

70 DATA 81,4,77,8,69,16 

80 DATA 97,8,109,8,117,16,109,8,97,8 

90 DATA 105,8,89,8,97,16 

100 DATA 117,8,117,16,117,8,109,16 

110 DATA 97,4,97,8,89,8,81,8,77,8

120 DATA 61,16,69,16,97,8,89,16 

130 DATA 81,8,77,8,69,8,61,8,69,16 

140 REMEMBER TO MARK THE END WITH -1 

150 DATA -1,-1 

160 REM SET TEMPO 

170 tempo=.75

180 REM NOW DO I LOOP PER VERSE.

190 FOR verse = 1 TO 4 

200 REM READ EACH PAIR OF NUMBERS 

210 READ note,duration 

220 REM IF AT THE END 

230 REM SKIP TO NEXT VERSE 

240 IF note=-1 THEN 360 

250 REM OTHERWISE PLAY NOTE FOR TIME 

260 SOUND 1,-15,note,duration*tempo 

270 SOUND 2,-15,note-48,duration*tempo 

280 SOUND 7,-15,note+96,duration*tempo 

290 SOUND 1,0,note,2 

300 SOUND 2,0,note,2 

310 SOUND 3,0,note,2 

320 REM GO BACK FOR NEXT PAIR

330 GOTO 210 

340 REM AT END OF VERSE 

350 REM SO REST FOR 1 SECOND 

360 SOUND 1,0,0,20 

370 SOUND 2,0,0,20 

380 SOUND 3,0,0,20 

390 REM RESET DATA POINTER TO 

400 REM FIRST PAIR OF NOTES 

410 RESTORE 

420 REM AND START NEXT VERSE 

430 NEXT verse

Listato:  Fair Enough 2 – 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
26
27
60 DATA -13,69,16,-12,69,8,-13,97,16 

65 DATA -12,97,8,-13,77,12 

70 DATA -12,81,4,-12,77,8,-13,69,16 

75 DATA 0,0,8

80 DATA -13,97,8,-12,109,8,-13,117,16 

85 DATA -12,109,8,-13,97,12 

90 DATA -12,105,4,-12,89,8,-13,97,16 

95 DATA 0,0,8 

100 DATA -12,117,8,-13,117,16,-12,117,8

105 DATA -13,109,16 

110 DATA -12,97,4,-13,97,12,-12,89,4 

115 DATA -12,81,8,-13,77,8

120 DATA -12,61,16,0,0,8,-13,69,16 

125 DATA -12,97,8,-13,89,16 

130 DATA -12,81,8,-13,77,12,-12,69,4 

135 DATA -13,61,8,-13,69,16 

150 DATA -1,-1,-1 

170 tempo=.75

190 FOR verse = 1 TO 4 

210 READ volume,note,duration 

240 IF note =-1 THEN 360

260 SOUND 1,volume,note,duration*tempo 

290 SOUND 1,0,note,2 

330 GOTO 210 

360 SOUND 1,0,0,20 

410 RESTORE 

430 NEXT verse