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