{{htmlmetatags>metatag-robots=()
metatag-title=(VARI ALTRI CONTRIBUTI CHE MONDO MERAVIGLIOSO | ugBASIC User Manual)
metatag-keywords=(ugBASIC,Commodore 64,Commodore PLUS/4,ZX Spectrum)
metatag-description=(An isomorphic language for retrocomputers)
metatag-media-og:image=(:ugbasic:logo-ugbasic-fb.png)
metatag-og:title=(VARI ALTRI CONTRIBUTI CHE MONDO MERAVIGLIOSO | ugBASIC User Manual) 
metatag-og:description=(An isomorphic language for retrocomputers)
}}

====== ugBASIC Manuale Utente ======

===== VARI ALTRI CONTRIBUTI CHE MONDO MERAVIGLIOSO =====

==== SCOPO ====
 Alcuni di voi giovani mi hanno detto: ehi Pops, cosa intendi con 'Che mondo meraviglioso'? che ne dici di tutte quelle guerre ovunque? le chiami meravigliose? e che dire della fame e dell'inquinamento? neanche questo è così meraviglioso!  Beh, che ne dici di ascoltare il vecchio Pops per un minuto. Mi sembra che non sia il mondo a essere così brutto ma cosa gli stiamo facendo.  - Louis Armstrong (August 4, 1901 -- July 6, 1971), chiamato anche Satchmo o Pops  

==== SORGENTE ====
   
   DEFINE STRING SPACE 512
   DEFINE STRING COUNT 64
   DEFINE TASK COUNT 2
   
   TILEMAP ENABLE(16)
   
   COLOR BORDER WHITE
   
   CLS WHITE
   
   GLOBAL soundtrack
   
   PROCEDURE sountrackLoad ON VIC20
   
   	soundtrack := LOAD MUSIC("what_a_wonderful_world.mid")
   
   	MUSIC soundtrack
   
   END PROC
   
   PARALLEL PROCEDURE rotatingEarth ON VIC20
   
   	earth := LOAD IMAGES("earth_128x128_2colors.gif") FRAME SIZE AUTO
   
   	POSITIVE CONST centerX = ( SCREEN WIDTH - 128 ) \ #2
   	POSITIVE CONST frameMax = FRAMES(earth) - 1
   	
   	DIM frame AS BYTE
   	DIM t AS WORD
   	DIM delay AS WORD
   	
   	t = TIMER
   	delay = ( TICKS PER SECOND / 5 )
   	
   	DO
   	
   		WAIT WHILE ( TIMER - t ) < delay
   		
   		t = TIMER
   		
   		PUT IMAGE earth FRAME frame AT centerX, 0
   		ADD frame, 1, 0 TO frameMax
   		
   	LOOP
   
   END PROC
   
   PARALLEL PROCEDURE printLyrics ON VIC20
   
   	DIM line AS BYTE
   	DIM t AS WORD
   	DIM delay AS WORD
   	
   	t = TIMER
   	delay = 2 * TICKS PER SECOND
   	
   	DO
   
   		WAIT WHILE ( TIMER - t ) < delay
   
   		t = TIMER
   
   		LOCATE 0, SCREEN ROWS - 2
   		CLINE
   		LOCATE 0, SCREEN ROWS - 3
   		CLINE
   		
   		INK RED
   		
   		SELECT CASE line
   			CASE 0
   				CENTER "I see trees of green";
   			CASE 1			
   				CENTER "Red roses too";
   			CASE 2
   				CENTER "I see them bloom";
   			CASE 3
   				CENTER "For me and you";
   			CASE 4
   				CENTER "And I think to myself";
   			CASE 5
   				CENTER "What a wonderful world!";
   			CASE 7
   				CENTER "I see skies of blue";
   			CASE 8
   				CENTER "And clouds of white";
   			CASE 9
   				CENTER "The bright blessed day";
   			CASE 10
   				CENTER "The dark sacred night";
   			CASE 11
   				CENTER "And I think to myself";
   			CASE 12
   				CENTER "What a wonderful world";
   			CASE 13
   				CENTER "The colors of the rainbow";
   			CASE 14
   				CENTER "So pretty in the sky";
   			CASE 15
   				CENTER "Are also on the faces";
   			CASE 16
   				CENTER "Of people going by";
   			CASE 17
   				CENTER "I see friends shaking hands";
   			CASE 18
   				CENTER "Saying, How do you do?";
   			CASE 19
   				CENTER "They're really saying";
   			CASE 20
   				CENTER "I love you...";
   			CASE 21
   				CENTER "I hear babies cry";
   			CASE 22
   				CENTER "I watch them grow";
   			CASE 23
   				CENTER "They'll learn much more";
   			CASE 24
   				CENTER "Than I'll ever know";
   			CASE 26
   				CENTER "And I think to myself";
   			CASE 27
   				CENTER "What a wonderful world";
   			CASE 28
   				CENTER "Yes, I think to myself";
   			CASE 30
   				CENTER "What a wonderful world";
   			CASE 32
   				CENTER "Ooh, yes...";
   		ENDSELECT
   		
   		INC line
   		
   	LOOP
   
   END PROC
   
   sountrackLoad[] ON VIC20
   
   SPAWN rotatingEarth ON VIC20
   SPAWN printLyrics ON VIC20
   


