100 REM *** STARTADRESSEN ***
110 PINIT =49568    :REM INITIALIS.
120 WINDOW=PINIT+3  :REM WINDOW MALEN
130 PUFFER=WINDOW+3 :REM WINDOW PUFFERN
140 INVERT=PUFFER+3 :REM INVERTIEREN
150 :
160 SYS PINIT:REM INITIALISIEREN !!!
170 :
180 REM *** WINDOWINHALT DEFFINIEREN **
190 M$(1)=" EINTRAGEN"
200 M$(2)=" SUCHEN"
210 M$(3)=" AENDERN"
220 M$(4)=" LOESCHEN"
230 :
240 :
250 REM *** WINDOW -  DEMO ***
260 COL=5:LINE=3:  REM LINKE OBERE ECKE
270 BREITE=13:LAENGE=6
280 :
290 PRINT CHR$(147):REM CLEAR SCREEN
300 FOR I=1 TO 20:PRINT "DIES IST EIN TEST DER WINDOW-VERWALTUNG":NEXT I
310 :
320 SYS PUFFER,5,3,13,6,0
330 SYS WINDOW,5,3,13,6,M$(1)
340 GET A$:IF A$="" THEN 340
350 SYS PUFFER,5,3,13,6,1