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-22 23:31:47 +00:00

23 lines
572 B
Plaintext

package main _plain
typename K_number = int32
typename 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 (K_phrase_number____nothing) MyRoutine = function MyRoutine_B