10 REM THE SHIP ADVENTURE
15 A=0
20 IF M=1 GOTO 65
25 IF M=2 GOTO 70
30 IF M=3 GOTO 80
35 IF M=4 GOTO 85
40 IF M=5 GOTO 95
45 IF M=6 GOTO 175
50 OPEN 1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE 1
55 POKE 53280,0:POKE 53281,0:PRINT"[147]"CHR$(142);CHR$(8);""
60 IF M=0 THEN M=1:LOAD"SHOW*",8,1
65 IF M=1 THEN M=2:LOAD"SPLIT*",8,1
70 SYS 52480,8,"[B]SHIP/GRAFIK1",1
75 IF M=2 THEN M=3:LOAD"SHIP/ZEICHENSATZ",8,1
80 IF M=3 THEN M=4:LOAD"SHIP/SPRITES",8,1
85 SYS 52480,8,"",0
90 IF M=4 THEN M=5:LOAD"SHIP/SPRITE-MOVE",8,1
95 POKE 198,0
100 POKE 53272,27
105 PRINT""
110 A$(1)="          GREAT ADVENTURE 3     "
115 A$(2)="     [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
120 A$(3)="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] "
125 A$(4)="                                        KARAMBA SOFT ZEIGT: "
130 FOR I=1 TO 32
135 S$=MID$(A$(3),I,39)
140 M$=MID$(A$(4),I,39)
145 PRINT"[145][145][145]";RIGHT$(A$(1),I):PRINT"";RIGHT$(A$(2),I)
150 PRINT"[145]";S$:PRINT"[158]";M$
155 NEXT I
160 :
165 IF M=5 THEN M=6:LOAD"SHIP/MUSIK",8,1
170 :
175 SYS 52480,8,"[B]SHIP/GRAFIK2",1
180 POKE 198,0
185 SYS 4096
190 SYS 4099:FOR X=1 TO 3:NEXT X:GET A$:IF A$="" THEN 190
195 FOR N=0 TO 24:POKE 54272+N,0:NEXT
200 SYS 52480,8,"",0
205 POKE 53272,27
210 PRINT"[147][158] GLEICH ERFAEHRST DU MEHR UEBER"
215 PRINT" DIE GESCHICHTE..."
220 PRINT"[144]LOAD";CHR$(34);"SHIP/EINLEITUNG";CHR$(34);",8"
225 PRINT"[144]RUN"
230 PRINT""
235 POKE 631,13:POKE 632,13:POKE 198,2:END