100 FOR X = 1 TO LEN("YANKKES"):PRINT X,MID$("YANKKES",X,1):Y! = BBB!:NEXT
110 FOR NUMLEN = 1 TO 100
120 BIGNUM# = VAL(STRING$(NUMLEN,"9"))
122 IF NUMLEN > 17 THEN PLAY "N"+STR$(NUMLEN)
130 PRINT BIGNUM#
140 NEXT NUMLEN