10	! Convert KOM's database to version 5.2's record size &
	! and make room for the hash-table in file 5. &

100	Acc$ = "R:(254,60)" &
	\ HashSize% = 80% &

1000	on error goto 19000 &
	\ print "CNV52A Ver 1.00 RSTS/E" &
	\ print &

1010	for i% = 1% to 5% & 
	\	open Acc$+"KOM"+num1$(i%)+".DAT" as file i% &
	\	field #i%, 512% as b$(i%) &
	\ next i% &	

1020	open Acc$+"KOM2.NEW" as file 10% &
	\ field #10%, 512% as b2$ &
	\ open Acc$+"KOM5.NEW" as file 11% &
	\ field #11%, 512% as b5$ &

1030	get #5% &
	\ a% = swap%(cvt$%(b$(5%))) + 80% &
	\ lset b5$ = cvt%$(swap%(a%))+right(b$(5%),3%) &
	\ put #11% &

1040	lset b5$ = string$(512%, 0%) &
	\ put #11% for i% = 1% to HashSize% &

1050	while -1% &
	\	get #5% &
	\	lset b5$ = b$(5%) &
	\	put #11% &
	\ next

1060	! This is a comment &

1070	rec% = 1% &
	\ nl$ = string$(14%, 0%) &
	\ rec$ = string$(46%, 0%) &
	\ buf$ =  "" &
	\ while -1% &
	\	get #2% &
	\	for i% = 0% to 15% &
	\		lset rec$ = mid(b$(2%), i%*32%+1%, 32%)+nl$ &
	\		buf$ = buf$+rec$ & 
	\		rec% = rec% + 1% &
	\		goto 1080 if rec% < 12% &
	\		lset b2$ = buf$+string$(512%, 0%) &
	\		put #10% &
	\		buf$ = "" &
	\		rec% = 1% &

1080		next i% &
	\ next &

1090	lset b2$ = buf$ &
	\ put #10% &

2000	close i% for i% = 1% to 5% &
	\ close 10%, 11% &
	\ goto 32767 &

19000	if erl = 1050 and err = 11 then resume 1060
19010	if erl = 1070 and err = 11 then resume 1090
19020	on error goto 0

32767	end