Insult generator!

[Lithium]

Make your own program that generates random insults

here's mine

(freebasic only)

Code:

defint a-z

type word
    w as string
    nxt(50) as string
    ncnt as integer
end type

dim wr(50) as word
wc = 0

read startend

do
    read c1
    if c1 = 0 then exit do
    
    wcstart = wc
    for i=0 to c1-1
        read wrd$
        wr(wc).w = wrd$
        wc = wc + 1
    next i

    read c2
    for i = 0 to c2-1
        read wrd$
        for j = wcstart to wc-1
            wr(j).nxt(i) = wrd$
        next j
    next i
    
    for j = wcstart to wc-1
        wr(j).ncnt = c2
    next j
loop

randomize timer

print "Press enter, if you wanna get BURNED"
do
    sleep
    cls
    
    ind = fix(rnd * startend)
    print wr(ind).w;
    do
        do
            r = fix(rnd * wr(ind).ncnt)
        loop until wr(ind).nxt(r) <> wr(ind).w

        if wr(ind).nxt(r) = "END" then
            print "!"
            exit do
        else
            print " ";
        end if
        for i = 0 to wc-1
            if wr(i).w = wr(ind).nxt(r) then
                print wr(i).w;
                ind = i
                exit for
            end if
        next i
        if i = wc then
            color 4
            print wr(ind).nxt(r) + " has no forward links. ";
            color 7
        end if
    loop
loop

'starts
data 2
data 1, "hello",  2, "you", "there"
data 1, "you",  5, "suck", "bite", "lick", "eat", "screw"
data 1, "there", 1, "you"
data 5, "suck", "bite", "lick", "eat", "screw", 7, "wood", "crack", "turds", "old", "rotten", "ugly", "retarted"
data 4, "rancid", "rotten", "infected", "old", 4, "old", "wood", "jocks", "milk"
data 7, "turds", "crack", "retards", "bags", "wood", "jocks", "milk", 3, "with", "and", "END"
data 2, "ugly", "retarted", 2, "bags", "retards"
data 1, "and", 1, "you"
data 1, "with", 7, "infected", "your", "old", "rotten", "ugly", "retarted", "rancid"
data 1, "your", 5, "old", "rotten", "ugly", "retarted", "rancid"
data 2, "rotten", "rancid", 1, "old"
data 0