10 IFPEEK(49152)<>76THENLOAD"GRAFIK-FILE*",8,1
15 GOSUB1000
20 X=100:Y=100:D=0:A=0:B=1:POKE788,52
30 PRINT"[147][154]         GRAFIK-FILE / ZEICHNEN         "
40 PRINT"       IM EDITOR [NACH 'SPACE'] :"
50 PRINT"      STEUERUNG: JOYSTICK / PORT 2"
60 PRINT"       D [FEUER] = LOESCHEN"
70 PRINT"       Z [FEUER] = ZEICHNEN"
80 PRINT"               I = INVERTIEREN"
90 PRINT"       F1 / F3   = ZEICHENFARBE  + / -"
100 PRINT"       F5 / F7   = HINTERGRUNDF. + / -"
110 PRINT"               S = SPEICHERN * KENNBUCH-"
120 PRINT"               L = LADEN     * STABEN [157][157][157][157][157][157][157]EINGEBEN!"
130 PRINT"               E = PRG.-ENDE"
140 POKE198,0:WAIT198,1:POKE198,0:SYS49152:GOSUB630
150 GOSUB440:J=31-(31ANDPEEK(56320))
160 IFJ=0THEN150
170 IFJ=>16THEN200
180 ONJGOSUB220,230,,240,250,260,,270,280,290
190 GOTO150
200 ONJ-15GOSUB300,310,320,,330,340,350,,360,370,380
210 GOTO150
220 Y=Y-1:GOTO390
230 Y=Y+1:GOTO390
240 X=X-1:GOTO390
250 X=X-1:Y=Y-1:GOTO390
260 X=X-1:Y=Y+1:GOTO390
270 X=X+1:GOTO390
280 X=X+1:Y=Y-1:GOTO390
290 X=X+1:Y=Y+1:GOTO390
300 SYS49164+D,X,Y:GOTO390
310 Y=Y-1:SYS49164+D,X,Y:GOTO390
320 Y=Y+1:SYS49164+D,X,Y:GOTO390
330 X=X-1:SYS49164+D,X,Y:GOTO390
340 X=X-1:Y=Y-1:SYS49164+D,X,Y:GOTO390
350 X=X-1:Y=Y+1:SYS49164+D,X,Y:GOTO390
360 X=X+1:SYS49164+D,X,Y:GOTO390
370 X=X+1:Y=Y-1:SYS49164+D,X,Y:GOTO390
380 X=X+1:Y=Y+1:SYS49164+D,X,Y
390 IFX>320THENX=0:GOTO410
400 IFX<1THENX=320
410 IFY>200THENY=0:GOTO430
420 IFY<1THENY=200
430 RETURN
440 GETA$
450 IFA$=CHR$(133)THENGOSUB560:RETURN
460 IFA$=CHR$(134)THENGOSUB580:RETURN
470 IFA$=CHR$(135)THENGOSUB600:RETURN
480 IFA$=CHR$(136)THENGOSUB620:RETURN
490 IFA$="I"THENSYS49161:RETURN
500 IFA$="Z"THEND=0  : RETURN
510 IFA$="D"THEND=3  : RETURN
520 IFA$="S"THENGOSUB640:SYS49173,"PIC."+X$,8
530 IFA$="L"THENGOSUB640:SYS49170,"PIC."+X$+"*",8
540 IFA$="E"THENSYS49179:LIST
550 RETURN
560 A=A+1:IFA>15THENA=0
570 GOTO630
580 A=A-1:IFA<0THENA=15
590 GOTO630
600 B=B+1:IFB>15THENB=0
610 GOTO630
620 B=B-1:IFB<0THENB=15
630 SYS49158,A*16+B:RETURN
640 GETX$:IFX$=""THEN640
650 M=ASC(X$):IFM<48ORM>90THEN640
660 RETURN
1000 PRINT"[147]      GRAFIK-FILE/ZEICHNEN - INFO       [146]";
1001 PRINT"   LEIDER STRAEUBTE SICH DAS PROGRAMM      GANZ ENERGISCH, EIN SPRITE";
1002 PRINT" UNTER-":PRINT"   ZUBRINGEN!  -  S O R R Y !!!!
1003 [153]"   FALLS DIE 'INFOSEITE' WEGEN 'LOAD'      UND  'SAVE' ETWAS UNKLAR IST:
1004 PRINT"   MAN GIBT NACH ENTSPRECHENDER            ANWAHL GANZ EINFACH 'BLIND'
1005 [153]"   EINEN KENNBUCHSTABEN [A - Z] EIN.
1006 PRINT"   DAS BILD WIRD DANN UNTER 'PIC.A'
1007 [153]"   (ODER WELCHER BUCHSTABE IMMER...)
1008 PRINT"   AUF DISC GESPEICHERT. AUSSER BUCH-      STABEN IST KEIN ZEICHEN";
1009 PRINT" ERLAUBT!"
1010 PRINT"   ES BESTEHT JEDOCH DIE MOEGLICHKEIT,     DIE FILES NACHTRAEGLICH";
1011 PRINT" UMZUBE-"
1012 PRINT"   NENNEN. - DABEI MUSS JEDOCH DER         KENNBUCHSTABEN ALS KENNUNG
1013 [153]"   ERHALTEN BLEIBEN! -WEITERE ZUSAETZE     SPIELEN ZUM LADEN KEINE";
1014 [153]" ROLLE!":[153]"   ICH HOFFE, DASS EUCH MEINE 'ERWEI-      TERUNG' GEFAELLT...
1015 PRINT"                                                         MICHAEL";
1016 POKE198,0:WAIT198,1:POKE198,0:RETURN