Compucolor.org – Virtual Media

Listing of file='XFER.BAS;02' on disk='vmedia/colorcue-sector.ccvf'

500 POKE 33221,195:POKE 33222,0:POKE 33223,176
510 DATA 123,230,127,95,33,0,192,195,145,57,-1
520 X= 45056
530 READ Y:IF Y< 0GOTO 600
540 POKE X,Y
550 X= X+ 1
560 GOTO 530
600 REM
1000 OUT 8,255
1010 POKE 33251,31:POKE 49152,23
1020 PLOT 14,27,18,3,15,27,13
1030 PRINT "T30
";:POKE 33265,0:END