'Shareware - Please order

'***> This is a test file <***

$LINK "pb256mds.pbu"
DECLARE SUB EXPANDMODE (tof%)
DECLARE SUB BOLDMODE (tof%)
DECLARE SUB SETBKGRDCOL (colr%)
DECLARE SUB SRDDM (x%)
DECLARE SUB MODE (x%)
DECLARE SUB MIXMODES (x%)
DECLARE SUB PLOT (Sx%,Sy%,Sc%)
DECLARE SUB DRWBOX (x1%,y1%,x2%,y2%,cl%)

mode 2
for e%=1 to 256
plot e%,e%,e%
next e%

sleep 3

mode 4
c%=0
for w%=1 to 256
c%=c%+1
for q%=1 to 256
plot w%,q%,c%
next q%
next w%