|
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: 2711 (0xa97)
Names: »5«
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
0x000…020 00 00 00 02 01 00 00 00 31 02 00 00 00 03 00 03 00 03 1d c5 80 63 80 09 00 02 00 0c 4d 41 47 49 ┆ 1 c MAGI┆
0x020…040 43 5f 53 51 55 41 52 45 00 01 00 06 53 51 55 41 52 45 00 03 00 04 4d 41 49 4e 00 00 00 00 6e 50 ┆C_SQUARE SQUARE MAIN nP┆
0x040…060 52 49 4d 41 52 59 20 3d 3e 20 54 52 55 45 2c 20 53 55 42 53 59 53 54 45 4d 20 3d 3e 20 20 38 37 ┆RIMARY => TRUE, SUBSYSTEM => 87┆
0x060…080 37 31 35 39 30 32 39 38 39 39 32 37 33 2c 20 50 52 49 4d 41 52 59 5f 4e 41 4d 45 20 3d 3e 20 21 ┆7159029899273, PRIMARY_NAME => !┆
0x080…0a0 55 53 45 52 53 2e 48 55 52 53 54 2e 45 53 53 41 49 2c 20 50 52 49 4d 41 52 59 5f 4d 41 43 48 49 ┆USERS.HURST.ESSAI, PRIMARY_MACHI┆
0x0a0…0c0 4e 45 20 3d 3e 20 61 6e 63 6f 6c 69 65 02 00 00 00 73 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 45 ┆NE => ancolie s MAGIC_SQUARE┆
0x0c0…0e0 02 00 00 00 02 00 02 00 00 00 02 00 03 1d c5 80 63 80 09 00 00 00 02 00 00 00 30 00 0c 4d 41 47 ┆ c 0 MAG┆
0x0e0…100 49 43 5f 53 51 55 41 52 45 3d 7b 94 7e 90 23 00 04 53 49 5a 45 17 00 11 53 54 41 4e 44 41 52 44 ┆IC_SQUARE={ ~ # SIZE STANDARD┆
0x100…120 2e 50 4f 53 49 54 49 56 45 00 00 00 00 00 01 00 00 00 12 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 ┆.POSITIVE MAGIC_SQUAR┆
0x120…140 45 3d 7b 94 00 02 00 00 00 2b 00 04 4d 41 49 4e 02 00 00 00 01 00 03 00 00 00 01 00 03 1d c5 80 ┆E={ + MAIN ┆
0x140…160 63 80 09 00 00 00 01 00 00 00 0a 00 04 4d 41 49 4e 3d 7b 94 00 02 00 00 09 3c 00 06 53 51 55 41 ┆c MAIN={ < SQUA┆
0x160…180 52 45 02 00 00 00 17 00 01 00 00 00 27 00 03 1d c5 80 63 80 09 00 00 00 1b 00 00 00 51 00 0a 53 ┆RE ' c Q S┆
0x180…1a0 51 55 41 52 45 2e 44 49 4d 3c 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 61 08 ┆QUARE.DIM<f STANDARD.INTEGERa ┆
0x1a0…1c0 00 00 00 00 00 00 00 00 00 09 10 00 14 00 01 2b 93 17 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e ┆ + SQUARE.DIMEN┆
0x1c0…1e0 53 49 4f 4e 08 00 00 00 00 00 00 00 00 01 00 00 00 19 00 00 00 61 00 0d 53 51 55 41 52 45 2e 53 ┆SION a SQUARE.S┆
0x1e0…200 51 55 41 52 45 39 6c 63 61 08 00 00 00 00 00 00 00 00 01 17 00 10 53 51 55 41 52 45 2e 44 49 4d ┆QUARE9lca SQUARE.DIM┆
0x200…220 45 4e 53 49 4f 4e 61 08 00 00 00 00 00 00 00 00 01 17 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e ┆ENSIONa SQUARE.DIMEN┆
0x220…240 53 49 4f 4e 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 00 00 15 00 00 00 1d 00 ┆SIONf SQUARE.TOKEN ┆
0x240…260 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 3a 08 00 00 00 00 00 00 00 00 03 00 00 00 06 ┆ SQUARE.DIMENSION: ┆
0x260…280 00 00 00 1d 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 3a 08 00 00 00 00 00 00 00 00 ┆ SQUARE.DIMENSION: ┆
0x280…2a0 05 00 00 00 0f 00 00 00 6a 00 0d 53 51 55 41 52 45 2e 53 51 55 41 52 45 39 6c 63 61 08 00 00 00 ┆ j SQUARE.SQUARE9lca ┆
0x2a0…2c0 00 00 00 00 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 61 08 00 00 00 00 00 ┆ SQUARE.DIMENSIONa ┆
0x2c0…2e0 00 00 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 66 17 00 0c 53 51 55 41 52 ┆ SQUARE.DIMENSIONf SQUAR┆
0x2e0…300 45 2e 54 4f 4b 45 4e 00 00 08 00 00 00 00 00 00 00 00 00 00 00 00 25 00 00 00 2a 00 0a 53 51 55 ┆E.TOKEN % * SQU┆
0x300…320 41 52 45 2e 53 45 54 3d 7b 94 7e 90 23 00 01 4f 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 ┆ARE.SET={ ~ # O STANDARD.INTE┆
0x320…340 47 45 52 00 00 00 00 00 22 00 00 00 52 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3c 66 17 00 10 ┆GER " R SQUARE.TOKEN<f ┆
0x340…360 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 15 00 ┆STANDARD.INTEGERa ┆
0x360…380 01 2a 93 16 00 0b 53 51 55 41 52 45 2e 53 49 5a 45 16 00 0b 53 51 55 41 52 45 2e 53 49 5a 45 00 ┆ * SQUARE.SIZE SQUARE.SIZE ┆
0x380…3a0 00 00 02 00 00 00 0a 00 06 53 51 55 41 52 45 3e 7c 00 00 00 21 00 00 00 57 00 0d 53 51 55 41 52 ┆ SQUARE>| ! W SQUAR┆
0x3a0…3c0 45 2e 53 51 55 41 52 45 39 6c 63 61 08 00 00 00 00 00 00 00 00 01 16 00 0b 53 51 55 41 52 45 2e ┆E.SQUARE9lca SQUARE.┆
0x3c0…3e0 53 49 5a 45 61 08 00 00 00 00 00 00 00 00 01 16 00 0b 53 51 55 41 52 45 2e 53 49 5a 45 66 17 00 ┆SIZEa SQUARE.SIZEf ┆
0x3e0…400 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 00 00 1d 00 00 00 36 00 0a 53 51 55 41 52 45 ┆ SQUARE.TOKEN 6 SQUARE┆
0x400…420 2e 44 49 4d 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 ┆.DIM<f STANDARD.INTEGERa ┆
0x420…440 00 00 00 00 08 00 00 00 00 00 00 00 00 64 00 00 00 05 00 00 00 19 00 13 53 51 55 41 52 45 2e 47 ┆ d SQUARE.G┆
0x440…460 4f 5f 54 4f 5f 43 45 4e 54 45 52 3d 7b 94 00 00 00 00 01 00 00 00 0c 00 06 53 51 55 41 52 45 3d ┆O_TO_CENTER={ SQUARE=┆
0x460…480 7b 94 00 00 00 00 08 00 00 00 2a 00 0e 53 51 55 41 52 45 2e 44 45 50 4f 53 49 54 3d 7b 94 7e 90 ┆{ * SQUARE.DEPOSIT={ ~ ┆
0x480…4a0 23 00 01 54 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 00 00 07 00 00 00 27 00 0c 53 ┆# T SQUARE.TOKEN ' S┆
0x4a0…4c0 51 55 41 52 45 2e 54 4f 4b 45 4e 3b 99 6f 61 08 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 ┆QUARE.TOKEN; oa ┆
0x4c0…4e0 00 00 64 00 00 00 00 1f 00 00 00 2e 00 06 53 51 55 41 52 45 41 8f 7e 90 23 00 09 44 49 4d 45 4e ┆ d . SQUAREA ~ # DIMEN┆
0x4e0…500 53 49 4f 4e 17 00 11 53 54 41 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 00 7c 00 00 00 0d 00 00 ┆SION STANDARD.POSITIVE | ┆
0x500…520 00 2c 00 0c 53 51 55 41 52 45 2e 53 45 54 5f 58 3d 7b 94 7e 90 23 00 01 41 17 00 10 53 54 41 4e ┆ , SQUARE.SET_X={ ~ # A STAN┆
0x520…540 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 17 00 00 00 71 00 0d 53 51 55 41 52 45 2e 53 ┆DARD.INTEGER q SQUARE.S┆
0x540…560 51 55 41 52 45 39 6c 63 61 08 00 00 00 00 00 00 00 00 01 0e 17 00 10 53 51 55 41 52 45 2e 44 49 ┆QUARE9lca SQUARE.DI┆
0x560…580 4d 45 4e 53 49 4f 4e 17 00 04 4c 41 53 54 61 08 00 00 00 00 00 00 00 00 01 0e 17 00 10 53 51 55 ┆MENSION LASTa SQU┆
0x580…5a0 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 17 00 04 4c 41 53 54 66 17 00 0c 53 51 55 41 52 45 2e 54 ┆ARE.DIMENSION LASTf SQUARE.T┆
0x5a0…5c0 4f 4b 45 4e 00 00 00 00 00 00 0b 00 00 00 21 00 08 53 51 55 41 52 45 2e 58 39 66 17 00 10 53 54 ┆OKEN ! SQUARE.X9f ST┆
0x5c0…5e0 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 00 20 00 00 00 29 00 06 53 51 55 41 52 45 ┆ANDARD.INTEGER ) SQUARE┆
0x5e0…600 41 8f 7e 90 23 00 04 53 49 5a 45 17 00 11 53 54 41 4e 44 41 52 44 2e 50 4f 53 49 54 49 56 45 00 ┆A ~ # SIZE STANDARD.POSITIVE ┆
0x600…620 7c 00 00 00 0c 00 00 00 21 00 08 53 51 55 41 52 45 2e 59 39 66 17 00 10 53 54 41 4e 44 41 52 44 ┆| ! SQUARE.Y9f STANDARD┆
0x620…640 2e 49 4e 54 45 47 45 52 00 00 00 00 00 0e 00 00 00 2c 00 0c 53 51 55 41 52 45 2e 53 45 54 5f 59 ┆.INTEGER , SQUARE.SET_Y┆
0x640…660 3d 7b 94 7e 90 23 00 01 4f 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 00 ┆={ ~ # O STANDARD.INTEGER ┆
0x660…680 00 1e 00 00 00 1a 00 06 53 51 55 41 52 45 41 8f 3b 2f 00 09 44 49 4d 45 4e 53 49 4f 4e 99 67 7c ┆ SQUAREA ;/ DIMENSION g|┆
0x680…6a0 00 00 00 14 00 00 00 38 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3c 66 17 00 10 53 54 41 4e 44 ┆ 8 SQUARE.TOKEN<f STAND┆
0x6a0…6c0 41 52 44 2e 49 4e 54 45 47 45 52 61 08 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 64 ┆ARD.INTEGERa d┆
0x6c0…6e0 00 00 00 18 00 00 00 1a 00 06 53 51 55 41 52 45 41 8f 3b 2f 00 09 44 49 4d 45 4e 53 49 4f 4e 99 ┆ SQUAREA ;/ DIMENSION ┆
0x6e0…700 69 7c 00 00 00 16 00 00 00 1a 00 06 53 51 55 41 52 45 41 8f 3b 2f 00 09 44 49 4d 45 4e 53 49 4f ┆i| SQUAREA ;/ DIMENSIO┆
0x700…720 4e 99 6a 7c 00 00 00 12 00 00 00 2c 00 0c 53 51 55 41 52 45 2e 53 45 54 5f 58 3d 7b 94 7e 90 23 ┆N j| , SQUARE.SET_X={ ~ #┆
0x720…740 00 01 41 17 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 00 00 00 00 00 23 00 00 00 25 ┆ A SQUARE.DIMENSION # %┆
0x740…760 00 10 53 51 55 41 52 45 2e 47 45 54 5f 54 4f 4b 45 4e 3d 7a 94 17 00 0c 53 51 55 41 52 45 2e 54 ┆ SQUARE.GET_TOKEN=z SQUARE.T┆
0x760…780 4f 4b 45 4e 00 00 00 00 11 00 00 00 4b 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 3b 99 6f 61 08 ┆OKEN K SQUARE.TOKEN; oa ┆
0x780…7a0 00 00 00 00 00 00 00 00 00 09 10 00 15 00 01 2a 93 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e ┆ * SQUARE.DIMEN┆
0x7a0…7c0 53 49 4f 4e 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 00 00 00 00 13 00 00 00 2c ┆SION SQUARE.DIMENSION ,┆
0x7c0…7e0 00 0c 53 51 55 41 52 45 2e 53 45 54 5f 59 3d 7b 94 7e 90 23 00 01 4f 17 00 10 53 51 55 41 52 45 ┆ SQUARE.SET_Y={ ~ # O SQUARE┆
0x7e0…800 2e 44 49 4d 45 4e 53 49 4f 4e 00 00 00 00 00 04 00 00 00 2b 00 0b 53 51 55 41 52 45 2e 4d 4f 56 ┆.DIMENSION + SQUARE.MOV┆
0x800…820 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 00 00 00 ┆E={ ~ # D SQUARE.DIRECTION ┆
0x820…840 00 00 1c 00 00 00 59 00 0a 53 51 55 41 52 45 2e 44 49 4d 3c 66 17 00 10 53 54 41 4e 44 41 52 44 ┆ Y SQUARE.DIM<f STANDARD┆
0x840…860 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 2b 93 0e 17 00 10 53 ┆.INTEGERa + S┆
0x860…880 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 17 00 04 4c 41 53 54 08 00 00 00 00 00 00 00 00 01 ┆QUARE.DIMENSION LAST ┆
0x880…8a0 00 00 00 09 00 00 00 1f 00 0a 53 51 55 41 52 45 2e 47 45 54 3d 7a 94 17 00 0c 53 51 55 41 52 45 ┆ SQUARE.GET=z SQUARE┆
0x8a0…8c0 2e 54 4f 4b 45 4e 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 ┆.TOKEN 4 SQUARE.DIRECTIO┆
0x8c0…8e0 4e 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 ┆N; n1 NORTH1 SOUTH1 EAST1 WE┆
0x8e0…900 53 54 00 00 00 00 26 00 00 00 2e 00 0a 53 51 55 41 52 45 2e 53 45 54 3d 7b 94 7e 90 23 00 01 41 ┆ST & . SQUARE.SET={ ~ # A┆
0x900…920 23 00 01 4f 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 ┆# O STANDARD.INTEGER ┆
0x920…940 50 00 0a 53 51 55 41 52 45 2e 44 49 4d 3c 66 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 ┆P SQUARE.DIM<f STANDARD.INTEG┆
0x940…960 45 52 61 08 00 00 00 00 00 00 00 00 00 10 00 14 00 01 2b 93 17 00 10 53 51 55 41 52 45 2e 44 49 ┆ERa + SQUARE.DI┆
0x960…980 4d 45 4e 53 49 4f 4e 08 00 00 00 00 00 00 00 00 01 00 00 00 27 00 00 00 14 00 0e 53 51 55 41 52 ┆MENSION ' SQUAR┆
0x980…9a0 45 2e 44 49 53 50 4c 41 59 3d 7b 94 00 00 00 00 24 00 00 00 2a 00 0a 53 51 55 41 52 45 2e 53 45 ┆E.DISPLAY={ $ * SQUARE.SE┆
0x9a0…9c0 54 3d 7b 94 7e 90 23 00 01 41 17 00 10 53 54 41 4e 44 41 52 44 2e 49 4e 54 45 47 45 52 00 00 00 ┆T={ ~ # A STANDARD.INTEGER ┆
0x9c0…9e0 00 00 0a 00 00 00 66 00 0d 53 51 55 41 52 45 2e 53 51 55 41 52 45 39 6c 63 61 08 00 00 00 00 00 ┆ f SQUARE.SQUARE9lca ┆
0x9e0…a00 00 00 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 61 08 00 00 00 00 00 00 00 ┆ SQUARE.DIMENSIONa ┆
0xa00…a20 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 49 4f 4e 66 17 00 0c 53 51 55 41 52 45 2e ┆ SQUARE.DIMENSIONf SQUARE.┆
0xa20…a40 54 4f 4b 45 4e 00 00 17 00 03 4e 49 4c 00 00 00 10 00 00 00 61 00 0d 53 51 55 41 52 45 2e 53 51 ┆TOKEN NIL a SQUARE.SQ┆
0xa40…a60 55 41 52 45 39 6c 63 61 08 00 00 00 00 00 00 00 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 ┆UARE9lca SQUARE.DIME┆
0xa60…a80 4e 53 49 4f 4e 61 08 00 00 00 00 00 00 00 00 01 16 00 10 53 51 55 41 52 45 2e 44 49 4d 45 4e 53 ┆NSIONa SQUARE.DIMENS┆
0xa80…a97 49 4f 4e 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 04 ┆IONf SQUARE.TOKEN ┆