1000 ! FLD COLOUR BARS....
1010 !
1020 !
1030 *=49152
1040 !
1050 JSR SETIRQ ! SET IRQ'S
1060 RTS        ! AND RETURN !
1070 !
1080 SETIRQ !
1090 SEI
1100 LDA #$7F
1110 STA $DC0D
1120 LDA $DC0D
1130 LDA #$1B
1140 STA $D011
1150 LDA #$32   ! <- SET THIS NUMBER
1160 STA $D012  !    TO THE FIRST LINE
1170 LDA #<IRQ  !    YOU WANT YOUR
1180 STA $314   !    COLOURS TO START.
1190 LDA #>IRQ
1200 STA $315
1210 LDA #1
1220 STA $D019
1230 STA $D01A
1240 LDA $D016
1250 AND #$F0
1260 STA $D016
1270 CLI
1280 RTS
1290 !
1300 MAX=$88       ! MAX.COLOURED LINES
1310 COLTAB=$C600 !<COLOUR TABLE ADDRESS
1320 !
1330 IRQ !
1340 LDX #$D   !<GET IN EXACTLY THE
1350 D1 DEX    ! RIGHT PLACE TO START!
1360 BNE D1
1370 !
1380 LDX #0
1390 I1 LDA $D012    !<GET RASTER LINE
1400 LDY COLTAB,X    !<GET COLOUR
1410 I2 CMP $D012    !<ARE WE STILL ON
1420 BEQ I2          ! SAME RAS LINE?
1430 STY $D020       !<STORE COLOUR IN
1440 STY $D021       ! SCREEN & BORDER
1450 AND #$07        !<DO THE FLD
1460 ORA #$10        ! TRICK !
1470 STA $D011       !<AND STORE IT.
1480 INX             !
1490 CPX #MAX        !<FINISHED?
1500 BNE I1          !
1510 !
1520 LDA #1          !<RESET IRQ
1530 STA $D019
1540 JMP $EA31       !<AND RETURN...
1550 !
1560 !
1570 !  FLD SINGLE PIXEL COLOUR-BARS
1580 !  ----------------------------
1590 !
1600 ! -TO USE THIS PROGRAM,YOU HAVE TO
1610 ! FIRST ASSEMBLE IT,START IT WITH
1620 ! SYS 49152,AND THEN EITHER POKE
1630 ! FROM BASIC,OR USE A MONITOR TO
1640 ! PUT THE COLOUR VALUES INTO THE
1650 ! TABLE FROM $C600-$C600+MAX.
1660 ! EG. 0 FOR BLACK,1 FOR WHITE ETC
1670 !
1680 ! -(C) ANDY PARTRIDGE AND CDU!
1690 !
1700 *=$C600 ! EXAMPLE COLOURS...
1710 !
1720 BYT 6,0,6,2,0,6,2,4,0,6,2,4,$A,0
1730 BYT 6,2,4,$A,7,0,6,2,4,$A,7,1
1740 BYT 7,$A,4,2,6,0,7,$A,4,2,6,0
1750 BYT $A,4,2,6,0,4,2,6,0,2,6,0,6,0
1760 !
1770 BYT 0,9,5,5,5,13,0,5,13,13,13,1,0
1780 BYT 13,1,1,1,13,0,1,13,13,13,5,0
1790 BYT 13,5,5,5,9,0,0
1800 !
1810 BYT 9,0,9,2,0,9,2,8,0,9,2,8,$A,0
1820 BYT 9,2,8,$A,7,0,9,2,8,$A,7,1
1830 BYT 7,$A,8,2,9,0,7,$A,8,2,9,0
1840 BYT $A,8,2,9,0,8,2,9,0,2,9,0,9,0