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 >
Wrap
Commodore BASIC
|
2023-02-26
|
12KB
|
398 lines
2 poke788,52:poke792,193:poke793,254
3 poke53280,11:poke53281,11
5 printchr$(14)
6 gosub55000:gosub30000:clr:open15,8,15,"i0":jj$="[206]"
9 dima$(11),i$(664),b$(25,5),s(25),m(25):ti$="000000":fd=0:fx=11:ch=3:fp=1
10 print"[147][144] [198]akturierung 1990 by [202]. [215][201][204][204][197][205][211]-[214]erlag [146]"
11 ifk1=1thenk1=0:goto10005
15 gosub50000
19 gosub10000
20 poke198,0:print"[194]eenden =0[146]":print"[210]eklame =1[146]":print"[210]echnung =2[146]"
21 print"[205]ahnung =3[146]":print"[204]ieferschein=4[146]":print"[194]estellung =5[146]"
22 print"[209]uittung =6[146]":print"[203]alkulation =7[146]"
25 geta$:ifa$=""then25
26 a=val(a$)+1
27 onagoto100,200,300,400,500,600,700,800
28 goto25
100 gosub10000:close15:close3
101 print"[204]ege die [208]rogrammdiskette in die [198]loppy":print
102 print"[196]ruecke [211]pace, falls ok"
103 geta$:ifa$<>chr$(32)then103
104 open15,8,15,"i":open1,8,14,"@:index faktur,s,w":gosub43000
105 fori=1to664
106 ifi$(i)=""theni$(i)="/"
107 print#1,i$(i);chr$(13);:gosub43000:nexti
108 close1
110 print"[147][158]":print"[210]echenzeit ";ti$:end
200 gosub10000
205 print" [212]ext bis 255 [218]eichen [146]"
210 geta$:ifa$=""thenprint"[164][157]";:goto210
211 ifa$=chr$(20)then210
212 ifa$=chr$(13)then220
215 t$=t$+a$:printa$;
217 goto210
220 print"[147]":poke198,0
225 fori=1tolen(t$)
227 getb$:ifb$<>""then260
230 a$=mid$(t$,i,1)
235 print"[144]";a$
240 print"";chr$(20)
242 fork=1to100:nextk
245 nexti
250 goto225
260 goto19
300 open2,4:gosub5000:gosub1500
305 gosub10000
307 print"[210]echnungsnr.[146] ";val(r$)+1:input"[145]";r$:rp=0
320 gosub10000
321 input"[198]ortsetzen [202]/[206][146] [202][157][157][157]";gg$:ifgg$<>"[206]"andgg$<>"[202]"thenprint"[145][145]":goto321
322 rp=rp+1:ifgg$="[206]"orrp=26then341
325 gosub10000:nt=0:gosub8000
326 print"[193]nzahl = 0 fuer [212]extzeile [146]"
330 print"[193]nz.[146]":print"[193]rt.[146]":print"[197]-[208]r[146] ";nt
331 print"[210]ab%[146] [206]":print"[205][215][211]%[146]"
333 print"";
335 input"";b$(rp,1):input"";b$(rp,2):
336 ifb$(rp,1)="0"thenb$(rp,2)=left$(b$(rp,2),53):goto338
337 b$(rp,2)=left$(b$(rp,2),23)
338 ifb$(rp,1)="0"thenb$(rp,3)="":b$(rp,4)="":b$(rp,5)="":goto340
339 input"";b$(rp,3):input"";b$(rp,4):input"";b$(rp,5)
340 goto320
341 rp=rp-1:gosub10000:gosub8000
342 print"[208]orto/[214]erp.[146] ";nt:input"[145]";v
343 gosub10000
344 input"[193]nzahl[146] 1[157][157][157]";an:gosub10000
345 forx=1toan
346 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
347 print#2:print#2:print#2:print#2:print#2:print#2
350 print#2,chr$(15)chr$(17)tl$+a$(0)
351 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
353 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
354 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
355 print#2:print#2:print#2:print#2:print#2
357 print#2,chr$(17)" [201]hre [194]estellung vom [213]nser [218]eichen ";
358 print#2,chr$(17)"[196]atum"
359 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
360 print#2,chr$(17)chr$(16)"62"+a$(8)
365 print#2:print#2:print#2
367 print#2,chr$(14)chr$(17)"[210]echnung-[206][210].: ";r$
368 print#2:print#2
369 print#2,chr$(17)chr$(15)" [193]nzahl [193]rtikel/[196]ienstl. [197]-[208]reis [210]abatt ";
370 print#2,chr$(17)" [211]umme [205][215][211]t-[211]atz"
371 print#2,"=====================================================================";
372 print#2,"===========":d=35+9+rp
373 fori=1torp
374 ifb$(i,1)="0"then376
375 print#2,chr$(16)"05"+b$(i,1);
376 print#2,chr$(17)chr$(16)"13"+b$(i,2);:ifb$(i,1)="0"thenprint#2:goto385
377 z=val(b$(i,3)):p=35:gosub2000:print#2,chr$(16)p$+z$;
378 ifb$(i,4)="[206]"then380
379 z=val(b$(i,4)):p=45:gosub2000:print#2,chr$(16)p$+z$;
380 s(i)=val(b$(i,1))*val(b$(i,3)):s(i)=s(i)-s(i)*val(b$(i,4))/100
381 s(i)=int(s(i)*100+.5)/100
382 z=s(i):p=55:gosub2000:print#2,chr$(16)p$+z$;
383 z=val(b$(i,5)):p=69:gosub2000:print#2,chr$(16)p$+z$
384 m(i)=s(i)*val(b$(i,5))/100:m(i)=int(m(i)*100+.5)/100
385 nexti
386 print#2,chr$(16)"56=========="
387 fori=1torp:s=s+s(i):nexti:z=s:p=55:gosub2000:print#2,chr$(16)p$+z$
388 print#2,chr$(17)chr$(16)"30[208]orto und [214]erpackung";:z=v:p=55:gosub2000
389 print#2,chr$(16)p$+z$
390 print#2,chr$(17)chr$(16)"30[205]ehrwertsteuer";:fori=1torp:m=m+m(i):nexti
391 m=m+v*14/100:m=int(m*100+.5)/100:z=m:p=55:gosub2000:print#2,chr$(16)p$+z$
392 print#2,chr$(16)"56=========="
393 print#2,chr$(17)chr$(16)"30[199]esamtpreis";:z=s+v+m:p=55:gosub2000
394 print#2,chr$(16)p$+z$
395 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
396 forj=1to70-d:print#2:nextj:x1=s+v+m:gosub4000
397 nextx:a$(6)=str$(x1):a$(7)=r$:a$(9)="-":a$(10)="-":a$(11)="-"
398 close2:gosub6000:goto19
400 open2,4:gosub1500
405 gosub10000
407 input"[205]ahnungsnr[146]";rr$
408 gosub10000
410 print"[210]echnungsnr[146]":print"[194]etrag [146]"
412 print""
415 input"";r$:input"";b$
420 gosub10000
421 input"[193]nzahl[146] 1[157][157][157]";an
425 gosub10000
445 forx=1toan
446 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
447 print#2:print#2:print#2:print#2:print#2:print#2
450 print#2,chr$(15)chr$(17)tl$+a$(0)
451 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
453 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
454 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
455 print#2:print#2:print#2:print#2:print#2
457 print#2,chr$(17)" [201]hre [194]estellung vom [213]nser [218]eichen ";
458 print#2,chr$(17)"[196]atum"
459 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
460 print#2,chr$(17)chr$(16)"62"+a$(8)
465 print#2:print#2:print#2
467 print#2,chr$(14)chr$(17)"[205]ahnung-[206][210].: ";rr$
468 print#2:print#2
470 print#2,chr$(17)"[211]ie haben es sicher uebersehen, die"
471 print#2,chr$(17)"untenstehende [198]orderung zu begleichen."
472 print#2,chr$(17)"[215]ir bitten um baldige [213]eberweisung"
473 print#2,chr$(17)"des [194]etrages !":print#2:print#2
474 print#2,chr$(15)chr$(17)"[205]it freundlichen [199]ruessen"
475 print#2:print#2:print#2:print#2:print#2:print#2:print#2:print#2
478 print#2,chr$(17)chr$(16)"30[210]echnungsnummer : ";r$
480 print#2,chr$(17)chr$(16)"30[210]echnungsbetrag : ";b$
485 fori=1to20:print#2:nexti
490 next x
495 close2:goto19
500 open2,4:gosub1500
505 gosub10000
507 input"[204]ieferungsnr[146]";r$
508 gosub10000
510 input"# [204]ieferungspos[146] 1[157][157][157]";rp:ifrp<1orrp>25thenprint"[145][145]":goto510
520 fori=1torp
525 gosub10000
530 print"[193]nz.[146]":print"[193]rt.[146]":print"[206]-[208] [146]"
533 print"";
535 input"";b$(i,1)
536 input"";b$(i,2):b$(i,2)=left$(b$(i,2),23)
537 input"";b$(i,3)
540 nexti
541 gosub10000
542 input"[193]nzahl[146] 1[157][157][157]";an
543 gosub10000
544 forx=1toan
545 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
547 print#2:print#2:print#2:print#2:print#2:print#2
550 print#2,chr$(15)chr$(17)tl$+a$(0)
551 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
553 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
554 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
555 print#2:print#2:print#2:print#2:print#2
557 print#2,chr$(17)" [201]hre [194]estellung vom [213]nser [218]eichen ";
558 print#2,chr$(17)"[196]atum"
559 print#2:print#2,chr$(17)chr$(16)"09";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
560 print#2,chr$(17)chr$(16)"62"+a$(8)
565 print#2:print#2:print#2
567 print#2,chr$(14)chr$(17)"[204]ieferschein-[206][210].: ";r$
568 print#2:print#2
569 print#2,chr$(14)chr$(17)" [193]nzahl [193]rtikel [206]ettopreis"
571 print#2,"========================================":d=35+rp+3
574 ss=0:fori=1torp
575 print#2,chr$(15)chr$(16)"06"+b$(i,1);
576 print#2,chr$(17)chr$(16)"16"+b$(i,2);
577 z=val(b$(i,3)):ss=ss+z*val(b$(i,1)):p=60:gosub2000:print#2,chr$(16)p$+z$
585 nexti
586 print#2:print#2,chr$(16)"45summe";:z=ss:p=60:gosub2000:print#2,chr$(16)p$+z$
587 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
590 fori=1to68-d:print#2:nexti
595 nextx
596 close2:goto19
599 print:print"[195]ontinue druecke [211]pace[146][145]";
600 open2,4:gosub1500
605 gosub10000
607 input"[194]estellnr[146]";r$
608 gosub10000
610 input"# [194]estellpos[146] 1[157][157][157]";rp:ifrp<1orrp>25thenprint"[145][145]":goto510
620 fori=1torp
625 gosub10000
630 print"[193]nz.[146]":print"[193]rt.[146]":print"[206]-[208] [146]"
633 print"";
635 input"";b$(i,1)
636 input"";b$(i,2):b$(i,2)=left$(b$(i,2),23)
637 input"";b$(i,3)
640 nexti
641 gosub10000
642 input"[193]nzahl[146] 1[157][157][157]";an
643 gosub10000
644 forx=1toan
645 restore:print#2,chr$(15):print#2:close2:gosub1100:open2,4
647 print#2:print#2:print#2:print#2:print#2:print#2
650 print#2,chr$(15)chr$(17)tl$+a$(0)
651 print#2,chr$(17)tl$+a$(1)+" "+a$(2):print#2,chr$(17)tl$+a$(3)
653 print#2:print#2,chr$(17)tl$+a$(4)+" "+a$(5):print#2,tl$;
654 forj=1tolen(a$(4))+len(a$(5))+1:print#2,"=";:nextj:print#2
655 print#2:print#2:print#2:print#2:print#2
657 print#2,chr$(17)" [201]hr [193]ngebot vom [213]nser [218]eichen ";
658 print#2,chr$(17)"[196]atum"
659 print#2:print#2,chr$(17)chr$(16)"08";a$(6);:print#2,chr$(17)chr$(16)"40"+a$(7);
660 print#2,chr$(17)chr$(16)"62"+a$(8)
665 print#2:print#2:print#2
667 print#2,chr$(14)chr$(17)"[194]estell-[206][210].: ";r$
668 print#2:print#2
669 print#2,chr$(14)chr$(17)" [193]nzahl [193]rtikel [206]ettopreis"
671 print#2,"========================================":d=35+rp+3
674 ss=0:fori=1torp
675 print#2,chr$(15)chr$(16)"06"+b$(i,1);
676 print#2,chr$(17)chr$(16)"16"+b$(i,2);
677 z=val(b$(i,3)):ss=ss+z*val(b$(i,1)):p=60:gosub2000:print#2,chr$(16)p$+z$
685 nexti
686 print#2:print#2,chr$(16)"45summe";:z=ss:p=60:gosub2000:print#2,chr$(16)p$+z$
687 print#2:print#2:print#2,chr$(17)"[205]it freundlichen [199]ruessen"
690 fori=1to68-d:print#2:nexti
695 nextx
696 close2:goto19
700 gosub10000
705 print"[206]ame[146]":print"[211]tr.[146]":print"[207]rt [146]":print"[196][205] [146]"
710 print""
715 input"";n$
716 input"";s$
717 input"";o$
718 input"";d$
720 gosub10000
723 forx=1to2
725 restore:open2,4:print#2:print#2:close2:gosub1100:open2,4
730 print#2,chr$(15):print#2:print#2:print#2
735 print#2,chr$(15)chr$(17)"[215]ir bescheinigen hiermit den [194]etrag von"
736 print#2
737 z=val(d$):p=10:gosub2000:print#2,"*****";z$;" dm"
740 print#2
745 print#2,chr$(17)"von [200]errn/[198]rau/[198]irma ":print#2
750 print#2,chr$(17)n$;" , ";s$:print#2:print#2,chr$(17)o$:print#2
755 print#2,chr$(17)"bar oder per [211]check erhalten zu haben."
760 print#2:print#2:print#2
765 print#2," ........... .............."
770 print#2,chr$(17)" ([207]rt,[196]atum) ([213]nterschrift)
775 [129]i[178]1[164]7:[152]2:[130]i
780 [160]2
783 [130]x
785 [137]19
800 [141]10000:[133]"(NULL)etto-(NULL)ief.wait";nl:[153]:[139]nl[178]0[167]800
802 [133]"(NULL)abatt % wait (NULL)cmdcmdcmd";r$:[139]r$[178]"(NULL)"[167]ra[178]0:[137]804
803 ra[178][197](r$)
804 nl[178]nl[171](nl[173]100[172]ra):[153]
805 [133]"(NULL)konti % wait (NULL)cmdcmdcmd";s$:[139]s$[178]"(NULL)"[167]ek[178]nl:[137]808
806 so[178][197](s$)
808 ek[178]nl[171](nl[173]100[172]so):ek[178][181](ek[172]100[170].5)[173]100
810 [141]10000
812 [153]"valink.-(NULL)reiswait ";ek
813 [153]:[133]"peekezugskost.wait";bk:np[178]ek[170]bk:[153]
814 [153]"(NULL)ettopreis wait ";np:[153]
815 [133]"left$chr$-(NULL)osten %wait (NULL)cmdcmdcmd";h$:[139]h$[178]"(NULL)"[167]hg[178]np:[137]820
817 hg[178]np[170](np[173]100[172][197](h$))
820 [153]:se[178]hg[171]np:se[178][181](se[172]100[170].5)[173]100:[153]"(NULL)elbstkost.wait ";se
825 [153]:[133]"chr$ewinn % wait";g:[139]g[178]0[167][153]"ononon":[137]825
830 sk[178]hg:sk[178]sk[170](sk[173]100[172]g)
835 [153]:[133]"(NULL)(NULL)(NULL)t % wait";m:sk[178]sk[170](sk[173]100[172]m)
840 sk[178][181](sk[172]100[170].5)[173]100:[153]:[153]"(NULL)erkaufspr.wait ";sk:[137]845
599 [153]:[153]"lennntinue druecke (NULL)pacewaiton";
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
850 [153]:[153]"(NULL)panne % wait ";hs
855 [153]:[153]"lenontinue druecke (NULL)pacewait"
860 [161]a$:[139]a$[179][177][199](32)[167]860
865 [137]19
1100 [159]2,4:[152]2,[199](14)" "
1116 [152]2,[199](14)[199](17)" "
1117 [152]2,[199](14)[199](17)" "
1135 [152]2,[199](14)[199](17)" "
1136 [152]2,[199](14)[199](17)" "
1155 [152]2,[199](14)[199](17)" "
1156 [152]2,[199](14)" "
1200 [160]2:[142]
1500 [141]10000:tl$[178]" "
1504 [153]"atnnr.wait":[153]"(NULL)ornwait":[153]"(NULL)amewait":[153]"(NULL)tr.wait"
1510 [153]"(NULL)(NULL)(NULL) wait":[153]"(NULL)rt wait":[153]"peek.v.wait":[153]"(NULL).(NULL).wait"
1515 [153]"str$at.wait"
1520 [153]""
1525 [129]i[178]0[164]8:a$(i)[178]"-":[130]i
1530 [129]i[178]0[164]8:[133]"";a$(i):[130]i
1535 [133]"valingabe ok mid$/(NULL) mid$cmdcmdcmd";a$
1540 [139]a$[178]"(NULL)"[176]a$[178]"n"[167]1520
1545 [139]a$[178]"mid$"[167][142]
1550 [153]"ononon":[137]1535
2000 [139]z[177]99999.999[167]p[178]p:[137]2010
2001 [139]z[177]9999.999[167]p[178]p[170]1:[137]2010
2002 [139]z[177]999.999[167]p[178]p[170]2:[137]2010
2003 [139]z[177]99.999[167]p[178]p[170]3:[137]2010
2004 [139]z[177]9.999[167]p[178]p[170]4:[137]2010
2005 [139]z[177].999[167]p[178]p[170]5:[137]2010
2006 p[178]p[170]6
2010 [141]2500
2011 p$[178][202]([196](p),2,2)
2012 [139]z[179]1.00[167]z$[178]"0"[170][202](z$,2,3)
2013 [139]z[178]0[167]z$[178]"0.00"
2015 [142]
2500 d1$[178][196](z)
2510 d2$[178][201](d1$,3)
2520 d3$[178][200](d2$,1)
2530 [139]d3$[178]"."[167]2640
2540 d4$[178][201](d1$,2)
2550 d5$[178][200](d4$,1)
2560 [139]d5$[178]"."[167]2620
2570 z$[178]d1$[170]".00":[137]2650
2620 z$[178]d1$[170]"0":[137]2650
2640 z$[178]d1$
2650 [142]
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]
5000 [141]10000:[133]"(NULL)ahnung mid$/(NULL) (NULL)cmdcmdcmd";a$:[139]a$[179][177]"mid$"[175]a$[179][177]"(NULL)"[167]5000
5002 kk$[178]"mid$":[139]a$[178]"(NULL)"[167]kk$[178]"(NULL)":[142]
5003 [139]jj$[178]"mid$"[167][142]
5004 [160]15:[141]10000:[153]"(NULL)ege die str$atendiskette in die ascloppy"
5005 [153]"str$ruecke (NULL)pace, falls ok"
5010 [161]a$:[139]a$[179][177][199](32)[167]5010
5015 [159]15,8,15,"i"
5016 [159]3,8,3,"#":jj$[178]"mid$":[142]
5025 [159]15,8,15,"i":[159]3,8,3,"#":jj$[178]"mid$"
6000 [139]kk$[178]"(NULL)"[167][142]
6001 [129]f[178]1[164]664
6002 [139]i$(f)[178]"/"[167]6010
6004 [130]f
6006 [141]10000:[153]"str$iskette belegt":[129]k[178]1[164]5000:[130]k:[142]
6010 [141]40000
6011 i$(f)[178]a$(1)[170]" "[170]a$(2)
6012 [142]
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
8005 [139]a$[178]"(NULL)"[167][141]10000:[142]
8010 [153]:[133]"7 oder 15";v$:[139]v$[179][177]"7"[175]v$[179][177]"15"[167][153]"ononon":[137]8010
8015 [139]v$[178]"7"[167]vs[178]6.5420561
8020 [139]v$[178]"15"[167]vs[178]13.0434783
8025 [153]:[133]"peekrutto";bt
8030 nt[178]bt[171]bt[172]vs[173]100:nt[178][181](nt[172]100[170].5)[173]100
8035 [141]10000
8040 [142]
10000 k1[178]1:[137]10
10005 [142]
30000 [153]"load"
30005 [153]" ":[153]" ":[153]""
30010 [133]"(NULL)ser-(NULL)amewait < >cmdcmdcmdcmdcmdcmdcmd";un$
30015 [139]un$[179][177]"(NULL)(NULL)(NULL)(NULL)>"[167][153]"right$llegal (NULL)ser":[128]
30020 [133]"(NULL)assword wait < >cmdcmdcmdcmdcmdcmdcmdpoke";pw$
30025 [139]pw$[179][177]"****>"[167][162]
30030 [153]"loadstop":[142]
40000 [141]41000
40010 [152]15,"b-p:";ch;fp
40015 [129]fi[178]0[164]fx:[139]a$(fi)[178]""[167]a$(fi)[178]"*"
40020 [152]ch,a$(fi);[199](13);:[130]fi
40025 [152]15,"u2:";ch;fd;ft;fs
40030 [141]43000
40035 [142]
41000 [139]f[179]358[167]f1[178]0:f2[178]22:f3[178]1:[137]41500
41010 [139]f[177]357[175]f[179]472[167]f1[178]357:f2[178]20:f3[178]19:[137]41500
41020 [139]f[177]471[175]f[179]580[167]f1[178]471:f2[178]19:f3[178]25:[137]41500
41030 [139]f[177]579[167]f1[178]579:f2[178]18:f3[178]31
41500 ft[178][181](((f[171]f1)[171]1)[173](f2[171]1))[170]f3
41505 fs[178]f[171]f1[171](ft[171]f3)[172]f2[170](ft[171]f3[171]1)
41510 [142]
42000 [132]15,en,em$,et,es
42010 [139]en[178]0[167][142]
42020 [141]10000
42030 [153]"valrror on str$isk":[153]
42040 [153]en:[153]em$:[153]et:[153]es:[153]
42050 [133]"ascortsetzen mid$/(NULL) mid$cmdcmdcmd";x$:[139]x$[179][177]"mid$"[175]x$[179][177]"(NULL)"[167][153]"onon":[137]42050
42060 [139]x$[178]"(NULL)"[167]100
42070 [138]
43000 [132]15,en,em$,et,es
43010 [139]en[178]0[167][142]
43020 [141]10000:[153]"valrror on str$isk":[153]
43025 [153]en:[153]em$:[153]et:[153]es:[153]
43030 [133]"ascortsetzen mid$/(NULL) mid$cmdcmdcmd";a$:[139]a$[179][177]"mid$"[175]a$[179][177]"(NULL)"[167][153]"onon":[137]43030
43035 [139]a$[178]"mid$"[167]19
43040 [137]100
50000 [133]"valrsteingabe j/n ncmdcmdcmd";x$:[139]x$[179][177]"j"[175]x$[179][177]"n"[167][153]"onon":[137]50000
50005 [139]x$[178]"j"[167][129]i[178]1[164]664:i$(i)[178]"/":[130]i:[142]
50010 [159]1,8,14,"index faktur,s,r":[141]43000
50015 [129]i[178]1[164]664
50020 [132]1,i$(i)
50025 [139]( st [175] 2)[167]50020
50030 [130]i:[160]1:[142]
55000 [153]"load ascatn(NULL)(NULL)(NULL)(NULL)atn by mid$(NULL)val(NULL)right$-(NULL)(NULL)asc(NULL)"
55020 [129]kl[178]1[164]1000:[130]:[142]