home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / paket__1 / menue.bas < prev    next >
BASIC Source File  |  1997-10-09  |  11KB  |  152 lines
  1. 1  WIDTH 80: GOTO 100
  2. 20 LOCATE 21,5: PRINT "                     BELIEBIGE TASTE DRÜCKEN"
  3. 25 E$=INKEY$: IF E$="" THEN 25
  4. 26 GOSUB 150: GOTO 102
  5. 60 CLS
  6. 61 LOCATE 2,1: PRINT STRING$(80,45)
  7. 62 LOCATE 3,1: PRINT SPACE$(29)+"    H A U P T M E N Ü"
  8. 63 LOCATE 4,1: PRINT SPACE$(26)+"(c) 1991 by Siegfried Hübner"
  9. 64 LOCATE 5,1: PRINT STRING$(80,45): RETURN
  10. 100 GOSUB 60
  11. 102 LOCATE 6,1:PRINT STRING$(80,45)
  12. 103 LOCATE 8,1: PRINT "  [1] STAMMDATEN LADEN       [2] ARTIKELDATEI LADEN     [3] KUNDENDATEI LADEN  "
  13. 105 LOCATE 10,1: PRINT "  [A] KURZERKLÄRUNG          [B] KURZERKLÄRUNG          [C] KURZERKLÄRUNG      "
  14. 107 LOCATE 12,1: PRINT STRING$(80,45)
  15. 116 LOCATE 14,1: PRINT "  [4] LIEFERANTEN LADEN      [5] PD INFO"                
  16. 118 LOCATE 16,1: PRINT "  [D] KURZERKLÄRUNG          [E] WERBUNG                [X] PROGRAMM BEENDEN   "
  17. 120 LOCATE 19,1: PRINT STRING$(80,45)
  18. 121 GOSUB 190
  19. 122 LOCATE 21,32: PRINT "BITTE WÄHLEN SIE  ";
  20. 123 LOCATE 21,32: PRINT "BITTE WÄHLEN SIE  ";
  21. 130 E$=INKEY$: IF E$="" THEN GOTO 131: GOTO 121
  22. 131 IF E$="1" THEN GOSUB 180: RUN "stamm"
  23. 132 IF E$="2" THEN GOSUB 180: RUN "arti"
  24. 133 IF E$="3" THEN GOSUB 180: RUN "kunde"
  25. 134 IF E$="4" THEN GOSUB 180: RUN "liefer"
  26. 135 IF E$="5" THEN GOSUB 180: GOSUB 300
  27. 136 REM IF E$="6" THEN GOSUB 180: REM RUN "EKL"
  28. 137 IF E$="A" OR E$="a" THEN 200
  29. 138 IF E$="B" OR E$="b" THEN 220
  30. 139 IF E$="C" OR E$="c" THEN 240
  31. 140 IF E$="D" OR E$="d" THEN 260
  32. 141 IF E$="E" OR E$="e" THEN 700
  33. 142 IF E$="X" OR E$="x" THEN 170
  34. 144 GOTO 130
  35. 150 FOR T=1 TO 14
  36. 151 LOCATE 5+T,1: PRINT SPACE$(80): NEXT: RETURN
  37. 170 LOCATE 21,1: PRINT "                                SICHER  (J/N)  ?                                "    
  38. 173 E$=INKEY$: IF E$="" THEN 173
  39. 174 IF E$="j" OR E$="J" THEN CLS: END
  40. 175 GOTO 116
  41. 180 LOCATE 20,1: PRINT STRING$(80,45)
  42. 181 LOCATE 21,1: PRINT "                            PROGRAMM WIRD GELADEN                               "
  43. 182 LOCATE 22,1: PRINT STRING$(80,45): RETURN
  44. 190 PRINT STRING$(80,45)
  45. 191 PRINT STRING$(80,32)                              
  46. 192 PRINT STRING$(80,45): RETURN
  47. 200 LOCATE 6,1: COLOR 0,7:PRINT "STAMMDATEN                                                                      ":COLOR 7,0
  48. 201 LOCATE 7,1: PRINT SPACE$(80)
  49. 202 LOCATE 8,1: PRINT "Dieses Programm sollten Sie als erstes wählen. Hier geben Sie Daten zu Ihrer    "
  50. 203 LOCATE 9,1: PRINT "Firma ein. Die Stammdaten werden vor allem für die Fakturierung benötigt.       "
  51. 204 LOCATE 10,1: PRINT "Neben der Anschrift können Sie Ihre Telefon-Nummer sowie die Bankverbindung     "
  52. 205 LOCATE 11,1: PRINT "eingeben. Korrekturen bzw. Änderungen sind in diesem Programmteil möglich.      ": LOCATE 12,1: PRINT SPACE$(80)
  53. 206 LOCATE 13,1: PRINT "Automatisch werden die Daten per Tastendruck in den Menüteilen ÄNDERN           "
  54. 207 LOCATE 14,1: PRINT "und DRUCKEN eingelesen. Um eine schnelle Übersicht über die STAMMDATEN          "
  55. 208 LOCATE 15,1: PRINT "zu bekommen, ist ein Drucker-Ausdruck vorgesehen.                               " : LOCATE 16,1: PRINT SPACE$(80)
  56. 209 LOCATE 17,1: PRINT "Von diesem Unterprogramm aus können Sie wieder dieses HAUPTMENÜ laden oder      "
  57. 210 LOCATE 18,1: PRINT "das Programm beenden. Bei Beendigung befinden Sie sich wieder in der DOS-Ebene. "
  58. 211 LOCATE 19,1: PRINT "Weiterführende Erklärungen finden Sie im Begleitheft. Sehen Sie bitte dort nach.": GOTO 20
  59. 220 LOCATE 6,1: COLOR 0,7: PRINT "ARTIKEL-STAMMDATEN                                                              ": COLOR 7,0
  60. 221 LOCATE 7,1: PRINT SPACE$(80)
  61. 222 LOCATE 8,1: PRINT "In dem Programmteil ARTIKEL werden sämtliche Artikel Ihres Sortiments erfaßt.   "
  62. 223 LOCATE 9,1: PRINT "Dabei sehr wichtig ist die Angabe der Artikel-Nummer. Ohne dieser Artikel-      "
  63. 224 LOCATE 10,1: PRINT "Nummer kann keine Rechnung erstellt werden.                                     ": LOCATE 11,1: PRINT SPACE$(80)
  64. 225 LOCATE 12,1: PRINT "Die Eingabemaske gliedert sich wie folgt:                                       "
  65. 226 LOCATE 13,1: PRINT "ARTIKEL-NUMMER / ARTIKEL-GRUPPE / WARENTEXT  / MEHRWERTSTEUER                   "
  66. 227 LOCATE 14,1: PRINT "LIEFERANT 1 / LIEFERANT 2 / BESTAND / MINDESTBESTAND /                          "
  67. 228 LOCATE 15,1: PRINT "PREIS EK NETTO / PREIS VK NETTO                                                 "
  68. 229 LOCATE 16,1: PRINT "                                                                                "
  69. 230 LOCATE 17,1: PRINT "Die Artikel-Daten können gelistet auf dem Bildschirm wie auch auf dem Drucker   "
  70. 231 LOCATE 18,1: PRINT "ausgegeben werden. Suchen nach der Artikel-Nummer ist möglich.                  "
  71. 232 LOCATE 19,1: PRINT "Weiterführende Erklärungen finden Sie im Begleitheft. Sehen Sie bitte dort nach.": GOTO 20
  72. 240 LOCATE 6,1: COLOR 0,7: PRINT "KUNDEN-STAMMDATEN                                                               ": COLOR 7,0
  73. 241 LOCATE 7,1: PRINT SPACE$(80)
  74. 242 LOCATE 8,1: PRINT "In dem Programmteil KUNDEN werden Ihre Kunden erfaßt. Wichtig ist hier die      "
  75. 243 LOCATE 9,1: PRINT "Angabe der Kunden-Nummer. Ohne diese Angabe kann keine Rechnung erstellt werden."
  76. 244 LOCATE 10,1: PRINT "Weiterhin wichtig sind die Angaben von Rabatt und Liefersperren.                ": LOCATE 11,1: PRINT SPACE$(80)
  77. 245 LOCATE 12,1: PRINT "Die Eingabemaske gliedert sich wie folgt:                                       "
  78. 246 LOCATE 13,1: PRINT "KUNDEN-NUMMER / NACHNAME / VORNAME / ZUSATZTEXT / STRASSE / PLZ + ORT /         "
  79. 247 LOCATE 14,1: PRINT "TELEFON / RABATT IN % / LIEFERSPERRE                                            "
  80. 248 LOCATE 15,1: PRINT "                                                                                "
  81. 249 LOCATE 16,1: PRINT "Die Kundendatei kann nach dem Namen sowie nach der Kunden-Nummer sortiert       "
  82. 250 LOCATE 17,1: PRINT "werden. Neben dem Listen der Kundendaten ist auch eine Druckerausgabe vorge-    "
  83. 251 LOCATE 18,1: PRINT "sehen. Suchen nach der Kundennummer oder Nachname des Kunden ist möglich.       "
  84. 252 LOCATE 19,1: PRINT "Weiterführende Erklärungen finden Sie im Begleitheft. Sehen Sie bitte dort nach.": GOTO 20
  85. 260 LOCATE 6,1: COLOR 0,7: PRINT "LIEFERANTEN-STAMMDATEN                                                          ": COLOR 7,0
  86. 261 LOCATE 7,1: PRINT SPACE$(80)
  87. 262 LOCATE 8,1: PRINT "In dem Programmteil LIEFERANTEN werden die Lieferanten Ihres Verkaufssor-       "
  88. 263 LOCATE 9,1: PRINT "timents erfaßt. Diese Daten dienen Ihnen als Hinweis auf die jeweilige          "
  89. 264 LOCATE 10,1: PRINT "Zulieferfirma mit den jeweiligen Konditionen.                                   ": LOCATE 11,1: PRINT SPACE$(80)
  90. 265 LOCATE 12,1: PRINT "Die Eingabemaske gliedert sich wie folgt:                                       "
  91. 266 LOCATE 13,1: PRINT "LIEFERANTEN-NUMMER / NACHNAME / VORNAME / ZUSATZTEXT / STRASSE / POSTLEITZAHL   "
  92. 267 LOCATE 14,1: PRINT "ORT / SKONTI / RABATT / NETTO TAGE                                              "
  93. 268 LOCATE 15,1: PRINT "                                                                                "
  94. 269 LOCATE 16,1: PRINT "Die Lieferantendatei kann nach dem Namen sowie nach der Lieferantennummer       "
  95. 270 LOCATE 17,1: PRINT "sortiert werden. Neben dem Listen der Lieferanten-Daten ist auch eine Drucker-  "
  96. 271 LOCATE 18,1: PRINT "ausgabe vorgesehen. Suchen ist nach Lieferanten-Nummer und Name möglich.        "
  97. 272 LOCATE 19,1: PRINT "Weiterführende Erklärungen finden Sie im Begleitheft. Sehen Sie bitte dort nach.": GOTO 20
  98. 280 LOCATE 6,1: COLOR 0,7: PRINT "FAKTURIERUNG  - RECHNUNG ERSTELLEN                                              ": COLOR 7,0
  99. 281 LOCATE 7,1: PRINT SPACE$(80)
  100. 282 LOCATE 8,1: PRINT "Sind alle Dateien (Stamm,Kunde,Lieferant,Artikel) angelegt, können Sie mit      "
  101. 283 LOCATE 9,1: PRINT "dem Programm FAKTURIERUNG Rechnungen erstellen. Die Rechnungsstellung wird auf  "
  102. 284 LOCATE 10,1: PRINT "den bereits gespeicherten Stammdaten aufgebaut. Als zusätzliche Eingaben sind   "
  103. 285 LOCATE 11,1: PRINT "unter anderem Rechnungsnummer, Rechnungsdatum, Bestellnummer und Datum des      "
  104. 286 LOCATE 12,1: PRINT "Kunden vorhanden. Neben der Rechnung druckt das Programm Lieferschein, Auftrags-"
  105. 287 LOCATE 13,1: PRINT "bestätigung sowie Empfangsbestätigung (mit separater Nummer).                   "
  106. 288 LOCATE 14,1: PRINT "Die Rechnungsdaten werden auf der Diskette gespeichert und können bei Bedarf    "
  107. 289 LOCATE 15,1: PRINT "eingelesen und überprüft werden.                                                "
  108. 290 LOCATE 16,1: PRINT "Der aufgelaufene Umsatz kann per Tastendruck ermittelt werden. Die Artikel-Daten"
  109. 291 LOCATE 17,1: PRINT "werden entsprechend der Bestellmenge zurückgeschrieben. Darüberhinaus können    "
  110. 292 LOCATE 18,1: PRINT "zudem Mahnungen (Mahnstufen 1-3) erstellt werden.                               "
  111. 293 LOCATE 19,1: PRINT "Weiterführende Erklärungen finden Sie im Begleitheft. Sehen Sie bitte dort nach.": GOTO 20
  112. 300 REM ********** PD INFO **********
  113. 310 CLS:PRINT "Dieses Programmpaket ist frei kopierbar (Public Domain)"
  114. 320 print 
  115. 330 PRINT "Wer dieses Programmpaket öfters benützt, und möchte das dieses Programm"
  116. 340 print "weiterentwickelt,verbessert und gepflegt wird, der sollte mir ein kleines"
  117. 350 print "Anerkennungshonorar von 20 DM zusenden."
  118. 360 print
  119. 370 print "Meine Adresse    Siegfried Hübner"
  120. 380 print "                 Obere Vorstadt 21"
  121. 390 print "                 8812 Windsbach"
  122. 400 print
  123. 410 print "Bei Fragen die meine Programme betreffen, bitte immer Rückporto beilegen."
  124. 420 print "Bitte teilen Sie mir auch mit von welchen PD Anbieter sie dieses Programm"
  125. 430 print "herhaben, welchen Computer,Monitor,Drucker,Floppy Sie haben."
  126. 440 print
  127. 450 print "und was Ihnen an diesem Programmpaket gefällt, weniger gefällt, und"
  128. 460 print "was man Ihrer Meinung noch Verbessern könnte."
  129. 470 print
  130. 480 print "Bedenken Sie bitte, das dieses Programmpaket nur dann konsequent weiterent-"
  131. 490 print "wickelt werden kann, wenn Sie sich mit mir in Verbindung setzen."
  132. 491 LOCATE 21,5: PRINT "                     BELIEBIGE TASTE DRÜCKEN"
  133. 492 E$=INKEY$: IF E$="" THEN 492
  134. 493 CLS
  135. 494 LOCATE 2,1: PRINT STRING$(80,45)
  136. 495 LOCATE 3,1: PRINT SPACE$(29)+"    H A U P T M E N Ü"
  137. 496 LOCATE 4,1: PRINT SPACE$(26)+"(c) 1991 by Siegfried Hübner"
  138. 497 LOCATE 5,1: PRINT STRING$(80,45):goto 26
  139. 700 rem ************* Werbung ***********
  140. 710 locate 6,1:color 0,7:print "Werbung                         Stand 20.01.1991                                ":color 7,0
  141. 711 print
  142. 720 print "Hier einmal eine kurze Aufstellung meiner bisher geschriebenen PD Programme.  "
  143. 730 print "für den Atari ST."
  144. 740 locate 10,1:print string$(80,32)       
  145. 750 print "KALENDER,EDV-TEST,DRUCKY,APFEL,ASC_CODE,BILDER_2.PM,BILDER_3.DOO,DRUCKY,HAPPY4"
  146. 760 print "K_BRIEF,SHUR,VERWARN2,ABSCHALT,ADRESSEN,ADRESSO,ANNI_HÜ.BNER,A_GENERATOR,BAS-   "
  147. 770 print "HELP,BILDER.PM,BILDER.PM,BL_SAVER,BOOT_TEXTER,BRUCH,CODIERER,DOC_TXT,DRUCKER"
  148. 780 print "D_HARDCOPY,EPSON_NL,ERSETZMICH,GR_DEMOS,HARD_AUS,HEX_LIST,HINTERGRUND,KOMPAKT"
  149. 790 print "LABEL.IBM,LDRUCK,LAUFTEXT,LOTTO,PLATTEN,PROGRAMME,QUIZ_MASTER,RATLEFAX,REAKTION"
  150. 800 print "RECHE_BK.138,RESET,SCHMAL,S_PAINT.08,SPIELE,STREICHHOLZ,TASTATUR_GAG,TRAINER"
  151. 810 print "TRECHNER,UTILITIS,VORSCHUB,WITZE,Z_PLATTTE,Z_NUMMER                          "
  152. 820 goto 20