C64 Software  <  SCA: The C64 Software Collection / EPI1

  Run
1 IF CH=1 THEN 119
2 GOSUB 98
3 N1$="":N2$="":BK=11:LG=1:NM$=N2$:GOTO113
4 EC=0:XD=0:YD=0:LI=40:HI=24:XA=0:YA=0:GOSUB171
5 LG=2:NM$=N1$:GOTO113
6 DIM M(9)
7 GOSUB139:POKE53269,7
8 GOSUB 105:GOSUB 109
9 POKE53265,PEEK(53265)OR16:POKE53280,0:GOSUB151:POKE50950,0:SYS50944
10 X=14:Y=6:GA=0:BU=0:MU=0:BA=0
11 GOSUB 39
12 IFX=27AND Y=2 THEN GOSUB 47:GOTO16
13 IFX=18AND Y=7 THEN GOSUB 60:GOTO16
14 IFX=8AND Y=14 THEN GOSUB 70:GOTO16
15 IFX=25 AND Y=14 THEN GOSUB 85:GOTO16
16 GOSUB 105:POKE 53269,7:IF GA=0 THEN 11
17 GOSUB 166
18 POKE53280,0:POKE 53265,PEEK(53265)AND239
19 SYS 50947:LOAD"",8
20 SYS 49306:IFPEEK(49381)=0 THEN 20
21 GOSUB105:PRINT"";
22 RETURN
23 REM
24 SYS 49306:XX=PEEK(49381)
25 IF XX=0 THEN 24
26 IF XX=16 THEN 46
27 XI=X:YI=Y
28 DX=((XX=4)−(XX=8))
29 DY=((XX=1)−(XX=2))
30 CO=((X+Y)AND2)/2:IF CO<>AC THEN POKESO,SE:AC=CO
31 IF DX<>0 THEN HD=0
32 IF DY<>0 THEN HD=1
33 CD=CO+HD*6:POKE2040,32+CD:POKE2041,34+CD−CO:POKE2042,36+CD
34 X=X+DX
35 Y=Y+DY
36 AD=27392+X+Y*40
37 POKESO,OF
38 IF (PEEK(AD)<>1) THEN 44
39 XS=(X*8+22)AND255:YS=Y*8+48
40 POKE53264,−1*(X*8+22>255)*255
41 POKE53248,XS:POKE53250,XS:POKE53252,XS
42 POKE53249,YS:POKE53251,YS:POKE53253,YS
43 GOTO 24
44 X=XI:Y=YI
45 GOTO 24
46 RETURN
47 GOSUB 105:XD=0:YD=0:HI=9:LI=14:XA=12:YA=7:EC=0:GOSUB 171
48 PRINT"";
49 REM
50 PRINT"";
51 PRINT"";
52 PRINT"";
53 GOSUB20
54 REM
55 BU=1:GOTO58
56 PRINT""
57 PRINT""
58 SYS 49306:IF PEEK(49381)=0 THEN 58
59 GOSUB 171:RETURN
60 GOSUB 105:XD=14:YD=0:HI=9:LI=14:XA=12:YA=7:EC=0:GOSUB 171:POKE53269,0
61 PRINT"";
62 IF BU=1 THEN 66
63 PRINT"";
64 PRINT"":PRINT"";
65 GOTO 68
66 PRINT"";
67 MU=1
68 SYS 49306:IF PEEK(49381)=0 THEN 68
69 GOSUB 171:RETURN
70 IF BA=1 THEN 84
71 GOSUB 105:XD=0:YD=9:HI=9:LI=14:XA=12:YA=7:EC=0:GOSUB 171
72 PRINT"";
73 IF MU=1 THEN 77
74 PRINT"";
75 PRINT"";
76 GOTO 82
77 PRINT""
78 PRINT"";:GOSUB20
79 REM
80 BA=1
81 XD=0:YD=18:HI=5:LI=3:XA=12:YA=10:EC=1:GOSUB 171
82 SYS 49306:IF PEEK(49381)=0 THEN 82
83 XD=0:YD=9:HI=9:LI=14:XA=12:YA=7:EC=0:GOSUB 171
84 RETURN
85 GOSUB 105:XD=14:YD=9:HI=9:LI=14:XA=12:YA=7:EC=0:GOSUB 171
86 PRINT"";
87 IF BA=1 THEN 90
88 PRINT"":PRINT"";
89 GOTO 95
90 PRINT"";
91 PRINT"";:GOSUB 20
92 PRINT"";
93 PRINT"";
94 PRINT"";:GA=1
95 SYS 49306:IF PEEK(49381)=0 THEN 95
96 GOSUB 171
97 RETURN
98 IF PEEK(49152)<>120 THEN LOAD"",8,1
99 NO=NO+1
100 IF NO=1 THEN LOAD"",8,1
101 SYS 26624
102 IFNO=2 THEN LOAD"",8,1
103 IFNO=3 THEN LOAD"",8,1
104 RETURN
105 PRINT"";
106 FOR I=1 TO 2:PRINT"";:NEXTI
107 PRINT"";
108 RETURN
109 POKE54296,7:POKE54272,0:POKE54273,10:POKE54278,16:POKE54277,17
110 SO=54276:SE=129:OFF=128
111 POKESO,OF
112 RETURN
113 REM
114 REM
115 REM
116 REM
117 E=0:CH=1
118 POKE53265,PEEK(53265) AND 239
119 E=E+1
120 POKE53280,E−1
121 IF E=1 THEN LOAD""+NM$,8,1
122 IF E=2 THEN LOAD""+NM$,8,1
123 IF E=3 THEN LOAD""+NM$,8,1
124 CH=0
125 IF LG=1 THEN 4
126 GOTO 6
127 REM
128 REM
129 REM
130 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0
131 DATA 168,0,2,170,0,10,170,128
132 DATA 10,250,128,43,174,160,46
133 DATA 171,160,46,171,160,46,171
134 DATA 160,43,174,160,10,250,128
135 DATA 10,170,128,2,170,0,0,168
136 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0
137 DATA 0,0,0
138 REM
139 REM
140 REM
141 RESTORE
142 POKE2040,32:POKE2041,34:POKE2042,36
143 REM
144 POKE53276,0
145 POKE53287,0:POKE53288,1:POKE53289,8
146 POKE53271,0:POKE53277,0
147 RETURN
148 REM
149 REM
150 REM
151 POKE49266,212:POKE49267,20:POKE49271,27:POKE49273,200
152 REM
153 POKE49274,24:POKE49269,00
154 REM
155 POKE 49276,0:POKE49277,0
156 REM
157 POKE49278,151
158 HO=8192
159 REM
160 POKE49268,BK:POKE49269,0
161 SYS49152
162 RETURN
163 REM
164 REM
165 REM
166 SYS49296
167 RETURN
168 REM
169 REM
170 REM
171 POKE49603,EC
172 REM
173 REM
174 POKE49288,XD
175 POKE49289,YD
176 POKE49290,LI
177 POKE49291,HI
178 REM
179 REM
180 POKE49292,XA
181 POKE49293,YA
182 REM
183 SYS 50096
184 RETURN
READY.