;claba Ykraihi, ATARIFAN 211006
byte
CRSINH =$02F0,
KBCODES=$02FC,
COLPF2 =$D018,
WSYNC =$D40A,
VCOUNT =$D40B
proc RSYNC(BYTE L)
WSYNC=1
WHILE VCOUNT#L
DO
OD
return
proc START()
KBCODES=255
CRSINH=1
PUT(125)
WHILE KBCODES=255
DO
RSYNC(10) COLPF2=$82
RSYNC(65) COLPF2=$EC
OD
KBCODES=255 GRAPHICS(0)
RETURN