home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CNBSRC.ZIP / CNB4U.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-14  |  2KB  |  67 lines
  1.  
  2. {Crash n' Burn electronic magazine.  Coded November, 1995.}
  3. uses dos, crt, fadeunit;
  4.  
  5. type screentype = array [0..3999] of byte;
  6.  
  7. Label
  8. 10, 20;
  9.  
  10. var screen             :screentype absolute $B800:0000;
  11.     A, VGAtoVIEW       :string;
  12.     x, xend, xtop      :byte;
  13.     xread              :byte;
  14.     xselect, pakselect :byte;
  15.     xline              :array[1..150] of string;
  16.     DF                 :TEXT;
  17.     xch                :CHAR;
  18.     Regs               :Registers;
  19.     I                  :Integer;
  20.     DelaySpeed         :byte;
  21.  
  22. {$I IFACEimg.INC}
  23. {$I CLOS_img.INC}
  24. {$I OPTNREAD.INC}
  25. Begin{Main Program Block}
  26. textbackground(0);
  27. clrscr;
  28. {begin
  29.    loadfile('cnbansi');
  30.    dispansinmem(true);
  31. end;}
  32. fadeout(1);
  33. iFACEimg{Interface ansi};
  34. fadein(20);
  35. {View the VGA for CNB = Currently disabled}
  36.       {VGAtoVIEW := 'c:\ansi\acid\stc-acd3.gif';
  37.       TheGif := New(PGif, Init(VGAtoVIEW));{ <<-- VGAtoVIEW := string }
  38.       {TheGif^.Decode(True);
  39.       readln(A);
  40.       Dispose(TheGif, Done);
  41.  
  42. {* cursor off *****************}
  43. I := 0;                      {*}
  44. Regs.AH := $01;              {*}
  45. Regs.CH := $20+I;            {*}
  46. Regs.CL := $20+I;            {*}
  47. Intr($10, Regs);             {*}
  48. {* cursor off *****************}
  49. xselect := 1;
  50. 10{redisplay the interface ansi}:
  51. IFACEimg{Interface ansi};
  52. OptnREAD{INCLUDE file for selecting interface options};
  53. if xselect = 0 then goto 20;
  54. goto 10;
  55. 20{exiting Crash n' Burn}:
  56. CLOS_img{Display the closing "Crash n Burn" font};
  57. gotoxy(1,25);
  58. textcolor(7);
  59. {******************************}
  60. I := 0;
  61. Regs.AH := $01;
  62. Regs.CH := $6+I;             {*}
  63. Regs.CL := $7+I;             {*}
  64. Intr($10, Regs);
  65. {******************************}
  66. end.
  67.