100 REM LADEPROGRAMM
110 WI = 49152 : REM WINIT
120 WQ = 49155 : REM WQUIT
130 WW = 49158 : REM WSWITCH
140 WS = 49161 : REM WSPLIT
150 WU = 49164 : REM WUNSPLIT
160 WH = 49167 : REM WHCOPY
170 IF LL = 1 THEN GOTO 200
180 LL = 1
190 LOAD "BAS_SCREEN.PRG",8,1
200 SYS WI
210 REM HAUPTPROGRAMM
900 SYS WQ