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
145 CNTRL =INVERT+3 :REM HAUPTPROGRAMM
150 :
160 SYS PINIT:REM INITIALISIEREN !!!
170 :
180 REM *** PULL-DOWN-MENUE ***
190 DIM M$(20)
200 M$="  [194]EARBEITEN  [196]ISK"
210 M$(1) ="           "
220 M$(2) =" [197]INTRAGEN"
230 M$(3) =" [211]UCHEN"
240 M$(4) =" [193]ENDERN"
250 M$(5) =" [204]OESCHEN"
260 M$(6) ="          "
270 M$(7) =" [196]IRECTORY"
280 M$(8) =" [210]ENAME"
290 M$(9) =" [211]CRATCH"
300 M$(10)=" [195]OPY"
310 M$(11)=" "
320 :
330 REM *** AUFRUF ***
340 PRINT CHR$(14):REM GROSS/KLEIN-MODUS
350 SYS CNTRL,M$,M$(1),MENUE%,BEFEHL%
360 PRINT
370 PRINT "[205]ENUE  [206]R." MENUE%+1
380 PRINT "[194]EFEHL [206]R." BEFEHL%+1