;       L#1 calculator v. 51  4/12/83
;       initialize

:FL 14 2
:SS 20 20 20 20 20 20 20 20 20 20 5


:%F = ".00"
:%G = ".00"
:%E = "                    "
:%M = "0"
:%N = "ãáìã"
:%O = "0"
:%K = "1"
:%P = "-1"
:%1 = $2
:%2 = $2
:%3 = $3-1
:on -1 30

:PR "#0/#13/#6/
:PR "    Ádd Óub Íul Äiv  Òev Úero  Ðut Çet  Ø,Ù sums to memory"
:on -1 30


:in "#0/*numeric error*#6/"




:SF %F 20
:SF %G 20

:PR "#0/%N Å[%E] Ø %F Ù %G#6/"


:oe  25
:%A = "%b"
:%B = %E
:sl %A %7
:sf %B 20-%7
:%A = "%B%A"
:PR "#0/%N Å[%A]"


:CM

:%d = %b




:on +%P+2 /+6 / /+6
:%9 = %3+1-$3
:on %9 / /+4 /+3
:%9 = -%9
b%9
:on -1 /+1
f%9
:MC %2
:%9 = %2
:%8 = %1

:on +%P-1 75 / 75
:ON +%M-1 /+1 / /+1
:%6 = -11
:ON +%M-2 /+1 / /+1
:%6 = -9








:%O = "0"



:%2 = $2




:on %6 126
:on +%P / 126 126

:on ?-3 / 100
:on ?-16 / /+3 /+3
f1
:%3 = %3+1
:on -1 /-4

:on ?-58 / /+1 /+1
:on ?-48 / 100 100
sl/£/
:on -1 89

:on $2 / /+6 /
:mc $2-1
:on ?-32 / /+2 /
:on -1 /-4

:mc $2+1

:%8 = $2
SL/ /
:mc $2-1
:%9 = ?
:sp %Q %9
:%9 = $2

:mc %8
:%D = !<
:sf %D %9-%8+1

:on +%K / /+7 /
:%7 = $3-1

:mc %8
:CM
:%A = "%D"
:SE %A
:PR "%A"

:%P = "0"
:MC %8
:cm
:on %6 / /+2 /+2
:%6 = -%6
:on -1 /+1
:rk %6
:%7 = %3

:on %6-8  / 205
:on %6-9  / 195
:on %6-12 / 165
:on %6-11 / 182
:on %6-24 / 162
:on %6-25 / 179
:on %6-19 / 219
:on %6-5 / 148
:%2 = %9
:%1 = %8
:on -1 237


:ON +%K / /+3 /
:PR "%D"
:%K = "0"
:on -1 227
:%K = "1"
:on -1 227







b19
:%7 = %7-19

:on %7 233 233 /
b1
:%7 = %7-1

:MC %8
:on ?-16 /-6
:on ?-58 / /+1 /+1
:on ?-48 / 227 227
sl/£/
:on ?-16 /-10
:on $2-%9 227 227 /-11



f19
:%7 = %7+19

:on ?-3 /  233
f1
:%7 = %7+1

:mc %8
:on ?-16 /-6
:on ?-58 / /+1 /+1
:on ?-48 / 227 227
sl/£/
:on ?-16 /-10
:on $2-%9 227 227 /-11



:mc %9+1
:on ?-48 /+1 / /
:on ?-58 227 / /
:on ?-16 /+2
sl/£/
:on ?-16 / / 227
f1
:%7 = %7+1
:on ?-3 /-8 233 /-8



:on $2 / 213 /
:MC $2-1
:on ?-58 / /-3 /-3
:on ?-48 /-4 227 227

:on %7 / 233 /
:%7 = %7-1
b1
sl/</?/
:on -1 206


f10
:CP
:on ?-3 / 233 /
b10
:MC %8
:%P = "-1"
:on -1 75

:on +%K / /+1 /
:PR "%D"
:%3 = %7
:%P = "-1"
:on -1 75

:%P = "-2"
:on -1 50


:on %6-16 / 1035 /
:on %6-96 /+1 /+1 /
:%6 = %6-32




