AMSTRAD CPC 6128 Manual Del Usario página 369

1780 MOVE tempxx,tempyy,norx:DRAW tempx,tempy
1790 DRAW tempx+x,tempy+y:DRAW tempxx,tempyy
1800 tempxx=0:tempyy=0
1810 x=tempx:y=tempy:treslados=0
1820 tempx=0:tempy=0:ind=0
1830 RETURN
1840
' @
1850 norx=1:borrar=borrar XOR 1:RETURN
1860 ' \ (linea recta)
1870 IF ind=4 THEN
1880 ro=7:GOSUB 2240
1890 tempx=x:tempy=y:ind=4
1900 RETURN
1910 IF norx=1 THEN
1920 MOVE tempx,tempy,norx:DRAW x,y
1930 x=tempx:y=tempy:ind=0
1940 RETURN
1950 ' I
1960 IF ind=5 THEN ind=0:CLS:INK 3,coltemp:INK pn,col:GOTO
1970 CLS:ind=5:BORDER
1980 RETURN
1990 FOR i=0 TO 3:INK i,pn(i):NEXT:BORDER
2000 IF pn=4 THEN
2010 CLS:RETURN
2020 ' A
2030 IF ind=6 THEN
2040 tempx=0:tempy=0:CLS
2050 borrar=1:ind=6:norx=1:movido=1
2060 RETURN
2070 ind=0
2080 RETURN
2090 ' N
2100 norx=0
2110 RETURN
2120 ' B
2130 GRAPHICS PEN pn,0:TAG:MOVE
2140 RETURN
2150 ' <BARRA ESPACIADORA>
2160 PLOT x,y,pn,norx:RETURN
2170 ' X
2180 norx=1
2190 RETURN
2200 ' M
2210 menu=menu MOD
2220 GOSUB 2260:RETURN
2230 i$=UPPER$(INKEY$):IF
2240 CLS:borrar=0:PRINT ord$(ro);:LOCATE
PRINT"para terminar"
2250 RETURN
2260 CLS:ind=-1
2270 FOR i=1 TO LEN(ords$(menu))
2280 ps=i+ABS(menu=2)*LEN(ords$(1))
2290 PEN 1:PRINT"<"MID$(ords$(menu),i,1)">"MID$(orden$(ps),2,4)"
2300 NEXT
2310 PRINT"<CLR> <DEL>
1910
1930
pn(pn)
pn=1
2070
xx-8,yy+6,0:PRINT"
2+1
i$="n" OR
<BARRA>";
Manual de Amstrad CPC 6128 (revisión 2008) - Página 368
pn(4)
";:TAGOFF
INSTR(gri$,i$)=0 THEN
1,3:PRINT"<BARRA
1990
2230 ELSE RETURN
>";:IF ro=3 OR ro=4
";
THEN