SECTION "DISCMEND"

GET "LIBHDR"
GET "IOHDR"


LET START() BE
    $(
    LET BUFF = VEC 256
    FOR CYL = 0 TO 76
       DO FOR SEC = 0 TO 12
          DO $(
             LET N = 0
             IF TESTFLAGS(1) THEN GOTO EXIT
               $(
               IF SENDPKT(-1,-2,ACT.READ,0,0,BUFF,256,0,CYL,0,SEC) = 0
               THEN BREAK
               N := N+1
               IF TESTFLAGS(1) THEN GOTO EXIT
               IF N>10000
               THEN
                 $(
                 WRITEF("%N,%N,%N ABANDONED*N",CYL,0,SEC)
                GOTO GIVE.UP
                 $)
               $) REPEAT

             IF N>1
             THEN
               $(
               WRITEF("%N,%N,%N - %N TRIES*N",CYL,0,SEC,N)
              UNTIL SENDPKT(NOTINUSE,-2,ACT.WRITE,0,0,BUFF,256,0,CYL,0,SEC) = 0
              DO IF TESTFLAGS(4) THEN BREAK
               $)
GIVE.UP:     LOOP
             $)
EXIT: RETURN
    $)