'****************************************************************************
'
'   BLOAD/BSAVE - Demo in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

Init:
        ZIEL$ = "TEST.PIC"
        DIM Tempo%(32000)
        SCREEN 12
        COLOR 11,0
        PRINT STRING$(80*30,"�");
        LOCATE 1, 1
        PRINT "Demo"
BildSave:
        GET (1, 1) - (100,50), Tempo%
        DEF SEG = VARSEG(Tempo%(0))
        BSAVE ZIEL$, VARPTR(Tempo%(0)), 32000
        REDIM TEMPO%(32000)
        DEF SEG
BildLoad:
        DEF SEG = VARSEG(Tempo%(0))
        LOCATE 30, 1
        PRINT "Beliebige Taste f�r Demo / Any key for demo";
        A$=INPUT$(1)
        BLOAD ZIEL$, VARPTR(Tempo%(0))
BildDemo:
        FOR i% = 0 TO 200 STEP 20
            VIEW (50+i%, 150+i%) - (150+i%, 200+i%),0
            PUT (0,0),Tempo%, PSET
            FOR s% = 480 TO 700 STEP 5
                SOUND s%, s% / 8000
            NEXT s%
        NEXT i%
DemoEnde:
        A$=INPUT$(1)
        SCREEN 0
        CLS
        END