GUI help

[hey_joe42]

im doing a program in records, like im not sure how to input the data into file using GUI, i got it all to work with just being a binary file but i would like to make it look fancy but im just not advanced enough for gui, like im studying it and have a text book anyways if anyone can help me it be greatly appreciate, and it will teach me more about GUI,

here is what i have for my file now, remember it binaray (read, write instead of get/put but you know that)
%%%%%RECORD%%%%%%%
type inventory :
record
product : string (10) %the product's name
manufacturer : string (10) %The company that made product
price : real %the products price%real
number : int %the number of products in the warehouse%int
reorder : int %the number which to order more; unsafe number%int
numinstock : int %the number that should be kept in stock %int
prodnumber : string (8) %the products id number %string
amtorder : int %the ammount to order
cater : string (10) %what the product catergories as
%ammount to reorder,
%product number
sale : boolean
end record
%%%%%%%%%%%%%%
put "Product name"
get prod.product : *
if prod.product = "none" then
close : fn
mainmenu
end if
put "Enter the Manufacturer"
get prod.manufacturer : *
put "Price"
get prod.price
put "Amount"
get prod.number
put "warning number"
get prod.reorder
put "Enter number to reorder"
get prod.numinstock
put "Enter products number"
get prod.prodnumber
put "What catergory is the product"
get prod.cater : *
put "enter true if product is on sale, else key in false"
get prod.sale

it would be greatly appreciate any help i could get, the more the merrier tho
thanks in advance