Program Pull_Tech_For_ViSiON;

Uses CRT, FastTTT5,DOS,WinTTT5,MenuTTT5,PullTTT5;

(* Pulldown Menus For ViSiON; Use'n Techo-Jock's ToolKit 5.0 *)

var
   Main_Choice,Choice,Error : integer;
   ScanTop, ScanBot : byte;
   M1, MM : Menu_record;
   Ch : char;

Procedure Which_Chat;
begin
    Menu_Set(M1);
    With M1 do
    begin
        Heading1 := 'ViSiON v0.82 Online SysOp Chat Commands';
        Heading2 := 'Chat Commands';
        Topic[1] := '   Regular Color - Split Screen';
        Topic[2] := '   Multi-Colored - Split Screen';
        Topic[3] := '   Regular Color - Veritcal Chat';
        Topic[4] := '   Mulit-Colored - Vertical Chat';
        Topic[5] := '   Regular Color - One Line Chat';
        Topic[6] := '   Quit Chat Menu';
        TotalPicks := 6;
        PicksPerLine := 1;            {one column of choices}
        Addprefix := 1;               {add function key prefixes}
        TopleftXY[1] := 0;            {system will center menu}
        TopleftXY[2] := 3;            {Y coordinate}
        Boxtype := 5;                 {fancy box}
        If ColorScreen then
        begin
            Colors[1] := white;           {hi forground}
            Colors[2] := magenta;            {hi background}
            Colors[3] := lightgray;             {lo foreground}
            Colors[4] := blue;       {lo background}
            Colors[5] := lightgray;            {box color}
        end
        else
        begin
            Colors[1] := white;           {hi forground}
            Colors[2] := black;            {hi background}
            Colors[3] := black;             {lo foreground}
            Colors[4] := lightgray;       {lo background}
            Colors[5] := white;            {box color}
        end;
        AllowEsc := false;            {inactivate the escape key}
        Margins := 5;
end;  {with M1 do}
end; {Define_Menu1}

Var X,Y:Byte;
    Done:Boolean;
Begin
Activate_Visible_Screen;
    SlideRestoreSCreen(2,Down);
    Clrscr;
    FillScreen(1,1,80,24,white,blue,chr(176));
    Findcursor(X,Y,ScanTop,ScanBot);
    OffCursor;
    Main_Choice := 1;
    Done:=False;
    repeat
     Which_Chat;
     DisplayMenu(M1,false,Main_Choice,Error);
     Case Main_Choice of
     1 :Begin WriteLn('Wow!'); End;
     2 :Begin WriteLn('Whoa'); End;
     3 :Begin WriteLn('Ohhh'); End;
     4 :Begin WriteLn('aka'); End;
     5 :Begin WriteLn('alala'); End;
     6 :Done:=True;
     end;  {case}
until Done;
OnCursor;
End.