home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / WRITENUM.ZIP / WRITENUM.PRG
Text File  |  1986-04-04  |  3KB  |  107 lines
  1.  * PROCEDURE WRITENUM - Converts Numbers to Alpha for Checks.
  2.  *
  3.  * Parameters are AMOUNT which is a Number, WRITENUM is Alpha
  4.  * You can give them any name you want in your calling program.
  5.  * Largest number to be written is 999,999.99
  6.  *
  7.  PROC WRITENUM
  8.  PARAMETER AMOUNT,WRITENUM
  9.  REFNUM=AMOUNT
  10.  NUMBERIN=AMOUNT
  11.  WRITENUM= ' '
  12.  AA0= ' '
  13.  BB0= ' '
  14.  AA1= 'ONE'
  15.  BB1= ' '
  16.  AA2= 'TWO'
  17.  BB2= 'TWENTY'
  18.  AA3= 'THREE'
  19.  BB3= 'THIRTY'
  20.  AA4= 'FOUR'
  21.  BB4= 'FORTY'
  22.  AA5= 'FIVE'
  23.  BB5= 'FIFTY'
  24.  AA6= 'SIX'
  25.  BB6= 'SIXTY'
  26.  AA7= 'SEVEN'
  27.  BB7= 'SEVENTY'
  28.  AA8= 'EIGHT'
  29.  BB8= 'EIGHTY'
  30.  AA9= 'NINE'
  31.  BB9= 'NINETY'
  32.  CC10= 'TEN'
  33.  CC11= 'ELEVEN'
  34.  CC12= 'TWELVE'
  35.  CC13= 'THIRTEEN'
  36.  CC14= 'FOURTEEN'
  37.  CC15= 'FIFTEEN'
  38.  CC16= 'SIXTEEN'
  39.  CC17= 'SEVENTEEN'
  40.  CC18= 'EIGHTEEN'
  41.  CC19= 'NINETEEN'
  42.  IF NUMBERIN>=100000
  43.     STOR 'AA' +STR(INT(NUMBERIN/100000),1,0) TO AAA
  44.     STOR NUMBERIN-((INT(NUMBERIN/100000)*100000)) TO NUMBERIN
  45.     IF NUMBERIN>=1000
  46.        STOR '&WRITENUM' + ' ' +&AAA+ ' HUNDRED' TO WRITENUM
  47.     ELSE
  48.        STOR '&WRITENUM' + ' ' +&AAA+ ' HUNDRED THOUSAND' TO WRITENUM
  49.     ENDI
  50.  ENDI
  51.  IF NUMBERIN>=1000
  52.     IF INT(NUMBERIN/1000)<=9
  53.        STOR 'AA' +STR(INT(NUMBERIN/1000),1,0) TO AAA
  54.        STOR '&WRITENUM' + ' ' +&AAA+ ' THOUSAND' TO WRITENUM
  55.     ELSE
  56.        IF INT(NUMBERIN/1000)<=19
  57.           STOR 'CC' +STR(INT(NUMBERIN/1000),2,0) TO CCA
  58.           STOR '&WRITENUM' + ' ' +&CCA+ ' THOUSAND' TO WRITENUM
  59.        ELSE
  60.           STOR 'BB' +STR(INT(NUMBERIN/10000),1,0) TO BBA
  61.           IF INT(NUMBERIN/1000)-((INT(NUMBERIN/10000))*10)=0
  62.              STOR '&WRITENUM' + ' ' +&BBA+ ' THOUSAND' TO WRITENUM
  63.           ELSE
  64.              STOR 'AA' +STR((INT(NUMBERIN/1000)- ((INT(NUMBERIN/10000))*10)),1,0) TO AAA
  65.              STOR '&WRITENUM' + ' ' +&BBA+ ' ' +&AAA+ ' THOUSAND' TO WRITENUM
  66.           ENDI
  67.        ENDI
  68.     ENDI
  69.     STOR NUMBERIN-((INT(NUMBERIN/1000))*1000) TO NUMBERIN
  70.  ENDI
  71.  IF NUMBERIN>=100
  72.     STOR 'AA' +STR(INT(NUMBERIN/100),1,0) TO AAA
  73.     STOR '&WRITENUM' + ' ' +&AAA+ ' HUNDRED' TO WRITENUM
  74.     STOR NUMBERIN-((INT(NUMBERIN/100))*100) TO NUMBERIN
  75.  ENDI
  76.  IF NUMBERIN>=1
  77.     IF INT(NUMBERIN)<=9
  78.        STOR 'AA' +STR(INT(NUMBERIN),1,0) TO AAA
  79.        STOR '&WRITENUM' + ' ' +&AAA TO WRITENUM
  80.     ELSE
  81.        IF INT(NUMBERIN)<=19
  82.           STOR 'CC' +STR(INT(NUMBERIN),2,0) TO CCA
  83.           STOR '&WRITENUM' + ' ' +&CCA TO WRITENUM
  84.        ELSE
  85.           STOR 'BB' +STR(INT(NUMBERIN/10),1,0) TO BBA
  86.           IF NUMBERIN-((INT(NUMBERIN/10))*10)=0
  87.              STOR '&WRITENUM' + ' ' +&BBA TO WRITENUM
  88.           ELSE
  89.              STOR 'AA' +STR(INT(NUMBERIN-((INT(NUMBERIN/10))*10)),1,0) TO AAA
  90.              STOR '&WRITENUM' + ' ' +&BBA+ ' ' +&AAA TO WRITENUM
  91.           ENDI
  92.        ENDI
  93.     ENDI
  94.     STOR NUMBERIN-(INT(NUMBERIN)) TO NUMBERIN
  95.  ENDI
  96.  IF NUMBERIN<1
  97.     IF REFNUM>=1
  98.        STOR SUBSTR(STR(NUMBERIN,4,2),3,2) TO CHANGE
  99.        STOR '&WRITENUM' + ' and ' + '&CHANGE' + '/100' TO WRITENUM
  100.     ELSE
  101.        STOR STR((INT(NUMBERIN*100)),2,0)+ '/100' TO WRITENUM
  102.     ENDI
  103.  ENDI
  104.  STOR 'PAY  **' + '&WRITENUM' + ' **' TO WRITENUM
  105.  RETU
  106.  
  107.