home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / literatur-datei (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.5 KB  |  81 lines
  1. 2 rem++++++++ literatur datei +++++++++
  2. 3 :
  3. 4 :
  4. 5 rem--------- menue ----------------
  5. 7 :
  6. 8 dim a$(100,6):fori=1to38:ln$=ln$+"[192]":next
  7. 9 poke53280,0:poke53281,0:poke646,15
  8. 10 sys58692:printchr$(142):fl=0
  9. 15 print spc(52)"literatur-datei"
  10. 16 println$
  11. 20 print tab(209)"(1) datei laden"
  12. 25 print spc(89) "(2) datensaetze suchen"
  13. 30 print spc(89) "(3) neuen text eingeben"
  14. 35 print spc(89) "(4) datei abspeichern"
  15. 40 print spc(89) "(5) ende"
  16. 45 :
  17. 50 print
  18. 55 geta$
  19. 60 onval(a$)gosub 100,200,400,500,600
  20. 65 iffl=0then55
  21. 66 iffl=1then10
  22. 90 :
  23. 100 rem-------- datei laden ----------
  24. 105 :
  25. 115 sys58692:open 1,8,3,"literatur,s,r"
  26. 120 d=d+1
  27. 130 for k=1 to 6
  28. 140 input#1,a$(d,k)
  29. 145 printa$(d,k)
  30. 150 if a$(d,k)="@"then k=6:next k:goto 180
  31. 160 next k
  32. 170 print:goto 120
  33. 180 close 1
  34. 190 fl=1:return
  35. 195 :
  36. 200 rem------ datensaetze suchen ------
  37. 205 :
  38. 210 input"stichwort";s$
  39. 220 for s=1 to d
  40. 230 for k=1 to 6
  41. 240 if a$(s,k)=s$ then for z=1 to 6:printa$(s,z):next z
  42. 250 next k
  43. 260 print
  44. 270 next s
  45. 280 print"ende der suche"
  46. 290 print
  47. 300 :
  48. 310 print"noch einmal (j/n)?"
  49. 320 get v$:if v$="" then 320
  50. 330 if v$="j" then 210
  51. 340 fl=1:return
  52. 390 :
  53. 400 rem----- neuen text eingeben ------
  54. 405 :
  55. 420 k=1
  56. 430 print k".kategorie: ";:poke19,64:input a$(d,k):poke19,0:print
  57. 440 if k<6 then k=k+1:goto 430
  58. 445 :
  59. 450 print:print"noch eine eingabe (j/n) ?"
  60. 460 get v$:if v$="" then 460
  61. 470 if v$="j" then d=d+1:goto 420
  62. 480 gosub501:fl=1:return
  63. 490 :
  64. 500 rem------- datei abspeichern ------
  65. 501 print"diskette im laufwerk?"
  66. 502 print"zum speichern <taste> druecken!"
  67. 503 poke198,0:wait198,1
  68. 505 :
  69. 510 open 1,8,4,"@:literatur,s,w"
  70. 520 for s=1 to d
  71. 530 for k=1 to 6
  72. 540 print#1,a$(s,k)
  73. 550 next k:next s
  74. 560 print#1,"@"
  75. 570 close 1
  76. 580 fl=1:return
  77. 599 :
  78. 600 rem----------- ende --------------
  79. 605 :
  80. 610 sys58692:end
  81.