kljm.prg

来自「一个有关电力系统收费的管理软件」· PRG 代码 · 共 21 行

para hh

*PUBL WMZ,ZMZ

IF HH=1
	n2=''
	for i=1 to 10
		n1=chr(asc(subs(zmz,11-i,1))+(i*13))
		n2=n2+n1
	endfor
	WMZ=n2
	RETU WMZ
ELSE
	n2=''
	for i=1 to 10
		n1=chr(asc(subs(wmz,11-i,1))-((11-i)*13))
		n2=n2+n1
	endfor
	ZMZ=n2
	RETU ZMZ
ENDIF