CLS
RANDOMIZE TIMER
OPTION BASE 1
coin = 0
x = 1
flag = 0

DIM Garmcolor(12) AS STRING
'colors here
colors:
Garmcolor$(x) = "red"
x = x + 1
Garmcolor$(x) = "orange"
x = x + 1
Garmcolor$(x) = "yellow"
x = x + 1
Garmcolor$(x) = "green"
x = x + 1
Garmcolor$(x) = "blue"
x = x + 1
Garmcolor$(x) = "purple"
x = x + 1
Garmcolor$(x) = "pink"
x = x + 1
Garmcolor$(x) = "brown"
x = x + 1
Garmcolor$(x) = "white"
x = x + 1
Garmcolor$(x) = "black"
x = x + 1
Garmcolor$(x) = "gray"
x = x + 1

PRINT

Colorholder$ = Garmcolor(INT(RND * 11) + 1)
PRINT Colorholder$

'roll if its full length (dress/etc) or 2-part (shirt + pants/etc)

coin% = (INT(RND * 2) + 1)
IF coin% = 1 THEN GOTO singlet
GOTO multi


singlet:
DIM Singtype(10)
x = 1
Singtype$(x) = "overalls"
x = x + 1
Singtype$(x) = "sundress"
x = x + 1
Singtype$(x) = "bathrobe"
x = x + 1
Singtype$(x) = "trenchcoat"
x = x + 1
Singtype$(x) = "onesie"
x = x + 1
Singtype$(x) = "boilersuit"
x = x + 1
Singtype$(x) = "wetsuit"
x = x + 1
Singtype$(x) = "bathing suit"
x = x + 1
Singtype$(x) = "uniform"
x = x + 1
Singtype$(x) = "business suit"
x = x + 1
Singholder$ = Singtype$(INT(RND * 10) + 1)
PRINT Singholder$
END


multi:
x = 1
'upperwear here
DIM Upperwear(5)
Upperwear$(x) = "teeshirt"
x = x + 1
Upperwear$(x) = "sweater"
x = x + 1
Upperwear$(x) = "buttondown"
x = x + 1
Upperwear$(x) = "blouse"
x = x + 1
Upperwear$(x) = "tanktop"
x = x + 1

upholder$ = Upperwear$(INT(RND * 5) + 1)
PRINT upholder$

'more color
Colorholder$ = Garmcolor(INT(RND * 11) + 1)
PRINT Colorholder$



'lowerwear here
DIM Lowerwear(5)
Lowerwear$(x) = "shorts"
x = x + 1
Lowerwear$(x) = "slacks"
x = x + 1
Lowerwear$(x) = "skirt"
x = x + 1
Lowerwear$(x) = "jeans"
x = x + 1
Lowerwear$(x) = "sweatpants"
x = x + 1

lowholder$ = Lowerwear$(INT(RND * 5) + 1)
PRINT lowholder$

END