# Airliner.bas

draw -1



dim a$(10)

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

a$(2)="737-300 ,37-3"

a$(3)="737-400,37-4"

a$(4)="747-400,47-4"

a$(5)="757-200,57-2"

a$(6)="767-300,67-3"



dim b$(10)

b$(1)="Short Range,S"

b$(2)="Long Range,L"

b$(3)="Extended,E"

b$(4)="Domestic I,D1"

b$(5)="Dometic II,D2"



dim c$(10)

c$(1)="Seating Config I,S1"

c$(2)="Seating Config II,S2"

c$(3)="Seating Config III,S3"

c$(4)="Seating Config IV,S4"

c$(5)="Seating Config V,S5"



dim d$(10)

d$(1)="Avionics Pkg I,1"

d$(2)="Avionics Pkg II,2"

d$(3)="Avionics Pkg III,3"

d$(4)="Avionics Pkg IV,4"

d$(5)="Avionics Pkg V,5"



dim e$(10)

e$(1)="Interior I,N1"

e$(2)="Interior II,N2"

e$(3)="Interior III,N3"

e$(4)="Interior IV,N4"

e$(5)="Interior V,N5"



dim f$(10)

f$(1)="Passenger I,P1"

f$(2)="Passenger II,P2"

f$(3)="Passenger III,P3"

f$(4)="Freight I,F4"

f$(5)="Freight II,F5"



dim g$(10)

g$(1)="Paint I,PT1"

g$(2)="Paint II,PT2"

g$(3)="Livery I,L1"

g$(4)="Livery II,L2"

g$(5)="No Paint,PT0"



dim af1$(10)

dim bf1$(10):dim cf1$(10)

dim df1$(10):dim ef1$(10)

dim ff1$(10):dim gf1$(10)



dim af2$(10)

dim bf2$(10):dim cf2$(10)

dim df2$(10):dim ef2$(10)

dim ff2$(10):dim gf2$(10)



for i=1 to 6

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 N'Gen",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,6,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