Back to Atari BASIC - Esperimenti semplici in Atari BASIC
Dopo aver visto dal vivo un paio di Atari 130XE in quel di Brusaporto e aver parlato dell'Atari BASIC con uno degli espositori... mi è venuta voglia di rispolverare il buon vecchio Beginner All-purpose Symbolic Instruction Code... su Atari 800XL emulato via Altirra 
Ho iniziato con un piccolo esperimento di listato semplice semplice per effetto audiovisivo assolutamente BASICo... ma tutto sommato non così disprezzabile se si tiene conto che si basa su 11 righe (numero indicativo, visto che, tra ottimizzazioni e accorpamenti, potrebbe essere tranquillamente ridotto).
Il listato è il seguente:
10 GRAPHICS 8+16
20 FOR A=0 TO 191 STEP 2
25 COLOR 1
30 PLOT 0,0: DRAWTO 319,A
35 SOUND 0,A,8,8
40 NEXT A
50 FOR B=319 TO 0 STEP -2
60 PLOT 0,0: DRAWTO B,191
64 C=B-64: IF C=-1 THEN GOTO 10
66 SOUND 0,C,8,8
70 NEXT B
Note:
- GRAPHICS 8+16 seleziona la modalità grafica 320X192 in monocromia; il "+16" abilità lo "schermo pieno", ovvero deseleziona la coabitazione di default tra finestra grafica e fondo pagina con righe di testo
- PLOT e DRAWTO servono a tracciare delle righe tra due punti individuati da coordinate
- SOUND: genera un suono "governato" da 4 parametri: canale (0,1,2 o 3), altezza (da 0 a 255), distorsione (alcuni parametri prefissati, con 10 da utilizzare per il suono non distorto) e volume (da 0 -silenzio- a 16).
NOTA 1: se il massimo valore raggiungible da A (191) non comporta problemi per il SOUND della riga 35, il max di B (319) richiede viceversa la correzione e il controllo della riga 64 per essere usato dal SOUND della riga 66.
NOTA 2: il listato che si intravede all'inizio del video (registrato ieri con Altirra 2.60) presenta un inutile riga in più, vale a dire la 65, che avevo dimenticato di eliminare (sono parecchio ma parecchio arrugginito sul fronte Atari BASIC -e già quando ero 14enne non è che potessi dire di padroneggiarlo, sia pur nelle sole funzioni più elementari, anzi...-).
Ho iniziato con un piccolo esperimento di listato semplice semplice per effetto audiovisivo assolutamente BASICo... ma tutto sommato non così disprezzabile se si tiene conto che si basa su 11 righe (numero indicativo, visto che, tra ottimizzazioni e accorpamenti, potrebbe essere tranquillamente ridotto).
Il listato è il seguente:
10 GRAPHICS 8+16
20 FOR A=0 TO 191 STEP 2
25 COLOR 1
30 PLOT 0,0: DRAWTO 319,A
35 SOUND 0,A,8,8
40 NEXT A
50 FOR B=319 TO 0 STEP -2
60 PLOT 0,0: DRAWTO B,191
64 C=B-64: IF C=-1 THEN GOTO 10
66 SOUND 0,C,8,8
70 NEXT B
Note:
- GRAPHICS 8+16 seleziona la modalità grafica 320X192 in monocromia; il "+16" abilità lo "schermo pieno", ovvero deseleziona la coabitazione di default tra finestra grafica e fondo pagina con righe di testo
- PLOT e DRAWTO servono a tracciare delle righe tra due punti individuati da coordinate
- SOUND: genera un suono "governato" da 4 parametri: canale (0,1,2 o 3), altezza (da 0 a 255), distorsione (alcuni parametri prefissati, con 10 da utilizzare per il suono non distorto) e volume (da 0 -silenzio- a 16).
NOTA 1: se il massimo valore raggiungible da A (191) non comporta problemi per il SOUND della riga 35, il max di B (319) richiede viceversa la correzione e il controllo della riga 64 per essere usato dal SOUND della riga 66.
NOTA 2: il listato che si intravede all'inizio del video (registrato ieri con Altirra 2.60) presenta un inutile riga in più, vale a dire la 65, che avevo dimenticato di eliminare (sono parecchio ma parecchio arrugginito sul fronte Atari BASIC -e già quando ero 14enne non è che potessi dire di padroneggiarlo, sia pur nelle sole funzioni più elementari, anzi...-).