home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / CMPRS.RPG < prev    next >
Text File  |  1992-06-16  |  2KB  |  70 lines
  1.      C**************************
  2.      C*    CITY AND LINE 5
  3.      C**************************
  4.      C*
  5.      C         CITY       BEGSR
  6.      C               SETOF             5152
  7.      C               Z-ADD1      X
  8.      C               Z-ADD1      Y      20
  9.      C         CITYST    COMP *BLANK               5151
  10.      C     51           GOTO PASS8
  11.      C*
  12.      C*   COMPRESS CITY
  13.      C*
  14.      C         LOOP9       TAG
  15.      C         CIT,X       COMP SPACE             51
  16.      C     51           EXSR TSTSPC
  17.      C     51           GOTO PASS9
  18.      C               MOVE CIT,X      LN5,Y
  19.      C               ADD    1      Y
  20.      C               ADD    1      X
  21.      C         X       COMP 26             5252
  22.      C     52           GOTO LOOP9
  23.      C*
  24.      C         PASS9       TAG
  25.      C               MOVE COMMA      LN5,Y
  26.      C               ADD    2      Y
  27.      C         PASS8       TAG
  28.      C*
  29.      C*   MOVE STATE
  30.      C*
  31.      C               Z-ADD1      X
  32.      C               SETOF             5152
  33.      C         STATST    COMP *BLANK             51
  34.      C     51           GOTO PASSS
  35.      C         LOOPS       TAG
  36.      C               MOVE STA,X      LN5,Y
  37.      C               ADD    1      Y
  38.      C               ADD    1      X
  39.      C         X       COMP 3             5252
  40.      C     52           GOTO LOOPS
  41.      C               ADD    1      Y
  42.      C         PASSS       TAG
  43.      C*
  44.      C*  MOVE ZIP
  45.      C*
  46.      C               Z-ADD1      X
  47.      C               SETOF             5152
  48.      C         ZIPCST    COMP SPACE             51
  49.      C     51           GOTO PASSZ
  50.      C         LOOPZ       TAG
  51.      C         ZIP,X       COMP SPACE             52
  52.      C     52           GOTO PASSZ
  53.      C               MOVE ZIP,X      LN5,Y
  54.      C               ADD    1      Y
  55.      C               ADD    1      X
  56.      C         X       COMP 16             5252
  57.      C     52     Y       COMP 35             5252
  58.      C     52           GOTO LOOPZ
  59.      C         PASSZ       ENDSR
  60.      C*
  61.      C**************************
  62.      C*    TEST SECOND SPACE FOR BLANK IN CITY
  63.      C**************************
  64.      C         TSTSPC    BEGSR
  65.      C               Z-ADD0      S      20
  66.      C         X       ADD    1      S
  67.      C         CIT,S       COMP SPACE             51
  68.      C               ENDSR
  69.      C**************************
  70.