home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_A.d64 / adressen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  30 lines
  1. 1 print"[149][147]":poke53280,7:poke53281,7:print"     adressenverwaltung von s. meier"
  2. 3 print"              [1] eingabe":print"              [2] ausgabe"
  3. 5 print"              [3] aendern":print"              [4] loeschen"
  4. 7 geta$:onval(a$)gosub9,25,37,53:goto7
  5. 9 print"[147]"
  6. 11 input"[129]nachname  : [149]";n$:input"[129]vorname   : [149]";n$(0)
  7. 13 input"[129]strasse   : [149]";n$(1):input"[129]p.leitzahl: [149]";n$(3)
  8. 15 input"[129]wohnort   : [149]";n$(2):input"[129]telefon   : [149]";n$(4)
  9. 17 print"richtig ? <j/n>"
  10. 19 getri$:ifri$<>"j"andri$<>"n"then19
  11. 21 ifri$="n"thenprint"":goto11
  12. 23 z$=n$+",s,w":open2,8,2,z$:fori=0to4:print#2,n$(i):next:close2:gosub55:goto33
  13. 25 input"[147][129]nachname :[149]";n$:z$=n$+"*"+",s,r":open2,8,2,z$:an$=n$
  14. 27 fori=0to4:input#2,n$(i):nexti:close2:gosub55:print"[129]vorname   : [149]"n$(0)
  15. 29 print"[129]strasse   : [149]"n$(1):print"[129]p.leitzahl: [149]"n$(3)
  16. 31 print"[129]wohnort   : [149]"n$(2):print"[129]telefon   : [149]"n$(4):ifa=1thena=0:return
  17. 33 geta$:ifa$=""then33
  18. 35 run
  19. 37 a=1:gosub25
  20. 39 input"";n$:input"";n$(0)
  21. 41 input"";n$(1):input"";n$(3):input"";n$(2)
  22. 43 input"";n$(4)
  23. 45 print"richtig ? <j/n>"
  24. 47 getri$:ifri$<>"j"andri$<>"n"then47
  25. 49 ifri$="n"thenprint"":goto39
  26. 51 z$="s:"+an$:open15,8,15,z$:close15:gosub55:goto23
  27. 53 input"[147]welcher name ";n$:z$="s:"+n$:open15,8,15,z$:close15:gosub55:gosub33
  28. 55 v=peek(214):open15,8,15:input#15,n,f$:close15:poke214,24:sys58640
  29. 57 print"[144]    disk-status  :  [149]"f$"[145]":poke214,v:sys58640:return
  30.