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
80 PRINT"[147]    [211][197][203][212][207][210][160][204][197][211][197][206] [201][206] [211][208][213][210] 36 [194][201][211] 41   "
90 PRINT"[210]ICHTIGE [196]ISKETTE EINLEGEN UND <[210][197][212][213][210][206]>"
92 GETT$:IFT$<>CHR$(13)THEN92
100 OPEN1,8,15,"I"
110 FORI=0TO250:TX$=TX$+CHR$(254):NEXTI
210 :
220 REM LESEN DES BLOCKS
230 :
240 B=R:GOSUB1000
300 :
310 :
330 P=0:PRINT"[147] [196]ATENAUSGABE:"
340 FORI=1TOLEN(TX$)
350 PRINT#1,"M-R"+CHR$(I+2)+CHR$(3)+CHR$(1)
360 GET#1,X$:PRINTX$;
370 NEXTI
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