8sub.qsps
18 lines
| 428 B
| text/plain
|
TextLexer
/ examples / 8sub.qsps
r60 | ||||
# 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 | ||||
- | ||||