20 lines
409 B
Text
20 lines
409 B
Text
|
PROC Main()
|
||
|
|
BYTE
|
||
|
|
CH=$02FC, ;Internal hardware value for last key pressed
|
||
|
|
PALNTSC=$D014 ;To check if PAL or NTSC system is used
|
||
|
|
|
||
|
|
Graphics(8+16) ;Graphics 320x192 with 2 luminances
|
||
|
|
IF PALNTSC=15 THEN
|
||
|
|
SetColor(1,4,6) ;Red color for NTSC
|
||
|
|
SetColor(2,4,15)
|
||
|
|
ELSE
|
||
|
|
SetColor(1,2,6) ;Red color for PAL
|
||
|
|
SetColor(2,2,15)
|
||
|
|
FI
|
||
|
|
Color=1
|
||
|
|
Plot(100,100)
|
||
|
|
|
||
|
|
DO UNTIL CH#$FF OD
|
||
|
|
CH=$FF
|
||
|
|
RETURN
|