Pete's Dumb Idea of the Day!

[Pete]

Well with Select Case you would use...

Code: (Select All)

 

Rem  demo Restore : On x Restore idea    vs Select Case

For x = 1 To 4

     Select Case x

        Case 1

            Restore data1

        Case 2

            Restore data2

        Case 3

            Restore data3

        Case 4

            Restore data4

    End Select

    Print "----------------------------------------------" 

    Read number, nam$, Order$

    Print number, nam$, Order$

Next

End

data1:

Data 1,one,the first

data2:

Data 2,two,the second

data3:

Data 3,three,the third

data4:

Data 4,four,the forth

Pete