home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / k_brief / k_brief1.bas next >
BASIC Source File  |  1997-10-09  |  6KB  |  77 lines
  1. 10 CLS:C$=CHR$(27)
  2. 120 CLS
  3. 121 print "            Kurzbrief    PD Version 1.0    (frei kopierbar)               "
  4. 122 color 0,7:print " ------ (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- ";:color 7,0
  5. 123 print:print "   Wers öfters benützt, sollte mir ein kleines Anerkennungshonorar zusenden."
  6. 214 LOCATE 5,28:PRINT"B = Kurzbriefe drucken":LOCATE 6,28:PRINT"A = Absender drucken":LOCATE 7,28:PRINT"Q = Zurueck Desktop"
  7. 240 LOCATE 10,10:PRINT"Drucker einschalten und gewünschte Funtionstaste drücken !"
  8. 270 A$="":A$=INKEY$
  9. 420 IF A$="B" OR A$="b" THEN GOTO 600 
  10. 430 IF A$="A" OR A$="a" THEN GOTO 860
  11. 432 IF A$="Q" OR A$="q" THEN GOTO 3000
  12. 440 GOTO 270
  13. 450 LOCATE 23,9:PRINT"   D R U C K E R   H A T   U M G E S C H A L T E T  !        ":FOR Q=1 TO 7000:NEXT Q:GOTO 240
  14. 580 GOTO 450
  15. 600 CLS
  16. 610 LOCATE 10,9:PRINT "Bitte beachten Sie, dass 2 Kurzbriefe auf eine Din A4 - Seite"
  17. 620 LOCATE 12,9:PRINT "passen. Spannen Sie dementsprechend das Papier im Drucker ein."
  18. 630 LOCATE 17,12:INPUT "Wieviele  K U R Z B R I E F E  wollen Sie drucken  ",Y
  19. 631 CLS
  20. 640 FOR I=1 TO Y
  21. 650 Q1$="   --------------------------------   ---------------------------------"
  22. 660 Q2$="   Absender                            Betreff:                       "
  23. 670 Q3$="                                      ---------------------------------  KURZ-"
  24. 680 Q4$="                                       []Ihr Schreiben vom             "
  25. 690 Q5$="                                       []Ihr Anruf/FS  vom               BRIEF"
  26. 700 Q6$="                                       []Unser Gespraech am            "
  27. 710 Q7$="                                      ---------------------------------"
  28. 720 Q8$="                                      Anbei erh.Sie:   mit Bitte um:  Anlagen"
  29. 730 Q9$="   --------------------------------   ------------------------------------------"
  30. 740 W1$="    Empfaenger                        []Kopie       []Anruf       []Verbleib"
  31. 750 W2$="                                      []Muster      []Erledigung  []Rueckgabe"
  32. 760 W3$="                                      []Prospekt    []Kenntnisnah.[]Erbeten bis"
  33. 770 W4$="                                      []__________  []Stellungnah._____________"
  34. 780 W5$="                                      _________________________________________"
  35. 790 W6$="                                      _________________________________________"
  36. 800 W7$="                                      _________________________________________"
  37. 810 W8$="   --------------------------------   _________________________________________"
  38. 820 W9$="   Unser Zeichen/Bearbeiter   Datum   _________________________________________"
  39. 830 E1$="   ________________________ _______   _________________________________________"
  40. 840 LPRINT Q1$:LPRINT Q2$:LPRINT Q3$:LPRINT Q4$:LPRINT Q5$:LPRINT Q6$:LPRINT Q7$:LPRINT Q8$:LPRINT Q9$
  41. 850 LPRINT W1$:LPRINT W2$:LPRINT W3$:LPRINT W4$:LPRINT W5$:LPRINT W6$:LPRINT W7$:LPRINT W8$:LPRINT W9$:LPRINT E1$:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT:NEXT I:LPRINT CHR$(12);:GOTO 120
  42. 860 CLS
  43. 930 LOCATE 8,20:INPUT "Vor + Zuname   ",T$
  44. 940 LOCATE 11,20:INPUT "Strasse + Nr.  ",U$
  45. 950 LOCATE 14,20:INPUT "Plz. + Ort     ",V$
  46. 960 LOCATE 17,20:INPUT "Tel/Sonstiges  ",W$
  47. 970 LOCATE 22,20:PRINT"A l l e s   r i c h t i g  ?  (J / N)"
  48. 980 A$=INKEY$
  49. 990 IF A$="J" OR A$="j" THEN GOTO 1020
  50. 1000 IF A$="N" OR A$="n" THEN GOTO 930
  51. 1010 GOTO 980
  52. 1020 LOCATE 22,20:INPUT"Wieviele  A B S E N D E R  moechten Sie   ",Q
  53. 1030 FOR I=1 TO Q
  54. 1040 LPRINT T$:LPRINT U$:LPRINT V$:LPRINT W$:LPRINT"":NEXT I:LPRINT CHR$(12);:GOTO 120
  55. 1520 FOR I=1 TO 32:LPRINT CHR$(45); : NEXT I
  56. 1530 LPRINT "   ";:LPRINT CHR$(45);:FOR I=1 TO 31:LPRINT CHR$(45);:NEXT I:LPRINT CHR$(45)
  57. 1540 LPRINT " Absender"; : FOR I=1 TO 26 : LPRINT CHR$(32);: NEXT I:LPRINT CHR$(45);:LPRINT "Betrifft:                      ";:LPRINT CHR$(45)
  58. 1550 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT CHR$(45);:FOR I=1 TO 31:LPRINT CHR$(45);:NEXT I:LPRINT CHR$(45);:LPRINT "  KURZ-"
  59. 1560 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT CHR$(45);:LPRINT "[]Ihr Schreiben vom            ";:LPRINT CHR$(45)
  60. 1570 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT CHR$(45);:LPRINT "[]Ihr Anruf/FS  vom            ";:LPRINT CHR$(45);:LPRINT "  BRIEF"
  61. 1580 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT CHR$(45);:LPRINT "[]Unser Gespraech am           ";:LPRINT CHR$(45)
  62. 1590 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT CHR$(45);:FOR I=1 TO 31:LPRINT CHR$(45);:NEXT I:LPRINT CHR$(45)
  63. 1600 FOR I=1 TO 35 :LPRINT CHR$(32);:NEXT I: LPRINT "Anbei erh.Sie:   mit Bitte um:  Anlagen"
  64. 1610 LPRINT CHR$(45);:FOR I=1 TO 30:LPRINT CHR$(45);:NEXT I:LPRINT CHR$(45);:LPRINT "   ";:FOR I=1 TO 41:LPRINT CHR$(45);:NEXT I :LPRINT
  65. 1620 LPRINT CHR$(45);: LPRINT "Empfaenger";:FOR I=1 TO 20: LPRINT CHR$(32);:NEXT I:LPRINT CHR$(45);:LPRINT "   []Kopie       []Anruf       []Vertrieb"
  66. 1630 LPRINT CHR$(45);:FOR I=1 TO 30:LPRINT CHR$(32);:NEXT I:LPRINT CHR$(45);:LPRINT "   []Muster      []Erledigung  []Rueckgabe"
  67. 1640 LPRINT CHR$(45);:FOR I=1 TO 30:LPRINT CHR$(32);:NEXT I:LPRINT CHR$(45);:LPRINT "   []Prospekt    []Kenntnisnah.[]Erbeten bis"
  68. 1650 LPRINT CHR$(45);:FOR I=1 TO 30:LPRINT CHR$(32);:NEXT I:LPRINT CHR$(45);:LPRINT "   []__________  []Stellungnah._____________"
  69. 1660 FOR L=1 TO 3
  70. 1670 LPRINT CHR$(45);:FOR I=1 TO 30:LPRINT CHR$(32);:NEXT I:LPRINT CHR$(45);:LPRINT "   ";:FOR I=1 TO 41:LPRINT CHR$(45);:NEXT I :LPRINT
  71. 1680 NEXT L
  72. 1690 LPRINT CHR$(45);:FOR I=1 TO 30 :LPRINT CHR$(45);:NEXT I:LPRINT CHR$(45);:LPRINT "   ";:FOR I=1 TO 41:LPRINT CHR$(45);:NEXT I:LPRINT
  73. 1700 LPRINT "Unser Zeichen/Bearbeiter   Datum   ";:FOR I=1 TO 41:LPRINT CHR$(45);:NEXT I:LPRINT
  74. 1710 FOR I=1 TO 24:LPRINT CHR$(45);:NEXT I:LPRINT " _______   ";:FOR I=1 TO 41:LPRINT CHR$(45);:NEXT I:LPRINT C$ CHR$(45):LPRINT:LPRINT:LPRINT
  75. 1720 GOTO 120
  76. 3000 END
  77.