QB64.org Forum

Active Forums => Programs => Topic started by: Prithak on April 10, 2019, 06:13:44 am

Title: Number to Word (VERY limited!)
Post by: Prithak on April 10, 2019, 06:13:44 am

Hey there,
I've made a number to word converter but it is really limited! supporting only 3 digits! But I think I can increase it to 4. We'll see!
Here's the code:

Code: QB64: [Select]

1. _screenmove 50,50
2.  
3. cls
4. dim one_digit(9) as string
5. dim two_digit(10 to 19) as string
6. dim multiples(9) as string
7. dim three_digit as string
8.  
9. for i = 0 to 9
10.     read one_digit(i)
11. next i
12.  
13. for i = 10 to 19
14.     read two_digit(i)
15. next i
16.  
17. for i = 0 to 7
18.     read multiples(i)
19. next i
20.  
21. three_digit = "hundred"
22.  
23. there:
24.  
25. input "Enter a number (not higher than 3 digits!)"; a$
26.  
27. if len(a$) > 3 then
28.     print "Higher than 3 digits not supported!!!"
29.     goto there
30. end if
31.  
32. c=len(a$)-1
33.  
34. for i = 1 to len(a$)
35.     b$ = mid$(a$,i,1)
36.     for j = 1 to c
37.         b$ = b$ + "0"
38.     next j
39.     if c = 2 then
40.         print one_digit(val(left$(b$,1)));
41.         print " hundred ";
42.     end if
43.     if c = 1 then
44.         if b$ <> "10" then
45.             print multiples(val(left$(b$,1)))
46.         else
47.             print two_digit(val(right$(a$,2)))
48.             end
49.         end if
50.     end if
51.     if c = 0 then
52.         print one_digit(val(b$))
53.     end if
54.     c=c-1
55. next i
56.  
57. data "zero","one","two","three","four","five","six","seven","eight","nine"
58. data "ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen", "eighteen", "nineteen"
59. data "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"

-Prithak

Title: Re: Number to Word (VERY limited!)
Post by: Pete on April 10, 2019, 10:30:20 am

Here's one I put together in 2005. The thread is over at the Archived Posts of The QBasic Forum: https://www.tapatalk.com/groups/qbasic/viewtopic.php?f=13959&t=26807&p=130851&hilit=decillion#p130851

Feel free to use anything you need if it helps you build your version.

 - Pete

Code: QB64: [Select]

