home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 8 / Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_B.d64 / joewi-faktura (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  398 lines
  1. 2 poke788,52:poke792,193:poke793,254
  2. 3 poke53280,11:poke53281,11
  3. 5 printchr$(14)
  4. 6 gosub55000:gosub30000:clr:open15,8,15,"i0":jj$="[206]"
  5. 9 dima$(11),i$(664),b$(25,5),s(25),m(25):ti$="000000":fd=0:fx=11:ch=3:fp=1
  6. 10 print"[147][144] [198]akturierung 1990 by [202]. [215][201][204][204][197][205][211]-[214]erlag [146]"
  7. 11 ifk1=1thenk1=0:goto10005
  8. 15 gosub50000
  9. 19 gosub10000
  10. 20 poke198,0:print"[194]eenden     =0[146]":print"[210]eklame     =1[146]":print"[210]echnung    =2[146]"
  11. 21 print"[205]ahnung     =3[146]":print"[204]ieferschein=4[146]":print"[194]estellung  =5[146]"
  12. 22 print"[209]uittung    =6[146]":print"[203]alkulation =7[146]"
  13. 25 geta$:ifa$=""then25
  14. 26 a=val(a$)+1
  15. 27 onagoto100,200,300,400,500,600,700,800
  16. 28 goto25
  17. 100 gosub10000:close15:close3
  18. 101 print"[204]ege die [208]rogrammdiskette in die [198]loppy":print
  19. 102 print"[196]ruecke [211]pace, falls ok"
  20. 103 geta$:ifa$<>chr$(32)then103
  21. 104 open15,8,15,"i":open1,8,14,"@:index faktur,s,w":gosub43000
  22. 105 fori=1to664
  23. 106 ifi$(i)=""theni$(i)="/"
  24. 107 print#1,i$(i);chr$(13);:gosub43000:nexti
  25. 108 close1
  26. 110 print"[147][158]":print"[210]echenzeit ";ti$:end
  27. 200 gosub10000
  28. 205 print" [212]ext bis 255 [218]eichen                   [146]"
  29. 210 geta$:ifa$=""thenprint"[164][157]";:goto210
  30. 211 ifa$=chr$(20)then210
  31. 212 ifa$=chr$(13)then220
  32. 215 t$=t$+a$:printa$;
  33. 217 goto210
  34. 220 print"[147]":poke198,0
  35. 225 fori=1tolen(t$)
  36. 227 getb$:ifb$<>""then260
  37. 230 a$=mid$(t$,i,1)
  38. 235 print"[144]";a$
  39. 240 print"";chr$(20)
  40. 242 fork=1to100:nextk
  41. 245 nexti
  42. 250 goto225
  43. 260 goto19
  44. 300 open2,4:gosub5000:gosub1500
  45. 305 gosub10000
  46. 307 print"[210]echnungsnr.[146] ";val(r$)+1:input"[145]";r$:rp=0
  47. 320 gosub10000
  48. 321 input"[198]ortsetzen [202]/[206][146]  [202][157][157][157]";gg$:ifgg$<>"[206]"andgg$<>"[202]"thenprint"[145][145]":goto321
  49. 322 rp=rp+1:ifgg$="[206]"orrp=26then341
  50. 325 gosub10000:nt=0:gosub8000
  51. 326 print"[193]nzahl = 0 fuer [212]extzeile               [146]"
  52. 330 print"[193]nz.[146]":print"[193]rt.[146]":print"[197]-[208]r[146] ";nt
  53. 331 print"[210]ab%[146]  [206]":print"[205][215][211]%[146]"
  54. 333 print"";
  55. 335 input"";b$(rp,1):input"";b$(rp,2):
  56. 336 ifb$(rp,1)="0"thenb$(rp,2)=left$(b$(rp,2),53):goto338
  57. 337 b$(rp,2)=left$(b$(rp,2),23)
  58. 338 ifb$(rp,1)="0"thenb$(rp,3)="":b$(rp,4)="":b$(rp,5)="":goto340
  59. 339 input"";b$(rp,3):input"";b$(rp,4):input"";b$(rp,5)
  60. 340 goto320
  61. 341 rp=rp-1:gosub10000:gosub8000
  62. 342 print"[208]orto/[214]erp.[146] ";nt:input"[145]";v
  63. 343 gosub10000
  64. 344 input"[193]nzahl[146]  1[157][157][157]";an:gosub10000
  65. 345 forx=1toan
  66. 346 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
  67. 347 print#2:print#2:print#2:print#2:print#2:print#2
  68. 350 print#2,chr$(15)chr$(17)tl$+a$(0)
  69. 351 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
  70. 353 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
  71. 354 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
  72. 355 print#2:print#2:print#2:print#2:print#2
  73. 357 print#2,chr$(17)"    [201]hre [194]estellung vom             [213]nser [218]eichen              ";
  74. 358 print#2,chr$(17)"[196]atum"
  75. 359 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
  76. 360 print#2,chr$(17)chr$(16)"62"+a$(8)
  77. 365 print#2:print#2:print#2
  78. 367 print#2,chr$(14)chr$(17)"[210]echnung-[206][210].: ";r$
  79. 368 print#2:print#2
  80. 369 print#2,chr$(17)chr$(15)"   [193]nzahl    [193]rtikel/[196]ienstl.         [197]-[208]reis    [210]abatt ";
  81. 370 print#2,chr$(17)"    [211]umme     [205][215][211]t-[211]atz"
  82. 371 print#2,"=====================================================================";
  83. 372 print#2,"===========":d=35+9+rp
  84. 373 fori=1torp
  85. 374 ifb$(i,1)="0"then376
  86. 375 print#2,chr$(16)"05"+b$(i,1);
  87. 376 print#2,chr$(17)chr$(16)"13"+b$(i,2);:ifb$(i,1)="0"thenprint#2:goto385
  88. 377 z=val(b$(i,3)):p=35:gosub2000:print#2,chr$(16)p$+z$;
  89. 378 ifb$(i,4)="[206]"then380
  90. 379 z=val(b$(i,4)):p=45:gosub2000:print#2,chr$(16)p$+z$;
  91. 380 s(i)=val(b$(i,1))*val(b$(i,3)):s(i)=s(i)-s(i)*val(b$(i,4))/100
  92. 381 s(i)=int(s(i)*100+.5)/100
  93. 382 z=s(i):p=55:gosub2000:print#2,chr$(16)p$+z$;
  94. 383 z=val(b$(i,5)):p=69:gosub2000:print#2,chr$(16)p$+z$
  95. 384 m(i)=s(i)*val(b$(i,5))/100:m(i)=int(m(i)*100+.5)/100
  96. 385 nexti
  97. 386 print#2,chr$(16)"56=========="
  98. 387 fori=1torp:s=s+s(i):nexti:z=s:p=55:gosub2000:print#2,chr$(16)p$+z$
  99. 388 print#2,chr$(17)chr$(16)"30[208]orto und [214]erpackung";:z=v:p=55:gosub2000
  100. 389 print#2,chr$(16)p$+z$
  101. 390 print#2,chr$(17)chr$(16)"30[205]ehrwertsteuer";:fori=1torp:m=m+m(i):nexti
  102. 391 m=m+v*14/100:m=int(m*100+.5)/100:z=m:p=55:gosub2000:print#2,chr$(16)p$+z$
  103. 392 print#2,chr$(16)"56=========="
  104. 393 print#2,chr$(17)chr$(16)"30[199]esamtpreis";:z=s+v+m:p=55:gosub2000
  105. 394 print#2,chr$(16)p$+z$
  106. 395 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
  107. 396 forj=1to70-d:print#2:nextj:x1=s+v+m:gosub4000
  108. 397 nextx:a$(6)=str$(x1):a$(7)=r$:a$(9)="-":a$(10)="-":a$(11)="-"
  109. 398 close2:gosub6000:goto19
  110. 400 open2,4:gosub1500
  111. 405 gosub10000
  112. 407 input"[205]ahnungsnr[146]";rr$
  113. 408 gosub10000
  114. 410 print"[210]echnungsnr[146]":print"[194]etrag     [146]"
  115. 412 print""
  116. 415 input"";r$:input"";b$
  117. 420 gosub10000
  118. 421 input"[193]nzahl[146]  1[157][157][157]";an
  119. 425 gosub10000
  120. 445 forx=1toan
  121. 446 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
  122. 447 print#2:print#2:print#2:print#2:print#2:print#2
  123. 450 print#2,chr$(15)chr$(17)tl$+a$(0)
  124. 451 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
  125. 453 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
  126. 454 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
  127. 455 print#2:print#2:print#2:print#2:print#2
  128. 457 print#2,chr$(17)"    [201]hre [194]estellung vom             [213]nser [218]eichen              ";
  129. 458 print#2,chr$(17)"[196]atum"
  130. 459 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
  131. 460 print#2,chr$(17)chr$(16)"62"+a$(8)
  132. 465 print#2:print#2:print#2
  133. 467 print#2,chr$(14)chr$(17)"[205]ahnung-[206][210].: ";rr$
  134. 468 print#2:print#2
  135. 470 print#2,chr$(17)"[211]ie haben es sicher uebersehen, die"
  136. 471 print#2,chr$(17)"untenstehende [198]orderung zu begleichen."
  137. 472 print#2,chr$(17)"[215]ir bitten um baldige [213]eberweisung"
  138. 473 print#2,chr$(17)"des [194]etrages !":print#2:print#2
  139. 474 print#2,chr$(15)chr$(17)"[205]it freundlichen [199]ruessen"
  140. 475 print#2:print#2:print#2:print#2:print#2:print#2:print#2:print#2
  141. 478 print#2,chr$(17)chr$(16)"30[210]echnungsnummer :  ";r$
  142. 480 print#2,chr$(17)chr$(16)"30[210]echnungsbetrag :  ";b$
  143. 485 fori=1to20:print#2:nexti
  144. 490 next x
  145. 495 close2:goto19
  146. 500 open2,4:gosub1500
  147. 505 gosub10000
  148. 507 input"[204]ieferungsnr[146]";r$
  149. 508 gosub10000
  150. 510 input"# [204]ieferungspos[146]  1[157][157][157]";rp:ifrp<1orrp>25thenprint"[145][145]":goto510
  151. 520 fori=1torp
  152. 525 gosub10000
  153. 530 print"[193]nz.[146]":print"[193]rt.[146]":print"[206]-[208] [146]"
  154. 533 print"";
  155. 535 input"";b$(i,1)
  156. 536 input"";b$(i,2):b$(i,2)=left$(b$(i,2),23)
  157. 537 input"";b$(i,3)
  158. 540 nexti
  159. 541 gosub10000
  160. 542 input"[193]nzahl[146]  1[157][157][157]";an
  161. 543 gosub10000
  162. 544 forx=1toan
  163. 545 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
  164. 547 print#2:print#2:print#2:print#2:print#2:print#2
  165. 550 print#2,chr$(15)chr$(17)tl$+a$(0)
  166. 551 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
  167. 553 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
  168. 554 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
  169. 555 print#2:print#2:print#2:print#2:print#2
  170. 557 print#2,chr$(17)"    [201]hre [194]estellung vom             [213]nser [218]eichen              ";
  171. 558 print#2,chr$(17)"[196]atum"
  172. 559 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
  173. 560 print#2,chr$(17)chr$(16)"62"+a$(8)
  174. 565 print#2:print#2:print#2
  175. 567 print#2,chr$(14)chr$(17)"[204]ieferschein-[206][210].: ";r$
  176. 568 print#2:print#2
  177. 569 print#2,chr$(14)chr$(17)" [193]nzahl [193]rtikel              [206]ettopreis"
  178. 571 print#2,"========================================":d=35+rp+3
  179. 574 ss=0:fori=1torp
  180. 575 print#2,chr$(15)chr$(16)"06"+b$(i,1);
  181. 576 print#2,chr$(17)chr$(16)"16"+b$(i,2);
  182. 577 z=val(b$(i,3)):ss=ss+z*val(b$(i,1)):p=60:gosub2000:print#2,chr$(16)p$+z$
  183. 585 nexti
  184. 586 print#2:print#2,chr$(16)"45summe";:z=ss:p=60:gosub2000:print#2,chr$(16)p$+z$
  185. 587 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
  186. 590 fori=1to68-d:print#2:nexti
  187. 595 nextx
  188. 596 close2:goto19
  189. 599 print:print"[195]ontinue druecke [211]pace[146][145]";
  190. 600 open2,4:gosub1500
  191. 605 gosub10000
  192. 607 input"[194]estellnr[146]";r$
  193. 608 gosub10000
  194. 610 input"# [194]estellpos[146]  1[157][157][157]";rp:ifrp<1orrp>25thenprint"[145][145]":goto510
  195. 620 fori=1torp
  196. 625 gosub10000
  197. 630 print"[193]nz.[146]":print"[193]rt.[146]":print"[206]-[208] [146]"
  198. 633 print"";
  199. 635 input"";b$(i,1)
  200. 636 input"";b$(i,2):b$(i,2)=left$(b$(i,2),23)
  201. 637 input"";b$(i,3)
  202. 640 nexti
  203. 641 gosub10000
  204. 642 input"[193]nzahl[146]  1[157][157][157]";an
  205. 643 gosub10000
  206. 644 forx=1toan
  207. 645 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
  208. 647 print#2:print#2:print#2:print#2:print#2:print#2
  209. 650 print#2,chr$(15)chr$(17)tl$+a$(0)
  210. 651 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
  211. 653 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
  212. 654 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
  213. 655 print#2:print#2:print#2:print#2:print#2
  214. 657 print#2,chr$(17)"    [201]hr [193]ngebot vom                 [213]nser [218]eichen              ";
  215. 658 print#2,chr$(17)"[196]atum"
  216. 659 print#2:print#2,chr$(17)chr$(16)"08";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
  217. 660 print#2,chr$(17)chr$(16)"62"+a$(8)
  218. 665 print#2:print#2:print#2
  219. 667 print#2,chr$(14)chr$(17)"[194]estell-[206][210].: ";r$
  220. 668 print#2:print#2
  221. 669 print#2,chr$(14)chr$(17)" [193]nzahl [193]rtikel              [206]ettopreis"
  222. 671 print#2,"========================================":d=35+rp+3
  223. 674 ss=0:fori=1torp
  224. 675 print#2,chr$(15)chr$(16)"06"+b$(i,1);
  225. 676 print#2,chr$(17)chr$(16)"16"+b$(i,2);
  226. 677 z=val(b$(i,3)):ss=ss+z*val(b$(i,1)):p=60:gosub2000:print#2,chr$(16)p$+z$
  227. 685 nexti
  228. 686 print#2:print#2,chr$(16)"45summe";:z=ss:p=60:gosub2000:print#2,chr$(16)p$+z$
  229. 687 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
  230. 690 fori=1to68-d:print#2:nexti
  231. 695 nextx
  232. 696 close2:goto19
  233. 700 gosub10000
  234. 705 print"[206]ame[146]":print"[211]tr.[146]":print"[207]rt [146]":print"[196][205]  [146]"
  235. 710 print""
  236. 715 input"";n$
  237. 716 input"";s$
  238. 717 input"";o$
  239. 718 input"";d$
  240. 720 gosub10000
  241. 723 forx=1to2
  242. 725 restore:open2,4:print#2:print#2:close2:gosub1100:open2,4
  243. 730 print#2,chr$(15):print#2:print#2:print#2
  244. 735 print#2,chr$(15)chr$(17)"[215]ir bescheinigen hiermit den [194]etrag von"
  245. 736 print#2
  246. 737 z=val(d$):p=10:gosub2000:print#2,"*****";z$;" dm"
  247. 740 print#2
  248. 745 print#2,chr$(17)"von [200]errn/[198]rau/[198]irma ":print#2
  249. 750 print#2,chr$(17)n$;" , ";s$:print#2:print#2,chr$(17)o$:print#2
  250. 755 print#2,chr$(17)"bar oder per [211]check erhalten zu haben."
  251. 760 print#2:print#2:print#2
  252. 765 print#2,"   ...........     .............."
  253. 770 print#2,chr$(17)"   ([207]rt,[196]atum)     ([213]nterschrift)
  254. 775 [129]i[178]1[164]7:[152]2:[130]i
  255. 780 [160]2
  256. 783 [130]x
  257. 785 [137]19
  258. 800 [141]10000:[133]"(NULL)etto-(NULL)ief.wait";nl:[153]:[139]nl[178]0[167]800
  259. 802 [133]"(NULL)abatt %   wait  (NULL)cmdcmdcmd";r$:[139]r$[178]"(NULL)"[167]ra[178]0:[137]804
  260. 803 ra[178][197](r$)
  261. 804 nl[178]nl[171](nl[173]100[172]ra):[153]
  262. 805 [133]"(NULL)konti %   wait  (NULL)cmdcmdcmd";s$:[139]s$[178]"(NULL)"[167]ek[178]nl:[137]808
  263. 806 so[178][197](s$)
  264. 808 ek[178]nl[171](nl[173]100[172]so):ek[178][181](ek[172]100[170].5)[173]100
  265. 810 [141]10000
  266. 812 [153]"valink.-(NULL)reiswait ";ek
  267. 813 [153]:[133]"peekezugskost.wait";bk:np[178]ek[170]bk:[153]
  268. 814 [153]"(NULL)ettopreis wait ";np:[153]
  269. 815 [133]"left$chr$-(NULL)osten %wait  (NULL)cmdcmdcmd";h$:[139]h$[178]"(NULL)"[167]hg[178]np:[137]820
  270. 817 hg[178]np[170](np[173]100[172][197](h$))
  271. 820 [153]:se[178]hg[171]np:se[178][181](se[172]100[170].5)[173]100:[153]"(NULL)elbstkost.wait ";se
  272. 825 [153]:[133]"chr$ewinn %   wait";g:[139]g[178]0[167][153]"ononon":[137]825
  273. 830 sk[178]hg:sk[178]sk[170](sk[173]100[172]g)
  274. 835 [153]:[133]"(NULL)(NULL)(NULL)t %     wait";m:sk[178]sk[170](sk[173]100[172]m)
  275. 840 sk[178][181](sk[172]100[170].5)[173]100:[153]:[153]"(NULL)erkaufspr.wait ";sk:[137]845
  276. 599 [153]:[153]"lennntinue druecke (NULL)pacewaiton";
  277. 845 nv[178]hg[170](hg[173]100[172]g):hs[178](nv[171]np)[173]nv[172]100:hs[178][181](hs[172]100[170].5)[173]100
  278. 850 [153]:[153]"(NULL)panne %   wait ";hs
  279. 855 [153]:[153]"lenontinue druecke (NULL)pacewait"
  280. 860 [161]a$:[139]a$[179][177][199](32)[167]860
  281. 865 [137]19
  282. 1100 [159]2,4:[152]2,[199](14)"                                        "
  283. 1116 [152]2,[199](14)[199](17)"                                        "
  284. 1117 [152]2,[199](14)[199](17)"                                        "
  285. 1135 [152]2,[199](14)[199](17)"                                        "
  286. 1136 [152]2,[199](14)[199](17)"                                        "
  287. 1155 [152]2,[199](14)[199](17)"                                        "
  288. 1156 [152]2,[199](14)"                                        "
  289. 1200 [160]2:[142]
  290. 1500 [141]10000:tl$[178]"      "
  291. 1504 [153]"atnnr.wait":[153]"(NULL)ornwait":[153]"(NULL)amewait":[153]"(NULL)tr.wait"
  292. 1510 [153]"(NULL)(NULL)(NULL) wait":[153]"(NULL)rt wait":[153]"peek.v.wait":[153]"(NULL).(NULL).wait"
  293. 1515 [153]"str$at.wait"
  294. 1520 [153]""
  295. 1525 [129]i[178]0[164]8:a$(i)[178]"-":[130]i
  296. 1530 [129]i[178]0[164]8:[133]"";a$(i):[130]i
  297. 1535 [133]"valingabe ok mid$/(NULL)  mid$cmdcmdcmd";a$
  298. 1540 [139]a$[178]"(NULL)"[176]a$[178]"n"[167]1520
  299. 1545 [139]a$[178]"mid$"[167][142]
  300. 1550 [153]"ononon":[137]1535
  301. 2000 [139]z[177]99999.999[167]p[178]p:[137]2010
  302. 2001 [139]z[177]9999.999[167]p[178]p[170]1:[137]2010
  303. 2002 [139]z[177]999.999[167]p[178]p[170]2:[137]2010
  304. 2003 [139]z[177]99.999[167]p[178]p[170]3:[137]2010
  305. 2004 [139]z[177]9.999[167]p[178]p[170]4:[137]2010
  306. 2005 [139]z[177].999[167]p[178]p[170]5:[137]2010
  307. 2006 p[178]p[170]6
  308. 2010 [141]2500
  309. 2011 p$[178][202]([196](p),2,2)
  310. 2012 [139]z[179]1.00[167]z$[178]"0"[170][202](z$,2,3)
  311. 2013 [139]z[178]0[167]z$[178]"0.00"
  312. 2015 [142]
  313. 2500 d1$[178][196](z)
  314. 2510 d2$[178][201](d1$,3)
  315. 2520 d3$[178][200](d2$,1)
  316. 2530 [139]d3$[178]"."[167]2640
  317. 2540 d4$[178][201](d1$,2)
  318. 2550 d5$[178][200](d4$,1)
  319. 2560 [139]d5$[178]"."[167]2620
  320. 2570 z$[178]d1$[170]".00":[137]2650
  321. 2620 z$[178]d1$[170]"0":[137]2650
  322. 2640 z$[178]d1$
  323. 2650 [142]
  324. 4000 [129]i[178]1[164]rp:s(i)[178]0:m(i)[178]0:[130]i:s1[178]s:s[178]0:m1[178]m:m[178]0:v1[178]v:[142]
  325. 5000 [141]10000:[133]"(NULL)ahnung mid$/(NULL)  (NULL)cmdcmdcmd";a$:[139]a$[179][177]"mid$"[175]a$[179][177]"(NULL)"[167]5000
  326. 5002 kk$[178]"mid$":[139]a$[178]"(NULL)"[167]kk$[178]"(NULL)":[142]
  327. 5003 [139]jj$[178]"mid$"[167][142]
  328. 5004 [160]15:[141]10000:[153]"(NULL)ege die str$atendiskette in die ascloppy"
  329. 5005 [153]"str$ruecke (NULL)pace, falls ok"
  330. 5010 [161]a$:[139]a$[179][177][199](32)[167]5010
  331. 5015 [159]15,8,15,"i"
  332. 5016 [159]3,8,3,"#":jj$[178]"mid$":[142]
  333. 5025 [159]15,8,15,"i":[159]3,8,3,"#":jj$[178]"mid$"
  334. 6000 [139]kk$[178]"(NULL)"[167][142]
  335. 6001 [129]f[178]1[164]664
  336. 6002 [139]i$(f)[178]"/"[167]6010
  337. 6004 [130]f
  338. 6006 [141]10000:[153]"str$iskette belegt":[129]k[178]1[164]5000:[130]k:[142]
  339. 6010 [141]40000
  340. 6011 i$(f)[178]a$(1)[170]" "[170]a$(2)
  341. 6012 [142]
  342. 8000 [133]"(NULL)(NULL)(NULL) herausziehen mid$/(NULL)  (NULL)cmdcmdcmd";a$:[139]a$[179][177]"mid$"[175]a$[179][177]"(NULL)"[167][153]"onon":[137]8000
  343. 8005 [139]a$[178]"(NULL)"[167][141]10000:[142]
  344. 8010 [153]:[133]"7 oder 15";v$:[139]v$[179][177]"7"[175]v$[179][177]"15"[167][153]"ononon":[137]8010
  345. 8015 [139]v$[178]"7"[167]vs[178]6.5420561
  346. 8020 [139]v$[178]"15"[167]vs[178]13.0434783
  347. 8025 [153]:[133]"peekrutto";bt
  348. 8030 nt[178]bt[171]bt[172]vs[173]100:nt[178][181](nt[172]100[170].5)[173]100
  349. 8035 [141]10000
  350. 8040 [142]
  351. 10000 k1[178]1:[137]10
  352. 10005 [142]
  353. 30000 [153]"load"
  354. 30005 [153]"                 ":[153]"                  ":[153]""
  355. 30010 [133]"(NULL)ser-(NULL)amewait <    >cmdcmdcmdcmdcmdcmdcmd";un$
  356. 30015 [139]un$[179][177]"(NULL)(NULL)(NULL)(NULL)>"[167][153]"right$llegal (NULL)ser":[128]
  357. 30020 [133]"(NULL)assword wait <    >cmdcmdcmdcmdcmdcmdcmdpoke";pw$
  358. 30025 [139]pw$[179][177]"****>"[167][162]
  359. 30030 [153]"loadstop":[142]
  360. 40000 [141]41000
  361. 40010 [152]15,"b-p:";ch;fp
  362. 40015 [129]fi[178]0[164]fx:[139]a$(fi)[178]""[167]a$(fi)[178]"*"
  363. 40020 [152]ch,a$(fi);[199](13);:[130]fi
  364. 40025 [152]15,"u2:";ch;fd;ft;fs
  365. 40030 [141]43000
  366. 40035 [142]
  367. 41000 [139]f[179]358[167]f1[178]0:f2[178]22:f3[178]1:[137]41500
  368. 41010 [139]f[177]357[175]f[179]472[167]f1[178]357:f2[178]20:f3[178]19:[137]41500
  369. 41020 [139]f[177]471[175]f[179]580[167]f1[178]471:f2[178]19:f3[178]25:[137]41500
  370. 41030 [139]f[177]579[167]f1[178]579:f2[178]18:f3[178]31
  371. 41500 ft[178][181](((f[171]f1)[171]1)[173](f2[171]1))[170]f3
  372. 41505 fs[178]f[171]f1[171](ft[171]f3)[172]f2[170](ft[171]f3[171]1)
  373. 41510 [142]
  374. 42000 [132]15,en,em$,et,es
  375. 42010 [139]en[178]0[167][142]
  376. 42020 [141]10000
  377. 42030 [153]"valrror on str$isk":[153]
  378. 42040 [153]en:[153]em$:[153]et:[153]es:[153]
  379. 42050 [133]"ascortsetzen mid$/(NULL)  mid$cmdcmdcmd";x$:[139]x$[179][177]"mid$"[175]x$[179][177]"(NULL)"[167][153]"onon":[137]42050
  380. 42060 [139]x$[178]"(NULL)"[167]100
  381. 42070 [138]
  382. 43000 [132]15,en,em$,et,es
  383. 43010 [139]en[178]0[167][142]
  384. 43020 [141]10000:[153]"valrror on str$isk":[153]
  385. 43025 [153]en:[153]em$:[153]et:[153]es:[153]
  386. 43030 [133]"ascortsetzen mid$/(NULL)  mid$cmdcmdcmd";a$:[139]a$[179][177]"mid$"[175]a$[179][177]"(NULL)"[167][153]"onon":[137]43030
  387. 43035 [139]a$[178]"mid$"[167]19
  388. 43040 [137]100
  389. 50000 [133]"valrsteingabe j/n  ncmdcmdcmd";x$:[139]x$[179][177]"j"[175]x$[179][177]"n"[167][153]"onon":[137]50000
  390. 50005 [139]x$[178]"j"[167][129]i[178]1[164]664:i$(i)[178]"/":[130]i:[142]
  391. 50010 [159]1,8,14,"index faktur,s,r":[141]43000
  392. 50015 [129]i[178]1[164]664
  393. 50020 [132]1,i$(i)
  394. 50025 [139]( st [175] 2)[167]50020
  395. 50030 [130]i:[160]1:[142]
  396. 55000 [153]"load  ascatn(NULL)(NULL)(NULL)(NULL)atn                by mid$(NULL)val(NULL)right$-(NULL)(NULL)asc(NULL)"
  397. 55020 [129]kl[178]1[164]1000:[130]:[142]
  398.