scramble.bas

来自「smallbasic for linux」· BAS 代码 · 共 56 行

REM [e-mail]

    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