home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / numwrd.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  29 lines

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