home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / felder (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.