;       ADDIT v. 2.12   9/22/83   cl,pg  
:SS 20 80 20 20 4
:%C = "                    "
:%D = "????????????????????"
:on ?-3 /+2 217 /+2




s/=/
:on ?-3 / 231 /
:MC $2-1
:on ?-82 / 28 /
:on ?-67 / /+3 /
:MC $2+1
:on -1 /-7

:on $3-1 231 231 /
b1
sl/=/?/
:on ?-16 /-4 / /
:MC $2-2
:on ?-67 / 231 /
:on ?-82 / /+2 /
:MC $2+2
:on -1 /-7

:%5=$2+2
:%H=%5
:%3=$3
:%E=%3
:mc $2-1
:on ?-57 / / /-2
:on ?-48 /-3 / /
:%3=$2+1
:%I=%3
sl/./?/
:%K = 0
:on ?-13 /+4 /+4 /
:%3=$2+3
:%J=%3
:%3=%3-%5
:%K=%3

f1
s/=/
:on ?-3 / 231 /
:MC $2-1
:on ?-82 / 231 /
:on ?-67 / /+3 /
:MC $2+1
:on -1 /-7

:%3=$2+2
:%F=%3
:%3=$3
:%G=%3

sl/./?/
:%L = 0
:on ?-13 /+4 /+4 /
:%3=$2+3-%F
:%L=%3







:on +%L / 125 /
:%4=%F
t/F%E/b1


:%8 = %E
:MC %4
:ON ?-13 / 125 /
sl/./?
:ON ?-13 / 125 /
:%2=$2+3



:%a=0

:MC %4
:%9=$4
:on -1 182
:on $2-%2 / 97 97

:on %6-1 / 97 224

:oe 224
:%b = !
:FA %a%b
f1
:%8 = %8+1
:on ?-13 / 97 /
:ON +%G-%8 / / 87

:%9 = $4
:on -1 157















:on +%I-%2 125 125 /
:%4 = %2
b+%G-%E
:ON -1 75



:on +%K / 179 /
t/f%E/b1
:%8 = %E
:MC %F
:%b=0
:%a=0
:%9=$4
:on -1 182
:on +%I-$2 146 146 /

:on %6-1 141 / 224
:on ?-13 / 146 /
sl/ /
:on -1 132

:oe 224
:%b = !
:FA %a%b
:%0=1
:ON +%I-$2 / / 132
:%4 = %H
:%2 = %J
:on %0 /+2 /+2 /
:%9 = $4
:on -1 157
f1
:%0=0
:%8 = %8+1
:ON +%G-%8 / 179 /
:on ?-13 129 /-5 129

:%A="%a "
:SL %A %1
sl/<//

:on %2-$2 /+3 /+3 /
:%B = "%C%C%C%C"
:SF %B %2-$2
S//%B/
:%3 = %2-%4-%1
:on %3 241
:%B = "%C"
:SF %B %3
:%A = "%B%A"
:%B = "%D"
:SF %B %2-%4
:MC %4
:PR "#0/ÓÕÍ: %A#6/"
:CM
:pr "%A"
s/%B/%A
:on -1 %9


:on -1 1000


:on ?-32 / /+1 /
:mc $2-1
sl/£
:on ?-13 / 209 /
:%6=$2-1
:mc $2-1
:on ?-32 / 206 /
:on ?-108 / 212 209
:on ?-48 / 209 209
:on ?-46 / 206 209
:on ?-45 / 206 209
:on ?-44 /+3 / /186
:mc $2-1
:on ?-108 / 212 /
:mc $2+1
:on ?-43 / 204 209
:on ?-40 / 201 209
:on ?-36 209 204 209
s/(/-/s/)/ /
:mc %6
:on -1 206

:mc $2+1

:%6=0
:on -1 %9

:%6=1
:on -1 %9

:%6=2
:on -1 %9



:IN "#1/#13/Filename of your data: " %A
ro/%A/
:on $0 /-3 /-3 /
r
:CP
:on -1 8

:cp
:pr "#0/#3/Åòòïò éî îõíåòéãáì öáìõå áô ãõòóïò.#6/"
:pr "#13/Correct value before continuing.#6/"
:ee 1




:cp
:pr "#0/#3/ý áîä¯ïò Ò½ îïô ðòïðåòìù ðìáãåä éî ôåøô.#6/"
:pr "#13/Check table before continuing.#6/"

:ee 1




:cp
:pr "#0/#3/Óõí æéåìä éó ôïï óíáìì.#6/"
:PR "#13/Please correct before continuing.#6/"  

:ee 1