A test card, also known as a test pattern or start-up/closedown test, is a television test signal, typically broadcast at times when the transmitter is active but no program is being broadcast. They are electronically generated test patterns, used for calibrating or troubleshooting the video output.

 
 OPTION EXPLICIT
 
 BITMAP ENABLE (16)
 COLOR BORDER BLACK
 CLS BLACK
 
 POSITIVE CONST cardColor = WHITE
 POSITIVE CONST cardWidth = SCREEN WIDTH / 10
 POSITIVE CONST cardHeight = SCREEN HEIGHT / 10
 POSITIVE CONST verticalLines = ( SCREEN WIDTH / cardWidth ) + 1
 POSITIVE CONST cardXMax = verticalLines - 1
 POSITIVE CONST horizontalLines = ( SCREEN HEIGHT / cardHeight ) + 1
 POSITIVE CONST cardYMax = horizontalLines - 1
 POSITIVE CONST cardEffectiveWidth = cardWidth - 2
 POSITIVE CONST cardEffectiveHeight = cardHeight - 2
 
 ' DIM colors(16) = #{ _
 ' 			BLACK, WHITE, BROWN, LAVENDER, LIGHT BLUE, LIGHT GREEN, LIGHT RED, OLIVE GREEN, _
 ' 			PEACH, PINK, VIOLET, DARK BLUE, TAN, MAGENTA, TURQUOISE, YELLOW GREEN _
 ' 		 }
 
 ' DIM primary(16) = #{ _
 ' 			DARK RED, RED, LIGHT RED, DARK BLUE, BLUE, LIGHT BLUE, WHITE, BLACK, _
 ' 			DARK GREEN, GREEN, LIGHT GREEN, WHITE, TAN, TURQUOISE, YELLOW GREEN, WHITE _
 ' 		 }
 
 DIM primary2(16) = #{ _
 			DARK RED, RED, LIGHT RED, DARK BLUE, BLUE, LIGHT BLUE, WHITE, BLACK, _
 			DARK GREEN, GREEN, LIGHT GREEN, WHITE, BROWN, LAVENDER, OLIVE GREEN, WHITE _
 		 }
 
 PROCEDURE drawLines
 
 	DIM lineIndex AS BYTE
 
 	FOR lineIndex = 1 TO ( horizontalLines - 1 )
 		LINE 0, lineIndex * cardHeight TO (SCREEN WIDTH - 1), lineIndex * cardHeight, cardColor
 	NEXT lineIndex
 
 	FOR lineIndex = 1 TO ( verticalLines - 1 )
 		LINE lineIndex * cardWidth, 0 TO lineIndex * cardWidth, (SCREEN HEIGHT - 1),  cardColor
 	NEXT lineIndex
 
 END PROCEDURE
 
 PROCEDURE drawColors
 
 	' SHARED colors, primary, primary2
 	SHARED primary2
 
 	DIM colorIndex AS BYTE
 	DIM cardX1 AS POSITION
 	DIM cardY1 AS POSITION
 	DIM cardX2 AS POSITION
 	DIM cardY2 AS POSITION
 
 	cardX1 = cardWidth + 1
 	cardY1 = 1
 	cardX2 = cardX1 + cardEffectiveWidth
 	cardY2 = cardY1 + cardEffectiveHeight
 
 	FOR colorIndex = 0 TO UBOUND( primary2 ) - 1
 
 		IF colorIndex = 8 THEN
 			cardX1 = cardWidth + 1
 			cardX2 = cardX1 + cardEffectiveWidth
 			ADD cardY1, cardHeight
 			ADD cardY2, cardHeight
 		ENDIF
 
 		IF colorIndex = 0 OR colorIndex = 8 THEN
 			LOCATE 0, ( cardY1 / FONT HEIGHT ) + 1 : PRINT " COLORS "
 		ENDIF
 
 		BAR cardX1, cardY1 TO cardX2, cardY2, primary2( colorIndex )
 		ADD cardX1, cardWidth
 		ADD cardX2, cardWidth
 
 	NEXT
 
 END PROCEDURE
 
 PROCEDURE drawGreys
 
 	DIM cardX1 AS POSITION
 	DIM cardY1 AS POSITION
 	DIM cardX2 AS POSITION
 	DIM cardY2 AS POSITION
 
 	cardY1 = 3*cardHeight + 1
 	cardX1 = 2*cardWidth + 1
 	cardY2 = cardY1 + cardHeight - 2
 	cardX2 = cardX1 + cardEffectiveWidth
 
 	LOCATE 0, ( cardY1 / FONT HEIGHT ) + 1 : PRINT " GREY"
 	BAR cardX1, cardY1 TO cardX2, cardY2, DARK GREY
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 	BAR cardX1, cardY1 TO cardX2, cardY2, GREY
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 	BAR cardX1, cardY1 TO cardX2, cardY2, LIGHT GREY
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 	cardX1 = 3*cardWidth + 1
 	cardX2 = cardX1 + cardEffectiveWidth
 	ADD cardY1, cardHeight
 	ADD cardY2, cardHeight
 
 	LOCATE 0, ( cardY1 / FONT HEIGHT ) + 1 : PRINT " WHITE"
 	BAR cardX1, cardY1 TO cardX2, cardY2, DARK WHITE
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 	BAR cardX1, cardY1 TO cardX2, cardY2, WHITE
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 	BAR cardX1, cardY1 TO cardX2, cardY2, LIGHT WHITE
 	ADD cardX1, cardWidth
 	ADD cardX2, cardWidth
 
 END PROCEDURE
 
 PROCEDURE drawMonoscope
 
 	CIRCLE SCREEN WIDTH / 2, SCREEN HEIGHT / 2, MIN( SCREEN WIDTH / 2, SCREEN HEIGHT / 2 ), cardColor
 
 END PROCEDURE
 
 drawLines[]
 drawColors[]
 drawGreys[]
 drawMonoscope[]
 
 

