home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 November / 64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64 / adressverwaltung (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.0 KB  |  50 lines
  1. 10 dim a$(100):dim b$(100):dim c$(100)
  2. 15 print chr$(147)
  3. 20 print:print"adressverwaltung v2
  4. 30 [153]:[153]"gespeicherte adressen:"az
  5. 40 [153]:[153]"bitte waehlen:
  6. 50 print" (1) eingabe einer neuen adresse
  7. 60 [153]" (2) ausgabe aller adressen
  8. 70 print" (3) suche nach adresse
  9. 80 [153]" (4) ende
  10. 90 print
  11. 100 get w$
  12. 110 if w$="1"then 1000
  13. 120 if w$="2"then 2000
  14. 130 if w$="3"then 3000
  15. 140 if w$="4"then 4000
  16. 150 goto 100
  17. 1000 az=az+1
  18. 1010 print"die"az"[157]. adresse wird eingegeben.
  19. 1020 [133]"vorname + name ";a$(az)
  20. 1030 [133]"adresse ";b$(az)
  21. 1040 [133]"telefon ";c$(az)
  22. 1050 [153]:[153]"adresse erfasst.":[137] 30
  23. 2000 [139] az[178]0 [167] [153]"keine adressen gespeichert !":[137] 40
  24. 2010 [129] i[178]1 [164] az
  25. 2020 [153]
  26. 2050 [153]:[153]"name:    "a$(i)
  27. 2060 [153]"adresse: "b$(i)
  28. 2070 [153]"telefon: "c$(i)
  29. 2080 [153]:[153]"bitte eine taste
  30. 2090 print"abbruch mit <e>
  31. 2100 [161] a$
  32. 2110 [139] a$[178]"e"[167] 40
  33. 2120 [139] a$[178]""[167] 2100
  34. 2130 [130]
  35. 2140 [137] 40
  36. 3000 [139] az[178]0 [167] [153]"keine adressen gespeichert !":[137] 40
  37. 3010 [133]"suche nach welchem namen ";s$
  38. 3020 f[178]0:[129] i[178]1 [164] az
  39. 3030 [139] s$[179][177]a$(i)[167] 3100
  40. 3040 [153]:[153]"adresse gefunden:
  41. 3050 print:print"name:    "a$(i)
  42. 3060 print"adresse: "b$(i)
  43. 3070 print"telefon: "c$(i)
  44. 3080 f=1
  45. 3100 next
  46. 3110 if f=0 then print:print"leider nicht gefunden
  47. 3120 [137]40
  48. 4000 [153]"tschuess !
  49. 4010 end
  50.