;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