|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 10840 (0x2a58)
Names: »LIST.PAS«
└─⟦59f3de555⟧ Bits:30004546 Turbo Pascal 5.5 for C-DOS Piccoline
└─ ⟦this⟧ »LIST.PAS«
0x0000…0020 50 52 4f 47 52 41 4d 20 6c 69 73 74 3b 0d 0a 75 73 65 73 20 63 72 74 2c 20 70 72 69 6e 74 65 72 ┆PROGRAM list; uses crt, printer┆
0x0020…0040 3b 0d 0a 0d 0a 7b 20 4c 49 53 54 20 69 73 20 61 20 76 65 72 79 20 75 73 65 66 75 6c 20 61 6c 6c ┆; æ LIST is a very useful all┆
0x0040…0060 2d 70 75 72 70 6f 73 65 20 6c 69 73 74 20 70 72 6f 67 72 61 6d 2e 20 49 74 20 63 61 6e 20 6f 75 ┆-purpose list program. It can ou┆
0x0060…0080 74 70 75 74 20 7d 0d 0a 7b 20 6c 69 73 74 69 6e 67 73 20 6f 66 20 61 6c 6c 20 73 6f 72 74 73 20 ┆tput å æ listings of all sorts ┆
0x0080…00a0 6f 66 20 74 65 78 74 20 66 69 6c 65 73 2c 20 77 69 74 68 20 68 65 61 64 65 72 73 2c 20 6c 69 6e ┆of text files, with headers, lin┆
0x00a0…00c0 65 20 6e 75 6d 2d 20 20 7d 0d 0a 7b 20 62 65 72 73 2c 20 61 6e 64 20 66 75 6c 6c 20 63 6f 6e 74 ┆e num- å æ bers, and full cont┆
0x00c0…00e0 72 6f 6c 20 6f 66 20 70 61 67 65 20 6c 65 6e 67 74 68 2c 20 6c 69 6e 65 20 6c 65 6e 67 74 68 2c ┆rol of page length, line length,┆
0x00e0…0100 20 6c 65 66 74 20 6d 61 72 2d 20 7d 0d 0a 7b 20 67 69 6e 20 61 6e 64 20 62 6f 74 74 6f 6d 20 6d ┆ left mar- å æ gin and bottom m┆
0x0100…0120 61 72 67 69 6e 2e 20 4c 49 53 54 20 6f 62 74 61 69 6e 73 20 61 6c 6c 20 69 74 73 20 70 61 72 61 ┆argin. LIST obtains all its para┆
0x0120…0140 6d 65 74 65 72 73 20 66 72 6f 6d 20 20 20 7d 0d 0a 7b 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 6c ┆meters from å æ the command l┆
0x0140…0160 69 6e 65 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 69 73 3a ┆ine. The command line format is:┆
0x0160…0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 20 20 20 20 20 20 ┆ å æ ┆
0x0180…01a0 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 ┆ ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 4c 49 53 54 ┆ å æ LIST┆
0x01c0…01e0 20 3c 66 69 6c 65 6e 61 6d 65 3e 3c 6f 70 74 69 6f 6e 73 3e 2c 2e 2e 2e 2c 3c 66 69 6c 65 6e 61 ┆ <filename><options>,...,<filena┆
0x01e0…0200 6d 65 3e 3c 6f 70 74 69 6f 6e 73 3e 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 ┆me><options> å æ ┆
0x0200…0220 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 ┆ ┆
0x0220…0240 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 7d 0d 0a 7b 20 77 ┆ å æ w┆
0x0240…0260 68 65 72 65 20 3c 66 69 6c 65 6e 61 6d 65 3e 20 69 73 20 61 20 66 69 6c 65 20 6e 61 6d 65 20 61 ┆here <filename> is a file name a┆
0x0260…0280 63 63 65 70 74 61 62 6c 65 20 74 6f 20 74 68 65 20 6f 70 65 72 61 74 69 6e 67 20 20 20 7d 0d 0a ┆cceptable to the operating å ┆
0x0280…02a0 7b 20 73 79 73 74 65 6d 2c 20 61 6e 64 20 3c 6f 70 74 69 6f 6e 73 3e 20 61 72 65 20 6f 6e 65 20 ┆æ system, and <options> are one ┆
0x02a0…02c0 6f 72 20 6d 6f 72 65 20 6f 70 74 69 6f 6e 73 2c 20 73 65 6c 65 63 74 65 64 20 66 72 6f 6d 20 20 ┆or more options, selected from ┆
0x02c0…02e0 7d 0d 0a 7b 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6c 69 73 74 3a 20 20 20 20 20 20 20 20 ┆å æ the following list: ┆
0x02e0…0300 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 ┆ ┆
0x0300…0320 20 20 20 7d 0d 0a 7b 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 ┆ å æ ┆
0x0320…0340 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 ┆ ┆
0x0340…0360 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 49 6e 6e 20 20 20 20 20 49 6e 64 65 6e 74 20 65 61 63 ┆ å æ Inn Indent eac┆
0x0360…0380 68 20 6c 69 6e 65 20 70 72 69 6e 74 65 64 20 62 79 20 6e 6e 20 62 6c 61 6e 6b 73 2e 20 20 20 20 ┆h line printed by nn blanks. ┆
0x0380…03a0 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 53 6e 6e 20 20 20 20 20 53 6b 69 70 20 6e 6e ┆ å æ Snn Skip nn┆
0x03a0…03c0 20 6c 69 6e 65 73 20 61 74 20 74 68 65 20 62 6f 74 74 6f 6d 20 6f 66 20 65 61 63 68 20 70 61 67 ┆ lines at the bottom of each pag┆
0x03c0…03e0 65 2e 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 48 20 20 20 20 20 20 20 50 72 69 6e ┆e. å æ H Prin┆
0x03e0…0400 74 20 66 69 6c 65 20 6e 61 6d 65 20 61 6e 64 20 70 61 67 65 20 6e 75 6d 62 65 72 20 6f 6e 20 74 ┆t file name and page number on t┆
0x0400…0420 6f 70 20 6f 66 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 20 20 20 20 20 20 20 65 ┆op of å æ e┆
0x0420…0440 61 63 68 20 70 61 67 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ach page. ┆
0x0440…0460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 48 73 73 73 73 73 ┆ å æ Hsssss┆
0x0460…0480 20 20 50 72 69 6e 74 20 68 65 61 64 65 72 20 73 74 72 69 6e 67 20 61 6e 64 20 70 61 67 65 20 6e ┆ Print header string and page n┆
0x0480…04a0 75 6d 62 65 72 20 6f 6e 20 74 6f 70 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 20 20 ┆umber on top å æ ┆
0x04a0…04c0 20 20 20 20 20 6f 66 20 65 61 63 68 20 70 61 67 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ of each page. ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 ┆ å æ ┆
0x04e0…0500 4e 20 20 20 20 20 20 20 50 72 69 6e 74 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 62 65 66 6f 72 65 ┆N Print line number before┆
0x0500…0520 20 65 61 63 68 20 6c 69 6e 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 ┆ each line. å æ ┆
0x0520…0540 20 20 20 46 20 20 20 20 20 20 20 46 6f 72 6d 2d 66 65 65 64 2e 20 53 6b 69 70 20 74 6f 20 74 6f ┆ F Form-feed. Skip to to┆
0x0540…0560 70 20 6f 66 20 6e 65 78 74 20 70 61 67 65 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d ┆p of next page. å ┆
0x0560…0580 0a 7b 20 20 20 20 54 6e 20 20 20 20 20 20 54 65 67 6e 74 79 70 65 3a 20 31 20 3d 20 50 69 63 61 ┆ æ Tn Tegntype: 1 = Pica┆
0x0580…05a0 2c 20 32 20 3d 20 45 6c 69 74 65 2c 20 33 20 3d 20 43 6f 6d 70 72 65 73 73 65 64 20 20 20 20 20 ┆, 2 = Elite, 3 = Compressed ┆
0x05a0…05c0 20 7d 0d 0a 7b 20 20 20 20 41 6e 20 20 20 20 20 20 41 66 73 74 61 6e 64 3a 20 20 31 20 3d 20 36 ┆ å æ An Afstand: 1 = 6┆
0x05c0…05e0 20 6c 70 69 2c 20 32 20 3d 20 38 20 6c 70 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ lpi, 2 = 8 lpi ┆
0x05e0…0600 20 20 20 20 7d 0d 0a 7b 20 20 20 20 44 20 20 20 20 20 20 20 44 61 6e 73 6b 20 74 65 67 6e 73 61 ┆ å æ D Dansk tegnsa┆
0x0600…0620 65 74 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 ┆et ┆
0x0620…0640 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 55 20 20 20 20 20 20 20 55 53 41 20 74 65 67 6e 73 ┆ å æ U USA tegns┆
0x0640…0660 61 65 74 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 ┆aet ┆
0x0660…0680 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 45 20 20 20 20 20 20 20 45 6e 6b 65 6c 74 ┆ å æ E Enkelt┆
0x0680…06a0 61 72 6b 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 ┆ark ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ å æ ┆
0x06c0…06e0 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 ┆ ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 45 61 63 68 20 6f 70 74 69 6f 6e ┆ å æ Each option┆
0x0700…0720 20 6d 75 73 74 20 62 65 20 70 72 65 63 65 64 65 64 20 62 79 20 61 20 66 6f 72 77 61 72 64 20 73 ┆ must be preceded by a forward s┆
0x0720…0740 6c 61 73 68 2e 20 41 6e 20 65 78 61 6d 70 6c 65 20 20 20 7d 0d 0a 7b 20 6f 66 20 61 20 4c 49 53 ┆lash. An example å æ of a LIS┆
0x0740…0760 54 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T command line: ┆
0x0760…0780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b 20 20 20 20 20 20 ┆ å æ ┆
0x0780…07a0 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 ┆ ┆
0x07a0…07c0 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 7d 0d 0a 7b 20 20 20 ┆ å æ ┆
0x07c0…07e0 20 4c 49 53 54 20 57 4f 52 4b 2e 50 41 53 2f 49 38 2f 4e 2f 48 57 6f 72 6b 66 69 6c 65 20 4c 69 ┆ LIST WORK.PAS/I8/N/HWorkfile Li┆
0x07e0…0800 73 74 69 6e 67 2c 43 41 4c 43 2e 50 41 53 2c 2f 46 20 20 20 20 20 20 20 20 20 20 20 7d 0d 0a 7b ┆sting,CALC.PAS,/F å æ┆
0x0800…0820 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 ┆ ┆
0x0820…0840 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 7d ┆ å┆
0x0840…0860 0d 0a 7b 20 54 68 69 73 20 6c 69 6e 65 20 77 69 6c 6c 20 63 61 75 73 65 20 57 4f 52 4b 2e 50 41 ┆ æ This line will cause WORK.PA┆
0x0860…0880 53 20 74 6f 20 62 65 20 6c 69 73 74 65 64 20 77 69 74 68 20 61 6e 20 69 6e 64 65 6e 74 61 2d 20 ┆S to be listed with an indenta- ┆
0x0880…08a0 20 20 7d 0d 0a 7b 20 74 69 6f 6e 20 28 6c 65 66 74 20 6d 61 72 67 69 6e 29 20 6f 66 20 38 2c 20 ┆ å æ tion (left margin) of 8, ┆
0x08a0…08c0 6c 69 6e 65 20 6e 75 6d 62 65 72 73 20 61 6e 64 20 61 20 75 73 65 72 20 73 70 65 63 69 66 69 65 ┆line numbers and a user specifie┆
0x08c0…08e0 64 20 20 20 20 7d 0d 0a 7b 20 68 65 61 64 69 6e 67 2e 20 46 6f 6c 6c 6f 77 69 6e 67 20 74 68 69 ┆d å æ heading. Following thi┆
0x08e0…0900 73 2c 20 43 41 4c 43 2e 50 41 53 20 69 73 20 6c 69 73 74 65 64 20 75 73 69 6e 67 20 74 68 65 20 ┆s, CALC.PAS is listed using the ┆
0x0900…0920 64 65 66 61 75 6c 74 20 7d 0d 0a 7b 20 70 61 67 65 20 66 6f 72 6d 61 74 20 70 61 72 61 6d 65 74 ┆default å æ page format paramet┆
0x0920…0940 65 72 73 2c 20 61 6e 64 20 66 69 6e 61 6c 6c 79 20 61 20 66 6f 72 6d 2d 66 65 65 64 20 69 73 20 ┆ers, and finally a form-feed is ┆
0x0940…0960 6f 75 74 70 75 74 2e 20 20 20 20 7d 0d 0a 0d 0a 43 4f 4e 53 54 0d 0a 20 20 64 70 61 67 65 6c 65 ┆output. å CONST dpagele┆
0x0960…0980 6e 20 3d 20 37 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 44 65 66 61 75 6c 74 20 ┆n = 72; æDefault ┆
0x0980…09a0 70 61 67 65 20 6c 65 6e 67 74 68 7d 0d 0a 20 20 64 6c 69 6e 65 6c 65 6e 20 3d 20 38 30 3b 20 20 ┆page lengthå dlinelen = 80; ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 44 65 66 61 75 6c 74 20 6c 69 6e 65 20 6c 65 6e 67 ┆ æDefault line leng┆
0x09c0…09e0 74 68 7d 0d 0a 20 20 64 69 6e 64 65 6e 74 20 20 3d 20 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆thå dindent = 0; ┆
0x09e0…0a00 20 20 20 20 20 7b 44 65 66 61 75 6c 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 7d 0d 0a 20 20 64 73 ┆ æDefault indentationå ds┆
0x0a00…0a20 6b 69 70 20 20 20 20 3d 20 31 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 44 65 66 ┆kip = 12; æDef┆
0x0a20…0a40 61 75 6c 74 20 62 6f 74 74 6f 6d 20 73 6b 69 70 7d 0d 0a 20 20 6c 66 20 20 20 20 20 20 20 3d 20 ┆ault bottom skipå lf = ┆
0x0a40…0a60 23 31 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 4c 69 6e 65 66 65 65 64 7d 0d 0a 20 ┆#10; æLinefeedå ┆
0x0a60…0a80 20 72 65 76 5f 6c 66 20 20 20 3d 20 23 32 37 27 6a 27 23 31 38 30 3b 20 20 20 20 20 20 20 20 7b ┆ rev_lf = #27'j'#180; æ┆
0x0a80…0aa0 72 65 76 65 72 73 65 20 6c 69 6e 65 66 65 65 64 7d 0d 0a 20 20 63 72 6c 66 20 20 20 20 20 3d 20 ┆reverse linefeedå crlf = ┆
0x0aa0…0ac0 23 31 33 23 31 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 7b 63 61 72 72 69 61 67 65 72 65 74 75 ┆#13#10; æcarriageretu┆
0x0ac0…0ae0 72 6e 20 2d 20 6c 69 6e 65 66 65 65 64 7d 0d 0a 20 20 68 74 20 20 20 20 20 20 20 3d 20 23 39 3b ┆rn - linefeedå ht = #9;┆
0x0ae0…0b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 48 6f 72 69 7a 6f 6e 74 61 6c 20 74 61 62 7d ┆ æHorizontal tabå┆
0x0b00…0b20 0d 0a 20 20 66 66 20 20 20 20 20 20 20 3d 20 23 31 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ff = #12; ┆
0x0b20…0b40 20 20 7b 46 6f 72 6d 66 65 65 64 7d 0d 0a 20 20 65 73 63 20 20 20 20 20 20 3d 20 23 32 37 3b 20 ┆ æFormfeedå esc = #27; ┆
0x0b40…0b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 45 73 63 61 70 65 7d 0d 0a 0d 0a 20 20 50 5f 75 6c ┆ æEscapeå P_ul┆
0x0b60…0b80 6e 6f 6e 20 20 3d 20 23 32 37 27 2d 27 23 31 3b 0d 0a 20 20 50 5f 75 6c 6e 6f 66 66 20 3d 20 23 ┆non = #27'-'#1; P_ulnoff = #┆
0x0b80…0ba0 32 37 27 2d 27 23 30 3b 0d 0a 20 20 50 5f 69 6e 74 6f 6e 20 20 3d 20 23 32 37 27 45 27 23 32 37 ┆27'-'#0; P_inton = #27'E'#27┆
0x0ba0…0bc0 27 47 27 3b 0d 0a 20 20 50 5f 69 6e 74 6f 66 66 20 3d 20 23 32 37 27 46 27 23 32 37 27 48 27 3b ┆'G'; P_intoff = #27'F'#27'H';┆
0x0bc0…0be0 0d 0a 20 20 50 5f 69 74 61 6f 6e 20 20 3d 20 23 32 37 27 34 27 3b 0d 0a 20 20 50 5f 69 74 61 6f ┆ P_itaon = #27'4'; P_itao┆
0x0be0…0c00 66 66 20 3d 20 23 32 37 27 35 27 3b 0d 0a 20 20 50 5f 73 75 70 65 72 20 20 3d 20 23 32 37 27 53 ┆ff = #27'5'; P_super = #27'S┆
0x0c00…0c20 27 23 30 3b 0d 0a 20 20 50 5f 73 75 62 20 20 20 20 3d 20 23 32 37 27 53 27 23 31 3b 0d 0a 20 20 ┆'#0; P_sub = #27'S'#1; ┆
0x0c20…0c40 50 5f 73 75 6f 66 66 20 20 3d 20 23 32 37 27 54 27 3b 0d 0a 0d 0a 20 20 50 69 63 61 20 20 20 20 ┆P_suoff = #27'T'; Pica ┆
0x0c40…0c60 20 3d 20 23 32 37 23 31 38 23 32 37 27 50 27 3b 0d 0a 20 20 45 6c 69 74 65 20 20 20 20 3d 20 23 ┆ = #27#18#27'P'; Elite = #┆
0x0c60…0c80 32 37 23 31 38 23 32 37 27 4d 27 3b 0d 0a 20 20 43 6f 6d 70 5f 6f 6e 20 20 3d 20 23 32 37 27 50 ┆27#18#27'M'; Comp_on = #27'P┆
0x0c80…0ca0 27 23 32 37 23 31 35 3b 0d 0a 20 20 4c 50 49 36 20 20 20 20 20 3d 20 23 32 37 27 32 27 3b 0d 0a ┆'#27#15; LPI6 = #27'2'; ┆
0x0ca0…0cc0 20 20 4c 50 49 38 20 20 20 20 20 3d 20 23 32 37 27 30 27 3b 0d 0a 20 20 53 57 5f 72 65 73 65 74 ┆ LPI8 = #27'0'; SW_reset┆
0x0cc0…0ce0 20 3d 20 23 32 37 27 40 27 3b 0d 0a 20 20 55 53 20 20 20 20 20 20 20 3d 20 23 32 37 27 52 27 23 ┆ = #27'@'; US = #27'R'#┆
0x0ce0…0d00 31 33 3b 0d 0a 20 20 44 4b 20 20 20 20 20 20 20 3d 20 23 32 37 27 52 27 23 31 30 3b 0d 0a 20 20 ┆13; DK = #27'R'#10; ┆
0x0d00…0d20 73 65 74 5f 74 6f 66 20 20 3d 20 23 32 37 27 43 27 23 30 23 31 32 3b 0d 0a 20 20 65 6a 65 63 74 ┆set_tof = #27'C'#0#12; eject┆
0x0d20…0d40 20 20 20 20 3d 20 23 32 37 27 4a 27 23 31 38 30 3b 0d 0a 0d 0a 56 41 52 0d 0a 20 20 69 2c 70 6f ┆ = #27'J'#180; VAR i,po┆
0x0d40…0d60 73 2c 70 61 67 65 6c 65 6e 2c 6c 69 6e 65 6c 65 6e 2c 69 6e 64 65 6e 74 2c 73 6b 69 70 2c 61 72 ┆s,pagelen,linelen,indent,skip,ar┆
0x0d60…0d80 67 2c 0d 0a 20 20 70 61 67 65 6e 6f 2c 6c 69 6e 65 6e 6f 2c 6c 69 6e 2c 63 6f 6c 2c 77 69 64 74 ┆g, pageno,lineno,lin,col,widt┆
0x0d80…0da0 68 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 63 68 2c 6f 70 74 3a 20 63 68 61 72 3b 0d 0a 20 20 ┆h: integer; ch,opt: char; ┆
0x0da0…0dc0 66 69 72 73 74 2c 20 70 72 69 6e 74 68 64 72 2c 6c 69 6e 65 6e 75 6d 62 65 72 73 2c 20 73 68 65 ┆first, printhdr,linenumbers, she┆
0x0dc0…0de0 65 74 2c 20 64 6b 5f 73 65 74 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 6e 73 3a 20 53 54 52 49 ┆et, dk_set: boolean; ns: STRI┆
0x0de0…0e00 4e 47 5b 34 5d 3b 0d 0a 20 20 66 69 6c 65 6e 61 6d 65 2c 68 65 61 64 65 72 3a 20 53 54 52 49 4e ┆NGÆ4Å; filename,header: STRIN┆
0x0e00…0e20 47 5b 38 30 5d 3b 0d 0a 20 20 6c 69 6e 65 2c 20 63 6d 64 6c 69 6e 65 3a 20 53 54 52 49 4e 47 5b ┆GÆ80Å; line, cmdline: STRINGÆ┆
0x0e20…0e40 31 32 37 5d 3b 0d 0a 20 20 69 6e 66 69 6c 65 2c 20 6f 75 74 66 69 6c 65 3a 20 74 65 78 74 3b 0d ┆127Å; infile, outfile: text; ┆
0x0e40…0e60 0a 0d 0a 0d 0a 46 55 4e 43 54 49 4f 4e 20 63 61 70 28 63 68 3a 20 63 68 61 72 29 3a 20 63 68 61 ┆ FUNCTION cap(ch: char): cha┆
0x0e60…0e80 72 3b 0d 0a 42 45 47 49 4e 0d 0a 20 20 49 46 20 28 63 68 3e 3d 27 61 27 29 20 41 4e 44 20 28 63 ┆r; BEGIN IF (ch>='a') AND (c┆
0x0e80…0ea0 68 3c 3d 27 7a 27 29 20 54 48 45 4e 0d 0a 20 20 63 61 70 3a 3d 63 68 72 28 6f 72 64 28 63 68 29 ┆h<='z') THEN cap:=chr(ord(ch)┆
0x0ea0…0ec0 2d 33 32 29 20 45 4c 53 45 20 63 61 70 3a 3d 63 68 3b 0d 0a 45 4e 44 3b 0d 0a 0d 0a 70 72 6f 63 ┆-32) ELSE cap:=ch; END; proc┆
0x0ec0…0ee0 65 64 75 72 65 20 73 74 6f 70 5f 70 72 69 6e 74 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 43 6c 72 53 ┆edure stop_print; begin ClrS┆
0x0ee0…0f00 63 72 3b 0d 0a 20 20 77 72 69 74 65 28 23 37 27 53 6b 69 66 74 20 61 72 6b 2c 20 6e 86 72 20 70 ┆cr; write(#7'Skift ark, n r p┆
0x0f00…0f20 72 69 6e 74 65 72 65 6e 20 65 72 20 66 91 72 64 69 67 2c 20 6f 67 20 74 72 79 6b 20 70 86 20 72 ┆rinteren er f rdig, og tryk p r┆
0x0f20…0f40 65 74 75 72 27 29 3b 0d 0a 20 20 72 65 61 64 6c 6e 3b 0d 0a 20 20 43 6c 72 53 63 72 3b 0d 0a 20 ┆etur'); readln; ClrScr; ┆
0x0f40…0f60 20 77 72 69 74 65 28 6f 75 74 66 69 6c 65 2c 73 65 74 5f 74 6f 66 29 3b 0d 0a 65 6e 64 3b 0d 0a ┆ write(outfile,set_tof); end; ┆
0x0f60…0f80 0d 0a 42 45 47 49 4e 0d 0a 20 20 70 61 67 65 6c 65 6e 3a 3d 64 70 61 67 65 6c 65 6e 3b 20 6c 69 ┆ BEGIN pagelen:=dpagelen; li┆
0x0f80…0fa0 6e 65 6c 65 6e 3a 3d 64 6c 69 6e 65 6c 65 6e 3b 20 69 6e 64 65 6e 74 3a 3d 64 69 6e 64 65 6e 74 ┆nelen:=dlinelen; indent:=dindent┆
0x0fa0…0fc0 3b 0d 0a 20 20 73 6b 69 70 3a 3d 64 73 6b 69 70 3b 20 68 65 61 64 65 72 3a 3d 27 27 3b 20 70 72 ┆; skip:=dskip; header:=''; pr┆
0x0fc0…0fe0 69 6e 74 68 64 72 3a 3d 66 61 6c 73 65 3b 20 6c 69 6e 65 6e 75 6d 62 65 72 73 3a 3d 66 61 6c 73 ┆inthdr:=false; linenumbers:=fals┆
0x0fe0…1000 65 3b 0d 0a 20 20 66 69 6c 65 6e 61 6d 65 3a 3d 27 27 3b 20 6c 69 6e 65 3a 3d 27 27 3b 20 70 6f ┆e; filename:=''; line:=''; po┆
0x1000…1020 73 3a 3d 31 3b 20 66 69 72 73 74 3a 3d 20 54 52 55 45 3b 20 73 68 65 65 74 3a 3d 20 46 41 4c 53 ┆s:=1; first:= TRUE; sheet:= FALS┆
0x1020…1040 45 3b 0d 0a 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 50 61 72 61 6d 43 6f 75 6e 74 20 64 6f 20 ┆E; for i:=1 to ParamCount do ┆
0x1040…1060 6c 69 6e 65 3a 3d 20 6c 69 6e 65 2b 27 20 27 2b 50 61 72 61 6d 53 74 72 28 69 29 3b 0d 0a 20 20 ┆line:= line+' '+ParamStr(i); ┆
0x1060…1080 6c 69 6e 65 3a 3d 20 6c 69 6e 65 2b 23 30 3b 20 69 3a 3d 31 3b 0d 0a 20 20 77 68 69 6c 65 20 6c ┆line:= line+#0; i:=1; while l┆
0x1080…10a0 69 6e 65 5b 69 5d 3c 3e 23 30 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 69 66 20 6c 69 6e 65 ┆ineÆiÅ<>#0 do begin if line┆
0x10a0…10c0 5b 69 5d 3d 27 40 27 20 74 68 65 6e 20 6c 69 6e 65 5b 69 5d 3a 3d 20 27 20 27 3b 0d 0a 20 20 20 ┆ÆiÅ='@' then lineÆiÅ:= ' '; ┆
0x10c0…10e0 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 65 6e 64 3b 0d 0a 20 20 63 6d 64 6c 69 6e 65 3a 3d 4c ┆ i:=i+1; end; cmdline:=L┆
0x10e0…1100 50 49 36 2b 44 4b 2b 50 69 63 61 3b 20 64 6b 5f 73 65 74 3a 3d 20 54 52 55 45 3b 0d 0a 20 20 61 ┆PI6+DK+Pica; dk_set:= TRUE; a┆
0x1100…1120 73 73 69 67 6e 28 6f 75 74 66 69 6c 65 2c 27 4c 53 54 27 29 3b 20 72 65 77 72 69 74 65 28 6f 75 ┆ssign(outfile,'LST'); rewrite(ou┆
0x1120…1140 74 66 69 6c 65 29 3b 0d 0a 20 20 52 45 50 45 41 54 0d 0a 20 20 20 20 57 48 49 4c 45 20 6c 69 6e ┆tfile); REPEAT WHILE lin┆
0x1140…1160 65 5b 70 6f 73 5d 20 49 4e 20 5b 27 20 27 2c 27 2c 27 5d 20 44 4f 20 70 6f 73 3a 3d 73 75 63 63 ┆eÆposÅ IN Æ' ',','Å DO pos:=succ┆
0x1160…1180 28 70 6f 73 29 3b 0d 0a 20 20 20 20 57 48 49 4c 45 20 4e 4f 54 28 6c 69 6e 65 5b 70 6f 73 5d 20 ┆(pos); WHILE NOT(lineÆposÅ ┆
0x1180…11a0 49 4e 20 5b 27 20 27 2c 27 2c 27 2c 27 2f 27 2c 23 30 5d 29 20 44 4f 0d 0a 20 20 20 20 42 45 47 ┆IN Æ' ',',','/',#0Å) DO BEG┆
0x11a0…11c0 49 4e 0d 0a 20 20 20 20 20 20 66 69 6c 65 6e 61 6d 65 3a 3d 66 69 6c 65 6e 61 6d 65 2b 6c 69 6e ┆IN filename:=filename+lin┆
0x11c0…11e0 65 5b 70 6f 73 5d 3b 20 70 6f 73 3a 3d 73 75 63 63 28 70 6f 73 29 3b 0d 0a 20 20 20 20 45 4e 44 ┆eÆposÅ; pos:=succ(pos); END┆
0x11e0…1200 3b 0d 0a 20 20 20 20 57 48 49 4c 45 20 6c 69 6e 65 5b 70 6f 73 5d 3d 27 20 27 20 44 4f 20 70 6f ┆; WHILE lineÆposÅ=' ' DO po┆
0x1200…1220 73 3a 3d 73 75 63 63 28 70 6f 73 29 3b 0d 0a 20 20 20 20 57 48 49 4c 45 20 6c 69 6e 65 5b 70 6f ┆s:=succ(pos); WHILE lineÆpo┆
0x1220…1240 73 5d 3d 27 2f 27 20 44 4f 0d 0a 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 70 6f 73 3a ┆sÅ='/' DO BEGIN pos:┆
0x1240…1260 3d 73 75 63 63 28 70 6f 73 29 3b 20 6f 70 74 3a 3d 63 61 70 28 6c 69 6e 65 5b 70 6f 73 5d 29 3b ┆=succ(pos); opt:=cap(lineÆposÅ);┆
0x1260…1280 20 70 6f 73 3a 3d 73 75 63 63 28 70 6f 73 29 3b 0d 0a 20 20 20 20 20 20 43 41 53 45 20 6f 70 74 ┆ pos:=succ(pos); CASE opt┆
0x1280…12a0 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 27 49 27 2c 27 53 27 2c 27 54 27 2c 27 41 27 3a 0d 0a 20 ┆ OF 'I','S','T','A': ┆
0x12a0…12c0 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 61 72 67 3a 3d 30 3b 0d ┆ BEGIN arg:=0; ┆
0x12c0…12e0 0a 20 20 20 20 20 20 20 20 20 20 57 48 49 4c 45 20 6c 69 6e 65 5b 70 6f 73 5d 20 49 4e 20 5b 27 ┆ WHILE lineÆposÅ IN Æ'┆
0x12e0…1300 30 27 2e 2e 27 39 27 5d 20 44 4f 0d 0a 20 20 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 ┆0'..'9'Å DO BEGIN ┆
0x1300…1320 20 20 20 20 20 20 20 20 20 20 61 72 67 3a 3d 61 72 67 2a 31 30 2b 6f 72 64 28 6c 69 6e 65 5b 70 ┆ arg:=arg*10+ord(lineÆp┆
0x1320…1340 6f 73 5d 29 2d 6f 72 64 28 27 30 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 3a ┆osÅ)-ord('0'); pos:┆
0x1340…1360 3d 73 75 63 63 28 70 6f 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 ┆=succ(pos); END; ┆
0x1360…1380 20 20 20 20 20 20 20 43 41 53 45 20 6f 70 74 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CASE opt OF ┆
0x1380…13a0 27 49 27 3a 20 69 6e 64 65 6e 74 3a 3d 61 72 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 ┆'I': indent:=arg; '┆
0x13a0…13c0 53 27 3a 20 73 6b 69 70 3a 3d 61 72 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 54 27 3a ┆S': skip:=arg; 'T':┆
0x13c0…13e0 20 43 41 53 45 20 61 72 67 20 4f 46 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CASE arg OF ┆
0x13e0…1400 20 31 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 1: begin ┆
0x1400…1420 20 20 20 63 6d 64 6c 69 6e 65 3a 3d 20 63 6d 64 6c 69 6e 65 2b 50 69 63 61 3b 0d 0a 20 20 20 20 ┆ cmdline:= cmdline+Pica; ┆
0x1420…1440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 6c 65 6e 3a 3d 20 38 30 ┆ linelen:= 80┆
0x1440…1460 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e ┆; inden┆
0x1460…1480 74 3a 3d 20 30 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆t:= 0; en┆
0x1480…14a0 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 3a 20 62 65 67 69 6e 0d ┆d; 2: begin ┆
0x14a0…14c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 6c 69 6e 65 ┆ cmdline┆
0x14c0…14e0 3a 3d 20 63 6d 64 6c 69 6e 65 2b 45 6c 69 74 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= cmdline+Elite; ┆
0x14e0…1500 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 6c 65 6e 3a 3d 20 39 34 3b 0d 0a 20 20 20 20 20 20 ┆ linelen:= 94; ┆
0x1500…1520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e 74 3a 3d 20 31 30 3b 0d 0a ┆ indent:= 10; ┆
0x1520…1540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 ┆ end; ┆
0x1540…1560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 ┆ 3: begin ┆
0x1560…1580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 6c 69 6e 65 3a 3d 20 63 6d 64 6c 69 ┆ cmdline:= cmdli┆
0x1580…15a0 6e 65 2b 43 6f 6d 70 5f 6f 6e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ne+Comp_on; ┆
0x15a0…15c0 20 20 20 20 20 6c 69 6e 65 6c 65 6e 3a 3d 20 31 33 35 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ linelen:= 135; ┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 6e 74 3a 3d 20 31 35 3b 0d 0a 20 20 20 20 20 ┆ indent:= 15; ┆
0x15e0…1600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x1600…1620 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x1620…1640 20 77 72 69 74 65 6c 6e 28 27 49 6c 6c 65 67 61 6c 20 66 6f 6e 74 6e 75 6d 62 65 72 3a 20 27 2c ┆ writeln('Illegal fontnumber: ',┆
0x1640…1660 61 72 67 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 ┆arg); if not┆
0x1660…1680 20 66 69 72 73 74 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 66 69 6c 65 2c 53 57 5f 72 65 73 ┆ first then write(outfile,SW_res┆
0x1680…16a0 65 74 29 3b 20 68 61 6c 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 ┆et); halt; END┆
0x16a0…16c0 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 41 27 3a 20 43 41 53 45 20 61 72 67 20 4f 46 0d ┆; 'A': CASE arg OF ┆
0x16c0…16e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 3a 20 62 65 67 69 6e 0d 0a 20 20 ┆ 1: begin ┆
0x16e0…1700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 6c 69 6e 65 3a 3d 20 ┆ cmdline:= ┆
0x1700…1720 63 6d 64 6c 69 6e 65 2b 4c 50 49 36 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆cmdline+LPI6; ┆
0x1720…1740 20 20 20 20 20 20 20 70 61 67 65 6c 65 6e 3a 3d 20 37 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ pagelen:= 72; ┆
0x1740…1760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 73 68 65 65 74 20 74 68 65 6e 20 73 6b 69 70 ┆ if sheet then skip┆
0x1760…1780 3a 3d 20 31 35 20 65 6c 73 65 20 73 6b 69 70 3a 3d 20 31 32 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆:= 15 else skip:= 12; ┆
0x1780…17a0 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ end; ┆
0x17a0…17c0 20 20 20 20 20 20 32 3a 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2: begin ┆
0x17c0…17e0 20 20 20 20 20 20 20 20 63 6d 64 6c 69 6e 65 3a 3d 20 63 6d 64 6c 69 6e 65 2b 4c 50 49 38 3b 0d ┆ cmdline:= cmdline+LPI8; ┆
0x17e0…1800 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 67 65 6c 65 6e ┆ pagelen┆
0x1800…1820 3a 3d 20 39 36 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆:= 96; ┆
0x1820…1840 69 66 20 73 68 65 65 74 20 74 68 65 6e 20 73 6b 69 70 3a 3d 20 32 30 20 65 6c 73 65 20 73 6b 69 ┆if sheet then skip:= 20 else ski┆
0x1840…1860 70 3a 3d 20 31 36 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e ┆p:= 16; en┆
0x1860…1880 64 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 ┆d; ELSE ┆
0x1880…18a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6c 6e 28 27 49 6c 6c 65 67 61 6c 20 6c ┆ writeln('Illegal l┆
0x18a0…18c0 69 6e 65 20 73 70 61 63 69 6e 67 3a 20 27 2c 61 72 67 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ine spacing: ',arg); ┆
0x18c0…18e0 20 20 20 20 20 20 20 20 20 69 66 20 6e 6f 74 20 66 69 72 73 74 20 74 68 65 6e 20 77 72 69 74 65 ┆ if not first then write┆
0x18e0…1900 28 6f 75 74 66 69 6c 65 2c 53 57 5f 72 65 73 65 74 29 3b 20 68 61 6c 74 3b 0d 0a 20 20 20 20 20 ┆(outfile,SW_reset); halt; ┆
0x1900…1920 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b ┆ END; END;┆
[…truncated at 200 lines…]