1 DIMD$(24):DIML$(7,3):INPUT"telephone#";T$:FORN=1TO24:D$(N)=CHR$(N+64+INT(N/17)):NEXT:FORT=1TO7:I=VAL(MID$(T$,T,1)):if i<2 then print"sorry,wrong number":end
2FORA=3*I-5TO3*I-3:L$(T,A-3*I+6)=D$(A):NEXT:NEXT:FOR A=1TO3:FORB=1TO3:FORC=1 TO3:FORD=1TO3:FORE=1TO3:FORF=1TO3:FORG=1TO3:PRINT L$(1,A)+L$(2,B)+L$(3,C)+L$(4,D)+L$(5,E)+L$(6,F)+L$(7,G):NEXT:NEXT:NEXT:NEXT:NEXT:NEXT:NEXT