home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPFL_092.ZIP / TPFLDEMO.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-03-26  |  5.5 KB  |  217 lines
  1. PROGRAM TPFLDEMO;
  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; { 0.92 }
  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); { 0.92 }
  27. ClrScr;
  28. WrtLnStr(' ',False,False); { 0.91 }
  29. WrtLnStr('This is the TPFL Demo Program - using BIOS Video.',False,False);
  30.  
  31. WrtLnStr(' ',False,False);
  32.  
  33. workstrg := 'Today is ';
  34. workstrg := StrAdd(workstrg, Today);
  35. WrtStr(workstrg,False,False);
  36.  
  37. WrtStr('.  ',False,False);
  38.  
  39. workstrg := 'The time is ';
  40. workstrg := StrAdd(workstrg, TimeStr(True));
  41. WrtLnStr(workstrg,False,False);
  42.  
  43. WrtLnStr(' ',False,False);
  44.  
  45. workstrg := 'The workstrg is ';
  46.  
  47. workstrga := StrAdd(workstrg,'abcdefghijklmnopqrstuvwxyz');
  48. workstrgb := StrCopy(workstrga,17,ORD(workstrga[0])-17);
  49. WrtLnStr(workstrga,False,False);
  50.  
  51. WrtLnStr(' ',False,False);
  52.  
  53. workstrg := 'Here are a few characters(5) from workstrg(starting at 20): ';
  54. workstrga := StrCopy(workstrga, 20,5);
  55. workstrg := StrAdd(workstrg,workstrga);
  56. WrtLnStr(workstrg,false,false);
  57. WrtLnStr(' ',False,False);
  58.  
  59. workstrg := IntegerToStr(WhrStrg('c',workstrgb));
  60. workstrg := StrAdd('In workstrgb the char c is item ',workstrg);
  61. WrtStr(workstrg,False,False);
  62.  
  63. WriteLn('.  C is in workstrgb = ',IsInStrg('C',workstrgb));
  64. WrtLnStr(' ',False,False);
  65.  
  66. workstrga := IntegerToStr(aninteger);
  67. workstrg  := 'Here is an integer: ';
  68. workstrg  := StrAdd(workstrg,workstrga);
  69. WrtLnStr(workstrg,false,false);
  70.  
  71. WrtLnStr(' ',False,False);
  72.  
  73. workstrga := WordToStr(aword);
  74. workstrg  := 'Here is a word: ';
  75. workstrg  := StrAdd(workstrg,workstrga);
  76. WrtLnStr(workstrg,false,false);
  77.  
  78. WrtLnStr(' ',False,False);
  79.  
  80. workstrga := RealToStr(areal,10);
  81. workstrg  := 'Here is a real(decimal): ';
  82. workstrg  := StrAdd(workstrg,workstrga);
  83. WrtStr(workstrg,false,false);
  84.  
  85. WrtStr('   ',False,False);
  86.  
  87. workstrga := RealToStr(areal,16);
  88. workstrg  := 'Here is the same real(HEX): ';
  89. workstrg  := StrAdd(workstrg,workstrga);
  90. WrtLnStr(workstrg,false,false);
  91.  
  92. WrtLnStr(' ',False,False);
  93.  
  94. workstrga := IntegerToStr(TodayNumCnt(Today));
  95. workstrg  := 'Here is the day number: ';
  96. workstrg  := StrAdd(workstrg,workstrga);
  97. WrtLnStr(workstrg,false,false);
  98.  
  99. WrtLnStr(' ',False,False);
  100.  
  101. workstrga := LongIntToStr(TimeCnt);
  102. workstrg  := 'Here is the TimeCnt: ';
  103. workstrg  := StrAdd(workstrg,workstrga);
  104. WrtLnStr(workstrg,false,false);
  105.  
  106. WrtLnStr(' ',False,False);
  107.  
  108. workstrga := GetDate(True);
  109. workstrg  := 'Date w/Time: ';
  110. workstrg  := StrAdd(workstrg,workstrga);
  111. WrtStr(workstrg,false,false);
  112.  
  113. WrtStr(' ',False,False);
  114.  
  115. workstrga := GetDate(False);
  116. workstrg  := ' Date w/o Time: ';
  117. workstrg  := StrAdd(workstrg,workstrga);
  118. WrtLnStr(workstrg,false,false);
  119.  
  120. WrtLnStr(' ',False,False);
  121. WrtStr('Hit a key to run with DirectVideo!',False,False);
  122. REPEAT UNTIL KeyPressed;
  123. junk := ReadKey;
  124.  
  125. ClrScr;
  126.  
  127. WrtLnStr(' ',True,True);
  128. WrtLnStr('This is the TPFL Demo Program - using DIRECT Video.',True,True);
  129.  
  130. WrtLnStr(' ',True,True);
  131.  
  132. workstrg := 'Today is ';
  133. workstrg := StrAdd(workstrg, Today);
  134. WrtStr(workstrg,True,True);
  135.  
  136. WrtStr('.  ',True,True);
  137.  
  138. workstrg := 'The time is ';
  139. workstrg := StrAdd(workstrg, TimeStr(True));
  140. WrtLnStr(workstrg,True,True);
  141.  
  142. WrtLnStr(' ',True,True);
  143.  
  144. workstrg := 'The workstrg is ';
  145. workstrga := StrAdd(workstrg,'abcdefghijklmnopqrstuvwxyz');
  146. workstrgb := StrCopy(workstrga,17,ORD(workstrga[0])-17);
  147. WrtLnStr(workstrga,True,True);
  148.  
  149. WrtLnStr(' ',True,True);
  150.  
  151. workstrg := 'Here are a few characters(5) from workstrg(starting at 20): ';
  152. workstrga := StrCopy(workstrga, 20,5);
  153. workstrg := StrAdd(workstrg,workstrga);
  154. WrtLnStr(workstrg,True,True);
  155. WrtLnStr(' ',True,True);
  156.  
  157. workstrg := IntegerToStr(WhrStrg('c',workstrgb));
  158. workstrg := StrAdd('In workstrgb the char c is item ',workstrg);
  159. WrtStr(workstrg,True,True);
  160. WriteLn('.  C is in workstrgb = ',IsInStrg('C',workstrgb));
  161. WrtLnStr(' ',True,True);
  162.  
  163. workstrga := IntegerToStr(aninteger);
  164. workstrg  := 'Here is an integer: ';
  165. workstrg  := StrAdd(workstrg,workstrga);
  166. WrtLnStr(workstrg,True,True);
  167.  
  168. WrtLnStr(' ',True,True);
  169.  
  170. workstrga := WordToStr(aword);
  171. workstrg  := 'Here is a word: ';
  172. workstrg  := StrAdd(workstrg,workstrga);
  173. WrtLnStr(workstrg,True,True);
  174.  
  175. WrtLnStr(' ',True,True);
  176.  
  177. workstrga := RealToStr(areal,10);
  178. workstrg  := 'Here is a real(decimal): ';
  179. workstrg  := StrAdd(workstrg,workstrga);
  180. WrtStr(workstrg,True,True);
  181.  
  182. WrtStr('   ',True,True);
  183.  
  184. workstrga := RealToStr(areal,16);
  185. workstrg  := 'Here is the same real(HEX): ';
  186. workstrg  := StrAdd(workstrg,workstrga);
  187. WrtLnStr(workstrg,True,True);
  188.  
  189. WrtLnStr(' ',True,True);
  190.  
  191. workstrga := IntegerToStr(TodayNumCnt(Today));
  192. workstrg  := 'Here is the day number: ';
  193. workstrg  := StrAdd(workstrg,workstrga);
  194. WrtLnStr(workstrg,True,True);
  195.  
  196. WrtLnStr(' ',True,True);
  197.  
  198. workstrga := LongIntToStr(TimeCnt);
  199. workstrg  := 'Here is the TimeCnt: ';
  200. workstrg  := StrAdd(workstrg,workstrga);
  201. WrtLnStr(workstrg,True,True);
  202.  
  203. WrtLnStr(' ',True,True);
  204.  
  205. workstrga := GetDate(True);
  206. workstrg  := 'Date w/Time: ';
  207. workstrg  := StrAdd(workstrg,workstrga);
  208. WrtStr(workstrg,True,True);
  209.  
  210. WrtStr(' ',True,True);
  211.  
  212. workstrga := GetDate(False);
  213. workstrg  := ' Date w/o Time: ';
  214. workstrg  := StrAdd(workstrg,workstrga);
  215. WrtLnStr(workstrg,True,True);
  216. END.
  217.