Commodore vic-1540 User Manual page 67

51S6 REM ******************+**+*
5185 REM * FDD BLOCK RERL *
5168 REM *♦♦*♦**********♦*****+*
5116 G0SUB5330
5120 PRINT#15, "Ul: ",CH.;FD,F7;F5
5136 PRIHT#15,"B- P;",CH,FP
5140 G0SUB5276
5150 FGRFI=1TOFX
5160 1HPUT#CH..FB$(FI):
51S0 NEXT
5190 RETURN
5209 REM #.#*♦**#********♦*#*****
5201 REM * FDD-BLOCK WRITE *
5202 REM #******#*******♦*******
5210 GOSUB5330
5220 PRINT#15,"B-P:";CH; FP
5230 FORFI=1TOFX=PRINT#CH,F£$<FI);CHR$<13)> ■NEXT
5240 PRINT#15,"U2:"iCH;FD;FT;FS
525Q GOSUB5270
5260 RETURN
5270 REM ******************#****
.5275 REM * ERROR CHECK *
527S REM ********#****♦♦♦♦******
5280 INPUT#.l 5.. EH, EM* .• ET, ES
5296 IFEN=0THENRETURN
5360 PR I NT" ERROR STflTUS:" .■ EH; EM*; ET; ES
5310 INPUT'-CONTINUE?";'f't = IFV$="V"THENRETURN
5320 STOP
5322 REM **********if:********+if:*+
5324 REM * SET TRflCK & SECTOR *
5326 REM #*#**#**♦****♦*********
5330 IFFC358THEHF1=0:F2=22 = F3=1:GOT05378
5340 IFF>357FlHIiF<471THEHFl=357: F2=20 ' • F3=19: GOTO5370
5350 IFF>471fiHDF<580THENFl=471:F2=19:F3=25:GOTO5370
5366 IFF>580THENF1=589 = F2=18:F3=31
5370 FT=INT< <<P-F1>-1)/(F2-l))+F3
5380 FS=F-F1-<FT-FS)*F2+(FT-F3-1>
5330 RETURN
60