! ! 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