'Random Insult Generator Version 0.1h
'Released under a GPU License
'must provide original and src code.
'Creator: user99672@live.com
GOTO DimVars

DimVars:
DIM SHARED Num1
DIM SHARED Num2
DIM SHARED Num3
DIM SHARED Insult$
DIM SHARED Part1$
DIM SHARED Part2$
DIM SHARED Part3$
GOTO StartRandomizers

StartRandomizers:
RANDOMIZE TIMER
Num1 = INT(RND * 10) + 1
Num2 = INT(RND * 10) + 1
Num3 = INT(RND * 10) + 1
GOTO SetNum1

SetNum1:
IF Num1 = 1 THEN Part1$ = "You are"
IF Num1 = 2 THEN Part1$ = "Your mom is"
IF Num1 = 3 THEN Part1$ = "Your dad is"
IF Num1 = 4 THEN Part1$ = "Your brother is"
IF Num1 = 5 THEN Part1$ = "Your sister is"
IF Num1 = 6 THEN Part1$ = "Your grandmother is"
IF Num1 = 7 THEN Part1$ = "Your grandpa is"
IF Num1 = 8 THEN Part1$ = "Your husband is"
IF Num1 = 9 THEN Part1$ = "Your wife is"
IF Num1 = 10 THEN Part1$ = "Your spouse is"
GOTO SetNum2

SetNum2:
IF Num2 = 1 THEN Part2$ = "a fucking"
IF Num2 = 2 THEN Part2$ = "a motherfucking"
IF Num2 = 3 THEN Part2$ = "a shitty"
IF Num2 = 4 THEN Part2$ = "a damned"
IF Num2 = 5 THEN Part2$ = "a god-damned"
IF Num2 = 6 THEN Part2$ = "a pissy"
IF Num2 = 7 THEN Part2$ = "a whining"
IF Num2 = 8 THEN Part2$ = "a cock-sucking"
IF Num2 = 9 THEN Part2$ = "a gay-ass"
IF Num2 = 10 THEN Part2$ = "a dog kicking"
GOTO SetNum3

SetNum3:
IF Num3 = 1 THEN Part3$ = "pussy"
IF Num3 = 2 THEN Part3$ = "wuss"
IF Num3 = 3 THEN Part3$ = "cunt"
IF Num3 = 4 THEN Part3$ = "dick"
IF Num3 = 5 THEN Part3$ = "whore"
IF Num3 = 6 THEN Part3$ = "skank"
IF Num3 = 7 THEN Part3$ = "cheater"
IF Num3 = 8 THEN Part3$ = "liar"
IF Num3 = 9 THEN Part3$ = "bitch"
IF Num3 = 10 THEN Part3$ = "sex offender"
GOTO InsultUser

InsultUser:
BEEP
Insult$ = Insult$ + Part1$ + " " + Part2$ + " " + Part3$
PRINT
PRINT Insult$
PRINT
PRINT "How does that make you feel now? Ha!"
PRINT
PRINT "Press any key to continue."
SLEEP
END