SOURCE CODE ()

OPTION COMPILE ON ATARI,ATARIXL,C128,C128Z,C16,C64,C64REU,COCO,COCO3,COLECO,PC128OP

DEFINE JOYSTICK EMULATION ON
DEFINE JOYSTICK SYNC

    CLS

	PRINT "+--------+----+"
	PRINT "| STRIG  |JFIR|"
	PRINT "+--------+----+"

	j = 0
	k = 0
	DO
		LOCATE , 3+k
		PRINT "|";
		i = 0
		DO
			IF j = 300 THEN
				IF STRIG(i) THEN 
					PRINT "**";
				ELSE
					PRINT "  ";
				ENDIF
			ELSE
				PRINT "  ";
			ENDIF
			INC i
		LOOP UNTIL i = 4
		PRINT "|";
		INC j
		i = 0
		DO
			IF JFIRE(i) THEN 
				PRINT "++";
			ELSE
				PRINT " ";
			ENDIF
			INC i
		LOOP UNTIL i = 2
		PRINT "|"
		IF j = 301 THEN 
			IF k < 10 THEN
				INC k
			ENDIF
		ENDIF
		PRINT j
		IF j > 320 THEN j = 0
	LOOP

Atari 400, Atari 800

In order to compile the example, type this command on the command line:

Linux

ugbc.atari -O xex -o controls_strig_01.xex controls_strig_01.bas

Windows

ugbc.atari.exe -O xex -o controls_strig_01.xex controls_strig_01.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.

Commodore 128 (CPU Z80)

In order to compile the example, type this command on the command line:

Linux

ugbc.c128z -O prg -o controls_strig_01.prg controls_strig_01.bas

Windows

ugbc.c128z.exe -O prg -o controls_strig_01.prg controls_strig_01.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.