Takie zagadnienie:
Mam trzy zestawy danych oznaczone etykietami.
Jak w kodzie przekazać nazwę etykiety jako zmienną i czytać dane wskazywane przez tą etykietę?
Czyli chciałbym uzyskać taki efekt:
Oczywiście polecenie 'restore etykieta' nie zadziała, ale jak uzyskać podobny efekt?
Mam trzy zestawy danych oznaczone etykietami.
Jak w kodzie przekazać nazwę etykiety jako zmienną i czytać dane wskazywane przez tą etykietę?
Czyli chciałbym uzyskać taki efekt:
dim etykieta as string*2
dim x as byte
dim y as byte
dim z as byte
select case z
case 1:etykieta="E1"
case 2:etykieta="E2"
case 3:etykieta="E3"
end select
restore etykieta
for y=1 to 5
read x
print x
next
end
E1:
Data &H00 , &H01 , &HEF , &H02 , &H03
E2:
Data &H0A , &H01 , &H02 , &H03 , &HFF
E3:
Data &H0F , &H01 , &HFD , &H02 , &H03
Oczywiście polecenie 'restore etykieta' nie zadziała, ale jak uzyskać podobny efekt?