SCREEN 13
'*** Testbild zeichnen ***
FOR I = 0 to 255
CIRCLE (160, 100), I, I
NEXT

'*** Testbild abspeichern ***
DEF SEG = &HA000              ' Datensegment auf Videospeicher einstellen
BSAVE "BILD.BSV", 0, 64000    ' Offset ist 0, Anzahl der Bytes ist 64000
DEF SEG                       ' Datensegment zurückstellen

CLS

'*** Testbild wieder laden ***
DEF SEG = &HA000              ' Datensegment auf Videospeicher einstellen
BLOAD "BILD.BSV"              ' Offsetangabe nicht notwendig
DEF SEG                       ' Datensegment zurückstellen

END