1 POKE &O177660,64%'ELMSOFT 7.1.92. Листинг защищен.
2 COLOR 4%,4%
3 ? CHR$(158%)CHR$(12%)CHR$(140%)CHR$(140%)CHR$(146%)AT(14%,10%)"Epic I"AT(13%,11%)"ELMSOFT."
4 IF INP(&O177716,65%)><0%TH4ELCLE
5 DEF USR=&O37000
6 DEF USR1=&O37050
7 DEF USR2=&O37120
8 DEF USR3=&O37170
9 DEF USR4=&O37240
10 DEF USR5=&O37276
11 DEF USR6=&O37320
12 DATA 4%,0%,4%,12%,0%,3%,34%,3%,47%,0%,3%,7%,2%,40%,3%,35%,0%,2%,3%,2%,56%,
        4%,40%,0%,2%,0%,2%,59%,2%,43%,3%,9%,3%,23%,0%,2%,3%,2%,7%,2%,38%,2%,
        44%,2%,58%,3%,40%,0%,2%,14%,2%,25%,3%,22%,6%,47%,3%,11%,0%,6%,0%,4%,
        20%,6%,35%,6%,50%,0%,1%,0%
13 DATA 4%,8%,4%,44%,1%,59%,1%,26%,0%,1%,3%,1%,23%,1%,46%,2%,30%,0%,4%,1%,6%,
        17%,5%,43%,0%,5%,4%,5%,39%,5%,55%,0%,1%,34%,5%,48%,4%,41%,0%,5%,4%,5%,
        10%,5%,44%,1%,25%,0%,5%,10%,2%,46%,3%,30%,0%,2%,43%,5%,30%,3%,0%,0%
14 DATA 2%,10%,2%,20%,3%,0%,3%,15%,3%,40%,2%,55%,0%,3%,0%,3%,13%,3%,23%,3%,32%,
        5%,46%,0%,1%,3%,1%,10%,1%,20%,2%,32%,1%,41%,1%,55%,4%,32%,0%,5%,11%,2%,
        12%,4%,12%,1%,17%,7%,59%,0%
