10 CLEAR
20 DEFINT A-Z
30 PRINT CHR$(26)
40 FILES "A:*.MSG"
50 PRINT:PRINT
60 LINE INPUT "Which file?   ";B$
70 INPUT "Delay for slow RBBS (1-20)";S
80 OPEN "I",#1,B$
90 IF EOF(1) THEN 230
100 LINE INPUT#1,B$
110 FOR J=1 TO LEN(B$)
120 FOR D=1 TO (20+S)
130 NEXT D
140 X=ASC(MID$(B$,J))
150 OUT 4,X
160 PRINT CHR$(X);
170 NEXT J
180 OUT 4,13
190 PRINT CHR$(13)
200 FOR X=1 TO (1000+(30*S))
210 NEXT X
220 GOTO 90
230 PRINT CHR$(7)
240 SYSTEM
EXT J
180 OUT 4,13
190 PRINT CHR$(13)
200