REM ckurtz11@home.net rem scramble: a program to scramble a string 10 rem get a new string, check it, save it, and print it as is print "What would you like to scramble" print "(a string of 3 to 12 characters) ";:input ao$ if len(ao$) > 12 then 10 if len(ao$) < 3 then 10 randomize timer 20 rem scramble (again) print:print ao$ a$ = ao$ an$=a$ count = 1 30 rem generate a random number between 1 and len(ao$) rem and check to see if that letter is available pick = int(rnd*len(ao$) + 1) ag$ = mid$(a$, pick, 1) if ag$ = "." then 30:rem letter is taken 40 rem place period claiming letter if pick = 1 then a$ = "." + right$(a$,len(ao$) - 1):goto 50 if pick = len(ao$) then a$ = left$(a$,len(ao$) - 1) + ".":goto 50 a$ = left$(a$,pick-1) + "." + right$(a$,len(ao$) - pick) 50 rem place letter in an$ if count = 1 then an$ = ag$ + right$(an$,len(ao$) - 1):goto 70 if count = len(ao$) then an$ = left$(an$,len(ao$) - 1) + ag$:goto 70 an$ = left$(an$,count - 1) + ag$ + right$(an$,len(ao$) - count) 70 count = count + 1 if count > len(ao$) then 100 goto 30 100 print "..........":print an$ 110 rem does the user want to scramble again print:print "again(y/n) ";:input ag$ if ag$ = "Y" or ag$ = "y" then 20 if ag$ = "N" or ag$ = "n" then 120 goto 130 120 rem does the user want to input a new string print:print:print "another word(y/n) ";:input ag$ if ag$ = "Y" or ag$ = "y" then 10 130 print:print:print "Thank you for using 'scramble'." print "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" end