Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 5 REM MEMSRCH.BAS BY TECHMAGE@TELEHACK.COM
- 10 PRINT "START ADDRESS (DEC)";
- 15 INPUT AS: REM STARTING ADDRESS (DECIMAL)
- 20 PRINT "END ADDRESS (DEC)";
- 25 INPUT AE: REM ENDING ADDRESS (DECIMAL)
- 30 PRINT "SEARCH STRING";
- 35 INPUT S$: REM SEARCH STRING
- 40 L=LEN(S$): REM LENGTH OF SEARCH STRING
- 45 DIM AA(L): REM ADDRESS ARRAY
- 50 AC=AS: REM CURRENT ADDRESS (INCREMENTS)
- 100 D=PEEK(AC): REM DATA
- 110 IF CHR$(D) = MID$(S$,1,1) THEN GOTO 200
- 115 AC=AC+1
- 120 IF AC >= AE THEN GOTO 300
- 125 GOTO 100
- 200 REM LOOP TO MATCH ENTIRE STRING
- 205 FOR I = 1 TO L
- 210 IF CHR$(PEEK(AC+I-1)) <> MID$(S$,I,1) THEN GOTO 115
- 215 AA(I)=AC+I-1
- 220 NEXT
- 225 GOTO 400
- 300 PRINT "SEARCH STRING ";
- 305 PRINT CHR$(34);S$;CHR$(34);
- 310 PRINT " NOT FOUND IN ADDRESS RANGE."
- 315 GOTO 420
- 400 PRINT "SEARCH STRING ";
- 405 PRINT CHR$(34);S$;CHR$(34);
- 410 PRINT " FOUND BETWEEN ADDRESSES";
- 415 PRINT AA(1);" AND ";AA(L);"."
- 420 END
Add Comment
Please, Sign In to add comment