;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