AMSTRAD CPC 6128 Manual Del Usario página 367

700 255,1
MASK
710 ind>1 THEN xx=tempx+x:yy=tempy+y ELSE xx=x:yy=y
IF
720 IF ind=4 THEN xx=x:yy=y
730 IF ind=1 THEN xx=x:yy=y
740 IF borrar=1 THEN
750 GOSUB 790
760 MASK 255,0
770 IF i$=" " THEN GOSUB
780 RETURN
790 MOVE xx-4,yy,pn,1:DRAW xx+4,yy
800 MOVE xx,yy-4:DRAW
810 MOVE xx,yy,xorn:RETURN
820 nx=1:GOSUB 1220
830 FRAME:GOSUB 1220
840 IF i$=" " THEN nx=norx:GRAPHICS PEN pn,1:GOSUB
850 i$=""
860 IF ind<>6 THEN
870 IF movido=0 AND
ch=ASC(j$):movido=1
880 IF movido=0 THEN RETURN
890 LOCATE 5,2
900 FOR i=ch-5 TO
910 PEN ABS(i<>ch)+1
920 ch$=CHR$(1)+ CHR$(ABS(i+256)MOD
930 IF ch=i THEN PRINT" "ch$"
940 NEXT
950 PEN 1:PRINT" = "ch"
960 GOTO 760
970 ty=0:tx=0:GOSUB 680:FRAME:GOSUB
980 IF INKEY(0)<>-1
990 IF INKEY(2)<>-1
1000 IF INKEY(8)<>-1
1010 IF INKEY(1)<>-1
1020 IF INKEY(21)<>-1
1030 IF tx=0 AND ty=0
1040 j$=INKEY$:i$=UPPER$(j$)
1050 IF (i$=" " OR
1060 IF ind=5 THEN
1070 ind=6
IF THEN
1080 RETURN
1090 ON ind GOSUB
1100 i$=""
1110 RETURN
1120 IF movido=0 THEN RETURN
1130 IF tx>2 THEN
1140 IF ty>2 THEN
pn(pn)=ABS((pn(pn)<1))*27-1+pn(pn)
1150 GRAPHICS PEN pn:PEN #1,pn
1160 tx=0:ty=0:BORDER pn(pn):RETURN
1170 tx<0
IF THEN
1180 IF ty<0 THEN
1190 IF tx>0 THEN
1200 IF ty>0 THEN
1210 tx=0:ty=0:RETURN
1220 TAG:MOVE xx-8,yy+6,pn,nx:PRINT CHR$(ch);:TAGOFF
820
2150:i$=""
xxsyy+4
760
j$<>"" AND (j$<CHR$(240)
ch+5
"; ELSE PRINT
";
OR INKEY(72)<>-1
OR INKEY(73)<>-1
OR INKEY(74)<>-1
OR INKEY(75)<>-1
OR INKEY(76)<>-1
THEN movido=0
i$=CHR$(13)) AND
1120
1170
1240,1410,1640,1860,1950,2020
pn=(pn+1) MOD 5 ELSE IF
pn(pn)=(pn(pn)+1)
ch=ABS(ch+255)
MOD
ch=ABS(ch+246) MOD
ch=(ch+1) MOD 256
ch=(ch+10) MOD 256
Manual de Amstrad CPC 6128 (revisión 2008) - Página 366
1220
OR j$>CHR$(247))
256)
ch$;
680
THEN ty=16
THEN ty=-16
THEN tx=-16
THEN tx=16
THEN tx=tx/8:ty=ty
ELSE movido=1
ind>0 THEN 1090
tx<-2 THEN pn=ABS((pn<1))*5-1+pn
MOD 27 ELSE IF ty<-2
256
256
THEN
/8
THEN