home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
baslib2.zip
/
BLOAD.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-25
|
941b
|
50 lines
'BLOAD.BAS By John Craig, Jeff Bretz
'Converted to Quickbasic 2.01 by Dennis Dreyer 3/25/87
'Added routines by Dennis Dreyer
clear
screen 1,1
color 6,1
cls
twopi=2*3.141593
circle (160,100),100
circle (130,70),15
circle (190,70),15
circle (160,60),90,,.6*twopi,.9000001*twopi
circle (160,75),80,,.54*twopi,.96*twopi
paint (160,100),1,3
paint (130,70),2,3
paint (190,70),2,3
paint (160,140),2,3
locate 1,9
print "BSAVE/BLOAD DEMONSTRATION";
Locate 2,9:Print "Drawn on screen 1"
locate 22,27
for w=1 to 4000:next w
def seg = &HB800
BSAVE "BLOAD.DAT",0,&H4000
screen 2
bload "bload.dat"
locate 22,27:Print "Bloaded into Screen 2"
locate 23,27
print "Press space bar to continue...";
while inkey$<>" "
wend
screen 1,0
color 1,0
bload "bload.dat"
locate 20,9:Print "Bloaded back into scn 1 with diff. color"
locate 23,27
print "Press space bar to quit...";
while inkey$<>" "
wend
CLS:END