Retro1.org codex

*DECK     GETHDRX 
PROC GETHDRX (BUF); 
# TITLE GETHDRX - RETRIEVE SYSTEM HEADER (DUMMY VERSION).    #
 
      BEGIN  # GETHDRX #
# 
**    GETHDRX - RETRIEVE SYSTEM HEADER (DUMMY VERSION). 
* 
*     D. G. DEPEW.           82/01/15.
* 
*     THIS IS A TEMPORARY REPLACEMENT FOR THE MACREL TYPE ROUTINE 
*     *GETHDRX*, WHICH WOULD REQUIRE NVF TO BE SYSTEM RESIDENT TO RUN 
*     CORRECTLY.  THIS ROUTINE PROVIDES A DUMMY SYSTEM HEADER LINE. 
* 
*     PROC GETHDRX (BUF)
* 
*     ENTRY   BUF = ARRAY NAME OF A SIX WORD (MIN) BUFFER TO RECEIVE
*                   THE DUMMY HEADER. 
# 
 
 
      ARRAY BUF [00:00] S(6); ; 
 
 
# 
****  PROC GETHDRX - XREF LIST. 
# 
      XREF PROC MOVE; 
# 
****  THAT'S IT.
# 
 
 
      ARRAY MSG [00:00] S(6); 
        ITEM TEXT       C(00,00,60) = 
        ["HI,:DO:YOU:KNOW:THAT:CDC:MULTI-HOST:NAM:IS:A:GREAT:SYSTEM?"]; 
 
 
 
 
 
      MOVE (6, MSG, BUF); 
 
      END  # GETHDRX #
 
      TERM