50 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
60 IFA=3THEN150
70 IFA=4THEN650
100 INPUT"BETRIEBSART";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
110 IFPEEK(8073)AND64THENA=3:LOAD"MENUE",8,1
150 SYS3337:A=PEEK(8064)
160 ONA+1GOSUB200,250,300,290,400,600,290,290,500,510,300:GOTO150
200 OPEN3,8,0,"$0":GET#3,C$,C$
210 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
220 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO210
250 PRINT"[147]SEQUENZ:":PRINT"  "W$:INPUT"";W$:IFLEN(W$)<2THEN250
290 RETURN
300 POKE8115,8:PRINT"[147]G=GRAFIKBILD":IFPEEK(8073)>127THENPRINT"F=FARBBILD"
310 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT" -->";
320 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN320
330 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"FILENAME";W$:SYS3331:W$=H$:H$=""
340 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
350 CLOSE1:RETURN
400 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO340
500 A=8075:GOTO520
510 A=8079
520 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"SCHRITTWEITE:"C,
530 INPUTC:IFC<1ORC>160THEN530
540 POKEA+D,C:RETURN
600 INPUT"[147]NUMMER 1.BILD";D:C=(DAND7)
610 INPUT"NUMMER 2.BILD (0=NUR 1 BILD)";D:C=C+8*(DAND7):IFD>0THENC=C+64
620 IFD=0THENPRINT"GROSS";:GOSUB800:IFC$="J"THENC=C+128
630 PRINT"DRUCKEN";:GOSUB800:IFC$="N"THEN660
640 IFA=5THENA=4:LOAD"HI-PRINT",8,1
650 POKE780,C:SYS3328:PRINT"NOCHMAL";:GOSUB800:IFC$="J"THEN600
660 IFA=5THENRETURN
670 A=1:GOTO50
800 PRINT" ? (J/N)";
810 GETC$:IFC$<>"J"ANDC$<>"N"THEN810
820 PRINTC$:RETURN