C64 Software  <  SCA: The C64 Software Collection / EPI2

  Run
1 IF CH=1 THEN 62
2 GOSUB 47:SYS 26624
3 N1$="":N2$="":BK=7:LG=1:NM$=N2$:GOTO55
4 EC=0:XD=0:YD=0:LI=40:HI=24:XA=0:YA=0:GOSUB126
5 LG=2:NM$=N1$:GOTO55
6 GOSUB 140:EPI=2:POKE24600,128:POKE24601,0
7 GOSUB86:POKE53269,15:FORI=0TO3:POKE53248+I*2,100:NEXTI:POKE53264,0
8 RESTORE:GOSUB 99
9 POKE 53249,150:POKE53251,170:POKE53253,170
10 POKE49603,1:SYS 25237
11 GOSUB 72
12 POKE53265,PEEK(53265)OR16:POKE50950,1:SYS50944
13 POKE53280,0
14 POKE24941,1:POKE24943,2
15 POKE25051,31
16 SYS 25040
17 IF PEEK(24603)=0 THEN 10
18 IF EPI=2 THEN 36
19 GOSUB 121:POKE53280,0:POKE53281,0:S=PEEK(24600)+PEEK(24601)*256
20 PRINT"";S
21 PRINT""
22 PRINT""
23 PRINT""
24 GETA$:A=VAL(A$)
25 IF A=1 THEN RUN
26 IF A=2 THEN 28
27 GOTO 24
28 IF EPI=2 THEN 36
29 GOSUB121:POKE53265,PEEK(53265)AND239:POKE53280,15
30 POKE 29440,0:POKE44,115:SYS50947
31 PRINT"";CHR$(34);"";CHR$(34);""
32 PRINT""
33 SYS 26624:POKE631,13:POKE632,13:POKE198,2
34 NEW
35 END
36 POKE816,165:POKE817,244
37 N1$="":N2$="":BK=7:LG=3:NM$=N2$:GOTO55
38 EC=0:XD=0:YD=0:LI=40:HI=24:XA=0:YA=0:GOSUB126
39 LG=4:NM$=N1$:GOTO55
40 REM
41 RESTORE:FORI=1TO12:READV:NEXTI:GOSUB 99
42 REM
43 POKE24955,184:POKE24956,98
44 POKE25349,184:POKE25350,98
45 EPI=3
46 GOTO9
47 IF PEEK(49152)<>120 THEN LOAD"",8,1
48 IF PEEK(24955)<>32 THEN LOAD"",8,1
49 CT=CT+1:IF CT=2 THEN POKE816,165:POKE817,244:LOAD"",8,1
50 IF CT=1 THEN LOAD"",8,1
51 RETURN
52 PRINT"";
53 FOR I=1 TO 4:PRINT"";:NEXTI
54 RETURN
55 REM
56 REM
57 REM
58 REM
59 E=0:CH=1
60 POKE53281,BK
61 POKE53265,PEEK(53265) AND 239
62 E=E+1
63 POKE53280,E−1
64 IF E=1 THEN LOAD""+NM$,8,1
65 IF E=2 THEN LOAD""+NM$,8,1
66 IF E=3 THEN LOAD""+NM$,8,1
67 CH=0
68 IF LG=1 THEN 4
69 IF LG=2 GOTO 6
70 IF LG=3 GOTO 38
71 IF LG=4 GOTO 40
72 REM
73 REM
74 REM
75 S=49288:POKES,32:POKES+1,1:POKES+2,2:POKES+3,2:POKES+5,23
76 FORI=0 TO 12 :POKES+4,3*I:SYS50096:NEXTI
77 POKE24603,13
78 S=49288:POKES,38:POKES+1,1:POKES+2,2:POKES+3,2:POKES+5,20
79 FORI=12 TO 0 STEP−1:POKES+4,3*I:SYS50096:NEXTI
80 POKE24602,0
81 RETURN
82 DATA 18,10,7,1,1,10,28,10,34,10,34,1
83 DATA18,8,28,2,34,3,7,3,11,3,35,9
84 REM
85 REM
86 REM
87 REM
88 NL=1/2
89 POKE2040,32:POKE2041,33:POKE2042,35:POKE2043,36
90 REM
91 POKE53276,8
92 POKE 53287,0:POKE53288,6:POKE53289,0:POKE53290,12
93 POKE 53285,1
94 POKE 53286,0
95 POKE24877,37:POKE24882,38
96 POKE25238,157:POKE25248,147:POKE25253,141
97 POKE24857,161:POKE24867,151:POKE24872,141
98 RETURN
99 REM
100 FOR SJ=0 TO 5:READSX,SY:POKE24576+SJ*2,SX:POKE24577+2*SJ,SY:POKE24592+SJ,0
101 NEXTSJ
102 RETURN
103 REM
104 REM
105 REM
106 POKE49266,208:POKE49267,20:POKE49271,27:POKE49273,200
107 REM
108 POKE49274,24:POKE49269,00
109 REM
110 POKE 49276,15:POKE49277,0
111 REM
112 POKE49278,151
113 HO=8192
114 REM
115 POKE49268,BK:POKE49269,0
116 SYS49152
117 RETURN
118 REM
119 REM
120 REM
121 SYS49296
122 RETURN
123 REM
124 REM
125 REM
126 POKE49603,EC
127 REM
128 REM
129 POKE49288,XD
130 POKE49289,YD
131 POKE49290,LI
132 POKE49291,HI
133 REM
134 REM
135 POKE49292,XA
136 POKE49293,YA
137 REM
138 SYS 50096
139 RETURN
140 REM
141 REM
142 REM
143 POKE53265,PEEK(53265)OR32
144 POKE53270,PEEK(53270)OR16
145 POKE53272,PEEK(53272)OR 8
146 RETURN
READY.