BCX Console Demonstration Program S98.bas

 ' ============================================================================
 '                     BCX Console mode sample program
 ' Win32 command line utility to change the desktop wallpaper.  Passing an
 ' invalid filename has the effect of setting the wallpaper to <none>
 ' ============================================================================
 
 IF COMMAND$ = "" THEN
   PRINT "<S>et <W>all <P>aper by Kevin Diggins (2000)"
   PRINT "Usage: SWP filename.bmp"
   END
 END IF
 
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, COMMAND$, SPIF_UPDATEINIFILE)