##// 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
8sub.qsps
18 lines | 428 B | text/plain | TextLexer
/ examples / 8sub.qsps
History | Annotation | Raw |Copy content |Copy permalink
# sub
GS 'переход', 'локация'
GS 'ход'
GS $loc,1
GS 'ход',$var,2,'данные'
яблоки = FUNC('функция')
PL FUNC($name, 1) * 78
MSG "text" + FUNC($name, "строка", 2)
if args[0] = 0: exit
-
#переход
*PL $ARGS[0] &! На экран выведется 'локация'
ACT 'Перейти':
GT $ARGS[0] &! Работать не будет, т.к. массив ARGS пуст
END
-