; Die Map, Spieler, etc. malen
ViewPort 200,100,300,200
; Den Bericht anzeigen
ViewPort 0,0,screenwidth,screenheight

Graphics 800 ,600,16,2
;variablen für das Fenster
Global BF_X = 100 ,BF_Y = 100 ,TextScrollY = 0

SetBuffer BackBuffer ()
While Not KeyDown (1) ;##########
    ;Spielschleife
    Color 0,0,255
    Rect 10 ,10,200,100,1
    Color 0 ,0,0
    Text 50 ,50,"Normaler Bildschirm"
    ;Die Function für das Fenster
    Update_Berichtfenster ()
    Flip
    Cls
Wend ;############

End

Function Update_Berichtfenster ()
    ;fenster verschieben
    BF_X = BF_X + (KeyDown (32) - KeyDown (30) ) * 3
    BF_Y = BF_Y + (KeyDown (31) - KeyDown (17) ) * 3
   
    ; text Scrollen
    TextScrollY = TextScrollY + (KeyDown (209) - KeyDown (201) ) * 2
   
    ; die Viewportgeschichte
    Origin BF_X,BF_Y + TextScrollY
    ;Viewportkoordinaten  werden nicht von Orgin beinflußt
    Viewport BF_X,BF_Y,300,150
   
    ; das ViewportFenster mit neuer Farbe
    ClsColor 0 ,0, $C0C0C0
    Cls
   
    ;Neue textfarbe
    Color 0 ,0, $FFFF00
    ; der Text halt
    Text 10 ,10,"Mein ViewPort geht"
    Text 10 ,40,"Taste >W A S D< verschibt das Fenster"
    Text 10 ,60,"Taste >Bild Rauf runter< zum Text verschieben"
   
    ;Alles wieder zurücksetzten
    Origin 0 ,0
    Viewport 0 ,0,GraphicsWidth () ,GraphicsHeight ()
    ClsColor 0 ,0,0
End Function

Graphics 1600,1200,32,2
setbuffer backbuffer()


fenster_vaR = 1

While not keyhit(1)
cls

(Hier rein schreibst du alles das wird auch angezeigt)
(wenn du etwas machen willst das z.b ein fenster der auf auszuschalten geht machst du ne variable und ne function z.b)

if fenster_var = 1 then fenster()

flip
wend
end

function fenster()



rect 10,10,10,10,0

blbllb

.... . ... . .. . . .



end function