home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
qbox10
/
qboxdemo.bas
next >
Wrap
BASIC Source File
|
1992-01-21
|
2KB
|
65 lines
$IF 0
╒═════════════════════════════════════════════════════════════════════════╕
│PowerBASIC : ---<< Quick Box Displays >>--- January, 1992│
│Source file: --<< DEMO PROGRAM >>-- QbDemo.BAS│
╘═════════════════════════════════════════════════════════════════════════╛
Copyright (c) 1992 ─ Business Enhancement Partnership Group
$ENDIF
$LIB ALL OFF
DEFINT A-Z
Vpos = CSRLIN: Hpos = POS(0)
CALL Video.Image(0) '---- Save Incoming Screen ----
$INCLUDE "QUICKBOX.INC"
CLS: PRINT STRING$(2080,"▒"); '---- Fill Screen For Effects ----
LOCATE 25,12
COLOR 8,0
PRINT "Copyright (c) 1992 Business Enhancement Partnership Group";
RANDOMIZE TIMER
ClockIt& = TIMER
SaveScrn = 0
UnLoad = 1
CALL QBOX(SaveScrn,9,5,20,40,14,1) '---- Saved First Screen
LOCATE 12,26
COLOR 15,1
PRINT "And Your Original Screen.....";
'---- Display 80 Random Boxes ----
FOR I=1 TO 80
Box.Width% = INT(RND*70)+1
Box.Lines% = INT(RND*18)+1
Box.Bg% = INT(RND * 8)
Box.Fg% = INT(RND * 16)
CALL QBOX(SaveScrn, Box.Top%, Box.Lines%, Box.Lft%,_
Box.Width%, Box.Fg%, Box.Bg%)
NEXT I
BEEP:BEEP
ClockIt& = TIMER - ClockIt&
CALL QBOX(SaveScrn,9,5,20,40,14,1) '---- Fixed Box For Status ----
COLOR 14,1
LOCATE 11,25
PRINT "Puff..Puff... Thats 80 Boxes"
LOCATE 12,25
PRINT " In ";ClockIt&;" Seconds. Press a key: ";
A$=INPUT$(1)
'---- Pop Each Box Off Screen ----
FOR I = 1 TO 81
CALL QBOX(UnLoad,Box.Top%,Box.Lines%,Box.Lft%,Box.Width%,Box.Fg%,Box.Bg%)
DELAY .1
NEXT I
DELAY 3
CALL Video.Image(-1)' '---- ERASE TEMP FILES FROM DISK ----
LOCATE Vpos,Hpos '---- Restore Original Screen ----
END