AMSTRAD cpc 6128 User Instruction page 430

Z20
IF pn<2 THEN pntS=CHRS(240):px=(pn+1)*13 ELSE IF pn
<4 THEN pntS=CHRS(241):px=(pn-1)*13 ELSE pntS=CHRS(
243):px=37
230 LOCATE px,2:PRINT pntS;
'240 LOCATE 1,1: PRINT USING" PEN 0 : ## PEN 1 : ##";
pn(0);pn(1);
250 LOCATE 29,2:PRINT USING"Border : ##";pn(4)
260 LOCATE ·1,3:PRINT USING" PEN 2 : ## PEN 3 ##";
pn(2);pn(3);
270 LOCATE px,2:PRINT " ";
280 LOCATE #1,1,1:PRINT#1,USING"X :#### Y :#### ";
x;y;:PRINT #1,"PLot mode: ";norxS(norx+(undraw*2»
• 11
f I .
, ,
,
290 IF fLag=0 THEN GOSUB 2260
300 '
310 GOSUB 970
320 '
330 IF fLag>0 THEN 390
340 IF is='''' THEN 390
350 cmnd=INSTR(cmndS,iS):IF cmnd=0 THEN 390
360 IF cmnd=1 THEN CLG:x=320:y=200:GOTO 390
370 IF cmnd=2 THEN RUN 70
380 ON cmnd-2 GOSUB 1240,1410,1520,1640,1840,1860,1950,
2020,2090,2120,2170,2200,2660,2660,2660,2660,2390,2
330,2200
390 IF tx=0 AND ty=0 THEN 200
400 IF fLag>0 THEN 440
410 GOSUB 630
420 GOSUB 680:FRAME:GOSUB 680
430 GOTO 200
440 MOVE tempx,tempy,pn,1
450 ON fLag GOSUB 470,490~550,640
460 GOTO 200
470 PLOT x,y:GOSUB 630:PLOT x,y
480 RETURN
490 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y
500 DRAW tempx,tempy+y:DRAW tempx,tempy
510 GOSUB 630
520 DRAW tempx+x,tempy:DRAW tempx+x,tempy+y
530 DRAW tempx,tempy+y:DRAW tempx,tempy
540 RETURN
550 MOVE tempx,tempy:DRAWR x,y
560 IF triside=0 THEN 580
570 DRAW tempxx,tempyy:DRAW tempx,tempy
Continued on the next page
At your leisure .... Chapter 9 Page 67