home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Playback_03_1992_-_de.d64 / bill-manager (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  334 lines
  1. 1 rem ********************************
  2. 2 rem *      bill-manager v1.0       *
  3. 3 rem *                              *
  4. 4 rem * created,written and coded by *
  5. 5 rem *                              *
  6. 6 rem *        markus schaaf         *
  7. 7 rem *                              *
  8. 8 rem *      (c)opyright 1989        *
  9. 9 rem ********************************
  10. 10 poke53280,1:poke53281,1:printchr$(144)
  11. 11 print"[147]":print"":printtab(10)"bill - manager v1.0"
  12. 12 print:print:printtab(5)"created , written and coded by"
  13. 13 print:print:printtab(13)"markus schaaf"
  14. 14 print:print:printtab(11)"(c)opyright 1989"
  15. 15 print:print:printtab(8)"bitte 'space' druecken !"
  16. 16 geta$:ifa$=" "thengoto19
  17. 17 goto16
  18. 18 end
  19. 19 poke53265,11:dimart$(500):dimpr(500):diman(500):dime(500):dimpr$(500):dime$(500)
  20. 20 dimab$(500):dimay$(500)
  21. 21 clr:k=0:lk=-1:lu=0
  22. 22 ec$=" ,-"
  23. 23 print"[147]":printtab(10)"1 = daten eingeben":print:printtab(10)"2 = daten lesen"
  24. 24 print:printtab(10)"3 = directory"
  25. 25 print:printtab(10)"4 = exit programm"
  26. 26 poke53265,27
  27. 27 geta$:ifa$="1"thengoto33
  28. 28 ifa$="2"thengoto296
  29. 29 ifa$="4"thengoto333
  30. 30 ifa$="3"thengg=gg+1:goto319
  31. 31 goto27
  32. 32 rem ****************************
  33. 33 rem ******* dateneingabe *******
  34. 34 rem ****************************
  35. 35 poke53265,11
  36. 36 lk=lk+1
  37. 37 print"[147]":poke53265,27
  38. 38 print"[145]sendername ( max. 30 buchstaben ! ) : ":printtab(2)"";se$:input"[145]";se$
  39. 39 iflen(se$)<31then42
  40. 40 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  41. 41 fori=0to2000:next:goto37
  42. 42 print:print"strasse : ":printtab(2)"";st$:input"[145]";st$
  43. 43 iflen(st$)<31then46
  44. 44 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  45. 45 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto42
  46. 46 print:print"wohnort : ":printtab(2)"";wn$:input"[145]";wn$
  47. 47 iflen(wn$)<31then50
  48. 48 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  49. 49 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto52
  50. 50 print:print"telefonnummer (z.b.06131/7073 ) : ":printtab(2)"";te$:input"[145]";te$
  51. 51 print:print"bankleitzahl ( z.b.440 440 40) : ":printtab(2)"";bl$:input"[145]";bl$
  52. 52 print:print"kontonummer (z.b.319 789 890 ) : ":printtab(2)"";kn$:input"[145]";kn$
  53. 53 iflen(kn$)<31thengoto56
  54. 54 print:printtab(3)"itte nur 30 buchstaben eingeben !"
  55. 55 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto52
  56. 56 print"[147]":print:print"sparkasse / bank : ":printtab(2)"";ba$:input"[145]";ba$
  57. 57 iflen(ba$)<31then60
  58. 58 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  59. 59 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto56
  60. 60 print:print"empfaengername ( max. 30 buchstaben ) : ":printtab(2)"";em$:input"[145]";em$
  61. 61 iflen(em$)<31then64
  62. 62 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  63. 63 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145][145]":goto60
  64. 64 print:print"strasse : ":printtab(2)"";sa$:input"[145]";sa$
  65. 65 iflen(sa$)<31then68
  66. 66 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  67. 67 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto64
  68. 68 print:print"wohnort : ":printtab(2)"";ws$:input"[145]";ws$
  69. 69 iflen(ws$)<31then72
  70. 70 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  71. 71 fori=0to2000:next:print"[145]                                     ":print"[145][145][145][145][145][145][145]":goto68
  72. 72 print:print"rechnungsnummer : ":printtab(2)"";rn$:input"[145]";rn$
  73. 73 print:print"heutiges datum : ":printtab(2)"";da$:input"[145]";da$
  74. 74 rem *******************************
  75. 75 rem ******* artikel / preis *******
  76. 76 rem *******************************
  77. 77 poke53265,11
  78. 78 z=0:b=0:k=0
  79. 79 k=k+1:z=z+1:b=b+1
  80. 80 iflk=0thendf=k
  81. 81 print"[147]":poke53265,27
  82. 82 print"name des artikels (max. 30 buchstaben)":printtab(2)"";art$(b):input"[145]";art$(b)
  83. 83 iflen(art$(b))<31thengoto86
  84. 84 print:printtab(3)"bitte nur 30 buchstaben eingeben !"
  85. 85 fori=0to2000:next:goto81
  86. 86 print:print"einzelpreis : ":printtab(1)"";pr(z):input"[145]";pr(z)
  87. 87 iflk=0thenpr1(z)=pr(z)
  88. 88 ifpr1(z)<0thenz=z-1:b=b-1:k=k-1:goto79
  89. 89 print:print"anzahl des artikels : ":printtab(1)"";an(z):input"[145]";an(z)
  90. 90 print:print:print:print
  91. 91 lete(z)=pr1(z)*an(z)
  92. 92 lete(z)=int(e(z)*100+0.5)/100
  93. 93 printtab(38)"";an$:input"[145]noch einen artikel aufzaehlen (j/n) ";an$
  94. 94 iflk>0thenifk=dfthengoto96
  95. 95 ifan$="j"thengoto79
  96. 96 print"[147]"
  97. 97 print"mwst - satz (%) : ":printtab(1)"";mw:input"[145]";mw
  98. 98 print:print"skonto - satz (%) : ":printtab(1)"";sk:input"[145]";sk
  99. 99 print:print"skontolaufzeit ( in tagen ) : ":printtab(1)"";sl:input"[145]";sl
  100. 100 print:print"verpackungskosten : ":printtab(1)"";ve:input"[145]";ve
  101. 101 print:print"porto : ":printtab(1)"";po:input"[145]";po:print:print
  102. 102 input"korrekturen (j/n)";an$
  103. 103 ifan$="j"thengoto35
  104. 104 ifan$="n"thengoto105
  105. 105 poke53265,11
  106. 106 print"[147]":printtab(4)"1 = daten auf diskette speichern"
  107. 107 print:printtab(4)"2 = rechnung ausdrucken lassen  "
  108. 108 print:printtab(4)"3 = directory"
  109. 109 print:printtab(4)"4 = exit":poke53265,27
  110. 110 geta$:ifa$="1"thengoto278
  111. 111 ifa$="2"thengoto115
  112. 112 ifa$="3"thenhh=hh+1:gosub319
  113. 113 ifa$="4"thengoto21
  114. 114 goto110
  115. 115 print"[147]":printtab(7)"bitte drucker einschalten
  116. 116 [153][163]7)"druckerpapiereinlegen und"
  117. 117 [153][163]7)"taste ' w ' druecken ...."
  118. 118 [161]a$:[139]a$[178]"w"[167][137]120
  119. 119 [137]118
  120. 120 [139]lu[178]1[167][137]233
  121. 121 [143]  ****************************
  122. 122 [143]  ******* berechnungen *******
  123. 123 [143]  ****************************
  124. 124 [153]"load":[153][163]6)"die rechnung wird erstellt....."
  125. 125 z[178]0
  126. 126 z[178]z[170]1:[139]z[178]df[170]1[167]129
  127. 127 ab[178]ab[170]e(z)
  128. 128 [137]126
  129. 129 [139]ab[178]0[167]ve[178]0:po[178]0
  130. 130 [136]qa[178]ab[172]mw[173]100:[136]az[178]ab[170]qa:[136]az[178][181](az[172]100[170]0.5)[173]100
  131. 131 [136]rf[178]ab[172]sk[173]100:[136]rf[178][181](rf[172]100[170]0.5)[173]100
  132. 132 [136]ay[178]az[170]ve[170]po:[136]ay[178][181](ay[172]100[170]0.5)[173]100
  133. 133 z[178]0
  134. 134 z[178]z[170]1:[139]z[178]df[170]1[167][137]146
  135. 135 [139]pr1(z)[178]0[167]pr1$(z)[178]"        0.00":[137]134
  136. 136 pr1$(z)[178][196](pr1(z)[170]0.005):l[178][195](pr1$(z))
  137. 137 [129]i[178]1[164]l
  138. 138 [139][202](pr1$(z),i,1)[178]"."[167]141
  139. 139 [130]i
  140. 140 pr1$(z)[178]pr1$(z)[170]".00":[137]144
  141. 141 [139]i[178]l[171]1[167]pr1$(z)[178]pr1$(z)[170]"0":[137]143
  142. 142 pr1$(z)[178][202](pr1$(z),1,i[170]2)
  143. 143 [139]i[178]2[167]pr1$(z)[178]"0"[170][201](pr1$(z),3)
  144. 144 pr1$(z)[178]"            "[170]pr1$(z):pr1$(z)[178][201](pr1$(z),12)
  145. 145 [137]134
  146. 146 z[178]0
  147. 147 z[178]z[170]1:[139]z[178]df[170]1[167][137]159
  148. 148 [139]e(z)[178]0[167]e$(z)[178]"        0.00":[137]147
  149. 149 e$(z)[178][196](e(z)[170]0.005):l[178][195](e$(z))
  150. 150 [129]i[178]1[164]l
  151. 151 [139][202](e$(z),i,1)[178]"."[167]154
  152. 152 [130]i
  153. 153 e$(z)[178]e$(z)[170]".00":[137]157
  154. 154 [139]i[178]l[171]1[167]e$(z)[178]e$(z)[170]"0":[137]156
  155. 155 e$(z)[178][202](e$(z),1,i[170]2)
  156. 156 [139]i[178]2[167]e$(z)[178]"0"[170][201](e$(z),3)
  157. 157 e$(z)[178]"            "[170]e$(z):e$(z)[178][201](e$(z),12)
  158. 158 [137]147
  159. 159 [139]ve[178]0[167]ve$[178]"        0.00":[137]169
  160. 160 ve$[178][196](ve[170]0.005):l[178][195](ve$)
  161. 161 [129]i[178]1[164]l
  162. 162 [139][202](ve$,i,1)[178]"."[167]165
  163. 163 [130]i
  164. 164 ve$[178]ve$[170]".00":[137]168
  165. 165 [139]i[178]l[171]1[167]ve$[178]ve$[170]"0":[137]167
  166. 166 ve$[178][202](ve$,1,i[170]2)
  167. 167 [139]i[178]2[167]ve$[178]"0"[170][201](ve$,3)
  168. 168 ve$[178]"            "[170]ve$:ve$[178][201](ve$,12)
  169. 169 [139]po[178]0[167]po$[178]"        0.00":[137]179
  170. 170 po$[178][196](po[170]0.005):l[178][195](po$)
  171. 171 [129]i[178]1[164]l
  172. 172 [139][202](po$,i,1)[178]"."[167]175
  173. 173 [130]i
  174. 174 po$[178]po$[170]".00":[137]178
  175. 175 [139]i[178]l[171]1[167]po$[178]po$[170]"0":[137]177
  176. 176 po$[178][202](po$,1,i[170]2)
  177. 177 [139]i[178]2[167]po$[178]"0"[170][201](po$,3)
  178. 178 po$[178]"            "[170]po$:po$[178][201](po$,12)
  179. 179 [139]ab[178]0[167]ab$[178]"        0.00":[137]189
  180. 180 ab$[178][196](ab[170]0.005):l[178][195](ab$)
  181. 181 [129]i[178]1[164]l
  182. 182 [139][202](ab$,i,1)[178]"."[167]185
  183. 183 [130]i
  184. 184 ab$[178]ab$[170]".00":[137]188
  185. 185 [139]i[178]l[171]1[167]ab$[178]ab$[170]"0":[137]187
  186. 186 ab$[178][202](ab$,1,i[170]2)
  187. 187 [139]i[178]2[167]ab$[178]"0"[170][201](ab$,3)
  188. 188 ab$[178]"            "[170]ab$:ab$[178][201](ab$,12)
  189. 189 [139]qa[178]0[167]qa$[178]"    0.00":[137]199
  190. 190 qa$[178][196](qa[170]0.005):l[178][195](qa$)
  191. 191 [129]i[178]1[164]l
  192. 192 [139][202](qa$,i,1)[178]"."[167]195
  193. 193 [130]i
  194. 194 qa$[178]qa$[170]".00":[137]198
  195. 195 [139]i[178]l[171]1[167]qa$[178]qa$[170]"0":[137]197
  196. 196 qa$[178][202](qa$,1,i[170]2)
  197. 197 [139]i[178]2[167]qa$[178]"0"[170][201](qa$,3)
  198. 198 qa$[178]"            "[170]qa$:qa$[178][201](qa$,12)
  199. 199 [139]az[178]0[167]az$[178]"        0.00":[137]209
  200. 200 az$[178][196](az[170]0.005):l[178][195](az$)
  201. 201 [129]i[178]1[164]l
  202. 202 [139][202](az$,i,1)[178]"."[167]205
  203. 203 [130]i
  204. 204 az$[178]az$[170]".00":[137]208
  205. 205 [139]i[178]l[171]1[167]az$[178]az$[170]"0":[137]207
  206. 206 az$[178][202](az$,1,i[170]2)
  207. 207 [139]i[178]2[167]az$[178]"0"[170][201](az$,3)
  208. 208 az$[178]"            "[170]az$:az$[178][201](az$,12)
  209. 209 [139]rf[178]0[167]rf$[178]"        0.00":[137]219
  210. 210 rf$[178][196](rf[170]0.005):l[178][195](rf$)
  211. 211 [129]i[178]1[164]l
  212. 212 [139][202](rf$,i,1)[178]"."[167]215
  213. 213 [130]i
  214. 214 rf$[178]rf$[170]".00":[137]218
  215. 215 [139]i[178]l[171]1[167]rf$[178]rf$[170]"0":[137]217
  216. 216 rf$[178][202](rf$,1,i[170]2)
  217. 217 [139]i[178]2[167]rf$[178]"0"[170][201](rf$,3)
  218. 218 rf$[178]"     "[170]rf$:rf$[178][201](rf$,8)
  219. 219 [139]ay[178]0[167]ay$[178]"        0.00":[137]229
  220. 220 ay$[178][196](ay[170]0.005):l[178][195](ay$)
  221. 221 [129]i[178]1[164]l
  222. 222 [139][202](ay$,i,1)[178]"."[167]225
  223. 223 [130]i
  224. 224 ay$[178]ay$[170]".00":[137]228
  225. 225 [139]i[178]l[171]1[167]ay$[178]ay$[170]"0":[137]227
  226. 226 ay$[178][202](ay$,1,i[170]2)
  227. 227 [139]i[178]2[167]ay$[178]"0"[170][201](ay$,3)
  228. 228 ay$[178]"            "[170]ay$:ay$[178][201](ay$,12)
  229. 229 [143] *****************************
  230. 230 [143] ******* druckprogramm *******
  231. 231 [143] *****************************
  232. 232 [139]lu[178]1[167][137]106
  233. 233 [159]1,4:[157]1:[152]1,[199](15):[152]1,[199](27);"e";:[152]1,[199](27);"4";
  234. 234 [152]1,[199](27);"m";:[152]1,[199](14)
  235. 235 [152]1,"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre"
  236. 236 [152]1,se$:[152]1,st$:[152]1,wn$:[152]1,"tel.:";te$
  237. 237 [152]1,"konto:";kn$:[152]1,"blz.:";bl$:[152]1,ba$
  238. 238 [152]1,"pospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospospos"
  239. 239 [152]1,"":[152]1,"":[152]1,""
  240. 240 [152]1,[199](27);"m";:[152]1,[199](15):[152]1,[199](27);"4";
  241. 241 [152]1,"firma/herrn/frau":[152]1,em$
  242. 242 [152]1,sa$:[152]1,ws$:[152]1,"":[152]1,"":[152]1,"":[152]1,[199](14)
  243. 243 [152]1,"rechnung";:[152]1,[199](27);"m";:[152]1,[199](15);
  244. 244 [152]1,[199](16);"25";:[152]1,"rechnungsnummer : ";rn$;
  245. 245 [152]1,[199](16);"58";:[152]1,"rechnungsdatum : ";da$:[152]1,"":[152]1,""
  246. 246 [152]1,"wir lieferten ihnen : ":[152]1,"":[152]1,""
  247. 247 [152]1,"artikelname od. leistung";:[152]1,[199](16);"29";
  248. 248 [152]1,"artikelanzahl";:[152]1,[199](16);"50";:[152]1,"preis/stck";
  249. 249 [152]1,[199](16);"65";:[152]1,"gesamtpreis/dm"
  250. 250 [152]1,"---------------------------------------------------------------";
  251. 251 [152]1,"-------------------------------":z[178]0:b[178]0
  252. 252 z[178]z[170]1:b[178]b[170]1:[139]b[178]df[170]1[167][137]256
  253. 253 [152]1,art$(b);[199](16);"32";an(z);[199](16);"46";pr$(z);ec$;[199](16);"66";
  254. 254 [152]1,e$(z);ec$
  255. 255 [137]252
  256. 256 [152]1,"---------------------------------------------------------------";
  257. 257 [152]1,"-------------------------------"
  258. 258 [152]1,"warenwert ( netto )     : ";[199](16);"66";ab$;ec$
  259. 259 [152]1,"mehrwertsteuer ("mw"% ) : ";[199](16);"66";qa$;ec$
  260. 260 [152]1,"verpackungskosten       : ";[199](16);"66";ve$;ec$
  261. 261 [152]1,"versandkosten , porto   : ";[199](16);"66";po$;ec$
  262. 262 [152]1,[199](16);"64";:[152]1,"-----------------"
  263. 263 [152]1,"gesamtbetrag ( dm )     : ";[199](16);"66";ay$;ec$
  264. 264 [152]1,[199](16);"64";:[152]1,"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  265. 265 [152]1,"":[152]1,"":[152]1,""
  266. 266 [152]1,"der rechnungsbetrag ist innerhalb 30 tagen zahlbar ( netto ) . "
  267. 267 [152]1,"wird der rechnungsbetrag innerhalb von "sl" tag(en) beglichen ,";
  268. 268 [152]1,"so koennen "sk" %  ("rf$;ec$")"
  269. 269 [152]1,"skonto abgezogen werden ."
  270. 270 [160]1,4:[153]"load"
  271. 271 [153][163]8)"die rechnung ist fertig !":[153]
  272. 272 [153][163]9)"bitte space druecken !"
  273. 273 [161]a$:[139]a$[178]" "[167][137]21
  274. 274 [137]273
  275. 275 [143] *****************************
  276. 276 [143] ***** laden / speichern *****
  277. 277 [143] *****************************
  278. 278 [143] ****** saven von daten ******
  279. 279 [153]"load":[153]"onbitte den datennamen eingeben !":[153]"( / = exit )"
  280. 280 cr$[178][199](13):[151]19,1
  281. 281 p[178]1:[153]"datenname : "
  282. 282 [133]fl$
  283. 283 [139]fl$[178]"/"[167][137]106
  284. 284 [159]2,8,8,np$[170]     fl$[170]"s,w"
  285. 285 [152]2,fl$
  286. 286 [152]2,df
  287. 287 [129]p[178]1[164]df
  288. 288 [152]2,se$;cr$;st$;cr$;wn$;cr$;te$;cr$;bl$;cr$;kn$;cr$;ba$
  289. 289 [152]2,em$;cr$;sa$;cr$;ws$;cr$;rn$;cr$;da$;cr$;art$(p);cr$;pr1(p)
  290. 290 [152]2,an(p);cr$;mw;cr$;sk;cr$;sl;cr$;ve;cr$;po;cr$;e(p);cr$
  291. 291 [130]:[160]2
  292. 292 [153]:[153]:[153]:[153]:[153]:[153]:[153][163]3)"o.k. der savevorgang ist beendet !"
  293. 293 [153]:[153][163]9)"bitte space druecken !":[151]19,0
  294. 294 [161]a$:[139]a$[178]" "[167][137]106
  295. 295 [137]294
  296. 296 [143] ****** laden von daten ******
  297. 297 lu[178]1
  298. 298 [153]"load":[153]"onbitte den datenname eingeben ! ":[151]19,1
  299. 299 [153]:[153]"( $ = directory , / = exit )"
  300. 300 [153]"datenname : "
  301. 301 lk[178]1
  302. 302 cr$[178][199](13)
  303. 303 p[178]1
  304. 304 [133]fs$:[151]19,0
  305. 305 [139]fs$[178]"$"[167]ss[178]ss[170]1:[137]319
  306. 306 [139]fs$[178]"/"[167][137]21
  307. 307 [159]2,8,8,np$[170]    fs$[170]"s,r"
  308. 308 [132]2,fl$
  309. 309 [132]2,df
  310. 310 [129]p[178]1[164]df
  311. 311 [132]2,se$,st$,wn$,te$,bl$,kn$,ba$
  312. 312 [132]2,em$,sa$,ws$,rn$,da$,art$(p),pr1(p)
  313. 313 [132]2,an(p),mw,sk,sl,ve,po,e(p)
  314. 314 [130]:[160]2
  315. 315 [137]125
  316. 316 [143] ****************************
  317. 317 [143] ******** directory *********
  318. 318 [143] ****************************
  319. 319 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
  320. 320 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]324
  321. 321 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
  322. 322 [161]a$,b$:[139]a$[167][153]a$b$;:[137]322
  323. 323 [153]a$:[137]320
  324. 324 [161]gut$:[139]gut$[178]" "[167]326
  325. 325 [137]324
  326. 326 [139]hh[178]1[167]hh[178]0:[137]106
  327. 327 [139]tt[178]1[167]tt[178]0:[137]21
  328. 328 [139]ss[178]1[167]ss[178]0:[137]296
  329. 329 [139]gg[178]1[167]gg[178]0:[137]21
  330. 330 [143] ****************************
  331. 331 [143] **** ende des programms ****
  332. 332 [143] ****************************
  333. 333 [158]64738
  334.