5 A$="" \ PRINT "GENERATE TEST-PATTERN FILE FOR DEBUGGING MFM"
6 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
10 REM 5MAL "1111111100000000"
11 FOR I=1 TO 5 \ A$=A$+CHR$(255)+CHR$(0) \ NEXT I
18 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
20 REM 10MAL "11001100"
21 FOR I=1 TO 10 \ A$=A$+CHR$(51) \ NEXT I
28 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
30 REM 10MAL "10101010"
31 FOR I=1 TO 10 \ A$=A$+CHR$(85) \ NEXT I
38 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
40 REM 3MAL "10010010 01001001 00100100"
41 FOR I=1 TO 3 \ A$=A$+CHR$(73)+CHR$(146)+CHR$(36) \ NEXT I
48 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
50 REM 3MAL "11000100 10001001 00111011"
51 FOR I=1 TO 3 \ A$=A$+CHR$(35)+CHR$(145)+CHR$(220) \ NEXT I
58 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
60 REM 10MAL "10000000"
61 FOR I=1 TO 10 \ A$=A$+CHR$(128) \ NEXT I
68 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
70 REM 3MAL "11100111 00111001 11001110"
71 FOR I=1 TO 3 \ A$=A$+CHR$(231)+CHR$(156)+CHR$(243) \ NEXT I
78 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
80 REM 3MAL "11000110 00110001 10001111"
81 FOR I=1 TO 3 \ A$=A$+CHR$(99)+CHR$(140)+CHR$(241) \ NEXT I
88 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
90 REM 10MAL "11111110"
91 FOR I=1 TO 10 \ A$=A$+CHR$(127) \ NEXT I
98 FOR I=1 TO 5 \ A$=A$+CHR$(0) \ NEXT I \ REM 5MAL "00000000"
500 REM TEXT
510 A$=A$+CHR$(10)+CHR$(13)
520 A$=A$+"RL02-SIMULATOR VON REINHARD HEUBERGER"
530 A$=A$+CHR$(10)+CHR$(13)
540 A$=A$+"RL02-SIMULATOR VON REINHARD HEUBERGER"
550 A$=A$+CHR$(10)+CHR$(13)
560 PRINT "STRING-LAENGE:  ";LEN(A$)
570 REM STRING LAENGE = 216
600 REM NUN AUFFUELLEN MIT FILL OUT WITH "1111111"+"00000000"
610 FOR I=1 TO 19
620 A$=A$+CHR$(255)+CHR$(0)
630 NEXT I
635 A$=A$+CHR$(0)
640 PRINT "STRING-LAENGE:  ";LEN(A$)
700 OPEN "DL0:PATT4.TXT" FOR OUTPUT AS FILE #1
720 FOR I=1 TO 10000
730 PRINT #1,A$;
740 PRINT #1,CHR$(0);
750 NEXT I
760 CLOSE #1
770 PRINT "DONE"
800 END

READY

---------------------------------------------------------------------------------------------

.r dump
*TT:<DL0:PATT4.TXT
TT:<DL0:PATT4.TXT
BLOCK NUMBER  000000
000/ 000000 000000 177400 177400 177400 177400 177400 000000 *................*
020/ 000000 000000 031463 031463 031463 031463 031463 000000 *....3333333333..*
040/ 000000 052400 052525 052525 052525 052525 000125 000000 *...UUUUUUUUUU...*
060/ 000000 111111 044444 022222 111111 000044 000000 000000 *..I.$I.$I.$.....*
100/ 110443 021734 156221 110443 000334 000000 000000 100200 *#.\#.\#.\.......*
120/ 100200 100200 100200 100200 000000 000000 163400 171634 *.............g.s*
140/ 116347 163763 171634 000000 000000 061400 170614 106143 *g.sg.s.....c.qc.*
160/ 061761 170614 000000 000000 077400 077577 077577 077577 *qc.q............*
200/ 077577 000177 000000 000000 006412 046122 031060 051455 *..........RL02-S*
220/ 046511 046125 052101 051117 053040 047117 051040 044505 *IMULATOR VON REI*
240/ 044116 051101 020104 042510 041125 051105 042507 005122 *NHARD HEUBERGER.*
260/ 051015 030114 026462 044523 052515 040514 047524 020122 *.RL02-SIMULATOR *
300/ 047526 020116 042522 047111 040510 042122 044040 052505 *VON REINHARD HEU*
320/ 042502 043522 051105 006412 000377 000377 000377 000377 *BERGER..........*
340/ 000377 000377 000377 000377 000377 000377 000377 000377 *................*
360/ 000377 000377 000377 000377 000377 000377 000377 000000 *................*
400/ 000000 000000 177400 177400 177400 177400 177400 000000 *................*
420/ 000000 000000 031463 031463 031463 031463 031463 000000 *....3333333333..*
440/ 000000 052400 052525 052525 052525 052525 000125 000000 *...UUUUUUUUUU...*
460/ 000000 111111 044444 022222 111111 000044 000000 000000 *..I.$I.$I.$.....*
500/ 110443 021734 156221 110443 000334 000000 000000 100200 *#.\#.\#.\.......*
520/ 100200 100200 100200 100200 000000 000000 163400 171634 *.............g.s*
540/ 116347 163763 171634 000000 000000 061400 170614 106143 *g.sg.s.....c.qc.*
560/ 061761 170614 000000 000000 077400 077577 077577 077577 *qc.q............*
600/ 077577 000177 000000 000000 006412 046122 031060 051455 *..........RL02-S*
620/ 046511 046125 052101 051117 053040 047117 051040 044505 *IMULATOR VON REI*
640/ 044116 051101 020104 042510 041125 051105 042507 005122 *NHARD HEUBERGER.*
660/ 051015 030114 026462 044523 052515 040514 047524 020122 *.RL02-SIMULATOR *
700/ 047526 020116 042522 047111 040510 042122 044040 052505 *VON REINHARD HEU*
720/ 042502 043522 051105 006412 000377 000377 000377 000377 *BERGER..........*
740/ 000377 000377 000377 000377 000377 000377 000377 000377 *................*
760/ 000377 000377 000377 000377 000377 000377 000377 000000 *................*