0 'NUMWRD.BA v1.0 -Drew Blanchar 3/88 1 'CLUB 100 BETA TEST-415)939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 10 CLS:CLEAR:DEFSTRA,I:DEFINTM-X:DIMA(31) 15 PRINT@81,"Enter 7-to-10 DIGIT number":PRINT" (ie your phone # or social security #)":PRINT" NUMBERS ONLY, no hyphens of commas":LINEINPUTA(0):M=LEN(A(0)) 20 IFM<4GOTO10 25 CLS:LINE(10,20)-(M*20,20) 30 FORX=3TOM*3STEP3:N=VAL(MID$(A(0),X/3,1)):IFN=0THENA(X-2)="Z":A(X-1)="Z":A(X)="Z" 31 IFN=1THENA(X-2)="_":A(X-1)="_":A(X)="_" 32 IFN=2THENA(X-2)="A":A(X-1)="B":A(X)="C" 33 IFN=3THENA(X-2)="D":A(X-1)="E":A(X)="F" 34 IFN=4THENA(X-2)="G":A(X-1)="H":A(X)="I" 35 IFN=5THENA(X-2)="J":A(X-1)="K":A(X)="L" 36 IFN=6THENA(X-2)="M":A(X-1)="N":A(X)="O" 37 IFN=7THENA(X-2)="P":A(X-1)="R":A(X)="S" 38 IFN=8THENA(X-2)="T":A(X-1)="U":A(X)="V" 39 IFN=9THENA(X-2)="W":A(X-1)="X":A(X)="Y" 40 PRINT@39+X,N;:PRINT@120+X,A(X-2);:PRINT@160+X,A(X-1);:PRINT@200+X,A(X);:PRINT@281,"";:NEXTX:X=0 45 IFINKEY$=""GOTO45 50 CLS:FORW=28TO30:FORV=25TO27:FORU=22TO24:FORT=19TO21:FORS=16TO18:FORR=13TO15:FORQ=10TO12:FORP=7TO9:FORO=4TO6:FORN=1TO3 55 X=X+1:IFM<8THENPRINT" ";A(N);A(O);A(P);A(Q);A(R);A(S);A(T);:GOTO65 60 PRINT" ";A(N);A(O);A(P);A(Q);A(R);A(S);A(T);A(U);A(V);A(W);:IFXMOD3=0THENPRINT" " 65 IFCSRLIN=7THENGOTO75 70 NEXTN:NEXTO:NEXTP:NEXTQ:NEXTR:NEXTS:NEXTT:NEXTU:NEXTV:NEXTW:GOTO80 75 PRINT@281,"(M) more"; 80 PRINT@294,"(Q) quit (R) restart"; 85 I=INKEY$:IFI=""GOTO85ELSECLS:ONINSTR("RrMmQq",I)GOTO10,10,70,70,95,95 90 GOTO85 95 MENU