home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / rechnungshelfer (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  7KB  |  313 lines

  1. 10 FF$="                                        "
  2. 20 POKE53272,23
  3. 30 POKE53281,15:POKE53280,15
  4. 40 H$="[147] ":H1$="......................................._"
  5. 50 Z$=" [196][205]":Z1$="  ":M1$="QM/LFM":Z2$="   "
  6. 60 DIMC$(301,3):L$=" [208]REIS STCK/QM/LFM "
  7. 70 OPEN3,8,2,"TEXTDATEN,L,"+CHR$(88)
  8. 80 OPEN2,8,15
  9. 90 PRINT#2,"P"CHR$(2)CHR$(1)CHR$(0)CHR$(1)
  10. 100 INPUT#3,SM
  11. 110 PRINT"[147]"
  12. 120 PRINT"      [144]                       "
  13. 125 PRINT"    [149][146] [205]ENUE-[193]NGEBOT [144]    "
  14. 126 PRINT"      [144]                       "
  15. 130 PRINT"    1 [144][146]  [212]EXTDATEN EINTRAGEN"
  16. 140 PRINT"    2 [144][146]  [212]EXTDATEI AUF [194]ILDSCHIRM"
  17. 150 PRINT"    3 [144][146]  [212]EXTDATEI DRUCKEN"
  18. 160 PRINT"    4 [144][146]  [212]EXTDATEI KORRIGIEREN"
  19. 170 PRINT"    5 [144][146]  [193]NGEBOT / [210]ECHNUNG DRUCKEN"
  20. 180 PRINT"    6 [144][146]  [212]EXTDATEI ANLEGEN/VERGROESSERN"
  21. 190 PRINT"    E [144][146]  [197]NDE"
  22. 200 GETA$:IFA$="E"THENCLOSE2:CLOSE3:END
  23. 210 IFA$<"1"ORA$>"6"THEN200
  24. 230 ONVAL(A$)GOTO250,400,540,710,1060,2930
  25. 240 REM"***************************
  26. 250 [143]"* NEUE TEXTE EINSPEICHERN *
  27. 260 REM"***************************
  28. 270 [153]H$:[153]"(null)CHLUESSEL (2-";SM;") ODER 'E' FUER VALNDE"
  29. 280 [159]1,0:[132]1,S$
  30. 290 [139]S$[178]"E"[167][160]1:[137]110
  31. 300 SL[178][197](S$)
  32. 310 [139]SL[179]2[176]SL[177]SM[167][160]1:[137]270
  33. 320 [153]H$
  34. 330 [153]"ONONMID$ETZT BITTE DEN (null)EXT FUER (null)CHLUESSEL";SL:[153]H1$:[132]1,T$
  35. 340 [153]"LOADCMD";H$:[153]H1$,"ON  ZWEITE (null)EILE FUER (null)L";SL
  36. 350 [132]1,T1$
  37. 360 [153]H$;"ONON(null)REIS PRO VALINHEIT(GOSUBLFM/QM)":[132]1,P$:[160]1
  38. 370 [141]2630
  39. 380 [137]250
  40. 390 [143]"****************************
  41. 400 REM"* TEXTDATEI AUF BILDSCHIRM *
  42. 410 [143]"****************************
  43. 420 GOSUB2850
  44. 430 PRINTCHR$(147)
  45. 440 FORSL=ATOE
  46. 450 GOSUB2730
  47. 460 IFAA$="LEER"THEN500
  48. 470 P$=MID$(AC$,1,4)+","+MID$(AC$,6,2)
  49. 480 PRINTSL;TAB(5)AA$;TAB(46)L$;Z1$;P$;Z$
  50. 490 PRINTTAB(4)AB$
  51. 500 NEXTSL
  52. 510 WAIT198,1
  53. 520 GOTO110
  54. 530 REM"***********************
  55. 540 [143]"*  TEXTDATEI DRUCKEN  *
  56. 550 REM"***********************
  57. 560 [153]H$;" PEEKITTE WARTEN !!!"
  58. 570 [159]1,4,7
  59. 590 X[178]0:[152]1,[199](16)"12";"(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null) - (null)RIGHT$(null)(null)VAL"
  60. 600 [152]1,[199](16)"12";"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  61. 604 [152]1,[199](16)"43";L$:[152]1
  62. 610 [141]2850
  63. 620 [129]SL[178]A[164]E
  64. 630 [141]2730
  65. 640 [139]AA$[178]"LEER"[167]680
  66. 650 P$[178][202](AC$,1,4)[170]","[170][202](AC$,6,2)
  67. 660 [152]1,SL[199](16)"05"AA$[199](16)"47"P$Z$
  68. 670 [152]1,[199](16)"05";AB$
  69. 680 [130]SL
  70. 690 [160]1:[137]110
  71. 700 [143]"**********************
  72. 710 REM"* TEXTDATEN AENDERN  *
  73. 720 [143]"**********************
  74. 730 PRINTH$
  75. 740 INPUT"[203]ORREKTUR : GIB [211]ATZSCHLUESSEL ODER 'E' ";SL$:SL=VAL(SL$)
  76. 750 IFSL$="E"THEN110
  77. 760 IFSL<2ORSL>SMTHEN730
  78. 770 GOSUB2730
  79. 780 PRINTCHR$(147)
  80. 790 IFAA$="LEER"THEN2920
  81. 800 P$=AC$:T$="":T1$=""
  82. 810 PRINT"[211]CHLUESSEL    =";SL
  83. 820 PRINTAA$
  84. 830 PRINTAB$
  85. 840 PRINT"[208]REIS        =";AC$
  86. 850 PRINT"WELCHE [193]ENDERUNG WOLLEN SIE VORNEHMEN   [212]EXT O. [208]REIS  T/P/E "
  87. 860 INPUTQ$
  88. 870 IFQ$<>"T"ANDQ$<>"P"ANDQ$<>"E"THEN850
  89. 880 IFQ$="E"THEN730
  90. 890 IFQ$="T"THEN910
  91. 900 IFQ$="P"THEN990
  92. 910 PRINTH$;Z1$;AA$
  93. 920 INPUT"";T$:T$=LEFT$(T$,40)
  94. 930 PRINTH$;Z1$;AB$
  95. 940 INPUT"";T1$:T1$=LEFT$(T1$,40)
  96. 950 PRINT"[145][145]";T$;Z1$;T1$
  97. 960 WAIT198,1
  98. 970 GOSUB2610
  99. 980 GOTO730
  100. 990 PRINTH$;Z1$;AC$:T$=AA$:T1$=AB$
  101. 1000 INPUT"";P$:P$=RIGHT$(P$,7)
  102. 1010 PRINT"[145]";AA$;Z1$;AB$;P$;Z$
  103. 1020 WAIT198,1
  104. 1030 GOSUB2610
  105. 1040 GOTO730
  106. 1050 REM"****************************
  107. 1060 [143]"* ANGEBOT ZUSAMMEN STELLEN *
  108. 1070 REM"****************************
  109. 1080 [153]H$:Z[178]0:GS[178]0
  110. 1090 [133]"ONON(null)IND DIE FIRMENEIGENEN ATNNGABEN          GESPEICHERT J/N   JCMDCMDCMD";Q$
  111. 1100 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]1090
  112. 1110 [139]Q$[178]"J"[167]2400
  113. 1120 [133]"(null)AME IHRER ASCIRMA";F1$
  114. 1130 [133]"(null)TRASSE         ";F2$
  115. 1140 [133]"(null)OHNORT         ";F3$
  116. 1150 [133]"PEEKERUFSZWEIG     ";F4$
  117. 1160 [133]"(null)ONTONUMMER     ";F5$
  118. 1170 [133]"PEEKANK            ";F6$
  119. 1180 [133]"PEEKANKLEITZAHL    ";F7$
  120. 1190 [133]"(null)ELEFON NR.     ";F8$
  121. 1200 [153]H$
  122. 1210 [133]"(null)OLLEN SIE DIE ASCIRMENDATEN SPEICHERN J/N";Q$
  123. 1220 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]1200
  124. 1230 [139]Q$[178]"J"[167]2300
  125. 1240 [133]"STR$ATUM";FA$
  126. 1250 [153]"'MEIN ATNNGEBOT/MEINE (null)ECHNUNG'":[133]F9$
  127. 1260 [153]H$;"ATNNGABEN ZUM (null)UNDEN:WAIT":[153]
  128. 1270 [133]"ATNNREDE ('LEFT$ERRN ASCRAU ASCIRMA')";A1$:[153]
  129. 1280 [133]"(null)ORNAME (null)ACHNAME";A2$
  130. 1290 [133]"(null)TRASSE         ";A3$
  131. 1300 [133]"(null)OHNORT         ";A4$
  132. 1310 [133]"PEEKETRIFFT:       ";A5$
  133. 1320 [153]H$:[153]"(null)USAMMENSTELLEN DES ATNNGEBOTS GIB :":[153]
  134. 1330 [153]"(null)CHLUESSEL 2-";SM"
  135. 1340 PRINT"[203]OMMENTAR  'K'"
  136. 1350 PRINT"[196]RUCKEN    'D'"
  137. 1360 INPUTSL$
  138. 1370 IFSL$=""THEN1360
  139. 1380 IFSL$="D"THEN1590
  140. 1390 IFSL$="K"THENZ=Z+2:INPUT"KOMMENTAR";C$(Z+1,3):C$(Z,3)="":GOTO1320
  141. 1400 SL=VAL(SL$):IFSL<2ORSL>SMTHEN1320
  142. 1410 GOSUB2730
  143. 1420 IFAA$="LEER"THEN1360
  144. 1425 PRINTAA$AB$"1 [197]INHEIT="AC$"[196][205]"
  145. 1430 IFZ>300THENPRINT"[203]EINE WEITEREN [197]INGABEN MOEGLICH":GOTO1360
  146. 1440 INPUT"[193]NZAHL AN [197]INHEITEN";M$
  147. 1450 IFM$<"1"ORM$>"9"THEN1440
  148. 1460 Z=Z+1:M=VAL(M$)
  149. 1470 P=VAL(AC$):PS=P*M
  150. 1480 GS=GS+PS
  151. 1490 C$(Z,1)=AA$+"       "
  152. 1500 P$=MID$(AC$,1,4)+","+MID$(AC$,6,2)
  153. 1510 C$(Z,1)=C$(Z,1)+"   "+P$
  154. 1520 A=M:GOSUB2220
  155. 1530 C$(Z,1)=C$(Z,1)+V1$
  156. 1540 A=PS:GOSUB2220
  157. 1550 C$(Z,1)=C$(Z,1)+V1$+Z$
  158. 1560 C$(Z,2)=AB$
  159. 1570 GOTO1320
  160. 1580 REM"************************
  161. 1590 [143]"* ANGEBOTE AUSDRUCKEN  *
  162. 1600 REM"************************
  163. 1610 Z1[178]28:I[178]1
  164. 1620 [159]1,4,7
  165. 1630 [159]5,4,0
  166. 1640 [153][199](10)
  167. 1650 [152]1,[199](16)"04";F1$;[199](16)"54";F2$
  168. 1660 [152]1,[199](16)"54";F3$
  169. 1670 [152]1,[199](14);F4$;[199](15);
  170. 1680 [152]1,[199](16)"54";"DEN, ";FA$
  171. 1690 [152]1,[199](10)
  172. 1700 [152]1,[199](16)"54";"(null)TO.(null)R.: ";F5$
  173. 1710 [152]1,[199](16)"54";"CHR$ELDINSTITUT : "
  174. 1720 [152]1,[199](16)"54";F6$
  175. 1730 [152]1,[199](16)"54";"PEEKANKLEITZAHL : ";F7$
  176. 1740 [152]1,[199](16)"54";"(null)ELEFON: ";F8$
  177. 1750 [152]1,"     "A1$
  178. 1760 [152]1,"     "A2$
  179. 1770 [152]1,"     "A3$
  180. 1780 [152]1,A4$
  181. 1830 [152]1,[199](13)[199](10)
  182. 1840 [152]1,"PEEKETRIFFT: ";A5$
  183. 1850 [152]1,[199](10)[199](10)
  184. 1860 [152]1,"ATNLS ATNNLAGE UEBERSENDE ICH RIGHT$HNEN ";F9$;" ZUM O.G. PEEKEZUG."
  185. 1870 [152]1,[199](10)[199](10)
  186. 1880 [152]1," ATNRBEITSAUFWAND";
  187. 1890 [152]1,[199](16)"40""(null)REIS STCK/QM/LFM     (null)ENGE       CHR$ESAMT"
  188. 1900 [129]XX[178]1[164]80:[152]5,[199](163);:[130]
  189. 1910 [152]1,[199](10)
  190. 1920 [129]X[178]1[164]Z
  191. 1930 [139]C$(X,3)[179][177]""[167]Z1[178]Z1[170]2:[137]3080
  192. 1940 [139]Z1[178]67[167]:Z1[178]0:[141]2540
  193. 1950 [139]Z1[177]67[167]:Z1[178]1:[141]2540
  194. 1960 [152]1,C$(X,1):[141]2500
  195. 1970 [152]1,C$(X,2):[141]2500
  196. 1990 [130]X
  197. 2000 [139]Z1[177][178]60[167][141]2540
  198. 2010 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
  199. 2020 A[178]GS:[141]2220
  200. 2030 GS$[178]V1$
  201. 2040 GZ[178]GS[172]0.14[170]0.005:GY[178]GZ[170]GS
  202. 2050 A[178]GZ:[141]2220
  203. 2060 GZ$[178]V1$
  204. 2070 A[178]GY:[141]2220
  205. 2080 GY$[178]V1$
  206. 2090 [152]1,[163]67)GS$;Z$
  207. 2100 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
  208. 2110 [152]1,[163]56)"+ 14% (null)(null)(null)T ";GZ$;Z$
  209. 2120 [152]5,[163]68)"VALVALVALVALVALVALVALVALVALVALVALVAL"
  210. 2130 [152]1,[163]67)GY$;Z$
  211. 2140 [152]1,[163]68)"============"
  212. 2150 [152]1,"(null)IT FREUNDLICHEN CHR$RUESSEN"
  213. 2160 [152]1,[199](10)[199](10)
  214. 2170 [160]1:[160]5
  215. 2180 [153]H$:[133]"(null)OLLEN (null)IE NOCH EINEN STR$RUCK J/N";Q$
  216. 2190 [139]Q$[179][177]"J"[175]Q$[179][177]"N"[167]2180
  217. 2200 [139]Q$[178]"J"[167][137]1610
  218. 2210 [137]110
  219. 2220 [143]"********************************
  220. 2230 REM"*AUFRUNDEN UND KOMMA EINFUEGEN *
  221. 2240 [143]"********************************
  222. 2250 B=INT((A+0.005)*100)
  223. 2260 V2$="       "+STR$(B)
  224. 2270 V2$=RIGHT$(V2$,9)
  225. 2280 V1$=MID$(V2$,1,7)+","+MID$(V2$,8,2)
  226. 2290 RETURN
  227. 2300 CLOSE3
  228. 2305 OPEN4,8,2,"@:FIRMENDATEN,S,W"
  229. 2310 PRINT#4,F1$
  230. 2320 PRINT#4,F2$
  231. 2330 PRINT#4,F3$
  232. 2340 PRINT#4,F4$
  233. 2350 PRINT#4,F5$
  234. 2360 PRINT#4,F6$
  235. 2370 PRINT#4,F7$
  236. 2380 PRINT#4,F8$
  237. 2390 CLOSE4
  238. 2396 OPEN3,8,2,"TEXTDATEN,L,"+CHR$(88):GOTO1240
  239. 2400 OPEN4,8,3,"FIRMENDATEN,S,R"
  240. 2410 INPUT#4,F1$
  241. 2420 INPUT#4,F2$
  242. 2430 INPUT#4,F3$
  243. 2440 INPUT#4,F4$
  244. 2450 INPUT#4,F5$
  245. 2460 INPUT#4,F6$
  246. 2470 INPUT#4,F7$
  247. 2480 INPUT#4,F8$
  248. 2490 CLOSE4:GOTO1240
  249. 2500 Z1=Z1+1
  250. 2510 IFZ1<=66THENRETURN
  251. 2520 Z1=3
  252. 2540 FORQ=1TO6
  253. 2550 PRINT#1,CHR$(10)
  254. 2560 NEXTQ
  255. 2570 I=I+1
  256. 2580 PRINT#1,CHR$(16)"35";"- ";I;" -"
  257. 2590 PRINT#1,CHR$(10)
  258. 2600 RETURN
  259. 2610 REM"*************************
  260. 2620 [143]"* TEXTDATEN SPEICHERN   *
  261. 2630 REM"*************************
  262. 2640 HB[178][181](SL[173]256)
  263. 2650 LB[178]SL[171]HB[172]256
  264. 2660 T$[178]T$[170]FF$:T$[178][200](T$,40)
  265. 2670 T1$[178]T1$[170]FF$:T1$[178][200](T1$,40)
  266. 2680 P$[178]FF$[170]P$:P$[178][201](P$,7)
  267. 2690 RC$[178]T$[170]T1$[170]P$
  268. 2700 [152]2,"P"[170][199](2)[170][199](LB)[170][199](HB)[170][199](1)
  269. 2710 [152]3,RC$
  270. 2720 [142]
  271. 2730 [143]"**********************
  272. 2740 REM"*  TEXTDATEN LESEN   *
  273. 2750 [143]"**********************
  274. 2760 HB=INT(SL/256)
  275. 2770 LB=SL-HB*256
  276. 2780 PRINT#2,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
  277. 2790 INPUT#3,RC$
  278. 2800 IFASC(RC$)=255THENAA$="LEER":RETURN
  279. 2810 AA$=MID$(RC$,1,40)
  280. 2820 AB$=MID$(RC$,41,40)
  281. 2830 AC$=MID$(RC$,81,7)
  282. 2840 RETURN
  283. 2850 REM"**** EINGABELIMIT ******
  284. 2860 [153]H$
  285. 2870 [133]"ONATNB (null)CHLUESSEL:";A
  286. 2880 [139]A[179]2[176]A[177]SM[167]2870
  287. 2890 [133]"ONPEEKIS ZU (null)CHLUESSEL";E
  288. 2900 [139]E[179]2[176]A[177]SM[167]2890
  289. 2910 [142]
  290. 2920 [153]H$;"STR$ATENSATZ NICHT VORHANDEN":[129]X[178]1[164]1000:[130]:[137]730
  291. 2930 [143]"******************************
  292. 2940 REM"*TEXTDATEI EINRICHTEN/ERWEIT.*
  293. 2950 [143]"******************************
  294. 2960 PRINTH$:PRINT"WIEVIEL [211]AETZE SOLL DIE [196]ATEI ENTHALTEN "
  295. 2970 INPUT"ODER ENDE 'E' ";SM$
  296. 2980 IFSM$="E"THEN110
  297. 2990 SM=VAL(SM$)
  298. 3000 IFSM<2ORSM>1800THEN2960
  299. 3010 HB=INT(SM/256)
  300. 3020 LB=SM-HB*256
  301. 3030 PRINT#2,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
  302. 3040 PRINT#3,CHR$(255)
  303. 3050 PRINT#2,"P"+CHR$(2)+CHR$(01)+CHR$(0)+CHR$(1)
  304. 3060 PRINT#3,SM
  305. 3070 GOTO110
  306. 3080 PRINT#1,C$(X,3)
  307. 3090 ZZ=LEN(C$(X,3))
  308. 3100 FORY=1TOZZ
  309. 3110 PRINT#5,CHR$(163);
  310. 3120 NEXTY
  311. 3130 PRINT#1,CHR$(141)
  312. 3140 GOTO1990
  313.