# program izra"cuna potenco a^b
# poseben primer 0^0 := 1
GO 04
001 # kon"cni rezultat
000 # konstanta 0
001 # konstanta 1
RD 70 # a
RD 71 # b
# zunanja zanka
LD 71
TZ 25 # go to konecA
SB 03
ST 71
LD 01
ST 80
LD 70
ST 81
LD 02
ST 01
# notranja zanka
LD 81
TZ 24 # go to konecB
SB 03
ST 81
LD 01
AD 80
ST 01
GO 16
# konecB:
GO 06
# konecA:
WR 01
HL 00