- 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