|
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: ┃ 5 ┃
Length: 6096 (0x17d0)
Names: »5«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
0x0000…0020 00 00 00 02 01 00 00 00 49 02 00 00 00 05 00 05 00 03 1d c5 80 63 80 0a 00 03 00 0c 4d 41 47 49 ┆ I c MAGI┆
0x0020…0040 43 5f 53 51 55 41 52 45 00 02 00 06 53 51 55 41 52 45 00 04 00 07 53 51 55 41 52 45 42 00 05 00 ┆C_SQUARE SQUARE SQUAREB ┆
0x0040…0060 05 4d 41 47 49 43 00 01 00 08 4d 4f 4e 5f 54 45 53 54 00 00 00 00 6f 50 52 49 4d 41 52 59 20 3d ┆ MAGIC MON_TEST oPRIMARY =┆
0x0060…0080 3e 20 54 52 55 45 2c 20 53 55 42 53 59 53 54 45 4d 20 3d 3e 20 20 38 37 37 31 35 39 30 32 39 38 ┆> TRUE, SUBSYSTEM => 8771590298┆
0x0080…00a0 39 39 32 37 34 2c 20 50 52 49 4d 41 52 59 5f 4e 41 4d 45 20 3d 3e 20 21 55 53 45 52 53 2e 4d 49 ┆99274, PRIMARY_NAME => !USERS.MI┆
0x00a0…00c0 43 4c 4f 2e 4d 59 57 4f 52 4b 2c 20 50 52 49 4d 41 52 59 5f 4d 41 43 48 49 4e 45 20 3d 3e 20 61 ┆CLO.MYWORK, PRIMARY_MACHINE => a┆
0x00c0…00e0 6e 63 6f 6c 69 65 02 00 00 04 95 00 05 4d 41 47 49 43 02 00 00 00 02 00 05 00 00 00 15 00 03 1d ┆ncolie MAGIC ┆
0x00e0…0100 c5 80 63 80 0a 00 00 00 12 00 00 00 23 00 0b 4d 41 47 49 43 2e 54 4f 4b 45 4e 3c 66 17 00 10 53 ┆ c # MAGIC.TOKEN<f S┆
0x0100…0120 54 41 4e 44 41 52 44 2e 4e 41 54 55 52 41 4c 00 00 00 00 08 00 00 00 18 00 12 4d 41 47 49 43 2e ┆TANDARD.NATURAL MAGIC.┆
0x0120…0140 57 52 41 50 5f 49 46 5f 45 44 47 45 3d 7b 94 00 00 00 00 14 00 00 00 44 00 0f 4d 41 47 49 43 2e ┆WRAP_IF_EDGE={ D MAGIC.┆
0x0140…0160 4d 59 5f 53 51 55 41 52 45 3b 99 6c 63 88 17 00 0b 4d 41 47 49 43 2e 4c 41 52 47 45 88 17 00 0b ┆MY_SQUARE; lc MAGIC.LARGE ┆
0x0160…0180 4d 41 47 49 43 2e 4c 41 52 47 45 66 17 00 0b 4d 41 47 49 43 2e 54 4f 4b 45 4e 00 00 00 00 00 0b ┆MAGIC.LARGEf MAGIC.TOKEN ┆
0x0180…01a0 00 00 00 43 00 12 4d 41 47 49 43 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 3c 66 17 00 11 53 54 41 ┆ C MAGIC.SQUARE_LARGE<f STA┆
0x01a0…01c0 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 61 08 00 00 00 00 00 00 00 00 01 16 00 0b 4d 41 47 49 ┆NDARD.POSITIVEa MAGI┆
0x01c0…01e0 43 2e 4c 41 52 47 45 00 00 00 09 00 00 00 1b 00 15 4d 41 47 49 43 2e 43 4c 45 41 52 5f 4d 59 5f ┆C.LARGE MAGIC.CLEAR_MY_┆
0x01e0…0200 53 51 55 41 52 45 3d 7b 94 00 00 00 00 10 00 00 00 09 00 05 4d 41 47 49 43 3e 7c 00 00 00 02 00 ┆SQUARE={ MAGIC>| ┆
0x0200…0220 00 00 51 00 0b 4d 41 47 49 43 2e 54 4f 4b 45 4e 3c 66 17 00 10 53 54 41 4e 44 41 52 44 2e 4e 41 ┆ Q MAGIC.TOKEN<f STANDARD.NA┆
0x0220…0240 54 55 52 41 4c 61 08 00 00 00 00 00 00 00 00 00 09 10 00 15 00 01 2a 93 16 00 0b 4d 41 47 49 43 ┆TURALa * MAGIC┆
0x0240…0260 2e 4c 41 52 47 45 16 00 0b 4d 41 47 49 43 2e 4c 41 52 47 45 00 00 00 01 00 00 00 31 00 05 4d 41 ┆.LARGE MAGIC.LARGE 1 MA┆
0x0260…0280 47 49 43 41 8f 7e 90 23 00 05 4c 41 52 47 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 ┆GICA ~ # LARGE STANDARD.INTEG┆
0x0280…02a0 45 52 08 00 00 00 00 00 00 00 00 05 7c 00 00 00 11 00 00 00 38 00 0b 4d 41 47 49 43 2e 4c 41 52 ┆ER | 8 MAGIC.LAR┆
0x02a0…02c0 47 45 3c 66 17 00 11 53 54 41 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 61 08 00 00 00 00 00 00 ┆GE<f STANDARD.POSITIVEa ┆
0x02c0…02e0 00 00 01 08 00 00 00 00 00 00 00 03 e7 00 00 00 05 00 00 00 18 00 12 4d 41 47 49 43 2e 47 4f 5f ┆ MAGIC.GO_┆
0x02e0…0300 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 00 00 00 00 0d 00 00 00 23 00 0b 4d 41 47 49 43 2e 4d 41 47 ┆TO_CENTER={ # MAGIC.MAG┆
0x0300…0320 49 43 39 66 17 00 0f 4d 41 47 49 43 2e 4d 59 5f 53 51 55 41 52 45 00 00 00 00 00 0a 00 00 00 1a ┆IC9f MAGIC.MY_SQUARE ┆
0x0320…0340 00 14 4d 41 47 49 43 2e 44 49 53 50 4c 41 59 5f 53 51 55 41 52 45 3d 7b 94 00 00 00 00 0c 00 00 ┆ MAGIC.DISPLAY_SQUARE={ ┆
0x0340…0360 00 54 00 0f 4d 41 47 49 43 2e 4d 59 5f 53 51 55 41 52 45 3b 99 6c 63 66 17 00 12 4d 41 47 49 43 ┆ T MAGIC.MY_SQUARE; lcf MAGIC┆
0x0360…0380 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 12 4d 41 47 49 43 2e 53 51 55 41 52 45 5f 4c ┆.SQUARE_LARGE f MAGIC.SQUARE_L┆
0x0380…03a0 41 52 47 45 00 66 17 00 0b 4d 41 47 49 43 2e 54 4f 4b 45 4e 00 00 00 00 00 06 00 00 00 28 00 0d ┆ARGE f MAGIC.TOKEN ( ┆
0x03a0…03c0 4d 41 47 49 43 2e 44 45 50 4f 53 49 54 3d 7b 94 7e 90 23 00 01 54 17 00 0b 4d 41 47 49 43 2e 54 ┆MAGIC.DEPOSIT={ ~ # T MAGIC.T┆
0x03c0…03e0 4f 4b 45 4e 00 00 00 00 00 0e 00 00 00 20 00 07 4d 41 47 49 43 2e 58 39 66 17 00 10 53 54 41 4e ┆OKEN MAGIC.X9f STAN┆
0x03e0…0400 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0f 00 00 00 20 00 07 4d 41 47 49 43 2e 59 39 ┆DARD.INTEGER MAGIC.Y9┆
0x0400…0420 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 15 00 00 00 7c 00 0c ┆f STANDARD.INTEGER | ┆
0x0420…0440 4d 41 47 49 43 2e 53 51 55 41 52 45 3b 99 9b 90 1e 00 01 4c 00 17 00 0b 4d 41 47 49 43 2e 4c 41 ┆MAGIC.SQUARE; L MAGIC.LA┆
0x0440…0460 52 47 45 00 72 39 90 1c 00 01 4d 66 17 00 0f 4d 41 47 49 43 2e 4d 59 5f 53 51 55 41 52 45 63 61 ┆RGE r9 Mf MAGIC.MY_SQUAREca┆
0x0460…0480 08 00 00 00 00 00 00 00 00 01 16 00 0e 4d 41 47 49 43 2e 53 51 55 41 52 45 2e 4c 61 08 00 00 00 ┆ MAGIC.SQUARE.La ┆
0x0480…04a0 00 00 00 00 00 01 16 00 0e 4d 41 47 49 43 2e 53 51 55 41 52 45 2e 4c 00 00 00 00 00 00 07 00 00 ┆ MAGIC.SQUARE.L ┆
0x04a0…04c0 00 23 00 0f 4d 41 47 49 43 2e 47 45 54 5f 54 4f 4b 45 4e 3d 7a 94 17 00 0b 4d 41 47 49 43 2e 54 ┆ # MAGIC.GET_TOKEN=z MAGIC.T┆
0x04c0…04e0 4f 4b 45 4e 00 00 00 00 13 00 00 00 27 00 0c 4d 41 47 49 43 2e 53 51 55 41 52 45 3b 99 9b 90 1e ┆OKEN ' MAGIC.SQUARE; ┆
0x04e0…0500 00 01 4c 00 17 00 0b 4d 41 47 49 43 2e 4c 41 52 47 45 00 71 00 00 00 04 00 00 00 29 00 0a 4d 41 ┆ L MAGIC.LARGE q ) MA┆
0x0500…0520 47 49 43 2e 4d 4f 56 45 3d 7b 94 7e 90 23 00 01 44 17 00 0f 4d 41 47 49 43 2e 44 49 52 45 43 54 ┆GIC.MOVE={ ~ # D MAGIC.DIRECT┆
0x0520…0540 49 4f 4e 00 00 00 00 00 03 00 00 00 33 00 0f 4d 41 47 49 43 2e 44 49 52 45 43 54 49 4f 4e 3b 99 ┆ION 3 MAGIC.DIRECTION; ┆
0x0540…0560 6e 31 00 05 4e 4f 52 54 48 31 00 05 53 4f 55 54 48 31 00 04 45 41 53 54 31 00 04 57 45 53 54 00 ┆n1 NORTH1 SOUTH1 EAST1 WEST ┆
0x0560…0580 02 00 00 00 3b 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 45 02 00 00 00 01 00 03 00 00 00 01 00 03 ┆ ; MAGIC_SQUARE ┆
0x0580…05a0 1d c5 80 63 80 0a 00 00 00 01 00 00 00 12 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 45 3d 7b 94 00 ┆ c MAGIC_SQUARE={ ┆
0x05a0…05c0 02 00 00 00 33 00 08 4d 4f 4e 5f 54 45 53 54 02 00 00 00 01 00 01 00 00 00 01 00 03 1d c5 80 63 ┆ 3 MON_TEST c┆
0x05c0…05e0 80 0a 00 00 00 01 00 00 00 0e 00 08 4d 4f 4e 5f 54 45 53 54 3d 7b 94 00 02 00 00 0e d0 00 06 53 ┆ MON_TEST={ S┆
0x05e0…0600 51 55 41 52 45 02 00 00 00 19 00 02 00 00 00 36 00 03 1d c5 80 63 80 0a 00 00 00 10 00 00 00 20 ┆QUARE 6 c ┆
0x0600…0620 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 3a 08 00 00 00 00 00 00 00 00 05 ┆ SQUARE.SQUARE_LARGE: ┆
0x0620…0640 00 00 00 16 00 00 00 40 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 3c 66 17 ┆ @ SQUARE.SQUARE_LARGE<f ┆
0x0640…0660 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 61 08 00 00 00 00 00 00 00 00 01 16 00 0c 53 51 55 41 ┆ SQUARE.TOKENa SQUA┆
0x0660…0680 52 45 2e 4c 41 52 47 45 00 00 00 29 00 00 00 77 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e ┆RE.LARGE ) w SQUARE.MY_INT.┆
0x0680…06a0 47 45 54 3d 7b 94 7e 90 23 00 04 46 49 4c 45 17 00 11 54 45 58 54 5f 49 4f 2e 46 49 4c 45 5f 54 ┆GET={ ~ # FILE TEXT_IO.FILE_T┆
0x06a0…06c0 59 50 45 00 7d 90 25 00 04 49 54 45 4d 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 ┆YPE } % ITEM SQUARE.MY_INT.NU┆
0x06c0…06e0 4d 00 7e 90 23 00 05 57 49 44 54 48 17 00 0d 54 45 58 54 5f 49 4f 2e 46 49 45 4c 44 08 00 00 00 ┆M ~ # WIDTH TEXT_IO.FIELD ┆
0x06e0…0700 00 00 00 00 00 00 00 00 00 00 0d 00 00 00 20 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c ┆ SQUARE.SQUARE_L┆
0x0700…0720 41 52 47 45 3a 08 00 00 00 00 00 00 00 00 0a 00 00 00 24 00 00 00 19 00 13 53 51 55 41 52 45 2e ┆ARGE: $ SQUARE.┆
0x0720…0740 57 52 41 50 5f 49 46 5f 45 44 47 45 3d 7b 94 00 00 00 00 17 00 00 00 55 00 0d 53 51 55 41 52 45 ┆WRAP_IF_EDGE={ U SQUARE┆
0x0740…0760 2e 53 51 55 41 52 45 3b 99 6c 63 66 17 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 ┆.SQUARE; lcf SQUARE.SQUARE_LAR┆
0x0760…0780 47 45 00 66 17 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 0c 53 ┆GE f SQUARE.SQUARE_LARGE f S┆
0x0780…07a0 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 00 1e 00 00 00 21 00 08 53 51 55 41 52 45 2e 58 39 ┆QUARE.TOKEN ! SQUARE.X9┆
0x07a0…07c0 66 17 00 10 53 51 55 41 52 45 2e 4d 59 5f 53 51 55 41 52 45 00 00 00 00 00 1f 00 00 00 21 00 08 ┆f SQUARE.MY_SQUARE ! ┆
0x07c0…07e0 53 51 55 41 52 45 2e 59 39 66 17 00 10 53 51 55 41 52 45 2e 4d 59 5f 53 51 55 41 52 45 00 00 00 ┆SQUARE.Y9f SQUARE.MY_SQUARE ┆
0x07e0…0800 00 00 26 00 00 00 3d 00 0d 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 3e 36 17 00 12 54 45 58 54 5f ┆ & = SQUARE.MY_INT>6 TEXT_┆
0x0800…0820 49 4f 2e 49 4e 54 45 47 45 52 5f 49 4f 8e a9 17 00 03 4e 55 4d 17 00 0c 53 51 55 41 52 45 2e 54 ┆IO.INTEGER_IO NUM SQUARE.T┆
0x0820…0840 4f 4b 45 4e 00 00 00 20 00 00 00 1c 00 16 53 51 55 41 52 45 2e 43 4c 45 41 52 5f 4d 59 5f 53 51 ┆OKEN SQUARE.CLEAR_MY_SQ┆
0x0840…0860 55 41 52 45 3d 7b 94 00 00 00 00 0f 00 00 00 67 00 0d 53 51 55 41 52 45 2e 53 51 55 41 52 45 3b ┆UARE={ g SQUARE.SQUARE;┆
0x0860…0880 99 6c 63 61 08 00 00 00 00 00 00 00 00 01 16 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c ┆ lca SQUARE.SQUARE_L┆
0x0880…08a0 41 52 47 45 61 08 00 00 00 00 00 00 00 00 01 16 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f ┆ARGEa SQUARE.SQUARE_┆
0x08a0…08c0 4c 41 52 47 45 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 00 02 00 00 00 20 00 ┆LARGEf SQUARE.TOKEN ┆
0x08c0…08e0 13 53 51 55 41 52 45 2e 4c 4f 4e 47 45 55 52 5f 43 4f 54 45 3a 08 00 00 00 00 00 00 00 00 0a 00 ┆ SQUARE.LONGEUR_COTE: ┆
0x08e0…0900 00 00 1c 00 00 00 58 00 10 53 51 55 41 52 45 2e 4d 59 5f 53 51 55 41 52 45 3b 99 6c 63 66 17 00 ┆ X SQUARE.MY_SQUARE; lcf ┆
0x0900…0920 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 13 53 51 55 41 52 45 2e ┆ SQUARE.SQUARE_LARGE f SQUARE.┆
0x0920…0940 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 ┆SQUARE_LARGE f SQUARE.TOKEN ┆
0x0940…0960 00 00 1b 00 00 00 58 00 10 53 51 55 41 52 45 2e 4d 59 53 5f 51 55 41 52 45 3b 99 6c 63 66 17 00 ┆ X SQUARE.MYS_QUARE; lcf ┆
0x0960…0980 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 13 53 51 55 41 52 45 2e ┆ SQUARE.SQUARE_LARGE f SQUARE.┆
0x0980…09a0 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 ┆SQUARE_LARGE f SQUARE.TOKEN ┆
0x09a0…09c0 00 00 2d 00 00 00 6f 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 47 45 54 3d 7b 94 7e 90 23 ┆ - o SQUARE.MY_INT.GET={ ~ #┆
0x09c0…09e0 00 04 46 52 4f 4d 17 00 0f 53 54 41 4e 44 41 52 44 2e 53 54 52 49 4e 47 00 7d 90 25 00 04 49 54 ┆ FROM STANDARD.STRING } % IT┆
0x09e0…0a00 45 4d 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 00 7d 90 25 00 04 4c 41 53 54 ┆EM SQUARE.MY_INT.NUM } % LAST┆
0x0a00…0a20 17 00 11 53 54 41 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 00 00 00 00 00 01 00 00 00 0a 00 06 ┆ STANDARD.POSITIVE ┆
0x0a20…0a40 53 51 55 41 52 45 3e 7c 00 00 00 32 00 00 00 44 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f ┆SQUARE>| 2 D SQUARE.SQUARE_┆
0x0a40…0a60 4c 41 52 47 45 3c 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 ┆LARGE<f STANDARD.INTEGERa ┆
0x0a60…0a80 00 00 00 00 01 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 00 00 00 1d 00 00 00 25 00 0c 53 51 ┆ SQUARE.LARGE % SQ┆
0x0a80…0aa0 55 41 52 45 2e 4d 41 47 49 43 39 66 17 00 10 53 51 55 41 52 45 2e 4d 59 5f 53 51 55 41 52 45 00 ┆UARE.MAGIC9f SQUARE.MY_SQUARE ┆
0x0aa0…0ac0 00 00 00 00 34 00 00 00 32 00 06 53 51 55 41 52 45 41 8f 7e 90 23 00 05 4c 41 52 47 45 17 00 10 ┆ 4 2 SQUAREA ~ # LARGE ┆
0x0ac0…0ae0 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 08 00 00 00 00 00 00 00 00 05 7c 00 00 00 2e 00 ┆STANDARD.INTEGER | . ┆
0x0ae0…0b00 00 00 8b 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 50 55 54 3d 7b 94 7d 90 25 00 02 54 4f ┆ SQUARE.MY_INT.PUT={ } % TO┆
0x0b00…0b20 17 00 0f 53 54 41 4e 44 41 52 44 2e 53 54 52 49 4e 47 00 7e 90 23 00 04 49 54 45 4d 17 00 11 53 ┆ STANDARD.STRING ~ # ITEM S┆
0x0b20…0b40 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 00 7e 90 23 00 04 42 41 53 45 17 00 13 54 45 58 ┆QUARE.MY_INT.NUM ~ # BASE TEX┆
0x0b40…0b60 54 5f 49 4f 2e 4e 55 4d 42 45 52 5f 42 41 53 45 16 00 1a 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 ┆T_IO.NUMBER_BASE SQUARE.MY_INT┆
0x0b60…0b80 2e 44 45 46 41 55 4c 54 5f 42 41 53 45 00 00 00 00 05 00 00 00 19 00 13 53 51 55 41 52 45 2e 47 ┆.DEFAULT_BASE SQUARE.G┆
0x0b80…0ba0 4f 5f 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 00 00 00 00 07 00 00 00 2a 00 0e 53 51 55 41 52 45 2e ┆O_TO_CENTER={ * SQUARE.┆
0x0ba0…0bc0 44 45 50 4f 53 49 54 3d 7b 94 7e 90 23 00 01 54 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 ┆DEPOSIT={ ~ # T SQUARE.TOKEN ┆
0x0bc0…0be0 00 00 00 00 1a 00 00 00 57 00 0f 53 51 55 41 52 45 2e 4d 59 53 51 55 41 52 45 3b 99 6c 63 66 17 ┆ W SQUARE.MYSQUARE; lcf ┆
0x0be0…0c00 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 13 53 51 55 41 52 45 ┆ SQUARE.SQUARE_LARGE f SQUARE┆
0x0c00…0c20 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 ┆.SQUARE_LARGE f SQUARE.TOKEN ┆
0x0c20…0c40 00 00 00 2c 00 00 00 a9 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 50 55 54 3d 7b 94 7e 90 ┆ , SQUARE.MY_INT.PUT={ ~ ┆
0x0c40…0c60 23 00 04 49 54 45 4d 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 00 7e 90 23 00 ┆# ITEM SQUARE.MY_INT.NUM ~ # ┆
0x0c60…0c80 05 57 49 44 54 48 17 00 0d 54 45 58 54 5f 49 4f 2e 46 49 45 4c 44 16 00 1b 53 51 55 41 52 45 2e ┆ WIDTH TEXT_IO.FIELD SQUARE.┆
0x0c80…0ca0 4d 59 5f 49 4e 54 2e 44 45 46 41 55 4c 54 5f 57 49 44 54 48 7e 90 23 00 04 42 41 53 45 17 00 13 ┆MY_INT.DEFAULT_WIDTH~ # BASE ┆
0x0ca0…0cc0 54 45 58 54 5f 49 4f 2e 4e 55 4d 42 45 52 5f 42 41 53 45 16 00 1a 53 51 55 41 52 45 2e 4d 59 5f ┆TEXT_IO.NUMBER_BASE SQUARE.MY_┆
0x0cc0…0ce0 49 4e 54 2e 44 45 46 41 55 4c 54 5f 42 41 53 45 00 00 00 00 27 00 00 00 4d 00 1b 53 51 55 41 52 ┆INT.DEFAULT_BASE ' M SQUAR┆
0x0ce0…0d00 45 2e 4d 59 5f 49 4e 54 2e 44 45 46 41 55 4c 54 5f 57 49 44 54 48 39 66 17 00 0d 54 45 58 54 5f ┆E.MY_INT.DEFAULT_WIDTH9f TEXT_┆
0x0d00…0d20 49 4f 2e 46 49 45 4c 44 00 0e 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 17 00 ┆IO.FIELD SQUARE.MY_INT.NUM ┆
0x0d20…0d40 05 57 49 44 54 48 00 00 00 11 00 00 00 1b 00 15 53 51 55 41 52 45 2e 44 49 53 50 4c 41 59 5f 53 ┆ WIDTH SQUARE.DISPLAY_S┆
0x0d40…0d60 51 55 41 52 45 3d 7b 94 00 00 00 00 0a 00 00 00 21 00 08 53 51 55 41 52 45 2e 58 39 66 17 00 10 ┆QUARE={ ! SQUARE.X9f ┆
0x0d60…0d80 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0b 00 00 00 21 00 08 53 51 55 41 ┆STANDARD.INTEGER ! SQUA┆
0x0d80…0da0 52 45 2e 59 39 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 14 00 ┆RE.Y9f STANDARD.INTEGER ┆
0x0da0…0dc0 00 00 19 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 3a 08 00 00 00 00 00 00 00 00 05 00 00 00 09 ┆ SQUARE.LARGE: ┆
0x0dc0…0de0 00 00 00 42 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 01 ┆ B SQUARE.TOKEN; oa ┆
0x0de0…0e00 10 00 14 00 01 2a 93 17 00 0c 4c 4f 4e 47 45 55 52 5f 43 4f 54 45 17 00 0c 4c 4f 4e 47 45 55 52 ┆ * LONGEUR_COTE LONGEUR┆
0x0e00…0e20 5f 43 4f 54 45 00 00 00 00 30 00 00 00 19 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 3a 08 00 00 ┆_COTE 0 SQUARE.LARGE: ┆
0x0e20…0e40 00 00 00 00 00 00 0b 00 00 00 31 00 00 00 19 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 3a 08 00 ┆ 1 SQUARE.LARGE: ┆
0x0e40…0e60 00 00 00 00 00 00 00 0d 00 00 00 2a 00 00 00 59 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e ┆ * Y SQUARE.MY_INT.┆
0x0e60…0e80 47 45 54 3d 7b 94 7d 90 25 00 04 49 54 45 4d 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e ┆GET={ } % ITEM SQUARE.MY_INT.┆
0x0e80…0ea0 4e 55 4d 00 7e 90 23 00 05 57 49 44 54 48 17 00 0d 54 45 58 54 5f 49 4f 2e 46 49 45 4c 44 08 00 ┆NUM ~ # WIDTH TEXT_IO.FIELD ┆
0x0ea0…0ec0 00 00 00 00 00 00 00 00 00 00 00 00 0e 00 00 00 51 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3b ┆ Q SQUARE.TOKEN;┆
0x0ec0…0ee0 99 6f 61 08 00 00 00 00 00 00 00 00 01 09 10 00 15 00 01 2a 93 16 00 13 53 51 55 41 52 45 2e 53 ┆ oa * SQUARE.S┆
0x0ee0…0f00 51 55 41 52 45 5f 4c 41 52 47 45 16 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 ┆QUARE_LARGE SQUARE.SQUARE_LARG┆
0x0f00…0f20 45 00 00 00 00 23 00 00 00 25 00 10 53 51 55 41 52 45 2e 47 45 54 5f 54 4f 4b 45 4e 3d 7a 94 17 ┆E # % SQUARE.GET_TOKEN=z ┆
0x0f20…0f40 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 0c 00 00 00 43 00 0c 53 51 55 41 52 45 2e ┆ SQUARE.TOKEN C SQUARE.┆
0x0f40…0f60 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 01 09 10 00 14 00 01 2a 93 17 00 0c 4c 4f ┆TOKEN; oa * LO┆
0x0f60…0f80 4e 47 45 55 52 5f 43 4f 54 45 17 00 0c 4c 4f 4e 47 45 55 52 5f 43 4f 54 45 00 00 00 00 18 00 00 ┆NGEUR_COTE LONGEUR_COTE ┆
0x0f80…0fa0 00 24 00 08 53 51 55 41 52 45 2e 58 39 66 17 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c ┆ $ SQUARE.X9f SQUARE.SQUARE_L┆
0x0fa0…0fc0 41 52 47 45 00 00 00 00 00 19 00 00 00 24 00 08 53 51 55 41 52 45 2e 59 39 66 17 00 13 53 51 55 ┆ARGE $ SQUARE.Y9f SQU┆
0x0fc0…0fe0 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 00 00 00 00 21 00 00 00 43 00 0c 53 51 55 41 ┆ARE.SQUARE_LARGE ! C SQUA┆
0x0fe0…1000 52 45 2e 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 00 09 10 00 15 00 01 2a 93 16 00 ┆RE.TOKEN; oa * ┆
0x1000…1020 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 00 00 00 00 ┆ SQUARE.LARGE SQUARE.LARGE ┆
0x1020…1040 15 00 00 00 43 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 ┆ C SQUARE.TOKEN; oa ┆
0x1040…1060 01 09 10 00 15 00 01 2a 93 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 16 00 0c 53 51 55 41 52 ┆ * SQUARE.LARGE SQUAR┆
0x1060…1080 45 2e 4c 41 52 47 45 00 00 00 00 28 00 00 00 3f 00 1a 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e ┆E.LARGE ( ? SQUARE.MY_INT.┆
0x1080…10a0 44 45 46 41 55 4c 54 5f 42 41 53 45 39 66 17 00 13 54 45 58 54 5f 49 4f 2e 4e 55 4d 42 45 52 5f ┆DEFAULT_BASE9f TEXT_IO.NUMBER_┆
0x10a0…10c0 42 41 53 45 00 08 00 00 00 00 00 00 00 00 0a 00 00 00 06 00 00 00 50 00 0c 53 51 55 41 52 45 2e ┆BASE P SQUARE.┆
0x10c0…10e0 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 01 10 00 15 00 01 2a 93 16 00 13 53 51 55 ┆TOKEN; oa * SQU┆
0x10e0…1100 41 52 45 2e 4c 4f 4e 47 45 55 52 5f 43 4f 54 45 16 00 13 53 51 55 41 52 45 2e 4c 4f 4e 47 45 55 ┆ARE.LONGEUR_COTE SQUARE.LONGEU┆
0x1100…1120 52 5f 43 4f 54 45 00 00 00 00 04 00 00 00 2b 00 0b 53 51 55 41 52 45 2e 4d 4f 56 45 3d 7b 94 7e ┆R_COTE + SQUARE.MOVE={ ~┆
0x1120…1140 90 23 00 01 44 17 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 4f 4e 00 00 00 00 00 08 00 00 ┆ # D SQUARE.DIRECTION ┆
0x1140…1160 00 21 00 14 53 51 55 41 52 45 2e 4c 4f 4e 47 55 45 55 52 5f 43 4f 54 45 3a 08 00 00 00 00 00 00 ┆ ! SQUARE.LONGUEUR_COTE: ┆
0x1160…1180 00 00 0a 00 00 00 2b 00 00 00 c7 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 50 55 54 3d 7b ┆ + SQUARE.MY_INT.PUT={┆
0x1180…11a0 94 7e 90 23 00 04 46 49 4c 45 17 00 11 54 45 58 54 5f 49 4f 2e 46 49 4c 45 5f 54 59 50 45 00 7e ┆ ~ # FILE TEXT_IO.FILE_TYPE ~┆
0x11a0…11c0 90 23 00 04 49 54 45 4d 17 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 00 7e 90 23 ┆ # ITEM SQUARE.MY_INT.NUM ~ #┆
0x11c0…11e0 00 05 57 49 44 54 48 17 00 0d 54 45 58 54 5f 49 4f 2e 46 49 45 4c 44 16 00 1b 53 51 55 41 52 45 ┆ WIDTH TEXT_IO.FIELD SQUARE┆
0x11e0…1200 2e 4d 59 5f 49 4e 54 2e 44 45 46 41 55 4c 54 5f 57 49 44 54 48 7e 90 23 00 04 42 41 53 45 17 00 ┆.MY_INT.DEFAULT_WIDTH~ # BASE ┆
0x1200…1220 13 54 45 58 54 5f 49 4f 2e 4e 55 4d 42 45 52 5f 42 41 53 45 16 00 1a 53 51 55 41 52 45 2e 4d 59 ┆ TEXT_IO.NUMBER_BASE SQUARE.MY┆
0x1220…1240 5f 49 4e 54 2e 44 45 46 41 55 4c 54 5f 42 41 53 45 00 00 00 00 12 00 00 00 3c 00 08 53 51 55 41 ┆_INT.DEFAULT_BASE < SQUA┆
0x1240…1260 52 45 2e 58 3c 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 61 08 00 00 00 00 00 00 00 00 01 ┆RE.X<f SQUARE.TOKENa ┆
0x1260…1280 16 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 00 00 13 00 00 00 3c 00 08 ┆ SQUARE.SQUARE_LARGE < ┆
0x1280…12a0 53 51 55 41 52 45 2e 59 3c 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 61 08 00 00 00 00 00 ┆SQUARE.Y<f SQUARE.TOKENa ┆
0x12a0…12c0 00 00 00 01 16 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 00 00 00 03 00 00 ┆ SQUARE.SQUARE_LARGE ┆
0x12c0…12e0 00 34 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 4f 4e 3b 99 6e 31 00 05 4e 4f 52 54 48 31 ┆ 4 SQUARE.DIRECTION; n1 NORTH1┆
0x12e0…1300 00 05 53 4f 55 54 48 31 00 04 45 41 53 54 31 00 04 57 45 53 54 00 00 00 00 22 00 00 00 42 00 0c ┆ SOUTH1 EAST1 WEST " B ┆
0x1300…1320 53 51 55 41 52 45 2e 4d 41 47 49 43 39 66 17 00 10 53 51 55 41 52 45 2e 4d 59 5f 53 51 55 41 52 ┆SQUARE.MAGIC9f SQUARE.MY_SQUAR┆
0x1320…1340 45 00 01 a7 8a 0e 17 00 05 4d 41 47 49 43 17 00 05 52 41 4e 47 45 08 00 00 00 00 00 00 00 00 00 ┆E MAGIC RANGE ┆
0x1340…1360 00 00 00 25 00 00 00 54 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3c 66 17 00 10 53 54 41 4e 44 ┆ % T SQUARE.TOKEN<f STAND┆
0x1360…1380 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 00 00 00 00 00 09 10 00 15 00 01 2a 93 16 00 ┆ARD.INTEGERa * ┆
0x1380…13a0 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 00 00 00 2f ┆ SQUARE.LARGE SQUARE.LARGE /┆
0x13a0…13c0 00 00 00 25 00 11 53 51 55 41 52 45 2e 4d 59 5f 49 4e 54 2e 4e 55 4d 3c 66 17 00 0c 53 51 55 41 ┆ % SQUARE.MY_INT.NUM<f SQUA┆
0x13c0…13e0 52 45 2e 54 4f 4b 45 4e 00 00 00 00 36 00 00 00 54 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3c ┆RE.TOKEN 6 T SQUARE.TOKEN<┆
0x13e0…1400 66 17 00 10 53 54 41 4e 44 41 52 44 2e 4e 41 54 55 52 41 4c 61 08 00 00 00 00 00 00 00 00 00 09 ┆f STANDARD.NATURALa ┆
0x1400…1420 10 00 15 00 01 2a 93 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 16 00 0c 53 51 55 41 52 45 2e ┆ * SQUARE.LARGE SQUARE.┆
0x1420…1440 4c 41 52 47 45 00 00 00 33 00 00 00 33 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 ┆LARGE 3 3 SQUARE.SQUARE_LAR┆
0x1440…1460 47 45 3b 99 6f 61 08 00 00 00 00 00 00 00 00 01 16 00 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 00 ┆GE; oa SQUARE.LARGE ┆
0x1460…1480 00 00 00 35 00 00 00 45 00 13 53 51 55 41 52 45 2e 53 51 55 41 52 45 5f 4c 41 52 47 45 3c 66 17 ┆ 5 E SQUARE.SQUARE_LARGE<f ┆
0x1480…14a0 00 11 53 54 41 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 61 08 00 00 00 00 00 00 00 00 01 16 00 ┆ STANDARD.POSITIVEa ┆
0x14a0…14c0 0c 53 51 55 41 52 45 2e 4c 41 52 47 45 02 00 00 03 1d 00 07 53 51 55 41 52 45 42 02 00 00 00 01 ┆ SQUARE.LARGE SQUAREB ┆
0x14c0…14e0 00 04 00 00 00 0e 00 03 1d c5 80 63 80 0a 00 00 00 0d 00 00 00 22 00 09 53 51 55 41 52 45 42 2e ┆ c " SQUAREB.┆
0x14e0…1500 58 39 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0e 00 00 00 22 ┆X9f STANDARD.INTEGER "┆
0x1500…1520 00 09 53 51 55 41 52 45 42 2e 59 39 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 ┆ SQUAREB.Y9f STANDARD.INTEGER┆
0x1520…1540 00 00 00 00 00 0c 00 00 00 27 00 0d 53 51 55 41 52 45 42 2e 4d 41 47 49 43 39 66 17 00 11 53 51 ┆ ' SQUAREB.MAGIC9f SQ┆
0x1540…1560 55 41 52 45 42 2e 4d 59 5f 53 51 55 41 52 45 00 00 00 00 00 04 00 00 00 5c 00 11 53 51 55 41 52 ┆UAREB.MY_SQUARE \ SQUAR┆
0x1560…1580 45 42 2e 4d 59 5f 53 51 55 41 52 45 3b 99 6c 63 66 17 00 14 53 51 55 41 52 45 42 2e 53 51 55 41 ┆EB.MY_SQUARE; lcf SQUAREB.SQUA┆
0x1580…15a0 52 45 5f 4c 41 52 47 45 00 66 17 00 14 53 51 55 41 52 45 42 2e 53 51 55 41 52 45 5f 4c 41 52 47 ┆RE_LARGE f SQUAREB.SQUARE_LARG┆
0x15a0…15c0 45 00 66 17 00 0d 53 51 55 41 52 45 42 2e 54 4f 4b 45 4e 00 00 00 00 00 05 00 00 00 35 00 11 53 ┆E f SQUAREB.TOKEN 5 S┆
0x15c0…15e0 51 55 41 52 45 42 2e 44 49 52 45 43 54 49 4f 4e 3b 99 6e 31 00 05 4e 4f 52 54 48 31 00 05 53 4f ┆QUAREB.DIRECTION; n1 NORTH1 SO┆
0x15e0…1600 55 54 48 31 00 04 45 41 53 54 31 00 04 57 45 53 54 00 00 00 00 08 00 00 00 2c 00 0f 53 51 55 41 ┆UTH1 EAST1 WEST , SQUA┆
0x1600…1620 52 45 42 2e 44 45 50 4f 53 49 54 3d 7b 94 7e 90 23 00 01 54 17 00 0d 53 51 55 41 52 45 42 2e 54 ┆REB.DEPOSIT={ ~ # T SQUAREB.T┆
0x1620…1640 4f 4b 45 4e 00 00 00 00 00 02 00 00 00 57 00 0d 53 51 55 41 52 45 42 2e 54 4f 4b 45 4e 3c 66 17 ┆OKEN W SQUAREB.TOKEN<f ┆
0x1640…1660 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 00 00 00 00 00 09 10 00 ┆ STANDARD.INTEGERa ┆
0x1660…1680 15 00 01 2a 93 16 00 0d 53 51 55 41 52 45 42 2e 4c 41 52 47 45 16 00 0d 53 51 55 41 52 45 42 2e ┆ * SQUAREB.LARGE SQUAREB.┆
0x1680…16a0 4c 41 52 47 45 00 00 00 0a 00 00 00 1a 00 14 53 51 55 41 52 45 42 2e 57 52 41 50 5f 49 46 5f 45 ┆LARGE SQUAREB.WRAP_IF_E┆
0x16a0…16c0 44 47 45 3d 7b 94 00 00 00 00 03 00 00 00 43 00 14 53 51 55 41 52 45 42 2e 53 51 55 41 52 45 5f ┆DGE={ C SQUAREB.SQUARE_┆
0x16c0…16e0 4c 41 52 47 45 3c 66 17 00 0d 53 51 55 41 52 45 42 2e 54 4f 4b 45 4e 61 08 00 00 00 00 00 00 00 ┆LARGE<f SQUAREB.TOKENa ┆
0x16e0…1700 00 01 16 00 0d 53 51 55 41 52 45 42 2e 4c 41 52 47 45 00 00 00 0b 00 00 00 1d 00 17 53 51 55 41 ┆ SQUAREB.LARGE SQUA┆
0x1700…1720 52 45 42 2e 43 4c 45 41 52 5f 4d 59 5f 53 51 55 41 52 45 3d 7b 94 00 00 00 00 01 00 00 00 2a 00 ┆REB.CLEAR_MY_SQUARE={ * ┆
0x1720…1740 07 53 51 55 41 52 45 42 41 8f 7e 90 23 00 05 4c 41 52 47 45 17 00 10 53 54 41 4e 44 41 52 44 2e ┆ SQUAREBA ~ # LARGE STANDARD.┆
0x1740…1760 49 4e 54 45 47 45 52 00 7c 00 00 00 09 00 00 00 27 00 11 53 51 55 41 52 45 42 2e 47 45 54 5f 54 ┆INTEGER | ' SQUAREB.GET_T┆
0x1760…1780 4f 4b 45 4e 3d 7a 94 17 00 0d 53 51 55 41 52 45 42 2e 54 4f 4b 45 4e 00 00 00 00 06 00 00 00 2d ┆OKEN=z SQUAREB.TOKEN -┆
0x1780…17a0 00 0c 53 51 55 41 52 45 42 2e 4d 4f 56 45 3d 7b 94 7e 90 23 00 01 44 17 00 11 53 51 55 41 52 45 ┆ SQUAREB.MOVE={ ~ # D SQUARE┆
0x17a0…17c0 42 2e 44 49 52 45 43 54 49 4f 4e 00 00 00 00 00 07 00 00 00 1a 00 14 53 51 55 41 52 45 42 2e 47 ┆B.DIRECTION SQUAREB.G┆
0x17c0…17d0 4f 5f 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 00 04 ┆O_TO_CENTER={ ┆