10 REM STATUSZEILENEDITOR
11 REM BY UWE WIARDS;LEMWERDER
12 IFU=1THEN15
13 U=1:LOAD"STATUS",8,1
15 POKE53280,PEEK(53281):POKE650,128
20 PRINTCHR$(14);"[147][211]TATUSZEILENEDITOR BY [213]WE [215]IARDS"
25 PRINT" [210]EST MIT '[211]PACE' AUFFUELLEN!!"
26 PRINT" [211]TATUSZEILE IST MIT [211][217][211]49283"
27 PRINT" ABZUSCHALTEN!"
28 PRINT"[195]URSORSTEUERUNG NUR MIT '[196][197][204]'!!"
30 DIM A(80):FORI=1TO80:PRINT" [146]";:NEXT
40 PRINT"[145][145]";
45 FORI=1TO80
50 GETA$:IFA$=""THEN50
70 IFA$=CHR$(13)THEN50
80 IFA$=CHR$(20)ANDI>1 THENPRINT"[157] [146][157]";:I=I-1:GOTO50
85 IFA$=CHR$(20)THEN50
90 PRINTA$;:A(I)=ASC(A$):NEXT
110 FORI=1TO80:POKE49202+I,A(I):NEXT
120 SYS12*4096