10 OPEN1,4:PRINT#1,CHR$(27)CHR$(33)CHR$(5)CHR$(15)CHR$(27)CHR$(51)CHR$(14);
20 PRINT#1,CHR$(27)CHR$(83)CHR$(0);"!----------------------------------------!"
30 PRINT#1,CHR$(10)"!";:FORI=1TO1000:R=PEEK(I+1023):IFR<32THENR=R+64
40 PRINT#1,CHR$(R);:IFI/40=INT(I/40)THENPRINT#1,"!"CHR$(13)CHR$(10)"!";
50 NEXT:PRINT#1,"----------------------------------------!":CLOSE1