SAVE
INTOFF
GOSUB end
*begin
$1F14D29E4192195E4393195E2002380E0000295EC090185E4000295E0190185E1F18DB8E
*end
C=RSTK D0=C D1=80100
LC(5) (end)-(begin)
$80B60
LOAD SAVE
LC 0000000007F00260
R1=C.W
LC 00C94
RES.ROOM
LC 0005000C8F02B1E
DAT0=C.15
D0+15
LC 000A0
DAT0=C.5
D0+5
AD0EX
R2=A.A
LC 0000000000000000
B=C.W
*loop
LC 80100
$80BFF
C=R2.A
C+B.A
C+B.A
CD0EX
DAT0=A.W
B+8.A
LC 00640
?B#C.A GOYES loop
A=R2.A
A-20.A
LOAD
D1-5
DAT1=A.A
D-1.A
INTON RPL
@