- 論壇徽章:
- 0
|
好久沒來了，今天上來看了一下，發(fā)現(xiàn)我以前發(fā)的這個帖子在眾多大俠的指導(dǎo)留言下竟然加精了，謝謝各位大俠們的幫助～～～
那個問題我已經(jīng)解決了，我也把我寫的代碼發(fā)上來，大家一起討論討論～
H 1
E AA 36 4
E BB 36 2
E TAB01 1 9 1 0 TAB01X 4
E TAB02 1 3 1 0 TAB02X 4
* NVLU 原數(shù)值?
* RM 余數(shù)
* LV 10除的階數(shù)
* CT ARRAY 指標(biāo)
C *ENTRY PLIST
C PARM NVLU 100
C PARM BD1 60
C CLEARAA
C Z-ADD0 RM 10
C Z-ADD0 LV 10
C Z-ADD0 LVQ 20
C Z-ADD1 CT 30
C Z-ADD0 LS 20
C Z-ADD0 CT0 10
C MOVE ' 整 ' AA,CT
C MOVE *BLANK BD1
C NVLU DOWNE0
C NVLU DIV 10 NVLU
C MVR RM
C ADD 1 LS
C LS DIV 4 LVQ
C MVR LV
*
C RM IFNE 0
C LV IFEQ 1
C EXSR FLV
C ELSE
C LV LOKUPTAB02 TAB02X 41
C 41 ADD 1 CT
C 41 MOVE TAB02X AA,CT
C END
*
C RM LOKUPTAB01 TAB01X 41
C 41 ADD 1 CT
C 41 MOVE TAB01X AA,CT
C ELSE
C LV IFEQ 1
C EXSR FLV
C END
C 62 ADD 1 CT0
C END
C END
C Z-ADDCT CJC 20
C DO CT N 20
C MOVE *BLANK BC 3
C MOVE AA,N BC
C MOVELBC BB,CJC
C SUB 1 CJC
C* 'AA' DSPLY AA,N
C END
C MOVEABB BD 78
C BD IFNE *BLANK
C MOVEL' ' IT0E 1 （這個＂�。⑹嵌洌�
C MOVE ' ' IT0F 1
C MOVELIT0E BD1
C BD1 CAT BD:0 BD1
C BD1 CAT IT0F:0 BD1
C ENDIF
C SETON LR
*
CSR FLV BEGSR
C ADD 1 CT
C SELEC
C LVQ WHEQ 0
C MOVE ' 元' AA,CT
C LVQ WHEQ 1
C MOVE ' 萬 ' AA,CT
C SETON 62
C LVQ WHEQ 2
C CT0 COMP 4 61
C 61 SUB 1 CT
C MOVE ' 億 ' AA,CT
C ENDSL
C ENDSR
*
**
1 壹
2 貳
3 叁
4 肆
5 伍
6 陸
7 柒
8 捌
9 玖
**
2 拾
3 佰
0 仟
以上�。。�
再次謝謝大俠們，謝謝～～～ ：－） |
|
免費注冊
樓主: sater84
發(fā)表于 2007-03-23 12:57
