home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / search-demo2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  280b  |  14 lines

  1. 100 A=100
  2. 110 DIM A$(A)
  3. 120 FOR I=1 TO A
  4. 140 : A$(I)="TEST"+STR$(I)
  5. 160 : PRINT A$(I)
  6. 170 NEXT I
  7. 180 :
  8. 190 S$="":INPUT "SUCHKRITERIUM";S$
  9. 200 I=1
  10. 210 SYS 49344,S$,A$(I),A$(A),P%
  11. 220 IF P%<>0 AND P%<A THEN PRINT "STRING ";A$(P%),"INDEX";P%:I=P%+1:GOTO 210
  12. 230 IF P%<>0 THEN  PRINT "STRING ";A$(P%),"INDEX";P%
  13. 240 GOTO 190
  14.