Compucolor.org – Virtual Media

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

10 DATA 205,208,63,33,223,129,54,23,195,140,57,201
20 DATA -1
30 DATA 245,62,56,205,0,192,62,48,205,0,192,62,32,205,0,192
31 DATA 62,82,205,0,192,62,69,205,0,192,62,77,205,0,192
32 DATA 62,13,205,0,192,62,27,205,0,192,62,31,205,0,192,241,201
33 DATA -1
40 X= 49152
41 READ Y:IF Y< 0GOTO 50
42 POKE X,Y
43 X= X+ 1
44 GOTO 41
50 X= 45056
51 READ Y:IF Y< 0GOTO 60
52 POKE X,Y
53 X= X+ 1
54 GOTO 51
60 Y= CALL (X)
65 PRINT X,Y
70 END
90 REM