home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8707.d64 / search-demo1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  332b  |  16 lines
  1. 100 A=1000
  2. 110 DIM A$(A)
  3. 120 FOR I=1 TO A-1
  4. 130 : A$(I)="MAIER"
  5. 140 NEXT I
  6. 150 A$(A-1)="MAYER":A$(A)="MEIER"
  7. 160 PRINT "ES SIND";A-1;"'MAIER', EIN 'MAYER' U.EIN 'MEIER' VORHADEN"
  8. 170 INPUT "SUCHKRITERIUM";S$
  9. 180 :
  10. 190 X=TI
  11. 200 SYS 49344,S$,A$(1),A$(A),P%
  12. 210 T=(TI-X)/60
  13. 220 PRINT "GEFUNDEN: ELEMENT NUMMER";P%
  14. 230 PRINT "SUCHZEIT IN SEC:";T:PRINT
  15. 240 GOTO 150
  16.