home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507a.d64
/
rechnungshelfer
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
7KB
|
313 lines
10 FF$=" "
20 POKE53272,23
30 POKE53281,15:POKE53280,15
40 H$="[147] ":H1$="......................................._"
50 Z$=" [196][205]":Z1$=" ":M1$="QM/LFM":Z2$=" "
60 DIMC$(301,3):L$=" [208]REIS STCK/QM/LFM "
70 OPEN3,8,2,"TEXTDATEN,L,"+CHR$(88)
80 OPEN2,8,15
90 PRINT#2,"P"CHR$(2)CHR$(1)CHR$(0)CHR$(1)
100 INPUT#3,SM
110 PRINT"[147]"
120 PRINT" [144] "
125 PRINT" [149][146] [205]ENUE-[193]NGEBOT [144] "
126 PRINT" [144] "
130 PRINT" 1 [144][146] [212]EXTDATEN EINTRAGEN"
140 PRINT" 2 [144][146] [212]EXTDATEI AUF [194]ILDSCHIRM"
150 PRINT" 3 [144][146] [212]EXTDATEI DRUCKEN"
160 PRINT" 4 [144][146] [212]EXTDATEI KORRIGIEREN"
170 PRINT" 5 [144][146] [193]NGEBOT / [210]ECHNUNG DRUCKEN"
180 PRINT" 6 [144][146] [212]EXTDATEI ANLEGEN/VERGROESSERN"
190 PRINT" E [144][146] [197]NDE"
200 GETA$:IFA$="E"THENCLOSE2:CLOSE3:END
210 IFA$<"1"ORA$>"6"THEN200
230 ONVAL(A$)GOTO250,400,540,710,1060,2930
240 REM"***************************
250 [143]"* NEUE TEXTE EINSPEICHERN *
260 REM"***************************
270 [153]H$:[153]"(null)CHLUESSEL (2-";SM;") ODER 'E' FUER VALNDE"
280 [159]1,0:[132]1,S$
290 [139]S$[178]"E"[167][160]1:[137]110
300 SL[178][197](S$)
310 [139]SL[179]2[176]SL[177]SM[167][160]1:[137]270
320 [153]H$
330 [153]"ONONMID$ETZT BITTE DEN (null)EXT FUER (null)CHLUESSEL";SL:[153]H1$:[132]1,T$
340 [153]"LOADCMD";H$:[153]H1$,"ON ZWEITE (null)EILE FUER (null)L";SL
350 [132]1,T1$
360 [153]H$;"ONON(null)REIS PRO VALINHEIT(GOSUBLFM/QM)":[132]1,P$:[160]1
370 [141]2630
380 [137]250
390 [143]"****************************
400 REM"* TEXTDATEI AUF BILDSCHIRM *
410 [143]"****************************
420 GOSUB2850
430 PRINTCHR$(147)
440 FORSL=ATOE
450 GOSUB2730
460 IFAA$="LEER"THEN500
470 P$=MID$(AC$,1,4)+","+MID$(AC$,6,2)
480 PRINTSL;TAB(5)AA$;TAB(46)L$;Z1$;P$;Z$
490 PRINTTAB(4)AB$
500 NEXTSL
510 WAIT198,1
520 GOTO110
530 REM"***********************
540 [143]"* TEXTDATEI DRUCKEN *
550 REM"***********************
560 [153]H$;" PEEKITTE WARTEN !!!"
570 [159]1,4,7
590 X[178]0:[152]1,[199](16)"12";"(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null) - (null)RIGHT$(null)(null)VAL"
600 [152]1,[199](16)"12";"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
604 [152]1,[199](16)"43";L$:[152]1
610 [141]2850
620 [129]SL[178]A[164]E
630 [141]2730
640 [139]AA$[178]"LEER"[167]680
650 P$[178][202](AC$,1,4)[170]","[170][202](AC$,6,2)
660 [152]1,SL[199](16)"05"AA$[199](16)"47"P$Z$
670 [152]1,[199](16)"05";AB$
680 [130]SL
690 [160]1:[137]110
700 [143]"**********************
710 REM"* TEXTDATEN AENDERN *
720 [143]"**********************
730 PRINTH$
740 INPUT"[203]ORREKTUR : GIB [211]ATZSCHLUESSEL ODER 'E' ";SL$:SL=VAL(SL$)
750 IFSL$="E"THEN110
760 IFSL<2ORSL>SMTHEN730
770 GOSUB2730
780 PRINTCHR$(147)
790 IFAA$="LEER"THEN2920
800 P$=AC$:T$="":T1$=""
810 PRINT"[211]CHLUESSEL =";SL
820 PRINTAA$
830 PRINTAB$
840 PRINT"[208]REIS =";AC$
850 PRINT"WELCHE [193]ENDERUNG WOLLEN SIE VORNEHMEN [212]EXT O. [208]REIS T/P/E "
860 INPUTQ$
870 IFQ$<>"T"ANDQ$<>"P"ANDQ$<>"E"THEN850
880 IFQ$="E"THEN730
890 IFQ$="T"THEN910
900 IFQ$="P"THEN990
910 PRINTH$;Z1$;AA$
920 INPUT"";T$:T$=LEFT$(T$,40)
930 PRINTH$;Z1$;AB$
940 INPUT"";T1$:T1$=LEFT$(T1$,40)
950 PRINT"[145][145]";T$;Z1$;T1$
960 WAIT198,1
970 GOSUB2610
980 GOTO730
990 PRINTH$;Z1$;AC$:T$=AA$:T1$=AB$
1000 INPUT"";P$:P$=RIGHT$(P$,7)
1010 PRINT"[145]";AA$;Z1$;AB$;P$;Z$
1020 WAIT198,1
1030 GOSUB2610
1040 GOTO730
1050 REM"****************************
1060 [143]"* ANGEBOT ZUSAMMEN STELLEN *
1070 REM"****************************
1080 [153]H$:Z[178]0:GS[178]0
1090 [133]"ONON(null)IND DIE FIRMENEIGENEN ATNNGABEN GESPEICHERT J/N JCMDCMDCMD";Q$
1100 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]1090
1110 [139]Q$[178]"J"[167]2400
1120 [133]"(null)AME IHRER ASCIRMA";F1$
1130 [133]"(null)TRASSE ";F2$
1140 [133]"(null)OHNORT ";F3$
1150 [133]"PEEKERUFSZWEIG ";F4$
1160 [133]"(null)ONTONUMMER ";F5$
1170 [133]"PEEKANK ";F6$
1180 [133]"PEEKANKLEITZAHL ";F7$
1190 [133]"(null)ELEFON NR. ";F8$
1200 [153]H$
1210 [133]"(null)OLLEN SIE DIE ASCIRMENDATEN SPEICHERN J/N";Q$
1220 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]1200
1230 [139]Q$[178]"J"[167]2300
1240 [133]"STR$ATUM";FA$
1250 [153]"'MEIN ATNNGEBOT/MEINE (null)ECHNUNG'":[133]F9$
1260 [153]H$;"ATNNGABEN ZUM (null)UNDEN:WAIT":[153]
1270 [133]"ATNNREDE ('LEFT$ERRN ASCRAU ASCIRMA')";A1$:[153]
1280 [133]"(null)ORNAME (null)ACHNAME";A2$
1290 [133]"(null)TRASSE ";A3$
1300 [133]"(null)OHNORT ";A4$
1310 [133]"PEEKETRIFFT: ";A5$
1320 [153]H$:[153]"(null)USAMMENSTELLEN DES ATNNGEBOTS GIB :":[153]
1330 [153]"(null)CHLUESSEL 2-";SM"
1340 PRINT"[203]OMMENTAR 'K'"
1350 PRINT"[196]RUCKEN 'D'"
1360 INPUTSL$
1370 IFSL$=""THEN1360
1380 IFSL$="D"THEN1590
1390 IFSL$="K"THENZ=Z+2:INPUT"KOMMENTAR";C$(Z+1,3):C$(Z,3)="":GOTO1320
1400 SL=VAL(SL$):IFSL<2ORSL>SMTHEN1320
1410 GOSUB2730
1420 IFAA$="LEER"THEN1360
1425 PRINTAA$AB$"1 [197]INHEIT="AC$"[196][205]"
1430 IFZ>300THENPRINT"[203]EINE WEITEREN [197]INGABEN MOEGLICH":GOTO1360
1440 INPUT"[193]NZAHL AN [197]INHEITEN";M$
1450 IFM$<"1"ORM$>"9"THEN1440
1460 Z=Z+1:M=VAL(M$)
1470 P=VAL(AC$):PS=P*M
1480 GS=GS+PS
1490 C$(Z,1)=AA$+" "
1500 P$=MID$(AC$,1,4)+","+MID$(AC$,6,2)
1510 C$(Z,1)=C$(Z,1)+" "+P$
1520 A=M:GOSUB2220
1530 C$(Z,1)=C$(Z,1)+V1$
1540 A=PS:GOSUB2220
1550 C$(Z,1)=C$(Z,1)+V1$+Z$
1560 C$(Z,2)=AB$
1570 GOTO1320
1580 REM"************************
1590 [143]"* ANGEBOTE AUSDRUCKEN *
1600 REM"************************
1610 Z1[178]28:I[178]1
1620 [159]1,4,7
1630 [159]5,4,0
1640 [153][199](10)
1650 [152]1,[199](16)"04";F1$;[199](16)"54";F2$
1660 [152]1,[199](16)"54";F3$
1670 [152]1,[199](14);F4$;[199](15);
1680 [152]1,[199](16)"54";"DEN, ";FA$
1690 [152]1,[199](10)
1700 [152]1,[199](16)"54";"(null)TO.(null)R.: ";F5$
1710 [152]1,[199](16)"54";"CHR$ELDINSTITUT : "
1720 [152]1,[199](16)"54";F6$
1730 [152]1,[199](16)"54";"PEEKANKLEITZAHL : ";F7$
1740 [152]1,[199](16)"54";"(null)ELEFON: ";F8$
1750 [152]1," "A1$
1760 [152]1," "A2$
1770 [152]1," "A3$
1780 [152]1,A4$
1830 [152]1,[199](13)[199](10)
1840 [152]1,"PEEKETRIFFT: ";A5$
1850 [152]1,[199](10)[199](10)
1860 [152]1,"ATNLS ATNNLAGE UEBERSENDE ICH RIGHT$HNEN ";F9$;" ZUM O.G. PEEKEZUG."
1870 [152]1,[199](10)[199](10)
1880 [152]1," ATNRBEITSAUFWAND";
1890 [152]1,[199](16)"40""(null)REIS STCK/QM/LFM (null)ENGE CHR$ESAMT"
1900 [129]XX[178]1[164]80:[152]5,[199](163);:[130]
1910 [152]1,[199](10)
1920 [129]X[178]1[164]Z
1930 [139]C$(X,3)[179][177]""[167]Z1[178]Z1[170]2:[137]3080
1940 [139]Z1[178]67[167]:Z1[178]0:[141]2540
1950 [139]Z1[177]67[167]:Z1[178]1:[141]2540
1960 [152]1,C$(X,1):[141]2500
1970 [152]1,C$(X,2):[141]2500
1990 [130]X
2000 [139]Z1[177][178]60[167][141]2540
2010 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
2020 A[178]GS:[141]2220
2030 GS$[178]V1$
2040 GZ[178]GS[172]0.14[170]0.005:GY[178]GZ[170]GS
2050 A[178]GZ:[141]2220
2060 GZ$[178]V1$
2070 A[178]GY:[141]2220
2080 GY$[178]V1$
2090 [152]1,[163]67)GS$;Z$
2100 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
2110 [152]1,[163]56)"+ 14% (null)(null)(null)T ";GZ$;Z$
2120 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
2130 [152]1,[163]67)GY$;Z$
2140 [152]1,[163]68)"============"
2150 [152]1,"(null)IT FREUNDLICHEN CHR$RUESSEN"
2160 [152]1,[199](10)[199](10)
2170 [160]1:[160]5
2180 [153]H$:[133]"(null)OLLEN (null)IE NOCH EINEN STR$RUCK J/N";Q$
2190 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]2180
2200 [139]Q$[178]"J"[167][137]1610
2210 [137]110
2220 [143]"********************************
2230 REM"*AUFRUNDEN UND KOMMA EINFUEGEN *
2240 [143]"********************************
2250 B=INT((A+0.005)*100)
2260 V2$=" "+STR$(B)
2270 V2$=RIGHT$(V2$,9)
2280 V1$=MID$(V2$,1,7)+","+MID$(V2$,8,2)
2290 RETURN
2300 CLOSE3
2305 OPEN4,8,2,"@:FIRMENDATEN,S,W"
2310 PRINT#4,F1$
2320 PRINT#4,F2$
2330 PRINT#4,F3$
2340 PRINT#4,F4$
2350 PRINT#4,F5$
2360 PRINT#4,F6$
2370 PRINT#4,F7$
2380 PRINT#4,F8$
2390 CLOSE4
2396 OPEN3,8,2,"TEXTDATEN,L,"+CHR$(88):GOTO1240
2400 OPEN4,8,3,"FIRMENDATEN,S,R"
2410 INPUT#4,F1$
2420 INPUT#4,F2$
2430 INPUT#4,F3$
2440 INPUT#4,F4$
2450 INPUT#4,F5$
2460 INPUT#4,F6$
2470 INPUT#4,F7$
2480 INPUT#4,F8$
2490 CLOSE4:GOTO1240
2500 Z1=Z1+1
2510 IFZ1<=66THENRETURN
2520 Z1=3
2540 FORQ=1TO6
2550 PRINT#1,CHR$(10)
2560 NEXTQ
2570 I=I+1
2580 PRINT#1,CHR$(16)"35";"- ";I;" -"
2590 PRINT#1,CHR$(10)
2600 RETURN
2610 REM"*************************
2620 [143]"* TEXTDATEN SPEICHERN *
2630 REM"*************************
2640 HB[178][181](SL[173]256)
2650 LB[178]SL[171]HB[172]256
2660 T$[178]T$[170]FF$:T$[178][200](T$,40)
2670 T1$[178]T1$[170]FF$:T1$[178][200](T1$,40)
2680 P$[178]FF$[170]P$:P$[178][201](P$,7)
2690 RC$[178]T$[170]T1$[170]P$
2700 [152]2,"P"[170][199](2)[170][199](LB)[170][199](HB)[170][199](1)
2710 [152]3,RC$
2720 [142]
2730 [143]"**********************
2740 REM"* TEXTDATEN LESEN *
2750 [143]"**********************
2760 HB=INT(SL/256)
2770 LB=SL-HB*256
2780 PRINT#2,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
2790 INPUT#3,RC$
2800 IFASC(RC$)=255THENAA$="LEER":RETURN
2810 AA$=MID$(RC$,1,40)
2820 AB$=MID$(RC$,41,40)
2830 AC$=MID$(RC$,81,7)
2840 RETURN
2850 REM"**** EINGABELIMIT ******
2860 [153]H$
2870 [133]"ONATNB (null)CHLUESSEL:";A
2880 [139]A[179]2[176]A[177]SM[167]2870
2890 [133]"ONPEEKIS ZU (null)CHLUESSEL";E
2900 [139]E[179]2[176]A[177]SM[167]2890
2910 [142]
2920 [153]H$;"STR$ATENSATZ NICHT VORHANDEN":[129]X[178]1[164]1000:[130]:[137]730
2930 [143]"******************************
2940 REM"*TEXTDATEI EINRICHTEN/ERWEIT.*
2950 [143]"******************************
2960 PRINTH$:PRINT"WIEVIEL [211]AETZE SOLL DIE [196]ATEI ENTHALTEN "
2970 INPUT"ODER ENDE 'E' ";SM$
2980 IFSM$="E"THEN110
2990 SM=VAL(SM$)
3000 IFSM<2ORSM>1800THEN2960
3010 HB=INT(SM/256)
3020 LB=SM-HB*256
3030 PRINT#2,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
3040 PRINT#3,CHR$(255)
3050 PRINT#2,"P"+CHR$(2)+CHR$(01)+CHR$(0)+CHR$(1)
3060 PRINT#3,SM
3070 GOTO110
3080 PRINT#1,C$(X,3)
3090 ZZ=LEN(C$(X,3))
3100 FORY=1TOZZ
3110 PRINT#5,CHR$(163);
3120 NEXTY
3130 PRINT#1,CHR$(141)
3140 GOTO1990