home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBCS / DEMOS / DEMO_LIB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-02  |  7.8 KB  |  351 lines
  1. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520, 0, 655360}
  3.  
  4. uses
  5.   eco_lib, crt, dos    { all tricks :-)     }
  6.  
  7.   ;
  8.  
  9.  
  10.  
  11.  
  12.   procedure __getresponse;
  13.   begin
  14.     writeln;
  15.     writeln( '------------------------------[ Please press a key. ] ----------');
  16.     writeln;
  17.     __retkey;
  18.   end;
  19.  
  20.  
  21.  
  22.  
  23. const
  24.   this_test = 1;
  25.   maxorigin = 16;
  26.  
  27. type
  28.   str62 = string[62];
  29.   ori_artype = array[1..maxorigin] of str62;
  30.  
  31. var
  32.   i      :        word;
  33.   srec   :   searchrec;
  34.   curd,
  35.   st     :      string;
  36.   txt    :        text;
  37.   origin : ^ori_artype;
  38.  
  39.  
  40.  
  41.   {$F+}
  42.   function order(var data1, data2): boolean; far;
  43.   begin
  44.     order := string(data1) < string(data2)
  45.   end;
  46.   {$F-}
  47.  
  48.  
  49.   function select_origin : byte;
  50.   var
  51.     listpickptr : _pickptr;
  52.     retitem     :   string;
  53.     i, selkey   :     word;
  54.  
  55.   begin
  56.     selkey := $00; retitem := '';
  57.     listpickptr := __makesel(
  58.       {coord}     9, 9, 71, 16,
  59.       {fore}             black,
  60.       {back}         lightgray,
  61.       {fore}             black,
  62.       {back}             white,
  63.       {keyptr}             nil,
  64.       {itemlen}             22,
  65.       {# of item}           10,
  66.       {itemsize}            62,
  67.       {numcols}              1,
  68.       {nuspace}              1, 
  69.       {arptr}           origin,
  70.       {ispointers}       false
  71.     );
  72.     __bandwin(false, 9, 9, 71, 16, 0, 7, sh_default, 1);
  73.     select_origin := __picksel(listpickptr, retitem, selkey);
  74.   end;
  75.  
  76.  
  77.  
  78. begin
  79.   __setblwin(false);
  80.   new(origin); fillchar(origin^, sizeof(origin^), #0);
  81.   writeln('Start');
  82.   origin^[01] := 'Floor A.C. Naaijkens';
  83.   origin^[02] := 'The ECO Library II';
  84.   origin^[03] := 'FileHub File Automaton';
  85.   origin^[04] := 'The Fast Commander';
  86.   origin^[05] := 'CaPri Cassette Print DJ';
  87.   origin^[06] := 'UltiDex Clientfile';
  88.   origin^[07] := 'UltiCost Costapplet';
  89.   origin^[08] := 'Zap2Arj arc convertor';
  90.   origin^[09] := 'EFTP/ECO-Mail';
  91.   origin^[10] := 'UGREP';
  92.   origin^[11] := 'UURBANK';
  93.   origin^[12] := 'NOVELL NETTOOLS for DOS';
  94.   origin^[13] := 'Concise ECOLIB PascalPort';
  95.   origin^[14] := 'The ECO Tools Port';
  96.   origin^[15] := 'De Swaen Administratie';
  97.   origin^[16] := 'Een hoop teringshit! ;-)';
  98.   writeln('Sorting');
  99.   __qsortsrt(origin, 16, sizeof(str62), @order);
  100.   writeln('Sorted.');
  101.   starttimer(this_test);
  102.   for i := 1 to 12 do write(_strmonths[i] + ' ');
  103.   for i := 0 to 06 do write(_strdays[i] + ' ');
  104.   for i := 0 to 15 do write(_colours[i] + ' ');
  105.   writeln; writeln;
  106.  
  107.   if __existfil('test_lib.exe') then begin
  108.     findfirst('test_lib.exe', anyfile, srec);
  109.     writeln(__searchrec(srec, 1, 3, 1024, false, true, false, true, true));
  110.   end;
  111.   writeln(getlaptime(this_test));
  112.  
  113.   writeln;
  114.  
  115.   st := 'This is the string we''re talking about.';
  116.   writeln(st);
  117.  
  118.   writeln;
  119.  
  120.   writeln('__cvtstr(st, _to_upcase_str)');
  121.   st := __cvtstr(st, _to_upcase_str);
  122.   writeln(st);
  123.  
  124.   writeln;
  125.  
  126.   writeln('__cvtstr(st, _to_lowcase_str + _rem_white_str)');
  127.   st := __cvtstr(st, _to_lowcase_str + _rem_white_str);
  128.   writeln(st);
  129.  
  130.   writeln;
  131.   __getresponse;
  132.  
  133.   writeln('__leftstr(st, 20)');
  134.   st := __leftstr(st, 20);
  135.   writeln(st);
  136.  
  137.   writeln;
  138.  
  139.   writeln('__midstr(''ABC'', st, 10)');
  140.   st := __midstr('ABC', st, 10);
  141.   writeln(st);
  142.  
  143.   writeln;
  144.  
  145.   writeln('__rep(20, ''-'')');
  146.   st := __rep(20, '-');
  147.   writeln(st);
  148.  
  149.   writeln;
  150.  
  151.   writeln('__xlatestr(''FLOOR A.C. NAAIJKENS'', ''ABCF'', ''abcX''');
  152.   st := __xlatestr('FLOOR A.C. NAAIJKENS', 'ABCF', 'abcX');
  153.   writeln(st);
  154.  
  155.   writeln;
  156.  
  157.   writeln('__juststr(''12123'', ''0'', 10, _right_just_str);');
  158.   st := __juststr('12123', '0', 10, _right_just_str);
  159.   writeln(st);
  160.  
  161.   writeln;
  162.  
  163.   st := 'Left justified';
  164.   writeln('__juststr(''Left justified'', ''X'', 70, _left_just_str);');
  165.   st := __juststr(st, 'X', 70, _left_just_str);
  166.   writeln(st);
  167.  
  168.   writeln;
  169.   __getresponse;
  170.  
  171.   st := 'Center justified';
  172.   writeln('__juststr(''Center justified'', '' '', 40, _center_str);');
  173.   st := __juststr(st, ' ', 40, _center_str);
  174.   writeln(st);
  175.  
  176.   writeln;
  177.  
  178.   writeln('__tohexstr(123, 1)');
  179.   st := __tohexstr(123, 1);
  180.   writeln(st);
  181.  
  182.   writeln;
  183.  
  184.   writeln('__tohexstr(1234, 2)');
  185.   st := __tohexstr(1234, 2);
  186.   writeln(st);
  187.  
  188.   writeln;
  189.  
  190.   writeln('__tohexstr(12345678, 4)');
  191.   st := __tohexstr(12345678, 4);
  192.   writeln(st);
  193.  
  194.   writeln;
  195.  
  196.   writeln('__ptr2str(scn1)');
  197.   st := __ptr2str(scn1);
  198.   writeln(st);
  199.  
  200.   writeln;
  201.  
  202.   writeln('__backapp(''C:\A\PROJ'')');
  203.   st := __backapp('C:\A\PROJ');
  204.   writeln(st);
  205.  
  206.   writeln;
  207.  
  208.   writeln('__slashfil(__backapp(''C:\A\PROJ''))');
  209.   st := __slashfil(__backapp('C:\A\PROJ'));
  210.   writeln(st);
  211.  
  212.   writeln;
  213.  
  214.   writeln('__comp(''Hello'', ''Hullo'')');
  215.   writeln(__comp('Hello', 'Hullo'));
  216.  
  217.   writeln;
  218.   __getresponse;
  219.  
  220.   writeln('__pntstr(2127386347)');
  221.   st := __pntstr(2127386347);
  222.   writeln(st);
  223.  
  224.   writeln;
  225.  
  226.   writeln('__pntstr(__hexdecstr(''3C4BEF8A''))');
  227.   writeln(__pntstr(__hexdecstr('3C4BEF8A')));
  228.  
  229.   writeln;
  230.  
  231.   writeln('__byte2str(124)');
  232.   writeln(__byte2str(124));
  233.  
  234.   writeln;
  235.  
  236.   writeln('__longint2str(98121234)');
  237.   writeln(__longint2str(98121234));
  238.  
  239.   writeln;
  240.  
  241.   writeln('__str2longint(''   ■■      ■■    ■    ■■■■  ■ ■ '')');
  242.   writeln(__tohexstr(__str2longint('   ■■      ■■    ■    ■■■■  ■ ■ '), 4));
  243.  
  244.   writeln;
  245.  
  246.   writeln('__main(1234, 1024)');
  247.   writeln(__main(1234, 1024));
  248.  
  249.   writeln;
  250.  
  251.   writeln('__main(1023, 1024)');
  252.   writeln(__main(1023, 1024));
  253.  
  254.   writeln;
  255.   __getresponse;
  256.  
  257.   writeln('__alphasup(''C'')');
  258.   writeln(__alphasup('C'));
  259.  
  260.   writeln;
  261.  
  262.   writeln('__alphasup(''1'')');
  263.   writeln(__alphasup('1'));
  264.  
  265.   writeln;
  266.  
  267.   writeln(__todaystr(true));
  268.   writeln(__curdate);
  269.  
  270.   writeln;
  271.  
  272.   writeln('__date2longint(''22 Aug 69  14:50.11'')');
  273.   writeln(__tohexstr(__date2longint('22 Aug 69  14:50.11'), 4));
  274.  
  275.   writeln;
  276.  
  277.   curd := __curdir;
  278.   writeln(curd);
  279.  
  280.   writeln;
  281.  
  282.   writeln('__packfil(''C:\A\PROJ\ECO\LIB\INCLUDES\FILE.EXT'', 28)');
  283.   writeln(__packfil('C:\A\PROJ\ECO\LIB\INCLUDES\FILE.EXT', 28));
  284.  
  285.   writeln;
  286.   __getresponse;
  287.  
  288.   writeln(' __uniquefil(st, txt, i);');
  289.   writeln('__copyfil(');
  290.   writeln('  10, 40, wherey, lightgray, black, ');
  291.   writeln('  __sizefil(''test_lib.exe''),');
  292.   writeln('  ''test_lib.exe'', st');
  293.   writeln(');');
  294.  
  295.   writeln;
  296.  
  297.   st := curd;
  298.   __uniquefil(st, txt, i);
  299.   writeln('Creating ', st);
  300.   __copyfil(
  301.     false,
  302.     10, 40, 25, lightgray, black,
  303.     __sizefil('test_lib.exe'),
  304.     'test_lib.exe', st
  305.   );
  306.  
  307.   writeln;
  308.  
  309.   if __existfil(st) then writeln('INDEED ', st, ' FOUND!');
  310.   writeln; writeln;
  311.   __erasefil(st, i);
  312.  
  313.   writeln;
  314.  
  315.   __loginit;
  316.   logheader[3] := '│ █                                                        █ │';
  317.   logheader[4] := '│ █                                                        █ │';
  318.   logheader[5] := '│ █                                                        █ │';
  319.   logheader[6] := '│ █     T e s t   T h e   E C O   L i b r a r y   I I      █ │';
  320.   logheader[7] := '│ █                                                        █ │';
  321.   logheader[8] := '│ █                                                        █ │';
  322.   logheader[10]:= '│   All material is protected and licensed.  Version 0.01    │';
  323.   __setpurge(7); logfilename := 'DEMO_LIB.LOG'; programname := 'Demo-Lib';
  324.   __logapp('Tested.');
  325.  
  326.   writeln;
  327.   __getresponse;
  328.  
  329.   select_origin;
  330.  
  331.   case __barchoice(
  332.     2, 52, 25, 7, 0, 15,
  333.     ' Direct_screentest   Slow_screentest   Quit_now! ',
  334.     10
  335.   ) of
  336.     1: begin
  337.       __savscn(scn1);
  338.       for i := 1 to _currows do __write(1, i, 0, 7, __rep(_curcolumns, 'X'));
  339.       starttimer(1);
  340.       __delay(2000);
  341.       __resscn(scn1);
  342.       writeln; writeln; writeln;
  343.       writeln(stoptimer(1));
  344.     end;
  345.     2: for i := 1 to _currows do write(__rep(_curcolumns, 'X'));
  346.   end;
  347.   writeln(__ptr2str(_scnloc));
  348.   writeln; writeln; writeln(getlaptime(0));
  349.  
  350. end.
  351.