5 REM BOULDEREDIT V1.0
10 IFFL=0THENFL=1:LOAD"BOULDERCHARS",8,1
20 POKE53272,PEEK(53272)AND240OR13
100 PRINT"[147]       BOULDEREDIT V1.0"
105 PRINT"1993 BY TOBIAS PFAFF"
110 POKE 53280,6:POKE53281,0
120 DEF FN H(X)=INT(X/256)
130 DEF FN L(X)=X-FN H(X)*256
140 SA=2^14
150 PRINT"-F1- LEVEL WEITERVERARBEITEN"
151 PRINT"-F3- NEUES LEVEL ERSTELLEN"
152 GETA$:IFA$=CHR$(134)THEN3070
153 IFA$<>CHR$(133)THEN152
154 PRINT"[147]_ LEVEL LADEN..."
155 PRINT"'I' INTERMISSION"
156 PRINT"'C' CAVE"
160 GET A$
170 IF A$="I" THEN E$=".INT":GOTO 200
175 IFA$="N"THENE$="":GOTO200
180 IF A$="C" THEN E$=".CAV":GOTO 200
190 GOTO 160
200 INPUT"  NAME DER LEVEL ";N$
210 IF N$="" THEN 200
215 PRINT"[147]LEGE DIE CAV UND INT DISC EIN"
216 POKE198,0:WAIT198,1
220 POKE 56,140
250 NA$=N$+E$
260 SYS57812NA$,8
265 POKE 780,0
270 POKE 781,FN L(SA)
280 POKE 782,FN H(SA)
290 SYS 65493
300 GOSUB 1000
350 PRINT"[147]":GOSUB360:GOTO410
360 FOR A=0 TO 879 STEP 2
370 FY=(PEEK(SA+A/2) AND 15):POKE1024+A+1,FY+65
375 FW=((PEEK(SA+A/2) AND 240)/16):POKE1024+A+0,FW+65
380 GOSUB2000
390 NEXT A
400 PRINT"[158]ETWAS SETZEN MIT RETURN[146] - ENDE MIT SPACE[146]";
403 RETURN
410 POKE198,0:LF=PEEK(1024+101):P=100:R=101:Q=0:GOTO 550
450 GET A$:IF A$="" THEN 450
455 U=ASC(A$)
460 IF A$="" THEN P=P+40:GOTO 550
470 IF A$="[145]" THEN P=P-40:GOTO 550
475 IF A$="@"THENGOSUB705:GOSUB3100:GOSUB360
480 IF A$="" THEN P=P+1 :GOTO 550
490 IF A$="[157]" THEN P=P-1 :GOTO 550
495 IF U>=48 AND U<=57 THEN Q=U-48
496 IF U>=65 AND U<=70 THEN Q=U-55
500 IF A$=" "THEN GOTO 700
510 IF A$=CHR$(13)THEN POKE 1024+P,Q+65:LF=Q+65:A=P:FW=Q:FY=30:GOSUB2000
520 IF A$="*" THENRUN
540 GOTO 450
550 IF P<0   THEN P=0
560 IF P>879 THEN P=879
570 LX=PEEK(1024+P)
600 IFLF=209THENLF=69
605 POKE1024+R,LF
610 POKE 1024+P,209
620 R=P:LF=LX
650 GOTO 450
700 PRINT"  BITTE WARTEN ** LEVEL WIRD BERECHNET  ";
702 GOSUB705:GOTO760
705 FOR A=0 TO 879 STEP 2
710 N=(PEEK(1024+A+1)-65)AND 15
720 M=(PEEK(1024+A+0)-65)AND 15
725 IFPEEK(1024+A)=209THENM=(LX-65)AND15
727 IFPEEK(1025+A)=209THENN=(LX-65)AND15
730 POKE SA+A/2,N+M*16
750 NEXT A:RETURN
760 INPUT"[147]NEUER NAME:";NA$:NA$=LEFT$(NA$,12)
770 NA$=NA$+E$
810 SYS57812NA$,8
820 POKE 193,FN L(SA)
830 POKE 194,FN H(SA)
840 POKE 174,FN L(SA+495)
850 POKE 175,FN H(SA+495)
860 SYS 62954
880 GOSUB 1000
890 PRINT"[147]LEGE PROGRAMM-DISC EIN!"
895 POKE198,0:WAIT198,1
900 POKE828,0:PRINT"[147]LOAD"+CHR$(34)+"B.2"+CHR$(34)+",8,1"
905 PRINT"NA$="+CHR$(34);NA$;CHR$(34)+":G[207]100"
910 POKE631,13:POKE632,13:POKE198,2:PRINTCHR$(19);:END
1000 OPEN 1,8,15:INPUT# 1,Y,Y$:CLOSE 1
1010 PRINT"  ";Y$;"  *  ( FEHLER-NR.";Y;")"
1020 IF Y=0 THEN RETURN
1030 PRINT "  ABBRUCH WEGEN I/O-FEHLER"
1040 END
2000 IFFY=0THENPOKE55297+A,12:GOTO2160
2010 IFFY=1THENPOKE55297+A,4:GOTO2160
2020 IFFY=2THENPOKE55297+A,3:GOTO2160
2030 IFFY=3THENPOKE55297+A,3:GOTO2160
2040 IFFY=4THENPOKE55297+A,9:GOTO2160
2050 IFFY=5THENPOKE55297+A,3:GOTO2160
2060 IFFY=6THENPOKE55297+A,1:GOTO2160
2070 IFFY=7THENPOKE55297+A,8:GOTO2160
2080 IFFY=8THENPOKE55297+A,2:GOTO2160
2090 IFFY=9THENPOKE55297+A,6:GOTO2160
2100 IFFY=10THENPOKE55297+A,5:GOTO2160
2110 IFFY=11THENPOKE55297+A,6:GOTO2160
2120 IFFY=12THENPOKE55297+A,1:GOTO2160
2130 IFFY=13THENPOKE55297+A,1:GOTO2160
2140 IFFY=14THENPOKE55297+A,1:GOTO2160
2150 IFFY=15THENPOKE55297+A,0
2160 IFFW=0THENPOKE55296+A,12:RETURN
2170 IFFW=1THENPOKE55296+A,4:RETURN
2180 IFFW=2THENPOKE55296+A,3:RETURN
2190 IFFW=3THENPOKE55296+A,3:RETURN
2200 IFFW=4THENPOKE55296+A,9:RETURN
2210 IFFW=5THENPOKE55296+A,3:RETURN
2220 IFFW=6THENPOKE55296+A,1:RETURN
2230 IFFW=7THENPOKE55296+A,8:RETURN
2240 IFFW=8THENPOKE55296+A,2:RETURN
2250 IFFW=9THENPOKE55296+A,6:RETURN
2260 IFFW=10THENPOKE55296+A,5:RETURN
2270 IFFW=11THENPOKE55296+A,6:RETURN
2280 IFFW=12THENPOKE55296+A,1:RETURN
2290 IFFW=13THENPOKE55296+A,1:RETURN
2300 IFFW=14THENPOKE55296+A,1:RETURN
2310 IFFW=15THENPOKE55296+A,0:RETURN
3000 PRINT"[147]":FORT=1024TO1104:POKET,69:NEXTT:FORT=55296TO55376:POKET,9:NEXTT:PRINT"";
3010 FORT=1TO10:PRINT"[149][197][129][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][149][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]";:NEXTT
3020 FORT=1483TO1903:POKET,69:NEXTT:FORT=55755TO56175:POKET,9:NEXTT
3030 RETURN
3040 FORT=1024TO1104:POKET,69:NEXTT:FORT=55296TO55376:POKET,9:NEXTT:PRINT"";
3050 FORT=1TO20:PRINT"[149][197][129][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][149][197]";:NEXTT
3060 RETURN
3070 PRINT"[147]_ NEUES LEVEL ERSTELLEN..."
3072 PRINT"-F1- INTERMISSION"
3073 PRINT"-F3- CAVE"
3074 GETA$:IFA$=CHR$(133)THENE$=".INT":GOSUB3000:GOSUB400:GOTO410
3080 IFA$=CHR$(134)THENE$=".CAV":GOSUB3040:GOSUB400:GOTO410
3090 GOTO3074
3100 POKE53280,0:POKE53281,0:POKE646,1:POKE198,0
3110 PRINT"[147]  WAS  BEZEICHNUNG   TASTE"
3120 PRINT"[152] [193]   STEIN           0"
3130 PRINT"[156] [194]   DIAMANT         1"
3140 PRINT"[159] [195]   MAGIC MILL      2"
3150 PRINT"[159] [196]   MAUER           3"
3160 PRINT"[149] [197]   RAND            4"
3170 PRINT"[159] [198]   WUCHSMAUER      5"
3180 PRINT" [199]   MANN            6"
3190 PRINT"[129] [200]   ERDE/SAND       7"
3195 PRINT"    (SPACE)"
3196 WAIT198,1:POKE198,0
3197 PRINT"[147]  WAS  BEZEICHNUNG   TASTE"
3200 PRINT" [201]   MONSTER1        8"
3210 PRINT" [202]   MONSTER2        9"
3220 PRINT" [203]   GRUENE SAEURE   A"
3230 PRINT" [203]   BLAUE SAEURE    B"
3240 PRINT" [205]   OUT VERSTECKT   C"
3250 PRINT" [206]   OUT NORMAL      D"
3260 PRINT" [207]   START/IN        E"
3270 PRINT"[144] [208]   LEERFELD        F"
3280 PRINT"    (SPACE)"
3290 GETA$:IFA$=""THEN3290
3300 PRINT"[147]":POKE198,0:RETURN