home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / felder (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  701b  |  37 lines
  1. 100 REM**** DATEN INS FELD LESEN ****
  2. 105 :
  3. 110 DIM A$(100,6)
  4. 120 D=D+1
  5. 130 FOR K=1 TO 6
  6. 140 READ A$(D,K)
  7. 150 IF A$(D,K)="@"THEN K=6:NEXT K:GOTO 210
  8. 160 NEXT K
  9. 170 GOTO 120
  10. 195 :
  11. 200 REM**** SUCHVORGANG *****
  12. 205 :
  13. 210 INPUT"STICHWORT";S$
  14. 220 FOR S=1 TO D
  15. 230 FOR K=1 TO 6
  16. 240 IF A$(S,K)=S$ THEN FOR Z=1 TO 6:PRINTA$(S,Z):NEXT Z
  17. 250 NEXT K
  18. 260 PRINT
  19. 270 NEXT S
  20. 280 PRINT"ENDE DER SUCHE"
  21. 295 :
  22. 300 REM**** WIEDERHOLUNG ODER ENDE ****
  23. 305 :
  24. 310 PRINT"NOCH EINMAL (J/N)?"
  25. 320 GET V$:IF V$="" THEN 320
  26. 330 IF V$="J" THEN 210
  27. 340 END
  28. 999 :
  29. 1000 REM**** DATENSAETZE *****
  30. 1001 :
  31. 1002 DATA GAZETTE,SPEEDSCRIPT,UTILITY,1/84,12,64
  32. 1003 DATA RUN,DIM,BASIC,3/58,125,20
  33. 1004 DATA 64ER,FILES,KURS,4/87,118,64
  34. 1005 DATA CHIP,SCHLEIFEN,BASIC,11/83,134,20/64
  35. 1006 DATA HAPPY,GARBAGE COLLECTION,KURS,4/87,38,20/64
  36. 10000 DATA @
  37.