home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / kundenkartei (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.8 KB  |  148 lines
  1. 100 rem ------------------------------
  2. 110 rem --                          --
  3. 120 rem --  ein einfaches programm  --
  4. 130 rem --   zur adressverwaltung   --
  5. 140 rem --                          --
  6. 150 rem ------------------------------
  7. 160 :
  8. 170 (NULL) .ad = nm$,st$,wo$,tl$
  9. 180 :
  10. 190 rem ***** hauptprogramm *****
  11. 200 :
  12. 210 (NULL) hschleife
  13. 220 : (NULL) menue
  14. 230 : (NULL) (w$)
  15. 240 (NULL) hschleife
  16. 250 :
  17. 260 rem ***** menueausgabe *****
  18. 270 :
  19. 280 (NULL) menue
  20. 290 : (NULL) clrscr
  21. 300 : print""
  22. 310 : c$=" [203][213][206][196][197][206][203][193][210][212][197][201] [146]":(NULL) centre
  23. 320 : print:print
  24. 330 : c$="[196]atei anlegen.........(1)"
  25. 340 :   (NULL) centre
  26. 350 :   print
  27. 360 : c$="[196]atei oeffnen.........(2)"
  28. 370 :   (NULL) centre
  29. 380 :   print
  30. 390 : c$="[196]atensatz lesen.......(3)"
  31. 400 :   (NULL) centre
  32. 410 :   print
  33. 420 : c$="[196]atensatz schreiben...(4)"
  34. 430 :   (NULL) centre
  35. 440 :   print
  36. 450 : c$="[197][206][196][197]..................(5)"
  37. 460 :   (NULL) centre
  38. 470 :   print ""
  39. 480 :   print
  40. 490 : c$="[201]hre [215]ahl ? (1-5)"
  41. 500 :   (NULL) centre
  42. 510 (NULL) taste
  43. 520 : get w$
  44. 530 : if w$<"1" or w$>"5" (NULL) taste
  45. 540 return
  46. 550 :
  47. 560 rem ***** menuepunkte *****
  48. 570 :
  49. 580 (NULL) 1
  50. 590 : (NULL) clrscr
  51. 600 : c$=" [196][193][212][197][201][160][193][206][204][197][199][197][206][160][146]"
  52. 610 :   (NULL) centre
  53. 620 : (NULL) iname
  54. 630 (NULL) ganzahl
  55. 640 : (NULL) ianzahl
  56. 650 : (NULL) testfloppy
  57. 660 : fb=(NULL)*254
  58. 670 : if az>fb/250 then print" [218][213][214][201][197][204][197] [196][193][212][197][206][211][193][197][212][218][197][160]!!! [146]":(NULL) ganzahl
  59. 680 : (NULL) n$,az,250
  60. 690 return
  61. 700 :
  62. 710 (NULL) 2
  63. 720 : (NULL)
  64. 730 : (NULL) clrscr
  65. 740 : c$=" [196][193][212][197][201][160][207][197][198][198][206][197][206][160][146]"
  66. 750 :   (NULL) centre
  67. 760 : (NULL) iname
  68. 770 : (NULL) n$
  69. 780 return
  70. 790 :
  71. 800 (NULL) 3
  72. 810 : (NULL) clrscr
  73. 820 : c$=" [196][193][212][197][206][211][193][212][218][160][204][197][211][197][206][160][146]"
  74. 830 :   (NULL) centre
  75. 840 :   print:print
  76. 850 : f=(NULL)
  77. 860 : if f=0 then print" [196][193][212][197][201][160][206][201][195][200][212] [199][197][207][198][198][206][197][212] !!! [146]":(NULL) (NULL)
  78. 870 (NULL) ikunde
  79. 880 : input"[203]undennummer : ";kn$
  80. 890 : kn=val(kn$)
  81. 900 : if kn<1 or kn>(NULL) then print" [213][206][199][213][197][204][212][201][199][197] [203][213][206][196][197][206][206][213][205][205][197][210] ":(NULL) ikunde
  82. 910 : (NULL) kn
  83. 920 : (NULL) .ad
  84. 930 : print"[203]undennummer:";kn$
  85. 940 : print"[206]ame        :";nm$
  86. 950 : print"[211]trasse     :";st$
  87. 960 : print"[215]ohnort     :";wo$
  88. 970 : print"[212]el.        :";tl$
  89. 980 (NULL) (NULL)
  90. 990 :
  91. 1000 (NULL) 4
  92. 1010 : (NULL) clrscr
  93. 1020 : c$=" [196][193][212][197][206][211][193][212][218][160][211][195][200][210][197][201][194][197][206][160][146]"
  94. 1030 :   (NULL) centre
  95. 1040 :   print:print
  96. 1050 : f=(NULL)
  97. 1060 : if f=0 then print" [196][193][212][197][201][160][206][201][195][200][212] [199][197][207][198][198][206][197][212] !!! [146]":(NULL) (NULL)
  98. 1070 (NULL) jkunde
  99. 1080 : input"[203]undennummer:";kn$
  100. 1090 : kn=val(kn$)
  101. 1100 : if kn<1orkn>(NULL) then print" [213][206][199][213][197][204][212][201][199][197] [203][213][206][196][197][206][206][213][205][205][197][210] ":(NULL) jkunde
  102. 1110 : input"[206]ame        :";nm$
  103. 1120 : input"[211]trasse     :";st$
  104. 1130 : input"[215]ohnort     :";wo$
  105. 1140 : input"[212]el.        :";tl$
  106. 1150 : ln=len(nm$)+1+len(st$)+1+len(wo$)+1+len(tl$)+1
  107. 1160 : if ln>(NULL) then print" [196][193][212][197][206][211][193][212][218][160][218][213][160][204][193][206][199] !!! [146]":(NULL) (NULL):(NULL) 4
  108. 1170 : (NULL) kn
  109. 1180 : (NULL) .ad
  110. 1190 return
  111. 1200 :
  112. 1210 (NULL) 5
  113. 1220 : (NULL)
  114. 1230 : (NULL) clrscr
  115. 1240 end
  116. 1250 :
  117. 1260 rem ***** unterprogramme *****
  118. 1270 :
  119. 1280 (NULL) centre
  120. 1290 : printtab((40-len(c$))/2)c$
  121. 1300 return
  122. 1310 :
  123. 1320 (NULL) clrscr
  124. 1330 : printchr$(147)chr$(14)chr$(8)
  125. 1340 return
  126. 1350 :
  127. 1360 (NULL) testfloppy
  128. 1370 (NULL) test
  129. 1380 : if (NULL)(8)=1 then return
  130. 1390 : print:print" [204][193][213][198][215][197][210][203] [197][201][206][211][195][200][193][204][212][197][206] !!! [146]"
  131. 1400 : poke 198,0:wait 198,255
  132. 1410 (NULL) test
  133. 1420 :
  134. 1430 (NULL) iname
  135. 1440 : input "[196]ateiname              :";n$
  136. 1450 : if len(n$)=0 then print"[145][145][145][145][145]":(NULL) iname
  137. 1460 return
  138. 1470 :
  139. 1480 (NULL) ianzahl
  140. 1490 : input "[193]nzahl der [196]atensaetze :";az$
  141. 1500 : az=val(az$)
  142. 1510 : if az<1 then print"[145][145][145]":(NULL) ianzahl
  143. 1520 return
  144. 1530 :
  145. 1540 (NULL) (NULL)
  146. 1550 : poke 198,0:wait 198,255
  147. 1560 return
  148.