1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-08 18:14:21 +03:00
inform7/inter/Tests/General/Primitives.intert
2022-02-15 10:04:22 +00:00

27 lines
701 B
Plaintext

package main _plain
kind K_unchecked unchecked
kind K_unchecked_function function K_unchecked -> K_unchecked
kind K_unchecked_list list of K_unchecked
kind K_number int32
kind K_int2 int2
kind K_phrase_number____nothing function K_number -> void
package MyRoutine_B _code
local (/main/K_number) x
local (/main/K_number) y
code
inv !return
val (/main/K_number) x
inv !return
inv !plus
val (/main/K_number) x
val (/main/K_number) y
inv !return
inv !minus
val (/main/K_number) x
val (/main/K_number) y
inv !return
inv !modulo
val (/main/K_number) x
val (/main/K_number) y
constant MyRoutine K_phrase_number____nothing = MyRoutine_B