home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nofusk / sample.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-11-25  |  4.7 KB  |  145 lines
  1. { This is a demonstration how ISREGIST.TPU does work.
  2.   Compile and run SAMPLE.PAS program while it is not registered.
  3.   then run NOFUSKEY.EXE and register SAMPLE.EXE to your self.
  4.   last run SAMPLE.EXE again. (the screens of NoFusKey and Sample
  5.   are near the same).
  6.   NOTE: the word's written in capital letters are the one you must
  7.   include in your source code in order for NoFusKey to work.
  8. }
  9.  
  10. program sample; {$R-,S-,D-,L-}
  11. uses dos,crt,ISREGIST,graph,bgidriv,bgifont;
  12. var
  13. smallfont, triplexfont, sansserivfont:integer;
  14.   col        : integer;
  15.   i,j,k      : longint;
  16.   ch         : char;
  17.  
  18. procedure opengraph;
  19.  var
  20.    grdriver, grmode, errcode :integer;
  21.    egavga : integer;
  22.  begin
  23.    egavga := registerbgidriver(@egavgadriverproc);
  24.    smallfont := registerbgifont(@smallfontproc);
  25.    triplexfont := registerbgifont(@triplexfontproc);
  26.    sansserivfont := registerbgifont(@sansseriffontproc);
  27.    grdriver   := detect;
  28.    initgraph(grdriver, grmode, '');
  29.    errcode    := graphresult;
  30.    IF errcode <> grok then
  31.    begin
  32.       writeln('Graphics error : ',grapherrormsg(errcode));
  33.       writeln('This program does need a ega screen or better.');
  34.       writeln('Press  >Enter<  to Exit');
  35.       readln;
  36.       closegraph;
  37.       halt;
  38.     end;
  39.   end;
  40.  
  41. procedure sharewscreen;
  42. begin
  43. cleardevice;
  44. setlinestyle(solidln, 0, thickwidth);
  45. setbkcolor(0);
  46. setcolor(15);
  47. bar(20,20,getmaxx-20,getmaxy-20);
  48. setcolor(10);
  49. rectangle(10,10,getmaxx-10,getmaxy-10);
  50. setviewport(25,25,getmaxx-25,getmaxy-25,CLIPON);
  51. k:=0;   col:=0;
  52.  for I:=1 to getmaxx-50 DO
  53.   begin    k:=k+1;   for j:=1 to getmaxy-50 DO
  54.     begin    if k>(getmaxx+80) div 22 then
  55.         putpixel(i,j,col+9)     else  putpixel(i,j,col);
  56.       if k=(getmaxx+80) div 19 then  begin col:=col+3; k:=0;      end;
  57.     end;
  58.    end;
  59. setcolor(0);
  60. setviewport(0, 0, getmaxx, getmaxy, clipon);
  61. setfillstyle(solidfill,7);
  62. fillellipse(getmaxx div 2, getmaxy div 2, 230, 110);
  63. setcolor(10);
  64. ellipse(getmaxx div 2, getmaxy div 2, 0, 360, 224, 104);
  65. setcolor(4);
  66. ellipse(getmaxx div 2, getmaxy div 2, 0, 360, 214,  94);
  67. setcolor(0);
  68. settextjustify(centertext, centertext);
  69. settextstyle(1, horizdir, 4);
  70. outtextxy((getmaxx div 2)+1 , (getmaxy-39) div 2,'S A M P L E');
  71. settextstyle(1, horizdir, 1);
  72. outtextxy((getmaxx div 2)+1, (getmaxy+40) div 2,'Unregistered Version');
  73. settextstyle(2,horizdir,4);
  74. outtextxy((getmaxx div 2)+1, (getmaxy+99) div 2, 'B y');
  75. settextstyle(1,horizdir,1);
  76. outtextxy((getmaxx div 2)+1, (getmaxy+141) div 2,'G.P.R. DATA');
  77. setcolor(4);
  78. settextjustify(centertext, centertext);
  79. settextstyle(1, horizdir, 4);
  80. outtextxy(getmaxx div 2, (getmaxy-41) div 2,'S A M P L E');
  81. outtextxy((getmaxx div 2)-1, (getmaxy-41) div 2,'S A M P L E');
  82. setcolor(10);
  83. settextstyle(1,horizdir,1);
  84. outtextxy(getmaxx div 2, (getmaxy+140) div 2,'G.P.R. DATA');
  85. setfillstyle(solidfill,0);
  86. setcolor(10);
  87. bar((getmaxx div 2)-105,getmaxy-42,(getmaxx div 2)+105,getmaxy-25);
  88. settextstyle(2,horizdir,5);
  89. while keypressed do ch:=readkey;
  90. outtextxy(getmaxx div 2+2,getmaxy-35,' Press any key to continue: ');
  91. repeat ch:=readkey; until ch> #12;
  92. end;
  93.  
  94. procedure openscreen;
  95. begin
  96. cleardevice;
  97. setlinestyle(solidln, 0, thickwidth);
  98. setbkcolor(0);
  99. setfillstyle(solidfill,7);
  100. setcolor(15);
  101. bar(20,20,getmaxx-20,getmaxy-20);
  102. setcolor(10);
  103. rectangle(10,10,getmaxx-10,getmaxy-10);
  104. setcolor(0);
  105. settextjustify(centertext, centertext);
  106. settextstyle(1, horizdir, 5);
  107. outtextxy((getmaxx div 2)+4, (getmaxy-174) div 2,'S A M P L E');
  108. settextstyle(2, horizdir, 4);
  109. outtextxy((getmaxx div 2), (getmaxy -80) div 2, 'B y');
  110. settextstyle(1, horizdir, 4);
  111. outtextxy((getmaxx div 2)+3, (getmaxy+221) div 2,'Name');
  112. settextstyle(1, horizdir, 2);
  113. outtextxy(getmaxx div 2, (getmaxy+135) div 2,'Registered to:');
  114. settextstyle(1,horizdir,1);
  115. outtextxy(getmaxx div 2+1, (getmaxy-20 ) div 2,'G.P.R. DATA');
  116. setcolor(10); settextstyle(1,horizdir,1);
  117. outtextxy((getmaxx div 2), (getmaxy-21 ) div 2,'G.P.R. DATA');
  118. setcolor(4);
  119. settextstyle(1, horizdir, 5);
  120. outtextxy((getmaxx div 2)+2, (getmaxy-176) div 2,'S A M P L E');
  121. outtextxy((getmaxx div 2)+3, (getmaxy-176) div 2,'S A M P L E');
  122. setcolor(4); settextstyle(1, horizdir, 4);
  123. outtextxy((getmaxx div 2)+2, (getmaxy+220) div 2,'Name');
  124. setfillstyle(solidfill,0);
  125. setcolor(10);
  126. bar((getmaxx div 2)-105,getmaxy-42,(getmaxx div 2)+105,getmaxy-25);
  127. settextstyle(2,horizdir,5);
  128. while keypressed do ch:=readkey;
  129. outtextxy(getmaxx div 2+2,getmaxy-35,' Press any key to continue: ');
  130. repeat ch:=readkey; until ch> #12;
  131. end;
  132.  
  133. begin                  {start of main program}
  134. checkbreak:=false;
  135. REGISTER;              {check if it is registered}
  136. opengraph;
  137. if REGISTERED = true then openscreen
  138.                      else sharewscreen;
  139. closegraph;
  140. clrscr;
  141. checkbreak:=true;
  142. end.
  143.  
  144.  
  145.