Simple Canvas example
Tip: refresh for a new pattern.
Tip: refresh for a new pattern.
5 REM * * * PROG LINES * * * (Sinclair BASIC)
10 RADIANS: PAPER 6: CLS: PLOT SCRW/2,SCRH/2
20 LET A=10
25 FOR F=1 TO 10000
30 LET X=0: LET Y=0
40 LET Q=1+INT(4*RND)
50 IF Q=1 THEN LET X = A
60 IF Q=2 THEN LET X = -A
70 IF Q=3 THEN LET Y = A
80 IF Q=4 THEN LET Y = -A
90 DRAW X,Y,PI
100 NEXT F