Demonstration Program - AMSTRAD CPC464 User Manual

In this case 15 is the PEN number, while 0 is the colour black, and 26 is the alternate colour bright
white.
Finally, it is possible to make the BORDER flash between two colours by adding an extra colour
number to the BORDER command. Type in:
b o r d e r 6 , 9 [ENTER]
You will now see that the BORDER is flashing between bright red and green.
Now reset the computer [CTRL] [SHIFT] [ESC]

DEMONSTRATION PROGRAM

For further demonstration of the colours available, type in the following program, then run it.
We have included some sound in the program. This will be explained in a later section.
1 0 m o d e 0 : i n k 0 , 2 : i n k 1 , 2 4 : p a p e r 0 [ E N T E R ]
2 0 p e n 1 : f o r b = 0 t o 2 6 : b o r d e r b [ E N T E R ]
3 0 l o c a t e 3 , 1 2 : p r i n t " B O R D E R C O L O U R " ; B [ E N T E R ]
4 0 s o u n d 4 , ( 4 0-b ) [ E N T E R ]
5 0 f o r t = 1 t o 6 0 0 : n e x t t : n e x t b : c l s [ E N T E R ]
6 0 f o r p = 0 t o 1 5 : p a p e r p : p e n 5 : p r i n t " p a p e r " ;
p : p r i n t [ E N T E R ]
7 0 f o r n = 0 t o 1 5 : p e n n : p r i n t " p e n " ; n [ E N T E R ]
8 0 s o u n d 1 , ( n * 2 0 + p ) [ E N T E R ]
9 0 f o r t = 1 t o 1 0 0 : n e x t t : n e x t n [ E N T E R ]
1 0 0 f o r t = 1 t o 1 0 0 0 : n e x t t : c l s : n e x t p [ E N T E R ]
1 1 0 c l s : p a p e r 0 : p e n 1 : l o c a t e 7 , 1 2 : p r i n t
" T H E E N D " : f o r t = 1 t o 2 0 0 0 : n e x t t [ E N T E R ]
1 2 0 m o d e 1 : b o r d e r 1 : i n k O , 1 : i n k 1 , 2 4 : p a p e r 0
p e n 1 [ E N T E R ]
r u n [ E N T E R ]