home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / kaufmann / menue.bas < prev    next >
BASIC Source File  |  1997-10-09  |  2KB  |  52 lines

  1. 1 WIDTH 80
  2. 10 GOTO 100
  3. 15 LOCATE 20,1: PRINT STRING$(79,205)
  4. 16 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  5. 17 LOCATE 21,25: PRINT "PROGRAMM WIRD GELADEN.BITTE WARTEN": COLOR 15,0
  6. 18 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  7. 19 GOSUB 15: RUN "MENUE"
  8. 60 CLS: LOCATE 2,1: PRINT STRING$(79,205)
  9. 61 LOCATE 3,1: COLOR 0,15: PRINT SPACE$(79): LOCATE 3,30: PRINT "KAUFMÄNNISCHES  RECHNEN": LOCATE 4,1: PRINT SPACE$(79)
  10. 62 LOCATE 4,30: PRINT "(C) BY SIEGFRIED HÜBNER": LOCATE 5,1: PRINT SPACE$(79)
  11. 63 LOCATE 5,29: PRINT "P R O G R A M M - M E N Ü"
  12. 64 COLOR 15,0: LOCATE 6,1: PRINT STRING$(79,205): RETURN
  13. 70 LOCATE 20,1: PRINT STRING$(79,205)
  14. 71 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
  15. 72 LOCATE 21,33: PRINT "IHRE WAHL": COLOR 15,0
  16. 73 LOCATE 22,1: PRINT STRING$(79,205): RETURN
  17. 100 GOSUB 60
  18. 101 LOCATE 8,15: PRINT "[1] PROZENTRECHNEN               [7] KALKULATION"
  19. 102 LOCATE 10,15: PRINT "[2] ZINSRECHNEN                  [8] ZIEL-EINKAUFSPREIS"
  20. 103 LOCATE 12,15: PRINT "[3] SPAREN                       [9] EIGENFERTIGUNG"
  21. 104 LOCATE 14,15: PRINT "[4] KLEINKREDIT                  [0] ABC-ANALYSE"
  22. 105 LOCATE 16,15: PRINT "[5] ANSCHAFFUNGSDARLEHEN         [A] BREAK EVEN ANALYSE"
  23. 106 LOCATE 18,15: PRINT "[6] HYPOTHEKEN-BERECHNUNG        [X] ZUM TOS": GOSUB 70
  24. 110 E$=INKEY$: IF E$="" THEN 110
  25. 111 IF E$="1" THEN RUN "PK1"
  26. 112 IF E$="2" THEN RUN "PK2"
  27. 113 IF E$="3" THEN RUN "PK3"
  28. 114 IF E$="4" THEN RUN "PK4"
  29. 115 IF E$="5" THEN RUN "PK5"
  30. 116 IF E$="6" THEN RUN "PK6"
  31. 117 IF E$="7" THEN RUN "PK7"
  32. 118 IF E$="8" THEN RUN "PK8"
  33. 119 IF E$="9" THEN RUN "PK9"
  34. 120 IF E$="0" THEN RUN "PK10"
  35. 121 IF E$="A" OR E$="a" THEN RUN "PK11"
  36. 122 IF E$="X" OR E$="x" THEN CLS
  37. 123 print "      Kontaktadresse          Siegfried Hübner"
  38. 124 print "                              Obere Vorstadt 21"
  39. 125 print "                              8812 Windsbach"
  40. 126 print
  41. 127 print "Programm Kaufmann Atari ST Version 1.0"
  42. 128 print "frei kopierbar (Public Domain)"
  43. 129 print 
  44. 130 print "Bei Fragen bitte immer Computermodell angeben."
  45. 131 print "sowie Rückporto."
  46. 132 print
  47. 133 print "Bitte Return Taste drücken.";
  48. 134 input a$
  49. 135 end
  50. 123 GOTO 110
  51.  
  52.