:ON %6-80 / 418 /
:ON %6-82 / 409 /
:ON %6-90 / 413 /
:ON %6-23 / 610 /
:on %6-72 / 20 /
:on %6-88 / 253
:on %6-89 / 256
:on -1    265 265 265
:%O = "88"
:%d = %F
:on -1 262
:%O = "89"
:%d = %G
:on -1 262



:RK %6
:on -1 237

:on %6-45 / 635 /
:on %6-48 /+1
:on %6-58 635 / /
:on %6-71 / 275 /
:ON %6-65 / 275 /
:ON %6-83 / 275 /
:ON %6-77 / 275 /
:on %6-68 / 275 /
:on -1 45


:%a = %b
:on +%O  / / 305
:on +%M / 625 /

:%4 = $4
:on -1 284
:on -1 305


:%A = "%D"
:sg %Q %8
:sp %Q %8
:on %8-48 /+1 / /
:on %8-58 /+3 / /
:sl %A %9
:%9 = %9-1
:SF %A %9
:on %8-45 / /+7 /
:sg %A %8
:on %8-40 /+1 / /+1
:%8 = 45
:on %8-45 / /+3 /
:on %8-46 / /+2 /
:on %8-48 /+2
:on %8-58 / /+1 /+1
:sp %A %8
:%a = %A
:on -1 %4



:on %6-71 / 405 /
:ON %6-65 / 348 /
:ON %6-83 / 354 /
:ON %6-77 / 361 /
:on %6-68 / 495 /

:on -1 50



:on +%O-1 / / 335








:%B = "%d"
:sg %B %7
:on %7-45 / /+1 /
:sp %B %7
:sl %B %7
:on %7-18 / 25 25
:%b = %d
:on -1 35


:on +%O-89 / /+2 /
:%F = "%d"
:on -1 340
:%G = "%d"

:on -1 30







:FA %d %a
:%P = "1"
:ON -1 315



:%a = -%a
:FA %d %a
:%P = "1"
:ON -1 315



:%c = 0
:%A = "%a"
:%a = %d
:%C = ""
:sg %A %7
:on %7-45 /+2 / /+2
:%a = -%a
:SG %A %7
:on %7-13 / /+4 /
:on %7-48 /-3 / /
:sp %C %7
:on -1  /-5

:sg %C %7
:on %7-13 / 390
:%7 = %7-48
:on %7 / /+3 / 
:fa %c %a
:%7=%7-1
:on -1 /-4

:fl 15 1
:%B = "%a"
:fl 14 2
:%a = %B
:on -1 375


:%d = .5
:%B = "%c"
:sg %B %7
:on %7-45 /+1 / /+1
:%d = -.5
:fa %d %c
:fl 12 4
:%B = "%d"
:fl 14 2
:%d = %B
:%P = "1"
:on -1 315



:%d = %a
:%P = "1"
:on -1 315


:%d = -%d
:ON -1 315


:%d = 0

:ON -1 315 



:on +%O-1 / /+1 490
:on +%M 437 / 437
:PR "#0/%N  %E  "
:pr "#0/Put into Ø,Ù,or Ô?"
:rk %7
:on %7-96 /+1 / /
:%7 = %7-32
:on %7-84 / 437 /
:on %7-89 / 434 /
:on %7-88 315 / 315

:%F = "%b"
:on -1 340

:%G = "%b"
:on -1 340



:%A = " "
:%B = "%d"
:MC %2+1
:ON ?-13 /+1 / /+1
s// /
:MC %2
:on ?-41 / /+2 /
:on ?-43 / /+1 /
:on ?-45 /+4 / /+4
s/?/ /
:%2 = %2-1
:MC %2

:on ?-48 /+1 / /
:on ?-58 /+4 / /
:%9 = ?
:%A = ""
:SP %A %9

:MC %1
:ON ?-48 /+1 / /
:on ?-58 /+7 / /
:ON ?-45 / /+6
:on ?-40 / /+5
:on ?-46 / /+4
:on ?-44 / /+3
:%9 = ?
:SP %B %9





