Words 16:58 25--Nov.--1975 LANGUAGE BASIC
| 05 DIM X(30) | 71 RESTORE |
| 40 READ A $ | 19 RESTORE |
| 06 DIM A (30) | 74 NEXT L |
| 45 CHANGE A$ TO A | 20 INPUT XS |
| 10 PROGRAM TO CONVERT | 76 PRINT T |
| 50 IF A(1) = x(L) THEN 70 LETTERS TO NUMBERS | 21 T = 0 |
| 60 NEXT J | 78 GO TO 19 |
| DATA A-B-C-D-E-F-G-H-I | 25 CHANGE X$ TO X |
| 62 GO TO 31 | 100 END |
| 12 J-K-L-M-N-O-P-Q | 27 FOR L = 1 TO X(0) |
| 70 T = T + J | 100 END |
| DATA S-T-U-V-W-X-Y-Z-0 | 31 FOR J |