;claba Ykraihi, ATARIFAN 211006
byte
CRSINH =$02F0,
KBCODES=$02FC,
COLPF2 =$D018,
VCOUNT =$D40B
proc RSYNC(byte L)
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