... ... data , 200000
= <Sd> data , 120000
= <S> data , 60000
data , 0
:
軠 '
cls
( )
?
( :) ? :
_⠠ gosub dchs '
(=, Sd) ? =, Sd
( :) ? :
_⠠ gosub rashs '
( =, Sr) ? =, Sr
S
:= Sd - Sr S = Sd - Sr
(=, S) ? =, S
end
⻠ dchs: '
'
_⠠ restore doch '
Sd := 0 Sd = 0
렠 do
(, d) read namS, d

= if nam$ = then exit do
(, d) ? nam$, d