1 REMThis is another version of TELNUM.JS
2 REMin DL4.It will printout in 9 columns
3 REMand accepts 0's and 1's.  It prints
4 REMall the possible letter combinations for a 7 digit phone number.
5 REMBy Jon Glatstein (71401,2320).   Do anything you want with it!
6 REM One number takes 4 pages and about 20 minutes
10 INPUT"HARDCOPY? (Y/N)";X$
20 IF X$="Y" THEN 30 ELSE 35
30 LPRINT"ANY ZEROS OR ONES WILL APPEAR AS A ZERO OR A ONE, NOT A LETTER"
35 PRINT"ANY ZEROS OR ONES WILL APPEAR AS A ZERO OR A ONE, NOT A LETTER."
40 DIMD$(30):DIML$(9,3)
42 INPUT"telephone#";T$:FORN=1TO27:D$(N)=CHR$(N+64+INT(N/17)):NEXT
45 IF LEN(T$)<>7 THEN PRINT"NOT 7 DIGITS":GOTO 42
50 FORT=1TO7:I=VAL(MID$(T$,T,1))
60 FORA=3*I-5TO3*I-3
70 IF I=0 THEN LET L$(T,(A-3*I+6))=CHR$(48)
80 IF I=1 THEN LET L$(T,(A-3*I+6))=CHR$(49)
90 IF I>1 THEN LET L$(T,(A-3*I+6))=D$(A)
100 NEXTA:NEXTT
110 IF X$="Y" THEN LPRINT T$
120 FOR A=1TO3:FORB=1TO3:FORC=1 TO3:FORD=1TO3:FORE=1TO3:FORF=1TO3:FORG=1TO3
130 W$=L$(1,A)+L$(2,B)+L$(3,C)+L$(4,D)+L$(5,E)+L$(6,F)+L$(7,G):GOSUB200
140 NEXTG:NEXTF:NEXTE:NEXTD:NEXTC:NEXTB:NEXTA
200 PRINT W$
210 IF X$="N" THEN RETURN
220 IF G=1 AND F=1 THEN J1$=W$
230 IF G=2 AND F=1 THEN J2$=W$
240 IF G=3 AND F=1 THEN J3$=W$
250 IF G=1 AND F=2 THEN J4$=W$
260 IF G=2 AND F=2 THEN J5$=W$
270 IF G=3 AND F=2 THEN J6$=W$
280 IF G=1 AND F=3 THEN J7$=W$
290 IF G=2 AND F=3 THEN J8$=W$
300 IF G=3 AND F=3 THEN J9$=W$
310 IF G=3 AND F=3 THEN LPRINT J1$"  "J2$"  "J3$"  "J4$"  "J5$"  "J6$"  "J7$"  "J8$"  "J9$
320 IF A+B+C+D+E+F+G=21 THEN 400
330 RETURN
400 INPUT"<A>nother copy, another <N>umber, <M>enu";Z$
410 IF Z$="A" THEN 50
420 IF Z$="N" THEN CLEAR:GOTO 10
430 IF Z$="M" THEN MENU
440 GOTO 400