Random Characters

This one generates characters at random, and prints them out at random.

 10 REM RandChrs
 20 PRINT AT 10,10;"RandChrs"
 30 PAUSE 150
 40 CLEAR 64000
 50 LET z=0
 60 FOR c=32 TO 127
 70 LET v=63744+8*c
 80 FOR l=1 TO 8
 90 IF l=1 OR l=8 THEN POKE v,0: LET z=0; GO TO 150
100 LET r=INT (RND*32)*4
110 IF r=0 OR r=12 OR r=24 OR r=44 OR r=48 OR r=52  OR  r=56  OR
r=76 OR r=88 OR r=96 OR r=100 OR r=104  OR  r=120  OR  (z=1  AND
(r=28 OR r=92 OR r=108 OR r=112 OR r=116 OR r=124)) THEN  GO  TO
100
120 POKE v,r
130 LET z=0
140 IF r=28 OR r=92 OR r=108 OR r=112 OR r=116 OR r=124 THEN LET
z=1
150 LET v=v+1
160 NEXT l
170 NEXT c
200 POKE 23607,249
210 FOR n=1 TO 704
220 LET r=INT (RND*96)+32
230 IF NOT (r=124 OR r=126) THEN PRINT CHR$ r;: GO TO 270
240 POKE 23607,60
250 PRINT CHR$ 32;
260 POKE 23607,249
270 NEXT n