This example represents a tribute to the Facebook group Retroprogramming Italia, following the victory in the "FORZA 4 Challenge".
source
compile
sandbox
issues?
back to examples
) BITMAP ENABLE(16)
CLS BLACK
COLOR BORDER BLACK
INK WHITE
CONST w = SCREEN COLUMNS - 5
CONST h2 = IF(SCREEN ROWS > 24, 2, 1)
CONST hc = SCREEN ROWS / 2
joystick := LOAD IMAGE("joystick4.png")
LOCATE 0,hc - 2: CENTER "A TUTTO IL GRUPPO DI"
LOCATE 0, hc - 1: CENTER "RetroProgramming"
LOCATE 0, hc: CENTER "Italia"
LOCATE 0,hc + 1: CENTER "RP Italia"
LOCATE 0,hc + 3: CENTER "A division of"
LOCATE 0,hc + 4: CENTER "RetroCampus"
WAIT KEY
CLS BLACK
PUT IMAGE joystick AT 0,0
LOCATE w, h2: PRINT "G";: WAIT 1000 MS
LOCATE w+2, 2*h2: PRINT "R";: WAIT 1000 MS
LOCATE w, 3*h2: PRINT "A";: WAIT 1000 MS
LOCATE w+2, 4*h2: PRINT "Z";: WAIT 1000 MS
LOCATE w, 5*h2: PRINT "I";: WAIT 1000 MS
LOCATE w+2, 6*h2: PRINT "E";: WAIT 1000 MS
LOCATE w, 7*h2: PRINT "G";: WAIT 1000 MS
LOCATE w+2, 8*h2: PRINT "R";: WAIT 1000 MS
LOCATE w, 9*h2: PRINT "A";: WAIT 1000 MS
LOCATE w+2, 10*h2: PRINT "Z";: WAIT 1000 MS
LOCATE w, 11*h2: PRINT "I";: WAIT 1000 MS
LOCATE w+2, 12*h2: PRINT "E";: WAIT 1000 MS
The instructions here refer to compiling the example from the command line. For Microsoft Windows
users we suggest using UGBASIC-IDE, which allows
you to download and compile each single example with just one click.
Are instructions for your specific home computer / console missing? First of all, check if your computer
is supported by clicking here. If so, since ugBASIC is a language which does not provide abstractions, it is possible
that this example will not work on your target. If you think this is an issue, please click here.
In order to compile the example, type this command on the command line:
Linux
ugbc.cpc -O dsk -o contrib_joystick.dsk contrib_joystick.bas
Windows
ugbc.cpc.exe -O dsk -o contrib_joystick.dsk contrib_joystick.bas
For Microsoft Windows users we suggest using UGBASIC-IDE, which allows
you to download and compile this example with just one click.
In order to compile the example, type this command on the command line:
Linux
ugbc.atarixl -O xex -o contrib_joystick.xex contrib_joystick.bas
Windows
ugbc.atarixl.exe -O xex -o contrib_joystick.xex contrib_joystick.bas
For Microsoft Windows users we suggest using UGBASIC-IDE, which allows
you to download and compile this example with just one click.
In order to compile the example, type this command on the command line:
Linux
ugbc.atari -O xex -o contrib_joystick.xex contrib_joystick.bas
Windows
ugbc.atari.exe -O xex -o contrib_joystick.xex contrib_joystick.bas
For Microsoft Windows users we suggest using UGBASIC-IDE, which allows
you to download and compile this example with just one click.
In order to compile the example, type this command on the command line:
Linux
ugbc.coco3 -O bin -o contrib_joystick.bin contrib_joystick.bas
Windows
ugbc.coco3.exe -O bin -o contrib_joystick.bin contrib_joystick.bas
For Microsoft Windows users we suggest using UGBASIC-IDE, which allows
you to download and compile this example with just one click.
If you have found a problem trying to run this example, if you think there is a bug or, more
simply, you would like it to be improved, open an issue for this example on GitHub.
Thank you!
open an issue
BACK TO EXAMPLES
