Re: TIB: Re: IM DUMB, BIG FAVOR
[Prev][Next][Index][Thread]
Re: TIB: Re: IM DUMB, BIG FAVOR
In a message dated 98-01-20 20:26:10 EST, you write:
<< This will save 6 Items. You can expand it to however many you want, but be
carefull not to try to display more than 8 lines at a time. The user can
only see the last 8.
:Menu("Welcome","Buy",A,"Inventory",B,"Exit,C)
:Lbl A
:7\->\dim INV
:Disp "Shop"
:Disp "1:Item1"
:Disp "2:Item2"
:Disp "3:Item3"
:Disp "4:Item4"
:Disp "5:Item5"
:Disp "6:Item6"
:Input "0=None ?",AA
:If AA==0:Goto B
:INV(AA)+1\->\INV(AA)
:Goto A
:
:Lbl B
:Disp "Inventory"
:Disp "Item1= "
:Disp "Item2= "
:Disp "Item3= "
:Disp "Item4= "
:Disp "Item5= "
:Disp "Item6= "
:For(AA,1,6)
:Outpt(1+AA,8,INV(AA))
:End
:Pause
:Lbl C
:Stop
>>
hey Thanx mathew, this worked great!!!!-Frank
oh yeah and if anyone is following the RPG ELITE website thing, we have a 83
guy, but we should get more.
Follow-Ups: