|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 13696 (0x3580)
Names: »XPL0HELP.DAT«
└─⟦31a512eaf⟧ Bits:30009429 50004846
└─⟦a415da17f⟧
└─⟦this⟧ »XPL0HELP.DAT«
0x0000…0020 30 30 31 30 20 2f 2f 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆0010 // *****************┆ 0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0040…0060 2a 2a 2a 2a 2a 0d 30 30 32 30 20 2f 2f 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 ┆***** 0020 // * ┆ 0x0060…0080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0080…00a0 20 20 20 20 20 20 20 20 20 20 2a 0d 30 30 33 30 20 2f 2f 20 20 20 20 20 20 20 20 2a 20 20 44 69 ┆ * 0030 // * Di┆ 0x00a0…00c0 72 65 63 74 69 6f 6e 73 20 6f 66 20 75 73 65 20 66 6f 72 20 74 68 65 20 58 2d 50 4c 2f 30 20 63 ┆rections of use for the X-PL/0 c┆ 0x00c0…00e0 6f 6d 70 69 6c 65 72 20 73 79 73 74 65 6d 20 20 2a 0d 30 30 34 30 20 2f 2f 20 20 20 20 20 20 20 ┆ompiler system * 0040 // ┆ 0x00e0…0100 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆ 0x0100…0120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 30 30 35 30 20 2f 2f 20 ┆ * 0050 // ┆ 0x0120…0140 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *************************┆ 0x0140…0160 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 30 30 ┆***************************** 00┆ 0x0160…0180 36 30 20 2f 2f 0d 30 30 37 30 20 2f 2f 0d 30 30 38 30 20 2f 2f 20 49 6e 74 72 6f 64 75 63 74 69 ┆60 // 0070 // 0080 // Introducti┆ 0x0180…01a0 6f 6e 0d 30 30 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 30 31 30 30 20 2f 2f 0d ┆on 0090 // ------------ 0100 // ┆ 0x01a0…01c0 30 31 31 30 20 2f 2f 20 54 68 65 20 6c 61 6e 67 75 61 67 65 20 58 2d 50 4c 2f 30 20 69 73 20 61 ┆0110 // The language X-PL/0 is a┆ 0x01c0…01e0 6e 20 65 78 74 65 6e 73 69 6f 6e 20 6f 66 20 74 68 65 20 50 4c 2f 30 20 6c 61 6e 67 75 61 67 65 ┆n extension of the PL/0 language┆ 0x01e0…0200 20 69 6e 76 65 6e 74 65 64 20 62 79 0d 30 31 32 30 20 2f 2f 20 70 72 6f 66 2e 20 4e 2e 20 57 69 ┆ invented by 0120 // prof. N. Wi┆ 0x0200…0220 72 74 68 2c 20 74 6f 20 73 65 72 76 65 20 61 73 20 61 6e 20 65 78 61 6d 70 6c 65 20 6c 61 6e 67 ┆rth, to serve as an example lang┆ 0x0220…0240 75 61 67 65 20 69 6e 20 61 20 63 68 61 70 74 65 72 20 6f 6e 0d 30 31 33 30 20 2f 2f 20 63 6f 6d ┆uage in a chapter on 0130 // com┆ 0x0240…0260 70 69 6c 65 72 20 74 65 63 68 6e 69 71 75 65 73 20 69 6e 20 68 69 73 20 62 6f 6f 6b 0d 30 31 34 ┆piler techniques in his book 014┆ 0x0260…0280 30 20 2f 2f 20 20 20 20 20 20 41 6c 67 6f 72 69 74 68 6d 73 20 2b 20 44 61 74 61 20 53 74 72 75 ┆0 // Algorithms + Data Stru┆ 0x0280…02a0 63 74 75 72 65 73 20 3d 20 50 72 6f 67 72 61 6d 73 20 20 28 50 72 65 6e 74 69 63 65 2d 48 61 6c ┆ctures = Programs (Prentice-Hal┆ 0x02a0…02c0 6c 2c 20 31 39 37 36 29 0d 30 31 35 30 20 2f 2f 0d 30 31 36 30 20 2f 2f 20 49 6e 20 74 68 69 73 ┆l, 1976) 0150 // 0160 // In this┆ 0x02c0…02e0 20 62 6f 6f 6b 2c 20 70 72 6f 66 2e 20 4e 2e 20 57 69 72 74 68 20 64 65 76 65 6c 6f 70 73 20 61 ┆ book, prof. N. Wirth develops a┆ 0x02e0…0300 20 63 6f 6d 70 69 6c 65 72 2f 69 6e 74 65 72 70 72 65 74 65 72 20 73 79 73 74 65 6d 0d 30 31 37 ┆ compiler/interpreter system 017┆ 0x0300…0320 30 20 2f 2f 20 63 61 70 61 62 6c 65 20 6f 66 20 63 6f 6d 70 69 6c 69 6e 67 20 61 6e 64 20 65 78 ┆0 // capable of compiling and ex┆ 0x0320…0340 65 63 75 74 69 6e 67 20 50 4c 2f 30 20 70 72 6f 67 72 61 6d 73 2e 20 54 68 69 73 20 73 79 73 74 ┆ecuting PL/0 programs. This syst┆ 0x0340…0360 65 6d 20 69 73 0d 30 31 38 30 20 2f 2f 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 61 73 20 6f 6e 65 ┆em is 0180 // implemented as one┆ 0x0360…0380 20 70 72 6f 67 72 61 6d 20 77 72 69 74 74 65 6e 20 69 6e 20 74 68 65 20 68 69 67 68 20 6c 65 76 ┆ program written in the high lev┆ 0x0380…03a0 65 6c 20 6c 61 6e 67 75 61 67 65 20 50 61 73 63 61 6c 2e 0d 30 31 39 30 20 2f 2f 20 54 68 65 20 ┆el language Pascal. 0190 // The ┆ 0x03a0…03c0 70 72 65 73 65 6e 74 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 20 58 2d 50 4c 2f 30 ┆present implementation of X-PL/0┆ 0x03c0…03e0 20 69 73 20 61 20 74 72 61 6e 73 6c 61 74 69 6f 6e 20 6f 66 20 74 68 69 73 20 70 72 6f 67 72 61 ┆ is a translation of this progra┆ 0x03e0…0400 6d 0d 30 32 30 30 20 2f 2f 20 74 6f 20 74 68 65 20 6e 65 77 20 68 69 67 68 20 6c 65 76 65 6c 20 ┆m 0200 // to the new high level ┆ 0x0400…0420 6c 61 6e 67 75 61 67 65 20 43 4f 4d 41 4c 2d 38 30 2c 20 77 69 74 68 20 61 20 66 65 77 20 65 78 ┆language COMAL-80, with a few ex┆ 0x0420…0440 74 65 6e 73 69 6f 6e 73 2e 20 49 6e 0d 30 32 31 30 20 2f 2f 20 61 64 64 69 74 69 6f 6e 2c 20 74 ┆tensions. In 0210 // addition, t┆ 0x0440…0460 68 65 20 70 72 6f 67 72 61 6d 20 68 61 73 20 62 65 65 6e 20 6d 6f 64 75 6c 61 72 69 7a 65 64 20 ┆he program has been modularized ┆ 0x0460…0480 69 6e 20 6f 72 64 65 72 20 74 6f 20 64 65 61 6c 20 77 69 74 68 0d 30 32 32 30 20 2f 2f 20 74 68 ┆in order to deal with 0220 // th┆ 0x0480…04a0 65 20 73 74 6f 72 61 67 65 20 72 65 73 74 72 69 63 74 69 6f 6e 73 20 6f 66 20 61 6e 20 69 6e 74 ┆e storage restrictions of an int┆ 0x04a0…04c0 65 72 61 63 74 69 76 65 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 73 75 63 68 20 61 73 20 74 68 65 ┆eractive environment such as the┆ 0x04c0…04e0 0d 30 32 33 30 20 2f 2f 20 6f 6e 65 20 6f 66 66 65 72 65 64 20 62 79 20 43 4f 4d 41 4c 2d 38 30 ┆ 0230 // one offered by COMAL-80┆ 0x04e0…0500 2e 0d 30 32 34 30 20 2f 2f 0d 30 32 35 30 20 2f 2f 20 49 74 20 6d 75 73 74 20 62 65 20 65 6d 70 ┆. 0240 // 0250 // It must be emp┆ 0x0500…0520 68 61 73 69 7a 65 64 20 74 68 61 74 20 6e 65 69 74 68 65 72 20 74 68 65 20 6c 61 6e 67 75 61 67 ┆hasized that neither the languag┆ 0x0520…0540 65 20 58 2d 50 4c 2f 30 20 6e 6f 72 20 69 74 73 20 70 72 65 73 65 6e 74 0d 30 32 36 30 20 2f 2f ┆e X-PL/0 nor its present 0260 //┆ 0x0540…0560 20 43 4f 4d 41 4c 2d 38 30 20 62 61 73 65 64 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 61 ┆ COMAL-80 based implementation a┆ 0x0560…0580 72 65 20 69 6e 74 65 6e 64 65 64 20 66 6f 72 20 73 65 72 69 6f 75 73 20 75 73 65 20 62 79 20 61 ┆re intended for serious use by a┆ 0x0580…05a0 0d 30 32 37 30 20 2f 2f 20 70 72 6f 67 72 61 6d 6d 65 72 2e 20 52 61 74 68 65 72 2c 20 69 74 20 ┆ 0270 // programmer. Rather, it ┆ 0x05a0…05c0 69 73 20 68 6f 70 65 64 20 74 6f 20 62 65 20 61 6e 20 69 6e 73 74 72 75 63 74 69 76 65 20 65 78 ┆is hoped to be an instructive ex┆ 0x05c0…05e0 61 6d 70 6c 65 20 6f 6e 20 74 68 65 0d 30 32 38 30 20 2f 2f 20 66 6f 72 63 65 73 20 6f 66 20 43 ┆ample on the 0280 // forces of C┆ 0x05e0…0600 4f 4d 41 4c 2d 38 30 20 61 6e 64 20 6f 6e 20 63 6f 6d 70 69 6c 65 72 20 74 65 63 68 6e 69 71 75 ┆OMAL-80 and on compiler techniqu┆ 0x0600…0620 65 73 2e 0d 30 32 39 30 20 2f 2f 0d 30 33 30 30 20 2f 2f 0d 30 33 31 30 20 2f 2f 20 44 65 73 63 ┆es. 0290 // 0300 // 0310 // Desc┆ 0x0620…0640 72 69 70 74 69 6f 6e 20 6f 66 20 58 2d 50 4c 2f 30 0d 30 33 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆ription of X-PL/0 0320 // ------┆ 0x0640…0660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 30 33 33 30 20 2f 2f 0d 30 33 34 30 20 2f 2f 20 ┆--------------- 0330 // 0340 // ┆ 0x0660…0680 42 65 6c 6f 77 2c 20 74 68 65 20 67 65 6e 65 72 61 6c 20 66 65 61 74 75 72 65 73 20 61 6e 64 20 ┆Below, the general features and ┆ 0x0680…06a0 74 68 65 20 64 65 74 61 69 6c 65 64 20 73 79 6e 74 61 78 20 6f 66 20 58 2d 50 4c 2f 30 20 61 72 ┆the detailed syntax of X-PL/0 ar┆ 0x06a0…06c0 65 0d 30 33 35 30 20 2f 2f 20 64 65 73 63 72 69 62 65 64 2e 0d 30 33 36 30 20 2f 2f 0d 30 33 37 ┆e 0350 // described. 0360 // 037┆ 0x06c0…06e0 30 20 2f 2f 20 58 2d 50 4c 2f 30 20 63 61 6e 20 62 65 73 74 20 62 65 20 64 65 73 63 72 69 62 65 ┆0 // X-PL/0 can best be describe┆ 0x06e0…0700 64 20 61 73 20 61 20 76 65 72 79 20 72 65 73 74 72 69 63 74 69 76 65 20 72 65 6c 61 74 69 76 65 ┆d as a very restrictive relative┆ 0x0700…0720 20 6f 66 20 50 61 73 63 61 6c 2e 0d 30 33 38 30 20 2f 2f 20 49 74 20 72 65 71 75 69 72 65 73 20 ┆ of Pascal. 0380 // It requires ┆ 0x0720…0740 61 6c 6c 20 75 73 65 64 20 6f 62 6a 65 63 74 73 20 74 6f 20 62 65 20 64 65 63 6c 61 72 65 64 20 ┆all used objects to be declared ┆ 0x0740…0760 62 65 66 6f 72 65 20 75 73 65 2c 20 61 6e 64 20 6f 66 66 65 72 73 0d 30 33 39 30 20 2f 2f 20 64 ┆before use, and offers 0390 // d┆ 0x0760…0780 65 63 6c 61 72 61 74 69 6f 6e 20 6f 66 20 63 6f 6e 73 74 61 6e 74 73 2c 20 76 61 72 69 61 62 6c ┆eclaration of constants, variabl┆ 0x0780…07a0 65 73 20 28 61 6c 6c 20 6f 66 20 69 6e 74 65 67 65 72 20 74 79 70 65 29 20 61 6e 64 0d 30 34 30 ┆es (all of integer type) and 040┆ 0x07a0…07c0 30 20 2f 2f 20 70 61 72 61 6d 65 74 65 72 6c 65 73 73 20 70 72 6f 63 65 64 75 72 65 73 2c 20 77 ┆0 // parameterless procedures, w┆ 0x07c0…07e0 68 69 63 68 20 63 61 6e 20 63 6f 6e 74 61 69 6e 20 6c 6f 63 61 6c 20 64 65 63 6c 61 72 61 74 69 ┆hich can contain local declarati┆ 0x07e0…0800 6f 6e 73 20 6f 66 0d 30 34 31 30 20 2f 2f 20 63 6f 6e 73 74 61 6e 74 73 2c 20 76 61 72 69 61 62 ┆ons of 0410 // constants, variab┆ 0x0800…0820 6c 65 73 20 61 6e 64 20 6f 74 68 65 72 20 70 72 6f 63 65 64 75 72 65 73 2e 20 54 68 65 20 70 72 ┆les and other procedures. The pr┆ 0x0820…0840 6f 63 65 64 75 72 65 73 20 63 61 6e 20 63 61 6c 6c 0d 30 34 32 30 20 2f 2f 20 74 68 65 6d 73 65 ┆ocedures can call 0420 // themse┆ 0x0840…0860 6c 76 65 73 20 6f 72 20 65 61 63 68 20 6f 74 68 65 72 20 72 65 63 75 72 73 69 76 65 6c 79 2c 20 ┆lves or each other recursively, ┆ 0x0860…0880 70 72 65 63 69 73 65 6c 79 20 61 73 20 69 6e 20 50 61 73 63 61 6c 2e 0d 30 34 33 30 20 2f 2f 0d ┆precisely as in Pascal. 0430 // ┆ 0x0880…08a0 30 34 34 30 20 2f 2f 20 54 68 65 20 72 65 61 64 65 72 20 73 68 6f 75 6c 64 20 63 6f 6e 73 75 6c ┆0440 // The reader should consul┆ 0x08a0…08c0 74 20 74 68 65 20 58 2d 50 4c 2f 30 20 70 72 6f 67 72 61 6d 20 54 45 53 54 31 20 66 6f 72 20 65 ┆t the X-PL/0 program TEST1 for e┆ 0x08c0…08e0 78 61 6d 70 6c 65 73 0d 30 34 35 30 20 2f 2f 20 6f 6e 20 74 68 65 20 76 61 72 69 6f 75 73 20 66 ┆xamples 0450 // on the various f┆ 0x08e0…0900 65 61 74 75 72 65 73 20 6f 66 20 58 2d 50 4c 2f 30 2e 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 ┆eatures of X-PL/0. This program ┆ 0x0900…0920 6d 61 79 20 62 65 20 6f 62 74 61 69 6e 65 64 0d 30 34 36 30 20 2f 2f 20 62 79 20 61 6e 20 20 45 ┆may be obtained 0460 // by an E┆ 0x0920…0940 4e 54 45 52 20 54 45 53 54 31 20 20 63 6f 6d 6d 61 6e 64 20 77 68 65 6e 20 69 6e 20 74 68 65 20 ┆NTER TEST1 command when in the ┆ 0x0940…0960 43 4f 4d 41 4c 2d 38 30 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 2e 0d 30 34 37 30 20 2f 2f 0d 30 ┆COMAL-80 command mode. 0470 // 0┆ 0x0960…0980 34 38 30 20 2f 2f 20 54 68 65 20 70 72 69 6d 69 74 69 76 65 20 73 74 61 74 65 6d 65 6e 74 73 20 ┆480 // The primitive statements ┆ 0x0980…09a0 28 69 2e 65 2e 20 74 68 6f 73 65 20 73 74 61 74 65 6d 65 6e 74 73 20 74 68 61 74 20 64 6f 20 6e ┆(i.e. those statements that do n┆ 0x09a0…09c0 6f 74 20 63 6f 6e 74 61 69 6e 0d 30 34 39 30 20 2f 2f 20 6f 74 68 65 72 20 73 74 61 74 65 6d 65 ┆ot contain 0490 // other stateme┆ 0x09c0…09e0 6e 74 73 29 20 61 72 65 20 74 68 65 20 61 73 73 69 67 6e 6d 65 6e 74 20 73 74 61 74 65 6d 65 6e ┆nts) are the assignment statemen┆ 0x09e0…0a00 74 2c 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c 6c 0d 30 35 30 30 20 2f 2f 20 73 74 ┆t, the procedure call 0500 // st┆ 0x0a00…0a20 61 74 65 6d 65 6e 74 20 61 6e 64 20 74 68 65 20 52 45 41 44 2c 20 57 52 49 54 45 20 61 6e 64 20 ┆atement and the READ, WRITE and ┆ 0x0a20…0a40 57 52 49 54 45 4c 4e 20 73 74 61 74 65 6d 65 6e 74 73 2e 0d 30 35 31 30 20 2f 2f 0d 30 35 32 30 ┆WRITELN statements. 0510 // 0520┆ 0x0a40…0a60 20 2f 2f 20 54 68 65 20 61 73 73 69 67 6e 6d 65 6e 74 20 73 74 61 74 65 6d 65 6e 74 20 68 61 73 ┆ // The assignment statement has┆ 0x0a60…0a80 20 74 68 65 20 66 6f 72 6d 3a 0d 30 35 33 30 20 2f 2f 20 20 20 20 20 20 20 3c 76 61 72 69 61 62 ┆ the form: 0530 // <variab┆ 0x0a80…0aa0 6c 65 20 69 64 65 6e 74 69 66 69 65 72 3e 20 3a 3d 20 3c 6e 75 6d 65 72 69 63 61 6c 20 65 78 70 ┆le identifier> := <numerical exp┆ 0x0aa0…0ac0 72 65 73 73 69 6f 6e 3e 0d 30 35 34 30 20 2f 2f 20 77 68 65 72 65 20 3c 76 61 72 69 61 62 6c 65 ┆ression> 0540 // where <variable┆ 0x0ac0…0ae0 20 69 64 65 6e 74 69 66 69 65 72 3e 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 64 65 ┆ identifier> is the name of a de┆ 0x0ae0…0b00 63 6c 61 72 65 64 20 76 61 72 69 61 62 6c 65 2c 20 69 2e 65 2e 0d 30 35 35 30 20 2f 2f 20 61 20 ┆clared variable, i.e. 0550 // a ┆ 0x0b00…0b20 6c 65 74 74 65 72 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 6c 65 74 74 65 72 73 20 61 6e 64 20 64 ┆letter followed by letters and d┆ 0x0b20…0b40 69 67 69 74 73 2e 20 4f 6e 6c 79 20 74 68 65 20 66 69 72 73 74 20 31 30 20 6c 65 74 74 65 72 73 ┆igits. Only the first 10 letters┆ 0x0b40…0b60 0d 30 35 36 30 20 2f 2f 20 61 6e 64 20 64 69 67 69 74 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 ┆ 0560 // and digits are consider┆ 0x0b60…0b80 65 64 20 28 74 68 69 73 20 69 73 20 61 20 63 6f 6d 70 69 6c 65 72 20 63 6f 6e 73 74 61 6e 74 20 ┆ed (this is a compiler constant ┆ 0x0b80…0ba0 77 68 69 63 68 20 6d 61 79 0d 30 35 37 30 20 2f 2f 20 62 65 20 63 68 61 6e 67 65 64 29 2e 20 54 ┆which may 0570 // be changed). T┆ 0x0ba0…0bc0 68 65 20 65 66 66 65 63 74 20 6f 66 20 74 68 65 20 61 73 73 69 67 6e 6d 65 6e 74 20 73 74 61 74 ┆he effect of the assignment stat┆ 0x0bc0…0be0 65 6d 65 6e 74 20 69 73 20 74 68 61 74 20 74 68 65 20 76 61 6c 75 65 0d 30 35 38 30 20 2f 2f 20 ┆ement is that the value 0580 // ┆ 0x0be0…0c00 6f 66 20 74 68 65 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 61 ┆of the expression is evaluated a┆ 0x0c00…0c20 6e 64 20 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c 65 2e 0d 30 35 39 ┆nd assigned to the variable. 059┆ 0x0c20…0c40 30 20 2f 2f 0d 30 36 30 30 20 2f 2f 20 4e 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f ┆0 // 0600 // Numerical expressio┆ 0x0c40…0c60 6e 73 20 28 74 6f 20 77 68 69 63 68 20 74 68 65 20 63 6f 6e 73 74 72 75 63 74 20 3c 6e 75 6d 65 ┆ns (to which the construct <nume┆ 0x0c60…0c80 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 3e 0d 30 36 31 30 20 2f 2f 20 61 62 6f 76 65 20 ┆rical expression> 0610 // above ┆ 0x0c80…0ca0 72 65 66 65 72 73 29 20 61 72 65 20 64 65 66 69 6e 65 64 20 61 73 20 75 73 75 61 6c 20 61 72 69 ┆refers) are defined as usual ari┆ 0x0ca0…0cc0 74 68 6d 65 74 69 63 20 65 78 70 72 65 73 73 69 6f 6e 73 2c 20 69 6e 20 77 68 69 63 68 0d 30 36 ┆thmetic expressions, in which 06┆ 0x0cc0…0ce0 32 30 20 2f 2f 20 74 68 65 20 34 20 6f 70 65 72 61 74 6f 72 73 20 2b 20 2d 20 2a 20 2f 20 6d 61 ┆20 // the 4 operators + - * / ma┆ 0x0ce0…0d00 79 20 62 65 20 75 73 65 64 20 62 65 74 77 65 65 6e 20 76 61 72 69 61 62 6c 65 20 69 64 65 6e 74 ┆y be used between variable ident┆ 0x0d00…0d20 69 66 69 65 72 73 2c 0d 30 36 33 30 20 2f 2f 20 63 6f 6e 73 74 61 6e 74 20 69 64 65 6e 74 69 66 ┆ifiers, 0630 // constant identif┆ 0x0d20…0d40 69 65 72 73 2c 20 6e 75 6d 62 65 72 73 20 61 6e 64 20 70 61 72 61 6e 74 68 65 73 69 7a 65 64 20 ┆iers, numbers and paranthesized ┆ 0x0d40…0d60 6e 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 2e 0d 30 36 34 30 20 2f 2f 20 49 ┆numerical expressions. 0640 // I┆ 0x0d60…0d80 6e 20 61 64 64 69 74 69 6f 6e 2c 20 61 20 6e 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 ┆n addition, a numerical expressi┆ 0x0d80…0da0 6f 6e 20 6d 61 79 20 63 6f 6e 74 61 69 6e 20 61 20 6c 65 61 64 69 6e 67 20 2b 20 6f 72 20 2d 20 ┆on may contain a leading + or - ┆ 0x0da0…0dc0 2e 0d 30 36 35 30 20 2f 2f 0d 30 36 36 30 20 2f 2f 20 45 78 61 6d 70 6c 65 73 20 6f 66 20 61 73 ┆. 0650 // 0660 // Examples of as┆ 0x0dc0…0de0 73 69 67 6e 6d 65 6e 74 20 73 74 61 74 65 6d 65 6e 74 73 20 65 6d 62 6f 64 79 69 6e 67 20 6e 75 ┆signment statements embodying nu┆ 0x0de0…0e00 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 73 20 61 72 65 3a 0d 30 36 37 30 20 2f 2f ┆merical expressions are: 0670 //┆ 0x0e00…0e20 20 20 20 20 20 20 4f 4e 45 56 41 52 49 41 42 4c 45 20 3a 3d 20 32 20 2a 20 50 49 0d 30 36 38 30 ┆ ONEVARIABLE := 2 * PI 0680┆ 0x0e20…0e40 20 2f 2f 20 20 20 20 20 20 4d 45 41 4e 20 3a 3d 20 28 58 2b 59 29 2f 32 0d 30 36 39 30 20 2f 2f ┆ // MEAN := (X+Y)/2 0690 //┆ 0x0e40…0e60 20 20 20 20 20 20 56 41 52 49 41 4e 43 45 20 3a 3d 20 28 58 2d 4d 45 41 4e 29 2a 28 58 2d 4d 45 ┆ VARIANCE := (X-MEAN)*(X-ME┆ 0x0e60…0e80 41 4e 29 20 2b 20 28 59 2d 4d 45 41 4e 29 2a 28 59 2d 4d 45 41 4e 29 0d 30 37 30 30 20 2f 2f 0d ┆AN) + (Y-MEAN)*(Y-MEAN) 0700 // ┆ 0x0e80…0ea0 30 37 31 30 20 2f 2f 20 54 68 65 20 70 72 6f 63 65 64 75 72 65 20 63 61 6c 6c 20 73 74 61 74 65 ┆0710 // The procedure call state┆ 0x0ea0…0ec0 6d 65 6e 74 20 68 61 73 20 74 68 65 20 66 6f 72 6d 3a 0d 30 37 32 30 20 2f 2f 20 20 20 20 20 20 ┆ment has the form: 0720 // ┆ 0x0ec0…0ee0 43 41 4c 4c 20 3c 70 72 6f 63 65 64 75 72 65 20 69 64 65 6e 74 69 66 69 65 72 3e 0d 30 37 33 30 ┆CALL <procedure identifier> 0730┆ 0x0ee0…0f00 20 2f 2f 20 77 68 65 72 65 20 3c 70 72 6f 63 65 64 75 72 65 20 69 64 65 6e 74 69 66 69 65 72 3e ┆ // where <procedure identifier>┆ 0x0f00…0f20 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 70 72 6f 63 65 64 75 72 65 20 74 68 61 74 ┆ is the name of a procedure that┆ 0x0f20…0f40 20 68 61 73 0d 30 37 34 30 20 2f 2f 20 70 72 65 76 69 6f 75 73 6c 79 20 62 65 65 6e 20 64 65 63 ┆ has 0740 // previously been dec┆ 0x0f40…0f60 6c 61 72 65 64 2e 20 49 74 20 63 61 75 73 65 73 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 20 74 ┆lared. It causes the procedure t┆ 0x0f60…0f80 6f 20 62 65 20 65 78 65 63 75 74 65 64 2e 20 41 66 74 65 72 0d 30 37 35 30 20 2f 2f 20 65 78 65 ┆o be executed. After 0750 // exe┆ 0x0f80…0fa0 63 75 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 6f 63 65 64 75 72 65 2c 20 65 78 65 63 75 74 69 ┆cution of the procedure, executi┆ 0x0fa0…0fc0 6f 6e 20 69 73 20 63 6f 6e 74 69 6e 75 65 64 20 61 66 74 65 72 20 74 68 65 20 70 72 6f 63 65 64 ┆on is continued after the proced┆ 0x0fc0…0fe0 75 72 65 0d 30 37 36 30 20 2f 2f 20 73 74 61 74 65 6d 65 6e 74 2e 20 45 78 61 6d 70 6c 65 3a 0d ┆ure 0760 // statement. Example: ┆ 0x0fe0…1000 30 37 37 30 20 2f 2f 20 20 20 20 20 20 43 41 4c 4c 20 50 52 4f 43 0d 30 37 38 30 20 2f 2f 0d 30 ┆0770 // CALL PROC 0780 // 0┆ 0x1000…1020 37 39 30 20 2f 2f 20 54 68 65 20 52 45 41 44 20 73 74 61 74 65 6d 65 6e 74 20 68 61 73 20 74 68 ┆790 // The READ statement has th┆ 0x1020…1040 65 20 66 6f 72 6d 3a 0d 30 38 30 30 20 2f 2f 20 20 20 20 20 20 52 45 41 44 28 3c 76 61 72 69 61 ┆e form: 0800 // READ(<varia┆ 0x1040…1060 62 6c 65 20 69 64 65 6e 74 69 66 69 65 72 3e 29 0d 30 38 31 30 20 2f 2f 20 61 6e 64 20 77 69 6c ┆ble identifier>) 0810 // and wil┆ 0x1060…1080 6c 20 63 61 75 73 65 20 61 20 70 72 6f 6d 70 74 20 63 6f 6e 73 69 73 74 69 6e 67 20 6f 66 20 74 ┆l cause a prompt consisting of t┆ 0x1080…10a0 77 6f 20 71 75 65 73 74 69 6f 6e 6d 61 72 6b 73 20 6f 6e 20 74 68 65 20 74 65 72 6d 69 6e 61 6c ┆wo questionmarks on the terminal┆ 0x10a0…10c0 2c 0d 30 38 32 30 20 2f 2f 20 66 6f 6c 6c 6f 77 69 6e 67 20 77 68 69 63 68 20 74 68 65 20 75 73 ┆, 0820 // following which the us┆ 0x10c0…10e0 65 72 20 69 73 20 65 78 70 65 63 74 65 64 20 74 6f 20 6b 65 79 20 69 6e 20 61 20 6e 75 6d 62 65 ┆er is expected to key in a numbe┆ 0x10e0…1100 72 2e 20 54 68 69 73 20 6e 75 6d 62 65 72 0d 30 38 33 30 20 2f 2f 20 77 69 6c 6c 20 74 68 65 6e ┆r. This number 0830 // will then┆ 0x1100…1120 20 62 65 20 61 73 73 69 67 6e 65 64 20 74 6f 20 74 68 65 20 76 61 72 69 61 62 6c 65 2e 20 45 78 ┆ be assigned to the variable. Ex┆ 0x1120…1140 61 6d 70 6c 65 3a 0d 30 38 34 30 20 2f 2f 20 20 20 20 20 20 52 45 41 44 28 58 29 0d 30 38 35 30 ┆ample: 0840 // READ(X) 0850┆ 0x1140…1160 20 2f 2f 0d 30 38 36 30 20 2f 2f 20 54 68 65 20 57 52 49 54 45 20 73 74 61 74 65 6d 65 6e 74 20 ┆ // 0860 // The WRITE statement ┆ 0x1160…1180 68 61 73 20 74 68 65 20 66 6f 72 6d 3a 0d 30 38 37 30 20 2f 2f 20 20 20 20 20 20 57 52 49 54 45 ┆has the form: 0870 // WRITE┆ 0x1180…11a0 28 3c 6e 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 3e 29 0d 30 38 38 30 20 2f 2f ┆(<numerical expression>) 0880 //┆ 0x11a0…11c0 20 77 68 65 72 65 20 3c 6e 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 3e 20 69 73 ┆ where <numerical expression> is┆ 0x11c0…11e0 20 64 65 66 69 6e 65 64 20 61 73 20 61 62 6f 76 65 2e 20 49 74 73 20 65 66 66 65 63 74 20 69 73 ┆ defined as above. Its effect is┆ 0x11e0…1200 20 74 68 61 74 0d 30 38 39 30 20 2f 2f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6e ┆ that 0890 // the value of the n┆ 0x1200…1220 75 6d 65 72 69 63 61 6c 20 65 78 70 72 65 73 73 69 6f 6e 20 69 73 20 63 6f 6d 70 75 74 65 64 20 ┆umerical expression is computed ┆ 0x1220…1240 61 6e 64 20 64 69 73 70 6c 61 79 65 64 20 6f 6e 20 74 68 65 0d 30 39 30 30 20 2f 2f 20 74 65 72 ┆and displayed on the 0900 // ter┆ 0x1240…1260 6d 69 6e 61 6c 2e 20 45 78 61 6d 70 6c 65 73 3a 0d 30 39 31 30 20 2f 2f 20 20 20 20 20 20 57 52 ┆minal. Examples: 0910 // WR┆ 0x1260…1280 49 54 45 28 4d 45 41 4e 29 0d 30 39 32 30 20 2f 2f 20 20 20 20 20 20 57 52 49 54 45 28 32 2a 49 ┆ITE(MEAN) 0920 // WRITE(2*I┆ 0x1280…12a0 2b 32 33 29 0d 30 39 33 30 20 2f 2f 0d 30 39 34 30 20 2f 2f 20 54 68 65 20 57 52 49 54 45 4c 4e ┆+23) 0930 // 0940 // The WRITELN┆ 0x12a0…12c0 20 73 74 61 74 65 6d 65 6e 74 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 74 68 65 20 6b 65 79 77 6f ┆ statement consists of the keywo┆ 0x12c0…12e0 72 64 20 57 52 49 54 45 4c 4e 20 6f 6e 6c 79 2c 20 61 6e 64 20 65 66 66 65 63 74 73 0d 30 39 35 ┆rd WRITELN only, and effects 095┆ 0x12e0…1300 30 20 2f 2f 20 61 20 72 65 74 75 72 6e 2d 6c 69 6e 65 66 65 65 64 20 6f 6e 20 74 68 65 20 74 65 ┆0 // a return-linefeed on the te┆ 0x1300…1320 72 6d 69 6e 61 6c 2e 20 45 78 61 6d 70 6c 65 3a 0d 30 39 36 30 20 2f 2f 20 20 20 20 20 20 57 52 ┆rminal. Example: 0960 // WR┆ 0x1320…1340 49 54 45 4c 4e 0d 30 39 37 30 20 2f 2f 0d 30 39 38 30 20 2f 2f 20 54 68 65 20 63 6f 6d 70 6f 75 ┆ITELN 0970 // 0980 // The compou┆ 0x1340…1360 6e 64 20 73 74 61 74 65 6d 65 6e 74 73 20 28 74 68 6f 73 65 20 73 74 61 74 65 6d 65 6e 74 73 20 ┆nd statements (those statements ┆ 0x1360…1380 74 68 61 74 20 65 6d 62 6f 64 79 20 6f 74 68 65 72 20 73 74 61 74 65 6d 65 6e 74 73 29 0d 30 39 ┆that embody other statements) 09┆ 0x1380…13a0 39 30 20 2f 2f 20 61 72 65 20 74 68 65 20 42 45 47 49 4e 2d 45 4e 44 20 63 6c 61 75 73 65 2c 20 ┆90 // are the BEGIN-END clause, ┆ 0x13a0…13c0 74 68 65 20 49 46 20 73 74 61 74 65 6d 65 6e 74 2c 20 61 6e 64 20 74 68 65 20 57 48 49 4c 45 20 ┆the IF statement, and the WHILE ┆ 0x13c0…13e0 73 74 61 74 65 6d 65 6e 74 2e 0d 31 30 30 30 20 2f 2f 0d 31 30 31 30 20 2f 2f 20 54 68 65 20 42 ┆statement. 1000 // 1010 // The B┆ 0x13e0…1400 45 47 49 4e 2d 45 4e 44 20 63 6c 61 75 73 65 20 69 73 20 75 73 65 64 20 6d 61 69 6e 6c 79 20 69 ┆EGIN-END clause is used mainly i┆ 0x1400…1420 6e 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20 74 68 65 20 49 46 20 61 6e 64 0d 31 30 32 ┆n connection with the IF and 102┆ 0x1420…1440 30 20 2f 2f 20 57 48 49 4c 45 20 73 74 61 74 65 6d 65 6e 74 73 20 61 6e 64 20 69 73 20 61 20 6d ┆0 // WHILE statements and is a m┆ 0x1440…1460 65 61 6e 73 20 6f 66 20 63 6f 75 70 6c 69 6e 67 20 73 65 76 65 72 61 6c 20 73 74 61 74 65 6d 65 ┆eans of coupling several stateme┆ 0x1460…1480 6e 74 73 0d 31 30 33 30 20 2f 2f 20 73 6f 20 74 68 61 74 20 74 68 65 79 20 77 69 6c 6c 20 62 65 ┆nts 1030 // so that they will be┆ 0x1480…14a0 20 63 6f 6e 73 69 64 65 72 65 64 20 61 20 73 69 6e 67 6c 65 20 73 74 61 74 65 6d 65 6e 74 20 2d ┆ considered a single statement -┆ 0x14a0…14c0 20 61 0d 31 30 34 30 20 2f 2f 20 73 6f 72 74 20 6f 66 20 70 61 72 61 6e 74 68 65 73 69 7a 69 6e ┆ a 1040 // sort of paranthesizin┆ 0x14c0…14e0 67 2e 20 54 68 65 20 66 6f 72 6d 20 6f 66 20 74 68 65 20 42 45 47 49 4e 2d 45 4e 44 20 63 6c 61 ┆g. The form of the BEGIN-END cla┆ 0x14e0…1500 75 73 65 20 69 73 0d 31 30 35 30 20 2f 2f 20 20 20 20 20 20 42 45 47 49 4e 20 3c 73 74 61 74 65 ┆use is 1050 // BEGIN <state┆ 0x1500…1520 6d 65 6e 74 3e 20 3b 20 3c 73 74 61 74 65 6d 65 6e 74 3e 20 3b 20 3c 73 74 61 74 65 6d 65 6e 74 ┆ment> ; <statement> ; <statement┆ 0x1520…1540 3e 20 3b 20 2e 2e 2e 2e 20 45 4e 44 0d 31 30 36 30 20 2f 2f 20 77 68 65 72 65 20 74 68 65 20 65 ┆> ; .... END 1060 // where the e┆ 0x1540…1560 6c 6c 69 70 73 69 73 20 28 2e 2e 2e 2e 29 20 69 6e 64 69 63 61 74 65 73 20 74 68 61 74 20 74 68 ┆llipsis (....) indicates that th┆ 0x1560…1580 65 20 72 65 70 69 74 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 61 69 72 0d 31 30 37 30 20 2f 2f ┆e repitition of the pair 1070 //┆ 0x1580…15a0 20 3c 73 74 61 74 65 6d 65 6e 74 3e 20 61 6e 64 20 3b 20 6d 61 79 20 62 65 20 64 6f 6e 65 20 61 ┆ <statement> and ; may be done a┆ 0x15a0…15c0 73 20 6d 61 6e 79 20 74 69 6d 65 73 20 61 73 20 6e 65 65 64 65 64 2e 20 49 74 20 69 73 20 6e 6f ┆s many times as needed. It is no┆ 0x15c0…15e0 74 0d 31 30 38 30 20 2f 2f 20 6e 65 63 65 73 73 61 72 79 20 74 6f 20 69 6e 63 6c 75 64 65 20 74 ┆t 1080 // necessary to include t┆ 0x15e0…1600 68 65 20 73 65 6d 69 63 6f 6c 6f 6e 20 61 66 74 65 72 20 74 68 65 20 6c 61 73 74 20 73 74 61 74 ┆he semicolon after the last stat┆ 0x1600…1620 65 6d 65 6e 74 2e 20 54 68 65 0d 31 30 39 30 20 2f 2f 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 ┆ement. The 1090 // execution of ┆ 0x1620…1640 74 68 65 20 42 45 47 49 4e 2d 45 4e 44 20 63 6c 61 75 73 65 20 63 6f 6e 73 69 73 74 73 20 6f 66 ┆the BEGIN-END clause consists of┆ 0x1640…1660 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 65 61 63 68 0d 31 31 30 30 20 2f 2f 20 6f ┆ the execution of each 1100 // o┆ 0x1660…1680 66 20 74 68 65 20 65 6d 62 6f 64 69 65 64 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 74 68 65 ┆f the embodied statements in the┆ 0x1680…16a0 69 72 20 74 65 78 74 75 61 6c 20 6f 72 64 65 72 2e 20 45 78 61 6d 70 6c 65 73 3a 0d 31 31 31 30 ┆ir textual order. Examples: 1110┆ 0x16a0…16c0 20 2f 2f 20 20 20 20 20 20 42 45 47 49 4e 20 41 20 3a 3d 20 33 20 45 4e 44 0d 31 31 32 30 20 2f ┆ // BEGIN A := 3 END 1120 /┆ 0x16c0…16e0 2f 20 20 20 20 20 20 42 45 47 49 4e 20 52 45 41 44 28 4e 29 3b 20 57 52 49 54 45 28 32 2a 28 4e ┆/ BEGIN READ(N); WRITE(2*(N┆ 0x16e0…1700 2f 36 29 2b 37 29 3b 20 53 55 4d 4e 20 3a 3d 20 53 55 4d 4e 2b 4e 20 45 4e 44 0d 31 31 33 30 20 ┆/6)+7); SUMN := SUMN+N END 1130 ┆ 0x1700…1720 2f 2f 0d 31 31 34 30 20 2f 2f 20 54 68 65 20 49 46 20 73 74 61 74 65 6d 65 6e 74 20 68 61 73 20 ┆// 1140 // The IF statement has ┆ 0x1720…1740 74 68 65 20 66 6f 72 6d 3a 0d 31 31 35 30 20 2f 2f 20 20 20 20 20 20 49 46 20 3c 63 6f 6e 64 69 ┆the form: 1150 // IF <condi┆ 0x1740…1760 74 69 6f 6e 3e 20 54 48 45 4e 20 3c 73 74 61 74 65 6d 65 6e 74 3e 0d 31 31 36 30 20 2f 2f 20 77 ┆tion> THEN <statement> 1160 // w┆ 0x1760…1780 68 65 72 65 20 3c 73 74 61 74 65 6d 65 6e 74 3e 20 6d 61 79 20 62 65 20 61 6e 79 20 73 74 61 74 ┆here <statement> may be any stat┆ 0x1780…17a0 65 6d 65 6e 74 2c 20 65 73 70 65 63 69 61 6c 6c 79 20 61 20 42 45 47 49 4e 2d 45 4e 44 20 63 6c ┆ement, especially a BEGIN-END cl┆ 0x17a0…17c0 61 75 73 65 2e 0d 31 31 37 30 20 2f 2f 20 54 68 65 20 3c 63 6f 6e 64 69 74 69 6f 6e 3e 20 69 73 ┆ause. 1170 // The <condition> is┆ 0x17c0…17e0 20 64 65 66 69 6e 65 64 20 62 65 6c 6f 77 2e 20 54 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 ┆ defined below. The execution of┆ 0x17e0…1800 20 74 68 65 20 49 46 20 73 74 61 74 65 6d 65 6e 74 0d 31 31 38 30 20 2f 2f 20 64 65 70 65 6e 64 ┆ the IF statement 1180 // depend┆ 0x1800…1820 73 20 6f 6e 20 74 68 65 20 63 6f 6e 64 69 74 69 6f 6e 2e 20 49 66 20 74 68 65 20 63 6f 6e 64 69 ┆s on the condition. If the condi┆ 0x1820…1840 74 69 6f 6e 20 68 6f 6c 64 73 2c 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 0d 31 31 39 30 20 2f ┆tion holds, the statement 1190 /┆ 0x1840…1860 2f 20 61 66 74 65 72 20 54 48 45 4e 20 69 73 20 65 78 65 63 75 74 65 64 2e 20 49 66 20 74 68 65 ┆/ after THEN is executed. If the┆ 0x1860…1880 20 63 6f 6e 64 69 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 68 6f 6c 64 2c 20 6e 6f 74 68 69 6e ┆ condition does not hold, nothin┆ 0x1880…18a0 67 0d 31 32 30 30 20 2f 2f 20 77 69 6c 6c 20 68 61 70 70 65 6e 2e 20 45 78 61 6d 70 6c 65 73 3a ┆g 1200 // will happen. Examples:┆ 0x18a0…18c0 0d 31 32 31 30 20 2f 2f 20 20 20 20 20 20 49 46 20 51 20 3c 20 4d 49 4e 20 54 48 45 4e 20 4d 49 ┆ 1210 // IF Q < MIN THEN MI┆ 0x18c0…18e0 4e 20 3a 3d 20 51 0d 31 32 32 30 20 2f 2f 20 20 20 20 20 20 49 46 20 58 20 3c 3e 20 30 20 54 48 ┆N := Q 1220 // IF X <> 0 TH┆ 0x18e0…1900 45 4e 20 49 46 20 59 2f 58 20 3c 20 35 20 54 48 45 4e 20 42 45 47 49 4e 20 52 45 53 55 4c 54 20 ┆EN IF Y/X < 5 THEN BEGIN RESULT ┆ 0x1900…1920 3a 3d 20 58 3b 20 57 52 49 54 45 28 58 29 20 45 4e 44 0d 31 32 33 30 20 2f 2f 0d 31 32 34 30 20 ┆:= X; WRITE(X) END 1230 // 1240 ┆ […truncated at 200 lines…]