1 C WAS SUBROUTINE GETIN(WORD1,WORD1A,WORD1X,WORD2,WORD2A,WORD2X)
2 C OS/8 version returns 4 chars in the first word of each command entity
4 C GET A COMMAND FROM THE ADVENTURER. SNARF OUT THE FIRST WORD, PAD IT WITH
5 C BLANKS, AND RETURN IT IN WORD1 AND WORD1A. (for OS/8, WORD1)
6 C CHARS 5 AND 6 ARE RETURNED IN WORD1X, IN
7 C CASE WE NEED TO PRINT OUT THE WHOLE WORD IN AN ERROR MESSAGE. ANY NUMBER OF
8 C BLANKS MAY FOLLOW THE WORD. IF A SECOND WORD APPEARS, IT IS RETURNED IN
9 C WORD2 AND WORD2A (CHARS 5 AND 68 IN WORD2X), ELSE WORD2 IS SET TO ZERO.
10 C (for OS/8, WORD2 and WORD2X).
12 C IMPLICIT INTEGER (A-Z)
13 C LOGICAL*1 FRST(20),BLANK,LCA,LCZ,UCA
14 C DATA BLANK/' '/,UCA/'A'/,LCA/'a'/,LCZ/'z'/
16 SUBROUTINE GETIN(WORD1,WORD1X,WORD2,WORD2X)
17 INTEGER INPUT(20),WORD1,WORD1X
24 CALL RDLINE(INPUT, 20)
31 C Using INT here to normalize the input values
42 IF(INPUT(I).EQ.32)GOTO 20
44 C Move four characters to WORD1
47 CALL CPUT(WORD1, IX1, INPUT(I))
51 C If blank, go to word 2
53 IF(INPUT(I) .EQ. 32) GOTO 50
56 C Move two characters to WORD1X
59 CALL CPUT(WORD1X, IX1, INPUT(I))
62 IF(INPUT(I).EQ.32)GOTO 50
70 IF (INPUT(I).EQ. 32)GOTO 50
76 CALL CPUT(WORD2, IX1, INPUT(I))
79 IF (INPUT(I).EQ. 32) GOTO 100
85 CALL CPUT(WORD2X, IX1, INPUT(I))
88 IF(INPUT(I).EQ.32) GOTO 100
90 100 IF (WORD2 .NE. ' ') RETURN