mirror of
https://github.com/ganelson/inform.git
synced 2024-07-09 02:24:21 +03:00
33 lines
690 B
Plaintext
33 lines
690 B
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
|
|
primitive !increment ref -> void
|
|
primitive !jump lab -> void
|
|
|
|
package main _plain
|
|
typename K_number = int32
|
|
typename K_colour = enum
|
|
typename K_stuff = struct K_number K_colour K_odour
|
|
typename K_colour____colour = function K_colour -> K_colour
|
|
package R_101 _code
|
|
local (/main/K_colour) x
|
|
code
|
|
val (/main/K_number) 3
|
|
inv !jump
|
|
lab .spong
|
|
.spong
|
|
inv !increment
|
|
inv /main/R_102
|
|
val (/main/K_number) 12
|
|
ref S_stuff
|
|
inv !increment
|
|
val (/main/K_number) 2
|
|
inv /main/R_101
|
|
inv !increment
|
|
ref (/main/K_number) x
|
|
package R_102 _code
|
|
local (/main/K_colour) x
|
|
code
|
|
inv !increment
|
|
inv /main/R_101
|