home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / literatur-datei (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  74 lines
  1. 2 rem++++++++ literatur datei +++++++++
  2. 3 :
  3. 4 :
  4. 5 rem--------- menue ----------------
  5. 7 :
  6. 10 printchr$(147)
  7. 15 print spc(90)"waehlen sie bitte aus"
  8. 20 print tab(202)"(1) datei laden"
  9. 25 print spc(82) "(2) datensaetze suchen"
  10. 30 print spc(82) "(3) neuen text eingeben"
  11. 35 print spc(82) "(4) datei abspeichern"
  12. 40 print spc(82) "(5) ende"
  13. 45 :
  14. 50 print
  15. 55 input a
  16. 60 on a gosub 100,200,400,500,600
  17. 65 goto 10
  18. 90 :
  19. 100 rem-------- datei laden ----------
  20. 105 :
  21. 110 dim a$(100,6)
  22. 115 open 1,8,3,"literatur,s,r"
  23. 120 d=d+1
  24. 130 for k=1 to 6
  25. 140 input#1,a$(d,k)
  26. 150 if a$(d,k)="@"then k=6:next k:goto 180
  27. 160 next k
  28. 170 goto 120
  29. 180 close 1
  30. 190 return
  31. 195 :
  32. 200 rem------ datensaetze suchen ------
  33. 205 :
  34. 210 input"stichwort";s$
  35. 220 for s=1 to d
  36. 230 for k=1 to 6
  37. 240 if a$(s,k)=s$ then for z=1 to 6:printa$(s,z):next z
  38. 250 next k
  39. 260 print
  40. 270 next s
  41. 280 print"ende der suche"
  42. 290 print
  43. 300 :
  44. 310 print"noch einmal (j/n)?"
  45. 320 get v$:if v$="" then 320
  46. 330 if v$="j" then 210
  47. 340 return
  48. 390 :
  49. 400 rem----- neuen text eingeben ------
  50. 405 :
  51. 420 k=1
  52. 430 print k".kategorie":input a$(d,k)
  53. 440 if k<6 then k=k+1:goto 430
  54. 445 :
  55. 450 print:print"noch eine eingabe (j/n) ?"
  56. 460 get v$:if v$="" then 460
  57. 470 if v$="j" then d=d+1:goto 420
  58. 480 goto 500
  59. 490 :
  60. 500 rem------- datei abspeichern ------
  61. 505 :
  62. 510 open 1,8,4,"@:literatur,s,w"
  63. 520 for s=1 to d
  64. 530 for k=1 to 6
  65. 540 print#1,a$(s,k)
  66. 550 next k:next s
  67. 560 print#1,"@"
  68. 570 close 1
  69. 580 return
  70. 599 :
  71. 600 rem----------- ende --------------
  72. 605 :
  73. 610 end
  74.