*DECK GPTMDSQ 
          IDENT     GPTM$SQ 
          COMMENT   TERMINAL I/O ROUTINE. 
          TITLE     GPTM$SQ - GET AND PUT ON TERMINALS. 
          SST 
          LIST      F 
          B1=1
          ENTRY     USBF$RM 
          ENTRY     PFET$RM 
 GPTM$SQ  SPACE     4,8 
 GPTM$SQ  CAP.RM                   FIRST TIME ONLY
          SB3       B3-PD.I 
          ZR        B3,GOTA 
          SET.FOJ   P,B5,TPUT$SQ
 LOFJP    EQ        SETLOF         FIRST TIME 
 -        JP        B5             SUBSEQUENT TIMES 
 GOTA     SET.FOJ   G,B5,TGET$SQ
          JP        B5
* CALL /TGETDSQ/
*CALL /TGETDSQ/ 
* CALL /TPUTDSQ/
*CALL /TPUTDSQ/ 
          END 
