home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HISOFT.LZH / HISOFT_B.MSA / EXAMPLES / LINK / FREQLINK.BAS < prev    next >
BASIC Source File  |  1991-07-24  |  487b  |  33 lines
  1. DEFINT a-z
  2. CONST eofch=-1
  3.  
  4. DECLARE SUB getch CDECL
  5. 'SUB getch
  6. 'SHARED ch,source$,sx&
  7. 'IF sx&<=LEN(source$) THEN
  8. '    ch=ASC(MID$(source$,sx&,1))
  9. '    INCR sx&
  10. 'ELSE
  11. '    ch=eofch
  12. 'END IF
  13. '
  14. 'END SUB
  15.  
  16. input "enter filename:";filename$
  17. open filename$ for input as #1
  18. DIM freq(255)
  19. source$=INPUT$(LOF(1),1)
  20. sx&=1
  21. DO
  22.     getch
  23.      IF ch=eofch THEN EXIT LOOP
  24.      INCR freq(ch)
  25. LOOP
  26. FOR i=0 TO 255
  27.     PRINT i;TAB(6);
  28.     IF i>32 THEN PRINT CHR$(i);
  29.     PRINT ,freq(i)
  30. NEXT i
  31.     
  32. CLOSE #1
  33.