0 F1=1:F2=2:F3=7:F4=1
1 IFF=1THEN10
5 GOSUB4000
10 PRINT"[147]";:POKE53280,0:POKE53281,0
20 PRINT:PRINTTAB(13)"  KLAU-MENUE  [146]":PRINT:PRINT
30 PRINT"  <_>   [146] SPRITE ABSPEICHERN":PRINT
40 PRINT"  <+>   [146] HOEHERER SPEICHERBEREICH":PRINT
50 PRINT"  <E>   [146] PROGRAMMENDE":PRINT
60 PRINT" <CRSR> [146] SPRITEBLOCK ERHOEHEN":PRINT
70 PRINT" <CRSD> [146] SPRITEBLOCK ERNIEDRIGEN":PRINT
80 PRINT"  <F1>  [146] FARBE 1 VERAENDERN":PRINT
90 PRINT"  <F3>  [146] FARBE 2 VERAENDERN":PRINT
100 PRINT"  <F5>  [146] FARBE 3 VERAENDERN":PRINT
105 PRINT"  <F7>  [146] FARBE 4 VERAENDERN":PRINT
110 PRINT"                 RETURN                 [146]"
120 GETA$:IFA$<>CHR$(13)THEN120
130 PRINT"[147]";
135 INPUT"SPEICHERNAME          ";C$
140 INPUT"SPEICHERBEREICH <0-3> ";S
145 IFS>3ORS<0THENS=0
150 INPUT"ANFANGSBLOCK <0-255>  ";B
155 IFB>255ORB<0THEN150
156 C$=LEFT$(C$,7):PRINT"[147]"
160 V=53248:D=56576:I=(S-3)*-1
170 POKEV,195:POKEV+1,75
180 POKEV+2,185:POKEV+3,125
185 POKEV+4,135:POKEV+5,75:POKEV+6,125:POKEV+7,125
190 POKEV+21,15:POKEV+28,12
200 POKEV+23,10:POKEV+29,10
210 POKE2040+S*16384,B:POKE2041+S*16384,B
220 POKEV+37,F1:POKEV+38,F2
230 POKEV+39,F3:POKEV+40,F3:POKEV+41,F4
235 POKED,PEEK(D)AND252ORI
240 GETA$:IFA$=""THEN240
250 IFA$="[133]"THENF1=F1+1
260 IFF1>15THENF1=0
270 IFA$="[134]"THENF2=F2+1
280 IFF2>15THENF2=0
290 IFA$="[135]"THENF3=F3+1
300 IFF3>15THENF3=0
302 IFA$="[136]"THENF4=F4+1
304 IFF4>15THENF4=0
305 POKEV+37,F1:POKEV+38,F2:POKEV+39,F4:POKEV+40,F4:POKEV+41,F3:POKEV+42,F3
310 IFA$="E"THENGOSUB2000:GOTO3000
320 IFA$="_"THENGOSUB1000
330 IFA$="+"THENGOSUB2000:PRINT"[147]":GOTO140
340 IFA$=""THENB=B+1:IFB>255THENB=255
350 IFA$=""THENB=B-1:IFB<0THENB=0
360 POKE2040+S*16384,B:POKE2041+S*16384,B
365 POKE2042+S*16384,B:POKE2043+S*16384,B
370 GOTO240
1000 M=S*16384+64*B:HI=INT(M/256):LO=M-HI*256
1005 F$=C$+STR$(S)+"."+STR$(B)
1010 POKE903,LO:POKE904,HI
1020 SYS896
1030 OPEN1,8,1,F$
1040 FORZ=832TO832+62
1050 PRINT#1,CHR$(PEEK(Z));
1060 NEXTZ
1090 CLOSE1:RETURN
2000 POKED,PEEK(D)AND252OR3:RETURN
3000 POKEV+21,0:PRINT"[147]":PRINTTAB(10)"BLOCK           : [146] ";B:PRINT
3010 PRINTTAB(10)"SPEICHERBEREICH : [146] ";S:PRINT
3020 PRINTTAB(10)"SPEICHERNAME    : [146]  ";C$:PRINT:END
4000 F=1:LOAD"KLAU OBJ.$037F",8,1