!
!      FORMAT.......FORMATS RXO2 ON UNIT 1
!
CONTROL  K'101011'
SYSTEMROUTINESPEC  MAPHWR(INTEGER  SEG)
BEGIN 
RECORDFORMAT  RXF(INTEGER  CONTROL,DBREG)
CONSTRECORD (RXF)NAME  RX=K'117170'
INTEGER  I
MAPHWR(4)
PRINTSTRING('FORMATS RXO2 ON UNIT 1.........')
NEWLINE
PROMPT('PLEASE CONFIRM:')
READSYMBOL(I)
IF  I='Y' START 
   WHILE  RX_CONTROL&K'40'=0 CYCLE ; REPEAT 
   RX_CONTROL=K'431'
   WHILE  RX_CONTROL&K'200'=0 CYCLE ; REPEAT 
   RX_DBREG='I'
   WHILE  RX_CONTROL&K'40'=0 CYCLE ; REPEAT 
   IF  RX_CONTROL<0 START 
   PRINTSTRING('**** FORMAT ERROR ****
')
   ELSE  START 
      PRINTSTRING(' FORMAT COMPLETED.
')
   FINISH 
FINISH 
ENDOFPROGRAM