;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