1 REM another raster routine by ah-YEAH
10 KEY
100 GOTO
1000 REM raster time !!!!!!!
1010 WAIT VBL
1020 FOR
1030 FOR
1040 NEXT
1041 FOR
1050 GOTO
1060 REM only cycles 28 colours 
1070 REM $ff8242 is the colour index 1:if you want the background to
1080 REM cycle then change to $ff8240 
110 DATA
111 DATA
2 REM requires a screen in bank 14 
20 MODE
3 REM needs to be compiled to lokk wicked
30 HIDE
4 REM moving the mouse interupts rasters!! 
40 CURS
5 REM this one cycles the colour bars
50 DIM
6 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
60 GET PALETTE
61 SCREEN COPY
62 REM bext bit reads the colour chart into COL(??) array 
70 FOR
80 READ
90 NEXT