home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 11 / Tiger_Disk_011_19xx_Tiger-Crew-Disk_de_Side_B.d64 / buchfuehrung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  18KB  |  653 lines
  1. 10 print"[144]"
  2. 20 poke53272,23:poke53281,15:poke53280,6
  3. 30 print"[147]        [205] e n u e a u s w a h l        [160][146]":print:print
  4. 40 print"     1[146]  [194]uchen          ":print
  5. 50 print"     2[146]  [203]onten,[202]ournal    ":print
  6. 60 print"     3[146]  [214]orsteuer/[213][211][212].   ":print
  7. 70 print"     4[146]  [199]&[214],[194]ilanz,[203]ontenrahmen":print
  8. 80 print""
  9. 90 print"     5[146]  [197]nde":print""
  10. 100 print"[144]          [194]itte waehlen [211]ie aus [146]";
  11. 110 geta$:ifa$=""then110
  12. 120 ifa$<"1"ora$>"5"then110
  13. 130 ifa$="5"thensys64760
  14. 140 onval(a$)goto150,1060,3080,4370
  15. 150 printchr$(14):ti$="000000"
  16. 160 fd=0:fx=5:ch=3:fp=1:gosub810
  17. 170 print"[147]                    [198]inanzbuchhaltung 1 [146]"
  18. 180 print"[144]":ifk1=1thenk1=0:goto800
  19. 190 poke198,0:print"[144][194]eenden   =0[146]":print"[194]uchen    =1[146]"
  20. 200 geta$:ifa$=""then200
  21. 210 ifa$="0"then640
  22. 220 gosub790
  23. 230 print"[144][199]ebe letzte [194]uchungsnummer + 1 ein":print
  24. 240 input"[194]uchungs-[206]r[146]";f:iff<1orf>664thenprint"[145][145][145]":goto240
  25. 250 gosub790
  26. 260 input"[214][211][212] herausziehen[146]  [206][157][157][157]";vs$:ifvs$<>"[202]"andvs$<>"[206]"thenprint"[145][145][145]":goto260
  27. 270 ifvs$="[202]"thengosub700
  28. 280 gosub790
  29. 290 print"[194]uchungs-[206]r[146] ";f:print
  30. 300 print"[196]atum [[212][212].[205][205].[202][202]] [146]";
  31. 310 print"[214]organg           [146]";
  32. 320 print"[203]ontonummer[146]";
  33. 330 print"[199]egenkonto [146]";
  34. 340 print"[194]etrag     [146] ";nt:nt=0
  35. 350 input"";a$(1):iflen(a$(1))<>8thenprint"[145][145]":goto350
  36. 360 input"";a$(2):a$(2)=left$(a$(2),20)
  37. 370 input"";a$(3)
  38. 380 input"";a$(4)
  39. 390 input"";a$(5):print
  40. 400 input"[197]ingabe ok [202]/[206][146]  [202][157][157][157]";x$:ifx$<>"[202]"andx$<>"[206]"thenprint"[145][145]":goto400
  41. 410 ifx$="[206]"thenfori=1to5:a$(i)="":nexti:goto250
  42. 420 gosub850:print
  43. 430 iff=664then530
  44. 440 input"[205][215][211][212] 7/15/[206] [146]";mw$:ifmw$="7"ormw$="15"thengosub650:goto480
  45. 450 ifmw$<>"[206]"andmw$<>"7"andmw$<>"15"thenprint"[145][145]":goto440
  46. 460 input"[214][211][212]  7/15/[206] [146]";vs$:ifvs$="7"orvs$="15"thengosub590
  47. 470 ifvs$<>"[206]"andvs$<>"7"andvs$<>"15"thenprint"[145][145]":goto460
  48. 480 input"weiter buchen [202]/[206][146]  [202][157][157][157]";a$:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145][145]":goto480
  49. 490 ifa$="[202]"thenf=f+1
  50. 500 ifa$="[202]"andf<665then250
  51. 510 ifa$="[202]"andf>664then530
  52. 520 goto550
  53. 530 gosub790
  54. 540 print"[196]iskette belegt":fork=1to5000:nextk:goto170
  55. 550 gosub790:print"[206]otiere die letzte [194]uchungsnummer";f:print
  56. 560 print"[196]ruecke [211]pace, wenn ok!"
  57. 570 getc$:ifc$<>chr$(32)then570
  58. 580 goto170
  59. 590 f=f+1
  60. 600 a$(2)="[214][211][212]"
  61. 610 a$(3)="154"
  62. 620 a$(5)=str$(int((val(a$(5))*val(vs$)*10+5)/10)/100)
  63. 630 gosub850:return
  64. 640 close15:close3:print"[147]":print"[210]echenzeit[146] ";ti$:forpo=1to1000:next:goto10
  65. 650 f=f+1
  66. 660 a$(2)="[205][215][211][212]"
  67. 670 a$(4)="184"
  68. 680 a$(5)=str$(int((val(a$(5))*val(mw$)*10+5)/10)/100)
  69. 690 gosub850:return
  70. 700 gosub790:input"7 oder 15[146]";vs$
  71. 710 ifvs$="7"thenvs=6.5420564
  72. 720 ifvs$="15"thenvs=13.0434783
  73. 730 print:input"[194]rutto[146]";bt
  74. 740 nt=bt-bt*vs/100:nt=int(nt*100+.5)/100
  75. 750 print:print"[206]etto [146] ";nt
  76. 760 print"[195]ontinue [196]ruecke [211]pace[145][146]";
  77. 770 getvs$:ifvs$<>chr$(32)then770
  78. 780 return
  79. 790 k1=1:goto170
  80. 800 return
  81. 810 gosub790:print"[144][204]ege die [198]ibudatendiskette in die [198]loppy"
  82. 820 print"[196]ruecke [211]pace, wenn ok!"
  83. 830 geta$:ifa$<>chr$(32)then830
  84. 840 open15,8,15,"i":open3,8,3,"#":return
  85. 850 gosub920
  86. 860 print#15,"b-p:";ch;fp
  87. 870 forfi=1tofx:ifa$(fi)=""thena$(fi)="*"
  88. 880 print#ch,a$(fi);chr$(13);:next
  89. 890 print#15,"u2:";ch;fd;ft;fs
  90. 900 gosub990
  91. 910 return
  92. 920 iff<358thenf1=0:f2=22:f3=1:goto960
  93. 930 iff>357andf<472thenf1=357:f2=20:f3=19:goto960
  94. 940 iff>471andf<580thenf1=471:f2=19:f3=25:goto960
  95. 950 iff>579thenf1=579:f2=18:f3=31
  96. 960 ft=int(((f-f1)-1)/(f2-1))+f3
  97. 970 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
  98. 980 return
  99. 990 input#15,en,em$,et,es
  100. 1000 ifen=0thenreturn
  101. 1010 gosub790:print"[197]rror on [196]isk:":print
  102. 1020 printen:printem$:printet:printes:print
  103. 1030 input"[198]ortsetzen [202]/[206]  [202][157][157][157]";x$:ifx$<>"[202]"andx$<>"[206]"thenprint"[145][145]":goto1030
  104. 1040 ifx$="[202]"then170
  105. 1050 goto640
  106. 1060 poke53280,6:poke53281,15
  107. 1070 printchr$(14):ti$="000000"
  108. 1080 gosub2800
  109. 1090 z1=1:fd=0:fx=5:ch=3:fp=1:x=0:d=0:y=0
  110. 1100 print"[147]                    [198]inanzbuchhaltung 2 [146]"
  111. 1110 print"[144]":ifk1=1thenk1=0:goto2790
  112. 1120 poke198,0:print"[194]eenden=0[146]"
  113. 1130 print"[144][202]ournal=1[146]":print"[203]onto  =2[146]"
  114. 1140 geta$:ifa$=""thengoto1140
  115. 1150 ifa$="0"then2190
  116. 1160 ifa$="2"then1510
  117. 1170 ifa$<>"1"then1140
  118. 1180 gosub2780
  119. 1190 input"[193]usdrucken [202]/[206][146]  [206][157][157][157]";a$:bs=0:print:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145][145]":goto1190
  120. 1200 ifa$="[202]"thenprint"[144][202]ustiere den [196]rucker"
  121. 1210 ifa$="[202]"thenprint"[196]ruecke [211]pace, wenn ok!":print
  122. 1220 ifa$="[202]"thengetc$:ifc$=""then1220
  123. 1230 input"erste  [194]-[206]r[146]";ae:ifae<1orae>664thenprint"[145][145]":goto1230
  124. 1240 print:input"letzte [194]-[206]r[146]";al:ifal<1oral>664oral<aethenprint"[145][145][145]":goto1240
  125. 1250 gosub2780:forf=aetoal
  126. 1260 gosub2850
  127. 1270 if(f/3=int(f/3))anda$="[202]"thengosub2780:goto1310
  128. 1280 iff/3=int(f/3)thenx=1:print:print"[195]ontinue druecke [211]pace[146]"
  129. 1290 ifx=1thengetc$:ifc$<>chr$(32)then1290
  130. 1300 ifx=1thenk1=1:x=0:gosub2780
  131. 1310 z=f
  132. 1320 gosub2210
  133. 1330 printtab(-p+4)f;tab(13)a$(1):printa$(2)
  134. 1340 print"[194]uchung "a$(3);" an "a$(4)
  135. 1350 z=val(a$(5))
  136. 1360 bs=bs+z
  137. 1370 bs=int((bs*1000+5)/10)/100
  138. 1380 gosub2210:gosub2650
  139. 1390 j=p:b1$=z$
  140. 1400 ifz<1thenb1$="0"+right$(a$(5),3)
  141. 1410 z=bs
  142. 1420 gosub2210:gosub2650
  143. 1430 printtab(-j+7)b1$;tab(-p+17)z$
  144. 1440 ifa$="[202]"thengosub2290
  145. 1450 print:nextf
  146. 1460 print
  147. 1470 print"[196]atenende"
  148. 1480 print:print"[195]ontinue druecke [211]pace[145][146]";
  149. 1490 getc$:ifc$<>chr$(32)thengoto1490
  150. 1500 goto1090
  151. 1510 gosub2780
  152. 1520 ifk3=1thenk3=0:print"      [203]onto[146] ";""x$"[146]":print:goto1620
  153. 1530 ifk2=1thenk2=0:print"      [203]onto[146] ";""x$"[146]":print:goto1680
  154. 1540 input"[193]usdrucken [202]/[206][146]  [206][157][157][157]";a$:bs=0:d=0:print:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145][145]":goto1540
  155. 1550 ifa$="[202]"thengosub6450:open2,4,7:print"[144][202]ustiere den [196]rucker":print
  156. 1560 ifa$="[202]"thenprint"[196]ruecke [211]pace, wenn ok!":print
  157. 1570 ifa$="[202]"thengetc$:ifc$<>chr$(32)then1570
  158. 1580 input"[203]onto[146]";x$:print
  159. 1590 input"erste  [194]-[206]r[146]";ae:ifae<1orae>664thenprint"[145][145]":goto1590
  160. 1600 print:input"letzte [194]-[206]r[146]";al:ifal<1oral>664oral<aethenprint"[145][145][145]":goto1600
  161. 1610 k3=1:goto1510
  162. 1620 forf=aetoal
  163. 1630 gosub2850
  164. 1640 ifa$="[202]"andx=0and(z1/10=int(z1/10))thenk2=1:ab=1:goto1510
  165. 1650 ifx=0and(z1/10=int(z1/10))thenx=1:ab=1:print:print"[195]ontinue druecke [211]pace[146]"
  166. 1660 ifx=1andab=1thengetc$:ifc$<>chr$(32)then1660
  167. 1670 ifx=1andab=1thenk2=1:goto1510
  168. 1680 ab=0:ifa$="[206]"then1710
  169. 1690 ify=0thenprint#2:print#2:print#2:print#2,"                   [203]onto ";x$
  170. 1700 ify=0theny=1:d=5
  171. 1710 ifx$<>a$(3)then1860
  172. 1720 z=f
  173. 1730 gosub2210
  174. 1740 j=p
  175. 1750 z=val(a$(5))
  176. 1760 bs=bs-z
  177. 1770 bs=int((bs*1000+5)/10)/100
  178. 1780 gosub2210:gosub2650
  179. 1790 ifz<1thenz$="0"+right$(b$(i),3)
  180. 1800 printtab(-j+4)f;tab(6)a$(4);tab(-p+15)z$;tab(20)"[211]":z1=z1+1:x=0
  181. 1810 ifa$="[206]"then1860
  182. 1820 print#2,f;:print#2,chr$(16)"09"+a$(1);:print#2,chr$(16)"19"+a$(2);
  183. 1830 print#2,chr$(16)"42"+a$(3);:print#2,chr$(16)"49an "+a$(4);:z=abs(val(a$(5)))
  184. 1840 gosub2440:d=d+1
  185. 1850 print#2,chr$(16)bd$;:z=abs(bs):gosub2550:print#2,chr$(16)b2$:gosub2200
  186. 1860 ifx$<>a$(4)then2010
  187. 1870 z=f
  188. 1880 gosub2210
  189. 1890 j=p
  190. 1900 z=val(a$(5))
  191. 1910 bs=bs+z
  192. 1920 bs=int((bs*1000+5)/10)/100
  193. 1930 gosub2210:gosub2650
  194. 1940 ifz<1thenz$="0"+right$(a$(5),3)
  195. 1950 printtab(-j+4)f;tab(6)a$(3);tab(-p+15)z$;tab(20)"[200]":z1=z1+1:x=0
  196. 1960 ifa$="[206]"then2010
  197. 1970 print#2,f;:print#2,chr$(16)"09";a$(1);:print#2,chr$(16)"19";a$(2);
  198. 1980 print#2,chr$(16)"42";a$(3);:print#2,chr$(16)"49an ";a$(4);:z=abs(val(a$(5)))
  199. 1990 gosub2440:d=d+1
  200. 2000 print#2,chr$(16)bd$;:z=abs(bs):gosub2550:print#2,chr$(16)b2$:gosub2200
  201. 2010 nextf:fori=1to5:print#2:next
  202. 2020 input"[206]eue [196]iskette [202]/[206][146]  [206][157][157][157]";c$:print:ifc$<>"[202]"andc$<>"[206]"thenprint"[145][145][145][145]":goto2020
  203. 2030 ifc$="[202]"thenclose15:close3:gosub2800
  204. 2040 ifc$="[202]"thengosub2780:goto1590
  205. 2050 ifbs<0thenbs=-bs:goto2090
  206. 2060 ifbs>0thengoto2130
  207. 2070 print"[211]aldo"tab(15)"0.00"
  208. 2080 goto2160
  209. 2090 z=bs
  210. 2100 gosub2210:gosub2650
  211. 2110 print"[211]aldo"tab(-p+15)z$;tab(20)"[211]"
  212. 2120 goto2160
  213. 2130 z=bs
  214. 2140 gosub2210:gosub2650
  215. 2150 print"[211]aldo"tab(-p+15)z$;tab(20)"[200]"
  216. 2160 print"[196]atenende":print"[195]ontinue druecke [211]pace[145][146]";
  217. 2170 getc$:ifc$<>chr$(32)then2170
  218. 2180 close2:goto1090
  219. 2190 close15:close3:print"[147]":print"[210]echenzeit[146] ";ti$:forpo=1to1000:next:goto10
  220. 2200 ifd=69thenprint#2:print#2:print#2:d=0:return
  221. 2210 ifz>99999.99thenp=6:goto2280
  222. 2220 ifz>9999.99thenp=5:goto2280
  223. 2230 ifz>999.99thenp=4:goto2280
  224. 2240 ifz>99.99thenp=3:goto2280
  225. 2250 ifz>9.99thenp=2:goto2280
  226. 2260 ifz>0.99thenp=1:goto2280
  227. 2270 p=0
  228. 2280 return
  229. 2290 gosub6450:open2,4,7
  230. 2300 ifd=0thenprint#2:print#2:print#2:print#2,"                   [202]ournal"
  231. 2310 print#2:print#2,f;
  232. 2320 print#2,chr$(16)"11";:print#2,a$(1);
  233. 2330 print#2,chr$(16)"22";:print#2,a$(2);
  234. 2340 print#2,chr$(16)"42";:print#2,a$(3);
  235. 2350 print#2,chr$(16)"49an";
  236. 2360 print#2,chr$(16)"52";:print#2,a$(4);
  237. 2370 z=val(a$(5)):gosub2440
  238. 2380 print#2,chr$(16)bd$;
  239. 2390 z=bs:gosub2550
  240. 2400 print#2,chr$(16)b2$
  241. 2410 d=d+1:ifd=69thend=0:print#2:print#2:print#2
  242. 2420 close2
  243. 2430 return
  244. 2440 ifz>99999.99thenp$="58":goto2510
  245. 2450 ifz>9999.99thenp$="59":goto2510
  246. 2460 ifz>999.99thenp$="60":goto2510
  247. 2470 ifz>99.99thenp$="61":goto2510
  248. 2480 ifz>9.99thenp$="62":goto2510
  249. 2490 ifz>0.99thenp$="63":goto2510
  250. 2500 p$="63"
  251. 2510 ifz<1thenbd$="640"+right$(b$(i),3):return
  252. 2520 gosub2650
  253. 2530 bd$=p$+z$
  254. 2540 return
  255. 2550 ifz>99999.99thenp$="70":goto2620
  256. 2560 ifz>9999.99thenp$="71":goto2620
  257. 2570 ifz>999.99thenp$="72":goto2620
  258. 2580 ifz>99.99thenp$="73":goto2620
  259. 2590 ifz>9.99thenp$="74":goto2620
  260. 2600 ifz>0.99thenp$="75":goto2620
  261. 2610 p$="76"
  262. 2620 gosub2650
  263. 2630 b2$=p$+z$
  264. 2640 return
  265. 2650 d1$=str$(z)
  266. 2660 d2$=right$(d1$,3)
  267. 2670 d3$=left$(d2$,1)
  268. 2680 ifd3$="."then2760
  269. 2690 d4$=right$(d1$,2)
  270. 2700 d5$=left$(d4$,1)
  271. 2710 ifd5$="."then2740
  272. 2720 z$=d1$+".00"
  273. 2730 goto2770
  274. 2740 z$=d1$+"0"
  275. 2750 goto2770
  276. 2760 z$=d1$
  277. 2770 return
  278. 2780 k1=1:goto1100
  279. 2790 return
  280. 2800 gosub2780:print"[144][204]ege die [198]ibudatendiskette in die [198]loppy"
  281. 2810 print"[196]ruecke [211]pace, wenn ok!"
  282. 2820 getaa$:ifaa$<>chr$(32)then2820
  283. 2830 open15,8,15,"i":open3,8,3,"#":return
  284. 2840 print"[147]"
  285. 2850 gosub2940
  286. 2860 print#15,"u1:";ch;fd;ft;fs
  287. 2870 print#15,"b-p:";ch;fp
  288. 2880 gosub3010
  289. 2890 forfi=1tofx
  290. 2900 input#ch,a$(fi)
  291. 2910 if( st and 2 )then2900
  292. 2920 nextfi
  293. 2930 return
  294. 2940 iff<358thenf1=0:f2=22:f3=1:goto2980
  295. 2950 iff>357andf<472thenf1=357:f2=20:f3=19:goto2980
  296. 2960 iff>471andf<580thenf1=471:f2=19:f3=25:goto2980
  297. 2970 iff>579thenf1=579:f2=18:f3=31
  298. 2980 ft=int(((f-f1)-1)/(f2-1))+f3
  299. 2990 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
  300. 3000 return
  301. 3010 input#15,en,em$,et,es
  302. 3020 ifen=0thenreturn
  303. 3030 gosub2780:print"[197]rror on [196]isk:":print
  304. 3040 printen:printem$:printet:printes:print
  305. 3050 input"[198]ortsetzen [202]/[206]  [202][157][157][157]";a$:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145]":goto3050
  306. 3060 ifa$="[206]"then2190
  307. 3070 goto1090
  308. 3080 poke53280,6:poke53281,15:printchr$(14):ti$="000000"
  309. 3090 gosub4090:fd=0:fx=5:ch=3:fp=1
  310. 3100 print"[147]                    [198]inanzbuchhaltung 3 [146]"
  311. 3110 ifk1=1thenk1=0:goto4080
  312. 3120 poke198,0:print"[144][194]eenden   =0[146]"
  313. 3130 print"[213][211][212]-[193]nm.  =1[146]"
  314. 3140 geta$:ifa$=""then3140
  315. 3150 ifa$="0"then3820
  316. 3160 ifa$<>"1"then3140
  317. 3170 gosub4070
  318. 3180 print"jaehrl. =0[146]"
  319. 3190 print"quartal =1[146]"
  320. 3200 print"monatl. =2[146]"
  321. 3210 geta$:ifa$=""then3210
  322. 3220 b=val(a$):ifb<>0andb<>1andb<>2then3210
  323. 3230 ifb=2thenprint:input"[205]onat z.b. 07[146]";m$:goto3310
  324. 3240 ifb=1thenprint:input"[209]uartal z.b. [201][201][146]";q$:goto3260
  325. 3250 goto3310
  326. 3260 ifq$="[201]"thenm$(0)="01":m$(1)="02":m$(2)="03":goto3310
  327. 3270 ifq$="[201][201]"thenm$(0)="04":m$(1)="05":m$(2)="06":goto3310
  328. 3280 ifq$="[201][201][201]"thenm$(0)="07":m$(1)="08":m$(2)="09":goto3310
  329. 3290 ifq$="[201][214]"thenm$(0)="10":m$(1)="11":m$(2)="12"
  330. 3300 print"[145][145][145]":goto3240
  331. 3310 bs(1)=0:bs(2)=0:bs(3)=0:bs(4)=0:restore
  332. 3320 print
  333. 3330 input"erste  [194]-[206]r[146]";ae:ifae<1orae>664thenprint"[145][145]":goto3330
  334. 3340 print:input"letzte [194]-[206]r[146]";al:ifal<1oral>664oral<aethenprint"[145][145][145]":goto3340
  335. 3350 gosub4070
  336. 3360 forf=aetoal
  337. 3370 gosub4140
  338. 3380 a$(1)=mid$(a$(1),4,2)
  339. 3390 a$(3)=left$(a$(3),3)
  340. 3400 a$(4)=left$(a$(4),3)
  341. 3410 ifb=0then3470
  342. 3420 ifb<>2then3450
  343. 3430 ifa$(1)=m$then3470
  344. 3440 goto3630
  345. 3450 ifa$(1)=m$(0)ora$(1)=m$(1)ora$(1)=m$(2)then3470
  346. 3460 goto3630
  347. 3470 r=0:ifa$(3)="154"thenr=1:goto3520
  348. 3480 ifa$(3)="184"thenr=2:goto3520
  349. 3490 ifa$(3)="800"thenr=3:goto3520
  350. 3500 ifa$(3)="890"ora$(3)="891"thenr=4:goto3520
  351. 3510 ifr=0then3550
  352. 3520 z=val(a$(5))
  353. 3530 bs(r)=bs(r)-z
  354. 3540 bs(r)=int((bs(r)*1000+5)/10)/100
  355. 3550 r=0:ifa$(4)="154"thenr=1:goto3600
  356. 3560 ifa$(4)="184"thenr=2:goto3600
  357. 3570 ifa$(4)="800"thenr=3:goto3600
  358. 3580 ifa$(4)="890"ora$(4)="891"thenr=4:goto3600
  359. 3590 ifr=0then3630
  360. 3600 z=val(a$(5))
  361. 3610 bs(r)=bs(r)+z
  362. 3620 bs(r)=int((bs(r)*1000+5)/10)/100
  363. 3630 nextf
  364. 3640 input"[206]eue [196]iskette [202]/[206][146]  [206][157][157][157]";a$:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145][145]":goto3640
  365. 3650 ifa$="[202]"thenclose15:close3:gosub4090
  366. 3660 ifa$="[202]"thengosub4070:goto3330
  367. 3670 gosub4070
  368. 3680 forr=1to4
  369. 3690 ifbs(r)<0thenx$="-":bs(r)=-bs(r)
  370. 3700 z=bs(r)
  371. 3710 gosub3830
  372. 3720 u$(1)="[214]orsteuer":u$(2)="[205]ehrwertsteuer":u$(3)="[197]rloese"
  373. 3730 u$(4)="[199]utschriften/[211]konti"
  374. 3740 printu$(r);
  375. 3750 ifx$="-"thenx$="+":printtab(10)"-";
  376. 3760 printtab(-p+30)z$
  377. 3770 print
  378. 3780 nextr
  379. 3790 print"[195]ontinue druecke [211]pace[146]"
  380. 3800 geta$:ifa$<>chr$(32)then3800
  381. 3810 goto3100
  382. 3820 close15:close3:print"[147]":print"[210]echenzeit[146] ";ti$:forpo=1to1000:next:goto10
  383. 3830 ifz>99999.99thenp=6:goto3900
  384. 3840 ifz>9999.99thenp=5:goto3900
  385. 3850 ifz>999.99thenp=4:goto3900
  386. 3860 ifz>99.99thenp=3:goto3900
  387. 3870 ifz>9.99thenp=2:goto3900
  388. 3880 ifz>0.99thenp=1:goto3900
  389. 3890 p=0
  390. 3900 gosub3920
  391. 3910 return
  392. 3920 d1$=str$(z)
  393. 3930 d2$=right$(d1$,3)
  394. 3940 d3$=left$(d2$,1)
  395. 3950 ifd3$="."then4030
  396. 3960 d4$=right$(d1$,2)
  397. 3970 d5$=left$(d4$,1)
  398. 3980 ifd5$="."then4010
  399. 3990 z$=d1$+".00"
  400. 4000 goto4040
  401. 4010 z$=d1$+"0"
  402. 4020 goto4040
  403. 4030 z$=d1$
  404. 4040 ifz<1thenz$="0"+mid$(z$,2,3)
  405. 4050 ifz=0thenp=0:z$="0.00"
  406. 4060 return
  407. 4070 k1=1:goto3100
  408. 4080 return
  409. 4090 gosub4070:print"[144][204]ege die [198]ibudatendiskette in die [198]loppy"
  410. 4100 print"[196]ruecke [211]pace, wenn ok!"
  411. 4110 geta$:ifa$<>chr$(32)then4110
  412. 4120 open15,8,15,"i":open3,8,3,"#":return
  413. 4130 print"[147]"
  414. 4140 gosub4230
  415. 4150 print#15,"u1:";ch;fd;ft;fs
  416. 4160 print#15,"b-p:";ch;fp
  417. 4170 gosub4300
  418. 4180 forfi=1tofx
  419. 4190 input#ch,a$(fi)
  420. 4200 if( st and 2 )then4190
  421. 4210 nextfi
  422. 4220 return
  423. 4230 iff<358thenf1=0:f2=22:f3=1:goto4270
  424. 4240 iff>357andf<472thenf1=357:f2=20:f3=19:goto4270
  425. 4250 iff>471andf<580thenf1=471:f2=19:f3=25:goto4270
  426. 4260 iff>579thenf1=579:f2=18:f3=31
  427. 4270 ft=int(((f-f1)-1)/(f2-1))+f3
  428. 4280 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
  429. 4290 return
  430. 4300 input#15,en,em$,et,es
  431. 4310 ifen=0thenreturn
  432. 4320 gosub4070:print"[197]rror on [196]isk:":print
  433. 4330 printen:printem$:printet:printes:print
  434. 4340 input"[198]ortsetzen [202]/[206]  [202][157][157][157]";a$:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145]":goto4340
  435. 4350 ifa$="[202]"then3100
  436. 4360 goto3820
  437. 4370 poke53280,6:poke53281,15
  438. 4380 printchr$(14)
  439. 4390 ti$="000000":gosub6170
  440. 4400 close15:close3:clr:open15,8,15,"i":open3,8,3,"#":fd=0:fx=5:ch=3:fp=1
  441. 4410 print"[147]                    [198]inanzbuchhaltung 4 [146]"
  442. 4420 ifk1=1thenk1=0:goto6160
  443. 4430 print"[144][194]eenden=0[146]"
  444. 4440 print"[199]+[214]    =1[146]":print"[194]ilanz =2[146]":print"[203]-[210]    =3[146]"
  445. 4450 geta$:ifa$=""then4450
  446. 4460 a=val(a$):ifa=0then5690
  447. 4470 ifa<>1anda<>2anda<>3then4450
  448. 4480 gosub6150
  449. 4490 print"[144][202]ustiere den [196]rucker":print:print"[196]ruecke [211]pace, wenn ok!"
  450. 4500 geta$:ifa$<>chr$(32)then4500
  451. 4510 gosub6150
  452. 4520 readak
  453. 4530 dimko$(ak-1),kt$(ak-1)
  454. 4540 dimsa(ak-1)
  455. 4550 fori=0toak-1
  456. 4560 readko$(i)
  457. 4570 nexti
  458. 4580 fori=0toak-1
  459. 4590 readkt$(i)
  460. 4600 nexti
  461. 4610 ifa=3then6070
  462. 4620 gosub6150:input"erste  [194]-[206]r[146]";ae:ifae<1orae>664thenprint"[145][145]":goto4620
  463. 4630 print:input"letzte [194]-[206]r[146]";al:ifal<aeoral>664oral<1thenprint"[145][145][145]":goto4630
  464. 4640 gosub6150:forf=aetoal
  465. 4650 gosub6220
  466. 4660 a$(3)=left$(a$(3),3)
  467. 4670 a$(4)=left$(a$(4),3)
  468. 4680 fori=0toak-1
  469. 4690 ifko$(i)<>a$(3)thengoto4720
  470. 4700 sa(i)=sa(i)-val(a$(5))
  471. 4710 sa(i)=int((sa(i)*1000+5)/10)/100
  472. 4720 ifko$(i)<>a$(4)thengoto4750
  473. 4730 sa(i)=sa(i)+val(a$(5))
  474. 4740 sa(i)=int((sa(i)*1000+5)/10)/100
  475. 4750 nexti
  476. 4760 nextf
  477. 4770 gosub6150:input"[206]eue [196]iskette [202]/[206][146]  [206][157][157][157]";a$:ifa$<>"[206]"anda$<>"[202]"then4770
  478. 4780 ifa$="[202]"thenclose15:close3:gosub6170:goto4620
  479. 4790 gosub6150
  480. 4800 fori=0toak-1
  481. 4810 z$=ko$(i)
  482. 4820 z$=left$(z$,1)
  483. 4830 ifz$="2"orz$="3"orz$="4"orz$="8"thengoto4850
  484. 4840 goto4980
  485. 4850 ifsa(i)<0thensa(i)=-sa(i):goto4930
  486. 4860 ifsa(i)=0thengoto4980
  487. 4870 ifa=2then4900
  488. 4880 z=sa(i)
  489. 4890 s$="78[200]":gosub5700
  490. 4900 bg=bg+sa(i)
  491. 4910 bg=int((bg*1000+5)/10)/100
  492. 4920 goto4980
  493. 4930 ifa=2then4960
  494. 4940 z=sa(i)
  495. 4950 s$="78[211]":gosub5700
  496. 4960 bg=bg-sa(i)
  497. 4970 bg=int((bg*1000+5)/10)/100
  498. 4980 nexti
  499. 4990 ifa=2then5080
  500. 5000 ifbg<0then5040
  501. 5010 z=bg
  502. 5020 gosub6020
  503. 5030 goto5060
  504. 5040 z=-bg
  505. 5050 gosub6020
  506. 5060 ifa=2then5080
  507. 5070 goto5270
  508. 5080 gosub6150
  509. 5090 ifbg>=0thensa(34)=bg
  510. 5100 ifbg<0thensa(35)=bg
  511. 5110 fori=0toak-1
  512. 5120 ifi=96then5250
  513. 5130 z$=ko$(i)
  514. 5140 z$=left$(z$,1)
  515. 5150 ifz$="2"orz$="3"orz$="4"orz$="8"thengoto5250
  516. 5160 ifsa(i)=0thengoto5250
  517. 5170 ifsa(i)<0thensa(i)=-sa(i):goto5230
  518. 5180 z=sa(i)
  519. 5190 s$="78[208]":gosub5700
  520. 5200 bs=bs+sa(i)
  521. 5210 bs=int((bs*1000+5)/10)/100
  522. 5220 goto5250
  523. 5230 z=sa(i)
  524. 5240 s$="78[193]":gosub5700
  525. 5250 nexti
  526. 5260 z=bs:gosub6050
  527. 5270 goto4400
  528. 5280 data98
  529. 5290 data"000","001","002","010","020","021","022","030","031","032","040","050","060"
  530. 5300 data"070","080","081","085","090","091","092","093","100","101","102","110"
  531. 5310 data"111","120","121","130","131","135","136","137","140","141","150","154","160"
  532. 5320 data"164","170","180","183","184","190","200","210","220","230","240","250"
  533. 5330 data"300","370","371","372","373","374","380","381","382","390","391"
  534. 5340 data"400","401","402","403","410","420","421","422","423","430","431","432","440"
  535. 5350 data"441","442","450","451","452","460","470"
  536. 5360 data"471","480","481","482","483","490","491","800"
  537. 5370 data"890","891","900","910","930","940","941","950","951"
  538. 5380 data"[214]erwaltungsgebaeude","[214]erkaufsgebaeude","[204]agerhaeuser","[213]nbebaute [199]rundstuecke"
  539. 5390 data"[194]ueromaschinen","[208]ersonen- und [204]astenaufzuege","[198]ahrzeuge","[204]adeneinrichtungen"
  540. 5400 data"[194]ueroeinrichtungen","[194]ueromaschinen","[203]onzessionen","[194]eteiligungen"
  541. 5410 data"[198]orderungen aus [196]arlehen","[200]ypothekenschulden","[197]igenkapital"
  542. 5420 data"[194]eteiligungskapital"
  543. 5430 data"[210]uecklagen fuer [206]eubauten","[215]ertberichtigungen","[210]ueckstellungen"
  544. 5440 data"[193]ktive [208]osten der [202]ahresabgrenzung","[208]assive [208]osten der [202]ahresabgrenzung"
  545. 5450 data"[200]auptkasse","[198]ilialkasse","[208]ortokasse","[208]ostscheckkonto"
  546. 5460 data"[199]irokonto [204]andeszentralbank","[194]ank","[211]parkasse","[194]esitzwechsel","[211]checks"
  547. 5470 data"[211]chuldscheine","[193]ktien","[208]fandbriefe","[198]orderungen an [203]unden"
  548. 5480 data"[218]weifelhafte [198]orderungen","[211]onstige [198]orderungen","[214]orsteuer"
  549. 5490 data"[214]erbindlichkeiten aus [215]arenlieferungen"
  550. 5500 data"[214]erbindlichkeiten aus [196]ienstleistungen","[211]chuldwechsel"
  551. 5510 data"[211]onstige [214]erbindlichkeiten","[206]och abzufuehrende [193]bgaben","[213]msatzsteuer"
  552. 5520 data"[208]rivatkonten","[193]usserordentliche [193]ufwendungen","[193]usserordentliche [197]rtraege"
  553. 5530 data"[200]aus- und [199]rundstuecksaufwendungen","[218]insaufwendungen","[218]insertraege"
  554. 5540 data"[215]eitere [193]bgrenzungskonten","[215]areneinkaeufe","[198]rachten bei [194]ezug"
  555. 5550 data"[214]erpackungskosten","[204]agergeld","[214]ersicherungskosten"
  556. 5560 data"[218]oelle und [203]ursdifferenzen","[211]konti","[210]abatte","[211]onstige [208]reisnachlaesse"
  557. 5570 data"[203]ommissionsware","[203]ommittent","[199]ehaelter","[204]oehne","[211]oziale [193]ufwendungen"
  558. 5580 data"[213]nternehmerlohn","[205]iete","[200]eizung","[194]eleuchtung","[210]einigung","[210]eparaturen"
  559. 5590 data"[199]ewerbesteuer","[194]eitrag zur [201][200][203]","[211]onstige [211]teuern"
  560. 5600 data"[203]osten fuer [218]eitungsanzeigen","[203]osten fuer [215]erbeblaetter"
  561. 5610 data"[203]osten fuer [204]euchtreklame","[203]fz [211]teuern/[214]ers.","[203]fz [210]eparatur."
  562. 5620 data"[212]reibstoff/[207]el","[218]insen","[194]ewirtungskosten"
  563. 5630 data"[214]erpflegungsmehraufw.","[206]ebenkosten des [199]eldverkehrs","[194]ueromaterial"
  564. 5640 data"[208]ostkosten","[198]ernsprechkosten","[198]achbuecher"
  565. 5650 data"[211]onstige [197]inzelkosten","[215]arenverkaeufe","[206]achtraeglich erteilte [199]utschriften"
  566. 5660 data"[203]undenskonti","[193]bgrenzungssammelkonto","[205]onats [199]&[214]-[203]onto"
  567. 5670 data"[199]ewinn und [214]erlustkonto","[194]ilanzgewinn","[194]ilanzverlust"
  568. 5680 data"[197]roeffnungsbilanz","[211]chlussbilanzkonto"
  569. 5690 close15:close3:print"[147]":print"[210]echenzeit[146] ";ti$:forpo=1to1000:next:goto10
  570. 5700 ifk5=0thengosub6450:open2,4,7:print#2:print#2:print#2
  571. 5710 ifk5=0anda=1thenprint#2,"                   [199]ewinn- und [214]erlustrechnung"
  572. 5720 ifk5=0anda=1thenprint#2:k5=5
  573. 5730 ifk5=0anda=2thenprint#2,"                   [194]ilanz":print#2:k5=5
  574. 5740 ifsa(i)<>0thengosub5790
  575. 5750 print#2,ko$(i);:print#2,chr$(16)"06";kt$(i);:print#2,chr$(16)x$;
  576. 5760 print#2,chr$(16)s$
  577. 5770 k5=k5+1:ifk5=69thenprint#2:print#2:print#2:close2:k5=0
  578. 5780 return
  579. 5790 ifz>99999.99thenp$="65":goto5850
  580. 5800 ifz>9999.99thenp$="66":goto5850
  581. 5810 ifz>999.99thenp$="67":goto5850
  582. 5820 ifz>99.99thenp$="68":goto5850
  583. 5830 ifz>9.99thenp$="69":goto5850
  584. 5840 p$="70"
  585. 5850 gosub5880
  586. 5860 x$=p$+z$
  587. 5870 return
  588. 5880 d1$=str$(z)
  589. 5890 d2$=right$(d1$,3)
  590. 5900 d3$=left$(d2$,1)
  591. 5910 ifd3$="."then5990
  592. 5920 d4$=right$(d1$,2)
  593. 5930 d5$=left$(d4$,1)
  594. 5940 ifd5$="."then5970
  595. 5950 z$=d1$+".00"
  596. 5960 goto6000
  597. 5970 z$=d1$+"0"
  598. 5980 goto6000
  599. 5990 z$=d1$
  600. 6000 ifz<1.00thenz$=" 0"+right$(z$,len(z$)-1)
  601. 6010 return
  602. 6020 ifbg>=0thenprint#2:print#2,"940   [194]ilanzgewinn";:gosub5790:print#2,chr$(16)x$
  603. 6030 ifbg<0thenprint#2:print#2,"941   [194]ilanzverlust";:gosub5790:print#2,chr$(16)x$
  604. 6040 return
  605. 6050 print#2:print#2,"[194]ilanzsumme";:gosub5790:print#2,chr$(16)x$
  606. 6060 fori=1to5:print#2:next:return
  607. 6070 gosub6450:open2,4,7
  608. 6080 print#2:print#2:print#2:print#2,"                   [203]ontenrahmen":print#2
  609. 6090 fori=0toak-1
  610. 6100 print#2,ko$(i);:print#2,chr$(16)"11";:print#2,kt$(i)
  611. 6110 ifi=63thenprint#2:print#2:print#2:print#2:print#2:print#2
  612. 6120 nexti:fori=1to5:print#2:next
  613. 6130 close2
  614. 6140 goto4400
  615. 6150 k1=1:goto4410
  616. 6160 return
  617. 6170 gosub6150:print"[144][204]ege die [198]ibudatendiskette in die [198]loppy"
  618. 6180 print"[196]ruecke [211]pace, wenn ok!"
  619. 6190 getc$:ifc$<>chr$(32)then6190
  620. 6200 open15,8,15,"i":open3,8,3,"#":return
  621. 6210 print"[147]"
  622. 6220 gosub6310
  623. 6230 print#15,"u1:";ch;fd;ft;fs
  624. 6240 print#15,"b-p:";ch;fp
  625. 6250 gosub6380
  626. 6260 forfi=1tofx
  627. 6270 input#ch,a$(fi)
  628. 6280 if( st and 2 )then6270
  629. 6290 nextfi
  630. 6300 return
  631. 6310 iff<358thenf1=0:f2=22:f3=1:goto6350
  632. 6320 iff>357andf<472thenf1=357:f2=20:f3=19:goto6350
  633. 6330 iff>471andf<580thenf1=471:f2=19:f3=25:goto6350
  634. 6340 iff>579thenf1=579:f2=18:f3=31
  635. 6350 ft=int(((f-f1)-1)/(f2-1))+f3
  636. 6360 fs=f-f1-(ft-f3)*f2+(ft-f3-1)
  637. 6370 return
  638. 6380 input#15,en,em$,et,es
  639. 6390 ifen=0thenreturn
  640. 6400 gosub6150:print"[197]rror on [196]isk:":print
  641. 6410 printen:printem$:printet:printes:print
  642. 6420 input"[198]ortsetzen [202]/[206]  [202][157][157][157]";a$:ifa$<>"[202]"anda$<>"[206]"thenprint"[145][145]":goto6420
  643. 6430 ifa$="[202]"then4400
  644. 6440 goto5690
  645. 6450 a=peek(768)
  646. 6460 open1,4
  647. 6470 poke768,185
  648. 6480 print#1:close1
  649. 6490 poke768,a
  650. 6500 ifst<>-128thenreturn
  651. 6510 print"drucker ist nicht eingeschaltet!"
  652. 6520 poke198,0:wait198,1:poke198,0:goto6450
  653.