100 POKE 650,128
102 GOSUB 900
105 GOTO 500
110 PRINT"[153][147]            DATENKORREKTUR             "
112 W=0:POKE53280,11:POKE53281,11
115 PRINT""
120 FOR ZB=0 TO 20
130 FOR ZA=0 TO 2
135 ZC=ZB*3+ZA:PRINTTAB(ZA*10+5);" ";
140 GG=PEEK(832+ZC):FORX=7TO0STEP-1:X$=CHR$(42*((GGAND2^X)/2^X)+46):XX$=XX$+X$
141 PRINTX$;:NEXT:IFMC=-1THENPRINTTAB(ZA*10+5)"[157][157][157][157][157][157][157][157]";:FORX=1TO8STEP2:GOTO155
142 XX$="":NEXT:PRINT"  ":NEXT:GOTO165
144 PRINT""
145 FOR ZB=0 TO 20
146 FOR ZA=0 TO 2
147 ZC=ZB*3+ZA
148 PRINTTAB(ZA*10+4);:INPUTDA$:PRINT"[145]";
149 DA$=LEFT$(DA$,8):FORX=8TO1STEP-1:X$=MID$(DA$,X,1):XX=-1*(X$="X")
150 XY=XY+XX*2^(8-X):NEXT:IF XY<0 OR XY>255 THEN144
151 PRINT"    [157][157][157][157]";XY;"[157]";:POKE832+ZC,XY
152 IF LEFT$(DA$,1)="\"THEN110
153 IF LEFT$(DA$,1)="^"THEN500
154 GOTO164
155 IFMID$(XX$,X,2)="XX"THENPRINT"[158]XX";
156 IFMID$(XX$,X,2)="X."THENPRINT"X.";
157 IFMID$(XX$,X,2)=".X"THENPRINT".X";
158 IFMID$(XX$,X,2)=".."THENPRINT"[146][152]..";
159 PRINT"[146][144]";:NEXT:GOTO142
164 XY=0  :NEXT:PRINT"";:NEXT
165 PRINT
180 PRINT"  KORRIGIEREN   ? (J/N) / SPEICHERN (S)";
200 GET K$:IF K$=""THEN 200
210 PRINT""
211 PRINT"        \ HOME  [146]         ^ MENUE  [146]     ";
220 IF K$="J"THEN W=0:GOTO 144
230 IF K$="S"THEN 260
240 IF K$="N"THEN 500
260 PRINT"[147]"
300 ZN=992+SC*10
320 FOR AA=0 TO 3
325 PRINT ZN+AA*2;"DATA";
330 FOR AB=0 TO 15
340 PRINT MID$(STR$(PEEK(832+AB+AA*16))+",",2,5);
360 NEXT:PRINT"[157] ":NEXT:PRINT"RUN"
380 FOR AA=0 TO 4:POKE 631+AA,13:NEXT
400 POKE 198,5
420 PRINT""
499 END
500 PRINT"[147][153]"
530 PRINT"                             CR WEITER "
531 PRINT"F1 BILD[146] F3 SPRITE[146] F5 MULTI 1[146] F7 MULTI 2"
532 PRINT"F2 ART [146] F4 X-EXPD[146] F6 Y-EXPD [146] F8 AENDERN"
540 V=53248
560 POKE V+0 ,150:POKE V+1,100
561 POKE 2040,13
562 POKE V+16,0  :POKE V+21,1
570 POKE53248+28,0
580 GET K$:IF K$=""THEN 580
590 HA=0
600 IF K$="[133]" THEN HA=32
601 IF K$="[134]" THEN HA=39:HP=8
602 IF K$="[135]" THEN HA=37:HP=18
603 IF K$="[136]" THEN HA=38:HP=29
605 IF HA=0 THEN 620
610 HB=(PEEK(V+HA)AND15)+1
611 POKE V+HA,HB
612 IF HA=32 THEN POKE V+33,HB:GOTO 580
615 POKE 55296+HP+800,HB
616 POKE 55297+HP+800,HB
617 GOTO 580
620 IF K$="[137]" THEN HA=28:MC=NOTMC
621 IF K$="[138]" THEN HA=29
622 IF K$="[139]" THEN HA=23
623 IF K$="[140]" THEN POKE V+21,0:GOTO 110
624 IF K$=CHR$(13) THEN GOSUB 900
625 IF HA=0 THEN 580
630 HB=ABS(SGN(PEEK(V+HA))-1)
631 POKE V+HA,HB
635 GOTO 580
900 FOR AA=0 TO 63
910 READ DA
912 IF DA=999 THEN RESTORE:SC=0:GOTO 900
915 POKE 832+AA,DA
920 NEXT:SC=SC+1:RETURN
999 :
1000 BILD 1
1002 DATA0,63,0,0,255,192,0,127,248,1,239,248,1,95,248,1
1004 DATA87,248,0,87,255,0,191,254,0,252,254,3,255,255,3,255
1006 DATA252,3,255,207,3,255,48,0,215,0,0,215,0,0,60,0
1008 DATA0,60,0,0,60,0,0,60,0,0,60,0,0,252,0,255
1009 :
1010 BILD 2
1011 :
1012 DATA0,42,0,0,170,128,0,170,160,0,253,208,0,245,64,0
1014 DATA245,0,0,20,0,0,40,0,0,170,0,0,170,192,0,170
1016 DATA128,0,170,192,0,150,128,0,39,0,0,40,0,0,42,0
1018 DATA0,170,0,2,130,128,10,0,128,14,0,160,3,192,252,255
1019 :
1020 BILD 3
1021 :
1022 DATA0,255,192,0,255,192,0,255,192,3,255,240,0,91,84,0
1024 DATA21,0,0,60,0,0,255,0,0,255,192,0,255,192,0,255
1026 DATA192,0,215,192,0,55,0,0,60,0,0,63,0,0,255,0
1028 DATA3,195,192,15,0,192,15,0,240,3,192,252,0,0,63,255
1029 :
1030 BILD 4
1031 :
1032 DATA 0,0,0,0,112,0,0,240,0,1,176,0,3,48,0,14
1034 DATA 48,0,12,48,6,12,240,6,13,248,6,12,240,6,60,97
1036 DATA 134,124,1,134,62,1,134,24,1,158,0,1,190,0,1,158
1038 DATA 0,7,140,0,15,128,0,7,128,0,3,0,0,0,0,255
1039 :
1040 BILD 5
1041 :
1042 DATA0,0,0,0,0,0,14,0,0,15,0,0,13,128,0,12
1044 DATA192,0,12,112,0,12,48,0,60,49,128,126,49,128,60,49
1046 DATA128,24,49,134,0,241,134,1,249,134,0,241,134,0,103,134
1048 DATA0,15,134,0,7,30,0,3,62,0,0,30,0,0,12,255
1049 :
1050 BILD 6
1051 :
1052 DATA247,188,223,132,160,196,132,161,36,132,161,36,132,161,36,132
1054 DATA161,36,132,161,36,132,161,36,132,161,36,132,161,36,183,57
1056 DATA228,182,57,228,149,33,36,148,161,36,148,161,36,148,161,36
1058 DATA148,161,36,148,161,36,148,161,36,148,161,36,244,189,36,255
1059 :
1060 BILD 7
1061 :
1062 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1064 DATA 255,0,195,117,192,62,255,252,58,170,171,235,170,187,253,255
1066 DATA 223,13,192,220,3,0,48,0,0,0,0,0,0,0,0,0
1068 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1069 :
1070 BILD 8
1071 :
1072 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1074 DATA0,0,0,0,0,0,0,0,0,4,0,15,255,0,60,48
1076 DATA192,63,48,192,63,48,192,255,255,124,255,223,255,215,223,253
1078 DATA253,223,127,127,221,253,247,255,223,55,0,220,12,0,48,255
1079 :
1080 BILD 9
1081 :
1082 DATA0,0,0,0,0,0,0,120,0,1,192,0,3,191,192,7
1084 DATA191,192,7,188,128,7,184,0,3,221,248,1,206,252,3,199
1086 DATA28,3,3,56,6,195,96,5,239,112,12,252,56,0,251,28
1088 DATA0,119,252,0,7,252,0,3,248,0,0,224,0,0,0,255
1089 :
1090 BILD 10
1091 :
1092 DATA0,0,0,0,3,192,0,106,160,0,106,160,0,106,160,0
1094 DATA1,64,0,2,128,0,10,160,0,38,252,0,90,232,0,90
1096 DATA252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124
1098 DATA0,26,144,0,63,240,0,13,192,0,1,0,0,0,0,255
1099 :
1100 BILD 11
1101 :
1102 DATA0,0,0,0,0,0,0,106,160,0,106,160,0,106,160,0
1104 DATA1,64,0,2,128,0,10,160,0,38,252,0,154,212,0,154
1106 DATA252,0,170,168,0,255,252,0,170,168,0,86,84,0,246,124
1108 DATA0,26,144,0,63,240,0,13,192,0,0,0,0,0,0,255
1109 :
1110 BILD 12
1111 :
1112 DATA0,0,0,0,60,0,0,78,0,12,159,48,28,191,56,20
1114 DATA191,56,20,126,56,20,0,56,22,24,120,19,0,248,9,255
1116 DATA240,7,255,224,1,255,128,0,24,0,0,24,0,0,24,0
1118 DATA0,110,0,1,159,128,2,63,192,3,255,192,0,0,0,255
1119 :
1120 BILD 13
1121 :
1122 DATA0,0,0,0,120,0,0,156,0,1,62,0,1,62,0,1
1124 DATA254,0,0,252,0,0,120,0,0,0,0,0,48,0,0,0
1126 DATA0,0,48,0,15,255,192,2,127,0,1,62,0,0,188,0
1128 DATA0,188,0,0,188,0,0,252,0,0,0,0,0,0,0,255
1129 :
1130 BILD 14
1131 :
1132 DATA0,0,0,0,0,0,0,94,0,0,44,0,0,44,0,0
1134 DATA44,0,0,44,0,0,44,0,0,44,0,0,94,0,1,191
1136 DATA128,6,127,224,9,255,240,19,255,248,19,254,248,19,252,248
1138 DATA9,253,240,6,255,224,1,255,128,0,54,0,1,255,128,255
1139 :
1140 BILD 15
1141 :
1142 DATA0,191,128,2,98,96,9,89,88,9,217,216,11,251,248,2
1144 DATA234,224,0,170,128,0,42,0,1,63,16,4,192,196,4,63
1146 DATA4,4,192,196,4,63,4,4,192,196,4,63,4,4,192,196
1148 DATA4,63,4,4,192,196,0,63,0,0,64,64,1,85,80,255
1149 :
1150 BILD 16
1151 :
1152 DATA63,255,252,234,170,171,213,85,87,255,255,255,58,170,172,234
1154 DATA170,171,238,174,235,235,250,235,235,186,235,235,186,235,235,186
1156 DATA235,235,186,235,235,186,235,235,250,235,235,250,251,229,85,91
1158 DATA58,170,172,255,255,255,234,170,171,213,85,87,63,255,252,255
1159 :
1160 BILD 17
1161 :
1162 DATA0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58
1164 DATA190,172,58,182,172,250,170,175,218,170,171,218,170,171,218,191
1166 DATA255,218,170,171,214,170,171,246,170,175,54,170,172,53,170,172
1168 DATA61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255
1169 :
1170 BILD 18
1171 :
1172 DATA0,255,0,3,235,192,15,170,240,14,170,176,62,170,188,58
1174 DATA190,172,58,178,172,250,170,252,234,175,0,218,176,0,218,192
1176 DATA0,218,176,0,214,175,0,246,170,252,54,170,172,53,170,172
1178 DATA61,170,188,13,106,176,15,90,240,3,215,192,0,255,0,255
1179 :
1180 BILD 19
1181 :
1182 DATA0,255,0,3,235,192,15,170,240,14,170,176,62,170,176,58
1184 DATA250,192,58,219,0,250,172,0,234,176,0,218,192,0,219,0
1186 DATA0,218,192,0,214,176,0,246,172,0,54,171,0,53,170,192
1188 DATA61,170,176,13,106,176,15,90,240,3,215,192,0,255,0,255
1189 :
1190 BILD 20
1191 :
1192 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0
1194 DATA38,0,0,79,0,0,95,0,0,127,0,0,62,0,0,93
1196 DATA0,0,128,128,29,0,92,38,0,38,79,0,79,95,127,95
1198 DATA127,0,127,62,0,62,28,0,28,0,0,0,0,0,0,255
1199 :
1200 BILD 21
1201 :
1202 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1204 DATA0,0,0,0,0,0,0,0,0,126,0,1,143,128,2,63
1206 DATA192,4,127,224,4,255,224,13,255,240,13,255,240,15,254,240
1208 DATA7,252,224,7,253,224,3,255,192,1,255,128,0,126,0,255
1209 :
1210 BILD 22
1211 :
1212 DATA0,0,0,0,0,0,0,0,0,1,234,128,1,61,128,1
1214 DATA61,128,1,61,128,1,61,128,1,191,128,0,159,0,0,223
1216 DATA0,0,110,0,0,60,0,0,24,0,0,24,0,0,24,0
1218 DATA0,24,0,0,48,0,0,110,0,1,159,128,1,191,128,255
1219 :
1220 BILD 23
1221 :
1222 DATA192,40,3,192,170,3,240,170,15,62,170,188,62,169,124,58
1224 DATA171,108,37,107,217,170,170,170,170,150,170,42,21,168,41,170
1226 DATA104,10,170,160,10,130,160,42,130,168,42,0,168,42,0,168
1228 DATA170,0,168,168,0,42,168,0,42,100,0,25,100,0,25,255
1229 :
1230 BILD 24
1231 :
1232 DATA48,40,12,48,170,12,60,170,12,62,170,188,62,170,188,57
1234 DATA105,108,39,235,216,170,170,170,170,170,170,41,85,104,42,150
1236 DATA168,10,170,160,10,130,160,10,130,160,10,130,160,10,130,160
1238 DATA10,130,160,10,130,160,10,130,160,6,65,144,21,65,84,0
1239 :
1240 BILD 25
1241 :
1242 DATA0,0,0,0,0,0,0,2,160,0,10,224,0,11,224,0
1244 DATA47,232,0,47,232,0,159,232,2,170,170,42,170,169,106,170
1246 DATA169,106,170,170,170,170,170,170,170,171,253,255,220,5,64,84
1248 DATA5,64,84,1,0,16,0,0,0,0,0,0,0,0,0,255
1249 :
1250 BILD 26
1251 :
1252 DATA0,0,0,0,0,0,84,40,0,93,85,80,245,85,84,85
1254 DATA85,245,84,85,13,0,40,1,0,40,1,0,40,0,0,168
1256 DATA0,0,168,0,0,168,0,2,168,0,2,168,0,2,168,0
1258 DATA2,160,0,2,160,0,2,160,0,10,160,0,10,160,0,255
1259 :
1260 BILD 27
1261 :
1262 DATA3,252,0,14,171,0,14,170,192,58,170,191,58,165,187,234
1264 DATA167,187,234,234,171,234,250,171,234,191,251,234,176,15,234,179
1266 DATA48,234,189,223,234,179,119,234,172,207,234,172,0,234,171,240
1268 DATA58,170,172,58,170,172,14,170,176,3,234,176,0,63,192,255
1269 :
1270 BILD 28
1271 :
1272 DATA0,0,0,0,0,0,0,0,0,2,138,0,10,170,128,42
1274 DATA170,160,41,101,160,165,85,104,159,255,216,167,255,104,41,85
1276 DATA160,10,170,128,2,170,0,0,0,0,0,0,0,0,0,0
1278 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255
1279 :
1280 BILD 29
1281 :
1282 DATA0,0,0,0,0,0,0,255,0,15,0,240,48,0,12,48
1284 DATA0,12,240,0,15,192,0,3,193,0,67,192,65,3,192,20
1286 DATA3,240,20,15,48,20,12,48,20,12,48,20,12,12,20,48
1288 DATA3,255,192,3,85,192,15,255,240,3,85,192,0,255,0,255
1289 :
1290 BILD 30
1291 :
1292 DATA0,0,0,0,0,0,0,0,0,15,2,128,55,201,160,55
1294 DATA201,160,63,202,160,15,202,128,0,200,0,0,32,0,0,32
1296 DATA0,0,32,0,0,140,0,10,143,192,38,141,240,38,141,240
1298 DATA42,143,240,10,3,192,0,0,0,0,0,0,0,0,0,255
1299 :
1300 BILD 31
1301 :
1302 DATA0,0,0,0,0,0,0,0,0,0,60,0,0,23,0,0
1304 DATA7,0,0,21,0,0,21,0,0,4,0,0,247,192,1,255
1306 DATA208,5,63,20,6,63,36,0,110,64,0,106,64,0,34,0
1308 DATA0,34,0,0,34,0,0,34,0,0,179,128,0,243,192,255
1309 :
1310 BILD 32
1311 :
1312 DATA0,60,0,0,251,0,0,255,0,2,235,0,14,235,0,62
1314 DATA183,0,58,191,176,250,174,176,251,186,240,250,171,240,242,167
1316 DATA192,194,165,128,67,170,192,66,255,128,156,170,128,14,162,128
1318 DATA14,162,160,12,160,160,0,0,160,0,0,240,0,0,60,255
1319 :
1320 BILD 33
1321 :
1322 DATA0,28,0,0,127,128,0,63,192,0,63,192,0,23,128,0
1324 DATA127,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7
1326 DATA192,3,159,192,3,247,128,3,135,128,0,15,0,0,7,128
1328 DATA0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255
1329 :
1330 BILD 34
1331 :
1332 DATA0,28,0,0,127,128,0,191,192,0,63,192,0,23,128,0
1334 DATA63,128,0,31,0,0,15,0,0,29,128,0,3,192,0,7
1336 DATA192,0,15,192,0,31,128,0,7,128,0,15,0,0,7,128
1338 DATA0,15,128,0,29,128,0,184,192,0,112,192,0,35,192,255
1339 :
1340 BILD 35
1341 :
1342 DATA0,171,127,252,72,248,30,133,240,15,3,224,3,131,192,3
1344 DATA131,192,1,135,192,0,199,128,1,71,128,3,103,128,6,63
1346 DATA0,7,255,0,7,255,0,13,127,128,13,127,128,9,63,128
1348 DATA9,61,128,0,24,192,0,8,64,0,28,224,0,20,160,255
1349 :
1350 BILD 36
1351 :
1352 DATA1,255,128,15,255,240,63,255,252,127,255,254,112,126,6,96
1354 DATA60,2,224,24,3,224,60,3,240,118,7,127,227,254,63,227
1356 DATA252,63,193,252,63,227,252,15,255,240,7,0,224,0,0,0
1358 DATA8,0,16,12,0,48,15,0,240,3,129,192,0,255,0,255
1359 :
1360 BILD 37
1361 :
1362 DATA0,0,0,2,128,0,10,128,0,10,0,0,42,0,0,42
1364 DATA0,0,42,0,0,42,0,0,234,0,0,234,0,0,234,3
1366 DATA192,234,15,192,218,60,192,246,188,0,253,176,0,255,124,3
1368 DATA63,255,63,63,255,255,15,255,252,3,255,240,0,255,192,255
1369 :
9999 DATA 999