home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FAQ-S.ZIP / FAQLOAD3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-09  |  5.5 KB  |  270 lines
  1. unit faqload3;
  2.  
  3. interface
  4.  
  5. uses Graph,
  6.      crt,
  7.      BGIDriv,
  8.      BGIFont;
  9.  
  10. procedure mainloader;
  11.  
  12. implementation
  13.  
  14. procedure mainloader;
  15. var
  16. key:char;
  17. a:longint;
  18. c,h,g,GraphDriver, GraphMode, Error : integer;
  19. z:boolean;
  20.  
  21. {************************************************************************************}
  22. {******************************************}
  23. {******************************************}
  24. procedure Abort(Msg : string);
  25. begin
  26.   Writeln(Msg, ': ', GraphErrorMsg(GraphResult));
  27.   Halt(1);
  28. end;
  29. {******************************************}
  30. {******************************************}
  31. procedure Initialize;
  32. begin
  33.   if RegisterBGIdriver(@EGAVGADriverProc) < 0 then
  34.     Abort('EGA/VGA');
  35.   if RegisterBGIfont(@GothicFontProc) < 0 then
  36.     Abort('Gothic');
  37.   if RegisterBGIfont(@SansSerifFontProc) < 0 then
  38.     Abort('SansSerif');
  39.   if RegisterBGIfont(@SmallFontProc) < 0 then
  40.     Abort('Small');
  41.   if RegisterBGIfont(@TriplexFontProc) < 0 then
  42.     Abort('Triplex');
  43.   a:=installuserfont('Euro');
  44.  
  45.   GraphDriver := Detect;                  { autodetect the hardware }
  46.   InitGraph(GraphDriver, GraphMode, '');  { activate graphics }
  47.   if GraphResult <> grOk then             { any errors? }
  48.   begin
  49.     Writeln('Graphics init error: ', GraphErrorMsg(GraphDriver));
  50.     Halt(1);
  51.   end;
  52. end;
  53. {******************************************}
  54. {******************************************}
  55. procedure faq;
  56. begin
  57. setcolor(15);
  58. settextstyle(gothicfont,horizdir,2);
  59. moveto(75,160);
  60. outtext('The Firegod''s');
  61.  
  62. settextstyle(gothicfont,horizdir,8);
  63. moveto(110, 200);
  64. setcolor(9);
  65. Outtext('F');
  66. moveto(111, 201);
  67. Outtext('F');
  68.  
  69. setcolor(11);
  70. moveto(167,225);
  71. settextstyle(gothicFont,horizdir,4);
  72. outtext('unctional ');
  73. moveto(168,226);
  74. settextstyle(gothicFont,horizdir,4);
  75. outtext('unctional ');
  76.  
  77. moveto(290, 200);
  78. setcolor(9);
  79. settextstyle(gothicfont,horizdir,8);
  80. outtext('A');
  81. moveto(291, 201);
  82. settextstyle(gothicfont,horizdir,8);
  83. outtext('A');
  84.  
  85. setcolor(11);
  86. moveto(345,225);
  87. settextstyle(gothicFont,horizdir,4);
  88. outtext('nd ');
  89. moveto(346,226);
  90. settextstyle(gothicFont,horizdir,4);
  91. outtext('nd ');
  92.  
  93. moveto(390, 200);
  94. setcolor(9);
  95. settextstyle(gothicfont,horizdir,8);
  96. outtext('Q');
  97. moveto(391, 201);
  98. settextstyle(gothicfont,horizdir,8);
  99. outtext('Q');
  100.  
  101. setcolor(11);
  102. moveto(450,225);
  103. settextstyle(gothicFont,horizdir,4);
  104. outtext('uick');
  105. moveto(451,226);
  106. settextstyle(gothicFont,horizdir,4);
  107. outtext('uick');
  108. end;
  109. {******************************************}
  110. {******************************************}
  111.  
  112. procedure box;
  113. var a,h:longint;
  114. begin
  115.  
  116. for a:=1 to 100000 do
  117. putpixel(random(640),random(480),8);
  118.  
  119. setcolor(8);
  120. rectangle(60,140,545, 320);
  121. setfillstyle(solidfill, 7);
  122. putpixel(59, 139, 0);
  123. floodfill(59, 139, 8);
  124.  
  125. setcolor(8);
  126. rectangle(60,140,545, 320);
  127. setfillstyle(solidfill, 15);
  128. putpixel(546, 139, 0);
  129. floodfill(546, 139, 8);
  130.  
  131. setfillstyle(solidfill, 7);
  132. putpixel(59, 139, 0);
  133. floodfill(59, 139, 8);
  134.  
  135. setfillstyle(solidfill, 7);
  136. putpixel(0, 239, 0);
  137. floodfill(59, 139, 8);
  138. setcolor(0);
  139. line(70,320,566, 320);
  140. delay(20);
  141. line(70,321,566, 321);
  142. delay(20);
  143. line(70,322,566, 322);
  144. delay(20);
  145. line(70,323,566, 323);
  146. delay(20);
  147. line(70,324,566, 324);
  148. delay(20);
  149. line(70,325,566, 325);
  150. delay(20);
  151. line(70,326,566, 326);
  152. delay(20);
  153. line(70,327,566, 327);
  154. delay(20);
  155. line(70,328,566, 328);
  156. delay(20);
  157. line(70,329,566, 329);
  158. delay(20);
  159. line(70,330,566, 330);
  160. delay(20);
  161. line(70,331,566, 331);
  162. delay(20);
  163. line(70,332,566, 332);
  164. delay(20);
  165. line(70,333,566, 333);
  166. delay(20);
  167. line(70,334,566, 334);
  168. delay(20);
  169. line(70,335,566, 335);
  170. delay(20);
  171. line(70,336,566, 336);
  172. delay(20);
  173. line(70,337,566, 337);
  174. delay(20);
  175. line(70,338,566, 338);
  176. delay(20);
  177. line(70,339,566, 339);
  178. delay(20);
  179. line(70,340,566, 340);
  180. delay(20);
  181. line(70,341,566, 341);
  182. delay(20);
  183. line(545,155,545, 325);
  184. delay(20);
  185. line(546,155,546, 325);
  186. delay(20);
  187. line(547,155,547, 325);
  188. delay(20);
  189. line(548,155,548, 325);
  190. delay(20);
  191. line(549,155,549, 325);
  192. delay(20);
  193. line(550,155,550, 325);
  194. delay(20);
  195. line(551,155,551, 325);
  196. delay(20);
  197. line(552,155,552, 325);
  198. delay(20);
  199. line(553,155,553, 325);
  200. delay(20);
  201. line(554,155,554, 325);
  202. delay(20);
  203. line(555,155,555, 325);
  204. delay(20);
  205. line(556,155,556, 325);
  206. delay(20);
  207. line(557,155,557, 325);
  208. delay(20);
  209. line(558,155,558, 325);
  210. delay(20);
  211. line(559,155,559, 325);
  212. delay(20);
  213. line(560,155,560, 325);
  214. delay(20);
  215. line(561,155,561, 325);
  216. delay(20);
  217. line(562,155,562, 325);
  218. delay(20);
  219. line(563,155,563, 325);
  220. delay(20);
  221. line(564,155,564, 325);
  222. delay(20);
  223. line(565,155,565, 325);
  224. delay(20);
  225. line(566,155,566, 325);
  226. delay(20);
  227. setcolor(15);
  228. rectangle(60,140,545, 320);
  229. line(60, 140, 60, 320);
  230. line(60, 140, 545, 140);
  231. faq;
  232. g:=1;
  233. for h:=1 to 6 do
  234. begin
  235. setcolor(0);
  236. settextstyle(triplexfont,horizdir, 4);
  237. moveto(125+g, 400+g);
  238. outtext('Setup/Config Program');
  239. g:=g+1;
  240. end;
  241.  
  242. setcolor(9);
  243. settextstyle(triplexfont,horizdir, 4);
  244. moveto(125, 400);
  245. outtext('Setup/Config Program');
  246. setcolor(0);
  247. settextstyle(triplexfont, horizdir, 2);
  248. moveto(236, 450);
  249. outtext('Press any Key');
  250. setcolor(0);
  251. settextstyle(triplexfont, horizdir, 2);
  252. moveto(237, 451);
  253. outtext('Press any Key');
  254. end;
  255. {******************************************}
  256. {******************************************}
  257. {************************************************************************************}
  258. Begin
  259. initialize;
  260. cleardevice;
  261. randomize;
  262. box;
  263. key:=readkey;
  264. cleardevice;
  265. restorecrtmode;
  266. end;
  267.  
  268. begin
  269. End.
  270.