dim x$
dim y$
dim z$
print " Podaj imie :"
input x$
locate 1,3:print "Podaj wiek :"
input y$
locate 1,5:print "Podaj kolor oczu :"
input z$
locate 1,9:print "Imie : "
locate 8,9:print x$
locate 1,11:print "Wiek : "
locate 8,11:print y$
locate 1,13:print "Kolor oczu : "
locate 14,13:print z$
'program wpisuje dane o osobie z klawiatury i zapisuje je pod
'zmiennymi x$,y$,z$
'następnie wyświetla te informacje niżej na ekranie
'warto tu zwrócić uwagę że w tym programie nie deklarowaliśmy
'zmiennych jako określony typ