180 REM STATUSZEILEN.BAS
182 REM SPEICHERT MASCHINENPRG. AB
184 REM :
186 REM BY UWE WIARDS ; LEMWERDER
188 :
200 FORA=49152TO49296:READX:POKEA,X:NEXT
210 DATA120,169,13,141,20,3,169,192,141,21,3,88,96,162,0,189,51,192,157,0,4,169
220 DATA1,157,0,216,232,224,80,240,3,76,15,192,56,32,240,255,224,2,16,6,24,162
230 DATA2,32,240,255,76,49,234,211,212,193,212,213,211,218,197,201,204,197,206
240 DATA197,201,206,194,204,197,206,196,213,206,199,160,194,217,160,213,215,197
250 DATA160,215,201,193,210,196,211,160,160,160,193,195,200,212,218,201,199,160
260 DATA218,197,201,195,200,197,206,160,212,197,216,212,160,160,160,160,210,197
270 DATA211,212,160,193,213,198,198,213,197,204,204,197,206,160,120,169,49,141
280 DATA20,3,169,234,141,21,3,88,96,200
300 REM   SAVE-ROUTINE
302 REM SPEICHERT VON $C000 BIS $C090
304 REM AUF FLOPPY; GERAETE-NR. 8
306 :
310 OPEN8,8,8,"STATUSZEILEN.EXE,P,W"
320 HI=INT(49152/256):LO=49152-HI*256
330 PRINT#8,CHR$(LO);CHR$(HI);
340 FORI=49152 TO 49296
350 PRINT#8,CHR$(PEEK(I));
360 NEXT:CLOSE8
400 REM PROGRAMM-START
410 PRINTCHR$(14):SYS12*4096