ô > ColChange 'ô Change colours in a MODE 1 screen ,ô Colour X is replaced with colour &A8?X (6ô Fairly slow, as labouriously uses POINT and PLOT 2: <OSWRCH=&FFEE FOSWORD=&FFF1 Pnew_col=&A8 Z ã P=0 ¸ 1 d P%=&900 n [OPT P*3 x LDA #0:STA table:STA table+1 ‚STA table+2:STA table+3 Œ.outer_loop –BIT &FF:BMI exit  #LDX #table €255:LDY #table 256 ªLDA #9:JSR OSWORD ´LDA #18:JSR OSWRCH ¾LDA #0:JSR OSWRCH ÈLDX table+4:LDA new_col,X ÒJSR OSWRCH ÜLDA #25:JSR OSWRCH æLDA #69:JSR OSWRCH ð LDX #0 ú.inner_loop LDA table,X:JSR OSWRCH INX:CPX #4:BNE inner_loop "LDA table:CLC:ADC #4:STA table ""LDA table+1:ADC #0:STA table+1 ,CMP #5:BNE outer_loop 6 LDA #0:STA table:STA table+1 @&LDA table+2:CLC:ADC #4:STA table+2 J"LDA table+3:ADC #0:STA table+3 TCMP #4:BNE outer_loop ^ .exit hRTS r .table |EQUW 0:EQUW 0 † EQUB 0 ]í šñ"SAVE NEWCOL 900 ";~P% ÿ