mirror of
https://github.com/ganelson/inform.git
synced 2024-07-05 16:44:21 +03:00
32 lines
645 B
Plaintext
32 lines
645 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
primitive !return val -> void
|
|
primitive !plus val val -> val
|
|
primitive !minus val val -> val
|
|
primitive !jump lab -> void
|
|
primitive !modulo val val -> val
|
|
package main _plain
|
|
typename K_number = int32
|
|
typename K_phrase_number____nothing = function /main/K_number -> void
|
|
package (K_phrase_number____nothing) MyRoutine _code
|
|
local (/main/K_number) x
|
|
local (/main/K_number) y
|
|
code
|
|
inv !return
|
|
val x
|
|
inv !return
|
|
inv !plus
|
|
val x
|
|
val y
|
|
inv !return
|
|
inv !minus
|
|
val x
|
|
val y
|
|
inv !jump
|
|
lab .useful
|
|
.useful
|
|
inv !return
|
|
inv !modulo
|
|
val x
|
|
val y
|