AMSTRAD cpc 6128 User Instruction page 431

GOSUB 630
MOVE tempx,tempy:DRAW tempx+x,tempy+y
IF triside=0 THEN RETURN
DRAW tempxx,tempyy:DRAW tempx,tempy
RETURN
x=x+tx:y=y+ty:RETURN
MOVE tempx,tempy:DRAW x,y
GOSUB 630
MOVE tempx,tempy:DRAW x,y
RETURN
I
draw and undraw cursor
IF fLag=5 THEN RETURN
MASK 255,1
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
810
820
830
840
850
860
870
IF fLag>1 THEN
xx=tempx+x:yy~tempy+y
ELSE xx=x:yy=y
IF fLag=4 THEN xx=x:yy=y
IF fLag=1 THEN xx=x:yy=y
IF undraw=1 THEN 820
GOSUB 790
MASK 255,0
IF i$=" " THEN GOSUB 2150:i$=""
RETURN
MOVE xx-4,yy,pn,1:DRAW xx+4,yy
MOVE xx,yy-4:DRAW xx,yy+4
MOVE xx,yy"xorn:RETURN
nx=1:GOSUB 1220 '
FRAME:GOSUB 1220
IF i$=" " THEN nx=norx:GRAPHICS PEN pn,1:GOSUB 1220
i$=""
THEN 760 IF fLag<>6
IF moved=0
247» THEN
AND j$<>"" AND (j$<CHR$(240) OR j$>CHR$(
ch=ASC(j$):moved=1
880 IF moved=0
890 LOCATE 5,2
THEN RETURN
900 FOR i=ch-5 TO ch+5
910 PEN ABS(i<>ch)+1
920 ch$=CHR$(1)+CHR$(ABS(i+256)MOD 256)
930 IF ch=i THEN PRINT" "ch$" "; ELSE PRINT ch$;
940 NEXT
950 PEN 1:PRINT"
960 GOTO 760
=
"ch"
"
.
,
970 ty=0:tx=0:GOSUB 680:FRAME:GOSUB 680
980 IF INKEY(0)<>-1 OR INKEY(72)<>-1 THEN ty=16
990 IF INKEY(2)<>-1 OR INKEY(73)<>-1 THEN ty=-16
1000 IF INKEY(8)<>-1 OR INKEY(74)<>-1 THEN tx=-16
Continued on the next page
Chapter 9 Page 58 At
your
leisure ....