10 REM >ModeDemo 20 MODE 8:*MODE 8 30 PRINT"This is ";:COLOUR129:PRINT"MODE 8";:COLOUR128:PRINT" - 80 columns and four colours" 40 FOR A=1 TO 3:COLOURA:PRINT"COLOUR ";A:NEXT 50 A$="Press SPACE..." 60 FOR A=1 TO LEN A$ 70 COLOURA MOD 3+1:PRINTMID$(A$,A,1);:NEXT 80 IFGET 90 MODE 9:*MODE 9 100 PRINT"This is ";:COLOUR&84:PRINT"MODE 9";:COLOUR128:PRINT" -"'"40 columns and 16 colours" 110 FOR A=1 TO 15:COLOURA:PRINT"COLOUR ";A:NEXT 120 COLOUR7 130 A$="sixteen colours" 140 FOR A=1 TO LEN A$ 150 COLOURA MOD 7+1:PRINTMID$(A$,A,1);:NEXT 160 PRINT