1		program "VERKOOPBONS"
     2		
     3		dcl wijzschrap#,onoff#,voltest#
     4		dcl e9#,elloper#,loper#
     5		
     6		dcl subloop%,koper%,e1%,retkode%
     7		
     8		dcl igino,cgino=6,egino=6,agino=6,t1gino=6,t2gino=6,t3gino=6
     9		dcl dgino=6,mgino=6,jgino=6
    10		
    11		dcl aantal=6,goederen=6,totaal=6
    12		
    13		dcl btwtot=6(8)
    14		dcl zon1=5(5),zon2=5(5),zon3=5(5),zon4=5(5),zon5=5(5)
    15		
    16		dcl tabnum$=10(24),tabel$=8(24)
    17		dcl tekstl1$=30,tekstl2$=30
    18		dcl dagweek$=12,naamdag$=10,joor$=4,oldart$=4
    19		dcl srtbon$=1,mamart$=15,faklijn$=20
    20		
    21		dcl srtdown$=37
    22		field=m,srtdown
    23		dcl srtkode$=6,filler=1
    24		field=m,srtkode
    25		dcl srtkod2$=4,arttel%,filler=1,srtrec$=30
    26		field=m,srtrec
    27		dcl srtnum%,srtspec$=5,filler=18
    28		field=m
    29		
    30		dcl fact$=256
    31		field=m,fact
    32		dcl fkldat$=8,fklkode$=8,fkltest$=1,fklnum%
    33		field=m
    34		
    35		#INCLUDE  "CRINCLU"
    36			
    37		dcl uuntal%,hulp%
    38		dcl zwart%,rood%,groen%,blauw%,bruin%,magenta%,cyan%,lgrijs%
    39		dcl dgrijs%,lrood%,lgroen%,geel%,lblauw%,lmagenta%,lcyan%,wit%
    40		dcl kt%,kt2%,kl%,kn%,kgra%,kh%,kh2%,kh3%,kh4%,kh5%,ka%,ka2%,ka3%,ka4%,ka5%
    41		dcl e#,i%,i1%,i2%,i3%,i4%,i5%,a%,b%,z%
    42		dcl phil%,lijntel%,l6%,tel%,zoek%,keuz%,fout%
    43		
    44		dcl tabkode$=12(24)
    45		
    46		dcl datum=6(12)
    47		dcl mnd$=9(24),testd$=8(12),testd2$=6(12),testd3$=10(12),testd4$=8(12)
    48		
    49		dcl nja$=4
    50		dcl dat$=8
    51		
    52		dcl test1=6
    53		dcl test2=6
    54		dcl ttest1=6
    55		dcl ttest2=6
    56		dcl ttest3=6
    57		dcl ttest4=6
    58		dcl tndat=6    
    59		dcl tbondat=6  
    60		
    61		dcl berb$=32,bere$=32,ret$=20,bla$=15,num$=10,ng$=17,esc$=15,vali$=35,annu$=35
    62		dcl mtl$=1,mtr$=1,kruis$=1,vtb$=1,vte$=1,htb$=1,hto$=1,ltb$=1,rtb$=1,mtb$=1
    63		dcl lto$=1,rto$=1,mto$=1,volg$=12,voor$=10,begin$=8,einde$=8,svnaam$=8
    64		dcl sleutel$=8,inita$=3,firm$=12,passwoord$=4,toassi$=6
    65		dcl fvoor$=4,fvolg$=4,j$=1,ii$=2
    66		
    67		dcl jaar$=4,maand$=2,dag$=2
    68		
    69		dcl inldat1$=8,inldat2$=8
    70		
    71		dcl ndat$=8
    72		field=m,ndat
    73		dcl ndag$=2,npun$=1,nmaa$=2,npun1$=1,njaa$=2
    74		
    75		dcl artdown$=256(3)
    76		field=m,artdown(1)
    77		dcl artkey$=4,artmk#,artrec$=250(3)
    78		field=m,artrec(1)
    79		dcl artalfa$=10,artoms$=30,artoms2$=30,artbtw%,artreknr$=6,artbedr=5(14)
    80		dcl veraant,verbed
    81		field=m
    82		
    83		dcl brtdown$=15
    84		field=m,brtdown
    85		dcl brtkode$=14
    86		field=m,brtkode
    87		dcl brtoms$=10,brtkey$=4
    88		field=m
    89		
    90		dcl specdown$=51
    91		field=m,specdown
    92		dcl artkode%,specins#,specoms$=48
    93		field=m
    94		
    95		dcl memdown$=256(2)
    96		field=m,memdown(1)
    97		dcl memkode$=11,memmk#,memrec$=244(2)
    98		field=m,memkode
    99		dcl memklant$=8,memfaknu%,memins#
   100		field=m,memrec(1)
   101		dcl memdeel$=30(15),memhelp$=30,memdatum$=8,memkode2$=11,filler=4
   102		field=m,memhelp
   103		dcl memart$=4,memaant=4,memverk=4,memprijs=4,memkort=4,filler=10
   104		field=m,memart
   105		dcl memnum%,memspec$=5,filler=23
   106		field=m
   107		
   108		dcl bondown$=111
   109		field=m,bondown
   110		dcl bonkode$=10
   111		field=m,bonkode
   112		dcl bonklant$=8,bonnumer%,bonmk#,bonrec$=100
   113		field=m,bonrec
   114		dcl bonnum=6,bonfak%
   115		dcl bongoed=6,bonbtw=6,bonbeta=6,bontot=6
   116		dcl bondet$=24,bondruk$=1,bonverw$=1,bondatum$=8
   117		field=m,bondatum
   118		dcl lb$=2,punt1$=1,mb$=2,punt2$=1,rb$=2
   119		field=m
   120		
   121		dcl klardown$=123
   122		field=m,klardown
   123		dcl klarkode$=12
   124		field=m,klarkode
   125		dcl kla$=8,art$=4,klarmk#,klarrec$=110
   126		field=m,klarrec
   127		dcl klar=6,klarkod2$=12
   128		field=m
   129		
   130		dcl klarhis$=213
   131		field=m,klarhis
   132		dcl klhkode$=12,klhmk#,klahrec$=200
   133		field=m,klhkode
   134		dcl klhklant$=8,klhart$=4
   135		field=m,klahrec
   136		dcl klhbed=6(12),klhaant=5(12),klhdat$=8,klhkode2$=12,filler=48
   137		field=m
   138		
   139		dcl postdown$=37
   140		field=m,postdown
   141		dcl postkode$=6,postmk#,postrec$=30
   142		field=m,postkode
   143		dcl postnum$=4,posttel%
   144		field=m
   145		
   146		dcl gemdown$=37
   147		field=m,gemdown
   148		dcl gemkode$=32,gemmk#,gemrec$=4
   149		field=m,gemkode
   150		dcl gem$=30,gemtel%
   151		field=m
   152		
   153		dcl arhdown$=115
   154		field=m,arhdown
   155		dcl arhkode$=4,arhmk#,arhrec$=110
   156		field=m,arhkode
   157		dcl arhart$=4
   158		field=m,arhrec
   159		dcl arhtot(12),arhmaand#,filler=13
   160		field=m
   161		
   162		dcl sortdown$=29
   163		field=m,sortdown
   164		dcl sortkode$=28
   165		field=m,sortkode
   166		dcl sortnaam$=20,sortklant$=8
   167		field=m
   168		
   169		dcl tekdown$=80
   170		field=m,tekdown
   171		dcl tekkode$=9
   172		field=m,tekkode
   173		dcl tektyp$=8,tektel#,tekmk#,tekrec$=70
   174		field=m
   175		
   176		dcl findown$=189
   177		field=m,findown
   178		dcl finkode$=8
   179		field=m,finkode
   180		dcl finrek$=6,fintel%,finmk#,finrec$=180
   181		field=m,finrec
   182		dcl finuitr$=5,findat$=8,finfaknr$=6,finklva$=1,finkllv$=8
   183		dcl finsaldo=6,finbank=6,finkla=6,fintrek$=6(10),fintbed=5(10)
   184		dcl finoms$=14,finkode2$=6,filler=2
   185		field=m
   186		
   187		dcl verkdown$=209
   188		field=m,verkdown
   189		dcl verkkey$=8
   190		field=m,verkkey
   191		dcl verkfok$=6,verktel%,verkmk#,verkrec$=200
   192		field=m,verkrec
   193		dcl verkdat$=8,verkkla$=8,verkkod$=1(5),verkbed=5(5),verkfak$=6,verkcnf$=1
   194		dcl verkdeb=6,verkoms$=20,verkbtw=6,verkteg$=6(10),verktbe=5(10)
   195		dcl verkboek$=1,filler=4
   196		field=m
   197		
   198		dcl aankdown$=209
   199		field=m,aankdown
   200		dcl aankkey$=8
   201		field=m,aankkey
   202		dcl aankfok$=6,aanktel%,aankmk#,aankrec$=200
   203		field=m,aankrec
   204		dcl aankdat$=8,aanklev$=8,aankkod$=1(5),aankbed=5(5),aankfak$=6,aankcnf$=1
   205		dcl aankcre=6,aankoms$=20,aankbtw=6,aankteg$=6(10),aanktbe=5(10)
   206		dcl aankboek$=1,filler=4
   207		field=m
   208		
   209		dcl hisdown$=77
   210		field=m,hisdown
   211		dcl hiskode$=16,hismk#,kllvhis$=60
   212		field=m,hiskode
   213		dcl hisnaam$=8,histdat$=6,histel%
   214		field=m,kllvhis
   215		dcl hisdat$=8,hiskod1$=1,hiskod2$=1,hisbed1=6,hisbed2=6,hiskllv$=8,filler=2
   216		dcl hisfakt$=6,hisbetw$=6,hisbtw=6,hisoms$=10
   217		field=m
   218		
   219		dcl fakdown$=96
   220		field=m,fakdown
   221		dcl fakkode$=15,fakmk#,fakrec$=80
   222		field=m,fakkode
   223		dcl fakkllv$=1,fakname$=8,fakfak$=6
   224		field=m,fakrec
   225		dcl fakklv$=1,faknaam$=8,fakdat$=8,fakverv$=8,fakoms$=20,faktebe=6,fakont=6
   226		dcl faknum$=6,faklink$=5,faktek$=1,fakvm=8,fakteba$=1,faktest$=1,filler=1
   227		field=m
   228		
   229		dcl kldown$=256
   230		field=m,kldown
   231		dcl klkode$=8,klmk#,klrec$=247
   232		field=m,klrec
   233		dcl klnaam$=30,kltwnaam$=30,klstra$=24,klland$=1,klgem$=24
   234		dcl kllbtw$=4,klbtwnr$=11,klbank$=14,kltelef$=20,klfax$=20,klgsm$=20
   235		dcl klomz2j=6,klomzvj=6,kljomz=6
   236		dcl kltego=6,klover=6,kltbtw=6,klcred=6
   237		dcl klprijs$=1,klaant%,klfakty$=1,klniet$=1,klkode2$=8
   238		field=m
   239		
   240		dcl levdown$=256
   241		field=m,levdown
   242		dcl levkode$=8,levmk#,levrec$=247
   243		field=m,levrec
   244		dcl levnaam$=24,levstraa$=24,levgem$=24,levland$=1,levbtw$=11,levtele$=15
   245		dcl levbank$=14,levdial$=5,levvast$=6,levlbtw$=4,levjomz=6,levvj=6
   246		dcl levtbtw=6,levmede=6,levtebe=6,levvoor=6,levklnum$=8,abet$=1,vd$=2
   247		dcl levfax$=15,levkode2$=8,levkod2$=5,levbest=5,levokode$=8,levslui2$=8,levdag$=10,levkort=6,levniet$=1,levgoed$=1
   248		field=m
   249		
   250		dcl rekdown$=87
   251		field=m,rekdown
   252		dcl rekkode$=6,rekmk#,rekrec$=80
   253		field=m,rekrec
   254		dcl reknum$=6,rekoms$=24,rekmeca%,rekdeb=6(3),rekcred=6(3),rekklas$=3
   255		dcl rekhok$=1,rekvast$=1,rekmeko$=5,rekbtw$=1,rekdiver$=1,filler=10
   256		field=m
   257		
   258		dcl rekarec$=50
   259		field=m,rekarec
   260		dcl rekaan1(3),rekaan2(3),filler=10
   261		field=m
   262		
   263		dcl centdown$=223
   264		field=m,centdown
   265		dcl centkode$=6,centmk#,centrec$=216
   266		field=m,centrec
   267		dcl centoms$=24,centdeb(12),centcred(12)
   268		field=m
   269		
   270		dcl madown$=95
   271		field=m,madown
   272		dcl makod9$=14,mamk#,mahisre$=80
   273		field=m,makod9
   274		dcl mareknr$=6,madat$=6,matel%
   275		field=m,mahisre
   276		dcl madatum$=8,madbcr$=1,mabedrd=5,mabedrc=5,makode$=1,makllev$=1,maklv$=8
   277		dcl matgfak$=6,maomsch$=15,makode2$=14,filler=16
   278		field=m
   279		
   280		dcl pr$=255
   281		field=m,pr
   282		dcl best$=7(10),namen$=7(10),firmas$=10(10),filler=15
   283		field=m
   284		
   285		dcl param1$=255
   286		field=m,param1
   287		dcl naam$=24,adres$=24,gemeen$=24,btwnr$=11,handel$=20,banknr$=14(2),telf1$=14
   288		dcl telf2$=14,fax$=14,rekbnbt$=6,rekbkos$=6,vfinrek$=6(10),filler=10
   289		field=m
   290		
   291		dcl param2$=255
   292		field=m,param2
   293		dcl bestand$=10(25),pwtest$=4,filler=1
   294		field=m
   295		
   296		dcl param3$=255
   297		field=m,param3
   298		dcl teller%(50),printtel%(25),kodes$=1(75),firmdat$=8,betrek$=6,fadat$=8,filler=8
   299		field=m
   300		
   301		dcl param4$=255
   302		field=m,param4
   303		dcl verkod#(5),vervak$=4(5),vertek$=4(5),vastrek$=6(38)
   304		field=m
   305		
   306		dcl param5$=255
   307		field=m,param5
   308		dcl dianr#(31),oproep$=6(30),filler=44
   309		field=m
   310		
   311		dcl param6$=255
   312		field=m,param6
   313		dcl oms$=12(20),filler=15
   314		
   315		dcl param7$=255
   316		field=m,param7
   317		dcl omt$=12(20),filler=15
   318		field=m
   319		
   320		dcl param8$=255
   321		field=m,param8
   322		dcl paraan$=25(10),filler=5
   323		
   324		dcl param9$=255
   325		field=m,param9
   326		dcl parver$=25(10),filler=5
   327		field=m
   328		
   329		dcl param10$=255
   330		field=m,param10
   331		dcl dianr2#(31),oproep2$=6(30),filler=44
   332		field=m
   333		
   334		dcl param11$=255
   335		field=m,param11
   336		dcl oms2$=12(20),filler=15
   337		field=m
   338		
   339		dcl param12$=255
   340		field=m,param12
   341		dcl omt2$=12(20),filler=15
   342		field=m
   343		
   344		dcl param15$=255
   345		field=m,param15
   346		dcl teken$=1(50),kk%(50),filler=105
   347		field=m
   348		
   349		dcl param16$=255
   350		field=m,param16
   351		dcl kleur%(15),filler=225
   352		field=m
   353		
   354		dcl param18$=255
   355		field=m,param18
   356		dcl email$=30,web$=40,filler=185
   357		field=m
   358		
   359		dcl param24$=255
   360		field=m,param24
   361		dcl verper=5(5),filler=230
   362		field=m
   363		
   364		field=1
   365		dcl par$=255(32)
   366		
   367		
   368		field=3
   369		dcl tek$=60(2)
   370		
   371		field=23
   372		dcl factuur$=256
   373		
   374		#INCLUDE  "CRINCLU2"
   375		segment 0
   376		
   377	(0000)	mask 1024+512+256+43
   378	(0005)	
   379	(0005)	goto &2
   380	(0008)	
   381	(0008)	&1     ;naar hoofdmenu
   382	(0008)	assign=1,"CRDIAL"
   383	(0012)	chain=1:next,e
   384	(001B)	print=1:clear
   385	(001E)	stop
   386	(0020)	
   387	(0020)	&2
   388	(0020)	assign=1,"CRBKEYS",wr
   389	(002A)	open=1:&create,e
   390	(0033)	goto &params
   391	(0036)	
   392	(0036)	&create
   393	(0036)	cfile=1,d=255:&1,e
   394	(0043)	for i=1 to 10
   395	(004B)	best(i)="CRKEYBE"
   396	(0054)	namen(i)="CRKEYBE"
   397	(005D)	ii=conv(i)
   398	(0062)	firmas(i)="FIRMA"+conv(ii)
   399	(007A)	next i
   400	(008A)	par(32)=pr
   401	(0093)	
   402	(0093)	assign=1,"CRKEYBE",wr
   403	(009D)	open=1:&crkeybe,e
   404	(00A6)	goto &params
   405	(00A9)	
   406	(00A9)	&crkeybe 
   407	(00A9)	cfile=1,d=255:&1,e
   408	(00B6)	best(process+1)="CRKEYBE"
   409	(00C4)	
   410	(00C4)	param1=" "
   411	(00C9)	for i=1 to 50
   412	(00D1)	teller(i)=0
   413	(00DA)	next i
   414	(00EA)	
   415	(00EA)	rekbnbt=" "  
   416	(00EF)	rekbkos=" "
   417	(00F4)	
   418	(00F4)	for i=1 to 25
   419	(00FC)	bestand(i)=" "
   420	(0105)	next i
   421	(0115)	
   422	(0115)	for i=1 to 50
   423	(011D)	kodes(i)=" "
   424	(0126)	next i
   425	(0136)	
   426	(0136)	par(1)=param1
   427	(013F)	par(2)=param2
   428	(0148)	
   429	(0148)	for i=1 to 34
   430	(0150)	vastrek(i)=" "
   431	(0159)	next i
   432	(0169)	
   433	(0169)	vfinrek(1)=" "
   434	(0172)	vfinrek(2)=" "
   435	(017B)	vfinrek(3)=" "
   436	(0184)	
   437	(0184)	for i=1 to 5
   438	(018C)	verkod(i)=0
   439	(0195)	verper(i)=0
   440	(019E)	vervak(i)=" "
   441	(01A7)	vertek(i)=" "
   442	(01B0)	next i
   443	(01C0)	
   444	(01C0)	for i=1 to 15
   445	(01C8)	kleur(i)=15
   446	(01D1)	next i
   447	(01E1)	
   448	(01E1)	
   449	(01E1)	i=1
   450	(01E6)	for i1=10 to 40
   451	(01EE)	dianr(i)=i1
   452	(01F7)	dianr2(i)=i1
   453	(0200)	i=i+1
   454	(020A)	next i1
   455	(021A)	
   456	(021A)	for i=1 to 30
   457	(0222)	oproep(i)=" "
   458	(022B)	oproep2(i)=" "
   459	(0234)	next i
   460	(0244)	
   461	(0244)	for i=1 to 20
   462	(024C)	oms(i)=" "
   463	(0255)	oms2(i)=" "
   464	(025E)	omt(i)=" "
   465	(0267)	omt2(i)=" "
   466	(0270)	next i
   467	(0280)	
   468	(0280)	oproep(1)="CRFIRM"
   469	(0289)	oproep(2)="CRBPAR"
   470	(0292)	oms(1)="FIRMA'S"
   471	(029B)	oms(2)="PARAMETERS"
   472	(02A4)	
   473	(02A4)	for e=1 to 50
   474	(02AC)	teken(e)=" "
   475	(02B5)	kk(e)=0
   476	(02BE)	next e
   477	(02CE)	
   478	(02CE)	kk(01)=179
   479	(02D7)	kk(02)=179
   480	(02E0)	kk(03)=196
   481	(02E9)	kk(04)=196
   482	(02F2)	kk(05)=197
   483	(02FB)	kk(06)=218
   484	(0304)	kk(07)=191
   485	(030D)	kk(08)=194
   486	(0316)	kk(09)=192
   487	(031F)	kk(10)=217
   488	(0328)	kk(11)=193
   489	(0331)	kk(12)=195
   490	(033A)	kk(13)=180
   491	(0343)	
   492	(0343)	teken(01)=chr$(kk(01))
   493	(0355)	teken(02)=chr$(kk(02))
   494	(0367)	teken(03)=chr$(kk(03))
   495	(0379)	teken(04)=chr$(kk(04))
   496	(038B)	teken(05)=chr$(kk(05))
   497	(039D)	teken(06)=chr$(kk(06))
   498	(03AF)	teken(07)=chr$(kk(07))
   499	(03C1)	teken(08)=chr$(kk(08))
   500	(03D3)	teken(09)=chr$(kk(09))
   501	(03E5)	teken(10)=chr$(kk(10))
   502	(03F7)	teken(11)=chr$(kk(11))
   503	(0409)	teken(12)=chr$(kk(12))
   504	(041B)	teken(13)=chr$(kk(13))
   505	(042D)	
   506	(042D)	par(3)=param3
   507	(0436)	par(4)=param4
   508	(043F)	par(5)=param5
   509	(0448)	par(6)=param6
   510	(0451)	par(7)=param7
   511	(045A)	par(8)=param8
   512	(0463)	par(10)=param10
   513	(046C)	par(11)=param11
   514	(0475)	par(12)=param12
   515	(047E)	par(15)=param15 
   516	(0487)	par(16)=param16 
   517	(0490)	par(18)=param18 
   518	(0499)	par(24)=param24 
   519	(04A2)	par(32)=pr
   520	(04AB)	
   521	(04AB)	&params
   522	(04AB)	pr=par(32)
   523	(04B7)	assign=1,best(process+1),wr
   524	(04CD)	open=1:&crkeybe,e
   525	(04D6)	
   526	(04D6)	param1=par(1)
   527	(04E2)	param2=par(2)
   528	(04EE)	param3=par(3)
   529	(04FA)	param4=par(4)
   530	(0506)	param7=par(7)
   531	(0512)	param15=par(15)
   532	(051E)	param16=par(16)
   533	(052A)	param18=par(18)
   534	(0536)	param24=par(24)
   535	(0542)	
   536	(0542)	zwart=0
   537	(0547)	rood=1
   538	(054C)	groen=2
   539	(0551)	bruin=3
   540	(0556)	blauw=4
   541	(055B)	magenta=5
   542	(0560)	cyan=6
   543	(0565)	lgrijs=7
   544	(056A)	dgrijs=8
   545	(056F)	lrood=9
   546	(0574)	lgroen=10
   547	(0579)	geel=11
   548	(057E)	lblauw=12
   549	(0583)	lmagenta=13
   550	(0588)	lcyan=14
   551	(058D)	wit=15
   552	(0592)	
   553	(0592)	kt=kleur(01)
   554	(059E)	kt2=kleur(02)
   555	(05AA)	kl=kleur(03)
   556	(05B6)	kn=kleur(04)
   557	(05C2)	kgra=kleur(05)
   558	(05CE)	kh=kleur(06)
   559	(05DA)	kh2=kleur(07)
   560	(05E6)	kh3=kleur(08)
   561	(05F2)	kh4=kleur(09)
   562	(05FE)	kh5=kleur(10)
   563	(060A)	ka=kleur(11)
   564	(0616)	ka2=kleur(12)
   565	(0622)	ka3=kleur(13)
   566	(062E)	ka4=kleur(14)
   567	(063A)	ka5=kleur(15)
   568	(0646)	
   569	(0646)	jaar=conv(conv(date(1)))
   570	(0654)	maand=conv(conv(date(2)))
   571	(0662)	dag=conv(conv(date(3)))
   572	(0670)	ndag=dag
   573	(0675)	njaa=right(jaar,2)
   574	(067F)	nja=right(jaar,4)
   575	(0689)	nmaa=maand
   576	(068E)	npun="."
   577	(0693)	npun1="."
   578	(0698)	punt1="."
   579	(069D)	punt2="."
   580	(06A2)	fvoor=" F11"
   581	(06A7)	fvolg=" F12"
   582	(06AC)	volg="=volgende : "
   583	(06B1)	voor="=vorige : "
   584	(06B6)	berb="Begin van het bestand bereikt :"
   585	(06BB)	bere="Einde van het bestand bereikt :"
   586	(06C0)	esc=" (esc=einde) : "
   587	(06C5)	ret=" (return=vervolg) : "
   588	(06CA)	bla="Scherm volzet : "
   589	(06CF)	num=" nummer : "
   590	(06D4)	ng=" niet gevonden : "
   591	(06D9)	vali="Validatie van deze gegevens  Y-N : "
   592	(06DE)	annu="Annulatie van deze gegevens  Y-N : "
   593	(06E3)	
   594	(06E3)	vtb=teken(01)
   595	(06EF)	vte=teken(02)
   596	(06FB)	htb=teken(03)
   597	(0707)	hto=teken(04)
   598	(0713)	kruis=teken(05)
   599	(071F)	ltb=teken(06)
   600	(072B)	rtb=teken(07)
   601	(0737)	mtb=teken(08)
   602	(0743)	lto=teken(09)
   603	(074F)	rto=teken(10)
   604	(075B)	mto=teken(11)
   605	(0767)	mtl=teken(12)
   606	(0773)	mtr=teken(13)    
   607	(077F)	
   608	(077F)	&datum
   609	(077F)	for i=1 to 12
   610	(0787)	datum(i)=31
   611	(0790)	next i
   612	(07A0)	
   613	(07A0)	datum(04)=30
   614	(07A9)	datum(06)=30
   615	(07B2)	datum(09)=30
   616	(07BB)	datum(11)=30
   617	(07C4)	datum(02)=28
   618	(07CD)	
   619	(07CD)	if jaar="2008"
   620	(07D7)	datum(02)=29
   621	(07E0)	endif
   622	(07E0)	
   623	(07E0)	if jaar="2012"
   624	(07EA)	datum(02)=29
   625	(07F3)	endif
   626	(07F3)	
   627	(07F3)	if jaar="2016"
   628	(07FD)	datum(02)=29
   629	(0806)	endif
   630	(0806)	
   631	(0806)	&begin
   632	(0806)	print=1:atb(6)
   633	(080B)	
   634	(080B)	ldgo.seg assigns
   635	(080F)	ldgo.seg naamd
   636	(0813)	goto &100
   637	(0816)	
   638	(0816)	&klovz           ;overzicht klanten
   639	(0816)	ldgo.seg klovz
   640	(081A)	goto &100
   641	(081D)	
   642	(081D)	&bonovz
   643	(081D)	ldgo.seg bonovz
   644	(0821)	if phil=1
   645	(082B)	goto &210
   646	(082E)	endif
   647	(082E)	phil=0
   648	(0833)	goto &100
   649	(0836)	
   650	(0836)	&facverw
   651	(0836)	assign=1,"CRVERW"
   652	(0840)	chain=1:&100,e
   653	(0849)	stop
   654	(084B)	
   655	(084B)	&100
   656	(084B)	print=1:clear,paint(kh,ka),naam,atb(0),"  INVOEREN BONSGEGEVENS ",tab(70),ndat
   657	(087A)	print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
   658	(0899)	print=1:tab(01,03),vtb,tab(79),vte
   659	(08AA)	print=1:tab(01,04),lto,gener(77,hto),rto,atb(0)
   660	(08C6)	print=1:tab(02,03),paint(kh,ka)," F1=Overzicht bons  F2=Overz klanten  F3=Verwerken facturen  F4=Tekstlijnen" ,atb(0)
   661	(0924)	&110
   662	(0924)	print=1:tab(01,06),atb(22)
   663	(092F)	ask=1,i=&1,u=&1,/80=&bonovz,/81=&klovz,/82=&facverw,/83=&tekstl,/8a=&117,/8b=&119:tab(01,06),"Geef klantenkode",esc,klkode,tab(32)=klkode
   664	(0978)	if klkode=" " : goto &110
   665	(0982)	klkode=large(klkode)
   666	(0989)	search=11,klkode:&115,e,klrec
   667	(099D)	goto &130
   668	(09A0)	&115
   669	(09A0)	print=1:tab(01,24),atb(21)
   670	(09AB)	ask=1,i=&110,u=&110,/8a=&117,/8b=&119:tab(01,24),paint(kh,ka),"Klant",ng,atb(0),fvoor,voor,fvolg,volg," "=j
   671	(09E7)	goto &110
   672	(09EA)	&117
   673	(09EA)	up=11:&118,e,kldown
   674	(09FC)	goto &130
   675	(09FF)	&118
   676	(09FF)	print=1:tab(01,24),atb(21)
   677	(0A0A)	ask=1,i=&110,u=&110,/8b=&119:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
   678	(0A31)	goto &110
   679	(0A34)	&119
   680	(0A34)	down=11:&118,e,kldown
   681	(0A46)	goto &130
   682	(0A49)	&130
   683	(0A49)	print=1:tab(01,06),atb(22)
   684	(0A54)	print=1:tab(01,06),"Klantenkode : ",klkode
   685	(0A6F)	print=1:tab(01,08),"Naam klant",tab(20),": ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0),"  ",kltwnaam
   686	(0AAA)	print=1:tab(01,09),"Adres     ",tab(20),": ",klstra
   687	(0AC8)	print=1:tab(01,10),"Gemeente  ",tab(20),": ",klgem
   688	(0AE6)	print=1:tab(01,11),"Telefoon  ",tab(20),": ",kltelef
   689	(0B04)	tel=0
   690	(0B09)	fakkode=" "
   691	(0B0E)	fakkllv="K"
   692	(0B13)	fakname=klkode
   693	(0B18)	search=10,fakkode:&131,e,fakrec
   694	(0B2C)	&131
   695	(0B2C)	down=10:&132,e,fakdown
   696	(0B3E)	if fakname=klkode 
   697	(0B48)	tel=tel+1
   698	(0B52)	goto &132 
   699	(0B55)	endif
   700	(0B55)	&132
   701	(0B55)	print=1:tab(01,12),paint(kh,ka),"SALDO : ",atb(0),tab(20),": ",paint(kh,ka),(-7.n2),kltego-klover,(e),atb(0),"  Facturen : ",(-3),tel
   702	(0BB1)	if klniet="Y"
   703	(0BBB)	ask=1,i=&100,u=&100,/80=&140:tab(01,24),paint(kt,ka),"Deze klantenkode niet meer gebruiken",atb(0)=j
   704	(0BFF)	goto &100
   705	(0C02)	endif
   706	(0C02)	&140
   707	(0C02)	bonklant=shl(klkode)
   708	(0C09)	bonnumer=teller(39)
   709	(0C15)	search=14,bonkode:&145,e,bonrec
   710	(0C29)	teller(39)=teller(39)+1
   711	(0C3B)	par(3)=param3
   712	(0C44)	goto &140 
   713	(0C47)	
   714	(0C47)	&145
   715	(0C47)	bonrec=" "
   716	(0C4C)	bondatum=ndat
   717	(0C51)	bondruk="N"        ;bon nog niet uitgedrukt
   718	(0C56)	bonverw="N"        ;bon nog niet verwerkt
   719	(0C5B)	bongoed=0
   720	(0C60)	bonbtw=0
   721	(0C65)	bontot=0
   722	(0C6A)	bonbeta=0
   723	(0C6F)	bonfak=0
   724	(0C74)	bonnum=conv(bonnumer)
   725	(0C79)	gosub &initmember
   726	(0C7C)	&155
   727	(0C7C)	if testd(1)=" "
   728	(0C8A)	testd(1)=ndat
   729	(0C93)	endif
   730	(0C93)	if testd(1)<>ndat
   731	(0CA1)	bondatum=testd(1)
   732	(0CAD)	endif
   733	(0CAD)	
   734	(0CAD)	print=1:tab(01,15),"Datum     ",tab(20),": ",bondatum
   735	(0CCB)	ask=1,i=&100,u=&100,/80=&bonovz,"lL"=&8000,/8a=&117,/8b=&119:tab(22,15),(z2)=lb
   736	(0CF5)	if lb<"01" : goto  &155
   737	(0CFF)	if lb>"31" : goto  &155
   738	(0D09)	&165
   739	(0D09)	print=1:tab(01,24),atb(21)
   740	(0D14)	ask=1,i=&100,u=&155:tab(25,15),(z2)=mb
   741	(0D2A)	if mb<"01" : goto  &165
   742	(0D34)	if mb>"12" : goto  &165
   743	(0D3E)	if conv(lb)>datum(conv(mb)) : goto  &155
   744	(0D5A)	&167
   745	(0D5A)	ask=1,i=&100,u=&165:tab(28,15),(z2)=rb
   746	(0D70)	&168
   747	(0D70)	print=1:tab(01,15),"Datum     ",tab(20),": ",bondatum
   748	(0D8E)	testd(1)=bondatum
   749	(0D97)	dat=ndat 
   750	(0D9C)	ldgo.seg datu
   751	(0DA0)	tndat=test1
   752	(0DA5)	dat=bondatum
   753	(0DAA)	ldgo.seg datu
   754	(0DAE)	tbondat=test1
   755	(0DB3)	if tndat>tbondat 
   756	(0DBD)	ask=1:bell,tab(01,24),paint(kh,ka),"Datum O.K. ? : ",atb(0)=j
   757	(0DE2)	endif
   758	(0DE2)	ldgo.seg naamd2
   759	(0DE6)	print=1:tab(35,15),paint(kh,ka)," ",left(dagweek,len$(dagweek))," ",atb(0)
   760	(0E0D)	print=1:tab(01,24),atb(21)
   761	(0E18)	&180
   762	(0E18)	insert=14,bonkode:&181,e,bonrec
   763	(0E2A)	teller(39)=teller(39)+1
   764	(0E3C)	par(3)=param3
   765	(0E45)	goto &210
   766	(0E48)	&181
   767	(0E48)	modif=14,bonkode:&182,e,bonrec
   768	(0E5A)	goto &200
   769	(0E5D)	&182
   770	(0E5D)	print=1:tab(01,24),"Fout insert bonkode : ",(n3),e
   771	(0E86)	stop
   772	(0E88)	
   773	(0E88)	&200
   774	(0E88)	gosub &bonhoofding
   775	(0E8B)	if (bonverw="Y") and (bonfak<>0)
   776	(0E9F)	print=1:tab(01,24),atb(21)
   777	(0EAA)	ask=1,i=&100,u=&100,/80=&210:tab(01,24),paint(kt,ka),"F1=oproepen bon",atb(0)=j
   778	(0ED9)	goto &facwijz
   779	(0EDC)	endif
   780	(0EDC)	print=1:paint(kl,0),tab(01,07),gener(79,hto),atb(0)
   781	(0EF8)	print=1:tab(02,08),paint(kt,ka), "Bijvoegen op deze bon........ B",atb(0)
   782	(0F2A)	print=1:tab(02,09),paint(kt,ka2),"Schrappen van deze bon....... D",atb(0)
   783	(0F5C)	print=1:tab(02,10),paint(kt,ka3),"Wijzigen hoofdgegevens....... W",atb(0)
   784	(0F8E)	print=1:tab(02,11),paint(kt,ka), "Factuurlijn.................. H",atb(0)
   785	(0FC0)	print=1:tab(02,12),paint(kt,ka3),"Factureren................... F",atb(0)
   786	(0FF2)	print=1:tab(02,13),paint(kt,ka4),"Tekst op factuur............. T",atb(0)
   787	(1024)	print=1:paint(kl,0),tab(01,14),gener(79,hto),atb(0)
   788	(1040)	&206
   789	(1040)	j=" "
   790	(1045)	ask=1,i=&100,u=&100,d=&210:tab(02,19),"Maak uw keuze (esc=klantenkode) : "=j
   791	(107C)	j=large(j)
   792	(1083)	if j="B" : goto  &210      ;bijvoegen op deze bon
   793	(108D)	if j="D" : goto  &delete   ;delete bon
   794	(1097)	if j="H" : goto  &1650     ;factuurlijn 
   795	(10A1)	if j="F" : goto  &1700     ;factuur maken 
   796	(10AB)	if j="P" : goto  &1700     ;factuur maken 
   797	(10B5)	if j="W" : goto  &wijzig   ;wijzigen
   798	(10BF)	if j="Z" : goto  &facwijz  ;wijzigen factuurnummer
   799	(10C9)	goto &206
   800	(10CC)	
   801	(10CC)	&facwijz
   802	(10CC)	print=1:tab(01,24),atb(22)
   803	(10D7)	ask=1,i=&200,u=&200:tab(01,24),"Bonverwerkt : ",bonverw,tab(15)=bonverw
   804	(10FD)	&207
   805	(10FD)	print=1:tab(01,24),atb(22)
   806	(1108)	ask=1,i=&200,u=&facwijz:tab(01,24),"Factuurnr   : ",(n4z),bonfak,tab(15)=bonfak
   807	(1136)	modif=14,bonkode:&facverw,e,bonrec
   808	(1148)	goto &200
   809	(114B)	
   810	(114B)	&wijzig 
   811	(114B)	print=1:tab(01,07),atb(22)
   812	(1156)	print=1:tab(01,15),"Datum     ",tab(20),": ",bondatum
   813	(1174)	goto &155
   814	(1177)	
   815	(1177)	&tekstl
   816	(1177)	tekstl1=tek(01)
   817	(1183)	tekstl2=tek(02)
   818	(118F)	print=1:tab(01,10),atb(22)
   819	(119A)	print=1:tab(01,13),paint(kh,ka),"Tekst",paint(kt,0)," : ",tekstl1
   820	(11BD)	print=1:tab(09,14),tekstl2
   821	(11C8)	
   822	(11C8)	ask=1,i=&100,u=&100:tab(09,13)=tekstl1
   823	(11D8)	tek(01)=tekstl1
   824	(11E1)	
   825	(11E1)	ask=1,i=&100,u=&tekstl:tab(09,14)=tekstl2
   826	(11F1)	tek(02)=tekstl2
   827	(11FA)	goto &100
   828	(11FD)	
   829	(11FD)	&210     ;ophalen bon en schermafdruk
   830	(11FD)	dat=bondatum
   831	(1202)	ldgo.seg datu
   832	(1206)	tbondat=test1
   833	(120B)	gosub &bonhoofding
   834	(120E)	print=1:tab(01,07),paint(kh3,ka3),gener(78," ")
   835	(1227)	print=1:tab(01,07),"Ln",tab(04),"Code",tab(10),"Artikel",tab(40),"Aantal +-",tab(55),"Totaal",tab(64),"Prijs",tab(72),"Kort",atb(0),paint(kh3,ka3),"    ",atb(0)
   836	(1286)	memklant=bonklant
   837	(128B)	memfaknu=bonnumer
   838	(1290)	memins=1
   839	(1295)	&212
   840	(1295)	print=1:tab(01,08),atb(22)
   841	(12A0)	search=2,memkode:&300,e,memrec(1),488
   842	(12BB)	for loper=1 to 15
   843	(12C3)	memhelp=memdeel(loper)               ;hulpzone
   844	(12CF)	elloper=loper+7
   845	(12DC)	if memart="    " : goto  &305        ;einde der artikels van een element
   846	(12E6)	ldgo.seg artlijn
   847	(12EA)	next loper
   848	(12FA)	&230      ;blad vol 
   849	(12FA)	loper=16
   850	(12FF)	&231
   851	(12FF)	search=2,memkode:&100,e,memrec(1),488
   852	(131A)	voltest=1
   853	(131F)	j=" "
   854	(1324)	ask=1,i=&469,u=&240,d=&250,/80=&500,/82=&232,/83=&233,/84=&235:tab(01,24),paint(kh,ka),"F3",atb(0),"=Schrappen  ",paint(kh,ka),"F4-F5",atb(0),"=Wijzigen  "=j
   855	(1383)	goto &250
   856	(1386)	&232
   857	(1386)	voltest=1
   858	(138B)	goto &400     ;schrappen
   859	(138E)	&233
   860	(138E)	voltest=1
   861	(1393)	goto &410     ;wijzigen
   862	(1396)	&234
   863	(1396)	voltest=1
   864	(139B)	onoff=1
   865	(13A0)	subloop=1
   866	(13A5)	goto &413
   867	(13A8)	&235
   868	(13A8)	voltest=1
   869	(13AD)	onoff=1
   870	(13B2)	subloop=1
   871	(13B7)	goto &413
   872	(13BA)	&240
   873	(13BA)	if memins=1 : goto  &500   ;vorig blad
   874	(13C4)	memins=memins-1
   875	(13CE)	elloper=8
   876	(13D3)	subloop=1
   877	(13D8)	goto &212
   878	(13DB)	&250
   879	(13DB)	memins=memins+1            ;volgend blad
   880	(13E5)	elloper=8
   881	(13EA)	subloop=1
   882	(13EF)	goto &212
   883	(13F2)	
   884	(13F2)	&300    ;nieuwe inschrijving loper reeds op 1
   885	(13F2)	print=1:tab(01,24),atb(21)
   886	(13FD)	loper=1
   887	(1402)	&305
   888	(1402)	elloper=loper+7
   889	(140F)	subloop=loper
   890	(1414)	&306
   891	(1414)	voltest=0
   892	(1419)	onoff=0
   893	(141E)	mamart="  "
   894	(1423)	&309
   895	(1423)	print=1:tab(01,23),atb(22)
   896	(142E)	print=1:tab(01,elloper),atb(21)
   897	(1439)	ask=1,i=&550,u=&550,d=&1000,/80=&500,/81=&700,/82=&380,/83=&381,/84=&485,/85=&650,/86=&813,/87=&815,/8a=&313,/8b=&315:tab(01,24),"Geef artikelkode : ",mamart,tab(20)=mamart
   898	(1499)	if mamart=" " : goto  &309
   899	(14A3)	mamart=shl(large(mamart))
   900	(14AF)	if len$(mamart)>4 : goto &850
   901	(14BB)	memart=left(mamart,4)
   902	(14C5)	&310
   903	(14C5)	memart=shr(memart)
   904	(14CC)	artkey=memart
   905	(14D1)	search=12,artkey:&312,e,artrec(1),750
   906	(14EC)	goto &317
   907	(14EF)	&312
   908	(14EF)	print=1:tab(01,24),atb(21)
   909	(14FA)	ask=1,i=&305,u=&305,/8a=&313,/8b=&315,/86=&813,/87=&815:tab(01,24),paint(kh,ka),"Artikel",ng,atb(0),fvoor,voor,fvolg,volg=j
   910	(153F)	goto &305
   911	(1542)	&313
   912	(1542)	up=12:&314,e,artdown(1),768
   913	(155B)	goto &317
   914	(155E)	&314
   915	(155E)	print=1:tab(01,24),atb(21)
   916	(1569)	ask=1,i=&305,u=&305,/8b=&315,/86=&813,/87=&815:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
   917	(159A)	goto &305
   918	(159D)	&315
   919	(159D)	down=12:&316,e,artdown(1),768
   920	(15B6)	goto &317
   921	(15B9)	&316
   922	(15B9)	print=1:tab(01,24),atb(21)
   923	(15C4)	ask=1,i=&305,u=&305,/8a=&313,/86=&813,/87=&815:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
   924	(15F5)	goto &305
   925	(15F8)	&317
   926	(15F8)	search=7,artalfa:next,e
   927	(1607)	&318
   928	(1607)	memhelp=" "
   929	(160C)	mamart=" "
   930	(1611)	memaant=0
   931	(1616)	memverk=0
   932	(161B)	memprijs=artbedr(1)
   933	(1627)	memkort=0
   934	(162C)	memart=shr(artkey)
   935	(1633)	kla=shl(klkode)
   936	(163A)	art=shr(artkey)
   937	(1641)	klar=0
   938	(1646)	search=5,klarkode:&319,e,klarrec
   939	(165A)	memprijs=klar
   940	(165F)	&319
   941	(165F)	aantal=memaant+conv(memverk)
   942	(1670)	ldgo.seg artlijn
   943	(1674)	memdeel(loper)=memhelp
   944	(167D)	elloper=loper+7
   945	(168A)	ldgo.seg artlijn
   946	(168E)	&330
   947	(168E)	ask=1,i=&305,u=&305,/86=&813,/87=&815,/8a=&313,/8b=&315:tab(01,24),"Geef aantal : ",(-3n),memaant,tab(15),(-3n)=memaant
   948	(16D8)	ldgo.seg artlijn
   949	(16DC)	&331       
   950	(16DC)	ask=1,i=&305,u=&330,/86=&813,/87=&815,/8a=&313,/8b=&315:tab(01,24),"Geef bijkomend aantal : ",(-4n.n3),memverk,tab(25),(-4n.n3)=memverk
   951	(1736)	memdeel(loper)=memhelp
   952	(173F)	ldgo.seg artlijn
   953	(1743)	&335
   954	(1743)	print=1:tab(01,24),atb(21)
   955	(174E)	ask=1,i=&305,u=&331,/8a=&313,/8b=&315:tab(01,24),"Geef prijs : ",(-8.n2),memprijs,tab(14)=memprijs
   956	(1786)	memdeel(loper)=memhelp
   957	(178F)	&340
   958	(178F)	ask=1,i=&305,u=&335,/80=&350,/8a=&313,/8b=&315,"sS"=&601,"dD"=&630:tab(01,24),"Korting  S-D : ",(-3.n4),memkort,tab(16)=memkort
   959	(17D8)	if memkort>memprijs
   960	(17E2)	print=1:tab(01,24),atb(21)
   961	(17ED)	ask=1:tab(01,24),paint(kh,ka),"Korting : ",(-4.n4,e),memkort," Verkoopprijs : ",(-3.n4,e),memprijs,atb(0)," "=j
   962	(183D)	endif
   963	(183D)	ldgo.seg artlijn
   964	(1841)	&345
   965	(1841)	memdeel(loper)=memhelp
   966	(184A)	loper=loper+1
   967	(1854)	if loper<16 
   968	(185E)	goto  &305
   969	(1861)	endif 
   970	(1861)	memklant=bonklant
   971	(1866)	memfaknu=bonnumer
   972	(186B)	memdatum=bondatum
   973	(1870)	memkode2=memkode
   974	(1875)	insert=2,memkode:next,e,memrec(1),488
   975	(1890)	modif=2,memkode:next,e,memrec(1),488
   976	(18AB)	memins=memins+1  
   977	(18B5)	gosub &initmember
   978	(18B8)	print=1:tab(01,08),atb(22)
   979	(18C3)	goto &300
   980	(18C6)	
   981	(18C6)	&350     ;btw uithalen 
   982	(18C6)	if memprijs<>0
   983	(18D0)	memprijs=memprijs/(100+conv(verper(artbtw)))
   984	(18ED)	memprijs=memprijs*100
   985	(18FA)	memprijs=roun(memprijs,2)
   986	(1904)	endif
   987	(1904)	goto &335
   988	(1907)	
   989	(1907)	&380
   990	(1907)	voltest=0
   991	(190C)	goto &400     ;schrappen memdeel
   992	(190F)	&381
   993	(190F)	voltest=0
   994	(1914)	goto &410     ;wijzigen memdeel
   995	(1917)	&400     
   996	(1917)	subloop=loper-1
   997	(1921)	elloper=subloop
   998	(1926)	&401
   999	(1926)	if retkode=1 : goto  &403
  1000	(1930)	retkode=1
  1001	(1935)	print=1:tab(01,24),atb(21)
  1002	(1940)	&402
  1003	(1940)	ask=1,i=&469,u=&469,/83=&410:tab(01,24),"Geef te schrappen lijnnummer : ",(--),subloop,tab(32)=subloop
  1004	(1982)	&403
  1005	(1982)	if subloop<1 : goto  &402
  1006	(198C)	if subloop>loper-1 : goto  &402
  1007	(199B)	memhelp=memdeel(subloop)
  1008	(19A7)	elloper=subloop+7
  1009	(19B4)	&407
  1010	(19B4)	memart="GESC"
  1011	(19B9)	memdeel(subloop)=memhelp
  1012	(19C2)	print=1:tab(01,elloper),(--),paint(kn,ka),subloop,(e)," ",tab(04),paint(kh2,ka3),"GESCHRAPT",gener(67," "),atb(0)
  1013	(1A03)	goto &465
  1014	(1A06)	&410
  1015	(1A06)	subloop=loper-1
  1016	(1A10)	elloper=subloop
  1017	(1A15)	&411
  1018	(1A15)	if retkode=2 : goto  &413
  1019	(1A1F)	retkode=2
  1020	(1A24)	&412
  1021	(1A24)	print=1:tab(01,24),atb(21)
  1022	(1A2F)	ask=1,i=&469,u=&oo2,d=&oo3,/82=&400,/84=&485:tab(01,24),"Geef te wijzigen lijnnummer (F5) : ",(--),subloop,tab(36)=subloop
  1023	(1A7D)	&413
  1024	(1A7D)	if subloop<1 : goto  &412
  1025	(1A87)	if subloop>loper-1 : goto  &412
  1026	(1A96)	memhelp=memdeel(subloop)
  1027	(1AA2)	elloper=subloop+7
  1028	(1AAF)	if memspec<>"TEKST" : goto  &440
  1029	(1AB9)	&415
  1030	(1AB9)	artkode=memnum
  1031	(1ABE)	search=15,artkode:&420,e,specoms
  1032	(1AD2)	&420
  1033	(1AD2)	ask=1,i=&469,u=&oo2,d=&oo3:tab(11,elloper),(w32)=specoms
  1034	(1AEB)	insert=15,artkode:&425,e,specoms
  1035	(1AFD)	goto &465
  1036	(1B00)	&425
  1037	(1B00)	modif=15,artkode:&430,e,specoms
  1038	(1B12)	&430
  1039	(1B12)	print=1:tab(01,elloper),(--),paint(kn,ka),loper,(e)," ",tab(04),paint(kh2,ka3),"TEKST ",paint(kh2,ka2),chr$(212)+specoms,"                     ",atb(0)
  1040	(1B6F)	goto &465
  1041	(1B72)	&440
  1042	(1B72)	if memart<>"BLAN" : goto  &450
  1043	(1B7C)	print=1:tab(01,24),atb(21)
  1044	(1B87)	ask=1,i=&469,u=&oo2,d=&oo3:tab(01,24),paint(kt,ka2),"Dit is een blancolijn : ",atb(0)=j
  1045	(1BBD)	goto &469
  1046	(1BC0)	&450
  1047	(1BC0)	if memart<>"GESC" : goto  &460    ;gewoon artikel
  1048	(1BCA)	print=1:tab(01,24),atb(21)
  1049	(1BD5)	ask=1,i=&469,u=&oo2,d=&oo3:tab(01,24),paint(kt,ka2),"Deze lijn werd reeds geschrapt : ",atb(0)=j
  1050	(1C14)	print=1:tab(01,24),atb(21)
  1051	(1C1F)	goto &469
  1052	(1C22)	&460
  1053	(1C22)	elloper=subloop+7
  1054	(1C2F)	memhelp=memdeel(subloop)
  1055	(1C3B)	artkey=memart
  1056	(1C40)	search=12,artkey:next,e,artrec(1),750
  1057	(1C5B)	ldgo.seg artlijn
  1058	(1C5F)	ask=1,i=&469,u=&oo2,d=&oo3,/80=&461:tab(40,elloper),(-8)=memaant
  1059	(1C7D)	memdeel(subloop)=memhelp
  1060	(1C86)	&461
  1061	(1C86)	ask=1,i=&465,u=&460:tab(47,elloper),(-5.n3)=memverk
  1062	(1C9F)	memdeel(subloop)=memhelp
  1063	(1CA8)	ldgo.seg artlijn
  1064	(1CAC)	&462
  1065	(1CAC)	ask=1,i=&465,u=&460:tab(64,elloper),(-8.n2),memprijs,tab(64,elloper)=memprijs
  1066	(1CCE)	memdeel(subloop)=memhelp
  1067	(1CD7)	ldgo.seg artlijn
  1068	(1CDB)	if memprijs<artbedr(1)
  1069	(1CEC)	print=1:tab(01,24),atb(21)
  1070	(1CF7)	ask=1:bell,tab(01,24),paint(kh,ka),"Verkoopprijs ? ",atb(0)," "=j
  1071	(1D1F)	endif
  1072	(1D1F)	&464 
  1073	(1D1F)	ask=1,i=&465,u=&461,/80=&490,"sS"=&602,"dD"=&631:tab(72,elloper),(-4.n4),memkort,tab(72,elloper)=memkort
  1074	(1D50)	memdeel(subloop)=memhelp
  1075	(1D59)	ldgo.seg artlijn
  1076	(1D5D)	if memkort>memprijs
  1077	(1D67)	print=1:tab(01,24),atb(21)
  1078	(1D72)	ask=1:bell,tab(01,24),paint(kh,ka),"Korting : ",(-4.n4,e),memkort," Verkoopprijs : ",(-6.n2,e),memprijs,atb(0)," "=j
  1079	(1DC3)	wait 1
  1080	(1DC8)	endif
  1081	(1DC8)	&465  
  1082	(1DC8)	memdeel(subloop)=memhelp
  1083	(1DD1)	ldgo.seg artlijn
  1084	(1DD5)	memdatum=bondatum
  1085	(1DDA)	memkode2=memkode
  1086	(1DDF)	insert=2,memkode:next,e,memrec(1),488
  1087	(1DFA)	modif=2,memkode:next,e,memrec(1),488
  1088	(1E15)	&468
  1089	(1E15)	if onoff=0 : goto  &469
  1090	(1E1F)	subloop=subloop+1
  1091	(1E29)	&oo1
  1092	(1E29)	if subloop>loper-1 : goto  &469
  1093	(1E38)	memhelp=memdeel(subloop)
  1094	(1E44)	if memart="BLAN" : goto  &oo3
  1095	(1E4E)	if memart="GESC" : goto  &oo3
  1096	(1E58)	elloper=subloop+7
  1097	(1E65)	if memspec="TEKST" : goto  &415
  1098	(1E6F)	goto &460
  1099	(1E72)	&oo2
  1100	(1E72)	print=1:tab(01,24),atb(22)
  1101	(1E7D)	if subloop<=1 : goto  &469
  1102	(1E87)	subloop=subloop-1
  1103	(1E91)	memhelp=memdeel(subloop)
  1104	(1E9D)	if memart="    " : goto  &oo2
  1105	(1EA7)	if memart="BLAN" : goto  &oo2
  1106	(1EB1)	if memart="GESC" : goto  &oo2
  1107	(1EBB)	goto &oo1
  1108	(1EBE)	&oo3
  1109	(1EBE)	print=1:tab(01,24),atb(22)
  1110	(1EC9)	if subloop>loper-2 : goto  &469
  1111	(1EDB)	subloop=subloop+1
  1112	(1EE5)	memhelp=memdeel(subloop)
  1113	(1EF1)	if memart="    " : goto  &oo3
  1114	(1EFB)	if memart="BLAN" : goto  &oo3
  1115	(1F05)	if memart="GESC" : goto  &oo3
  1116	(1F0F)	goto &oo1
  1117	(1F12)	&469
  1118	(1F12)	print=1:tab(01,24),atb(21)
  1119	(1F1D)	retkode=0
  1120	(1F22)	if voltest=0 : goto  &305
  1121	(1F2C)	voltest=1
  1122	(1F31)	goto &231
  1123	(1F34)	&485
  1124	(1F34)	onoff=1
  1125	(1F39)	subloop=1
  1126	(1F3E)	goto &413
  1127	(1F41)	
  1128	(1F41)	&490
  1129	(1F41)	if memprijs<>0
  1130	(1F4B)	memprijs=memprijs/(100+conv(verper(artbtw)))
  1131	(1F68)	memprijs=memprijs*100
  1132	(1F75)	memprijs=roun(memprijs,2)
  1133	(1F7F)	endif
  1134	(1F7F)	ldgo.seg artlijn
  1135	(1F83)	goto &462
  1136	(1F86)	
  1137	(1F86)	&500     ;afsluiten bon
  1138	(1F86)	if loper<>1 : goto  &501
  1139	(1F90)	if memins<>1 : goto  &501
  1140	(1F9A)	goto &delete
  1141	(1F9D)	&501
  1142	(1F9D)	memklant=bonklant
  1143	(1FA2)	memdatum=bondatum
  1144	(1FA7)	memkode2=memkode
  1145	(1FAC)	insert=2,memkode:next,e,memrec(1),488
  1146	(1FC7)	modif=2,memkode:next,e,memrec(1),488
  1147	(1FE2)	insert=14,bonkode:next,e,bonrec
  1148	(1FF4)	modif=14,bonkode:next,e,bonrec
  1149	(2006)	goto &560
  1150	(2009)	
  1151	(2009)	&550
  1152	(2009)	memklant=bonklant     
  1153	(200E)	memdatum=bondatum
  1154	(2013)	memkode2=memkode
  1155	(2018)	insert=2,memkode:next,e,memrec(1),488
  1156	(2033)	modif=2,memkode:next,e,memrec(1),488
  1157	(204E)	if memins=1 : goto  &500
  1158	(2058)	memins=memins-1
  1159	(2062)	elloper=8
  1160	(2067)	goto &212
  1161	(206A)	
  1162	(206A)	&560
  1163	(206A)	ldgo.seg uitreken
  1164	(206E)	&565
  1165	(206E)	if bontot=0 : goto &delete
  1166	(2078)	print=1:tab(01,23),atb(22)
  1167	(2083)	print=1:tab(01,23),paint(kh,ka),"Totaal :",atb(0)," ",(-5.n2),bontot,tab(54,23),(-5.n2),bonbeta
  1168	(20BF)	ask=1,i=&580,u=&580,d=&580,"bB"=&570:tab(20,23),paint(kh,ka),"Geef bedrag betaald op deze bon : ",atb(0),(-7.n2)=bonbeta
  1169	(210D)	if bonbeta=0 : goto  &580
  1170	(2117)	bonbeta=roun(bonbeta,2)
  1171	(2121)	bontot=roun(bontot,2)
  1172	(212B)	if bonbeta=bontot : goto  &580
  1173	(2135)	goto &575
  1174	(2138)	&570
  1175	(2138)	bonbeta=bontot
  1176	(213D)	goto &580
  1177	(2140)	&575
  1178	(2140)	print=1:tab(20,23),atb(21)
  1179	(214B)	print=1:tab(70,23),(-5.n2),bontot-bonbeta
  1180	(2167)	ask=1,i=&565,u=&565,"bB"=&570:tab(20,23),paint(kh,ka),"Betaald <> totaal",atb(0)," Geef bedrag :   ",(-5.n2),bonbeta,tab(53)=bonbeta
  1181	(21BA)	&580
  1182	(21BA)	par(3)=param3   
  1183	(21C3)	modif=14,bonkode:next,e,bonrec
  1184	(21D5)	ldgo.seg sort
  1185	(21D9)	goto &200
  1186	(21DC)	
  1187	(21DC)	&601
  1188	(21DC)	gosub &610
  1189	(21DF)	goto &340
  1190	(21E2)	&602
  1191	(21E2)	gosub &610
  1192	(21E5)	goto &464
  1193	(21E8)	
  1194	(21E8)	&610
  1195	(21E8)	klarrec=" "
  1196	(21ED)	kla=shl(klkode)
  1197	(21F4)	art=shr(artkey)
  1198	(21FB)	klar=memprijs
  1199	(2200)	modif=5,klarkode:&615,e,klarrec
  1200	(2212)	goto &620
  1201	(2215)	&615
  1202	(2215)	insert=5,klarkode:&620,e,klarrec
  1203	(2227)	&620
  1204	(2227)	return
  1205	(2228)	
  1206	(2228)	&630
  1207	(2228)	kla=shl(klkode)
  1208	(222F)	art=shr(artkey)
  1209	(2236)	delete=5,klarkode:&340,e
  1210	(2245)	goto &340
  1211	(2248)	&631
  1212	(2248)	kla=shl(klkode)
  1213	(224F)	art=shr(artkey)
  1214	(2256)	delete=5,klarkode:&464,e
  1215	(2265)	goto &464
  1216	(2268)	
  1217	(2268)	&650
  1218	(2268)	print=1:tab(01,24),atb(21)
  1219	(2273)	specoms=" "
  1220	(2278)	print=1:tab(01,24),"Tekstlijnnr ",(n4),teller(40),(e)," : ",paint(kh,ka),(u32),specoms,atb(0),tab(70),(-6),teller(40)
  1221	(22CD)	&655
  1222	(22CD)	ask=1,i=&305,u=&305:tab(21,24)=specoms
  1223	(22DD)	if specoms=" " : goto  &655
  1224	(22E7)	&670
  1225	(22E7)	memspec="TEKST"
  1226	(22EC)	memnum=teller(40)
  1227	(22F8)	artkode=memnum
  1228	(22FD)	insert=15,artkode:&671,e,specoms
  1229	(230F)	goto &672
  1230	(2312)	&671
  1231	(2312)	teller(40)=teller(40)+1
  1232	(2324)	goto &670
  1233	(2327)	&672
  1234	(2327)	par(3)=param3
  1235	(2330)	print=1:tab(01,elloper),(--),paint(kn,ka),loper,(e)," ",tab(04),paint(kh2,ka3),"TEKST ",paint(kh2,ka2),chr$(212)+specoms,"                     ",atb(0)
  1236	(238D)	goto &345
  1237	(2390)	&700
  1238	(2390)	memart="BLAN"
  1239	(2395)	print=1:tab(01,elloper),(--),paint(kn,ka),loper,(e)," ",tab(04),paint(kh2,ka3),"BLANCO  ",gener(68," "),atb(0)
  1240	(23D5)	goto &345
  1241	(23D8)	&800
  1242	(23D8)	
  1243	(23D8)	&813
  1244	(23D8)	up=7:&814,e,brtdown
  1245	(23EA)	goto &820
  1246	(23ED)	&814
  1247	(23ED)	print=1:tab(01,24),atb(21)
  1248	(23F8)	ask=1,i=&305,/87=&815,/8a=&313,/8b=&315:tab(01,24),paint(kh,ka),berb,atb(0),fvolg,volg=j
  1249	(2426)	goto &305
  1250	(2429)	&815   
  1251	(2429)	down=7:&830,e,brtdown
  1252	(243B)	&820
  1253	(243B)	memart=shr(brtkey)
  1254	(2442)	artkey=memart
  1255	(2447)	search=12,artkey:&305,e,artrec(1),750
  1256	(2462)	goto &318
  1257	(2465)	&830
  1258	(2465)	print=1:tab(01,24),atb(21)
  1259	(2470)	ask=1,i=&305,u=&305,/86=&813,/8a=&313,/8b=&315:tab(01,24),paint(kh,ka),bere,atb(0),fvoor,voor=j
  1260	(24A1)	&850
  1261	(24A1)	brtoms=mamart
  1262	(24A6)	brtkey=" "
  1263	(24AB)	search=7,brtkode:&851,e
  1264	(24BA)	&851
  1265	(24BA)	down=7:&312,e,brtdown
  1266	(24CC)	if brtoms=mamart : goto  &820
  1267	(24D6)	brtoms=mamart
  1268	(24DB)	brtkey=" "
  1269	(24E0)	search=7,brtkode:&312,e
  1270	(24EF)	memart=brtkey
  1271	(24F4)	goto &310
  1272	(24F7)	
  1273	(24F7)	&1000
  1274	(24F7)	open=18:&305,e 
  1275	(2500)	klhklant=klkode
  1276	(2505)	klhart=" " 
  1277	(250A)	search=18,klhkode:&1010,e,klahrec
  1278	(251E)	&1010
  1279	(251E)	memhelp=" "
  1280	(2523)	memdeel(loper)=" "
  1281	(252C)	down=18:&1110,e,klarhis
  1282	(253E)	if klkode<>klhklant : goto &1110
  1283	(2548)	artkey=klhart
  1284	(254D)	search=12,artkey:&1010,e,artrec(1),750
  1285	(2568)	memart=klhart 
  1286	(256D)	memaant=0
  1287	(2572)	memverk=0
  1288	(2577)	memkort=0
  1289	(257C)	memprijs=artbedr(1)
  1290	(2588)	kla=shl(klkode)
  1291	(258F)	art=shr(klhart)
  1292	(2596)	klar=0
  1293	(259B)	search=5,klarkode:&1015,e,klarrec
  1294	(25AF)	memprijs=klar
  1295	(25B4)	&1015
  1296	(25B4)	memdeel(loper)=memhelp
  1297	(25BD)	loper=loper+1
  1298	(25C7)	if loper<16 : goto &1010
  1299	(25D1)	memklant=bonklant
  1300	(25D6)	memdatum=bondatum
  1301	(25DB)	memkode2=memkode
  1302	(25E0)	insert=2,memkode:next,e,memrec(1),488
  1303	(25FB)	modif=2,memkode:next,e,memrec(1),488
  1304	(2616)	memins=memins+1 
  1305	(2620)	loper=1
  1306	(2625)	gosub &initmember
  1307	(2628)	goto &1010
  1308	(262B)	&1110
  1309	(262B)	insert=2,memkode:next,e,memrec(1),488
  1310	(2646)	modif=2,memkode:next,e,memrec(1),488
  1311	(2661)	goto &210 
  1312	(2664)	
  1313	(2664)	&1650
  1314	(2664)	print=1:tab(01,08),atb(22)
  1315	(266F)	print=1:tab(01,08),"Faktuurlijn",tab(20),": ",bondet,"."
  1316	(2691)	ask=1,i=&100,u=&100:tab(22,08)=bondet 
  1317	(26A1)	modif=14,bonkode:&100,e,bonrec
  1318	(26B3)	goto &100
  1319	(26B6)	
  1320	(26B6)	&1700  ;factuur maken 
  1321	(26B6)	open=23:&1710,e 
  1322	(26BF)	goto &1720
  1323	(26C2)	&1710
  1324	(26C2)	cfile=23,d=256
  1325	(26CA)	fact=" "
  1326	(26CF)	&1720
  1327	(26CF)	fkldat=bondatum
  1328	(26D4)	fklkode=bonklant
  1329	(26D9)	fkltest=" "
  1330	(26DE)	fklnum=bonnumer
  1331	(26E3)	factuur=fact
  1332	(26E8)	assign=1,"CRLFAK"
  1333	(26F2)	chain=1
  1334	(26F7)	stop
  1335	(26F9)	
  1336	(26F9)	&delete
  1337	(26F9)	print=1:tab(01,08),atb(22)
  1338	(2704)	j=" "
  1339	(2709)	&3000
  1340	(2709)	ask=1,i=&100,u=&100:tab(01,20),paint(kh,ka),"Wilt",atb(0)," U ",paint(kh,ka),"de",atb(0)," schrapping ",paint(kh,ka),"doorvoeren",atb(0)," Y-N ",paint(kh,ka),":",atb(0)," "=j
  1341	(2773)	j=large(j)
  1342	(277A)	if j="N" : goto  &100
  1343	(2784)	if j="Y" : goto  &3005
  1344	(278E)	goto &3000
  1345	(2791)	&3005
  1346	(2791)	delete=14,bonkode:&3015,e
  1347	(27A0)	for e9=1 to 100
  1348	(27A8)	memins=e9
  1349	(27AD)	search=2,memkode:&3010,e,memrec(1),488
  1350	(27C8)	for loper=1 to 15
  1351	(27D0)	memhelp=memdeel(loper)
  1352	(27DC)	if memart=" " : goto  &3010
  1353	(27E6)	next loper  
  1354	(27F6)	&3010
  1355	(27F6)	delete=2,memkode:&100,e
  1356	(2805)	next e9
  1357	(2815)	goto &100   
  1358	(2818)	&3015
  1359	(2818)	print=1:tab(01,24),"Fout delete bonkode : ",e," ",bonkode
  1360	(2841)	stop
  1361	(2843)	
  1362	(2843)	&totlijn
  1363	(2843)	print=1:paint(kl,0),tab(01,22),gener(79,hto),atb(0)
  1364	(285F)	print=1:tab(01,23),"Goederen "
  1365	(2872)	return
  1366	(2873)	
  1367	(2873)	&bonhoofding
  1368	(2873)	ldgo.seg naamd2
  1369	(2877)	print=1:clear,paint(kh,ka),naam,atb(0),"  INVOEREN BONSGEGEVENS   ",dagweek,tab(70),ndat
  1370	(28AB)	print=1:paint(kl,0),tab(01,02),gener(79,hto)
  1371	(28C4)	print=1:tab(01,02),ltb,tab(79),rtb
  1372	(28D5)	print=1:tab(01,03),vtb,tab(79),vte
  1373	(28E6)	print=1:tab(01,04),vtb,tab(79),vte
  1374	(28F7)	print=1:tab(01,05),vtb,tab(79),vte
  1375	(2908)	print=1:tab(01,06),gener(79,hto)
  1376	(291B)	print=1:tab(01,06),lto,tab(79),rto,atb(0)
  1377	(292F)	print=1:tab(02,03),paint(kh,ka)," F1=Einde  F2=Blanco  F3=Schrappen  F4=Wijzigen  F5=Wijzigen  F6=Tekstlijn ",atb(0)
  1378	(298D)	print=1:tab(03,04),"Klant : ",paint(kh,ka),left(klnaam,len$(klnaam)),atb(0),tab(45),kltelef,tab(65),paint(kh,ka),bondatum,atb(0)
  1379	(29CD)	print=1:tab(03,05),bonverw," ",(-4z),bonfak,tab(20),(-10.n2),bongoed,bonbtw,bontot,bonbeta
  1380	(29FE)	return
  1381	(29FF)	
  1382	(29FF)	&initmember     ;init van member, dus deel van een bon.
  1383	(29FF)	mamart=" "
  1384	(2A04)	memrec(1)=" "
  1385	(2A0D)	memart=" "
  1386	(2A12)	memaant=0
  1387	(2A17)	memverk=0
  1388	(2A1C)	memprijs=0
  1389	(2A21)	memkort=0
  1390	(2A26)	for e=1 to 15
  1391	(2A2E)	memdeel(e)=memhelp
  1392	(2A37)	next e
  1393	(2A47)	return
  1394	(2A48)	
  1395	(2A48)	&8000              ;laatste ingevoerde bon
  1396	(2A48)	klkode=shl(klkode)
  1397	(2A4F)	bonkode=large(klkode)
  1398	(2A56)	bonnumer=32000
  1399	(2A5B)	search=14,bonkode:&8001,e,bonrec
  1400	(2A6F)	&8001
  1401	(2A6F)	up=14:&100,e,bondown
  1402	(2A81)	if bonklant<>klkode : goto  &100
  1403	(2A8B)	search=14,bonkode:&100,e,bonrec
  1404	(2A9F)	goto &210
  1405	(2AA2)	
  1406	(2AA2)	eseg 0
  1407		
  1408		segment artlijn
  1409		
  1410	(0000)	print=1:tab(01,23),atb(22)
  1411	(000B)	if memart="   " : goto &ret 
  1412	(0015)	
  1413	(0015)	if memspec="TEKST" 
  1414	(001F)	artkode=memnum
  1415	(0024)	search=15,artkode:&ret,e,specoms
  1416	(0038)	print=1:tab(01,elloper),(--),paint(kn,ka),loper,(e)," ",tab(04),paint(kh2,ka3),"TEKST ",paint(kh2,ka2),chr$(212)+specoms,"                     ",atb(0)
  1417	(0095)	goto &ret 
  1418	(0098)	endif 
  1419	(0098)	
  1420	(0098)	if memart="BLAN"
  1421	(00A2)	print=1:tab(01,elloper),(--),paint(kn,ka),elloper-7,(e)," ",tab(04),paint(kh2,ka3),"BLANCO  ",gener(68," "),paint(kt,0)
  1422	(00ED)	goto &ret 
  1423	(00F0)	endif 
  1424	(00F0)	
  1425	(00F0)	if memart="GESC" 
  1426	(00FA)	print=1:tab(01,elloper),(--),paint(kn,ka),elloper-7,(e)," ",tab(04),paint(kh2,ka3),"GESCHRAPT",gener(67," "),paint(kt,0)
  1427	(0146)	goto &ret 
  1428	(0149)	endif
  1429	(0149)	
  1430	(0149)	artkey=memart
  1431	(014E)	search=12,artkey:next,e,artrec(1),750
  1432	(0169)	aantal=memaant+conv(memverk)
  1433	(017A)	
  1434	(017A)	if aantal<>0
  1435	(0184)	goederen=aantal*(memprijs-memkort)
  1436	(0196)	goederen=roun(goederen,2)
  1437	(01A0)	print=1:tab(01,23),paint(kh,ka),"Goederen :",paint(kn,0),(-6.n2),goederen,atb(0)
  1438	(01CF)	endif
  1439	(01CF)	
  1440	(01CF)	print=1:tab(01,elloper),paint(kn,ka),(n3),elloper-7
  1441	(01EE)	print=1:tab(04),paint(kn,ka2),artkey,"  "
  1442	(0200)	print=1:tab(10),paint(kt,ka),artoms
  1443	(020E)	print=1:tab(40),paint(kn,ka2),(-4),memaant,(e),"   "
  1444	(022C)	print=1:tab(47),paint(kn,ka3),(-4.n3),memverk
  1445	(0243)	print=1:tab(55),paint(kn,ka4),(-5.n3),aantal
  1446	(025A)	print=1:tab(64),paint(kn,ka5),(-6.n2),memprijs
  1447	(0271)	print=1:tab(72),paint(kn,ka),(-3.n4),memkort,atb(0)
  1448	(028B)	kla=shl(klkode)
  1449	(0292)	art=memart
  1450	(0297)	search=5,klarkode:&ret,e,klarrec
  1451	(02AB)	print=1:tab(64),paint(geel,ka5),(-4.n4),memprijs,atb(0)
  1452	(02C5)	&ret  
  1453	(02C5)	ret.seg 
  1454	(02C7)	
  1455	(02C7)	eseg artlijn
  1456		
  1457		segment bonovz
  1458		
  1459	(0000)	print=1:clear,paint(kh,ka),naam,atb(0),"  BONOVERZICHT           ",tab(70),ndat
  1460	(0030)	print=1:paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
  1461	(004F)	print=1:tab(01,03),vtb,tab(79),vte
  1462	(0060)	print=1:tab(01,04),lto,gener(77,hto),rto
  1463	(0079)	print=1:tab(04,03),paint(kt,ka),tab(04),"Klant",tab(15),"Bonnummer",tab(25),"F",tab(35),"Goederen",tab(46),"Datum",tab(58),"Betaald",tab(69),"Totaal",atb(0)
  1464	(00D6)	&6000
  1465	(00D6)	bonklant=" "
  1466	(00DB)	if klkode<>" "
  1467	(00E5)	bonklant=klkode
  1468	(00EA)	endif
  1469	(00EA)	
  1470	(00EA)	ask=1,i=&ret,u=&ret:tab(01,24),"Geef beginkode bonoverzicht : ",bonklant,tab(31)=bonklant
  1471	(0120)	&6001
  1472	(0120)	for tel=1 to 21
  1473	(0128)	tabnum(tel)=" "
  1474	(0131)	next tel
  1475	(0141)	totaal=0
  1476	(0146)	lijntel=5
  1477	(014B)	bonnumer=0
  1478	(0150)	&6100
  1479	(0150)	search=14,bonkode:&6120,e,bonrec
  1480	(0164)	goto &6125
  1481	(0167)	&6120
  1482	(0167)	down=14:&6180,e,bondown
  1483	(0179)	&6125
  1484	(0179)	totaal=totaal+bontot
  1485	(0186)	if bonfak=0
  1486	(0190)	print=1:tab(01,lijntel),(n2),paint(kn,ka),lijntel,(e)," ",paint(kt,ka2)," ",bonklant,"  ",paint(kn,ka3),(n8),bonnumer,(e)," ",paint(kt2,ka5)," ",bonverw
  1487	(01E2)	print=1:paint(kn,ka),(-6.n2),totaal,(-6.n2),paint(kn,ka2),bongoed,(e),"  ",paint(kt,ka3)," ",bondatum,"   ",paint(kn,ka4),(-5.n2),bonbeta,(e),"   ",paint(kn,ka5),(-5.n2),bontot,(e)," ",atb(0)
  1488	(025B)	goto &6150
  1489	(025E)	endif
  1490	(025E)	
  1491	(025E)	if bonfak<>0
  1492	(0268)	print=1:tab(01,lijntel),(n2),paint(kn,ka),lijntel,(e)," ",paint(kt,ka)," ",bonklant,"  ",paint(kn,ka2),(n8),bonfak,(e)," ",paint(kt2,ka)," ",bonverw
  1493	(02BA)	print=1:paint(kn,ka),(-6.n2),totaal,(-6.n2),paint(kn,ka),bongoed,(e),"  ",paint(kt,ka)," ",bondatum,"   ",paint(kn,ka),(-5.n2),bonbeta,(e),"   ",paint(kn,ka),(-5.n2),bontot,(e)," ",atb(0)
  1494	(0333)	endif
  1495	(0333)	
  1496	(0333)	&6150
  1497	(0333)	tabnum(lijntel)=bonkode
  1498	(033C)	lijntel=lijntel+1
  1499	(0346)	if lijntel<22 : goto  &6120
  1500	(0350)	&6170
  1501	(0350)	print=1:tab(01,24),atb(21)
  1502	(035B)	zoek=0
  1503	(0360)	ask=1,i=&ret,u=&ret:tab(01,24),paint(kh,ka),bla,atb(0),num,ret,esc,(n2)=zoek
  1504	(038B)	if zoek<>0 : goto  &6190
  1505	(0395)	for lijntel=5 to 21
  1506	(039D)	tabnum(lijntel)=" "
  1507	(03A6)	next lijntel
  1508	(03B6)	print=1:tab(01,05),atb(22)
  1509	(03C1)	lijntel=5
  1510	(03C6)	goto &6120
  1511	(03C9)	&6180
  1512	(03C9)	print=1:tab(01,24),atb(21)
  1513	(03D4)	zoek=0
  1514	(03D9)	ask=1,i=&ret,u=&ret:tab(01,24),paint(kh,ka),bere,atb(0),num,esc,(n2)=zoek
  1515	(0401)	if zoek=0 : goto  &ret
  1516	(040B)	if zoek<5 : goto  &6180
  1517	(0415)	if zoek>lijntel-1 : goto  &6180
  1518	(0424)	&6190
  1519	(0424)	bonkode=tabnum(zoek)
  1520	(0430)	klkode=bonklant
  1521	(0435)	search=11,klkode:&6180,e,klrec
  1522	(0449)	search=14,bonkode:&6180,e,bonrec
  1523	(045D)	for tel=5 to 21
  1524	(0465)	tabnum(tel)=" "
  1525	(046E)	next tel
  1526	(047E)	phil=1
  1527	(0483)	goto &ret
  1528	(0486)	&6250
  1529	(0486)	for lijntel=5 to 21
  1530	(048E)	tabnum(lijntel)=" "
  1531	(0497)	next lijntel
  1532	(04A7)	print=1:tab(01,05),atb(22)
  1533	(04B2)	lijntel=5
  1534	(04B7)	goto &6120 
  1535	(04BA)	&ret 
  1536	(04BA)	ret.seg 
  1537	(04BC)	
  1538	(04BC)	eseg bonovz
  1539		
  1540		segment uitreken
  1541		
  1542	(0000)	bongoed=0
  1543	(0005)	bontot=0
  1544	(000A)	bonbtw=0
  1545	(000F)	for e=1 to 5
  1546	(0017)	btwtot(e)=0
  1547	(0020)	next e
  1548	(0030)	memklant=bonklant
  1549	(0035)	memfaknu=bonnumer
  1550	(003A)	memins=1
  1551	(003F)	&1030
  1552	(003F)	search=2,memkode:&2300,e,memrec(1),488
  1553	(005A)	for loper=1 to 15
  1554	(0062)	memhelp=memdeel(loper)
  1555	(006E)	if memart="    " : goto  &2300
  1556	(0078)	if memspec="TEKST" : goto  &2190
  1557	(0082)	if memart="BLAN" : goto  &2190
  1558	(008C)	if memart="GESC" : goto  &2190
  1559	(0096)	artkey=memart
  1560	(009B)	artkey=shr(artkey)
  1561	(00A2)	search=12,artkey:&2190,e,artrec(1),750
  1562	(00BD)	aantal=memaant
  1563	(00C2)	aantal=aantal+conv(memverk)
  1564	(00D3)	if aantal=0 : goto  &2190
  1565	(00DD)	goederen=aantal*(memprijs-memkort)
  1566	(00EF)	goederen=roun(goederen,2)
  1567	(00F9)	bongoed=bongoed+goederen
  1568	(0106)	btwtot(artbtw)=btwtot(artbtw)+goederen
  1569	(011B)	&2190
  1570	(011B)	next loper
  1571	(012B)	memins=memins+1
  1572	(0135)	goto &1030
  1573	(0138)	&2300
  1574	(0138)	for e=1 to 5
  1575	(0140)	zon1(e)=0
  1576	(0149)	zon2(e)=0
  1577	(0152)	zon3(e)=0
  1578	(015B)	zon4(e)=0
  1579	(0164)	zon5(e)=0
  1580	(016D)	next e
  1581	(017D)	for e=1 to 5
  1582	(0185)	btwtot(e)=roun(btwtot(e),2)
  1583	(019A)	next e
  1584	(01AA)	e1=1
  1585	(01AF)	for e=1 to 5
  1586	(01B7)	if btwtot(e)=0 : goto  &2905
  1587	(01C5)	zon1(e1)=conv(e)
  1588	(01CE)	zon2(e1)=verper(e)
  1589	(01DE)	zon3(e1)=btwtot(e)
  1590	(01EE)	zon4(e1)=(zon3(e1)+zon5(e1))*conv(verper(e))
  1591	(021A)	zon4(e1)=zon4(e1)*0.01
  1592	(022F)	zon4(e1)=roun(zon4(e1),2)
  1593	(0244)	e1=e1+1
  1594	(024E)	&2905
  1595	(024E)	next e
  1596	(025E)	if large(klland)="B" : goto  &2906
  1597	(026A)	for e=1 to 5
  1598	(0272)	zon1(e)=0
  1599	(027B)	zon2(e)=0
  1600	(0284)	zon3(e)=0
  1601	(028D)	zon4(e)=0
  1602	(0296)	zon5(e)=0
  1603	(029F)	next e
  1604	(02AF)	goto &2920
  1605	(02B2)	&2906    ;btw plichtige binnenland
  1606	(02B2)	for e=1 to 5
  1607	(02BA)	bonbtw=bonbtw+zon4(e)
  1608	(02CF)	next e
  1609	(02DF)	&2920
  1610	(02DF)	bontot=bongoed+bonbtw
  1611	(02EC)	modif=14,bonkode:next,e,bonrec
  1612	(02FE)	&2950
  1613	(02FE)	ret.seg
  1614	(0300)	
  1615	(0300)	eseg uitreken
  1616		
  1617		segment klovz
  1618		
  1619	(0000)	phil=0
  1620	(0005)	goto &100
  1621	(0008)	
  1622	(0008)	&10
  1623	(0008)	ret.seg
  1624	(000A)	
  1625	(000A)	&100
  1626	(000A)	print=1:clear,paint(kh,ka),naam,atb(0),"  OVERZICHT VAN DE KLANTEN ",tab(70),ndat
  1627	(003C)	print=1:paint(kl,0),tab(01,02),gener(79,hto),atb(0)
  1628	(0058)	klkode=" "
  1629	(005D)	ask=1,i=&10,u=&10:tab(01,05)," Geef beginkode overzicht",esc,klkode,tab(41)=klkode
  1630	(0091)	klkode=large(klkode)
  1631	(0098)	print=1:clear,paint(kl,0),tab(01,02),ltb,gener(77,hto),rtb
  1632	(00B8)	print=1:tab(01,03),vtb,tab(79),vte
  1633	(00C9)	print=1:tab(01,04),lto,gener(77,hto),rto,atb(0)
  1634	(00E5)	print=1:tab(03,03),paint(kh,ka),"Nr",tab(08),"Code",tab(19),"Naam",tab(52),"Gemeente",atb(0)
  1635	(0119)	lijntel=5
  1636	(011E)	search=11,klkode:&110,e,klrec
  1637	(0132)	goto &120
  1638	(0135)	&110 
  1639	(0135)	down=11:&200,e,kldown
  1640	(0147)	&120
  1641	(0147)	print=1:tab(01,lijntel),paint(kn,ka3),"  ",(n2),lijntel,(e)," ",paint(kt,ka),"  ",klkode,"  ",paint(kt,ka2)," ",klnaam,"  ",paint(kt,ka3)," ",klgem,atb(0)
  1642	(019A)	tabel(lijntel)=klkode
  1643	(01A3)	lijntel=lijntel+1
  1644	(01AD)	if lijntel<22 : goto  &110
  1645	(01B7)	&130
  1646	(01B7)	i=0
  1647	(01BC)	ask=1,i=&10,u=&10:tab(01,24),paint(kh,ka),bla,atb(0),num,ret=i
  1648	(01DE)	if i=0 : goto  &150
  1649	(01E8)	if i<5 : goto  &130
  1650	(01F2)	if i>22 : goto  &130
  1651	(01FC)	klkode=tabel(i)
  1652	(0208)	search=11,klkode:&10,e,klrec
  1653	(021C)	phil=1
  1654	(0221)	goto &10
  1655	(0224)	&150
  1656	(0224)	for i=5 to 22
  1657	(022C)	tabel(i)=" "
  1658	(0235)	next i
  1659	(0245)	lijntel=5
  1660	(024A)	print=1:tab(01,05),atb(22)
  1661	(0255)	goto &110
  1662	(0258)	&200
  1663	(0258)	i=0
  1664	(025D)	ask=1,i=&10,u=&10:tab(01,24),paint(kh,ka),bere,atb(0),num=i
  1665	(027C)	&210
  1666	(027C)	if i=0 : goto  &10
  1667	(0286)	if i<5 : goto  &200
  1668	(0290)	if i>lijntel-1 : goto  &200
  1669	(029F)	klkode=tabel(i)
  1670	(02AB)	search=11,klkode:&10,e,klrec
  1671	(02BF)	phil=1
  1672	(02C4)	goto &10
  1673	(02C7)	
  1674	(02C7)	eseg klovz
  1675		
  1676		segment sort
  1677		
  1678		&10 
  1679	(0000)	goto &200 
  1680	(0003)	&100
  1681	(0003)	ret.seg
  1682	(0005)	&200
  1683	(0005)	phil=0
  1684	(000A)	dfile=21:next,e
  1685	(0014)	cfile=21,d=30,rk=6:&100,e
  1686	(0023)	memklant=bonklant
  1687	(0028)	memfaknu=bonnumer
  1688	(002D)	for e9=1 to 100
  1689	(0035)	memins=e9
  1690	(003A)	search=2,memkode:&250,e,memrec(1),488
  1691	(0055)	&230 
  1692	(0055)	for loper=1 to 15
  1693	(005D)	memhelp=memdeel(loper)
  1694	(0069)	if memart="    " : goto  &250
  1695	(0073)	if memspec="TEKST" : goto  &235
  1696	(007D)	if memart="BLAN" : goto  &234
  1697	(0087)	if memart="GESC" : goto  &242
  1698	(0091)	if memprijs=0 : goto &231
  1699	(009B)	if memaant<>0 : goto  &232
  1700	(00A5)	if memverk=0 : goto   &231
  1701	(00AF)	goto &232
  1702	(00B2)	&231
  1703	(00B2)	goto &242
  1704	(00B5)	&232
  1705	(00B5)	oldart=memart
  1706	(00BA)	srtkod2=memart
  1707	(00BF)	srtrec=memhelp
  1708	(00C4)	arttel=1
  1709	(00C9)	goto &240
  1710	(00CC)	&234
  1711	(00CC)	srtkod2=oldart
  1712	(00D1)	srtrec=memhelp
  1713	(00D6)	arttel=1
  1714	(00DB)	goto &240
  1715	(00DE)	&235 
  1716	(00DE)	srtkod2=oldart
  1717	(00E3)	srtnum=memnum
  1718	(00E8)	srtspec="TEKST"
  1719	(00ED)	&240 
  1720	(00ED)	insert=21,srtkode:&241,e,srtrec
  1721	(00FF)	goto &242
  1722	(0102)	&241
  1723	(0102)	arttel=arttel+1
  1724	(010C)	goto &240
  1725	(010F)	&242
  1726	(010F)	print=1:tab(01,24),atb(22)
  1727	(011A)	next loper
  1728	(012A)	&243
  1729	(012A)	next e9
  1730	(013A)	&250
  1731	(013A)	for e9=1 to 100
  1732	(0142)	memins=e9
  1733	(0147)	delete=2,memkode:next,e
  1734	(0156)	next e9
  1735	(0166)	srtkode=" "
  1736	(016B)	search=21,srtkode:next,e,srtrec
  1737	(017F)	for e=1 to 15
  1738	(0187)	memdeel(e)=" "
  1739	(0190)	next e
  1740	(01A0)	memins=1
  1741	(01A5)	loper=1
  1742	(01AA)	&310 
  1743	(01AA)	down=21:&400,e,srtdown
  1744	(01BC)	memdeel(loper)=srtrec
  1745	(01C5)	if loper=15 : goto  &380
  1746	(01CF)	loper=loper+1
  1747	(01D9)	goto &310 
  1748	(01DC)	&380 
  1749	(01DC)	memdatum=bondatum
  1750	(01E1)	memkode2=memkode
  1751	(01E6)	insert=2,memkode:&390,e,memrec(1),488
  1752	(0201)	for e=1 to 15
  1753	(0209)	memdeel(e)=" "
  1754	(0212)	next e
  1755	(0222)	loper=1
  1756	(0227)	memins=memins+1
  1757	(0231)	goto &310   
  1758	(0234)	&390 
  1759	(0234)	print=1:tab(01,24),atb(21)
  1760	(023F)	print=1:tab(01,24),"Fout insert memkode : ",e," ",memkode
  1761	(0268)	stop
  1762	(026A)	&400 
  1763	(026A)	memdatum=bondatum
  1764	(026F)	memkode2=memkode
  1765	(0274)	insert=2,memkode:&390,e,memrec(1),488
  1766	(028F)	goto &100 
  1767	(0292)	
  1768	(0292)	eseg sort
  1769		
  1770		segment naamd
  1771		
  1772	(0000)	restore 1
  1773	(0005)	dgino=conv(dag)
  1774	(000A)	mgino=conv(maand)
  1775	(000F)	joor=jaar
  1776	(0014)	jgino=conv(jaar)
  1777	(0019)	if mgino>2 : goto  &15
  1778	(0023)	jgino=jgino-1
  1779	(0030)	mgino=mgino+12
  1780	(003D)	&15
  1781	(003D)	t1gino=jgino*0.01
  1782	(004A)	egino=int(t1gino)
  1783	(0051)	cgino=jgino-egino*100
  1784	(0066)	t1gino=2.6001*(mgino-2)-0.2
  1785	(007D)	t2gino=cgino/4
  1786	(008A)	t3gino=egino/4
  1787	(0097)	agino=int(t1gino)+dgino+cgino+int(t2gino)+int(t3gino)-2*egino
  1788	(00CC)	t1gino=agino/7
  1789	(00D9)	agino=agino-int(t1gino)*7+1
  1790	(00F5)	for igino=1 to agino
  1791	(00FD)	read=0:naamdag
  1792	(0100)	next igino
  1793	(010F)	&100
  1794	(010F)	ret.seg
  1795	(0111)	data "Zondag","Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag"
  1796	(014E)	
  1797	(014E)	eseg naamd
  1798		
  1799		segment naamd2
  1800		
  1801	(0000)	restore 1
  1802	(0005)	dgino=conv(lb)
  1803	(000A)	mgino=conv(mb)
  1804	(000F)	joor="20"+rb
  1805	(001C)	jgino=conv(joor)
  1806	(0021)	if mgino>2 : goto  &15
  1807	(002B)	jgino=jgino-1
  1808	(0038)	mgino=mgino+12
  1809	(0045)	&15
  1810	(0045)	t1gino=jgino*0.01
  1811	(0052)	egino=int(t1gino)
  1812	(0059)	cgino=jgino-egino*100
  1813	(006E)	t1gino=2.6001*(mgino-2)-0.2
  1814	(0085)	t2gino=cgino/4
  1815	(0092)	t3gino=egino/4
  1816	(009F)	agino=int(t1gino)+dgino+cgino+int(t2gino)+int(t3gino)-2*egino
  1817	(00D4)	t1gino=agino/7
  1818	(00E1)	agino=agino-int(t1gino)*7+1
  1819	(00FD)	for igino=1 to agino
  1820	(0105)	read=0:dagweek 
  1821	(0108)	next igino
  1822	(0117)	&100
  1823	(0117)	ret.seg
  1824	(0119)	data "Zondag","Maandag","Dinsdag","Woensdag","Donderdag","Vrijdag","Zaterdag"
  1825	(0156)	
  1826	(0156)	eseg naamd2
  1827		
  1828		segment datu
  1829		
  1830	(0000)	test1=conv(right(dat,2))
  1831	(000D)	test1=test1+1900
  1832	(001A)	if test1>1950 : goto  &10
  1833	(0024)	test1=test1+100
  1834	(0031)	&10
  1835	(0031)	test1=test1*372
  1836	(003E)	test2=conv(substr(dat,4,2))
  1837	(004D)	test2=test2*31
  1838	(005A)	test1=test1+test2
  1839	(0067)	test2=conv(left(dat,2))
  1840	(0074)	test1=test1+test2
  1841	(0081)	ret.seg
  1842	(0083)	
  1843	(0083)	eseg datu 
  1844		
  1845		segment assigns
  1846		
  1847	(0000)	srtbon=conv(process)
  1848	(0008)	assign=2,bestand(15),wr,si                          ;bonbestand lijnen 
  1849	(0019)	assign=3,left(bestand(05),3)+"TFAK",wr       ;tekstlijnen voor op factuur
  1850	(0037)	assign=5,bestand(18),wr,si                         ;speciale prijzen
  1851	(0048)	assign=7,left(bestand(05),6)+"S",wr,si         ;alfabetische sort art
  1852	(0066)	assign=8,left(bestand(03),6),wr,si                ;leveranciersbestand
  1853	(007F)	assign=10,bestand(10),wr,si                       ;openstaande fakturen
  1854	(0090)	assign=11,bestand(04),wr,si                       ;klantenbestand
  1855	(00A1)	assign=12,bestand(05),wr,si                       ;artikelbestand
  1856	(00B2)	assign=14,bestand(16),wr,si                       ;bonbestand totalen
  1857	(00C3)	assign=15,bestand(17),wr,si                       ;testlijnen
  1858	(00D4)	assign=16,left(bestand(04),3)+"KLH",wr,si   ;fiche klanten
  1859	(00F2)	assign=18,bestand(14),wr,si                       ;historiek art. klanten
  1860	(0103)	assign=21,"BONSRT"+srtbon,wr,si
  1861	(0115)	assign=23,"FACTUUR",wr
  1862	(011F)	
  1863	(011F)	open=2:&50,e
  1864	(0128)	goto &60
  1865	(012B)	&50
  1866	(012B)	cfile=2,d=488,k=11
  1867	(0136)	&60
  1868	(0136)	open=14:&70,e
  1869	(013F)	goto &80
  1870	(0142)	&70
  1871	(0142)	cfile=14,d=100,k=10
  1872	(014D)	goto &80
  1873	(0150)	&80
  1874	(0150)	open=18:&90,e
  1875	(0159)	goto &100
  1876	(015C)	&90
  1877	(015C)	cfile=18,d=200,k=12
  1878	(0167)	&100
  1879	(0167)	open=15:&110,e
  1880	(0170)	goto &120
  1881	(0173)	&110
  1882	(0173)	cfile=15,d=48,k=3
  1883	(017E)	&120
  1884	(017E)	open=3:&130,e
  1885	(0187)	goto &140
  1886	(018A)	&130
  1887	(018A)	cfile=3,d=120
  1888	(0192)	tek(1)=" "
  1889	(019B)	tek(2)=" "
  1890	(01A4)	&140
  1891	(01A4)	open=5:&150,e
  1892	(01AD)	goto &ret
  1893	(01B0)	&150
  1894	(01B0)	cfile=5,d=110,k=12
  1895	(01BB)	&ret
  1896	(01BB)	ret.seg
  1897	(01BD)	
  1898	(01BD)	eseg assigns