Code: Select all
10 FOR X = 0 TO 63
20 FOR Y = 0 TO 31
30 C=(X/8)+1
40 SET(X,Y,C)
50 NEXT Y,X
60 GOTO 60
Code: Select all
10 X=RND(-TIMER)
20 PMODE 3,1:SCREEN 1,0
30 PCLS:TIMER=0
40 X=RND(256):Y=RND(192):R=RND(25)+5:C=RND(4)
50 CIRCLE(X,Y),R,C
60 PAINT (X,Y),C,C
70 IF TIMER < 3000 THEN 40 ELSE 30