{{htmlmetatags>metatag-robots=()
metatag-title=(OTHER CONTRIBUTIONS MINIGAME | 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=(OTHER CONTRIBUTIONS MINIGAME | ugBASIC User Manual) 
metatag-og:description=(An isomorphic language for retrocomputers)
}}

====== ugBASIC User Manual ======

===== OTHER CONTRIBUTIONS MINIGAME =====

==== PURPOSE ====
 This is a short game by Endi Baráth, originally published on the BASIC Programming Language group. It was converted to ugBASIC by Marco Spedaletti, to work on most 8-bit computers. It needs at least the 1.6.2-beta to compile. A reference to the original source has been added as comment.  

==== SOURCE CODE ====
   
   ' It is necessary to apply some techniques to reduce the memory actually 
   ' used, so that the game can run even on rather limited platforms, 
   ' such as ColecoVision.
   
   ' First, let's proceed to reduce the space occupied by dynamic strings. 
   ' In ugBASIC this space, despite being dynamic, is statically allocated 
   ' and occupies a certain memory space. With those pragmas we tell ugBASIC 
   ' that we will never use more than 8 strings by a total of 32 bytes. 
   ' Static strings, such as those in quotes, don't count.
   
   DEFINE STRING SPACE 32
   DEFINE STRING COUNT 8
   
   ' This procedure reads the fire button if a joystick is available.
   
   PROCEDURE control ON JOYSTICK AVAILABLE
   	IF JFIRE(0) THEN
   		RETURN TRUE		
   	ELSE
   		RETURN FALSE
   	ENDIF
   END PROC
   
   ' This procedure reads the space bar if a joystick is not available.
   
   PROCEDURE control ON JOYSTICK NOT AVAILABLE
   	IF KEY STATE(KEY SPACE) THEN
   		RETURN TRUE		
   	ELSE
   		RETURN FALSE
   	ENDIF
   END PROC
   
   ' ------------------------------------------------------------------
   ' 100 GRAPHICS HIRES 4:SET BORDER 0:SET KEY CLICK OFF:SET STATUS OFF
   ' ------------------------------------------------------------------
   
   ' We enable the "bitmap" graphics mode. This is the mode in which 
   ' each individual pixel can be addressed individually, via primitive 
   ' commands, such as those related to drawing a single pixel.
   
   BITMAP ENABLE
   
   ' With this instruction we clear the screen, using (if possible) the color 
   ' black. Remembering that ugBASIC is an isomorphic language, it is possible 
   ' that the color indication is ignored, or a similar one is chosen.
   
   CLS BLACK
   
   ' We set the border color to black, at least for those targets for 
   ' which this instruction makes sense. Since ugBASIC is an isomorphic 
   ' language, it does not provide an abstraction of the concept of 
   ' "border". Therefore, if the border exists, it will be colored, 
   ' otherwise this statement corresponds to a "no operation".
   
   COLOR BORDER BLACK
   
   ' Let's define the (pixel) coordinates of the play field:
   '
   '    (x1,y1) +---------+
   '            |         |
   '            |         |
   '            +---------+ (x2,y2)
   
   POSITIVE CONST x1 = SCREEN WIDTH / 10 
   POSITIVE CONST x2 = x1 + (8 * ( SCREEN WIDTH / 10 ))
   POSITIVE CONST y1 = SCREEN HEIGHT / 10 
   POSITIVE CONST y2 = y1 + (7 * ( SCREEN HEIGHT / 10 ))
   
   ' Let's define the (characters) coordinates of the play field:
   '
   '  (,r1) --> INSTRUCTIONS
   '            +---------+
   '            |         |
   '            |         |
   '            +---------+
   '    (,r2) --> COMMAND
   
   POSITIVE CONST r1 = 0
   POSITIVE CONST r2 = ROWS-2
   
   ' Instructions string. The lenght of this string depends on
   ' the width of the text screen.
   
   CONST instructions = IF(COLUMNS < 40, "press to turn", "GAME: press to turn direction")
   CONST final = IF(COLUMNS < 40, "SCORE: ", "YOUR SCORE: ")
   
   ' Let's memorize the status of fire and the previous state itself.
   ' This allow to track the fact that the fire has been released.
   
   joy = FALSE: joyp = FALSE
   
   ' ----------------------------------------------------------
   ' 110 SET INK 2:PLOT 500,200;800,200;800,500;500,500;500,200
   ' ----------------------------------------------------------
   
   ' Let's draw the yellow box as playfield.
   
   BOX x1,y1 TO x2,y2,YELLOW
   
   ' ------------------------------------------------------------
   ' 120 PRINT #101,AT 2,2:"GAME: press a key to turn direction."
   ' ------------------------------------------------------------
   
   ' Let's print the intructions at the center of the line.
   
   LOCATE ,r1
   CENTER instructions;
   
   ' -------------------------------------------------
   ' 130 SET INK 3:LET I=0:LET X=550:LET Y=220:LET S=0
   ' -------------------------------------------------
   
   i = 0
   x = x1+x1
   y = y1+y1
   s = 0
   
   '            +---------+
   '            | * (x,y) |
   '            |         |
   '            +---------+
   
   ' Forever loop until finish.
   
   DO
   
   ' ---------------------------
   ' 140 LET I$=INKEY$:LET S=S+1
   ' ---------------------------
   
   	' Slow down the program a bit, to make it playable.
   	
   	WAIT 25 MS
   
   	' Let's record if the button has been pressed AND released.
   
   	IF joy THEN
   		IF control[] = 0 THEN
   			joyp = TRUE
   			joy = FALSE
   		ENDIF
   	ELSE
   		joy = control[]
   	ENDIF
   	
   	' Increment the score!
   	
   	INC s
   
   	' -------------
   	' 150 PLOT X,Y,
   	' 160 LOOK A
   	' -------------
   	
   	' Take the color of destination pixel.
   	
   	a = POINT(x,y)
   
   	' Draw a pixel on it.
   	
   	PLOT x,y,WHITE
   
   	' ---------------------------------------
   	' 170 PLOT X,Y
   	' 180 IF I$ ≠ "" THEN LET I= (I+1) BAND 3
   	' ---------------------------------------
   	
   	' Each time the fire / space bar is pressed, the
   	' direction will be changed, in a clockwise manner.
   	' The (i+1) increment the direction, while the AND
   	' 3 will limit the value from 0 to 3.
   	'
   	'             3
   	'             ^
   	'         2 <-+-> 0
   	'             v
   	'             1
   	
   	IF joyp THEN i = (i+1) AND 3
   
   	' Reset the button.
   	
   	joyp = FALSE
   
   	' -----------------------------------
   	' 190 IF I=0 THEN LET X=X+4:LET Y=Y+0
   	' -----------------------------------
   	
   	' Move the point to the right.
   	
   	IF i=0 THEN INC x
   
   	' -----------------------------------
   	' 200 IF I=1 THEN LET X=X+0:LET Y=Y+4
   	' -----------------------------------
   
   	' Move the point down.
   	
   	IF i=1 THEN INC y
   
   	' -----------------------------------
   	' 210 IF I=2 THEN LET X=X-4:LET Y=Y+0
   	' -----------------------------------
   
   	' Move the point to the left.
   
   	IF i=2 THEN DEC x
   
   	' -----------------------------------
   	' 220 IF I=3 THEN LET X=X+0:LET Y=Y-4
   	' -----------------------------------
   
   	' Move the point to the right.
   	
   	IF i=3 THEN DEC y
   
   	' ------------------------
   	' 230 IF A=0 THEN GOTO 140
   	' ------------------------
   
   	' If the underlying pixel is black, we can move
   	' to the next position along the selected direction.
   	' Oherwise, we can exit.
   	
   	EXIT IF a<>BLACK
   
   LOOP
   
   ' ---------------------------------------
   ' 240 PRINT #101,AT 19,12:"YOUR SCORE:";S
   ' ---------------------------------------
   
   ' Print the score and ends.
   
   LOCATE , r2
   CENTER final+STR$(s);
   
   


==== SOURCE FILE ====
  * ''[[https://github.com/spotlessmind1975/ugbasic/tree/main/examples/game.bas|game.bas]]''
==== HOW TO COMPILE AND RUN ====
The instructions here refer to compiling the example from the command line. For Microsoft Windows users we suggest using **[[https://spotlessmind1975.itch.io/ugbasic-ide|UGBASIC-IDE]]**, which allows you to compile the example with just one click.=== ATARI 400/800 family ===
In order to compile and run the example, you need to have the Altirra emulator, and in particular that the ''altirra'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.atari game.bas -o example.xex
   altirra example.xex
   
   # Windows 
   ugbc.atari.exe game.bas -o example.xex
   altirra example.xex
=== ATARI 600XL/800XL/1200XL/XG(SE) family ===
In order to compile and run the example, you need to have the Altirra emulator, and in particular that the ''altirra'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.atarixl game.bas -o example.xex
   altirra example.xex
   
   # Windows 
   ugbc.atarixl.exe game.bas -o example.xex
   altirra example.xex
=== Commodore 64 ===
In order to compile and run the example, you need to have the VICE emulator, and in particular that the ''x64sc'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.c64 game.bas -o example.prg
   x64sc example.prg
   
   # Windows 
   ugbc.c64.exe game.bas -o example.prg
   x64sc example.prg
=== Commodore 64+REU ===
In order to compile and run the example, you need to have the VICE emulator, and in particular that the ''x64sc'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.c64reu game.bas -o example.prg
   x64sc -reu example.prg
   
   # Windows 
   ugbc.c64reu.exe game.bas -o example.prg
   x64sc -reu example.prg
=== Commodore PLUS/4 ===
== Using YAPE ==
In order to run the example, you need to have the YAPE emulator. In particular that the ''yape'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.plus4 game.bas -o example.prg
   yape example.prg
   
   # Windows 
   ugbc.plus4.exe game.bas -o example.prg
   yape example.prg
== Using VICE ==
In order to run the example, you need to have the VICE emulator. In particular that the ''xplus4'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.plus4 game.bas -o example.prg
   xplus4 example.prg
   
   # Windows 
   ugbc.plus4.exe game.bas -o example.prg
   xplus4 example.prg
=== Dragon 32 ===
In order to compile and run the example, you need to have the XROAR emulator, and in particular that the ''xroar'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.d32 game.bas -o example.bin
   xroar -rompath (your rom path) example.bin
   
   # Windows 
   ugbc.d32.exe game.bas -o example.bin
   xroar.exe -rompath (your rom path) example.bin
=== Dragon 64 ===
In order to compile and run the example, you need to have the XROAR emulator, and in particular that the ''xroar'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.d64 game.bas -o example.bin
   xroar -rompath (your rom path) example.bin
   
   # Windows 
   ugbc.d64.exe game.bas -o example.bin
   xroar.exe -rompath (your rom path) example.bin
=== PC128 Olivetti Prodest ===
In order to compile and run the example, you need to have the DCMOTO emulator, and in particular that the ''dcmoto'' executable is accessible.

Then, type this command on the command line and on the emulator:

   # Linux 
   ugbc.pc128op game.bas -o example.k7
   dcmoto
   (choose BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
   
   # Windows 
   ugbc.pc128op.exe game.bas -o example.k7
   dcmoto
   (choose example.k7)
   (choose BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Thomson MO5 ===
In order to compile and run the example, you need to have the DCMOTO emulator, and in particular that the ''dcmoto'' executable is accessible.

Then, type this command on the command line and on the emulator:

   # Linux 
   ugbc.pc128op game.bas -o example.k7
   dcmoto
   (choose BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
   
   # Windows 
   ugbc.pc128op.exe game.bas -o example.k7
   dcmoto
   (choose example.k7)
   (choose BASIC 128)
   CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
=== Commodore VIC-20 ===
In order to compile and run the example, you need to have the VICE emulator, and in particular that the ''xvic'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.vic20 game.bas -o example.prg
   xvic --memory 24k example.prg
   
   # Windows 
   ugbc.vic20.exe game.bas -o example.prg
   xvic --memory 24k example.prg
=== ZX Spectrum ===
In order to compile and run the example, you need to have the Speccy emulator, and in particular that the ''speccy'' executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.zx game.bas -o example.tap
   Speccy example.tap
   
   # Windows 
   ugbc.zx.exe game.bas -o example.tap
   Speccy example.tap
=== MSX ===
In order to compile and run the example, you need to have the openMsx or the BlueMSX emulator, and in particular that its executable is accessible.

Then, type this command on the command line:

== openMSX ==
   # Linux 
   ugbc.msx1 game.bas -o example.rom
   openmsx -cart example.rom
   
   # Windows 
   ugbc.msx1.exe game.bas -o example.rom
   openmsx -cart example.rom
== blueMSX ==
   # Linux 
   ugbc.msx1 game.bas -o example.rom
   bluemsx example.rom
   
   # Windows 
   ugbc.msx1.exe game.bas -o example.rom
   bluemsx example.rom
=== ColecoVision ===
In order to compile and run the example, you need to have the openMsx or the BlueMSX emulator, and in particular that its executable is accessible.

Then, type this command on the command line:

== openMSX ==
   # Linux 
   ugbc.coleco game.bas -o example.rom
   openmsx -machine \"COL - ColecoVision\" -cart example.rom
   
   # Windows 
   ugbc.coleco.exe game.bas -o example.rom
   bluemsx -machine \"COL - ColecoVision\" example.rom
== blueMSX ==
   # Linux 
   ugbc.coleco game.bas -o example.rom
   bluemsx /machine \"COL - ColecoVision\" /rom1 example.rom
   
   # Windows 
   ugbc.coleco.exe game.bas -o example.rom
   bluemsx  /machine \"COL - ColecoVision\" /rom1 example.rom
=== SEGA SC-3000 ===
In order to compile and run the example, you need to have the BlueMSX emulator, and in particular that its executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.sc3000 game.bas -o example.rom
   bluemsx /machine \"SEGA - SC-3000\" /rom1 example.rom
   
   # Windows 
   ugbc.sc3000.exe game.bas -o example.rom
   bluemsx  /machine \"SEGA - SC-3000\" /rom1 example.rom
=== SEGA SG-1000 ===
In order to compile and run the example, you need to have the BlueMSX emulator, and in particular that its executable is accessible.

Then, type this command on the command line:

   # Linux 
   ugbc.sg1000 game.bas -o example.rom
   bluemsx /machine \"SEGA - SG-1000\" /rom1 example.rom
   
   # Windows 
   ugbc.sg1000.exe game.bas -o example.rom
   bluemsx  /machine \"SEGA - SG-1000\" /rom1 example.rom
==== ANY PROBLEM? ====
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, [[https://github.com/spotlessmind1975/ugbasic/issues/new?title=IMPROVE OTHER CONTRIBUTIONS MINIGAME|open an issue]] for this example on GitHub. Thank you!===== POWERED BY =====

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