var c:string(1)
loop
   getch c
   put "you pressed: ", c
end loop

var input : string (1) % (1) is needed when getching variable
%identifys the name of the procedure used to call it (run it) later
procedure drawcatface
    %put your code to draw cat face here
end drawcatface
%Start of main program loop to continually ask for input
put "Press p to see a picture. Press c to erase the picture. Press x to quit."
loop
    %Displays instructions
    getch (input)     %gets input from the user in the way of one character
    %Decide which key was entered and decides to draw cat face , clear the screen, or exit.
    if input = "p" or input = "P" then
        drawcatface %name of procedure just type its identifier to run the code in a procedure
    elsif input = "c" or input = "C" then
        cls %makes screen blank
        put "Press p to see a picture. Press c to erase the picture. Press x to quit."
    elsif input = "x" or input = "X" then
        put "Thanks for playing. Hope you had fun." %puts this and program no longer accepts input from the user
    end if
    exit when input = "x" or input = "X"     %will end program if  x or X is entered
    %if x or X wasn't entered it runs stays in loop
end loop
/*could also put
 put "Thanks for playing. Hope you had fun."
 here because it exits loop and run whatever is outside and it only exits when x or X is entered after is displays it nothing to run and program finishes*/