AMSTRAD CPC 6128 Manual Del Usario página 366

190 BORDER pn(4):FOR
200 MASK 255,0:PAPER 0:PEN 1:PAPER #1,3:PEN #1,1:GRAPHICS PEN pn,norx
210 IF ind<>5 THEN
220 IF pn<2 THEN flechaS=CHR$(240):px=(pn+1)*13
cha$=CHR$(241):px=(pn-1)*13
230 LOCATE px,2:PRINT
240 LOCATE 1,1:PRINT
250 LOCATE 29,2:PRINT
260 LOCATE 1,3:PRINT
270 LOCATE px,2:PRINT"
280 LOCATE #1,1,1:PRINT
";norxS(norx+(borrar*2));" "
290 IF ind=0 THEN GOSUB
300 '
310 GOSUB 970
320 '
330 IF ind>0 THEN
340 IF i$="" THEN
350 ord=INSTR(ordS,i$):IF
360 IF ord=1 THEN CLG:x=320:y=200:GOTO
370 IF ord=2 THEN RUN
380 ON ord-2 GOSUB
1240,1410,1520,1640,1840,1860,1950,2020,2090,2120,2170,2200,2660,2660,2660,2660,23
90,2330,2200
390 IF tx=0 AND ty=0
400 IF ind>0 THEN
410 GOSUB 630
420 GOSUB 680:FRAME:GOSUB
430 GOTO 200
440 MOVE tempx,tempy,pn,1
450 ON ind GOSUB 470,490,550,640
460 200
GOTO
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 treslados=0
570 DRAW tempxx,tempyy:DRAW tempx,tempy
580 GOSUB 630
590 MOVE tempx,tempy:DRAW tempx+x,tempy+y
600 IF treslados=0
610 DRAW tempxx,tempyy:DRAW tempx,tempy
620 RETURN
630 x=x+tx:y=y+ty:RETURN
640 MOVE tempx,tempy:DRAW x,y
650 GOSUB 630
660 MOVE tempx,tempy:DRAW x,y
670 RETURN
680 ' dibujar y borrar cursor
690 IF ind=5 THEN RETURN
i=0 TO 3:INK i,pn(i):NEXT
280
ELSE flecha=
flecha$;
USING" PEN 0 : ## PEN 1 :
USING"Border :
USING" PEN 2 : ## PEN 3 :
";
#1,USING"X :#### Y :####
2260
390
390
ord=0 THEN
70
THEN 200
440
680
THEN 580
THEN RETURN
Manual de Amstrad CPC 6128 (revisión 2008) - Página 365
ELSE IF
CHR$(243):px=37
##";pn(0);pn(1);
##";pn(4)
##";pn(2);pn(3);
";x;y;
390
390
pn<4 THEN fle-
:PRINT#1,"Modo de tinta: