home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40a.dsk / FEBRUARY.1991 / INSTR.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  883b  |  20 lines
  1. 10  REM   ******************************
  2. 20  REM   * INSTR.DEMO                 *
  3. 30  REM   * BY ROGER D. CLEMENTS       *
  4. 40  REM   * COPYRIGHT(C) 1991          *
  5. 50  REM   * MINDCRAFT PUBL. CORP.      *
  6. 60  REM   * CONCORD, MA 01742          *
  7. 70  REM   ******************************
  8. 80  PRINT  CHR$(4)"BRUN INSTR"
  9. 90  POKE 31,0
  10. 100 B$ = "I AM READY FOR SUMMER TO COME."
  11. 110  HOME : PRINT "--PRESS CTRL-C TO EXIT--": PRINT 
  12. 120  PRINT "CURRENT STRING: ";B$: PRINT 
  13. 130  INPUT "STRING TO SEARCH (RETURN FOR CURRENT): ";C$: IF  LEN(C$) < >0  THEN B$ = C$
  14. 140  INPUT "STRING TO LOOK FOR: ";A$
  15. 150  INPUT "STARTING POSITION: ";SP
  16. 160 X =  USR(SP)A$,B$: PRINT 
  17. 170  IF X = 0  THEN  PRINT "MATCH NOT FOUND": GOTO 200
  18. 180  PRINT B$: HTAB X: FOR I = 1 TO  LEN(A$): PRINT "^";: NEXT : PRINT 
  19. 190  PRINT " X POSITION RETURNED IS ";X
  20. 200  PRINT : PRINT "PRESS ANY KEY... ";: GET C$: GOTO 110