0 REM *********************************
1 REM * PROGRAMMLOADER                *
2 REM *                               *
3 REM *      KLAUS-DIETER FROHN       *
4 REM *                               *
5 REM *      FALKENWEG 12             *
6 REM *                               *
7 REM *      2200 ELMSHORN            *
8 REM *                               *
9 REM *********************************
10 REM
11 REM ********************************
12 REM * LADEROUTINE                  *
13 REM ********************************
14 REM
20 IFPEEK(2)=0THENPOKE2,1:POKE51,128:POKE56,128
30 IFPEEK(787)=0THENPOKE787,1:GOSUB100
31 IFPEEK(787)=1THENPOKE787,2:LOAD"COPY",8,1
32 IFPEEK(787)=2THENPOKE787,3:LOAD"GP",8,1
33 IFPEEK(787)=3THENPOKE787,4:LOAD"SPRITE",8,1
34 IFPEEK(787)=4THENPOKE787,5:LOAD"PAGE4.NEU",8,1
35 IFPEEK(787)=5THENPOKE787,6:LOAD"BILD HOLEN",8,1
36 IFPEEK(787)=6THENPOKE787,7:LOAD"BILD ZURUECK",8,1
37 IFPEEK(787)=7THENPOKE787,8:LOAD"AUTO",8,1
40 POKE787,0
50 POKE 826,1:REM LEBEN
51 POKE 820,10:REM HOECHSTER LEVEL +1
60 FORN=21TO25:POKE 800+N,0:NEXT
61 POKE 827,0
70 FORN=20TO23:POKE1000+N,0:NEXT
90 LOAD"MENUE",8
100 REM
101 REM *******************************
102 REM * LADEBILD TARZAN             *
103 REM *******************************
109 REM
110 POKE53280,0:POKE53281,0:PRINT"[147]"
120 PRINT"[147]"TAB(9)"EIN AKTIONSSPIEL AUS"
130 PRINT""TAB(12)"[150]DER PRODUKTION"
140 PRINT""TAB(17)"[159]VON"
150 PRINT"[154]  [209][209][209][209][209]  [209][209][209]  [209][209][209][209]  [209][209][209][209][209]  [209][209][209]  [209]   [209]"
151 PRINT"    [209]   [209]   [209] [209]  [209][209]     [209] [209]   [209] [209][209]  [209]"
152 PRINT"    [209]   [209]   [209] [209]  [209][209]    [209]  [209]   [209] [209][209][209] [209]"
153 PRINT"    [209]   [209][209][209][209][209] [209][209][209][209]    [209]   [209][209][209][209][209] [209] [209] [209]"
154 PRINT"    [209]   [209]   [209] [209] [209]    [209]    [209]   [209] [209] [209][209][209]"
155 PRINT"    [209]   [209]   [209] [209]  [209]  [209]     [209]   [209] [209]  [209][209]"
156 PRINT"    [209]   [209]   [209] [209]   [209] [209][209][209][209][209] [209]   [209] [209]   [209]"
160 PRINT""TAB(6)"[158]V I E [156]L"
170 PRINT""TAB(16)"[159]S P A [129]S [150]S"
180 PRINT""TAB(30)"[153][213][195][195][195][195][195][195][201]"
181 PRINTTAB(30)"[221] 1986 [221]"
182 PRINTTAB(30)"[202][195][195][195][195][195][195][203]"
190 RETURN