|
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: 3665 (0xe51)
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⟧
0x000…020 00 00 00 02 01 00 00 00 29 02 00 00 00 02 00 02 00 03 1d c5 80 64 00 04 00 02 00 0c 4d 41 47 49 ┆ ) d MAGI┆
0x020…040 43 5f 53 51 55 41 52 45 00 01 00 06 53 51 55 41 52 45 00 00 00 00 76 50 52 49 4d 41 52 59 20 3d ┆C_SQUARE SQUARE vPRIMARY =┆
0x040…060 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 39 ┆> TRUE, SUBSYSTEM => 8771590299┆
0x060…080 33 32 30 33 36 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 4c 41 ┆32036, PRIMARY_NAME => !USERS.LA┆
0x080…0a0 55 4e 41 59 2e 4d 41 47 49 43 5f 53 51 55 41 52 45 2c 20 50 52 49 4d 41 52 59 5f 4d 41 43 48 49 ┆UNAY.MAGIC_SQUARE, PRIMARY_MACHI┆
0x0a0…0c0 4e 45 20 3d 3e 20 61 6e 63 6f 6c 69 65 02 00 00 00 3b 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 45 ┆NE => ancolie ; MAGIC_SQUARE┆
0x0c0…0e0 02 00 00 00 01 00 02 00 00 00 01 00 03 1d c5 80 64 00 04 00 00 00 01 00 00 00 12 00 0c 4d 41 47 ┆ d MAG┆
0x0e0…100 49 43 5f 53 51 55 41 52 45 3d 7b 94 00 02 00 00 0d 5e 00 06 53 51 55 41 52 45 02 00 00 00 12 00 ┆IC_SQUARE={ ^ SQUARE ┆
0x100…120 01 00 00 00 22 00 03 1d c5 80 64 00 04 00 00 00 14 00 00 00 7c 00 0d 53 51 55 41 52 45 2e 4d 41 ┆ " d | SQUARE.MA┆
0x120…140 54 52 49 58 3b 99 6c 63 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 ┆TRIX; lcf STANDARD.INTEGERa ┆
0x140…160 00 00 00 00 00 00 01 16 00 0a 53 51 55 41 52 45 2e 4d 41 58 66 17 00 10 53 54 41 4e 44 41 52 44 ┆ SQUARE.MAXf STANDARD┆
0x160…180 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 00 00 00 00 01 16 00 0a 53 51 55 41 52 45 2e 4d 41 58 ┆.INTEGERa SQUARE.MAX┆
0x180…1a0 66 17 00 0b 53 51 55 41 52 45 2e 45 54 41 54 00 00 00 00 00 21 00 00 00 76 00 0b 53 51 55 41 52 ┆f SQUARE.ETAT ! v SQUAR┆
0x1a0…1c0 45 2e 4d 4f 56 45 3d 7b 94 7e 90 23 00 01 44 17 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 ┆E.MOVE={ ~ # D SQUARE.DIRECTI┆
0x1c0…1e0 4f 4e 00 7f 90 24 00 01 58 17 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 00 7f 90 24 00 01 59 17 ┆ON $ X SQUARE.ORDRE $ Y ┆
0x1e0…200 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 ┆ SQUARE.ORDRE ~ # NOMBRE STA┆
0x200…220 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 16 00 00 00 73 00 0b 53 51 55 41 52 45 2e ┆NDARD.INTEGER s SQUARE.┆
0x220…240 4d 4f 56 45 3d 7b 94 7e 90 23 00 01 44 17 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 4f 4e ┆MOVE={ ~ # D SQUARE.DIRECTION┆
0x240…260 00 7e 90 23 00 0b 43 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f ┆ ~ # COORDONNEES SQUARE.CASE_┆
0x260…280 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 ┆COURRANTE ~ # NOMBRE STANDARD┆
0x280…2a0 2e 49 4e 54 45 47 45 52 00 00 00 00 00 15 00 00 00 91 00 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 ┆.INTEGER SQUARE.DEPOS┆
0x2a0…2c0 49 54 3d 7b 94 7e 90 23 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 ┆IT={ ~ # CARRE SQUARE.MATRIX ┆
0x2c0…2e0 7e 90 23 00 0b 43 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 ┆~ # COORDONNEES SQUARE.CASE_C┆
0x2e0…300 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 01 49 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 ┆OURRANTE ~ # I STANDARD.INTEG┆
0x300…320 45 52 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 ┆ER ~ # NOMBRE STANDARD.INTEGE┆
0x320…340 52 00 00 00 00 00 19 00 00 00 73 00 0b 53 51 55 41 52 45 2e 4d 4f 56 45 3d 7b 94 7e 90 23 00 01 ┆R s SQUARE.MOVE={ ~ # ┆
0x340…360 44 17 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 4f 4e 00 7f 90 24 00 0b 43 4f 4f 52 44 4f ┆D SQUARE.DIRECTION $ COORDO┆
0x360…380 4e 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 ┆NNEES SQUARE.CASE_COURRANTE ~ ┆
0x380…3a0 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 ┆# NOMBRE STANDARD.INTEGER ┆
0x3a0…3c0 00 18 00 00 00 91 00 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 3d 7b 94 7f 90 24 00 05 43 41 ┆ SQUARE.DEPOSIT={ $ CA┆
0x3c0…3e0 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 0b 43 4f 4f 52 44 4f 4e ┆RRE SQUARE.MATRIX ~ # COORDON┆
0x3e0…400 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 ┆NEES SQUARE.CASE_COURRANTE ~ #┆
0x400…420 00 01 49 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 7e 90 23 00 06 4e 4f 4d 42 ┆ I STANDARD.INTEGER ~ # NOMB┆
0x420…440 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 1a 00 00 00 91 00 ┆RE STANDARD.INTEGER ┆
0x440…460 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 3d 7b 94 7f 90 24 00 05 43 41 52 52 45 17 00 0d 53 ┆ SQUARE.DEPOSIT={ $ CARRE S┆
0x460…480 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7f 90 24 00 0b 43 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 ┆QUARE.MATRIX $ COORDONNEES ┆
0x480…4a0 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 01 49 17 00 10 53 ┆SQUARE.CASE_COURRANTE ~ # I S┆
0x4a0…4c0 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 ┆TANDARD.INTEGER ~ # NOMBRE ST┆
0x4c0…4e0 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 01 00 00 00 0a 00 06 53 51 55 41 52 45 ┆ANDARD.INTEGER SQUARE┆
0x4e0…500 3e 7c 00 00 00 07 00 00 00 2f 00 0e 53 51 55 41 52 45 2e 44 49 53 50 4c 41 59 3d 7b 94 7e 90 23 ┆>| / SQUARE.DISPLAY={ ~ #┆
0x500…520 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 00 00 00 00 13 00 00 00 ┆ CARRE SQUARE.MATRIX ┆
0x520…540 22 00 0b 53 51 55 41 52 45 2e 45 54 41 54 3b 99 6e 31 00 05 4c 49 42 52 45 31 00 06 4f 43 43 55 ┆" SQUARE.ETAT; n1 LIBRE1 OCCU┆
0x540…560 50 45 00 00 00 00 0c 00 00 00 9b 00 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 3d 7b 94 7e 90 ┆PE SQUARE.DEPOSIT={ ~ ┆
0x560…580 23 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 15 43 4f ┆# CARRE SQUARE.MATRIX ~ # CO┆
0x580…5a0 4f 52 44 4f 4e 4e 45 45 53 5f 43 4f 55 52 41 4e 54 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 ┆ORDONNEES_COURANTES SQUARE.CAS┆
0x5a0…5c0 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 01 49 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e ┆E_COURRANTE ~ # I STANDARD.IN┆
0x5c0…5e0 54 45 47 45 52 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 ┆TEGER ~ # NOMBRE STANDARD.INT┆
0x5e0…600 45 47 45 52 00 00 00 00 00 05 00 00 00 4c 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 ┆EGER L SQUARE.CASE_COUR┆
0x600…620 52 41 4e 54 45 3b 99 72 39 90 1c 00 01 58 66 17 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 00 00 ┆RANTE; r9 Xf SQUARE.ORDRE ┆
0x620…640 39 90 1c 00 01 59 66 17 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 00 00 00 00 00 00 00 20 00 00 ┆9 Yf SQUARE.ORDRE ┆
0x640…660 00 52 00 12 53 51 55 41 52 45 2e 49 4e 49 54 5f 53 51 55 41 52 45 3d 7b 94 7f 90 24 00 05 43 41 ┆ R SQUARE.INIT_SQUARE={ $ CA┆
0x660…680 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 ┆RRE SQUARE.MATRIX ~ # NOMBRE ┆
0x680…6a0 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 10 00 00 00 2c 00 0a 53 51 ┆ STANDARD.INTEGER , SQ┆
0x6a0…6c0 55 41 52 45 2e 4d 41 58 38 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 08 00 ┆UARE.MAX8f STANDARD.INTEGER ┆
0x6c0…6e0 00 00 00 00 00 00 00 63 00 00 00 22 00 00 00 89 00 0b 53 51 55 41 52 45 2e 4d 4f 56 45 3d 7b 94 ┆ c " SQUARE.MOVE={ ┆
0x6e0…700 7e 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 7f 90 24 00 0b 43 ┆~ # D SQUARE.DIRECTION $ C┆
0x700…720 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e ┆OORDONNEES SQUARE.CASE_COURRAN┆
0x720…740 54 45 00 7f 90 24 00 01 59 17 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 00 7e 90 23 00 06 4e 4f ┆TE $ Y SQUARE.ORDRE ~ # NO┆
0x740…760 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0f 00 00 00 ┆MBRE STANDARD.INTEGER ┆
0x760…780 51 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 3b 99 6c 63 88 17 00 10 53 54 41 4e 44 41 52 44 ┆Q SQUARE.MATRIX; lc STANDARD┆
0x780…7a0 2e 49 4e 54 45 47 45 52 88 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 66 17 00 10 ┆.INTEGER STANDARD.INTEGERf ┆
0x7a0…7c0 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 09 00 00 00 6c 00 13 53 51 55 41 ┆STANDARD.INTEGER l SQUA┆
0x7c0…7e0 52 45 2e 47 4f 5f 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 7e 90 23 00 16 43 4f 4f 52 44 4f 4e 4e 45 ┆RE.GO_TO_CENTER={ ~ # COORDONNE┆
0x7e0…800 45 53 5f 43 4f 55 52 52 41 4e 54 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f 55 52 ┆ES_COURRANTES SQUARE.CASE_COUR┆
0x800…820 52 41 4e 54 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 ┆RANTE ~ # NOMBRE STANDARD.INT┆
0x820…840 45 47 45 52 00 00 00 00 00 11 00 00 00 38 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 3c 66 17 00 ┆EGER 8 SQUARE.ORDRE<f ┆
0x840…860 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 01 08 00 00 00 ┆ STANDARD.INTEGERa ┆
0x860…880 00 00 00 00 00 63 00 00 00 04 00 00 00 51 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 3b 99 6c ┆ c Q SQUARE.MATRIX; l┆
0x880…8a0 63 88 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 88 17 00 10 53 54 41 4e 44 41 52 ┆c STANDARD.INTEGER STANDAR┆
0x8a0…8c0 44 2e 49 4e 54 45 47 45 52 66 17 00 10 53 54 41 4e 44 41 52 44 2e 4e 41 54 55 52 41 4c 00 00 00 ┆D.INTEGERf STANDARD.NATURAL ┆
0x8c0…8e0 00 00 17 00 00 00 61 00 13 53 51 55 41 52 45 2e 47 4f 5f 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 7e ┆ a SQUARE.GO_TO_CENTER={ ~┆
0x8e0…900 90 23 00 0b 43 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 45 5f 43 4f ┆ # COORDONNEES SQUARE.CASE_CO┆
0x900…920 55 52 52 41 4e 54 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 ┆URRANTE ~ # NOMBRE STANDARD.I┆
0x920…940 4e 54 45 47 45 52 00 00 00 00 00 1b 00 00 00 61 00 13 53 51 55 41 52 45 2e 47 4f 5f 54 4f 5f 43 ┆NTEGER a SQUARE.GO_TO_C┆
0x940…960 45 4e 54 45 52 3d 7b 94 7f 90 24 00 0b 43 4f 4f 52 44 4f 4e 4e 45 45 53 17 00 15 53 51 55 41 52 ┆ENTER={ $ COORDONNEES SQUAR┆
0x960…980 45 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 ┆E.CASE_COURRANTE ~ # NOMBRE S┆
0x980…9a0 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 02 00 00 00 38 00 0c 53 51 55 41 52 ┆TANDARD.INTEGER 8 SQUAR┆
0x9a0…9c0 45 2e 4f 52 44 52 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 ┆E.ORDRE<f STANDARD.INTEGERa ┆
0x9c0…9e0 00 00 00 00 00 00 01 08 00 00 00 00 00 00 00 03 e7 00 00 00 0a 00 00 00 46 00 0e 53 51 55 41 52 ┆ F SQUAR┆
0x9e0…a00 45 2e 49 4d 50 41 49 52 45 3d 7a 94 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 ┆E.IMPAIRE=z ~ # NOMBRE STANDA┆
0xa00…a20 52 44 2e 49 4e 54 45 47 45 52 00 17 00 10 53 54 41 4e 44 41 52 44 2e 42 4f 4f 4c 45 41 4e 00 00 ┆RD.INTEGER STANDARD.BOOLEAN ┆
0xa20…a40 00 00 0b 00 00 00 32 00 0d 53 51 55 41 52 45 2e 53 41 49 53 49 45 3d 7b 94 7d 90 25 00 06 4e 4f ┆ 2 SQUARE.SAISIE={ } % NO┆
0xa40…a60 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 1d 00 00 00 ┆MBRE STANDARD.INTEGER ┆
0xa60…a80 32 00 0d 53 51 55 41 52 45 2e 53 41 49 53 49 45 3d 7b 94 7f 90 24 00 06 4e 4f 4d 42 52 45 17 00 ┆2 SQUARE.SAISIE={ $ NOMBRE ┆
0xa80…aa0 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0d 00 00 00 4e 00 0e 53 51 55 ┆ STANDARD.INTEGER N SQU┆
0xaa0…ac0 41 52 45 2e 44 49 53 50 4c 41 59 3d 7b 94 7e 90 23 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 ┆ARE.DISPLAY={ ~ # CARRE SQUAR┆
0xac0…ae0 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e ┆E.MATRIX ~ # NOMBRE STANDARD.┆
0xae0…b00 49 4e 54 45 47 45 52 00 00 00 00 00 1f 00 00 00 3b 00 0c 53 51 55 41 52 45 2e 4f 52 44 52 45 3c ┆INTEGER ; SQUARE.ORDRE<┆
0xb00…b20 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 00 00 00 00 00 16 ┆f STANDARD.INTEGERa ┆
0xb20…b40 00 0a 53 51 55 41 52 45 2e 4d 41 58 00 00 00 1e 00 00 00 3b 00 0c 53 51 55 41 52 45 2e 4f 52 44 ┆ SQUARE.MAX ; SQUARE.ORD┆
0xb40…b60 52 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 00 00 00 ┆RE<f STANDARD.INTEGERa ┆
0xb60…b80 00 01 16 00 0a 53 51 55 41 52 45 2e 4d 41 58 00 00 00 1c 00 00 00 46 00 0e 53 51 55 41 52 45 2e ┆ SQUARE.MAX F SQUARE.┆
0xb80…ba0 49 4d 50 41 49 52 45 3d 7a 94 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 ┆IMPAIRE=z ~ # NOMBRE STANDARD┆
0xba0…bc0 2e 49 4e 54 45 47 45 52 00 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 ┆.INTEGER STANDARD.INTEGER ┆
0xbc0…be0 12 00 00 00 81 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 3b 99 6c 63 66 17 00 10 53 54 41 4e ┆ SQUARE.MATRIX; lcf STAN┆
0xbe0…c00 44 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 00 00 00 00 01 16 00 0a 53 51 55 41 52 45 ┆DARD.INTEGERa SQUARE┆
0xc00…c20 2e 4d 41 58 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 00 00 ┆.MAXf STANDARD.INTEGERa ┆
0xc20…c40 00 00 01 16 00 0a 53 51 55 41 52 45 2e 4d 41 58 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 ┆ SQUARE.MAXf STANDARD.INT┆
0xc40…c60 45 47 45 52 00 00 00 00 00 03 00 00 00 34 00 10 53 51 55 41 52 45 2e 44 49 52 45 43 54 49 4f 4e ┆EGER 4 SQUARE.DIRECTION┆
0xc60…c80 3b 99 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 ┆; n1 NORTH1 SOUTH1 EAST1 WES┆
0xc80…ca0 54 00 00 00 00 06 00 00 00 9c 00 0f 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 45 3d 7b 94 7e 90 ┆T SQUARE.DEPOSITE={ ~ ┆
0xca0…cc0 23 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 15 43 4f ┆# CARRE SQUARE.MATRIX ~ # CO┆
0xcc0…ce0 4f 52 44 4f 4e 4e 45 45 53 5f 43 4f 55 52 41 4e 54 45 53 17 00 15 53 51 55 41 52 45 2e 43 41 53 ┆ORDONNEES_COURANTES SQUARE.CAS┆
0xce0…d00 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 01 49 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e ┆E_COURRANTE ~ # I STANDARD.IN┆
0xd00…d20 54 45 47 45 52 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 ┆TEGER ~ # NOMBRE STANDARD.INT┆
0xd20…d40 45 47 45 52 00 00 00 00 00 0e 00 00 00 9c 00 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 3d 7b ┆EGER SQUARE.DEPOSIT={┆
0xd40…d60 94 7e 90 23 00 05 43 41 52 52 45 17 00 0d 53 51 55 41 52 45 2e 4d 41 54 52 49 58 00 7e 90 23 00 ┆ ~ # CARRE SQUARE.MATRIX ~ # ┆
0xd60…d80 16 43 4f 4f 52 44 4f 4e 4e 45 45 53 5f 43 4f 55 52 52 41 4e 54 45 53 17 00 15 53 51 55 41 52 45 ┆ COORDONNEES_COURRANTES SQUARE┆
0xd80…da0 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 01 49 17 00 10 53 54 41 4e 44 41 52 ┆.CASE_COURRANTE ~ # I STANDAR┆
0xda0…dc0 44 2e 49 4e 54 45 47 45 52 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 41 4e 44 41 52 44 ┆D.INTEGER ~ # NOMBRE STANDARD┆
0xdc0…de0 2e 49 4e 54 45 47 45 52 00 00 00 00 00 08 00 00 00 7e 00 0b 53 51 55 41 52 45 2e 4d 4f 56 45 3d ┆.INTEGER ~ SQUARE.MOVE=┆
0xde0…e00 7b 94 7e 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 7e 90 23 00 ┆{ ~ # D SQUARE.DIRECTION ~ # ┆
0xe00…e20 16 43 4f 4f 52 44 4f 4e 4e 45 45 53 5f 43 4f 55 52 52 41 4e 54 45 53 17 00 15 53 51 55 41 52 45 ┆ COORDONNEES_COURRANTES SQUARE┆
0xe20…e40 2e 43 41 53 45 5f 43 4f 55 52 52 41 4e 54 45 00 7e 90 23 00 06 4e 4f 4d 42 52 45 17 00 10 53 54 ┆.CASE_COURRANTE ~ # NOMBRE ST┆
0xe40…e51 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 04 ┆ANDARD.INTEGER ┆