home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoseric.hdv / ERIC / APWRITE / COUNTER < prev    next >
Encoding:
Text File  |  1984-03-20  |  459 b   |  42 lines  |  [04] ASCII Text (0x0000)
  1. START   NY
  2.  PND
  3.  PPR
  4.  PPR     Word Counter
  5.  PPR
  6.  PIN Enter Disk File Name:=$A
  7.  PCS?$A??
  8.  PGO QUIT
  9. NAMEOK  NY
  10.  L$A
  11.  B
  12.  F<< <
  13.  Y?
  14.  E
  15.  D
  16.  F<< <
  17.  Y?
  18.  B
  19. CHCR F<>< <A
  20.  B
  21. DELSP F/    / /A
  22.  B
  23.  F/    / /A
  24.  B
  25.  F/  / /A
  26.  B
  27.  F/  / /A
  28.  B
  29.  F/  / /A
  30.  P
  31.  PSX 0
  32. COUNT   B
  33. LOOP    F/ / /
  34.  Y?
  35.  PGO SETUP
  36.  PGO TOTAL
  37. SETUP   PSX +1
  38.  PGO LOOP
  39. TOTAL   PSX -1
  40.  PIN Total number of words in file "$A" = (X). (Press RETURN)
  41.  PGO START
  42. QUIT    PIN End of Word Count     (Press RETURN)