10 Testpatrn$="The quick brown fox jumps over the lazy dog. 1234567890 "
20 Testpatrn_len=LEN(Testpatrn$)
30 Testpatrn_tmp$=Testpatrn$
40 Crlf$=CHR$(13)&CHR$(10)
50 Isc=26
60 FOR I=1 TO Testpatrn_len
70   OUTPUT A$ USING "#,ZZZZ";I
80   OUTPUT Isc;A$&" "&Testpatrn_tmp$&Crlf$;
90   Testpatrn_tmp$=Testpatrn_tmp$[2;Testpatrn_len-1]&Testpatrn_tmp$[1;1]
100 NEXT I
110 END