[#484]
Re: Farmiga : Work in progress
Lokalizacja: Poznań
Ignorowany przez 34 użytkowników
@tukinem,
post #483
Dim Towary$(31)
Global towary$(), Jezyk
Jezyk=1 : Rem 1-Polski , 2-English 3- Szkopski
Proc Wpisz_tow
Print "Nie badz Pan ";Towary$(6);" i ";Towary$(4)
End
Rem -----------------------------------
Procedure WPISZ_TOW
If Jezyk=1 Then Restore E_tow_PL
If Jezyk=2 Then Restore E_tow_ANG
If Jezyk=3 Then Restore E_tow_DE
For I=1 to 31
Read A$
Towary$(I)=A$
Next I
E_tow_PL:
Data "pszenica" , "kukurydza", "pomidor", "burak" , "marchew"
Data "ziemniak", "mleko" , "jajko" , "drozdze" , "butelka"
Data "cukier" ," bimber","miód", "krowa","kura"
Data "bimbrownia","cukrownia","ul","wędka","nozyce"
Data "owca","welna","dzien","ogrodzenie1", "ogrodzenie2"
Data "mlyn", "maka", "chleb", "kot", "piec"
Data "ogrodzenie3"
E_tow_ANG:
Data "wheat" , "corn", "tomato", "beet" , "carrot"
Data "potato", "milk" , "egg" , "yeast" , "bottle"
Data "sugar" ,"hooch","honey", "cow","hen"
Data "bimbrownia","cukrownia","ul","wędka","nozyce"
Data "sheep","wool","day","fence1", "fence2"
Data "windmill", "meal", "bread", "cat", "stove"
Data "fence3"
E_tow_DE:
Data "Merkel kaput, nie szprycham zi dojcz !"," "," "," "," "
Data " "," "," "," ", " "
Data " "," "," "," ", " "
Data " "," "," "," ", " "
Data " "," "," "," ", " "
Data " "," "," "," ", " "
Data " "
End Proc