DIM i AS INTEGER, bytes AS LONG

SCREEN 12: CLS

LOCATE 2
FOR i = 1 TO 15: COLOR i
LOCATE , 9
PRINT "Dies ist ein Beispiel"
NEXT

'********************** Hier fängt das eigentliche Prog an

bytes = 38400 ' Für SCREEN 12

' ********************* Hier wird das Bild gespeichert
IF bytes THEN
DEF SEG = &HA000
FOR i = 0 TO 3
   OUT &H3CE, 4
   OUT &H3CF, i
   BSAVE "logo.GR" + CHR$(49 + i%), 0, bytes
NEXT
DEF SEG
END IF

LOCATE 26
PRINT TAB(24); "Dieses Bild wurde nun gespeichert.": PRINT
PRINT TAB(20); "Drücke eine Taste um das Bild neu zu laden."

DO
LOOP UNTIL LEN(INKEY$)
CLS

' ***************** Lade nun das Bild neu
DEF SEG = &HA000
FOR i% = 0 TO 3
   OUT &H3C4, 2
   OUT &H3C5, 2 ^ i%
   BLOAD "logo.gr" + CHR$(49 + i%), 0
NEXT

t! = TIMER: WHILE TIMER - t! < 3: WEND

END