home *** CD-ROM | disk | FTP | other *** search
- program CALCU_demo;
-
- uses CRT, FASTTTT5, MISCTTT5, WINTTT5, KEYTTT5, CALC55;
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { - CALC - }
- {--------------------------------------------------------------------------}
- { Version 1.0 01/21/90 }
- {--------------------------------------------------------------------------}
- { (c) Copyright 1990 Final Frontier Software and William W. Miller, Jr. }
- { All rights reserved }
- {--------------------------------------------------------------------------}
- { This program calls the procedure Calculator from the CALC TPU }
- { The calculator unit default colors and number of decimal points }
- { are passed as global variables to the CALCULATOR unit. }
- { }
- { Refer to the documentation for further explanation of this and }
- { other add-on procedures: }
- { }
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { COLOR.TPU CAL.TPU CALC.TPU }
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { COLOR - Change global default colors }
- { CALC - A calculator with + - * / √ and memory functions }
- { works with keyboard or mouse }
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { The source code as shareware is available from: }
- { The Final Frontier BBS }
- { 1200, 2400, 9600 Baud }
- { (518) 761-0869 }
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { Date February 1, 1990 }
- {--------------------------------------------------------------------------}
- { Version 1.0 }
- {--------------------------------------------------------------------------}
- { Written by William W. Miller, Jr. }
- {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
-
- procedure quit;
- begin
- reset_startup_mode;
- mkwin(1,1,80,8,white,blue,1);
- writecenter(2, White, blue,'FFSPAS Calculator Unit');
- writecenter(3, white, blue, 'Copyright(C) 1990 Final Frontier Software');
- writecenter(4, white, blue, 'William W. Miller, Jr.');
- writecenter(5, white,blue, '524 Rock Avenue, Chestertown, New York 12817');
- writecenter(6, white, blue, 'Telephone (518) 494-4097');
- writecenter(7, white, blue, 'Please Register Your Procedures at the Final Frontier BBS (518) 761-0869');
- gotoxy(1, 9);
- beep;
- oncursor;
- halt(1);
- end;
-
- begin
- clrscr;
- with CTTT do
- begin {+++++++++++++++++++++++++++++++++++++++++++++++}
- Fore := black; { Calculator foreground attribute }
- Back := cyan; { Calculator background attribute }
- statusfore := white; { Status line and mouse buttons foreground attr }
- statusback := blue; { Status line and mouse buttons background attr }
- tapefore := white; { Calculator tape foreground attribute }
- tapeback := black; { Calculator tape background attribute }
- Points := 2; { Number of decimal points - default = 2 }
- if moused then {+++++++++++++++++++++++++++++++++++++++++++++++}
- BEGIN
- delaytime := 100; { repeat delay for mouse button slow down }
- END;
- if not moused then delaytime := 0; { if no mouse don't delay }
- end;
-
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- calculator; { <====== This is the simple call with no parameters }
- { which pops up the calculator. }
- reset_startup_mode; {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- quit; { The calculator has: addition }
- oncursor; { subtraction }
- END. { multiplication }
- { division with divide by zero trap }
- { square root }
- { one memory function }
- { cut and paste from display tape }
- { mouse support }
- { help screens }
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
-
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { FINAL FRONTIER SOFTWARE TURBO PASCAL UNITS }
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { 524 Rock Avenue }
- { Chestertown, New York 12817 }
- { Tel. 518-494-4097 }
- { Voice and Data }
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- { Software Support - Final Frontier BBS (518) 761-0869 }
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++}
-