mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
35 lines
784 B
Plaintext
35 lines
784 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
|
|
primitive !increment ref -> void
|
|
primitive !jump lab -> void
|
|
|
|
package main _plain
|
|
kind K_number int32
|
|
kind K_colour enum
|
|
kind K_stuff struct K_number K_colour K_odour
|
|
kind K_colour____colour function K_colour -> K_colour
|
|
package R_101_B _code
|
|
local x /main/K_colour __argument
|
|
code
|
|
val /main/K_number 3
|
|
inv !jump
|
|
lab .spong
|
|
.spong
|
|
inv !increment
|
|
inv /main/R_102
|
|
val /main/K_number 12
|
|
ref /main/K_stuff S_stuff
|
|
inv !increment
|
|
val /main/K_number 2
|
|
inv /main/R_101
|
|
inv !increment
|
|
ref /main/K_number x
|
|
constant R_101 K_colour____colour = R_101_B
|
|
package R_101_A _code
|
|
local x /main/K_colour __argument
|
|
code
|
|
inv !increment
|
|
inv /main/R_101
|
|
constant R_102 K_colour____colour = R_101_A
|