Category : Pascal Source Code
Archive   : TJOCKOT3.ZIP
Filename : DEMMN7.PAS

 
Output of file : DEMMN7.PAS contained in archive : TJOCKOT3.ZIP
program DemoMenuSeven;
{DEMMN7 - using EZPull objects}
USES DOS, CRT,
totMENU, totFAST;

var
Menu: EZPullArrayOBJ;
Choice: word;

procedure CreateMenu;
{}
var
Mtxt: Array[1..84] of string[90];
begin
MTxt[1] := '\ ð "System Commands';
MTxt[2] := ' ~A~bout... "Show version and copyright information"100';
MTxt[3] := ' ~R~efresh display "Redraw the screen"101';
MTxt[4] := ' ~C~lear desktop "Close all windows on the desktop, clear history lists"102';
MTxt[5] := '\ ~F~ile "File management commands (Open, New, Save, etc.)';
MTxt[6] := ' ~O~pen... "Locate and open a file in an edit window"201';
MTxt[7] := ' ~N~ew "Create a new file in a new Edit window"202';
MTxt[8] := ' ~S~ave "Save the file in the active Edit window"203';
MTxt[9] := ' S~a~ve as... "Save the current file under a different name"204';
MTxt[10] := ' Save a~l~l "Save all modified files"205';
MTxt[11] := '-';
MTxt[12] := ' ~C~hange dir... "Choose a new default directory"206';
MTxt[13] := ' ~P~rint "Print the contents of the active Edit window"207';
MTxt[14] := ' ~G~et info... "Show status information"208';
MTxt[15] := ' ~D~OS shell "Temporarily exit to DOS"209';
MTxt[16] := ' E~x~it "Exit Turbo Pascal"9999';
MTxt[17] := '\ ~E~dit "Cut-and-paste editing commands"';
MTxt[18] := '_ ~R~estore line "Cancel edits to the current line in active Edit window"301';
MTxt[19] := '-';
MTxt[20] := '_ Cu~t~ "Remove the selected text and put it in the Clipboard"302';
MTxt[21] := '_ ~C~opy "Copy the selected text into the Clipboard"303';
MTxt[22] := '_ ~P~aste "Insert selected text from the Clipboard"304';
MTxt[23] := '_ Copy e~x~ample "Copy example from the Help window into the ClipBoard"305';
MTxt[24] := ' ~S~how clipboard "Open the Clipboard window"306';
MTxt[25] := '-';
MTxt[26] := '_ C~l~ear "Delete the selected text';
MTxt[27] := '\ ~S~earch "Text and error search commands';
MTxt[28] := ' ~F~ind... "Search for text"401';
MTxt[29] := ' ~R~eplace... "Search for text and replace it with new text"402';
MTxt[30] := ' ~S~earch again "Repeat the last Find or Replace command"403';
MTxt[31] := ' ~G~oto line number... "Move the cursor to a specified line number"404';
MTxt[32] := ' ~F~ind procedure... "Search for a procedure or function while debugging"405';
MTxt[33] := ' Find e~r~ror... "Move the cursor to the position of a runtime error"406';
MTxt[34] := '\ ~R~un "Execute or single-step through a program';
MTxt[35] := ' ~R~un "Run the current program"501';
MTxt[36] := '_ ~P~rogram reset "Halt debugging session and release memory"502';
MTxt[37] := ' ~G~o to cursor "Run program from the run bar to the cursor position"503';
MTxt[38] := ' ~T~race into "Execute next statement, stopping within the current proc"504';
MTxt[39] := ' ~S~tep over "Execute next statement, skipping over the current proc"505';
MTxt[40] := ' P~a~rameters... "Set command line parameters to be passed to the program"506';
MTxt[41] := '\ ~C~ompile "Compile to disk or memory';
MTxt[42] := ' ~C~ompile "Compile source file"601';
MTxt[43] := ' ~M~ake "Rebuild source file and all modified files"602';
MTxt[44] := ' ~B~uild "Rebuild source file and all files"603';
MTxt[45] := ' ~D~estination "Specify whether file is compiled to memory or disk"604';
MTxt[46] := ' ~P~rimary file... "Define the file that is the focus of make and Build"605';
MTxt[47] := '\ ~D~ebug "Evaluate expressions, modify data, set breakpoints and watches';
MTxt[48] := ' ~E~valute/modify "Evaluate a variable or expression and display or modify the value"701';
MTxt[49] := ' ~W~atches "Add, delete and edit expressions in the watch window"702';
MTxt[50] := ' ~T~oggle breakpoint "Set or clear an unconditional breakpoint at the cursor position"703';
MTxt[51] := ' ~B~reakpoints... "Set conditional breakpoints, view and edit breakpoints"704';
MTxt[52] := '\ ~O~ptions "Set defaults for compiler, editor, mouse, debugger, etc.';
MTxt[53] := ' ~C~ompiler "Set default compiler directives and condl. defines"801';
MTxt[54] := ' ~M~emory sizes... "Set default stack and heap sizes for generated programs"802';
MTxt[55] := ' ~L~inker... "Set linker options"803';
MTxt[56] := ' De~b~ugger... "Set debugger options"804';
MTxt[57] := ' ~D~irectories... "Set paths for units, include files, OBJs anfd generated files"805';
MTxt[58] := '-';
MTxt[59] := ' ~E~nvironment "Specify environment settings"806';
MTxt[60] := '-';
MTxt[61] := ' ~S~ave options... "Save all the settings you''ve made in the Options menu"807';
MTxt[62] := ' ~R~etrieve options... "Load options file previously created with Save Options"808';
MTxt[63] := '\ ~W~indow "Open, arrange, and list windows';
MTxt[64] := ' ~S~ize/Move "Change the size or position of the active window"901';
MTxt[65] := ' ~Z~oom "Enlarge or restore the size of the active window"902';
MTxt[66] := ' ~T~ile "Arrange windows on desktop by tiling"903';
MTxt[67] := ' C~a~scade "Arrange windows on desktop by cascading"904';
MTxt[68] := ' ~N~ext "Make the next window active"905';
MTxt[69] := ' ~P~revious "Make the previous window active"906';
MTxt[70] := ' ~C~lose "Close the active window"907';
MTxt[71] := '-';
MTxt[72] := ' ~W~atch "Open the watch window"908';
MTxt[73] := ' ~R~egister "Open the Register window"909';
MTxt[74] := ' ~O~utput "Open the Output window"910';
MTxt[75] := ' Call stac~k~ "Show the procedures the program called to reach this point"911';
MTxt[76] := ' ~U~ser screen "Switch to the full-screen user output"912';
MTxt[77] := '-';
MTxt[78] := ' ~L~ist... "Show a list of all open windows"913';
MTxt[79] := '\ ~H~elp "Get online help';
MTxt[80] := ' ~C~ontents "Show table of contents of online Help"1001';
MTxt[81] := ' ~I~ndex "Show index for online Help"1002';
MTxt[82] := ' ~T~opic Search "Display help on the word at the cursor"1003';
MTxt[83] := ' ~P~revious Topic "Redisplay the last-viewed online Help screen"1004';
MTxt[84] := ' ~H~elp on Help "How to use online Help"1005';
with Menu do
begin
Init;
AssignList(MTxt,84,90);
end;
end; {CreateMenu}

begin
Screen.PartClear(1,2,80,24,white,'°'); {paint the screen}
Screen.PartClear(1,1,80,1,31,' ');
Screen.PartClear(1,25,80,25,31,' ');
Screen.WritePlain(9,25,'³');
CreateMenu;
with Menu do
begin
Choice := Push(13,0,0); {Pass Enter to make menu pull down}
Done;
end;
GotoXY(25,15);
if Choice = 0 then
Writeln('You escaped')
else
Writeln('You selected menu item ',Choice)
;
end.

  3 Responses to “Category : Pascal Source Code
Archive   : TJOCKOT3.ZIP
Filename : DEMMN7.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/