==== FILE ====
  * ''[[https://github.com/spotlessmind1975/ugbasic/tree/main/examples/contrib_what_a_wonderful_world.bas|contrib_what_a_wonderful_world.bas]]''
==== COME ESEGUIRLO ====
=== Atari 400/800 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Altirra, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.atari contrib_what_a_wonderful_world.bas -o example.xex
   altirra example.xex
   
   # Windows 
   ugbc.atari.exe contrib_what_a_wonderful_world.bas -o example.xex
   altirra example.xex
=== Atari 600XL/800XL/1200XL/XG(SE) ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Altirra, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.atarixl contrib_what_a_wonderful_world.bas -o example.xex
   altirra example.xex
   
   # Windows 
   ugbc.atarixl.exe contrib_what_a_wonderful_world.bas -o example.xex
   altirra example.xex
=== Commodore 64 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.c64 contrib_what_a_wonderful_world.bas -o example.prg
   x64sc example.prg
   
   # Windows 
   ugbc.c64.exe contrib_what_a_wonderful_world.bas -o example.prg
   x64sc example.prg
=== Commodore 64+REU ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.c64reu contrib_what_a_wonderful_world.bas -o example.prg
   x64sc -reu example.prg
   
   # Windows 
   ugbc.c64reu.exe contrib_what_a_wonderful_world.bas -o example.prg
   x64sc -reu example.prg
=== Commodore PLUS/4 ===
== Usando YAPE ==
Per poter eseguire l'esempio, è necessario disporre dell'emulatore YAPE, e in particolare che l'eseguibile ''yape'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.plus4 contrib_what_a_wonderful_world.bas -o example.prg
   yape example.prg
   
   # Windows 
   ugbc.plus4.exe contrib_what_a_wonderful_world.bas -o example.prg
   yape example.prg
== Usando VICE ==
Per poter eseguire l'esempio, è necessario disporre dell'emulatore VICE, e in particolare che l'eseguibile ''xplus4'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.plus4 contrib_what_a_wonderful_world.bas -o example.prg
   xplus4 example.prg
   
   # Windows 
   ugbc.plus4.exe contrib_what_a_wonderful_world.bas -o example.prg
   xplus4 example.prg
=== Dragon 32 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XROAR, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.d32 contrib_what_a_wonderful_world.bas -o example.bin
   xroar -rompath (percorso ROM) example.bin
   
   # Windows 
   ugbc.d32.exe contrib_what_a_wonderful_world.bas -o example.bin
   xroar.exe -rompath (percorso ROM) example.bin
=== Dragon 64 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XROAR, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.d64 contrib_what_a_wonderful_world.bas -o example.bin
   xroar -rompath (percorso ROM) example.bin
   
   # Windows 
   ugbc.d64.exe contrib_what_a_wonderful_world.bas -o example.bin
   xroar.exe -rompath (percorso ROM) example.bin
=== PC128 Olivetti Prodest ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore DCMOTO, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi i seguenti comandi:

   # Linux 
   ugbc.pc128op contrib_what_a_wonderful_world.bas -o example.bin
   dcmoto example.bin
   (scegliere example.bin)
   (scegliere BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
   
   # Windows 
   ugbc.pc128op.exe contrib_what_a_wonderful_world.bas -o example.bin
   dcmoto example.bin
   (scegliere BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Thomson MO5 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore DCMOTO, e in particolare che l'eseguibile ''x64sc'' sia accessibile.

Digitare quindi i seguenti comandi:

   # Linux 
   ugbc.mo5 contrib_what_a_wonderful_world.bas -o example.bin
   dcmoto example.bin
   (scegliere example.bin)
   (scegliere BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
   
   # Windows 
   ugbc.mo5.exe contrib_what_a_wonderful_world.bas -o example.bin
   dcmoto example.bin
   (scegliere BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Commodore VIC-20 ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore XEMU, e in particolare che l'eseguibile ''xmega65'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.vic20 contrib_what_a_wonderful_world.bas -o example.prg
   xvic --memory 24k example.prg
   
   # Windows 
   ugbc.vic20.exe contrib_what_a_wonderful_world.bas -o example.prg
   xvic --memory 24k example.prg
=== ZX Spectrum ===
Per poter eseguire l'esempio, è necessario disporre dell'emulatore Speccy, e in particolare che l'eseguibile ''speccy'' sia accessibile.

Digitare quindi il seguente comando:

   # Linux 
   ugbc.zx contrib_what_a_wonderful_world.bas -o example.tap
   Speccy example.tap
   
   # Windows 
   ugbc.zx.exe contrib_what_a_wonderful_world.bas -o example.tap
   Speccy example.tap
=== ColecoVision ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore openMsx oppure il BlueMSX, e in particolare che il suo eseguibile sia accessibile.

Dopo di che, digita questo comando sulla linea di comando:

== openMSX ==
   # Linux 
   ugbc.coleco contrib_what_a_wonderful_world.bas -o example.rom
   openmsx -machine \"COL - ColecoVision\" -cart example.rom
   
   # Windows 
   ugbc.coleco.exe contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx -machine \"COL - ColecoVision\" example.rom
== blueMSX ==
   # Linux 
   ugbc.coleco contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx /machine \"COL - ColecoVision\" /rom1 example.rom
   
   # Windows 
   ugbc.coleco.exe contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx  /machine \"COL - ColecoVision\" /rom1 example.rom
=== SEGA SC-3000 ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore BlueMSX, e in particolare che il suo eseguibile sia accessibile.

Dopo di che, digita questo comando sulla linea di comando:

   # Linux 
   ugbc.sc3000 contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx /machine \"SEGA - SC-3000\" /rom1 example.rom
   
   # Windows 
   ugbc.sc3000.exe contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx  /machine \"SEGA - SC-3000\" /rom1 example.rom
=== SEGA SG-1000 ===
Per compilare e mandare in esecuzione l'esempio, hai bisogno di avere l'emulatore BlueMSX, e in particolare che il suo eseguibile sia accessibile.

Dopo di che, digita questo comando sulla linea di comando:

   # Linux 
   ugbc.sg1000 contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx /machine \"SEGA - SG-1000\" /rom1 example.rom
   
   # Windows 
   ugbc.sg1000.exe contrib_what_a_wonderful_world.bas -o example.rom
   bluemsx  /machine \"SEGA - SG-1000\" /rom1 example.rom
==== PROBLEMI? ====
Se hai trovato un problema nel cercare di eseguire questo esempio, se pensi che ci sia un bug o, più semplicemente, vorresti che fosse migliorato, [[https://github.com/spotlessmind1975/ugbasic/issues/new?title=MIGLIORARE VARI ALTRI CONTRIBUTI CHE MONDO MERAVIGLIOSO|apri una segnalazione]] su GitHub per questo specifico esempio. Grazie!===== POWERED BY =====

[[:it:ugbasic:user:examples|{{ :ugbasic:user:logo-ugbasic.png?nolink&600 |}}]]