home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 14 / CD_ASCQ_14_0694.iso / news / 4547 / pgx122 / bbgui.pas < prev    next >
Pascal/Delphi Source File  |  1994-02-16  |  2KB  |  23 lines
  1. (* This file was mangled by Mangler 1.14 (c) Copyright 1993 by Berend de Boer *)
  2.  {$F+,O+,S-,R-,Q-,I-} UNIT BBGUI ;INTERFACE CONST CMYES =12 ;CMNO =13 ;TYPE DELAYTYPE =PROCEDURE  (MS :WORD );
  3. FATALERRORTYPE =PROCEDURE  (CONST S :STRING ;AHELPCTX :WORD );INFOBOXTYPE =PROCEDURE  (CONST S :STRING ;
  4. AHELPCTX :WORD );PAUSETYPE =PROCEDURE  ;PRINTERRORTYPE =PROCEDURE  (CONST S :STRING ;AHELPCTX :WORD );
  5. PRINTWARNINGTYPE =PROCEDURE  (CONST S :STRING ;AHELPCTX :WORD );USERANSWERTYPE =FUNCTION  (CONST S :STRING ;
  6. AHELPCTX :WORD ):WORD ;PROCEDURE BEEP ;PROCEDURE DOSDELAY (MS :WORD );PROCEDURE NOPAUSE ;PROCEDURE TEXTFATALERROR
  7. (CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTINFOBOX (CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTPRINTERROR
  8. (CONST S :STRING ;AHELPCTX :WORD );PROCEDURE TEXTPRINTWARNING (CONST S :STRING ;AHELPCTX :WORD );FUNCTION TEXTUSERANSWER
  9. (CONST S :STRING ;AHELPCTX :WORD ):WORD ;CONST DELAY :DELAYTYPE =DOSDELAY ;FATALERROR :FATALERRORTYPE =TEXTFATALERROR ;
  10. INFOBOX :INFOBOXTYPE =TEXTINFOBOX ;PAUSE :PAUSETYPE =NOPAUSE ;PRINTERROR :PRINTERRORTYPE =TEXTPRINTERROR ;
  11. PRINTWARNING :PRINTWARNINGTYPE =TEXTPRINTWARNING ;USERANSWER :USERANSWERTYPE =TEXTUSERANSWER ;IMPLEMENTATION USES BBERROR
  12. , BBFILE , BBUTIL ;PROCEDURE BEEP ;ASSEMBLER;ASM {} MOV DL , 07h {} MOV AH , 02h {} INT 21h {} END;PROCEDURE DOSDELAY
  13. (MS:WORD);VAR O1011l1l0llI0:LONGINT;O1010I1I0l1O0:LONGINT;BEGIN O1011l1l0llI0 := MEML [ SEG0040 :$6C ] ;O1010I1I0l1O0 :=
  14. O1011l1l0llI0 + ROUND ((MS / (1000 / 18.2 )));WHILE MEML [ SEG0040 :$6C ] <= O1010I1I0l1O0  DO PAUSE ;END ;
  15. PROCEDURE NOPAUSE ;BEGIN END ;PROCEDURE TEXTFATALERROR (CONST S:STRING ;AHELPCTX:WORD);BEGIN PRINTERROR (S , AHELPCTX );
  16. HALT (1 );END ;PROCEDURE TEXTINFOBOX (CONST S:STRING ;AHELPCTX:WORD);BEGIN WRITELN (S );END ;PROCEDURE TEXTPRINTERROR
  17. (CONST S:STRING ;AHELPCTX:WORD);VAR O100llIl00IOl:WORD;BEGIN ASM {} MOV O100llIl00IOl, BP {} END;BEEP ;WRITELN (S );
  18. LOGERROR ('Error: '+ S );IF @ DUMPSTACK <> NIL THEN DUMPSTACK (NIL , O100llIl00IOl );END ;PROCEDURE TEXTPRINTWARNING
  19. (CONST S:STRING ;AHELPCTX:WORD);BEGIN BEEP ;WRITELN (S );LOGERROR ('Warning: '+ S );END ;FUNCTION TEXTUSERANSWER
  20. (CONST S:STRING ;AHELPCTX:WORD):WORD ;VAR OOlIll10O1ll:STRING ;BEGIN WRITELN (S );REPEAT READLN (OOlIll10O1ll );UNTIL
  21. (OOlIll10O1ll <> '')AND (UPCASE (OOlIll10O1ll [ 1 ] )IN [ 'Y', 'N'] );IF UPSTR (OOlIll10O1ll [ 1 ] )='Y'THEN
  22. TEXTUSERANSWER := CMYES ELSE TEXTUSERANSWER := CMNO ;END ;END .
  23.