;ATALAN Example program
;Author: Rudla Kudla


use atari

out COL'BK@$d01a:byte
out COL'PF0@$D016:byte
out COL'PF1@$D017:byte
out COL'PF2@$D018:byte

inRTCLOCK@20:byte
;in STRIG0@644:button_state		;Set to 1 when joystick button is not pushed, 0 if pushed

;in STRIG1@645:button_state


until STRIG(0) = pressed
	c:byte = lo (VCOUNT * 2 + RTCLOCK) 
	wait'line   
	COL'PF2,COL'BK  = c,c
	 
;	COL'PF2 = lo (VCOUNT * 2 - RTCLOCK)		;scroll down