:%B = "%B%A"
:SL %B %7
:on %7-%2-2 / / 25
:SL %B %7
:on %2+2-%1-%7 /+3 /+3 /
:SP %B 32
:on -1 /-4

:MC %2-%7+2
:CM
:PR "%B"
:%C= "????????????????????"
:SF %C %7
sl/%C/%B/
:MC $2-1
:%P = "-1"
:ON -1 315

:%b =  %F
:on +%O-88 / /+1
:%b = %G
:on -1 315


:%c = %d
:%8 = 0
:%B = "%c"
:sg %B %9
:on %9-45 /+2 / /+2
:%8 = 1 
:%c = -%c

:%B = "%a"
:sg %B %9
:on %9-45 /+2 / /+2
:%8 = %8-1
:%a = -%a

:%C = "+"
:on %8 / /+1 /
:%C = "-"




:%7 = 0
:%d = -%a
:fa %d %c
:%B = "%d"
:sg %B %9
:on %9-45 540 / 540




:fl 15 1
:%B = "%c"
:FL 14 2
:%c = %B
:%7 = %7-1
:%d = -%a
:fa %d %c
:%B = "%d"
:sg %B %9
:on %9-45 560 525 560





:fl 15 1
:%B = "%a"
:FL 14 2
:%a = %B
:%7 = %7+1
:%d = -%a
:fa %d %c
:%B = "%d"
:sg %B %9
:on %9-45 540 / 540

:fl 13 3
:%B = "%a"
:fl 14 2
:%a = %B
:%7 = %7-1



:%7 = %7+4
:on %7-3 / 568 568
:%8 = 3-%7
:sp %C 46
:SP %C 48
:%8 = %8-1
:on %8 / / /-3
:%d = -%a
:%8 = 0
:%8 = %8+1
:fa %c %d
:%B = "%c"
:sg %B %9
:on %9-45 570 / 570

:fa %c %a
:fl 15 1
:%B = "%c"
:fl 14 2
:%c = %B

:on %7-3 /+1 / /+1
:sp %C 46
:sp %C %8+47

:%7 = %7-1
:on %7 / / 569

:%B = ""
:sg %C %7
:on %7-32 595
:sp %B %7
:on -1 /-4

:sg %B %7
:fl 13 3
:%d = %B
:%c = .005
:fa %c %d
:%B = "%c"
:fl 14 2
:sp %B %7
:%d = %B

:%P = "1"
:on -1 315





:%9 = %M+1
:%M = "%9"
:ON %9-2 /+3 /+5 /
:%M =  "0"
:%N = "ãáìã"
:on -1 30
:%N = "ãïì "
:on -1 30
:%N = "ìéîå"
:on -1 30




:%L = ""
:sp %L %6
:%6 = 0
:%5 = $4
:on -1 645
:on %6-13 / /+1 /
:on %6-61 628 / 628
:sg %L %6
:on -1 305


:%L = "Å"
:%5 = $4
:on -1 645
:%d = %a
:on %6-13 / /+1
:on %6-61 237 / 237
:on -1 315



:on %6 650 / 650
:pr "#0/%N %L[ X,Y,T or enter:    ]#4/"
:rk %6


:on %6-16 / 35 /
:on %6-96 /+1 / /
:%6 = %6-32
:on %6-84 / 684 /
:on %6-88 / 678 /
:ON %6-89 / 681 /
:on %6-43  649
:on %6-58 / 649  649



:%A = "%E"
:%B = ""
:sp %B %6
:sg %A %6
:%A = "%A%B"
:pr "#0/%N %L[%A]#4/"
:rk %6
:on %6-13 / /+5 /
:on %6-90 / 648
:on %6-122 / 648
:on %6-16 / 35 /
:on %6-43 /+1 / /
:on %6-58 /-11 / /
:%a = %A
:on -1 %5

:%B = "%F"
:on -1 690

:%B = "%G"
:ON -1 690

:%4 = $4
:on -1 284
:%B = "%a"


:%a = %B
:%6 = 13
:on -1 %5