10 HOME
20 FOR L=1TO10
30 CALL 3000
40 CALL 4000
50 NEXT L
60 RUN
999 STOP
3000 X=RND*43
3010 Y=RND*40
3020 Z=RND*4
3030 Z=1
3040 RETURN
4000 TAKE 4068
4005 FOR I=1 TO 7
4010 FOR J=1 TO 20
4020 TAKE A
4030 IF A=1 DOT X+J*Z,Y+I*Z
4031 IF A=0 UNDOT X+J*Z, Y+I*Z
4040 NEXT J
4050 NEXT I
4060 RETURN
4068 #0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0
4069 #0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0
4070 #0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,0,0
4071 #0,0,1,1,1,1,1,0,0,1,1,0,0,1,1,0,1,1,0,0
4072 #0,0,1,1,0,1,0,0,0,1,1,0,0,1,1,0,1,1,0,0
4073 #0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,0,1,1,0,0
4074 #0,0,1,1,0,0,1,1,0,0,1,1,1,1,1,0,1,1,0,0