%%HP: T(3)A(D)F(.);
\<< CLEAR FORMAT
(-5.5,.6)
"2. Make an Entry"
2 GLABEL (-5.5,1.5)
"1. View an Entry"
2 GLABEL (-5.5,-.3)
"3. Change font size"
2 GLABEL
(-5.5,-1.2)
"4. Options" 2
GLABEL (-5.5,-2.1)
"5. Exit" 2 GLABEL
0 WAIT DUP
  IF 82.1 ==
  THEN CLEAR ALIST
'THISIT' STO
VIEWNTRY
  END DUP
  IF 83.1 ==
  THEN CLEAR
MAKENTRY
  END DUP
  IF 84.1 ==
  THEN CLEAR
FNTCHNG
  END
  IF 72.1 ==
  THEN OPS
  END CLEAR
PICTSAVE PICT STO
SAVESTACK OBJ\-> DROP
'SAVESTACK' PURGE
'PICTSAVE' PURGE
CONT
\>>
