;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