5 T = 1300
 6  HOME 
 10  INPUT "MESSAGE:";M$
 15  IF  LEN (M$) > 38 THEN  PRINT "MESSAGE IS TOO LONG. MAKE LESS THAN 38  LETTERS": PRINT "": GOTO 10
 20 X =  INT ( RND (1) * 39)
 30  IF X > X -  LEN (M$) THEN X = X -  LEN (M$)
 35  IF X < 1 THEN X = 1
 40 Y =  INT ( RND (1) * 23)
 45  IF Y < 1 THEN Y = 1
 50  HOME 
 60  VTAB Y
 70  HTAB X
 80  PRINT M$
 85  FOR I = 1 TO T: NEXT I
 90  GOTO 20