Rivista: Acorn User – Numero: 9 – Anno: 1983 – Trascrizione: Francesco Fiorentini
Esordio del BBC Micro nella rubrica RetroLiPS. E decisamente un esordio in pompa magna…
Quello che andiamo a presentarvi é un’altro bel listato estratto dalla rivista inglese Acorn User, numero 9 di Aprile 1983, che sono sicuro apprezzerete.
Un simpatico programmino per BBC Micro che ne evidenzia le capacita’ grafiche e la versatilita’.
Da studiare per la sua semplicita’ ma dall’impatto visivo decisamente accattivante.
Titolo: Rose bouquet
Piattaforma: BBC Micro
Linguaggio: Basic
Versione originale: Heinz Eipel
Pubblicazione: Acorn User – numero 9
Anno: 1983 – Aprile
Trascrizione: Francesco Fiorentini
Anno: 2026
Download: N/A
Istruzioni:
Lanciate il programma e lasciate che il vostro BBC Micro vi dedichi la creazione di un mazzo di rose!
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!
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: Rose bouquet – BBC Micro – Basic
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
20 CLS
30 MODE 1
40 VDU 19,0,0,0,0,0
50 VDU 19,1,1,0,0,0
60 VDU 19,2,5,0,0,0
70 VDU 19,3,3,0,0,0
80 FOR A=1 TO 12
90 GCOL 3,RND(3)
100 MOVE 0,0
110 D=RND(800)+250
120 E=RND(800)+150
130 MOVE D,E
140 F=RND(200)+300
150 FOR B=1 TO F STEP 4
160 M=(B/(RND(10)+10))
170 X=M*5*SIN(B/16)+D
180 Y=M*5*COS(B/16)+E
190 PLOT 85,X,Y
200 NEXT B
210 NEXT A
220 GOTO 20
