home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 August / 64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64 / search-demo2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  280 b   |  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.