|
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: 2808 (0xaf8)
Names: »5«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
0x000…020 00 00 00 02 01 00 00 00 3e 02 00 00 00 04 00 04 00 03 1d c5 80 63 80 09 00 02 00 0c 4d 41 47 49 ┆ > c MAGI┆
0x020…040 43 5f 53 51 55 41 52 45 00 04 00 09 41 4c 45 41 54 4f 49 52 45 00 01 00 06 53 51 55 41 52 45 00 ┆C_SQUARE ALEATOIRE SQUARE ┆
0x040…060 03 00 04 4d 41 49 4e 00 00 00 00 6e 50 52 49 4d 41 52 59 20 3d 3e 20 54 52 55 45 2c 20 53 55 42 ┆ MAIN nPRIMARY => TRUE, SUB┆
0x060…080 53 59 53 54 45 4d 20 3d 3e 20 20 38 37 37 31 35 39 30 32 39 38 39 39 32 37 33 2c 20 50 52 49 4d ┆SYSTEM => 877159029899273, PRIM┆
0x080…0a0 41 52 59 5f 4e 41 4d 45 20 3d 3e 20 21 55 53 45 52 53 2e 48 55 52 53 54 2e 45 53 53 41 49 2c 20 ┆ARY_NAME => !USERS.HURST.ESSAI, ┆
0x0a0…0c0 50 52 49 4d 41 52 59 5f 4d 41 43 48 49 4e 45 20 3d 3e 20 61 6e 63 6f 6c 69 65 02 00 00 00 4f 00 ┆PRIMARY_MACHINE => ancolie O ┆
0x0c0…0e0 09 41 4c 45 41 54 4f 49 52 45 02 00 00 00 02 00 04 00 00 00 02 00 03 1d c5 80 63 80 09 00 00 00 ┆ ALEATOIRE c ┆
0x0e0…100 02 00 00 00 14 00 0e 41 4c 45 41 54 4f 49 52 45 2e 52 41 4e 44 3d 7b 94 00 00 00 00 01 00 00 00 ┆ ALEATOIRE.RAND={ ┆
0x100…120 0d 00 09 41 4c 45 41 54 4f 49 52 45 3e 7c 02 00 00 00 73 00 0c 4d 41 47 49 43 5f 53 51 55 41 52 ┆ ALEATOIRE>| s MAGIC_SQUAR┆
0x120…140 45 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 ┆E c 0 MA┆
0x140…160 47 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 ┆GIC_SQUARE={ ~ # SIZE STANDAR┆
0x160…180 44 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 ┆D.POSITIVE MAGIC_SQUA┆
0x180…1a0 52 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 ┆RE={ + MAIN ┆
0x1a0…1c0 80 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 ┆ c MAIN={ < SQU┆
0x1c0…1e0 41 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 ┆ARE ' c Q ┆
0x1e0…200 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 45 52 61 ┆SQUARE.DIM<f STANDARD.INTEGERa┆
0x200…220 08 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 ┆ + SQUARE.DIME┆
0x220…240 4e 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 ┆NSION a SQUARE.┆
0x240…260 53 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 ┆SQUARE9lca SQUARE.DI┆
0x260…280 4d 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 ┆MENSIONa SQUARE.DIME┆
0x280…2a0 4e 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 ┆NSIONf SQUARE.TOKEN ┆
0x2a0…2c0 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 03 00 00 00 ┆ SQUARE.DIMENSION: ┆
0x2c0…2e0 06 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 ┆ SQUARE.DIMENSION: ┆
0x2e0…300 00 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 ┆ j SQUARE.SQUARE9lca ┆
0x300…320 00 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 ┆ SQUARE.DIMENSIONa ┆
0x320…340 00 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 ┆ SQUARE.DIMENSIONf SQUA┆
0x340…360 52 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 ┆RE.TOKEN % * SQ┆
0x360…380 55 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 ┆UARE.SET={ ~ # O STANDARD.INT┆
0x380…3a0 45 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 ┆EGER " R SQUARE.TOKEN<f ┆
0x3a0…3c0 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 15 ┆ STANDARD.INTEGERa ┆
0x3c0…3e0 00 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 ┆ * SQUARE.SIZE SQUARE.SIZE┆
0x3e0…400 00 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 ┆ SQUARE>| ! W SQUA┆
0x400…420 52 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 ┆RE.SQUARE9lca SQUARE┆
0x420…440 2e 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 ┆.SIZEa SQUARE.SIZEf ┆
0x440…460 00 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 ┆ SQUARE.TOKEN 6 SQUAR┆
0x460…480 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 00 00 00 00 ┆E.DIM<f STANDARD.INTEGERa ┆
0x480…4a0 00 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 ┆ d SQUARE.┆
0x4a0…4c0 47 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 ┆GO_TO_CENTER={ SQUARE┆
0x4c0…4e0 3d 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 ┆={ * SQUARE.DEPOSIT={ ~┆
0x4e0…500 90 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 ┆ # T SQUARE.TOKEN ' ┆
0x500…520 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 00 08 00 00 00 00 00 ┆SQUARE.TOKEN; oa ┆
0x520…540 00 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 ┆ d . SQUAREA ~ # DIME┆
0x540…560 4e 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 ┆NSION STANDARD.POSITIVE | ┆
0x560…580 00 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 ┆ , SQUARE.SET_X={ ~ # A STA┆
0x580…5a0 4e 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 ┆NDARD.INTEGER q SQUARE.┆
0x5a0…5c0 53 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 ┆SQUARE9lca SQUARE.D┆
0x5c0…5e0 49 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 ┆IMENSION LASTa SQ┆
0x5e0…600 55 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 ┆UARE.DIMENSION LASTf SQUARE.┆
0x600…620 54 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 ┆TOKEN ! SQUARE.X9f S┆
0x620…640 54 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 ┆TANDARD.INTEGER ) SQUAR┆
0x640…660 45 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 ┆EA ~ # SIZE STANDARD.POSITIVE┆
0x660…680 00 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 ┆ | ! SQUARE.Y9f STANDAR┆
0x680…6a0 44 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 ┆D.INTEGER , SQUARE.SET_┆
0x6a0…6c0 59 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 ┆Y={ ~ # O STANDARD.INTEGER ┆
0x6c0…6e0 00 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 ┆ SQUAREA ;/ DIMENSION g┆
0x6e0…700 7c 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 ┆| 8 SQUARE.TOKEN<f STAN┆
0x700…720 44 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 ┆DARD.INTEGERa ┆
0x720…740 64 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 ┆d SQUAREA ;/ DIMENSION┆
0x740…760 99 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 ┆ i| SQUAREA ;/ DIMENSI┆
0x760…780 4f 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 ┆ON j| , SQUARE.SET_X={ ~ ┆
0x780…7a0 23 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 ┆# A SQUARE.DIMENSION # ┆
0x7a0…7c0 25 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 ┆% SQUARE.GET_TOKEN=z SQUARE.┆
0x7c0…7e0 54 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 ┆TOKEN K SQUARE.TOKEN; oa┆
0x7e0…800 08 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 ┆ * SQUARE.DIME┆
0x800…820 4e 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 ┆NSION SQUARE.DIMENSION ┆
0x820…840 2c 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 ┆, SQUARE.SET_Y={ ~ # O SQUAR┆
0x840…860 45 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 ┆E.DIMENSION + SQUARE.MO┆
0x860…880 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 00 00 ┆VE={ ~ # D SQUARE.DIRECTION ┆
0x880…8a0 00 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 ┆ Y SQUARE.DIM<f STANDAR┆
0x8a0…8c0 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 2b 93 0e 17 00 10 ┆D.INTEGERa + ┆
0x8c0…8e0 53 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 ┆SQUARE.DIMENSION LAST ┆
0x8e0…900 01 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 ┆ SQUARE.GET=z SQUAR┆
0x900…920 45 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 ┆E.TOKEN 4 SQUARE.DIRECTI┆
0x920…940 4f 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 ┆ON; n1 NORTH1 SOUTH1 EAST1 W┆
0x940…960 45 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 ┆EST & . SQUARE.SET={ ~ # ┆
0x960…980 41 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 ┆A# O STANDARD.INTEGER ┆
0x980…9a0 00 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 ┆ P SQUARE.DIM<f STANDARD.INTE┆
0x9a0…9c0 47 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 ┆GERa + SQUARE.D┆
0x9c0…9e0 49 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 ┆IMENSION ' SQUA┆
0x9e0…a00 52 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 ┆RE.DISPLAY={ $ * SQUARE.S┆
0xa00…a20 45 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 ┆ET={ ~ # A STANDARD.INTEGER ┆
0xa20…a40 00 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 ┆ f SQUARE.SQUARE9lca ┆
0xa40…a60 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 00 ┆ SQUARE.DIMENSIONa ┆
0xa60…a80 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 45 ┆ SQUARE.DIMENSIONf SQUARE┆
0xa80…aa0 2e 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 ┆.TOKEN NIL a SQUARE.S┆
0xaa0…ac0 51 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 ┆QUARE9lca SQUARE.DIM┆
0xac0…ae0 45 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 ┆ENSIONa SQUARE.DIMEN┆
0xae0…af8 53 49 4f 4e 66 17 00 0c 53 51 55 41 52 45 2e 54 4f 4b 45 4e 00 00 00 04 ┆SIONf SQUARE.TOKEN ┆