##// END OF EJS Templates
u » naryl » qsp-txt2web
RSS

Clone from https://hg.sr.ht/~naryl/qsp-txt2web

Fix -o
Fix -o
naryl - - Load All Authors

File last commit:

r60:517f9c14 default
r70:b03a5f77 tip default
Show More
15objs.qsps
21 lines | 364 B | text/plain | TextLexer
/ examples / 15objs.qsps
History | Annotation | Raw |Copy content |Copy permalink
# objs
OBJECTS['деньги'] = 12
OBJECTS['патроны'] = 137
'Количество: <<OBJECTS[$getobj(countobj)]>>'
!Первый предмет в списке
GETOBJ(1)
!Последний предмет в списке
GETOBJ(COUNTOBJ)
i = 1
:loop
IF i <= COUNTOBJ:
OBJECTS[$GETOBJ(i)] = OBJECTS[$GETOBJ(i)] + 1
i = i + 1
JUMP 'loop'
END
-