Graphically Speaking - AMSTRAD cpc 6128 User Instruction

24111 IF p1$="." THEN ch1%=I1I:RETURN ELSE l1%=VAL(p1$)
25111 ch1%=ch1%+1
26111 n1$=FNM$(ch1$,ch1%)
27111 ch1%=ch1%+1
28111 IF n1$="+" OR n1$="-" THEN 35111
29111 n1$=" "+n1$
3111111 nd1%=(1+INSTR(scale$,LOWER$(A1$»)/2
31111 IF ASC(RIGHT$(n1$,1»>96 THEN 01%=8 ELSE 01%=16
32111 SOUND 1+r1%,scale%(nd1%)/01%,Spd%*l1%,11I,1,1
33111 ON SQ(1) GOSUB 2111111
34111 RETURN
35111 n1$=n1$+FNM$(ch1$,ch1%)
36111 ch1%=ch1%+1
37111 GOTO 3111111
38111 REM send sound to channel B
39111 p2$=FNM$(ch2$,ch2%)
4111111 IF p2$<>"r" THEN r2%=I1I:GOTO 42111
41111 r2%=8:ch2%=ch2%+1:p2$=FNm$(ch2$,ch2%)
42111 IF p2$="." THEN ch2%=I1I:RETURN ELSE l2%=VAL(p2$)
43111 ch2%=ch2%+1
44111 n2$=FNM$(ch2$,ch2%)
45111 ch2%=ch2%+1
46111 IF n2$="+" OR n2$="-" THEN 53111
47111 n2$=" "+n2$
48111 nd2%=(1+INSTR(scale$,LOWER$(n2$»)/2
49111 IF ASC(RIGHT$(n2$,1»>96 THEN 02%=4 ELSE 02%=8
5111111 SOUND 2+r2%,scale%(nd2%)/02%,Spd%*l2%,11I,2
51111 ON SQ(2) GOSUB 38111
52111 RETURN
53111 n2$=n2$+FNM$(ch2$,ch2%)
54111 ch2%=ch2%+1
55111 GOTO 48111
run
Graphically speaking ....
This section describes the graphics facilities available. The first example builds up
slowly demonstrating each major feature in turn.
To start off with, we will divide the screen into a text window (line 40) and a graphics
window (line 3 0), setting the MOD E and a couple of flashing colours along the way
(line 20):
At your leisure ....
Chapter 9 Page 47