home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 18 / Digital_Talk_18_19xx_Digital_Talk_de_Side_A.d64 / !geldverwaltung. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  204 lines
  1. 5 lw=peek(186)
  2. 10 poke53280,2:poke53281,2:print"[147]       jesus christus loves you !"
  3. 20 gett$:ift$=""then20
  4. 30 la=0:le=0
  5. 40 poke53280,0:poke53281,0:dimde$(300),da$(300),be$(300),ba$(300),a(300),e(300)
  6. 50 gosub1910:print"[147][155]welches jahr ? [164]":x1=15:gosub1930:j$=w$
  7. 60 print"[147][155][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  8. 70 print"[152]             geldverwaltung             ";
  9. 80 print"[155][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  10. 90 print"           [152][1]  daten laden"
  11. 100 print"           [2]  daten speichern"
  12. 110 print"           [3]  daten ansehen"
  13. 120 print"           [4]  daten drucken"
  14. 130 print"           [5]  daten eingeben"
  15. 140 print"           [6]  ueberblick"
  16. 150 print"           [7]  und tschuess"
  17. 160 print"[155][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  18. 170 print"[152] dieses programm ist freeware und darf  ";
  19. 180 print"[152] nicht veraendert werden.thanx to jesus.";
  20. 190 print"[155][146][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  21. 200 gett$:ift$=""then200
  22. 210 ift$<"1"ort$>"7"then200
  23. 220 g=asc(t$)-48
  24. 230 onggosub280,500,740,1040,1310,1700,1870
  25. 240 goto60
  26. 250 :
  27. 260 rem laden
  28. 270 :
  29. 280 print"[147]lade einnahmen bitte warten ........!":n$="ein"+j$+",s,r"
  30. 290 open1,lw,2,n$
  31. 300 input#1,le
  32. 310 forl1=1tole
  33. 320 input#1,de$(l1)
  34. 330 input#1,be$(l1)
  35. 340 input#1,e(l1)
  36. 350 next
  37. 360 close1
  38. 370 print"[147]lade ausgaben bitte warten .........!":n$="aus"+j$+",s,r"
  39. 380 open1,lw,2,n$
  40. 390 input#1,la
  41. 400 forl2=1tola
  42. 410 input#1,da$(l2)
  43. 420 input#1,ba$(l2)
  44. 430 input#1,a(l2)
  45. 440 next
  46. 450 close1
  47. 460 return
  48. 470 :
  49. 480 rem speichern
  50. 490 :
  51. 500 print"[147]speichere einnahmen bitte warten.....!":n$="ein"+j$+",s,w"
  52. 510 a$="s:ein"+j$:open15,lw,15,a$:close15
  53. 520 open1,lw,2,n$
  54. 530 print#1,le
  55. 540 forl1=1tole
  56. 550 print#1,de$(l1)
  57. 560 print#1,be$(l1)
  58. 570 print#1,e(l1)
  59. 580 next
  60. 590 close1
  61. 600 print"[147]speichere ausgaben bitte warten......!":n$="aus"+j$+",s,w"
  62. 610 a$="s:aus"+j$:open15,lw,15,a$:close15
  63. 620 open1,lw,2,n$
  64. 630 print#1,la
  65. 640 forl2=1tola
  66. 650 print#1,da$(l2)
  67. 660 print#1,ba$(l2)
  68. 670 print#1,a(l2)
  69. 680 next
  70. 690 close1
  71. 700 return
  72. 710 :
  73. 720 rem ansehen
  74. 730 :
  75. 740 print"[147]    ansehen von:"
  76. 750 print"    [1] einnahmen"
  77. 760 print"    [2] ausgaben"
  78. 770 print"    [3] beides"
  79. 780 gett$:ift$=""then780
  80. 790 ift$<"1"ort$>"3"then780
  81. 800 ift$="2"then910
  82. 810 print"[147]einnahmen"
  83. 820 print""
  84. 830 forl1=1tole
  85. 840 z=len(be$(l1))
  86. 850 ifz=25then870
  87. 860 forq=1to25-z:be$(l1)=be$(l1)+" ":next
  88. 870 printde$(l1);" ";be$(l1);e(l1)
  89. 880 getta$:ifta$=""then880
  90. 890 next
  91. 900 ift$="1"thenreturn
  92. 910 print"[147]ausgaben"
  93. 920 print""
  94. 930 forl2=1tola
  95. 940 z1=len(ba$(l2))
  96. 950 ifz1=25then970
  97. 960 forq=1to25-z1:ba$(l2)=ba$(l2)+" ":next
  98. 970 printda$(l2);" ";ba$(l2);a(l2)
  99. 980 getta$:ifta$=""then980
  100. 990 next
  101. 1000 return
  102. 1010 :
  103. 1020 rem drucken
  104. 1030 :
  105. 1040 print"[147]bitte drucker einschalten ..!"
  106. 1050 print"[_] fuer abbruch............."
  107. 1060 gett$:ift$=""then1060
  108. 1070 ift$="_"thenreturn
  109. 1080 open1,4:cmd1
  110. 1090 print#1,"einnahmen:";le
  111. 1100 print#1," "
  112. 1110 forl1=1tole
  113. 1120 z=len(be$(l1))
  114. 1130 ifz=25then1150
  115. 1140 forq=1to25-z:be$(l1)=be$(l1)+" ":next
  116. 1150 print#1,de$(l1);" ";be$(l1);e(l1)
  117. 1160 next
  118. 1170 print#1," "
  119. 1180 print#1,"ausgaben:";la
  120. 1190 print#1," "
  121. 1200 forl2=1tola
  122. 1210 z=len(ba$(l2))
  123. 1220 ifz=25then1240
  124. 1230 forq=1to25-z:ba$(l2)=ba$(l2)+" ":next
  125. 1240 print#1,da$(l2);" ";ba$(l2);a(l2)
  126. 1250 next
  127. 1260 close1
  128. 1270 return
  129. 1280 :
  130. 1290 rem eingabe
  131. 1300 :
  132. 1310 print"[147]eingabe......"
  133. 1320 print"    [1] einnahmen"
  134. 1330 print"    [2] ausgaben"
  135. 1340 gett$:ift$=""then1340
  136. 1350 ift$<"1"ort$>"2"then1340
  137. 1360 ift$="2"then1510
  138. 1370 le=le+1
  139. 1380 ifle=300thenreturn
  140. 1390 print"[147]eingabe von einnahmen.[_] eingabe ende"
  141. 1400 print"datensatz:";le
  142. 1410 print"datum.....: [164]":y1=5:x1=12:gosub1930:de$(le)=w$
  143. 1420 iflen(de$(le))>6then1380
  144. 1430 ifde$(le)="_"then1650
  145. 1440 y1=7:print"bemerkung.: [164]":gosub1930:be$(le)=w$
  146. 1450 iflen(be$(le))>25then1380
  147. 1460 print"einnahmen.: [164]":y1=9:gosub1930:e(le)=val(w$)
  148. 1470 print"korrekt ?"
  149. 1480 gett$:ift$=""then1480
  150. 1490 ift$="n"then1380
  151. 1500 goto1370
  152. 1510 la=la+1
  153. 1520 ifla=300thenreturn
  154. 1530 print"[147]eingabe von ausgaben.[_] eingabe ende"
  155. 1540 print"datensatz:";la
  156. 1550 print"datum.....: [164]":x1=12:y1=5:gosub1930:da$(la)=w$
  157. 1560 iflen(da$(la))>6then1520
  158. 1570 ifda$(la)="_"then1660
  159. 1580 print"bemerkung.: [164]":y1=7:gosub1930:ba$(la)=w$
  160. 1590 iflen(ba$(la))>25then1520
  161. 1600 print"ausgaben..: [164]":y1=9:gosub1930:a(la)=val(w$)
  162. 1610 print"korrekt ?"
  163. 1620 gett$:ift$=""then1620
  164. 1630 ift$="n"then1520
  165. 1640 goto1510
  166. 1650 le=le-1:return
  167. 1660 la=la-1:return
  168. 1670 :
  169. 1680 rem ueberblick
  170. 1690 :
  171. 1700 print"[147]der ueberblick":ge=0:ga=0:rg=0
  172. 1710 print"bitte warten..."
  173. 1720 forl1=1tole
  174. 1730 ge=ge+e(l1)
  175. 1740 next
  176. 1750 forl2=1tola
  177. 1760 ga=ga+a(l2)
  178. 1770 next
  179. 1780 rg=ge-ga
  180. 1790 print"gesamt einnahmen:";ge
  181. 1800 print"gesamt ausgaben.:";ga
  182. 1810 print"differenz.......:";rg
  183. 1820 gett$:ift$=""then1820
  184. 1830 return
  185. 1840 :
  186. 1850 rem ende
  187. 1860 :
  188. 1870 print"[147]und weg....."
  189. 1880 gett$:ift$=""then1880
  190. 1890 ift$<>"j"thenreturn
  191. 1900 sys64738
  192. 1910 op=704:fori=.to25:ready:pokeop+i,y:next:data32,253,174,32,158,183,138,72,32
  193. 1920 data253,174,32,158,183,104,168,24,32,240,255,32,253,174,76,164,170:return
  194. 1930 w$=""
  195. 1940 gett$:ift$=""then1940
  196. 1950 ift$=""ort$="[145]"ort$="[157]"ort$=""ort$="[147]"ort$=""then1940
  197. 1960 ift$=chr$(20)then2000
  198. 1970 ift$=chr$(13)thenreturn
  199. 1980 w$=w$+t$:l=len(w$):ifl=255then1970
  200. 1990 sysop,x1,y1,w$;"[164]":goto1940
  201. 2000 iflen(w$)=0then1940
  202. 2010 l=len(w$)-1:w$=left$(w$,l):sysop,x1-1,y1," ";:fora=1tol+2
  203. 2020 print" ";:next:sysop,x1,y1,w$;"[164]":goto1940
  204.