• contrib_testcard.bas

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 compile the example with just one click.

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 contrib_testcard.bas -o example.xex
 altirra example.xex
 
 # Windows 
 ugbc.atari.exe contrib_testcard.bas -o example.xex
 altirra example.xex

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 contrib_testcard.bas -o example.xex
 altirra example.xex
 
 # Windows 
 ugbc.atarixl.exe contrib_testcard.bas -o example.xex
 altirra example.xex

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 contrib_testcard.bas -o example.prg
 x64sc example.prg
 
 # Windows 
 ugbc.c64.exe contrib_testcard.bas -o example.prg
 x64sc example.prg

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 contrib_testcard.bas -o example.prg
 x64sc -reu example.prg
 
 # Windows 
 ugbc.c64reu.exe contrib_testcard.bas -o example.prg
 x64sc -reu example.prg

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 contrib_testcard.bas -o example.prg
 yape example.prg
 
 # Windows 
 ugbc.plus4.exe contrib_testcard.bas -o example.prg
 yape example.prg

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 contrib_testcard.bas -o example.prg
 xplus4 example.prg
 
 # Windows 
 ugbc.plus4.exe contrib_testcard.bas -o example.prg
 xplus4 example.prg

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 contrib_testcard.bas -o example.bin
 xroar -rompath (your rom path) example.bin
 
 # Windows 
 ugbc.d32.exe contrib_testcard.bas -o example.bin
 xroar.exe -rompath (your rom path) example.bin

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 contrib_testcard.bas -o example.bin
 xroar -rompath (your rom path) example.bin
 
 # Windows 
 ugbc.d64.exe contrib_testcard.bas -o example.bin
 xroar.exe -rompath (your rom path) example.bin

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 contrib_testcard.bas -o example.k7
 dcmoto
 (choose BASIC 128)
 CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
 
 # Windows 
 ugbc.pc128op.exe contrib_testcard.bas -o example.k7
 dcmoto
 (choose example.k7)
 (choose BASIC 128)
 CLEAR,&H2FFF: LOADM"CASS:",R: EXEC

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 contrib_testcard.bas -o example.k7
 dcmoto
 (choose BASIC 128)
 CLEAR,&H2FFF: LOADM"CASS:",R: EXEC
 
 # Windows 
 ugbc.pc128op.exe contrib_testcard.bas -o example.k7
 dcmoto
 (choose example.k7)
 (choose BASIC 128)
 CLEAR,&H2FFF: LOADM"CASS:",R: EXEC

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 contrib_testcard.bas -o example.prg
 xvic --memory 24k example.prg
 
 # Windows 
 ugbc.vic20.exe contrib_testcard.bas -o example.prg
 xvic --memory 24k example.prg

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 contrib_testcard.bas -o example.tap
 Speccy example.tap
 
 # Windows 
 ugbc.zx.exe contrib_testcard.bas -o example.tap
 Speccy example.tap

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:

 # Linux 
 ugbc.msx1 contrib_testcard.bas -o example.rom
 openmsx -cart example.rom
 
 # Windows 
 ugbc.msx1.exe contrib_testcard.bas -o example.rom
 openmsx -cart example.rom

 # Linux 
 ugbc.msx1 contrib_testcard.bas -o example.rom
 bluemsx example.rom
 
 # Windows 
 ugbc.msx1.exe contrib_testcard.bas -o example.rom
 bluemsx example.rom

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:

 # Linux 
 ugbc.coleco contrib_testcard.bas -o example.rom
 openmsx -machine \"COL - ColecoVision\" -cart example.rom
 
 # Windows 
 ugbc.coleco.exe contrib_testcard.bas -o example.rom
 bluemsx -machine \"COL - ColecoVision\" example.rom

 # Linux 
 ugbc.coleco contrib_testcard.bas -o example.rom
 bluemsx /machine \"COL - ColecoVision\" /rom1 example.rom
 
 # Windows 
 ugbc.coleco.exe contrib_testcard.bas -o example.rom
 bluemsx  /machine \"COL - ColecoVision\" /rom1 example.rom

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 contrib_testcard.bas -o example.rom
 bluemsx /machine \"SEGA - SC-3000\" /rom1 example.rom
 
 # Windows 
 ugbc.sc3000.exe contrib_testcard.bas -o example.rom
 bluemsx  /machine \"SEGA - SC-3000\" /rom1 example.rom

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 contrib_testcard.bas -o example.rom
 bluemsx /machine \"SEGA - SG-1000\" /rom1 example.rom
 
 # Windows 
 ugbc.sg1000.exe contrib_testcard.bas -o example.rom
 bluemsx  /machine \"SEGA - SG-1000\" /rom1 example.rom

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!