AMSTRAD cpc 6128 User Instruction page 433

1410
I
B
1420 IF fLag=2 THEN 1470
1430 ro=2:GOSUB 2240
1440 tempx=x:tempy=y:fLag=2
1450 x=0:y=0
1460 RETURN
1470 IF norx=1 THEN 1500
1480 MOVE tempx,tempy:DRAW tempx+x,tempy"norx
1490 DRAW tempx+x,tempy+y:DRAW tempx,tempy+y:DRAW tempx
,tempy
1500 x=tempx:y=tempy:fLag=0
1510 RETURN
1520
I
F
1530 ro=3:GOSUB 2240
1540 GOSUB 1620:IF i$=" " THEN 1600
1550 edgecoL=VAL(i$)
1560 ro=4:GOSUB 2240
1570 GOSUB 1620:IF i$=" " THEN 1600
1580 fiLLer=VAL(i$)
1590 MOVE x,y,edgecoL:FILL fi LLer
1600 fLag=0:i$=""
1610 RETURN
1620 i$=INKEY$:IF (i$<"0" OR i$>"3") AND i$<>" " THEN 1
620
1630 RETURN
1640
I
T
1650 IF fLag=3 THEN 1700
1660 fLag=3:ro=5:GOSUB 224J
1670 tempx=x:tempy=y
1680 x=0:y=0
1690 RETURN
1700 IF triside<>0 THEN 1770
1710 ro=6:GOSUB 2240
1720 MOVE 0,0,pn,1:GOSUB 590
1730 tempxx=tempx+x:tempyy=tempy+y:x=x/2:y=20
1740 triside=1
1750 GOSUB 550:GOSUB 590
1 760 R E TU RN
1770 IF norx=1 THEN 1800
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:triside=0
1820 tempx=0:tempy=0:fLag=0
Chapter 9 Page 60
Continued on the next page
At your leisure ....