# iConfig.bas

draw -1



dim a$(4)

a$(1)="Choose a Series,nul"

a$(2)="Series I ,S1"

a$(3)="Series II,S2"



dim b$(6)

b$(1)="Option 1,1"

b$(2)="Option 2,2"

b$(3)="Option 3,3"

b$(4)="Option 4,4"

b$(5)="Option 5,5"



dim c$(10)

c$(1)="Option1,1"

c$(2)="Option2,2"

c$(3)="Option3,3"

c$(4)="Option4,4"

c$(5)="Option 5,5"



dim d$(6)

d$(1)="Option 1,1"

d$(2)="Option 2,2"

d$(3)="Option 3,3"

d$(4)="Option 4,4"

d$(5)="Option 5,5"



dim e$(6)

e$(1)="Option 1,1"

e$(2)="Option 2,2"

e$(3)="Option 3,3"

e$(4)="Option 4,4"

e$(5)="Option 5,5"



dim f$(10)

f$(1)="Option 1,1"

f$(2)="Option 2,2"

f$(3)="Option 3,3"

f$(4)="Option 4,4"

f$(5)="Option 5,5"



dim g$(6)

g$(1)="Option 1,1"

g$(2)="Option 2,2"

g$(3)="Option 3,3"

g$(4)="Option 4,4"

g$(5)="Option 5,5"



dim af1$(4)

dim bf1$(6):dim cf1$(6)

dim df1$(6):dim ef1$(6)

dim ff1$(6):dim gf1$(6)



dim af2$(4)

dim bf2$(6):dim cf2$(6)

dim df2$(6):dim ef2$(6)

dim ff2$(6):dim gf2$(6)



for i=1 to 3

af1$(i)=field$(a$(i),1,",")

af2$(i)=field$(a$(i),2,",")

next i



for j=1 to 5

bf1$(j)=field$(b$(j),1,",")

cf1$(j)=field$(c$(j),1,",")

df1$(j)=field$(d$(j),1,",")

ef1$(j)=field$(e$(j),1,",")

ff1$(j)=field$(f$(j),1,",")

gf1$(j)=field$(g$(j),1,",")

bf2$(j)=field$(b$(j),2,",")

cf2$(j)=field$(c$(j),2,",")

df2$(j)=field$(d$(j),2,",")

ef2$(j)=field$(e$(j),2,",")

ff2$(j)=field$(f$(j),2,",")

gf2$(j)=field$(g$(j),2,",")

 next j



draw "Part Number Generator",2,18,1

draw 2,30,158,30,1

draw 2,47,158,47,1

draw 2,75,158,75,1

draw 2,105,158,105,1



form lst 2,35,3,1,af1$,1

form lst 2,50,5,1,bf1$,1

form lst 2,60,5,1,cf1$,1

form lst 2,80,5,1,df1$,1

form lst 2,90,5,1,ef1$,1

form lst 2,110,5,1,ff1$,1

form lst 2,120,5,1,gf1$,1

form btn 40,147,60,12, "Enter",1



while

top:

x = asc(input$(1))

if val(s$(0))=1 then goto alert

if val(s$(0))>1 then goto go



alert:

print "Select a Series."

goto top



go:

a=af2$(0)+s$(0)

b=bf2$(0)+s$(1)

c=cf2$(0)+s$(2)

d=df2$(0)+s$(3)

e=ef2$(0)+s$(4)

f=ff2$(0)+s$(5)

g=gf2$(0)+s$(6)



pn$="Part Number: "



print pn$+af2$(a)+" "+bf2$(b)+cf2$(c)+df2$(d)+ef2$(e)+ff2$(f)+gf2$(g)



wend



end

    Source: geocities.com/greenchile505