mirror of
https://github.com/ganelson/inform.git
synced 2024-07-08 18:14:21 +03:00
51 lines
1.4 KiB
Plaintext
51 lines
1.4 KiB
Plaintext
packagetype _plain
|
|
packagetype _code
|
|
packagetype _linkage
|
|
|
|
primitive !print val -> void
|
|
primitive !quit void -> void
|
|
primitive !lookup val val -> val
|
|
primitive !printnumber val -> void
|
|
primitive !printstring val -> void
|
|
|
|
package main _plain
|
|
package resources _plain
|
|
kind K_unchecked unchecked
|
|
kind K_unchecked_function function K_unchecked -> K_unchecked
|
|
kind K_number int32
|
|
kind K_list_of_values list of K_unchecked
|
|
constant thirteen K_number = 13
|
|
constant primes K_list_of_values = { 2, 3, 5, "seven", 11, thirteen }
|
|
package Main_B _code
|
|
symbol external misc K_unchecked --> /main/resources/K_unchecked
|
|
symbol external misc K_number --> /main/resources/K_number
|
|
symbol external misc K_list_of_values --> /main/resources/K_list_of_values
|
|
symbol external misc primes
|
|
code
|
|
inv !print
|
|
val K_unchecked "The third prime is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val K_list_of_values primes
|
|
val K_number 2
|
|
inv !print
|
|
val K_unchecked ".\n"
|
|
inv !print
|
|
val K_unchecked "The fourth prime is: "
|
|
inv !printstring
|
|
inv !lookup
|
|
val K_list_of_values primes
|
|
val K_number 3
|
|
inv !print
|
|
val K_unchecked ".\n"
|
|
inv !print
|
|
val K_unchecked "The sixth prime is: "
|
|
inv !printnumber
|
|
inv !lookup
|
|
val K_list_of_values primes
|
|
val K_number 5
|
|
inv !print
|
|
val K_unchecked ".\n"
|
|
inv !quit
|
|
constant Main K_unchecked_function = Main_B
|