#!/usr/bin/perl

require "curswin.pm";

&CLS;
&GREEN;
&MSG(1,1,"hello world");
$rep=INPUT(5,1,"Enter File: ",25,"");

print $rep;
exit;


$what=&SELECT(10,12,20,"select animal","cat","dogs","iguanna");

if ($what==1) { $msg="you picked a cat"; } elsif
($what==2) { $msg="you picked a dog"; } elsif
($what==3) { $msg="you picked an igunna"; } elsif
($what==-1) { $msg="entry aborted"; }

&MSG(20,30,$msg);


&TEXT(6,45,30,"this is a demo","of multiple line","text output");

&UNBOX(1,1,3,20);

@text=&MLINES(1,1,30,5,"enter captain's log");

&MSG(20,1,"end of demo");
&CPOS(23,1);

