1 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
2 IFA=3THEN7
3 IFA=4THEN31
4 IFA=6THEN39
5 INPUT"MODUS";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
6 IFPEEK(8037)AND64THENA=3:LOAD"MENUE",8,1
7 SYS3337:A=PEEK(8064)
8 ONA+1GOSUB9,12,37,13,20,26,13,13,21,22,14:GOTO7
9 OPEN3,8,0,"$0":GET#3,C$,C$
10 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
11 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO10
12 PRINT"[147]SEQUENZ:":PRINT"  "W$:INPUT"";W$:IFLEN(W$)<2THEN12
13 RETURN
14 POKE8115,8:PRINT"[147]G=GRAFIK":IFPEEK(8073)>127THENPRINT"F=FARBBILD"
15 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT"";
16 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN16
17 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"NAME";W$:SYS3331:W$=H$:H$=""
18 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
19 CLOSE1:RETURN
20 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO18
21 A=8075:GOTO23
22 A=8079
23 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"SCHRITTWEITE:",C
24 INPUTC:IFC<1ORC>160THEN24
25 POKEA+D,C:RETURN
26 INPUT"[147]1.BILD";D:C=(DAND7)
27 INPUT"2.BILD (ODER 0)";D:C=C+8*(DAND7):IFD>0THENC=C+64
28 IFD=0THENPRINT"GROSS";:GOSUB34:IFC$="J"THENC=C+128
29 PRINT"DRUCKEN";:GOSUB34:IFC$="N"THEN32
30 IFA=5THENA=4:LOAD"HI-PRINT",8,1
31 POKE780,C:SYS3328:PRINT"NOCHMAL";:GOSUB34:IFC$="J"THEN26
32 IFA=5THENRETURN
33 A=1:GOTO1
34 PRINT" (J/N)";
35 GETC$:IFC$<>"J"ANDC$<>"N"THEN35
36 PRINTC$:RETURN
37 PRINT"SPIEGELN";:GOSUB34:IFC$="N"GOTO14
38 A=6:LOAD"HI-SPIEGEL",8,1
39 PRINT"[147]1=RUNTER 2=HOCH 3=RECHTS 4=LINKS":INPUTC$
40 POKE49199,VAL(C$):SYS49152:A=3:GOTO1