home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l171 / 1.img / ADVR_EX / SUB_EX.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-03-14  |  442 b   |  21 lines
  1. DECLARE SUB Linesearch (Test$, P$)
  2. '
  3. ' *** SUB1_EX.BAS - SUB statement programming example
  4. '
  5. CLS
  6. LOCATE , , 1, 0, 12
  7. INPUT "╜╨┐ΘñJ¡n╖j┤M¬║└╔«╫ªW║┘ "; F$
  8. INPUT "╜╨┐ΘñJ¡n╖j┤M¬║ªrªΩ "; P$
  9. OPEN F$ FOR INPUT AS #1
  10. DO WHILE NOT EOF(1)
  11.    LINE INPUT #1, Test$
  12.    CALL Linesearch(Test$, P$)
  13. LOOP
  14.  
  15. SUB Linesearch (Test$, P$) STATIC
  16.    Num = Num + 1
  17.    X = INSTR(Test$, P$)
  18.    IF X > 0 THEN PRINT "▓─"; Num; "ªµ : "; Test$
  19. END SUB
  20.  
  21.