BEGIN 

     CONSTBYTEINTEGERNAME  ID = K'160030'
     CONSTINTEGERNAME  NULLI=0

     CONSTINTEGER  DREAD=0, DWRITE=1
     RECORDFORMAT  PF(BYTEINTEGER  SERVICE, REPLY, INTEGER  A1, C 
       INTEGERNAME  A2, INTEGER  A3)

     INTEGER  I, J, K, L, M, DRIVE
     RECORD  (PF)P
     INTEGERARRAY  BUFF(0:256)



PROMPT('Copies Floppy Unit 0 to Unit 1
PLEASE CONFIRM?')
READSYMBOL(I)
DRIVE=K'020000';  ! UNIT ONE
IF  I#'Y' THEN  STOP 
P_SERVICE=3; P_REPLY = ID
P_A1=0; P_A2==NULLI
PONOFF(P)
IF  P_A1#9 START 
PRINTSTRING('DISC TURN OFF CHECK ERROR '); WRITE(P_A1, 1); NEWLINE
STOP 
FINISH 
P_SERVICE=3; P_REPLY=ID
P_A1=0; P_A2==NULLI
P_A3=K'020000'
PONOFF(P)
IF  P_A1#9 START 
   PRINTSTRING("UPPER CHECK FAILS
")
   STOP 
FINISH 
CYCLE  I = 0, 1, 1000
P_SERVICE=3; P_REPLY=ID
P_A1=DREAD;     ! READ ONE BLOCK
P_A2==BUFF(0)
P_A3=I; ! BLOCK
PONOFF(P)
IF  P_A1#0 START 
PRINTSTRING('DISC ERROR
')
STOP 
FINISH 
P_A2==BUFF(0)
P_A1=DWRITE
P_A3=I!DRIVE
P_SERVICE=3; P_REPLY=ID
PONOFF(P)
IF  P_A1#0 START 
PRINTSTRING('DISC WRITE ERROR
')
STOP 
FINISH 
REPEAT 
ENDOFPROGRAM