home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xextract.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  67 lines
  1.     REM    SCAN
  2.     INPUT "FILENAME: ";FILENAME$
  3.     FILEOUT$="LIST.FIL"
  4.     DIM    FLAGS(20)
  5.     DIM    FIRST$(20),LAST$(20),ADDRESS$(20),CITY$(20)
  6.     DIM    ZIP$(20),AREA$(20),TEL$(20)
  7.     K=20
  8.     OUTCNT=0
  9.     COUNTER=0
  10.     FILE    FILENAME$
  11.     FILE    FILEOUT$
  12.  
  13. 10    REM
  14.     FOR J=1 TO 20
  15.     FLAGS(J)=0
  16.     NEXT J
  17.  
  18.     FOR J=1 TO 20
  19.    READ #1; LAST$(J),FIRST$(J),ADDRESS$(J),CITY$(J),ZIP$(J),AREA$(J),TEL$(J)
  20.     IF LAST$(J)="END" THEN 20
  21.     COUNTER=COUNTER+1
  22.     NEXT J
  23. 20    GOSUB 65
  24. 33    REM
  25.     PRINT
  26.     PRINT "0 -->END PAGE / 1-20 -->EXTRACT ITEM / 21 -->RESTART"
  27.  
  28. 35    REM
  29.     INPUT ANSWER
  30.     IF ANSWER = 0 THEN 40
  31.     IF ANSWER = 21 THEN 55
  32.     IF ANSWER > 20 THEN 35
  33.     IF ANSWER <1   THEN 35
  34.     FLAGS(ANSWER)=1
  35.     GOTO 35
  36.  
  37. 40    REM
  38.     FOR J=1 TO K
  39.     IF FLAGS(J) = 0 THEN 45
  40.    PRINT #2; LAST$(J),FIRST$(J),ADDRESS$(J),CITY$(J),ZIP$(J),AREA$(J),TEL$(J)
  41.     OUTCNT=OUTCNT+1
  42. 45    IF LAST$(J)="END" THEN 22
  43.     NEXT J
  44.     GOTO 10
  45.  
  46. 55    REM
  47.     FOR J=1 TO 20
  48.     FLAGS(J)=0
  49.     NEXT J
  50.     GOSUB 65
  51.     GOTO 33
  52.  
  53. 65    REM    LIST
  54.     PRINT CHR$(26)
  55.     FOR J=1 TO 20
  56.     IF LAST$(J)="END" THEN 70
  57.     PRINT J;": ";LAST$(J);"/";FIRST$(J);TAB(27);ADDRESS$(J);TAB(55);CITY$(J)
  58.     NEXT J
  59. 70    RETURN
  60.  
  61. 22    REM    END OF JOB ROUTINE
  62.     PRINT #2; "END","END","END","END"
  63.     PRINT "END OF LIST"
  64.     PRINT COUNTER;" INPUT ITEMS"
  65.     PRINT OUTCNT;" OUTPUT ITEMS"
  66.     END
  67.