home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol043 / wc.pgn < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.3 KB  |  117 lines
  1. TOP; WC/ WORD COUNTER TEST PROGRAM CORRUPTED FROM W. A. GALE
  2.  
  3.  PARAMETER KLF=010
  4.  PARAMETER KNL=013
  5.  BYTE LF
  6.  BYTE C0
  7.  INT I00
  8.  BYTE C1
  9.  BYTE WB
  10.  BYTE WT
  11.  BYTE NL
  12.  BYTE AA
  13.  BYTE BB
  14.  BYTE CC
  15.  BYTE WW
  16.  BYTE F1(00275)
  17.  INT IBY
  18.  INT ILN
  19.  INT IWD
  20.  INT IBR
  21.  BYTE TR
  22.  INT I10
  23.  BYTE ND
  24.  BYTE DS(010)
  25.  BYTE CZ
  26.  INT IYY
  27.  INT IAA
  28.  INT IBB
  29.  INT IXX
  30.  BEGINMAIN(AC,IAV)
  31.  C0=+000
  32.  C1=+001
  33.  NL=+KNL
  34.  LF=+KLF
  35.  WB=' '
  36.  WT=+009
  37.  IBY=+00000
  38.  IWD=+00000
  39.  ILN=+00000
  40.  CZ='0'
  41.  WW=+000
  42.  I10=+00010
  43.  I00=+00000
  44.  TR='R'
  45.  IBR=+00001
  46.  CLOSE F1
  47.  ASSOCIATE FCB 1 WITH IBR
  48.  OPEN F1 FOR TR AT IBR
  49.  WHILE
  50.     READ CC FROM F1
  51.     AA=ER==C0
  52.  ON AA
  53.     IBY++
  54.     AA=CC==WB
  55.     BB=CC==WT
  56.     AA=AA?BB
  57.     BB=CC==NL
  58.     IF BB
  59.         ILN++
  60.     ENDIF
  61.     AA=AA?BB
  62.     IF AA
  63.         WW=+000
  64.     ELSE
  65.         AA=WW==C0
  66.         IF AA
  67.             IWD++
  68.             WW=+001
  69.         ENDIF
  70.     ENDIF
  71.  ENDWHILE
  72.  IAA=ER
  73.  GOSUB PN
  74.  IAA=ILN
  75.  GOSUB PN
  76.  IAA=IWD
  77.  GOSUB PN
  78.  IAA=IBY
  79.  GOSUB PN
  80.  WRITE NL
  81.  WRITE LF
  82.  CLOSE F1
  83.  ENDMAIN
  84.  SUB PN
  85.  AA=IAA==I00
  86.  IF AA
  87.     ND=C1
  88.     DS(C0)=CZ
  89.  ELSE
  90.     ND=C0
  91.     WHILE
  92.         AA=I00<!IAA
  93.     ON AA
  94.         IYY=IAA/I10
  95.         IBB=I10*IYY
  96.         IXX=IAA-IBB
  97.         IAA=IYY
  98.         AA=IXX
  99.         AA=AA+CZ
  100.         DS(ND)=AA
  101.         ND++
  102.     ENDWHILE
  103.  ENDIF
  104.  WHILE
  105.     IBB=ND
  106.     AA=I00<!IBB
  107.  ON AA
  108.     ND--
  109.     AA=DS(ND)
  110.     WRITE AA
  111.  ENDWHILE
  112.  WRITE WB
  113.  ENDSUB
  114.  BOTTOM
  115.  
  116.    
  117.