1: CLS 2: LINE INPUT ; word$ 3: length = LEN(word$) 4: search$ = MID$(word$, 1, 1) 5: LOCATE 2, 1: PRINT length; search$; " "; word$ 6: IF search$ = "A" GOTO A 7: IF search$ = "B" GOTO B 8: IF search$ = "C" GOTO C 9: IF search$ = "D" GOTO D 10: IF search$ = "E" GOTO E 11: IF search$ = "F" GOTO F 12: IF search$ = "G" GOTO G 13: IF search$ = "H" GOTO H 14: IF search$ = "I" GOTO I 15: IF search$ = "J" GOTO J 16: IF search$ = "K" GOTO K 17: IF search$ = "L" GOTO L 18: IF search$ = "M" GOTO M 19: IF search$ = "N" GOTO N 20: IF search$ = "O" GOTO O 21: IF search$ = "P" GOTO P 22: 'IF search$ = "Q" GOTO Q 23: IF search$ = "R" GOTO R 24: IF search$ = "S" GOTO S 25: IF search$ = "T" GOTO T 26: IF search$ = "U" GOTO U 27: IF search$ = "V" GOTO V 28: IF search$ = "W" GOTO W 29: IF search$ = "X" GOTO X 30: IF search$ = "Y" GOTO Y 31: IF search$ = "Z" GOTO Z 32: GOTO eerr 33: A: 34: GOTO ender 35: B: 36: GOTO ender 37: C: 38: GOTO ender 39: D: 40: GOTO ender 41: E: 42: GOTO ender 43: F: 44: GOTO ender 45: G: 46: GOTO ender 47: H: 48: GOTO ender 49: I: 50: GOTO ender 51: J: 52: GOTO ender 53: K: 54: GOTO ender 55: L: 56: GOTO ender 57: M: 58: GOTO ender 59: N: 60: GOTO ender 61: O: 62: GOTO ender 63: P: 64: GOTO ender 65: R: 66: GOTO ender 67: S: 68: GOTO ender 69: T: 70: GOTO ender 71: U: 72: GOTO ender 73: V: 74: GOTO ender 75: W: 76: GOTO ender 77: X: 78: GOTO ender 79: Y: 80: GOTO ender 81: Z: 82: GOTO ender 83: 84: eerr: 85: END 86: 87: ender: 88: END 89: |