home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
tel
/
numwrd.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
29 lines
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,"<PRESS ANY KEY TO COMPUTE WORDS>";: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