Publication: Sincus News
Pub Details: SINCUS v5 n3 (Volume 5, Issue 3)
Date: March - April 1987
Pages: 3
1 REM ▒▒ "rnd draw" ▒▒
3 REM ▒▒ YOU CAN NOT BREAK
THIS PROGRAM !▒▒
4 REM From SYNC Mar/Apr 1984
5 PAPER 0: CLS : BORDER 0
10 DEF FN r(x)=INT (RND*x)
15 ON ERR GO TO 20
20 PLOT 127,87
25 LET a=FN r(150)-75
30 LET b=FN r(150)-75
35 LET i=FN r(7)+1
40 DRAW INK i,a,b
45 GO TO 25Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.