You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ZE USR ST: RETURN<br />
1670 RANDOMIZE USR RT<br />
1680 GO TO 1600<br />
1700 INPUT TAB 9;"X RADIUS U ; LI<br />
NE 9*: IF 9*>="A" THEN GO TO 17<br />
00<br />
1710 LET XR=VAL 9S: IF NOT XR TH<br />
EN RETURN<br />
1720 INPUT TAB 9I°Y RADIUS "; LI<br />
NE Q«: IF 9$ >="A" THEN GO TO 17<br />
20<br />
1725 LET YR=VAL 9*<br />
1730 IF X + XR >255 OR X-XR175 OR Y-YR< 0 THEN RETURN<br />
1740 LET NA=XR*YR: IF NA>3000 TH<br />
FN LET NA=L: GO TO 1750<br />
1745 LET NA=2<br />
1750 FOR N=1 TO 720/NA<br />
1760 PLOT INK I; BRIGHT B; PAPE<br />
R P;X+XR*COS (N/(360/NA>*PI),Y+Y<br />
R*SIN (N/(360/NA)*PI)<br />
1770 NEXT N<br />
1780 GO SUB YN<br />
1783 IF INKEYS.= " Y" THEN RANDOMI<br />
ZE USR ST: RETURN<br />
1784 RANDOMIZE USR RT: GO TO 170<br />
0<br />
1800 INPUT -LENGTH "; LINE QS: I<br />
F 9$>="A" THEN GO TO 1800<br />
1810 LET L = VAL GT: IF NOT L THEN<br />
RETURN<br />
1820 INPUT "HEIGHT "; LINE (3$: I<br />
F 9*>="A" THEN GO TO 1820<br />
1825 LET H=VAL 9$<br />
1830 IF X + L > 255 OR Y-H =ATTR : LET Q(3 > =ATTR (<br />
R+1,C): LET 9(4)=ATTR
Change language