Post on 03-May-2019
transcript
4 cura di Tommaso Pantuso1 --------
Il programma che vi proponiamo que-sto mese è un gioco che gira sul Vic do-tato di un 'espansione di memoria di 16Kb. Esso è abbastanza vario e ben arti-colato e, benché abbiamo visto giraresul Vic giochi un po' più veloci, quello inquestione non mancherà di divertirvigrazie alle difficoltà che propone le qua-li talvolta sono tutt 'altro che banali.
15 schemi diversi, che si succedono inmaniera diversa ad ogni partita. A vol-te può succedere di dover superare piùvolte lo stesso schema, ma non preoc-cupatevi, è regolare che sia così. Ognivolta che superate un piano, uno sche-ma, o quando trovate il tesoro, riceve-te dei punti-bonus. Inoltre, nel casotroviate il tesoro, ricevete anche una
vita in regalo (all'inizio del gioco di-sponete di 3 vite). Per muovere l'orni-no usate il joystick. Potete usare ancheshift per fermare il gioco e spazio perricominciare; nella parte alta del vi-deo sono mostrati il punteggio e le vitea disposizione. Per iniziare premete ilfire. Se quando scrivete il nome nellaclassifica commettete un errore, potetecorreggerlo selezionando la freccia asinistra. Per concludere vi dico che ilgioco è accompagnato da gradevolimusichette e 'da effetti sonori interes-santi. Buona fortuna!
Per caricare il programma spengereil Vie, inserire l'espansione da 16KRam (o più) e digitare:
POKE648,30 :SYS58648 :POKE642,32:SYS58232 (RETURN).Quindi posizionare il nastro all'ini-
zio del programma numero l e preme-re SHIFT + RUN/STOP.
ILa casadi Marco Marinai - Pisa
Questo gioco «gira» su di un Vie 20con almeno 16K Ram munito di joy-stick. Lo scopo del gioco è recuperareil tesoro nascosto chi sa dove nella ca-sa della strega, piena di trabocchetti diogni genere. Il gioco è dotato di ben
MiniarchivioPer risolvere alcuni problemi, legati alla funzione di cancellazione, che possono sorge-re con l'uso del programma Miniarchivio, pubblicato sul numero 49 nella rubrica delsoftware dedicato al Vic 20, aggiungete al listato denominato «D» le seguenti righe:
213200 I FZL>eTHENGOSUB:37012l0' GOSUB233~e ' RC=RC-120:340 IFZL=0THENR:t="", FORI= 1TOLU-1 'R$=R:$+" ", NEXT' (;1)5'-'B21700' 130:31.18112002')35') CL05E2' G08'-'B4:345e 'RETURN
i. :
148 MCmicrocomputer n. 50 - marzo 1986
-------------=.softwarer------------~-------------Listato 2
Questo programma è disponibile su cas-setta presso la redazione. Vedere l'elen-co dei programmi disponibili e le istru-zioni per l'acquisto a pago 159.
110 OH1Nl%(70), N2%(,52) , HIS(7): V=36878: Vl=V-4: •.•.•2=v-3 'V3=\I-2: '14= .....-1: CS=V+l 'JJ=371~4213 PA=J.]-3: PB=PA+l ;CQ=30720: FORT=0T069' REAON1%(T) : NEXT 'FQRT-eT0!52: REAON2~:(T): l'lEXT30 FORT=0T07: HI:$<T)="e0a0000 +- ": NEXT 'POKECS, 8: POKEV-9,2~3: POKEv~ 15' GOTa100040 SC;=0' LV"'! : RD:1 : VT=3 ,QO=INT(RNO( 1 ).14)+150 PRtNT":']", l FVT:> l THEHFORT=0TOVT-2' POKE7699+T+CO, 4' POKE7699+T, 139' HEXT60 IFRO=10+LV.5THENGOSU82gee: QD=15: 00T010070 FORT=7702T08164STEP22 'POKET+CO,6'POKET+21+CO, 6: POKET, 16e'POKET+21. 160 NEXT80 FORT=0T03' FORI=7702T07723' POKEI+l*154+CO, 6' POKEI+l*154, 160' HEXT, HEXT90: OHC!OGOSllBl~00. 160121,1713121.18013, 1ge0',200e.· 211210.2290._ 23013. 2400,2"500, 2600. 271210. 28'2lo100 HP=!: FORT=64S0T06495: POKET. a, HEXT 'PO=8143 'POKEPO-22+CO, 1 'POKEPO+CO, 1 ·POKEPO-22,170110 POKEPO, 171 'FORT=15ToeSTEP-1: POKE€480+T, PEEK(6160+T) 'POKEV2,' 200' POKEV3, 200, POKE\I,T120 FORI=l T0100' HEXT, POKEV2, 0 POKEV3, la' NEXT' POKEV, 15 'POKEPO-22, 130' POKEPO, 131 '0=l130 IFPEEK(653)=1THEN130140 IFPEEK(197)~32THEHI0001~0 R1=PEEK(PA): POKEJJ, 127 R2=PEEK(PB) i POKEJJ, 255: IF(R1AN032)=0THEN300160 IF(R1AHOB)-eTHEH700170 2=( (RIAHD16)=0)-( (R2AHOI28)=0)' IF200AHOPEEK(PO+Z)OI60THEHO=Z' 00T0180
175 GOT0220180 POKEPO-22.' 32: POKEPO, 32: PO=PO+O P"PEEK(PO)' Q=PEEK(PO-22)' POKEPO-22+C01 1 'POKEPO+CO,1190 POKEPO-22, 129+0: POKEPO, 130+0' POKEV3, 200: POKEV3, e200 IFP0320RG0320RPEEK (PO+22 )=32THEH3000210 I FPO=8161 ORPO~79900RPO=7853THEH3500220 O'lQOOOSUB4000, 4100, 4200, 4300, 4400, 4500, 4600, 4700, 4800, 4900, 5000, 5100, 5200,53130,54013 .230 IFPEEK( PO-22) <> 129+00RPEEt< (PO)(:> 139+00RPEEK (PO+22) -32THEN3e00240 PRItH"~iPUtHI: :ll"RIGHTS( "0000000"+P.IGHTS(STR:f(SC), LEN<STR$<SC) )-1),7')250 GOT0130300 OS""'( (R1AN016)""'0)-( (R2AH0128)-e>: 5-05' IFDS=0THENS=O310 IFPEEK(653)=1THEH310320 IFPEEK(197)~32THEHI000330 POKEPO-22, 32 ' POKEPO, 32 'PO=PO-22 ' I FPEEK(PO+DS) o160THENPO-PO+OS340 P-PEEK(PO)' Q=PEEK<PO-22)' POKEPO-22+CO, l 'POKEPO+CO, l' POKEPO-22, 129+S' POKEPO, l30+8350 IFP<>320RQ<>32THEH3000360 IFPEEK(PO-44)~93THEN600370 OHQOOOSlIB4000, 4100, 4200 ..4300, 4400, 4500, 46013, 4700, 4800, 49130, 50130, 5100, 5200, 5360,54013380 I FPEEK (PO-22) o 129+S0RPEEK (PO) o 130+STHEH30003913 IFPEEK(PO-44)-93THEH600400 IFPEEK(653)~1 THEH400410 IFPEEK( 197)-32THEHI000420 POKEPQ-22, 32: POKEPO, 32: IFPEEK(PO+OS)<>160THENPO::zPQ+OS
(continuo a pagina /50)
MCmicrocomputer n. 50 - marzo 1986 149
(J1 o
192\
2'F'
PIt
H"
;:roJ
!~l1
!Mt!
OO
l!m
mtI
OO
'O...
•••
••",
PRI~
lT"
J&II0
0Oie:
ti!lm
l0tJP
"'O'D
*[il!'
W1"
ll!r.l
CIM
C••
oom
o'••
1J11
13••
UG"
1B
3•.:
.'~
E"r
•...IR
I"19
0001
=783
2'02
=781
3'03
=-1
'04=
01'C
I=8'
C2=1
9'C3
=1'C
4=9'
CSDC
I,A
I=80
3~'A
2=80
44'A
3=A
I t91
13E
l-81
62'
E2-
S14
3'E
3--1
'E4=
El
'~R
INT
"~::
a••
•I3
G••
.:;G
tI3G
"JG
n3G
"1
92
0PR
lt-lT
"~~:
a••
r::;••
fjG
.r:u
JJJJ
JJJJ
J"'F
ORT-
A1TO
A2'P
Ot<E
T+CO
~7'P
OKET
,!34
'NEX
T19
3(1
PETU
Rt-1
1041
3PR
INT"
.IO
'FOR
T-0T
07'P
RINT
".l''
MIO
S(''~
iCiI::
Il'',
T+1,
1),;
105'
3PR
INTR
IGHT
S(ST
R$(T
+1),
1)"~
"MIO
$(":
If~I
:i1:
11",
T+l,
l)HI
$:(T
)"ta
";:N
EXT
1060
'P
RIN
T"
~"
1137
13FO
RT=1
3T05
2'PO
KEV3
,N2%
(T)/
100'
FORI
=I~T
OSST
EP-I
/(N2
%(T)
-100
*INT
(N2%
(T)/
100»
1081
3PO
KEV,
I'FO
RJ=0
TOO'
NEXT
'NEX
T'IF
(PEE
K(PA
)AN0
32)=
OTHE
NPOK
EV3,
0'PO
KEV,
I~'O
OT04
010
913
t'lE
XT'GO
TOI0
7012
1313
POKE
PO,1
3e+0
'POK
EPO-
22,1
29+o
'IFP
<>16
7-(0
=I)O
RO<>
32TH
EN31
3013
121f
tGO
T013
0ls
e13
AI=7
731'
A2=7
741'
A3=A
I'81
=786
2'B2
=1'8
3=I'
FORT
=AIT
OA2'
POKE
T+CO
,7'P
OKET
,134
'NE
XT 1510
PP
IN
T";:r
omtl!
tmliU
~.P!
~::D
••I'3
'I3'.I
3Gn3
G"3
;l:S"
,RE
TUR
N16
0121
D1=7
854'
02z7S
35'0
3=-1
'04=
D1'e
1:78
61:8
2=1'
83=l
'C1=
3'C2
=17'
C3=1
'C4-
16'C
'=C1
1610
PRHl
T";ro
,..Im
!~W
OO
s:ll
••••
•1J
"'311
.I'3G
.I3G
J:lJ
",F
ORT=
8146
TOS
158
:POK
ET+C
O,2
'POK
ET,
138
1620
~lEX
T'RE
TURt
·l17
0001
=793
2:02
=781
3:03
*-1'
04=0
1-10
'E1=
7854
'E2=
78~'
E3=-
1'E4
=E1'
F1z79
8917
10G
1=
5'G
2=
16
'G3
=G
2'G
4=
1'P
RIN
T"1
$lIf
llffi!
M'0
~"
't1'
l'l'
1"1'
''17
20P
RIN
T"$
tl!1
.no
o:.
r~iU
lll~
D!O
O:lt
llttl!
tlm"T
A8
(14
)"::
83m
.''R
ET
UR
H18
00Cl
=2'C
2=12
'C3=
1'C4
=2'C
5=C1
,F1=
783~
G1=l
e:G2
-9'G
3=G2
:G.~
1·01
~812
1'02
.S14
0·0~
=1 18
10o4
=01+
4'EI
=814
13'E
2=81
21'E
3=-1
'E4=
EI-4
'PRI
NT"~
_••
I.TJ
,J',
J'JJ
J,J'
J••
•i11
1'1'1
'1'
~~
~S
P=
PE
EK
(PO
)'Q
""P
EE
K(P
O-2
2)'P
OK
EP
O-2
2+C
O,
1'P
OK
EP
O+C
O,
1'P
OK
EP
O-2
2,12
9+S
'PO
KE
PO
.1
440
IFP'
-::''3
:::?O
P(1'
'::--3
2TH
E!'1
3eee
o4~
OIF
PEEK
<PO-
44)=
93TH
EN60
e46
0OH
QOGO
SUB4
000.
4100
,420
0,43
0e,
4400
,450
0,46
00,
4700
,480
0.49
00,3
0e0,
5100
,~20
0,~3
00,5
400
470
IFPE
EK(P
O-22
><>1
29+S
0RPE
EK(P
O)<>
130+
STHE
N30e
048
0IF
PEEK
(PO-
44)=
93TH
EN60
049
0IF
PEEK
(653
)=lT
HEN4
90so
oIF
PEEK
(197
)=3
2THE
~1l
000
510
POKE
PO-2
2,32
'POK
EPO,
32'P
O=PO
+22'
IFPE
EK(P
O+QS
)(>1
€0TH
ENPO
~PO+
OS52
L3P
=PE
EK
(PO
):Q
""P
EE
I<(P
O-2
2):P
OK
EP
O-2
2+C
O,
1:P
OK
EP
O+C
OJ
l'P
OK
EP
O-2
2.12
9+5
'POK
EPDO
,1
30+
$~
3e
IFP<
>320
RQ<>
320R
PEEK
(PO+
22)=
32TH
EN30
0054
0PO
VEV3
;2e0
:POK
EV3.
e:IF
PO=8
1610
RPO=
79ge
ORPO
=78~
3THE
"135
0055
0O
t-10
0GO
SU
8400
0"4
10
e~
420€
1,43
00,
4412
10,
4500
',46
1210
"47
00,
4300
,49
00.'
50
00
~:5
1ee
~~200~
5301
21,"5
4(11
356
0IF
PE
EK
(PO
-22)
<,>12
9+S
0RP
EE
I((P
O)
<>13
0+S
0RP
EE
K(P
O+2
2)=
32T
HE
N30
00S
7(1
D=S
'G
OTO
130
600
IFF'
EEK(
653)
=1TH
Et'1
6eo
61e
IFPE
EK(1
97)
=32T
HE>1
l00
06
2~
~IF
(PE
EK
(PR
)AN
032)
=0T
HE
H66
0630
ONQO
GOSU
B4ee
0~41
00,4
20e,
4300
,440
0~45
0e,4
600~
4700
,4S0
0,49
0e,5
0e0~
~100
,~20
0,53
00,5
4(11
364
0IF
PEEK
(PO-
22)<
>12?
+OOR
PEE~
(PO)
<>13
0+0T
HEN3
eee
65'2
1GO
TOGB
Bێ
0PO
VEPO
-22,
32'P
OKEP
O,32
'PO=
PO+2
2:P=
PEEK
(PO)
'Q=P
EEK(
PO-2
2)'P
OKEP
O-22
+CO,
1'PO
KEPO
+CO
,1
.67
0P
Ot(
EP
O-2
2,12
9+0'
PO
KE
PO
,13
0+0'
F'O
t<E
V3,
2013
'PO
KE
V3,
067
5IF
P<>
320R
Q(>
320R
PE
EK
(PO+
22)
=32T
HEt~
30I2
le68
13GO
T013
071
30PO
KEPO
-22,
32'P
OKEP
O,16
7-(0
=1)
710
IFPE
EK(6
S3)=
ITHE
N710
7213
IFPE
EK(1
97)=
32TH
ENI0
0073
13IF
(PEE
K(PA
)AN0
8)<>
0THE
NO=P
EEK(
PO-2
2)'P
=PEE
K(PO
)'P
OKEP
O-2
2+CO
,I'G
OTOI
200
740
ONOo
GOSU
B400
0,41
00,4
200,
43e0
,440
e,4S
00,4
600,
47eo
,480
0,49
00,S
000,
SI00
,520
C,53
00..5
4(10
7S0
IFPE
EK(P
O)<>
167-
(0=I
)THE
N300
e76
0FO
RT=0
T010
0'NE
XT'G
OT07
1010
'30
PRIm
":J
••"'•
•••••
L••
••L
LU
••••
••••
••••
•u
•••u
u••
••••
••••
•••L
••••
LL
I."
1131
0PR
Itn"
••••
••••
L••
••U
LU
••••
••••
••••
•L
LU
.UL
lil"
1132
13PR
I~lT
"•••
LL
U.L
LU
.LL
U.L
LU
•••
U••
•L
.L••
U••
•L
.L••
••L
••••
LL
U.L
I.L_
_L
I."
1133
0PP
Itn"
•••L
••••
L.L
••••
U.U
L••
••L
LU
.L.L
••L
LU
.UL
",P
RIN
T"Q
lCl
.A5S
IFIC
A
4
•
~IEX
T'IF
H=7T
HE~1
31S0
FORT
=7TO
H+IS
TEP-
1'H
I$(T
)=HI
$(T-
I)'N
EXT
PRlt
n":C
SEI
AI."
H+I"
1I'
POST
O''
''PR
INT'
':CS
CRIV
IIl
.TU
ONO
ME,~
""'H
$D""
'Z=6
"RI
=PEE
K(PA
)'PO
KEJJ
,127
'R2=
PEEK
(P8)
'POK
EJJ,
2S~'
Z-Z+
«RIA
NDI6
)=0)
-«R2
ANoI
28)
3130
3141
331
~e31
60=
0)
3170
IFZ
>9
~T
HE
NZ
=3
231
80IF
Z<32
THEN
Z=9S
31S
~IF
2=34
THEN
Z=Z+
«R1A
N016
)-0)
-«R2
AH01
28)-
e)31
913
PRIN
TCHR
$(Z)
"II"
;'I
F(RI
AN03
2)<>
0THE
N316
032
130
tFZ=
95A
NO
H$:
=IO
"TH
EH
3160
.32
10IF
Z=9S
THEN
PRIN
T"1I
''''
';'H$
=LEF
T$(H
$,LE
tHH$
)-1)
'GOT
0316
a32
20H$
=H$+
CHR$
(Z)'
P~IN
TCHR
$(Z)
;'I
FI.E
N(H$
)<eT
HEN3
160
32:3
0HU
(H)~
RIGH
T$(
"001
1000
0"+R
IGHT
$(ST
R$(S
C),
LEN(
STR$
(SC)
)-1)
,7)+
"•.
"+H$
3241
3PR
INTC
HR$(
13)"
"."R
IGHT
$(Hl
$(H)
,8)
'FOR
T=0T
02S0
a,NE
XT'
GOTO
I013
1135
130
FORT
=163
TOI6
6'PO
KEPO
-132
,T'F
ORI-
0T03
S0'N
EXT'
NEXT
'POK
EPO-
132,
32'F
ORT-
IT07
3Sla
POKE
PO+2
2,32
'POK
EPO+
CO,6
'POK
EPO,
140'
POKE
PO-2
2,13
0+o,
POKE
PO-4
4+CO
,I'P
OKEP
O-4
4.12
9+0
3S21
3PO
KEV2
,12S
+T*7
'FOR
I=0T
02S0
'NEX
T'PO
=PO-
22'N
EXT'
POKE
V2,a
'IFR
O=10
+I.V
*STH
EN3~
7a~
3e
IFt-
~P
=3
TH
EH
35
~e
3S4e
NP=N
P+I'
SC=S
C+(1
00*«
Ro-I
)+NP
)*VT
)*LV
'GOT
OI30
3~
5e
2=
INT
(RN
O(1
).1
4)+
1'IF
Z=
QO
TH
EH
3~
50
3~
6e
QO=Z
'SC=
SC+<
1000
*RO*
LV).
YT'S
C-SC
+«le
0*«R
O-1)
+NP)
.VT)
*LV'
ROeR
D+1'
GOTO
~03~
7eF'
RItH
"I:l
"HA
IVI
NTO!
"'FO
RT=e
T069
'POK
EV3,
NI%(
T)/1
0035
80FO
RI=1
:5TO
~STE
P-1/
(Nl~
(T)-
100.
INT(
N1%<
T)/1
00»'
POKE
V.I'
FORJ
=0T0
0'NE
XT'H
EXT
3S90
I·IE
XT'FO
RT=0
T034
'PO
KEV3
,NI
%(T)
/la0
3601
3FO
RI=I
STOS
STEP
-I/(
NI%(
T)-1
00*I
NT(N
I%(T
)/10
0»'P
OKEV
,I
,FOR
J=0T
00'N
EXT'
NE>:
T36
10tl
EXT'
POKE
V3,a
'POK
EV,I
~36
20P
F:I
NT
"~••
'FO
RT
=1
30
T0
25
4'
PO
KE•
.•••3,
T'
SC
"SC
+S0*
LV
.VT
3630
PRIt
H"<w
PUNT
I'""
RIGH
T$(
"000
0000
"+RI
GHT$
(STR
S(SC
),L
EN(S
TR$(
SC)
)-1)
,7)'
NEXT
'P
OKEV
3,@
3640
VT=V
T+I'
LV=I
.V+l
'Ro=
I'QO
-INT
(RNo
(I)*
14)+
I'FO
RT=1
3T02
0a13
'NEX
T'GO
TOS0
4000
ON4-
NPGO
T040
10.4
020,
4030
4011
3GO
SUB~
"00'
RETU
RN40
20GO
SU8S
600,
RETU
RN41
3313
F:ET
URN
410C
'1O
t~4
-HP
GO
T0
41
1e
,412e~
4130
4110
GOSU
8580
0:RE
TURH
4120
GOSU
B~60
0'RE
TURN
4130
GOSU
B570
0'RE
TURN
4201
3ON
4-tl
PGOT
0421
0,42
20,4
230
4210
GOSU
B"8a
0'GO
SUBS
90C'
RETU
RN42
20G
O~
;U8
60
ee
,R
ET
lIR~
142
30GO
SU86
Ieo,
RETU
R~1
4300
O"4-
NPGO
T043
10,4
320,
4330
4310
GOSU
BS70
0'GO
SUB€
000'
RETU
RN43
213
(;OS
U86
1013
'RET
URN
4331
21GO
SUB~
8eA'
GOSU
B590
0'RE
TllR
N44
\:.11
.'lIt~
4-1
i~""
UIIJ
4411
;j,44
..::1
:',44
..30
4410
GOSU
B5S0
e'RE
TURH
4420
GO
SU
B~7
01?t
RE
TUR
H44
30G
O~
;UB
S50
0'G
OS
UB
'590
0:R
ETU
RN
4~
ee
OtI
4-N
PG
OT
045t
I3,
4'52
0,4
~3
(145
113
GO
SU
857e
e:R
ET
UR
~r
4521
3G
OS
U8
~8
0e
,G
O$U
B5g
ee'
RE
TUR
N4~
30GO
SUB~
60(1
'GOS
UB6e
00'R
ETUR
N4
60
0O
t-l4
-NP
GO
T0
46
10
.46
2(1,
4630
4610
GOSU
B55e
e'GO
SU85
S00:
RETU
RN46
20G
O:=
:U8~
6130
:G
OS1
J8E.
000
:RET
UR
t·l46
313
GOSU
B590
0·GO
SU86
160:
RETU
RN47
00Ot
I4-t
IPGO
T047
10,
4720
,47
3'11
47
10
GO
SU
B6
4e
e:
RE
TUR
t~47
20GO
SUB5
800'
GOSU
B5ge
e'RE
TURN
4730
GOSU
B56e
0'GO
SUB6
1e0'
GOSU
B620
e'GO
SUB6
3ee'
RETU
RN4:
::13
0O
t-l4
-t-IP
GO
T048
10,
4820
,48
3048
10GO
SUB€
7ee'
RETU
RN48
20'
GOSU
B65e
0:RE
TURN
4830
GO
::;U
B58
e0'
GO
SU
E:5
gee
'RE
TUR
N49
'210
OtI4
-t,IP
GO
T04
91\~
L49
20.,
49'3
043
1121
GO
SU
8560
a,G
OS
U86
2ee
'GO
SUB
60e0
'RE
TUR
t-~49
20G
OS
UB
6700
'G
OSU
85Se
lZ1
:GO
SUB
6400
;RET
UR
N4?
3l)
GO
S;U
B59
00R
ETU
RN
~ee
oO
t-14
-t~
PG
OT
05e
t0,5
0213,5
030
5018
on
SIJ
B66
ae:
GO
SU
B60
ee:
008U
8561
3e'
RE
TU
RN
5021
21G
OS
UB
6200
'00
$U85
800
.GO
SI..
I85g
e0R
ETU
RN
5030
GOSU
B630
0:GO
SUB6
1eO'
RETU
RN51
131'
3O
t'l4-
t~P
GO
TO
~t
1l21
,512
13,
5130
5110
GOSU
B570
e·GO
SUB5
800'
GOSU
B590
0'RE
TURH
~1
20
GOSU
B620
0'GO
SUB6
60e'
RETU
RN~
13
eGO
SU86
0eO'
GOSU
B63e
e'RE
TURN
2(s
egue
dapa
gina
149)
::J (J1 o 3 \I> N o «)
(Xl
(J)s:: o 3 () o () o 3 "O C ro ....•
3
J
PO
KE
T+
CO
+1
S4
.6:P
OK
ET
.16
0'P
OK
ET
+1
~4
.16
0:N
EX
T:F
OR
T=
30
10
TO
S1
64
ST
EP
22
PO
~E
T+
CO
.6:P
OK
ET
.16
0P
OK
ET
+2
1+
CO
,6:P
OK
ET
+2
1.1
60
'HE
XT
'Hl=
3:H
2=
16
:H3
=H
2+
3:H
4'"1
:llz
16
'12
=1
6'1
3=
Il'l
~ i ~ (1)
5
",13
z13
+14
'PO
KE
781.
13,P
OK
E78
••,H
3:H
3+H
4'P
OK
E78
1,H
3'P
OK
E7e
Q"I
•••••
SY
S5
86
36
:P
RIt
-H"
;J::
f'1t-
lO••
••F
'QR
·"IF
H3
=H
20
RH
3=
H2
+4
TH
EN
H4
::o
-H4
RE
TL
lF~
HF
'm~
E7
81
•1
3:
PO
KE
78
2,
11
:$',I
S::
58
63
6'P
RI
tH"
Otl4
-tlP
OO
TO
S2
10
>5
22
13
.5
23
0G
OS
U8
62
00
GO
SU
85
81
3e
:G
OS
U8
66
~3
eR
ET
UR
t·l
GO
SU
85
60
0'G
OS
U8
63
00
:RE
TU
Rt-
lG
OS
U8
~7
e0
·GO
SU
8é
1e
e:R
ET
UR
NO
N4
-t'lP
GO
TO
~3
10
..5
32
13
"~
33
0(i(lS
UB
57
00
:GO
SU
86
0e
eI0
0$
U8
67
0e
.RE
TU
Rt-
lG
OS
UB
620e
:OO
SU
86
30
0'G
OS
UB
64
00
'RE
TU
RN
GO
::,us
ssea
:G
OS
UB
59
0e
:R
ET
UR
~~
GO
'::U
E:6
1@
0:G
OS
UB
6200
:GO
SU
B6
3e
e:G
OS
Ue
~a
00
:GO
SlIB
~9
00
'RE
TU
~H
F'O
VE
H3
.32
:A3
=A
3+
22
:IF
PE
EK
(A3
)=1
60
TH
EN
5~
20
F'O
I(E
A3
+C
O.
7:P
OK
EA
'3,
13
4'R
ET
UR
NF
'O•.
..EA
1+
INT
(RN
O(1
)*<
A2
-Al+
1»
,13
4·
A3
=It
-lT
(RH
O(
1)*
<8
2-A
l+1
))+
A1
:IF
PE
EK
(A3
)()1
34
TH
EN
S~
30
RE
TU
1':N
F'O
KE
B1
+B
2*2
2+
CO
.6:P
OK
E8
1+
22
*S2
.32
-(B
3-1
)*la
3:P
OK
EB
1+
(7-8
2)*
22
+C
O.6
PO
KE
81
+(7
-82
)*2
2.3
2-(
83
=1
)*1
03
'82
-S2
+B
3:I
F8
2<
10
RB
2:>
3T
HE
HB
3""
-83
'B2
-82
+B
3PE
TURN
.P
OK
E7
81
.C4
:PO
KE
7S
2.C
5'S
',IS
'58
63
6:P
RIN
T"
UI
01
QI"
;IF
PO
=7
68
0+
22
*(C
4+
4)+
C5
TH
EN
PR
INT
":u
n"
C5
=C
5+
C3
:PO
KE
7'8
1•
(:4
:PO
KE
78
2.
C5
:SY
S~
86
36
:PR
1H
Tti.I"
IIQ
II"
IFP
O(>
76
80
+2
2it.
(C4
+4
)+C
S-C
3T
HE
N5
75
0P
O=
PO
+C
3:P
OK
EF
'O+
CO
-22
>1
:PO
I(E
PO
+C
O>
1:P
(lK
EP
O-2
2~
12
9+
0'P
OK
EP
O,1
~0
+0
IFC
5=
C1
0R
CS
=C
2T
HE
NC
3=
-C3
F~
ET
ljFt'N
PO
I(E
(t4
.3
2:
IF0
4=
02
TH
EN
04
=O
l-0
30
4=
D4
+0
3'P
OK
E0
4+
CO
,3;P
OK
E0
4,1
36
-(0
3z1
)'RE
TU
RH
F"O
KE
E4
.32
:IF
E4
=E
2T
HE
NE
4=
E1
-E3
E4
=E
4+
E3
'PO
KE
E4
+C
O,3
'PO
KE
E4
.13
6-(
E3
::::
:1):
RE
TU
RH
FZ
=IN
T••
.RN
(I(1
)*2
B)+
FlcI
'FP
EE
K(F
2)=
93
TH
EN
PO
KE
F2
-22
.:3
2'P
OK
EF
2.3
0:0
0T
06
02
9I
FF
~t-
4D
(1)(
.5
TH
Et-
IRE
TU
RN
IF
PE
EK
(F2
)z3
0T
HE
I'lP
OK
EF
2-2
2+
CO
,5
:PO
KE
F2
:.9
3'P
OK
EF
2-2
2.
30
PE
TU
P.t
-1P
o.-
::E
78
1,
03
'P
OK
E7
82
.·0
1:
8'T
'55
86
36
:I
F0
4""
1T
HE
NP
RIN
T"
:c.J
GG
GG
GG
G"
:GO
T0
61
20
PF:
.TtIT
"G
3=
G3
+G
4lF
G3
~G
20
RG
3>
G2
+~
TH
EN
G4
=-G
4:0
3~
G3
+G
4R
ET
UR
t'1P
OK
E7
81
~H
'3:
PO
KE
78
2~
H1
'S
''''S
~8
63
6'
PR
INT
"
.-R
EAO
'T'.
~2eC
1~21
0~22
13"3
~3e
~3
0e
5310
!532
:053
::;:(1
~.4
0f)
'5'5
(10
~5
10
5'52
1355
:!1l3
554(
1
5612
'056
1056
205
70
0~7
1€t
5720
5731
357
413
':,75
0':i
760
5300
58
10
~9
0(l
59
10
€€H
306(
105
6131
060
2061
1313
::=;1\
1":'1
';:12
1351
3062
130
2.H
162
1052
2063
ee2,
I1
63
10
$'T
'S!5
86
36
:P
R1
NT
"2
f'1N
O:d
l••
F'Q
R"
,1
F1
3=
12
0R
13
=1
2+
4T
HE
N1
4:1:
1'-
14
5320
RE
TU
RH
64
12
11
3.J3
=IN
T(R
NO
(1
)*(J
2-J
1+
1)
)+J1
:PO
KE
.13
.1
60
:IF
RH
O(
1)(
.1
5T
HE
HP
OK
EJ3
,32
641
13F
:ET
UF
~~
~6
~0
12
lP
OkE
Kl+
K3
.3
2-(
K6
=1
)!tr
ì12
8'
PO
KE
K2
-K3
,3
2-(
K6
=1
)*1
28
:K
3=
K3
+K
66
51
0l
FK
3<
lO
RK
3>
K~
+1
TH
EN
K6
""-K
6:K
3=
K3
+K
66
52
0F
~E
TljR
tl
6€
0&
::1
F'O
KE
L3
.'3
2-(
L4
=L
5)*
12
a,
L:3
=L
3+
L4
:IF
L3
-L1
0R
L3
=L
2T
HE
NL
4""
-L4
'L
3=
L.3
+L
46
61
&::
1P
ET
UR
t-l
67
0('1
F'O
kEr1
3,
32
'1
FM
3=
PO
+2
2T
HE
HP
OK
EP
O-2
2.
32
'PO
KE
PO
.3
2:P
O=
PO
+M
46
71
er't
'~:=
t'13
+t1
4:
PO
KE
M3
.1
60
'1
FP
O<
>M
3-2
2T
HE
N6
73
06
72
0P
OI<
EP
(I-2
2+
C(I
.1
'PO
kEP
O+
CO
,l
'PO
KE
PO
-22
.1
29
+D
'PO
I(,E
PO
.13
0+
0>
:;7
30
IF
f13
=M
1O
F'M
,3=
M2
TH
EN
M4
=-M
4(.
74
làF
.~E
TU
Rt'l
68
(n3
DA
TA
19
5€
t4.
17
S0
4~
17
'50
4,
1'=
i904
..1
7"5
04
,1
9~
04
,1
91
04
.1
7~
04
.1
75
13
4,
16
31
2,
1~
10
4.
17
50
4>
17
51
34
6$
leO
AT
R1
63
12
,1
95
04
>1
7::
50
4.
1'7
'~0
4~
15
91
2~
19
::5
04
.1
75
04
,1
7::
50
4,
1~
ge
4..
17
~0
4,
1~
~e
4.
19
19
4.1
75
13
46
82
(1D
AT
A1
7::
50
4,
16
31
2.1
91
04
.17
50
4.·
17
~'3
4,
17
50
4.1
83
04
.19
10
4,
1~
52
4,
19
::5
04
.1
83
04
.lS
30
4.1
95
04
68
30
OA
TA
18
80
4.
lS3
04
~1
95
04
~1
7::
50
4.
17
50
4.
17
::5
12
.1
83
04
.1
83
04
~1
83
04
.1
83
04
.1
91
04
.1
83
04
.17
51
268
4~Z
,DA
TR
15
91
2.
19
:50
4,
18
30
4.1
83
04
.19
::5
13
4.
1a
3e
4.1
83
e4
.19
5a
4~
17
50
4,
17
~a
4.1
75
12
:.1
83
e4
.18
30
46
85
0D
AT
A1
8J.
\Zl4
.18
30
4.1
91
04
.1
9!5
04
.1
91
12
.1
~5
04
~1
35
04
,1
75
04
.1
75
04
.1
83
04
,1
~1
04
.1
9~
04
.1
83
lò4
68
6('
DA
TR
17
~0
S.
16
31
03
4.1
63
04
.1
~9
04
.1
59
04
.1
47
04
.1
35
e4
~1
47
04
.1
:59
('4~
1:3
::5
08
.1
7!5
04
.1
7~
04
.16.
304
68
70
DA
TA
lt:3
04
,1
59
04
.1
59
12
14
.15
90
4~
14
70
4.
17
~0
4.
17
:51
21
4~1
63
04
,1
63
e4
~1
59
13
4.
16
30
4.
17
:50
4.1
59
04
68
80
(LA
TA
14
7~
8,
13
5€
14
..1
35
04
.l
75
04
~1
7:5
04
.1
83
04
.1
91
04
.1
95
04
.1
83
84
..1
75
08
.1
63
04
.1
63
13
4,1
59
13
46
89
13
DA
TA
1~
90
4.
14
-;"(
14
.1
35
04
,1
47
04
.1
59
04
.1
3'5
0a
"'J.,
~.
"V
~,"
'FO
RT
z8e
10
T0
80
31
1P
OK
ET
+C
:"t/,,:
:t'J
I",
PR
INT
"~.
"l/
"lA
.,"
"',
PR
INT
"~.
"n~
"V
E2=
01'E
3:-1
'E4=
El-
7'P
RIN
T"
••••
•Cl_
••••
"'''-'J
JJ'''F
OR
T=
MIT
OM
2'P
OK
ET
,32'
NE
XT
PR
1l'H
"~M
'ml\t
CW
CC
Wl
••oo:
lt'C
Dl1
~•••
l.T.1
.lJ.1
.U.1
.UJ.
UJl
:!"
:RE
TU
Rt4
F'P
lt~T
TA
B(1
4)"
::t.
":P
RIN
T"
:2S
TU
!!!.
.,":
PR
INT
":ll
:f./I-
1XM
29
41
3F
'F~
HH
"/:li
14-!
"CH
R$
(34
)CH
Rs(
34
)"I~
0.6
2950
2955
2960
4=
12
97
0G
1=
7'G
2=
16
:G3
=Q
2:G
4=
1:0
1=
31
43
'02
""S
16
2:0
3=
1'0
4=
Ol+
3'E
lz0
2:E
2=
Ol:E
3~
-1;E
4·E
1-
29
seJt
=8
16
7:.
12
=8
13
2'R
ET
UR
N'::~
\::l0
lF
~'~
l:.K
••.t'u
+~
~)
<•.•••
:..:
l~lH
~~
~:.
.:lI,
J:,ju
30
10
PO
t<E
PO
-22
.32
,PO
KE
PO
.12
9+
DP
OK
EP
O+
22
.13
'3+
0:P
OK
EP
O+
22
+C
O~
1:P
O=
PO
+2
2:F
OR
T=
0T
O;?
5e'N
EXT
30
20
IFP
EE
K(P
O+
22
)=3
2A
NO
PO
(81
64
TH
EN
30
10
30
3~
3F
OR
T=
0T
01
5'
PO
KE
64
80
+T
.P
EE
K(6
17
'6+
T)
:l'~
E~
<T
:PO
KE
PO
-22
+C
O.
1:P
OK
EP
O+
CO
.1
:PO
KE
PO
-22
.17
13
3134
')F
'OK
EP
O,1
71'F
OR
T=
13T
OI8
013'
t~E
:(T
'A=
23e
FO
RT
=0T
OI~
'A
=A
-5'
PO
KE
6480
+T
,0
PO
KE
VI.
l'l,p
0V.E
"'2.
·A:3
05
0F
OP
1=
1T
O~
~3
:U
EX
T:
PO
KE
VI
~e
:P
OK
EV
2.
e:
t-1
EX
T:
\/T
==
\lT-l
:FO
RT
=0
T0
2~
Ge
:t·
IEX
T,
IFV
T)0
TH
Eti
~0 306e
F'R
1t·n
":')"
30
70
FO
RT
=2
54
TO
12
8S
TE
P-2
'PO
KE
64
6..
RN
O(
1)
.7+
1:P
R1
NT
"~
a.L
LL
••L
LL
••L
.L••
LL
L"
3080
PR
1NT
",..
L••
••U
U.L
LU
.U••
•••
U••
•L
LU
.UU
.LL
U••
•U
U.U
L••
UL
••L
••31
390
PR
1NT
""'
.LL
U.U
U.U
U.L
LL
",P
R1N
T".
1"'.L
LU
.UU
.LL
U.L
LU
".U
U.U
U.U
••1
.UL
"31
1313
PR
1IlT
":a
o.L
lL••
UU
.LL
U.L
LU
•••
UU
.UU
.U••
•L
U••
••L
LU
••U
••L
LL
:••U
L"
3!0~
PO
'(EV
.(T
-128
)/8.
4'P
OK
EV
2.T
'P
OK
EV
3.T
'N
EX
T'P
OK
EV
2.e,
PO
KE
V3.
e,P
OK
EV
.I~
3110
IFS
C(=
VA
L(H
IS(7
»TH
EN
leee
3120
PP
HlT
"::J
IPlI
HT
1,"
SC
'FO
RT
=7T
00S
TE
P-I
'IF
"'A
L(H
I$(T
»(S
CT
HE
NH
~T
2220
G4=l
'RET
URN
2300
Ml=7
861:
M2=7
872'
M3=M
l+1:
M4=1
:Kl=
8014
:K2=
8e27
:K3=
1:K~
=6:K
6=1:
01=8
12110
2=
81
40
'03=
123
1004
:01+
5'E
I=81
40'E
2:8!
21'E
3:-I
'E4=
EI-
5'F
OR
T=
MIT
OM
2'P
OK
ET
,32'
NE
XT
2320
PRI
NT
"~~;
;CI"
'IJG
'I3G
'UG
"'JG
"3G
~":R
ETU
RN
2400
Hl=
5:H
2=
2:H
3=
2:H
4=
1:B
l=7
71
2'B
2=
1'B
3=
1:F
l~7
83
5:0
1=
79
89
10
2-8
0a
8:0
3=
1:0
4Q
01
+~
~J1
=B
01
32
41
0J2
=8
01
9:M
l=8
02
1:M
2=
80
27
:M3
=M
1+
1:M
4=
I:E
l=8
14
0:E
2=
B1
21
'E3
=-1
:E4
=E
l2
42
'3P
RIt
-lT
";a
m~
I"T
Ft8
(1
1)''
'tl'
1'''
:F
OR
T=
MIT
OM
2:
PO
KE
T.3
2:
NE
XT
24
31
3F
'RI
tlT"
~(U
0Dl'l
'Il!o
o:m
~T
ll0O
O;Q
I••
I3G
.I3
G••
I3G
.t3
••13
"3~"
:RE
TU
RN
25
00
Ll=
78
59
'L2
=7
87
1:L
3=
Ll+
1:L
4=
1:L
5=
-I:F
l=7
83
~:B
l=7
71
9:B
2=
I:B
3=
1:H
l=9
:H2
~9
'H3
=H
2:H
4=
12
51
13
01
=7
96
7:0
2=
79
86
:D3
=1
'04
=D
l+~
'Elc
80
08
:E2
=7
98
9:E
3=
-1:E
4=
E1
-~'Il
=4
:12
=1
6'1
3~
I2'1
4=1
.2
52
0G
1=
le:G
2=
16
'G3
=G
2:G
4=
I'GO
SU
B2
7~
0:R
ET
UR
N2
60
0C
l=6
:C2
=1
5:C
3=
1:C
4=
2:C
5=
Cl+
3:0
1=
78
35
:02
=7
95
4'0
3=
1:0
4=
O1
+5
'El=
02
E2z
01
:E3
--1
26
11
3E
4=
E1
-5'H
l=3
:H2
=9
:H3
=H
2'H
4=
1:L
lz8
01
~:L
2=
80
28
:L3
=L
2-1
:L4
~-I
:L5
=1
'11
·41
12
·16
'
13
=1
22
62
01
4=
1'F
l=8
14
3:F
OR
T=
7a
63
T0
78
70
:PO
KE
T~
32
'NE
XT
26
31
3P
RI
NT
";:
:i'0
tI!D
mIll
1I!
OO
~m
Mllt
Q.1
1'1
'1
'1'
't1'
't't!
:!":
RE
TL
IRN
27
01
3H
l=1
0:H
2=
2'H
3=
H2
+3
:H4
=1
:Ll=
7S
61
:L2
=7
87
G:L
3=
Ll+
l:L4
=I:
L~
z-1
'01
=7
85
4:0
2=
78
3~
03:-
12
71
00
4=
01
-2:1
1=
7:1
2=
9:1
3=
12
+1
:14
=1
:81
=7
87
1:8
2-1
:83
=1
:01
=3
:G2
31
6'0
3=
G2
04
21
27
21
3C
l=ll:
C2
=1
3:
C3
-1:C
4=
16
:C
S=
C1
+2
:P
RIH
T".
mtm
na
mD
!I.1
!tilD
ltID
ItII
l:O••
•':H
IIJ"
27
31
3F
OR
T=
81
54
T0
81
59
.:P
OK
ET
+C
O.
2:
PO
KE
T.
13
8:
~lE
XT
:R
ET
UR
N2
75
13
F·O
KE
38
56
9.
=:;,P
OK
E7
84
9~
31
3:1
'~E
TU
PN
28
00
C1
=3
:C2
=8
'C3
=1
:C4
=2
'CS
=C
1+
2:M
l=7
.S6
~:M
2=
78
70
·M3
=M
l+2
M4
=1
'Fl=
78
34
:Hl=
4'H
2-9
H3
=1
12
81
12
'H
4=
1'
11
=1
5'
12
=9
:1
3=
13
:1
4=
-1'.1
1""
80
17
:~
T2
=8
02
4'
01
=8
12
1:
02
-81
40
:0
3""
'1:
04
-(1
1+
7:
E1
=02 2820
2830
29(K
'::
t."
2910
PR
Itn"
,U2
[!!!
29
20
PP
lt-H
"~.,
~"2
93
0F
OR
T=
lT0
4:P
RII
'HT
AB
(6-T
)"/"
TA
B(1
~+
T)"
,":~
lEX
T'P
RltH
"/
:IiIf.
:)1
~
2000
Cl=3
:C2=
12:C
3=1'
C4=2
:C5=
Cl'O
l·79
67:0
2=79
86ID
3=1:
04~O
l+~:
El=7
986:
E2=7
967'
E3=
-I 20
10E
4:E
I-5'
F1:
8143
'81=
8014
'B2=
1'8
3=1
'FO
RT
=?8
60T
O?8
67'P
OK
ET
,32'
NE
XT
2020
PP
INT
"~tlt
GO
!Dill
oow
t'GtC
DIf
U""
1.,
.,'".
,••
20
30
PR
INT
IO~
"""1
't11
l11
"11
It1
'1t1
1'1
'~"
:RE
TL
lRt~
2108
Al=
7?28
'A2:
?741
'A3=
AI
'01:
7832
'02:
7813
'03=
-1'0
4=01
'81:
786
~'B
2=1'
83=
I'FI=
7'89
2110
GI=
4'G
2:16
'G3=
G2'
G4=
I'EI=
8162
'E2=
8143
'E3z
-I'E
4=E
I-6'
FO
RT
=A
ITO
A2'
PO
KE
T+
CO
.;·21
20P
OK
ET
,134
'NE
XT
'PR
INT
"lff
iI!l
ll__
••'
~~
HH
~"'
RE
TU
RN
2200
Jl=7
a59:
J2=7
874:
01=7
967:
D2=7
9S6:
03=1
:04=
Dl+~
;El=
80~:
E2=7
989:
E3=-
1IE4
·El-
~2
21
13
Hl=
2:
H2
=1
6:
H3
=H
2+
1:H
4=
1:
11
=7
:1
2=
16
:13
>=12
+3:
14
=1
:Bl=
ae
l~·
E:2
=1
:83
=1
:G
1-1
1'G
2c
16'G
3=13
2
(]l ~::J (]l o 3 Il> ....• N O ~ <D (Xl
(J)~ o 3 o Ò o o 3 "'C
l C ro ....•