1 A$='                            jp5w1j0 w{j                            *%%/,*-$/ ('
2 A$='                            j{,<4h%c3+4           h    4               `z ru 5'
3 A$='{{{{{{{    j    5      www5     "j`6y 5  5        j    5      5    wwwwwwwwwww'
4 A$='  5        j    5     `e                `e        j    5                      '
5 A$='           j    5                                 j    5         wwwwwwwww   '
6 A$='           !!  ""                  j   wwww5                              j   '
7 A$='  5                                :0    5 wwwwwwwwwwwww5    www5    ww5      '
8 A$='  5                                      5                                    '
9 A$='  5            wwwwwwww5   wwwwwwwwwww5  5            5                       '
10 A$='  5            5                        ""            5                  7###k'
11 A$='              ""                7#!   j                              7#!     j'
12 A$='                            7#!       jwwwwwwwwwwww5   wwwwwwwwwwwwwwwwwwwwwww'
13 REM -+- TARZAN -+-                          BY SPC SOFTWARE CORPORATIONS'83         (C) PER JEMT] JUNE 1983.
14 DEFFNM%(X%,Y%)=(X%>=Y% AND Y%)+(Y%>X% AND X%)
15 POKE -88%,0% : GOSUB 31 : A%=49152% : B%=50277%
16 M%=SWAP%(PEEK(65053%))+PEEK(65052%)-2%
17 I%=A%
18 M%=M%+14%
19 FOR I%=I% TO FNM%(I%+79%,B%)
20 POKE I%,PEEK(M%) : M%=M%+1%
21 NEXT I%
22 IF I%<=B% 18
23 S%=50176% : POKE -484%,S%,SWAP%(S%)
24 POKE -30%,33%,0%,192%,1%,209%,3%,237%,176%,201%,33%,0%,124%,1%,253%,3%,237%,176%,201%
25 POKE 65408%,245%,197%,33%,254%,255%,70%,35%,78%,33%,0%
26 POKE 65418%,0%,197%,125%,211%,58%,11%,120%,177%,188%
27 POKE 65427%,194%,143%,255%,125%,238%,64%,111%,193%,197%,27%
28 POKE 65437%,122%,179%,254%,0%,194%,140%,255%,193%,193%,241%,201%
29 POKE -10%,237%,95%,38%,0%,111%,201%
30 POKE -472%,251% : CHAIN "TARZAN.CON"
31 G$=CHR$(23%) : G1$=CHR$(135%)
32 GOSUB 56 : GET T$ : GET T$ : GOSUB 82 : GET T$ : GOSUB 33 : GET T$ : IF T$<>" " 32 ELSE RETURN 
33 ; CUR(1%,0%)'    4                                ';
34 ; CUR(2%,0%);G$;'    5 ';G1$;'At higher levels the munchers';G$;"";
35 ; CUR(3%,0%);G$;'    5 ';G1$;'will be climbing even if its';G$;' ';
36 ; CUR(4%,0%);G$;'   () ';G1$;'not a liane !!';G$;'               ';
37 ; CUR(5%,0%)'  `|0                                ';
38 ; CUR(6%,0%)'  ju0                                ';
39 ; CUR(7%,0%);G$;'   #  ';G1$;'You have a special time to';G$;'   ';
40 ; CUR(8%,0%);G$;'      ';G1$;'watch and if the time runs';G$;'   ';
41 ; CUR(9%,0%);G$;'      ';G1$;'out you lost one life.';G$;'       ';
42 ; CUR(10%,0%)'                                     ';
43 ; CUR(13%,0%);G$;'    ';G1$;'a new at every 20000 points. ';G$,'   ';
44 ; CUR(15%,0%);G$;'    ';G1$;'PLAY, LEARN AND HAVE FUN  !!';G$;'   ';
45 ; CUR(11%,0%)G$'                                     ';
46 ; CUR(14%,0%)'                                     ';
47 ; CUR(12%,0%);G$;'    ';G1$;'You own three lifes and get ';G$;'   ';
48 ; CUR(16%,0%)'                                     ';
49 ; CUR(17%,0%)'    `pp`pp`pp`p0   0  0 0pp00` `p    ';
50 ; CUR(18%,0%);G$;"    j`pj0jj0jj0k   u  u 5u !}q0j'    ";
51 ; CUR(19%,0%)'    jpjuzjuzjuz   p0p5p4 5`     ';
52 ; CUR(20%,0%)'                                     ';
53 ; CUR(21%,0%)G$' 'G1$'Press SPACE for gamestart else'G$'    ';
54 ; CUR(22%,0%)G$' 'G1$'I begin from the first page.'G$'      ';
55 RETURN 
56 ; CUR(0%,0%)G$'/////////////////////////////////////';
57 ; CUR(1%,0%);G$;'      ';G1$;'SPC SOFTWARE PRESENT :';G$;'       ';
58 ; CUR(2%,0%)'                                     ';
59 ; CUR(3%,0%)'        (l,$<lh,4(,l <lh,l           ';
60 ; CUR(4%,0%)'         j4h=nj<}h>#h=nj4j           ';
61 ; CUR(5%,0%)'         *%*%**%/*-,*%**%*           ';
62 ; CUR(6%,0%)'     *w#####################c?       ';
63 ; CUR(7%,0%)'      "######################        ';
64 ; CUR(8%,0%)'   p                                 ';
65 ; CUR(9%,0%);G$;'  `w0 ';G1$;'TARZAN ';G$;'                      ';
66 ; CUR(10%,0%)'  h3t                                ';
67 ; CUR(11%,0%)'                                     ';
68 ; CUR(12%,0%);G$'  `|0 'G1$'LIANE MUNCHER'G$'                ';
69 ; CUR(13%,0%);G$'  ju0                                ';
70 ; CUR(14%,0%)'   #                                 ';
71 ; CUR(15%,0%)'                                     ';
72 ; CUR(16%,0%);G$+'  hom '+G1$+'LIZARD'+G$+'                       ';
73 ; CUR(17%,0%)'                                     ';
74 ; CUR(18%,0%);G$+'  8|                                 ';
75 ; CUR(19%,0%);G$+' "(}$ '+G1$+'JANE'+G$+'                         ';
76 ; CUR(20%,0%)'  *$-                                ';
77 ; CUR(21%,0%)'                                     ';
78 ; CUR(22%,0%);G$;'    ';G1$;'Press SPACE for next page.';G$;'     ';
79 ; CUR(23%,0%);G$;"|||||||||||||||||||||||||||||||||||||";
80 POKE 32759%,127%
81 RETURN 
82 ; CUR(1%,0%)'                                     ';
83 ; CUR(2%,0%)G$'  5'G1$'Use ^ to climb upwards liane.'G$'   ';
84 ; CUR(3%,0%)G$'  5'G1$'If TARZAN not climbs try to'G$'     ';
85 ; CUR(4%,0%)G$' ()'G1$'move a bit.'G$'                     ';
86 ; CUR(5%,0%)'  |                                  ';
87 ; CUR(6%,0%)G$' (}$'G1$'You move him with A and S.'G$'     ';
88 ; CUR(7%,0%)G$' *$-'G1$'Climb down with [.'G$'             ';
89 ; CUR(8%,0%)'                                     ';
90 ; CUR(9%,0%)G$'         'G1$'TARZAN jumps when you'G$'     ';
91 ; CUR(10%,0%)G$'     h4  'G1$'hit RETURN.'G$'               ';
92 ; CUR(11%,0%)G$'    pn<0 'G1$'If he falls into a grave'G$'  ';
93 ; CUR(12%,0%)G$'    "';"##! "G1$"you'll lost one life."G$'     ';
94 ; CUR(13%,0%)G$'                                     ';
95 ; CUR(14%,0%)G$' www5   j{{{{                        ';
96 ; CUR(15%,0%)'                                     ';
97 ; CUR(16%,0%)'                                     ';
98 ; CUR(17%,0%)G$'  'G1$'Your task is to collect the 'G$'     ';
99 ; CUR(18%,0%)G$'  'G1$'BONUS letters.'G$'                   ';
100 ; CUR(19%,0%)G$'                                     ';
101 ; CUR(20%,0%)G$'  'G1$'TARZAN must stand'G$'    |           ';
102 ; CUR(21%,0%)G$'  'G1$'exactly with the'G$'    (}$          ';
103 ; CUR(22%,0%)G$'  'G1$'letter .'G$'            *$-B         ';
104 RETURN