home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / qbox10 / qboxdemo.bas next >
Encoding:
BASIC Source File  |  1992-01-22  |  2.0 KB  |  65 lines
  1.                                                                          $IF 0
  2.  ╒═════════════════════════════════════════════════════════════════════════╕
  3.  │PowerBASIC :         ---<< Quick Box Displays >>---         January, 1992│
  4.  │Source file:              --<< DEMO PROGRAM >>--               QbDemo.BAS│
  5.  ╘═════════════════════════════════════════════════════════════════════════╛
  6.      Copyright  (c) 1992  ─  Business Enhancement Partnership Group 
  7.                                                                         $ENDIF
  8.   $LIB ALL OFF
  9.   DEFINT A-Z
  10.  
  11.   Vpos = CSRLIN: Hpos = POS(0)
  12.   CALL Video.Image(0)                '---- Save Incoming Screen ----
  13.  
  14.   $INCLUDE "QUICKBOX.INC"
  15.   CLS: PRINT STRING$(2080,"▒");      '---- Fill Screen For Effects ----
  16.   LOCATE 25,12
  17.   COLOR 8,0
  18.   PRINT "Copyright (c) 1992  Business Enhancement Partnership Group";
  19.  
  20.   RANDOMIZE TIMER
  21.   ClockIt& = TIMER
  22.   SaveScrn = 0
  23.   UnLoad   = 1
  24.  
  25.   CALL QBOX(SaveScrn,9,5,20,40,14,1) '---- Saved First Screen
  26.   LOCATE 12,26
  27.   COLOR 15,1
  28.   PRINT "And Your Original Screen.....";
  29.  
  30.  
  31.                      '---- Display 80 Random Boxes ----
  32.   FOR I=1 TO 80
  33.      Box.Width% = INT(RND*70)+1
  34.      Box.Lines% = INT(RND*18)+1
  35.      Box.Bg%    = INT(RND * 8)
  36.      Box.Fg%    = INT(RND * 16)
  37.      CALL QBOX(SaveScrn, Box.Top%, Box.Lines%, Box.Lft%,_
  38.              Box.Width%, Box.Fg%, Box.Bg%)
  39.   NEXT I
  40.  
  41.   BEEP:BEEP
  42.   ClockIt& = TIMER - ClockIt&
  43.  
  44.   CALL QBOX(SaveScrn,9,5,20,40,14,1)    '---- Fixed Box For Status ----
  45.   COLOR 14,1
  46.   LOCATE 11,25
  47.   PRINT "Puff..Puff... Thats 80 Boxes"
  48.   LOCATE 12,25
  49.   PRINT " In ";ClockIt&;" Seconds.  Press a key: ";
  50.   A$=INPUT$(1)
  51.                                      '---- Pop Each Box Off Screen ----
  52.   FOR I = 1 TO 81
  53.      CALL QBOX(UnLoad,Box.Top%,Box.Lines%,Box.Lft%,Box.Width%,Box.Fg%,Box.Bg%)
  54.      DELAY .1
  55.   NEXT I
  56.   DELAY 3
  57.  
  58.   CALL Video.Image(-1)'              '---- ERASE TEMP FILES FROM DISK ----
  59.   LOCATE Vpos,Hpos                   '---- Restore Original Screen ----
  60.   END
  61.  
  62.  
  63.  
  64.  
  65.