15 LI%=9%
16 RESTORE 12
17 ? CHR$(148%)CHR$(158%)CHR$(12%)CHR$(146%)
18 FOR T%=0%TO100%
19 PSET (RND(1)*255%,FIX(RND(1)*40%)*5%),3%
20 NEXT T%
21 L%=L%+1%
22 LI%=LI%+1%
23 GOSUB 56
24 ? AT(13%,0%)"Level:";L%;AT(1%,0%)"Apples: 0"
25 IF L%=20%TH AP%=10%EL AP%=0%
26 IF L%/5%=FIX(L%/5%)TH TW%=TW%+1%
27 X%=0%
28 IF LI%=0%TH187
29 Y%=&O1100
30 TK%=0%
31 PZ%=0%
32 ? AT(24%,0%)"Eggs:";LI%
33 NG%=0%
34 IF INP(&O177716,65%)><0%AND PR%=0%AND USR5(X%+Y%)><0%TH41EL V%=PEEK(&O177662)
35 T%=1%
36 POKE &O37054,&O30000+PZ%+NG%
37 A%=USR1(X%+Y%)
38 IF V%=25%TH X%=X%+1%ELIF V%=8%TH X%=X%-1%ELIF V%=26%AND PR%=0%AND USR5(X%+Y%)><0%TH PR%=7%
39 IF V%=25%TH PZ%=0%ELIF V%=8%TH PZ%=240%
40 IF NG%=120%TH NG%=0%EL NG%=120%
41 IF PR%>0%TH PR%=PR%-1%ELIF USR5(X%+Y%)=0%TH Y%=Y%+&O500
42 IF PR%>0%TH Y%=Y%-&O500
44 IF X%>58%TH17
45 IF X%<0%TH X%=0%ELIF X%>59%TH X%=59%
46 IF Y%<&O400TH Y%=&O400
47 POKE &O37004,&O30000+PZ%+NG%
48 A%=USR(X%+Y%)
49 IF USR6(X%+Y%)=0%TH149EL142
50 IF TK%<20%TH TK%=TK%+1%
51 IF TK%<20%THGOS183
52 GOSUB 162
53 FOR T%=0%TO350%
54 NEXT T%
55 GOTO 34
56 IF L%>7%AND L%<16%THPO &O37244,&O32070ELPO &O37244,&O30740
57 J%=0%
58 J1%=FIX(RND(1)*8%)*64%+J%+&O30000
59 A%=USR4(J1%)
60 J%=J%+RND(1)*6%
61 IF J%<64%TH58
62 READ J%
63 IF J%=0%THRETELON J% GOSUB65,69,84,76,69,84,95
64 GOTO 62
65 READ J%
66 POKE &O37244,&O31700
67 A%=USR4(&O25600+J%)
68 RETURN
69 IF J%=2%TH PO &O37244,&O30740EL PO &O37244,&O31510
70 READ J%
71 FOR T%=0%TO40%
72 J1%=J%-10%+&O4000+RND(1)*21%+FIX(RND(1)*70%)*64%
73 A%=USR4(J1%)
74 NEXT T%
75 GOTO 79
76 READ J%
77 POKE &O37244,&O31700
78 A%=USR4(&O12000+J%)
79 FOR T%=0%TO3%
80 IF T%=3%TH PO &O37244,&O31320EL PO &O37244,&O31130
81 A%=USR4(J%+&O25600-&O3000*T%)
82 NEXT T%
83 RETURN
84 PZ%=J%
85 READ J%
86 J1%=J%
87 POKE &O37244,&O31510
88 T%=FIX(RND(1)*8%)*64%+&O25600
89 A%=USR4(J1%+T%)
90 IF PZ%>3%TH93EL PO &O37244,&O30740
91 T%=FIX(RND(1)*8%)*64%+&O23000
92 A%=USR4(J1%+T%)
93 J1%=J1%+RND(1)*6%
94 IF J1%<J%+12%TH87ELRET
95 READ J%
96 POKE &O37244,&O33600
97 A%=USR4(J%+&O25600)
98 POKE &O37244,&O33410
99 A%=USR4(J%+&O22600)
100 POKE &O37244,&O33770
101 A%=USR4(&O25500+40%)
102 RETURN
103 IF DX%=1%TH XB%=XB%+3%EL XB%=XB%-3%
104 IF DY%=1%TH YB%=YB%+&O500EL YB%=YB%-&O500
105 GOTO 108
106 IF DX%=1%TH XB%=XB%+1%EL XB%=XB%-1%
107 IF DY%=1%TH YB%=YB%+&O1700EL YB%=YB%-&O1700
108 IF XB%<1%TH DX%=1%ELIF XB%>56%TH DX%=0%ELIF YB%<&O600TH DY%=1%ELIF YB%>&O26000TH DY%=0%
109 RETURN
110 IF ABS(XA%-XB%)<12%AND ABS(YA%-YB%)<&O11000TH112 ELIF XB%<XA% TH XB%=XB%+2%EL XB%=XB%-2%
111 IF YB%<YA%TH YB%=YB%+&O500EL YB%=YB%-&O500
112 IF DX%=0%TH XB%=XB%+1%ELIF DX%=1%TH XB%=XB%-1%ELIF DX%=2%TH YB%=YB%+&O500EL YB%=YB%-&O500
113 IF YB%<&O600TH DX%=2%ELIF YB%>&O25600TH DX%=3%ELIF XB%<3%TH DX%=0%ELIF XB%>56%TH DX%=1%
114 DY%=DY%-1%
115 IF DY%>0%THRETEL DY%=RND(1)*20%
116 DX%=RND(1)*4%
117 RETURN
118 IF ABS(X%-XB%)<10%AND ABS(Y%-YB%)<&O6000TH112 ELIF XB%<X%TH XB%=XB%+1%EL XB%=XB%-1%
119 IF YB%<Y%TH YB%=YB%+&O500EL YB%=YB%-&O500
120 RETURN
121 FOR T%=0%TO10%
122 GOSUB 183
123 FOR J%=0%TOXB%
124 NEXT J%,T%
125 IF XB%>0%TH XB%=XB%-1%EL XB%=10%
126 IF X%=40%AND Y%=&O22500TH ?AT(7%,23%)"Congratulations!";EL50
127 FOR J%=-50%TO50%
128 GOSUB 183
129 FOR T%=0%TO10%
130 NEXT T%
131 FOR J1%=0%TOABS(J%)
132 NEXT J1%,J%
133 A$="ELMSOFT поздравляет Вас с успешным окончанием игры Epic I !Ждите в ближайшем будущем продолжение-Epic II.В нем Вам придется поблуждать по каменным пещерам.Код игры Epic II-764.Пока!   "
134 FOR T%=1%TO183%
135 ? AT(30%,23%)MID$(A$,T%,1%);AT(0%,23%)CHR$(22%);
136 FOR J%=0%TO8%
137 GOSUB 183
138 FOR J1%=0%TO T%/14%
139 NEXT J1%,J%,T%
140 IF INP(&O177716,65%)=0%TH191EL134
141 END 'ELMSOFT 7.1.92
142 IF TW%>3%TH121 ELPO &O37174,&O32450+TW%*120%+SB%
143 A%=USR3(XB%+YB%)
144 ON TW%+1%GOSUB103,106,110,118
145 IF SB%=0%TH SB%=60%EL SB%=0%
146 POKE &O37124,&O32450+TW%*120%+SB%
147 A%=USR2(XB%+YB%)
148 IF XB%+3%>X%AND XB%-3%<X%AND YB%+&O2000>Y%AND YB%-&O2000<Y%TH149EL50
149 IF TK%<20%TH50 EL? AT(14%,23%)"O-o-o-h!";
150 POKE &O177664,740%
151 LI%=LI%-1%
152 FOR T%=0%TO50%
153 GOSUB 183
154 FOR J%=0%TOT%
155 FOR J1%=0%TO10%
156 NEXT J%,T%
157 POKE &O177664,728%
158 POKE &O37054,&O30000+PZ%+NG%
159 A%=USR1(X%+Y%)
160 ? AT(14%,23%)"        ";
161 GOTO 27
162 IF AP%>9%TH179ELPO &O37004,&O32260
163 A%=USR(XA%+YA%)
164 IF USR5(XA%+YA%)=0%TH167
165 IF XA%+3%>X%AND XA%-3%<X%AND YA%+&O2000>Y%AND YA%-&O3000<Y%TH PO &O37054,&O32260ELRET
166 AP%=AP%+1%
167 ? AT(1%,0%)"Apples:";AP%
168 POKE &O37054,&O32260
169 A%=USR1(XA%+YA%)
170 XA%=RND(1)*60%
171 YA%=(FIX(RND(1)*33%)*5%+1%)*64%
172 IF USR5(XA%+YA%)=0%TH170
173 FOR T%=20%TO-5%ST-1%
174 GOSUB 183
175 FOR J%=0%TOT%
176 NEXT J%,T%
177 TK%=10%
178 RETURN
179 FOR J%=0%TO10%
180 GOSUB 183
181 NEXT J%
182 RETURN
183 OUT -50%,64%,1%
184 OUT -50%,64%,0%
185 RETURN
186 NEXT J1%
187 FOR T%=0%TO150%
188 GOSUB 183
189 FOR J%=0%TO T%
190 NEXT J%,T%
191 POKE &O37244,&O40000
192 FOR T%=0%TO800%
193 J%=RND(1)*&O32000
194 A%=USR4(J%)
195 NEXT T%
196 GOTO 1