- 10


... ... 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