home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPFL_092.ZIP / TPFLDEM2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-03-26  |  2.7 KB  |  122 lines
  1. PROGRAM TPFLDEM2;
  2.  
  3. { This program is a simple demo of the features of TPFL features }
  4. { I hope it may answer some questions about how to use TPFL.     }
  5.  
  6. {$V-,L+,R-,S-,D+,B-}
  7.  
  8. USES Dos,Crt,TPFL5;
  9.  
  10. VAR workstrg,workstrga,workstrgb: Strg;
  11.     aninteger: Integer;
  12.     aword: Word;
  13.     areal: Real;
  14.     junk: Char;
  15.  
  16. BEGIN
  17.  
  18.  DirectVideo := False;
  19.  CheckSnow := False;
  20.  CheckBreak := False;
  21.  
  22. aninteger := 25300;
  23. aword     := 45000;
  24. areal     := 98999.4;
  25.  
  26. Windo(1,1,80,25);
  27. ClrScr;
  28. GotoXY(1,1);
  29.  
  30. WriteLnTTY(' ');
  31. WriteLnTTY('TPFL Demo2 Program - using WriteTTY Video.');
  32.  
  33. WriteLnTTY(' ');
  34.  
  35. workstrg := 'Today is ';
  36. workstrg := StrAdd(workstrg, Today);
  37. WriteTTY(workstrg);
  38.  
  39. WriteTTY('.  ');
  40.  
  41. workstrg := 'The time is ';
  42. workstrg := StrAdd(workstrg, TimeStr(True));
  43. WriteLnTTY(workstrg);
  44.  
  45. WritelnTTY(' ');
  46.  
  47. workstrg := 'The workstrg is ';
  48.  
  49. workstrga := StrAdd(workstrg,'abcdefghijklmnopqrstuvwxyz');
  50. workstrgb := StrCopy(workstrga,17,ORD(workstrga[0])-17);
  51. WriteLnTTY(workstrga);
  52.  
  53. WriteLnTTY(' ');
  54.  
  55. workstrg := 'Here are a few characters(5) from workstrg(starting at 20): ';
  56. workstrga := StrCopy(workstrga, 20,5);
  57. workstrg := StrAdd(workstrg,workstrga);
  58. WriteLnTTY(workstrg);
  59. WriteLnTTY(' ');
  60.  
  61. workstrg := IntegerToStr(WhrStrg('c',workstrgb));
  62. workstrg := StrAdd('In workstrgb the char c is item ',workstrg);
  63. WriteTTY(workstrg);
  64.  
  65. WriteLn('.  C is in workstrgb = ',IsInStrg('C',workstrgb));
  66. WriteLnTTY(' ');
  67.  
  68. workstrga := IntegerToStr(aninteger);
  69. workstrg  := 'Here is an integer: ';
  70. workstrg  := StrAdd(workstrg,workstrga);
  71. WriteLnTTY(workstrg);
  72.  
  73. WriteLnTTY(' ');
  74.  
  75. workstrga := WordToStr(aword);
  76. workstrg  := 'Here is a word: ';
  77. workstrg  := StrAdd(workstrg,workstrga);
  78. WriteLnTTY(workstrg);
  79.  
  80. WriteLnTTY(' ');
  81.  
  82. workstrga := RealToStr(areal,10);
  83. workstrg  := 'Here is a real(decimal): ';
  84. workstrg  := StrAdd(workstrg,workstrga);
  85. WriteTTY(workstrg);
  86.  
  87. WriteTTY('   ');
  88.  
  89. workstrga := RealToStr(areal,16);
  90. workstrg  := 'Here is the same real(HEX): ';
  91. workstrg  := StrAdd(workstrg,workstrga);
  92. WriteLnTTY(workstrg);
  93.  
  94. WriteLnTTY(' ');
  95.  
  96. workstrga := IntegerToStr(TodayNumCnt(Today));
  97. workstrg  := 'Here is the day number: ';
  98. workstrg  := StrAdd(workstrg,workstrga);
  99. WriteLnTTY(workstrg);
  100.  
  101. WriteLnTTY(' ');
  102.  
  103. workstrga := LongIntToStr(TimeCnt);
  104. workstrg  := 'Here is the TimeCnt: ';
  105. workstrg  := StrAdd(workstrg,workstrga);
  106. WriteLnTTY(workstrg);
  107.  
  108. WriteLnTTY(' ');
  109.  
  110. workstrga := GetDate(True);
  111. workstrg  := 'Date w/Time: ';
  112. workstrg  := StrAdd(workstrg,workstrga);
  113. WriteTTY(workstrg);
  114.  
  115. workstrga := GetDate(False);
  116. workstrg  := '  Date w/o Time: ';
  117. workstrg  := StrAdd(workstrg,workstrga);
  118. WriteLnTTY(workstrg);
  119.  
  120. WriteLnTTY(' ');
  121. END.
  122.