5.


5. - 359


. ,
.
.
 
. .
 

 
. A: ,
.
CONTROL()
. ,
,
.
 
.
80 11, 1 10 :
 
CLEAR
cBootText := " " // ,
// .
@ 10, 02 SAY ": "
@ 11, 02 SAY ": "
IF FLOPPYTYPE("A:") = 2 // 1.2
nErrCode := DISKFORMAT("A:", 1200, "CONTROL", cBootText, 0)
IF nErrCode = 0
? " !"
ENDIF
ENDIF
RETURN
 
FUNCTION CONTROL(nTrack, nHead)
LOCAL nRetval
IF nTrack >= 11
@ 10, 08 SAY STR(nTrack)
@ 11, 08 SAY STR(nHead)
nRetval := 0 //
ELSE
nRetval := 2 //
ENDIF
RETURN
 
. ,
<ESC>.
:
 
FUNCTION CONTROL(nTrack, nHead)
LOCAL nRetval
IF INKEY() = 27
nRetval := 2 //