10 POKE53281,0:POKE53280,0:PRINT"[147][159]"
20 DIMO$(19),TWENTY$(9),HUNDRED$(9),MILLINS$(69),A$(2)
30 A$(1)="TEN ":A$(2)="HUNDRED "
40 FORI=0TO19:READO$(I):NEXT
50 FORI=2TO9:READTWENTY$(I):NEXT
60 FORI=1TO9:HUNDRED$(I)=O$(I)+" HUNDRED":NEXT
70 FORI=3TO66STEP3:READMILLIN$(I):FORII=1TO2:MI$(I+II)=A$(II)+MI$(I):NEXT:NEXT
80 MI$(1)="TEN":MI$(2)="HUNDRED"
90 GOSUB930:POKE198,0:WAIT198,1:GETA$:IFA$="Q"THEN1160
100 PRINT"[147][159] [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
110 PRINT"[154]    [212][200][197][160][205][201][199][200][212][217][160][206][213][205][194][197][210][160][212][210][193][206][211][204][193][212][207][210]    "
120 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
125 PRINTSPC(10)"[159]BY [202]EFFREY [204]. [202]ONES[155]"
130 PRINT:PRINT"  [206]UMBER? ";:GOSUB630:PRINT:PRINT:L=LEN(NU$):IFNU$=""THENRUN
140 IFMID$(NU$,1,1)="0"THENGOSUB470
150 GOSUB580:PS=0
160 CR$=CHR$(13):MAX=39:DV=3:CLOSE4:OPEN4,4,7:CLOSE4:IFST=0THENMAX=65:DV=4
170 CLOSE3:OPEN3,DV,7:IFDV=4THENCR$=CR$+"     ":PRINT#3,CR$CR$CR$;
180 PRINT#3,PN$" IS:"CR$CR$;
190 ONLGOSUB220,220,280:IFL<4THENGOSUB410:PRINT#3,CR$CR$;:GOSUB1140:GOTO100
200 GOSUB320:GOSUB410:PRINT#3,CR$CR$;:GOSUB1140:GOTO100
210 REM TRANSLATE NUMBER <20
220 IFVAL(NU$)<20THENA$=O$(VAL(NU$))+" ":GOSUB550:PRINT#3,A$;:RETURN
230 REM TRANSLATE NUMBER 20-99
240 A$=TWENTY$(VAL(MID$(NU$,1,1))):IFMID$(NU$,2)<>"0"THENA$=A$+"-":GOSUB550
250 PRINT#3,A$;:IFMID$(NU$,2)="0"THENPRINT#3," ";:PS=PS+1:RETURN
260 A$=O$(VAL(MID$(NU$,2)))+" ":GOSUB550:PRINT#3,A$;:RETURN
270 REM TRANSLATE NUMBER 100-999
280 A$=HU$(VAL(MID$(NU$,1,1)))+" ":GOSUB550:PRINT#3,A$;
290 IFVAL(MID$(NU$,2))=0THENRETURN
300 NU$=MID$(NU$,2):GOSUB220:RETURN
310 REM TRANSLATE NUMBER >1000
320 L=LEN(NU$):IFL<4THENGOSUB280:N$="":RETURN
330 N$=NU$:GOSUB380:NU$=MID$(NU$,1,P):L=LEN(NU$)
340 IFNU$="000"THENNU$=MID$(N$,P+1):GOTO320
350 ONLEN(NU$)GOSUB220,220,280
360 A$=MI$(LEN(MID$(N$,P+1)))+" ":GOSUB550:PRINT#3,A$;:NU$=MID$(N$,P+1):GOTO320
370 REM CHECK FOR PREFIX
380 X=LEN(NU$):FORI=1TO3:IF(X-I)/3=INT((X-I)/3)THENP=I
390 NEXT:RETURN
400 REM TACK ON DECIMAL
410 IFD=0THENRETURN
420 D=0:PRINT#3,"AND ";:NU$=D$:DL=LEN(NU$):L=LEN(NU$):GOSUB470:GOSUB470
430 ONLGOSUB220,220,280:IFL<4THENPRINT#3,MI$(DL)"THS":RETURN
440 GOSUB320
450 PRINT#3,MI$(DL)"THS":RETURN
460 REM CHECK FOR LEADING ZEROES
470 F=0
480 IFNU$="0"ORLEFT$(NU$,2)="0."THENRETURN
490 FORI=1TOL:L=LEN(NU$):IFMID$(NU$,I,1)<>"0"THENF=1
500 IFF=0THENNU$=MID$(NU$,I+1)
510 NEXT
520 L=LEN(NU$):IFF=0THEN490
530 RETURN
540 REM WORD WRAP
550 PS=PS+LEN(A$)+1:IFPS>MAXTHENPRINT#3,CR$;:PS=LEN(A$)+1
560 RETURN
570 REM PRETTY UP THE NUMBER
580 II=-1:PN$="":FORI=LTO1STEP-1:II=II+1:IFII=3THENPN$=","+PN$:II=0
590 PN$=MID$(NU$,I,1)+PN$:NEXT
600 IFDTHENPN$=PN$+"."+D$
610 RETURN
620 REM GET NUMBER
630 NU$="":D$="":D=0:NZ=0
640 GETA$:GOSUB790:IFA$=""THEN640
650 AS=ASC(A$):IF(A$<"0"ORA$>"9")ANDA$<>"."ANDA$<>"Q"ANDAS<>20ANDAS<>13THEN640
660 L=LEN(NU$):IFA$="Q"THENRUN
670 IFAS=20ANDLTHENNU$=LEFT$(NU$,L-1):PRINTCHR$(20);:T=0:GOSUB800:GOTO640
680 IFAS=20THEN640
690 IFAS=13THENT=-1:GOSUB800:GOSUB820:RETURN
700 IFA$="."ANDL=0THEN640
710 IFL=69ANDD=0ANDA$<>"."THEN640
720 IFL=140THENAS=20:GOTO670
730 IFDTHENIFA$="."THEN640
740 IFLANDNZ=0THENIFA$="0"THEN640
750 IFA$="."THEND=L+1
760 NU$=NU$+A$:PRINT"[146]"A$;:T=0:GOSUB800
770 IFA$<>"0"THENNZ=1
780 GOTO640
790 IFTI<15THENRETURN
800 T=NOTT:POKE199,-T:PRINT" [157]";:TI$="000000":RETURN
810 REM CHOP OFF DECIMAL
820 IFDTHEND$=MID$(NU$,D+1):D$=LEFT$(D$,66):NU$=LEFT$(NU$,D-1):L=LEN(NU$)
830 RETURN
840 DATAZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE
850 DATATHIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN,TWENTY
860 DATATHIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY
870 DATATHOUSAND,MILLION,BILLION,TRILLION
880 DATAQUADRILLION,QUINTILLION,SEXTILLION,SEPTILLION,OCTILLION,NONILLION
890 DATADECILLION
900 DATAUNDECILLION,DUODECILLION,TREDECILLION,QUATTRODECILLION,QUINDECILLION
910 DATASEXDECILLION,SEPTENDECILLION,OCTODECILLION,NOVEMDECILLION,VIGINTILLION
920 DATASENTILLION
930 POKE53281,0:POKE53280,0:PRINT"[147][158]"
940 FORI=1TO11:PRINT"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT
950 FORI=1TO11:PRINT"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:NEXT:PRINT"[158]"
960 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE214,5
970 PRINT:FORI=1TO10:PRINTTAB(4)"[221][152]                              [146][158][221]
980 [130]:[151]214,6:[151]211,4:[158]58732
990 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1000 [153][163]5)"LISTNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWSYS"
1010 [151]214,16:[151]211,4:[158]58732
1020 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
1030 [153][163]5)"ONONPOKEFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRESYS":[151]214,9:[153]
1040 A$[178]"(null)LEFT$VALCLOSE(null)RIGHT$CHR$LEFT$(null)(null) (null)(null)(null)PEEKVAL(null)CLOSE(null)(null)ATN(null)(null)(null)ATN(null)(null)(null)":[141]1090
1050 A$[178]"BY MID$EFF MID$ONES":[141]1090
1060 A$[178]"(null)(null)PEEK(null)RIGHT$(null)LEFT$VALSTR$CLOSE(null)(null)CLOSE(null)(null)ATNSTR$(null)(null)ATN(null)CLOSE#67":[141]1090
1070 A$[178]"(null)UBSCRIPTIONS 1-800-831-2694":[141]1090
1080 [151]214,23:[153]:[153][163]8)"  (null) (null) VAL (null) (null) CLOSE ATN CLOSE (null) VAL (null)  ":[137]1100
1090 [153][166]20[171][195](A$)[173]2)"PRINT#"A$:[142]
1100 A$[178]"OPENPOSCMDCONT CMD CMDWAITFRE":[129]I[178]4[164]35:[151]214,18:[153]"ON"[163]I)A$:[130]
1110 [151]214,19:[153]"ON"[163]20)"CONT(null)CMD(null)"
1120 [153]"ONON"[163]5)"LEN TO CONTINUE"[163]22)"(null) TO QUIT TO
1130 PRINTTAB(7)"WITH PROGRAM"TAB(24)"[204][207][193][196][211][212][193][210]":RETURN
1140 IFDV=4THENRETURN
1150 PRINT:PRINTTAB(11)"[159] [154]  [208][210][197][211][211] [193][160][203][197][217]  [159] ":POKE198,0:WAIT198,1:GETA$:RETURN
1160 A$="HELLO CONNECT":OPEN15,8,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15
1170 IF ER<>63 THEN PRINT"[147]":END
1180 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]"
1190 PRINT"LOAD"Q$A$Q$",8"
1200 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END