1. REM NUMBERS TO ENGLISH CONVERTER. (C) COPYRIGHT 2005 1STON.COM ALL RIGHTS RESERVED.
2. REM MAC - I WANT MY $20.00, LOL.
3. REM CONVERTS NUMBERS TO ENGLISH. USE 36 DIGITS (DECILLION+) POSITIVE OR NEGATIVE.
4. REM THIS VERSION RUNS STARTING TO ENDING NUMBERS.
5. REM COUNTS BY 1S, 2S, UP TO 1000 POSITIVE OR NEGATIVE.
6. REM COMMAS CAN BE USED BUT ARE NOT NECESSARY.
7.  
8. CLS
9.  
10. 101
11. REDIM NEG(3)
12. REDIM PROMPT$(10)
13. PROMPT$(1) = "NUMBERS TO ENGLISH PROGRAM: INPUT A +/- INTEGER TO 36 DIGITS OR NOTHING TO END"
14. PROMPT$(2) = "PRESS: [" + CHR$(25) + "] SCROLL NUMBERS MANUALLY [ENTER] AUTO SCROLL [ESC] END"
15. PROMPT$(3) = "PROGRAM PAUSED. PRESS: [SPACE BAR] RESUME [" + CHR$(25) + "] MANUAL SCROLL [ESC] END"
16. PROMPT$(4) = "PRESS: [R] RERUN PROGRAM [C] CHANGE SETTINGS / RERUN [ESC] END"
17. PROMPT$(5) = "PRESS: [SPACE BAR] PAUSE [ESC] END <MANUAL SCROLL AVAILABLE WHEN PAUSED>"
18. PROMPT$(6) = "PROGRAM ABORTED BY USER. PRESS [R] TO RERUN PROGRAM OR [ESC] TO QUIT"
19. PROMPT$(7) = "INPUT A +/- INTEGER TO 36 DIGITS OR INPUT NOTHING TO WRITE STARTING NUMBER ONLY"
20. PROMPT$(8) = "ENTER A DISPLAY PREFERENCE OR LEAVE BLANK FOR DEFAULT [A]"
21. PROMPT$(9) = "ENTER A DISPLAY PREFERENCE OR LEAVE BLANK FOR DEFAULT [L]"
22. PROMPT$(10) = "INPUT A NUMBER FROM -1000 TO 1000 TO COUNT BY OR LEAVE BLANK FOR [1]"
23. UC$ = CHR$(SCREEN(1, 1)): AB$ = CHR$(SCREEN(1, 2))
24.  
25. PRO = 1: GOSUB MSG
26.  
27. VIEW PRINT 1 TO 9: CLS 2
28. LOCATE 1, 1, 1
29. DO
30.     DO
31.         NUMBERORDER = NUMBERORDER + 1
32.         SELECT CASE NUMBERORDER
33.             CASE 1
34.                 LINE INPUT " INPUT STARTING NUMBER HERE:   "; X$
35.                 IF X$ = "" THEN SYSTEM
36.             CASE 2
37.                 PRO = 7: GOSUB MSG
38.                 PRINT: LINE INPUT " INPUT ENDING NUMBER HERE:     "; X$
39.                 IF X$ = "" THEN CNTBY = 1: AB$ = "A": UC$ = "L": LOCATE CSRLIN - 1, 1: PRINT SPACE$(80);: X$ = "SKIP": EXIT DO
40.             CASE 3
41.                 PRO = 10: GOSUB MSG
42.                 PRINT: LINE INPUT " COUNT BY 1s, 2s, UP TO 1000s: "; X$
43.                 IF X$ = "" THEN X$ = "1": LOCATE CSRLIN - 1, 32: PRINT X$
44.         END SELECT
45.  
46.         REM VALIDATE NUMBER
47.         XHOLD$ = ""
48.         IF VAL(X$) < 0 THEN J = 2 ELSE J = 1
49.         FOR I = J TO LEN(X$)
50.             IF MID$(X$, I, 1) <> "," THEN XHOLD$ = XHOLD$ + MID$(X$, I, 1)
51.             IF ASC(MID$(X$, I, 1)) < 48 OR ASC(MID$(X$, I, 1)) > 57 OR LEN(X$) > 2 AND MID$(X$, 1, 1) = "0" THEN
52.                 IF MID$(X$, I, 1) <> "," THEN XHOLD$ = "": EXIT FOR
53.             END IF
54.         NEXT I
55.  
56.         REM EVALUATE FOR NEGATIVE NUMBERS
57.         IF VAL(X$) < 0 THEN X$ = MID$(X$, 2): NEG(NUMBERORDER) = -1 ELSE NEG(NUMBERORDER) = 1
58.  
59.         REM EVALUATE FOR SIZE
60.         IF NUMBERORDER = 3 THEN
61.             IF ABS(VAL(XHOLD$)) > 1000 THEN XHOLD$ = ""
62.         ELSE
63.             IF LEN(XHOLD$) > 36 AND VAL(XHOLD$) > 0 OR LEN(XHOLD$) > 37 AND VAL(X$) < 0 THEN XHOLD$ = ""
64.         END IF
65.  
66.         REM EVALUATE COMMA PLACEMENT
67.         IF INSTR(X$, ",") <> 0 THEN
68.             FOR I = LEN(X$) TO 1 STEP -1
69.                 IF I MOD 4 = 0 THEN
70.                     IF MID$(X$, LEN(X$) - I + 1, 1) <> "," OR LEFT$(X$, 1) = "," THEN XHOLD$ = "": EXIT FOR
71.                 ELSE
72.                     IF MID$(X$, LEN(X$) - I + 1, 1) = "," THEN XHOLD$ = "": EXIT FOR
73.                 END IF
74.             NEXT I
75.         END IF
76.         X$ = XHOLD$: XHOLD$ = ""
77.         IF X$ = "0" OR VAL(X$) <> 0 THEN
78.             EXIT DO
79.         ELSE
80.             LOCATE , , 0
81.             PRINT: PRINT " NUMBER INVALID OR TOO LARGE, REDO FROM START...": PRINT: X$ = "": B$ = INKEY$: SLEEP 2: EXIT DO
82.         END IF
83.     LOOP
84.     IF X$ = "SKIP" THEN EXIT DO
85.     IF X$ = "" THEN RUN
86.     IF NUMBERORDER = 1 THEN STARTINGNUMBER$ = X$: STARTINGHOLD$ = XHOLD$ ELSE LOOPTIMES = VAL(X$)
87.     IF NUMBERORDER = 2 THEN ENDNUMBER$ = X$
88.     IF NUMBERORDER = 3 THEN CNTBY = VAL(X$): EXIT DO
89. LOOP
90.  
91. IF X$ <> "SKIP" THEN
92.     LOCATE CSRLIN - 1, 44: PRINT "DISPLAY A=AMERICAN OR B=BRITISH: ";
93.     PRO = 8: GOSUB MSG
94.  
95.     IF RTRIM$(AB$) = "" THEN
96.         DO
97.             AB$ = UCASE$(INKEY$)
98.             IF AB$ = CHR$(27) THEN SYSTEM
99.             IF AB$ = CHR$(13) THEN AB$ = "A": REM DEFAULT
100.         LOOP UNTIL AB$ = "A" OR AB$ = "B"
101.         PRINT AB$
102.     ELSE
103.         PRINT AB$
104.     END IF
105.  
106.     PRINT: PRINT " U=UCASE L=LCASE: ";
107.     PRO = 8: GOSUB MSG
108.  
109.     IF RTRIM$(UC$) = "" THEN
110.         DO
111.             UC$ = UCASE$(INKEY$)
112.             IF UC$ = CHR$(27) THEN SYSTEM
113.             IF UC$ = CHR$(13) THEN UC$ = "L": REM DEFAULT
114.         LOOP UNTIL UC$ = "U" OR UC$ = "L"
115.         PRINT UC$;
116.     ELSE
117.         PRINT UC$;
118.     END IF
119. END IF
120.  
121. IF X$ = "SKIP" THEN X$ = "": YYDISPLAY = 5: LOCATE 7, 2 ELSE LOCATE 7, 29: YYDISPLAY = 32
122. PRINT "#: ";
123.  
124. LOCATE 25, 1: PRINT SPACE$(80);
125. X$ = STARTINGNUMBER$: NUMBERORDER = 0
126. GOSUB CONVERT1
127.  
128. VIEW PRINT 9 TO 23
129. LOCATE , , 0
130.  
131. DO
132.     DO
133.         B$ = INKEY$
134.         IF B$ = CHR$(27) THEN GOTO SHUTOFF
135.         IF B$ = " " THEN IF AUTO <> 0 THEN PAUSE = 1
136.         EXIT DO
137.     LOOP
138.     IF VAL(X$) = 0 THEN
139.         NUM$ = "ZERO"
140.         IF UC$ = "L" THEN NUM$ = "Zero"
141.         GOSUB PRINTNUM
142.     ELSE
143.         IF NEG(1) = -1 THEN NUM$ = "NEGATIVE": GOSUB PRINTNUM
144.     END IF
145.  
146.     XHOLD$ = X$
147.  
148.     UC = 0: XHOLDC$ = ""
149.     FOR I = LEN(X$) TO 1 STEP -1
150.         XHOLDC$ = MID$(X$, I, 1) + XHOLDC$
151.         IF (LEN(X$) + 1 - I) MOD 3 = 0 AND I <> 1 THEN XHOLDC$ = "," + XHOLDC$
152.     NEXT I
153.     XX = CSRLIN: YY = POS(1): VIEW PRINT
154.     LOCATE 7, YYDISPLAY: PRINT SPACE$(41);: LOCATE 7, YYDISPLAY
155.     IF NEG(1) = -1 THEN PRINT "-";
156.     PRINT XHOLDC$;
157.     VIEW PRINT 9 TO 23
158.     LOCATE XX, YY
159.  
160.     IF LEN(XHOLD$) MOD 3 = 0 THEN
161.         X$ = MID$(XHOLD$, 1, 3)
162.     ELSE
163.         X$ = MID$(XHOLD$, 1, LEN(X$) MOD 3)
164.     END IF
165.  
166.     FOR HH = 1 TO (LEN(XHOLD$) - 1) / 3 + 1
167.         FOR II = 1 TO LEN(X$)
168.             SELECT CASE LEN(X$) - II + 1
169.                 CASE 3
170.                     RESTORE ONES
171.                     FOR I = 1 TO VAL(MID$(X$, II, 1))
172.                         READ NUM$
173.                     NEXT I
174.                     GOSUB PRINTNUM
175.                     IF VAL(MID$(X$, II, 1)) <> 0 THEN
176.                         IF VAL(MID$(XHOLD$, KK + 2, 2)) <> 0 AND AB$ = "B" THEN NUM$ = "HUNDRED AND" ELSE NUM$ = "HUNDRED"
177.                         GOSUB PRINTNUM
178.                     ELSE
179.                         IF AB$ = "B" THEN
180.                             IF KK <> 0 AND KK >= LEN(XHOLD$) - 3 THEN IF VAL(MID$(XHOLD$, LEN(XHOLD$) - 1)) <= 99 AND VAL(MID$(XHOLD$, LEN(XHOLD$) - 1)) <> 0 THEN ADDAND = 1
181.                         END IF
182.                     END IF
183.  
184.                 CASE 1
185.                     RESTORE ONES
186.                     FOR I = 1 TO VAL(MID$(X$, II, 1))
187.                         READ NUM$
188.                     NEXT I
189.                     GOSUB PRINTNUM
190.                 CASE 2
191.                     IF MID$(X$, II, 1) = "1" THEN
192.                         RESTORE TEENS
193.                         FOR I = 1 TO VAL(MID$(X$, II, 2)) - 9
194.                             READ NUM$
195.                         NEXT I
196.                         II = II + 1
197.                         GOSUB PRINTNUM
198.                     ELSE
199.                         RESTORE TENS
200.                         FOR I = 1 TO VAL(MID$(X$, II, 1))
201.                             READ NUM$
202.                         NEXT I
203.                         IF VAL(MID$(X$, LEN(X$), 1)) <> 0 THEN
204.                             HYPHEN = 1
205.                         END IF
206.                         GOSUB PRINTNUM
207.                     END IF
208.             END SELECT
209.         NEXT II
210.         KK = KK + LEN(X$)
211.  
212.         RESTORE LARGENUMBERS
213.         IF MID$(XHOLD$, KK, 1) <> "0" OR X$ = "100" OR X$ = "10" OR MID$(X$, 3, 1) = "0" AND VAL(X$) <> 0 THEN
214.             FOR I = 1 TO (LEN(XHOLD$) - KK) \ 3
215.                 READ NUM$
216.             NEXT I
217.         END IF
218.         GOSUB PRINTNUM
219.         COMMA = 1
220.         X$ = RTRIM$(MID$(XHOLD$, KK + 1, 3))
221.     NEXT HH
222.  
223.     KK = 0: COMMA = 0: COMMASET = 0
224.     IF LEN(XHOLD$) <= 15 THEN
225.         IF NEG(1) = -1 THEN
226.             XHOLD$ = LTRIM$(STR$(VAL(XHOLD$) * NEG(1) + CNTBY * NEG(3)))
227.             IF VAL(XHOLD$) * NEG(1) + CNTBY * NEG(3) > 0 THEN NEG(1) = 1
228.             IF VAL(XHOLD$) < 0 THEN NEG(1) = -1: XHOLD$ = MID$(XHOLD$, 2)
229.         ELSE
230.             XHOLD$ = LTRIM$(STR$(VAL(XHOLD$) + CNTBY * NEG(3)))
231.             IF VAL(XHOLD$) < 0 THEN NEG(1) = -1: XHOLD$ = MID$(XHOLD$, 2)
232.         END IF
233.     ELSE
234.         GOSUB CONVERT2
235.     END IF
236.  
237.     X$ = XHOLD$: PRINT
238.     STARTINGNUMBER$ = XHOLD$
239.     GOSUB CONVERT1
240.     IF CNTBY = 0 THEN EXIT DO
241.     IF NEG(1) = -1 THEN
242.         IF NEG(3) = -1 THEN
243.             IF NEG(2) = -1 THEN
244.                 IF STARTINGNUMBER$ > ENDNUMBER$ THEN EXIT DO: REM TESTED
245.             ELSE
246.                 EXIT DO: REM TESTED
247.             END IF
248.         ELSE
249.             IF NEG(2) = -1 THEN
250.                 IF STARTINGNUMBER$ < ENDNUMBER$ THEN EXIT DO: REM TESTED
251.             ELSE
252.                 REM #1 IS (-) ADDING UP TO LARGER NUMBER (INVERT SIGNS)
253.                 REM NO EXIT
254.             END IF
255.         END IF
256.     ELSE
257.         IF NEG(3) = -1 THEN
258.             IF NEG(2) = -1 THEN
259.                 IF STARTINGNUMBER$ <= "0" THEN EXIT DO: REM TESTED
260.             ELSE
261.                 IF STARTINGNUMBER$ < ENDNUMBER$ THEN EXIT DO: REM TESTED
262.             END IF
263.         ELSE
264.             IF NEG(2) = -1 THEN
265.                 EXIT DO
266.             ELSE
267.                 IF STARTINGNUMBER$ > ENDNUMBER$ THEN EXIT DO: REM TESTED
268.             END IF
269.  
270.         END IF
271.     END IF
272. LOOP
273.  
274. PRO = 4: GOSUB MSG
275.  
276. DO
277.     B$ = UCASE$(INKEY$)
278.     IF B$ = CHR$(27) OR B$ = "N" THEN SYSTEM
279.     IF B$ = "C" OR B$ = "R" THEN EXIT DO
280. LOOP
281. CLS
282. VIEW PRINT: LOCATE 1, 1: PRINT UC$; AB$
283. IF B$ = "C" THEN RUN ELSE RUN 101
284.  
285. PRINTNUM:
286. IF NUM$ <> "" THEN
287.     IF ADDAND = 1 THEN COMMA = 0: COMMASET = 0
288.     IF HYPHEN = 2 THEN HYPHEN = 3
289.     IF HYPHEN = 1 THEN HOLDNUM$ = "-"
290.     IF COMMA = 1 THEN
291.         IF COMMASET = 1 THEN COMMA = 0 ELSE COMMA = 0: HOLDNUM$ = NUM$: NUM$ = ",": COMMASET = 1
292.     END IF
293. ELSE
294.     HYPHEN = 0
295. END IF
296.  
297. DO
298.     IF NUM$ = "" THEN EXIT DO
299.     IF UC$ = "L" THEN
300.         IF HH >= 1 THEN IF UC = 0 THEN NUM$ = UCASE$(MID$(NUM$, 1, 1)) + LCASE$(MID$(NUM$, 2)): UC = 1 ELSE NUM$ = LCASE$(NUM$)
301.         IF UCASE$(NUM$) = "NEGATIVE" THEN NUM$ = "Negative": UC = 1
302.     END IF
303.     J = POS(1) + LEN(NUM$) + 1
304.     IF J >= 78 AND NUM$ <> "," OR J >= 80 AND NUM$ = "," OR POS(1) = 1 THEN PRINT
305.     IF NUM$ <> "," THEN
306.         IF HYPHEN < 2 OR POS(1) = 1 THEN PRINT " ";
307.         IF COMMASET = 1 THEN COMMASET = 0
308.         IF ADDAND = 1 THEN NUM$ = "AND " + NUM$: ADDAND = 0: IF UC$ = "L" THEN NUM$ = LCASE$(NUM$)
309.         PRINT NUM$;: IF NUM$ <> "-" AND HOLDNUM$ = "" THEN HYPHENSET = 0
310.     ELSE
311.         PRINT NUM$;
312.     END IF
313.     NUM$ = ""
314.     IF HOLDNUM$ = "" THEN EXIT DO ELSE NUM$ = HOLDNUM$: HOLDNUM$ = ""
315.     IF NUM$ = "-" THEN HYPHEN = 2
316. LOOP
317. IF HYPHEN = 3 THEN HYPHEN = 0
318.  
319. IF PAUSE = 1 AND KK = LEN(XHOLD$) THEN
320.     PAUSE = 0
321.  
322.     PRO = 3: GOSUB MSG
323.  
324.     DO
325.         B$ = INKEY$
326.         IF B$ = CHR$(0) + "P" THEN AUTO = 0: EXIT DO
327.         IF B$ = CHR$(27) THEN GOTO SHUTOFF
328.     LOOP UNTIL B$ = " "
329.     PRO = 5: GOSUB MSG
330. END IF
331. IF CSRLIN > 21 AND AUTO = 0 AND KK = LEN(XHOLD$) THEN
332.     XX = CSRLIN: YY = POS(1)
333.     IF SCREEN(25, 41) = 32 THEN PRO = 2: GOSUB MSG
334.     DO
335.         B$ = INKEY$
336.         IF B$ = CHR$(27) THEN GOTO SHUTOFF
337.         IF B$ = CHR$(13) THEN
338.             PRO = 5: GOSUB MSG
339.             AUTO = 1
340.             EXIT DO
341.         END IF
342.     LOOP UNTIL B$ = CHR$(0) + "P"
343.     LOCATE 23, 1: PRINT: PRINT
344.     LOCATE XX - 2, YY
345. END IF
346. RETURN
347.  
348. CONVERT1:
349. IF LEN(STARTINGNUMBER$) > LEN(ENDNUMBER$) THEN
350.     ENDNUMBER$ = STRING$(LEN(STARTINGNUMBER$) - LEN(ENDNUMBER$), "0") + ENDNUMBER$
351. ELSE
352.     IF LEN(STARTINGNUMBER$) <> LEN(ENDNUMBER$) THEN STARTINGNUMBER$ = STRING$(LEN(ENDNUMBER$) - LEN(STARTINGNUMBER$), "0") + STARTINGNUMBER$
353. END IF
354. IF NEG(1) = -1 AND NEG(2) = 1 THEN STARTINGNUMBER$ = "": REM MAKE ALWAYS SMALLER
355. RETURN
356.  
357. CONVERT2:
358. XHOLD2$ = "0" + XHOLD$
359. X3$ = LTRIM$(STR$(CNTBY))
360. IF LEN(X3$) > LEN(XHOLD2$) THEN
361.     XHOLD2$ = STRING$(LEN(X3$) - LEN(XHOLD2$), "0") + XHOLD2$
362.     X3$ = STRING$(LEN(XHOLD2$) - LEN(X3$), "0") + X3$
363. ELSE
364.     X3$ = STRING$(LEN(XHOLD2$) - LEN(X3$), "0") + X3$
365. END IF
366.  
367. IF X3$ >= XHOLD2$ THEN
368.     IF NEG(1) = -1 AND NEG(3) = 1 THEN
369.         SWAP X3$, XHOLD2$: HOLDNEG3 = NEG(3): NEG(3) = -1: NEG(1) = 1
370.     END IF
371.     IF X3$ >= XHOLD2$ AND NEG(1) = 1 AND NEG(3) = -1 THEN
372.         SWAP X3$, XHOLD2$: CHANGESIGN1 = -1
373.     END IF
374. END IF
375.  
376. FOR I = LEN(XHOLD2$) TO 1 STEP -1
377.     IF NEG(1) = 1 AND NEG(3) = 1 OR NEG(1) = -1 AND NEG(3) = -1 THEN
378.         IF VAL(MID$(XHOLD2$, I, 1)) + VAL(MID$(X3$, I, 1)) + CARRY >= 10 THEN
379.             NEWNUM$ = LTRIM$(STR$(VAL(MID$(XHOLD2$, I, 1)) + VAL(MID$(X3$, I, 1)) + CARRY - 10)) + NEWNUM$: CARRY = 1: PASS = 1
380.         ELSE
381.             NEWNUM$ = LTRIM$(STR$(VAL(MID$(XHOLD2$, I, 1)) + VAL(MID$(X3$, I, 1)) + CARRY)) + NEWNUM$
382.         END IF
383.     ELSE
384.         REM MINUS
385.         IF VAL(MID$(XHOLD2$, I, 1)) - VAL(MID$(X3$, I, 1)) - CARRY < 0 THEN
386.             NEWNUM$ = LTRIM$(STR$(VAL(MID$(XHOLD2$, I, 1)) + 10 - VAL(MID$(X3$, I, 1)) - CARRY)) + NEWNUM$: CARRY = 1: PASS = 1
387.         ELSE
388.             NEWNUM$ = LTRIM$(STR$(VAL(MID$(XHOLD2$, I, 1)) - VAL(MID$(X3$, I, 1)) - CARRY)) + NEWNUM$
389.         END IF
390.     END IF
391.  
392.     IF PASS = 0 THEN CARRY = 0 ELSE PASS = 0
393. NEXT I
394. CARRY = 0: PASS = 0
395.  
396. DO
397.     IF MID$(NEWNUM$, 1, 1) = "0" THEN NEWNUM$ = MID$(NEWNUM$, 2) ELSE EXIT DO
398. LOOP
399. XHOLD$ = NEWNUM$
400. IF HOLDNEG3 <> 0 THEN NEG(3) = HOLDNEG3: HOLDNEG3 = 0
401. IF CHANGESIGN1 = -1 THEN NEG(1) = -1: CHANGESIGN1 = 0
402. IF NEWNUM$ = "" THEN NEWNUM$ = "0": NEG(1) = 1
403. NEWNUM$ = ""
404. RETURN
405.  
406. MSG:
407. XX = CSRLIN: YY = POS(1)
408. LOCATE 25, 1: PRINT SPACE$(80);: LOCATE 25, 41 - LEN(PROMPT$(PRO)) \ 2: PRINT PROMPT$(PRO);
409. LOCATE XX, YY
410. RETURN
411.  
412. SHUTOFF:
413. X$ = INKEY$
414. PRO = 6: GOSUB MSG
415. DO
416.     B$ = UCASE$(INKEY$)
417.     IF B$ = "R" THEN RUN ELSE IF B$ = CHR$(27) OR B$ = "N" THEN EXIT DO
418. LOOP
419. SYSTEM
420.  
421. TEENS:
422. DATA TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETINE
423.  
424. TENS:
425. DATA TEN,TWENTY,THIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY
426.  
427. ONES:
428. DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE
429.  
430. LARGENUMBERS:
431. DATA THOUSAND,MILLION,BILLION,TRILLION,QUADRILLION,QUINTILLION,SEXTILLION,SEPTILLION,OCTILLION,NONILLION,DECILLION
432.  

Text Only | Text with Attachments