|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T ┃
Length: 6350 (0x18ce)
Names: »TEMP«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
0x0000…0020 77 69 74 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 74 61 64 5f 61 63 74 ┆with generic_tree; with tad_act┆
0x0020…0040 6f 72 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 61 63 74 6f 72 5f 74 72 65 65 20 69 73 20 6e 65 77 ┆or; package actor_tree is new┆
0x0040…0060 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 ┆ generic_tree ( element┆
0x0060…0080 20 20 20 20 20 3d 3e 20 74 61 64 5f 61 63 74 6f 72 2e 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 ┆ => tad_actor.object, ┆
0x0080…00a0 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 74 61 64 5f 61 63 74 6f 72 2e 63 6f 6d 70 ┆ compare_key => tad_actor.comp┆
0x00a0…00c0 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 77 69 74 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b ┆are_name); with generic_tree;┆
0x00c0…00e0 0d 0a 77 69 74 68 20 74 61 64 5f 67 72 6f 75 70 3b 0d 0a 0d 0a 20 20 70 61 63 6b 61 67 65 20 67 ┆ with tad_group; package g┆
0x00e0…0100 72 6f 75 70 5f 74 72 65 65 20 69 73 20 6e 65 77 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d ┆roup_tree is new generic_tree ( ┆
0x0100…0120 0a 09 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 20 20 20 20 20 3d 3e 20 74 61 64 5f 67 72 6f 75 ┆ element => tad_grou┆
0x0120…0140 70 2e 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d ┆p.object, compare_key =┆
0x0140…0160 3e 20 74 61 64 5f 67 72 6f 75 70 2e 63 6f 6d 70 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 0d 0a ┆> tad_group.compare_name); ┆
0x0160…0180 77 69 74 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 74 61 64 5f 70 61 72 ┆with generic_tree; with tad_par┆
0x0180…01a0 61 6d 65 74 65 72 3b 0d 0a 0d 0a 20 20 70 61 63 6b 61 67 65 20 70 61 72 61 6d 65 74 65 72 5f 74 ┆ameter; package parameter_t┆
0x01a0…01c0 72 65 65 20 69 73 20 6e 65 77 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 ┆ree is new generic_tree ( ┆
0x01c0…01e0 20 20 20 65 6c 65 6d 65 6e 74 20 20 20 20 20 3d 3e 20 74 61 64 5f 70 61 72 61 6d 65 74 65 72 2e ┆ element => tad_parameter.┆
0x01e0…0200 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 ┆object, compare_key => ┆
0x0200…0220 74 61 64 5f 70 61 72 61 6d 65 74 65 72 2e 63 6f 6d 70 61 72 65 5f 6f 72 64 65 72 29 3b 0d 0a 0d ┆tad_parameter.compare_order); ┆
0x0220…0240 0a 0d 0a 77 69 74 68 20 74 61 64 5f 61 62 73 74 72 61 63 74 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 ┆ with tad_abstract; package┆
0x0240…0260 20 61 62 73 74 72 61 63 74 5f 74 72 65 65 20 69 73 0d 0a 0d 0a 20 20 74 79 70 65 20 6f 62 6a 65 ┆ abstract_tree is type obje┆
0x0260…0280 63 74 20 69 73 20 70 72 69 76 61 74 65 3b 0d 0a 0d 0a 20 20 66 75 6e 63 74 69 6f 6e 20 63 72 65 ┆ct is private; function cre┆
0x0280…02a0 61 74 65 5f 6e 65 77 5f 74 72 65 65 20 72 65 74 75 72 6e 20 6f 62 6a 65 63 74 3b 0d 0a 0d 0a 20 ┆ate_new_tree return object; ┆
0x02a0…02c0 20 70 72 69 76 61 74 65 0d 0a 20 20 20 20 74 79 70 65 20 6f 62 6a 65 63 74 20 69 73 20 6e 65 77 ┆ private type object is new┆
0x02c0…02e0 20 74 61 64 5f 61 62 73 74 72 61 63 74 2e 70 6f 62 6a 65 63 74 3b 0d 0a 0d 0a 65 6e 64 20 61 62 ┆ tad_abstract.pobject; end ab┆
0x02e0…0300 73 74 72 61 63 74 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b ┆stract_tree; with generic_tree;┆
0x0300…0320 0d 0a 77 69 74 68 20 74 61 64 5f 65 78 70 65 72 69 65 6e 63 65 3b 0d 0a 0d 0a 20 20 70 61 63 6b ┆ with tad_experience; pack┆
0x0320…0340 61 67 65 20 65 78 70 65 72 69 65 6e 63 65 5f 74 72 65 65 20 69 73 20 6e 65 77 20 67 65 6e 65 72 ┆age experience_tree is new gener┆
0x0340…0360 69 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 20 20 20 20 20 3d ┆ic_tree ( element =┆
0x0360…0380 3e 20 74 61 64 5f 65 78 70 65 72 69 65 6e 63 65 2e 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 20 ┆> tad_experience.object, ┆
0x0380…03a0 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 74 61 64 5f 65 78 70 65 72 69 65 6e 63 65 2e ┆ compare_key => tad_experience.┆
0x03a0…03c0 63 6f 6d 70 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 0d 0a 77 69 74 68 20 65 78 70 65 72 69 65 ┆compare_name); with experie┆
0x03c0…03e0 6e 63 65 5f 74 72 65 65 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 74 68 65 5f 65 78 70 65 72 69 65 ┆nce_tree; package the_experie┆
0x03e0…0400 6e 63 65 5f 74 72 65 65 20 69 73 0d 0a 0d 0a 20 20 6f 62 6a 65 63 74 20 3a 20 65 78 70 65 72 69 ┆nce_tree is object : experi┆
0x0400…0420 65 6e 63 65 5f 74 72 65 65 2e 6f 62 6a 65 63 74 3b 0d 0a 0d 0a 65 6e 64 20 74 68 65 5f 65 78 70 ┆ence_tree.object; end the_exp┆
0x0420…0440 65 72 69 65 6e 63 65 5f 74 72 65 65 3b 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 77 69 74 68 20 67 65 6e 65 ┆erience_tree; with gene┆
0x0440…0460 72 69 63 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 74 61 64 5f 73 63 65 6e 65 3b 0d 0a 0d 0a 20 20 ┆ric_tree; with tad_scene; ┆
0x0460…0480 70 61 63 6b 61 67 65 20 73 63 65 6e 65 5f 74 72 65 65 20 69 73 20 6e 65 77 20 67 65 6e 65 72 69 ┆package scene_tree is new generi┆
0x0480…04a0 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 20 20 20 20 20 3d 3e ┆c_tree ( element =>┆
0x04a0…04c0 20 74 61 64 5f 73 63 65 6e 65 2e 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 20 20 20 63 6f 6d 70 ┆ tad_scene.object, comp┆
0x04c0…04e0 61 72 65 5f 6b 65 79 20 3d 3e 20 74 61 64 5f 73 63 65 6e 65 2e 63 6f 6d 70 61 72 65 5f 6e 61 6d ┆are_key => tad_scene.compare_nam┆
0x04e0…0500 65 29 3b 0d 0a 0d 0a 0d 0a 77 69 74 68 20 73 63 65 6e 65 5f 74 72 65 65 3b 0d 0a 0d 0a 70 61 63 ┆e); with scene_tree; pac┆
0x0500…0520 6b 61 67 65 20 74 68 65 5f 73 63 65 6e 65 5f 74 72 65 65 20 69 73 0d 0a 0d 0a 20 20 6f 62 6a 65 ┆kage the_scene_tree is obje┆
0x0520…0540 63 74 20 3a 20 73 63 65 6e 65 5f 74 72 65 65 2e 6f 62 6a 65 63 74 3b 0d 0a 0d 0a 65 6e 64 20 74 ┆ct : scene_tree.object; end t┆
0x0540…0560 68 65 5f 73 63 65 6e 65 5f 74 72 65 65 3b 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 77 69 74 68 ┆he_scene_tree; with┆
0x0560…0580 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 74 61 64 5f 67 6c 6f 62 61 6c 3b ┆ generic_tree; with tad_global;┆
0x0580…05a0 0d 0a 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 67 6c 6f 62 61 6c 5f 74 72 65 65 20 69 73 20 6e 65 77 ┆ package global_tree is new┆
0x05a0…05c0 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 ┆ generic_tree ( element┆
0x05c0…05e0 20 20 20 20 20 3d 3e 20 74 61 64 5f 67 6c 6f 62 61 6c 2e 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 ┆ => tad_global.object, ┆
0x05e0…0600 20 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 74 61 64 5f 67 6c 6f 62 61 6c 2e 63 6f ┆ compare_key => tad_global.co┆
0x0600…0620 6d 70 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 0d 0a 77 69 74 68 20 67 6c 6f 62 61 6c 5f 74 72 ┆mpare_name); with global_tr┆
0x0620…0640 65 65 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 74 68 65 5f 67 6c 6f 62 61 6c 5f 74 72 65 65 20 69 ┆ee; package the_global_tree i┆
0x0640…0660 73 0d 0a 0d 0a 20 20 6f 62 6a 65 63 74 20 3a 20 67 6c 6f 62 61 6c 5f 74 72 65 65 2e 6f 62 6a 65 ┆s object : global_tree.obje┆
0x0660…0680 63 74 3b 0d 0a 0d 0a 65 6e 64 20 74 68 65 5f 67 6c 6f 62 61 6c 5f 74 72 65 65 3b 0d 0a 77 69 74 ┆ct; end the_global_tree; wit┆
0x0680…06a0 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 74 61 64 5f 6d 61 74 65 72 69 ┆h generic_tree; with tad_materi┆
0x06a0…06c0 61 6c 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 6d 61 74 65 72 69 61 6c 5f 74 72 65 65 20 69 73 20 ┆al; package material_tree is ┆
0x06c0…06e0 6e 65 77 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d 0a 09 09 09 20 20 20 20 20 65 6c 65 6d ┆new generic_tree ( elem┆
0x06e0…0700 65 6e 74 20 20 20 20 20 3d 3e 20 74 61 64 5f 6d 61 74 65 72 69 61 6c 2e 6f 62 6a 65 63 74 2c 0d ┆ent => tad_material.object, ┆
0x0700…0720 0a 09 09 09 20 20 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 74 61 64 5f 6d 61 74 65 ┆ compare_key => tad_mate┆
0x0720…0740 72 69 61 6c 2e 63 6f 6d 70 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 0d 0a 77 69 74 68 20 6d 61 ┆rial.compare_name); with ma┆
0x0740…0760 74 65 72 69 61 6c 5f 74 72 65 65 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 74 68 65 5f 6d 61 74 65 ┆terial_tree; package the_mate┆
0x0760…0780 72 69 61 6c 5f 74 72 65 65 20 69 73 0d 0a 0d 0a 20 20 6f 62 6a 65 63 74 20 3a 20 6d 61 74 65 72 ┆rial_tree is object : mater┆
0x0780…07a0 69 61 6c 5f 74 72 65 65 2e 6f 62 6a 65 63 74 3b 0d 0a 0d 0a 65 6e 64 20 74 68 65 5f 6d 61 74 65 ┆ial_tree.object; end the_mate┆
0x07a0…07c0 72 69 61 6c 5f 74 72 65 65 3b 0d 0a 77 69 74 68 20 67 65 6e 65 72 69 63 5f 74 72 65 65 3b 0d 0a ┆rial_tree; with generic_tree; ┆
0x07c0…07e0 77 69 74 68 20 74 61 64 5f 6c 6f 63 61 6c 3b 0d 0a 0d 0a 20 20 70 61 63 6b 61 67 65 20 6c 6f 63 ┆with tad_local; package loc┆
0x07e0…0800 61 6c 5f 74 72 65 65 20 69 73 20 6e 65 77 20 67 65 6e 65 72 69 63 5f 74 72 65 65 20 28 0d 0a 09 ┆al_tree is new generic_tree ( ┆
0x0800…0820 09 09 20 20 20 20 20 65 6c 65 6d 65 6e 74 20 20 20 20 20 3d 3e 20 74 61 64 5f 6c 6f 63 61 6c 2e ┆ element => tad_local.┆
0x0820…0840 6f 62 6a 65 63 74 2c 0d 0a 09 09 09 20 20 20 20 20 63 6f 6d 70 61 72 65 5f 6b 65 79 20 3d 3e 20 ┆object, compare_key => ┆
0x0840…0860 74 61 64 5f 6c 6f 63 61 6c 2e 63 6f 6d 70 61 72 65 5f 6e 61 6d 65 29 3b 0d 0a 0d 0a 0d 0a 0d 0a ┆tad_local.compare_name); ┆
0x0860…0880 0d 0a 77 69 74 68 20 74 65 78 74 5f 69 6f 3b 0d 0a 0d 0a 70 61 63 6b 61 67 65 20 62 6f 6f 6c 5f ┆ with text_io; package bool_┆
0x0880…08a0 69 6f 20 69 73 20 6e 65 77 20 74 65 78 74 5f 69 6f 2e 65 6e 75 6d 65 72 61 74 69 6f 6e 5f 69 6f ┆io is new text_io.enumeration_io┆
0x08a0…08c0 28 62 6f 6f 6c 65 61 6e 29 3b 0d 0a 0d 0a 77 69 74 68 20 74 64 73 3b 0d 0a 77 69 74 68 20 62 6f ┆(boolean); with tds; with bo┆
0x08c0…08e0 6f 6c 5f 69 6f 3b 0d 0a 77 69 74 68 20 74 65 78 74 5f 69 6f 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 ┆ol_io; with text_io; procedu┆
0x08e0…0900 72 65 20 74 65 73 74 20 69 73 0d 0a 6f 6b 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e ┆re test is ok : boolean; begin┆
0x0900…0920 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 6d 61 74 65 72 69 61 6c 20 3a ┆ text_io.put_line("material :┆
0x0920…0940 20 38 22 29 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 6d 61 ┆ 8"); ok := tds.create_new_ma┆
0x0940…0960 74 65 72 69 61 6c 28 22 63 64 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 31 0d 0a 20 ┆terial("cd"); --1 ┆
0x0960…0980 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 ┆ bool_io.put(ok); text_io.new┆
0x0980…09a0 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 63 ┆_line; ok := tds.add_actor("c┆
0x09a0…09c0 6f 6e 6e 65 78 69 6f 6e 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 32 0d 0a ┆onnexion"); --2 ┆
0x09c0…09e0 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 ┆ bool_io.put(ok); text_io.ne┆
0x09e0…0a00 77 5f 6c 69 6e 65 3b 0d 0a 20 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 ┆w_line; --ok := tds.add_actor┆
0x0a00…0a20 5f 74 79 70 65 28 74 79 70 65 5f 61 63 74 6f 72 27 28 62 69 6e 61 69 72 65 29 29 3b 0d 0a 20 20 ┆_type(type_actor'(binaire)); ┆
0x0a20…0a40 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 73 65 63 74 65 75 72 22 29 3b 20 ┆ok := tds.add_actor("secteur"); ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 33 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e ┆ --3 bool_io.┆
0x0a60…0a80 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 ┆put(ok); text_io.new_line; ┆
0x0a80…0aa0 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 5f 74 79 70 65 28 0d 0a 20 20 ┆ --ok := tds.add_actor_type( ┆
0x0aa0…0ac0 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 76 6f 6c 75 6d 65 22 29 3b 20 20 ┆ok := tds.add_actor("volume"); ┆
0x0ac0…0ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 34 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e ┆ --4 bool_io.┆
0x0ae0…0b00 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 ┆put(ok); text_io.new_line; ┆
0x0b00…0b20 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 5f 74 79 70 65 28 0d 0a 0d 0a ┆ --ok := tds.add_actor_type( ┆
0x0b20…0b40 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 6d 61 74 65 72 69 61 6c 28 ┆ ok := tds.create_new_material(┆
0x0b40…0b60 22 73 70 6f 74 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 2d 2d 35 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆"spot"); --5 bool_i┆
0x0b60…0b80 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x0b80…0ba0 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 63 6f 6e 6e 65 78 69 6f ┆ ok := tds.add_actor("connexio┆
0x0ba0…0bc0 6e 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 36 0d 0a 20 20 62 6f 6f 6c 5f ┆n"); --6 bool_┆
0x0bc0…0be0 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b ┆io.put(ok); text_io.new_line;┆
0x0be0…0c00 0d 0a 20 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 5f 74 79 70 65 28 0d ┆ --ok := tds.add_actor_type( ┆
0x0c00…0c20 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 6d 6f 64 65 22 29 3b 20 ┆ ok := tds.add_actor("mode"); ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 37 0d 0a 20 20 62 6f 6f 6c 5f ┆ --7 bool_┆
0x0c40…0c60 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b ┆io.put(ok); text_io.new_line;┆
0x0c60…0c80 0d 0a 20 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 5f 74 79 70 65 28 0d ┆ --ok := tds.add_actor_type( ┆
0x0c80…0ca0 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 28 22 69 6e 74 31 22 29 3b 20 ┆ ok := tds.add_actor("int1"); ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 38 0d 0a 20 20 62 6f 6f 6c 5f ┆ --8 bool_┆
0x0cc0…0ce0 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b ┆io.put(ok); text_io.new_line;┆
0x0ce0…0d00 0d 0a 20 20 2d 2d 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 61 63 74 6f 72 5f 74 79 70 65 28 0d ┆ --ok := tds.add_actor_type( ┆
0x0d00…0d20 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 74 65 78 74 5f 69 ┆ text_io.new_line; text_i┆
0x0d20…0d40 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 67 6c 6f 62 61 6c 20 3a 20 36 22 29 3b 0d 0a 20 20 6f 6b 20 ┆o.put_line("global : 6"); ok ┆
0x0d40…0d60 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 73 74 61 74 69 6f 6e 28 22 72 6f 75 67 65 ┆:= tds.create_new_station("rouge┆
0x0d60…0d80 22 29 3b 20 20 20 20 20 20 20 20 20 20 2d 2d 31 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 ┆"); --1 bool_io.put(┆
0x0d80…0da0 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 ┆ok); text_io.new_line; ok ┆
0x0da0…0dc0 3a 3d 20 74 64 73 2e 73 65 74 5f 73 74 61 74 69 6f 6e 5f 74 79 70 65 28 22 73 70 6f 74 22 29 3b ┆:= tds.set_station_type("spot");┆
0x0dc0…0de0 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 32 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 ┆ --2 bool_io.put(┆
0x0de0…0e00 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 ┆ok); text_io.new_line; ok ┆
0x0e00…0e20 3a 3d 20 74 64 73 2e 73 65 74 5f 73 74 61 74 69 6f 6e 5f 6e 75 6d 62 65 72 28 31 30 29 3b 20 20 ┆:= tds.set_station_number(10); ┆
0x0e20…0e40 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 33 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 ┆ --3 bool_io.put(┆
0x0e40…0e60 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 ┆ok); text_io.new_line; ok ┆
0x0e60…0e80 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 73 74 61 74 69 6f 6e 28 22 63 64 31 22 29 ┆:= tds.create_new_station("cd1")┆
0x0e80…0ea0 3b 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 34 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 ┆; --4 bool_io.put(┆
0x0ea0…0ec0 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 ┆ok); text_io.new_line; ok ┆
0x0ec0…0ee0 3a 3d 20 74 64 73 2e 73 65 74 5f 73 74 61 74 69 6f 6e 5f 74 79 70 65 28 22 63 64 22 29 3b 20 20 ┆:= tds.set_station_type("cd"); ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 35 20 20 20 20 20 20 20 20 7a 0d 0a 20 20 62 6f 6f ┆ --5 z boo┆
0x0f00…0f20 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e ┆l_io.put(ok); text_io.new_lin┆
0x0f20…0f40 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 73 65 74 5f 73 74 61 74 69 6f 6e 5f 6e 75 6d 62 ┆e; ok := tds.set_station_numb┆
0x0f40…0f60 65 72 28 33 30 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 36 0d 0a 20 20 62 6f 6f ┆er(30); --6 boo┆
0x0f60…0f80 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e ┆l_io.put(ok); text_io.new_lin┆
0x0f80…0fa0 65 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 74 65 78 ┆e; text_io.new_line; tex┆
0x0fa0…0fc0 74 5f 69 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 65 78 70 65 72 69 65 6e 63 65 20 74 6f 74 6f 20 3a ┆t_io.put_line("experience toto :┆
0x0fc0…0fe0 20 35 22 29 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 65 78 ┆ 5"); ok := tds.create_new_ex┆
0x0fe0…1000 70 65 72 69 65 6e 63 65 28 22 74 6f 74 6f 22 29 3b 20 20 20 20 20 20 20 20 2d 2d 31 0d 0a 20 20 ┆perience("toto"); --1 ┆
0x1000…1020 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f ┆bool_io.put(ok); text_io.new_┆
0x1020…1040 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 ┆line; ok := tds.add_experienc┆
0x1040…1060 65 5f 70 61 72 61 6d 65 74 65 72 28 22 74 69 74 69 22 29 3b 20 20 20 20 20 2d 2d 32 0d 0a 20 20 ┆e_parameter("titi"); --2 ┆
0x1060…1080 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f ┆bool_io.put(ok); text_io.new_┆
0x1080…10a0 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 ┆line; ok := tds.add_experienc┆
0x10a0…10c0 65 5f 70 61 72 61 6d 65 74 65 72 28 22 74 22 29 3b 20 20 20 20 20 20 20 20 2d 2d 33 0d 0a 20 20 ┆e_parameter("t"); --3 ┆
0x10c0…10e0 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f ┆bool_io.put(ok); text_io.new_┆
0x10e0…1100 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 ┆line; ok := tds.add_experienc┆
0x1100…1120 65 5f 70 61 72 61 6d 65 74 65 72 28 22 64 22 29 3b 20 20 20 20 20 20 20 20 2d 2d 34 0d 0a 20 20 ┆e_parameter("d"); --4 ┆
0x1120…1140 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f ┆bool_io.put(ok); text_io.new_┆
0x1140…1160 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 ┆line; ok := tds.add_experienc┆
0x1160…1180 65 5f 70 61 72 61 6d 65 74 65 72 28 22 78 22 29 3b 20 20 20 20 20 20 20 20 2d 2d 35 0d 0a 20 20 ┆e_parameter("x"); --5 ┆
0x1180…11a0 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f ┆bool_io.put(ok); text_io.new_┆
0x11a0…11c0 6c 69 6e 65 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 ┆line; text_io.new_line; ┆
0x11c0…11e0 74 65 78 74 5f 69 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 65 78 70 65 72 69 65 6e 63 65 20 66 6c 61 ┆text_io.put_line("experience fla┆
0x11e0…1200 73 68 20 3a 20 38 22 29 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 ┆sh : 8"); ok := tds.create_ne┆
0x1200…1220 77 5f 65 78 70 65 72 69 65 6e 63 65 28 22 66 6c 61 73 68 22 29 3b 20 20 20 20 20 20 20 20 2d 2d ┆w_experience("flash"); --┆
0x1220…1240 31 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f ┆1 bool_io.put(ok); text_io┆
0x1240…1260 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 ┆.new_line; ok := tds.add_expe┆
0x1260…1280 72 69 65 6e 63 65 5f 70 61 72 61 6d 65 74 65 72 28 22 75 6e 5f 73 70 6f 74 22 29 3b 20 20 20 2d ┆rience_parameter("un_spot"); -┆
0x1280…12a0 2d 32 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 ┆-2 bool_io.put(ok); text_i┆
0x12a0…12c0 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 ┆o.new_line; ok := tds.add_exp┆
0x12c0…12e0 65 72 69 65 6e 63 65 5f 70 61 72 61 6d 65 74 65 72 28 22 74 22 29 3b 20 20 20 20 20 20 20 20 20 ┆erience_parameter("t"); ┆
0x12e0…1300 2d 2d 33 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f ┆--3 bool_io.put(ok); text_┆
0x1300…1320 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 73 65 74 5f 6c 6f ┆io.new_line; ok := tds.set_lo┆
0x1320…1340 63 61 6c 5f 76 61 72 69 61 62 6c 65 28 22 66 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cal_variable("f"); ┆
0x1340…1360 20 2d 2d 34 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 ┆ --4 bool_io.put(ok); text┆
0x1360…1380 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 73 65 74 5f 6c ┆_io.new_line; ok := tds.set_l┆
0x1380…13a0 6f 63 61 6c 5f 67 72 6f 75 70 28 22 72 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ocal_group("r"); ┆
0x13a0…13c0 20 20 2d 2d 35 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 ┆ --5 bool_io.put(ok); tex┆
0x13c0…13e0 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f ┆t_io.new_line; ok := tds.add_┆
0x13e0…1400 6c 6f 63 61 6c 5f 67 72 6f 75 70 5f 6d 65 6d 62 65 72 28 22 74 69 74 69 22 29 3b 20 20 20 20 20 ┆local_group_member("titi"); ┆
0x1400…1420 20 20 20 2d 2d 36 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 ┆ --6 bool_io.put(ok); te┆
0x1420…1440 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 ┆xt_io.new_line; ok := tds.add┆
0x1440…1460 5f 6c 6f 63 61 6c 5f 67 72 6f 75 70 5f 6d 65 6d 62 65 72 28 22 72 6f 75 67 65 22 29 3b 20 20 20 ┆_local_group_member("rouge"); ┆
0x1460…1480 20 20 20 20 20 2d 2d 37 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 ┆ --7 bool_io.put(ok); ┆
0x1480…14a0 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 ┆text_io.new_line; ok := tds.a┆
0x14a0…14c0 64 64 5f 6c 6f 63 61 6c 5f 67 72 6f 75 70 5f 6d 65 6d 62 65 72 28 22 72 6f 75 67 65 22 29 3b 20 ┆dd_local_group_member("rouge"); ┆
0x14c0…14e0 20 20 20 20 20 20 20 20 20 20 2d 2d 38 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 ┆ --8 bool_io.put(ok)┆
0x14e0…1500 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 74 65 78 74 5f 69 ┆; text_io.new_line; text_i┆
0x1500…1520 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 70 75 74 5f 6c 69 6e ┆o.new_line; text_io.put_lin┆
0x1520…1540 65 28 22 65 78 70 65 72 69 65 6e 63 65 20 63 68 65 6e 69 6c 6c 61 72 64 20 3a 20 35 22 29 3b 0d ┆e("experience chenillard : 5"); ┆
0x1540…1560 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 65 78 70 65 72 69 65 6e ┆ ok := tds.create_new_experien┆
0x1560…1580 63 65 28 22 63 68 65 6e 69 6c 6c 61 72 64 22 29 3b 20 20 2d 2d 31 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆ce("chenillard"); --1 bool_i┆
0x1580…15a0 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x15a0…15c0 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 65 5f 70 61 72 61 ┆ ok := tds.add_experience_para┆
0x15c0…15e0 6d 65 74 65 72 28 22 74 6f 5f 74 6f 22 29 3b 20 20 20 20 2d 2d 32 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆meter("to_to"); --2 bool_i┆
0x15e0…1600 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x1600…1620 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 61 64 64 5f 65 78 70 65 72 69 65 6e 63 65 5f 70 61 72 61 ┆ ok := tds.add_experience_para┆
0x1620…1640 6d 65 74 65 72 28 22 63 22 29 3b 20 20 20 20 20 20 20 20 2d 2d 33 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆meter("c"); --3 bool_i┆
0x1640…1660 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x1660…1680 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 73 65 74 5f 6c 6f 63 61 6c 5f 76 61 72 69 61 62 6c 65 28 ┆ ok := tds.set_local_variable(┆
0x1680…16a0 22 62 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 34 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆"b"); --4 bool_i┆
0x16a0…16c0 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x16c0…16e0 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 73 65 74 5f 6c 6f 63 61 6c 5f 76 61 72 69 61 62 6c 65 28 ┆ ok := tds.set_local_variable(┆
0x16e0…1700 22 61 22 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 2d 35 0d 0a 20 20 62 6f 6f 6c 5f 69 ┆"a"); --5 bool_i┆
0x1700…1720 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d ┆o.put(ok); text_io.new_line; ┆
0x1720…1740 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 74 65 78 74 5f 69 ┆ text_io.new_line; text_i┆
0x1740…1760 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 73 63 65 6e 65 20 75 6e 20 3a 20 31 22 29 3b 0d 0a 20 20 6f ┆o.put_line("scene un : 1"); o┆
0x1760…1780 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f 73 63 65 6e 65 28 22 75 6e 22 29 3b ┆k := tds.create_new_scene("un");┆
0x1780…17a0 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e ┆ bool_io.put(ok); text_io.┆
0x17a0…17c0 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a ┆new_line; text_io.new_line; ┆
0x17c0…17e0 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 70 75 74 5f 6c 69 6e 65 28 22 73 63 65 6e 65 20 64 65 75 78 ┆ text_io.put_line("scene deux┆
0x17e0…1800 20 3a 20 31 22 29 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 73 2e 63 72 65 61 74 65 5f 6e 65 77 5f ┆ : 1"); ok := tds.create_new_┆
0x1800…1820 73 63 65 6e 65 28 22 64 65 75 78 22 29 3b 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 75 74 28 6f 6b ┆scene("deux"); bool_io.put(ok┆
0x1820…1840 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 20 20 74 65 78 74 5f ┆); text_io.new_line; text_┆
0x1840…1860 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 70 75 74 5f 6c 69 ┆io.new_line; text_io.put_li┆
0x1860…1880 6e 65 28 22 73 70 65 63 74 61 63 6c 65 20 3a 20 31 22 29 3b 0d 0a 20 20 6f 6b 20 3a 3d 20 74 64 ┆ne("spectacle : 1"); ok := td┆
0x1880…18a0 73 2e 63 72 65 61 74 65 5f 73 70 65 63 74 61 63 6c 65 3b 0d 0a 20 20 62 6f 6f 6c 5f 69 6f 2e 70 ┆s.create_spectacle; bool_io.p┆
0x18a0…18c0 75 74 28 6f 6b 29 3b 0d 0a 20 20 74 65 78 74 5f 69 6f 2e 6e 65 77 5f 6c 69 6e 65 3b 0d 0a 0d 0a ┆ut(ok); text_io.new_line; ┆
0x18c0…18ce 0d 0a 65 6e 64 20 74 65 73 74 3b 0d 0a 1a ┆ end test; ┆