振中的ZBASE例程

振中ZBASE语言的使用例子,对初接触振中掌机的有一定的帮助 PROCEDURE StrHex Buf1 = "" Do Case Case Asc(Left(Buf2,1)) = 041h Data3 = (Asc(Left(Buf2,1)) - 041h + 10 ) * 16 EndCase Do Case Case Asc(Right(Buf2,1))