10 T=37     :REM TRACK
20 S=12     :REM SECTOR
30 W=144    :REM SCHREIBEN EINES BLOCKS
40 R=128    :REM LESEN EINES BLOCKS
70 V=1      :REM VERZOEGERUNG BEI COMPILIERTEN PROGRAMMEN (>=10)
72 POKE53280,1:POKE53281,1:POKE646,0
74 PRINT"[147]  [211][197][203][212][207][210] [211][195][200][210][197][201][194][197][206] [201][206] [211][208][213][210] 36 [194][201][211] 40 "
76 PRINT"[210]ICHTIGE [196]ISKETTE EINLEGEN, DANN"
77 PRINT"SECHS [194]ILDSCHIRMZEILEN [212]EXT EINGEBEN."
78 PRINT"[202]EDE [218]EILE MIT <[210][197][212][213][210][206]> ABSCHLIESSEN!"
80 TX$="":AX$="":GOSUB2000:REM TEXTEINGABE
100 OPEN1,8,15,"I"
120 :
121 REM EINTRAGEN INFORMATIONEN IN BLOCK
122 :
130 FORI=1TOLEN(TX$)
140 X$=MID$(TX$,I,1)
150 PRINT#1,"M-W"+CHR$(I+2)+CHR$(3)+CHR$(1)+X$
160 NEXTI
170 :
180 REM SCHREIBEN AUF DISKETTE
190 :
200 P=0:B=W:GOSUB1000
380 CLOSE1
390 END
400 :
1000 :
1010 REM PARAMETER AN DISKCONTROLLER
1020 :
1030 REM TRACK UND SECTOR FUER PUFFER 0
1040 :
1050 PRINT#1,"M-W"+CHR$(6)+CHR$(0)+CHR$(2)+CHR$(T)+CHR$(S)
1060 :
1070 REM BEFEHLSCODE LESEN ODER SCHREIBEN FUER PUFFER 0
1080 :
1090 PRINT#1,"M-W"+CHR$(0)+CHR$(0)+CHR$(1)+CHR$(B)
1100 :
1110 REM WARTEN
1120 :
1130 FORI=1TO5000*V:NEXTI
1140 :
1150 REM RETURNCODE
1160 :
1170 PRINT#1,"M-R"+CHR$(0)+CHR$(0)+CHR$(1)
1180 GET#1,X$:X=ASC(X$+CHR$(0))
1190 RETURN
2000 PRINT""
2010 FORI=1TO6:POKE19,64:INPUTAX$:POKE19,0:PRINT:AX$=AX$+CHR$(13)
2011 TX$=TX$+AX$:NEXT
2020 IFLEN(TX$)<252THENFORI=LEN(TX$)TO252:TX$=TX$+CHR$(32):NEXT
2030 RETURN