home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
M.u.C.S. Disc 2000
/
MUCS2000.iso
/
sigisoft
/
kaufmann
/
menue.bas
< prev
next >
Wrap
BASIC Source File
|
1997-10-09
|
2KB
|
52 lines
1 WIDTH 80
10 GOTO 100
15 LOCATE 20,1: PRINT STRING$(79,205)
16 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
17 LOCATE 21,25: PRINT "PROGRAMM WIRD GELADEN.BITTE WARTEN": COLOR 15,0
18 LOCATE 22,1: PRINT STRING$(79,205): RETURN
19 GOSUB 15: RUN "MENUE"
60 CLS: LOCATE 2,1: PRINT STRING$(79,205)
61 LOCATE 3,1: COLOR 0,15: PRINT SPACE$(79): LOCATE 3,30: PRINT "KAUFMÄNNISCHES RECHNEN": LOCATE 4,1: PRINT SPACE$(79)
62 LOCATE 4,30: PRINT "(C) BY SIEGFRIED HÜBNER": LOCATE 5,1: PRINT SPACE$(79)
63 LOCATE 5,29: PRINT "P R O G R A M M - M E N Ü"
64 COLOR 15,0: LOCATE 6,1: PRINT STRING$(79,205): RETURN
70 LOCATE 20,1: PRINT STRING$(79,205)
71 LOCATE 21,1: COLOR 0,15: PRINT SPACE$(79)
72 LOCATE 21,33: PRINT "IHRE WAHL": COLOR 15,0
73 LOCATE 22,1: PRINT STRING$(79,205): RETURN
100 GOSUB 60
101 LOCATE 8,15: PRINT "[1] PROZENTRECHNEN [7] KALKULATION"
102 LOCATE 10,15: PRINT "[2] ZINSRECHNEN [8] ZIEL-EINKAUFSPREIS"
103 LOCATE 12,15: PRINT "[3] SPAREN [9] EIGENFERTIGUNG"
104 LOCATE 14,15: PRINT "[4] KLEINKREDIT [0] ABC-ANALYSE"
105 LOCATE 16,15: PRINT "[5] ANSCHAFFUNGSDARLEHEN [A] BREAK EVEN ANALYSE"
106 LOCATE 18,15: PRINT "[6] HYPOTHEKEN-BERECHNUNG [X] ZUM TOS": GOSUB 70
110 E$=INKEY$: IF E$="" THEN 110
111 IF E$="1" THEN RUN "PK1"
112 IF E$="2" THEN RUN "PK2"
113 IF E$="3" THEN RUN "PK3"
114 IF E$="4" THEN RUN "PK4"
115 IF E$="5" THEN RUN "PK5"
116 IF E$="6" THEN RUN "PK6"
117 IF E$="7" THEN RUN "PK7"
118 IF E$="8" THEN RUN "PK8"
119 IF E$="9" THEN RUN "PK9"
120 IF E$="0" THEN RUN "PK10"
121 IF E$="A" OR E$="a" THEN RUN "PK11"
122 IF E$="X" OR E$="x" THEN CLS
123 print " Kontaktadresse Siegfried Hübner"
124 print " Obere Vorstadt 21"
125 print " 8812 Windsbach"
126 print
127 print "Programm Kaufmann Atari ST Version 1.0"
128 print "frei kopierbar (Public Domain)"
129 print
130 print "Bei Fragen bitte immer Computermodell angeben."
131 print "sowie Rückporto."
132 print
133 print "Bitte Return Taste drücken.";
134 input a$
135 end
123 GOTO 110