5 ON ERROR GOTO 60
10       CIRCLE(4,333),333,3  '"
20 FOR TOAD = 0 TO 40
25 FOR X = 1 TO 50 :   CIRCLE(X,X),X,X:NEXT X
30 PRINT TOAD,"Eddie
36 FOR X = 1 TO 100:DDD = INT(RND*700)  :EEE = INT(RND*300)+1:SSS = INT(RND*EEE)+1:PSET(DDD,EEE):FOR Y = 1 TO SSS:CIRCLE(DDD,EEE),Y,X MOD 15:NEXT Y:COLOR X:NEXT X
37 COLOR X
40 SCREEN TOAD
45 PLAY "l64 A
50 NEXT TOAD:NEXT D
60 RESUME NEXT