000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 34 30 33 30 39 00 ..SAMdisk140309.
000030: 2B 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 +...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 01 00 02 09 52 E5 00 00 C1 02 00 00 00 02 ......R.........
000120: 00 00 C6 02 00 00 00 02 00 00 C2 02 00 00 00 02 ................
000130: 00 00 C7 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000140: 00 00 C8 02 00 00 00 02 00 00 C4 02 00 00 00 02 ................
000150: 00 00 C9 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 43 4F 42 4F 4C 20 20 20 43 4F 4D 00 00 00 70 .COBOL COM...p
000210: 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 00 00 ................
000220: 00 43 4F 42 4F 4C 20 20 20 4F 56 52 00 00 00 6E .COBOL OVR...n
000230: 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 00 00 ................
000240: 00 43 4F 42 4F 4C 2D 31 20 44 4F 43 00 00 00 66 .COBOL-1 DOC...f
000250: 1E 1F 20 21 22 23 24 25 26 27 28 29 2A 00 00 00 .. !"#$%&'()*...
000260: 00 43 4F 42 4F 4C 2D 32 20 44 4F 43 00 00 00 46 .COBOL-2 DOC...F
000270: 2B 2C 2D 2E 2F 30 31 32 33 00 00 00 00 00 00 00 +,-./0123.......
000280: 00 43 4F 42 4F 4C 2D 33 20 44 4F 43 00 00 00 67 .COBOL-3 DOC...g
000290: 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 00 00 00 456789:;<=>?@...
0002A0: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 1E .DISC BAS....
0002B0: 41 42 43 44 00 00 00 00 00 00 00 00 00 00 00 00 ABCD............
0002C0: 00 44 49 53 43 20 20 20 20 44 4F 43 00 00 00 23 .DISC DOC...#
0002D0: 45 46 47 48 49 00 00 00 00 00 00 00 00 00 00 00 EFGHI...........
0002E0: 00 45 58 45 43 20 20 20 20 43 4F 4D 00 00 00 3E .EXEC COM...>
0002F0: 4A 4B 4C 4D 4E 4F 50 51 00 00 00 00 00 00 00 00 JKLMNOPQ........
000300: 00 45 58 45 43 20 20 20 20 4F 56 52 00 00 00 61 .EXEC OVR...a
000310: 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 00 00 00 RSTUVWXYZ[\]^...
000320: 00 53 45 52 49 45 53 20 20 50 54 31 00 00 00 63 .SERIES PT1...c
000330: 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 00 00 00 _`abcdefghijk...
000340: 00 53 45 52 49 45 53 20 20 50 54 32 00 00 00 73 .SERIES PT2...s
000350: 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 00 lmnopqrstuvwxyz.
000360: 00 53 45 52 49 45 53 20 20 50 54 33 00 00 00 7D .SERIES PT3...}
000370: 7B 7C 7D 7E 7F 80 81 82 83 84 85 86 87 88 89 8A {|}~............
000380: 00 53 45 52 49 45 53 20 20 50 54 34 00 00 00 6C .SERIES PT4...l
000390: 8B 8C 8D 8E 8F 90 91 92 93 94 95 96 97 98 00 00 ................
0003A0: 00 53 45 52 49 45 53 20 20 50 54 35 00 00 00 7A .SERIES PT5...z
0003B0: 99 9A 9B 9C 9D 9E 9F A0 A1 A2 A3 A4 A5 A6 A7 A8 ..........£.....
0003C0: 00 4E 4F 54 45 2D 31 20 20 44 4F 43 00 00 00 07 .NOTE-1 DOC....
0003D0: A9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0003E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0003F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000400: 01 02 03 04 05 06 07 08 04 04 09 04 09 04 0A 04 ................
000410: 0B 09 75 04 0C 0D 0D 09 0E 0F 10 0D 11 13 09 15 ..u.............
000420: 16 1A 1B 20 22 23 09 09 0D 0D 24 25 26 28 29 2A ... "#....$%&()*
000430: 2B 2C 2D 2E 2F 0D 30 24 31 0D 32 33 34 35 36 37 +,-./.0$1.234567
000440: 38 39 3C 3D 3E 3F 40 41 45 48 49 4A 4B 4C 4D 4E 89<=>?@AEHIJKLMN
000450: 4F 50 52 54 56 58 5A 5C 5E 5F 61 62 63 64 65 41 OPRTVXZ\^_abcdeA
000460: 66 08 0D 67 69 69 0C 6F 70 71 75 09 09 09 01 03 f..gii.opqu.....
000470: 05 08 0A 0C 0E 10 12 14 16 18 1A 1C 1E 20 22 24 ............. "$
000480: 26 28 2A 2C 2E 30 32 34 36 38 C9 A1 F4 F6 F6 CE &(*,.02468......
000490: A5 A3 A7 DB AB AE E2 B0 BF E4 D9 C1 01 02 03 04 .£..............
0004A0: 04 05 05 06 06 07 07 08 08 0F 0F 10 11 11 12 12 ................
0004B0: 13 13 14 16 16 17 17 17 19 19 19 1A 1A 1B 1B 1C ................
0004C0: 1C 1D 1D 1E 20 20 22 23 23 24 24 25 27 27 28 28 .... "##$$%''((
0004D0: 29 29 29 29 29 2B 2B 2C 2C 2D 2D 2E 2E 31 35 35 )))))++,,--..155
0004E0: 36 36 37 37 38 38 39 39 39 39 39 39 39 39 39 39 6677889999999999
0004F0: 39 3B 3B 3B 3C 3C 3E 3E 3E 3E 3E 3F 44 00 01 01 9;;;<<>>>>>?D...
000500: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 ................
000510: 01 01 01 01 01 01 01 01 01 01 02 02 01 01 04 01 ................
000520: 05 02 01 01 01 01 01 01 01 01 02 01 01 01 01 01 ................
000530: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 03 ................
000540: 01 01 01 01 01 04 03 01 01 01 01 01 01 01 01 02 ................
000550: 02 02 02 02 02 02 01 02 01 01 01 01 01 04 01 01 ................
000560: 01 02 06 06 01 01 01 04 02 01 01 01 02 02 03 02 ................
000570: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ................
000580: 02 02 02 02 02 02 02 02 05 06 1E 2B 38 48 4A 4B ...........+8HJK
000590: 4C 4D 51 54 59 5E 5F 66 69 6B 03 07 03 03 00 03 LMQTY^_fik......
0005A0: 00 03 00 03 00 00 01 07 00 08 01 00 06 00 00 01 ................
0005B0: 03 00 01 01 02 01 00 00 00 00 00 01 00 02 00 00 ................
0005C0: 01 02 00 01 05 03 00 00 01 04 00 00 00 01 02 01 ................
0005D0: 02 02 02 00 02 03 00 03 00 00 01 04 00 00 01 00 ................
0005E0: 00 00 00 01 01 01 01 01 01 02 02 03 01 01 01 00 ................
0005F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 01 04 05 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: 0F 16 21 28 2E 31 33 35 3A 3C 3D 46 44 4F 46 54 ..!(.135:<=FDOFT
000810: 4F 50 49 43 43 4F 4D 50 44 41 54 41 46 49 4C 45 OPICCOMPDATAFILE
000820: 4C 45 46 54 4D 4F 44 45 53 41 4D 45 53 49 47 4E LEFTMODESAMESIGN
000830: 53 59 4E 43 5A 45 52 4F 42 4C 4F 43 4B 4C 41 42 SYNCZEROBLOCKLAB
000840: 45 4C 51 55 4F 54 45 52 49 47 48 54 53 50 41 43 ELQUOTERIGHTSPAC
000850: 45 55 53 41 47 45 56 41 4C 55 45 41 43 43 45 53 EUSAGEVALUEACCES
000860: 53 41 53 53 49 47 4E 41 55 54 48 4F 52 43 4F 4D SASSIGNAUTHORCOM
000870: 50 2D 33 46 49 4C 4C 45 52 4F 43 43 55 52 53 52 P-3FILLEROCCURSR
000880: 41 4E 44 4F 4D 52 45 43 4F 52 44 53 45 4C 45 43 ANDOMRECORDSELEC
000890: 54 44 49 53 50 4C 41 59 49 4E 44 45 58 45 44 4C TDISPLAYINDEXEDL
0008A0: 45 41 44 49 4E 47 4C 49 4E 4B 41 47 45 4F 4D 49 EADINGLINKAGEOMI
0008B0: 54 54 45 44 52 45 43 4F 52 44 53 53 45 43 54 49 TTEDRECORDSSECTI
0008C0: 4F 4E 44 49 56 49 53 49 4F 4E 52 45 4C 41 54 49 ONDIVISIONRELATI
0008D0: 56 45 53 45 43 55 52 49 54 59 53 45 50 41 52 41 VESECURITYSEPARA
0008E0: 54 45 53 54 41 4E 44 41 52 44 54 52 41 49 4C 49 TESTANDARDTRAILI
0008F0: 4E 47 44 45 42 55 47 47 49 4E 47 50 52 4F 43 45 NGDEBUGGINGPROCE
000900: 44 55 52 45 52 45 44 45 46 49 4E 45 53 50 52 4F DUREREDEFINESPRO
000910: 47 52 41 4D 2D 49 44 53 45 51 55 45 4E 54 49 41 GRAM-IDSEQUENTIA
000920: 4C 45 4E 56 49 52 4F 4E 4D 45 4E 54 49 2D 4F 2D LENVIRONMENTI-O-
000930: 43 4F 4E 54 52 4F 4C 44 41 54 45 2D 57 52 49 54 CONTROLDATE-WRIT
000940: 54 45 4E 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 49 TENFILE-CONTROLI
000950: 4E 50 55 54 2D 4F 55 54 50 55 54 49 4E 53 54 41 NPUT-OUTPUTINSTA
000960: 4C 4C 41 54 49 4F 4E 4F 52 47 41 4E 49 5A 41 54 LLATIONORGANIZAT
000970: 49 4F 4E 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C IONCOMPUTATIONAL
000980: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 49 44 45 CONFIGURATIONIDE
000990: 4E 54 49 46 49 43 41 54 49 4F 4E 4F 42 4A 45 43 NTIFICATIONOBJEC
0009A0: 54 2D 43 4F 4D 50 55 54 45 52 53 4F 55 52 43 45 T-COMPUTERSOURCE
0009B0: 2D 43 4F 4D 50 55 54 45 52 57 4F 52 4B 49 4E 47 -COMPUTERWORKING
0009C0: 2D 53 54 4F 52 41 47 45 00 00 03 01 09 07 09 07 -STORAGE........
0009D0: 06 03 02 02 05 02 01 03 20 20 20 20 20 20 50 52 ........ PR
0009E0: 4F 43 45 44 55 52 45 64 0A 43 42 4C 57 52 24 0D OCEDUREd.CBLWR$.
0009F0: 0A 24 4E 50 53 20 4D 49 43 52 4F 2D 43 4F 42 4F .$NPS MICRO-COBO
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: 4C 20 43 4F 4D 50 49 4C 45 52 20 56 45 52 53 49 L COMPILER VERSI
000C10: 4F 4E 20 32 2E 31 0D 0A 0A 24 20 45 52 52 4F 52 ON 2.1...$ ERROR
000C20: 20 4E 45 41 52 20 24 31 11 32 2A 14 32 E5 2A 23 NEAR $1.2*.2.*#
000C30: 32 44 4D 11 FF 00 CD 19 0C 21 06 00 22 82 34 4E 2DM......!..".4N
000C40: 23 46 0B 60 69 22 16 32 60 69 22 D4 32 CD 7A 10 #F.`i".2`i".2.z.
000C50: CD 9D 11 3A 90 34 1F D2 25 09 3E 6E 21 EA 34 BE ...:.4..%.>n!.4.
000C60: DA 37 08 CD 27 30 2A E9 34 26 00 01 EB 34 09 0B .7..'0*.4&...4..
000C70: 0A 77 CD 4A 30 CD 11 30 32 DB 34 CD 1C 30 21 DB .w.J0..02.4..0!.
000C80: 34 86 3D 23 77 3A DB 34 32 DB 34 3A DC 34 21 DB 4.=#w:.42.4:.4!.
000C90: 34 BE DA 34 08 2A DB 34 26 00 01 03 01 09 3A 6A 4..4.*.4&.....:j
000CA0: 34 BE C2 04 08 3A 6A 34 D6 21 D6 01 9F F5 3A 6A 4....:j4.!....:j
000CB0: 34 D6 0F D6 01 9F C1 48 B1 1F D2 E9 07 21 DD 34 4......H.....!.4
000CC0: 36 00 3A D9 33 21 DD 34 BE DA E9 07 2A DD 34 26 6.:.3!.4....*.4&
000CD0: 00 01 D9 33 09 E5 2A DD 34 26 00 01 6A 35 09 D1 ...3..*.4&..j5..
000CE0: 1A 77 21 DD 34 34 C2 C2 07 2A DB 34 26 00 01 01 .w!.44...*.4&...
000CF0: 02 09 7E 32 EA 34 21 E0 34 36 01 3A DC 34 32 DB ..~2.4!.46.:.42.
000D00: 34 C3 2D 08 21 DC 34 3A DB 34 BE C2 2D 08 01 50 4.-.!.4:.4..-..P
000D10: 4E CD 34 0A 01 1A 07 CD 9A 09 CD EE 0F CD CC 30 N.4............0
000D20: 32 EA 34 FE 00 C2 2D 08 21 90 34 36 00 21 DB 34 2.4...-.!.46.!.4
000D30: 34 C2 8B 07 C3 22 09 3E 9C 21 EA 34 BE D2 BF 08 4....".>.!.4....
000D40: CD 1C 30 4F 3A E9 34 91 32 DE 34 3A DE 34 3C 32 ..0O:.4.2.4:.4<2
000D50: DF 34 3A EA 34 D6 9C 4F CD B4 2A 3A DE 34 32 E9 .4:.4..O..*:.42.
000D60: 34 CD 11 30 32 DB 34 2A E9 34 26 00 01 EB 34 09 4..02.4*.4&...4.
000D70: 7E 32 DC 34 2A DB 34 26 00 01 B4 01 09 7E 32 DD ~2.4*.4&.....~2.
000D80: 34 D6 00 C6 FF 9F 21 DD 34 F5 3A DC 34 96 C6 FF 4.....!.4.:.4...
000D90: 9F C1 48 A1 1F D2 9F 08 21 DB 34 34 C3 74 08 2A ..H.....!.44.t.*
000DA0: DB 34 26 00 01 B2 02 09 7E 32 DD 34 FE 00 C2 B6 .4&.....~2.4....
000DB0: 08 21 90 34 36 00 3A DD 34 32 EA 34 C3 22 09 3E .!.46.:.42.4.".>
000DC0: 8A 21 EA 34 BE DA 0C 09 CD 11 30 32 DB 34 CD 4A .!.4......02.4.J
000DD0: 30 2A DB 34 26 00 01 7A 01 09 7E 32 DD 34 D6 00 0*.4&..z..~2.4..
000DE0: C6 FF 9F 21 DD 34 F5 3A 6A 34 96 C6 FF 9F C1 48 ...!.4.:j4.....H
000DF0: A1 1F D2 FC 08 21 DB 34 34 C3 D1 08 2A DB 34 26 .....!.44...*.4&
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: 00 01 78 02 09 7E 32 EA 34 C3 22 09 CD 27 30 CD ..x..~2.4."..'0.
001010: 1C 30 2A E9 34 26 00 01 EB 34 09 77 CD 11 30 32 .0*.4&...4.w..02
001020: EA 34 C3 53 07 CD 12 31 FB 76 21 8D 33 71 2A 8D .4.S...1.v!.3q*.
001030: 33 26 00 EB 0E 02 CD 05 00 C9 21 91 33 72 2B 73 3&........!.3r+s
001040: 2B 70 2B 71 2A 8E 33 EB 0E 1A CD 05 00 2A 90 33 +p+q*.3......*.3
001050: EB 0E 15 CD 05 00 FE 00 CA 66 09 11 EC 06 0E 09 .........f......
001060: CD 05 00 CD 00 00 11 80 00 0E 1A CD 05 00 C9 21 ...............!
001070: 92 33 71 2A D2 32 23 22 D2 32 11 89 33 CD D3 31 .3q*.2#".2..3..1
001080: D2 92 09 11 B0 32 01 30 32 CD 3A 09 21 30 32 22 .....2.02.:.!02"
001090: D2 32 2A D2 32 3A 92 33 77 C9 21 94 33 70 2B 71 .2*.2:.3w.!.3p+q
0010A0: 2A 93 33 22 95 33 2A 95 33 7E FE 24 CA C0 09 2A *.3".3*.3~.$...*
0010B0: 95 33 4E CD 6F 09 2A 95 33 23 22 95 33 C3 A6 09 .3N.o.*.3#".3...
0010C0: 2A 93 33 EB 0E 09 CD 05 00 C9 11 EF 06 0E 09 CD *.3.............
0010D0: 05 00 C9 0E 0D CD 6F 09 0E 0A CD 6F 09 C9 21 98 ......o....o..!.
0010E0: 33 70 2B 71 21 99 33 36 04 2A 99 33 26 00 EB 2A 3p+q!.36.*.3&..*
0010F0: 97 33 19 7E 3C 77 FE 3A C2 33 0A 2A 99 33 26 00 .3.~<w.:.3.*.3&.
001100: EB 2A 97 33 19 36 30 3E 00 21 99 33 BE D2 30 0A .*.3.60>.!.3..0.
001110: 3A 99 33 3D 32 99 33 4F 06 00 2A 97 33 09 7E FE :.3=2.3O..*.3.~.
001120: 20 C2 30 0A 2A 99 33 26 00 EB 2A 97 33 19 36 30 .0.*.3&..*.3.60
001130: C3 E9 09 C9 21 9B 33 70 2B 71 3E 00 11 9A 33 CD ....!.3p+q>...3.
001140: D0 31 B5 C2 73 0A 21 9C 33 36 00 3E 05 21 9C 33 .1..s.!.36.>.!.3
001150: BE DA 6B 0A 2A 9C 33 26 00 01 9D 33 29 09 3E 00 ..k.*.3&...3).>.
001160: 77 23 36 00 60 69 2B 34 C2 4B 0A 21 9C 33 36 00 w#6.`i+4.K.!.36.
001170: C3 A9 0B 3E 01 11 9A 33 CD D0 31 B5 C2 0F 0B 21 ...>...3..1....!
001180: 9C 33 36 00 3A 9C 33 D6 06 C6 FF 9F 2A 9C 33 26 .36.:.3.....*.3&
001190: 00 01 9D 33 29 09 F5 3E 00 CD DB 31 B5 C6 FF 9F ...3)..>...1....
0011A0: C1 48 A1 1F D2 02 0B 2A 9C 33 26 00 01 9D 33 29 .H.....*.3&...3)
0011B0: 09 23 7E 4F CD 2A 09 2A 9C 33 26 00 01 9D 33 29 .#~O.*.*.3&...3)
0011C0: 09 6E 4D CD 2A 09 2A 9C 33 26 00 01 9D 33 29 09 .nM.*.*.3&...3).
0011D0: 23 7E 4F CD 6F 09 2A 9C 33 26 00 01 9D 33 29 09 #~O.o.*.3&...3).
0011E0: 6E 4D CD 6F 09 CD CA 09 CD D3 09 2A 9C 33 26 00 nM.o.......*.3&.
0011F0: 01 9D 33 29 09 3E 00 77 23 36 00 60 69 2B 34 C3 ..3).>.w#6.`i+4.
001200: C3 27 07 00 3D 32 3C 21 08 19 3F 02 21 37 3E 0B .'..=2<!..?.!7>.
001210: 21 21 29 28 24 2E 09 13 27 06 1A 22 3B 03 0E 0F !!)($...'..";...
001220: 12 14 21 1D 33 21 01 2C 28 26 2D 01 01 01 01 01 ..!.3!.,(&-.....
001230: 01 01 01 01 0A 01 29 01 01 01 28 01 23 2A 33 28 ......)...(.#*3(
001240: 29 01 01 28 10 11 16 1E 17 18 3A 36 39 2B 25 30 )..(......:69+%0
001250: 01 07 34 01 21 01 21 21 2F 01 21 01 21 01 21 01 ..4.!.!!/.!.!.!.
001260: 21 31 1B 21 27 04 23 38 2A 01 01 21 05 0C 0D 15 !1.!'.#8*..!....
001270: 16 1C 01 40 01 17 18 3A 1F 35 00 08 00 19 00 09 ...@...:.5......
001280: 13 00 2C 00 2C 00 01 00 36 00 39 00 2B 00 25 00 ..,.,...6.9.+.%.
001290: 34 00 01 00 31 00 04 00 23 00 38 00 2A 00 01 00 4...1...#.8.*...
0012A0: 02 00 21 00 01 00 01 00 0B 00 40 00 07 00 21 00 ..!.......@...!.
0012B0: 21 00 21 00 00 00 00 00 00 00 00 00 09 0A 0C 0E !.!.............
0012C0: 10 14 00 00 00 00 00 00 6B 00 00 6A 00 00 00 00 ........k..j....
0012D0: 00 00 67 00 1C 00 00 00 00 62 00 00 00 60 00 00 ..g......b...`..
0012E0: 00 00 0D 12 00 6C 6D 6E 00 00 00 00 00 65 00 00 .....lmn.....e..
0012F0: 38 00 00 18 1F 27 28 00 16 29 2A 36 3A 5A 63 64 8....'(..)*6:Zcd
001300: 00 00 44 3B 43 A8 1B 26 46 16 FC 3F 45 1C FD E7 ..D;C..&F..?E...
001310: 35 2F 72 73 F2 F3 2D E8 E9 EB EA 17 F9 F8 FB FA 5/rs..-.........
001320: F7 BD BC B8 09 F5 31 D4 D3 07 08 0B 0D 0F 02 03 ......1.........
001330: 6F 10 AD 04 34 15 0E 13 32 0C BB BA B9 2E 33 14 o...4...2.....3.
001340: 0A 30 1F 20 22 28 24 25 42 3E 41 37 2C 9D 11 1A .0. "($%B>A7,...
001350: 3C 70 A9 A0 A9 A9 39 A2 A9 A4 A9 A6 A9 AC A9 3A <p....9........:
001360: E0 FD D1 18 2A 40 36 DE C4 FD 19 1D 71 21 23 27 ....*@6.....q!#'
001370: 12 47 B3 24 25 42 29 3D 00 05 8B 06 8C 1E 1E 8D .G.$%B)=........
001380: 2B 8E 38 8F 90 48 4A 91 4B 92 4C 93 4D 94 51 95 +.8..HJ.K.L.M.Q.
001390: 96 54 59 97 5C D6 5D EF 5E 98 5F 99 CD 60 62 C8 .TY.\.].^._..`b.
0013A0: 63 D5 E3 65 9A 66 67 C0 69 9B 9C 6B 6C D8 6D DA c..e.fg.i..kl.m.
0013B0: 6E CC 00 00 79 9E 76 75 77 9F 53 7A 55 56 57 58 n...y.vuw.SzUVWX
0013C0: 52 50 7E 4F AA 87 B2 B1 6A B5 B4 B6 7F B7 AF 85 RP~O....j.......
0013D0: C3 C2 64 82 4E 86 81 CB CA 68 80 D0 CF D2 78 C7 ..d.N....h....x.
0013E0: 89 8A 88 DD DD DD DC 7B 84 61 83 E6 E5 F0 ED EC .......{.a......
0013F0: F1 D7 5B 7D 7C 5A 74 49 EE BE E1 DF C6 C6 C5 00 ..[}|ZtI........
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 01 00 02 09 52 E5 01 00 C1 02 00 00 00 02 ......R.........
001420: 01 00 C6 02 00 00 00 02 01 00 C2 02 00 00 00 02 ................
001430: 01 00 C7 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001440: 01 00 C8 02 00 00 00 02 01 00 C4 02 00 00 00 02 ................
001450: 01 00 C9 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 84 0A 21 9C 33 36 00 21 11 32 36 00 C3 A9 0B 01 ..!.36.!.26.....
001510: 50 4E 11 9A 33 CD C8 31 B5 D6 01 9F 01 4C 53 1B PN..3..1.....LS.
001520: F5 CD C8 31 B5 D6 01 9F C1 48 B1 01 56 4E 1B F5 ...1.....H..VN..
001530: CD C8 31 B5 D6 01 9F C1 48 B1 1F D2 7F 0B 21 11 ..1.....H.....!.
001540: 32 36 01 2A 9A 33 7C 4F CD 2A 09 2A 9A 33 7D 4F 26.*.3|O.*.*.3}O
001550: CD 2A 09 2A 9A 33 7C 4F CD 6F 09 2A 9A 33 7D 4F .*.*.3|O.o.*.3}O
001560: CD 6F 09 01 26 32 CD DE 09 01 50 4E 11 9A 33 CD .o..&2....PN..3.
001570: C8 31 B5 CA 7C 0B CD CA 09 CD D3 09 C3 A9 0B 21 .1..|..........!
001580: 11 32 36 01 3A 9C 33 FE 06 CA A3 0B 2A 9C 33 26 .26.:.3...£.*.3&
001590: 00 01 9D 33 29 09 E5 2A 9A 33 EB E1 73 23 72 60 ...3)..*.3..s#r`
0015A0: 69 2B 34 01 26 32 CD DE 09 C9 21 AA 33 70 2B 71 i+4.&2....!.3p+q
0015B0: 2A A9 33 44 4D CD 34 0A 01 01 00 CD 34 0A CD 00 *.3DM.4.....4...
0015C0: 00 C9 2A 87 33 EB 0E 0F CD 05 00 FE FF C2 D6 0B ..*.3...........
0015D0: 01 50 4F CD AA 0B C9 2A 87 33 EB 0E 14 CD 05 00 .PO....*.3......
0015E0: 32 AB 33 4F 3E 01 B9 D2 F0 0B 01 52 42 CD AA 0B 2.3O>......RB...
0015F0: 3A AB 33 2F C9 21 AD 33 70 2B 71 2A AC 33 EB 0E :.3/.!.3p+q*.3..
001600: 13 CD 05 00 2A AC 33 EB 0E 16 CD 05 00 FE FF C2 ....*.3.........
001610: 18 0C 01 41 4D CD AA 0B C9 21 B3 33 72 2B 73 2B ...AM....!.3r+s+
001620: 70 2B 71 2B D1 C1 70 2B 71 D5 2A B2 33 2B 22 B2 p+q+..p+q.*.3+".
001630: 33 11 FF FF CD B2 31 B5 CA 56 0C 2A AE 33 E5 2A 3.....1..V.*.3.*
001640: B0 33 C1 0A 77 2A AE 33 23 22 AE 33 2A B0 33 23 .3..w*.3#".3*.3#
001650: 22 B0 33 C3 2A 0C C9 21 B8 33 72 2B 73 2B 71 2B ".3.*..!.3r+s+q+
001660: D1 C1 70 2B 71 D5 2A B7 33 2B 22 B7 33 11 FF FF ..p+q.*.3+".3...
001670: CD B2 31 B5 CA 88 0C 2A B4 33 3A B6 33 77 2A B4 ..1....*.3:.3w*.
001680: 33 23 22 B4 33 C3 66 0C C9 3A 69 34 1F D2 9B 0C 3#".3.f..:i4....
001690: 21 69 34 36 00 2B 7E 32 0E 34 C9 2A 7E 33 23 22 !i46.+~2.4.*~3#"
0016A0: 7E 33 EB 21 0C 34 CD DE 31 DA C8 0C CD D7 0B 1F ~3.!.4..1.......
0016B0: DA C2 0C 21 C0 36 22 0C 34 21 D8 06 22 7E 33 C3 ...!.6".4!.."~3.
0016C0: C8 0C 21 80 00 22 7E 33 2A 7E 33 7E FE 1A C2 DD ..!.."~3*~3~....
0016D0: 0C 21 C0 36 22 0C 34 21 D8 06 22 7E 33 2A 7E 33 .!.6".4!.."~3*~3
0016E0: 7E 32 0E 34 C9 CD 89 0C 32 0E 34 C9 21 6B 34 36 ~2.4....2.4.!k46
0016F0: 01 3A 0F 34 21 6B 34 BE DA 32 0D 3A 11 32 21 D1 .:.4!k4..2.:.2!.
001700: 15 2A B2 35 5E 23 56 EB 22 7B 34 C9 C3 D6 14 2A .*.5^#V."{4....*
001710: B2 35 5E 23 56 EB 22 B2 35 C3 4F 14 C9 21 B7 35 .5^#V.".5.O..!.5
001720: 70 2B 71 2A D6 32 22 B8 35 E5 2A B6 35 C1 09 22 p+q*.2".5.*.5.."
001730: D6 32 11 D4 32 CD D3 31 D2 41 15 01 4F 4D CD AA .2..2..1.A..OM..
001740: 0B 2A B8 35 C9 21 BA 35 71 3E 39 21 BA 35 96 9F .*.5.!.5q>9!.5..
001750: 2F F5 7E D6 30 9F 2F C1 48 A1 C9 21 BE 35 72 2B /.~.0./.H..!.5r+
001760: 73 2B 70 2B 71 2A BB 35 22 E2 34 2A BD 35 22 E4 s+p+q*.5".4*.5".
001770: 34 21 E1 34 36 01 C9 2A DA 34 26 00 01 C6 34 29 4!.46..*.4&...4)
001780: 09 5E 23 56 EB 22 7B 34 C9 CD 77 15 CD 0D 12 C9 .^#V."{4..w.....
001790: 3E 00 11 C6 34 CD D0 31 B5 CA 15 16 3A E9 34 3D >...4..1....:.4=
0017A0: 3D 4F 06 00 21 18 35 09 09 3E 00 CD DB 31 B5 C2 =O..!.5..>...1..
0017B0: C4 15 CD 77 15 CD 56 12 E5 CD DA 11 C1 09 22 BF ...w..V.......".
0017C0: 35 C3 F9 15 3A 86 33 1F D2 F6 15 2A DA 34 26 00 5...:.3....*.4&.
0017D0: 01 C6 34 29 09 11 E2 34 CD C5 31 B5 CA F6 15 01 ..4)...4..1.....
0017E0: 31 52 CD 34 0A 2A DA 34 26 00 01 C6 34 29 09 5E 1R.4.*.4&...4).^
0017F0: 23 56 EB 22 E2 34 CD 83 16 3A DA 34 3C 32 DA 34 #V.".4...:.4<2.4
001800: 4F 3E 09 B9 D2 12 16 01 4C 45 CD 34 0A 21 DA 34 O>......LE.4.!.4
001810: 36 09 C3 1B 16 2A D6 32 22 BF 35 2A DF 34 26 00 6....*.2".5*.4&.
001820: 01 18 35 29 09 5E 23 56 EB 22 7B 34 2A DA 34 26 ..5).^#V."{4*.4&
001830: 00 01 C6 34 29 09 EB 2B 4E 23 46 EB 71 23 70 01 ...4)..+N#F.q#p.
001840: 7E 34 11 7B 34 CD C3 31 B5 C6 FF 9F 13 F5 1A D6 ~4.{4..1........
001850: 00 C6 FF 9F C1 48 A1 1F D2 5E 16 CD CE 12 CD 0D .....H...^......
001860: 12 D6 01 D6 01 9F F5 3A 86 33 2F C1 48 A1 1F D2 .......:.3/.H...
001870: 7A 16 2A 80 34 44 4D CD 62 12 2A BF 35 44 4D CD z.*.4DM.b.*.5DM.
001880: C3 11 C9 2A E2 34 22 7B 34 CD DA 11 22 BF 35 C9 ...*.4"{4...".5.
001890: 3A E1 34 1F D2 43 17 01 7B 34 11 E4 34 CD C3 31 :.4..C..{4..4..1
0018A0: B5 C2 40 17 CD 56 12 22 C1 35 CD 0D 12 32 C8 35 ..@..V.".5...2.5
0018B0: 2A E2 34 22 7B 34 CD 56 12 22 C3 35 11 C1 35 CD *.4"{4.V.".5..5.
0018C0: D3 31 B5 CA 40 17 3A C8 35 D6 01 D6 01 9F F5 3A .1..@.:.5......:
0018D0: 86 33 2F C1 48 A1 1F D2 04 17 2A 80 34 22 7B 34 .3/.H.....*.4"{4
0018E0: 0E 04 CD ED 11 11 C3 35 01 C1 35 CD C3 31 D2 FC .......5..5..1..
0018F0: 16 2A C1 35 44 4D CD 3F 12 C3 04 17 2A C3 35 44 .*.5DM.?....*.5D
001900: 32 B6 1F D2 13 0D 2A 6B 34 26 00 01 0F 34 09 4E 2.....*k4&...4.N
001910: CD 2A 09 3A 11 32 21 83 33 B6 1F D2 2B 0D 2A 6B .*.:.2!.3...+.*k
001920: 34 26 00 01 0F 34 09 4E CD 6F 09 21 6B 34 34 C2 4&...4.N.o.!k44.
001930: F1 0C 01 0F 34 CD DE 09 21 0F 34 36 05 C9 3A 0F ....4...!.46..:.
001940: 34 FE 57 D2 58 0D 3A 0F 34 3C 32 0F 34 4F 06 00 4.W.X.:.4<2.4O..
001950: 21 0F 34 09 3A 0E 34 77 CD E5 0C C9 3A D9 33 FE !.4.:.4w....:.3.
001960: 32 D2 76 0D 3A D9 33 3C 32 D9 33 4F 06 00 21 D9 2.v.:.3<2.3O..!.
001970: 33 09 3A 0E 34 77 CD 3E 0D C9 3A 0E 34 FE 0D CA 3.:.4w.>..:.4...
001980: 88 0D CD 3E 0D C3 7A 0D C9 3A 0E 34 D6 20 D6 01 ...>..z..:.4. ..
001990: 9F F5 3A 0E 34 D6 09 D6 01 9F C1 48 B1 1F D2 A7 ..:.4......H....
0019A0: 0D CD 3E 0D C3 53 0E 3A 0E 34 FE 0D C2 52 0E 3A ..>..S.:.4...R.:
0019B0: 67 34 1F D2 C1 0D 21 67 34 36 00 CD E5 0C C3 D0 g4....!g46......
0019C0: 0D CD 3E 0D CD 3E 0D CD EC 0C 01 01 00 CD 34 0A ..>..>........4.
0019D0: 3A 0E 34 FE 0D C2 E4 0D CD 3E 0D CD 3E 0D CD EC :.4......>..>...
0019E0: 0C C3 D0 0D 3A 82 33 1F D2 03 0E 21 6C 34 36 01 ....:.3....!l46.
0019F0: 3E 06 21 6C 34 BE DA 03 0E CD 3E 0D 21 6C 34 34 >.!l4.....>.!l44
001A00: C2 F0 0D 3A 0E 34 FE 2A C2 11 0E CD 7A 0D C3 4F ...:.4.*....z..O
001A10: 0E 3A 0E 34 FE 2F C2 37 0E 3A D1 32 1F D2 25 0E .:.4./.7.:.2..%.
001A20: 0E 0C CD 2A 09 3A 83 33 1F D2 31 0E 0E 0C CD 6F ...*.:.3..1....o
001A30: 09 CD 7A 0D C3 4F 0E 3A 0E 34 FE 3A C2 4F 0E 3A ..z..O.:.4.:.O.:
001A40: 25 32 1F DA 4C 0E CD 7A 0D C3 4F 0E CD 3E 0D C3 %2..L..z..O..>..
001A50: 53 0E C9 C3 89 0D C9 3A 0E 34 D6 20 D6 01 9F F5 S......:.4. ....
001A60: 3A 0E 34 D6 0D D6 01 9F C1 48 B1 F5 3A 0E 34 D6 :.4......H..:.4.
001A70: 09 D6 01 9F C1 48 B1 C9 3A 0E 34 FE 2E CA 83 0E .....H..:.4.....
001A80: 3E 00 C9 CD 89 0C 32 68 34 21 69 34 36 01 CD 57 >.....2h4!i46..W
001A90: 0E 1F D2 9D 0E 21 0E 34 36 2E 3E 01 C9 21 0E 34 .....!.46.>..!.4
001AA0: 36 2E 3E 00 C9 CD 57 0E F5 CD 78 0E C1 48 B1 C9 6.>...W...x..H..
001AB0: CD 3E 0D 3A 0E 34 FE 27 C2 C1 0E CD 3E 0D 3E 0F .>.:.4.'....>.>.
001AC0: C9 CD 5C 0D C3 B3 0E C9 2A D9 33 26 00 01 B9 33 ..\.....*.3&...3
001AD0: 29 09 11 0B 05 CD 66 31 22 6D 34 21 6F 34 36 01 ).....f1"m4!o46.
001AE0: 2A D9 33 26 00 01 C8 06 09 7E 21 6F 34 BE DA 0F *.3&.....~!o4...
001AF0: 0F CD 12 0F 1F D2 FC 0E 3A 6F 34 C9 3A D9 33 11 ........:o4.:.3.
001B00: 4D CD 3F 12 11 C3 35 01 C1 35 CD C3 31 D2 40 17 M.?...5..5..1.@.
001B10: 3A C8 35 FE 01 C2 2C 17 01 C3 35 11 C1 35 CD C3 :.5...,...5..5..
001B20: 31 44 4D CD 1D 15 22 C5 35 C3 40 17 01 32 52 CD 1DM...".5.@..2R.
001B30: 34 0A 2A E4 34 22 7B 34 2A C1 35 44 4D CD 3F 12 4.*.4"{4*.5DM.?.
001B40: C3 4C 17 3A E6 34 FE 00 C2 4C 17 C9 3A DA 34 11 .L.:.4...L..:.4.
001B50: E7 34 CD D0 31 B5 C6 FF 9F 21 68 35 B6 1F D2 62 .4..1....!h5...b
001B60: 17 C9 3A E6 34 FE 00 CA 79 17 CD DA 11 E5 CD 56 ..:.4...y......V
001B70: 12 22 C1 35 EB C1 CD A9 13 3E 02 21 E6 34 BE D2 .".5.....>.!.4..
001B80: BE 17 3A E6 34 FE 03 C2 92 17 21 C7 35 36 30 C3 ..:.4.....!.560.
001B90: AF 17 3A E6 34 FE 04 C2 A2 17 21 C7 35 36 20 C3 ..:.4.....!.56 .
001BA0: AF 17 3A E6 34 FE 05 C2 AF 17 21 C7 35 36 27 2A ..:.4.....!.56'*
001BB0: C1 35 44 4D 2A C7 35 EB CD 7A 13 C3 93 1A 3A E6 .5DM*.5..z....:.
001BC0: 34 FE 02 C2 FE 17 3A 91 34 21 C1 35 CD DB 31 DA 4.....:.4!.5..1.
001BD0: DF 17 2A C1 35 EB 01 92 34 CD 2B 13 C3 FB 17 2A ..*.5...4.+....*
001BE0: 91 34 26 00 EB 01 92 34 CD 2B 13 3A 91 34 11 C1 .4&....4.+.:.4..
001BF0: 35 CD D0 31 44 4D 1E 20 CD 7A 13 C3 93 1A 3A E6 5..1DM. .z....:.
001C00: 34 FE 01 C2 93 1A CD E6 11 32 D0 35 D6 10 9F F5 4........2.5....
001C10: 3E 15 21 D0 35 96 9F C1 48 B1 1F D2 24 18 01 56 >.!.5...H...$..V
001C20: 4E CD 34 0A CD 56 12 EB 21 CE 35 73 CD 26 12 4F N.4..V..!.5s.&.O
001C30: 3A CE 35 91 32 CD 35 3A D0 35 FE 14 C2 43 18 21 :.5.2.5:.5...C.!
001C40: CD 35 35 3A 91 34 32 CA 35 3C 32 C9 35 21 CF 35 .55:.42.5<2.5!.5
001C50: 36 2B 3A 92 34 FE 2D C2 5F 18 21 CF 35 36 2D 21 6+:.4.-._.!.56-!
001C60: CB 35 36 01 3A CA 35 21 CB 35 BE DA 8A 18 2A CB .56.:.5!.5....*.
001C70: 35 26 00 01 91 34 09 7E FE 2E C2 83 18 3A CB 35 5&...4.~.....:.5
001C80: 32 C9 35 21 CB 35 34 C2 64 18 21 CC 35 36 00 3E 2.5!.54.d.!.56.>
001C90: 13 21 CC 35 BE DA AA 18 2A CC 35 26 00 01 D1 35 .!.5....*.5&...5
001CA0: 09 36 30 21 CC 35 34 C2 8F 18 3A CD 35 3D 32 CC .60!.54...:.5=2.
001CB0: 35 3A C9 35 32 CB 35 3A CC 35 3C 32 CC 35 21 CE 5:.52.5:.5<2.5!.
001CC0: 35 96 9F F5 3A CB 35 3C 32 CB 35 4F 3A CA 35 91 5...:.5<2.5O:.5.
001CD0: 9F 2F C1 48 A1 1F D2 F2 18 2A CB 35 26 00 01 91 ./.H.....*.5&...
001CE0: 34 09 E5 2A CC 35 26 00 01 D1 35 09 D1 1A 77 C3 4..*.5&...5...w.
001CF0: B7 18 3A CD 35 32 CC 35 3A C9 35 32 CB 35 3A CC ..:.52.5:.52.5:.
001D00: 6D 34 CD 62 31 EB 2B 73 23 72 23 34 C2 E0 0E 3E m4.b1.+s#r#4...>
001D10: 00 C9 21 70 34 36 01 3A D9 33 21 70 34 BE DA 46 ..!p46.:.3!p4..F
001D20: 0F 3A 70 34 3D 4F 06 00 2A 6D 34 09 E5 2A 70 34 .:p4=O..*m4..*p4
001D30: 26 00 01 D9 33 09 D1 1A BE CA 3F 0F 3E 00 C9 21 &...3.....?.>..!
001D40: 70 34 34 C2 17 0F 3E 01 C9 3E 0F 21 D9 33 BE D2 p44...>..>.!.3..
001D50: 55 0F 3E 00 C9 2A D9 33 26 00 01 FB 04 09 7E 32 U.>..*.3&.....~2
001D60: 71 34 FE 00 C2 6A 0F 3E 00 C9 CD C8 0E 32 72 34 q4...j.>.....2r4
001D70: FE 00 C2 78 0F 3E 00 C9 3A 72 34 21 71 34 86 C9 ...x.>..:r4!q4..
001D80: 21 D9 33 36 00 CD 89 0D 3A 0E 34 FE 27 C2 94 0F !.36....:.4.'...
001D90: CD B0 0E C9 CD 78 0E 1F D2 A1 0F CD 5C 0D 3E 01 .....x......\.>.
001DA0: C9 CD 5C 0D CD A5 0E 1F D2 AE 0F 3E 21 C9 C3 A1 ..\........>!...
001DB0: 0F C9 CD 80 0F 32 6A 34 FE 21 C2 CE 0F CD 49 0F .....2j4.!....I.
001DC0: 32 73 34 FE 00 CA CE 0F 3A 73 34 32 6A 34 3A 6A 2s4.....:s42j4:j
001DD0: 34 FE 00 CA D7 0F C9 01 45 53 CD 34 0A CD A5 0E 4.......ES.4....
001DE0: 1F DA EA 0F CD E5 0C C3 DD 0F C3 B2 0F C9 21 74 ..............!t
001DF0: 34 36 01 3A D9 33 21 74 34 BE DA 1E 10 2A 74 34 46.:.3!t4....*t4
001E00: 26 00 01 D9 33 09 4E CD 2A 09 2A 74 34 26 00 01 &...3.N.*.*t4&..
001E10: D9 33 09 4E CD 6F 09 21 74 34 34 C2 F3 0F CD CA .3.N.o.!t44.....
001E20: 09 CD D3 09 C9 21 75 34 71 21 76 34 36 00 3E 01 .....!u4q!v46.>.
001E30: 21 76 34 BE DA 70 10 21 77 34 36 00 2A 76 34 26 !v4..p.!w46.*v4&
001E40: 00 01 E7 06 09 7E 32 78 34 4F 3A 75 34 B9 DA 60 .....~2x4O:u4..`
001E50: 10 21 78 34 3A 75 34 96 32 75 34 2B 34 C3 3C 10 .!x4:u4.2u4+4.<.
001E60: 3A 77 34 C6 30 4F CD 2A 09 21 76 34 34 C2 2E 10 :w4.0O.*.!v44...
001E70: 3A 75 34 C6 30 4F CD 2A 09 C9 01 6D 00 C5 11 08 :u4.0O.*...m....
001E80: 00 01 18 32 CD 19 0C 3A 18 32 FE 24 C2 17 11 21 ...2...:.2.$...!
001E90: 7A 34 36 00 3A 7A 34 3C 32 7A 34 4F 06 00 21 18 z46.:z4<2z4O..!.
001EA0: 32 09 7E 32 79 34 FE 20 CA 17 11 3A 79 34 FE 4C 2.~2y4. ...:y4.L
001EB0: C2 BA 10 3A D1 32 2F 32 D1 32 3A 79 34 FE 53 C2 ...:.2/2.2:y4.S.
001EC0: C9 10 3A 82 33 2F 32 82 33 3A 79 34 FE 50 C2 D8 ..:.3/2.3:y4.P..
001ED0: 10 3A 80 33 2F 32 80 33 3A 79 34 FE 54 C2 E7 10 .:.3/2.3:y4.T...
001EE0: 3A 81 33 2F 32 81 33 3A 79 34 FE 43 C2 F6 10 3A :.3/2.3:y4.C...:
001EF0: DA 32 2F 32 DA 32 3A 79 34 FE 57 C2 05 11 3A 83 .2/2.2:y4.W...:.
001F00: 35 3D 32 CC 35 D6 FF 9F F5 3A CB 35 3D 32 CB 35 5=2.5....:.5=2.5
001F10: 4F 3E 00 91 9F C1 48 A1 2A CB 35 26 00 01 91 34 O>....H.*.5&...4
001F20: 09 F5 3A CF 35 96 C6 FF 9F C1 48 A1 1F D2 49 19 ..:.5.....H...I.
001F30: 2A CB 35 26 00 01 91 34 09 E5 2A CC 35 26 00 01 *.5&...4..*.5&..
001F40: D1 35 09 D1 1A 77 C3 FE 18 3E 01 21 CB 35 96 9F .5...w...>.!.5..
001F50: F5 7E D6 01 D6 01 9F 21 CF 35 F5 3A 92 34 96 C6 .~.....!.5.:.4..
001F60: FF 9F C1 48 A1 C1 48 B1 1F D2 72 19 01 4C 53 CD ...H..H...r..LS.
001F70: 34 0A 3A CF 35 FE 2D C2 A2 19 3A D0 35 FE 11 C2 4.:.5.-...:.5...
001F80: 8D 19 3A D1 35 F6 80 32 D1 35 C3 A2 19 3A D0 35 ..:.5..2.5...:.5
001F90: FE 12 C2 A2 19 2A CE 35 26 00 01 D1 35 09 3E 80 .....*.5&...5.>.
001FA0: B6 77 3A D0 35 FE 13 C2 C1 19 3A D1 35 FE 30 CA .w:.5.....:.5.0.
001FB0: B8 19 01 4C 53 CD 34 0A 3A CF 35 32 D1 35 C3 D8 ...LS.4.:.52.5..
001FC0: 19 3A D0 35 FE 14 C2 D8 19 3A CE 35 3D 4F 06 00 .:.5.....:.5=O..
001FD0: 21 D1 35 09 3A CF 35 77 3A D0 35 FE 15 C2 87 1A !.5.:.5w:.5.....
001FE0: 3A CF 35 FE 2B C2 F6 19 2A CE 35 26 00 01 D1 35 :.5.+...*.5&...5
001FF0: 09 36 30 C3 01 1A 2A CE 35 26 00 01 D1 35 09 36 .60...*.5&...5.6
002000: 31 2A CE 35 26 00 EB 21 02 00 CD 6F 31 7D 1F D2 1*.5&..!...o1}..
002010: 1A 1A 21 CC 35 36 00 C3 28 1A 3A D1 35 D6 30 4F ..!.56..(.:.5.0O
002020: CD F8 12 21 CC 35 36 01 21 CE 35 3A CC 35 BE D2 ...!.56.!.5:.5..
002030: 5C 1A 2A CC 35 26 00 01 D1 35 09 7E D6 30 87 87 \.*.5&...5.~.0..
002040: 87 87 2A CC 35 26 00 03 09 F5 7E D6 30 C1 48 B1 ..*.5&....~.0.H.
002050: 4F CD F8 12 21 CC 35 34 34 C3 28 1A 2A CE 35 26 O...!.544.(.*.5&
002060: 00 EB 21 02 00 CD 6F 31 13 13 21 DB 34 73 3A CE ..!...o1..!.4s:.
002070: 35 21 DB 34 BE DA 84 1A 0E 00 CD F8 12 21 DB 34 5!.4.........!.4
002080: 34 C2 6E 1A C3 93 1A 2A CE 35 26 00 EB 01 D1 35 4.n....*.5&....5
002090: CD 2B 13 3A 68 35 1F DA 9F 1A 21 E6 34 36 00 C9 .+.:h5....!.46..
0020A0: CD 77 15 CD 90 16 CD 56 12 22 E5 35 CD E6 11 4F .w.....V.".5...O
0020B0: 3E 80 91 9F F5 CD 90 12 3E 00 CD AF 31 B5 C6 FF >.......>...1...
0020C0: 9F C1 48 A1 1F D2 F0 1A CD 90 12 EB 2A E5 35 CD ..H.........*.5.
0020D0: 8E 31 22 E5 35 3A 7D 34 3D 32 7D 34 FE 00 CA EA .1".5:}4=2}4....
0020E0: 1A CD B3 12 22 7E 34 C3 F0 1A 21 00 00 22 7E 34 ...."~4...!.."~4
0020F0: 21 DA 34 35 CD 77 15 CD 56 12 E5 2A E5 35 C1 09 !.45.w..V..*.5..
002100: 33 2F 32 83 33 3A 79 34 FE 44 C2 14 11 3A 25 32 3/2.3:y4.D...:%2
002110: 2F 32 25 32 C3 94 10 01 E9 06 C5 11 09 00 2A 87 /2%2..........*.
002120: 33 19 44 4D 11 03 00 CD 19 0C 11 0C 00 2A 87 33 3.DM.........*.3
002130: 19 E5 11 05 00 0E 00 CD 57 0C CD C2 0B 3A DA 32 ........W....:.2
002140: 1F DA 69 11 2A 87 33 E5 11 09 00 01 5B 33 CD 19 ..i.*.3.....[3..
002150: 0C 21 7B 33 36 00 01 DA 32 23 71 23 70 21 5A 33 .!{36...2#q#p!Z3
002160: 22 8B 33 01 5B 33 CD F5 0B 2A 87 33 E5 11 09 00 ".3.[3...*.3....
002170: 01 B0 32 CD 19 0C 21 D0 32 36 00 21 2F 32 22 D2 ..2...!.26.!/2".
002180: 32 21 AF 32 22 89 33 01 B0 32 CD F5 0B CD 89 0D 2!.2".3..2......
002190: 01 00 00 CD 34 0A 01 F2 06 CD 9A 09 C9 2A 84 33 ....4........*.3
0021A0: E5 11 82 00 0E 00 CD 57 0C 11 80 00 2A 84 33 19 .......W....*.3.
0021B0: 22 D8 32 3E 00 77 23 36 00 C9 01 03 00 2A 7B 34 ".2>.w#6.....*{4
0021C0: 09 7E C9 21 85 34 70 2B 71 01 04 00 2A 7B 34 09 .~.!.4p+q...*{4.
0021D0: E5 2A 84 34 EB E1 73 23 72 C9 01 04 00 2A 7B 34 .*.4..s#r....*{4
0021E0: 09 5E 23 56 EB C9 2A 7B 34 23 23 7E C9 21 86 34 .^#V..*{4##~.!.4
0021F0: 71 2A 7B 34 23 23 3A 86 34 77 C9 21 87 34 71 CD q*{4##:.4w.!.4q.
002200: E6 11 21 87 34 B6 2A 7B 34 23 23 77 C9 01 0A 00 ..!.4.*{4##w....
002210: 2A 7B 34 09 7E C9 21 88 34 71 01 0A 00 2A 7B 34 *{4.~.!.4q...*{4
002220: 09 3A 88 34 77 C9 01 0B 00 2A 7B 34 09 7E C9 21 .:.4w....*{4.~.!
002230: 89 34 71 01 0B 00 2A 7B 34 09 3A 89 34 77 C9 21 .4q...*{4.:.4w.!
002240: 8B 34 70 2B 71 01 06 00 2A 7B 34 09 E5 2A 8A 34 .4p+q...*{4..*.4
002250: EB E1 73 23 72 C9 01 06 00 2A 7B 34 09 5E 23 56 ..s#r....*{4.^#V
002260: EB C9 21 8D 34 70 2B 71 01 08 00 2A 7B 34 09 E5 ..!.4p+q...*{4..
002270: 2A 8C 34 EB E1 73 23 72 C9 21 8F 34 70 2B 71 01 *.4..s#r.!.4p+q.
002280: 0C 00 2A 7B 34 09 E5 2A 8E 34 EB E1 73 23 72 C9 ..*{4..*.4..s#r.
002290: 01 0C 00 2A 7B 34 09 5E 23 56 EB C9 01 04 00 2A ...*{4.^#V.....*
0022A0: 7B 34 09 E5 2A D8 32 EB E1 73 23 72 2A 7B 34 22 {4..*.2..s#r*{4"
0022B0: 80 34 C9 11 0D 00 2A 7B 34 19 E5 CD BA 11 5F 16 .4....*{4....._.
0022C0: 00 E1 19 22 82 34 2A 82 34 5E 23 56 EB C9 2A D8 ...".4*.4^#V..*.
0022D0: 32 22 82 34 23 23 23 22 D8 32 2A 82 34 E5 2A 7E 2".4###".2*.4.*~
0022E0: 34 EB E1 73 23 72 0E 80 CD FB 11 2A 82 34 23 23 4..s#r.....*.4##
0022F0: 22 82 34 3A 7D 34 77 C9 21 9D 35 71 3A DA 32 1F ".4:}4w.!.5q:.2.
002300: 44 4D CD 3F 12 0E 06 CD FB 11 C9 3A DA 34 FE 00 DM.?.......:.4..
002310: CA 30 1B CD 77 15 CD 90 16 2A DA 34 26 00 01 C6 .0..w....*.4&...
002320: 34 29 09 3E 00 77 23 36 00 21 DA 34 35 C3 0B 1B 4).>.w#6.!.45...
002330: CD 77 15 CD 90 16 21 00 00 22 C6 34 CD 56 12 44 .w....!..".4.V.D
002340: 4D CD 1D 15 22 13 35 C9 21 00 00 22 E7 35 21 DB M...".5.!..".5!.
002350: 34 36 01 3A 6A 35 21 DB 34 BE DA 9D 1B 2A DB 34 46.:j5!.4....*.4
002360: 26 00 01 6A 35 09 4E CD 45 15 1F DA 74 1B 01 4E &..j5.N.E...t..N
002370: 4E CD 34 0A 2A E7 35 29 29 29 E5 2A E7 35 29 C1 N.4.*.5))).*.5).
002380: 09 E5 2A DB 34 26 00 01 6A 35 09 7E D6 30 5F 16 ..*.4&..j5.~.0_.
002390: 00 E1 19 22 E7 35 21 DB 34 34 C2 53 1B 2A E9 34 ...".5!.44.S.*.4
0023A0: 26 00 01 18 35 29 09 E5 2A E7 35 EB E1 73 23 72 &...5)..*.5..s#r
0023B0: C9 21 EB 35 72 2B 73 2B 71 2A E9 35 26 00 01 18 .!.5r+s+q*.5&...
0023C0: 35 29 09 11 EA 35 E5 CD A4 31 EB E1 73 23 72 C9 5)...5...1..s#r.
0023D0: 01 EE 35 C5 11 0C 00 0E 20 CD 57 0C 3A 6C 35 FE ..5..... .W.:l5.
0023E0: 3A C2 F4 1B 3A 6B 35 E6 0F 32 EE 35 21 FB 35 36 :...:k5..2.5!.56
0023F0: 02 C3 FE 1B 21 EE 35 36 00 21 FB 35 36 00 21 FC ....!.56.!.56.!.
002400: 35 36 01 3A FC 35 D6 0C 9F 21 6A 35 F5 3A FB 35 56.:.5...!j5.:.5
002410: 96 9F C1 48 A1 1F D2 4C 1C 3A FB 35 3C 32 FB 35 ...H...L.:.5<2.5
002420: 4F 06 00 21 6A 35 09 7E 32 FA 35 FE 2E C2 38 1C O..!j5.~2.5...8.
002430: 21 FC 35 36 09 C3 49 1C 2A FC 35 26 00 01 EE 35 !.56..I.*.5&...5
002440: 09 3A FA 35 77 21 FC 35 34 C3 03 1C 01 A5 00 CD .:.5w!.54.......
002450: 1D 15 22 EC 35 44 4D CD 62 12 2A EC 35 44 4D 11 ..".5DM.b.*.5DM.
002460: 25 00 CD A9 13 11 0C 00 01 EE 35 CD 2B 13 1E 00 %.........5.+...
002470: 01 19 00 CD 7A 13 3A E9 34 3D 4F 11 01 00 CD B1 ....z.:.4=O.....
002480: 1B C9 21 FD 35 71 CD E6 11 FE 11 C2 A5 1C 2A E9 ..!.5q........*.
002490: 34 26 00 01 18 35 29 09 3A FD 35 CD 63 31 4D CD 4&...5).:.5.c1M.
0024A0: ED 11 C3 AB 1C 01 47 53 CD 34 0A 2A E9 34 26 00 ......GS.4.*.4&.
0024B0: 01 18 35 29 09 3E 00 CD DB 31 B5 CA C7 1C CD 56 ..5).>...1.....V
0024C0: 12 23 44 4D CD 3F 12 C9 21 01 36 36 01 23 36 00 .#DM.?..!.66.#6.
0024D0: 23 36 00 21 91 34 36 00 21 FE 35 36 00 23 36 01 #6.!.46.!.56.#6.
0024E0: CD E6 11 32 00 36 D6 10 9F 2F F5 3E 15 21 00 36 ...2.6.../.>.!.6
0024F0: 96 9F 2F C1 48 A1 1F D2 65 1E 3A 6A 35 21 FF 35 ../.H...e.:j5!.5
002500: D2 04 13 C9 2A 7C 33 23 22 7C 33 11 8B 33 CD D3 ....*|3#"|3..3..
002510: 31 D2 23 13 11 5B 33 01 DB 32 CD 3A 09 21 DB 32 1.#..[3..2.:.!.2
002520: 22 7C 33 2A 7C 33 3A 9D 35 77 C9 21 A1 35 72 2B "|3*|3:.5w.!.5r+
002530: 73 2B 70 2B 71 21 01 00 22 A2 35 11 A0 35 01 A2 s+p+q!..".5..5..
002540: 35 CD C3 31 DA 62 13 2A 9E 35 4E CD F8 12 2A 9E 5..1.b.*.5N...*.
002550: 35 23 22 9E 35 11 01 00 2A A2 35 19 22 A2 35 D2 5#".5...*.5.".5.
002560: 3B 13 C9 21 A5 35 70 2B 71 2A A4 35 7D 4F CD F8 ;..!.5p+q*.5}O..
002570: 12 2A A4 35 7C 4F CD F8 12 C9 21 A8 35 73 2B 70 .*.5|O....!.5s+p
002580: 2B 71 21 01 00 22 A9 35 11 A6 35 01 A9 35 CD C3 +q!..".5..5..5..
002590: 31 DA A8 13 2A A8 35 4D CD F8 12 11 01 00 2A A9 1...*.5M......*.
0025A0: 35 19 22 A9 35 D2 88 13 C9 21 AE 35 72 2B 73 2B 5.".5....!.5r+s+
0025B0: 70 2B 71 0E 43 CD F8 12 2A AB 35 44 4D CD 63 13 p+q.C...*.5DM.c.
0025C0: 2A AD 35 44 4D CD 63 13 C9 21 AF 35 71 2A D8 32 *.5DM.c..!.5q*.2
0025D0: 22 B0 35 3A AF 35 C6 0E 32 AF 35 4F 06 00 2A 7B ".5:.5..2.5O..*{
0025E0: 34 09 22 D8 32 11 16 32 CD D3 31 D2 F4 13 01 54 4.".2..2..1....T
0025F0: 53 CD AA 0B 2A B0 35 E5 2A AF 35 26 00 EB 0E 00 S...*.5.*.5&....
002600: CD 57 0C C9 3E 0F 21 6A 35 BE D2 12 14 21 6A 35 .W..>.!j5....!j5
002610: 36 0F 21 B4 35 36 00 23 36 01 3A 6A 35 21 B5 35 6.!.56.#6.:j5!.5
002620: BE DA 3B 14 2A B5 35 26 00 01 6A 35 09 3A B4 35 ..;.*.5&..j5.:.5
002630: 86 32 B4 35 21 B5 35 34 C2 1A 14 3A B4 35 E6 3F .2.5!.54...:.5.?
002640: 87 11 84 33 CD 62 31 22 B2 35 21 13 32 36 00 2A ...3.b1".5!.26.*
002650: B2 35 3E 00 CD DB 31 B5 C2 BA 14 21 13 32 36 01 .5>...1....!.26.
002660: 2A D8 32 22 7B 34 2A B2 35 E5 2A D8 32 EB E1 73 *.2"{4*.5.*.2..s
002670: 23 72 2A 6A 35 4D CD C9 13 01 03 00 2A 7B 34 09 #r*j5M......*{4.
002680: 3A 6A 35 77 21 B5 35 36 01 3A 6A 35 21 B5 35 BE :j5w!.56.:j5!.5.
002690: DA B3 14 2A B5 35 26 00 01 6A 35 09 3A B5 35 C6 ...*.5&..j5.:.5.
0026A0: 0D 4F 06 00 E5 2A 7B 34 09 C1 0A 77 21 B5 35 34 .O...*{4...w!.54
0026B0: C2 89 14 2A 7B 34 C9 C3 0F 15 2A B2 35 5E 23 56 ...*{4....*.5^#V
0026C0: EB 22 7B 34 CD BA 11 32 B4 35 21 6A 35 BE C2 0F ."{4...2.5!j5...
0026D0: 15 21 B5 35 36 01 3A B5 35 C6 0D 4F 06 00 2A 7B .!.56.:.5..O..*{
0026E0: 34 09 E5 2A B5 35 26 00 01 6A 35 09 D1 1A BE C2 4..*.5&..j5.....
0026F0: 0F 15 3A B5 35 3C 32 B5 35 4F 3A B4 35 B9 D2 0C ..:.5<2.5O:.5...
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 01 00 02 09 52 E5 02 00 C1 02 00 00 00 02 ......R.........
002720: 02 00 C6 02 00 00 00 02 02 00 C2 02 00 00 00 02 ................
002730: 02 00 C7 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002740: 02 00 C8 02 00 00 00 02 02 00 C4 02 00 00 00 02 ................
002750: 02 00 C9 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: BE DA 65 1E 2A FF 35 26 00 01 6A 35 09 7E D6 2B ..e.*.5&..j5.~.+
002810: C6 FF 9F F5 7E D6 2D C6 FF 9F C1 48 A1 1F D2 FC ....~.-....H....
002820: 1D 2A FF 35 26 00 01 6A 35 09 7E D6 30 D6 01 9F .*.5&..j5.~.0...
002830: 21 01 36 A6 1F D2 41 1D 3A FF 35 32 FF 35 C3 F9 !.6...A.:.52.5..
002840: 1D 2A FF 35 26 00 01 6A 35 09 7E D6 30 9F 2F F5 .*.5&..j5.~.0./.
002850: 3E 39 96 9F 2F C1 48 A1 F5 7E D6 2E D6 01 9F C1 >9../.H..~......
002860: 48 B1 1F D2 D0 1D 2A FF 35 26 00 01 6A 35 09 7E H.....*.5&..j5.~
002870: D6 2E D6 01 9F 21 03 36 A6 1F D2 86 1D 01 44 4D .....!.6......DM
002880: CD 34 0A C3 CD 1D 2A FF 35 26 00 01 6A 35 09 3A .4....*.5&..j5.:
002890: 91 34 3C 32 91 34 4F 06 00 E5 21 91 34 09 C1 0A .4<2.4O...!.4...
0028A0: 77 2A FF 35 26 00 01 6A 35 09 7E FE 30 CA B5 1D w*.5&..j5.~.0...
0028B0: 21 01 36 36 00 2A FF 35 26 00 01 6A 35 09 7E FE !.66.*.5&..j5.~.
0028C0: 2E C2 C9 1D 21 03 36 36 01 21 FE 35 34 C3 F9 1D ....!.66.!.54...
0028D0: 2A FF 35 26 00 01 6A 35 09 7E D6 30 9F F5 3E 39 *.5&..j5.~.0..>9
0028E0: 96 9F C1 48 B1 F5 7E D6 2E C6 FF 9F C1 48 A1 1F ...H..~......H..
0028F0: D2 F9 1D 01 4E 4E CD 34 0A C3 5E 1E 3A 02 36 1F ....NN.4..^.:.6.
002900: D2 0C 1E 01 53 4D CD 34 0A C3 5E 1E 2A FF 35 26 ....SM.4..^.*.5&
002910: 00 01 6A 35 09 7E D6 2B D6 01 9F F5 7E D6 2D D6 ..j5.~.+....~.-.
002920: 01 9F C1 48 B1 1F D2 5E 1E 3A 00 36 FE 10 C2 3A ...H...^.:.6...:
002930: 1E 01 47 53 CD 34 0A C3 5E 1E 2A FF 35 26 00 01 ..GS.4..^.*.5&..
002940: 6A 35 09 3A 91 34 3C 32 91 34 4F 06 00 E5 21 91 j5.:.4<2.4O...!.
002950: 34 09 C1 0A 77 21 02 36 36 01 21 FE 35 34 21 FF 4...w!.66.!.54!.
002960: 35 34 C3 FA 1C 3A FE 35 32 91 34 D6 01 D6 01 9F 54...:.52.4.....
002970: F5 3A 92 34 D6 2B D6 01 9F F5 3A 92 34 D6 2D D6 .:.4.+....:.4.-.
002980: 01 9F C1 48 B1 C1 48 A1 F5 3A 91 34 D6 30 D6 01 ...H..H..:.4.0..
002990: 9F C1 48 B1 1F D2 A0 1E 21 91 34 36 00 23 36 00 ..H.....!.46.#6.
0029A0: C9 2A C4 34 22 7B 34 CD 0D 12 21 69 35 BE C2 B6 .*.4"{4...!i5...
0029B0: 1E 21 68 35 36 00 21 8D 36 36 00 21 90 36 36 00 .!h56.!.66.!.66.
0029C0: 23 36 00 23 36 01 21 00 00 22 8A 36 7D 32 8C 36 #6.#6.!..".6}2.6
0029D0: 32 8E 36 32 8F 36 32 94 36 32 9E 36 3E 1E 21 6A 2.62.62.62.6>.!j
0029E0: 35 BE D2 EC 1E 01 43 50 CD 34 0A C9 21 95 36 36 5.....CP.4..!.66
0029F0: 01 3A 6A 35 21 95 36 BE DA D6 21 2A 95 36 26 00 .:j5!.6...!*.6&.
002A00: 34 22 E4 34 3A E1 34 32 AB 36 21 E1 34 36 01 CD 4".4:.42.6!.46..
002A10: 90 16 2A DA 34 26 00 01 C6 34 29 09 3E 00 77 23 ..*.4&...4).>.w#
002A20: 36 00 21 DA 34 35 2A AC 36 22 E2 34 2A AE 36 22 6.!.45*.6".4*.6"
002A30: E4 34 3A AB 36 32 E1 34 C9 3A DE 34 3D 4F 06 00 .4:.62.4.:.4=O..
002A40: 21 18 35 09 09 5E 23 56 EB 22 C4 34 22 7B 34 3A !.5..^#V.".4"{4:
002A50: DE 34 3D 3D 4F 06 00 21 18 35 09 09 4E 23 46 E5 .4==O..!.5..N#F.
002A60: 21 B0 36 71 E1 CD 16 12 3A B0 36 FE 01 C2 E1 27 !.6q....:.6....'
002A70: 3E 00 11 C6 34 CD D0 31 B5 CA DE 27 CD 89 15 4F >...4..1...'...O
002A80: 3E 01 B9 D2 8C 27 CD A0 1A C3 7C 27 3A DA 34 FE >....'....|':.4.
002A90: 00 CA B1 27 CD 77 15 CD 90 16 2A DA 34 26 00 01 ...'.w....*.4&..
002AA0: C6 34 29 09 3E 00 77 23 36 00 21 DA 34 35 C3 8C .4).>.w#6.!.45..
002AB0: 27 2A C4 34 22 7B 34 3A DE 34 3D 4F 06 00 21 18 '*.4"{4:.4=O..!.
002AC0: 35 09 09 5E 23 56 2A C6 34 44 4D CD 5B 15 2A DE 5..^#V*.4DM.[.*.
002AD0: 34 26 00 01 18 35 29 09 3E 01 77 23 36 00 C3 F1 4&...5).>.w#6...
002AE0: 27 CD 89 15 21 B0 36 BE DA F1 27 CD A0 1A C3 E1 '...!.6...'.....
002AF0: 27 C9 21 17 35 36 01 21 B3 36 36 00 3A DE 34 3D '.!.56.!.66.:.4=
002B00: 4F 06 00 21 18 35 09 09 5E 23 56 EB 22 C4 34 22 O..!.5..^#V.".4"
002B10: 7B 34 3A DE 34 3D 3D 4F 06 00 21 18 35 09 09 4E {4:.4==O..!.5..N
002B20: 23 46 E5 21 B1 36 71 E1 CD 16 12 2A DE 34 26 00 #F.!.6q....*.4&.
002B30: 01 18 35 29 09 4E 23 46 21 B5 36 71 3A B1 36 D6 ..5).N#F!.6q:.6.
002B40: 01 D6 01 9F F5 3A B1 36 D6 4D D6 01 9F C1 48 B1 .....:.6.M....H.
002B50: 1F D2 62 29 CD 89 15 FE 4D C2 62 28 CD 0B 1B C3 ..b)....M.b(....
002B60: 5F 29 CD 89 15 4F 3E 01 91 9F 2A DA 34 26 00 01 _)...O>...*.4&..
002B70: C6 34 29 09 F5 3E 00 CD DB 31 B5 C6 FF 9F C1 48 .4)..>...1.....H
002B80: A1 1F D2 DF 28 3A DA 34 3D 4F 06 00 21 C6 34 09 ....(:.4=O..!.4.
002B90: 09 5E 23 56 EB 22 B6 36 22 7B 34 CD 0D 12 32 B2 .^#V.".6"{4...2.
002BA0: 36 CD 89 15 21 B2 36 BE C2 B7 28 2A B6 36 22 7B 6...!.6...(*.6"{
002BB0: 34 CD B2 26 C3 DC 28 CD 89 15 4F 3E 01 B9 D2 DC 4..&..(...O>....
002BC0: 28 CD A0 1A CD 89 15 21 69 35 96 D6 01 9F 2B A6 (......!i5....+.
002BD0: 1F D2 DC 28 21 68 35 36 00 CD 96 2A C3 62 28 CD ...(!h56...*.b(.
002BE0: 89 15 D6 01 D6 01 9F F5 3A DA 34 D6 00 C6 FF 9F ........:.4.....
002BF0: C1 48 A1 1F D2 0D 29 3A DA 34 3D 4F 06 00 21 C6 .H....):.4=O..!.
002C00: 01 6A 35 09 7E 32 89 36 FE 41 C2 15 1F 0E 01 CD .j5.~2.6.A......
002C10: FC 23 C3 CF 21 3A 89 36 FE 42 C2 25 1F 0E 02 CD .#..!:.6.B.%....
002C20: FC 23 C3 CF 21 3A 89 36 FE 39 C2 39 1F 21 8E 36 .#..!:.6.9.9.!.6
002C30: 34 0E 10 CD FC 23 C3 CF 21 3A 89 36 FE 58 C2 49 4....#..!:.6.X.I
002C40: 1F 0E 04 CD FC 23 C3 CF 21 3A 89 36 D6 53 D6 01 .....#..!:.6.S..
002C50: 9F F5 3E 00 11 8A 36 CD D0 31 B5 D6 01 9F C1 48 ..>...6..1.....H
002C60: A1 1F D2 70 1F 3A 8F 36 F6 80 32 8F 36 C3 CF 21 ...p.:.6..2.6..!
002C70: 3A 89 36 D6 56 D6 01 9F F5 3A 8C 36 D6 00 D6 01 :.6.V....:.6....
002C80: 9F C1 48 A1 1F D2 9E 1F 3A 8F 36 F6 40 32 8F 36 ..H.....:.6.@2.6
002C90: 2A 8A 36 EB 21 8C 36 73 23 36 01 C3 CF 21 3A 89 *.6.!.6s#6...!:.
002CA0: 36 D6 2F D6 01 9F F5 3A 89 36 D6 30 D6 01 9F C1 6./....:.6.0....
002CB0: 48 B1 1F D2 BE 1F 0E 08 CD FC 23 C3 CF 21 3A 89 H.........#..!:.
002CC0: 36 FE 24 C2 CE 1F 0E 00 CD 76 24 C3 CF 21 2A 89 6.$......v$..!*.
002CD0: 36 4D CD 5D 24 1F D2 E1 1F 0E 01 CD 76 24 C3 CF 6M.]$.......v$..
002CE0: 21 3A 89 36 D6 2A D6 01 9F F5 3A 89 36 D6 5A D6 !:.6.*....:.6.Z.
002CF0: 01 9F C1 48 B1 1F D2 01 20 0E 02 CD 76 24 C3 CF ...H.... ...v$..
002D00: 21 3A 89 36 FE 2C C2 11 20 0E 20 CD FC 23 C3 CF !:.6.,.. . ..#..
002D10: 21 3A 89 36 D6 2E D6 01 9F F5 3A 8C 36 D6 00 D6 !:.6......:.6...
002D20: 01 9F C1 48 A1 1F D2 3C 20 0E 20 CD FC 23 2A 8A ...H...< . ..#*.
002D30: 36 EB 21 8C 36 73 23 36 01 C3 CF 21 3A 89 36 D6 6.!.6s#6...!:.6.
002D40: 43 D6 01 9F 2A 95 36 26 00 01 6B 35 09 F5 7E D6 C...*.6&..k5..~.
002D50: 52 D6 01 9F C1 48 A1 F5 3A 89 36 D6 44 D6 01 9F R....H..:.6.D...
002D60: F5 7E D6 42 D6 01 9F C1 48 A1 C1 48 B1 F5 3A 6A .~.B....H..H..:j
002D70: 35 3D 21 95 36 96 D6 01 9F C1 48 A1 F5 3A 91 36 5=!.6.....H..:.6
002D80: 2F C1 48 A1 1F D2 BA 20 0E 20 CD FC 23 3A 95 36 /.H.... . ..#:.6
002D90: 3C 32 95 36 4F 06 00 21 6A 35 09 7E 32 89 36 0E <2.6O..!j5.~2.6.
002DA0: 20 CD FC 23 3A 8D 36 1F DA B7 20 3A 6A 35 3D 32 ..#:.6... :j5=2
002DB0: 8C 36 21 8D 36 36 01 C3 CF 21 3A 89 36 D6 28 D6 .6!.66...!:.6.(.
002DC0: 01 9F F5 3E 00 11 8A 36 CD D0 31 B5 C6 FF 9F C1 ...>...6..1.....
002DD0: 48 A1 1F D2 C8 21 3A 95 36 3D 4F 06 00 21 6A 35 H....!:.6=O..!j5
002DE0: 09 7E 32 9B 36 21 00 00 22 99 36 3A 95 36 3C 32 .~2.6!..".6:.6<2
002DF0: 95 36 4F 06 00 21 6A 35 09 7E 32 89 36 FE 29 CA .6O..!j5.~2.6.).
002E00: 34 09 09 5E 23 56 EB 22 7B 34 CD B2 26 3A B5 36 4..^#V."{4..&:.6
002E10: D6 00 D6 01 9F 2A DA 34 26 00 01 C6 34 29 09 F5 .....*.4&...4)..
002E20: 3E 00 CD DB 31 B5 C6 FF 9F C1 48 A1 1F D2 38 29 >...1.....H...8)
002E30: CD 0B 1B 21 E1 34 36 00 3A B5 36 D6 01 D6 01 9F ...!.46.:.6.....
002E40: 2A DA 34 26 00 01 C6 34 29 09 11 E2 34 F5 CD C5 *.4&...4)...4...
002E50: 31 B5 D6 01 9F C1 48 A1 1F D2 5F 29 CD 96 2A C3 1.....H..._)..*.
002E60: 8F 2A CD 89 15 FE 4D C2 73 29 01 37 4C CD 34 0A .*....M.s).7L.4.
002E70: C3 8F 2A CD 89 15 21 B1 36 BE DA 8F 2A CD 89 15 ..*...!.6...*...
002E80: 21 B1 36 96 D6 01 9F F5 3A B5 36 D6 01 D6 01 9F !.6.....:.6.....
002E90: C1 48 A1 2A DA 34 26 00 01 C6 34 29 09 11 E2 34 .H.*.4&...4)...4
002EA0: F5 CD C5 31 B5 D6 01 9F C1 48 A1 1F D2 B2 29 CD ...1.....H....).
002EB0: 96 2A 3A B3 36 1F DA 8F 2A 3A DA 34 3D 4F 06 00 .*:.6...*:.4=O..
002EC0: 21 C6 34 09 09 5E 23 56 EB 22 B6 36 22 7B 34 CD !.4..^#V.".6"{4.
002ED0: 0D 12 32 B2 36 CD 89 15 21 B2 36 BE C2 EB 29 2A ..2.6...!.6...)*
002EE0: B6 36 22 7B 34 CD B2 26 C3 8C 2A CD 89 15 21 B1 .6"{4..&..*...!.
002EF0: 36 96 9F 2F F5 3A B5 36 D6 00 D6 01 9F C1 48 A1 6../.:.6......H.
002F00: 1F D2 3D 2A CD A0 1A CD 89 15 21 69 35 96 D6 01 ..=*......!i5...
002F10: 9F 2B A6 F5 3A B1 36 23 96 D6 01 9F C1 48 A1 1F .+..:.6#.....H..
002F20: D2 2B 2A 21 68 35 36 00 CD 96 2A CD 89 15 21 B1 .+*!h56...*...!.
002F30: 36 BE D2 3A 2A 21 B3 36 36 01 C3 8C 2A CD 89 15 6..:*!.66...*...
002F40: 21 B1 36 96 9F 2F F5 3A B5 36 D6 01 D6 01 9F C1 !.6../.:.6......
002F50: 48 A1 1F D2 8C 2A CD 89 15 4F 3A B1 36 B9 D2 64 H....*...O:.6..d
002F60: 2A CD A0 1A CD 89 15 21 69 35 96 D6 01 9F 2B A6 *......!i5....+.
002F70: 1F D2 7C 2A 21 68 35 36 00 CD 96 2A CD 89 15 4F ..|*!h56...*...O
002F80: 3A B1 36 B9 DA 8C 2A 21 B3 36 36 01 C3 B2 29 2A :.6...*!.66...)*
002F90: C4 34 22 7B 34 C9 3A E1 34 32 B4 36 21 E1 34 36 .4"{4.:.42.6!.46
002FA0: 00 CD 77 15 CD 90 16 3A B4 36 32 E1 34 2A C4 34 ..w....:.62.4*.4
002FB0: 22 7B 34 C9 21 B8 36 71 3A 80 33 1F D2 CE 2A CD "{4.!.6q:.3...*.
002FC0: CA 09 0E 23 CD 2A 09 2A B8 36 4D CD 25 10 2A B8 ...#.*.*.6M.%.*.
002FD0: 36 4D 06 00 21 4C 2F 09 09 5E 23 56 EB E9 C3 10 6M..!L/..^#V....
002FE0: 30 21 90 34 36 00 CD EC 0C C3 10 30 C3 10 30 C3 0!.46......0..0.
002FF0: 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 .0..0..0..0..0..
003000: 39 21 3A 89 36 D6 30 9F F5 3E 39 21 89 36 96 9F 9!:.6.0..>9!.6..
003010: C1 48 B1 1F D2 1D 21 01 32 50 CD 34 0A 2A 99 36 .H....!.2P.4.*.6
003020: 29 29 29 E5 2A 99 36 29 C1 09 3A 89 36 D6 30 5F ))).*.6)..:.6.0_
003030: 16 00 19 22 99 36 C3 EB 20 3A 9B 36 32 89 36 3E ...".6.. :.62.6>
003040: 00 11 99 36 CD D0 31 B5 CA BE 21 21 01 00 22 96 ...6..1...!!..".
003050: 36 2A 99 36 2B EB 21 96 36 CD DE 31 DA 71 21 0E 6*.6+.!.6..1.q!.
003060: 00 CD FC 23 11 01 00 2A 96 36 19 22 96 36 D2 51 ...#...*.6.".6.Q
003070: 21 2A 9B 36 4D CD 5D 24 F5 3A 9B 36 D6 24 D6 01 !*.6M.]$.:.6.$..
003080: 9F C1 48 B1 F5 3A 9B 36 D6 2A D6 01 9F C1 48 B1 ..H..:.6.*....H.
003090: F5 3A 9B 36 D6 5A D6 01 9F C1 48 B1 F5 3A 9B 36 .:.6.Z....H..:.6
0030A0: D6 39 D6 01 9F C1 48 B1 1F D2 BB 21 11 99 36 3A .9....H....!..6:
0030B0: 8E 36 CD 62 31 2B EB 21 8E 36 73 C3 C5 21 2A 8A .6.b1+.!.6s..!*.
0030C0: 36 2B 22 8A 36 C3 CF 21 01 33 50 CD 34 0A C9 21 6+".6..!.3P.4..!
0030D0: 95 36 34 C3 F1 1E 3A 8D 36 2F F5 3A 95 36 3D 4F .64...:.6/.:.6=O
0030E0: 06 00 21 6A 35 09 4E CD 5D 24 C1 48 A1 1F D2 FC ..!j5.N.]$.H....
0030F0: 21 3A 6A 35 32 8C 36 21 8D 36 36 01 0E AF CD 24 !:j52.6!.66....$
003100: 24 1F D2 0D 22 21 9E 36 36 10 C3 1B 23 0E 2F CD $..."!.66...#./.
003110: 24 24 1F D2 1E 22 21 9E 36 36 11 C3 1B 23 0E FE $$..."!.66...#..
003120: CD 24 24 1F D2 2F 22 21 9E 36 36 08 C3 1B 23 0E .$$../"!.66...#.
003130: FC CD 24 24 1F D2 40 22 21 9E 36 36 48 C3 1B 23 ..$$..@"!.66H..#
003140: 0E EA CD 24 24 1F D2 51 22 21 9E 36 36 09 C3 1B ...$$..Q"!.66...
003150: 23 0E E0 CD 24 24 F5 3A 8F 36 E6 06 D6 00 C6 FF #...$$.:.6......
003160: 9F F5 3A 8F 36 E6 09 D6 00 C6 FF 9F C1 48 B1 F5 ..:.6........H..
003170: 3A 8F 36 E6 12 D6 00 C6 FF 9F C1 48 B1 C1 48 A1 :.6........H..H.
003180: 1F D2 8C 22 21 9E 36 36 49 C3 1B 23 0E 85 CD 24 ..."!.66I..#...$
003190: 24 1F D2 1B 23 21 9E 36 36 50 3A 94 36 FE 00 CA $...#!.66P:.6...
0031A0: 1B 23 21 95 36 36 01 2A 95 36 26 00 01 6A 35 09 .#!.66.*.6&..j5.
0031B0: 3A 94 36 BE CA BE 22 21 95 36 34 C3 A7 22 21 95 :.6..."!.64.."!.
0031C0: 36 34 3A 93 36 21 95 36 BE DA 1B 23 2A 95 36 26 64:.6!.6...#*.6&
0031D0: 00 01 6A 35 09 3A 94 36 96 C6 FF 9F F5 7E D6 42 ..j5.:.6.....~.B
0031E0: C6 FF 9F C1 48 A1 F5 7E D6 2F C6 FF 9F C1 48 A1 ....H..~./....H.
0031F0: F5 7E D6 30 C6 FF 9F C1 48 A1 F5 7E D6 2C C6 FF .~.0....H..~.,..
003200: 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0..0..0..0..0..0
003210: C3 10 30 C3 10 30 C3 10 30 21 25 32 36 01 C3 10 ..0..0..0!%26...
003220: 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0..0..0..0..0..0
003230: CD E3 24 C3 10 30 C3 10 30 2A E9 34 26 00 01 18 ..$..0..0*.4&...
003240: 35 29 09 E5 2A DE 34 26 00 29 09 D1 E5 CD A4 31 5)..*.4&.).....1
003250: EB E1 73 23 72 C3 10 30 2A E9 34 26 00 01 18 35 ..s#r..0*.4&...5
003260: 29 09 E5 2A DE 34 26 00 29 09 E3 4E 23 46 E1 71 )..*.4&.)..N#F.q
003270: 23 70 C3 10 30 2A DF 34 26 00 01 18 35 29 09 E5 #p..0*.4&...5)..
003280: 2A E9 34 26 00 29 09 D1 CD A4 31 E5 2A DE 34 26 *.4&.)....1.*.4&
003290: 00 01 18 35 29 09 C1 71 23 70 C3 10 30 CD D0 1B ...5)..q#p..0...
0032A0: C3 10 30 C3 10 30 2A E9 34 4D 11 04 00 CD B1 1B ..0..0*.4M......
0032B0: C3 10 30 01 49 4E CD 34 0A C3 10 30 C3 10 30 2A ..0.IN.4...0..0*
0032C0: E9 34 4D 11 02 00 CD B1 1B C3 10 30 2A DE 34 4D .4M........0*.4M
0032D0: 11 08 00 CD B1 1B 2A E9 34 26 00 01 18 35 29 09 ......*.4&...5).
0032E0: 5E 23 56 EB 22 7B 34 0E 1A CD ED 11 C3 10 30 C3 ^#V."{4.......0.
0032F0: 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 .0..0..0..0..0..
003300: 30 C3 10 30 C3 10 30 C3 10 30 21 86 33 36 01 C3 0..0..0..0!.36..
003310: 10 30 21 86 33 36 01 C3 10 30 C3 10 30 C3 10 30 .0!.36...0..0..0
003320: CD 89 15 4F 3E 01 B9 D2 30 2C CD A0 1A C3 20 2C ...O>...0,.... ,
003330: CD 0B 1B 21 E1 34 36 00 C3 10 30 CD 9C 12 C3 10 ...!.46...0.....
003340: 30 CD 9C 12 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0.....0..0..0..0
003350: 2A E9 34 26 00 01 18 35 29 09 4E 23 46 CD 3F 12 *.4&...5).N#F.?.
003360: C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 2A ..0..0..0..0..0*
003370: E9 34 26 00 01 18 35 29 09 E5 2A DE 34 26 00 29 .4&...5)..*.4&.)
003380: 09 E3 4E 23 46 E1 71 23 70 0E 04 CD ED 11 C3 10 ..N#F.q#p.......
003390: 30 CD 89 15 FE 4D CA 0E 2D CD 89 15 4F 3E 01 B9 0....M..-...O>..
0033A0: D2 D9 2C 3A DA 34 3D 4F 06 00 21 C6 34 09 09 5E ..,:.4=O..!.4..^
0033B0: 23 56 EB 22 7B 34 CD 0D 12 F5 CD 89 15 C1 48 B9 #V."{4........H.
0033C0: C2 C9 2C CD B2 26 C3 D6 2C CD 89 15 4F 3E 01 B9 ..,..&..,...O>..
0033D0: D2 D6 2C CD A0 1A C3 99 2C CD 89 15 D6 01 D6 01 ..,.....,.......
0033E0: 9F F5 3A DA 34 D6 00 C6 FF 9F C1 48 A1 1F D2 0E ..:.4......H....
0033F0: 2D 3A DA 34 3D 4F 06 00 21 C6 34 09 09 5E 23 56 -:.4=O..!.4..^#V
003400: 9F C1 48 A1 1F D2 14 23 01 34 50 CD 34 0A 3A 93 ..H....#.4P.4.:.
003410: 36 32 95 36 21 95 36 34 C2 C2 22 3A 9E 36 FE 00 62.6!.64..":.6..
003420: C2 2C 23 01 35 50 CD 34 0A C3 A7 23 CD E6 11 FE .,#.5P.4...#....
003430: 80 C2 40 23 3A 9E 36 C6 80 4F CD ED 11 C3 47 23 ..@#:.6..O....G#
003440: 2A 9E 36 4D CD ED 11 CD 56 12 EB 2A 8A 36 19 44 *.6M....V..*.6.D
003450: 4D CD 3F 12 3A 9E 36 E6 40 FE 00 CA 84 23 2A 8A M.?.:.6.@....#*.
003460: 36 44 4D CD 36 24 22 9C 36 44 4D CD 62 12 2A 9C 6DM.6$".6DM.b.*.
003470: 36 44 4D 2A 8A 36 EB CD A9 13 2A 8A 36 EB 01 05 6DM*.6....*.6...
003480: 36 CD 2B 13 3E 12 21 8E 36 BE D2 93 23 01 36 50 6.+.>.!.6...#.6P
003490: CD 34 0A 3A 8D 36 1F D2 A7 23 3A 8C 36 11 8A 36 .4.:.6...#:.6..6
0034A0: CD D0 31 4D CD 2F 12 3A 17 35 2F F5 3A 9E 36 D6 ..1M./.:.5/.:.6.
0034B0: 10 D6 01 9F F5 3A 9E 36 D6 11 D6 01 9F C1 48 B1 .....:.6......H.
0034C0: C1 48 A1 1F D2 FB 23 21 98 36 36 00 3A 91 34 21 .H....#!.66.:.4!
0034D0: 98 36 BE DA F3 23 2A 98 36 26 00 01 91 34 09 E5 .6...#*.6&...4..
0034E0: 2A 98 36 26 00 01 6A 35 09 D1 1A 77 21 98 36 34 *.6&..j5...w!.64
0034F0: C2 CC 23 CD C8 1C 21 17 35 36 01 C9 21 9F 36 71 ..#...!.56..!.6q
003500: 3A 9F 36 21 8F 36 B6 77 2A 8A 36 23 22 8A 36 EB :.6!.6.w*.6#".6.
003510: 3E 85 CD B9 31 D2 23 24 2A 8A 36 01 04 36 09 3A >...1.#$*.6..6.:
003520: 89 36 77 C9 21 A0 36 71 3A A0 36 21 8F 36 A6 D6 .6w.!.6q:.6!.6..
003530: 00 C6 FF 9F 2F C9 21 A2 36 70 2B 71 01 A1 36 11 ..../.!.6p+q..6.
003540: D4 32 CD C3 31 EB 2B 73 23 72 21 D6 32 CD DE 31 .2..1.+s#r!.2..1
003550: D2 59 24 01 4F 4D CD AA 0B 2A D4 32 C9 21 A3 36 .Y$.OM...*.2.!£6
003560: 71 3A A3 36 D6 2B D6 01 9F F5 3A A3 36 D6 2D D6 q:£6.+....:£6.-.
003570: 01 9F C1 48 B1 C9 21 A4 36 71 3A 94 36 D6 00 D6 ...H..!.6q:.6...
003580: 01 9F 2A A4 36 26 00 01 90 36 09 A6 1F D2 96 24 ..*.6&...6.....$
003590: 3A 89 36 32 94 36 21 94 36 3A 89 36 96 C6 FF 9F :.62.6!.6:.6....
0035A0: 2A A4 36 26 00 01 90 36 09 A6 1F D2 B4 24 01 31 *.6&...6.....$.1
0035B0: 50 CD 34 0A 2A A4 36 26 00 01 90 36 09 7E 1F D2 P.4.*.6&...6.~..
0035C0: D2 24 2A 8A 36 23 EB 21 93 36 73 21 8E 36 34 C3 .$*.6#.!.6s!.64.
0035D0: DD 24 2A A4 36 26 00 01 90 36 09 36 01 0E 20 CD .$*.6&...6.6.. .
0035E0: FC 23 C9 2A DF 34 26 00 01 18 35 29 09 11 7B 34 .#.*.4&...5)..{4
0035F0: CD C5 31 B5 CA 1B 25 2A 7B 34 22 A5 36 2A DF 34 ..1...%*{4".6*.4
003600: EB 22 7B 34 3A E1 34 1F D2 0E 2D CD B2 26 CD 0B ."{4:.4...-..&..
003610: 1B C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 ...0..0..0..0..0
003620: C3 10 30 CD 90 15 3A E6 34 D6 00 C6 FF 9F F5 3A ..0...:.4......:
003630: 68 35 2F C1 48 A1 1F D2 42 2D 2A DA 34 26 00 22 h5/.H...B-*.4&."
003640: E7 34 C3 10 30 3A 13 32 1F DA 62 2D CD E6 11 FE .4..0:.2..b-....
003650: 1A C2 5C 2D 0E 19 CD ED 11 C3 62 2D 01 44 44 CD ..\-......b-.DD.
003660: 34 0A C3 10 30 2A D8 32 22 7B 34 2A E9 34 26 00 4...0*.2"{4*.4&.
003670: 01 18 35 29 09 E5 2A D8 32 EB E1 73 23 72 0E 00 ..5)..*.2..s#r..
003680: CD C9 13 C3 10 30 3A 13 32 1F D2 93 2D 01 44 55 .....0:.2...-.DU
003690: CD 34 0A 2A E9 34 26 00 01 18 35 29 09 3A E9 34 .4.*.4&...5).:.4
0036A0: 3D 3D E5 6F 26 00 29 09 5E 23 56 E1 4E 23 46 CD ==.o&.).^#V.N#F.
0036B0: 5B 15 2A DE 34 26 00 01 18 35 29 09 3E 01 77 23 [.*.4&...5).>.w#
0036C0: 36 00 3A 86 33 1F DA CF 2D 01 33 52 CD 34 0A CD 6.:.3...-.3R.4..
0036D0: F2 27 C3 10 30 3A 86 33 1F DA E2 2D CD 39 27 C3 .'..0:.3...-.9'.
0036E0: E5 2D CD F2 27 C3 10 30 C3 10 30 C3 10 30 C3 10 .-..'..0..0..0..
0036F0: 30 C3 10 30 CD A1 1E C3 10 30 C3 10 30 0E 15 CD 0..0.....0..0...
003700: ED 11 C3 10 30 C3 10 30 C3 10 30 0E 11 CD 82 1C ....0..0..0.....
003710: C3 10 30 0E 12 CD 82 1C C3 10 30 C3 10 30 2A E9 ..0.......0..0*.
003720: 34 26 00 01 18 35 29 09 4E 23 46 CD 79 12 21 7D 4&...5).N#F.y.!}
003730: 34 34 CD CE 12 2A 7B 34 22 7E 34 CD 0D 12 6F 26 44...*{4"~4...o&
003740: 00 22 15 35 D6 01 D6 01 9F F5 3E 4D 11 15 35 CD .".5......>M..5.
003750: D0 31 B5 D6 01 9F C1 48 B1 1F D2 63 2E 01 4C 4F .1.....H...c..LO
003760: CD 34 0A C3 10 30 C3 10 30 3A 86 33 1F DA 7B 2E .4...0..0:.3..{.
003770: 01 45 56 CD 34 0A 21 E6 34 36 00 C3 10 30 C3 10 .EV.4.!.46...0..
003780: 30 C3 10 30 C3 10 30 2A E9 34 26 00 01 18 35 29 0..0..0*.4&...5)
003790: 09 3E 02 77 23 36 00 C3 10 30 C3 10 30 CD E6 11 .>.w#6...0..0...
0037A0: 32 B9 36 D6 10 9F F5 3E 15 21 B9 36 96 9F C1 48 2.6....>.!.6...H
0037B0: B1 1F D2 C8 2E 01 56 4E CD 34 0A 0E 00 CD 9F 25 ......VN.4.....%
0037C0: 21 E6 34 36 02 C3 D2 2E 0E 01 CD 9F 25 21 E6 34 !.46........%!.4
0037D0: 36 01 C3 10 30 0E 00 CD 9F 25 21 E6 34 36 02 C3 6...0....%!.46..
0037E0: 10 30 21 E6 34 36 03 C3 10 30 21 E6 34 36 04 C3 .0!.46...0!.46..
0037F0: 10 30 21 E6 34 36 05 C3 10 30 CD 48 1B C3 10 30 .0!.46...0.H...0
003800: 26 00 01 18 35 29 09 5E 23 56 EB 22 7B 34 01 0A &...5).^#V."{4..
003810: 00 09 E5 2A A5 36 EB E1 73 23 72 3A E9 34 3D 4F ...*.6..s#r:.4=O
003820: 06 00 21 18 35 09 09 5E 23 56 EB 22 A5 36 7D 1F ..!.5..^#V.".6}.
003830: DA 3C 25 01 46 4E CD 34 0A C3 95 25 3E 01 11 A5 .<%.FN.4...%>...
003840: 36 CD D0 31 B5 D6 01 9F F5 3E 05 1B CD D0 31 B5 6..1.....>....1.
003850: D6 01 9F C1 48 B1 1F D2 62 25 21 A7 36 36 01 C3 ....H...b%!.66..
003860: 95 25 3E 0F 11 A5 36 CD D0 31 B5 C2 76 25 21 A7 .%>...6..1..v%!.
003870: 36 36 03 C3 95 25 3E 0D 11 A5 36 CD D0 31 B5 C2 66...%>...6..1..
003880: 8A 25 21 A7 36 36 02 C3 95 25 01 41 49 CD 34 0A .%!.66...%.AI.4.
003890: 21 A7 36 36 01 3A A7 36 C6 80 4F CD ED 11 C9 21 !.66.:.6..O....!
0038A0: A8 36 71 CD E6 11 32 AA 36 3A AA 36 FE 00 CA B9 .6q...2.6:.6....
0038B0: 25 21 68 35 36 00 C3 C4 25 21 68 35 36 01 CD 0D %!h56...%!h56...
0038C0: 12 32 69 35 3A E6 34 FE 00 CA D5 25 01 45 4C CD .2i5:.4....%.EL.
0038D0: 34 0A C3 B1 26 3A A8 36 D6 00 D6 01 9F F5 3A AA 4...&:.6......:.
0038E0: 36 D6 00 D6 01 9F C1 48 B1 1F D2 39 26 21 A9 36 6......H...9&!.6
0038F0: 36 00 3A 6A 35 21 A9 36 BE DA 19 26 2A A9 36 26 6.:j5!.6...&*.6&
003900: 00 01 6A 35 09 E5 2A A9 36 26 00 01 91 34 09 D1 ..j5..*.6&...4..
003910: 1A 77 21 A9 36 34 C2 F2 25 3A A8 36 D6 01 D6 01 .w!.64..%:.6....
003920: 9F F5 3A AA 36 D6 00 D6 01 9F C1 48 A1 1F D2 36 ..:.6......H...6
003930: 26 21 17 35 36 00 C3 B1 26 3A A8 36 D6 01 D6 01 &!.56...&:.6....
003940: 9F F5 3A AA 36 D6 10 9F 2F F5 3E 15 21 AA 36 96 ..:.6.../.>.!.6.
003950: 9F 2F C1 48 A1 C1 48 A1 1F D2 62 26 CD C8 1C C3 ./.H..H...b&....
003960: B1 26 3A A8 36 D6 01 D6 01 9F F5 3A AA 36 D6 00 .&:.6......:.6..
003970: C6 FF 9F C1 48 A1 1F D2 B1 26 01 56 4C CD 34 0A ....H....&.VL.4.
003980: 21 A9 36 36 00 3A 6A 35 21 A9 36 BE DA AC 26 2A !.66.:j5!.6...&*
003990: A9 36 26 00 01 6A 35 09 E5 2A A9 36 26 00 01 91 .6&..j5..*.6&...
0039A0: 34 09 D1 1A 77 21 A9 36 34 C2 85 26 21 E6 34 36 4...w!.64..&!.46
0039B0: 02 C9 2A E2 34 22 AC 36 2A E4 34 22 AE 36 2A 7B ..*.4".6*.4".6*{
0039C0: 34 22 E2 34 CD 77 15 CD E6 11 4F 3E 80 91 9F F5 4".4.w....O>....
0039D0: CD 90 12 3E 00 CD AF 31 B5 C6 FF 9F C1 48 A1 1F ...>...1.....H..
0039E0: D2 FE 26 3A 7D 34 3D 32 7D 34 FE 00 CA F8 26 CD ..&:}4=2}4....&.
0039F0: B3 12 22 7E 34 C3 FE 26 21 00 00 22 7E 34 2A 7B .."~4..&!.."~4*{
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 01 00 02 09 52 E5 03 00 C1 02 00 00 00 02 ......R.........
003A20: 03 00 C6 02 00 00 00 02 03 00 C2 02 00 00 00 02 ................
003A30: 03 00 C7 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A40: 03 00 C8 02 00 00 00 02 03 00 C4 02 00 00 00 02 ................
003A50: 03 00 C9 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: CD 04 14 E5 2A E9 34 26 00 01 18 35 29 09 C1 71 ....*.4&...5)..q
003B10: 23 70 3A 12 32 1F D2 49 2F 21 12 32 36 00 23 7E #p:.2..I/!.26.#~
003B20: 1F D2 2D 2F 01 44 55 CD 34 0A C3 49 2F CD E6 11 ..-/.DU.4..I/...
003B30: 4F 3E 80 B9 D2 43 2F CD E6 11 D6 80 4F CD ED 11 O>...C/.....O...
003B40: C3 49 2F 01 44 44 CD 34 0A C3 10 30 DE 2A E1 2A .I/.DD.4...0.*.*
003B50: EC 2A EF 2A F2 2A F5 2A F8 2A FB 2A FE 2A 01 2B .*.*.*.*.*.*.*.+
003B60: 04 2B 07 2B 0A 2B 0D 2B 10 2B 13 2B 16 2B 19 2B .+.+.+.+.+.+.+.+
003B70: 21 2B 24 2B 27 2B 2A 2B 2D 2B 30 2B 36 2B 39 2B !+$+'+*+-+0+6+9+
003B80: 58 2B 75 2B 9D 2B A3 2B A6 2B B3 2B BC 2B BF 2B X+u+.+£+.+.+.+.+
003B90: CC 2B EF 2B F2 2B F5 2B F8 2B FB 2B FE 2B 01 2C .+.+.+.+.+.+.+.,
003BA0: 04 2C 07 2C 0A 2C 12 2C 1A 2C 1D 2C 20 2C 3B 2C .,.,.,.,.,., ,;,
003BB0: 41 2C 47 2C 4A 2C 4D 2C 50 2C 63 2C 66 2C 69 2C A,G,J,M,P,c,f,i,
003BC0: 6C 2C 6F 2C 91 2C 14 2D 17 2D 1A 2D 1D 2D 20 2D l,o,.,.-.-.-.- -
003BD0: 23 2D 45 2D 65 2D 86 2D D5 2D E8 2D EB 2D EE 2D #-E-e-.-.-.-.-.-
003BE0: F1 2D F4 2D FA 2D FD 2D 05 2E 08 2E 0B 2E 13 2E .-.-.-.-........
003BF0: 1B 2E 1E 2E 66 2E 69 2E 7E 2E 81 2E 84 2E 87 2E ....f.i.~.......
003C00: 9A 2E 9D 2E D5 2E E2 2E EA 2E F2 2E FA 2E 00 2F .............../
003C10: C9 2A EA 34 26 00 01 FF 02 09 7E C9 2A EA 34 26 .*.4&.....~.*.4&
003C20: 00 01 FD 03 09 7E C9 3A E9 34 3C 32 E9 34 FE 28 .....~.:.4<2.4.(
003C30: DA 39 30 01 4F 53 CD AA 0B 2A E9 34 26 00 01 18 .90.OS...*.4&...
003C40: 35 29 09 3E 00 77 23 36 00 C9 3A E0 34 1F D2 7F 5).>.w#6..:.4...
003C50: 30 CD B2 0F 3A 6A 34 FE 02 C2 61 30 21 12 32 36 0...:j4...a0!.26
003C60: 01 21 E0 34 36 00 3A 81 33 1F D2 7F 30 CD CA 09 .!.46.:.3...0...
003C70: 2A 6A 34 4D CD 25 10 0E 20 CD 2A 09 CD EE 0F C9 *j4M.%.. .*.....
003C80: 21 BA 36 71 2A BA 36 26 00 01 FF 02 09 7E 32 BC !.6q*.6&.....~2.
003C90: 36 2A BA 36 26 00 01 FD 03 09 86 3D 32 BD 36 3A 6*.6&......=2.6:
003CA0: BC 36 32 BB 36 3A BD 36 21 BB 36 BE DA C9 30 2A .62.6:.6!.6...0*
003CB0: BB 36 26 00 01 03 01 09 3A 6A 34 BE C2 C2 30 3E .6&.....:j4...0>
003CC0: 01 C9 21 BB 36 34 C2 A5 30 3E 00 C9 3A E9 34 32 ..!.64..0>..:.42
003CD0: BE 36 3A BE 36 FE FF CA 0B 31 2A BE 36 26 00 01 .6:.6....1*.6&..
003CE0: EB 34 09 7E 32 BF 36 4F CD 80 30 1F D2 04 31 21 .4.~2.6O..0...1!
003CF0: BE 36 3A E9 34 BE CA 00 31 3A BE 36 3D 32 E9 34 .6:.4...1:.6=2.4
003D00: C3 F7 0C 00 50 0E 0F 14 1A 1C 20 22 24 26 2C 2D ....P..... "$&,-
003D10: 36 37 39 3A 40 41 45 46 4B 4D 3F 03 29 3F 3F 03 679:@AEFKM?.)??.
003D20: 04 07 29 3F 4E 29 3F 2A 29 2A 31 32 3F 4C 17 30 ..)?N)?*)*12?L.0
003D30: 3D 2F 19 29 2A 31 32 3F 10 01 35 23 3F 4A 01 48 =/.)*12?..5#?J.H
003D40: 03 2B 38 27 02 0A 0B 1F 2E 42 44 51 0E 0F 14 1A .+8'.....BDQ....
003D50: 1C 20 21 22 24 26 2C 36 37 39 3A 40 41 45 46 4B . !"$&,679:@AEFK
003D60: 4D 0D 0D 1E 0D 33 05 08 29 34 3F 49 4E 15 06 15 M....3..)4?IN...
003D70: 0B 47 3C 3C 47 3C 47 01 1B 3B 3B 12 18 12 29 3C .G<<G<G..;;...)<
003D80: 3F 0C 16 43 0E 14 1A 1C 20 22 26 2C 36 37 39 3A ?..C.... "&,679:
003D90: 40 41 45 46 4B 4D 1D 29 3C 3F 1D 43 01 01 0E 0F @AEFKM.)<?.C....
003DA0: 14 1A 1C 20 22 24 26 2C 36 37 39 3A 40 41 45 46 ... "$&,679:@AEF
003DB0: 4B 4D 04 07 04 06 07 0E 0F 11 14 1A 1C 20 21 22 KM........... !"
003DC0: 24 26 2C 36 37 39 3A 40 41 45 46 4B 4D 11 3F 4F $&,679:@AEFKM.?O
003DD0: 34 13 3F 25 28 29 2A 31 32 3F 06 09 03 29 2A 31 4.?%()*12?...)*1
003DE0: 32 3F 00 00 00 13 3F 00 3F 00 03 00 35 00 3F 4F 2?....?.?...5.?O
003DF0: 00 3F 00 2B 38 00 03 00 27 00 05 08 00 05 08 00 .?.+8...'.......
003E00: 05 08 00 05 08 00 05 08 00 29 34 3F 49 00 15 00 .........)4?I...
003E10: 15 00 47 00 47 00 3C 47 00 3C 47 00 47 00 47 00 ..G.G.<G.<G.G.G.
003E20: 47 00 47 00 47 00 02 0A 0B 18 1F 2E 42 44 51 00 G.G.G.......BDQ.
003E30: 17 30 3D 00 0C 00 0C 00 0C 00 35 00 43 00 3F 00 .0=.......5.C.?.
003E40: 3F 00 1B 3B 00 04 07 00 3F 00 11 00 3F 00 25 00 ?..;....?...?.%.
003E50: 28 29 2A 31 32 3F 00 13 3F 00 00 00 71 00 13 00 ()*12?..?...q...
003E60: 00 80 00 00 86 00 47 69 6E 77 7B 82 00 00 00 00 ......Ginw{.....
003E70: 85 00 00 7F 00 00 00 00 00 47 77 7B 00 47 00 00 .........Gw{.G..
003E80: 69 6E 82 00 00 00 06 00 07 08 0A 0B 00 09 0C 00 in..............
003E90: 0F 00 69 6E 82 00 29 00 04 15 00 19 00 00 00 00 ..in..).........
003EA0: 58 5A 5B 5C 5D 5E 5F 60 00 00 00 00 00 00 72 00 XZ[\]^_`......r.
003EB0: 00 00 00 00 66 00 10 11 16 17 1C 1E 2F 30 31 32 ....f......./012
003EC0: 33 34 39 42 00 00 02 10 11 13 16 17 1B 1C 1E 22 349B..........."
003ED0: 25 27 28 2A 2B 2C 2D 2F 30 31 32 33 34 36 37 39 %'(*+,-/01234679
003EE0: 3E 42 73 74 7A 7D 7E 80 84 85 00 06 07 08 09 0A >Bstz}~.........
003EF0: 0B 0C 0E 0F 12 18 1D 2E 3B 3C 51 67 6F 00 10 11 ........;<Qgo...
003F00: 3A BF 36 C9 21 BE 36 35 C3 D2 30 CD B2 0F C3 CC :.6.!.65..0.....
003F10: 30 C9 0E 46 CD F8 12 2A D6 32 44 4D CD 63 13 01 0..F...*.2DM.c..
003F20: 10 34 C5 11 05 00 01 2B 32 CD 19 0C 01 DB 32 11 .4.....+2.....2.
003F30: 7C 33 CD C8 31 EB 2B 73 23 72 01 30 32 11 D2 32 |3..1.+s#r.02..2
003F40: CD C8 31 EB 2B 73 23 72 01 25 32 C5 01 21 32 11 ..1.+s#r.%2..!2.
003F50: 16 32 CD C3 31 44 4D 2A 21 32 EB CD 19 0C C3 00 .2..1DM*!2......
003F60: 38 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C 67 C9 44 8.._.....o...g.D
003F70: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
003F80: 98 67 13 D2 88 31 09 1B F1 3D C2 76 31 C9 44 4D .g...1...=.v1.DM
003F90: 21 00 00 3E 10 29 EB 29 EB D2 9D 31 09 3D C2 95 !..>.).)...1.=..
003FA0: 31 C9 69 60 4E 23 46 1A B1 6F 13 1A B0 67 C9 5F 1.i`N#F..o...g._
003FB0: 16 00 7B 95 6F 7A 9C 67 C9 4F 06 00 7B 91 6F 7A ..{.oz.g.O..{.oz
003FC0: 98 67 C9 69 60 4E 23 46 1A 91 6F 13 1A 98 67 C9 .g.i`N#F..o...g.
003FD0: 6F 26 00 1A 95 6F 13 1A 9C 67 C9 5F 16 00 7B 96 o&...o...g._..{.
003FE0: 5F 7A 23 9E 57 EB C9 00 00 00 00 00 00 00 00 00 _z#.W...........
003FF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004010: 00 00 00 00 00 36 00 00 20 20 20 20 20 20 20 20 .....6..
004020: 20 61 01 00 38 00 20 20 20 20 30 00 00 00 00 00 a..8. 0.....
004030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040B0: 00 20 20 20 20 20 20 20 20 4C 53 54 00 00 00 00 . LST....
0040C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040D0: 00 01 00 00 00 00 02 35 00 00 00 00 00 00 00 00 .......5........
0040E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0040F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004100: 16 17 1C 1E 2C 2F 30 31 32 33 34 39 42 00 00 00 ....,/012349B...
004110: 24 00 00 1F 35 68 83 00 00 00 00 00 00 3F 00 13 $...5h.......?..
004120: 00 59 01 18 00 1A 00 8A 00 1F 00 21 00 22 00 24 .Y.........!.".$
004130: 00 27 00 28 00 2B 00 2C 00 2D 00 2E 00 34 00 35 .'.(.+.,.-...4.5
004140: 00 36 00 37 00 3B 00 3C 00 4B 01 06 00 49 01 8B .6.7.;.<.K...I..
004150: 00 4C 01 06 00 07 00 0A 00 49 01 8B 00 DA 00 49 .L.......I.....I
004160: 01 8B 00 4D 01 49 01 4E 01 50 01 4F 01 8B 00 F9 ...M.I.N.P.O....
004170: 00 42 01 40 01 41 01 39 01 2D 01 53 01 4E 01 50 .B.@.A.9.-.S.N.P
004180: 01 4F 01 52 01 14 00 CE 00 2A 00 3F 01 45 01 8C .O.R.....*.?.E..
004190: 00 89 00 38 00 05 00 3D 01 3C 01 25 00 28 01 27 ...8...=.<.%.(.'
0041A0: 01 29 01 25 01 26 01 24 01 1F 01 20 01 13 00 59 .).%.&.$... ...Y
0041B0: 01 18 00 1A 00 8A 00 1F 00 20 00 21 00 22 00 24 ......... .!.".$
0041C0: 00 27 00 2B 00 2C 00 2D 00 2E 00 34 00 35 00 36 .'.+.,.-...4.5.6
0041D0: 00 37 00 3B 00 3C 00 12 00 10 00 1E 00 11 00 EA .7.;.<..........
0041E0: 00 09 00 0C 00 49 01 29 00 8B 00 39 00 3D 00 19 .....I.)...9.=..
0041F0: 00 1E 01 19 00 0E 00 2A 01 31 00 32 00 2A 01 33 .......*.1.2.*.3
004200: 00 2A 01 02 00 FA 00 F7 00 F6 00 17 00 22 01 16 .*..........."..
004210: 00 49 01 2F 00 8B 00 0F 00 2F 01 38 01 13 00 18 .I./...../.8....
004220: 00 1A 00 8A 00 1F 00 21 00 24 00 27 00 2B 00 2C .......!.$.'.+.,
004230: 00 2D 00 2E 00 34 00 35 00 36 00 37 00 3B 00 3C .-...4.5.6.7.;.<
004240: 00 1C 00 49 01 30 00 8B 00 1D 00 38 01 CF 00 D0 ...I.0.....8....
004250: 00 13 00 59 01 18 00 1A 00 8A 00 1F 00 21 00 22 ...Y.........!."
004260: 00 24 00 27 00 2B 00 2C 00 2D 00 2E 00 34 00 35 .$.'.+.,.-...4.5
004270: 00 36 00 37 00 3B 00 3C 00 08 00 0B 00 08 00 14 .6.7.;.<........
004280: 01 0B 00 13 00 59 01 15 00 18 00 1A 00 8A 00 1F .....Y..........
004290: 00 20 00 21 00 22 00 24 00 27 00 2B 00 2C 00 2D . .!.".$.'.+.,.-
0042A0: 00 2E 00 34 00 35 00 36 00 37 00 3B 00 3C 00 15 ...4.5.6.7.;.<..
0042B0: 00 46 01 3E 00 29 00 C5 00 46 01 23 00 26 00 49 .F.>.)...F.#.&.I
0042C0: 01 4E 01 50 01 4F 01 8B 00 4A 01 0D 00 04 00 49 .N.P.O...J.....I
0042D0: 01 4E 01 50 01 4F 01 8B 00 00 00 00 00 00 00 CC .N.P.O..........
0042E0: 00 CC 00 03 00 1B 00 B4 00 46 01 47 01 3A 00 B5 .........F.G.:..
0042F0: 00 C8 00 C8 00 DC 00 42 00 B6 00 43 00 43 00 B7 .......B...C.C..
004300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004310: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004320: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004340: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004350: 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 ............
004360: 20 20 20 20 43 49 4E 00 00 00 00 00 00 00 00 00 CIN.........
004370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
004380: 00 00 00 00 00 39 00 5C 00 00 00 00 00 00 00 00 .....9.\........
004390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 06 ................
0043C0: 00 09 00 2D 00 50 00 86 00 B7 00 E7 00 02 01 16 ...-.P..........
0043D0: 01 2C 01 68 01 82 01 90 01 00 00 00 00 00 00 00 .,.h............
0043E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0043F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004400: 00 00 00 00 00 00 00 00 00 00 00 00 00 01 0D 05 ................
004410: 20 20 20 31 20 00 00 00 00 00 00 00 00 00 00 00 1 ...........
004420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004460: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
004470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004490: 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0044A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0044B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0044C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0044D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0044E0: 01 00 00 00 00 00 00 00 00 FF 01 00 00 00 00 00 ................
0044F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004500: 00 44 00 44 01 45 00 B8 00 4C 00 4C 00 09 01 4D .D.D.E...L.L...M
004510: 00 4D 00 0C 01 4E 00 4E 00 0D 01 4F 00 4F 00 0A .M...N.N...O.O..
004520: 01 50 00 50 00 0B 01 51 00 51 00 51 00 51 00 B9 .P.P...Q.Q.Q.Q..
004530: 00 53 00 18 01 55 00 19 01 57 00 BA 00 58 00 BB .S...U...W...X..
004540: 00 5A 00 5A 00 BC 00 5B 00 5B 00 BD 00 5C 00 BE .Z.Z...[.[...\..
004550: 00 5D 00 BF 00 5E 00 C0 00 5F 00 C1 00 60 00 C2 .]...^..._...`..
004560: 00 C3 00 C3 00 C3 00 65 00 C3 00 C3 00 C3 00 C3 .......e........
004570: 00 C3 00 1C 01 66 00 66 00 66 00 DF 00 6A 00 0E .....f.f.f...j..
004580: 01 6B 00 0F 01 6C 00 10 01 71 00 C4 00 72 00 D8 .k...l...q...r..
004590: 00 73 00 E6 00 74 00 E7 00 F8 00 F8 00 77 00 78 .s...t.......w.x
0045A0: 00 78 00 04 01 7A 00 D7 00 7C 00 EE 00 7D 00 C6 .x...z...|...}..
0045B0: 00 81 00 D5 00 83 00 83 00 83 00 83 00 83 00 83 ................
0045C0: 00 D9 00 CD 00 CD 00 86 00 00 00 00 00 D6 00 61 ...............a
0045D0: 00 7E 00 B0 00 80 00 CB 00 CA 00 B3 00 76 00 75 .~...........v.u
0045E0: 00 32 01 F4 00 F5 00 33 01 32 01 F3 00 D1 00 AE .2.....3.2......
0045F0: 00 B2 00 A4 00 AB 00 AA 00 E0 00 EC 00 EB 00 70 ...............p
004600: 00 7F 00 48 00 F0 00 34 01 35 01 34 01 D2 00 63 ...H...4.5.4...c
004610: 00 62 00 47 00 D5 00 D5 00 D5 00 B1 00 67 00 6F .b.G.........g.o
004620: 00 79 00 AD 00 93 00 95 00 94 00 96 00 92 00 A6 .y..............
004630: 00 A7 00 A5 00 12 01 11 01 D8 00 D8 00 D8 00 A9 ................
004640: 00 AF 00 7B 00 54 00 99 00 98 00 1B 01 1A 01 1D ...{.T..........
004650: 01 46 00 68 00 FC 00 FD 00 00 01 02 01 03 01 FE .F.h............
004660: 00 FF 00 01 01 FB 00 E1 00 6E 00 D3 00 AC 00 97 .........n......
004670: 00 69 00 2E 01 82 00 17 01 52 00 3A 01 85 00 84 .i.......R.:....
004680: 00 59 00 9D 00 9A 00 DE 00 9E 00 9C 00 9B 00 9F .Y..............
004690: 00 A0 00 A1 00 A2 00 56 00 EF 00 30 01 D4 00 3E .......V...0...>
0046A0: 01 40 00 90 00 90 00 8D 00 90 00 90 00 56 01 90 .@...........V..
0046B0: 00 90 00 58 01 36 01 E2 00 8E 00 C8 00 8F 00 90 ...X.6..........
0046C0: 00 15 01 90 00 90 00 90 00 90 00 90 00 90 00 91 ................
0046D0: 00 16 01 90 00 DD 00 90 00 E9 00 E9 00 E3 00 C9 ................
0046E0: 00 C9 00 40 00 E8 00 E8 00 41 00 13 01 13 01 13 ...@.....A......
0046F0: 01 13 01 13 01 13 01 13 01 13 01 13 01 F2 00 05 ................
004700: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004710: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
004720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004730: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004740: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004760: 00 00 00 00 00 00 00 00 00 00 1A 1A 1A 1A 1A 1A ................
004770: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0047F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004800: 31 A8 38 11 00 01 0E 1A CD 05 00 01 AA 38 CD 4E 1.8..........8.N
004810: 38 FE FF C2 1C 38 01 32 4F CD 76 38 21 00 01 22 8....8.2O.v8!.."
004820: CB 38 2A CB 38 44 4D CD 5E 38 FE 00 C2 3C 38 11 .8*.8DM.^8...<8.
004830: 80 00 2A CB 38 19 22 CB 38 C3 22 38 11 80 00 0E ..*.8.".8."8....
004840: 1A CD 05 00 21 4C 38 E5 2A A8 38 E9 FB 76 21 CE ....!L8.*.8..v!.
004850: 38 70 2B 71 2A CD 38 EB 0E 0F CD 05 00 C9 21 D0 8p+q*.8.......!.
004860: 38 70 2B 71 2A CF 38 EB 0E 1A CD 05 00 11 AA 38 8p+q*.8........8
004870: 0E 14 CD 05 00 C9 21 D2 38 70 2B 71 2A D1 38 7C ......!.8p+q*.8|
004880: 5F 16 00 0E 02 CD 05 00 2A D1 38 7D 5F 16 00 0E _.......*.8}_...
004890: 02 CD 05 00 CD 00 00 C9 00 00 00 00 00 00 00 00 ................
0048A0: 00 00 00 00 00 00 00 00 00 01 00 43 4F 42 4F 4C ...........COBOL
0048B0: 20 20 20 4F 56 52 00 00 00 00 00 00 00 00 00 00 OVR..........
0048C0: 00 00 00 00 00 00 00 00 00 00 00 32 33 35 45 32 ...........235E2
0048D0: 33 35 36 45 31 37 32 35 39 0D 0A 3A 31 30 00 20 356E17259..:10.
0048E0: 90 00 40 00 08 21 10 92 10 21 12 42 48 00 09 10 ..@..!...!.BH...
0048F0: 02 40 00 10 40 08 08 41 02 00 82 42 48 09 09 20 .@..@..A...BH..
004900: 01 F1 00 49 00 4A 00 07 01 4B 00 06 01 08 01 54 ...I.J...K.....T
004910: 01 43 01 43 01 43 01 43 01 43 01 43 01 43 01 43 .C.C.C.C.C.C.C.C
004920: 01 43 01 43 01 43 01 43 01 43 01 43 01 43 01 48 .C.C.C.C.C.C.C.H
004930: 01 87 00 A8 00 51 01 55 01 2C 01 64 00 E4 00 21 .....Q.U.,.d...!
004940: 01 E5 00 A3 00 DB 00 6D 00 88 00 00 00 01 00 CB ...£...m........
004950: 00 02 00 D9 00 17 00 1C 00 18 00 18 00 18 00 18 ................
004960: 00 18 00 18 00 1B 00 1C 00 18 00 CB 00 CB 00 22 ..............."
004970: 00 CB 00 21 00 D9 00 CB 00 CB 00 22 00 D9 00 24 ...!......."...$
004980: 00 CB 00 CB 00 22 00 CB 00 25 00 2A 00 2B 00 CB ....."...%.*.+..
004990: 00 2E 00 2F 00 CB 00 35 00 CB 00 CB 00 D9 00 CB .../...5........
0049A0: 00 CB 00 CB 00 CB 00 22 00 CB 00 CB 00 CB 00 CB ......."........
0049B0: 00 CB 00 CB 00 25 00 CB 00 CB 00 36 00 CB 00 37 .....%.....6...7
0049C0: 00 22 00 22 00 38 00 CB 00 3A 00 3B 00 3D 00 CB .".".8...:.;.=..
0049D0: 00 3E 00 3D 00 40 00 41 00 49 00 5E 00 5F 00 61 .>.=.@.A.I.^._.a
0049E0: 00 62 00 63 00 63 00 63 00 63 00 63 00 65 00 69 .b.c.c.c.c.c.e.i
0049F0: 00 6A 00 6B 00 6A 00 6D 00 6E 00 6E 00 6F 00 70 .j.k.j.m.n.n.o.p
004A00: 00 72 00 6E 00 6E 00 6E 00 6E 00 6E 00 74 00 75 .r.n.n.n.n.n.t.u
004A10: 00 77 00 78 00 79 00 2B 00 7A 00 25 00 81 00 7E .w.x.y.+.z.%...~
004A20: 00 7E 00 7E 00 7F 00 81 00 93 00 97 00 37 00 98 .~.~.........7..
004A30: 00 CB 00 CB 00 99 00 9A 00 9B 00 AF 00 B1 00 CB ................
004A40: 00 B4 00 CA 00 CB 00 CB 00 CD 00 CE 00 D0 00 81 ................
004A50: 00 D1 00 CB 00 CB 00 02 00 D7 00 D9 00 01 00 04 ................
004A60: 00 06 00 08 00 0A 00 0D 00 0F 00 12 00 14 00 16 ................
004A70: 00 19 00 1C 00 1F 00 22 00 25 00 2A 00 2C 00 2E .......".%.*.,..
004A80: 00 30 00 32 00 35 00 38 00 3A 00 3C 00 3E 00 40 .0.2.5.8.:.<.>.@
004A90: 00 42 00 4C 00 50 00 52 00 54 00 56 00 58 00 5A .B.L.P.R.T.V.X.Z
004AA0: 00 5C 00 5E 00 61 00 64 00 66 00 68 00 6A 00 6C .\.^.a.d.f.h.j.l
004AB0: 00 73 00 57 01 C7 00 31 01 3B 01 37 01 ED 00 2B .s.W...1.;.7...+
004AC0: 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B .+.+.+.+.+.+.+.+
004AD0: 01 23 01 C7 00 01 00 02 00 02 00 04 00 04 00 06 .#..............
004AE0: 00 06 00 07 00 07 00 07 00 09 00 09 00 0A 00 0A ................
004AF0: 00 0A 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C ................
004B00: 42 21 01 20 08 22 12 11 10 10 88 42 48 49 24 24 B!. .".....BHI$$
004B10: 92 42 49 24 42 49 20 84 24 84 10 92 09 10 92 48 .BI$BI .$......H
004B20: 49 09 20 82 44 04 24 90 90 84 91 08 48 90 90 84 I. .D.$.....H...
004B30: 84 44 24 24 20 48 08 04 08 08 00 04 00 20 84 20 .D$$ H....... .
004B40: 08 42 10 92 04 21 24 44 24 04 88 22 24 92 42 24 .B...!$D$.."$.B$
004B50: 90 92 44 08 41 08 21 02 10 11 10 41 08 42 08 08 ..D.A.!....A.B..
004B60: 90 92 49 24 84 90 92 12 48 20 42 01 24 90 92 49 ..I$....H B.$..I
004B70: 09 24 92 48 08 92 49 08 24 08 91 04 81 12 48 11 .$.H..I.$.....H.
004B80: 24 89 21 20 24 92 49 20 00 00 00 00 00 00 00 00 $.! $.I ........
004B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 24 ...............$
004BB0: 92 49 24 91 00 49 20 89 24 12 48 20 08 40 40 08 .I$..I .$.H .@@.
004BC0: 24 84 84 90 90 22 10 82 01 55 55 55 55 55 55 40 $...."...UUUUUU@
004BD0: 00 80 48 22 48 91 24 49 24 92 49 12 44 42 49 24 ..H"H.$I$.I.DBI$
004BE0: 80 84 84 48 21 24 90 48 92 00 49 24 90 91 08 08 ...H!$.H..I$....
004BF0: 91 24 44 82 48 91 11 08 49 24 84 88 80 10 92 08 .$D.H...I$......
004C00: FF 8C 67 7B B9 C2 19 17 7A 90 C2 19 17 E1 3C C9 ..g{....z.....<.
004C10: 33 33 C3 FA 16 AF C9 00 00 00 39 45 35 00 44 41 33........9E5.DA
004C20: 41 00 30 39 33 00 0A 3A 31 00 30 45 41 00 30 30 A.093..:1.0EA.00
004C30: 46 00 32 30 43 00 42 31 30 00 45 31 43 44 41 41 F.20C.B10.E1CDAA
004C40: 31 30 46 45 32 30 44 41 38 35 30 45 43 33 41 36 10FE20DA850EC3A6
004C50: 33 46 0D 0A 3A 31 30 30 45 42 30 30 30 30 45 32 3F..:100EB0000E2
004C60: 41 30 36 30 40 31 45 30 30 32 42 43 44 41 41 31 A060@1E002BCDAA1
004C70: 30 46 45 30 39 43 41 44 34 30 45 46 45 37 33 0D 0FE09CAD40EFE73.
004C80: 0A 3A 31 30 30 45 43 30 30 30 30 44 43 41 44 34 .:100EC0000DCAD4
004C90: 30 45 46 45 32 31 44 41 45 31 31 30 37 37 31 43 0EFE21DAE110771C
004CA0: 37 42 46 45 31 30 44 32 45 31 42 30 3E 1A 37 C1 7BFE10D2E1B0>.7.
004CB0: D1 E1 C9 44 30 30 30 31 30 43 33 42 36 30 45 44 ...D00010C3B60ED
004CC0: 35 45 35 45 42 32 41 30 36 30 30 32 33 35 45 32 5E5EB2A0600235E2
004CD0: 33 35 36 45 31 37 32 35 39 0D 0A 3A 31 30 00 20 356E17259..:10.
004CE0: 90 00 40 00 08 21 10 92 10 21 12 42 48 00 09 10 ..@..!...!.BH...
004CF0: 02 40 00 10 40 08 08 41 02 00 82 42 48 09 09 08 .@..@..A...BH...
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 01 00 02 09 52 E5 04 00 C1 02 00 00 00 02 ......R.........
004D20: 04 00 C6 02 00 00 00 02 04 00 C2 02 00 00 00 02 ................
004D30: 04 00 C7 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D40: 04 00 C8 02 00 00 00 02 04 00 C4 02 00 00 00 02 ................
004D50: 04 00 C9 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 13 ................
004E10: 00 13 00 14 00 14 00 15 00 15 00 16 00 16 00 18 ................
004E20: 00 18 00 18 00 18 00 19 00 1B 00 1C 00 1D 00 1E ................
004E30: 00 1F 00 1F 00 1F 00 1F 00 1F 00 23 00 23 00 25 ...........#.#.%
004E40: 00 26 00 26 00 26 00 26 00 26 00 26 00 26 00 26 .&.&.&.&.&.&.&.&
004E50: 00 26 00 26 00 2A 00 2A 00 2B 00 2B 00 2C 00 2C .&.&.*.*.+.+.,.,
004E60: 00 2C 00 2C 00 2C 00 2E 00 2E 00 2E 00 33 00 33 .,.,.,.......3.3
004E70: 00 36 00 36 00 38 00 38 00 38 00 3C 00 3C 00 3E .6.6.8.8.8.<.<.>
004E80: 00 3E 00 41 00 41 00 41 00 43 00 43 00 43 00 44 .>.A.A.A.C.C.C.D
004E90: 00 44 00 45 00 45 00 45 00 45 00 45 00 45 00 46 .D.E.E.E.E.E.E.F
004EA0: 00 46 00 4F 00 4F 00 50 00 50 00 51 00 51 00 52 .F.O.O.P.P.Q.Q.R
004EB0: 00 52 00 52 00 52 00 53 00 53 00 54 00 56 00 57 .R.R.R.S.S.T.V.W
004EC0: 00 57 00 58 00 58 00 59 00 59 00 5A 00 5A 00 5A .W.X.X.Y.Y.Z.Z.Z
004ED0: 00 5C 00 5C 00 6B 00 6C 00 91 00 91 00 91 00 A4 .\.\.k.l........
004EE0: 00 B4 00 B4 00 B5 00 B6 00 B6 00 B6 00 B8 00 B8 ................
004EF0: 00 B8 00 B9 00 B9 00 BE 00 BE 00 BF 00 C0 00 00 ................
004F00: 01 01 15 06 01 05 03 03 03 03 03 03 01 05 03 01 ................
004F10: 01 02 01 01 06 01 01 02 06 01 01 01 02 01 05 01 ................
004F20: 03 01 01 06 01 01 01 01 06 01 01 01 01 02 01 01 ................
004F30: 01 01 01 01 05 01 01 01 01 01 02 02 02 01 01 02 ................
004F40: 01 01 02 01 01 08 15 01 02 01 01 02 02 02 02 02 ................
004F50: 04 01 01 02 01 01 01 01 01 02 02 01 01 01 01 01 ................
004F60: 01 02 01 01 01 03 04 05 12 01 01 01 02 12 04 01 ................
004F70: 01 01 01 01 01 01 14 02 03 01 16 01 01 02 01 02 ................
004F80: 01 12 06 01 01 15 02 06 03 02 02 02 03 02 03 02 ................
004F90: 02 03 03 03 03 03 05 02 02 02 02 03 03 02 02 02 ................
004FA0: 02 02 0A 04 02 02 02 02 02 02 02 03 03 02 02 02 ................
004FB0: 02 07 03 1B 3A 42 43 45 51 57 58 5A 5B 5C 5D 5E ....:BCEQWXZ[\]^
004FC0: 5F 60 65 71 05 01 00 00 01 00 01 01 02 02 01 02 _`eq............
004FD0: 00 00 02 01 00 02 01 00 01 04 01 01 03 03 01 03 ................
004FE0: 01 00 01 00 01 01 02 00 01 01 00 02 00 01 01 01 ................
004FF0: 01 01 02 02 02 05 03 00 01 00 04 04 04 06 06 04 ................
005000: 12 C9 21 63 35 72 2B 73 2B 71 2B D1 C1 70 2B 71 ..!c5r+s+q+..p+q
005010: D5 2A 62 35 2B 22 62 35 11 FF FF CD 66 33 B5 CA .*b5+"b5....f3..
005020: 33 13 2A 5F 35 3A 61 35 77 2A 5F 35 23 22 5F 35 3.*_5:a5w*_5#"_5
005030: C3 11 13 C9 3A 29 36 1F D2 46 13 21 29 36 36 00 ....:)6..F.!)66.
005040: 2B 7E 32 CE 35 C9 2A 27 35 23 22 27 35 EB 21 CC +~2.5.*'5#"'5.!.
005050: 35 CD 92 33 DA 73 13 CD A6 12 1F DA 6D 13 21 F9 5..3.s......m.!.
005060: 37 22 CC 35 21 C1 0C 22 27 35 C3 73 13 21 80 00 7".5!.."'5.s.!..
005070: 22 27 35 2A 27 35 7E FE 1A C2 88 13 21 F9 37 22 "'5*'5~.....!.7"
005080: CC 35 21 C1 0C 22 27 35 2A 27 35 7E 32 CE 35 C9 .5!.."'5*'5~2.5.
005090: CD 34 13 32 CE 35 C9 21 2B 36 36 01 3A CF 35 21 .4.2.5.!+66.:.5!
0050A0: 2B 36 BE DA DD 13 3A C6 33 21 7A 34 B6 1F D2 BE +6....:.3!z4....
0050B0: 13 2A 2B 36 26 00 01 CF 35 09 4E CD F3 0F 3A C6 .*+6&...5.N...:.
0050C0: 33 21 2C 35 B6 1F D2 D6 13 2A 2B 36 26 00 01 CF 3!,5.....*+6&...
0050D0: 35 09 4E CD 38 10 21 2B 36 34 C2 9C 13 3A 27 36 5.N.8.!+64...:'6
0050E0: 1F D2 F9 13 01 D4 33 C5 11 05 00 01 D0 35 CD C4 ......3......5..
0050F0: 12 21 27 36 36 00 C3 FF 13 01 CF 35 CD A7 10 21 .!'66......5...!
005100: CF 35 36 05 C9 3A CF 35 FE 57 D2 1F 14 3A CF 35 .56..:.5.W...:.5
005110: 3C 32 CF 35 4F 06 00 21 CF 35 09 3A CE 35 77 CD <2.5O..!.5.:.5w.
005120: 90 13 C9 3A 7A 35 FE 51 D2 3D 14 3A 7A 35 3C 32 ...:z5.Q.=.:z5<2
005130: 7A 35 4F 06 00 21 7A 35 09 3A CE 35 77 CD 05 14 z5O..!z5.:.5w...
005140: C9 3A CE 35 FE 0D CA 4F 14 CD 05 14 C3 41 14 C9 .:.5...O.....A..
005150: 3A CE 35 D6 20 D6 01 9F F5 3A CE 35 D6 09 D6 01 :.5. ....:.5....
005160: 9F C1 48 B1 1F D2 6E 14 CD 05 14 C3 08 15 3A CE ..H...n.......:.
005170: 35 FE 0D C2 07 15 CD 05 14 CD 05 14 CD 97 13 01 5...............
005180: 01 00 CD FD 10 3A CE 35 FE 0D C2 99 14 CD 05 14 .....:.5........
005190: CD 05 14 CD 97 13 C3 85 14 3A 2B 35 1F D2 B8 14 .........:+5....
0051A0: 21 2C 36 36 01 3E 06 21 2C 36 BE DA B8 14 CD 05 !,66.>.!,6......
0051B0: 14 21 2C 36 34 C2 A5 14 3A CE 35 FE 2A C2 C6 14 .!,64...:.5.*...
0051C0: CD 41 14 C3 04 15 3A CE 35 FE 2F C2 EC 14 3A 7A .A....:.5./...:z
0051D0: 34 1F D2 DA 14 0E 0C CD F3 0F 3A 2C 35 1F D2 E6 4.........:,5...
0051E0: 14 0E 0C CD 38 10 CD 41 14 C3 04 15 3A CE 35 FE ....8..A....:.5.
0051F0: 3A C2 04 15 3A CE 33 1F DA 01 15 CD 41 14 C3 04 :...:.3.....A...
005200: 06 04 04 03 00 01 00 01 00 02 02 01 01 00 02 02 ................
005210: 00 02 00 02 01 01 02 00 02 00 02 00 02 02 00 00 ................
005220: 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
005230: 00 00 01 00 01 01 00 00 01 02 00 00 00 00 00 00 ................
005240: 00 00 00 00 00 00 00 00 00 03 00 02 00 00 00 00 ................
005250: 00 00 00 00 00 00 00 01 00 00 00 0C 12 19 2A 36 ..............*6
005260: 3F 49 4D 50 42 59 47 4F 49 46 4E 4F 4F 52 54 4F ?IMPBYGOIFNOORTO
005270: 45 4F 46 41 44 44 41 4E 44 45 4E 44 49 2D 4F 4E EOFADDANDENDI-ON
005280: 4F 54 52 55 4E 43 41 4C 4C 45 4C 53 45 45 58 49 OTRUNCALLELSEEXI
005290: 54 46 52 4F 4D 49 4E 54 4F 4C 45 53 53 4D 4F 56 TFROMINTOLESSMOV
0052A0: 45 4E 45 58 54 4F 50 45 4E 50 41 47 45 52 45 41 ENEXTOPENPAGEREA
0052B0: 44 53 49 5A 45 53 54 4F 50 54 48 52 55 57 49 54 DSIZESTOPTHRUWIT
0052C0: 48 5A 45 52 4F 41 46 54 45 52 43 4C 4F 53 45 45 HZEROAFTERCLOSEE
0052D0: 4E 54 45 52 45 51 55 41 4C 45 52 52 4F 52 49 4E NTEREQUALERRORIN
0052E0: 50 55 54 51 55 4F 54 45 53 50 41 43 45 54 49 4D PUTQUOTESPACETIM
0052F0: 45 53 55 4E 54 49 4C 55 53 49 4E 47 57 52 49 54 ESUNTILUSINGWRIT
005300: 45 41 43 43 45 50 54 42 45 46 4F 52 45 44 45 4C EACCEPTBEFOREDEL
005310: 45 54 45 44 49 56 49 44 45 45 4E 44 2D 49 46 47 ETEDIVIDEEND-IFG
005320: 49 56 49 4E 47 4F 55 54 50 55 54 43 4F 4D 50 55 IVINGOUTPUTCOMPU
005330: 54 45 44 49 53 50 4C 41 59 47 52 45 41 54 45 52 TEDISPLAYGREATER
005340: 49 4E 56 41 4C 49 44 4E 55 4D 45 52 49 43 50 45 INVALIDNUMERICPE
005350: 52 46 4F 52 4D 52 45 57 52 49 54 45 52 4F 55 4E RFORMREWRITEROUN
005360: 44 45 44 53 45 43 54 49 4F 4E 56 41 52 59 49 4E DEDSECTIONVARYIN
005370: 47 44 49 56 49 53 49 4F 4E 4D 55 4C 54 49 50 4C GDIVISIONMULTIPL
005380: 59 53 45 4E 54 45 4E 43 45 53 55 42 54 52 41 43 YSENTENCESUBTRAC
005390: 54 41 44 56 41 4E 43 49 4E 47 44 45 50 45 4E 44 TADVANCINGDEPEND
0053A0: 49 4E 47 50 52 4F 43 45 44 55 52 45 41 4C 50 48 INGPROCEDUREALPH
0053B0: 41 42 45 54 49 43 00 00 06 07 10 0C 07 0A 04 03 ABETIC..........
0053C0: 01 20 20 20 20 20 20 45 4F 46 20 20 64 0A 57 52 . EOF d.WR
0053D0: 24 0D 0A 24 55 4C 20 24 20 45 52 52 4F 52 20 4E $..$UL $ ERROR N
0053E0: 45 41 52 20 24 20 50 52 4F 47 52 41 4D 20 45 52 EAR $ PROGRAM ER
0053F0: 52 4F 52 28 53 29 24 31 C5 33 21 2A 36 36 50 21 ROR(S)$1.3!*66P!
005400: 15 CD 05 14 C3 08 15 C9 C3 50 14 C9 3A CE 35 D6 .........P..:.5.
005410: 20 D6 01 9F F5 3A CE 35 D6 0D D6 01 9F C1 48 B1 ....:.5......H.
005420: F5 3A CE 35 D6 09 D6 01 9F C1 48 B1 C9 3A CE 35 .:.5......H..:.5
005430: D6 28 D6 01 9F C9 3A CE 35 D6 29 D6 01 9F C9 3A .(....:.5.)....:
005440: CE 35 FE 2E CA 4A 15 3E 00 C9 CD 34 13 32 28 36 .5...J.>...4.2(6
005450: 21 29 36 36 01 CD 0C 15 1F D2 64 15 21 CE 35 36 !)66......d.!.56
005460: 2E 3E 01 C9 21 CE 35 36 2E 3E 00 C9 CD 0C 15 F5 .>..!.56.>......
005470: CD 3F 15 C1 48 B1 F5 CD 2D 15 C1 48 B1 F5 CD 36 .?..H...-..H...6
005480: 15 C1 48 B1 C9 CD 05 14 3A CE 35 FE 27 C2 96 15 ..H.....:.5.'...
005490: CD 05 14 3E 2A C9 CD 23 14 C3 88 15 C9 2A 7A 35 ...>*..#.....*z5
0054A0: 26 00 01 64 35 29 09 11 64 0B CD 46 33 22 2D 36 &..d5)..d..F3"-6
0054B0: 21 2F 36 36 01 2A 7A 35 26 00 01 B6 0C 09 7E 21 !/66.*z5&.....~!
0054C0: 2F 36 BE DA E4 15 CD E7 15 1F D2 D1 15 3A 2F 36 /6...........:/6
0054D0: C9 3A 7A 35 11 2D 36 CD 42 33 EB 2B 73 23 72 23 .:z5.-6.B3.+s#r#
0054E0: 34 C2 B5 15 3E 00 C9 21 30 36 36 01 3A 7A 35 21 4...>..!066.:z5!
0054F0: 30 36 BE DA 1B 16 3A 30 36 3D 4F 06 00 2A 2D 36 06....:06=O..*-6
005500: 09 E5 2A 30 36 26 00 01 7A 35 09 D1 1A BE CA 14 ..*06&..z5......
005510: 16 3E 00 C9 21 30 36 34 C2 EC 15 3E 01 C9 3E 0A .>..!064...>..>.
005520: 21 7A 35 BE DA 57 16 2A 7A 35 26 00 01 59 0B 09 !z5..W.*z5&..Y..
005530: 7E 32 31 36 FE 00 CA 54 16 CD 9D 15 32 32 36 FE ~216...T....226.
005540: 00 CA 4F 16 3A 32 36 21 31 36 86 77 C3 54 16 21 ..O.:26!16.w.T.!
005550: 31 36 36 00 C3 5C 16 21 31 36 36 00 3A 31 36 C9 166..\.!166.:16.
005560: 21 7A 35 36 00 CD 50 14 3A CE 35 FE 27 C2 74 16 !z56..P.:.5.'.t.
005570: CD 85 15 C9 CD 3F 15 1F D2 81 16 CD 23 14 3E 01 .....?......#.>.
005580: C9 CD 2D 15 1F D2 8E 16 CD 23 14 3E 03 C9 CD 36 ..-......#.>...6
005590: 15 1F D2 9B 16 CD 23 14 3E 06 C9 CD 23 14 CD 6C ......#.>...#..l
0055A0: 15 1F D2 A8 16 3E 3F C9 C3 9B 16 C9 CD 60 16 32 .....>?......`.2
0055B0: 2A 36 FE 3F C2 C8 16 CD 1E 16 32 35 35 FE 00 CA *6.?......255...
0055C0: C8 16 3A 35 35 32 2A 36 C9 21 33 36 36 01 3A 7A ..:552*6.!366.:z
0055D0: 35 21 33 36 BE DA F9 16 2A 33 36 26 00 01 7A 35 5!36....*36&..z5
0055E0: 09 4E CD F3 0F 2A 33 36 26 00 01 7A 35 09 4E CD .N...*36&..z5.N.
0055F0: 38 10 21 33 36 34 C2 CE 16 CD 93 10 CD 9C 10 C9 8.!364..........
005600: 06 00 22 3A 36 4E 23 46 0B 60 69 22 CC 33 60 69 ..":6N#F.`i".3`i
005610: 22 C8 33 01 CA 33 11 CC 33 CD 77 33 E5 42 4B 2A ".3..3..3.w3.BK*
005620: CA 33 EB 03 CD C4 12 21 58 34 22 31 35 2A 7B 34 .3.....!X4"15*{4
005630: 01 D9 33 09 22 7B 34 21 03 35 22 33 35 2A 25 35 ..3."{4!.5"35*%5
005640: 01 84 34 09 22 25 35 01 00 00 CD FD 10 3A 47 36 ..4."%5......:G6
005650: 1F D2 69 0F 3E 88 21 8C 36 CD 8F 33 DA 52 0E CD ..i.>.!.6..3.R..
005660: 41 32 2A 8B 36 26 00 01 8E 36 29 09 E5 2A 8C 36 A2*.6&...6)..*.6
005670: EB E1 73 23 72 CD 73 32 CD 2B 32 22 78 36 CD 38 ..s#r.s2.+2"x6.8
005680: 32 11 78 36 CD 42 33 2B EB 23 73 23 72 2A 78 36 2.x6.B3+.#s#r*x6
005690: 22 78 36 11 7A 36 01 78 36 CD 77 33 DA 4F 0E 2A "x6.z6.x6.w3.O.*
0056A0: 78 36 01 03 01 09 3A 2A 36 BE C2 13 0E 3A 2A 36 x6....:*6....:*6
0056B0: D6 3F D6 01 9F F5 3A 2A 36 D6 2A D6 01 9F C1 48 .?....:*6.*....H
0056C0: B1 1F D2 F6 0D 21 00 00 22 7C 36 3A 7A 35 21 7C .....!.."|6:z5!|
0056D0: 36 CD 8F 33 DA F6 0D 2A 7C 36 01 7A 35 09 E5 2A 6..3...*|6.z5..*
0056E0: 7C 36 01 CB 36 09 D1 1A 77 11 01 00 2A 7C 36 19 |6..6...w...*|6.
0056F0: 22 7C 36 D2 CB 0D 2A 78 36 01 1B 03 29 09 5E 23 "|6...*x6...).^#
005700: 56 EB 22 8C 36 21 89 36 36 01 2A 7A 36 22 78 36 V.".6!.66.*z6"x6
005710: C3 42 0E 01 7A 36 11 78 36 CD 77 33 B5 C2 42 0E .B..z6.x6.w3..B.
005720: 01 50 4E CD FD 10 01 D8 0C CD 63 10 CD C9 16 CD .PN.......c.....
005730: F6 32 6F 26 00 22 8C 36 FE 00 C2 42 0E 21 47 36 .2o&.".6...B.!G6
005740: 36 00 11 01 00 2A 78 36 19 22 78 36 D2 93 0D C3 6....*x6."x6....
005750: 66 0F 3E C4 21 8C 36 CD 8F 33 D2 F2 0E CD 38 32 f.>.!.6..3....82
005760: 4F 3A 8B 36 91 32 85 36 3A 85 36 3C 32 86 36 3E O:.6.2.6:.6<2.6>
005770: C4 11 8C 36 CD 84 33 4D CD B6 27 3A 85 36 32 8B ...6..3M..':.62.
005780: 36 CD 2B 32 22 78 36 2A 8B 36 26 00 01 8E 36 29 6.+2"x6*.6&...6)
005790: 09 5E 23 56 EB 22 7A 36 2A 78 36 01 5A 02 09 E5 .^#V."z6*x6.Z...
0057A0: 6E 26 00 22 7C 36 7D D6 00 C6 FF 9F 01 7C 36 11 n&."|6}......|6.
0057B0: 7A 36 F5 CD 77 33 B5 C6 FF 9F C1 48 A1 E1 1F D2 z6..w3.....H....
0057C0: CC 0E 2A 78 36 23 22 78 36 C3 98 0E 2A 78 36 01 ..*x6#"x6...*x6.
0057D0: C9 05 29 09 5E 23 56 EB 22 7C 36 3E 00 CD 63 33 ..).^#V."|6>..c3
0057E0: B5 C2 E9 0E 21 47 36 36 00 2A 7C 36 22 8C 36 C3 ....!G66.*|6".6.
0057F0: 66 0F 3E B3 21 8C 36 CD 8F 33 DA 4C 0F CD 2B 32 f.>.!.6..3.L..+2
005800: 21 34 36 71 21 35 36 36 00 3E 01 21 35 36 BE DA !46q!566.>.!56..
005810: 4B 17 21 36 36 36 00 2A 35 36 26 00 01 CC 0C 09 K.!666.*56&.....
005820: 7E 32 37 36 4F 3A 34 36 B9 DA 3B 17 21 37 36 3A ~276O:46..;.!76:
005830: 34 36 96 32 34 36 2B 34 C3 17 17 3A 36 36 C6 30 46.246+4...:66.0
005840: 4F CD F3 0F 21 35 36 34 C2 09 17 3A 34 36 C6 30 O...!564...:46.0
005850: 4F CD F3 0F C9 21 3D 36 70 2B 71 01 04 00 2A 38 O....!=6p+q...*8
005860: 36 09 E5 2A 3C 36 EB E1 73 23 72 C9 01 04 00 2A 6..*<6..s#r....*
005870: 38 36 09 5E 23 56 EB C9 01 08 00 2A 38 36 09 5E 86.^#V.....*86.^
005880: 23 56 EB C9 2A 38 36 23 23 7E C9 21 3E 36 71 2A #V..*86##~.!>6q*
005890: 38 36 23 23 3A 3E 36 77 C9 01 06 00 2A 38 36 09 86##:>6w....*86.
0058A0: 5E 23 56 EB C9 01 0A 00 2A 38 36 09 7E C9 01 0B ^#V.....*86.~...
0058B0: 00 2A 38 36 09 7E C9 01 03 00 2A 38 36 09 7E C9 .*86.~....*86.~.
0058C0: 21 3F 36 71 2A 81 34 22 40 36 3A 3F 36 C6 0E 32 !?6q*.4"@6:?6..2
0058D0: 3F 36 4F 06 00 2A 38 36 09 22 81 34 11 C8 33 CD ?6O..*86.".4..3.
0058E0: 87 33 D2 EB 17 01 54 53 CD 73 12 2A 40 36 E5 2A .3....TS.s.*@6.*
0058F0: 3F 36 26 00 EB 0E 00 CD 02 13 C9 11 0E 00 2A 38 ?6&...........*8
005900: 36 19 E5 CD B7 17 5F 16 00 E1 19 22 3A 36 2A 3A 6....._....":6*:
005910: 36 5E 23 56 EB C9 21 42 36 71 3A 42 36 E6 7F C9 6^#V..!B6q:B6...
005920: 2A 2D 35 22 45 36 21 43 36 36 01 3E 40 21 43 36 *-5"E6!C66.>@!C6
005930: BE DA C2 18 2A 45 36 3E 00 CD 8F 33 B5 CA B3 18 ....*E6>...3....
005940: 2A 45 36 5E 23 56 EB 22 38 36 3E 00 11 38 36 CD *E6^#V."86>..86.
005950: 84 33 B5 CA B3 18 CD 84 17 FE FF C2 A6 18 01 D4 .3..............
005960: 0C CD 63 10 21 44 36 36 01 CD B7 17 21 44 36 BE ..c.!D66....!D6.
005970: DA 9A 18 3A 44 36 C6 0D 4F 06 00 2A 38 36 09 4E ...:D6..O..*86.N
005980: CD F3 0F 3A 44 36 C6 0D 4F 06 00 2A 38 36 09 4E ...:D6..O..*86.N
005990: CD 38 10 21 44 36 34 C2 69 18 CD 93 10 CD 9C 10 .8.!D64.i.......
0059A0: 01 CF 33 CD A7 10 2A 38 36 5E 23 56 EB 22 38 36 ..3...*86^#V."86
0059B0: C3 4A 18 2A 45 36 23 23 22 45 36 21 43 36 34 C2 .J.*E6##"E6!C64.
0059C0: 2B 18 C9 21 A9 37 71 3E 39 21 A9 37 96 9F 2F F5 +..!.7q>9!.7../.
0059D0: 7E D6 30 9F 2F C1 48 A1 C9 21 AA 37 71 3A AA 37 ~.0./.H..!.7q:.7
0059E0: D6 41 9F 2F F5 3E 5A 21 AA 37 96 9F 2F C1 48 A1 .A./.>Z!.7../.H.
0059F0: C9 01 54 49 CD FD 10 C9 21 AB 37 71 3A 83 34 1F ..TI....!.7q:.4.
005A00: 22 78 36 CD 73 32 2A 78 36 01 E4 01 09 E5 6E 26 "x6.s2*x6.....n&
005A10: 00 22 7C 36 7D D6 00 C6 FF 9F 21 7C 36 F5 3A 2A ."|6}.....!|6.:*
005A20: 36 CD 8F 33 B5 C6 FF 9F C1 48 A1 E1 1F D2 3A 0F 6..3.....H....:.
005A30: 2A 78 36 23 22 78 36 C3 06 0F 2A 78 36 01 DD 04 *x6#"x6...*x6...
005A40: 29 09 5E 23 56 EB 22 8C 36 C3 66 0F CD 41 32 CD ).^#V.".6.f..A2.
005A50: 38 32 2A 8B 36 26 00 01 8E 36 29 09 77 23 36 00 82*.6&...6).w#6.
005A60: CD 2B 32 22 8C 36 C3 4D 0D 0E 45 CD 05 1B 2A 7D .+2".6.M..E...*}
005A70: 34 44 4D CD 2B 19 3A 83 34 1F DA 8C 0F 11 04 35 4DM.+.:.4......5
005A80: 01 84 34 CD 03 10 01 04 35 CD 8B 12 CD 20 18 CD ..4.....5.... ..
005A90: 93 10 CD 9C 10 21 00 00 22 78 36 3E 04 21 78 36 .....!.."x6>.!x6
005AA0: CD 8F 33 DA C9 0F 2A 78 36 01 CF 33 09 4E CD F3 ..3...*x6..3.N..
005AB0: 0F 2A 78 36 01 CF 33 09 4E CD 38 10 11 01 00 2A .*x6..3.N.8....*
005AC0: 78 36 19 22 78 36 D2 9B 0F 01 E5 0C CD 63 10 01 x6."x6.......c..
005AD0: 31 35 11 7B 34 CD 77 33 D2 E3 0F 0E 20 CD 38 10 15.{4.w3.... .8.
005AE0: C3 CF 0F 0E 20 CD 38 10 01 59 34 CD 8B 12 CD 00 .... .8..Y4.....
005AF0: 00 FB 76 21 38 35 71 2A 38 35 26 00 EB 0E 02 CD ..v!85q*85&.....
005B00: 05 00 C9 21 3C 35 72 2B 73 2B 70 2B 71 2A 39 35 ...!<5r+s+p+q*95
005B10: EB 0E 1A CD 05 00 2A 3B 35 EB 0E 15 CD 05 00 FE ......*;5.......
005B20: 00 CA 2F 10 11 CE 0C 0E 09 CD 05 00 CD 00 00 11 ../.............
005B30: 80 00 0E 1A CD 05 00 C9 21 3D 35 71 2A 7B 34 23 ........!=5q*{4#
005B40: 22 7B 34 11 31 35 CD 87 33 D2 5B 10 11 59 34 01 "{4.15..3.[..Y4.
005B50: D9 33 CD 03 10 21 D9 33 22 7B 34 2A 7B 34 3A 3D .3...!.3"{4*{4:=
005B60: 35 77 C9 21 3F 35 70 2B 71 2A 3E 35 22 40 35 2A 5w.!?5p+q*>5"@5*
005B70: 3E 35 EB 0E 09 CD 05 00 2A 40 35 7E FE 24 CA 92 >5......*@5~.$..
005B80: 10 2A 40 35 4E CD 38 10 2A 40 35 23 22 40 35 C3 .*@5N.8.*@5#"@5.
005B90: 78 10 C9 11 D1 0C 0E 09 CD 05 00 C9 0E 0D CD 38 x..............8
005BA0: 10 0E 0A CD 38 10 C9 21 43 35 70 2B 71 21 44 35 ....8..!C5p+q!D5
005BB0: 36 04 2A 44 35 26 00 EB 2A 42 35 19 7E 3C 77 FE 6.*D5&..*B5.~<w.
005BC0: 3A C2 FC 10 2A 44 35 26 00 EB 2A 42 35 19 36 30 :...*D5&..*B5.60
005BD0: 3E 00 21 44 35 BE D2 F9 10 3A 44 35 3D 32 44 35 >.!D5....:D5=2D5
005BE0: 4F 06 00 2A 42 35 09 7E FE 20 C2 F9 10 2A 44 35 O..*B5.~. ...*D5
005BF0: 26 00 EB 2A 42 35 19 36 30 C3 B2 10 C9 21 46 35 &..*B5.60....!F5
005C00: D2 04 19 C9 2A 25 35 23 22 25 35 11 33 35 CD 87 ....*%5#"%5.35..
005C10: 33 D2 23 19 11 04 35 01 84 34 CD 03 10 21 84 34 3.#...5..4...!.4
005C20: 22 25 35 2A 25 35 3A AB 37 77 C9 21 AD 37 70 2B "%5*%5:.7w.!.7p+
005C30: 71 2A AC 37 7D 4F CD F8 18 2A AC 37 7C 4F CD F8 q*.7}O...*.7|O..
005C40: 18 C9 21 AE 37 71 3A AE 37 11 7F 34 CD 42 33 EB ..!.7q:.7..4.B3.
005C50: 2B 73 23 72 EB 11 7D 34 CD 87 33 D2 64 19 01 4F +s#r..}4..3.d..O
005C60: 4D CD 73 12 C9 21 B1 37 72 2B 73 2B 71 2A AF 37 M.s..!.7r+s+q*.7
005C70: 4D CD F8 18 2A B0 37 44 4D CD 2B 19 0E 03 CD 42 M...*.7DM.+....B
005C80: 19 C9 3E 0F 21 CB 36 BE D2 90 19 21 CB 36 36 0F ..>.!.6....!.66.
005C90: 21 B4 37 36 00 23 36 01 3A CB 36 21 B5 37 BE DA !.76.#6.:.6!.7..
005CA0: B9 19 2A B5 37 26 00 01 CB 36 09 3A B4 37 86 32 ..*.7&...6.:.7.2
005CB0: B4 37 21 B5 37 34 C2 98 19 3A B4 37 E6 3F 87 11 .7!.74...:.7.?..
005CC0: 2D 35 CD 42 33 22 B2 37 2A B2 37 3E 00 CD 8F 33 -5.B3".7*.7>...3
005CD0: B5 C2 33 1A 2A 81 34 22 38 36 2A B2 37 E5 2A 81 ..3.*.4"86*.7.*.
005CE0: 34 EB E1 73 23 72 2A CB 36 4D CD C0 17 01 03 00 4..s#r*.6M......
005CF0: 2A 38 36 09 3A CB 36 77 21 B5 37 36 01 3A CB 36 *86.:.6w!.76.:.6
005D00: 21 B5 37 BE DA 27 1A 2A B5 37 26 00 01 CB 36 09 !.7..'.*.7&...6.
005D10: 3A B5 37 C6 0D 4F 06 00 E5 2A 38 36 09 C1 0A 77 :.7..O...*86...w
005D20: 21 B5 37 34 C2 FD 19 0E FF CD 8B 17 2A 38 36 C9 !.74........*86.
005D30: C3 88 1A 2A B2 37 5E 23 56 EB 22 38 36 CD B7 17 ...*.7^#V."86...
005D40: 32 B4 37 21 CB 36 BE C2 88 1A 21 B5 37 36 01 3A 2.7!.6....!.76.:
005D50: B5 37 C6 0D 4F 06 00 2A 38 36 09 E5 2A B5 37 26 .7..O..*86..*.7&
005D60: 00 01 CB 36 09 D1 1A BE C2 88 1A 3A B5 37 3C 32 ...6.......:.7<2
005D70: B5 37 4F 3A B4 37 B9 D2 85 1A 2A B2 37 5E 23 56 .7O:.7....*.7^#V
005D80: EB 22 38 36 C9 C3 4F 1A 2A B2 37 5E 23 56 EB 22 ."86..O.*.7^#V."
005D90: B2 37 C3 C8 19 C9 21 B7 37 70 2B 71 2A 85 36 26 .7....!.7p+q*.6&
005DA0: 00 01 2F 37 29 09 E5 2A B6 37 EB E1 73 23 72 C9 ../7)..*.7..s#r.
005DB0: 21 B9 37 70 2B 71 2A 85 36 26 00 01 6B 37 29 09 !.7p+q*.6&..k7).
005DC0: E5 2A B8 37 EB E1 73 23 72 C9 21 BA 37 71 2A BA .*.7..s#r.!.7q*.
005DD0: 37 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 CD 7&../7).^#V."86.
005DE0: 84 17 FE FF C2 ED 1A 01 44 55 CD FD 10 C9 3A CA ........DU....:.
005DF0: 36 3C 32 CA 36 4F 3E 07 B9 D2 01 1B 21 CA 36 36 6<2.6O>.....!.66
005E00: 70 2B 71 3E 00 11 45 35 CD 84 33 B5 C2 3C 11 21 p+q>..E5..3..<.!
005E10: 53 35 36 00 3E 05 21 53 35 BE DA 34 11 2A 53 35 S56.>.!S5..4.*S5
005E20: 26 00 01 47 35 29 09 3E 00 77 23 36 00 21 53 35 &..G5).>.w#6.!S5
005E30: 34 C2 14 11 21 53 35 36 00 C3 72 12 3E 01 11 45 4...!S56..r.>..E
005E40: 35 CD 84 33 B5 C2 D8 11 21 53 35 36 00 3A 53 35 5..3....!S56.:S5
005E50: D6 06 C6 FF 9F 2A 53 35 26 00 01 47 35 29 09 F5 .....*S5&..G5)..
005E60: 3E 00 CD 8F 33 B5 C6 FF 9F C1 48 A1 1F D2 CB 11 >...3.....H.....
005E70: 2A 53 35 26 00 01 47 35 29 09 23 7E 4F CD F3 0F *S5&..G5).#~O...
005E80: 2A 53 35 26 00 01 47 35 29 09 6E 4D CD F3 0F 2A *S5&..G5).nM...*
005E90: 53 35 26 00 01 47 35 29 09 23 7E 4F CD 38 10 2A S5&..G5).#~O.8.*
005EA0: 53 35 26 00 01 47 35 29 09 6E 4D CD 38 10 CD 93 S5&..G5).nM.8...
005EB0: 10 CD 9C 10 2A 53 35 26 00 01 47 35 29 09 3E 00 ....*S5&..G5).>.
005EC0: 77 23 36 00 21 53 35 34 C3 4D 11 21 53 35 36 00 w#6.!S54.M.!S56.
005ED0: 21 C6 33 36 00 C3 72 12 01 50 4E 11 45 35 CD 7C !.36..r..PN.E5.|
005EE0: 33 B5 D6 01 9F 01 56 4E 1B F5 CD 7C 33 B5 D6 01 3.....VN...|3...
005EF0: 9F C1 48 B1 01 4C 53 1B F5 CD 7C 33 B5 D6 01 9F ..H..LS...|3....
005F00: C1 48 B1 1F D2 48 12 21 C6 33 36 01 2A 45 35 7C .H...H.!.36.*E5|
005F10: 4F CD F3 0F 2A 45 35 7D 4F CD F3 0F 2A 45 35 7C O...*E5}O...*E5|
005F20: 4F CD 38 10 2A 45 35 7D 4F CD 38 10 01 CF 33 CD O.8.*E5}O.8...3.
005F30: A7 10 01 50 4E 11 45 35 CD 7C 33 B5 CA 45 12 CD ...PN.E5.|3..E..
005F40: 93 10 CD 9C 10 C3 72 12 21 C6 33 36 01 3A 53 35 ......r.!.36.:S5
005F50: FE 06 CA 6C 12 2A 53 35 26 00 01 47 35 29 09 E5 ...l.*S5&..G5)..
005F60: 2A 45 35 EB E1 73 23 72 21 53 35 34 01 CF 33 CD *E5..s#r!S54..3.
005F70: A7 10 C9 21 55 35 70 2B 71 2A 54 35 44 4D CD FD ...!U5p+q*T5DM..
005F80: 10 01 01 00 CD FD 10 CD 00 00 C9 21 57 35 70 2B ...........!W5p+
005F90: 71 2A 56 35 EB 0E 10 CD 05 00 FE FF C2 A5 12 01 q*V5............
005FA0: 4C 43 CD 73 12 C9 2A 2F 35 EB 0E 14 CD 05 00 32 LC.s..*/5......2
005FB0: 58 35 4F 3E 01 B9 D2 BF 12 01 52 42 CD 73 12 3A X5O>......RB.s.:
005FC0: 58 35 2F C9 21 5E 35 72 2B 73 2B 70 2B 71 2B D1 X5/.!^5r+s+p+q+.
005FD0: C1 70 2B 71 D5 2A 5D 35 2B 22 5D 35 11 FF FF CD .p+q.*]5+"]5....
005FE0: 66 33 B5 CA 01 13 2A 59 35 E5 2A 5B 35 C1 0A 77 f3....*Y5.*[5..w
005FF0: 2A 59 35 23 22 59 35 2A 5B 35 23 22 5B 35 C3 D5 *Y5#"Y5*[5#"[5..
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 01 00 02 09 52 E5 05 00 C1 02 00 00 00 02 ......R.........
006020: 05 00 C6 02 00 00 00 02 05 00 C2 02 00 00 00 02 ................
006030: 05 00 C7 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006040: 05 00 C8 02 00 00 00 02 05 00 C4 02 00 00 00 02 ................
006050: 05 00 C9 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 01 3A CA 36 C9 21 BB 37 71 2A BB 37 4D CD F8 18 .:.6.!.7q*.7M...
006110: 0E 01 CD 42 19 C9 21 BD 37 70 2B 71 2A BC 37 44 ...B..!.7p+q*.7D
006120: 4D CD 2B 19 0E 02 CD 42 19 C9 21 00 00 22 36 35 M.+....B..!.."65
006130: 3A CC 36 FE 2B C2 40 1B 21 BE 37 36 02 C3 45 1B :.6.+.@.!.76..E.
006140: 21 BE 37 36 01 3A BE 37 32 35 35 3A CB 36 21 35 !.76.:.7255:.6!5
006150: 35 BE DA 9F 1B 2A 35 35 26 00 01 CB 36 09 4E CD 5....*55&...6.N.
006160: C3 18 1F DA 73 1B 01 4E 4E CD FD 10 2A 36 35 C9 ....s..NN...*65.
006170: C3 98 1B 2A 36 35 29 29 29 E5 2A 36 35 29 C1 09 ...*65))).*65)..
006180: E5 2A 35 35 26 00 01 CB 36 09 5E 16 00 E1 19 EB .*55&...6.^.....
006190: 3E 30 CD 6D 33 22 36 35 21 35 35 34 C2 4B 1B 2A >0.m3"65!554.K.*
0061A0: 36 35 C9 21 C2 37 72 2B 73 2B 70 2B 71 0E 44 CD 65.!.7r+s+p+q.D.
0061B0: F8 18 2A BF 37 44 4D CD 2B 19 2A C1 37 44 4D CD ..*.7DM.+.*.7DM.
0061C0: 2B 19 C9 3E 00 11 87 36 CD 84 33 B5 CA E1 1B 2A +..>...6..3....*
0061D0: 87 36 44 4D 2A 7F 34 EB CD A3 1B 21 00 00 22 87 .6DM*.4..£.!..".
0061E0: 36 C9 2A 7F 34 23 44 4D CD 96 1A 11 00 00 0E 0D 6.*.4#DM........
0061F0: CD 65 19 2A 7F 34 44 4D CD B0 1A C9 3A 8B 36 3D .e.*.4DM....:.6=
006200: 4F 06 00 21 2F 37 09 09 4E 23 46 2A 7F 34 EB CD O..!/7..N#F*.4..
006210: A3 1B C9 2A 7F 34 44 4D CD 96 1A 01 00 00 CD 16 £..*.4DM........
006220: 1B C9 2A 8B 36 26 00 01 2F 37 29 09 4E 23 46 CD ..*.6&../7).N#F.
006230: 96 1A 2A 8B 36 26 00 01 6B 37 29 09 4E 23 46 CD ..*.6&..k7).N#F.
006240: B0 1A C9 21 A7 37 36 00 23 36 00 0E 16 CD 05 1B ...!.76.#6......
006250: CD 78 17 44 4D CD 16 1B 2A 8B 36 26 00 01 2F 37 .x.DM...*.6&../7
006260: 29 09 4E CD 05 1B C9 21 C3 37 71 CD 78 17 44 4D ).N....!.7q.x.DM
006270: CD 16 1B CD 6C 17 22 38 36 CD 6C 17 44 4D CD 16 ....l."86.l.DM..
006280: 1B CD 99 17 44 4D CD 16 1B 3A C3 37 FE 00 C2 92 ....DM...:.7....
006290: 1C C9 CD 78 17 22 38 36 01 0A 00 2A 38 36 09 5E ...x."86...*86.^
0062A0: 23 56 EB 22 38 36 CD 6C 17 44 4D CD 16 1B CD 99 #V."86.l.DM.....
0062B0: 17 4D CD 05 1B C9 CD A5 17 FE 01 CA C7 1C 01 4C .M.............L
0062C0: 57 CD FD 10 C3 80 1D 2A 38 36 22 C4 37 CD 78 17 W......*86".7.x.
0062D0: 22 38 36 CD 84 17 32 35 35 D6 01 C6 FF 9F F5 3A "86...255......:
0062E0: A8 37 21 A7 37 B6 C1 48 A1 1F D2 F3 1C 01 43 43 .7!.7..H......CC
0062F0: CD FD 10 3A 35 35 FE 01 C2 22 1D 3A A8 37 1F D2 ...:55...".:.7..
006300: 33 B5 CA 6D 25 3A 84 36 D6 0A 9F 2F F5 3E 0C 21 3..m%:.6.../.>.!
006310: 84 36 96 9F 2F C1 48 A1 2F F5 3A DA 37 D6 0A 9F .6../.H./.:.7...
006320: 2F F5 3E 0C 21 DA 37 96 9F 2F C1 48 A1 C1 48 A9 /.>.!.7../.H..H.
006330: 1F D2 3A 25 CD F1 18 C3 6D 25 3A 80 36 D6 00 C6 ..:%....m%:.6...
006340: FF 9F F5 3A DB 37 D6 00 C6 FF 9F C1 48 B1 1F D2 ...:.7......H...
006350: 6D 25 3A 84 36 D6 50 D6 01 9F F5 3A DA 37 D6 50 m%:.6.P....:.7.P
006360: D6 01 9F C1 48 A9 1F DA 6D 25 CD F1 18 2A 7F 34 ....H...m%...*.4
006370: 44 4D CD B0 1A 3A 49 36 C6 34 4F CD 05 1B 2A DC DM...:I6.4O...*.
006380: 37 44 4D CD 16 1B 2A 7E 36 44 4D CD 16 1B 2A DE 7DM...*~6DM...*.
006390: 37 44 4D CD 16 1B CD 13 1C C9 2A 84 36 4D CD 16 7DM.......*.6M..
0063A0: 18 32 84 36 CD 84 17 4F CD 16 18 32 E0 37 D6 06 .2.6...O...2.7..
0063B0: D6 01 9F F5 3A 84 36 D6 06 D6 01 9F C1 48 B1 1F ....:.6......H..
0063C0: D2 C6 25 3E 00 C9 3A E0 37 FE 08 C2 00 26 CD 8B ..%>..:.7....&..
0063D0: 23 F5 3A 84 36 D6 48 D6 01 9F C1 48 B1 F5 3A 84 #.:.6.H....H..:.
0063E0: 36 D6 49 D6 01 9F C1 48 B1 F5 3A 84 36 D6 07 D6 6.I....H..:.6...
0063F0: 01 9F 21 C5 33 A6 C1 48 B1 1F D2 00 26 3E 00 C9 ..!.3..H....&>..
006400: 3A E0 37 FE 09 C2 21 26 CD 9F 23 F5 3A 84 36 D6 :.7...!&..#.:.6.
006410: 50 C6 FF 9F C1 48 A1 1F D2 1E 26 CD F1 18 3E 00 P....H....&...>.
006420: C9 3A E0 37 D6 10 9F 2F F5 3E 15 21 E0 37 96 9F .:.7.../.>.!.7..
006430: 2F C1 48 A1 1F D2 55 26 3A 84 36 D6 08 D6 01 9F /.H...U&:.6.....
006440: F5 3E 15 21 84 36 96 9F C1 48 B1 1F D2 52 26 CD .>.!.6...H...R&.
006450: F1 18 3E 02 C9 3A E0 37 FE 49 C2 76 26 CD 9F 23 ..>..:.7.I.v&..#
006460: F5 3A 84 36 D6 50 C6 FF 9F C1 48 A1 1F D2 73 26 .:.6.P....H...s&
006470: CD F1 18 3E 01 C9 3A E0 37 FE 48 C2 9D 26 CD 8B ...>..:.7.H..&..
006480: 23 F5 3E 15 21 84 36 96 9F C1 48 B1 F5 7E D6 07 #.>.!.6...H..~..
006490: D6 01 9F C1 48 B1 1F D2 9D 26 3E 01 C9 3A E0 37 ....H....&>..:.7
0064A0: FE 50 C2 BB 26 CD A8 23 F5 3A 84 36 D6 09 D6 01 .P..&..#.:.6....
0064B0: 9F C1 48 B1 1F D2 BB 26 3E 03 C9 CD F1 18 3E 00 ..H....&>.....>.
0064C0: C9 2A 86 36 4D CD D3 1E 2A 8B 36 26 00 01 2F 37 .*.6M...*.6&../7
0064D0: 29 09 5E 23 56 EB 22 38 36 2A 8B 36 26 00 01 6B ).^#V."86*.6&..k
0064E0: 37 29 09 5E 23 56 EB 22 E1 37 3E 00 CD 63 33 B5 7).^#V.".7>..c3.
0064F0: C2 F9 26 CD 6C 17 22 E1 37 CD 99 17 22 E5 37 CD ..&.l.".7...".7.
006500: 05 1D CD 43 1C 0E 30 CD 05 1B 0E 00 CD 67 1C 3A ...C..0......g.:
006510: A7 37 1F D2 1F 1D CD 78 17 22 38 36 CD 43 1C C3 .7.....x."86.C..
006520: 80 1D 3A 35 35 FE 02 C2 37 1D 0E 39 CD 05 1B 0E ..:55...7..9....
006530: 01 CD 67 1C C3 80 1D 3A 35 35 FE 03 C2 4C 1D 0E ..g....:55...L..
006540: 3B CD 05 1B 0E 01 CD 67 1C C3 80 1D 3A 35 35 FE ;......g....:55.
006550: 04 C2 7A 1D 0E 32 CD 05 1B CD 78 17 44 4D CD 16 ..z..2....x.DM..
006560: 1B 2A C4 37 22 38 36 CD 6C 17 44 4D CD 16 1B CD .*.7"86.l.DM....
006570: 99 17 44 4D CD 16 1B C3 80 1D 01 54 46 CD FD 10 ..DM.......TF...
006580: C9 CD 84 17 32 35 35 FE 01 C2 99 1D 0E 2F CD 05 ....255....../..
006590: 1B 0E 00 CD 67 1C C3 F7 1D 3A 35 35 FE 02 C2 AE ....g....:55....
0065A0: 1D 0E 38 CD 05 1B 0E 01 CD 67 1C C3 F7 1D 3A 35 ..8......g....:5
0065B0: 35 FE 03 C2 C3 1D 0E 3A CD 05 1B 0E 01 CD 67 1C 5......:......g.
0065C0: C3 F7 1D 3A 35 35 FE 04 C2 F1 1D 0E 31 CD 05 1B ...:55......1...
0065D0: CD 78 17 44 4D CD 16 1B CD 99 17 44 4D CD 16 1B .x.DM......DM...
0065E0: CD 6C 17 22 38 36 CD 6C 17 44 4D CD 16 1B C3 F7 .l."86.l.DM.....
0065F0: 1D 01 54 46 CD FD 10 C9 2A 84 36 4D CD 16 18 32 ..TF....*.6M...2
006600: 84 36 D6 0F 9F 2F F5 3E 15 21 84 36 96 9F 2F C1 .6.../.>.!.6../.
006610: 48 A1 1F D2 1C 1E 3A 84 36 D6 0F C9 3A 84 36 D6 H.....:.6...:.6.
006620: 0C D6 01 9F F5 3A 84 36 D6 09 D6 01 9F C1 48 B1 .....:.6......H.
006630: 1F D2 37 1E 3E 00 C9 CD F1 18 3E 00 C9 CD 84 17 ..7.>.....>.....
006640: 32 35 35 FE 03 C2 55 1E 0E 3D CD 05 1B 0E 01 CD 255...U..=......
006650: 67 1C C3 70 1E 3A 35 35 FE 02 C2 6A 1E 0E 2E CD g..p.:55...j....
006660: 05 1B 0E 00 CD 67 1C C3 70 1E 01 54 49 CD FD 10 .....g..p..TI...
006670: C9 CD A5 17 FE 01 CA 82 1E 01 4C 57 CD FD 10 C3 ..........LW....
006680: BB 1E CD 78 17 22 38 36 CD 84 17 32 35 35 FE 03 ...x."86...255..
006690: C2 A0 1E 0E 3C CD 05 1B 0E 01 CD 67 1C C3 BB 1E ....<......g....
0066A0: 3A 35 35 FE 02 C2 B5 1E 0E 2D CD 05 1B 0E 00 CD :55......-......
0066B0: 67 1C C3 BB 1E 01 54 49 CD FD 10 C9 2A 7E 36 44 g.....TI....*~6D
0066C0: 4D CD 16 1B 2A 82 36 4D CD 05 1B 2A 80 36 4D CD M...*.6M...*.6M.
0066D0: 05 1B C9 21 C6 37 71 2A C6 37 26 00 01 2F 37 29 ...!.7q*.7&../7)
0066E0: 09 5E 23 56 EB 22 36 35 3E 07 CD 63 33 9F 2F F5 .^#V."65>..c3./.
0066F0: 3E 0F 11 36 35 CD 84 33 B5 D6 01 9F C1 48 B1 1F >..65..3.....H..
006700: 9A 25 4F 06 00 21 80 27 09 09 5E 23 56 EB E9 11 .%O..!.'..^#V...
006710: 82 36 01 E5 37 CD 77 33 D2 2A 27 01 82 36 11 E5 .6..7.w3.*'..6..
006720: 37 CD 77 33 22 E3 37 C3 36 27 21 00 00 22 E3 37 7.w3".7.6'!..".7
006730: 2A E5 37 22 82 36 0E 37 CD 05 1B CD 89 27 2A E3 *.7".6.7.....'*.
006740: 37 44 4D CD 16 1B C3 88 27 0E 3E CD 05 1B CD A2 7DM.....'.>.....
006750: 27 C3 88 27 2A 86 36 EB 0E 02 CD A3 1F 2A 8B 36 '..'*.6....£.*.6
006760: 4D CD C4 1F C3 88 27 0E 3F CD 05 1B CD A2 27 2A M.....'.?.....'*
006770: 80 36 4D CD 05 1B CD AE 17 4F CD 05 1B C3 88 27 .6M......O.....'
006780: 0F 27 49 27 54 27 67 27 C9 2A E1 37 44 4D CD 16 .'I'T'g'.*.7DM..
006790: 1B 2A 7E 36 44 4D CD 16 1B 2A 82 36 44 4D CD 16 .*~6DM...*.6DM..
0067A0: 1B C9 CD 89 27 CD 78 17 44 4D CD 16 1B 2A E5 37 ....'.x.DM...*.7
0067B0: 44 4D CD 16 1B C9 21 E7 37 71 3A 29 35 1F D2 D0 DM....!.7q:)5...
0067C0: 27 CD 93 10 0E 23 CD F3 0F 2A E7 37 4D CD 00 17 '....#...*.7M...
0067D0: 2A E7 37 4D 06 00 21 FE 30 09 09 5E 23 56 EB E9 *.7M..!.0..^#V..
0067E0: C3 2A 32 21 47 36 36 00 3A 8A 36 1F D2 F2 27 CD .*2!G66.:.6...'.
0067F0: 88 22 C3 2A 32 3A 85 36 3D 4F 06 00 21 2F 37 09 .".*2:.6=O..!/7.
006800: 09 3E 00 CD 8F 33 B5 C2 47 28 21 00 00 22 78 36 .>...3..G(!.."x6
006810: 3A 4F 36 21 78 36 CD 8F 33 DA 44 28 2A 78 36 01 :O6!x6..3.D(*x6.
006820: 50 36 29 09 5E 23 56 EB 22 38 36 2A 78 36 01 0D P6).^#V."86*x6..
006830: 00 09 44 4D CD 55 17 11 01 00 2A 78 36 19 22 78 ..DM.U....*x6."x
006840: 36 D2 10 28 C3 8C 28 0E 42 CD 05 1B 3A 4F 36 3C 6..(..(.B...:O6<
006850: 4F 06 00 CD 16 1B 21 00 00 22 78 36 3A 4F 36 21 O.....!.."x6:O6!
006860: 78 36 CD 8F 33 DA 8C 28 2A 78 36 01 50 36 29 09 x6..3..(*x6.P6).
006870: 5E 23 56 EB 22 38 36 CD 6C 17 44 4D CD 16 1B 11 ^#V."86.l.DM....
006880: 01 00 2A 78 36 19 22 78 36 D2 5C 28 C3 2A 32 C3 ..*x6."x6.\(.*2.
006890: 2A 32 2A 8B 36 26 00 01 2F 37 29 09 E5 21 4F 36 *2*.6&../7)..!O6
0068A0: 36 00 E3 4E 23 46 E1 23 71 23 70 C3 2A 32 3A 4F 6..N#F.#q#p.*2:O
0068B0: 36 3C 32 4F 36 FE 14 C2 C5 28 01 44 49 CD FD 10 6<2O6....(.DI...
0068C0: 21 4F 36 36 13 2A 8B 36 26 00 01 2F 37 29 09 E5 !O66.*.6&../7)..
0068D0: 2A 4F 36 26 00 01 50 36 29 09 E3 4E 23 46 E1 71 *O6&..P6)..N#F.q
0068E0: 23 70 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 3A 8A #p.*2.*2.*2.*2:.
0068F0: 36 FE 00 C2 FB 28 21 8A 36 36 02 CD FC 21 C3 2A 6....(!.66...!.*
006900: D2 3C 1F 2A C6 37 26 00 01 6B 37 29 09 5E 23 56 .<.*.7&..k7).^#V
006910: EB 22 7E 36 2A 48 36 26 00 22 82 36 2A 36 35 EB ."~6*H6&.".6*65.
006920: 21 84 36 73 3E 0F CD 6D 33 B5 C2 36 1F 3A 81 36 !.6s>..m3..6.:.6
006930: 32 80 36 C3 3B 1F 21 80 36 36 00 C9 3E 0C 21 36 2.6.;.!.66..>.!6
006940: 35 CD 8F 33 DA 5F 1F 2A 36 35 EB 21 84 36 73 EB 5..3._.*65.!.6s.
006950: 22 7E 36 21 80 36 36 00 21 01 00 22 82 36 C9 2A "~6!.66.!..".6.*
006960: C6 37 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 .7&../7).^#V."86
006970: CD 84 17 32 84 36 CD 99 17 22 82 36 CD AE 17 32 ...2.6...".6...2
006980: 80 36 2A C6 37 26 00 01 6B 37 29 09 5E 23 56 EB .6*.7&..k7).^#V.
006990: 22 7E 36 3E 00 CD 63 33 B5 C2 A2 1F CD 6C 17 22 "~6>..c3.....l."
0069A0: 7E 36 C9 21 C8 37 73 2B 71 2A C8 37 4D CD D3 1E ~6.!.7s+q*.7M...
0069B0: CD F8 1D C6 22 4F CD 05 1B CD BC 1E 2A C7 37 4D ...."O......*.7M
0069C0: CD 05 1B C9 21 C9 37 71 2A C9 37 4D CD D3 1E CD ....!.7q*.7M....
0069D0: F8 1D C6 1C 3D 4F CD 05 1B CD BC 1E C9 3A CB 36 ....=O.......:.6
0069E0: 11 7D 34 CD 84 33 EB 2B 73 23 72 21 7F 34 CD 92 .}4..3.+s#r!.4..
0069F0: 33 D2 FA 1F 01 4F 4D CD 73 12 0E 43 CD F8 18 2A 3....OM.s..C...*
006A00: 7D 34 44 4D CD 2B 19 3A CB 36 32 48 36 4F 06 00 }4DM.+.:.62H6O..
006A10: CD 2B 19 21 35 35 36 01 3A 48 36 21 35 35 BE DA .+.!556.:H6!55..
006A20: 36 20 2A 35 35 26 00 01 CB 36 09 4E CD F8 18 21 6 *55&...6.N...!
006A30: 35 35 34 C2 18 20 2A 7D 34 C9 21 81 36 36 00 21 554.. *}4.!.66.!
006A40: 35 35 36 01 3A CB 36 21 35 35 BE DA A3 20 2A 35 556.:.6!55..£ *5
006A50: 35 26 00 01 CB 36 09 7E 32 CA 37 4F CD C3 18 F5 5&...6.~2.7O....
006A60: 3A CA 37 D6 2D D6 01 9F C1 48 B1 F5 3A CA 37 D6 :.7.-....H..:.7.
006A70: 2B D6 01 9F C1 48 B1 F5 3A CA 37 D6 2E D6 01 9F +....H..:.7.....
006A80: C1 48 B1 1F DA 8A 20 3E 00 C9 3A CA 37 FE 2E C2 .H.... >..:.7...
006A90: 9C 20 21 35 35 3A CB 36 96 32 81 36 21 35 35 34 . !55:.6.2.6!554
006AA0: C2 44 20 3E 01 C9 21 35 35 36 01 3A CB 36 21 35 .D >..!556.:.6!5
006AB0: 35 BE DA D0 20 2A 35 35 26 00 01 CB 36 09 4E CD 5... *55&...6.N.
006AC0: D9 18 1F DA C9 20 3E 00 C9 21 35 35 34 C2 AB 20 ..... >..!554..
006AD0: 3E 01 C9 2A 8B 36 26 00 01 2F 37 29 09 3E 00 CD >..*.6&../7).>..
006AE0: 8F 33 B5 CA F2 20 0E 09 CD 05 1B 2A 80 36 4D CD .3... .....*.6M.
006AF0: 05 1B 3A 8B 36 3D 4F CD C4 1F C9 21 CB 37 71 3A ..:.6=O....!.7q:
006B00: 32 3A 8A 36 FE 01 CA 41 29 3A 8A 36 FE 02 C2 17 2:.6...A):.6....
006B10: 29 01 46 50 CD FD 10 21 8A 36 36 01 2A 85 36 26 ).FP...!.66.*.6&
006B20: 00 01 2F 37 29 09 5E 23 56 EB 22 4D 36 2A 85 36 ../7).^#V."M6*.6
006B30: 26 00 01 6B 37 29 09 5E 23 56 EB 22 4B 36 C3 44 &..k7).^#V."K6.D
006B40: 29 CD 88 22 C3 2A 32 CD C3 1B C3 2A 32 CD C3 1B )..".*2....*2...
006B50: C3 2A 32 C3 2A 32 C3 2A 32 01 49 4E CD FD 10 C3 .*2.*2.*2.IN....
006B60: 2A 32 2A 8B 36 4D CD D3 1E 2A 7E 36 EB 0E 17 CD *2*.6M...*~6....
006B70: 65 19 2A 82 36 4D CD 05 1B C3 2A 32 C3 2A 32 2A e.*.6M....*2.*2*
006B80: 86 36 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 .6&../7).^#V."86
006B90: 0E 40 CD 05 1B 21 01 00 22 78 36 3E 08 21 78 36 .@...!.."x6>.!x6
006BA0: CD 8F 33 DA D7 29 CD B7 17 21 78 36 CD 8F 33 DA ..3..)...!x6..3.
006BB0: C5 29 2A 78 36 01 0D 00 09 EB 2A 38 36 19 4E CD .)*x6.....*86.N.
006BC0: F8 18 C3 CA 29 0E 20 CD F8 18 11 01 00 2A 78 36 ....). ......*x6
006BD0: 19 22 78 36 D2 9B 29 0E 06 CD 42 19 C3 2A 32 CD ."x6..)...B..*2.
006BE0: 84 17 32 E8 37 4F 3E 00 91 9F F5 3A E8 37 D6 05 ..2.7O>....:.7..
006BF0: 9F C1 48 A1 1F D2 04 2A CD 78 17 EB 0E 0B CD 65 ..H....*.x.....e
006C00: 19 C3 0A 2A 01 45 43 CD FD 10 C3 2A 32 C3 2A 32 ...*.EC....*2.*2
006C10: C3 2A 32 C3 2A 32 0E 08 CD 05 1B C3 2A 32 2A 8B .*2.*2......*2*.
006C20: 36 26 00 01 2F 37 29 09 4E 23 46 1E 01 CD 40 23 6&../7).N#F...@#
006C30: EB 0E 0D CD 65 19 C3 2A 32 0E 41 CD 05 1B 3A 4F ....e..*2.A...:O
006C40: 36 3C 4F CD 05 1B 2A 8B 36 26 00 01 2F 37 29 09 6<O...*.6&../7).
006C50: 5E 23 56 EB 22 38 36 2A 8B 36 4D CD CA 1A CD 99 ^#V."86*.6M.....
006C60: 17 4D CD 05 1B CD 6C 17 44 4D CD 16 1B 21 35 35 .M....l.DM...!55
006C70: 36 00 3A 4F 36 21 35 35 BE DA 9D 2A 2A 35 35 26 6.:O6!55...**55&
006C80: 00 01 50 36 29 09 4E 23 46 C5 1E 00 0E 01 CD CA ..P6).N#F.......
006C90: 22 44 4D CD 16 1B 21 35 35 34 C2 72 2A C3 2A 32 "DM...!554.r*.*2
006CA0: CD C1 26 C3 2A 32 C3 2A 32 3A 8B 36 3D 4F 06 00 ..&.*2.*2:.6=O..
006CB0: 21 2F 37 09 09 3E 00 CD 8F 33 B5 C2 D9 2A 2A 86 !/7..>...3...**.
006CC0: 36 26 00 01 2F 37 29 09 4E 23 46 C5 1E 03 0E 00 6&../7).N#F.....
006CD0: CD CA 22 22 E9 37 C3 F3 2A 3A 8B 36 3D 4F 06 00 .."".7..*:.6=O..
006CE0: 21 2F 37 09 09 4E 23 46 C5 1E 03 0E 00 CD CA 22 !/7..N#F......."
006CF0: 22 E9 37 2A 8B 36 26 00 01 6B 37 29 09 5E 23 56 ".7*.6&..k7).^#V
006D00: 8B 36 3D 5F 0E 01 CD A3 1F 3A CB 37 3C 4F CD 05 .6=_...£.:.7<O..
006D10: 1B CD D3 20 C9 21 CC 37 71 2A 86 36 EB 0E 00 CD ... .!.7q*.6....
006D20: A3 1F 3A 8B 36 3D 5F 0E 01 CD A3 1F 3A CC 37 C6 £.:.6=_...£.:.7.
006D30: 03 4F CD 05 1B CD D3 20 C9 2A 85 36 26 00 01 2F .O..... .*.6&../
006D40: 37 29 09 5E 23 56 EB 22 38 36 CD 84 17 FE 80 D2 7).^#V."86......
006D50: 59 21 01 53 49 CD FD 10 C9 CD 3A 20 1F D2 92 21 Y!.SI.....: ...!
006D60: CD 6C 17 22 CF 37 CD FB 17 22 CD 37 3E 00 CD 63 .l.".7...".7>..c
006D70: 33 B5 CA 7B 21 2A CD 37 22 38 36 CD 99 17 E5 CD 3..{!*.7"86.....
006D80: 2A 1B 2B D1 CD 4F 33 EB 2A CF 37 19 44 4D CD B0 *.+..O3.*.7.DM..
006D90: 1A C9 CD 6C 17 EB 0E 33 CD 65 19 CD FB 17 22 CD ...l...3.e....".
006DA0: 37 3E 00 CD 63 33 B5 CA B0 21 2A CD 37 22 38 36 7>..c3...!*.7"86
006DB0: CD 99 17 44 4D CD 16 1B CD 82 19 22 38 36 CD 84 ...DM......"86..
006DC0: 17 32 35 35 D6 10 9F F5 3E 15 21 35 35 96 9F C1 .255....>.!55...
006DD0: 48 B1 1F D2 DC 21 01 45 54 CD FD 10 CD 6C 17 44 H....!.ET....l.D
006DE0: 4D CD 16 1B CD 99 17 4D CD 05 1B CD EE 1A 4F CD M......M......O.
006DF0: 05 1B 2A CA 36 4D 06 00 CD B0 1A C9 2A 85 36 26 ..*.6M......*.6&
006E00: 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 CD 6C 17 ../7).^#V."86.l.
006E10: 22 36 35 3E 00 CD 63 33 B5 CA 31 22 2A 85 36 26 "65>..c3..1"*.6&
006E20: 00 01 6B 37 29 09 5E 23 56 2A 36 35 44 4D CD A3 ..k7).^#V*65DM.£
006E30: 1B 2A 85 36 26 00 01 6B 37 29 09 4E 23 46 CD 55 .*.6&..k7).N#F.U
006E40: 17 CD 84 17 FE FF CA 4F 22 01 44 44 CD FD 10 0E .......O".DD....
006E50: 20 CD 8B 17 CD 78 17 22 36 35 3E 00 CD 63 33 B5 ....x."65>..c3.
006E60: CA 6F 22 2A 36 35 44 4D 2A 7F 34 EB CD A3 1B 01 .o"*65DM*.4..£..
006E70: 08 00 2A 38 36 09 E5 2A 7F 34 EB E1 73 23 72 11 ..*86..*.4..s#r.
006E80: 00 00 0E 0A CD 65 19 C9 2A 85 36 26 00 01 2F 37 .....e..*.6&../7
006E90: 29 09 5E 23 56 EB 22 36 35 2A 4D 36 44 4D CD 96 ).^#V."65*M6DM..
006EA0: 1A 2A 36 35 22 4D 36 2A 85 36 26 00 01 6B 37 29 .*65"M6*.6&..k7)
006EB0: 09 5E 23 56 EB 22 36 35 2A 4B 36 44 4D CD B0 1A .^#V."65*K6DM...
006EC0: 2A 36 35 22 4B 36 CD FC 21 C9 21 D4 37 73 2B 71 *65"K6..!.!.7s+q
006ED0: 2B D1 C1 70 2B 71 D5 2A D1 37 22 38 36 CD 84 17 +..p+q.*.7"86...
006EE0: 32 D5 37 FE 20 C2 F7 22 3A D3 37 1F D2 F3 22 CD 2.7. ..":.7...".
006EF0: 6C 17 C9 CD 78 17 C9 3A D5 37 FE FF CA 02 23 CD l...x..:.7....#.
006F00: EB 22 EB 37 3E 00 CD 63 33 B5 C2 1A 2B 11 07 00 .".7>..c3...+...
006F10: 2A 7F 34 19 22 EB 37 C3 34 2B 2A 8B 36 26 00 01 *.4.".7.4+*.6&..
006F20: 2F 37 29 09 11 07 00 E5 2A 7F 34 19 E3 4E 23 46 /7).....*.4..N#F
006F30: D1 CD A3 1B 2A 86 36 26 00 01 2F 37 29 09 4E 23 ..£.*.6&../7).N#
006F40: 46 1E 01 CD 40 23 EB 0E 29 CD 65 19 2A E9 37 44 F...@#..).e.*.7D
006F50: 4D CD 16 1B 2A EB 37 44 4D CD 16 1B C3 2A 32 2A M...*.7DM....*2*
006F60: 8B 36 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 .6&../7).>...3..
006F70: 7A 2B 0E 06 CD 05 1B C3 CE 2B 2A 8B 36 26 00 01 z+.......+*.6&..
006F80: 2F 37 29 09 EB 3E 0A CD 84 33 9F EB F5 3E 0C 2B /7)..>...3...>.+
006F90: CD 8F 33 9F C1 48 B1 1F D2 B7 2B 2A 8B 36 26 00 ..3..H....+*.6&.
006FA0: 01 6B 37 29 09 5E 23 56 0E 18 CD 65 19 2A 48 36 .k7).^#V...e.*H6
006FB0: 4D CD 05 1B C3 CE 2B 2A 8B 36 26 00 01 2F 37 29 M.....+*.6&../7)
006FC0: 09 5E 23 56 0E 18 CD 65 19 0E 01 CD 05 1B C3 2A .^#V...e.......*
006FD0: 32 C3 2A 32 C3 2A 32 2A 8B 36 4D CD 56 23 C3 2A 2.*2.*2*.6M.V#.*
006FE0: 32 21 4A 36 36 01 2A 8B 36 4D CD 56 23 C3 2A 32 2!J66.*.6M.V#.*2
006FF0: CD 84 17 32 ED 37 3A ED 37 D6 01 D6 01 9F F5 3A ...2.7:.7......:
007000: ED 37 D6 04 D6 01 9F C1 48 B1 2A 85 36 26 00 01 .7......H.*.6&..
007010: 2F 37 29 09 F5 3E 02 CD 8F 33 B5 C6 FF 9F C1 48 /7)..>...3.....H
007020: A1 1F D2 40 2C 2A 85 36 26 00 01 2F 37 29 09 3E ...@,*.6&../7).>
007030: 0E CD 43 33 E5 CD 78 17 EB C1 CD 65 19 C3 79 2C ..C3..x....e..y,
007040: 3A ED 37 D6 02 D6 01 9F F5 3A ED 37 D6 03 D6 01 :.7......:.7....
007050: 9F C1 48 B1 1F D2 73 2C 2A 85 36 26 00 01 2F 37 ..H...s,*.6&../7
007060: 29 09 3E 0E CD 43 33 E5 CD 78 17 EB C1 CD 65 19 ).>..C3..x....e.
007070: C3 79 2C 01 45 4F CD FD 10 C3 2A 32 C3 2A 32 C3 .y,.EO....*2.*2.
007080: 2A 32 C3 2A 32 2A 85 36 4D CD D3 1E 2A 7E 36 EB *2.*2*.6M...*~6.
007090: 0E 19 CD 65 19 2A 82 36 4D CD 05 1B 2A 7F 34 44 ...e.*.6M...*.4D
0070A0: 4D CD B0 1A 11 00 00 0E 1B CD 65 19 2A 7F 34 44 M.........e.*.4D
0070B0: 4D CD 96 1A 01 00 00 CD 16 1B C3 2A 32 CD 22 1C M..........*2.".
0070C0: C3 2A 32 CD 22 1C C3 2A 32 C3 2A 32 CD 22 1C C3 .*2."..*2.*2."..
0070D0: 2A 32 CD 22 1C C3 2A 32 C3 2A 32 2A 8B 36 EB 0E *2."..*2.*2*.6..
0070E0: 02 CD A3 1F 3A 85 36 3D 4F CD C4 1F C3 2A 32 3A ..£.:.6=O....*2:
0070F0: 85 36 3D 3D 5F 0E 00 CD A3 1F 2A 8B 36 EB 0E 01 .6==_...£.*.6...
007100: F1 18 3A D3 37 1F D2 21 23 CD 6C 17 22 36 35 3A ..:.7..!#.l."65:
007110: D4 37 11 7F 34 CD 42 33 44 4D CD 55 17 2A 36 35 .7..4.B3DM.U.*65
007120: C9 CD 78 17 22 36 35 3A D4 37 11 7F 34 CD 42 33 ..x."65:.7..4.B3
007130: 01 08 00 E5 2A 38 36 09 C1 71 23 70 2A 36 35 C9 ....*86..q#p*65.
007140: 21 D8 37 73 2B 70 2B 71 2A D6 37 E5 2A D8 37 4D !.7s+p+q*.7.*.7M
007150: 1E 01 CD CA 22 C9 21 D9 37 71 2A D9 37 4D CD D3 ....".!.7q*.7M..
007160: 1E 2A 7E 36 EB 0E 1A CD 65 19 2A 82 36 4D CD 05 .*~6....e.*.6M..
007170: 1B 3A 4A 36 1F D2 80 23 0E 01 CD 05 1B C3 85 23 .:J6...#.......#
007180: 0E 00 CD 05 1B 21 4A 36 36 00 C9 3A 84 36 D6 08 .....!J66..:.6..
007190: 9F 2F F5 3E 0B 21 84 36 96 9F 2F C1 48 A1 C9 3A ./.>.!.6../.H..:
0071A0: 80 36 D6 00 C6 FF 9F C9 3A 84 36 D6 0F 9F 2F F5 .6......:.6.../.
0071B0: 3E 15 21 84 36 96 9F 2F C1 48 A1 F5 7E D6 0C D6 >.!.6../.H..~...
0071C0: 01 9F C1 48 B1 C9 2A 85 36 4D CD D3 1E 2A 84 36 ...H..*.6M...*.6
0071D0: 4D CD 16 18 32 84 36 3A 49 36 FE 03 C2 2C 24 3A M...2.6:I6...,$:
0071E0: 84 36 D6 08 D6 01 9F F5 3E 15 21 84 36 96 9F C1 .6......>.!.6...
0071F0: 48 B1 1F D2 F9 23 CD F1 18 2A 7F 34 44 4D CD B0 H....#...*.4DM..
007200: 1A 3A 84 36 FE 10 C2 11 24 0E 2A CD 05 1B C3 16 .:.6....$.*.....
007210: 24 0E 2B CD 05 1B 2A 7E 36 44 4D CD 16 1B 2A 82 $.+...*~6DM...*.
007220: 36 44 4D CD 16 1B CD 13 1C C3 99 25 3A 49 36 FE 6DM........%:I6.
007230: 04 C2 61 24 CD A8 23 1F D2 3E 24 CD F1 18 2A 7F ..a$..#..>$...*.
007240: 34 44 4D CD B0 1A 0E 2C CD 05 1B 2A 7E 36 44 4D 4DM....,...*~6DM
007250: CD 16 1B 2A 82 36 44 4D CD 16 1B CD 13 1C C3 99 ...*.6DM........
007260: 25 CD A8 23 1F D2 70 24 21 35 35 36 01 C3 75 24 %..#..p$!556..u$
007270: 21 35 35 36 00 3A 84 36 32 DA 37 3A 80 36 32 DB !556.:.62.7:.62.
007280: 37 2A 7E 36 22 DC 37 2A 82 36 22 DE 37 2A 8B 36 7*~6".7*.6".7*.6
007290: 4D CD D3 1E CD A8 23 1F D2 9F 24 21 35 35 34 3A M.....#...$!554:
0072A0: 35 35 FE 02 C2 DA 24 2A 85 36 EB 0E 00 CD A3 1F 55....$*.6....£.
0072B0: 3E 06 11 7F 34 CD 84 33 44 4D CD B0 1A 2A 8B 36 >...4..3DM...*.6
0072C0: EB 0E 01 CD A3 1F 0E 02 CD 05 1B 3A 49 36 C6 11 ....£......:I6..
0072D0: 4F CD 05 1B CD 13 1C C3 99 25 3A DA 37 D6 15 D6 O........%:.7...
0072E0: 01 9F F5 3A 84 36 D6 15 D6 01 9F C1 48 B1 1F D2 ...:.6......H...
0072F0: F8 24 CD F1 18 C3 6D 25 01 82 36 11 DE 37 CD 77 .$....m%..6..7.w
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 01 00 02 09 52 E5 06 00 C1 02 00 00 00 02 ......R.........
007320: 06 00 C6 02 00 00 00 02 06 00 C2 02 00 00 00 02 ................
007330: 06 00 C7 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007340: 06 00 C8 02 00 00 00 02 06 00 C4 02 00 00 00 02 ................
007350: 06 00 C9 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: CD A3 1F 0E 01 CD 05 1B 3A 85 36 3D 3D 4F CD C4 .£......:.6==O..
007410: 1F C3 2A 32 CD FC 1B C3 2A 32 CD FC 1B C3 2A 32 ..*2....*2....*2
007420: CD FC 1B C3 2A 32 2A 86 36 26 00 01 2F 37 29 09 ....*2*.6&../7).
007430: 3A 8B 36 D6 03 4F 06 00 E5 21 6B 37 09 09 5E 23 :.6..O...!k7..^#
007440: 56 E1 4E 23 46 CD A3 1B 3A 8B 36 D6 03 4F 06 00 V.N#F.£.:.6..O..
007450: 21 2F 37 09 09 4E 23 46 2A 7F 34 EB CD A3 1B C3 !/7..N#F*.4..£..
007460: 2A 32 2A 86 36 26 00 01 2F 37 29 09 4E 23 46 2A *2*.6&../7).N#F*
007470: 7F 34 EB CD A3 1B C3 2A 32 C3 2A 32 2A 87 36 EB .4..£..*2.*2*.6.
007480: 0E 0D CD 65 19 2A 7F 34 2B 2B 22 87 36 C3 2A 32 ...e.*.4++".6.*2
007490: 2A 7F 34 23 3A 8B 36 3D 4F 06 00 E5 21 2F 37 09 *.4#:.6=O...!/7.
0074A0: 09 C1 71 23 70 11 00 00 0E 0D CD 65 19 3A 8B 36 ..q#p......e.:.6
0074B0: 3D 4F 06 00 21 6B 37 09 09 E5 2A 7F 34 EB E1 73 =O..!k7...*.4..s
0074C0: 23 72 C3 2A 32 0E 00 CD FB 20 C3 2A 32 2A 85 36 #r.*2.... .*2*.6
0074D0: 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 E6 2D &../7).>...3...-
0074E0: 01 47 49 CD FD 10 CD D3 20 C3 2A 32 0E 01 CD 15 .GI..... .*2....
0074F0: 21 C3 2A 32 01 49 4E CD FD 10 C3 2A 32 01 49 4E !.*2.IN....*2.IN
007500: CD FD 10 C3 2A 32 0E 00 CD 15 21 C3 2A 32 01 49 ....*2....!.*2.I
007510: 4E CD FD 10 C3 2A 32 0E 01 CD FB 20 C3 2A 32 2A N....*2.... .*2*
007520: 85 36 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 .6&../7).>...3..
007530: 38 2E 01 47 49 CD FD 10 CD D3 20 C3 2A 32 01 49 8..GI..... .*2.I
007540: 4E CD FD 10 C3 2A 32 2A 8B 36 EB 0E 00 CD A3 1F N....*2*.6....£.
007550: C3 2A 32 2A 8B 36 EB 0E 01 CD A3 1F 0E 01 CD 05 .*2*.6....£.....
007560: 1B 0E 07 CD 05 1B 3A 85 36 3D 4F 06 00 21 2F 37 ......:.6=O..!/7
007570: 09 09 3E 01 77 23 36 00 C3 2A 32 2A 8B 36 EB 0E ..>.w#6..*2*.6..
007580: 00 CD A3 1F C3 2A 32 2A 8B 36 EB 0E 01 CD A3 1F ..£..*2*.6....£.
007590: 0E 01 CD 05 1B 0E 07 CD 05 1B 3A 85 36 3D 4F 06 ..........:.6=O.
0075A0: 00 21 2F 37 09 09 3E 01 77 23 36 00 C3 2A 32 C3 .!/7..>.w#6..*2.
0075B0: 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A *2.*2.*2.*2.*2.*
0075C0: 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 2.*2.*2.*2.*2.*2
0075D0: C3 2A 32 CD 3D 1E C3 2A 32 CD 71 1E C3 2A 32 CD .*2.=..*2.q..*2.
0075E0: B6 1C C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A ...*2.*2.*2.*2.*
0075F0: 32 C3 2A 32 3A C7 33 1F D2 07 2F 3A C7 33 2F 32 2.*2:.3.../:.3/2
007600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0076A0: 00 00 00 00 00 00 00 00 00 1A 1A 1A 1A 1A 1A 1A ................
0076B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0076C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0076D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0076E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0076F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007700: 01 01 15 06 01 05 03 03 03 03 03 03 01 05 03 01 ................
007710: 01 02 01 01 06 01 01 02 06 01 01 01 02 01 05 01 ................
007720: 03 01 01 06 01 01 01 01 06 01 01 01 01 02 01 01 ................
007730: 01 01 01 01 05 01 01 01 01 01 02 02 02 01 01 02 ................
007740: 01 01 02 01 01 08 15 01 02 01 01 02 02 02 02 02 ................
007750: 04 01 01 02 01 01 01 01 01 02 02 01 01 01 01 01 ................
007760: 01 02 01 01 01 03 04 05 12 01 01 01 02 12 04 01 ................
007770: 01 01 01 01 01 01 14 02 03 01 16 01 01 02 01 02 ................
007780: 01 12 06 01 01 15 02 06 03 02 02 02 03 02 03 02 ................
007790: 02 03 03 03 03 03 05 02 02 02 02 03 03 02 02 02 ................
0077A0: 02 02 0A 04 02 02 02 02 02 02 02 03 03 02 02 02 ................
0077B0: 02 07 03 1B 3A 42 43 45 51 57 58 5A 5B 5C 5D 5E ....:BCEQWXZ[\]^
0077C0: 5F 60 65 71 05 01 00 00 01 00 01 01 02 02 01 02 _`eq............
0077D0: 00 00 02 01 00 02 01 00 01 04 01 01 03 03 01 03 ................
0077E0: 01 00 01 00 01 01 02 00 01 01 00 02 00 01 01 01 ................
0077F0: 01 01 02 02 02 05 03 00 01 00 04 04 04 06 06 04 ................
007800: C7 33 0E 05 CD 05 1B CD C6 23 C3 2A 32 C3 2A 32 .3.......#.*2.*2
007810: 21 49 36 36 03 C3 2A 32 21 49 36 36 04 C3 2A 32 !I66..*2!I66..*2
007820: CD 22 1C C3 2A 32 3A C7 33 1F DA 35 2F 0E 05 CD ."..*2:.3..5/...
007830: 05 1B C3 3C 2F 3A C7 33 2F 32 C7 33 C3 2A 32 C3 ...</:.3/2.3.*2.
007840: 2A 32 21 49 36 36 00 C3 2A 32 21 49 36 36 01 C3 *2!I66..*2!I66..
007850: 2A 32 21 49 36 36 02 C3 2A 32 21 49 36 36 00 C3 *2!I66..*2!I66..
007860: 2A 32 21 49 36 36 01 C3 2A 32 21 49 36 36 02 C3 *2!I66..*2!I66..
007870: 2A 32 01 01 00 CD 96 1A C3 2A 32 C3 2A 32 C3 2A *2.......*2.*2.*
007880: 32 C3 2A 32 C3 2A 32 01 02 00 CD 96 1A 0E 15 CD 2.*2.*2.........
007890: 05 1B CD 13 1C C3 2A 32 C3 2A 32 C3 2A 32 C3 2A ......*2.*2.*2.*
0078A0: 32 C3 2A 32 C3 2A 32 C3 2A 32 CD 22 1C C3 2A 32 2.*2.*2.*2."..*2
0078B0: C3 2A 32 01 01 00 CD 96 1A 0E 14 CD 05 1B CD 13 .*2.............
0078C0: 1C C3 2A 32 0E 0C CD 05 1B CD E2 1B C3 2A 32 CD ..*2.........*2.
0078D0: 22 1C C3 2A 32 C3 2A 32 21 A7 37 36 01 C3 2A 32 "..*2.*2!.76..*2
0078E0: 21 A8 37 36 01 C3 2A 32 C3 2A 32 01 65 00 CD 96 !.76..*2.*2.e...
0078F0: 1A C3 2A 32 C3 2A 32 01 01 00 CD 96 1A C3 2A 32 ..*2.*2.......*2
007900: 01 02 00 CD 96 1A C3 2A 32 C3 2A 32 2A 8B 36 4D .......*2.*2*.6M
007910: CD CA 1A C3 2A 32 CD 2A 1B 44 4D CD 96 1A C3 2A ....*2.*.DM....*
007920: 32 CD 82 19 44 4D CD 96 1A CD 84 17 FE FF C2 39 2...DM.........9
007930: 30 2A 7F 34 44 4D CD B0 1A C3 2A 32 CD 3A 20 1F 0*.4DM....*2.: .
007940: D2 54 30 01 0F 00 CD 96 1A CD DD 1F 44 4D CD B0 .T0.........DM..
007950: 1A C3 63 30 CD 82 19 44 4D CD 96 1A 2A 85 36 4D ..c0...DM...*.6M
007960: CD CA 1A C3 2A 32 C3 2A 32 01 0C 00 CD 96 1A C3 ....*2.*2.......
007970: 2A 32 CD 39 21 C3 2A 32 C3 2A 32 01 49 4E CD FD *2.9!.*2.*2.IN..
007980: 10 C3 2A 32 CD 82 19 44 4D CD 96 1A C3 2A 32 CD ..*2...DM....*2.
007990: A6 20 32 C5 33 01 07 00 CD 96 1A CD DD 1F 44 4D . 2.3.........DM
0079A0: CD B0 1A C3 2A 32 01 0A 00 CD 96 1A C3 2A 32 01 ....*2.......*2.
0079B0: 0B 00 CD 96 1A C3 2A 32 C3 2A 32 CD 3A 20 1F DA ......*2.*2.: ..
0079C0: C5 30 CD F1 18 01 0F 00 CD 96 1A CD DD 1F 44 4D .0............DM
0079D0: CD B0 1A C3 2A 32 01 0C 00 CD 96 1A C3 2A 32 C3 ....*2.......*2.
0079E0: 2A 32 C3 2A 32 0E 08 CD 05 1B C3 2A 32 C3 2A 32 *2.*2......*2.*2
0079F0: CD 81 1D C3 2A 32 21 C7 33 36 01 C3 2A 32 E0 27 ....*2!.36..*2.'
007A00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
007A10: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
007A20: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
007A30: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
007A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007A50: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
007A60: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
007A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007A80: 20 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 PART
007A90: 20 4F 4E 45 0D 0A 0D 0A 20 20 20 20 20 20 20 20 ONE....
007AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007AB0: 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 20 Revised and
007AC0: 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 20 Updated....
007AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007AE0: 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C 6C By Clive Bell
007AF0: 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D 0A aby, June 1991..
007B00: 0D 0A 4F 52 47 41 4E 49 5A 41 54 49 4F 4E 0D 0A ..ORGANIZATION..
007B10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
007B20: 54 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C The Cobol compil
007B30: 65 72 20 61 6E 64 20 72 75 6E 2D 74 69 6D 65 20 er and run-time
007B40: 70 72 6F 67 72 61 6D 20 61 72 65 20 64 65 73 69 program are desi
007B50: 67 6E 65 64 20 74 6F 20 72 75 6E 20 6F 6E 20 61 gned to run on a
007B60: 6E 20 38 30 38 30 20 62 61 73 65 64 0D 0A 73 79 n 8080 based..sy
007B70: 73 74 65 6D 20 69 6E 20 61 6E 20 69 6E 74 65 72 stem in an inter
007B80: 61 63 74 69 76 65 20 6D 6F 64 65 2E 20 54 68 65 active mode. The
007B90: 79 20 77 69 6C 6C 20 68 61 70 70 69 6C 79 20 6F y will happily o
007BA0: 70 65 72 61 74 65 20 75 6E 64 65 72 20 62 6F 74 perate under bot
007BB0: 68 20 43 50 2F 4D 20 32 2E 32 0D 0A 61 6E 64 20 h CP/M 2.2..and
007BC0: 43 50 2F 4D 20 33 2E 31 20 28 70 6C 75 73 29 20 CP/M 3.1 (plus)
007BD0: 73 79 73 74 65 6D 73 2E 0D 0A 0D 0A 54 68 65 73 systems.....Thes
007BE0: 65 20 70 72 6F 67 72 61 6D 73 20 6E 65 65 64 20 e programs need
007BF0: 61 20 6D 69 6D 69 6E 75 6D 20 32 34 6B 20 6F 66 a miminum 24k of
007C00: E3 27 F5 27 8F 28 92 28 AE 28 E5 28 E8 28 EB 28 .'.'.(.(.(.(.(.(
007C10: EE 28 01 29 47 29 4D 29 53 29 56 29 59 29 62 29 .(.)G)M)S)V)Y)b)
007C20: 7C 29 7F 29 DF 29 0D 2A 10 2A 13 2A 16 2A 1E 2A |).).).*.*.*.*.*
007C30: 39 2A A0 2A A6 2A A9 2A 5F 2B D1 2B D4 2B D7 2B 9*.*.*.*_+.+.+.+
007C40: E1 2B F0 2B 7C 2C 7F 2C 82 2C 85 2C BD 2C C3 2C .+.+|,.,.,.,.,.,
007C50: C9 2C CC 2C D2 2C D8 2C DB 2C EF 2C 14 2D 1A 2D .,.,.,.,.,.,.-.-
007C60: 20 2D 26 2D 62 2D 79 2D 7C 2D 90 2D C5 2D CD 2D -&-b-y-|-.-.-.-
007C70: EC 2D F4 2D FD 2D 06 2E 0E 2E 17 2E 1F 2E 3E 2E .-.-.-........>.
007C80: 47 2E 53 2E 7B 2E 87 2E AF 2E B2 2E B5 2E B8 2E G.S.{...........
007C90: BB 2E BE 2E C1 2E C4 2E C7 2E CA 2E CD 2E D0 2E ................
007CA0: D3 2E D9 2E DF 2E E5 2E E8 2E EB 2E EE 2E F1 2E ................
007CB0: F4 2E 0D 2F 10 2F 18 2F 20 2F 26 2F 3F 2F 42 2F .../././ /&/?/B/
007CC0: 4A 2F 52 2F 5A 2F 62 2F 6A 2F 72 2F 7B 2F 7E 2F J/R/Z/b/j/r/{/~/
007CD0: 81 2F 84 2F 87 2F 98 2F 9B 2F 9E 2F A1 2F A4 2F ././././././././
007CE0: A7 2F AA 2F B0 2F B3 2F C4 2F CF 2F D5 2F D8 2F ././././././././
007CF0: E0 2F E8 2F EB 2F F4 2F F7 2F 00 30 09 30 0C 30 ./././././.0.0.0
007D00: 16 30 21 30 3C 30 66 30 69 30 72 30 78 30 7B 30 .0!0<0f0i0r0x0{0
007D10: 84 30 8F 30 A6 30 AF 30 B8 30 BB 30 D6 30 DF 30 .0.0.0.0.0.0.0.0
007D20: E2 30 E5 30 ED 30 F0 30 F6 30 C9 2A 8C 36 01 4B .0.0.0.0.0.*.6.K
007D30: 07 29 09 5E 23 56 EB C9 2A 8C 36 01 FF 09 09 7E .).^#V..*.6....~
007D40: C9 3A 8B 36 3C 32 8B 36 4F 06 00 21 2F 37 09 09 .:.6<2.6O..!/7..
007D50: 3E 00 77 23 36 00 2A 8B 36 26 00 01 6B 37 29 09 >.w#6.*.6&..k7).
007D60: 77 23 36 00 3A 8B 36 FE 1E DA 72 32 01 4F 53 CD w#6.:.6...r2.OS.
007D70: 73 12 C9 3A 89 36 1F D2 9B 32 CD AC 16 21 89 36 s..:.6...2...!.6
007D80: 36 00 3A 2A 35 1F D2 9B 32 CD 93 10 2A 2A 36 4D 6.:*5...2...**6M
007D90: CD 00 17 0E 20 CD F3 0F CD C9 16 C9 21 EF 37 70 .... .......!.7p
007DA0: 2B 71 2A EE 37 01 4B 07 29 09 5E 23 56 EB 22 F2 +q*.7.K.).^#V.".
007DB0: 37 2A EE 37 01 FF 09 09 5E 16 00 2A F2 37 19 2B 7*.7....^..*.7.+
007DC0: 22 F4 37 2A F2 37 22 F0 37 11 F4 37 01 F0 37 CD ".7*.7".7..7..7.
007DD0: 77 33 DA F3 32 2A F0 37 01 03 01 09 3A 2A 36 BE w3..2*.7....:*6.
007DE0: C2 E6 32 3E 01 C9 11 01 00 2A F0 37 19 22 F0 37 ..2>.....*.7.".7
007DF0: D2 C9 32 3E 00 C9 3A 8B 36 32 F6 37 3A F6 37 FE ..2>..:.62.7:.7.
007E00: 20 6D 61 69 6E 20 6D 65 6D 6F 72 79 20 61 6E 64 main memory and
007E10: 20 61 20 64 69 73 63 20 64 72 69 76 65 2E 0D 0A a disc drive...
007E20: 0D 0A 54 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 ..The following
007E30: 70 72 6F 67 72 61 6D 73 20 61 72 65 20 73 75 70 programs are sup
007E40: 70 6C 69 65 64 20 69 6E 20 74 68 65 20 43 6F 62 plied in the Cob
007E50: 6F 6C 20 70 61 63 6B 61 67 65 3A 0D 0A 0D 0A 43 ol package:....C
007E60: 4F 42 4F 4C 2E 43 4F 4D 20 20 20 20 7D 20 20 54 OBOL.COM } T
007E70: 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 he Cobol compile
007E80: 72 2E 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 20 20 r...COBOL.OVL
007E90: 20 7D 0D 0A 0D 0A 45 58 45 43 2E 43 4F 4D 20 20 }....EXEC.COM
007EA0: 20 20 20 7D 20 20 54 68 65 20 27 52 75 6E 74 69 } The 'Runti
007EB0: 6D 65 27 20 45 78 65 63 75 74 69 6F 6E 20 70 72 me' Execution pr
007EC0: 6F 67 72 61 6D 2E 0D 0A 45 58 45 43 2E 4F 56 52 ogram...EXEC.OVR
007ED0: 20 20 20 20 20 7D 0D 0A 0D 0A 43 4F 42 4F 4C 2D }....COBOL-
007EE0: 6E 2E 44 4F 43 20 20 7D 20 20 54 68 65 20 43 6F n.DOC } The Co
007EF0: 62 6F 6C 20 70 72 6F 67 72 61 6D 20 6E 6F 74 65 bol program note
007F00: 73 2E 0D 0A 0D 0A 53 45 52 49 45 53 2E 50 54 6E s.....SERIES.PTn
007F10: 20 20 20 7D 20 20 54 68 65 20 43 6F 62 6F 6C 20 } The Cobol
007F20: 70 72 6F 67 72 61 6D 6D 69 6E 67 20 73 65 72 69 programming seri
007F30: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 2D 6E 6E 2E 43 es.....EXAM-nn.C
007F40: 4F 42 20 20 7D 20 20 45 78 61 6D 70 6C 65 20 70 OB } Example p
007F50: 72 6F 67 72 61 6D 73 2E 0D 0A 0D 0A 4D 41 47 2E rograms.....MAG.
007F60: 6E 6E 6E 20 20 20 20 20 20 7D 20 20 41 20 63 6F nnn } A co
007F70: 6D 70 6C 65 74 65 20 43 6F 62 6F 6C 20 70 72 6F mplete Cobol pro
007F80: 67 72 61 6D 20 74 68 61 74 20 73 74 6F 72 65 73 gram that stores
007F90: 20 64 65 74 61 69 6C 73 20 6F 66 20 6D 61 67 61 details of maga
007FA0: 7A 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 20 zine..
007FB0: 20 20 20 20 20 20 61 72 74 69 63 6C 65 73 2E 0D articles..
007FC0: 0A 0D 0A 41 44 44 52 45 53 53 2E 6E 6E 6E 20 20 ...ADDRESS.nnn
007FD0: 7D 20 20 41 20 63 6F 6D 70 6C 65 74 65 20 43 6F } A complete Co
007FE0: 62 6F 6C 20 70 72 6F 67 72 61 6D 20 74 68 61 74 bol program that
007FF0: 20 73 74 6F 72 65 73 20 6E 61 6D 65 73 2C 20 61 stores names, a
008000: FF CA 3B 33 2A F6 37 26 00 01 8E 36 29 09 5E 23 ..;3*.7&...6).^#
008010: 56 EB 22 F7 37 44 4D CD 9C 32 1F D2 34 33 21 F6 V.".7DM..2..43!.
008020: 37 3A 8B 36 BE CA 2F 33 3A F6 37 3D 32 8B 36 2A 7:.6../3:.7=2.6*
008030: F7 37 7D C9 21 F6 37 35 C3 FC 32 CD AC 16 C3 F6 .7}.!.75..2.....
008040: 32 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C 67 C9 44 2.._.....o...g.D
008050: 4D 21 00 00 3E 10 29 EB 29 EB D2 5E 33 09 3D C2 M!..>.).)..^3.=.
008060: 56 33 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 4F 06 00 V3._..{.oz.g.O..
008070: 7B 91 6F 7A 98 67 C9 69 60 4E 23 46 1A 91 6F 13 {.oz.g.i`N#F..o.
008080: 1A 98 67 C9 6F 26 00 1A 95 6F 13 1A 9C 67 C9 5F ..g.o&...o...g._
008090: 16 00 7B 96 5F 7A 23 9E 57 EB C9 00 00 00 00 00 ..{._z#.W.......
0080A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080C0: 00 00 00 00 00 00 00 00 00 00 61 01 00 00 00 00 ..........a.....
0080D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0080F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0081F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008200: 64 64 72 65 73 73 65 73 20 65 74 63 2E 0D 0A 0D ddresses etc....
008210: 0A 0D 0A 47 45 4E 45 52 41 4C 20 49 4E 54 52 4F ...GENERAL INTRO
008220: 44 55 43 54 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D DUCTION..=======
008230: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
008240: 0A 54 68 65 20 63 6F 6D 70 69 6C 65 72 20 69 73 .The compiler is
008250: 20 63 6F 6D 70 6F 73 65 64 20 6F 66 20 74 77 6F composed of two
008260: 20 70 72 6F 67 72 61 6D 73 20 43 4F 42 4F 4C 2E programs COBOL.
008270: 43 4F 4D 20 61 6E 64 20 43 4F 42 4F 4C 2E 4F 56 COM and COBOL.OV
008280: 4C 2C 20 65 61 63 68 20 6F 66 0D 0A 77 68 69 63 L, each of..whic
008290: 68 20 72 65 61 64 73 20 69 6E 20 61 6E 64 20 63 h reads in and c
0082A0: 6F 6D 70 69 6C 65 73 20 61 20 70 6F 72 74 69 6F ompiles a portio
0082B0: 6E 20 6F 66 20 74 68 65 20 69 6E 70 75 74 20 66 n of the input f
0082C0: 69 6C 65 2E 0D 0A 0D 0A 43 4F 42 4F 4C 2E 43 4F ile.....COBOL.CO
0082D0: 4D 20 72 65 61 64 73 20 74 68 65 20 69 6E 70 75 M reads the inpu
0082E0: 74 20 70 72 6F 67 72 61 6D 20 74 6F 20 74 68 65 t program to the
0082F0: 20 65 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 end of the Data
008300: 20 44 69 76 69 73 69 6F 6E 20 61 6E 64 20 62 75 Division and bu
008310: 69 6C 64 73 0D 0A 74 68 65 20 73 79 6D 62 6F 6C ilds..the symbol
008320: 20 74 61 62 6C 65 2E 20 41 74 20 74 68 65 20 65 table. At the e
008330: 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 20 44 nd of the Data D
008340: 69 76 69 73 69 6F 6E 2C 20 43 4F 42 4F 4C 2E 43 ivision, COBOL.C
008350: 4F 4D 20 69 73 20 6F 76 65 72 6C 61 79 65 64 20 OM is overlayed
008360: 62 79 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 77 68 by..COBOL.OVL wh
008370: 69 63 68 20 75 73 65 73 20 74 68 65 20 73 79 6D ich uses the sym
008380: 62 6F 6C 20 74 61 62 6C 65 20 74 6F 20 70 72 6F bol table to pro
008390: 64 75 63 65 20 74 68 65 20 63 6F 64 65 2E 0D 0A duce the code...
0083A0: 54 68 65 20 6F 75 74 70 75 74 20 63 6F 64 65 20 The output code
0083B0: 69 73 20 77 72 69 74 74 65 6E 20 74 6F 20 64 69 is written to di
0083C0: 73 63 20 61 73 20 69 74 20 69 73 20 70 72 6F 64 sc as it is prod
0083D0: 75 63 65 64 20 74 6F 20 6D 69 6E 69 6D 69 7A 65 uced to minimize
0083E0: 20 74 68 65 20 75 73 65 20 6F 66 0D 0A 69 6E 74 the use of..int
0083F0: 65 72 6E 61 6C 20 73 74 6F 72 61 67 65 2E 0D 0A ernal storage...
008400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5C ...............\
008430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008460: 00 00 00 00 00 00 00 00 00 00 0C 00 21 00 61 00 ............!.a.
008470: 9D 00 C7 00 0D 01 2D 01 48 01 00 00 00 00 00 00 ......-.H.......
008480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 01 20 00 .............. .
0084D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0084F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008520: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
008530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008540: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
008550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008580: 00 00 00 00 00 00 00 00 00 00 00 FF 01 00 00 00 ................
008590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0085F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 01 00 02 09 52 E5 07 00 C1 02 00 00 00 02 ......R.........
008620: 07 00 C6 02 00 00 00 02 07 00 C2 02 00 00 00 02 ................
008630: 07 00 C7 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008640: 07 00 C8 02 00 00 00 02 07 00 C4 02 00 00 00 02 ................
008650: 07 00 C9 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: 0D 0A 54 68 65 20 45 58 45 43 75 74 69 6F 6E 20 ..The EXECution
008710: 70 72 6F 67 72 61 6D 20 63 6F 6E 73 69 73 74 73 program consists
008720: 20 6F 66 20 74 77 6F 20 70 61 72 74 73 20 45 58 of two parts EX
008730: 45 43 2E 43 4F 4D 20 61 6E 64 20 45 58 45 43 2E EC.COM and EXEC.
008740: 4F 56 4C 2C 20 74 68 65 0D 0A 45 58 45 43 2E 43 OVL, the..EXEC.C
008750: 4F 4D 20 50 72 6F 67 72 61 6D 20 62 75 69 6C 64 OM Program build
008760: 73 20 74 68 65 20 63 6F 72 65 20 69 6D 61 67 65 s the core image
008770: 20 66 6F 72 20 74 68 65 20 69 6E 74 65 72 6D 65 for the interme
008780: 64 69 61 74 65 20 63 6F 64 65 20 61 6E 64 0D 0A diate code and..
008790: 70 65 72 66 6F 72 6D 73 20 73 75 63 68 20 66 75 performs such fu
0087A0: 6E 63 74 69 6F 6E 73 20 61 73 20 62 61 63 6B 73 nctions as backs
0087B0: 74 75 66 66 69 6E 67 20 61 64 64 72 65 73 73 65 tuffing addresse
0087C0: 73 20 61 6E 64 20 6F 66 66 73 65 74 74 69 6E 67 s and offsetting
0087D0: 20 61 64 64 72 65 73 73 20 69 6E 0D 0A 73 75 62 address in..sub
0087E0: 72 6F 75 74 69 6E 65 73 2E 20 45 58 45 43 2E 43 routines. EXEC.C
0087F0: 4F 4D 20 74 68 65 6E 20 6C 6F 61 64 73 20 45 58 OM then loads EX
008800: 45 43 2E 4F 56 4C 20 28 74 68 65 20 69 6E 74 65 EC.OVL (the inte
008810: 72 70 72 65 74 65 72 29 20 69 6E 74 6F 20 6D 65 rpreter) into me
008820: 6D 6F 72 79 20 61 6E 64 0D 0A 74 72 61 6E 73 66 mory and..transf
008830: 65 72 73 20 63 6F 6E 74 72 6F 6C 20 74 6F 20 69 ers control to i
008840: 74 2E 20 54 68 65 20 69 6E 74 65 72 70 72 65 74 t. The interpret
008850: 65 72 20 69 73 20 63 6F 6E 74 72 6F 6C 6C 65 64 er is controlled
008860: 20 62 79 20 61 20 6C 61 72 67 65 20 63 61 73 65 by a large case
008870: 0D 0A 73 74 61 74 65 6D 65 6E 74 20 74 68 61 74 ..statement that
008880: 20 64 65 63 6F 64 65 73 20 74 68 65 20 69 6E 73 decodes the ins
008890: 74 72 75 63 74 69 6F 6E 73 20 61 6E 64 20 70 65 tructions and pe
0088A0: 72 66 6F 72 6D 73 20 74 68 65 20 72 65 71 75 69 rforms the requi
0088B0: 72 65 64 20 61 63 74 69 6F 6E 73 2E 0D 0A 0D 0A red actions.....
0088C0: 0D 0A 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 45 4C ..MICRO-COBOL EL
0088D0: 45 4D 45 4E 54 53 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D EMENTS..========
0088E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
0088F0: 54 68 69 73 20 73 65 63 74 69 6F 6E 20 63 6F 6E This section con
008900: 65 72 6D 65 64 69 61 74 65 20 63 6F 64 65 2E 20 ermediate code.
008910: 20 44 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E Default is OFF.
008920: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 53 65 74 .... Set
008930: 74 69 6E 67 20 74 68 69 73 20 74 6F 67 67 6C 65 ting this toggle
008940: 20 73 70 65 65 64 73 20 69 6E 69 74 69 61 6C 20 speeds initial
008950: 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 66 6F 72 20 compilation for
008960: 73 79 6E 74 61 78 0D 0A 20 20 20 20 20 20 20 20 syntax..
008970: 20 63 68 65 63 6B 69 6E 67 2E 20 20 57 68 65 6E checking. When
008980: 20 74 68 69 73 20 74 6F 67 67 6C 65 20 69 73 20 this toggle is
008990: 73 65 74 20 74 68 65 20 22 43 49 4E 22 20 66 69 set the "CIN" fi
0089A0: 6C 65 20 69 73 20 65 6D 70 74 79 2E 0D 0A 0D 0A le is empty.....
0089B0: 20 20 20 24 44 20 20 2D 20 44 65 62 75 67 67 69 $D - Debuggi
0089C0: 6E 67 20 6D 6F 64 65 2E 20 20 44 65 66 61 75 6C ng mode. Defaul
0089D0: 74 20 69 73 20 4F 46 46 2E 0D 0A 0D 0A 20 20 20 t is OFF.....
0089E0: 20 20 20 20 20 20 54 68 69 73 20 74 6F 67 67 6C This toggl
0089F0: 65 20 73 65 74 73 20 74 68 65 20 64 65 62 75 67 e sets the debug
008A00: 67 69 6E 67 20 6D 6F 64 65 2C 20 77 68 69 63 68 ging mode, which
008A10: 20 6D 65 61 6E 73 20 61 6C 6C 20 74 68 65 0D 0A means all the..
008A20: 20 20 20 20 20 20 20 20 20 64 65 62 75 67 67 69 debuggi
008A30: 6E 67 20 6C 69 6E 65 73 20 28 74 68 6F 73 65 20 ng lines (those
008A40: 77 69 74 68 20 61 20 27 3A 27 20 69 6E 20 63 6F with a ':' in co
008A50: 6C 75 6D 6E 20 6F 6E 65 29 20 61 72 65 20 63 6F lumn one) are co
008A60: 6D 70 69 6C 65 64 2E 0D 0A 20 20 20 20 20 20 20 mpiled...
008A70: 20 20 49 66 20 74 68 69 73 20 74 6F 67 67 6C 65 If this toggle
008A80: 20 69 73 20 6E 6F 74 20 73 65 74 20 69 6E 20 74 is not set in t
008A90: 68 65 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 he ENVIRONMENT D
008AA0: 49 56 49 53 49 4F 4E 20 6F 66 20 74 68 65 0D 0A IVISION of the..
008AB0: 20 20 20 20 20 20 20 20 20 73 6F 75 72 63 65 20 source
008AC0: 70 72 6F 67 72 61 6D 20 61 6C 6C 20 64 65 62 75 program all debu
008AD0: 67 67 69 6E 67 20 6C 69 6E 65 73 20 61 72 65 20 gging lines are
008AE0: 74 72 65 61 74 65 64 20 61 73 20 63 6F 6D 6D 65 treated as comme
008AF0: 6E 74 73 2E 0D 0A 0D 0A 20 20 20 24 4C 20 20 2D nts..... $L -
008B00: 74 61 69 6E 73 20 61 20 64 65 73 63 72 69 70 74 tains a descript
008B10: 69 6F 6E 20 6F 66 20 65 61 63 68 20 65 6C 65 6D ion of each elem
008B20: 65 6E 74 20 69 6E 20 74 68 65 20 6C 61 6E 67 75 ent in the langu
008B30: 61 67 65 20 61 6E 64 0D 0A 73 68 6F 77 73 20 73 age and..shows s
008B40: 69 6D 70 6C 65 20 65 78 61 6D 70 6C 65 73 20 6F imple examples o
008B50: 66 20 74 68 65 69 72 20 75 73 65 2E 20 54 68 65 f their use. The
008B60: 20 66 6F 6C 6C 6F 77 69 6E 67 20 63 6F 6E 76 65 following conve
008B70: 6E 74 69 6F 6E 73 20 61 72 65 20 75 73 65 64 20 ntions are used
008B80: 69 6E 0D 0A 65 78 70 6C 61 69 6E 69 6E 67 20 74 in..explaining t
008B90: 68 65 20 66 6F 72 6D 61 74 73 3A 0D 0A 0D 0A 45 he formats:....E
008BA0: 6C 65 6D 65 6E 74 73 20 65 6E 63 6C 6F 73 65 64 lements enclosed
008BB0: 20 69 6E 20 3C 62 72 6F 6B 65 6E 3E 20 62 72 61 in <broken> bra
008BC0: 63 6B 65 74 73 20 61 72 65 20 74 68 65 6D 73 65 ckets are themse
008BD0: 6C 76 65 73 20 63 6F 6D 70 6C 65 74 65 20 65 6E lves complete en
008BE0: 74 69 74 65 73 20 61 6E 64 0D 0A 61 72 65 20 64 tites and..are d
008BF0: 65 73 63 72 69 62 65 64 20 65 6C 73 65 77 68 65 escribed elsewhe
008C00: 72 65 20 69 6E 20 74 68 65 20 6D 61 6E 75 61 6C re in the manual
008C10: 2E 0D 0A 0D 0A 45 6C 65 6D 65 6E 74 73 20 65 6E .....Elements en
008C20: 63 6C 6F 73 65 64 20 69 6E 20 7B 73 71 75 69 67 closed in {squig
008C30: 67 6C 65 79 7D 20 62 72 61 63 6B 65 74 73 20 61 gley} brackets a
008C40: 72 65 20 63 68 6F 69 63 65 73 2C 20 6F 6E 65 20 re choices, one
008C50: 6F 66 20 74 68 65 20 65 6C 65 6D 65 6E 74 73 0D of the elements.
008C60: 0A 77 68 69 63 68 20 69 73 20 74 6F 20 62 65 20 .which is to be
008C70: 75 73 65 64 2E 0D 0A 0D 0A 45 6C 65 6D 65 6E 74 used.....Element
008C80: 73 20 65 6E 63 6C 6F 73 65 64 20 69 6E 20 5B 73 s enclosed in [s
008C90: 71 75 61 72 65 5D 20 62 72 61 63 6B 65 74 73 20 quare] brackets
008CA0: 61 72 65 20 6F 70 74 69 6F 6E 61 6C 2E 0D 0A 0D are optional....
008CB0: 0A 41 6C 6C 20 65 6C 65 6D 65 6E 74 73 20 69 6E .All elements in
008CC0: 20 63 61 70 69 74 61 6C 20 6C 65 74 74 65 72 73 capital letters
008CD0: 20 61 72 65 20 72 65 73 65 72 76 65 64 20 77 6F are reserved wo
008CE0: 72 64 73 20 61 6E 64 20 6D 75 73 74 20 62 65 20 rds and must be
008CF0: 73 70 65 6C 6C 65 64 0D 0A 65 78 61 63 74 6C 79 spelled..exactly
008D00: 20 6C 69 73 74 20 74 68 65 20 69 6E 70 75 74 20 list the input
008D10: 63 6F 64 65 20 6F 6E 20 74 68 65 20 73 63 72 65 code on the scre
008D20: 65 6E 20 61 73 20 74 68 65 20 70 72 6F 67 72 61 en as the progra
008D30: 6D 20 69 73 20 63 6F 6D 70 69 6C 65 64 2E 0D 0A m is compiled...
008D40: 20 20 20 20 20 20 20 20 20 44 65 66 61 75 6C 74 Default
008D50: 20 69 73 20 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 20 is ON.....
008D60: 20 20 20 20 45 72 72 6F 72 20 6D 65 73 73 61 67 Error messag
008D70: 65 73 20 61 72 65 20 64 69 73 70 6C 61 79 65 64 es are displayed
008D80: 20 61 74 20 74 68 65 20 74 65 72 6D 69 6E 61 6C at the terminal
008D90: 20 69 6E 20 61 6E 79 20 63 61 73 65 2E 0D 0A 0D in any case....
008DA0: 0A 20 20 20 24 50 20 20 2D 20 50 72 6F 64 75 63 . $P - Produc
008DB0: 74 69 6F 6E 73 2E 20 4C 69 73 74 20 70 72 6F 64 tions. List prod
008DC0: 75 63 74 69 6F 6E 73 20 61 73 20 74 68 65 79 20 uctions as they
008DD0: 6F 63 63 75 72 2E 20 44 65 66 61 75 6C 74 20 69 occur. Default i
008DE0: 73 20 4F 46 46 2E 0D 0A 0D 0A 20 20 20 24 53 20 s OFF..... $S
008DF0: 20 2D 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 - sequence numb
008E00: 65 72 73 20 61 72 65 20 69 6E 20 74 68 65 20 66 ers are in the f
008E10: 69 72 73 74 20 73 69 78 20 70 6F 73 69 74 69 6F irst six positio
008E20: 6E 73 20 6F 66 20 65 61 63 68 20 72 65 63 6F 72 ns of each recor
008E30: 64 0D 0A 20 20 20 20 20 20 20 20 20 44 65 66 61 d.. Defa
008E40: 75 6C 74 20 69 73 20 4F 46 46 2E 0D 0A 0D 0A 20 ult is OFF.....
008E50: 20 20 24 54 20 20 2D 20 54 6F 6B 65 6E 73 2E 20 $T - Tokens.
008E60: 20 4C 69 73 74 20 74 6F 6B 65 6E 73 20 66 72 6F List tokens fro
008E70: 6D 20 74 68 65 20 73 63 61 6E 6E 65 72 2E 20 44 m the scanner. D
008E80: 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E 0D 0A efault is OFF...
008E90: 0D 0A 20 20 20 24 57 20 20 2D 20 43 72 65 61 74 .. $W - Creat
008EA0: 65 20 61 20 6C 69 73 74 20 66 69 6C 65 2E 20 20 e a list file.
008EB0: 44 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E 0D Default is OFF..
008EC0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 41 20 6C 69 ... A li
008ED0: 73 74 69 6E 67 20 20 66 69 6C 65 20 69 73 20 63 sting file is c
008EE0: 72 65 61 74 65 64 20 77 68 65 6E 20 74 68 69 73 reated when this
008EF0: 20 74 6F 67 67 6C 65 20 69 73 20 73 65 74 2E 20 toggle is set.
008F00: 2E 0D 0A 0D 0A 55 73 65 72 20 6E 61 6D 65 73 20 .....User names
008F10: 61 72 65 20 69 6E 64 69 63 61 74 65 64 20 69 6E are indicated in
008F20: 20 6C 6F 77 65 72 20 63 61 73 65 2E 20 54 68 65 lower case. The
008F30: 73 65 20 6E 61 6D 65 73 20 61 72 65 20 75 6E 72 se names are unr
008F40: 65 73 74 72 69 63 74 65 64 20 69 6E 0D 0A 6C 65 estricted in..le
008F50: 6E 67 74 68 2C 20 68 6F 77 65 76 65 72 20 74 68 ngth, however th
008F60: 65 79 20 6D 75 73 74 20 62 65 20 75 6E 69 71 75 ey must be uniqu
008F70: 65 20 77 69 74 68 69 6E 20 74 68 65 20 66 69 72 e within the fir
008F80: 73 74 20 31 35 20 63 68 61 72 61 63 74 65 72 73 st 15 characters
008F90: 2E 20 54 68 65 20 6F 6E 6C 79 0D 0A 6F 74 68 65 . The only..othe
008FA0: 72 20 72 65 73 74 72 69 63 74 69 6F 6E 20 6F 6E r restriction on
008FB0: 20 75 73 65 72 20 6E 61 6D 65 73 20 69 73 20 74 user names is t
008FC0: 68 61 74 20 74 68 65 20 66 69 72 73 74 20 63 68 hat the first ch
008FD0: 61 72 61 63 74 65 72 20 6D 75 73 74 20 62 65 20 aracter must be
008FE0: 61 6E 20 61 6C 70 68 61 0D 0A 63 68 61 72 61 63 an alpha..charac
008FF0: 74 65 72 2E 20 54 68 65 20 72 65 6D 61 69 6E 64 ter. The remaind
009000: 65 72 20 6F 66 20 74 68 65 20 75 73 65 72 20 6E er of the user n
009010: 61 6D 65 20 63 61 6E 20 68 61 76 65 20 61 6E 79 ame can have any
009020: 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 20 6F 66 0D combination of.
009030: 0A 72 65 70 72 65 73 65 6E 74 61 62 6C 65 20 63 .representable c
009040: 68 61 72 61 63 74 65 72 73 20 69 6E 20 69 74 2E haracters in it.
009050: 0D 0A 0D 0A 54 68 65 20 69 6E 70 75 74 20 74 6F ....The input to
009060: 20 74 68 65 20 63 6F 6D 70 69 6C 65 72 20 64 6F the compiler do
009070: 65 73 20 6E 6F 74 20 6E 65 65 64 20 74 6F 20 63 es not need to c
009080: 6F 6E 66 6F 72 6D 20 74 6F 20 73 74 61 6E 64 61 onform to standa
009090: 72 64 20 43 4F 42 4F 4C 20 66 6F 72 6D 61 74 2E rd COBOL format.
0090A0: 0D 0A 46 72 65 65 20 66 6F 72 6D 20 69 6E 70 75 ..Free form inpu
0090B0: 74 20 77 69 6C 6C 20 62 65 20 61 63 63 65 70 74 t will be accept
0090C0: 65 64 20 61 73 20 74 68 65 20 64 65 66 61 75 6C ed as the defaul
0090D0: 74 20 63 6F 6E 64 69 74 69 6F 6E 2E 20 49 66 20 t condition. If
0090E0: 64 65 73 69 72 65 64 2C 0D 0A 73 65 71 75 65 6E desired,..sequen
0090F0: 63 65 20 6E 75 6D 62 65 72 73 20 63 61 6E 20 62 ce numbers can b
009100: 20 57 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 When..
009110: 74 68 69 73 20 74 6F 67 67 6C 65 20 69 73 20 6E this toggle is n
009120: 6F 74 20 73 65 74 20 74 68 65 20 22 4C 53 54 22 ot set the "LST"
009130: 20 66 69 6C 65 20 77 69 6C 6C 20 6F 6E 6C 79 20 file will only
009140: 63 6F 6E 74 61 69 6E 0D 0A 20 20 20 20 20 20 20 contain..
009150: 20 20 65 72 72 6F 72 20 6D 65 73 73 61 67 65 73 error messages
009160: 2E 0D 0A 0D 0A 0D 0A 52 55 4E 20 54 49 4D 45 20 .......RUN TIME
009170: 43 4F 4E 56 45 4E 54 49 4F 4E 53 0D 0A 3D 3D 3D CONVENTIONS..===
009180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009190: 3D 0D 0A 0D 0A 54 68 69 73 20 73 65 63 74 69 6F =....This sectio
0091A0: 6E 20 65 78 70 6C 61 69 6E 73 20 68 6F 77 20 74 n explains how t
0091B0: 6F 20 72 75 6E 20 74 68 65 20 63 6F 6D 70 69 6C o run the compil
0091C0: 65 72 20 6F 6E 20 74 68 65 20 63 75 72 72 65 6E er on the curren
0091D0: 74 20 73 79 73 74 65 6D 2E 0D 0A 0D 0A 54 68 65 t system.....The
0091E0: 20 63 6F 6D 70 69 6C 65 72 20 65 78 70 65 63 74 compiler expect
0091F0: 73 20 74 6F 20 73 65 65 20 61 20 66 69 6C 65 20 s to see a file
009200: 77 69 74 68 20 61 20 74 79 70 65 20 6F 66 20 43 with a type of C
009210: 42 4C 20 61 73 20 74 68 65 20 69 6E 70 75 74 20 BL as the input
009220: 66 69 6C 65 2E 20 20 49 6E 0D 0A 67 65 6E 65 72 file. In..gener
009230: 61 6C 2C 20 74 68 65 20 69 6E 70 75 74 20 69 73 al, the input is
009240: 20 66 72 65 65 20 66 6F 72 6D 2E 20 20 49 66 20 free form. If
009250: 74 68 65 20 69 6E 70 75 74 20 69 6E 63 6C 75 64 the input includ
009260: 65 73 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 es sequence numb
009270: 65 72 73 0D 0A 74 68 65 6E 20 74 68 65 20 63 6F ers..then the co
009280: 6D 70 69 6C 65 72 20 6D 75 73 74 20 62 65 20 6E mpiler must be n
009290: 6F 74 69 66 69 65 64 20 62 79 20 73 65 74 74 69 otified by setti
0092A0: 6E 67 20 74 68 65 20 61 70 70 72 6F 70 72 69 61 ng the appropria
0092B0: 74 65 20 74 6F 67 67 6C 65 2E 0D 0A 0D 0A 54 68 te toggle.....Th
0092C0: 65 20 63 6F 6D 70 69 6C 65 72 20 69 73 20 73 74 e compiler is st
0092D0: 61 72 74 65 64 20 62 79 20 74 79 70 69 6E 67 20 arted by typing
0092E0: 43 4F 42 4F 4C 20 3C 66 69 6C 65 6E 61 6D 65 3E COBOL <filename>
0092F0: 2E 20 57 68 65 72 65 20 74 68 65 20 66 69 6C 65 . Where the file
009300: 65 20 65 6E 74 65 72 65 64 20 69 6E 20 74 68 65 e entered in the
009310: 20 66 69 72 73 74 20 73 69 78 20 70 6F 73 69 74 first six posit
009320: 69 6F 6E 73 20 6F 66 20 65 61 63 68 20 6C 69 6E ions of each lin
009330: 65 2E 0D 0A 48 6F 77 65 76 65 72 2C 20 61 20 74 e...However, a t
009340: 6F 67 67 6C 65 20 6E 65 65 64 73 20 74 6F 20 62 oggle needs to b
009350: 65 20 73 65 74 20 74 6F 20 63 61 75 73 65 20 74 e set to cause t
009360: 68 65 20 63 6F 6D 70 69 6C 65 72 20 74 6F 20 69 he compiler to i
009370: 67 6E 6F 72 65 20 74 68 65 0D 0A 73 65 71 75 65 gnore the..seque
009380: 6E 63 65 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A nce numbers.....
009390: 54 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 The first charac
0093A0: 74 65 72 20 70 6F 73 69 74 69 6F 6E 20 6F 6E 20 ter position on
0093B0: 61 6E 79 20 6C 69 6E 65 20 69 73 20 75 73 65 64 any line is used
0093C0: 20 74 6F 20 69 6E 64 69 63 61 74 65 20 74 68 65 to indicate the
0093D0: 20 66 6F 6C 6C 6F 77 69 6E 67 3A 0D 0A 0D 0A 20 following:....
0093E0: 20 20 2A 20 20 2D 20 20 69 6E 64 69 63 61 74 65 * - indicate
0093F0: 73 20 61 20 63 6F 6D 6D 65 6E 74 20 65 6E 74 72 s a comment entr
009400: 79 2E 0D 0A 20 20 20 3A 20 20 2D 20 20 69 6E 64 y... : - ind
009410: 69 63 61 74 65 73 20 61 20 64 65 62 75 67 67 69 icates a debuggi
009420: 6E 67 20 6C 69 6E 65 2E 0D 0A 20 20 20 2F 20 20 ng line... /
009430: 2D 20 20 69 6E 64 69 63 61 74 65 73 20 61 20 70 - indicates a p
009440: 61 67 65 20 65 6A 65 63 74 2E 0D 0A 0D 0A 0D 0A age eject.......
009450: 43 4F 4D 50 49 4C 45 52 20 54 4F 47 47 4C 45 53 COMPILER TOGGLES
009460: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..==============
009470: 3D 3D 0D 0A 0D 0A 54 68 65 72 65 20 61 72 65 20 ==....There are
009480: 73 69 78 20 63 6F 6D 70 69 6C 65 72 20 74 6F 67 six compiler tog
009490: 67 6C 65 73 20 77 68 69 63 68 20 61 72 65 20 63 gles which are c
0094A0: 6F 6E 74 72 6F 6C 6C 65 64 20 62 79 20 61 6E 20 ontrolled by an
0094B0: 65 6E 74 72 79 20 66 6F 6C 6C 6F 77 69 6E 67 0D entry following.
0094C0: 0A 74 68 65 20 63 6F 6D 70 69 6C 65 72 20 61 63 .the compiler ac
0094D0: 74 69 76 61 74 69 6F 6E 20 63 6F 6D 6D 61 6E 64 tivation command
0094E0: 2C 20 20 43 4F 42 4F 4C 20 3C 66 69 6C 65 6E 61 , COBOL <filena
0094F0: 6D 65 3E 2E 20 20 54 68 65 20 66 6F 72 6D 61 74 me>. The format
009500: 20 6E 61 6D 65 20 69 73 0D 0A 74 68 65 20 73 79 name is..the sy
009510: 73 74 65 6D 20 6E 61 6D 65 20 6F 66 20 74 68 65 stem name of the
009520: 20 69 6E 70 75 74 20 66 69 6C 65 2E 20 20 54 68 input file. Th
009530: 65 72 65 20 69 73 20 6E 6F 20 69 6E 74 65 72 61 ere is no intera
009540: 63 74 69 6F 6E 20 72 65 71 75 69 72 65 64 20 74 ction required t
009550: 6F 0D 0A 73 74 61 72 74 20 74 68 65 20 73 65 63 o..start the sec
009560: 6F 6E 64 20 70 61 72 74 20 6F 66 20 74 68 65 20 ond part of the
009570: 63 6F 6D 70 69 6C 65 72 2E 20 20 20 54 68 65 20 compiler. The
009580: 6F 75 74 70 75 74 20 66 69 6C 65 20 77 69 6C 6C output file will
009590: 20 68 61 76 65 20 74 68 65 20 73 61 6D 65 0D 0A have the same..
0095A0: 3C 66 69 6C 65 6E 61 6D 65 3E 20 61 73 20 74 68 <filename> as th
0095B0: 65 20 69 6E 70 75 74 20 66 69 6C 65 20 61 6E 64 e input file and
0095C0: 20 77 69 6C 6C 20 62 65 20 67 69 76 65 6E 20 61 will be given a
0095D0: 20 66 69 6C 65 20 74 79 70 65 20 6F 66 20 43 49 file type of CI
0095E0: 4E 2E 20 20 41 6E 79 0D 0A 70 72 65 76 69 6F 75 N. Any..previou
0095F0: 73 20 63 6F 70 69 65 73 20 6F 66 20 74 68 65 20 s copies of the
009600: 66 69 6C 65 20 77 69 6C 6C 20 62 65 20 65 72 61 file will be era
009610: 73 65 64 2E 20 20 41 73 20 77 69 74 68 20 74 68 sed. As with th
009620: 65 20 43 49 4E 20 66 69 6C 65 2C 20 61 20 4C 53 e CIN file, a LS
009630: 54 0D 0A 66 69 6C 65 20 77 69 6C 6C 20 62 65 20 T..file will be
009640: 63 72 65 61 74 65 64 20 77 69 74 68 20 74 68 65 created with the
009650: 20 73 61 6D 65 20 66 69 6C 65 20 6E 61 6D 65 20 same file name
009660: 61 73 20 74 68 65 20 69 6E 70 75 74 20 66 69 6C as the input fil
009670: 65 20 61 6E 64 20 61 6E 79 0D 0A 70 72 65 76 69 e and any..previ
009680: 6F 75 73 20 4C 53 54 20 66 69 6C 65 73 20 77 69 ous LST files wi
009690: 74 68 20 74 68 61 74 20 6E 61 6D 65 20 77 69 6C th that name wil
0096A0: 6C 20 62 65 20 65 72 61 73 65 64 2E 0D 0A 0D 0A l be erased.....
0096B0: 54 68 65 20 69 6E 74 65 72 70 72 65 74 65 72 20 The interpreter
0096C0: 69 73 20 73 74 61 72 74 65 64 20 62 79 20 74 79 is started by ty
0096D0: 70 69 6E 67 20 45 58 45 43 20 3C 66 69 6C 65 6E ping EXEC <filen
0096E0: 61 6D 65 3E 2E 20 20 54 68 65 20 66 69 72 73 74 ame>. The first
0096F0: 20 70 72 6F 67 72 61 6D 20 69 73 0D 0A 61 20 6C program is..a l
009700: 20 6F 66 20 74 68 65 20 65 6E 74 72 79 0D 0A 63 of the entry..c
009710: 6F 6E 73 69 73 74 73 20 6F 66 20 66 6F 6C 6C 6F onsists of follo
009720: 77 69 6E 67 20 3C 66 69 6C 65 6E 61 6D 65 3E 20 wing <filename>
009730: 62 79 20 6F 6E 65 20 73 70 61 63 65 20 61 6E 64 by one space and
009740: 20 74 68 65 6E 20 65 6E 74 65 72 69 6E 67 20 61 then entering a
009750: 20 22 24 22 0D 0A 66 6F 6C 6C 6F 77 65 64 20 69 "$"..followed i
009760: 6D 6D 65 64 69 61 74 65 6C 79 20 62 79 20 74 68 mmediately by th
009770: 65 20 64 65 73 69 72 65 64 20 74 6F 67 67 6C 65 e desired toggle
009780: 73 2E 20 20 54 68 65 72 65 20 6D 75 73 74 20 62 s. There must b
009790: 65 20 6F 6E 6C 79 20 6F 6E 65 20 73 70 61 63 65 e only one space
0097A0: 0D 0A 61 66 74 65 72 20 3C 66 69 6C 65 6E 61 6D ..after <filenam
0097B0: 65 3E 20 61 6E 64 20 6E 6F 20 73 70 61 63 65 73 e> and no spaces
0097C0: 20 62 65 74 77 65 65 6E 20 74 68 65 20 22 24 22 between the "$"
0097D0: 20 61 6E 64 20 74 68 65 20 74 6F 67 67 6C 65 73 and the toggles
0097E0: 2E 0D 0A 0D 0A 54 68 65 20 66 6F 6C 6C 6F 77 69 .....The followi
0097F0: 6E 67 20 69 73 20 61 6E 20 65 78 61 6D 70 6C 65 ng is an example
009800: 20 6F 66 20 61 20 74 79 70 69 63 61 6C 20 65 6E of a typical en
009810: 74 72 79 3A 0D 0A 0D 0A 20 20 20 43 4F 42 4F 4C try:.... COBOL
009820: 20 45 58 41 4D 50 4C 45 20 24 53 0D 0A 0D 0A 54 EXAMPLE $S....T
009830: 68 69 73 20 65 6E 74 72 79 20 77 6F 75 6C 64 20 his entry would
009840: 63 61 75 73 65 20 74 68 65 20 63 6F 6D 70 69 6C cause the compil
009850: 65 72 20 74 6F 20 69 67 6E 6F 72 65 20 74 68 65 er to ignore the
009860: 20 66 69 72 73 74 20 73 69 78 20 63 68 61 72 61 first six chara
009870: 63 74 65 72 73 20 28 75 73 65 64 0D 0A 66 6F 72 cters (used..for
009880: 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 65 72 sequence number
009890: 73 29 20 61 74 20 74 68 65 20 62 65 67 69 6E 6E s) at the beginn
0098A0: 69 6E 67 20 6F 66 20 65 61 63 68 20 69 6E 70 75 ing of each inpu
0098B0: 74 20 6C 69 6E 65 2E 20 20 49 6E 20 65 61 63 68 t line. In each
0098C0: 20 63 61 73 65 20 74 68 65 0D 0A 74 6F 67 67 6C case the..toggl
0098D0: 65 20 72 65 76 65 72 73 65 73 20 74 68 65 20 64 e reverses the d
0098E0: 65 66 61 75 6C 74 20 76 61 6C 75 65 2E 0D 0A 0D efault value....
0098F0: 0A 20 20 20 24 43 20 20 2D 20 4E 6F 20 69 6E 74 . $C - No int
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 01 00 02 09 52 E5 08 00 C1 02 00 00 00 02 ......R.........
009920: 08 00 C6 02 00 00 00 02 08 00 C2 02 00 00 00 02 ................
009930: 08 00 C7 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009940: 08 00 C8 02 00 00 00 02 08 00 C4 02 00 00 00 02 ................
009950: 08 00 C9 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 6F 61 64 65 72 2C 20 61 6E 64 20 69 74 20 77 69 oader, and it wi
009A10: 6C 6C 20 64 69 73 70 6C 61 79 3A 0D 0A 0D 0A 20 ll display:....
009A20: 20 22 4E 50 53 20 4D 49 43 52 4F 2D 43 4F 42 4F "NPS MICRO-COBO
009A30: 4C 20 4C 4F 41 44 45 52 20 56 45 52 53 20 32 2E L LOADER VERS 2.
009A40: 31 22 0D 0A 0D 0A 66 6F 6C 6C 6F 77 65 64 20 62 1"....followed b
009A50: 79 20 74 68 65 20 64 69 73 70 6C 61 79 3A 0D 0A y the display:..
009A60: 0D 0A 20 20 22 4C 4F 41 44 20 46 49 4E 49 53 48 .. "LOAD FINISH
009A70: 45 44 22 0D 0A 0D 0A 74 6F 20 69 6E 64 69 63 61 ED"....to indica
009A80: 74 65 73 20 73 75 63 63 65 73 73 66 75 6C 20 63 tes successful c
009A90: 6F 6D 70 6C 65 74 69 6F 6E 2E 20 54 68 65 20 72 ompletion. The r
009AA0: 75 6E 2D 74 69 6D 65 20 70 61 63 6B 61 67 65 20 un-time package
009AB0: 77 69 6C 6C 20 62 65 20 62 72 6F 75 67 68 74 20 will be brought
009AC0: 69 6E 0D 0A 62 79 20 74 68 65 20 45 58 45 43 20 in..by the EXEC
009AD0: 72 6F 75 74 69 6E 65 2C 20 61 6E 64 20 65 78 65 routine, and exe
009AE0: 63 75 74 69 6F 6E 20 73 68 6F 75 6C 64 20 63 6F cution should co
009AF0: 6E 74 69 6E 75 65 20 77 69 74 68 6F 75 74 20 69 ntinue without i
009B00: 6E 74 65 72 72 75 70 74 69 6F 6E 2E 0D 0A 53 75 nterruption...Su
009B10: 63 63 65 73 73 66 75 6C 20 74 72 61 6E 73 66 65 ccessful transfe
009B20: 72 20 6F 66 20 63 6F 6E 74 72 6F 6C 20 74 6F 20 r of control to
009B30: 74 68 65 20 69 6E 74 65 72 70 72 65 74 65 72 20 the interpreter
009B40: 77 69 6C 6C 20 62 65 20 69 6E 64 69 63 61 74 65 will be indicate
009B50: 64 20 62 79 20 74 68 65 0D 0A 64 69 73 70 6C 61 d by the..displa
009B60: 79 3A 0D 0A 0D 0A 20 20 22 4E 50 53 20 4D 49 43 y:.... "NPS MIC
009B70: 52 4F 2D 43 4F 42 4F 4C 20 49 4E 54 45 52 50 52 RO-COBOL INTERPR
009B80: 45 54 45 52 20 56 45 52 53 20 32 2E 31 2E 22 0D ETER VERS 2.1.".
009B90: 0A 0D 0A 43 6F 6D 70 6C 65 74 69 6F 6E 20 6F 66 ...Completion of
009BA0: 20 70 72 6F 67 72 61 6D 20 65 78 65 63 75 74 69 program executi
009BB0: 6F 6E 20 77 69 6C 6C 20 62 65 20 69 6E 64 69 63 on will be indic
009BC0: 61 74 65 64 20 62 79 20 74 68 65 20 64 69 73 70 ated by the disp
009BD0: 6C 61 79 0D 0A 0D 0A 20 20 22 58 20 45 58 45 43 lay.... "X EXEC
009BE0: 55 54 49 4F 4E 20 45 52 52 4F 52 28 53 29 2C 22 UTION ERROR(S),"
009BF0: 0D 0A 0D 0A 77 68 65 72 65 20 22 58 22 20 69 73 ....where "X" is
009C00: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 3C 63 6F 6D PROGRAM-ID. <com
009C10: 6D 65 6E 74 3E 2E 0D 0A 0D 0A 20 20 20 20 20 20 ment>.....
009C20: 20 20 20 20 20 20 20 5B 41 55 54 48 4F 52 2E 20 [AUTHOR.
009C30: 3C 63 6F 6D 6D 65 6E 74 3E 2E 5D 0D 0A 0D 0A 20 <comment>.]....
009C40: 20 20 20 20 20 20 20 20 20 20 20 20 5B 44 41 54 [DAT
009C50: 45 2D 57 52 49 54 54 45 4E 2E 20 3C 63 6F 6D 6D E-WRITTEN. <comm
009C60: 65 6E 74 3E 2E 5D 0D 0A 0D 0A 20 20 20 20 20 20 ent>.]....
009C70: 20 20 20 20 20 20 20 5B 53 45 43 55 52 49 54 59 [SECURITY
009C80: 2E 20 3C 63 6F 6D 6D 65 6E 74 3E 2E 5D 0D 0A 0D . <comment>.]...
009C90: 0A 0D 0A 4E 4F 54 45 53 3A 0D 0A 0D 0A 54 68 69 ...NOTES:....Thi
009CA0: 73 20 64 69 76 69 73 69 6F 6E 20 70 72 6F 76 69 s division provi
009CB0: 64 65 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 des information
009CC0: 66 6F 72 20 70 72 6F 67 72 61 6D 20 69 64 65 6E for program iden
009CD0: 74 69 66 69 63 61 74 69 6F 6E 20 66 6F 72 20 74 tification for t
009CE0: 68 65 20 72 65 61 64 65 72 2E 0D 0A 54 68 65 20 he reader...The
009CF0: 6F 72 64 65 72 20 6F 66 20 74 68 65 20 6C 69 6E order of the lin
009D00: 65 73 20 69 73 20 66 69 78 65 64 2E 0D 0A 0D 0A es is fixed.....
009D10: 45 58 41 4D 50 4C 45 53 3A 20 20 20 20 49 44 45 EXAMPLES: IDE
009D20: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
009D30: 53 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 SION...
009D40: 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 PROGRAM-ID.
009D50: 53 41 4D 50 4C 45 2E 0D 0A 20 20 20 20 20 20 20 SAMPLE...
009D60: 20 20 20 20 20 20 41 55 54 48 4F 52 2E 20 48 41 AUTHOR. HA
009D70: 4C 20 52 20 50 4F 57 45 4C 4C 2E 0D 0A 0D 0A 0D L R POWELL......
009D80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 . ID
009D90: 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 ENTIFICATION DIV
009DA0: 49 53 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 ISION...
009DB0: 20 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E PROGRAM-ID.
009DC0: 20 57 41 47 45 53 2D 43 41 4C 43 55 4C 41 54 49 WAGES-CALCULATI
009DD0: 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ON...
009DE0: 20 20 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *..
009DF0: 20 20 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D * This program
009E00: 20 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 65 the number of e
009E10: 72 72 6F 72 73 20 77 68 69 63 68 20 6F 63 63 75 rrors which occu
009E20: 72 72 65 64 20 64 75 72 69 6E 67 20 65 78 65 63 rred during exec
009E30: 75 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 46 49 4C 45 ution.......FILE
009E40: 20 49 4E 54 45 52 41 43 54 49 4F 4E 53 20 57 49 INTERACTIONS WI
009E50: 54 48 20 43 50 2F 4D 0D 0A 3D 3D 3D 3D 3D 3D 3D TH CP/M..=======
009E60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
009E70: 3D 3D 3D 3D 0D 0A 0D 0A 43 50 2F 4D 20 74 72 65 ====....CP/M tre
009E80: 61 74 73 20 61 6C 6C 20 64 61 74 61 20 66 69 6C ats all data fil
009E90: 65 73 20 61 73 20 52 61 6E 64 6F 6D 20 41 63 63 es as Random Acc
009EA0: 65 73 73 20 66 69 6C 65 73 2C 20 43 50 2F 4D 20 ess files, CP/M
009EB0: 63 61 6E 6E 6F 74 20 64 69 73 74 69 6E 67 75 69 cannot distingui
009EC0: 73 68 0D 0A 74 68 65 20 73 65 71 75 65 6E 74 69 sh..the sequenti
009ED0: 61 6C 20 66 69 6C 65 73 2C 20 66 72 6F 6D 20 74 al files, from t
009EE0: 68 65 20 72 61 6E 64 6F 6D 20 41 63 63 65 73 73 he random Access
009EF0: 20 66 69 6C 65 73 20 63 72 65 61 74 65 64 20 75 files created u
009F00: 6E 64 65 72 20 43 6F 62 6F 6C 2E 0D 0A 54 68 65 nder Cobol...The
009F10: 20 64 69 73 74 69 6E 63 74 69 6F 6E 20 62 65 74 distinction bet
009F20: 77 65 65 6E 20 74 68 65 20 74 77 6F 20 66 69 6C ween the two fil
009F30: 65 20 74 79 70 65 73 20 69 73 20 73 70 65 63 69 e types is speci
009F40: 66 69 65 64 20 62 79 20 74 68 65 20 77 61 79 20 fied by the way
009F50: 69 6E 20 77 68 69 63 68 0D 0A 74 68 65 20 66 69 in which..the fi
009F60: 6C 65 20 69 73 20 6F 70 65 6E 65 64 20 62 79 20 le is opened by
009F70: 74 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 the Cobol progra
009F80: 6D 20 74 68 61 74 20 75 73 65 73 20 74 68 65 20 m that uses the
009F90: 66 69 6C 65 2E 0D 0A 0D 0A 54 68 69 73 20 6D 65 file.....This me
009FA0: 61 6E 73 20 74 68 61 74 20 74 68 65 20 76 61 72 ans that the var
009FB0: 69 6F 75 73 20 74 79 70 65 73 20 6F 66 20 72 65 ious types of re
009FC0: 61 64 73 20 61 6E 64 20 77 72 69 74 65 73 20 61 ads and writes a
009FD0: 72 65 20 61 6C 6C 20 76 61 6C 69 64 20 74 6F 20 re all valid to
009FE0: 61 6E 79 0D 0A 66 69 6C 65 20 74 68 61 74 20 68 any..file that h
009FF0: 61 73 20 66 69 78 65 64 20 6C 65 6E 67 74 68 20 as fixed length
00A000: 20 63 61 6C 63 75 6C 61 74 65 20 74 68 65 20 65 calculate the e
00A010: 6D 70 6C 6F 79 65 65 73 20 6E 65 74 20 77 61 67 mployees net wag
00A020: 65 20 66 72 6F 6D 0D 0A 20 20 20 20 20 20 20 20 e from..
00A030: 20 20 20 20 20 2A 20 64 61 74 61 20 65 6E 74 65 * data ente
00A040: 72 65 64 20 74 68 72 6F 75 67 68 20 74 68 65 20 red through the
00A050: 6B 65 79 62 6F 61 72 64 20 61 6E 64 20 73 74 6F keyboard and sto
00A060: 72 65 73 20 74 68 65 20 6E 65 74 0D 0A 20 20 20 res the net..
00A070: 20 20 20 20 20 20 20 20 20 20 2A 20 77 61 67 65 * wage
00A080: 20 69 6E 20 74 68 65 20 57 41 47 45 2E 44 41 54 in the WAGE.DAT
00A090: 20 66 69 6C 65 0D 0A 0D 0A 0D 0A 45 4E 56 49 52 file......ENVIR
00A0A0: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 0D ONMENT DIVISION.
00A0B0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
00A0C0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 =====....ELEMENT
00A0D0: 3A 20 20 20 20 20 45 4E 56 49 52 4F 4E 4D 45 4E : ENVIRONMEN
00A0E0: 54 20 44 49 56 49 53 49 4F 4E 20 46 6F 72 6D 61 T DIVISION Forma
00A0F0: 74 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 t....FORMAT:
00A100: 20 20 5B 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 [ENVIRONMENT D
00A110: 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 IVISION.....
00A120: 20 20 20 20 20 20 20 20 20 43 4F 4E 46 49 47 55 CONFIGU
00A130: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
00A140: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
00A150: 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E SOURCE-COMPUTER.
00A160: 20 3C 63 6F 6D 6D 65 6E 74 3E 20 5B 44 45 42 55 <comment> [DEBU
00A170: 47 47 49 4E 47 20 4D 4F 44 45 5D 2E 0D 0A 0D 0A GGING MODE].....
00A180: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 42 4A OBJ
00A190: 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 3C 63 ECT-COMPUTER. <c
00A1A0: 6F 6D 6D 65 6E 74 3E 2E 0D 0A 0D 0A 20 20 20 20 omment>.....
00A1B0: 20 20 20 20 20 20 20 20 20 5B 49 4E 50 55 54 2D [INPUT-
00A1C0: 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E 0D OUTPUT SECTION..
00A1D0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
00A1E0: 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 0D FILE-CONTROL....
00A1F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3C 66 . <f
00A200: 72 65 63 6F 72 64 73 2E 20 54 68 65 20 72 65 73 records. The res
00A210: 74 72 69 63 74 69 6F 6E 73 20 6F 66 20 74 68 65 trictions of the
00A220: 20 41 53 53 49 47 4E 20 73 74 61 74 65 6D 65 6E ASSIGN statemen
00A230: 74 0D 0A 70 72 65 76 65 6E 74 20 61 20 66 69 6C t..prevent a fil
00A240: 65 20 66 72 6F 6D 20 62 65 69 6E 67 20 6F 70 65 e from being ope
00A250: 6E 20 66 6F 72 20 62 6F 74 68 20 72 61 6E 64 6F n for both rando
00A260: 6D 20 61 6E 64 20 73 65 71 75 65 6E 74 69 61 6C m and sequential
00A270: 20 61 63 74 69 6F 6E 73 20 64 75 72 69 6E 67 0D actions during.
00A280: 0A 6F 6E 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D .one program....
00A290: 0A 45 61 63 68 20 6C 6F 67 69 63 61 6C 20 72 65 .Each logical re
00A2A0: 63 6F 72 64 20 69 73 20 74 65 72 6D 69 6E 61 74 cord is terminat
00A2B0: 65 64 20 62 79 20 61 20 63 61 72 72 69 61 67 65 ed by a carriage
00A2C0: 20 72 65 74 75 72 6E 20 61 6E 64 20 61 20 6C 69 return and a li
00A2D0: 6E 65 20 66 65 65 64 2E 20 49 6E 0D 0A 74 68 65 ne feed. In..the
00A2E0: 20 63 61 73 65 20 6F 66 20 76 61 72 69 61 62 6C case of variabl
00A2F0: 65 20 6C 65 6E 67 74 68 20 72 65 63 6F 72 64 73 e length records
00A300: 2C 20 74 68 69 73 20 69 73 20 74 68 65 20 6F 6E , this is the on
00A310: 6C 79 20 65 6E 64 20 6D 61 72 6B 20 74 68 61 74 ly end mark that
00A320: 20 65 78 69 73 74 73 2E 0D 0A 0D 0A 54 68 69 73 exists.....This
00A330: 20 63 6F 6E 76 65 6E 74 69 6F 6E 20 77 61 73 20 convention was
00A340: 61 64 6F 70 74 65 64 20 74 6F 20 61 6C 6C 6F 77 adopted to allow
00A350: 20 74 68 65 20 76 61 72 69 6F 75 73 20 70 72 6F the various pro
00A360: 67 72 61 6D 73 20 77 68 69 63 68 20 61 72 65 20 grams which are
00A370: 75 73 65 64 20 69 6E 0D 0A 43 50 2F 4D 20 74 6F used in..CP/M to
00A380: 20 77 6F 72 6B 20 77 69 74 68 20 74 68 65 20 66 work with the f
00A390: 69 6C 65 73 2E 20 20 46 69 6C 65 73 20 63 72 65 iles. Files cre
00A3A0: 61 74 65 64 20 62 79 20 74 68 65 20 65 64 69 74 ated by the edit
00A3B0: 6F 72 2C 20 66 6F 72 20 65 78 61 6D 70 6C 65 2C or, for example,
00A3C0: 20 77 69 6C 6C 0D 0A 67 65 6E 65 72 61 6C 6C 79 will..generally
00A3D0: 20 62 65 20 76 61 72 69 61 62 6C 65 20 6C 65 6E be variable len
00A3E0: 67 74 68 20 66 69 6C 65 73 2E 20 54 68 69 73 20 gth files. This
00A3F0: 63 6F 6E 76 65 6E 74 69 6F 6E 20 72 65 6D 6F 76 convention remov
00A400: 69 6C 65 2D 63 6F 6E 74 72 6F 6C 2D 65 6E 74 72 ile-control-entr
00A410: 79 3E 20 2E 20 2E 20 2E 0D 0A 0D 0A 20 20 20 20 y> . . .....
00A420: 20 20 20 20 20 20 20 20 20 5B 49 2D 4F 2D 43 4F [I-O-CO
00A430: 4E 54 52 4F 4C 2E 0D 0A 0D 0A 20 20 20 20 20 20 NTROL.....
00A440: 20 20 20 20 20 20 20 53 41 4D 45 20 66 69 6C 65 SAME file
00A450: 2D 6E 61 6D 65 2D 31 20 66 69 6C 65 2D 6E 61 6D -name-1 file-nam
00A460: 65 2D 32 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D 33 e-2 [file-name-3
00A470: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
00A480: 20 20 20 20 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D [file-name-
00A490: 34 5D 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D 35 5D 4] [file-name-5]
00A4A0: 2E 20 5D 20 5D 20 5D 0D 0A 0D 0A 4E 4F 54 45 53 . ] ] ]....NOTES
00A4B0: 3A 0D 0A 0D 0A 54 68 69 73 20 64 69 76 69 73 69 :....This divisi
00A4C0: 6F 6E 20 64 65 74 65 72 6D 69 6E 65 73 20 74 68 on determines th
00A4D0: 65 20 65 78 74 65 72 6E 61 6C 20 6E 61 74 75 72 e external natur
00A4E0: 65 20 6F 66 20 61 20 66 69 6C 65 2E 20 49 6E 20 e of a file. In
00A4F0: 74 68 65 20 63 61 73 65 20 6F 66 20 43 50 2F 4D the case of CP/M
00A500: 0D 0A 61 6C 6C 20 6F 66 20 74 68 65 20 66 69 6C ..all of the fil
00A510: 65 73 20 75 73 65 64 20 63 61 6E 20 62 65 20 61 es used can be a
00A520: 63 63 65 73 73 65 64 20 65 69 74 68 65 72 20 73 ccessed either s
00A530: 65 71 75 65 6E 74 69 61 6C 6C 79 20 6F 72 20 72 equentially or r
00A540: 61 6E 64 6F 6D 6C 79 20 65 78 63 65 70 74 0D 0A andomly except..
00A550: 66 6F 72 20 76 61 72 69 61 62 6C 65 20 6C 65 6E for variable len
00A560: 67 74 68 20 66 69 6C 65 73 20 77 68 69 63 68 20 gth files which
00A570: 61 72 65 20 73 65 71 75 65 6E 74 69 61 6C 20 6F are sequential o
00A580: 6E 6C 79 2E 20 54 68 65 20 64 65 62 75 67 67 69 nly. The debuggi
00A590: 6E 67 20 6D 6F 64 65 20 69 73 0D 0A 61 6C 73 6F ng mode is..also
00A5A0: 20 73 65 74 20 62 79 20 74 68 69 73 20 73 65 63 set by this sec
00A5B0: 74 69 6F 6E 2E 0D 0A 0D 0A 54 68 65 20 44 45 42 tion.....The DEB
00A5C0: 55 47 47 49 4E 47 20 4D 4F 44 45 20 63 6C 61 75 UGGING MODE clau
00A5D0: 73 65 20 69 73 20 75 73 65 64 20 69 6E 20 63 6F se is used in co
00A5E0: 6E 6A 75 6E 63 74 69 6F 6E 20 77 69 74 68 20 74 njunction with t
00A5F0: 68 65 20 27 3A 27 20 74 6F 20 69 6E 64 69 63 61 he ':' to indica
00A600: 65 73 20 74 68 65 20 63 61 70 61 62 69 6C 69 74 es the capabilit
00A610: 79 0D 0A 6F 66 20 72 65 61 64 69 6E 67 20 76 61 y..of reading va
00A620: 72 69 61 62 6C 65 20 6C 65 6E 67 74 68 20 66 69 riable length fi
00A630: 6C 65 73 20 69 6E 20 61 20 72 61 6E 64 6F 6D 20 les in a random
00A640: 6D 6F 64 65 2E 0D 0A 0D 0A 41 6C 6C 20 6F 66 20 mode.....All of
00A650: 74 68 65 20 70 68 79 73 69 63 61 6C 20 72 65 63 the physical rec
00A660: 6F 72 64 73 20 61 72 65 20 31 32 38 20 62 79 74 ords are 128 byt
00A670: 65 73 20 69 6E 20 6C 65 6E 67 74 68 20 61 6E 64 es in length and
00A680: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 73 75 70 the program sup
00A690: 70 6C 69 65 73 0D 0A 62 75 66 66 65 72 20 73 70 plies..buffer sp
00A6A0: 61 63 65 20 66 6F 72 20 74 68 65 73 65 20 72 65 ace for these re
00A6B0: 63 6F 72 64 73 20 69 6E 20 61 64 64 69 74 69 6F cords in additio
00A6C0: 6E 20 74 6F 20 74 68 65 20 6C 6F 67 69 63 61 6C n to the logical
00A6D0: 20 72 65 63 6F 72 64 73 2E 20 4C 6F 67 69 63 61 records. Logica
00A6E0: 6C 0D 0A 72 65 63 6F 72 64 73 20 6D 61 79 20 62 l..records may b
00A6F0: 65 20 6F 66 20 61 6E 79 20 64 65 73 69 72 65 64 e of any desired
00A700: 20 6C 65 6E 67 74 68 2E 0D 0A 0D 0A 0D 0A 50 52 length.......PR
00A710: 4F 47 52 41 4D 20 53 54 52 55 43 54 55 52 45 0D OGRAM STRUCTURE.
00A720: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
00A730: 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 ==....Cobol prog
00A740: 72 61 6D 73 20 6D 75 73 74 20 66 6F 6C 6C 6F 77 rams must follow
00A750: 65 64 20 61 20 70 72 65 2D 64 65 66 69 6E 65 64 ed a pre-defined
00A760: 20 70 72 6F 67 72 61 6D 20 73 74 72 75 63 74 75 program structu
00A770: 72 65 2C 20 74 68 65 20 67 65 6E 65 72 61 6C 0D re, the general.
00A780: 0A 73 74 72 75 63 74 75 72 65 20 61 6E 64 20 63 .structure and c
00A790: 6F 6D 6D 61 6E 64 20 73 79 6E 74 61 78 20 69 73 ommand syntax is
00A7A0: 20 63 6F 6E 74 61 69 6E 65 64 20 69 6E 20 43 4F contained in CO
00A7B0: 42 4F 4C 2E 50 54 32 2C 20 43 4F 42 4F 4C 2E 50 BOL.PT2, COBOL.P
00A7C0: 54 33 20 61 6E 64 0D 0A 43 4F 42 4F 4C 2E 50 54 T3 and..COBOL.PT
00A7D0: 34 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 73 4 document files
00A7E0: 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D 73 20 66 6F .....Programs fo
00A7F0: 6C 6C 6F 77 20 74 68 65 20 6F 75 74 6C 69 6E 65 llow the outline
00A800: 74 65 0D 0A 63 6F 6E 64 69 74 69 6F 6E 61 6C 20 te..conditional
00A810: 63 6F 6D 70 69 6C 61 74 69 6F 6E 2E 20 20 49 66 compilation. If
00A820: 20 74 68 69 73 20 63 6C 61 75 73 65 20 69 73 20 this clause is
00A830: 73 70 65 63 69 66 69 65 64 2C 20 61 6C 6C 20 64 specified, all d
00A840: 65 62 75 67 67 69 6E 67 20 6C 69 6E 65 73 0D 0A ebugging lines..
00A850: 28 74 68 6F 73 65 20 77 69 74 68 20 20 61 20 27 (those with a '
00A860: 3A 27 20 69 6E 20 63 6F 6C 75 6D 6E 20 6F 6E 65 :' in column one
00A870: 29 20 61 72 65 20 63 6F 6D 70 69 6C 65 64 2E 20 ) are compiled.
00A880: 20 49 66 20 74 68 69 73 20 63 6C 61 75 73 65 20 If this clause
00A890: 69 73 20 6E 6F 74 0D 0A 73 70 65 63 69 66 69 65 is not..specifie
00A8A0: 64 2C 20 61 6C 6C 20 64 65 62 75 67 67 69 6E 67 d, all debugging
00A8B0: 20 6C 69 6E 65 73 20 61 72 65 20 74 72 65 61 74 lines are treat
00A8C0: 65 64 20 61 73 20 63 6F 6D 6D 65 6E 74 73 2E 20 ed as comments.
00A8D0: 49 6E 20 61 64 64 69 74 69 6F 6E 20 74 68 65 0D In addition the.
00A8E0: 0A 44 45 42 55 47 47 49 4E 47 20 4D 4F 44 45 20 .DEBUGGING MODE
00A8F0: 63 61 6E 20 62 65 20 73 70 65 63 69 66 69 65 64 can be specified
00A900: 20 62 79 20 75 73 69 6E 67 20 74 68 65 20 63 6F by using the co
00A910: 6D 70 69 6C 65 72 20 74 6F 67 67 6C 65 20 27 44 mpiler toggle 'D
00A920: 2E 27 0D 0A 0D 0A 0D 0A 3C 66 69 6C 65 2D 63 6F .'......<file-co
00A930: 6E 74 72 6F 6C 2D 65 6E 74 72 79 3E 0D 0A 3D 3D ntrol-entry>..==
00A940: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00A950: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
00A960: 20 20 20 3C 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C <file-control
00A970: 2D 65 6E 74 72 79 3E 0D 0A 0D 0A 46 4F 52 4D 41 -entry>....FORMA
00A980: 54 3A 20 20 20 20 20 20 31 2E 20 53 45 4C 45 43 T: 1. SELEC
00A990: 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 20 T file-name..
00A9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 AS
00A9B0: 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 SIGN implementor
00A9C0: 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 -name..
00A9D0: 20 20 20 20 20 20 20 20 5B 4F 52 47 41 4E 49 5A [ORGANIZ
00A9E0: 41 54 49 4F 4E 20 53 45 51 55 45 4E 54 49 41 4C ATION SEQUENTIAL
00A9F0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
00AA00: 20 73 74 72 75 63 74 75 72 65 20 6F 66 3A 0D 0A structure of:..
00AA10: 0D 0A 41 2E 20 49 44 45 4E 54 49 46 49 43 41 54 ..A. IDENTIFICAT
00AA20: 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D ION DIVISION....
00AA30: 0A 20 20 20 28 64 65 74 61 69 6C 73 20 61 62 6F . (details abo
00AA40: 75 74 20 74 68 65 20 70 72 6F 67 72 61 6D 29 0D ut the program).
00AA50: 0A 0D 0A 42 2E 20 45 4E 56 49 52 4F 4E 4D 45 4E ...B. ENVIRONMEN
00AA60: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 20 T DIVISION.....
00AA70: 20 20 28 64 65 74 61 69 6C 73 20 6F 6E 20 74 68 (details on th
00AA80: 65 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20 74 68 e environment th
00AA90: 65 20 70 72 6F 67 72 61 6D 20 77 61 73 20 64 65 e program was de
00AAA0: 73 69 67 6E 65 64 20 74 6F 20 72 75 6E 20 69 6E signed to run in
00AAB0: 2C 20 73 75 63 68 20 61 73 0D 0A 20 20 20 20 6D , such as.. m
00AAC0: 61 63 68 69 6E 65 20 74 79 70 65 2C 20 66 69 6C achine type, fil
00AAD0: 65 20 74 79 70 65 73 20 65 74 63 20 29 0D 0A 0D e types etc )...
00AAE0: 0A 43 2E 20 44 41 54 41 20 44 49 56 49 53 49 4F .C. DATA DIVISIO
00AAF0: 4E 2E 0D 0A 0D 0A 20 20 20 28 64 65 63 6C 61 72 N..... (declar
00AB00: 61 74 69 6F 6E 20 6F 66 20 76 61 72 69 61 62 6C ation of variabl
00AB10: 65 73 2C 20 66 69 6C 65 20 73 74 72 75 63 74 75 es, file structu
00AB20: 72 65 73 20 65 74 63 29 0D 0A 0D 0A 44 2E 20 50 res etc)....D. P
00AB30: 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F ROCEDURE DIVISIO
00AB40: 4E 2E 0D 0A 0D 0A 20 20 20 28 74 68 65 20 70 72 N..... (the pr
00AB50: 6F 67 72 61 6D 20 63 6F 6D 6D 61 6E 64 73 29 0D ogram commands).
00AB60: 0A 0D 0A 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 .......IDENTIFIC
00AB70: 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 0D 0A ATION DIVISION..
00AB80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00AB90: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
00ABA0: 4E 54 3A 20 20 20 20 20 49 44 45 4E 54 49 46 49 NT: IDENTIFI
00ABB0: 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 20 CATION DIVISION
00ABC0: 46 6F 72 6D 61 74 0D 0A 0D 0A 46 4F 52 4D 41 54 Format....FORMAT
00ABD0: 3A 20 20 20 20 20 20 49 44 45 4E 54 49 46 49 43 : IDENTIFIC
00ABE0: 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D ATION DIVISION..
00ABF0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 01 00 02 09 52 E5 09 00 C1 02 00 00 00 02 ......R.........
00AC20: 09 00 C6 02 00 00 00 02 09 00 C2 02 00 00 00 02 ................
00AC30: 09 00 C7 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC40: 09 00 C8 02 00 00 00 02 09 00 C4 02 00 00 00 02 ................
00AC50: 09 00 C9 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 20 20 20 20 5B 41 43 43 45 53 53 20 53 45 51 55 [ACCESS SEQU
00AD10: 45 4E 54 49 41 4C 5D 2E 0D 0A 0D 0A 20 20 20 20 ENTIAL].....
00AD20: 20 20 20 20 20 20 20 20 20 32 2E 20 53 45 4C 45 2. SELE
00AD30: 43 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 CT file-name..
00AD40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 A
00AD50: 53 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F SSIGN implemento
00AD60: 72 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 r-name..
00AD70: 20 20 20 20 20 20 20 20 20 4F 52 47 41 4E 49 5A ORGANIZ
00AD80: 41 54 49 4F 4E 20 52 45 4C 41 54 49 56 45 0D 0A ATION RELATIVE..
00AD90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00ADA0: 20 5B 41 43 43 45 53 53 20 7B 53 45 51 55 45 4E [ACCESS {SEQUEN
00ADB0: 54 49 41 4C 20 5B 52 45 4C 41 54 49 56 45 20 64 TIAL [RELATIVE d
00ADC0: 61 74 61 2D 6E 61 6D 65 5D 7D 5D 2E 0D 0A 20 20 ata-name]}]...
00ADD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00ADE0: 20 20 20 20 20 20 20 7B 52 41 4E 44 4F 4D 20 52 {RANDOM R
00ADF0: 45 4C 41 54 49 56 45 20 64 61 74 61 2D 6E 61 6D ELATIVE data-nam
00AE00: 65 20 20 20 20 20 20 7D 0D 0A 0D 0A 20 20 20 20 e }....
00AE10: 20 20 20 20 20 20 20 20 20 33 2E 20 53 45 4C 45 3. SELE
00AE20: 43 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 CT file-name..
00AE30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 A
00AE40: 53 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F SSIGN implemento
00AE50: 72 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 r-name..
00AE60: 20 20 20 20 20 20 20 20 20 4F 52 47 41 4E 49 5A ORGANIZ
00AE70: 41 54 49 4F 4E 20 49 4E 44 45 58 45 44 0D 0A 20 ATION INDEXED..
00AE80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AE90: 5B 41 43 43 45 53 53 20 7B 53 45 51 55 45 4E 54 [ACCESS {SEQUENT
00AEA0: 49 41 4C 7D 5D 2E 0D 0A 20 20 20 20 20 20 20 20 IAL}]...
00AEB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AEC0: 20 20 7B 52 41 4E 44 4F 4D 20 20 20 20 7D 0D 0A {RANDOM }..
00AED0: 0D 0A 4E 4F 54 45 53 3A 0D 0A 0D 0A 54 68 65 20 ..NOTES:....The
00AEE0: 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C 2D 65 6E 74 file-control-ent
00AEF0: 72 79 20 64 65 66 69 6E 65 73 20 74 68 65 20 74 ry defines the t
00AF00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00AF10: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
00AF20: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
00AF30: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
00AF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AF50: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
00AF60: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
00AF70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AF80: 20 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 PART
00AF90: 20 54 57 4F 0D 0A 0D 0A 20 20 20 20 20 20 20 20 TWO....
00AFA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AFB0: 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 20 Revised and
00AFC0: 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 20 Updated....
00AFD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00AFE0: 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C 6C By Clive Bell
00AFF0: 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D 0A aby, June 1991..
00B000: 0D 0A 0D 0A 3C 63 6F 6D 6D 65 6E 74 3E 0D 0A 3D ....<comment>..=
00B010: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
00B020: 45 4E 54 3A 20 20 20 3C 63 6F 6D 6D 65 6E 74 3E ENT: <comment>
00B030: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 61 ....FORMAT: a
00B040: 6E 79 20 73 74 72 69 6E 67 20 6F 66 20 63 68 61 ny string of cha
00B050: 72 61 63 74 65 72 73 0D 0A 0D 0A 44 45 53 43 52 racters....DESCR
00B060: 49 50 54 49 4F 4E 3A 0D 0A 0D 0A 41 20 63 6F 6D IPTION:....A com
00B070: 6D 65 6E 74 20 69 73 20 61 20 73 74 72 69 6E 67 ment is a string
00B080: 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 2E 20 of characters.
00B090: 49 74 20 6D 61 79 20 69 6E 63 6C 75 64 65 20 61 It may include a
00B0A0: 6E 79 74 68 69 6E 67 20 6F 74 68 65 72 20 74 68 nything other th
00B0B0: 61 6E 20 61 0D 0A 70 65 72 69 6F 64 20 66 6F 6C an a..period fol
00B0C0: 6C 6F 77 65 64 20 62 79 20 61 20 62 6C 61 6E 6B lowed by a blank
00B0D0: 20 6F 72 20 61 20 72 65 73 65 72 76 65 64 20 77 or a reserved w
00B0E0: 6F 72 64 2C 20 20 65 69 74 68 65 72 20 6F 66 20 ord, either of
00B0F0: 77 68 69 63 68 20 74 65 72 6D 69 6E 61 74 65 0D which terminate.
00B100: 79 70 65 20 6F 66 20 66 69 6C 65 20 74 68 61 74 ype of file that
00B110: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 65 78 70 the program exp
00B120: 65 63 74 73 20 74 6F 0D 0A 73 65 65 2E 20 54 68 ects to..see. Th
00B130: 65 72 65 20 69 73 20 6E 6F 20 64 69 66 66 65 72 ere is no differ
00B140: 65 6E 63 65 20 6F 6E 20 74 68 65 20 64 69 73 6B ence on the disk
00B150: 65 74 74 65 2C 20 62 75 74 20 74 68 65 20 74 79 ette, but the ty
00B160: 70 65 20 6F 66 20 72 65 61 64 73 20 61 6E 64 20 pe of reads and
00B170: 77 72 69 74 65 73 0D 0A 74 68 61 74 20 61 72 65 writes..that are
00B180: 20 70 65 72 66 6F 72 6D 65 64 20 77 69 6C 6C 20 performed will
00B190: 64 69 66 66 65 72 2E 0D 0A 0D 0A 46 6F 72 20 43 differ.....For C
00B1A0: 50 2F 4D 20 74 68 65 20 69 6D 70 6C 65 6D 65 6E P/M the implemen
00B1B0: 74 6F 72 20 6E 61 6D 65 20 6E 65 65 64 73 20 74 tor name needs t
00B1C0: 6F 20 63 6F 6E 66 6F 72 6D 20 74 6F 20 74 68 65 o conform to the
00B1D0: 20 6E 6F 72 6D 61 6C 20 73 70 65 63 69 66 69 63 normal specific
00B1E0: 61 74 69 6F 6E 73 2E 0D 0A 49 6E 64 65 78 65 64 ations...Indexed
00B1F0: 20 69 73 20 6E 6F 74 20 69 6D 70 6C 65 6D 65 6E is not implemen
00B200: 74 65 64 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 ted.....EXAMPLES
00B210: 3A 20 20 20 20 53 45 4C 45 43 54 20 43 41 52 44 : SELECT CARD
00B220: 53 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 S..
00B230: 20 41 53 53 49 47 4E 20 43 41 52 44 2E 46 49 4C ASSIGN CARD.FIL
00B240: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
00B250: 20 53 45 4C 45 43 54 20 52 41 4E 44 4F 4D 2D 46 SELECT RANDOM-F
00B260: 49 4C 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ILE..
00B270: 20 20 20 41 53 53 49 47 4E 20 41 2E 52 41 4E 0D ASSIGN A.RAN.
00B280: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F . O
00B290: 52 47 41 4E 49 5A 41 54 49 4F 4E 20 52 45 4C 41 RGANIZATION RELA
00B2A0: 54 49 56 45 0D 0A 20 20 20 20 20 20 20 20 20 20 TIVE..
00B2B0: 20 20 20 20 41 43 43 45 53 53 20 52 41 4E 44 4F ACCESS RANDO
00B2C0: 4D 20 52 45 4C 41 54 49 56 45 20 52 41 4E 44 2D M RELATIVE RAND-
00B2D0: 46 4C 41 47 2E 0D 0A 0D 0A 0D 0A 44 41 54 41 20 FLAG.......DATA
00B2E0: 44 49 56 49 53 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D DIVISION..======
00B2F0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
00B300: 0A 74 68 65 20 73 74 72 69 6E 67 2E 20 20 43 6F .the string. Co
00B310: 6D 6D 65 6E 74 73 20 6D 61 79 20 62 65 20 65 6D mments may be em
00B320: 70 74 79 20 69 66 20 64 65 73 69 72 65 64 2C 20 pty if desired,
00B330: 20 62 75 74 20 74 68 65 20 74 65 72 6D 69 6E 61 but the termina
00B340: 74 6F 72 20 69 73 0D 0A 73 74 69 6C 6C 20 72 65 tor is..still re
00B350: 71 75 69 72 65 64 20 62 79 20 74 68 65 20 70 72 quired by the pr
00B360: 6F 67 72 61 6D 2E 0D 0A 0D 0A 45 58 41 4D 50 4C ogram.....EXAMPL
00B370: 45 53 3A 20 20 74 68 69 73 20 69 73 20 61 20 63 ES: this is a c
00B380: 6F 6D 6D 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 omment..
00B390: 20 20 20 61 6E 6F 74 68 65 72 6F 6E 65 61 6C 6C anotheroneall
00B3A0: 72 75 6E 74 6F 67 65 74 68 65 72 0D 0A 20 20 20 runtogether..
00B3B0: 20 20 20 20 20 20 20 20 38 30 38 30 62 20 31 36 8080b 16
00B3C0: 4B 0D 0A 0D 0A 4E 4F 54 45 20 3A 20 61 20 27 2A K....NOTE : a '*
00B3D0: 27 20 69 6E 20 63 6F 6C 75 6D 6E 20 31 20 74 6F ' in column 1 to
00B3E0: 20 63 61 75 73 65 20 63 6F 6D 70 69 6C 65 72 20 cause compiler
00B3F0: 74 6F 20 69 67 6E 6F 72 65 20 73 65 71 75 65 6E to ignore sequen
00B400: 63 65 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A 0D ce numbers......
00B410: 0A 3C 64 61 74 61 2D 64 65 73 63 72 69 70 74 69 .<data-descripti
00B420: 6F 6E 2D 65 6E 74 72 79 3E 0D 0A 3D 3D 3D 3D 3D on-entry>..=====
00B430: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00B440: 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 ===....ELEMENT:
00B450: 20 20 3C 64 61 74 61 2D 64 65 73 63 72 69 70 74 <data-descript
00B460: 69 6F 6E 2D 65 6E 74 72 79 3E 20 66 6F 72 6D 61 ion-entry> forma
00B470: 74 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 t....FORMAT:
00B480: 6C 65 76 65 6C 2D 6E 75 6D 62 65 72 20 7B 64 61 level-number {da
00B490: 74 61 2D 6E 61 6D 65 7D 0D 0A 20 20 20 20 20 20 ta-name}..
00B4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B4B0: 20 20 7B 46 49 4C 4C 45 52 20 20 20 7D 0D 0A 20 {FILLER }..
00B4C0: 20 20 20 20 20 20 20 20 20 20 5B 52 45 44 45 46 [REDEF
00B4D0: 49 4E 45 53 20 64 61 74 61 2D 6E 61 6D 65 5D 0D INES data-name].
00B4E0: 0A 20 20 20 20 20 20 20 20 20 20 20 5B 50 49 43 . [PIC
00B4F0: 20 63 68 61 72 61 63 74 65 72 2D 73 74 72 69 6E character-strin
00B500: 4E 54 3A 20 20 20 20 20 44 41 54 41 20 44 49 56 NT: DATA DIV
00B510: 49 53 49 4F 4E 20 46 6F 72 6D 61 74 0D 0A 0D 0A ISION Format....
00B520: 46 4F 52 4D 41 54 3A 20 20 20 20 20 20 44 41 54 FORMAT: DAT
00B530: 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 20 A DIVISION...
00B540: 20 20 20 20 20 20 20 20 20 20 20 5B 46 49 4C 45 [FILE
00B550: 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 SECTION...
00B560: 20 20 20 20 20 20 20 20 20 5B 46 44 20 66 69 6C [FD fil
00B570: 65 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 e-name..
00B580: 20 20 20 20 20 20 20 20 5B 42 4C 4F 43 4B 20 69 [BLOCK i
00B590: 6E 74 65 67 65 72 2D 31 20 52 45 43 4F 52 44 53 nteger-1 RECORDS
00B5A0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
00B5B0: 20 20 20 5B 52 45 43 4F 52 44 20 5B 69 6E 74 65 [RECORD [inte
00B5C0: 67 65 72 2D 31 20 54 4F 5D 20 69 6E 74 65 67 65 ger-1 TO] intege
00B5D0: 72 2D 33 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 r-3]..
00B5E0: 20 20 20 20 20 20 4C 41 42 45 4C 20 52 45 43 4F LABEL RECO
00B5F0: 52 44 53 20 7B 53 54 41 4E 44 41 52 44 7D 5D 0D RDS {STANDARD}].
00B600: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00B610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
00B620: 4F 4D 49 54 54 45 44 7D 0D 0A 20 20 20 20 20 20 OMITTED}..
00B630: 20 20 20 20 20 20 20 20 20 20 5B 56 41 4C 55 45 [VALUE
00B640: 20 4F 46 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 2D OF implementor-
00B650: 6E 61 6D 65 2D 31 20 6C 69 74 65 72 61 6C 2D 31 name-1 literal-1
00B660: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B670: 20 20 20 20 20 20 20 20 20 20 20 5B 69 6D 70 6C [impl
00B680: 65 6D 65 6E 74 6F 72 2D 6E 61 6D 65 2D 32 20 6C ementor-name-2 l
00B690: 69 74 65 72 61 6C 2D 32 5D 20 2E 20 2E 20 2E 20 iteral-2] . . .
00B6A0: 5D 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 ].....
00B6B0: 20 20 20 20 20 20 5B 3C 72 65 63 6F 72 64 2D 64 [<record-d
00B6C0: 65 73 63 72 69 70 74 69 6F 6E 2D 65 6E 74 72 79 escription-entry
00B6D0: 3E 5D 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E 20 2E >] . . . ] . . .
00B6E0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
00B6F0: 20 20 5B 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 [WORKING-STORA
00B700: 67 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B g].. [
00B710: 55 53 41 47 45 20 7B 43 4F 4D 50 20 20 20 7D 5D USAGE {COMP }]
00B720: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00B730: 20 20 20 20 7B 43 4F 4D 50 2D 33 7D 0D 0A 20 20 {COMP-3}..
00B740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00B750: 7B 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C 7D 0D {COMPUTATIONAL}.
00B760: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00B770: 20 20 20 7B 44 49 53 50 4C 41 59 7D 0D 0A 20 20 {DISPLAY}..
00B780: 20 20 20 20 20 20 20 20 20 5B 53 49 47 4E 20 7B [SIGN {
00B790: 4C 45 41 44 49 4E 47 7D 20 5B 53 45 50 41 52 41 LEADING} [SEPARA
00B7A0: 54 45 5D 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 TE]]..
00B7B0: 20 20 20 20 20 20 20 7B 54 52 41 49 4C 49 4E 47 {TRAILING
00B7C0: 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B 4F }.. [O
00B7D0: 43 43 55 52 53 20 69 6E 74 65 67 65 72 5D 0D 0A CCURS integer]..
00B7E0: 20 20 20 20 20 20 20 20 20 20 20 5B 53 59 4E 43 [SYNC
00B7F0: 20 5B 4C 45 46 54 5D 5D 0D 0A 20 20 20 20 20 20 [LEFT]]..
00B800: 20 20 20 20 20 20 20 20 20 20 20 5B 52 49 47 48 [RIGH
00B810: 54 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B T].. [
00B820: 56 41 4C 55 45 20 6C 69 74 65 72 61 6C 5D 2E 0D VALUE literal]..
00B830: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
00B840: 0A 54 68 69 73 20 73 74 61 74 65 6D 65 6E 74 20 .This statement
00B850: 64 65 73 63 72 69 62 65 73 20 74 68 65 20 73 70 describes the sp
00B860: 65 63 69 66 69 63 20 61 74 74 72 69 62 75 74 65 ecific attribute
00B870: 73 20 6F 66 20 74 68 65 20 64 61 74 61 2E 20 53 s of the data. S
00B880: 69 6E 63 65 20 74 68 65 0D 0A 38 30 38 30 20 69 ince the..8080 i
00B890: 73 20 61 20 62 79 74 65 20 6D 61 63 68 69 6E 65 s a byte machine
00B8A0: 2C 20 74 68 65 72 65 20 77 61 73 20 6E 6F 20 6D , there was no m
00B8B0: 65 61 6E 69 6E 67 20 74 6F 20 74 68 65 20 53 59 eaning to the SY
00B8C0: 4E 43 20 63 6C 61 75 73 65 2C 20 61 6E 64 20 74 NC clause, and t
00B8D0: 68 75 73 0D 0A 69 74 20 68 61 73 20 6E 6F 74 20 hus..it has not
00B8E0: 62 65 65 6E 20 69 6D 70 6C 65 6D 65 6E 74 65 64 been implemented
00B8F0: 2C 20 68 6F 77 65 76 65 72 20 65 78 69 73 74 69 , however existi
00B900: 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 20 GE SECTION...
00B910: 20 20 20 20 20 20 20 20 20 20 20 20 20 5B 3C 72 [<r
00B920: 65 63 6F 72 64 2D 64 65 73 63 72 69 70 74 69 6F ecord-descriptio
00B930: 6E 2D 65 6E 74 72 79 3E 5D 20 2E 20 2E 20 2E 20 n-entry>] . . .
00B940: 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ]....
00B950: 20 20 20 5B 4C 49 4E 4B 41 47 45 20 53 45 43 54 [LINKAGE SECT
00B960: 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 ION...
00B970: 20 20 20 20 20 20 5B 3C 72 65 63 6F 72 64 2D 64 [<record-d
00B980: 65 73 63 72 69 70 74 69 6F 6E 2D 65 6E 74 72 79 escription-entry
00B990: 3E 5D 20 2E 20 2E 20 2E 20 5D 0D 0A 0D 0A 20 20 >] . . . ]....
00B9A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3C 63 <c
00B9B0: 6F 6D 6D 65 6E 74 3E 0D 0A 0D 0A 44 45 53 43 52 omment>....DESCR
00B9C0: 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 73 IPTION:..This is
00B9D0: 20 74 68 65 20 73 65 63 74 69 6F 6E 20 74 68 61 the section tha
00B9E0: 74 20 64 65 73 63 72 69 62 65 73 20 68 6F 77 20 t describes how
00B9F0: 20 74 68 65 20 20 64 61 74 61 20 69 73 20 73 74 the data is st
00BA00: 72 75 63 74 75 72 65 64 2E 20 54 68 65 72 65 20 ructured. There
00BA10: 61 72 65 20 6E 6F 0D 0A 6D 61 6A 6F 72 20 64 69 are no..major di
00BA20: 66 66 65 72 65 6E 63 65 73 20 66 72 6F 6D 20 73 fferences from s
00BA30: 74 61 6E 64 61 72 64 20 43 4F 42 4F 4C 20 65 78 tandard COBOL ex
00BA40: 63 65 70 74 20 66 6F 72 20 74 68 65 20 66 6F 6C cept for the fol
00BA50: 6C 6F 77 69 6E 67 3A 0D 0A 0D 0A 31 2E 20 4C 61 lowing:....1. La
00BA60: 62 65 6C 20 72 65 63 6F 72 64 73 20 6D 61 6B 65 bel records make
00BA70: 20 6E 6F 20 73 65 6E 73 65 20 6F 6E 20 74 68 65 no sense on the
00BA80: 20 64 69 73 6B 65 74 74 65 20 73 6F 20 6E 6F 20 diskette so no
00BA90: 65 6E 74 72 79 20 69 73 20 72 65 71 75 69 72 65 entry is require
00BAA0: 64 2E 0D 0A 0D 0A 32 2E 20 54 68 65 20 56 41 4C d.....2. The VAL
00BAB0: 55 45 20 4F 46 20 63 6C 61 75 73 65 20 68 61 73 UE OF clause has
00BAC0: 20 6E 6F 20 20 6D 65 61 6E 69 6E 67 20 66 6F 72 no meaning for
00BAD0: 20 43 50 2F 4D 2E 20 49 66 20 61 20 72 65 63 6F CP/M. If a reco
00BAE0: 72 64 20 69 73 20 67 69 76 65 6E 20 74 77 6F 0D rd is given two.
00BAF0: 0A 20 20 20 6C 65 6E 67 74 68 73 20 61 73 20 69 . lengths as i
00BB00: 6E 67 20 70 72 6F 67 72 61 6D 73 20 74 68 61 74 ng programs that
00BB10: 20 61 72 65 0D 0A 74 72 61 6E 73 66 65 72 72 65 are..transferre
00BB20: 64 20 74 6F 20 4D 49 43 52 4F 2D 43 4F 42 4F 4C d to MICRO-COBOL
00BB30: 20 61 6E 64 20 75 73 65 20 74 68 69 73 20 66 65 and use this fe
00BB40: 61 74 75 72 65 20 77 69 6C 6C 20 63 6F 6D 70 69 ature will compi
00BB50: 6C 65 20 61 6E 64 20 65 78 65 63 75 74 65 0D 0A le and execute..
00BB60: 73 75 63 63 65 73 73 66 75 6C 6C 79 2E 20 41 6C successfully. Al
00BB70: 6C 20 6E 75 6D 65 72 69 63 20 64 61 74 61 20 61 l numeric data a
00BB80: 72 65 20 6D 61 69 6E 74 61 69 6E 65 64 20 69 6E re maintained in
00BB90: 20 44 49 53 50 4C 41 59 20 66 6F 72 6D 61 74 20 DISPLAY format
00BBA0: 6F 72 20 70 61 63 6B 65 64 0D 0A 42 43 44 20 69 or packed..BCD i
00BBB0: 66 20 74 68 65 20 43 4F 4D 50 2D 33 20 6F 70 74 f the COMP-3 opt
00BBC0: 69 6F 6E 20 69 73 20 75 73 65 64 2E 0D 0A 0D 0A ion is used.....
00BBD0: 45 58 41 4D 50 4C 45 53 3A 20 20 30 31 20 43 41 EXAMPLES: 01 CA
00BBE0: 52 44 2D 52 45 43 4F 52 44 2E 0D 0A 20 20 20 20 RD-RECORD...
00BBF0: 20 20 20 20 20 20 20 20 20 20 30 32 20 50 41 52 02 PAR
00BC00: 54 20 50 49 43 20 58 28 35 29 2E 0D 0A 20 20 20 T PIC X(5)...
00BC10: 20 20 20 20 20 20 20 20 20 20 20 30 32 20 4E 45 02 NE
00BC20: 58 54 2D 50 41 52 54 20 50 49 43 20 39 39 56 39 XT-PART PIC 99V9
00BC30: 39 20 55 53 41 47 45 20 44 49 53 50 4C 41 59 2E 9 USAGE DISPLAY.
00BC40: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00BC50: 30 32 20 46 49 4C 4C 45 52 2E 0D 0A 20 20 20 20 02 FILLER...
00BC60: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 33 20 03
00BC70: 4E 55 4D 42 20 50 49 43 20 53 39 28 33 29 56 39 NUMB PIC S9(3)V9
00BC80: 20 53 49 47 4E 20 4C 45 41 44 49 4E 47 20 53 45 SIGN LEADING SE
00BC90: 50 41 52 41 54 45 2E 0D 0A 20 20 20 20 20 20 20 PARATE...
00BCA0: 20 20 20 20 20 20 20 20 20 20 30 33 20 4C 4F 4E 03 LON
00BCB0: 47 2D 4E 55 4D 42 20 39 28 31 35 29 2E 0D 0A 20 G-NUMB 9(15)...
00BCC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BCD0: 30 33 20 53 54 52 49 4E 47 20 52 45 44 45 46 49 03 STRING REDEFI
00BCE0: 4E 45 53 20 4C 4F 4E 47 2D 4E 55 4D 42 20 50 49 NES LONG-NUMB PI
00BCF0: 43 20 58 28 31 35 29 2E 0D 0A 20 20 20 20 20 20 C X(15)...
00BD00: 6E 20 52 45 43 4F 52 44 20 31 32 20 74 6F 20 31 n RECORD 12 to 1
00BD10: 32 38 2C 20 74 68 65 20 66 69 6C 65 20 69 73 20 28, the file is
00BD20: 74 61 6B 65 6E 20 74 6F 20 62 65 20 76 61 72 69 taken to be vari
00BD30: 61 62 6C 65 20 6C 65 6E 67 74 68 0D 0A 20 20 20 able length..
00BD40: 61 6E 64 20 63 61 6E 20 6F 6E 6C 79 20 62 65 20 and can only be
00BD50: 61 63 63 65 73 73 65 64 20 69 6E 20 74 68 65 20 accessed in the
00BD60: 73 65 71 75 65 6E 74 69 61 6C 20 6D 6F 64 65 2E sequential mode.
00BD70: 20 53 65 65 20 74 68 65 20 73 65 63 74 69 6F 6E See the section
00BD80: 20 6F 6E 20 66 69 6C 65 73 0D 0A 20 20 20 66 6F on files.. fo
00BD90: 72 20 6D 6F 72 65 20 69 6E 66 6F 72 6D 61 74 69 r more informati
00BDA0: 6F 6E 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 on.......** END
00BDB0: 4F 46 20 43 4F 42 4F 4C 2D 31 2E 44 4F 43 20 2A OF COBOL-1.DOC *
00BDC0: 2A 0D 0A 1A 20 20 20 20 20 20 20 20 20 20 20 20 *...
00BDD0: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
00BDE0: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
00BDF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00BE00: 20 44 69 76 69 73 69 6F 6E 20 61 6E 64 20 62 75 Division and bu
00BE10: 69 6C 64 73 0D 0A 74 68 65 20 73 79 6D 62 6F 6C ilds..the symbol
00BE20: 20 74 61 62 6C 65 2E 20 41 74 20 74 68 65 20 65 table. At the e
00BE30: 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 20 44 nd of the Data D
00BE40: 69 76 69 73 69 6F 6E 2C 20 43 4F 42 4F 4C 2E 43 ivision, COBOL.C
00BE50: 4F 4D 20 69 73 20 6F 76 65 72 6C 61 79 65 64 20 OM is overlayed
00BE60: 62 79 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 77 68 by..COBOL.OVL wh
00BE70: 69 63 68 20 75 73 65 73 20 74 68 65 20 73 79 6D ich uses the sym
00BE80: 62 6F 6C 20 74 61 62 6C 65 20 74 6F 20 70 72 6F bol table to pro
00BE90: 64 75 63 65 20 74 68 65 20 63 6F 64 65 2E 0D 0A duce the code...
00BEA0: 54 68 65 20 6F 75 74 70 75 74 20 63 6F 64 65 20 The output code
00BEB0: 69 73 20 77 72 69 74 74 65 6E 20 74 6F 20 64 69 is written to di
00BEC0: 73 63 20 61 73 20 69 74 20 69 73 20 70 72 6F 64 sc as it is prod
00BED0: 75 63 65 64 20 74 6F 20 6D 69 6E 69 6D 69 7A 65 uced to minimize
00BEE0: 20 74 68 65 20 75 73 65 20 6F 66 0D 0A 69 6E 74 the use of..int
00BEF0: 65 72 6E 61 6C 20 73 74 6F 72 61 67 65 2E 0D 0A ernal storage...
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 01 00 02 09 52 E5 0A 00 C1 02 00 00 00 02 ......R.........
00BF20: 0A 00 C6 02 00 00 00 02 0A 00 C2 02 00 00 00 02 ................
00BF30: 0A 00 C7 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF40: 0A 00 C8 02 00 00 00 02 0A 00 C4 02 00 00 00 02 ................
00BF50: 0A 00 C9 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 20 20 20 20 20 20 20 20 30 32 20 41 52 52 41 59 02 ARRAY
00C010: 20 50 49 43 20 39 39 20 4F 43 43 55 52 53 20 31 PIC 99 OCCURS 1
00C020: 30 30 2E 0D 0A 0D 0A 0D 0A 50 52 4F 43 45 44 55 00.......PROCEDU
00C030: 52 45 20 44 49 56 49 53 49 4F 4E 0D 0A 3D 3D 3D RE DIVISION..===
00C040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
00C050: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 50 52 ...ELEMENT: PR
00C060: 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E OCEDURE DIVISION
00C070: 20 46 6F 72 6D 61 74 0D 0A 0D 0A 46 4F 52 4D 41 Format....FORMA
00C080: 54 3A 20 20 20 20 31 2E 20 50 52 4F 43 45 44 55 T: 1. PROCEDU
00C090: 52 45 20 44 49 56 49 53 49 4F 4E 20 5B 55 53 49 RE DIVISION [USI
00C0A0: 4E 47 20 6E 61 6D 65 31 20 5B 6E 61 6D 65 32 5D NG name1 [name2]
00C0B0: 20 2E 20 2E 20 2E 20 5B 6E 61 6D 65 35 5D 5D 2E . . . [name5]].
00C0C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00C0D0: 73 65 63 74 69 6F 6E 2D 6E 61 6D 65 20 53 45 43 section-name SEC
00C0E0: 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 TION...
00C0F0: 20 20 20 20 20 5B 70 61 72 61 67 72 61 70 68 2D [paragraph-
00C100: 6E 61 6D 65 2E 20 3C 73 65 6E 74 65 6E 63 65 3E name. <sentence>
00C110: 20 5B 3C 73 65 6E 74 65 6E 63 65 3E 20 2E 20 2E [<sentence> . .
00C120: 20 2E 20 5D 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E . ] . . . ] . .
00C130: 20 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 .....
00C140: 20 32 2E 20 50 52 4F 43 45 44 55 52 45 20 44 49 2. PROCEDURE DI
00C150: 56 49 53 49 4F 4E 20 5B 55 53 49 4E 47 20 6E 61 VISION [USING na
00C160: 6D 65 31 20 5B 6E 61 6D 65 32 5D 20 2E 20 2E 20 me1 [name2] . .
00C170: 2E 20 5B 6E 61 6D 65 35 5D 5D 2E 0D 0A 20 20 20 . [name5]]...
00C180: 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 67 parag
00C190: 72 61 70 68 2D 6E 61 6D 65 2E 20 3C 73 65 6E 74 raph-name. <sent
00C1A0: 65 6E 63 65 3E 20 5B 3C 73 65 6E 74 65 6E 63 65 ence> [<sentence
00C1B0: 3E 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E 20 2E 0D > . . . ] . . ..
00C1C0: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
00C1D0: 0A 41 73 20 69 73 20 69 6E 64 69 63 61 74 65 64 .As is indicated
00C1E0: 2C 20 69 66 20 74 68 65 20 70 72 6F 67 72 61 6D , if the program
00C1F0: 20 69 73 20 74 6F 20 63 6F 6E 74 61 69 6E 20 73 is to contain s
00C200: 20 20 20 20 20 20 20 20 20 5B 52 4F 55 4E 44 45 [ROUNDE
00C210: 44 5D 20 5B 53 49 5A 45 20 45 52 52 4F 52 20 3C D] [SIZE ERROR <
00C220: 69 6D 70 65 72 61 74 69 76 65 2D 73 74 61 74 65 imperative-state
00C230: 6D 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 43 52 49 ment>]....DESCRI
00C240: 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 6E 73 PTION:..This ins
00C250: 74 72 75 63 74 69 6F 6E 20 61 64 64 73 20 65 69 truction adds ei
00C260: 74 68 65 72 20 6F 6E 65 20 6E 75 6D 62 65 72 20 ther one number
00C270: 74 6F 20 61 20 73 65 63 6F 6E 64 20 77 69 74 68 to a second with
00C280: 20 74 68 65 20 72 65 73 75 6C 74 20 62 65 69 6E the result bein
00C290: 67 0D 0A 70 6C 61 63 65 64 20 69 6E 20 74 68 65 g..placed in the
00C2A0: 20 6C 61 73 74 20 6C 6F 63 61 74 69 6F 6E 2E 20 last location.
00C2B0: 20 4D 75 6C 74 69 70 6C 65 20 61 64 64 73 20 68 Multiple adds h
00C2C0: 61 76 65 20 6E 6F 74 20 62 65 65 6E 20 69 6D 70 ave not been imp
00C2D0: 6C 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 45 58 41 lemented.....EXA
00C2E0: 4D 50 4C 45 53 3A 20 20 41 44 44 20 31 30 20 54 MPLES: ADD 10 T
00C2F0: 4F 20 4E 55 4D 31 0D 0A 20 20 20 20 20 20 20 20 O NUM1..
00C300: 20 20 20 41 44 44 20 58 20 54 4F 20 5A 20 52 4F ADD X TO Z RO
00C310: 55 4E 44 45 44 2E 0D 0A 20 20 20 20 20 20 20 20 UNDED...
00C320: 20 20 20 41 44 44 20 31 30 30 20 54 4F 20 4E 55 ADD 100 TO NU
00C330: 4D 42 45 52 20 53 49 5A 45 20 45 52 52 4F 52 20 MBER SIZE ERROR
00C340: 47 4F 20 45 52 52 4F 52 2D 4C 4F 43 0D 0A 0D 0A GO ERROR-LOC....
00C350: 0D 0A 43 41 4C 4C 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A ..CALL..====....
00C360: 45 4C 45 4D 45 4E 54 3A 20 20 20 43 41 4C 4C 0D ELEMENT: CALL.
00C370: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 43 41 ...FORMAT: CA
00C380: 4C 4C 20 6C 69 74 65 72 61 6C 20 5B 55 53 49 4E LL literal [USIN
00C390: 47 20 6E 61 6D 65 31 20 5B 6E 61 6D 65 32 5D 20 G name1 [name2]
00C3A0: 2E 20 2E 20 2E 20 5B 6E 61 6D 65 4E 5D 5D 0D 0A . . . [nameN]]..
00C3B0: 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A ..DESCRIPTION:..
00C3C0: 43 6F 6E 74 72 6F 6C 20 69 73 20 74 72 61 6E 73 Control is trans
00C3D0: 66 65 72 72 65 64 20 74 6F 20 74 68 65 20 63 61 ferred to the ca
00C3E0: 6C 6C 65 64 20 70 72 6F 63 65 64 75 72 65 20 77 lled procedure w
00C3F0: 69 74 68 20 61 6E 20 61 64 64 72 65 73 73 20 6F ith an address o
00C400: 65 63 74 69 6F 6E 73 2C 20 74 68 65 6E 20 74 68 ections, then th
00C410: 65 20 66 69 72 73 74 0D 0A 70 61 72 61 67 72 61 e first..paragra
00C420: 70 68 20 6D 75 73 74 20 62 65 20 69 6E 20 61 20 ph must be in a
00C430: 73 65 63 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 3C 73 section.......<s
00C440: 65 6E 74 65 6E 63 65 3E 0D 0A 3D 3D 3D 3D 3D 3D entence>..======
00C450: 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A ====....ELEMENT:
00C460: 20 20 20 3C 73 65 6E 74 65 6E 63 65 3E 0D 0A 0D <sentence>...
00C470: 0A 46 4F 52 4D 41 54 3A 20 20 20 20 3C 69 6D 70 .FORMAT: <imp
00C480: 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D 65 6E erative-statemen
00C490: 74 3E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 3C t>.. <
00C4A0: 63 6F 6E 64 69 74 69 6F 6E 61 6C 2D 73 74 61 74 conditional-stat
00C4B0: 65 6D 65 6E 74 3E 0D 0A 0D 0A 0D 0A 3C 69 6D 70 ement>......<imp
00C4C0: 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D 65 6E erative-statemen
00C4D0: 74 3E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D t>..============
00C4E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C ==========....EL
00C4F0: 45 4D 45 4E 54 3A 20 20 20 3C 69 6D 70 65 72 61 EMENT: <impera
00C500: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
00C510: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 54 68 ...FORMAT: Th
00C520: 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 76 65 72 62 e following verb
00C530: 73 20 61 72 65 20 2A 61 6C 77 61 79 73 2A 20 69 s are *always* i
00C540: 6D 70 65 72 61 74 69 76 65 3A 0D 0A 0D 0A 20 20 mperative:....
00C550: 20 20 20 20 20 20 20 20 20 41 43 43 45 50 54 20 ACCEPT
00C560: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . . .
00C570: 31 35 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 15.. C
00C580: 41 4C 4C 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 ALL . . . . . .
00C590: 2E 20 2E 20 2E 20 31 37 0D 0A 20 20 20 20 20 20 . . . 17..
00C5A0: 20 20 20 20 20 43 4C 4F 53 45 20 20 2E 20 2E 20 CLOSE . .
00C5B0: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 37 0D 0A . . . . . . 17..
00C5C0: 20 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4C DISPL
00C5D0: 41 59 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 AY . . . . . .
00C5E0: 2E 20 31 38 0D 0A 20 20 20 20 20 20 20 20 20 20 . 18..
00C5F0: 20 45 58 49 54 20 2E 20 2E 20 2E 20 2E 20 2E 20 EXIT . . . . .
00C600: 66 20 65 61 63 68 20 6F 66 0D 0A 74 68 65 20 70 f each of..the p
00C610: 61 72 61 6D 65 74 65 72 73 20 74 6F 20 62 65 20 arameters to be
00C620: 70 61 73 73 65 64 2E 20 54 68 65 20 70 61 72 61 passed. The para
00C630: 6D 65 74 65 72 73 20 6D 61 70 20 74 6F 20 74 68 meters map to th
00C640: 6F 73 65 20 69 6E 20 74 68 65 20 6C 69 6E 6B 61 ose in the linka
00C650: 67 65 0D 0A 73 65 63 74 69 6F 6E 20 6F 66 20 74 ge..section of t
00C660: 68 65 20 63 61 6C 6C 65 64 20 20 70 72 6F 67 72 he called progr
00C670: 61 6D 2E 20 54 68 65 20 74 79 70 65 20 61 6E 64 am. The type and
00C680: 20 73 69 7A 65 20 6F 66 20 74 68 65 20 70 61 72 size of the par
00C690: 61 6D 65 74 65 72 73 20 6D 75 73 74 0D 0A 6D 61 ameters must..ma
00C6A0: 74 63 68 20 65 78 61 63 74 6C 79 2E 0D 0A 0D 0A tch exactly.....
00C6B0: 45 58 41 4D 50 4C 45 53 3A 20 20 43 41 4C 4C 20 EXAMPLES: CALL
00C6C0: 27 4E 43 31 35 32 27 20 55 53 49 4E 47 20 44 4E 'NC152' USING DN
00C6D0: 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 41 1.. CA
00C6E0: 4C 4C 20 27 50 52 49 4E 54 27 0D 0A 20 20 20 20 LL 'PRINT'..
00C6F0: 20 20 20 20 20 20 20 43 41 4C 4C 20 27 41 44 44 CALL 'ADD
00C700: 4C 49 53 54 27 20 55 53 49 4E 47 20 56 41 52 31 LIST' USING VAR1
00C710: 20 56 41 52 32 20 56 41 52 33 0D 0A 0D 0A 0D 0A VAR2 VAR3......
00C720: 43 4C 4F 53 45 0D 0A 3D 3D 3D 3D 3D 0D 0A 0D 0A CLOSE..=====....
00C730: 45 4C 45 4D 45 4E 54 3A 20 20 20 43 4C 4F 53 45 ELEMENT: CLOSE
00C740: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 43 ....FORMAT: C
00C750: 4C 4F 53 45 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A LOSE file-name..
00C760: 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A ..DESCRIPTION:..
00C770: 46 69 6C 65 73 20 6D 75 73 74 20 62 65 20 63 6C Files must be cl
00C780: 6F 73 65 64 20 69 66 20 74 68 65 79 20 68 61 76 osed if they hav
00C790: 65 20 62 65 65 6E 20 77 72 69 74 74 65 6E 2E 20 e been written.
00C7A0: 48 6F 77 65 76 65 72 2C 20 74 68 65 20 6E 6F 72 However, the nor
00C7B0: 6D 61 6C 0D 0A 72 65 71 75 69 72 65 6D 65 6E 74 mal..requirement
00C7C0: 20 74 6F 20 63 6C 6F 73 65 20 61 6E 20 69 6E 70 to close an inp
00C7D0: 75 74 20 66 69 6C 65 20 70 72 69 6F 72 20 74 6F ut file prior to
00C7E0: 20 74 68 65 20 65 6E 64 20 6F 66 20 70 72 6F 63 the end of proc
00C7F0: 65 73 73 69 6E 67 20 64 6F 65 73 20 6E 6F 74 0D essing does not.
00C800: 2E 20 2E 20 2E 20 2E 20 31 39 0D 0A 20 20 20 20 . . . . 19..
00C810: 20 20 20 20 20 20 20 47 4F 20 2E 20 2E 20 2E 20 GO . . .
00C820: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 30 . . . . . . . 20
00C830: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D 4F 56 .. MOV
00C840: 45 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 E . . . . . . .
00C850: 2E 20 2E 20 32 32 0D 0A 20 20 20 20 20 20 20 20 . . 22..
00C860: 20 20 20 4F 50 45 4E 20 2E 20 2E 20 2E 20 2E 20 OPEN . . . .
00C870: 2E 20 2E 20 2E 20 2E 20 2E 20 32 34 0D 0A 20 20 . . . . . 24..
00C880: 20 20 20 20 20 20 20 20 20 50 45 52 46 4F 52 4D PERFORM
00C890: 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . .
00C8A0: 32 35 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 25.. S
00C8B0: 54 4F 50 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 TOP . . . . . .
00C8C0: 2E 20 2E 20 2E 20 32 37 0D 0A 0D 0A 20 20 20 20 . . . 27....
00C8D0: 20 20 20 20 20 20 20 54 68 65 20 66 6F 6C 6C 6F The follo
00C8E0: 77 69 6E 67 20 2A 6D 61 79 20 62 65 2A 20 69 6D wing *may be* im
00C8F0: 70 65 72 61 74 69 76 65 73 3A 0D 0A 0D 0A 20 20 peratives:....
00C900: 20 20 20 20 20 20 20 20 20 41 44 44 20 20 2E 20 ADD .
00C910: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . . .
00C920: 31 36 20 20 7D 20 20 2A 77 69 74 68 6F 75 74 2A 16 } *without*
00C930: 20 74 68 65 20 53 49 5A 45 20 45 52 52 4F 52 0D the SIZE ERROR.
00C940: 0A 20 20 20 20 20 20 20 20 20 20 20 44 49 56 49 . DIVI
00C950: 44 45 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E DE . . . . . . .
00C960: 20 2E 20 31 39 20 20 7D 20 20 73 74 61 74 65 6D . 19 } statem
00C970: 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ent..
00C980: 4D 55 4C 54 49 50 4C 59 20 2E 20 2E 20 2E 20 2E MULTIPLY . . . .
00C990: 20 2E 20 2E 20 2E 20 32 33 20 20 7D 0D 0A 20 20 . . . 23 }..
00C9A0: 20 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 SUBTRAC
00C9B0: 54 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 T . . . . . . .
00C9C0: 32 38 20 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 28 }....
00C9D0: 20 20 20 20 44 45 4C 45 54 45 20 2E 20 2E 20 2E DELETE . . .
00C9E0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 38 20 20 7D . . . . . 18 }
00C9F0: 20 20 2A 77 69 74 68 6F 75 74 2A 20 74 68 65 20 *without* the
00CA00: 0A 65 78 69 73 74 2E 0D 0A 0D 0A 45 58 41 4D 50 .exist.....EXAMP
00CA10: 4C 45 53 3A 20 20 43 4C 4F 53 45 20 46 49 4C 45 LES: CLOSE FILE
00CA20: 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 4C 1.. CL
00CA30: 4F 53 45 20 52 41 4E 44 46 49 4C 45 0D 0A 0D 0A OSE RANDFILE....
00CA40: 0D 0A 44 45 4C 45 54 45 0D 0A 3D 3D 3D 3D 3D 3D ..DELETE..======
00CA50: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 44 ....ELEMENT: D
00CA60: 45 4C 45 54 45 0D 0A 0D 0A 46 4F 52 4D 41 54 3A ELETE....FORMAT:
00CA70: 20 20 20 20 44 45 4C 45 54 45 20 66 69 6C 65 2D DELETE file-
00CA80: 6E 61 6D 65 20 5B 49 4E 56 41 4C 49 44 20 3C 69 name [INVALID <i
00CA90: 6D 70 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D mperative-statem
00CAA0: 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 ent>]....DESCRIP
00CAB0: 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 73 74 61 74 TION:..This stat
00CAC0: 65 6D 65 6E 74 20 72 65 71 75 69 72 65 73 20 74 ement requires t
00CAD0: 68 65 20 66 69 6C 65 2D 6E 61 6D 65 20 6F 66 20 he file-name of
00CAE0: 74 68 65 20 69 74 65 6D 20 74 6F 20 62 65 20 64 the item to be d
00CAF0: 65 6C 65 74 65 64 2E 20 54 68 65 0D 0A 72 65 63 eleted. The..rec
00CB00: 6F 72 64 20 69 73 20 6C 6F 67 69 63 61 6C 6C 79 ord is logically
00CB10: 20 72 65 6D 6F 76 65 64 20 62 79 20 66 69 6C 6C removed by fill
00CB20: 69 6E 67 20 69 74 20 77 69 74 68 20 61 20 68 69 ing it with a hi
00CB30: 67 68 20 76 61 6C 75 65 20 63 68 61 72 61 63 74 gh value charact
00CB40: 65 72 2C 0D 0A 77 68 69 63 68 20 69 73 20 6E 6F er,..which is no
00CB50: 74 20 64 69 73 70 6C 61 79 61 62 6C 65 20 74 6F t displayable to
00CB60: 20 74 68 65 20 63 6F 6E 73 6F 6C 65 20 6F 72 20 the console or
00CB70: 6C 69 6E 65 20 70 72 69 6E 74 65 72 2E 20 54 68 line printer. Th
00CB80: 65 20 6C 6F 67 69 63 61 6C 0D 0A 72 65 63 6F 72 e logical..recor
00CB90: 64 20 73 70 61 63 65 20 63 61 6E 20 62 65 20 75 d space can be u
00CBA0: 73 65 64 20 61 67 61 69 6E 20 62 79 20 77 72 69 sed again by wri
00CBB0: 74 69 6E 67 20 61 20 76 61 6C 69 64 20 72 65 63 ting a valid rec
00CBC0: 6F 72 64 20 69 6E 20 69 74 73 20 70 6C 61 63 65 ord in its place
00CBD0: 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 .....EXAMPLES:
00CBE0: 44 45 4C 45 54 45 20 46 49 4C 45 2D 4E 41 4D 45 DELETE FILE-NAME
00CBF0: 0D 0A 0D 0A 0D 0A 44 49 53 50 4C 41 59 0D 0A 3D ......DISPLAY..=
00CC00: 49 4E 56 41 4C 49 44 20 6F 70 74 69 6F 6E 0D 0A INVALID option..
00CC10: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
00CC20: 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . .
00CC30: 2E 20 32 39 20 20 7D 0D 0A 20 20 20 20 20 20 20 . 29 }..
00CC40: 20 20 20 20 52 45 57 52 49 54 45 20 20 2E 20 2E REWRITE . .
00CC50: 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 36 20 20 7D . . . . . 26 }
00CC60: 0D 0A 0D 0A 0D 0A 3C 63 6F 6E 64 69 74 69 6F 6E ......<condition
00CC70: 61 6C 2D 73 74 61 74 65 6D 65 6E 74 73 3E 0D 0A al-statements>..
00CC80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00CC90: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
00CCA0: 45 4E 54 3A 20 20 20 3C 63 6F 6E 64 69 74 69 6F ENT: <conditio
00CCB0: 6E 61 6C 2D 73 74 61 74 65 6D 65 6E 74 73 3E 0D nal-statements>.
00CCC0: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 49 46 ...FORMAT: IF
00CCD0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E . . . . . . . .
00CCE0: 20 2E 20 2E 20 32 31 0D 0A 20 20 20 20 20 20 20 . . 21..
00CCF0: 20 20 20 20 52 45 41 44 20 2E 20 2E 20 2E 20 2E READ . . . .
00CD00: 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 36 0D 0A 0D . . . . . 26...
00CD10: 0A 20 20 20 20 20 20 20 20 20 20 20 41 44 44 20 . ADD
00CD20: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E . . . . . . . .
00CD30: 20 2E 20 31 36 20 20 7D 20 20 2A 77 69 74 68 2A . 16 } *with*
00CD40: 20 74 68 65 20 53 49 5A 45 20 45 52 52 4F 52 20 the SIZE ERROR
00CD50: 73 74 61 74 65 6D 65 6E 74 0D 0A 20 20 20 20 20 statement..
00CD60: 20 20 20 20 20 20 44 49 56 49 44 45 20 2E 20 2E DIVIDE . .
00CD70: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 39 20 . . . . . . 19
00CD80: 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D }.. M
00CD90: 55 4C 54 49 50 4C 59 20 2E 20 2E 20 2E 20 2E 20 ULTIPLY . . . .
00CDA0: 2E 20 2E 20 2E 20 32 33 20 20 7D 0D 0A 20 20 20 . . . 23 }..
00CDB0: 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 54 SUBTRACT
00CDC0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 . . . . . . . 2
00CDD0: 38 20 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 8 }....
00CDE0: 20 20 20 44 45 4C 45 54 45 20 2E 20 2E 20 2E 20 DELETE . . .
00CDF0: 2E 20 2E 20 2E 20 2E 20 2E 20 31 38 20 20 7D 20 . . . . . 18 }
00CE00: 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ======....ELEMEN
00CE10: 54 3A 20 20 20 44 49 53 50 4C 41 59 0D 0A 0D 0A T: DISPLAY....
00CE20: 46 4F 52 4D 41 54 3A 20 20 20 20 44 49 53 50 4C FORMAT: DISPL
00CE30: 41 59 20 7B 69 64 65 6E 74 69 66 69 65 72 7D 20 AY {identifier}
00CE40: 5B 7B 69 64 65 6E 74 69 66 69 65 72 2D 31 7D 5D [{identifier-1}]
00CE50: 20 2E 20 2E 20 2E 20 5B 7B 69 64 65 6E 74 69 66 . . . [{identif
00CE60: 69 65 72 2D 4E 7D 5D 0D 0A 20 20 20 20 20 20 20 ier-N}]..
00CE70: 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C 69 74 {lit
00CE80: 65 72 61 6C 20 20 20 7D 20 20 7B 6C 69 74 65 72 eral } {liter
00CE90: 61 6C 2D 31 20 20 20 7D 20 20 2E 20 2E 20 2E 20 al-1 } . . .
00CEA0: 20 7B 6C 69 74 65 72 61 6C 2D 4E 20 20 20 7D 0D {literal-N }.
00CEB0: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
00CEC0: 0A 54 68 69 73 20 64 69 73 70 6C 61 79 73 20 74 .This displays t
00CED0: 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 61 he contents of a
00CEE0: 6E 20 69 64 65 6E 74 69 66 69 65 72 20 6F 72 20 n identifier or
00CEF0: 64 69 73 70 6C 61 79 73 20 61 20 6C 69 74 65 72 displays a liter
00CF00: 61 6C 20 6F 6E 20 74 68 65 0D 0A 63 6F 6E 73 6F al on the..conso
00CF10: 6C 65 2E 20 55 73 61 67 65 20 6D 75 73 74 20 62 le. Usage must b
00CF20: 65 20 44 49 53 50 4C 41 59 2E 20 20 54 68 65 20 e DISPLAY. The
00CF30: 6D 61 78 69 6D 75 6D 20 6C 65 6E 67 74 68 20 6F maximum length o
00CF40: 66 20 74 68 65 20 64 69 73 70 6C 61 79 20 69 73 f the display is
00CF50: 20 38 30 0D 0A 63 68 61 72 61 63 74 65 72 73 20 80..characters
00CF60: 66 6F 72 20 6C 69 74 65 72 61 6C 20 76 61 6C 75 for literal valu
00CF70: 65 73 20 61 6E 64 20 32 35 35 20 63 68 61 72 61 es and 255 chara
00CF80: 63 74 65 72 73 20 66 6F 72 20 69 64 65 6E 74 69 cters for identi
00CF90: 66 69 65 72 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C fiers.....EXAMPL
00CFA0: 45 53 3A 20 20 44 49 53 50 4C 41 59 20 4D 45 53 ES: DISPLAY MES
00CFB0: 53 41 47 45 2D 31 0D 0A 20 20 20 20 20 20 20 20 SAGE-1..
00CFC0: 20 20 20 44 49 53 50 4C 41 59 20 4D 45 53 53 41 DISPLAY MESSA
00CFD0: 47 45 2D 33 20 31 30 0D 0A 20 20 20 20 20 20 20 GE-3 10..
00CFE0: 20 20 20 20 44 49 53 50 4C 41 59 20 27 54 48 49 DISPLAY 'THI
00CFF0: 53 20 4D 55 53 54 20 42 45 20 54 48 45 20 45 4E S MUST BE THE EN
00D000: 20 2A 77 69 74 68 2A 20 74 68 65 20 49 4E 56 41 *with* the INVA
00D010: 4C 49 44 20 6F 70 74 69 6F 6E 0D 0A 20 20 20 20 LID option..
00D020: 20 20 20 20 20 20 20 57 52 49 54 45 20 20 2E 20 WRITE .
00D030: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 39 . . . . . . . 29
00D040: 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 }..
00D050: 52 45 57 52 49 54 45 20 20 2E 20 2E 20 2E 20 2E REWRITE . . . .
00D060: 20 2E 20 2E 20 2E 20 32 36 20 20 7D 0D 0A 0D 0A . . . 26 }....
00D070: 0D 0A 41 43 43 45 50 54 0D 0A 3D 3D 3D 3D 3D 3D ..ACCEPT..======
00D080: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 41 ....ELEMENT: A
00D090: 43 43 45 50 54 0D 0A 0D 0A 46 4F 52 4D 41 54 3A CCEPT....FORMAT:
00D0A0: 20 20 20 20 41 43 43 45 50 54 20 3C 69 64 65 6E ACCEPT <iden
00D0B0: 74 69 66 69 65 72 3E 0D 0A 0D 0A 44 45 53 43 52 tifier>....DESCR
00D0C0: 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 73 74 IPTION:..This st
00D0D0: 61 74 65 6D 65 6E 74 20 72 65 61 64 73 20 75 70 atement reads up
00D0E0: 20 74 6F 20 32 35 35 20 63 68 61 72 61 63 74 65 to 255 characte
00D0F0: 72 73 20 66 72 6F 6D 20 74 68 65 20 63 6F 6E 73 rs from the cons
00D100: 6F 6C 65 2E 20 54 68 65 20 75 73 61 67 65 20 6F ole. The usage o
00D110: 66 0D 0A 74 68 65 20 69 74 65 6D 20 6D 75 73 74 f..the item must
00D120: 20 62 65 20 44 49 53 50 4C 41 59 2E 0D 0A 0D 0A be DISPLAY.....
00D130: 45 58 41 4D 50 4C 45 53 3A 20 20 41 43 43 45 50 EXAMPLES: ACCEP
00D140: 54 20 49 4D 41 47 45 2E 0D 0A 20 20 20 20 20 20 T IMAGE...
00D150: 20 20 20 20 20 41 43 43 45 50 54 20 4E 55 4D 28 ACCEPT NUM(
00D160: 39 29 2E 0D 0A 0D 0A 0D 0A 41 44 44 0D 0A 3D 3D 9).......ADD..==
00D170: 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 =....ELEMENT:
00D180: 41 44 44 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 ADD....FORMAT:
00D190: 20 20 41 44 44 20 7B 69 64 65 6E 74 69 66 69 65 ADD {identifie
00D1A0: 72 2D 31 7D 20 5B 7B 69 64 65 6E 74 69 66 69 65 r-1} [{identifie
00D1B0: 72 2D 32 7D 5D 20 20 2E 20 2E 20 20 20 54 4F 20 r-2}] . . TO
00D1C0: 69 64 65 6E 74 69 66 69 65 72 2D 6D 0D 0A 20 20 identifier-m..
00D1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C 69 {li
00D1E0: 74 65 72 61 6C 2D 31 20 20 20 7D 20 20 20 7B 6C teral-1 } {l
00D1F0: 69 74 65 72 61 6C 2D 32 20 20 20 7D 0D 0A 20 20 iteral-2 }..
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 01 00 02 09 52 E5 0B 00 C1 02 00 00 00 02 ......R.........
00D220: 0B 00 C6 02 00 00 00 02 0B 00 C2 02 00 00 00 02 ................
00D230: 0B 00 C7 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D240: 0B 00 C8 02 00 00 00 02 0B 00 C4 02 00 00 00 02 ................
00D250: 0B 00 C9 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 44 27 0D 0A 0D 0A 0D 0A 44 49 56 49 44 45 0D 0A D'......DIVIDE..
00D310: 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ======....ELEMEN
00D320: 54 3A 20 20 20 44 49 56 49 44 45 0D 0A 0D 0A 46 T: DIVIDE....F
00D330: 4F 52 4D 41 54 3A 20 20 20 20 44 49 56 49 44 45 ORMAT: DIVIDE
00D340: 20 7B 69 64 65 6E 74 69 66 69 65 72 7D 20 49 4E {identifier} IN
00D350: 54 4F 20 69 64 65 6E 74 69 66 69 65 72 2D 31 20 TO identifier-1
00D360: 5B 52 4F 55 4E 44 45 44 5D 20 7B 6C 69 74 65 72 [ROUNDED] {liter
00D370: 61 6C 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 al }..
00D380: 20 20 20 20 20 20 20 20 20 20 5B 53 49 5A 45 20 [SIZE
00D390: 45 52 52 4F 52 20 3C 69 6D 70 65 72 61 74 69 76 ERROR <imperativ
00D3A0: 65 2D 73 74 61 74 65 6D 65 6E 74 3E 5D 0D 0A 0D e-statement>]...
00D3B0: 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 54 .DESCRIPTION:..T
00D3C0: 68 65 20 72 65 73 75 6C 74 20 6F 66 20 74 68 65 he result of the
00D3D0: 20 64 69 76 69 73 69 6F 6E 20 69 73 20 73 74 6F division is sto
00D3E0: 72 65 64 20 69 6E 20 69 64 65 6E 74 69 66 69 65 red in identifie
00D3F0: 72 2D 31 3B 20 61 6E 79 20 72 65 6D 61 69 6E 64 r-1; any remaind
00D400: 65 72 20 69 73 20 6C 6F 73 74 2E 0D 0A 0D 0A 45 er is lost.....E
00D410: 58 41 4D 50 4C 45 53 3A 20 20 44 49 56 49 44 45 XAMPLES: DIVIDE
00D420: 20 4E 55 4D 42 20 49 4E 54 4F 20 53 54 4F 52 45 NUMB INTO STORE
00D430: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 44 49 56 .. DIV
00D440: 49 44 45 20 32 35 20 49 4E 54 4F 20 52 45 53 55 IDE 25 INTO RESU
00D450: 4C 54 0D 0A 0D 0A 0D 0A 45 58 49 54 0D 0A 3D 3D LT......EXIT..==
00D460: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
00D470: 20 45 58 49 54 0D 0A 0D 0A 46 4F 52 4D 41 54 3A EXIT....FORMAT:
00D480: 20 20 20 20 45 58 49 54 20 5B 50 52 4F 47 52 41 EXIT [PROGRA
00D490: 4D 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F M]....DESCRIPTIO
00D4A0: 4E 3A 0D 0A 54 68 65 20 45 58 49 54 20 63 6F 6D N:..The EXIT com
00D4B0: 6D 61 6E 64 20 63 61 75 73 65 73 20 6E 6F 20 61 mand causes no a
00D4C0: 63 74 69 6F 6E 20 62 79 20 74 68 65 20 69 6E 74 ction by the int
00D4D0: 65 72 70 72 65 74 65 72 20 62 75 74 20 61 6C 6C erpreter but all
00D4E0: 6F 77 73 20 66 6F 72 20 61 6E 20 65 6D 70 74 79 ows for an empty
00D4F0: 0D 0A 70 61 72 61 67 72 61 70 68 20 66 6F 72 20 ..paragraph for
00D500: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00D510: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
00D520: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
00D530: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
00D540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D550: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
00D560: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
00D570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D580: 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 20 PART
00D590: 54 48 52 45 45 0D 0A 0D 0A 20 20 20 20 20 20 20 THREE....
00D5A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D5B0: 20 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 Revised and
00D5C0: 20 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 Updated....
00D5D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00D5E0: 20 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C By Clive Bel
00D5F0: 6C 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D laby, June 1991.
00D600: 0A 0D 0A 0D 0A 4D 4F 56 45 0D 0A 3D 3D 3D 3D 0D .....MOVE..====.
00D610: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 4D 4F ...ELEMENT: MO
00D620: 56 45 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 VE....FORMAT:
00D630: 20 4D 4F 56 45 20 7B 69 64 65 6E 74 69 66 69 65 MOVE {identifie
00D640: 72 2D 31 7D 20 54 4F 20 69 64 65 6E 74 69 66 69 r-1} TO identifi
00D650: 65 72 2D 32 0D 0A 20 20 20 20 20 20 20 20 20 20 er-2..
00D660: 20 20 20 20 20 20 7B 6C 69 74 65 72 61 6C 20 20 {literal
00D670: 20 20 20 7D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 }....DESCRIPT
00D680: 49 4F 4E 3A 0D 0A 54 68 65 20 73 74 61 6E 64 61 ION:..The standa
00D690: 72 64 20 6C 69 73 74 20 6F 66 20 61 6C 6C 6F 77 rd list of allow
00D6A0: 61 62 6C 65 20 6D 6F 76 65 73 20 61 70 70 6C 69 able moves appli
00D6B0: 65 73 20 74 6F 20 74 68 69 73 20 61 63 74 69 6F es to this actio
00D6C0: 6E 2E 20 41 73 20 61 20 73 70 61 63 65 0D 0A 73 n. As a space..s
00D6D0: 61 76 69 6E 67 20 66 65 61 74 75 72 65 20 6F 66 aving feature of
00D6E0: 20 74 68 69 73 20 69 6D 70 6C 65 6D 65 6E 74 61 this implementa
00D6F0: 74 69 6F 6E 2C 20 61 6C 6C 20 6E 75 6D 65 72 69 tion, all numeri
00D700: 74 68 65 20 63 6F 6E 73 74 72 75 63 74 69 6F 6E the construction
00D710: 20 6F 66 20 61 20 63 6F 6D 6D 6F 6E 20 72 65 74 of a common ret
00D720: 75 72 6E 20 70 6F 69 6E 74 2E 20 54 68 65 20 6F urn point. The o
00D730: 70 74 69 6F 6E 61 6C 0D 0A 50 52 4F 47 52 41 4D ptional..PROGRAM
00D740: 20 74 65 72 6D 69 6E 61 74 65 73 20 61 20 73 75 terminates a su
00D750: 62 72 6F 75 74 69 6E 65 20 61 6E 64 20 72 65 74 broutine and ret
00D760: 75 72 6E 73 20 74 6F 20 74 68 65 20 63 61 6C 6C urns to the call
00D770: 69 6E 67 20 70 72 6F 67 72 61 6D 2E 20 20 49 74 ing program. It
00D780: 73 20 75 73 65 0D 0A 69 6E 20 74 68 65 20 6D 61 s use..in the ma
00D790: 69 6E 20 70 72 6F 67 72 61 6D 20 63 61 75 73 65 in program cause
00D7A0: 73 20 6E 6F 20 61 63 74 69 6F 6E 20 74 6F 20 62 s no action to b
00D7B0: 65 20 74 61 6B 65 6E 2E 0D 0A 0D 0A 45 58 41 4D e taken.....EXAM
00D7C0: 50 4C 45 53 3A 20 20 45 58 49 54 20 50 52 4F 47 PLES: EXIT PROG
00D7D0: 52 41 4D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 RAM..
00D7E0: 45 58 49 54 0D 0A 0D 0A 0D 0A 47 4F 0D 0A 3D 3D EXIT......GO..==
00D7F0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 47 ....ELEMENT: G
00D800: 4F 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 O....FORMAT:
00D810: 31 2E 20 47 4F 20 70 72 6F 63 65 64 75 72 65 2D 1. GO procedure-
00D820: 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 20 name..
00D830: 20 32 2E 20 47 4F 20 70 72 6F 63 65 64 75 72 65 2. GO procedure
00D840: 2D 31 20 5B 70 72 6F 63 65 64 75 72 65 2D 32 5D -1 [procedure-2]
00D850: 20 2E 20 2E 20 2E 20 70 72 6F 63 65 64 75 72 65 . . . procedure
00D860: 2D 32 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -20..
00D870: 20 20 20 20 20 20 44 45 50 45 4E 44 49 4E 47 20 DEPENDING
00D880: 69 64 65 6E 74 69 66 69 65 72 0D 0A 0D 0A 44 45 identifier....DE
00D890: 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 65 20 SCRIPTION:..The
00D8A0: 47 4F 20 63 6F 6D 6D 61 6E 64 20 63 61 75 73 65 GO command cause
00D8B0: 73 20 61 6E 20 75 6E 63 6F 6E 64 69 74 69 6F 6E s an uncondition
00D8C0: 61 6C 20 62 72 61 6E 63 68 20 74 6F 20 74 68 65 al branch to the
00D8D0: 20 72 6F 75 74 69 6E 65 20 73 70 65 63 69 66 69 routine specifi
00D8E0: 65 64 2E 20 54 68 65 0D 0A 73 65 63 6F 6E 64 20 ed. The..second
00D8F0: 66 6F 72 6D 20 63 61 75 73 65 73 20 61 20 66 6F form causes a fo
00D900: 63 20 6D 6F 76 65 73 20 67 6F 20 74 68 72 6F 75 c moves go throu
00D910: 67 68 20 74 68 65 0D 0A 61 63 63 75 6D 75 6C 61 gh the..accumula
00D920: 74 6F 72 73 2E 20 20 54 68 69 73 20 6D 61 6B 65 tors. This make
00D930: 73 20 6E 75 6D 65 72 69 63 20 6D 6F 76 65 73 20 s numeric moves
00D940: 73 6C 6F 77 65 72 20 74 68 61 6E 20 61 6C 70 68 slower than alph
00D950: 61 2D 6E 75 6D 65 72 69 63 20 6D 6F 76 65 73 20 a-numeric moves
00D960: 61 6E 64 0D 0A 77 68 65 72 65 20 70 6F 73 73 69 and..where possi
00D970: 62 6C 65 20 74 68 65 79 20 73 68 6F 75 6C 64 20 ble they should
00D980: 62 65 20 61 76 6F 69 64 65 64 2E 20 41 6E 79 20 be avoided. Any
00D990: 6D 6F 76 65 20 74 68 61 74 20 69 6E 76 6F 6C 76 move that involv
00D9A0: 65 73 20 70 69 63 74 75 72 65 0D 0A 63 6C 61 75 es picture..clau
00D9B0: 73 65 73 20 74 68 61 74 20 61 72 65 20 65 78 61 ses that are exa
00D9C0: 63 74 6C 79 20 74 68 65 20 73 61 6D 65 20 63 61 ctly the same ca
00D9D0: 6E 20 62 65 20 61 63 63 6F 6D 70 6C 69 73 68 65 n be accomplishe
00D9E0: 64 20 61 73 20 61 6E 20 61 6C 70 68 61 2D 6E 75 d as an alpha-nu
00D9F0: 6D 65 72 69 63 0D 0A 6D 6F 76 65 20 69 66 20 74 meric..move if t
00DA00: 68 65 20 65 6C 65 6D 65 6E 74 73 20 61 72 65 20 he elements are
00DA10: 72 65 64 65 66 69 6E 65 64 20 61 73 20 61 6C 70 redefined as alp
00DA20: 68 61 2D 6E 75 6D 65 72 69 63 3B 20 20 61 6C 73 ha-numeric; als
00DA30: 6F 20 61 6C 6C 20 67 72 6F 75 70 20 6D 6F 76 65 o all group move
00DA40: 73 0D 0A 61 72 65 20 61 6C 70 68 61 2D 6E 75 6D s..are alpha-num
00DA50: 65 72 69 63 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 eric.....EXAMPLE
00DA60: 53 3A 20 20 4D 4F 56 45 20 53 50 41 43 45 20 54 S: MOVE SPACE T
00DA70: 4F 20 50 52 49 4E 54 2D 4C 49 4E 45 2E 0D 0A 20 O PRINT-LINE...
00DA80: 20 20 20 20 20 20 20 20 20 20 4D 4F 56 45 20 41 MOVE A
00DA90: 28 31 30 29 20 54 4F 20 42 28 50 54 52 29 2E 0D (10) TO B(PTR)..
00DAA0: 0A 0D 0A 0D 0A 4D 55 4C 54 49 50 4C 59 0D 0A 3D .....MULTIPLY..=
00DAB0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
00DAC0: 4E 54 3A 20 20 20 4D 55 4C 54 49 50 4C 59 0D 0A NT: MULTIPLY..
00DAD0: 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 4D 55 4C ..FORMAT: MUL
00DAE0: 54 49 50 4C 59 20 7B 69 64 65 6E 74 69 66 69 65 TIPLY {identifie
00DAF0: 72 7D 20 42 59 20 69 64 65 6E 74 69 66 69 65 72 r} BY identifier
00DB00: 72 77 61 72 64 20 62 72 61 6E 63 68 20 64 65 70 rward branch dep
00DB10: 65 6E 64 69 6E 67 20 6F 6E 20 74 68 65 20 76 61 ending on the va
00DB20: 6C 75 65 20 6F 66 20 74 68 65 20 63 6F 6E 74 65 lue of the conte
00DB30: 6E 74 73 0D 0A 6F 66 20 74 68 65 20 69 64 65 6E nts..of the iden
00DB40: 74 69 66 69 65 72 2E 20 54 68 65 20 69 64 65 6E tifier. The iden
00DB50: 74 69 66 69 65 72 20 6D 75 73 74 20 62 65 20 61 tifier must be a
00DB60: 20 6E 75 6D 65 72 69 63 20 69 6E 74 65 67 65 72 numeric integer
00DB70: 20 76 61 6C 75 65 2E 20 54 68 65 72 65 20 63 61 value. There ca
00DB80: 6E 0D 0A 62 65 20 6E 6F 20 6D 6F 72 65 20 74 68 n..be no more th
00DB90: 61 6E 20 32 30 20 70 72 6F 63 65 64 75 72 65 20 an 20 procedure
00DBA0: 6E 61 6D 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C names.....EXAMPL
00DBB0: 45 53 3A 20 20 47 4F 20 52 45 41 44 2D 43 41 52 ES: GO READ-CAR
00DBC0: 44 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 47 D... G
00DBD0: 4F 20 52 45 41 44 31 20 52 45 41 44 32 20 52 45 O READ1 READ2 RE
00DBE0: 41 44 33 20 44 45 50 45 4E 44 49 4E 47 20 52 45 AD3 DEPENDING RE
00DBF0: 41 44 2D 49 4E 44 45 58 0D 0A 0D 0A 0D 0A 49 46 AD-INDEX......IF
00DC00: 0D 0A 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A ..==....ELEMENT:
00DC10: 20 20 20 49 46 0D 0A 0D 0A 46 4F 52 4D 41 54 3A IF....FORMAT:
00DC20: 20 20 20 20 49 46 20 3C 63 6F 6E 64 69 74 69 6F IF <conditio
00DC30: 6E 3E 20 7B 73 74 6D 74 2D 6C 73 74 20 20 20 7D n> {stmt-lst }
00DC40: 20 45 4E 44 2D 49 46 0D 0A 20 20 20 20 20 20 20 END-IF..
00DC50: 20 20 20 20 49 46 20 3C 63 6F 6E 64 69 74 69 6F IF <conditio
00DC60: 6E 3E 20 7B 73 74 6D 74 2D 6C 73 74 20 20 20 7D n> {stmt-lst }
00DC70: 20 45 4C 53 45 20 7B 73 74 6D 74 2D 6C 73 74 7D ELSE {stmt-lst}
00DC80: 20 45 4E 44 2D 49 46 0D 0A 20 20 20 20 20 20 20 END-IF..
00DC90: 20 20 20 20 20 20 20 7B 4E 45 58 54 20 53 45 4E {NEXT SEN
00DCA0: 54 45 4E 43 45 7D 20 20 20 7B 4E 45 58 54 20 53 TENCE} {NEXT S
00DCB0: 45 4E 54 45 4E 43 45 7D 0D 0A 0D 0A 44 45 53 43 ENTENCE}....DESC
00DCC0: 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 RIPTION:..This i
00DCD0: 73 20 61 6E 20 65 6E 68 61 6E 63 65 64 20 76 65 s an enhanced ve
00DCE0: 72 73 69 6F 6E 20 6F 66 20 74 68 65 20 73 74 61 rsion of the sta
00DCF0: 6E 64 61 72 64 20 43 4F 42 4F 4C 20 49 46 20 73 ndard COBOL IF s
00DD00: 2D 32 20 5B 52 4F 55 4E 44 45 44 5D 0D 0A 20 20 -2 [ROUNDED]..
00DD10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00DD20: 20 20 7B 6C 69 74 65 72 61 6C 20 20 20 7D 0D 0A {literal }..
00DD30: 20 20 20 20 20 20 20 20 20 20 20 20 20 5B 53 49 [SI
00DD40: 5A 45 20 45 52 52 4F 52 20 3C 69 6D 70 65 72 61 ZE ERROR <impera
00DD50: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 5D tive-statement>]
00DD60: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
00DD70: 0D 0A 54 68 65 20 6D 75 6C 74 69 70 6C 79 20 72 ..The multiply r
00DD80: 6F 75 74 69 6E 65 20 75 73 65 73 20 61 20 64 6F outine uses a do
00DD90: 75 62 6C 65 20 20 6C 65 6E 67 74 68 20 72 65 67 uble length reg
00DDA0: 69 73 74 65 72 20 74 6F 20 63 61 6C 63 75 6C 61 ister to calcula
00DDB0: 74 65 20 74 68 65 20 72 65 73 75 6C 74 2E 0D 0A te the result...
00DDC0: 54 68 69 73 20 61 6C 6C 6F 77 73 20 74 68 65 20 This allows the
00DDD0: 72 65 73 75 6C 74 20 20 67 65 6E 65 72 61 74 65 result generate
00DDE0: 64 20 20 74 6F 20 20 62 65 20 20 6F 66 20 20 6D d to be of m
00DDF0: 61 78 69 6D 75 6D 20 70 72 65 63 69 73 69 6F 6E aximum precision
00DE00: 2E 20 54 68 65 20 61 63 74 75 61 6C 0D 0A 76 61 . The actual..va
00DE10: 6C 75 65 20 73 74 6F 72 65 64 20 77 69 6C 6C 20 lue stored will
00DE20: 62 65 20 64 65 74 65 72 6D 69 6E 65 64 20 62 79 be determined by
00DE30: 20 20 74 68 65 20 20 61 6D 6F 75 6E 74 20 6F 66 the amount of
00DE40: 20 73 74 6F 72 61 67 65 20 61 6C 6C 6F 63 61 74 storage allocat
00DE50: 65 64 20 66 6F 72 20 74 68 65 0D 0A 76 61 72 69 ed for the..vari
00DE60: 61 62 6C 65 2E 20 4F 76 65 72 66 6C 6F 77 20 77 able. Overflow w
00DE70: 69 6C 6C 20 6F 63 63 75 72 20 69 66 20 74 68 65 ill occur if the
00DE80: 20 20 6E 75 6D 62 65 72 20 20 69 6E 20 74 68 65 number in the
00DE90: 20 72 65 67 69 73 74 65 72 20 69 73 20 6C 61 72 register is lar
00DEA0: 67 65 72 20 74 68 61 6E 0D 0A 74 68 65 20 76 61 ger than..the va
00DEB0: 72 69 61 62 6C 65 2E 20 49 66 20 74 68 65 20 70 riable. If the p
00DEC0: 72 65 63 69 73 69 6F 6E 20 69 6E 20 74 68 65 20 recision in the
00DED0: 72 65 67 69 73 74 65 72 20 69 73 20 67 72 65 61 register is grea
00DEE0: 74 65 72 20 74 68 61 6E 20 74 68 65 20 76 61 72 ter than the var
00DEF0: 69 61 62 6C 65 2C 0D 0A 74 72 75 6E 63 61 74 69 iable,..truncati
00DF00: 74 61 74 65 6D 65 6E 74 2E 20 4E 65 73 74 69 6E tatement. Nestin
00DF10: 67 20 6F 66 0D 0A 49 46 20 73 74 61 74 65 6D 65 g of..IF stateme
00DF20: 6E 74 20 69 73 20 61 6C 6C 6F 77 65 64 2E 0D 0A nt is allowed...
00DF30: 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 49 46 20 ..EXAMPLES: IF
00DF40: 41 20 47 52 45 41 54 45 52 20 42 20 41 44 44 20 A GREATER B ADD
00DF50: 41 20 54 4F 20 43 20 45 4C 53 45 20 47 4F 20 45 A TO C ELSE GO E
00DF60: 52 52 4F 52 2D 4F 4E 45 20 45 4E 44 2D 49 46 2E RROR-ONE END-IF.
00DF70: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 .... I
00DF80: 46 20 41 20 4E 4F 54 20 4E 55 4D 45 52 49 43 20 F A NOT NUMERIC
00DF90: 4E 45 58 54 20 53 45 4E 54 45 4E 43 45 20 45 4C NEXT SENTENCE EL
00DFA0: 53 45 20 4D 4F 56 45 20 5A 45 52 4F 20 54 4F 20 SE MOVE ZERO TO
00DFB0: 41 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A 20 20 20 A END-IF.....
00DFC0: 20 20 20 20 20 20 20 20 49 46 20 41 20 4C 45 53 IF A LES
00DFD0: 53 20 42 20 44 49 53 50 4C 41 59 20 41 20 44 49 S B DISPLAY A DI
00DFE0: 53 50 4C 41 59 20 42 20 45 4E 44 2D 49 46 2E 0D SPLAY B END-IF..
00DFF0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 46 ... IF
00E000: 20 41 20 47 52 45 41 54 45 52 20 42 20 44 49 53 A GREATER B DIS
00E010: 50 4C 41 59 20 41 20 44 49 53 50 4C 41 59 20 42 PLAY A DISPLAY B
00E020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 45 .. E
00E030: 4C 53 45 20 44 49 53 50 4C 41 59 20 43 20 44 49 LSE DISPLAY C DI
00E040: 53 50 4C 41 59 20 44 20 45 4E 44 2D 49 46 2E 0D SPLAY D END-IF..
00E050: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 46 ... IF
00E060: 20 41 20 47 52 45 41 54 45 52 20 42 0D 0A 20 20 A GREATER B..
00E070: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 20 IF A
00E080: 47 52 45 41 54 45 52 20 43 0D 0A 20 20 20 20 20 GREATER C..
00E090: 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4C 41 DISPLA
00E0A0: 59 20 41 0D 0A 20 20 20 20 20 20 20 20 20 20 20 Y A..
00E0B0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
00E0C0: 20 20 20 20 20 20 20 44 49 53 50 4C 41 59 20 43 DISPLAY C
00E0D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 .. END
00E0E0: 2D 49 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -IF..
00E0F0: 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 ELSE..
00E100: 6F 6E 20 6F 63 63 75 72 73 20 75 6E 6C 65 73 73 on occurs unless
00E110: 20 74 68 65 20 72 6F 75 6E 64 20 6F 70 74 69 6F the round optio
00E120: 6E 20 69 73 20 73 70 65 63 69 66 69 65 64 2E 0D n is specified..
00E130: 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 4D 55 ...EXAMPLES: MU
00E140: 4C 54 49 50 4C 59 20 58 20 42 59 20 59 2E 0D 0A LTIPLY X BY Y...
00E150: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D 55 4C .. MUL
00E160: 54 49 50 4C 59 20 41 20 42 59 20 42 28 37 29 20 TIPLY A BY B(7)
00E170: 53 49 5A 45 20 45 52 52 4F 52 20 47 4F 20 4F 56 SIZE ERROR GO OV
00E180: 45 52 46 4C 4F 57 2E 0D 0A 0D 0A 0D 0A 4F 50 45 ERFLOW.......OPE
00E190: 4E 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 N..====....ELEME
00E1A0: 4E 54 3A 20 20 20 4F 50 45 4E 0D 0A 0D 0A 46 4F NT: OPEN....FO
00E1B0: 52 4D 41 54 3A 20 20 20 20 4F 50 45 4E 20 7B 49 RMAT: OPEN {I
00E1C0: 4E 50 55 54 20 66 69 6C 65 2D 6E 61 6D 65 2D 31 NPUT file-name-1
00E1D0: 20 7D 20 5B 7B 66 69 6C 65 2D 6E 61 6D 65 2D 32 } [{file-name-2
00E1E0: 7D 5D 20 2E 20 2E 20 2E 0D 0A 20 20 20 20 20 20 }] . . ...
00E1F0: 20 20 20 20 20 20 20 20 20 20 7B 4F 55 54 50 55 {OUTPU
00E200: 54 20 66 69 6C 65 2D 6E 61 6D 65 2D 31 7D 20 5B T file-name-1} [
00E210: 7B 66 69 6C 65 2D 6E 61 6D 65 2D 32 7D 5D 20 2E {file-name-2}] .
00E220: 20 2E 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 . ...
00E230: 20 20 20 20 20 20 7B 49 2D 4F 20 66 69 6C 65 2D {I-O file-
00E240: 6E 61 6D 65 2D 31 20 20 20 7D 20 5B 7B 66 69 6C name-1 } [{fil
00E250: 65 2D 6E 61 6D 65 2D 32 7D 5D 20 2E 20 2E 20 2E e-name-2}] . . .
00E260: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
00E270: 0D 0A 54 68 65 20 74 68 72 65 65 20 74 79 70 65 ..The three type
00E280: 73 20 6F 66 20 20 4F 50 45 4E 53 20 20 68 61 76 s of OPENS hav
00E290: 65 20 20 65 78 61 63 74 6C 79 20 20 74 68 65 20 e exactly the
00E2A0: 20 73 61 6D 65 20 20 65 66 66 65 63 74 20 6F 6E same effect on
00E2B0: 20 74 68 65 20 64 69 73 6B 65 74 74 65 2E 0D 0A the diskette...
00E2C0: 48 6F 77 65 76 65 72 2C 20 74 68 65 79 20 64 6F However, they do
00E2D0: 20 61 6C 6C 6F 77 20 66 6F 72 20 69 6E 74 65 72 allow for inter
00E2E0: 6E 61 6C 20 63 68 65 63 6B 69 6E 67 20 20 6F 66 nal checking of
00E2F0: 20 74 68 65 20 6F 74 68 65 72 20 66 69 6C 65 20 the other file
00E300: 20 20 20 49 46 20 42 20 47 52 45 41 54 45 52 20 IF B GREATER
00E310: 43 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 C..
00E320: 20 20 20 44 49 53 50 4C 41 59 20 42 0D 0A 20 20 DISPLAY B..
00E330: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D ELSE.
00E340: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E350: 44 49 53 50 4C 41 59 20 43 0D 0A 20 20 20 20 20 DISPLAY C..
00E360: 20 20 20 20 20 20 20 20 45 4E 44 2D 49 46 0D 0A END-IF..
00E370: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 2D 49 END-I
00E380: 46 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F F.......** END O
00E390: 46 20 43 4F 42 4F 4C 2D 32 2E 44 4F 43 20 2A 2A F COBOL-2.DOC **
00E3A0: 1A 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 .RO-COBOL Versi
00E3B0: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
00E3C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E3D0: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
00E3E0: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
00E3F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E400: 20 62 79 20 75 73 69 6E 67 20 74 68 65 20 63 6F by using the co
00E410: 6D 70 69 6C 65 72 20 74 6F 67 67 6C 65 20 27 44 mpiler toggle 'D
00E420: 2E 27 0D 0A 0D 0A 0D 0A 3C 66 69 6C 65 2D 63 6F .'......<file-co
00E430: 6E 74 72 6F 6C 2D 65 6E 74 72 79 3E 0D 0A 3D 3D ntrol-entry>..==
00E440: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00E450: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
00E460: 20 20 20 3C 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C <file-control
00E470: 2D 65 6E 74 72 79 3E 0D 0A 0D 0A 46 4F 52 4D 41 -entry>....FORMA
00E480: 54 3A 20 20 20 20 20 20 31 2E 20 53 45 4C 45 43 T: 1. SELEC
00E490: 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 20 T file-name..
00E4A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 AS
00E4B0: 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 SIGN implementor
00E4C0: 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 -name..
00E4D0: 20 20 20 20 20 20 20 20 5B 4F 52 47 41 4E 49 5A [ORGANIZ
00E4E0: 41 54 49 4F 4E 20 53 45 51 55 45 4E 54 49 41 4C ATION SEQUENTIAL
00E4F0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 01 00 02 09 52 E5 0C 00 C1 02 00 00 00 02 ......R.........
00E520: 0C 00 C6 02 00 00 00 02 0C 00 C2 02 00 00 00 02 ................
00E530: 0C 00 C7 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E540: 0C 00 C8 02 00 00 00 02 0C 00 C4 02 00 00 00 02 ................
00E550: 0C 00 C9 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 61 63 74 69 6F 6E 73 2E 20 46 6F 72 0D 0A 65 78 actions. For..ex
00E610: 61 6D 70 6C 65 2C 20 61 20 77 72 69 74 65 20 74 ample, a write t
00E620: 6F 20 61 20 20 66 69 6C 65 20 20 73 65 74 20 20 o a file set
00E630: 6F 70 65 6E 20 20 61 73 20 20 69 6E 70 75 74 20 open as input
00E640: 20 77 69 6C 6C 20 63 61 75 73 65 20 61 20 66 61 will cause a fa
00E650: 74 61 6C 20 65 72 72 6F 72 2E 0D 0A 4D 75 6C 74 tal error...Mult
00E660: 69 70 6C 65 20 6F 70 65 6E 73 20 68 61 76 65 20 iple opens have
00E670: 6E 6F 74 20 62 65 65 6E 20 69 6D 70 6C 65 6D 65 not been impleme
00E680: 6E 74 65 64 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 nted.....EXAMPLE
00E690: 53 3A 20 20 4F 50 45 4E 20 49 4E 50 55 54 20 43 S: OPEN INPUT C
00E6A0: 41 52 44 53 2E 0D 0A 20 20 20 20 20 20 20 20 20 ARDS...
00E6B0: 20 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 52 45 OPEN OUTPUT RE
00E6C0: 50 4F 52 54 2D 46 49 4C 45 2E 0D 0A 0D 0A 0D 0A PORT-FILE.......
00E6D0: 50 45 52 46 4F 52 4D 0D 0A 3D 3D 3D 3D 3D 3D 3D PERFORM..=======
00E6E0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 50 ....ELEMENT: P
00E6F0: 45 52 46 4F 52 4D 0D 0A 0D 0A 46 4F 52 4D 41 54 ERFORM....FORMAT
00E700: 3A 20 20 20 20 31 2E 20 50 45 52 46 4F 52 4D 20 : 1. PERFORM
00E710: 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B procedure-name [
00E720: 54 48 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E THRU procedure-n
00E730: 61 6D 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 ame-2]..
00E740: 20 20 20 32 2E 20 50 45 52 46 4F 52 4D 20 70 72 2. PERFORM pr
00E750: 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B 54 48 ocedure-name [TH
00E760: 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D RU procedure-nam
00E770: 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 e-2]..
00E780: 20 20 20 20 20 20 20 7B 69 64 65 6E 74 69 66 69 {identifi
00E790: 65 72 7D 20 54 49 4D 45 53 0D 0A 20 20 20 20 20 er} TIMES..
00E7A0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 74 {int
00E7B0: 65 67 65 72 20 20 20 7D 0D 0A 20 20 20 20 20 20 eger }..
00E7C0: 20 20 20 20 20 33 2E 20 50 45 52 46 4F 52 4D 20 3. PERFORM
00E7D0: 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B procedure-name [
00E7E0: 54 48 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E THRU procedure-n
00E7F0: 61 6D 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 ame-2]..
00E800: 43 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 0D CR> TO CONTINUE.
00E810: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 45 4E 54 . OR ENT
00E820: 45 52 20 41 4E 20 22 53 22 20 54 4F 20 54 45 52 ER AN "S" TO TER
00E830: 4D 49 4E 41 54 45 2E 0D 0A 0D 0A 0D 0A 53 55 42 MINATE.......SUB
00E840: 54 52 41 43 54 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 0D TRACT..========.
00E850: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 53 55 ...ELEMENT: SU
00E860: 42 54 52 41 43 54 0D 0A 0D 0A 46 4F 52 4D 41 54 BTRACT....FORMAT
00E870: 3A 20 20 20 20 53 55 42 54 52 41 43 54 20 7B 69 : SUBTRACT {i
00E880: 64 65 6E 74 69 66 69 65 72 2D 31 7D 20 5B 69 64 dentifier-1} [id
00E890: 65 6E 74 69 66 69 65 72 2D 32 5D 20 2E 20 2E 20 entifier-2] . .
00E8A0: 2E 20 46 52 4F 4D 20 69 64 65 6E 74 69 66 69 65 . FROM identifie
00E8B0: 72 2D 6D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r-m..
00E8C0: 20 20 20 20 20 20 20 20 20 7B 6C 69 74 65 72 61 {litera
00E8D0: 6C 2D 31 20 20 20 7D 20 5B 6C 69 74 65 72 61 6C l-1 } [literal
00E8E0: 2D 32 20 20 20 5D 0D 0A 20 20 20 20 20 20 20 20 -2 ]..
00E8F0: 20 20 20 20 20 20 20 20 20 20 20 20 5B 52 4F 55 [ROU
00E900: 4E 44 45 44 5D 20 5B 53 49 5A 45 20 45 52 52 4F NDED] [SIZE ERRO
00E910: 52 20 3C 69 6D 70 65 72 61 74 69 76 65 2D 73 74 R <imperative-st
00E920: 61 74 65 6D 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 atement>]....DES
00E930: 43 52 49 50 54 49 4F 4E 3A 0D 0A 49 64 65 6E 74 CRIPTION:..Ident
00E940: 69 66 69 65 72 2D 6D 2C 20 69 73 20 20 64 65 63 ifier-m, is dec
00E950: 72 65 6D 65 6E 74 65 64 20 62 79 20 20 74 68 65 remented by the
00E960: 20 20 76 61 6C 75 65 20 20 6F 66 20 69 64 65 6E value of iden
00E970: 74 69 66 69 65 72 2F 6C 69 74 65 72 61 6C 20 6F tifier/literal o
00E980: 6E 65 2E 20 54 68 65 0D 0A 72 65 73 75 6C 74 73 ne. The..results
00E990: 20 61 72 65 20 73 74 6F 72 65 64 20 62 61 63 6B are stored back
00E9A0: 20 69 6E 20 69 64 65 6E 74 69 66 69 65 72 2D 6D in identifier-m
00E9B0: 2E 20 52 6F 75 6E 64 69 6E 67 20 61 6E 64 20 73 . Rounding and s
00E9C0: 69 7A 65 20 65 72 72 6F 72 20 6F 70 74 69 6F 6E ize error option
00E9D0: 73 20 61 72 65 0D 0A 61 76 61 69 6C 61 62 6C 65 s are..available
00E9E0: 20 69 66 20 64 65 73 69 72 65 64 2E 20 4D 75 6C if desired. Mul
00E9F0: 74 69 70 6C 65 20 73 75 62 74 72 61 63 74 73 20 tiple subtracts
00EA00: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 3C UNTIL <
00EA10: 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 20 20 20 20 condition>..
00EA20: 20 20 20 20 20 20 20 34 2E 20 50 45 52 46 4F 52 4. PERFOR
00EA30: 4D 20 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 M procedure-name
00EA40: 20 56 41 52 59 49 4E 47 20 7B 69 64 65 6E 74 69 VARYING {identi
00EA50: 66 69 65 72 7D 0D 0A 20 20 20 20 20 20 20 20 20 fier}..
00EA60: 20 20 20 20 20 20 20 20 46 52 4F 4D 20 7B 69 64 FROM {id
00EA70: 65 6E 74 69 66 69 65 72 7D 20 42 59 20 7B 69 64 entifier} BY {id
00EA80: 65 6E 74 69 66 69 65 72 7D 0D 0A 20 20 20 20 20 entifier}..
00EA90: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 UNTI
00EAA0: 4C 20 3C 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 0D L <condition>...
00EAB0: 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 41 .DESCRIPTION:..A
00EAC0: 6C 6C 20 66 6F 75 72 20 20 6F 70 74 69 6F 6E 73 ll four options
00EAD0: 20 20 61 72 65 20 20 73 75 70 70 6F 72 74 65 64 are supported
00EAE0: 2E 20 20 20 42 72 61 6E 63 68 69 6E 67 20 20 6D . Branching m
00EAF0: 61 79 20 20 62 65 20 20 65 69 74 68 65 72 20 20 ay be either
00EB00: 66 6F 72 77 61 72 64 20 20 6F 72 0D 0A 62 61 63 forward or..bac
00EB10: 6B 77 61 72 64 2C 20 61 6E 64 20 74 68 65 20 70 kward, and the p
00EB20: 72 6F 63 65 64 75 72 65 73 20 63 61 6C 6C 65 64 rocedures called
00EB30: 20 6D 61 79 20 20 68 61 76 65 20 20 70 65 72 66 may have perf
00EB40: 6F 72 6D 20 73 74 61 74 65 6D 65 6E 74 73 20 69 orm statements i
00EB50: 6E 20 74 68 65 6D 20 61 73 0D 0A 6C 6F 6E 67 20 n them as..long
00EB60: 61 73 20 74 68 65 20 65 6E 64 20 70 6F 69 6E 74 as the end point
00EB70: 73 20 64 6F 20 6E 6F 74 20 63 6F 69 6E 63 69 64 s do not coincid
00EB80: 65 20 6F 72 20 6F 76 65 72 6C 61 70 2E 0D 0A 0D e or overlap....
00EB90: 0A 45 58 41 4D 50 4C 45 53 3A 20 20 50 45 52 46 .EXAMPLES: PERF
00EBA0: 4F 52 4D 20 4F 50 45 4E 2D 52 4F 55 54 49 4E 45 ORM OPEN-ROUTINE
00EBB0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 50 45 ... PE
00EBC0: 52 46 4F 52 4D 20 54 4F 54 41 4C 53 20 54 48 52 RFORM TOTALS THR
00EBD0: 55 20 45 4E 44 2D 52 45 50 4F 52 54 2E 0D 0A 20 U END-REPORT...
00EBE0: 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4F 52 PERFOR
00EBF0: 4D 20 53 55 4D 20 31 30 20 54 49 4D 45 53 2E 0D M SUM 10 TIMES..
00EC00: 68 61 76 65 20 6E 6F 74 20 62 65 65 6E 20 69 6D have not been im
00EC10: 70 6C 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 45 58 plemented.....EX
00EC20: 41 4D 50 4C 45 53 3A 20 20 53 55 42 54 52 41 43 AMPLES: SUBTRAC
00EC30: 54 20 31 30 20 46 52 4F 4D 20 53 55 42 28 31 32 T 10 FROM SUB(12
00EC40: 29 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 )... S
00EC50: 55 42 54 52 41 43 54 20 41 20 46 52 4F 4D 20 43 UBTRACT A FROM C
00EC60: 20 52 4F 55 4E 44 45 44 2E 0D 0A 0D 0A 0D 0A 57 ROUNDED.......W
00EC70: 52 49 54 45 0D 0A 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 RITE..=====....E
00EC80: 4C 45 4D 45 4E 54 3A 20 20 20 57 52 49 54 45 0D LEMENT: WRITE.
00EC90: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 31 2E ...FORMAT: 1.
00ECA0: 20 57 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 WRITE record-na
00ECB0: 6D 65 20 5B 7B 42 45 46 4F 52 45 7D 20 41 44 56 me [{BEFORE} ADV
00ECC0: 41 4E 43 49 4E 47 20 7B 49 4E 54 45 47 45 52 7D ANCING {INTEGER}
00ECD0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
00ECE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00ECF0: 20 20 20 20 7B 41 46 54 45 52 20 7D 20 20 20 20 {AFTER }
00ED00: 20 20 20 20 20 20 20 7B 50 41 47 45 20 20 7D 0D {PAGE }.
00ED10: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 57 . 2. W
00ED20: 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 6D 65 RITE record-name
00ED30: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
00ED40: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
00ED50: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
00ED60: 0A 54 68 65 20 72 65 63 6F 72 64 20 73 70 65 63 .The record spec
00ED70: 69 66 69 65 64 20 69 73 20 77 72 69 74 74 65 6E ified is written
00ED80: 20 74 6F 20 74 68 65 20 66 69 6C 65 20 73 70 65 to the file spe
00ED90: 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 66 69 cified in the fi
00EDA0: 6C 65 20 73 65 63 74 69 6F 6E 20 6F 66 0D 0A 74 le section of..t
00EDB0: 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 61 he source progra
00EDC0: 6D 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 20 6F m. The INVALID o
00EDD0: 70 74 69 6F 6E 20 6F 6E 6C 79 20 61 70 70 6C 69 ption only appli
00EDE0: 65 73 20 74 6F 20 72 61 6E 64 6F 6D 20 66 69 6C es to random fil
00EDF0: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A es.....EXAMPLES:
00EE00: 0A 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 . PERF
00EE10: 4F 52 4D 20 53 4B 49 50 2D 4C 49 4E 45 20 55 4E ORM SKIP-LINE UN
00EE20: 54 49 4C 20 50 47 2D 43 4E 54 20 47 52 45 41 54 TIL PG-CNT GREAT
00EE30: 45 52 20 36 30 2E 0D 0A 20 20 20 20 20 20 20 20 ER 60...
00EE40: 20 20 20 50 45 52 46 4F 52 4D 20 52 45 50 45 41 PERFORM REPEA
00EE50: 54 2D 41 47 41 49 4E 20 56 41 52 59 49 4E 47 20 T-AGAIN VARYING
00EE60: 43 4F 55 4E 54 45 52 20 46 52 4F 4D 20 31 20 42 COUNTER FROM 1 B
00EE70: 59 20 32 0D 0A 20 20 20 20 20 20 20 20 20 20 20 Y 2..
00EE80: 20 20 20 20 20 20 55 4E 54 49 4C 20 43 4F 55 4E UNTIL COUN
00EE90: 54 45 52 20 45 51 55 41 4C 20 31 30 2E 0D 0A 0D TER EQUAL 10....
00EEA0: 0A 0D 0A 52 45 41 44 0D 0A 3D 3D 3D 3D 0D 0A 0D ...READ..====...
00EEB0: 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 52 45 41 44 .ELEMENT: READ
00EEC0: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 31 ....FORMAT: 1
00EED0: 2E 20 52 45 41 44 20 66 69 6C 65 2D 6E 61 6D 65 . READ file-name
00EEE0: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
00EEF0: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
00EF00: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 52 . 2. R
00EF10: 45 41 44 20 66 69 6C 65 2D 6E 61 6D 65 20 45 4E EAD file-name EN
00EF20: 44 20 3C 69 6D 70 65 72 61 74 69 76 65 2D 73 74 D <imperative-st
00EF30: 61 74 65 6D 65 6E 74 3E 0D 0A 0D 0A 44 45 53 43 atement>....DESC
00EF40: 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 65 20 69 6E RIPTION:..The in
00EF50: 76 61 6C 69 64 20 63 6F 6E 64 69 74 69 6F 6E 20 valid condition
00EF60: 69 73 20 6F 6E 6C 79 20 20 61 70 70 6C 69 63 61 is only applica
00EF70: 62 6C 65 20 20 74 6F 20 20 66 69 6C 65 73 20 20 ble to files
00EF80: 69 6E 20 20 61 20 72 61 6E 64 6F 6D 20 6D 6F 64 in a random mod
00EF90: 65 2E 20 41 6C 6C 0D 0A 73 65 71 75 65 6E 74 69 e. All..sequenti
00EFA0: 61 6C 20 66 69 6C 65 73 20 6D 75 73 74 20 68 61 al files must ha
00EFB0: 76 65 20 61 6E 20 45 4E 44 20 73 74 61 74 65 6D ve an END statem
00EFC0: 65 6E 74 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 ent.....EXAMPLES
00EFD0: 3A 20 20 52 45 41 44 20 43 41 52 44 53 20 45 4E : READ CARDS EN
00EFE0: 44 20 47 4F 20 45 4E 44 2D 4F 46 2D 46 49 4C 45 D GO END-OF-FILE
00EFF0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 52 45 ... RE
00F000: 20 20 57 52 49 54 45 20 4F 55 54 2D 46 49 4C 45 WRITE OUT-FILE
00F010: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ... WR
00F020: 49 54 45 20 52 41 4E 44 2D 46 49 4C 45 20 49 4E ITE RAND-FILE IN
00F030: 56 41 4C 49 44 20 50 45 52 46 4F 52 4D 20 45 52 VALID PERFORM ER
00F040: 52 4F 52 2D 52 45 43 4F 56 2E 0D 0A 0D 0A 0D 0A ROR-RECOV.......
00F050: 3C 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 3D 3D 3D <condition>..===
00F060: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
00F070: 45 4E 54 3A 20 20 20 3C 63 6F 6E 64 69 74 69 6F ENT: <conditio
00F080: 6E 3E 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 n>....FORMAT:
00F090: 20 52 45 4C 41 54 49 4F 4E 41 4C 20 43 4F 4E 44 RELATIONAL COND
00F0A0: 49 54 49 4F 4E 3A 0D 0A 0D 0A 20 20 20 20 20 20 ITION:....
00F0B0: 20 20 20 20 20 7B 69 64 65 6E 74 69 66 69 65 72 {identifier
00F0C0: 2D 31 7D 20 5B 4E 4F 54 5D 20 7B 47 52 45 41 54 -1} [NOT] {GREAT
00F0D0: 45 52 7D 20 7B 69 64 65 6E 74 69 66 69 65 72 2D ER} {identifier-
00F0E0: 32 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2}..
00F0F0: 20 20 7B 6C 69 74 65 72 61 6C 2D 31 7D 20 20 20 {literal-1}
00F100: 20 20 20 20 7B 4C 45 53 53 20 20 7D 20 20 7B 6C {LESS } {l
00F110: 69 74 65 72 61 6C 2D 32 20 20 20 7D 0D 0A 20 20 iteral-2 }..
00F120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 45 {E
00F140: 51 55 41 4C 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 QUAL }....
00F150: 20 20 20 20 20 43 4C 41 53 53 20 43 4F 4E 44 49 CLASS CONDI
00F160: 54 49 4F 4E 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 TION:....
00F170: 20 20 20 20 20 20 20 20 69 64 65 6E 74 69 66 69 identifi
00F180: 65 72 20 5B 4E 4F 54 5D 20 7B 4E 55 4D 45 52 49 er [NOT] {NUMERI
00F190: 43 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 C }..
00F1A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00F1B0: 20 20 20 20 20 20 7B 41 4C 50 48 41 42 45 54 49 {ALPHABETI
00F1C0: 43 7D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F C}....DESCRIPTIO
00F1D0: 4E 3A 0D 0A 49 74 20 69 73 20 6E 6F 74 20 76 61 N:..It is not va
00F1E0: 6C 69 64 20 74 6F 20 63 6F 6D 70 61 72 65 20 20 lid to compare
00F1F0: 74 77 6F 20 20 6C 69 74 65 72 61 6C 73 2E 20 20 two literals.
00F200: 41 44 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 20 49 AD RANDOM-FILE I
00F210: 4E 56 41 4C 49 44 20 4D 4F 56 45 20 53 50 41 43 NVALID MOVE SPAC
00F220: 45 53 20 54 4F 20 52 45 43 2D 31 2E 0D 0A 0D 0A ES TO REC-1.....
00F230: 0D 0A 52 45 57 52 49 54 45 0D 0A 3D 3D 3D 3D 3D ..REWRITE..=====
00F240: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
00F250: 20 52 45 57 52 49 54 45 0D 0A 0D 0A 46 4F 52 4D REWRITE....FORM
00F260: 41 54 3A 20 20 20 20 52 45 57 52 49 54 45 20 72 AT: REWRITE r
00F270: 65 63 6F 72 64 2D 6E 61 6D 65 20 5B 49 4E 56 41 ecord-name [INVA
00F280: 4C 49 44 20 3C 69 6D 70 65 72 61 74 69 76 65 3E LID <imperative>
00F290: 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E ]....DESCRIPTION
00F2A0: 3A 0D 0A 52 45 57 52 49 54 45 20 69 73 20 6F 6E :..REWRITE is on
00F2B0: 6C 79 20 76 61 6C 69 64 20 66 6F 72 20 66 69 6C ly valid for fil
00F2C0: 65 73 20 74 68 61 74 20 20 61 72 65 20 20 6F 70 es that are op
00F2D0: 65 6E 20 69 6E 20 74 68 65 20 49 2D 4F 20 6D 6F en in the I-O mo
00F2E0: 64 65 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 0D de. The INVALID.
00F2F0: 0A 63 6C 61 75 73 65 20 69 73 20 6F 6E 6C 79 20 .clause is only
00F300: 76 61 6C 69 64 20 66 6F 72 20 72 61 6E 64 6F 6D valid for random
00F310: 20 66 69 6C 65 73 2E 20 54 68 69 73 20 73 74 61 files. This sta
00F320: 74 65 6D 65 6E 74 20 72 65 73 75 6C 74 73 20 69 tement results i
00F330: 6E 20 74 68 65 20 63 75 72 72 65 6E 74 0D 0A 72 n the current..r
00F340: 65 63 6F 72 64 20 62 65 69 6E 67 20 77 72 69 74 ecord being writ
00F350: 74 65 6E 20 62 61 63 6B 20 69 6E 74 6F 20 74 68 ten back into th
00F360: 65 20 20 70 6C 61 63 65 20 20 74 68 61 74 20 20 e place that
00F370: 69 74 20 20 77 61 73 20 6A 75 73 74 20 72 65 61 it was just rea
00F380: 64 20 66 72 6F 6D 2C 20 74 68 65 0D 0A 6C 61 73 d from, the..las
00F390: 74 20 65 78 65 63 75 74 65 64 20 72 65 61 64 2E t executed read.
00F3A0: 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 52 ....EXAMPLES: R
00F3B0: 45 57 52 49 54 45 20 43 41 52 44 53 2E 0D 0A 20 EWRITE CARDS...
00F3C0: 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 REWRIT
00F3D0: 45 20 52 41 4E 44 2D 31 20 49 4E 56 41 4C 49 44 E RAND-1 INVALID
00F3E0: 20 50 45 52 46 4F 52 4D 20 45 52 52 4F 52 2D 43 PERFORM ERROR-C
00F3F0: 48 45 43 4B 2E 0C 0D 0A 0D 0A 0D 0A 53 54 4F 50 HECK........STOP
00F400: 54 68 65 20 63 6C 61 73 73 20 63 6F 6E 64 69 74 The class condit
00F410: 69 6F 6E 20 4E 55 4D 45 52 49 43 20 77 69 6C 6C ion NUMERIC will
00F420: 0D 0A 61 6C 6C 6F 77 20 66 6F 72 20 61 20 73 69 ..allow for a si
00F430: 67 6E 20 69 66 20 74 68 65 20 69 64 65 6E 74 69 gn if the identi
00F440: 66 69 65 72 20 69 73 20 73 69 67 6E 65 64 20 6E fier is signed n
00F450: 75 6D 65 72 69 63 2E 0D 0A 0D 0A 45 58 41 4D 50 umeric.....EXAMP
00F460: 4C 45 53 3A 20 20 41 20 4E 4F 54 20 4C 45 53 53 LES: A NOT LESS
00F470: 20 31 30 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 10...
00F480: 20 4C 49 4E 45 20 47 52 45 41 54 45 52 20 27 43 LINE GREATER 'C
00F490: 27 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4E '... N
00F4A0: 55 4D 42 31 20 4E 4F 54 20 4E 55 4D 45 52 49 43 UMB1 NOT NUMERIC
00F4B0: 0D 0A 0D 0A 0D 0A 53 75 62 73 63 72 69 70 74 69 ......Subscripti
00F4C0: 6E 67 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ng..============
00F4D0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 73 ....ELEMENT: s
00F4E0: 75 62 73 63 72 69 70 74 69 6E 67 0D 0A 0D 0A 46 ubscripting....F
00F4F0: 4F 52 4D 41 54 3A 20 20 20 20 64 61 74 61 2D 6E ORMAT: data-n
00F500: 61 6D 65 20 28 73 75 62 73 63 72 69 70 74 29 0D ame (subscript).
00F510: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
00F520: 0A 41 6E 79 20 69 74 65 6D 20 64 65 66 69 6E 65 .Any item define
00F530: 64 20 77 69 74 68 20 20 61 6E 20 20 4F 43 43 55 d with an OCCU
00F540: 52 53 20 20 6D 61 79 20 20 62 65 20 20 72 65 66 RS may be ref
00F550: 65 72 65 6E 63 65 64 20 20 62 79 20 20 61 20 73 erenced by a s
00F560: 75 62 73 63 72 69 70 74 2E 20 54 68 65 0D 0A 73 ubscript. The..s
00F570: 75 62 73 63 72 69 70 74 20 6D 61 79 20 62 65 20 ubscript may be
00F580: 61 20 6C 69 74 65 72 61 6C 20 69 6E 74 65 67 65 a literal intege
00F590: 72 2C 20 6F 72 20 69 74 20 20 6D 61 79 20 20 62 r, or it may b
00F5A0: 65 20 61 20 64 61 74 61 20 69 74 65 6D 20 74 68 e a data item th
00F5B0: 61 74 20 68 61 73 20 62 65 65 6E 0D 0A 73 70 65 at has been..spe
00F5C0: 63 69 66 69 65 64 20 61 73 20 61 6E 20 69 6E 74 cified as an int
00F5D0: 65 67 65 72 2E 20 20 20 49 66 20 20 74 68 65 20 eger. If the
00F5E0: 20 73 75 62 73 63 72 69 70 74 20 20 69 73 20 20 subscript is
00F5F0: 73 69 67 6E 65 64 2C 20 20 74 68 65 20 73 69 67 signed, the sig
00F600: 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ..====....ELEMEN
00F610: 54 3A 20 20 20 53 54 4F 50 0D 0A 0D 0A 46 4F 52 T: STOP....FOR
00F620: 4D 41 54 3A 20 20 20 20 53 54 4F 50 20 7B 52 55 MAT: STOP {RU
00F630: 4E 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 N }..
00F640: 20 20 20 20 20 20 20 7B 6C 69 74 65 72 61 6C 7D {literal}
00F650: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
00F660: 0D 0A 54 68 69 73 20 73 74 61 74 65 6D 65 6E 74 ..This statement
00F670: 20 73 74 6F 70 73 20 65 78 65 63 75 74 69 6F 6E stops execution
00F680: 20 6F 66 20 20 74 68 65 20 20 70 72 6F 67 72 61 of the progra
00F690: 6D 2E 20 20 49 66 20 61 20 6C 69 74 65 72 61 6C m. If a literal
00F6A0: 20 69 73 20 73 70 65 63 69 66 69 65 64 2C 0D 0A is specified,..
00F6B0: 74 68 65 6E 20 74 68 65 20 6C 69 74 65 72 61 6C then the literal
00F6C0: 20 69 73 20 20 64 69 73 70 6C 61 79 65 64 20 20 is displayed
00F6D0: 6F 6E 20 20 74 68 65 20 20 63 6F 6E 73 6F 6C 65 on the console
00F6E0: 20 20 61 6E 64 20 20 61 20 70 72 6F 6D 70 74 20 and a prompt
00F6F0: 69 73 20 64 69 73 70 6C 61 79 65 64 0D 0A 67 69 is displayed..gi
00F700: 76 69 6E 67 20 20 74 68 65 20 20 6F 70 65 72 61 ving the opera
00F710: 74 6F 72 20 20 74 68 65 20 20 6F 70 74 69 6F 6E tor the option
00F720: 20 20 6F 66 20 20 74 65 72 6D 69 6E 61 74 69 6E of terminatin
00F730: 67 20 20 6F 72 20 20 63 6F 6E 74 69 6E 75 69 6E g or continuin
00F740: 67 20 20 70 72 6F 67 72 61 6D 0D 0A 65 78 65 63 g program..exec
00F750: 75 74 69 6F 6E 2E 0D 0A 0D 0A 45 58 41 4D 50 4C ution.....EXAMPL
00F760: 45 53 3A 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A ES: STOP RUN...
00F770: 20 20 20 20 20 20 20 20 20 20 20 53 54 4F 50 20 STOP
00F780: 31 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 1... S
00F790: 54 4F 50 20 27 49 4E 56 41 4C 49 44 20 46 49 4E TOP 'INVALID FIN
00F7A0: 49 53 48 27 2E 0D 0A 0D 0A 46 6F 72 20 74 68 65 ISH'.....For the
00F7B0: 20 6C 61 73 74 20 74 77 6F 20 65 78 61 6D 70 6C last two exampl
00F7C0: 65 73 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 es the following
00F7D0: 20 70 72 6F 6D 70 74 20 69 73 20 64 69 73 70 6C prompt is displ
00F7E0: 61 79 65 64 3A 0D 0A 0D 0A 20 20 20 20 20 4F 50 ayed:.... OP
00F7F0: 45 52 41 54 4F 52 20 45 4E 54 45 52 20 41 20 3C ERATOR ENTER A <
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 01 00 02 09 52 E5 0D 00 C1 02 00 00 00 02 ......R.........
00F820: 0D 00 C6 02 00 00 00 02 0D 00 C2 02 00 00 00 02 ................
00F830: 0D 00 C7 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F840: 0D 00 C8 02 00 00 00 02 0D 00 C4 02 00 00 00 02 ................
00F850: 0D 00 C9 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 6E 20 6D 75 73 74 20 62 65 0D 0A 70 6F 73 69 74 n must be..posit
00F910: 69 76 65 20 61 74 20 74 68 65 20 74 69 6D 65 20 ive at the time
00F920: 6F 66 20 69 74 73 20 75 73 65 2E 0D 0A 0D 0A 45 of its use.....E
00F930: 58 41 4D 50 4C 45 53 3A 20 20 41 28 31 30 29 0D XAMPLES: A(10).
00F940: 0A 20 20 20 20 20 20 20 20 20 20 20 49 54 45 4D . ITEM
00F950: 28 53 55 42 29 0D 0A 0D 0A 0D 0A 0D 0A 56 49 49 (SUB)........VII
00F960: 2E 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 53 . ERROR MESSAGES
00F970: 0D 0A 0D 0A 41 2E 20 43 6F 6D 70 69 6C 65 72 20 ....A. Compiler
00F980: 46 61 74 61 6C 20 4D 65 73 73 61 67 65 73 0D 0A Fatal Messages..
00F990: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00F9A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 42 52 ==========....BR
00F9B0: 20 20 42 61 64 20 72 65 61 64 20 2D 20 64 69 73 Bad read - dis
00F9C0: 6B 20 65 72 72 6F 72 2C 20 6E 6F 20 63 6F 72 72 k error, no corr
00F9D0: 65 63 74 69 76 65 20 61 63 74 69 6F 6E 20 63 61 ective action ca
00F9E0: 6E 20 62 65 20 74 61 6B 65 6E 20 69 6E 20 74 68 n be taken in th
00F9F0: 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 43 4C e program.....CL
00FA00: 20 20 43 6C 6F 73 65 20 65 72 72 6F 72 20 2D 20 Close error -
00FA10: 75 6E 61 62 6C 65 20 74 6F 20 63 6C 6F 73 65 20 unable to close
00FA20: 74 68 65 20 6F 75 74 70 75 74 20 66 69 6C 65 2E the output file.
00FA30: 0D 0A 0D 0A 4D 41 20 20 4D 61 6B 65 20 65 72 72 ....MA Make err
00FA40: 6F 72 20 2D 20 63 6F 75 6C 64 20 6E 6F 74 20 63 or - could not c
00FA50: 72 65 61 74 65 20 74 68 65 20 6F 75 74 70 75 74 reate the output
00FA60: 20 66 69 6C 65 2E 0D 0A 0D 0A 4D 4F 20 20 4D 65 file.....MO Me
00FA70: 6D 6F 72 79 20 6F 76 65 72 66 6C 6F 77 20 2D 20 mory overflow -
00FA80: 74 68 65 20 63 6F 64 65 20 61 6E 64 20 63 6F 6E the code and con
00FA90: 73 74 61 6E 74 73 20 67 65 6E 65 72 61 74 65 64 stants generated
00FAA0: 20 77 69 6C 6C 20 6E 6F 74 20 66 69 74 20 69 6E will not fit in
00FAB0: 20 74 68 65 0D 0A 20 20 20 20 20 61 6C 6C 6F 74 the.. allot
00FAC0: 74 65 64 20 6D 65 6D 6F 72 79 20 73 70 61 63 65 ted memory space
00FAD0: 2E 0D 0A 0D 0A 4F 50 20 20 4F 70 65 6E 20 65 72 .....OP Open er
00FAE0: 72 6F 72 20 2D 20 63 61 6E 20 6E 6F 74 20 6F 70 ror - can not op
00FAF0: 65 6E 20 74 68 65 20 69 6E 70 75 74 20 66 69 6C en the input fil
00FB00: 63 65 65 64 73 20 33 30 3F 20 63 68 61 72 61 63 ceeds 30? charac
00FB10: 74 65 72 73 2E 0D 0A 0D 0A 50 31 20 20 4D 6F 72 ters.....P1 Mor
00FB20: 65 20 74 68 61 6E 20 6F 6E 65 20 66 6C 6F 61 74 e than one float
00FB30: 20 73 79 6D 62 6F 6C 20 64 65 63 6C 61 72 65 64 symbol declared
00FB40: 2E 0D 0A 0D 0A 50 32 20 20 4E 6F 6E 2D 6E 75 6D .....P2 Non-num
00FB50: 65 72 69 63 20 64 61 74 61 20 69 6E 20 72 65 70 eric data in rep
00FB60: 65 74 69 74 69 6F 6E 20 63 6C 61 75 73 65 20 6F etition clause o
00FB70: 72 20 6D 69 73 73 69 6E 67 20 72 69 67 68 74 20 r missing right
00FB80: 70 61 72 65 6E 74 68 65 73 69 73 2E 0D 0A 0D 0A parenthesis.....
00FB90: 50 33 20 20 49 6E 76 61 6C 69 64 20 6F 72 20 69 P3 Invalid or i
00FBA0: 6E 63 6F 6D 70 61 74 69 62 6C 65 20 73 79 6D 62 ncompatible symb
00FBB0: 6F 6C 20 69 6E 20 70 69 63 20 63 6C 61 75 73 65 ol in pic clause
00FBC0: 2E 0D 0A 0D 0A 50 34 20 20 49 6E 76 61 6C 69 64 .....P4 Invalid
00FBD0: 20 73 79 6D 62 6F 6C 28 73 29 20 65 6D 62 65 64 symbol(s) embed
00FBE0: 64 65 64 20 77 69 74 68 69 6E 20 61 20 66 6C 6F ded within a flo
00FBF0: 61 74 20 73 79 6D 62 6F 6C 20 6F 6E 6C 79 20 2F at symbol only /
00FC00: 2C 4F 2C 42 2C 27 2C 27 20 61 6C 6C 6F 77 65 64 ,O,B,',' allowed
00FC10: 2E 0D 0A 0D 0A 50 35 20 20 49 6E 76 61 6C 69 64 .....P5 Invalid
00FC20: 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 20 6F 66 20 combination of
00FC30: 73 79 6D 62 6F 6C 73 20 69 6E 20 70 69 63 20 63 symbols in pic c
00FC40: 6C 61 75 73 65 2C 20 74 79 70 65 20 63 61 6E 6E lause, type cann
00FC50: 6F 74 20 62 65 20 64 65 74 65 72 6D 69 6E 65 64 ot be determined
00FC60: 2E 0D 0A 0D 0A 50 36 20 20 4E 75 6D 62 65 72 20 .....P6 Number
00FC70: 6F 66 20 70 6F 73 73 69 62 6C 65 20 6E 75 6D 65 of possible nume
00FC80: 72 69 63 20 65 6E 74 72 69 65 73 20 65 78 63 65 ric entries exce
00FC90: 65 64 73 20 72 65 67 69 73 74 65 72 20 6C 65 6E eds register len
00FCA0: 67 74 68 20 6D 61 78 20 69 73 20 31 38 2E 0D 0A gth max is 18...
00FCB0: 0D 0A 50 46 20 20 50 61 72 61 67 72 61 70 68 20 ..PF Paragraph
00FCC0: 66 69 72 73 74 20 2D 20 61 20 73 65 63 74 69 6F first - a sectio
00FCD0: 6E 20 68 65 61 64 65 72 20 77 61 73 20 70 72 6F n header was pro
00FCE0: 64 75 63 65 64 20 61 66 74 65 72 20 61 20 70 61 duced after a pa
00FCF0: 72 61 67 72 61 70 68 0D 0A 20 20 20 20 20 68 65 ragraph.. he
00FD00: 65 2C 20 6F 72 20 6E 6F 20 73 75 63 68 20 66 69 e, or no such fi
00FD10: 6C 65 20 70 72 65 73 65 6E 74 2E 0D 0A 0D 0A 53 le present.....S
00FD20: 4F 20 20 53 74 61 63 6B 20 6F 76 65 72 66 6C 6F O Stack overflo
00FD30: 77 20 2D 20 4C 41 4C 52 20 28 31 29 20 70 61 72 w - LALR (1) par
00FD40: 73 69 6E 67 20 73 74 61 63 6B 20 68 61 73 20 65 sing stack has e
00FD50: 78 63 65 65 64 65 64 20 69 74 73 20 6D 61 78 69 xceeded its maxi
00FD60: 6D 75 6D 0D 0A 20 20 20 20 20 61 6C 6C 6F 77 61 mum.. allowa
00FD70: 62 6C 65 20 73 69 7A 65 2E 0D 0A 0D 0A 53 54 20 ble size.....ST
00FD80: 20 53 79 6D 62 6F 6C 20 74 61 62 6C 65 20 6F 76 Symbol table ov
00FD90: 65 72 66 6C 6F 77 20 2D 20 74 68 65 20 74 61 62 erflow - the tab
00FDA0: 6C 65 20 69 73 20 74 6F 6F 20 6C 61 72 67 65 20 le is too large
00FDB0: 66 6F 72 20 74 68 65 20 61 6C 6C 6F 63 61 74 65 for the allocate
00FDC0: 64 20 73 70 61 63 65 2E 0D 0A 0D 0A 57 52 20 20 d space.....WR
00FDD0: 57 72 69 74 65 20 65 72 72 6F 72 20 2D 20 64 69 Write error - di
00FDE0: 73 6B 20 65 72 72 6F 72 2C 20 63 6F 75 6C 64 20 sk error, could
00FDF0: 6E 6F 74 20 77 72 69 74 65 20 61 20 63 6F 64 65 not write a code
00FE00: 20 72 65 63 6F 72 64 20 74 6F 20 74 68 65 20 64 record to the d
00FE10: 69 73 6B 2E 0D 0A 0D 0A 0D 0A 42 2E 20 43 6F 6D isk.......B. Com
00FE20: 70 69 6C 65 72 20 57 61 72 6E 69 6E 67 73 0D 0A piler Warnings..
00FE30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
00FE40: 3D 3D 3D 3D 0D 0A 0D 0A 44 44 20 20 43 61 72 72 ====....DD Carr
00FE50: 69 61 67 65 20 43 6F 6E 74 72 6F 6C 20 65 72 72 iage Control err
00FE60: 6F 72 20 2D 20 54 68 65 20 57 52 49 54 45 20 42 or - The WRITE B
00FE70: 45 46 4F 52 45 2F 41 46 54 45 52 20 41 44 56 41 EFORE/AFTER ADVA
00FE80: 4E 43 49 4E 47 20 6F 70 74 69 6F 6E 20 63 61 6E NCING option can
00FE90: 0D 0A 20 20 20 20 20 6F 6E 6C 79 20 62 65 20 75 .. only be u
00FEA0: 73 65 64 20 77 69 74 68 20 73 65 71 75 65 6E 74 sed with sequent
00FEB0: 69 61 6C 20 66 69 6C 65 73 2E 0D 0A 0D 0A 43 45 ial files.....CE
00FEC0: 20 20 43 6C 6F 73 65 20 65 72 72 6F 72 20 2D 20 Close error -
00FED0: 61 74 74 65 6D 70 74 65 64 20 74 6F 20 63 6C 6F attempted to clo
00FEE0: 73 65 20 61 20 6E 6F 6E 2D 65 78 69 73 74 69 6E se a non-existin
00FEF0: 67 20 66 69 6C 65 2E 0D 0A 0D 0A 44 44 20 20 44 g file.....DD D
00FF00: 61 64 65 72 2C 20 77 68 69 63 68 20 69 73 20 6E ader, which is n
00FF10: 6F 74 20 69 6E 20 61 20 73 65 63 74 69 6F 6E 2E ot in a section.
00FF20: 0D 0A 0D 0A 52 31 20 20 52 65 64 65 66 69 6E 65 ....R1 Redefine
00FF30: 20 6E 65 73 74 69 6E 67 20 2D 20 61 20 72 65 64 nesting - a red
00FF40: 65 66 69 6E 69 74 69 6F 6E 20 77 61 73 20 6D 61 efinition was ma
00FF50: 64 65 20 66 6F 72 20 61 6E 20 69 74 65 6D 20 77 de for an item w
00FF60: 68 69 63 68 20 69 73 20 70 61 72 74 20 6F 66 0D hich is part of.
00FF70: 0A 20 20 20 20 20 61 20 72 65 64 65 66 69 6E 65 . a redefine
00FF80: 64 20 69 74 65 6D 2E 0D 0A 0D 0A 52 32 20 20 52 d item.....R2 R
00FF90: 65 64 65 66 69 6E 65 20 6C 65 6E 67 74 68 20 2D edefine length -
00FFA0: 20 74 68 65 20 6C 65 6E 67 74 68 20 6F 66 20 74 the length of t
00FFB0: 68 65 20 72 65 64 65 66 69 6E 69 74 69 6F 6E 20 he redefinition
00FFC0: 69 74 65 6D 20 77 61 73 20 67 72 65 61 74 65 72 item was greater
00FFD0: 20 74 68 61 6E 0D 0A 20 20 20 20 20 74 68 65 20 than.. the
00FFE0: 69 74 65 6D 20 74 68 61 74 20 69 73 20 72 65 64 item that is red
00FFF0: 65 66 69 6E 65 64 2E 20 20 54 68 61 74 20 69 73 efined. That is
010000: 20 6F 6E 6C 79 20 61 6C 6C 6F 77 65 64 20 61 74 only allowed at
010010: 20 74 68 65 20 30 31 20 6C 65 76 65 6C 2E 20 54 the 01 level. T
010020: 68 69 73 0D 0A 20 20 20 20 20 65 72 72 6F 72 20 his.. error
010030: 6D 65 73 73 61 67 65 20 6D 61 79 20 62 65 20 70 message may be p
010040: 72 69 6E 74 65 64 20 6F 75 74 20 6F 6E 65 20 69 rinted out one i
010050: 64 65 6E 74 69 66 69 65 72 20 70 61 73 74 20 74 dentifier past t
010060: 68 65 20 72 65 64 65 66 69 6E 69 6E 67 0D 0A 20 he redefining..
010070: 20 20 20 20 69 64 65 6E 74 69 66 69 65 72 20 72 identifier r
010080: 65 63 6F 72 64 20 69 6E 20 77 68 69 63 68 20 69 ecord in which i
010090: 74 20 6F 63 63 75 72 72 65 64 2E 0D 0A 0D 0A 52 t occurred.....R
0100A0: 33 20 20 52 65 64 65 66 69 6E 65 73 20 6D 69 73 3 Redefines mis
0100B0: 70 6C 61 63 65 64 20 2D 20 61 20 72 65 64 65 66 placed - a redef
0100C0: 69 6E 65 73 20 77 61 73 20 61 74 74 65 6D 70 74 ines was attempt
0100D0: 65 64 20 69 6E 20 74 68 65 20 46 49 4C 45 20 53 ed in the FILE S
0100E0: 45 43 54 49 4F 4E 20 6F 66 0D 0A 20 20 20 20 20 ECTION of..
0100F0: 74 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 the source progr
010100: 75 70 6C 69 63 61 74 65 20 44 65 63 6C 61 72 61 uplicate Declara
010110: 74 69 6F 6E 20 2D 20 74 68 65 20 69 64 65 6E 74 tion - the ident
010120: 69 66 69 65 72 20 6E 61 6D 65 20 68 61 73 20 62 ifier name has b
010130: 65 65 6E 20 70 72 65 76 69 6F 75 73 6C 79 0D 0A een previously..
010140: 20 20 20 20 20 64 65 63 6C 61 72 65 64 2E 0D 0A declared...
010150: 0D 0A 45 4C 20 20 45 78 74 72 61 20 6C 65 76 65 ..EL Extra leve
010160: 6C 73 20 2D 20 6F 6E 6C 79 20 31 30 20 61 72 65 ls - only 10 are
010170: 20 61 6C 6C 6F 77 65 64 2E 0D 0A 0D 0A 46 54 20 allowed.....FT
010180: 20 46 69 6C 65 20 74 79 70 65 20 2D 20 74 68 65 File type - the
010190: 20 64 61 74 61 20 65 6C 65 6D 65 6E 74 20 75 73 data element us
0101A0: 65 64 20 69 6E 20 61 20 72 65 61 64 20 6F 72 20 ed in a read or
0101B0: 77 72 69 74 65 20 73 74 61 74 65 6D 65 6E 74 20 write statement
0101C0: 69 73 20 6E 6F 74 20 61 0D 0A 20 20 20 20 20 66 is not a.. f
0101D0: 69 6C 65 20 6E 61 6D 65 2E 0D 0A 0D 0A 49 41 20 ile name.....IA
0101E0: 20 49 6E 76 61 6C 69 64 20 61 63 63 65 73 73 20 Invalid access
0101F0: 2D 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 - the specified
010200: 6F 70 74 69 6F 6E 73 20 61 72 65 20 6E 6F 74 20 options are not
010210: 61 6E 20 61 6C 6C 6F 77 61 62 6C 65 20 63 6F 6D an allowable com
010220: 62 69 6E 61 74 69 6F 6E 2E 0D 0A 0D 0A 49 44 20 bination.....ID
010230: 20 49 64 65 6E 74 69 66 69 65 72 20 73 74 61 63 Identifier stac
010240: 6B 20 6F 76 65 72 66 6C 6F 77 20 2D 20 6D 6F 72 k overflow - mor
010250: 65 20 74 68 61 6E 20 32 30 20 69 74 65 6D 73 20 e than 20 items
010260: 69 6E 20 61 20 47 4F 20 2D 20 44 45 50 45 4E 44 in a GO - DEPEND
010270: 49 4E 47 0D 0A 20 20 20 20 20 73 74 61 74 65 6D ING.. statem
010280: 65 6E 74 2E 0D 0A 0D 0A 49 53 20 20 49 6E 76 61 ent.....IS Inva
010290: 6C 69 64 20 73 75 62 73 63 72 69 70 74 20 2D 20 lid subscript -
0102A0: 61 6E 20 69 74 65 6D 20 77 61 73 20 73 75 62 73 an item was subs
0102B0: 63 72 69 70 74 65 64 20 62 75 74 20 69 74 20 77 cripted but it w
0102C0: 61 73 20 6E 6F 74 20 64 65 66 69 6E 65 64 20 62 as not defined b
0102D0: 79 20 61 6E 0D 0A 20 20 20 20 20 4F 43 43 55 52 y an.. OCCUR
0102E0: 53 2E 0D 0A 0D 0A 49 54 20 20 49 6E 76 61 6C 69 S.....IT Invali
0102F0: 64 20 74 79 70 65 20 2D 20 74 68 65 20 66 69 65 d type - the fie
010300: 61 6D 2E 0D 0A 0D 0A 53 45 20 20 53 63 61 6E 6E am.....SE Scann
010310: 65 72 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 er error - the s
010320: 63 61 6E 6E 65 72 20 77 61 73 20 75 6E 61 62 6C canner was unabl
010330: 65 20 74 6F 20 72 65 61 64 20 61 6E 20 69 64 65 e to read an ide
010340: 6E 74 69 66 69 65 72 20 64 75 65 20 74 6F 20 61 ntifier due to a
010350: 6E 0D 0A 20 20 20 20 20 69 6E 76 61 6C 69 64 20 n.. invalid
010360: 63 68 61 72 61 63 74 65 72 2E 0D 0A 0D 0A 53 47 character.....SG
010370: 20 20 53 69 67 6E 20 65 72 72 6F 72 20 2D 20 65 Sign error - e
010380: 69 74 68 65 72 20 61 20 73 69 67 6E 20 77 61 73 ither a sign was
010390: 20 65 78 70 65 63 74 65 64 20 61 6E 64 20 6E 6F expected and no
0103A0: 74 20 66 6F 75 6E 64 2C 20 6F 72 20 61 20 73 69 t found, or a si
0103B0: 67 6E 20 77 61 73 0D 0A 20 20 20 20 20 70 72 65 gn was.. pre
0103C0: 73 65 6E 74 20 77 68 65 6E 20 6E 6F 74 20 76 61 sent when not va
0103D0: 6C 69 64 2E 0D 0A 0D 0A 53 4C 20 20 53 69 67 6E lid.....SL Sign
0103E0: 69 66 69 63 61 6E 63 65 20 6C 6F 73 73 20 2D 20 ificance loss -
0103F0: 74 68 65 20 6E 75 6D 62 65 72 20 61 73 73 69 67 the number assig
010400: 6E 65 64 20 61 73 20 61 20 76 61 6C 75 65 20 69 ned as a value i
010410: 73 20 6C 61 72 67 65 72 20 74 68 61 6E 20 74 68 s larger than th
010420: 65 0D 0A 20 20 20 20 20 66 69 65 6C 64 20 64 65 e.. field de
010430: 66 69 6E 65 64 2E 0D 0A 0D 0A 54 45 20 20 54 79 fined.....TE Ty
010440: 70 65 20 65 72 72 6F 72 20 2D 20 74 68 65 20 74 pe error - the t
010450: 79 70 65 20 6F 66 20 61 20 73 75 62 73 63 72 69 ype of a subscri
010460: 70 74 20 69 6E 64 65 78 20 69 73 20 6E 6F 74 20 pt index is not
010470: 69 6E 74 65 67 65 72 20 6E 75 6D 65 72 69 63 2E integer numeric.
010480: 0D 0A 0D 0A 55 44 20 20 55 6E 64 65 63 6C 61 72 ....UD Undeclar
010490: 65 64 20 69 64 65 6E 74 69 66 69 65 72 20 2D 20 ed identifier -
0104A0: 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 77 the identifier w
0104B0: 61 73 20 6E 6F 74 20 64 65 63 6C 61 72 65 64 2E as not declared.
0104C0: 0D 0A 0D 0A 55 4C 20 20 55 6E 72 65 73 6F 6C 76 ....UL Unresolv
0104D0: 65 64 20 6C 61 62 65 6C 20 2D 20 6C 61 62 65 6C ed label - label
0104E0: 20 68 61 73 20 6E 6F 74 20 62 65 65 6E 20 72 65 has not been re
0104F0: 66 65 72 65 6E 63 65 64 2E 20 54 68 69 73 20 77 ferenced. This w
010500: 6C 64 20 74 79 70 65 73 20 64 6F 20 6E 6F 74 20 ld types do not
010510: 6D 61 74 63 68 20 66 6F 72 20 74 68 69 73 20 73 match for this s
010520: 74 61 74 65 6D 65 6E 74 2E 0D 0A 0D 0A 4C 45 20 tatement.....LE
010530: 20 4C 69 74 65 72 61 6C 20 65 72 72 6F 72 20 2D Literal error -
010540: 20 61 20 6C 69 74 65 72 61 6C 20 76 61 6C 75 65 a literal value
010550: 20 77 61 73 20 61 73 73 69 67 6E 65 64 20 74 6F was assigned to
010560: 20 61 6E 20 69 74 65 6D 20 74 68 61 74 20 69 73 an item that is
010570: 20 70 61 72 74 20 6F 66 0D 0A 20 20 20 20 20 61 part of.. a
010580: 20 67 72 6F 75 70 20 69 74 65 6D 20 70 72 65 76 group item prev
010590: 69 6F 75 73 6C 79 20 61 73 73 69 67 6E 65 64 20 iously assigned
0105A0: 61 20 76 61 6C 75 65 2E 0D 0A 0D 0A 4C 56 20 20 a value.....LV
0105B0: 4C 69 74 65 72 61 6C 20 76 61 6C 75 65 20 65 72 Literal value er
0105C0: 72 6F 72 20 2D 20 74 68 65 20 50 49 43 54 55 52 ror - the PICTUR
0105D0: 45 20 63 6C 61 75 73 65 20 66 69 65 6C 64 20 74 E clause field t
0105E0: 79 70 65 20 64 6F 65 73 20 6E 6F 74 20 6D 61 74 ype does not mat
0105F0: 63 68 20 74 68 65 0D 0A 20 20 20 20 20 56 41 4C ch the.. VAL
010600: 55 45 20 63 6C 61 75 73 65 20 6C 69 74 65 72 61 UE clause litera
010610: 6C 20 74 79 70 65 2E 0D 0A 0D 0A 4C 37 20 20 4C l type.....L7 L
010620: 65 76 65 6C 20 37 37 20 65 72 72 6F 72 20 2D 20 evel 77 error -
010630: 6C 65 76 65 6C 20 37 37 20 75 73 65 64 20 69 6E level 77 used in
010640: 63 6F 72 72 65 63 74 6C 79 2E 0D 0A 0D 0A 4D 44 correctly.....MD
010650: 20 20 4D 75 6C 74 69 70 6C 65 20 64 65 63 69 6D Multiple decim
010660: 61 6C 73 20 2D 20 61 20 6E 75 6D 65 72 69 63 20 als - a numeric
010670: 6C 69 74 65 72 61 6C 20 69 6E 20 61 20 56 41 4C literal in a VAL
010680: 55 45 20 63 6C 61 75 73 65 20 63 6F 6E 74 61 69 UE clause contai
010690: 6E 73 20 6D 6F 72 65 0D 0A 20 20 20 20 20 74 68 ns more.. th
0106A0: 61 6E 20 6F 6E 65 20 73 69 67 6E 2E 0D 0A 0D 0A an one sign.....
0106B0: 4E 46 20 20 4E 6F 20 66 69 6C 65 20 61 73 73 69 NF No file assi
0106C0: 67 6E 65 64 20 2D 20 74 68 65 72 65 20 77 61 73 gned - there was
0106D0: 20 6E 6F 20 53 45 4C 45 43 54 20 63 6C 61 75 73 no SELECT claus
0106E0: 65 20 66 6F 72 20 74 68 69 73 20 66 69 6C 65 2E e for this file.
0106F0: 0D 0A 0D 0A 4E 49 20 20 4E 6F 74 20 69 6D 70 6C ....NI Not impl
010700: 61 72 6E 69 6E 67 20 77 69 6C 6C 20 62 65 0D 0A arning will be..
010710: 20 20 20 20 20 67 69 76 65 6E 20 74 6F 20 61 6C given to al
010720: 6C 20 72 65 66 65 72 65 6E 63 65 73 20 74 6F 20 l references to
010730: 65 78 74 65 72 6E 61 6C 20 73 75 62 72 6F 75 74 external subrout
010740: 69 6E 65 73 2E 0D 0A 0D 0A 56 45 20 20 56 61 6C ines.....VE Val
010750: 75 65 20 65 72 72 6F 72 20 2D 20 61 20 76 61 6C ue error - a val
010760: 75 65 20 73 74 61 74 65 6D 65 6E 74 20 77 61 73 ue statement was
010770: 20 61 73 73 69 67 6E 65 64 20 74 6F 20 61 6E 20 assigned to an
010780: 69 74 65 6D 20 69 6E 20 74 68 65 20 66 69 6C 65 item in the file
010790: 0D 0A 20 20 20 20 20 73 65 63 74 69 6F 6E 2E 0D .. section..
0107A0: 0A 0D 0A 57 4C 20 20 57 72 6F 6E 67 20 6C 65 76 ...WL Wrong lev
0107B0: 65 6C 20 65 72 72 6F 72 20 2D 20 70 72 6F 67 72 el error - progr
0107C0: 61 6D 20 61 74 74 65 6D 70 74 65 64 20 74 6F 20 am attempted to
0107D0: 77 72 69 74 65 20 61 20 72 65 63 6F 72 64 20 6F write a record o
0107E0: 74 68 65 72 20 74 68 61 6E 20 61 6E 0D 0A 20 20 ther than an..
0107F0: 20 20 20 30 31 20 6C 65 76 65 6C 20 72 65 63 6F 01 level reco
010800: 72 64 20 74 6F 20 61 6E 20 6F 75 74 70 75 74 20 rd to an output
010810: 66 69 6C 65 2E 0D 0A 0D 0A 0D 0A 43 2E 20 49 6E file.......C. In
010820: 74 65 72 70 72 65 74 65 72 20 46 61 74 61 6C 20 terpreter Fatal
010830: 45 72 72 6F 72 73 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D Errors..========
010840: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
010850: 3D 3D 3D 0D 0A 0D 0A 43 4C 20 20 43 6C 6F 73 65 ===....CL Close
010860: 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 error - the sys
010870: 74 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 tem was unable t
010880: 6F 20 63 6C 6F 73 65 20 61 6E 20 6F 75 74 70 75 o close an outpu
010890: 74 20 66 69 6C 65 2E 0D 0A 0D 0A 43 4F 20 20 43 t file.....CO C
0108A0: 61 6C 6C 20 73 74 61 63 6B 20 4F 76 65 72 66 6C all stack Overfl
0108B0: 6F 77 20 2D 20 69 6E 73 75 66 66 69 63 69 65 6E ow - insufficien
0108C0: 74 20 6D 65 6D 6F 72 79 20 61 76 61 69 6C 61 62 t memory availab
0108D0: 6C 65 20 74 6F 20 74 72 61 6E 73 66 65 72 20 76 le to transfer v
0108E0: 61 72 69 61 62 6C 65 0D 0A 20 20 20 20 20 61 64 ariable.. ad
0108F0: 64 72 65 73 73 27 20 61 6E 64 2F 6F 72 20 72 65 dress' and/or re
010900: 65 6D 65 6E 74 65 64 20 2D 20 61 20 70 72 6F 64 emented - a prod
010910: 75 63 74 69 6F 6E 20 77 61 73 20 75 73 65 64 20 uction was used
010920: 74 68 61 74 20 69 73 20 6E 6F 74 20 69 6D 70 6C that is not impl
010930: 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 4E 50 20 20 emented.....NP
010940: 4E 6F 20 70 72 6F 64 75 63 74 69 6F 6E 20 2D 20 No production -
010950: 6E 6F 20 70 72 6F 64 75 63 74 69 6F 6E 20 65 78 no production ex
010960: 69 73 74 73 20 66 6F 72 20 74 68 65 20 63 75 72 ists for the cur
010970: 72 65 6E 74 20 70 61 72 73 65 72 0D 0A 20 20 20 rent parser..
010980: 20 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 3B configuration;
010990: 20 20 65 72 72 6F 72 20 72 65 63 6F 76 65 72 79 error recovery
0109A0: 20 77 69 6C 6C 20 61 75 74 6F 6D 61 74 69 63 61 will automatica
0109B0: 6C 6C 79 20 6F 63 63 75 72 2E 0D 0A 0D 0A 4E 56 lly occur.....NV
0109C0: 20 20 4E 75 6D 65 72 69 63 20 76 61 6C 75 65 20 Numeric value
0109D0: 2D 20 61 20 6E 75 6D 65 72 69 63 20 76 61 6C 75 - a numeric valu
0109E0: 65 20 77 61 73 20 61 73 73 69 67 6E 65 64 20 74 e was assigned t
0109F0: 6F 20 61 20 6E 6F 6E 2D 6E 75 6D 65 72 69 63 20 o a non-numeric
010A00: 69 74 65 6D 2E 0D 0A 0D 0A 4F 45 20 20 4F 70 65 item.....OE Ope
010A10: 6E 20 65 72 72 6F 72 20 2D 20 61 74 74 65 6D 70 n error - attemp
010A20: 74 20 74 6F 20 6F 70 65 6E 20 61 20 66 69 6C 65 t to open a file
010A30: 20 74 68 61 74 20 77 61 73 20 6E 6F 74 20 64 65 that was not de
010A40: 63 6C 61 72 65 64 3B 20 6F 72 20 61 74 74 65 6D clared; or attem
010A50: 70 74 65 64 0D 0A 20 20 20 20 20 74 6F 20 6F 70 pted.. to op
010A60: 65 6E 20 61 20 66 69 6C 65 20 66 6F 72 20 49 2D en a file for I-
010A70: 4F 20 74 68 61 74 20 77 61 73 20 6E 6F 74 20 61 O that was not a
010A80: 20 52 45 4C 41 54 49 56 45 20 66 69 6C 65 2E 0D RELATIVE file..
010A90: 0A 0D 0A 4F 4C 20 20 4F 43 43 55 52 53 20 4C 45 ...OL OCCURS LE
010AA0: 56 45 4C 20 2D 20 30 31 20 61 6E 64 20 37 37 20 VEL - 01 and 77
010AB0: 6C 65 76 65 6C 73 20 63 61 6E 20 6E 6F 74 20 63 levels can not c
010AC0: 6F 6E 74 61 69 6E 20 61 6E 20 6F 63 63 75 72 73 ontain an occurs
010AD0: 20 63 6C 61 75 73 65 2E 0D 0A 0D 0A 50 43 20 20 clause.....PC
010AE0: 50 69 63 74 75 72 65 20 63 6C 61 75 73 65 20 2D Picture clause -
010AF0: 20 61 20 70 69 63 20 63 6C 61 75 73 65 20 65 78 a pic clause ex
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 01 00 02 09 52 E5 0E 00 C1 02 00 00 00 02 ......R.........
010B20: 0E 00 C6 02 00 00 00 02 0E 00 C2 02 00 00 00 02 ................
010B30: 0E 00 C7 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B40: 0E 00 C8 02 00 00 00 02 0E 00 C4 02 00 00 00 02 ................
010B50: 0E 00 C9 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 74 75 72 6E 20 6C 6F 63 61 74 69 6F 6E 20 66 6F turn location fo
010C10: 72 20 61 20 73 75 62 72 6F 75 74 69 6E 65 20 63 r a subroutine c
010C20: 61 6C 6C 2E 0D 0A 0D 0A 4D 45 20 20 4D 61 6B 65 all.....ME Make
010C30: 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 error - the sys
010C40: 74 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 tem was unable t
010C50: 6F 20 6D 61 6B 65 20 61 6E 20 6F 75 74 70 75 74 o make an output
010C60: 20 66 69 6C 65 20 6F 6E 20 74 68 65 20 64 69 73 file on the dis
010C70: 6B 2E 0D 0A 0D 0A 4E 46 20 20 4E 6F 20 66 69 6C k.....NF No fil
010C80: 65 20 2D 20 61 6E 20 69 6E 70 75 74 20 66 69 6C e - an input fil
010C90: 65 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6E e with the given
010CA0: 20 6E 61 6D 65 20 63 6F 75 6C 64 20 6E 6F 74 20 name could not
010CB0: 62 65 20 6F 70 65 6E 65 64 2E 0D 0A 0D 0A 4F 45 be opened.....OE
010CC0: 20 20 4F 70 65 6E 20 45 72 72 6F 72 20 2D 20 61 Open Error - a
010CD0: 74 74 65 6D 70 74 20 74 6F 20 6F 70 65 6E 20 61 ttempt to open a
010CE0: 20 66 69 6C 65 20 77 68 69 63 68 20 77 61 73 20 file which was
010CF0: 61 6C 72 65 61 64 79 20 6F 70 65 6E 2E 0D 0A 0D already open....
010D00: 0A 4F 50 20 20 4F 70 65 6E 20 45 72 72 6F 72 20 .OP Open Error
010D10: 2D 20 74 68 65 20 73 79 73 74 65 6D 20 77 61 73 - the system was
010D20: 20 75 6E 61 62 6C 65 20 74 6F 20 6F 70 65 6E 20 unable to open
010D30: 61 20 66 69 6C 65 2E 0D 0A 0D 0A 50 53 20 20 50 a file.....PS P
010D40: 72 6F 63 65 64 75 72 65 20 53 74 61 63 6B 20 2D rocedure Stack -
010D50: 20 6E 6F 74 20 65 6E 6F 75 67 68 20 6D 65 6D 6F not enough memo
010D60: 72 79 20 74 6F 20 6C 6F 61 64 20 61 6C 6C 20 73 ry to load all s
010D70: 75 62 72 6F 75 74 69 6E 65 73 2E 0D 0A 0D 0A 53 ubroutines.....S
010D80: 4F 20 20 53 75 62 72 6F 75 74 69 6E 65 20 4F 76 O Subroutine Ov
010D90: 65 72 66 6C 6F 77 20 2D 20 73 75 62 72 6F 75 74 erflow - subrout
010DA0: 69 6E 65 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 ine symbol table
010DB0: 20 6F 76 65 72 66 6C 6F 77 2E 0D 0A 0D 0A 57 31 overflow.....W1
010DC0: 20 20 57 72 69 74 65 20 6E 6F 6E 2D 73 65 71 75 Write non-sequ
010DD0: 65 6E 74 69 61 6C 20 2D 20 61 74 74 65 6D 70 74 ential - attempt
010DE0: 65 64 20 74 6F 20 57 52 49 54 45 20 74 6F 20 61 ed to WRITE to a
010DF0: 20 66 69 6C 65 20 6F 70 65 6E 65 64 20 66 6F 72 file opened for
010E00: 00 01 C0 4F 50 45 4E 49 4E 47 20 4D 45 4E 55 20 ...OPENING MENU
010E10: 53 43 52 45 45 4E 00 07 00 AA 00 01 C0 00 07 00 SCREEN..........
010E20: B4 00 AD 10 00 23 00 BE 00 A9 19 1C 2C 0F 01 BF .....#......,...
010E30: 22 44 49 53 43 20 43 4F 4E 54 45 4E 54 53 20 50 "DISC CONTENTS P
010E40: 52 4F 47 52 41 4D 22 00 23 00 C8 00 A9 19 1C 2C ROGRAM".#......,
010E50: 10 01 BF 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..."============
010E60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 3B 00 D2 00 A9 =========".;....
010E70: 19 0F 2C 12 01 BF 22 43 6F 70 79 72 69 67 68 74 ..,..."Copyright
010E80: 20 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 20 26 Clive Bellaby &
010E90: 20 57 41 43 43 49 2C 20 4F 63 74 6F 62 65 72 20 WACCI, October
010EA0: 31 39 39 31 22 00 09 00 DC 00 A9 0F 2C 15 00 4C 1991".......,..L
010EB0: 00 E6 00 BF 22 54 68 69 73 20 70 72 6F 67 72 61 ...."This progra
010EC0: 6D 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 m allows you to
010ED0: 76 69 65 77 20 74 68 65 20 64 69 73 63 20 63 6F view the disc co
010EE0: 6E 74 65 6E 74 73 20 61 6E 64 20 70 72 69 6E 74 ntents and print
010EF0: 20 74 68 65 20 64 69 73 63 22 00 46 00 F0 00 BF the disc".F....
010F00: 22 63 6F 6E 74 65 6E 74 73 2E 20 49 66 20 79 6F "contents. If yo
010F10: 75 20 75 73 65 20 74 68 65 20 70 72 69 6E 74 20 u use the print
010F20: 6F 70 74 69 6F 6E 2C 20 70 6C 65 61 73 65 20 65 option, please e
010F30: 6E 73 75 72 65 20 74 68 61 74 20 79 6F 75 72 22 nsure that your"
010F40: 00 30 00 FA 00 BF 22 70 72 69 6E 74 65 72 20 69 .0...."printer i
010F50: 73 20 27 6F 6E 2D 6C 69 6E 65 27 20 61 6E 64 20 s 'on-line' and
010F60: 72 65 61 64 79 20 74 6F 20 70 72 69 6E 74 2E 22 ready to print."
010F70: 00 0A 00 04 01 A9 0F 2C 19 0B 00 0F 00 0E 01 BF .......,........
010F80: 22 4F 50 54 49 4F 4E 53 22 00 06 00 18 01 BF 00 "OPTIONS".......
010F90: 15 00 22 01 BF 22 31 3A 20 20 56 69 65 77 20 46 ..".."1: View F
010FA0: 69 6C 65 22 00 43 00 2C 01 BF 22 32 3A 20 20 50 ile".C.,.."2: P
010FB0: 72 69 6E 74 20 46 69 6C 65 20 28 20 35 34 20 6C rint File ( 54 l
010FC0: 69 6E 65 73 20 70 65 72 20 70 61 67 65 2C 20 73 ines per page, s
010FD0: 69 6E 67 6C 65 20 73 68 65 65 74 73 20 6F 66 20 ingle sheets of
010FE0: 70 61 70 65 72 29 22 00 33 00 36 01 BF 22 33 3A paper)".3.6.."3:
010FF0: 20 20 50 72 69 6E 74 20 46 69 6C 65 20 28 20 31 Print File ( 1
011000: 20 49 4E 50 55 54 20 6F 72 0D 0A 20 20 20 20 20 INPUT or..
011010: 61 20 66 69 6C 65 20 6F 70 65 6E 65 64 20 66 6F a file opened fo
011020: 72 20 49 2D 4F 20 77 68 65 6E 20 41 43 43 45 53 r I-O when ACCES
011030: 53 20 77 61 73 20 53 45 51 55 45 4E 54 49 41 4C S was SEQUENTIAL
011040: 2E 0D 0A 0D 0A 57 32 20 20 57 72 6F 6E 67 20 6B .....W2 Wrong k
011050: 65 79 20 2D 20 61 74 74 65 6D 70 74 65 64 20 74 ey - attempted t
011060: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 6B 65 79 o change the key
011070: 20 76 61 6C 75 65 20 74 6F 20 61 20 6C 6F 77 65 value to a lowe
011080: 72 20 76 61 6C 75 65 20 74 68 61 6E 20 74 68 65 r value than the
011090: 0D 0A 20 20 20 20 20 6E 75 6D 62 65 72 20 6F 66 .. number of
0110A0: 20 74 68 65 20 6C 61 73 74 20 72 65 63 6F 72 64 the last record
0110B0: 20 77 72 69 74 74 65 6E 2E 0D 0A 0D 0A 57 33 20 written.....W3
0110C0: 20 57 72 69 74 65 20 69 6E 70 75 74 20 2D 20 61 Write input - a
0110D0: 74 74 65 6D 70 74 65 64 20 74 6F 20 57 52 49 54 ttempted to WRIT
0110E0: 45 20 74 6F 20 61 20 66 69 6C 65 20 6F 70 65 6E E to a file open
0110F0: 65 64 20 66 6F 72 20 49 4E 50 55 54 2E 0D 0A 0D ed for INPUT....
011100: 0A 57 34 20 20 57 72 69 74 65 20 6E 6F 6E 2D 65 .W4 Write non-e
011110: 6D 70 74 79 20 2D 20 61 74 74 65 6D 70 74 65 64 mpty - attempted
011120: 20 74 6F 20 57 52 49 54 45 20 74 6F 20 61 20 6E to WRITE to a n
011130: 6F 6E 2D 65 6D 70 74 79 20 72 65 63 6F 72 64 2E on-empty record.
011140: 0D 0A 0D 0A 57 35 20 20 52 65 61 64 20 6F 75 74 ....W5 Read out
011150: 70 75 74 20 2D 20 61 74 74 65 6D 70 74 65 64 20 put - attempted
011160: 74 6F 20 52 45 41 44 20 61 20 66 69 6C 65 20 6F to READ a file o
011170: 70 65 6E 65 64 20 66 6F 72 20 4F 55 54 50 55 54 pened for OUTPUT
011180: 2E 0D 0A 0D 0A 57 36 20 20 52 65 77 72 69 74 65 .....W6 Rewrite
011190: 20 65 72 72 6F 72 20 2D 20 61 74 74 65 6D 70 74 error - attempt
0111A0: 65 64 20 74 6F 20 52 45 57 52 49 54 45 20 74 6F ed to REWRITE to
0111B0: 20 61 20 66 69 6C 65 20 6E 6F 74 20 6F 70 65 6E a file not open
0111C0: 65 64 20 66 6F 72 20 49 2D 4F 2E 0D 0A 0D 0A 57 ed for I-O.....W
0111D0: 37 20 20 52 65 77 72 69 74 65 20 65 72 72 6F 72 7 Rewrite error
0111E0: 20 2D 20 61 74 74 65 6D 70 74 65 64 20 74 6F 20 - attempted to
0111F0: 52 45 57 52 49 54 45 20 61 20 72 65 63 6F 72 64 REWRITE a record
011200: 31 20 69 6E 63 68 20 63 6F 6E 74 69 6E 75 6F 75 1 inch continuou
011210: 73 20 70 61 70 65 72 20 29 22 00 3B 00 40 01 BF s paper )".;.@..
011220: 22 34 3A 20 20 50 72 69 6E 74 20 46 69 6C 65 20 "4: Print File
011230: 28 20 31 31 2E 36 37 20 69 6E 63 68 20 27 41 34 ( 11.67 inch 'A4
011240: 27 20 63 6F 6E 74 69 6E 75 6F 75 73 20 70 61 70 ' continuous pap
011250: 65 72 20 29 22 00 06 00 4A 01 BF 00 18 00 54 01 er )"...J.....T.
011260: BF 22 30 3A 20 20 51 75 69 74 20 50 72 6F 67 72 ."0: Quit Progr
011270: 61 6D 22 00 06 00 5E 01 BF 00 27 00 68 01 BF 22 am"...^...'.h.."
011280: 5F 20 20 20 50 6C 65 61 73 65 20 45 6E 74 65 72 _ Please Enter
011290: 20 59 6F 75 72 20 53 65 6C 65 63 74 69 6F 6E 22 Your Selection"
0112A0: 00 07 00 72 01 01 C0 00 0C 00 7C 01 03 00 00 E1 ...r......|.....
0112B0: EF FF 43 00 13 00 86 01 A1 03 00 00 E1 EF 22 30 ..C..........."0
0112C0: 22 EB AD 10 01 98 00 13 00 90 01 A1 03 00 00 E1 "...............
0112D0: EF 22 31 22 EB A0 1E CC 01 00 37 00 9A 01 A1 03 ."1"......7.....
0112E0: 00 00 E1 EF 22 32 22 EB 0D 00 00 72 6F F7 EF 19 ...."2"....ro...
0112F0: 33 01 A0 1E 0C 03 01 C0 35 34 20 6C 69 6E 65 73 3.......54 lines
011300: 20 28 6C 65 73 73 20 33 20 68 65 61 64 65 72 29 (less 3 header)
011310: 00 42 00 A4 01 A1 03 00 00 E1 EF 22 33 22 EB 0D .B........."3"..
011320: 00 00 72 6F F7 EF 19 3C 01 A0 1E 0C 03 01 C0 36 ..ro...<.......6
011330: 36 20 6C 69 6E 65 73 20 28 6C 65 73 73 20 33 20 6 lines (less 3
011340: 68 65 61 64 65 72 20 26 20 33 20 66 6F 6F 74 65 header & 3 foote
011350: 72 29 00 42 00 AE 01 A1 03 00 00 E1 EF 22 34 22 r).B........."4"
011360: EB 0D 00 00 72 6F F7 EF 19 40 01 A0 1E 0C 03 01 ....ro...@......
011370: C0 37 30 20 6C 69 6E 65 73 20 28 6C 65 73 73 20 .70 lines (less
011380: 33 20 68 65 61 64 65 72 20 26 20 33 20 66 6F 6F 3 header & 3 foo
011390: 74 65 72 29 00 09 00 B8 01 A0 1E 7C 01 00 07 00 ter).......|....
0113A0: C2 01 01 C0 00 2A 00 CC 01 01 C0 44 49 53 50 4C .....*.....DISPL
0113B0: 41 59 20 46 49 4C 45 20 43 4F 4E 54 45 4E 54 53 AY FILE CONTENTS
0113C0: 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 00 07 ON THE SCREEN..
0113D0: 00 D6 01 01 C0 00 0B 00 E0 01 0D 00 00 E4 EF 0F ................
0113E0: 00 12 00 EA 01 D8 23 0F 2C 0F 2C 19 50 2C 0F 2C ......#.,.,.P,.,
0113F0: 19 16 00 13 00 F4 01 D8 23 10 2C 0F 2C 19 50 2C ........#.,.,.P,
011400: 20 62 65 66 6F 72 65 20 72 65 61 64 69 6E 67 20 before reading
011410: 74 68 65 20 66 69 6C 65 3B 0D 0A 20 20 20 20 20 the file;..
011420: 6F 72 20 6D 75 6C 74 69 70 6C 65 20 52 45 57 52 or multiple REWR
011430: 49 54 45 20 61 74 74 65 6D 70 74 73 20 77 69 74 ITE attempts wit
011440: 68 6F 75 74 20 64 6F 69 6E 67 20 61 20 52 45 41 hout doing a REA
011450: 44 20 62 65 74 77 65 65 6E 20 65 61 63 68 2E 0D D between each..
011460: 0A 0D 0A 0D 0A 44 2E 20 49 6E 74 65 72 70 72 65 .....D. Interpre
011470: 74 65 72 20 57 61 72 6E 69 6E 67 20 4D 65 73 73 ter Warning Mess
011480: 61 67 65 73 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ages..==========
011490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0114A0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4D 20 20 45 6E 64 =====....EM End
0114B0: 20 6D 61 72 6B 20 2D 20 61 20 72 65 63 6F 72 64 mark - a record
0114C0: 20 74 68 61 74 20 77 61 73 20 72 65 61 64 20 64 that was read d
0114D0: 69 64 20 6E 6F 74 20 68 61 76 65 20 61 20 63 61 id not have a ca
0114E0: 72 72 69 61 67 65 20 72 65 74 75 72 6E 20 6F 72 rriage return or
0114F0: 20 61 0D 0A 20 20 20 20 20 6C 69 6E 65 20 66 65 a.. line fe
011500: 65 64 20 69 6E 20 74 68 65 20 65 78 70 65 63 74 ed in the expect
011510: 65 64 20 6C 6F 63 61 74 69 6F 6E 2E 0D 0A 0D 0A ed location.....
011520: 47 44 20 20 47 6F 20 74 6F 20 64 65 70 65 6E 64 GD Go to depend
011530: 69 6E 67 20 2D 20 74 68 65 20 76 61 6C 75 65 20 ing - the value
011540: 6F 66 20 74 68 65 20 64 65 70 65 6E 64 69 6E 67 of the depending
011550: 20 69 6E 64 69 63 61 74 6F 72 20 77 61 73 20 67 indicator was g
011560: 72 65 61 74 65 72 20 74 68 61 6E 0D 0A 20 20 20 reater than..
011570: 20 20 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 the number of
011580: 61 76 61 69 6C 61 62 6C 65 20 62 72 61 6E 63 68 available branch
011590: 20 61 64 64 72 65 73 73 65 73 2E 0D 0A 0D 0A 49 addresses.....I
0115A0: 43 20 20 49 6E 76 61 6C 69 64 20 63 68 61 72 61 C Invalid chara
0115B0: 63 74 65 72 20 2D 20 61 6E 20 69 6E 76 61 6C 69 cter - an invali
0115C0: 64 20 63 68 61 72 61 63 74 65 72 20 77 61 73 20 d character was
0115D0: 6C 6F 61 64 65 64 20 69 6E 74 6F 20 61 6E 20 6F loaded into an o
0115E0: 75 74 70 75 74 0D 0A 20 20 20 20 20 66 69 65 6C utput.. fiel
0115F0: 64 20 64 75 72 69 6E 67 20 61 6E 20 65 64 69 74 d during an edit
011600: 19 18 2C 19 19 00 17 00 FE 01 BF 23 10 2C FF 7B ..,........#.,.{
011610: 28 19 50 2C FF 03 28 19 9A 29 29 3B 00 3B 00 08 (.P,..(..));.;..
011620: 02 BF 23 10 2C 22 20 56 49 45 57 20 46 49 4C 45 ..#.," VIEW FILE
011630: 3A 20 20 20 22 3B FF 03 28 19 F1 29 3B 22 20 4E : ";..(..);" N
011640: 45 58 54 20 53 63 72 65 65 6E 2C 20 20 20 22 3B EXT Screen, ";
011650: FF 03 28 19 F0 29 3B 00 33 00 12 02 BF 23 10 2C ..(..);.3....#.,
011660: 22 20 50 72 65 76 69 6F 75 73 20 53 63 72 65 65 " Previous Scree
011670: 6E 2C 20 20 20 50 72 65 73 73 20 45 6E 74 65 72 n, Press Enter
011680: 20 54 6F 20 51 75 69 74 20 22 00 07 00 1C 02 01 To Quit "......
011690: C0 00 30 00 26 02 8A 23 0F 01 9E 0D 00 00 E9 EF ..0.&..#........
0116A0: 0D 00 00 E4 EC 0D 00 00 E4 F4 19 15 01 BF 23 0F ..............#.
0116B0: 2C 03 00 00 F2 28 0D 00 00 E9 29 01 B0 0D 00 00 ,....(....).....
0116C0: E9 00 28 00 30 02 9F 1E 62 02 01 C0 53 65 6C 65 ..(.0...b...Sele
0116D0: 63 74 20 4F 70 74 69 6F 6E 20 26 20 53 65 74 20 ct Option & Set
0116E0: 56 61 72 69 61 62 6C 65 73 00 18 00 3A 02 A1 03 Variables...:...
0116F0: 00 00 E3 EF 22 45 4E 44 22 EB 98 01 97 A0 1E 26 ...."END"......&
011700: 02 00 07 00 44 02 01 C0 00 33 00 4E 02 01 C0 44 ....D....3.N...D
011710: 69 73 70 6C 61 79 20 46 69 6C 65 20 53 65 63 74 isplay File Sect
011720: 69 6F 6E 2C 20 41 63 74 69 6F 6E 20 4F 70 74 69 ion, Action Opti
011730: 6F 6E 20 53 65 6C 65 63 74 65 64 00 07 00 58 02 on Selected...X.
011740: 01 C0 00 0C 00 62 02 03 00 00 F0 EF FF 43 00 23 .....b.......C.#
011750: 00 6C 02 A1 03 00 00 F0 EF FF 03 28 19 F1 29 EB .l.........(..).
011760: 9F 1E BC 02 01 03 00 00 E3 EF 22 22 01 A0 1E 94 ..........""....
011770: 02 00 23 00 76 02 A1 03 00 00 F0 EF FF 03 28 19 ..#.v.........(.
011780: F0 29 EB 9F 1E DA 02 01 03 00 00 E3 EF 22 22 01 .)..........."".
011790: A0 1E 94 02 00 21 00 80 02 A1 03 00 00 F0 EF FF .....!..........
0117A0: 03 28 19 0D 29 EB 03 00 00 E3 EF 22 45 4E 44 22 .(..)......"END"
0117B0: 01 A0 1E A0 00 00 09 00 8A 02 A0 1E 62 02 00 06 ............b...
0117C0: 00 94 02 C9 00 07 00 9E 02 01 C0 00 19 00 A8 02 ................
0117D0: 01 C0 4E 65 78 74 20 50 61 67 65 20 53 65 6C 65 ..Next Page Sele
0117E0: 63 74 65 64 00 07 00 B2 02 01 C0 00 43 00 BC 02 cted........C...
0117F0: 0D 00 00 74 65 6D F0 EF 0D 00 00 E4 F4 19 13 01 ...tem..........
011800: 65 64 20 6D 6F 76 65 2E 20 46 6F 72 20 65 78 61 ed move. For exa
011810: 6D 70 6C 65 2C 20 61 20 6E 75 6D 65 72 69 63 20 mple, a numeric
011820: 63 68 61 72 61 63 74 65 72 20 69 6E 74 6F 0D 0A character into..
011830: 20 20 20 20 20 61 6E 20 61 6C 70 68 61 62 65 74 an alphabet
011840: 69 63 2D 6F 6E 6C 79 20 66 69 65 6C 64 2E 0D 0A ic-only field...
011850: 0D 0A 4E 45 20 20 4E 75 6D 65 72 69 63 20 45 72 ..NE Numeric Er
011860: 72 6F 72 20 2D 20 6E 6F 6E 2D 6E 75 6D 65 72 69 ror - non-numeri
011870: 63 20 64 61 74 61 20 69 6E 20 61 6E 20 61 72 69 c data in an ari
011880: 74 68 6D 65 74 69 63 20 6F 70 65 72 61 74 69 6F thmetic operatio
011890: 6E 2E 0D 0A 0D 0A 57 38 20 20 57 72 69 74 65 20 n.....W8 Write
0118A0: 45 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 74 Error - the syst
0118B0: 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 6F em was unable to
0118C0: 20 77 72 69 74 65 20 74 6F 20 61 6E 20 6F 75 74 write to an out
0118D0: 70 75 74 20 66 69 6C 65 20 6F 6E 0D 0A 20 20 20 put file on..
0118E0: 20 20 74 68 65 20 64 69 73 6B 2E 20 20 44 69 73 the disk. Dis
0118F0: 6B 20 6D 61 79 20 62 65 20 66 75 6C 6C 2E 0D 0A k may be full...
011900: 0D 0A 53 49 20 20 53 69 67 6E 20 49 6E 76 61 6C ..SI Sign Inval
011910: 69 64 20 2D 20 74 68 65 20 73 69 67 6E 20 69 73 id - the sign is
011920: 20 6E 6F 74 20 61 20 22 2B 22 20 6F 72 20 61 20 not a "+" or a
011930: 22 2D 2E 22 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 "-."......** END
011940: 20 4F 46 20 43 4F 42 4F 4C 2D 33 2E 44 4F 43 20 OF COBOL-3.DOC
011950: 2A 2A 1A 20 20 20 20 20 20 20 55 73 65 72 27 73 **. User's
011960: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
011970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
011980: 20 20 6E 75 6D 62 65 72 20 20 69 6E 20 74 68 65 number in the
011990: 20 72 65 67 69 73 74 65 72 20 69 73 20 6C 61 72 register is lar
0119A0: 67 65 72 20 74 68 61 6E 0D 0A 74 68 65 20 76 61 ger than..the va
0119B0: 72 69 61 62 6C 65 2E 20 49 66 20 74 68 65 20 70 riable. If the p
0119C0: 72 65 63 69 73 69 6F 6E 20 69 6E 20 74 68 65 20 recision in the
0119D0: 72 65 67 69 73 74 65 72 20 69 73 20 67 72 65 61 register is grea
0119E0: 74 65 72 20 74 68 61 6E 20 74 68 65 20 76 61 72 ter than the var
0119F0: 69 61 62 6C 65 2C 0D 0A 74 72 75 6E 63 61 74 69 iable,..truncati
011A00: A1 28 0D 00 00 74 65 6D F0 F4 19 15 29 EE 0D 00 .(...tem....)...
011A10: 00 E3 EB 0D 00 00 E4 EF 0D 00 00 E3 F5 19 15 01 ................
011A20: 01 97 0D 00 00 E4 EF 0D 00 00 74 65 6D F0 00 06 ..........tem...
011A30: 00 C6 02 C9 00 07 00 D0 02 01 C0 00 1D 00 DA 02 ................
011A40: 01 C0 50 72 65 76 69 6F 75 73 20 50 61 67 65 20 ..Previous Page
011A50: 53 65 6C 65 63 74 65 64 00 07 00 E4 02 01 C0 00 Selected........
011A60: 20 00 EE 02 0D 00 00 E4 EF 0D 00 00 E4 F5 19 13 ...............
011A70: 01 A1 0D 00 00 E4 F1 0F EB 0D 00 00 E4 EF 0F 00 ................
011A80: 06 00 F8 02 C9 00 07 00 02 03 01 C0 00 1A 00 0C ................
011A90: 03 01 C0 50 52 49 4E 54 20 46 49 4C 45 20 43 4F ...PRINT FILE CO
011AA0: 4E 54 45 4E 54 53 00 07 00 16 03 01 C0 00 07 00 NTENTS..........
011AB0: 20 03 AD 10 00 21 00 2A 03 A9 19 1E 2C 0F 01 BF ....!.*....,...
011AC0: 22 50 52 49 4E 54 20 44 4F 43 55 4D 45 4E 54 20 "PRINT DOCUMENT
011AD0: 46 49 4C 45 22 00 21 00 34 03 A9 19 1E 2C 10 01 FILE".!.4....,..
011AE0: BF 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ."==============
011AF0: 3D 3D 3D 3D 3D 22 00 09 00 3E 03 A9 0F 2C 13 00 ====="...>...,..
011B00: 49 00 48 03 BF 22 50 6C 65 61 73 65 20 45 6E 73 I.H.."Please Ens
011B10: 75 72 65 20 74 68 61 74 20 79 6F 75 72 20 70 72 ure that your pr
011B20: 69 6E 74 65 72 20 69 73 20 6C 6F 61 64 65 64 20 inter is loaded
011B30: 77 69 74 68 20 70 61 70 65 72 20 61 6E 64 20 72 with paper and r
011B40: 65 61 64 79 20 74 6F 22 00 1F 00 52 03 BF 22 70 eady to"...R.."p
011B50: 72 69 6E 74 20 74 68 65 20 64 6F 63 75 6D 65 6E rint the documen
011B60: 74 20 66 69 6C 65 22 00 09 00 5C 03 A9 0F 2C 17 t file"...\...,.
011B70: 00 18 00 66 03 BF 22 4F 70 74 69 6F 6E 20 53 65 ...f.."Option Se
011B80: 6C 65 63 74 65 64 3A 22 00 06 00 70 03 BF 00 3A lected:"...p...:
011B90: 00 7A 03 A1 03 00 00 E1 EF 22 32 22 EB BF 22 35 .z......."2".."5
011BA0: 34 20 6C 69 6E 65 73 20 70 65 72 20 70 61 67 65 4 lines per page
011BB0: 2C 20 73 69 6E 67 6C 65 20 73 68 65 65 74 20 70 , single sheet p
011BC0: 72 69 6E 74 69 6E 67 22 00 34 00 84 03 A1 03 00 rinting".4......
011BD0: 00 E1 EF 22 33 22 EB BF 22 31 31 20 69 6E 63 68 ..."3".."11 inch
011BE0: 20 70 61 70 65 72 2C 20 63 6F 6E 74 69 6E 75 6F paper, continuo
011BF0: 75 73 20 70 72 69 6E 74 69 6E 67 22 00 3C 00 8E us printing".<..
011C00: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 00 .DISC BAS....
011C10: 00 00 00 00 00 70 01 00 03 0E 00 00 00 00 00 00 .....p..........
011C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011C40: 03 0E 00 0C 03 00 00 00 1A 53 43 20 20 20 20 24 .........SC $
011C50: 24 24 FF 00 FF 4F 0D 0A 20 20 20 20 20 20 20 20 $$...O..
011C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 WA
011C70: 43 43 49 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 CCI PUBLIC DOMAI
011C80: 0F 00 0A 00 01 C0 44 49 53 43 2E 42 41 53 00 34 ......DISC.BAS.4
011C90: 00 14 00 01 C0 57 41 43 43 49 20 50 44 20 49 4E .....WACCI PD IN
011CA0: 53 54 52 55 43 54 49 4F 4E 20 44 49 53 50 4C 41 STRUCTION DISPLA
011CB0: 59 20 26 20 50 52 49 4E 54 20 50 52 4F 47 52 41 Y & PRINT PROGRA
011CC0: 4D 20 00 30 00 1E 00 01 C0 43 6F 70 79 72 69 67 M .0.....Copyrig
011CD0: 68 74 20 28 63 29 20 43 6C 69 76 65 20 42 65 6C ht (c) Clive Bel
011CE0: 6C 61 62 79 2C 20 4F 63 74 6F 62 65 72 20 31 39 laby, October 19
011CF0: 39 31 00 26 00 28 00 01 C0 54 68 69 73 20 69 73 91.&.(...This is
011D00: 20 61 20 50 75 62 6C 69 63 20 44 6F 6D 61 69 6E a Public Domain
011D10: 20 50 72 6F 67 72 61 6D 00 07 00 32 00 01 C0 00 Program...2....
011D20: 41 00 3C 00 01 C0 4F 50 45 4E 20 46 49 4C 45 2C A.<...OPEN FILE,
011D30: 20 43 52 45 41 54 45 20 53 54 52 49 4E 47 20 41 CREATE STRING A
011D40: 52 52 41 59 2C 20 53 54 4F 52 45 20 44 41 54 41 RRAY, STORE DATA
011D50: 20 49 4E 20 41 52 52 41 59 20 20 72 24 28 63 29 IN ARRAY r$(c)
011D60: 00 07 00 46 00 01 C0 00 07 00 50 00 AD 10 00 31 ...F......P....1
011D70: 00 5A 00 BF 22 4C 6F 61 64 69 6E 67 20 44 49 53 .Z.."Loading DIS
011D80: 43 2E 44 4F 43 2C 20 50 6C 65 61 73 65 20 57 61 C.DOC, Please Wa
011D90: 69 74 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 it ...........".
011DA0: 10 00 64 00 B6 22 64 69 73 63 2E 64 6F 63 22 00 ..d.."disc.doc".
011DB0: 0B 00 6E 00 0D 00 00 E3 EF 0E 00 0E 00 78 00 93 ..n..........x..
011DC0: 03 00 00 F2 28 19 FA 29 00 27 00 82 00 D6 FE FF ....(..).'......
011DD0: 40 01 A6 A3 23 17 2C 03 00 00 F2 28 0D 00 00 E3 @..£#.,....(....
011DE0: 29 01 0D 00 00 E3 EF 0D 00 00 E3 F4 0F 01 D5 00 )...............
011DF0: 06 00 8C 00 88 00 07 00 96 00 01 C0 00 1A 00 A0 ................
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 01 00 02 09 52 E5 0F 00 C1 02 00 00 00 02 ......R.........
011E20: 0F 00 C6 02 00 00 00 02 0F 00 C2 02 00 00 00 02 ................
011E30: 0F 00 C7 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E40: 0F 00 C8 02 00 00 00 02 0F 00 C4 02 00 00 00 02 ................
011E50: 0F 00 C9 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 03 A1 03 00 00 E1 EF 22 34 22 EB BF 22 31 31 2E ......."4".."11.
011F10: 36 37 20 69 6E 63 68 20 70 61 70 65 72 20 27 41 67 inch paper 'A
011F20: 34 27 2C 20 63 6F 6E 74 69 6E 75 6F 75 73 20 70 4', continuous p
011F30: 72 69 6E 74 69 6E 67 22 00 08 00 98 03 BF 01 BF rinting"........
011F40: 00 43 00 A2 03 BF 22 5F 20 20 50 72 65 73 73 20 .C...."_ Press
011F50: 27 30 27 20 74 6F 20 51 75 69 74 20 50 72 69 6E '0' to Quit Prin
011F60: 74 20 4F 70 74 69 6F 6E 2C 20 20 50 72 65 73 73 t Option, Press
011F70: 20 27 31 27 20 74 6F 20 70 72 69 6E 74 20 66 69 '1' to print fi
011F80: 6C 65 22 00 0C 00 AC 03 03 00 00 E1 EF FF 43 00 le"...........C.
011F90: 13 00 B6 03 A1 03 00 00 E1 EF 22 30 22 EB A0 1E .........."0"...
011FA0: A0 00 00 13 00 C0 03 A1 03 00 00 E1 EF 22 31 22 ............."1"
011FB0: EB A0 1E F2 03 00 09 00 CA 03 A0 1E AC 03 00 07 ................
011FC0: 00 D4 03 01 C0 00 1A 00 DE 03 01 C0 70 72 69 6E ............prin
011FD0: 74 20 66 69 6C 65 20 63 6F 6E 74 65 6E 74 73 00 t file contents.
011FE0: 07 00 E8 03 01 C0 00 2C 00 F2 03 AD 10 01 BF 22 .......,......."
011FF0: 50 72 69 6E 74 69 6E 67 20 44 6F 63 75 6D 65 6E Printing Documen
012000: 74 20 46 69 6C 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E t File .........
012010: 2E 22 00 0E 00 FC 03 0D 00 00 70 61 67 E5 EF 0F ."........pag...
012020: 00 1C 00 06 04 9F 1E 3C 05 01 C0 70 72 69 6E 74 .......<...print
012030: 20 70 61 67 65 20 68 65 61 64 65 72 00 07 00 10 page header....
012040: 04 01 C0 00 11 00 1A 04 9E 0D 00 00 E4 EF 0F EC ................
012050: 0D 00 00 E3 00 23 00 24 04 9F 1E EC 04 01 C0 43 .....#.$.......C
012060: 68 65 63 6B 20 50 72 69 6E 74 65 72 20 49 73 20 heck Printer Is
012070: 4F 6E 2D 4C 69 6E 65 00 1F 00 2E 04 BF 23 16 2C On-Line......#.,
012080: 03 00 00 F2 28 0D 00 00 E4 29 01 C0 50 72 69 6E ....(....)..Prin
012090: 74 20 4C 69 6E 65 00 22 00 38 04 A1 0D 00 00 E4 t Line.".8......
0120A0: F7 0D 00 00 72 6F F7 EF 0D 00 00 E4 F9 0D 00 00 ....ro..........
0120B0: 72 6F F7 EB 9F 1E 60 04 00 0A 00 42 04 B0 0D 00 ro....`....B....
0120C0: 00 E4 00 09 00 4C 04 A0 1E A0 00 00 07 00 56 04 .....L........V.
0120D0: 01 C0 00 26 00 60 04 01 C0 70 72 69 6E 74 20 66 ...&.`...print f
0120E0: 69 6C 65 2C 20 65 6E 64 20 6F 66 20 70 61 67 65 ile, end of page
0120F0: 20 72 6F 75 74 69 6E 65 00 07 00 6A 04 01 C0 00 routine...j....
012100: 32 33 2E 42 41 53 20 20 20 33 6B 20 7D 20 69 6E 23.BAS 3k } in
012110: 20 74 68 65 20 43 4F 42 4F 4C 20 73 65 72 69 65 the COBOL serie
012120: 73 2E 20 28 45 58 41 4D 2D 31 20 74 6F 20 45 58 s. (EXAM-1 to EX
012130: 41 4D 2D 32 34 29 0D 0A 0D 0A 31 32 2F 30 37 61 AM-24)....12/07a
012140: 20 20 41 44 44 52 45 53 53 2E 43 42 4C 20 20 31 ADDRESS.CBL 1
012150: 39 6B 20 7D 20 41 20 63 6F 6D 70 6C 65 74 65 20 9k } A complete
012160: 43 4F 42 4F 4C 20 70 72 6F 67 72 61 6D 2C 20 69 COBOL program, i
012170: 74 27 73 20 61 20 61 64 64 72 65 73 73 0D 0A 31 t's a address..1
012180: 32 2F 30 37 62 20 20 41 44 44 52 45 53 53 2E 42 2/07b ADDRESS.B
012190: 41 53 20 20 20 32 6B 20 7D 20 6C 69 73 74 2E 20 AS 2k } list.
0121A0: 41 44 44 52 45 53 53 2E 44 4F 43 20 63 6F 6E 74 ADDRESS.DOC cont
0121B0: 61 69 6E 73 20 66 75 6C 6C 20 69 6E 73 74 72 75 ains full instru
0121C0: 63 74 69 6F 6E 73 0D 0A 31 32 2F 30 37 63 20 20 ctions..12/07c
0121D0: 41 44 44 52 45 53 53 2E 44 4F 43 20 20 20 36 6B ADDRESS.DOC 6k
0121E0: 20 7D 20 66 6F 72 20 73 65 74 74 69 6E 67 20 75 } for setting u
0121F0: 70 20 74 68 65 20 70 72 6F 67 72 61 6D 0D 0A 0D p the program...
012200: 0A 31 32 2F 30 38 61 20 20 4D 41 47 2E 43 42 4C .12/08a MAG.CBL
012210: 20 20 20 20 20 20 32 34 6B 20 7D 20 41 20 63 6F 24k } A co
012220: 6D 70 6C 65 74 65 20 43 4F 42 4F 4C 20 70 72 6F mplete COBOL pro
012230: 67 72 61 6D 2C 20 68 6F 6C 64 73 20 64 65 74 61 gram, holds deta
012240: 69 6C 73 20 6F 6E 0D 0A 31 32 2F 30 38 62 20 20 ils on..12/08b
012250: 4D 41 47 2D 46 49 4C 45 2E 42 41 53 20 20 31 6B MAG-FILE.BAS 1k
012260: 20 7D 20 4D 41 47 61 7A 69 6E 65 20 61 72 74 69 } MAGazine arti
012270: 63 6C 65 73 2E 20 54 68 65 20 70 72 6F 67 72 61 cles. The progra
012280: 6D 20 69 6E 63 6C 75 64 65 20 66 75 6C 6C 0D 0A m include full..
012290: 31 32 2F 30 38 63 20 20 4D 41 47 2D 43 4F 44 45 12/08c MAG-CODE
0122A0: 2E 42 41 53 20 20 37 6B 20 7D 20 73 63 72 65 65 .BAS 7k } scree
0122B0: 6E 20 68 61 6E 64 6C 69 6E 67 20 65 74 73 2E 20 n handling ets.
0122C0: 4D 41 47 2E 44 4F 43 20 63 6F 6E 74 61 69 6E 73 MAG.DOC contains
0122D0: 20 66 75 6C 6C 0D 0A 31 32 2F 30 38 64 20 20 4D full..12/08d M
0122E0: 41 47 2E 44 4F 43 20 20 20 20 20 20 20 36 6B 20 AG.DOC 6k
0122F0: 7D 20 69 6E 73 74 72 75 63 74 69 6F 6D 73 20 66 } instructioms f
012300: 37 00 74 04 A1 0D 00 00 72 6F F7 EE 19 36 EB BF 7.t.....ro...6..
012310: 23 16 01 BF 23 16 01 BF 23 16 01 9F 1E 3C 05 01 #...#...#....<..
012320: C0 70 72 69 6E 74 20 68 65 61 64 65 72 20 26 20 .print header &
012330: 66 6F 6F 74 65 72 00 3A 00 7E 04 A1 0D 00 00 72 footer.:.~.....r
012340: 6F F7 EF 19 33 EB 9F 1E 9C 04 01 9F 1E 3C 05 01 o...3........<..
012350: C0 61 73 6B 20 66 6F 72 20 6E 65 78 74 20 70 61 .ask for next pa
012360: 67 65 2C 20 70 72 69 6E 74 20 68 65 61 64 65 72 ge, print header
012370: 00 06 00 88 04 C9 00 07 00 92 04 01 C0 00 38 00 ..............8.
012380: 9C 04 01 C0 73 69 6E 67 6C 65 20 73 68 65 65 74 ....single sheet
012390: 20 70 72 69 6E 74 65 72 2C 20 61 73 6B 20 66 6F printer, ask fo
0123A0: 72 20 6E 65 78 74 20 73 68 65 65 74 20 6F 66 20 r next sheet of
0123B0: 70 61 70 65 72 00 07 00 A6 04 01 C0 00 13 00 B0 paper...........
0123C0: 04 D8 23 10 2C 0F 2C 19 50 2C 19 19 2C 19 19 00 ..#.,.,.P,..,...
0123D0: 3E 00 BA 04 BF 23 10 2C 22 4E 65 78 74 20 53 68 >....#.,"Next Sh
0123E0: 65 65 74 20 4F 66 20 50 61 70 65 72 20 50 6C 65 eet Of Paper Ple
0123F0: 61 73 65 2C 20 50 72 65 73 73 20 52 45 54 55 52 ase, Press RETUR
012400: 4E 20 77 68 65 6E 20 52 65 61 64 79 22 00 11 00 N when Ready"...
012410: C4 04 D6 FF 43 F2 FF 03 28 19 0D 29 01 D5 00 08 ....C...(..)....
012420: 00 CE 04 8A 23 10 00 06 00 D8 04 C9 00 07 00 E2 ....#...........
012430: 04 01 C0 00 1F 00 EC 04 01 C0 43 68 65 63 6B 20 ..........Check
012440: 50 72 69 6E 74 65 72 20 49 73 20 4F 6E 2D 4C 69 Printer Is On-Li
012450: 6E 65 00 07 00 F6 04 01 C0 00 13 00 00 05 D8 23 ne.............#
012460: 10 2C 0F 2C 19 50 2C 19 19 2C 19 19 00 15 00 0A .,.,.P,..,......
012470: 05 A1 FF 0B 28 1C 00 F5 29 EF 19 1E EB A0 1E 28 ....(...)......(
012480: 05 00 4B 00 14 05 BF 23 10 2C 22 50 72 69 6E 74 ..K....#.,"Print
012490: 65 72 20 4E 6F 74 20 52 65 61 64 79 3A 20 53 77 er Not Ready: Sw
0124A0: 69 74 63 68 20 4F 6E 2C 20 43 68 65 63 6B 20 50 itch On, Check P
0124B0: 61 70 65 72 2C 20 50 6C 61 63 65 20 50 72 69 6E aper, Place Prin
0124C0: 74 65 72 20 4F 6E 2D 4C 69 6E 65 22 00 12 00 1E ter On-Line"....
0124D0: 05 D6 FF 0B 28 1C 00 F5 29 F2 19 1E 01 D5 00 0A ....(...).......
0124E0: 00 28 05 8A 23 10 01 C9 00 07 00 32 05 01 C0 00 .(..#......2....
0124F0: 18 00 3C 05 01 C0 70 72 69 6E 74 20 70 61 67 65 ..<...print page
012500: 6F 72 20 73 65 74 74 69 6E 67 20 75 70 20 74 68 or setting up th
012510: 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 31 32 e program.....12
012520: 2F 30 39 61 20 20 4E 4F 54 45 2D 31 2E 44 4F 43 /09a NOTE-1.DOC
012530: 20 20 20 20 31 6B 20 7D 20 48 65 6C 70 20 6F 6E 1k } Help on
012540: 20 73 63 72 65 65 6E 20 63 6C 65 61 72 69 6E 67 screen clearing
012550: 20 63 6F 64 65 73 0D 0A 31 32 2F 30 39 62 20 20 codes..12/09b
012560: 4E 4F 54 45 2D 32 2E 44 4F 43 20 20 20 20 36 6B NOTE-2.DOC 6k
012570: 20 7D 20 48 65 6C 70 20 77 69 74 68 20 70 72 69 } Help with pri
012580: 6E 74 69 6E 67 20 66 72 6F 6D 20 77 69 74 68 69 nting from withi
012590: 6E 20 43 4F 42 4F 4C 0D 0A 0D 0A 0D 0A 20 20 20 n COBOL......
0125A0: 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 54 GETT
0125B0: 49 4E 47 20 53 54 41 52 54 45 44 20 3A 20 57 41 ING STARTED : WA
0125C0: 43 43 49 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 CCI PUBLIC DOMAI
0125D0: 4E 20 44 49 53 43 53 0D 0A 0D 0A 20 20 20 20 20 N DISCS....
0125E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0125F0: 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 2C 20 4F Clive Bellaby, O
012600: 63 74 6F 62 65 72 20 31 39 39 31 0D 0A 0D 0A 50 ctober 1991....P
012610: 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 72 6F ublic Domain pro
012620: 67 72 61 6D 73 20 68 61 76 65 20 62 65 65 6E 20 grams have been
012630: 64 6F 6E 61 74 65 64 20 62 79 20 74 68 65 69 72 donated by their
012640: 20 61 75 74 68 6F 72 73 20 66 6F 72 20 74 68 65 authors for the
012650: 20 66 72 65 65 0D 0A 75 73 65 20 61 6E 64 20 65 free..use and e
012660: 6E 6A 6F 79 6D 65 6E 74 20 6F 66 20 61 6C 6C 2E njoyment of all.
012670: 20 50 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 Public Domain p
012680: 72 6F 67 72 61 6D 73 20 6D 61 79 20 62 65 20 66 rograms may be f
012690: 72 65 65 6C 79 20 63 6F 70 69 65 64 0D 0A 61 6E reely copied..an
0126A0: 64 20 64 69 73 74 72 69 62 75 74 65 64 2E 20 50 d distributed. P
0126B0: 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 72 6F ublic Domain pro
0126C0: 67 72 61 6D 73 20 6D 61 79 20 6E 6F 74 20 62 65 grams may not be
0126D0: 20 73 6F 6C 64 20 66 6F 72 20 70 72 6F 66 69 74 sold for profit
0126E0: 20 6F 72 0D 0A 69 6E 63 6C 75 64 65 64 20 77 69 or..included wi
0126F0: 74 68 20 70 72 6F 67 72 61 6D 73 20 74 68 61 74 th programs that
012700: 20 68 65 61 64 65 72 00 07 00 46 05 01 C0 00 26 header...F....&
012710: 00 50 05 BF 23 16 2C 03 00 00 F2 28 0E 29 3B EA .P..#.,....(.);.
012720: 28 19 48 29 3B 22 50 61 67 65 20 22 3B 0D 00 00 (.H);"Page ";...
012730: 70 61 67 E5 00 08 00 5A 05 BF 23 16 00 08 00 64 pag....Z..#....d
012740: 05 BF 23 16 00 16 00 6E 05 0D 00 00 70 61 67 E5 ..#....n....pag.
012750: EF 0D 00 00 70 61 67 E5 F4 0F 00 06 00 78 05 C9 ....pag......x..
012760: 00 07 00 82 05 01 C0 00 19 00 8C 05 01 C0 45 6E ..............En
012770: 64 20 4F 66 20 54 68 65 20 50 72 6F 67 72 61 6D d Of The Program
012780: 00 00 00 1A 53 43 20 20 20 20 24 24 24 FF 00 FF ....SC $$$...
012790: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
0127A0: 20 20 20 20 20 20 20 20 20 57 41 43 43 49 20 50 WACCI P
0127B0: 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 44 49 53 UBLIC DOMAIN DIS
0127C0: 43 20 54 57 4F 0D 0A 20 20 20 20 20 20 20 20 20 C TWO..
0127D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
0127E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0127F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
012800: 20 20 20 20 20 20 20 7B 50 41 47 45 20 20 7D 0D {PAGE }.
012810: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 57 . 2. W
012820: 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 6D 65 RITE record-name
012830: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
012840: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
012850: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
012860: 0A 54 68 65 20 72 65 63 6F 72 64 20 73 70 65 63 .The record spec
012870: 69 66 69 65 64 20 69 73 20 77 72 69 74 74 65 6E ified is written
012880: 20 74 6F 20 74 68 65 20 66 69 6C 65 20 73 70 65 to the file spe
012890: 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 66 69 cified in the fi
0128A0: 6C 65 20 73 65 63 74 69 6F 6E 20 6F 66 0D 0A 74 le section of..t
0128B0: 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 61 he source progra
0128C0: 6D 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 20 6F m. The INVALID o
0128D0: 70 74 69 6F 6E 20 6F 6E 6C 79 20 61 70 70 6C 69 ption only appli
0128E0: 65 73 20 74 6F 20 72 61 6E 64 6F 6D 20 66 69 6C es to random fil
0128F0: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A es.....EXAMPLES:
012900: 20 61 72 65 20 73 6F 6C 64 20 66 6F 72 20 70 72 are sold for pr
012910: 6F 66 69 74 2E 20 54 68 65 20 70 72 6F 67 72 61 ofit. The progra
012920: 6D 73 20 61 75 74 68 6F 72 73 0D 0A 72 65 74 61 ms authors..reta
012930: 69 6E 20 74 68 65 20 63 6F 70 79 72 69 67 68 74 in the copyright
012940: 20 74 6F 20 74 68 65 20 70 72 6F 67 72 61 6D 28 to the program(
012950: 73 29 2E 0D 0A 0D 0A 41 6C 6C 20 74 68 65 20 70 s).....All the p
012960: 72 6F 67 72 61 6D 73 20 73 75 70 70 6C 69 65 64 rograms supplied
012970: 20 62 79 20 57 61 63 63 69 20 68 61 76 65 20 62 by Wacci have b
012980: 65 65 6E 20 74 65 73 74 65 64 20 6F 6E 20 61 20 een tested on a
012990: 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D Amstrad 6128....
0129A0: 0A 0D 0A 49 4E 53 54 52 55 43 54 49 4F 4E 53 0D ...INSTRUCTIONS.
0129B0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 54 .============..T
0129C0: 68 69 73 20 64 69 73 63 20 69 73 20 73 75 70 70 his disc is supp
0129D0: 6C 69 65 64 20 69 6E 20 56 45 4E 44 4F 52 20 66 lied in VENDOR f
0129E0: 6F 72 6D 61 74 2C 20 6E 65 76 65 72 20 68 65 61 ormat, never hea
0129F0: 72 64 20 6F 66 20 56 45 4E 44 4F 52 20 66 6F 72 rd of VENDOR for
012A00: 6D 61 74 2C 20 74 68 65 6E 0D 0A 6C 65 74 20 6D mat, then..let m
012A10: 65 20 65 78 70 6C 61 69 6E 2E 0D 0A 0D 0A 41 20 e explain.....A
012A20: 56 45 4E 44 4F 52 20 66 6F 72 6D 61 74 20 64 69 VENDOR format di
012A30: 73 63 20 69 73 20 74 68 65 20 73 61 6D 65 20 61 sc is the same a
012A40: 20 53 59 53 54 45 4D 20 66 6F 72 6D 61 74 20 64 SYSTEM format d
012A50: 69 73 63 2C 20 65 78 63 65 70 74 20 74 68 61 74 isc, except that
012A60: 20 69 73 20 64 6F 65 73 0D 0A 6E 6F 74 20 63 6F is does..not co
012A70: 6E 74 61 69 6E 20 74 68 65 20 73 79 73 74 65 6D ntain the system
012A80: 20 74 72 61 63 6B 73 2E 20 49 74 20 69 73 20 61 tracks. It is a
012A90: 67 61 69 6E 73 74 20 74 68 65 20 63 6F 70 79 72 gainst the copyr
012AA0: 69 67 68 74 20 6C 61 77 73 20 74 6F 0D 0A 64 69 ight laws to..di
012AB0: 73 74 72 69 62 75 74 65 20 64 69 73 63 73 20 63 stribute discs c
012AC0: 6F 6E 74 61 69 6E 69 6E 67 20 74 68 65 20 43 50 ontaining the CP
012AD0: 2F 4D 20 73 79 73 74 65 6D 20 74 72 61 63 6B 73 /M system tracks
012AE0: 2E 0D 0A 0D 0A 56 45 4E 44 4F 52 20 66 6F 72 6D .....VENDOR form
012AF0: 61 74 20 64 69 73 63 73 20 63 61 6E 20 76 65 72 at discs can ver
012B00: 57 41 43 43 49 20 50 44 20 44 49 53 43 20 54 57 WACCI PD DISC TW
012B10: 45 4C 56 45 0D 0A 20 20 20 20 20 20 20 20 20 20 ELVE..
012B20: 20 20 20 20 20 20 20 20 20 20 57 41 43 43 49 20 WACCI
012B30: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 44 49 PUBLIC DOMAIN DI
012B40: 53 43 20 54 57 45 4C 56 45 0D 0A 20 20 20 20 20 SC TWELVE..
012B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
012B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
012B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
012B80: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012B90: 54 68 65 73 65 20 70 72 6F 67 72 61 6D 73 20 72 These programs r
012BA0: 75 6E 20 75 6E 64 65 72 20 43 50 2F 4D 20 32 2E un under CP/M 2.
012BB0: 32 20 61 6E 64 20 43 50 2F 4D 20 33 2E 31 0D 0A 2 and CP/M 3.1..
012BC0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
012BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
012BE0: 49 53 20 44 49 53 43 20 43 4F 4E 54 41 49 4E 53 IS DISC CONTAINS
012BF0: 3A 0D 0A 0D 0A 52 65 66 2E 20 20 20 50 72 6F 67 :....Ref. Prog
012C00: 72 61 6D 20 20 20 20 20 20 53 69 7A 65 20 20 20 ram Size
012C10: 44 65 73 63 72 69 70 74 69 6F 6E 0D 0A 0D 0A 31 Description....1
012C20: 32 2F 30 31 61 20 20 44 49 53 43 2E 42 41 53 20 2/01a DISC.BAS
012C30: 20 20 20 20 20 34 6B 20 7D 20 49 6E 73 74 72 75 4k } Instru
012C40: 63 74 69 6F 6E 73 20 26 20 64 69 73 63 20 63 6F ctions & disc co
012C50: 6E 74 65 6E 74 73 0D 0A 31 32 2F 30 31 62 20 20 ntents..12/01b
012C60: 44 49 53 43 2E 44 4F 43 20 20 20 20 20 20 35 6B DISC.DOC 5k
012C70: 20 7D 0D 0A 0D 0A 31 32 2F 30 32 61 20 20 43 4F }....12/02a CO
012C80: 42 4F 4C 2E 43 4F 4D 20 20 20 20 31 34 6B 20 7D BOL.COM 14k }
012C90: 20 54 68 65 20 43 4F 42 4F 4C 20 63 6F 6D 70 69 The COBOL compi
012CA0: 6C 65 72 0D 0A 31 32 2F 30 32 62 20 20 43 4F 42 ler..12/02b COB
012CB0: 4F 4C 2E 4F 56 52 20 20 20 20 31 34 6B 20 7D 0D OL.OVR 14k }.
012CC0: 0A 0D 0A 31 32 2F 30 33 61 20 20 45 58 45 43 2E ...12/03a EXEC.
012CD0: 43 4F 4D 20 20 20 20 20 20 38 6B 20 7D 20 54 68 COM 8k } Th
012CE0: 65 20 43 4F 42 4F 4C 20 45 58 45 43 75 74 69 6F e COBOL EXECutio
012CF0: 6E 20 70 72 6F 67 72 61 6D 0D 0A 31 32 2F 30 33 n program..12/03
012D00: 79 20 71 75 69 63 6B 6C 79 20 61 6E 64 20 65 61 y quickly and ea
012D10: 73 69 6C 79 20 62 65 20 63 6F 6E 76 65 72 74 65 sily be converte
012D20: 64 20 69 6E 74 6F 20 53 79 73 74 65 6D 0D 0A 66 d into System..f
012D30: 6F 72 6D 61 74 20 64 69 73 63 73 20 74 68 61 74 ormat discs that
012D40: 20 77 69 6C 6C 20 72 75 6E 20 75 6E 64 65 72 20 will run under
012D50: 43 50 2F 4D 20 32 2E 32 2C 20 61 6C 6C 20 79 6F CP/M 2.2, all yo
012D60: 75 20 6E 65 65 64 20 74 6F 20 64 6F 20 69 73 20 u need to do is
012D70: 66 6F 6C 6C 6F 77 0D 0A 74 68 65 73 65 20 69 6E follow..these in
012D80: 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D 0A 43 structions.....C
012D90: 50 2F 4D 20 33 2E 31 20 75 73 65 72 73 20 44 4F P/M 3.1 users DO
012DA0: 20 4E 4F 54 20 6E 65 65 64 20 74 6F 20 63 6F 70 NOT need to cop
012DB0: 79 20 74 68 65 20 73 79 73 74 65 6D 20 74 72 61 y the system tra
012DC0: 63 6B 73 20 6F 6E 74 6F 20 74 68 65 69 72 20 64 cks onto their d
012DD0: 69 73 63 73 2C 20 74 68 69 73 0D 0A 76 65 72 73 iscs, this..vers
012DE0: 69 6F 6E 20 6F 66 20 43 50 5C 4D 20 77 69 6C 6C ion of CP\M will
012DF0: 20 68 61 70 70 69 6C 79 20 75 73 65 20 44 41 54 happily use DAT
012E00: 41 2C 20 53 59 53 54 45 4D 20 61 6E 64 20 56 45 A, SYSTEM and VE
012E10: 4E 44 4F 52 20 66 6F 72 6D 61 74 20 64 69 73 63 NDOR format disc
012E20: 73 2E 0D 0A 0D 0A 43 50 2F 4D 20 32 2E 32 20 55 s.....CP/M 2.2 U
012E30: 53 45 52 53 20 4F 4E 4C 59 20 3A 0D 0A 0D 0A 31 SERS ONLY :....1
012E40: 2E 20 43 6F 70 79 20 79 6F 75 20 50 44 20 64 69 . Copy you PD di
012E50: 73 63 0D 0A 32 2E 20 4C 6F 61 64 20 43 50 2F 4D sc..2. Load CP/M
012E60: 20 32 2E 32 20 20 20 20 20 20 28 70 6C 65 61 73 2.2 (pleas
012E70: 65 20 77 72 69 74 65 20 70 72 6F 74 65 63 74 20 e write protect
012E80: 79 6F 75 72 20 63 70 2F 6D 20 6D 61 73 74 65 72 your cp/m master
012E90: 20 64 69 73 63 29 0D 0A 33 2E 20 54 79 70 65 20 disc)..3. Type
012EA0: 69 6E 20 42 4F 4F 54 47 45 4E 20 20 20 20 28 70 in BOOTGEN (p
012EB0: 72 65 73 73 20 72 65 74 75 72 6E 29 0D 0A 0D 0A ress return)....
012EC0: 20 20 20 61 74 20 74 68 65 20 27 70 6C 65 61 73 at the 'pleas
012ED0: 65 20 69 6E 73 65 72 74 20 79 6F 75 72 20 73 6F e insert your so
012EE0: 75 72 63 65 20 64 69 73 63 20 69 6E 20 64 72 69 urce disc in dri
012EF0: 76 65 20 41 20 2E 2E 2E 2E 2E 2E 2E 2E 20 27 20 ve A ........ '
012F00: 62 20 20 45 58 45 43 2E 4F 56 52 20 20 20 20 20 b EXEC.OVR
012F10: 31 33 6B 20 7D 0D 0A 0D 0A 31 32 2F 30 34 61 20 13k }....12/04a
012F20: 20 43 4F 42 4F 4C 2D 31 2E 44 4F 43 20 20 31 33 COBOL-1.DOC 13
012F30: 6B 20 7D 20 54 68 65 20 43 4F 42 4F 4C 20 44 4F k } The COBOL DO
012F40: 43 75 6D 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 Cumentation file
012F50: 73 0D 0A 31 32 2F 30 34 62 20 20 43 4F 42 4F 4C s..12/04b COBOL
012F60: 2D 32 2E 44 4F 43 20 20 20 39 6B 20 7D 0D 0A 31 -2.DOC 9k }..1
012F70: 32 2F 30 34 63 20 20 43 4F 42 4F 4C 2D 33 2E 44 2/04c COBOL-3.D
012F80: 4F 43 20 20 31 33 6B 20 7D 0D 0A 0D 0A 31 32 2F OC 13k }....12/
012F90: 30 35 61 20 20 53 45 52 49 45 53 2E 50 54 31 20 05a SERIES.PT1
012FA0: 20 20 31 33 6B 20 7D 20 54 68 65 20 63 6F 6D 70 13k } The comp
012FB0: 6C 65 74 65 20 43 4F 42 4F 4C 20 70 72 6F 67 72 lete COBOL progr
012FC0: 61 6D 6D 69 6E 67 20 73 65 72 69 65 73 0D 0A 31 amming series..1
012FD0: 32 2F 30 35 62 20 20 53 45 52 49 45 53 2E 50 54 2/05b SERIES.PT
012FE0: 32 20 20 20 31 35 6B 20 7D 20 28 61 73 20 70 75 2 15k } (as pu
012FF0: 62 6C 69 73 68 65 64 20 69 6E 20 57 41 43 43 49 blished in WACCI
013000: 29 0D 0A 31 32 2F 30 35 63 20 20 53 45 52 49 45 )..12/05c SERIE
013010: 53 2E 50 54 33 20 20 20 31 36 6B 20 7D 0D 0A 31 S.PT3 16k }..1
013020: 32 2F 30 35 64 20 20 53 45 52 49 45 53 2E 50 54 2/05d SERIES.PT
013030: 34 20 20 20 31 34 6B 20 7D 0D 0A 31 32 2F 30 35 4 14k }..12/05
013040: 65 20 20 53 45 52 49 45 53 2E 50 54 35 20 20 20 e SERIES.PT5
013050: 31 36 6B 20 7D 0D 0A 31 32 2F 30 35 66 20 20 53 16k }..12/05f S
013060: 45 52 49 45 53 2E 50 54 36 20 20 20 31 36 6B 20 ERIES.PT6 16k
013070: 7D 0D 0A 31 32 2F 30 35 67 20 20 53 45 52 49 45 }..12/05g SERIE
013080: 53 2E 50 54 37 20 20 20 31 34 6B 20 7D 0D 0A 31 S.PT7 14k }..1
013090: 32 2F 30 35 68 20 20 53 45 52 49 45 53 2E 50 54 2/05h SERIES.PT
0130A0: 38 20 20 20 31 37 6B 20 7D 0D 0A 0D 0A 31 32 2F 8 17k }....12/
0130B0: 30 36 20 20 20 45 58 41 4D 2D 6E 6E 2E 43 42 4C 06 EXAM-nn.CBL
0130C0: 20 20 34 34 6B 20 7D 20 54 68 65 20 63 6F 6D 70 44k } The comp
0130D0: 6C 65 74 65 20 73 65 74 20 6F 66 20 65 78 61 6D lete set of exam
0130E0: 70 6C 65 20 70 72 6F 67 72 61 6D 73 20 75 73 65 ple programs use
0130F0: 64 0D 0A 20 20 20 20 20 20 20 20 45 58 41 4D 2D d.. EXAM-
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 01 00 02 09 52 E5 10 00 C1 02 00 00 00 02 ......R.........
013120: 10 00 C6 02 00 00 00 02 10 00 C2 02 00 00 00 02 ................
013130: 10 00 C7 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013140: 10 00 C8 02 00 00 00 02 10 00 C4 02 00 00 00 02 ................
013150: 10 00 C9 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 70 72 6F 6D 70 74 0D 0A 0D 0A 20 20 20 70 72 65 prompt.... pre
013210: 73 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 ss RETURN....
013220: 61 74 20 74 68 65 20 27 70 6C 65 61 73 65 20 69 at the 'please i
013230: 6E 73 65 72 74 20 79 6F 75 72 20 64 65 73 74 69 nsert your desti
013240: 6E 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 20 64 nation disc in d
013250: 72 69 76 65 20 41 20 2E 2E 2E 20 27 20 70 72 6F rive A ... ' pro
013260: 6D 70 74 0D 0A 0D 0A 20 20 20 70 6C 61 63 65 20 mpt.... place
013270: 79 6F 75 20 50 44 20 64 69 73 63 20 69 6E 20 64 you PD disc in d
013280: 72 69 76 65 20 41 2C 20 74 68 65 6E 20 70 72 65 rive A, then pre
013290: 73 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 ss RETURN....
0132A0: 61 74 20 74 68 65 20 27 64 6F 20 79 6F 75 20 77 at the 'do you w
0132B0: 69 73 68 20 74 6F 20 63 6F 6E 66 69 67 75 72 65 ish to configure
0132C0: 20 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 59 another disc (Y
0132D0: 2F 4E 29 27 20 70 72 6F 6D 70 74 0D 0A 0D 0A 20 /N)' prompt....
0132E0: 20 20 70 72 65 73 73 20 4E 2C 20 74 68 65 6E 20 press N, then
0132F0: 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 74 20 RETURN.... at
013300: 74 68 65 20 27 70 6C 65 61 73 65 20 69 6E 73 65 the 'please inse
013310: 72 74 20 61 20 43 50 2F 4D 20 73 79 73 74 65 6D rt a CP/M system
013320: 20 64 69 73 63 20 69 6E 74 6F 20 64 72 69 76 65 disc into drive
013330: 20 41 20 2E 2E 2E 2E 20 27 20 70 72 6F 6D 70 74 A .... ' prompt
013340: 0D 0A 0D 0A 20 20 20 70 75 74 20 79 6F 75 72 20 .... put your
013350: 43 50 2F 4D 20 32 2E 32 20 64 69 73 63 20 62 61 CP/M 2.2 disc ba
013360: 63 6B 20 69 6E 74 6F 20 64 72 69 76 65 20 41 20 ck into drive A
013370: 74 68 65 6E 20 70 72 65 73 73 20 52 45 54 55 52 then press RETUR
013380: 4E 2E 0D 0A 0D 0A 34 2E 20 54 79 70 65 20 69 6E N.....4. Type in
013390: 20 53 59 53 47 45 4E 20 20 20 20 20 20 28 70 72 SYSGEN (pr
0133A0: 65 73 73 20 52 45 54 55 52 4E 29 0D 0A 0D 0A 20 ess RETURN)....
0133B0: 20 20 61 74 20 74 68 65 20 27 70 6C 65 61 73 65 at the 'please
0133C0: 20 69 6E 73 65 72 74 20 79 6F 75 72 20 73 6F 75 insert your sou
0133D0: 72 63 65 20 64 69 73 63 20 69 6E 20 64 72 69 76 rce disc in driv
0133E0: 65 20 41 20 2E 2E 2E 2E 2E 2E 2E 2E 20 27 20 70 e A ........ ' p
0133F0: 72 6F 6D 70 74 0D 0A 0D 0A 20 20 20 70 72 65 73 rompt.... pres
013400: 02 01 08 01 CD 82 02 2A 32 0B 23 44 4D CD 92 02 .......*2.#DM...
013410: C9 21 00 00 22 E0 0A 21 1F 03 E5 2A E0 0A E9 C9 .!.."..!...*....
013420: 21 35 0B 70 2B 71 CD 77 02 2A 34 0B 7C 4F CD 67 !5.p+q.w.*4.|O.g
013430: 02 2A 34 0B 7D 4F CD 67 02 2A E9 0A 23 44 4D CD .*4.}O.g.*..#DM.
013440: 92 02 01 03 01 CD 82 02 CD 11 03 C9 21 3B 0B 72 ............!;.r
013450: 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A 3A 0B +s+p+q+..p+q.*:.
013460: 2B 22 3A 0B 11 FF FF CD 97 0A B5 CA 89 03 2A 36 +":...........*6
013470: 0B E5 2A 38 0B C1 0A 77 2A 36 0B 23 22 36 0B 2A ..*8...w*6.#"6.*
013480: 38 0B 23 22 38 0B C3 5D 03 C9 21 3F 0B 73 2B 71 8.#"8..]..!?.s+q
013490: 2B D1 C1 70 2B 71 D5 3A 3F 0B 3D 32 3F 0B FE FF +..p+q.:?.=2?...
0134A0: CA B4 03 2A 3C 0B 3A 3E 0B 77 2A 3C 0B 23 22 3C ...*<.:>.w*<.#"<
0134B0: 0B C3 97 03 C9 2A E0 0A 23 22 E0 0A EB 21 00 01 .....*..#"...!..
0134C0: CD 97 0A DA E6 03 2A E9 0A EB 0E 14 CD 05 00 FE ......*.........
0134D0: 00 CA E0 03 CD 77 02 01 1F 01 CD 82 02 CD 11 03 .....w..........
0134E0: 21 80 00 22 E0 0A 2A E0 0A 7E C9 CD B5 03 2A E0 !.."..*..~....*.
0134F0: 0A 77 C9 21 40 0B 71 3A E6 0A 1F D2 0B 04 CD 77 .w.!@.q:.......w
013500: 02 01 2C 01 CD 82 02 CD EB 03 C9 21 F0 0A 36 01 ..,........!..6.
013510: 3A 40 0B 21 F0 0A BE DA 35 04 2A E0 0A E5 2A E4 :@.!....5.*...*.
013520: 0A C1 0A 77 CD EB 03 2A E4 0A 23 22 E4 0A 21 F0 ...w...*..#"..!.
013530: 0A 34 C2 10 04 11 EE 0A 01 E4 0A CD 9E 0A D2 47 .4.............G
013540: 04 01 4F 4D CD 20 03 C9 21 59 0B 22 EB 0A 2A EB ..OM. ..!Y."..*.
013550: 0A E5 1E 22 0E 00 CD 8A 03 11 20 00 2A EB 0A 19 ..."...... .*...
013560: 22 1A 0B 3E 00 77 23 36 00 C9 2A 1A 0B 22 41 0B "..>.w#6..*.."A.
013570: 01 11 00 2A E7 0A 09 22 1A 0B 11 18 0B CD AE 0A ...*..."........
013580: D2 89 04 01 53 50 CD 20 03 2A 41 0B E5 1E 11 0E ....SP. .*A.....
013590: 00 CD 8A 03 C9 21 43 0B 36 00 23 36 00 3E 07 21 .....!C.6.#6.>.!
0135A0: 44 0B BE DA BD 04 2A 44 0B 26 00 01 1E 0B 09 3A D.....*D.&.....:
0135B0: 43 0B 86 32 43 0B 21 44 0B 34 C2 9D 04 3A ED 0A C..2C.!D.4...:..
0135C0: 21 43 0B A6 87 11 EB 0A CD 87 0A 22 1C 0B 2A 1C !C........."..*.
0135D0: 0B 3E 00 CD B6 0A B5 C2 23 05 2A 1A 0B 22 E7 0A .>......#.*.."..
0135E0: 2A 1C 0B E5 2A 1A 0B EB E1 73 23 72 CD 6A 04 21 *...*....s#r.j.!
0135F0: 44 0B 36 00 3E 07 21 44 0B BE DA 1F 05 2A 44 0B D.6.>.!D.....*D.
013600: 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 s RETURN.... a
013610: 74 20 74 68 65 20 27 70 6C 65 61 73 65 20 69 6E t the 'please in
013620: 73 65 72 74 20 79 6F 75 72 20 64 65 73 74 69 6E sert your destin
013630: 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 20 64 72 ation disc in dr
013640: 69 76 65 20 41 20 2E 2E 2E 20 27 20 70 72 6F 6D ive A ... ' prom
013650: 70 74 0D 0A 0D 0A 20 20 20 70 6C 61 63 65 20 79 pt.... place y
013660: 6F 75 20 50 44 20 64 69 73 63 20 69 6E 20 64 72 ou PD disc in dr
013670: 69 76 65 20 41 2C 20 74 68 65 6E 20 70 72 65 73 ive A, then pres
013680: 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 s RETURN.... a
013690: 74 20 74 68 65 20 27 64 6F 20 79 6F 75 20 77 69 t the 'do you wi
0136A0: 73 68 20 74 6F 20 63 6F 6E 66 69 67 75 72 65 20 sh to configure
0136B0: 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 59 2F another disc (Y/
0136C0: 4E 29 27 20 70 72 6F 6D 70 74 0D 0A 0D 0A 20 20 N)' prompt....
0136D0: 20 70 72 65 73 73 20 4E 2C 20 74 68 65 6E 20 52 press N, then R
0136E0: 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 74 20 74 ETURN.... at t
0136F0: 68 65 20 27 70 6C 65 61 73 65 20 69 6E 73 65 72 he 'please inser
013700: 74 20 61 20 43 50 2F 4D 20 73 79 73 74 65 6D 20 t a CP/M system
013710: 64 69 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 disc into drive
013720: 41 20 2E 2E 2E 2E 20 27 20 70 72 6F 6D 70 74 0D A .... ' prompt.
013730: 0A 0D 0A 20 20 20 70 75 74 20 79 6F 75 72 20 43 ... put your C
013740: 50 2F 4D 20 32 2E 32 20 64 69 73 63 20 62 61 63 P/M 2.2 disc bac
013750: 6B 20 69 6E 74 6F 20 64 72 69 76 65 20 41 20 74 k into drive A t
013760: 68 65 6E 20 70 72 65 73 73 20 52 45 54 55 52 4E hen press RETURN
013770: 2E 0D 0A 0D 0A 35 2E 20 59 6F 75 72 20 50 44 20 .....5. Your PD
013780: 64 69 73 63 20 6E 6F 77 20 63 6F 6E 74 61 69 6E disc now contain
013790: 73 20 61 20 63 6F 70 79 20 6F 66 20 79 6F 75 72 s a copy of your
0137A0: 20 43 50 2F 4D 20 73 79 73 74 65 6D 20 74 72 61 CP/M system tra
0137B0: 63 6B 73 2C 20 6C 65 74 27 73 0D 0A 20 20 20 63 cks, let's.. c
0137C0: 68 65 63 6B 20 74 68 61 74 20 6F 75 74 20 62 79 heck that out by
0137D0: 3A 0D 0A 0D 0A 20 20 20 61 29 20 72 65 73 65 74 :.... a) reset
0137E0: 20 74 68 65 20 6D 61 63 68 69 6E 65 0D 0A 20 20 the machine..
0137F0: 20 62 29 20 70 6C 61 63 65 20 74 68 65 20 50 44 b) place the PD
013800: 26 00 01 1E 0B 09 E5 2A 44 0B 26 00 01 08 00 09 &......*D.&.....
013810: EB 2A E7 0A 19 D1 1A 77 21 44 0B 34 C2 F4 04 C9 .*.....w!D.4....
013820: C3 6C 05 2A 1C 0B 5E 23 56 EB 22 E7 0A 21 44 0B .l.*..^#V."..!D.
013830: 36 00 2A 44 0B 26 00 01 08 00 09 EB 2A E7 0A 19 6.*D.&......*...
013840: E5 2A 44 0B 26 00 01 1E 0B 09 D1 1A BE C2 6C 05 .*D.&.........l.
013850: 3A 44 0B 3C 32 44 0B 4F 3E 07 B9 D2 69 05 2A 1C :D.<2D.O>...i.*.
013860: 0B 5E 23 56 EB 22 E7 0A C9 C3 32 05 2A 1C 0B 5E .^#V."....2.*..^
013870: 23 56 EB 22 1C 0B C3 CE 04 C9 2A E7 0A 23 23 5E #V."......*..##^
013880: 23 56 EB 22 45 0B 21 47 0B 22 E2 0A CD B5 03 2A #V."E.!G.".....*
013890: E2 0A 77 CD B5 03 2A E2 0A 23 77 2A 47 0B EB 2A ..w...*..#w*G..*
0138A0: E4 0A 19 EB 2A F1 0A CD 97 0A E5 2A E7 0A 23 23 ....*......*..##
0138B0: C1 71 23 70 3E 00 11 45 0B CD AB 0A B5 CA 07 06 .q#p>..E........
0138C0: 2A 45 0B 22 E2 0A 2A E2 0A 5E 23 56 EB 22 45 0B *E."..*..^#V."E.
0138D0: 21 F0 0A 36 01 3E 03 21 F0 0A BE DA 04 06 2A F0 !..6.>.!......*.
0138E0: 0A 26 00 29 EB 2A E7 0A 19 E5 2A E2 0A E3 4E 23 .&.).*....*...N#
0138F0: 46 E1 71 23 70 2A E2 0A 23 23 22 E2 0A 21 F0 0A F.q#p*..##"..!..
013900: 34 C2 D5 05 C3 B4 05 2A E7 0A 23 23 5E 23 56 EB 4......*..##^#V.
013910: 22 E4 0A C9 21 49 0B 22 E2 0A CD B5 03 2A E2 0A "...!I.".....*..
013920: 77 CD B5 03 2A E2 0A 23 77 01 49 0B 11 29 0B CD w...*..#w.I..)..
013930: 9E 0A EB 2A 14 0B 19 22 14 0B 01 F1 0A 11 E4 0A ...*..."........
013940: CD 9E 0A 22 16 0B C9 0E 01 CD F3 03 21 4B 0B 36 ..."........!K.6
013950: 00 3E 07 21 4B 0B BE DA 74 06 2A E0 0A E5 2A 4B .>.!K...t.*...*K
013960: 0B 26 00 01 1E 0B 09 D1 1A 77 CD EB 03 21 4B 0B .&.......w...!K.
013970: 34 C2 51 06 CD 95 04 21 4B 0B 36 01 3E 03 21 4B 4.Q....!K.6.>.!K
013980: 0B BE DA AB 06 2A 4B 0B 26 00 29 EB 2A E7 0A 19 .....*K.&.).*...
013990: E5 2A E4 0A E3 4E 23 46 E1 71 23 70 2A E4 0A 23 .*...N#F.q#p*..#
0139A0: 23 22 E4 0A 21 4B 0B 34 C2 7C 06 01 10 00 2A E7 #"..!K.4.|....*.
0139B0: 0A 09 7E FE 00 C2 CA 06 3E 06 11 E4 0A CD AB 0A ..~.....>.......
0139C0: E5 2A E7 0A 23 23 C1 71 23 70 C9 0E 01 CD F3 03 .*..##.q#p......
0139D0: 2A E0 0A 7E 87 C6 04 4F CD F3 03 C9 0E 01 CD F3 *..~...O........
0139E0: 03 2A E0 0A 7E 87 3C 3C 4F CD F3 03 C9 21 4C 0B .*..~.<<O....!L.
0139F0: 22 E2 0A 21 F0 0A 36 00 3E 03 21 F0 0A BE DA 16 "..!..6.>.!.....
013A00: 20 64 69 73 63 20 77 69 74 68 20 74 68 65 20 73 disc with the s
013A10: 79 73 74 65 6D 20 74 72 61 63 6B 73 20 6F 6E 20 ystem tracks on
013A20: 69 6E 20 64 72 69 76 65 20 41 0D 0A 20 20 20 63 in drive A.. c
013A30: 29 20 74 79 70 65 20 7C 43 50 4D 2C 20 70 72 65 ) type |CPM, pre
013A40: 73 73 20 52 45 54 55 52 4E 0D 0A 20 20 20 64 29 ss RETURN.. d)
013A50: 20 61 6E 64 20 43 50 2F 4D 20 32 2E 32 20 73 68 and CP/M 2.2 sh
013A60: 6F 75 6C 64 20 68 61 70 70 69 6C 79 20 6C 6F 61 ould happily loa
013A70: 64 0D 0A 0D 0A 36 2E 20 49 66 20 43 50 2F 4D 20 d....6. If CP/M
013A80: 32 2E 32 20 64 6F 65 73 20 6E 6F 74 20 6C 6F 61 2.2 does not loa
013A90: 64 2C 20 74 68 65 6E 20 6D 61 6B 65 20 61 6E 6F d, then make ano
013AA0: 74 68 65 72 20 63 6F 70 79 20 6F 66 20 79 6F 75 ther copy of you
013AB0: 72 20 50 44 20 64 69 73 63 2C 0D 0A 20 20 20 61 r PD disc,.. a
013AC0: 6E 64 20 73 74 61 72 74 20 61 67 61 69 6E 2E 20 nd start again.
013AD0: 59 6F 75 20 73 68 6F 75 6C 64 20 6E 6F 74 20 68 You should not h
013AE0: 61 76 65 20 61 6E 79 20 70 72 6F 62 6C 65 6D 73 ave any problems
013AF0: 2C 20 49 20 68 61 76 65 20 74 65 73 74 65 64 0D , I have tested.
013B00: 0A 20 20 20 74 68 69 73 20 6F 75 74 20 6F 6E 20 . this out on
013B10: 61 20 36 31 32 38 20 61 6E 64 20 69 74 20 77 6F a 6128 and it wo
013B20: 72 6B 73 20 68 61 70 70 69 6C 79 2E 0D 0A 0D 0A rks happily.....
013B30: 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 46 49 4C 45 ..** END OF FILE
013B40: 20 2A 2A 0D 0A 1A 4C 56 45 0D 0A 20 20 20 20 20 **...LVE..
013B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
013B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
013B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
013B80: 65 63 6F 72 64 20 69 6E 20 77 68 69 63 68 20 69 ecord in which i
013B90: 74 20 6F 63 63 75 72 72 65 64 2E 0D 0A 0D 0A 52 t occurred.....R
013BA0: 33 20 20 52 65 64 65 66 69 6E 65 73 20 6D 69 73 3 Redefines mis
013BB0: 70 6C 61 63 65 64 20 2D 20 61 20 72 65 64 65 66 placed - a redef
013BC0: 69 6E 65 73 20 77 61 73 20 61 74 74 65 6D 70 74 ines was attempt
013BD0: 65 64 20 69 6E 20 74 68 65 20 46 49 4C 45 20 53 ed in the FILE S
013BE0: 45 43 54 49 4F 4E 20 6F 66 0D 0A 20 20 20 20 20 ECTION of..
013BF0: 74 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 the source progr
013C00: 07 CD B5 03 2A F0 0A 26 00 EB 2A E2 0A 19 77 21 ....*..&..*...w!
013C10: F0 0A 34 C2 F8 06 2A 16 0B EB 2A 4C 0B 19 22 E2 ..4...*...*L..".
013C20: 0A 5E 23 56 EB 22 4C 0B 2A E2 0A E5 2A 4E 0B EB .^#V."L.*...*N..
013C30: E1 73 23 72 3E 00 11 4C 0B CD AB 0A B5 C2 44 07 .s#r>..L......D.
013C40: CD EB 03 C9 C3 16 07 C9 21 52 0B 22 E2 0A 21 F0 ........!R."..!.
013C50: 0A 36 00 3E 03 21 F0 0A BE DA 71 07 CD B5 03 2A .6.>.!....q....*
013C60: F0 0A 26 00 EB 2A E2 0A 19 77 21 F0 0A 34 C2 53 ..&..*...w!..4.S
013C70: 07 01 50 0B 11 EE 0A CD 9E 0A 11 52 0B CD AE 0A ..P........R....
013C80: DA 96 07 01 14 0B 11 52 0B CD 9E 0A 2B 22 E2 0A .......R....+"..
013C90: 22 EE 0A C3 A2 07 2A 16 0B EB 2A 52 0B 19 2B 22 ".....*...*R..+"
013CA0: E2 0A 21 01 00 22 50 0B 11 54 0B 01 50 0B CD 9E ..!.."P..T..P...
013CB0: 0A DA CD 07 CD B5 03 2A 50 0B EB 2A E2 0A 19 77 .......*P..*...w
013CC0: 11 01 00 2A 50 0B 19 22 50 0B D2 A8 07 CD EB 03 ...*P.."P.......
013CD0: C9 3A 28 0B 1F D2 E0 07 2A E4 0A 36 08 C3 E5 07 .:(.....*..6....
013CE0: 2A E4 0A 36 06 2A E4 0A 23 22 E4 0A 21 56 0B 36 *..6.*..#"..!V.6
013CF0: FF 2A E9 0A 23 44 4D CD 92 02 01 37 01 CD 82 02 .*..#DM....7....
013D00: 21 28 0B 36 00 21 56 0B 36 00 3E 0F 21 56 0B BE !(.6.!V.6.>.!V..
013D10: DA EE 08 2A 56 0B 26 00 29 EB 2A EB 0A 19 22 1C ...*V.&.).*...".
013D20: 0B 2A 1C 0B 3E 00 CD B6 0A B5 CA E7 08 2A 1C 0B .*..>........*..
013D30: 5E 23 56 EB 22 E7 0A 01 10 00 09 7E FE 00 C2 DA ^#V."......~....
013D40: 08 21 E6 0A 36 01 01 10 00 2A E7 0A 09 36 01 21 .!..6....*...6.!
013D50: 28 0B 36 01 CD 14 06 01 04 00 2A E7 0A 09 E5 2A (.6.......*....*
013D60: 16 0B EB E1 73 23 72 01 06 00 2A E7 0A 09 E5 2A ....s#r...*....*
013D70: 14 0B EB E1 73 23 72 2A E9 0A 44 4D CD EA 02 01 ....s#r*..DM....
013D80: 08 00 2A E7 0A 09 E5 2A E9 0A 23 44 4D 11 08 00 ..*....*..#DM...
013D90: CD 4C 03 01 20 00 2A E9 0A 09 36 00 11 0C 00 2A .L.. .*...6....*
013DA0: E9 0A 19 E5 1E 04 0E 00 CD 8A 03 21 00 01 22 E0 ...........!..".
013DB0: 0A 2A E9 0A 44 4D CD DA 02 FE FF C2 D6 08 2A E9 .*..DM........*.
013DC0: 0A 23 44 4D CD 92 02 01 03 01 CD 82 02 01 3F 01 .#DM..........?.
013DD0: CD 82 02 CD 11 03 CD EB 03 C9 2A 1C 0B 5E 23 56 ..........*..^#V
013DE0: EB 22 1C 0B C3 21 08 21 56 0B 34 C2 0A 08 C9 21 ."...!.!V.4....!
013DF0: E6 0A 36 00 3A 28 0B 1F D2 01 09 CD 7A 05 C3 1A ..6.:(......z...
013E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014000: 09 CD B5 03 2A F1 0A 77 CD B5 03 2A F1 0A 23 77 ....*..w...*..#w
014010: 2A F1 0A 5E 23 56 EB 22 E4 0A CD EB 03 C9 2A E0 *..^#V."......*.
014020: 0A 7E FE 09 D2 2F 09 0E 01 CD F3 03 C3 83 0A 2A .~.../.........*
014030: E0 0A 7E FE 0A D2 40 09 0E 02 CD F3 03 C3 83 0A ..~...@.........
014040: 2A E0 0A 7E FE 16 D2 51 09 0E 03 CD F3 03 C3 83 *..~...Q........
014050: 0A 2A E0 0A 7E FE 1A D2 62 09 0E 04 CD F3 03 C3 .*..~...b.......
014060: 83 0A 2A E0 0A 7E FE 22 D2 73 09 0E 05 CD F3 03 ..*..~.".s......
014070: C3 83 0A 2A E0 0A 7E FE 29 D2 84 09 0E 06 CD F3 ...*..~.).......
014080: 03 C3 83 0A 2A E0 0A 7E FE 33 D2 95 09 0E 07 CD ....*..~.3......
014090: F3 03 C3 83 0A 2A E0 0A 7E FE 33 D2 A6 09 0E 08 .....*..~.3.....
0140A0: CD F3 03 C3 83 0A 2A E0 0A 7E FE 38 D2 B7 09 0E ......*..~.8....
0140B0: 09 CD F3 03 C3 83 0A 2A E0 0A 7E FE 3E D2 C8 09 .......*..~.>...
0140C0: 0E 0A CD F3 03 C3 83 0A 2A E0 0A 7E FE 3F D2 D9 ........*..~.?..
0140D0: 09 0E 0B CD F3 03 C3 83 0A 2A E0 0A 7E FE 3F D2 .........*..~.?.
0140E0: EA 09 0E 0C CD F3 03 C3 83 0A 2A E0 0A 7E FE 40 ..........*..~.@
0140F0: D2 FB 09 0E 0D CD F3 03 C3 83 0A 2A E0 0A 7E FE ...........*..~.
014100: 40 C2 0A 0A CD 47 06 C3 83 0A 2A E0 0A 7E FE 41 @....G....*..~.A
014110: C2 19 0A CD CB 06 C3 83 0A 2A E0 0A 7E FE 42 C2 .........*..~.B.
014120: 28 0A CD DC 06 C3 83 0A 2A E0 0A 7E FE 44 C2 37 (.......*..~.D.7
014130: 0A CD ED 06 C3 83 0A 2A E0 0A 7E FE 43 C2 46 0A .......*..~.C.F.
014140: CD 48 07 C3 83 0A 2A E0 0A 7E FE 45 C2 68 0A CD .H....*..~.E.h..
014150: D1 07 3A 28 0B 1F DA 65 0A CD 14 06 2A E9 0A 44 ..:(...e....*..D
014160: 4D CD EA 02 C9 C3 83 0A 2A E0 0A 7E FE 46 C2 77 M.......*..~.F.w
014170: 0A CD EF 08 C3 83 0A CD 77 02 01 4A 01 CD 82 02 ........w..J....
014180: CD EB 03 C3 1E 09 C9 EB 5F 16 00 EB 1A 85 6F 13 ........_.....o.
014190: 1A 8C 67 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 69 60 ..g._..{.oz.g.i`
0141A0: 4E 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 N#F..o...g.o&...
0141B0: 6F 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 o...g._..{._z#.W
0141C0: EB C9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0141E0: 00 01 00 00 00 00 01 00 00 5C 00 00 00 0F 00 00 .........\......
0141F0: 00 00 35 00 45 58 45 43 20 20 20 20 4F 56 52 00 ..5.EXEC OVR.
014200: C3 A3 01 2E 43 49 4E 24 43 4C 4F 53 45 20 45 52 .£..CIN$CLOSE ER
014210: 52 4F 52 20 4F 4E 20 4D 4F 44 55 4C 45 20 24 45 ROR ON MODULE $E
014220: 4E 44 20 4F 46 20 49 4E 50 55 54 24 43 4F 44 45 ND OF INPUT$CODE
014230: 20 45 52 52 4F 52 24 20 4C 4F 41 44 45 44 24 20 ERROR$ LOADED$
014240: 4E 4F 54 20 46 4F 55 4E 44 24 4C 4F 41 44 20 45 NOT FOUND$LOAD E
014250: 52 52 4F 52 24 4E 50 53 20 4D 49 43 52 4F 2D 43 RROR$NPS MICRO-C
014260: 4F 42 4F 4C 20 4C 4F 41 44 45 52 20 56 45 52 53 OBOL LOADER VERS
014270: 49 4F 4E 20 32 2E 31 24 43 49 4E 00 00 00 00 20 ION 2.1$CIN....
014280: 4E 4F 54 20 46 4F 55 4E 44 24 43 49 4E 54 45 52 NOT FOUND$CINTER
014290: 50 2E 43 4F 4D 20 4E 4F 54 20 46 4F 55 4E 44 20 P.COM NOT FOUND
0142A0: 20 20 24 31 E0 0A 21 06 00 22 E2 0A 4E 23 46 0B $1..!.."..N#F.
0142B0: 60 69 22 29 0B 2B 22 EE 0A CD 77 02 01 55 01 CD `i").+"...w..U..
0142C0: 82 02 01 20 00 2A E9 0A 09 36 00 01 78 01 C5 11 ... .*...6..x...
0142D0: 09 00 2A E9 0A 19 44 4D 11 07 00 CD 4C 03 2A E9 ..*...DM....L.*.
0142E0: 0A 44 4D CD DA 02 FE FF C2 03 02 2A E9 0A 23 44 .DM........*..#D
0142F0: 4D CD 92 02 01 03 01 CD 82 02 01 7F 01 CD 82 02 M...............
014300: CD 11 03 CD EB 03 CD 48 04 CD 1E 09 01 F3 0A C5 .......H........
014310: 2A E9 0A 44 4D 11 21 00 CD 4C 03 01 20 00 2A E9 *..DM.!..L.. .*.
014320: 0A 09 36 00 2A E9 0A 44 4D CD DA 02 FE FF C2 3D ..6.*..DM......=
014330: 02 CD 77 02 01 8A 01 CD 82 02 CD 11 03 2A 26 0B ..w..........*&.
014340: E5 11 80 00 01 80 00 CD 4C 03 01 14 0B C5 11 04 ........L.......
014350: 00 01 FC 00 CD 4C 03 21 80 00 22 E0 0A 21 65 02 .....L.!.."..!e.
014360: E5 2A E0 0A E9 FB 76 21 2B 0B 71 2A 2B 0B 26 00 .*....v!+.q*+.&.
014370: EB 0E 02 CD 05 00 C9 0E 0D CD 67 02 0E 0A CD 67 ..........g....g
014380: 02 C9 21 2D 0B 70 2B 71 2A 2C 0B EB 0E 09 CD 05 ..!-.p+q*,......
014390: 00 C9 21 2F 0B 70 2B 71 2A 2E 0B 22 E2 0A 21 F0 ..!/.p+q*.."..!.
0143A0: 0A 36 FF CD 77 02 3A F0 0A 3C 32 F0 0A 4F 06 00 .6..w.:..<2..O..
0143B0: 2A E2 0A 09 7E D6 20 C6 FF 9F F5 3A F0 0A D6 08 *...~. ....:....
0143C0: 9F C1 48 A1 1F D2 D9 02 2A F0 0A 26 00 EB 2A E2 ..H.....*..&..*.
0143D0: 0A 19 4E CD 67 02 C3 A6 02 C9 21 31 0B 70 2B 71 ..N.g.....!1.p+q
0143E0: 2A 30 0B EB 0E 0F CD 05 00 C9 21 33 0B 70 2B 71 *0........!3.p+q
0143F0: 2A 32 0B EB 0E 10 CD 05 00 FE FF C2 10 03 CD 77 *2.............w
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 01 00 02 09 52 E5 11 00 C1 02 00 00 00 02 ......R.........
014420: 11 00 C6 02 00 00 00 02 11 00 C2 02 00 00 00 02 ................
014430: 11 00 C7 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014440: 11 00 C8 02 00 00 00 02 11 00 C4 02 00 00 00 02 ................
014450: 11 00 C9 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014510: 00 00 00 00 00 00 00 00 80 34 00 00 00 00 00 00 .........4......
014520: 00 00 00 00 00 00 80 1C 00 1A 1A 1A 1A 1A 1A 1A ................
014530: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014540: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014550: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014560: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014570: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014580: E1 23 1A 77 EB 36 FF E1 11 04 00 19 0D C2 52 09 .#.w.6........R.
014590: 31 DB 17 D1 C1 F1 E1 F9 2A E5 17 E5 2A E3 17 FB 1.......*...*...
0145A0: C9 F5 C5 21 57 17 7E 34 B7 CA BC 09 23 7E 23 46 ...!W.~4....#~#F
0145B0: 23 BB C2 BC 09 78 BA C2 BC 09 7E 12 23 73 23 72 #....x....~.#s#r
0145C0: 23 1A 77 3E FF 12 C1 F1 C9 CD 51 12 CA 85 0A CD #.w>......Q.....
0145D0: E8 10 3D CA 03 0A 3D C2 E1 0F E5 CD E8 10 D1 E5 ..=...=.........
0145E0: CD 55 10 19 CD A7 10 CD FB 0F E1 AF 95 6F 3E 00 .U...........o>.
0145F0: 9C 67 19 CD A7 10 C3 0B 07 10 27 E8 03 64 00 0A .g........'..d..
014600: 00 01 00 EB CD 55 10 D5 D5 CD 6E 10 CD FB 0F 3E .....U....n....>
014610: 23 CD FD 0F 06 85 21 F9 09 5E 23 56 23 E3 0E 30 #.....!..^#V#..0
014620: 7D 93 6F 7C 9A 67 DA 2D 0A 0C C3 20 0A 19 78 B7 }.o|.g.-... ..x.
014630: F2 44 0A F5 79 FE 30 CA 4B 0A CD FD 0F F1 E6 7F .D..y.0.K.......
014640: 47 C3 57 0A 79 CD FD 0F C3 57 0A F1 E6 7F FE 01 G.W.y....W......
014650: C2 57 0A 47 C3 44 0A E3 05 C2 19 0A D1 D1 7A B7 .W.G.D........z.
014660: C2 0B 07 7B E6 7F FE 20 DA 0B 07 3C CA 0B 07 CD ...{... ...<....
014670: FB 0F 3E 27 CD FD 0F 7B E6 7F CD FD 0F 3E 27 CD ..>'...{.....>'.
014680: FD 0F C3 0B 07 2A B1 17 23 23 56 2B 5E 2B 4E 2B .....*..##V+^+N+
014690: 79 FE 10 D2 0B 07 CD 55 10 EB CD A7 10 EB CD FB y......U........
0146A0: 0F 0C 0D CA AE 0A 7E 2B CD FD 0F C3 A2 0A CD 5F ......~+......._
0146B0: 10 C2 0B 07 C3 8A 0A 06 00 78 06 00 B7 C0 C3 14 .........x......
0146C0: 10 FE 2E C8 FE 0D C8 FE 2A C8 FE 20 C9 CD C1 0A ........*.. ....
0146D0: CA E6 0A 77 23 CD B9 0A 0D C2 CD 0A CD C1 0A C8 ...w#...........
0146E0: CD B9 0A C3 DC 0A 16 20 FE 2A C2 F2 0A CD B9 0A ....... .*......
0146F0: 16 3F 72 23 0D C2 F2 0A C9 3A 4C 17 B7 C2 E1 0F .?r#.....:L.....
014700: CD 45 10 C9 CD D3 12 CD A7 10 C9 CD 55 10 CD FB .E..........U...
014710: 0F 21 F6 13 06 00 C5 E5 CD DB 12 E1 C1 04 23 78 .!............#x
014720: FE 0B D2 30 13 FE 05 DA 16 13 CD FB 0F C3 16 13 ...0............
014730: CD FB 0F CD B0 15 F5 D5 C5 CD 96 0B D2 50 13 2A .............P.*
014740: E5 17 22 0C 00 21 10 00 36 FF CD 06 00 C3 78 13 .."..!..6.....x.
014750: 2B 22 67 17 2A E5 17 7E CD 45 10 23 CD BE 10 DA +"g.*..~.E.#....
014760: 78 13 F5 CD FB 0F F1 B3 CA 74 13 5E 23 56 CD 6E x........t.^#V.n
014770: 10 C3 78 13 7E CD 45 10 2A E5 17 7E 47 E6 C0 FE ..x.~.E.*..~G...
014780: 80 C2 8F 13 78 E6 07 FE 06 C2 F2 13 C3 BC 13 FE ....x...........
014790: 40 C2 AC 13 78 FE 76 CA F2 13 E6 07 FE 06 CA C8 @...x.v.........
0147A0: 13 78 E6 38 FE 30 C2 F2 13 C3 C8 13 78 FE 36 CA .x.8.0......x.6.
0147B0: C8 13 FE 34 CA BC 13 FE 35 C2 CE 13 3E 3D CD FD ...4....5...>=..
0147C0: 0F 2A E3 17 7E CD 45 10 2A E3 17 C3 E1 13 E6 E7 .*..~.E.*.......
0147D0: FE 02 C2 F2 13 78 E6 10 2A DB 17 C2 E1 13 2A DD .....x..*.....*.
0147E0: 17 3A 4C 17 B7 C2 F2 13 EB CD F5 16 CA F2 13 CD .:L.............
0147F0: 7D 10 C1 D1 F1 C9 43 5A 4D 45 49 41 42 44 48 53 }.....CZMEIABDHS
014800: 50 F6 F4 FC FA FE 01 07 08 03 05 21 00 00 22 55 P..........!.."U
014810: 17 AF 32 54 17 C9 F3 22 E3 17 E1 2B 22 E5 17 F5 ..2T..."...+"...
014820: 21 02 00 39 F1 31 E3 17 E5 F5 C5 D5 FB 2A E5 17 !..9.1.......*..
014830: 7E FE FF F5 E5 3A 22 17 32 46 17 21 42 17 0E 08 ~....:".2F.!B...
014840: E5 7E B7 CA 4D 14 23 5E 23 56 23 7E 12 E1 11 FC .~..M.#^#V#~....
014850: FF 19 0D C2 40 14 CD A2 15 21 57 17 7E 36 00 B7 ....@....!W.~6..
014860: CA 70 14 3D 47 23 5E 23 56 23 7E 12 78 C3 5F 14 .p.=G#^#V#~.x._.
014870: E1 F1 CA 94 14 23 22 E5 17 EB 21 AA 06 4E 23 46 .....#"...!..N#F
014880: CD EC 08 DA 94 14 CD 0B 14 2A 52 17 EB 3E 82 B7 .........*R..>..
014890: 37 C3 2A 09 3A 25 17 B7 C2 39 15 21 26 17 0E 08 7.*.:%...9.!&...
0148A0: E5 7E B7 CA F6 14 23 7E 23 56 2A E5 17 BD C2 F6 .~....#~#V*.....
0148B0: 14 7A BC C2 F6 14 E1 7E 3D C2 C4 14 F5 3D 32 25 .z.....~=....=2%
0148C0: 17 C3 DB 14 77 F5 CD 6F 15 FE 02 CA DB 14 3A 4C ....w..o......:L
0148D0: 17 B7 CA DB 14 CD B0 15 C3 2A 09 CD 55 10 F1 3C .........*..U..<
0148E0: CD 45 10 21 68 15 CD 0A 10 2A E5 17 EB CD 6E 10 .E.!h....*....n.
0148F0: CD 0B 13 C3 2A 09 E1 11 04 00 19 0D C2 A0 14 CD ....*...........
014900: 11 6E 17 21 80 00 1A 4F 77 0C 13 13 23 1A 77 0D .n.!...Ow...#.w.
014910: C2 0B 0B 71 1E 02 21 5C 00 CD B7 0A FE 20 CA 19 ...q..!\..... ..
014920: 0B F5 CD B9 0A FE 3A C2 35 0B F1 D6 40 77 23 CD ......:.5...@w#.
014930: B7 0A C3 3A 0B 47 36 00 23 F1 0E 08 CD CD 0A FE ...:.G6.#.......
014940: 2E CC B9 0A 0E 03 CD CD 0A CD C4 0A CA 55 0B CD .............U..
014950: B9 0A C3 49 0B 0E 04 36 00 23 0D C2 57 0B 1D C2 ...I...6.#..W...
014960: 19 0B 36 00 C3 0B 07 CD D6 08 CD EC 08 DA 0B 07 ..6.............
014970: 0A 03 77 23 C3 6A 0B 21 65 00 BE C0 78 23 BE C0 ..w#.j.!e...x#..
014980: 79 23 BE C9 EB 2A B3 17 7D 93 7C 9A EB C9 CD 84 y#...*..}.|.....
014990: 0B D0 22 B3 17 C9 3A 4E 17 FE 01 D0 E5 21 00 00 .."...:N.....!..
0149A0: CD 84 0B E1 C9 CD 51 12 DA E1 0F CA 31 0C CD E8 ......Q.....1...
0149B0: 10 E5 21 01 00 3D 3A 4C 17 CA C6 0B B7 C2 E1 0F ..!..=:L........
0149C0: CD E8 10 C3 D0 0B 21 00 00 B7 C2 D0 0B 21 01 00 ......!......!..
0149D0: 7C B7 C2 E1 0F 22 AF 17 21 26 17 0E 08 E5 7E B7 |...."..!&....~.
0149E0: CA FD 0B 23 7E 23 56 E1 E3 BD C2 FB 0B 7A BC C2 ...#~#V......z..
0149F0: FB 0B 3A AF 17 E1 77 B7 C3 0B 07 E3 E5 E1 11 04 ..:...w.........
014A00: 00 19 0D C2 DD 0B 3A AF 17 B7 CA E1 0F 21 26 17 ......:......!&.
014A10: 0E 08 E5 7E B7 C2 25 0C 3A AF 17 E1 77 D1 23 73 ...~..%.:...w.#s
014A20: 23 72 C3 0B 07 E1 11 04 00 19 0D C2 12 0C C3 E1 #r..............
014A30: 0F 21 26 17 0E 08 E5 7E B7 CA 5B 0C 3A 4C 17 B7 .!&....~..[.:L..
014A40: CA 48 0C 36 00 C3 5B 0C C5 CD 55 10 7E CD 45 10 .H.6..[...U.~.E.
014A50: CD FB 0F 23 5E 23 56 CD 6E 10 C1 E1 11 04 00 19 ...#^#V.n.......
014A60: 0D C2 36 0C C3 0B 07 CD 51 12 21 00 00 CA 77 0C ..6.....Q.!...w.
014A70: 3D C2 E1 0F CD E8 10 22 AF 17 21 6C 00 11 9F 17 =......"..!l....
014A80: 0E 10 7E 12 23 13 0D C2 82 0C 3A 5D 00 FE 3F CA ..~.#.....:]..?.
014A90: 40 0D CD 82 07 FE FF CA E1 0F 3E 48 01 58 45 CD @.........>H.XE.
014AA0: 77 0B 2A AF 17 E5 CA CF 0C E1 11 00 01 19 E5 11 w.*.............
014AB0: 5C 00 0E 14 CD A4 06 E1 B7 C2 40 0D 11 80 00 0E \.........@.....
014AC0: 80 1A 13 77 23 0D C2 C1 0C CD 8E 0B C3 AE 0C CD ...w#...........
014AD0: AA 0F FE 1A CA E1 0F DE 3A C2 CF 0C 57 E1 E5 CD ........:...W...
014AE0: 32 0D 5F CD 32 0D F5 CD 32 0D C1 4F 09 7B B7 C2 2._.2...2..O.{..
014AF0: 02 0D 78 B1 21 00 01 CA FC 0C 69 60 22 E5 17 C3 ..x.!.....i`"...
014B00: 5F 10 C2 39 15 CD 6F 15 CA 21 15 3D C2 15 15 CD _..9..o..!.=....
014B10: B0 15 C3 2A 09 2A E5 17 CD 90 10 CD 0B 13 C3 2A ...*.*.........*
014B20: 09 3A 46 17 B7 CA 39 15 2A 4A 17 4D 44 2A 48 17 .:F...9.*J.MD*H.
014B30: EB 3A 47 17 B7 37 C3 2A 09 CD 55 10 CD A2 15 21 .:G..7.*..U....!
014B40: 00 00 22 50 17 CD 0B 14 32 25 17 3E 2A CD FD 0F .."P....2%.>*...
014B50: 2A E5 17 CD 96 0B D2 5C 15 22 0C 00 CD 6D 10 2A *......\."...m.*
014B60: E3 17 22 65 17 C3 0B 07 20 50 41 53 53 20 00 21 .."e.... PASS .!
014B70: 54 17 7E B7 C8 E5 2A 55 17 2B 22 55 17 7C B5 E1 T.~...*U.+"U.|..
014B80: C2 88 15 77 3D 32 25 17 7E B7 C9 11 0D 00 21 DB ...w=2%.~.....!.
014B90: 16 7E A0 23 BE 23 CA 9E 15 14 1D C2 91 15 5A 16 .~.#.#........Z.
014BA0: 00 C9 3A 22 17 B7 C8 2A 23 17 77 AF 32 22 17 C9 ..:"...*#.w.2"..
014BB0: 2A E5 17 46 23 E5 CD 8B 15 21 4F 17 73 21 C7 15 *..F#....!O.s!..
014BC0: 19 19 5E 23 56 EB E9 E3 15 0B 16 E3 15 0B 16 E9 ..^#V...........
014BD0: 15 1D 16 2F 16 60 16 60 16 5D 16 5D 16 53 16 60 .../.`.`.].].S.`
014BE0: 16 4E 16 CD F9 15 C2 63 16 CD 04 16 C3 63 16 3A .N.....c.....c.:
014BF0: AA 06 BB C0 3A AB 06 BA C9 C1 E1 5E 23 56 23 E5 ....:......^#V#.
014C00: C5 C3 EF 15 2A E1 17 5E 23 56 C9 CD F9 15 CA 18 ....*..^#V......
014C10: 16 C1 C5 3E 02 C3 65 16 D1 D5 C3 63 16 78 FE FF ...>..e....c.x..
014C20: C2 27 16 AF C3 67 16 E6 38 5F 16 00 C3 63 16 2A .'...g..8_...c.*
014C30: E3 17 EB CD EF 15 C2 63 16 C3 E9 15 3A 4F 17 FE .......c....:O..
014C40: 02 D8 FE 04 3F D8 2A E5 17 23 23 23 EB C9 D1 D5 ....?.*..###....
014C50: C3 63 16 CD 04 16 C1 C5 3E 02 C3 65 16 D1 13 D5 .c......>..e....
014C60: D1 13 D5 3E 01 3C 37 F5 2A 50 17 7C B5 CA 98 16 ...>.<7.*P.|....
014C70: D5 C5 E5 21 4F 17 4E 2A E5 17 EB 21 80 16 E3 E9 ...!O.N*...!....
014C80: B7 C1 D1 CA 98 16 F5 3E 23 CD FD 0F F1 CD 45 10 .......>#.....E.
014C90: 3E 20 CD FD 0F C3 3C 15 3A 54 17 21 4D 17 A6 CA > ....<.:T.!M...
014CA0: AE 16 CD 3C 16 DA AE 16 F1 3E 02 C3 D9 16 F1 F5 ...<.....>......
014CB0: B7 CA D8 16 3D EB 5F 7E 2F 77 BE 2F 77 7B EB F5 ....=._~/w./w{..
014CC0: CA CC 16 CD 3C 16 D2 CC 16 CD 04 16 F1 3D CA D8 ....<........=..
014CD0: 16 D5 59 50 C1 C3 B5 16 F1 E1 C9 FF C3 C7 C2 FF ..YP............
014CE0: CD C7 C4 FF C9 C7 C7 FF E9 C7 06 C7 C6 CF 01 E7 ................
014CF0: 22 C7 C0 F7 D3 2A B1 17 23 23 46 2B 4E 2B 7E FE "....*..##F+N+~.
014D00: 40 0D CD 32 0D CD 32 0D 77 23 1D C2 05 0D CD 32 @..2..2.w#.....2
014D10: 0D F5 CD 8E 0B F1 C2 E1 0F C3 CF 0C CD AA 0F CD ................
014D20: DB 10 07 07 07 07 E6 F0 F5 CD AA 0F CD DB 10 C1 ................
014D30: B0 C9 C5 E5 D5 CD 1C 0D 47 D1 82 57 78 E1 C1 C9 ........G..Wx...
014D40: 21 00 00 CD 84 0B DA 50 0D 3A 4E 17 B7 CC 95 07 !......P.:N.....
014D50: 3E 55 01 4C 54 CD 77 0B F5 21 9F 17 11 5C 00 0E >U.LT.w..!...\..
014D60: 10 7E 12 23 13 0D C2 61 0D AF 32 7C 00 3A 5D 00 .~.#...a..2|.:].
014D70: FE 20 CA FE 0D 21 36 0E CD 0A 10 CD 82 07 3C CA . ...!6.......<.
014D80: E1 0F CD AA 0F FE 1A CA FE 0D FE 21 DA 82 0D CD ...........!....
014D90: 1F 0D F5 CD 1C 0D D1 5F 2A AF 17 19 E5 CD AA 0F ......._*.......
014DA0: FE 20 CA B1 0D E1 CD AA 0F FE 20 DA 85 0D C3 A6 . ........ .....
014DB0: 0D 2A 06 00 1E 00 2B CD AA 0F FE 09 CA D4 0D FE .*....+.........
014DC0: 0D CA D4 0D FE 21 DA E1 0F 77 1C 7B FE 11 D2 E1 .....!...w.{....
014DD0: 0F C3 B6 0D D5 E5 EB 2A 06 00 23 5E 23 56 E1 72 .......*..#^#V.r
014DE0: 2B 73 2B 36 C3 CD 84 0B D2 E1 0F EB 2A 06 00 EB +s+6........*...
014DF0: 22 06 00 EB D1 73 23 D1 73 23 72 C3 82 0D F1 C2 "....s#.s#r.....
014E00: 14 0E 21 0A 0E E5 2A E5 17 E9 2A 06 00 19 22 B1 ..!...*...*...".
014E10: 17 C3 0B 07 21 40 0E CD 0A 10 2A B3 17 CD A7 10 ....!@....*.....
014E20: CD FB 0F 2A E5 17 CD A7 10 CD FB 0F 2A 06 00 2B ...*........*..+
014E30: CD A7 10 C3 0B 07 0D 0A 53 59 4D 42 4F 4C 53 00 ........SYMBOLS.
014E40: 0D 0A 4E 45 58 54 20 20 50 43 20 20 45 4E 44 0D ..NEXT PC END.
014E50: 0A 00 CD 42 12 3D C2 E1 0F CD E8 10 CD 55 10 E5 ...B.=.......U..
014E60: CD A7 10 CD FB 0F E1 E5 3A 4D 17 B7 CA 79 0E 5E ........:M...y.^
014E70: 23 56 EB CD A7 10 C3 7D 0E 7E CD 45 10 CD FB 0F #V.....}.~.E....
014E80: CD EC 0F CD 14 10 E1 FE 0D CA D0 0E FE 2E C2 9A ................
014E90: 0E 3A 6E 17 B7 CA 0B 07 3E 2E FE 22 E5 C2 AF 0E .:n.....>.."....
014EA0: CD 20 10 E1 FE 0D CA 5C 0E 77 23 E5 C3 A0 0E CD . .....\.w#.....
014EB0: 54 12 3D C2 E1 0F CD E8 10 3A 4D 17 B7 CA C9 0E T.=......:M.....
014EC0: EB E1 73 23 72 23 C3 5C 0E B7 C2 E1 0F 7D E1 77 ..s#r#.\.....}.w
014ED0: 23 3A 4D 17 B7 CA 5C 0E 23 C3 5C 0E 3E 01 C3 E3 #:M...\.#.\.>...
014EE0: 0E 3E 02 32 54 17 CD 42 12 21 00 00 22 50 17 23 .>.2T..B.!.."P.#
014EF0: CA 10 0F DA 00 0F CD E8 10 F5 7D B4 CA E1 0F F1 ..........}.....
014F00: 10 D2 1E 17 E5 2F 85 6F 3E FF 8C 67 7B B9 C2 19 ...../.o>..g{...
014F10: 17 7A 90 C2 19 17 E1 3C C9 33 33 C3 FA 16 AF C9 .z.....<.33.....
014F20: 00 00 00 39 45 35 00 44 41 41 00 30 39 33 00 0A ...9E5.DAA.093..
014F30: 3A 31 00 30 45 41 00 30 30 46 00 32 30 43 00 42 :1.0EA.00F.20C.B
014F40: 31 30 00 45 31 43 44 41 41 31 30 46 45 32 30 44 10.E1CDAA10FE20D
014F50: 41 38 35 30 45 43 33 41 36 33 46 0D 0A 3A 31 30 A850EC3A63F..:10
014F60: 30 45 42 30 30 30 30 45 32 41 30 36 30 40 31 45 0EB0000E2A060@1E
014F70: 30 30 32 42 43 44 41 41 31 30 46 45 30 39 43 41 002BCDAA10FE09CA
014F80: 44 34 30 45 46 45 37 33 0D 0A 3A 31 30 30 45 43 D40EFE73..:100EC
014F90: 30 30 30 30 44 43 41 44 34 30 45 46 45 32 31 44 0000DCAD40EFE21D
014FA0: 41 45 31 31 30 37 37 31 43 37 42 46 45 31 30 44 AE110771C7BFE10D
014FB0: 32 45 31 42 30 3E 1A 37 C1 D1 E1 C9 44 30 30 30 2E1B0>.7....D000
014FC0: 31 30 43 33 42 36 30 45 44 35 45 35 45 42 32 41 10C3B60ED5E5EB2A
014FD0: 30 36 30 30 32 33 35 45 32 33 35 36 45 31 37 32 0600235E2356E172
014FE0: 35 39 0D 0A 3A 31 30 00 20 90 00 40 00 08 21 10 59..:10. ..@..!.
014FF0: 92 10 21 12 42 48 00 09 10 02 40 00 10 40 08 08 ..!.BH....@..@..
015000: 41 02 00 82 42 48 09 09 20 42 21 01 20 08 22 12 A...BH.. B!. .".
015010: 11 10 10 88 42 48 49 24 24 92 42 49 24 42 49 20 ....BHI$$.BI$BI
015020: 84 24 84 10 92 09 10 92 48 49 09 20 82 44 04 24 .$......HI. .D.$
015030: 90 90 84 91 08 48 90 90 84 84 44 24 24 20 48 08 .....H....D$$ H.
015040: 04 08 08 00 04 00 20 84 20 08 42 10 92 04 21 24 ...... . .B...!$
015050: 44 24 04 88 22 24 92 42 24 90 92 44 08 41 08 21 D$.."$.B$..D.A.!
015060: 02 10 11 10 41 08 42 08 08 90 92 49 24 84 90 92 ....A.B....I$...
015070: 12 48 20 42 01 24 90 92 49 09 24 92 48 08 92 49 .H B.$..I.$.H..I
015080: 08 24 08 91 04 81 12 48 11 24 89 21 20 24 92 49 .$.....H.$.! $.I
015090: 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ...............
0150A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0150B0: 00 00 00 00 00 00 00 00 24 92 49 24 91 00 49 20 ........$.I$..I
0150C0: 89 24 12 48 20 08 40 40 08 24 84 84 90 90 22 10 .$.H .@@.$....".
0150D0: 82 01 55 55 55 55 55 55 40 00 80 48 22 48 91 24 ..UUUUUU@..H"H.$
0150E0: 49 24 92 49 12 44 42 49 24 80 84 84 48 21 24 90 I$.I.DBI$...H!$.
0150F0: 48 92 00 49 24 90 91 08 08 91 24 44 82 48 91 11 H..I$.....$D.H..
015100: E5 3D CA 0F 0F 3D C2 E1 0F CD E8 10 22 50 17 E1 .=...=......"P..
015110: 22 55 17 AF 32 47 17 CD 0B 13 C3 2A 09 CD 14 10 "U..2G.....*....
015120: FE 0D C2 2B 0F CD 0B 13 C3 0B 07 01 0B 00 21 F6 ...+..........!.
015130: 13 BE CA 3E 0F 23 04 0D C2 31 0F C3 E1 0F CD 14 ...>.#...1......
015140: 10 FE 0D C2 E1 0F C5 CD 55 10 CD DB 12 CD FB 0F ........U.......
015150: CD EC 0F CD 51 12 B7 CA 0B 07 3D C2 E1 0F CD E8 ....Q.....=.....
015160: 10 C1 78 FE 05 D2 8F 0F 7C B7 C2 E1 0F 7D FE 02 ..x.....|....}..
015170: D2 E1 0F CD A4 12 67 41 3E FE CD 89 0F A4 41 67 ......gA>.....Ag
015180: 7D CD 89 0F B4 12 C3 0B 07 05 C8 07 C3 89 0F C2 }...............
015190: 9F 0F 7C B7 C2 E1 0F 7D 21 E0 17 77 C3 0B 07 E5 ..|....}!..w....
0151A0: CD C2 12 D1 73 23 72 C3 0B 07 E5 D5 C5 3A 5B 00 ....s#r......:[.
0151B0: E6 7F CA CA 0F 16 00 5F 21 80 00 19 7E FE 1A CA ......._!...~...
0151C0: DC 0F 21 5B 00 34 B7 C3 DD 0F 0E 14 11 5C 00 CD ..![.4.......\..
0151D0: A4 06 B7 C2 B5 17 32 5B 00 C3 B5 0F 37 C1 D1 E1 ......2[....7...
0151E0: C9 CD 55 10 3E 3F CD FD 0F C3 0B 07 0E 0A 11 6D ..U.>?.........m
0151F0: 17 CD A4 06 21 6F 17 22 6B 17 C9 3E 20 E5 D5 C5 ....!o."k..> ...
015200: 5F 0E 02 CD A4 06 C1 D1 E1 C9 7E B7 C8 CD FD 0F _.........~.....
015210: 23 C3 0A 10 CD 20 10 FE 7F C8 FE 61 D8 E6 5F C9 #.... .....a.._.
015220: E5 21 6E 17 7E B7 3E 0D CA 34 10 35 2A 6B 17 7E .!n.~.>..4.5*k.~
015230: 23 22 6B 17 E1 C9 FE 0A D2 40 10 C6 30 C3 FD 0F #"k......@..0...
015240: C6 37 C3 FD 0F F5 1F 1F 1F 1F E6 0F CD 36 10 F1 .7...........6..
015250: E6 0F C3 36 10 3E 0D CD FD 0F 3E 0A C3 FD 0F C5 ...6.>....>.....
015260: D5 E5 0E 0B CD A4 06 E6 01 E1 D1 C1 C9 EB D5 EB ................
015270: CD A7 10 D1 3A 4C 17 B7 C0 CD F5 16 C8 CD FB 0F ....:L..........
015280: 3E 2E CD FD 0F 5E 2B 7E CD FD 0F 1D C2 86 10 C9 >....^+~........
015290: E5 3A 4C 17 B7 D1 C0 CD F5 16 C8 CD 55 10 CD 85 .:L.........U...
0152A0: 10 3E 3A CD FD 0F C9 7C CD 45 10 7D C3 45 10 FE .>:....|.E.}.E..
0152B0: 7F D2 B9 10 FE 20 D2 FD 0F 3E 2E C3 FD 0F EB 2A ..... ...>.....*
0152C0: 67 17 7D 93 6F 7C 9A EB C9 FE 2F C8 FE 2B C8 FE g.}.o|..../..+..
0152D0: 2D C8 FE 0D C8 FE 2C C8 FE 20 C9 D6 30 FE 0A D8 -.....,.. ..0...
0152E0: C6 F9 FE 10 D8 C3 E1 0F EB 5E 23 56 23 EB C9 D5 .........^#V#...
0152F0: CD 14 10 2A B1 17 F5 4E 79 FE 10 D2 E1 0F F1 EB ...*...Ny.......
015300: 08 49 24 84 88 80 10 92 08 92 48 91 20 44 09 20 .I$.......H. D.
015310: 91 09 01 01 12 10 84 09 00 01 20 22 04 10 08 40 .......... "...@
015320: 00 12 44 44 22 40 04 80 02 12 10 80 00 88 20 48 ..DD"@........ H
015330: 11 20 22 10 20 22 42 08 49 00 04 88 84 24 92 00 . ". "B.I....$..
015340: 80 01 21 12 24 09 01 11 20 00 20 10 88 40 48 02 ..!.$... . ..@H.
015350: 10 92 48 04 42 49 02 00 01 00 88 81 21 24 80 91 ..H.BI......!$..
015360: 24 08 09 20 20 08 48 20 04 89 01 20 08 04 90 12 $.. .H ... ....
015370: 21 11 20 40 12 41 12 41 00 40 48 40 48 80 02 10 !. @.A.A.@H@H...
015380: 00 92 42 10 44 40 40 42 49 04 88 92 40 12 01 00 ..B.D@@BI...@...
015390: 24 91 01 10 00 80 09 24 48 42 44 21 08 84 80 42 $......$HBD!...B
0153A0: 10 80 90 00 01 20 00 04 48 80 92 49 24 90 24 00 ..... ..H..I$.$.
0153B0: 00 00 08 92 24 22 04 89 24 10 91 01 20 82 44 91 ....$"..$... .D.
0153C0: 00 88 11 10 84 82 24 82 08 92 22 49 09 20 88 24 ......$..."I. .$
0153D0: 84 49 24 44 81 08 24 08 10 82 42 22 20 40 08 00 .I$D..$...B" @..
0153E0: 40 40 44 10 10 90 92 40 04 01 12 00 10 22 10 21 @@D....@.....".!
0153F0: 08 02 08 42 02 00 22 11 08 22 10 44 84 22 10 84 ...B.."..".D."..
015400: 40 00 00 00 01 00 24 04 08 82 44 24 88 24 90 02 @.....$...D$.$..
015410: 20 00 10 08 48 00 90 01 10 84 90 42 12 48 10 00 ...H......B.H..
015420: 81 10 21 08 04 90 40 20 20 84 44 84 48 10 44 00 ..!...@ .D.H.D.
015430: 49 02 12 02 10 82 48 49 21 24 84 82 01 01 02 22 I.....HI!$....."
015440: 02 00 84 00 90 44 21 12 22 44 90 20 08 49 24 12 .....D!."D. .I$.
015450: 49 09 12 22 44 20 91 20 10 12 10 40 80 90 42 10 I.."D . ...@..B.
015460: 91 24 08 24 91 12 40 00 00 00 88 42 01 01 01 24 .$.$..@....B...$
015470: 04 00 04 90 20 01 08 88 24 90 12 24 04 08 84 10 .... ...$..$....
015480: 31 BB 00 11 80 00 2A BB 00 19 22 BB 00 EB 0E 1A 1.....*...".....
015490: CD 05 00 11 5C 00 0E 14 CD 05 00 FE 00 CA A8 00 ....\...........
0154A0: 21 A8 00 E5 2A BD 00 E9 C3 83 00 FB 76 02 44 92 !...*.......v.D.
0154B0: 00 80 24 08 00 21 04 44 04 11 09 80 00 00 01 00 ..$..!.D........
0154C0: 24 90 81 00 00 00 01 00 10 00 84 04 00 00 00 00 $...............
0154D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0154F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015500: D5 F5 2A 6B 17 E5 2A 6D 17 E5 EB 0C CD C9 10 CA ..*k..*m........
015510: 21 11 0D CA 3B 11 2B BE C2 3B 11 CD 14 10 C3 0C !...;.+..;......
015520: 11 0D C2 3B 11 E1 E1 E1 CD CC 10 CA 34 11 CD 14 ...;........4...
015530: 10 C3 44 11 E1 23 5E 23 56 E1 C9 E1 22 6D 17 E1 ..D..#^#V..."m..
015540: 22 6B 17 F1 E1 F5 7E 2F 85 6F 3E FF 8C 67 2B 2B "k....~/.o>..g++
015550: F1 C3 F6 10 EB 21 00 00 FE 2E CA EF 10 FE 40 C2 .....!........@.
015560: 6C 11 CD EF 10 E5 EB 5E 23 56 E1 C9 FE 3D C2 7B l......^#V...=.{
015570: 11 CD EF 10 E5 EB 5E 16 00 E1 C9 FE 27 C2 9F 11 ......^.....'...
015580: EB CD 20 10 FE 20 DA E1 0F FE 27 C2 9A 11 CD 20 .. .. ....'....
015590: 10 CD CC 10 C8 FE 27 C2 E1 0F 53 5F C3 81 11 FE ......'...S_....
0155A0: 23 C2 C3 11 CD 14 10 CD CC 10 CA C1 11 D6 30 FE #.............0.
0155B0: 0A D2 E1 0F 29 44 4D 29 29 09 4F 06 00 09 C3 A4 ....)DM)).O.....
0155C0: 11 EB C9 FE 5E C2 DA 11 D5 2A E1 17 5E 23 56 23 ....^....*..^#V#
0155D0: CD 14 10 FE 5E CA CC 11 E1 C9 CD DB 10 29 29 29 ....^........)))
0155E0: 29 B5 6F CD 14 10 CD CC 10 C2 C3 11 EB C9 EB 22 ).o............"
0155F0: 20 17 EB 73 23 72 23 E5 21 5E 17 34 E1 C9 FE 2D ..s#r#.!^.4...-
015600: C2 09 12 11 00 00 C3 2F 12 FE 2B C2 16 12 EB 2A ......./..+....*
015610: 20 17 EB C3 1E 12 CD 54 11 FE 2B C2 2C 12 D5 CD ......T..+.,...
015620: 14 10 CD 54 11 C1 EB 09 EB C3 19 12 FE 2D C0 CD ...T.........-..
015630: 14 10 D5 CD 54 11 C1 F5 79 93 5F 78 9A 57 F1 C3 ....T...y._x.W..
015640: 19 12 CD 14 10 21 4D 17 36 00 FE 57 C2 54 12 36 .....!M.6..W.T.6
015650: FF CD 14 10 21 5E 17 36 00 23 FE 0D CA 96 12 FE ....!^.6.#......
015660: 2C C2 6F 12 3E 80 32 5E 17 11 00 00 C3 72 12 CD ,.o.>.2^.....r..
015670: FE 11 CD EE 11 FE 0D CA 96 12 CD 14 10 CD FE 11 ................
015680: CD EE 11 FE 0D CA 96 12 CD 14 10 CD FE 11 CD EE ................
015690: 11 FE 0D C2 E1 0F 11 5E 17 1A FE 81 CA E1 0F 13 .......^........
0156A0: B7 07 0F C9 E5 21 06 14 58 16 00 19 4E 21 DF 17 .....!..X...N!..
0156B0: 7E EB E1 C9 CD A4 12 0D CA BF 12 1F C3 B7 12 E6 ~...............
0156C0: 01 C9 D6 06 21 01 14 5F 16 00 19 5E 16 FF 21 E7 ....!.._...^..!.
0156D0: 17 19 C9 CD C2 12 5E 23 56 EB C9 78 FE 05 D2 EE ......^#V..x....
0156E0: 12 CD B4 12 B7 3E 2D CA FD 0F 7E C3 FD 0F F5 7E .....>-...~....~
0156F0: CD FD 0F 3E 3D CD FD 0F F1 C2 04 13 21 E0 17 7E ...>=.......!..~
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 01 00 02 09 52 E5 12 00 C1 02 00 00 00 02 ......R.........
015720: 12 00 C6 02 00 00 00 02 12 00 C2 02 00 00 00 02 ................
015730: 12 00 C7 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015740: 12 00 C8 02 00 00 00 02 12 00 C4 02 00 00 00 02 ................
015750: 12 00 C9 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 3D 42 3A 42 55 49 4C 44 2E 43 4F 4D 00 00 00 00 =B:BUILD.COM....
015810: 00 00 00 00 00 00 00 00 00 00 00 00 E5 52 45 56 .............REV
015820: 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 $$$........
015830: 00 00 00 00 00 00 00 00 00 00 00 00 E5 43 49 4E .............CIN
015840: 54 45 52 50 20 43 4F 4D 00 00 00 00 00 00 00 00 TERP COM........
015850: 00 00 00 00 00 00 00 00 00 00 00 00 E5 52 45 56 .............REV
015860: 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 $$$........
015870: 00 00 00 00 00 00 00 00 00 00 00 00 00 03 FF 03 ................
015880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015890: 00 00 00 00 00 00 00 00 00 00 F7 27 00 00 00 00 ...........'....
0158A0: 00 FF 00 EE 03 71 1C FF FF 01 15 FF FF F7 27 00 .....q........'.
0158B0: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 4D 00 FF .............M..
0158C0: 00 FF 00 FF 00 02 44 1C 1A FF 00 0D 07 0B 01 FF ......D.........
0158D0: 00 FF 00 FF 00 43 4F 4D 00 EB 03 50 1C AD 03 FF .....COM...P....
0158E0: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 01 00 01 ................
0158F0: 1A 04 01 0C 4D 65 1C C3 A3 01 2E 43 49 4E 24 43 ....Me..£..CIN$C
015900: 4C 4F 53 45 20 45 52 52 4F 52 20 4F 4E 20 4D 4F LOSE ERROR ON MO
015910: 44 55 4C 45 20 24 45 4E 44 20 4F 46 20 49 4E 50 DULE $END OF INP
015920: 55 54 24 43 4F 44 45 20 45 52 52 4F 52 24 20 4C UT$CODE ERROR$ L
015930: 4F 41 44 45 44 24 20 4E 4F 54 20 46 4F 55 4E 44 OADED$ NOT FOUND
015940: 24 4C 4F 41 44 20 45 52 52 4F 52 24 4E 50 53 20 $LOAD ERROR$NPS
015950: 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 4C 4F 41 44 MICRO-COBOL LOAD
015960: 45 52 20 56 45 52 53 49 4F 4E 20 32 2E 31 24 43 ER VERSION 2.1$C
015970: 49 4E 00 00 00 00 20 4E 4F 54 20 46 4F 55 4E 44 IN.... NOT FOUND
015980: 24 43 49 4E 54 45 52 50 2E 43 4F 4D 20 4E 4F 54 $CINTERP.COM NOT
015990: 20 46 4F 55 4E 44 20 20 20 24 31 E0 0A 21 06 00 FOUND $1..!..
0159A0: 22 E2 0A 4E 23 46 0B 60 69 22 29 0B 2B 22 EE 0A "..N#F.`i").+"..
0159B0: CD 77 02 01 55 01 CD 82 02 01 20 00 2A E9 0A 09 .w..U..... .*...
0159C0: 36 00 01 78 01 C5 11 09 00 2A E9 0A 19 44 4D 11 6..x.....*...DM.
0159D0: 07 00 CD 4C 03 2A E9 0A 44 4D CD DA 02 FE FF C2 ...L.*..DM......
0159E0: 03 02 2A E9 0A 23 44 4D CD 92 02 01 03 01 CD 82 ..*..#DM........
0159F0: 02 01 7F 01 CD 82 02 CD 11 03 CD EB 03 CD 48 04 ..............H.
015A00: DD 30 19 4E CD 67 06 C1 48 A1 1F D2 11 07 3E 00 .0.N.g..H.....>.
015A10: C9 2A DD 30 E5 3A E0 30 3C 5F 16 00 01 E4 30 CD .*.0.:.0<_....0.
015A20: F0 03 2A DD 30 7E D6 80 4F CD 67 06 F5 2A E0 30 ..*.0~..O.g..*.0
015A30: 26 00 EB 2A DD 30 19 4E CD 67 06 C1 48 A1 1F D2 &..*.0.N.g..H...
015A40: 4D 07 3A E4 30 D6 80 32 E4 30 C3 80 07 2A DD 30 M.:.0..2.0...*.0
015A50: 4E CD 67 06 F5 2A E0 30 26 00 EB 2A DD 30 19 7E N.g..*.0&..*.0.~
015A60: D6 80 4F CD 67 06 C1 48 A1 1F D2 7D 07 2A E0 30 ..O.g..H...}.*.0
015A70: 26 00 01 E4 30 09 7E D6 80 77 C3 80 07 3E 00 C9 &...0.~..w...>..
015A80: 3E 01 C9 21 E1 30 71 2A 9A 30 23 23 4E 23 46 CD >..!.0q*.0##N#F.
015A90: 61 03 22 89 30 2A 9A 30 4E 23 46 CD 61 03 22 7A a.".0*.0N#F.a."z
015AA0: 30 44 4D CD B0 06 1F D2 B3 07 21 E4 30 22 7A 30 0DM.......!.0"z0
015AB0: C3 C5 07 2A 89 30 44 4D CD B0 06 1F D2 C5 07 21 ...*.0DM.......!
015AC0: E4 30 22 89 30 CD 8E 05 21 E1 30 BE C2 D6 07 3A .0".0...!.0....:
015AD0: D4 30 2F 32 D4 30 0E 03 CD 3C 05 C9 2A 9A 30 4E .0/2.0...<..*.0N
015AE0: 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 2A 9A #F.a."z0!.."x0*.
015AF0: 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B 30 DA 0##N#F.PY!x0.K0.
015B00: 2D 08 2A 78 30 EB 2A 7A 30 19 4E CD 67 06 1F DA -.*x0.*z0.N.g...
015B10: 20 08 2A 9A 30 23 23 4E 23 46 03 60 69 22 78 30 .*.0##N#F.`i"x0
015B20: 11 01 00 2A 78 30 19 22 78 30 D2 EE 07 2A 9A 30 ...*x0."x0...*.0
015B30: 23 23 11 78 30 CD 32 30 B5 C2 43 08 3A D4 30 2F ##.x0.20..C.:.0/
015B40: 32 D4 30 0E 02 CD 3C 05 C9 21 E3 30 36 00 2A 9A 2.0...<..!.06.*.
015B50: 30 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 0N#F.a."z0!.."x0
015B60: 2A 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B *.0##N#F.PY!x0.K
015B70: 30 DA 01 09 2A 78 30 EB 2A 7A 30 19 7E 32 E2 30 0...*x0.*z0.~2.0
015B80: 4F CD 67 06 1F DA F4 08 3E 00 11 78 30 CD 3D 30 O.g.....>..x0.=0
015B90: B5 D6 01 9F 2A 9A 30 23 23 4E 23 46 0B 1B F5 CD ....*.0##N#F....
015BA0: 35 30 B5 D6 01 9F C1 48 B1 1F D2 E6 08 2A E2 30 50.....H.....*.0
015BB0: 4D CD 97 06 F5 3A E2 30 D6 80 4F CD 67 06 C1 48 M....:.0..O.g..H
015BC0: B1 F5 3A E3 30 2F C1 48 A1 1F D2 D5 08 21 E3 30 ..:.0/.H.....!.0
015BD0: 36 01 C3 E3 08 2A 9A 30 23 23 4E 23 46 03 60 69 6....*.0##N#F.`i
015BE0: 22 78 30 C3 F4 08 2A 9A 30 23 23 4E 23 46 03 60 "x0...*.0##N#F.`
015BF0: 69 22 78 30 11 01 00 2A 78 30 19 22 78 30 D2 60 i"x0...*x0."x0.`
015C00: CD 1E 09 01 F3 0A C5 2A E9 0A 44 4D 11 21 00 CD .......*..DM.!..
015C10: 4C 03 01 20 00 2A E9 0A 09 36 00 2A E9 0A 44 4D L.. .*...6.*..DM
015C20: CD DA 02 FE FF C2 3D 02 CD 77 02 01 8A 01 CD 82 ......=..w......
015C30: 02 CD 11 03 2A 26 0B E5 11 80 00 01 80 00 CD 4C ....*&.........L
015C40: 03 01 14 0B C5 11 04 00 01 FC 00 CD 4C 03 21 80 ............L.!.
015C50: 00 22 E0 0A 21 65 02 E5 2A E0 0A E9 FB 76 21 2B ."..!e..*....v!+
015C60: 0B 71 2A 2B 0B 26 00 EB 0E 02 CD 05 00 C9 0E 0D .q*+.&..........
015C70: CD 67 02 0E 0A CD 67 02 C9 21 2D 0B 70 2B 71 2A .g....g..!-.p+q*
015C80: 2C 0B EB 0E 09 CD 05 00 C9 21 2F 0B 70 2B 71 2A ,........!/.p+q*
015C90: 2E 0B 22 E2 0A 21 F0 0A 36 FF CD 77 02 3A F0 0A .."..!..6..w.:..
015CA0: 3C 32 F0 0A 4F 06 00 2A E2 0A 09 7E D6 20 C6 FF <2..O..*...~. ..
015CB0: 9F F5 3A F0 0A D6 08 9F C1 48 A1 1F D2 D9 02 2A ..:......H.....*
015CC0: F0 0A 26 00 EB 2A E2 0A 19 4E CD 67 02 C3 A6 02 ..&..*...N.g....
015CD0: C9 21 31 0B 70 2B 71 2A 30 0B EB 0E 0F CD 05 00 .!1.p+q*0.......
015CE0: C9 21 33 0B 70 2B 71 2A 32 0B EB 0E 10 CD 05 00 .!3.p+q*2.......
015CF0: FE FF C2 10 03 CD 77 02 01 08 01 CD 82 02 2A 32 ......w.......*2
015D00: 29 0D 0A 31 32 2F 30 35 63 20 20 53 45 52 49 45 )..12/05c SERIE
015D10: 53 2E 50 54 33 20 20 20 31 36 6B 20 7D 0D 0A 31 S.PT3 16k }..1
015D20: 32 2F 30 35 64 20 20 53 45 52 49 45 53 2E 50 54 2/05d SERIES.PT
015D30: 34 20 20 20 31 34 6B 20 7D 0D 0A 31 32 2F 30 35 4 14k }..12/05
015D40: 65 20 20 53 45 52 49 45 53 2E 50 54 35 20 20 20 e SERIES.PT5
015D50: 31 36 6B 20 7D 0D 0A 31 32 2F 30 35 66 20 20 53 16k }..12/05f S
015D60: 45 52 49 45 53 2E 50 54 36 20 20 20 31 36 6B 20 ERIES.PT6 16k
015D70: 7D 0D 0A 31 32 2F 30 35 67 20 20 53 45 52 49 45 }..12/05g SERIE
015D80: 53 2E 50 54 37 20 20 20 31 34 6B 20 7D 0D 0A 31 S.PT7 14k }..1
015D90: 32 2F 30 35 68 20 20 53 45 52 49 45 53 2E 50 54 2/05h SERIES.PT
015DA0: 38 20 20 20 31 37 6B 20 7D 0D 0A 0D 0A 31 32 2F 8 17k }....12/
015DB0: 30 36 20 20 20 45 58 41 4D 2D 6E 6E 2E 43 42 4C 06 EXAM-nn.CBL
015DC0: 20 20 34 34 6B 20 7D 20 54 68 65 20 63 6F 6D 70 44k } The comp
015DD0: 6C 65 74 65 20 73 65 74 20 6F 66 20 65 78 61 6D lete set of exam
015DE0: 70 6C 65 20 70 72 6F 67 72 61 6D 73 20 75 73 65 ple programs use
015DF0: 64 0D 0A 20 20 20 20 20 20 20 20 45 58 41 4D 2D d.. EXAM-
015E00: 08 2A 9A 30 23 23 11 78 30 CD 32 30 B5 C2 17 09 .*.0##.x0.20....
015E10: 3A D4 30 2F 32 D4 30 0E 02 CD 3C 05 C9 2A 9A 30 :.0/2.0...<..*.0
015E20: 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 2A N#F.a."z0!.."x0*
015E30: 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B 30 .0##N#F.PY!x0.K0
015E40: DA 6E 09 2A 78 30 EB 2A 7A 30 19 4E CD 7F 06 1F .n.*x0.*z0.N....
015E50: DA 61 09 2A 9A 30 23 23 4E 23 46 03 60 69 22 78 .a.*.0##N#F.`i"x
015E60: 30 11 01 00 2A 78 30 19 22 78 30 D2 2F 09 2A 9A 0...*x0."x0./.*.
015E70: 30 23 23 11 78 30 CD 32 30 B5 C2 84 09 3A D4 30 0##.x0.20....:.0
015E80: 2F 32 D4 30 0E 02 CD 3C 05 C9 21 26 31 71 2A 26 /2.0...<..!&1q*&
015E90: 31 4D CD 67 06 1F D2 9C 09 3E 01 C9 3A 26 31 D6 1M.g.....>..:&1.
015EA0: 80 4F CD 67 06 1F D2 AC 09 3E 00 C9 01 49 53 CD .O.g.....>...IS.
015EB0: 4E 02 3E 01 C9 21 82 30 36 00 3E 09 21 82 30 BE N.>..!.06.>.!.0.
015EC0: DA E0 09 2A 82 30 26 00 01 08 31 09 E5 2A 82 30 ...*.0&...1..*.0
015ED0: 26 00 01 E4 30 09 D1 1A 77 21 82 30 34 C2 BA 09 &...0...w!.04...
015EE0: 3A 1C 31 32 1A 31 3A 23 31 32 21 31 C9 2A 7A 30 :.12.1:#12!1.*z0
015EF0: 7E 87 87 87 87 D6 00 D6 01 9F 21 1D 31 B6 1F D2 ~.........!.1...
015F00: 59 0A 21 27 31 36 00 3A 20 31 3D 3D 21 27 31 BE Y.!'16.: 1==!'1.
015F10: DA 45 0A 2A 27 31 26 00 EB 2A 7A 30 19 7E 87 87 .E.*'1&..*z0.~..
015F20: 87 87 E5 2A 27 31 26 00 01 01 00 09 EB 2A 7A 30 ...*'1&......*z0
015F30: 19 F5 7E E6 F8 1F 1F 1F 1F C1 48 B1 E1 77 21 27 ..~.......H..w!'
015F40: 31 34 C2 07 0A 3A 20 31 3D 4F 06 00 2A 7A 30 09 14...: 1=O..*z0.
015F50: 7E 87 87 87 87 77 C3 5E 0A 21 1E 31 36 01 C9 3A ~....w.^.!.16..:
015F60: 20 31 32 28 31 21 93 30 36 01 3A 20 31 3D 21 93 12(1!.06.: 1=!.
015F70: 30 BE DA A6 0A 21 28 31 35 4E 06 00 2A 7A 30 09 0....!(15N..*z0.
015F80: 7E E6 F8 1F 1F 1F 1F F5 3A 28 31 3D 4F 06 00 E5 ~.......:(1=O...
015F90: 2A 7A 30 09 7E 87 87 87 87 D1 C1 48 B1 EB 77 21 *z0.~......H..w!
015FA0: 93 30 34 C2 6A 0A 2A 7A 30 7E E6 F8 1F 1F 1F 1F .04.j.*z0~......
015FB0: 77 2A 7A 30 7E FE 09 C2 BF 0A 2A 7A 30 36 99 C9 w*z0~.....*z06..
015FC0: 21 29 31 71 21 82 30 36 01 3A 29 31 21 82 30 BE !)1q!.06.:)1!.0.
015FD0: DA DD 0A CD 5F 0A 21 82 30 34 C2 C9 0A C9 21 2A ...._.!.04....!*
015FE0: 31 71 21 1E 31 36 00 3A 2A 31 FE 00 C2 F5 0A 21 1q!.16.:*1.....!
015FF0: 82 30 36 00 C9 21 82 30 36 00 3A 2A 31 3D 21 82 .06..!.06.:*1=!.
016000: C3 AD 01 10 27 E8 03 64 00 0A 00 20 46 41 54 41 ....'..d... FATA
016010: 4C 20 45 52 52 4F 52 24 20 27 30 20 45 58 45 43 L ERROR$ '0 EXEC
016020: 55 54 49 4F 4E 20 45 52 52 4F 52 53 24 0A 4F 50 UTION ERRORS$.OP
016030: 45 52 41 54 4F 52 20 45 4E 54 45 52 20 41 20 3C ERATOR ENTER A <
016040: 43 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 24 CR> TO CONTINUE$
016050: 09 20 4F 52 20 45 4E 54 45 52 20 41 4E 20 22 53 . OR ENTER AN "S
016060: 22 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 2E 24 " TO TERMINATE.$
016070: 0D 0A 3F 24 4E 50 53 20 4D 49 43 52 4F 2D 43 4F ..?$NPS MICRO-CO
016080: 42 4F 4C 20 49 4E 54 45 52 50 52 45 54 45 52 20 BOL INTERPRETER
016090: 56 45 52 53 49 4F 4E 20 32 2E 31 24 45 58 45 43 VERSION 2.1$EXEC
0160A0: 55 54 49 4F 4E 20 42 45 47 49 4E 53 24 31 78 30 UTION BEGINS$1x0
0160B0: 2A 94 30 E5 11 04 00 01 8B 30 CD F0 03 21 06 00 *.0......0...!..
0160C0: 22 7A 30 4E 23 46 0B 60 69 22 9C 30 EB 2A 8B 30 "z0N#F.`i".0.*.0
0160D0: CD 1F 30 22 8B 30 2A 8D 30 EB 2A 98 30 19 23 23 ..0".0*.0.*.0.##
0160E0: 22 8D 30 2A 8B 30 22 96 30 2A 8D 30 22 80 30 22 ".0*.0".0*.0".0"
0160F0: 7E 30 01 74 01 CD 2B 02 01 9C 01 CD 2B 02 2A 98 ~0.t..+.....+.*.
016100: 30 22 7A 30 5E 23 56 EB 22 9A 30 CD F9 22 FB 76 0"z0^#V.".0..".v
016110: 21 A0 30 71 2A A0 30 26 00 EB 0E 02 CD 05 00 C9 !.0q*.0&........
016120: 0E 0D CD 10 02 0E 0A CD 10 02 C9 21 A2 30 70 2B ...........!.0p+
016130: 71 CD 20 02 2A A1 30 EB 0E 09 CD 05 00 C9 21 A4 q. .*.0.......!.
016140: 30 70 2B 71 2A A3 30 EB 0E 0A CD 05 00 C9 21 A6 0p+q*£0.......!.
016150: 30 70 2B 71 CD 20 02 2A A5 30 7C 4F CD 10 02 2A 0p+q. .*.0|O...*
016160: A5 30 7D 4F CD 10 02 21 A7 30 36 04 2A A7 30 26 .0}O...!.06.*.0&
016170: 00 01 84 30 09 7E 3C 77 FE 39 C2 B3 02 2A A7 30 ...0.~<w.9...*.0
016180: 26 00 01 84 30 09 36 30 3E 00 21 A7 30 BE D2 B0 &...0.60>.!.0...
016190: 02 3A A7 30 3D 32 A7 30 4F 06 00 21 84 30 09 7E .:.0=2.0O..!.0.~
0161A0: FE 20 C2 B0 02 2A A7 30 26 00 01 84 30 09 36 30 . ...*.0&...0.60
0161B0: C3 6C 02 C9 21 A9 30 70 2B 71 2A A8 30 44 4D CD .l..!.0p+q*.0DM.
0161C0: 4E 02 11 0B 01 0E 09 CD 05 00 21 D2 02 E5 2A 7C N.........!...*|
0161D0: 30 E9 C9 11 25 00 2A 9E 30 19 EB 0E 1A CD 05 00 0...%.*.0.......
0161E0: C9 21 AB 30 70 2B 71 11 80 00 0E 1A CD 05 00 2A .!.0p+q........*
0161F0: AA 30 EB 0E 0F CD 05 00 32 AC 30 CD D3 02 3A AC .0......2.0...:.
016200: 30 BE DA 1C 0B CD ED 09 3A 1D 31 2F 21 1E 31 A6 0.......:.1/!.1.
016210: 1F D2 15 0B C9 21 82 30 34 C2 FA 0A C9 21 2C 31 .....!.04....!,1
016220: 36 00 3A 1B 31 21 1A 31 BE D2 5B 0B 21 F6 30 22 6.:.1!.1..[.!.0"
016230: 7A 30 21 1B 31 3A 1A 31 96 32 2B 31 4F CD DE 0A z0!.1:.1.2+1O...
016240: 3A 82 30 21 1B 31 86 77 01 E4 30 CD 88 0B 21 2C :.0!.1.w..0...!,
016250: 31 3A 1A 31 96 32 1A 31 C3 87 0B 21 E4 30 22 7A 1:.1.2.1...!.0"z
016260: 30 21 1A 31 3A 1B 31 96 32 2B 31 4F CD DE 0A 3A 0!.1:.1.2+1O...:
016270: 82 30 21 1A 31 86 77 01 F6 30 CD 88 0B 21 2C 31 .0!.1.w..0...!,1
016280: 3A 1B 31 96 32 1B 31 C9 21 2E 31 70 2B 71 3A 1E :.1.2.1.!.1p+q:.
016290: 31 1F D2 AE 0B 2A 2D 31 22 7A 30 21 82 30 3A 2B 1....*-1"z0!.0:+
0162A0: 31 96 32 2C 31 4F CD C0 0A 21 1E 31 36 00 C9 21 1.2,1O...!.16..!
0162B0: 2F 31 71 3A 20 31 3D 32 82 30 21 31 31 36 01 3A /1q: 1=2.0!116.:
0162C0: 20 31 21 31 31 BE DA FC 0B 2A 82 30 26 00 EB 2A 1!11....*.0&..*
0162D0: 7A 30 19 7E 32 30 31 21 2F 31 86 27 23 77 9F E6 z0.~201!/1.'#w..
0162E0: 01 2B 77 2A 82 30 26 00 EB 2A 7A 30 19 3A 30 31 .+w*.0&..*z0.:01
0162F0: 77 21 82 30 35 21 31 31 34 C2 BF 0B C9 21 35 31 w!.05!114....!51
016300: 72 2B 73 2B 70 2B 71 2A 32 31 22 89 30 2A 34 31 r+s+p+q*21".0*41
016310: 22 7A 30 21 36 31 36 00 3A 20 31 3D 32 82 30 21 "z0!616.: 1=2.0!
016320: 3A 31 36 01 3A 20 31 21 3A 31 BE DA 81 0C 2A 82 :16.: 1!:1....*.
016330: 30 26 00 01 E4 30 09 7E 32 37 31 2A 82 30 26 00 0&...0.~271*.0&.
016340: EB 2A 89 30 19 7E 32 38 31 3A 36 31 21 37 31 86 .*.0.~281:61!71.
016350: 27 32 39 31 9F 2B 77 3A 38 31 21 39 31 86 27 77 '291.+w:81!91.'w
016360: 9F 21 36 31 B6 E6 01 77 2A 82 30 26 00 EB 2A 7A .!61...w*.0&..*z
016370: 30 19 3A 39 31 77 21 82 30 35 21 3A 31 34 C2 24 0.:91w!.05!:14.$
016380: 0C 3A 36 31 1F D2 8F 0C 2A 36 31 4D CD AF 0B C9 .:61....*61M....
016390: 21 3B 31 71 2A 3B 31 26 00 01 21 31 09 3E 01 AE !;1q*;1&..!1.>..
0163A0: 77 2A 3B 31 4D 06 00 21 CC 0C 09 09 5E 23 56 EB w*;1M..!....^#V.
0163B0: E9 21 E4 30 22 89 30 C3 D2 0C 21 F6 30 22 89 30 .!.0".0...!.0".0
0163C0: C3 D2 0C 21 08 31 22 89 30 C3 D2 0C B1 0C BA 0C ...!.1".0.......
0163D0: C3 0C 21 82 30 36 00 3A 20 31 3D 21 82 30 BE DA ..!.06.: 1=!.0..
0163E0: F7 0C 2A 82 30 26 00 EB 2A 89 30 19 3E 99 96 77 ..*.0&..*.0.>..w
0163F0: 21 82 30 34 C2 D7 0C C9 3A 08 31 87 87 87 87 D6 !.04....:.1.....
016400: 30 C9 21 AE 30 70 2B 71 11 80 00 0E 1A CD 05 00 0.!.0p+q........
016410: 2A AD 30 EB 0E 10 CD 05 00 FE FF C2 24 03 01 4C *.0.........$..L
016420: 43 CD B4 02 CD D3 02 C9 2A 9E 30 EB 0E 13 CD 05 C.......*.0.....
016430: 00 C9 21 B0 30 70 2B 71 2A AF 30 EB 0E 16 CD 05 ..!.0p+q*.0.....
016440: 00 FE FF C2 4C 03 01 45 4D CD B4 02 C9 2A 9E 30 ....L..EM....*.0
016450: EB 0E 14 CD 05 00 C9 2A 9E 30 EB 0E 15 CD 05 00 .......*.0......
016460: C9 21 C2 30 70 2B 71 3E 20 21 C1 30 CD 48 30 D2 .!.0p+q> !.0.H0.
016470: 91 03 11 8B 30 01 C1 30 CD 30 30 D2 88 03 01 8F ....0..0.00.....
016480: 30 11 C1 30 CD 30 30 C9 2A 91 30 EB 2A C1 30 19 0..0.00.*.0.*.0.
016490: C9 3E 08 11 C1 30 CD 3D 30 D2 A9 03 2A C1 30 01 .>...0.=0...*.0.
0164A0: B1 30 29 09 5E 23 56 EB C9 3E 0C 21 C1 30 CD 48 .0).^#V..>.!.0.H
0164B0: 30 D2 C7 03 3E 0C 11 C1 30 CD 3D 30 29 EB 2A 7E 0...>...0.=0).*~
0164C0: 30 19 5E 23 56 EB C9 3E 0A 11 C1 30 CD 3D 30 EB 0.^#V..>...0.=0.
0164D0: 21 E6 03 19 19 5E 23 56 EB E9 21 18 01 C9 21 19 !....^#V..!...!.
0164E0: 01 C9 21 1A 01 C9 DA 03 DE 03 E2 03 21 00 00 C9 ..!.........!...
0164F0: 21 C9 30 72 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 !.0r+s+p+q+..p+q
016500: D5 2A C8 30 2B 22 C8 30 11 FF FF CD 1F 30 B5 CA .*.0+".0.....0..
016510: 2D 04 2A C4 30 E5 2A C6 30 C1 0A 77 2A C4 30 23 -.*.0.*.0..w*.0#
016520: 22 C4 30 2A C6 30 23 22 C6 30 C3 01 04 C9 21 CE ".0*.0#".0....!.
016530: 30 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A CC 30 0s+p+q+..p+q.*.0
016540: 2B 22 CC 30 11 FF FF CD 1F 30 B5 CA 5F 04 2A CA +".0.....0.._.*.
016550: 30 3A CE 30 77 2A CA 30 23 22 CA 30 C3 3D 04 C9 0:.0w*.0#".0.=..
016560: 2A 9A 30 23 23 3E 0B CD 48 30 B5 C2 71 04 3E 27 *.0##>..H0..q.>'
016570: C9 2A 9A 30 23 23 3E 0C CD 48 30 B5 C2 82 04 3E .*.0##>..H0....>
016580: 30 C9 3E 20 C9 C9 21 D1 30 73 2B 70 2B 71 21 00 0.> ..!.0s+p+q!.
016590: 00 22 78 30 2A CF 30 22 7A 30 21 D3 30 36 00 3A ."x0*.0"z0!.06.:
0165A0: D1 30 3D 21 D3 30 BE DA 15 05 2A D3 30 26 00 EB .0=!.0....*.0&..
0165B0: 2A 7A 30 19 7E 32 D2 30 D6 2D D6 01 9F F5 3A D2 *z0.~2.0.-....:.
0165C0: 30 D6 80 F5 D6 30 9F 2F C1 48 F5 3E 39 91 9F 2F 0....0./.H.>9../
0165D0: C1 48 A1 C1 48 B1 1F D2 E1 04 21 00 00 22 78 30 .H..H.....!.."x0
0165E0: C9 3A D2 30 FE 2E C2 ED 04 2A 78 30 C9 3A D2 30 .:.0.....*x0.:.0
0165F0: FE 2B CA 0E 05 2A 78 30 29 29 29 E5 2A 78 30 29 .+...*x0))).*x0)
016600: 00 C6 FF 9F F5 3A 11 31 E6 F8 1F 1F 1F 1F D6 00 .....:.1........
016610: C6 FF 9F C1 48 B1 1F D2 1D 0D 3E 00 C9 21 3C 31 ....H.....>..!<1
016620: 36 01 3E 08 21 3C 31 BE DA 44 0D 2A 3C 31 26 00 6.>.!<1..D.*<1&.
016630: 01 08 31 09 7E FE 00 CA 3D 0D 3E 00 C9 21 3C 31 ..1.~...=.>..!<1
016640: 34 C2 22 0D 3E 01 C9 21 3E 31 70 2B 71 21 3F 31 4.".>..!>1p+q!?1
016650: 36 00 2A 3D 31 22 7A 30 21 82 30 36 00 3E 09 21 6.*=1"z0!.06.>.!
016660: 82 30 BE DA A1 0D 2A 82 30 26 00 EB 2A 7A 30 19 .0....*.0&..*z0.
016670: 3E F0 A6 FE 00 CA 7C 0D 3A 3F 31 C9 21 3F 31 34 >.....|.:?1.!?14
016680: 2A 82 30 26 00 EB 2A 7A 30 19 3E 0F A6 FE 00 CA *.0&..*z0.>.....
016690: 96 0D 3A 3F 31 C9 21 3F 31 34 21 82 30 34 C2 5D ..:?1.!?14!.04.]
0166A0: 0D 3A 3F 31 C9 3A 08 31 E6 F8 1F 1F 1F 1F FE 09 .:?1.:.1........
0166B0: C2 B8 0D 0E 02 CD 90 0C 21 08 31 22 7A 30 0E 05 ........!.1"z0..
0166C0: CD AF 0B 3A 08 31 E6 F8 1F 1F 1F 1F D6 00 C6 FF ...:.1..........
0166D0: 9F F5 3A 1C 31 D6 00 D6 01 9F C1 48 A1 1F D2 E9 ..:.1......H....
0166E0: 0D 21 1E 31 36 01 C3 00 0E 3A 08 31 E6 F8 1F 1F .!.16....:.1....
0166F0: 1F 1F FE 00 CA 00 0E 0E 01 CD C0 0A 21 1C 31 35 ............!.15
016700: 01 09 00 2A 7A 30 09 3E F0 A6 77 01 08 31 CD 47 ...*z0.>..w..1.G
016710: 0D 4F 3E 13 B9 D2 1D 0E 21 23 31 36 01 C9 21 23 .O>.....!#16..!#
016720: 31 36 01 3A 21 31 2B A6 1F D2 2D 0E C9 3A 21 31 16.:!1+...-..:!1
016730: 2F F5 3A 22 31 2F C1 48 A1 1F D2 43 0E 21 23 31 /.:"1/.H...C.!#1
016740: 36 00 C9 3A 21 31 1F D2 52 0E 0E 01 CD 90 0C C3 6..:!1..R.......
016750: 57 0E 0E 00 CD 90 0C C9 21 E4 30 22 7A 30 21 40 W.......!.0"z0!@
016760: 31 36 00 3E 1B 21 40 31 BE DA AD 0E 2A 40 31 26 16.>.!@1....*@1&
016770: 00 EB 2A 7A 30 19 7E E6 F8 1F 1F 1F 1F F6 30 4F ..*z0.~.......0O
016780: CD 67 06 2F F5 2A 40 31 26 00 EB 2A 7A 30 19 3E .g./.*@1&..*z0.>
016790: 0F A6 F6 30 4F CD 67 06 2F C1 48 B1 1F D2 A6 0E ...0O.g./.H.....
0167A0: 01 45 4E CD 4E 02 21 40 31 34 C2 63 0E C9 01 03 .EN.N.!@14.c....
0167B0: 00 2A 9A 30 09 7E 32 82 30 21 1C 31 BE CA F3 0E .*.0.~2.0!.1....
0167C0: 21 1D 31 36 01 21 08 31 22 7A 30 3A 82 30 21 1C !.16.!.1"z0:.0!.
0167D0: 31 BE D2 E3 0E 21 82 30 3A 1C 31 96 4F CD C0 0A 1....!.0:.1.O...
0167E0: C3 EE 0E 21 1C 31 3A 82 30 96 4F CD DE 0A 21 1D ...!.1:.0.O...!.
0167F0: 31 36 00 01 08 31 CD 47 0D 2A 9A 30 23 23 F5 3E 16...1.G.*.0##.>
016800: C1 09 3A D2 30 D6 30 5F 16 00 19 22 78 30 21 D3 ..:.0.0_..."x0!.
016810: 30 34 C2 9F 04 2A 78 30 C9 21 D5 30 71 3A D5 30 04...*x0.!.0q:.0
016820: 11 9A 30 CD B5 2F EB 2B 73 23 72 C9 2A 9A 30 7E ..0../.+s#r.*.0~
016830: 32 82 30 0E 01 CD 19 05 3A 82 30 C9 21 D6 30 71 2.0.....:.0.!.0q
016840: 3A D4 30 1F D2 63 05 21 D4 30 36 00 2A D6 30 26 :.0..c.!.06.*.0&
016850: 00 29 EB 2A 9A 30 19 4E 23 46 CD 61 03 22 9A 30 .).*.0.N#F.a.".0
016860: C3 6D 05 3A D6 30 87 3C 3C 4F CD 19 05 C9 21 D7 .m.:.0.<<O....!.
016870: 30 71 3A D7 30 1F D2 81 05 0E 02 CD 19 05 C3 8D 0q:.0...........
016880: 05 2A 9A 30 4E 23 46 CD 61 03 22 9A 30 C9 CD 60 .*.0N#F.a.".0..`
016890: 04 6F 26 00 22 D8 30 2A 9A 30 23 23 3E 09 CD 48 .o&.".0*.0##>..H
0168A0: 30 9F F5 3E 0D 1B CD 3D 30 9F C1 48 A1 1F D2 07 0..>...=0..H....
0168B0: 06 21 00 00 22 78 30 01 04 00 2A 9A 30 09 4E 23 .!.."x0...*.0.N#
0168C0: 46 0B 50 59 21 78 30 CD 4B 30 DA 04 06 2A 78 30 F.PY!x0.K0...*x0
0168D0: EB 2A 7A 30 19 7E 11 D8 30 CD 3D 30 D2 E2 05 3E .*z0.~..0.=0...>
0168E0: 01 C9 2A 78 30 EB 2A 7A 30 19 7E 21 D8 30 CD 48 ..*x0.*z0.~!.0.H
0168F0: 30 D2 F7 05 3E 00 C9 11 01 00 2A 78 30 19 22 78 0...>.....*x0."x
016900: 30 D2 B7 05 C3 64 06 21 00 00 22 78 30 01 04 00 0....d.!.."x0...
016910: 2A 9A 30 09 4E 23 46 0B 50 59 21 78 30 CD 4B 30 *.0.N#F.PY!x0.K0
016920: DA 64 06 2A 78 30 EB 2A 7A 30 19 E5 2A 78 30 EB .d.*x0.*z0..*x0.
016930: 2A 89 30 19 7E E1 BE D2 3D 06 3E 01 C9 2A 78 30 *.0.~...=.>..*x0
016940: EB 2A 7A 30 19 E5 2A 78 30 EB 2A 89 30 19 C1 0A .*z0..*x0.*.0...
016950: BE D2 57 06 3E 00 C9 11 01 00 2A 78 30 19 22 78 ..W.>.....*x0."x
016960: 30 D2 0D 06 3E 02 C9 21 DA 30 71 3A DA 30 D6 30 0...>..!.0q:.0.0
016970: 9F 2F F5 3E 39 21 DA 30 96 9F 2F C1 48 A1 C9 21 ./.>9!.0../.H..!
016980: DB 30 71 3A DB 30 D6 41 9F 2F F5 3E 5A 21 DB 30 .0q:.0.A./.>Z!.0
016990: 96 9F 2F C1 48 A1 C9 21 DC 30 71 3A DC 30 D6 2B ../.H..!.0q:.0.+
0169A0: D6 01 9F F5 3A DC 30 D6 2D D6 01 9F C1 48 B1 C9 ....:.0.-....H..
0169B0: 21 DE 30 70 2B 71 21 DF 30 36 01 01 04 00 2A 9A !.0p+q!.06....*.
0169C0: 30 09 4E 23 46 0B 21 E0 30 71 0B 2B 7E 50 59 CD 0.N#F.!.0q.+~PY.
0169D0: 26 30 DA F1 06 2A DF 30 26 00 EB 2A DD 30 19 4E &0...*.0&..*.0.N
0169E0: CD 67 06 1F DA EA 06 3E 00 C9 21 DF 30 34 C2 BB .g.....>..!.04..
0169F0: 06 2A DD 30 4E CD 67 06 F5 2A E0 30 26 00 EB 2A .*.0N.g..*.0&..*
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 01 00 02 09 52 E5 13 00 C1 02 00 00 00 02 ......R.........
016A20: 13 00 C6 02 00 00 00 02 13 00 C2 02 00 00 00 02 ................
016A30: 13 00 C7 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A40: 13 00 C8 02 00 00 00 02 13 00 C4 02 00 00 00 02 ................
016A50: 13 00 C9 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 13 96 4F F1 B9 D2 0D 0F 21 1E 31 36 01 C9 CD 58 ..O.....!.16...X
016B10: 0E 21 1E 31 36 00 CD 1D 0B CD 1E 0E 3A 1A 31 32 .!.16.......:.12
016B20: 1C 31 11 08 31 01 F6 30 CD FD 0B CD A5 0D C9 21 .1..1..0.......!
016B30: 41 31 71 21 42 31 36 01 3A 41 31 21 42 31 BE DA A1q!B16.:A1!B1..
016B40: 52 0F 11 08 31 01 08 31 CD FD 0B 21 42 31 34 C2 R...1..1...!B14.
016B50: 38 0F C9 CD 58 0E 21 1E 31 36 00 21 20 31 36 12 8...X.!.16.! 16.
016B60: 3A 22 31 23 AE 2F E6 01 32 23 31 01 08 31 C5 1E :"1#./..2#1..1..
016B70: 00 01 12 00 CD 2E 04 C9 21 82 30 36 00 3E 09 21 ........!.06.>.!
016B80: 82 30 BE DA C2 0F 2A 82 30 26 00 01 F6 30 09 E5 .0....*.0&...0..
016B90: 2A 82 30 26 00 01 E4 30 09 3E 99 96 32 43 31 E1 *.0&...0.>..2C1.
016BA0: BE D2 A7 0F 3E 01 C9 2A 82 30 26 00 01 F6 30 09 ....>..*.0&...0.
016BB0: 7E 21 43 31 BE D2 BB 0F 3E 00 C9 21 82 30 34 C2 ~!C1....>..!.04.
016BC0: 7D 0F 3E 01 C9 21 44 31 71 3A 44 31 FE 00 CA D8 }.>..!D1q:D1....
016BD0: 0F 2A 44 31 4D CD 2F 0F 21 E4 30 22 7A 30 CD ED .*D1M./.!.0"z0..
016BE0: 09 C9 01 E4 30 CD 47 0D 4F 3E 13 B9 D2 F5 0F 21 ....0.G.O>.....!
016BF0: 1E 31 36 01 C9 01 F6 30 CD 47 0D 4F 3E 13 B9 D2 .16....0.G.O>...
016C00: 0F 10 01 08 31 C5 1E 00 01 12 00 CD 2E 04 C9 CD ....1...........
016C10: 53 0F 21 E4 30 22 7A 30 0E 11 CD DE 0A 3A 82 30 S.!.0"z0.....:.0
016C20: 21 1A 31 86 77 21 F6 30 22 7A 30 0E 11 CD DE 0A !.1.w!.0"z0.....
016C30: 3A 82 30 21 1B 31 86 77 21 1E 31 36 00 3E 11 21 :.0!.1.w!.16.>.!
016C40: 1A 31 BE D2 70 10 3A 1A 31 D6 11 32 48 31 4F 3A .1..p.:.1..2H1O:
016C50: 1B 31 B9 D2 63 10 21 1E 31 36 01 21 1C 31 36 00 .1..c.!.16.!.16.
016C60: C3 6D 10 21 48 31 3A 1B 31 96 32 1C 31 C3 7A 10 .m.!H1:.1.2.1.z.
016C70: 21 1A 31 3E 11 96 23 86 23 77 0E 00 CD 90 0C 21 !.1>..#.#w.....!
016C80: 45 31 36 01 3E 13 21 45 31 BE DA F8 10 21 46 31 E16.>.!E1....!F1
016C90: 36 00 CD 78 0F 1F D2 B6 10 11 F6 30 01 F6 30 CD 6..x.......0..0.
016CA0: FD 0B 3A F6 30 FE 99 C2 AF 10 0E 01 CD 90 0C 21 ..:.0..........!
016CB0: 46 31 34 C3 92 10 3A 45 31 B7 1F 32 47 31 3A 45 F14...:E1..2G1:E
016CC0: 31 1F D2 D6 10 2A 47 31 26 00 01 08 31 09 3A 46 1....*G1&...1.:F
016CD0: 31 B6 77 C3 E8 10 2A 47 31 26 00 01 08 31 09 3A 1.w...*G1&...1.:
016CE0: 46 31 87 87 87 87 B6 77 21 E4 30 22 7A 30 CD 5F F1.....w!.0"z0._
016CF0: 0A 21 45 31 34 C2 84 10 21 20 31 36 0A CD A5 0D .!E14...! 16....
016D00: 31 26 00 EB 2A 89 30 19 36 20 0E 0C CD 19 05 C9 1&..*.0.6 ......
016D10: 21 63 31 71 2A 63 31 26 00 01 59 31 09 7E 1F D2 !c1q*c1&..Y1.~..
016D20: 2B 19 3A 57 31 32 5B 31 C3 65 19 2A 63 31 26 00 +.:W12[1.e.*c1&.
016D30: 01 59 31 09 36 01 21 5E 31 3A 82 30 96 C6 FF 9F .Y1.6.!^1:.0....
016D40: F5 3A 63 31 D6 00 D6 01 9F C1 48 B1 1F D2 57 19 .:c1......H...W.
016D50: 3A 82 30 3C 32 5F 31 3A 63 31 FE 01 C2 65 19 3A :.0<2_1:c1...e.:
016D60: 82 30 32 61 31 C9 CD 20 02 0E 3F CD 10 02 2A 6D .02a1.. ..?...*m
016D70: 31 E5 2A 9A 30 23 23 4E 06 00 1E 20 CD 2E 04 2A 1.*.0##N... ...*
016D80: 6B 31 36 80 2A 6B 31 44 4D CD 3E 02 2A 6D 31 E5 k16.*k1DM.>.*m1.
016D90: 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 23 5E *.0N#F.a..*.0##^
016DA0: 16 00 C1 CD F0 03 0E 03 CD 19 05 C9 2A 9A 30 4E ............*.0N
016DB0: 23 46 CD 61 03 22 7A 30 01 03 00 2A 9A 30 09 7E #F.a."z0...*.0.~
016DC0: 1F DA C7 19 CD 20 02 2A 9A 30 23 23 7E 32 73 31 ..... .*.0##~2s1
016DD0: 21 82 30 36 00 3A 73 31 3D 21 82 30 BE DA F5 19 !.06.:s1=!.0....
016DE0: 2A 82 30 26 00 EB 2A 7A 30 19 4E CD 10 02 21 82 *.0&..*z0.N...!.
016DF0: 30 34 C2 D5 19 0E 04 CD 19 05 C9 2A 9A 30 4E 23 04.........*.0N#
016E00: 46 CD 61 03 22 7A 30 01 21 00 2A 7A 30 09 7E C9 F.a."z0.!.*z0.~.
016E10: 21 74 31 71 2A 9A 30 4E 23 46 CD 61 03 22 7A 30 !t1q*.0N#F.a."z0
016E20: CD FB 19 FE 00 CA 2E 1A 01 45 4F CD B4 02 01 21 .........EO....!
016E30: 00 2A 7A 30 09 3A 74 31 77 C9 21 71 31 36 00 2A .*z0.:t1w.!q16.*
016E40: 9A 30 4E 23 46 CD 61 03 11 9E 30 CD 40 30 B5 C2 .0N#F.a...0.@0..
016E50: 53 1A C9 2A 9E 30 22 7A 30 01 22 00 09 E5 2A 64 S..*.0"z0."...*d
016E60: 31 EB E1 73 23 72 2A 9E 30 0B 09 3A 70 31 77 2A 1..s#r*.0..:p1w*
016E70: 9A 30 4E 23 46 CD 61 03 22 9E 30 11 25 00 19 22 .0N#F.a.".0.%.."
016E80: 68 31 11 80 00 19 22 66 31 01 21 00 2A 9E 30 09 h1...."f1.!.*.0.
016E90: 7E 32 70 31 2A 9E 30 03 09 5E 23 56 EB 22 64 31 ~2p1*.0..^#V."d1
016EA0: C9 21 75 31 71 2A 75 31 4D CD 10 1A 2A 9A 30 4E .!u1q*u1M...*.0N
016EB0: 23 46 CD 61 03 22 9E 30 01 0C 00 2A 9E 30 09 36 #F.a.".0...*.0.6
016EC0: 00 2A 9E 30 44 4D CD E1 02 32 82 30 3A 75 31 3D .*.0DM...2.0:u1=
016ED0: 4F 06 00 21 16 1B 09 09 5E 23 56 EB E9 3A 82 30 O..!....^#V..:.0
016EE0: FE FF C2 EB 1A 01 46 4E CD B4 02 C3 1E 1B CD 28 ......FN.......(
016EF0: 03 2A 9A 30 4E 23 46 CD 61 03 44 4D CD 32 03 C3 .*.0N#F.a.DM.2..
016F00: C9 21 49 31 71 3A 24 31 2F 32 24 31 1F D2 28 11 .!I1q:$1/2$1..(.
016F10: 2A 1F 31 26 00 EB 2A 7A 30 19 3A 49 31 D6 30 87 *.1&..*z0.:I1.0.
016F20: 87 87 87 B6 77 C3 3F 11 3A 49 31 D6 30 F5 3A 1F ....w.?.:I1.0.:.
016F30: 31 3D 32 1F 31 4F 06 00 2A 7A 30 09 C1 48 71 C9 1=2.1O..*z0..Hq.
016F40: 21 4C 31 73 2B 70 2B 71 2A 4A 31 44 4D CD 61 03 !L1s+p+q*J1DM.a.
016F50: 22 89 30 3A 4C 31 32 82 30 21 93 30 36 01 3A 4C ".0:L12.0!.06.:L
016F60: 31 21 93 30 BE DA 81 11 21 82 30 35 2A 82 30 26 1!.0....!.05*.0&
016F70: 00 EB 2A 89 30 19 4E CD 01 11 21 93 30 34 C2 5E ..*.0.N...!.04.^
016F80: 11 0E 05 CD 19 05 C9 21 4E 31 71 01 04 00 2A 9A .......!N1q...*.
016F90: 30 09 7E 32 4F 31 4F 06 00 21 BE 11 09 09 5E 23 0.~2O1O..!....^#
016FA0: 56 EB E9 21 E4 30 22 7A 30 C3 C4 11 21 F6 30 22 V..!.0"z0...!.0"
016FB0: 7A 30 C3 C4 11 21 08 31 22 7A 30 C3 C4 11 A3 11 z0...!.1"z0...£.
016FC0: AC 11 B5 11 01 03 00 2A 9A 30 09 E5 2A 4F 31 26 .......*.0..*O1&
016FD0: 00 01 1A 31 09 D1 1A 77 2A 4F 31 26 00 01 21 31 ...1...w*O1&..!1
016FE0: 09 3A 4E 31 77 2A 7A 30 E5 1E 00 01 12 00 CD 2E .:N1w*z0........
016FF0: 04 21 1F 31 36 09 21 24 31 36 00 C9 0E 01 CD 87 .!.16.!$16......
017000: 11 2A 9A 30 E5 2A 9A 30 23 23 5E E1 4E 23 46 CD .*.0.*.0##^.N#F.
017010: 40 11 C9 2A 9A 30 23 23 7E 32 50 31 2A 9A 30 4E @..*.0##~2P1*.0N
017020: 23 46 CD 61 03 22 89 30 2A 89 30 7E FE 2D C2 3C #F.a.".0*.0~.-.<
017030: 12 CD B3 12 0E 00 CD 87 11 C3 4D 12 2A 89 30 7E ..........M.*.0~
017040: FE 2B C2 48 12 CD B3 12 0E 01 CD 87 11 21 51 31 .+.H.........!Q1
017050: 36 00 2B 7E 32 82 30 21 93 30 36 01 3A 50 31 21 6.+~2.0!.06.:P1!
017060: 93 30 BE DA 9B 12 21 82 30 35 4E 06 00 2A 89 30 .0....!.05N..*.0
017070: 09 7E FE 2E C2 86 12 3A 82 30 3C 4F 3A 50 31 91 .~.....:.0<O:P1.
017080: 32 51 31 C3 94 12 2A 82 30 26 00 EB 2A 89 30 19 2Q1...*.0&..*.0.
017090: 4E CD 01 11 21 93 30 34 C2 5C 12 01 04 00 2A 9A N...!.04.\....*.
0170A0: 30 09 4E 06 00 21 1A 31 09 3A 51 31 77 0E 05 CD 0.N..!.1.:Q1w...
0170B0: 19 05 C9 21 50 31 35 2A 89 30 23 22 89 30 C9 3A ...!P15*.0#".0.:
0170C0: 24 31 2F 32 24 31 1F D2 DD 12 2A 89 30 7E E6 F8 $1/2$1....*.0~..
0170D0: 1F 1F 1F 1F F6 30 2A 7A 30 77 C3 ED 12 2A 89 30 .....0*z0w...*.0
0170E0: 2B 22 89 30 3E 0F A6 F6 30 2A 7A 30 77 2A 7A 30 +".0>...0*z0w*z0
0170F0: 2B 22 7A 30 C9 21 52 31 71 21 24 31 36 00 21 11 +"z0.!R1q!$16.!.
017100: 1E 1B C3 1E 1B 3A 82 30 FE FF C2 13 1B 01 46 4E .....:.0......FN
017110: CD B4 02 C3 1E 1B DD 1A EE 1A 02 1B 05 1B 01 20 ...............
017120: 00 2A 9E 30 09 36 00 01 24 00 2A 9E 30 09 36 00 .*.0.6..$.*.0.6.
017130: 11 25 00 2A 9E 30 19 22 68 31 11 80 00 19 22 66 .%.*.0."h1...."f
017140: 31 01 21 00 2A 9E 30 09 7E 32 70 31 2A 68 31 2B 1.!.*.0.~2p1*h1+
017150: 22 64 31 E5 2A 9E 30 03 09 C1 71 23 70 0E 02 CD "d1.*.0...q#p...
017160: 19 05 C9 3A 70 31 07 C9 3A 70 31 F6 80 32 70 31 ...:p1..:p1..2p1
017170: C9 CD D3 02 3A 70 31 E6 0F 32 70 31 CD 57 03 32 ....:p1..2p1.W.2
017180: 82 30 FE 00 C2 88 1B C9 01 38 57 CD 4E 02 21 71 .0.......8W.N.!q
017190: 31 36 01 C9 CD D3 02 CD 63 1B 1F D2 A1 1B CD 71 16......c......q
0171A0: 1B CD 4D 03 32 82 30 FE 00 C2 AD 1B C9 3A 82 30 ..M.2.0......:.0
0171B0: FE 01 C2 BE 1B 01 24 00 2A 9E 30 09 36 01 21 71 ......$.*.0.6.!q
0171C0: 31 36 01 C9 2A 64 31 23 22 64 31 EB 21 66 31 CD 16..*d1#"d1.!f1.
0171D0: 4B 30 DA ED 1B CD 94 1B 01 24 00 2A 9E 30 09 7E K0.......$.*.0.~
0171E0: 1F D2 E7 1B 3E 1A C9 2A 68 31 22 64 31 2A 64 31 ....>..*h1"d1*d1
0171F0: 7E C9 21 76 31 71 2A 64 31 23 22 64 31 EB 21 66 ~.!v1q*d1#"d1.!f
017200: 31 CD 4B 30 DA 22 1C CD 71 1B 2A 68 31 22 64 31 1.K0."..q.*h1"d1
017210: 3A 72 31 1F D2 22 1C CD 94 1B 01 20 00 2A 9E 30 :r1.."..... .*.0
017220: 09 35 CD 68 1B 2A 64 31 3A 76 31 77 C9 0E 0D CD .5.h.*d1:v1w....
017230: F2 1B 0E 0A CD F2 1B C9 CD C4 1B D6 0D C6 FF 9F ................
017240: F5 CD C4 1B D6 0A C6 FF 9F C1 48 B1 1F D2 56 1C ..........H...V.
017250: 01 4D 45 CD 4E 02 C9 CD 3A 1A 01 04 00 2A 9A 30 .ME.N...:....*.0
017260: 09 4E 23 46 CD 61 03 22 7A 30 2A 7A 30 E5 2A 9A .N#F.a."z0*z0.*.
017270: 30 23 23 4E 23 46 1E 20 CD 2E 04 21 00 00 22 78 0##N#F. ...!.."x
017280: 30 2A 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 0*.0##N#F.PY!x0.
017290: 4B 30 DA D2 1C CD C4 1B 32 82 30 FE 0D C2 A7 1C K0......2.0.....
0172A0: CD C4 1B 32 82 30 C9 3A 82 30 FE 1A C2 B9 1C 01 ...2.0.:.0......
0172B0: 24 00 2A 9E 30 09 36 01 C9 2A 78 30 EB 2A 7A 30 $.*.0.6..*x0.*z0
0172C0: 19 3A 82 30 77 11 01 00 2A 78 30 19 22 78 30 D2 .:.0w...*x0."x0.
0172D0: 81 1C CD 38 1C C9 CD 3A 1A 2A 9A 30 23 23 4E 23 ...8...:.*.0##N#
0172E0: 46 CD 61 03 22 7A 30 01 04 00 2A 9A 30 09 5E 23 F.a."z0...*.0.^#
0172F0: 56 EB 22 77 31 2A 77 31 2B 22 77 31 EB 2A 7A 30 V."w1*w1+"w1.*z0
017300: 31 22 89 30 01 04 00 2A 9A 30 09 7E D6 0C C6 FF 1".0...*.0.~....
017310: 9F F5 3A 1E 31 2F C1 48 B1 1F D2 36 13 21 82 30 ..:.1/.H...6.!.0
017320: 36 01 3A 52 31 21 82 30 BE DA 36 13 CD BF 12 21 6.:R1!.0..6....!
017330: 82 30 34 C2 22 13 C9 21 54 31 70 2B 71 3A 23 31 .04."..!T1p+q:#1
017340: 1F DA 6A 13 2A 53 31 22 7A 30 01 04 00 2A 9A 30 ..j.*S1"z0...*.0
017350: 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F C1 48 B1 1F .~......:.1/.H..
017360: D2 6A 13 2A 7A 30 3E 80 86 77 0E 04 CD 19 05 C9 .j.*z0>..w......
017370: 21 56 31 70 2B 71 2A 55 31 22 7A 30 01 04 00 2A !V1p+q*U1"z0...*
017380: 9A 30 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F C1 48 .0.~......:.1/.H
017390: B1 1F D2 A9 13 3A 23 31 1F D2 A4 13 2A 7A 30 36 .....:#1....*z06
0173A0: 2B C3 A9 13 2A 7A 30 36 2D 0E 04 CD 19 05 C9 CD +...*z06-.......
0173B0: AE 0E 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 ..*.0N#F.a..*.0#
0173C0: 23 5E 16 00 E1 19 2B 22 7A 30 2A 9A 30 23 23 4E #^....+"z0*.0##N
0173D0: CD F5 12 C9 21 5B 31 36 00 21 5F 31 36 00 21 59 ....![16.!_16.!Y
0173E0: 31 36 00 23 36 00 01 0B 00 2A 9A 30 09 7E 32 60 16.#6....*.0.~2`
0173F0: 31 01 08 00 2A 9A 30 09 7E 32 61 31 2A 9A 30 09 1...*.0.~2a1*.0.
017400: 7E 3D 32 5E 31 2A 9A 30 4E 23 46 CD 61 03 22 89 ~=2^1*.0N#F.a.".
017410: 30 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 E5 01 0...*.0.N#F.a...
017420: 08 00 2A 9A 30 09 5E 23 56 2A 89 30 44 4D CD F0 ..*.0.^#V*.0DM..
017430: 03 2A 5E 31 26 00 EB 2A 89 30 19 7E D6 42 D6 01 .*^1&..*.0.~.B..
017440: 9F F5 7E D6 52 D6 01 9F C1 48 B1 1F D2 5C 14 21 ..~.R....H...\.!
017450: 5E 31 35 35 21 60 31 35 35 23 35 35 21 82 30 36 ^155!`155#55!.06
017460: 00 3A 5E 31 21 82 30 BE DA 1E 15 2A 82 30 26 00 .:^1!.0....*.0&.
017470: EB 2A 89 30 19 7E 32 57 31 FE 39 C2 8D 14 2A 82 .*.0.~2W1.9...*.
017480: 30 26 00 EB 2A 89 30 19 36 4F C3 D5 14 3A 57 31 0&..*.0.6O...:W1
017490: FE 24 C2 9D 14 0E 00 CD 10 19 C3 D5 14 2A 57 31 .$...........*W1
0174A0: 4D CD 97 06 1F D2 B0 14 0E 01 CD 10 19 C3 D5 14 M...............
0174B0: 3A 57 31 FE 5A C2 C1 14 3A 57 31 32 5B 31 C3 D5 :W1.Z...:W12[1..
0174C0: 14 3A 57 31 FE 42 C2 D5 14 2A 82 30 26 00 EB 2A .:W1.B...*.0&..*
0174D0: 89 30 19 36 20 21 60 31 3A 5E 31 96 21 82 30 BE .0.6 !`1:^1.!.0.
0174E0: D2 17 15 3A 57 31 D6 2F D6 01 9F F5 3A 57 31 D6 ...:W1./....:W1.
0174F0: 20 D6 01 9F C1 48 B1 F5 3A 57 31 D6 30 D6 01 9F ....H..:W1.0...
017500: 19 7E D6 20 D6 01 9F F5 3E 00 11 77 31 CD 3D 30 .~. ....>..w1.=0
017510: B5 C6 FF 9F C1 48 A1 1F D2 1E 1D C3 F5 1C 21 00 .....H........!.
017520: 00 22 78 30 11 77 31 01 78 30 CD 30 30 DA 49 1D ."x0.w1.x0.00.I.
017530: 2A 78 30 EB 2A 7A 30 19 4E CD F2 1B 11 01 00 2A *x0.*z0.N......*
017540: 78 30 19 22 78 30 D2 24 1D CD 2D 1C C9 2A 9A 30 x0."x0.$..-..*.0
017550: 23 23 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 ##N#F.a."z0!.."x
017560: 30 01 04 00 2A 9A 30 09 4E 23 46 0B 50 59 21 78 0...*.0.N#F.PY!x
017570: 30 CD 4B 30 DA AD 1D CD C4 1B 32 79 31 FE 1A C2 0.K0......2y1...
017580: 94 1D 21 71 31 36 01 01 24 00 2A 9E 30 09 36 01 ..!q16..$.*.0.6.
017590: C9 C3 A0 1D 2A 78 30 EB 2A 7A 30 19 3A 79 31 77 ....*x0.*z0.:y1w
0175A0: 11 01 00 2A 78 30 19 22 78 30 D2 61 1D CD 38 1C ...*x0."x0.a..8.
0175B0: C9 2A 9A 30 23 23 4E 23 46 CD 61 03 22 7A 30 21 .*.0##N#F.a."z0!
0175C0: 00 00 22 78 30 01 04 00 2A 9A 30 09 4E 23 46 0B .."x0...*.0.N#F.
0175D0: 50 59 21 78 30 CD 4B 30 DA F4 1D 2A 78 30 EB 2A PY!x0.K0...*x0.*
0175E0: 7A 30 19 4E CD F2 1B 11 01 00 2A 78 30 19 22 78 z0.N......*x0."x
0175F0: 30 D2 C5 1D 3A 6F 31 1F D2 03 1E 0E 0D CD F2 1B 0...:o1.........
017600: C3 06 1E CD 2D 1C C9 CD 63 1B 1F D2 11 1E CD 71 ....-...c......q
017610: 1B 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 01 08 ....*.0.N#F.a...
017620: 00 E5 2A 9A 30 09 5E C1 CD 86 04 22 7C 31 3E 00 ..*.0.^...."|1>.
017630: 11 7C 31 CD 3D 30 B5 C2 40 1E 21 71 31 36 01 C9 .|1.=0..@.!q16..
017640: 01 04 00 2A 9A 30 09 4E 23 46 03 03 2A 7C 31 2B ...*.0.N#F..*|1+
017650: EB CD F0 2F 22 7A 31 0E 07 CD 10 30 22 7E 31 0E .../"z1....0"~1.
017660: 07 CD 10 30 EB 21 80 31 73 01 0C 00 2A 9E 30 09 ...0.!.1s...*.0.
017670: 7B BE CA E2 1E 2A 9A 30 4E 23 46 CD 61 03 44 4D {....*.0N#F.a.DM
017680: CD 02 03 01 0C 00 2A 9E 30 09 3A 80 31 77 2A 9A ......*.0.:.1w*.
017690: 30 4E 23 46 CD 61 03 44 4D CD E1 02 FE FF C2 E2 0N#F.a.DM.......
0176A0: 1E 3A 70 31 B7 1F 1F D2 BB 1E 2A 9A 30 4E 23 46 .:p1......*.0N#F
0176B0: CD 61 03 44 4D CD 32 03 C3 E2 1E 21 71 31 36 01 .a.DM.2....!q16.
0176C0: 01 0C 00 2A 9E 30 09 36 00 2A 9A 30 4E 23 46 CD ...*.0.6.*.0N#F.
0176D0: 61 03 44 4D CD E1 02 FE FF C2 E2 1E 01 50 4F CD a.DM.........PO.
0176E0: B4 02 3E 7F 11 7A 31 CD C2 2F E5 2A 68 31 C1 09 ..>..z1../.*h1..
0176F0: 2B 22 64 31 2A 7E 31 7D E6 7F 01 20 00 2A 9E 30 +"d1*~1}... .*.0
017700: C1 48 B1 F5 3A 57 31 D6 2C D6 01 9F C1 48 B1 1F .H..:W1.,....H..
017710: D2 17 15 21 60 31 35 21 82 30 34 C2 61 14 21 5E ...!`15!.04.a.!^
017720: 31 3A 61 31 BE C2 30 15 21 5E 31 35 21 60 31 35 1:a1..0.!^15!`15
017730: 01 04 00 2A 9A 30 09 4E 23 46 21 5D 31 71 21 E4 ...*.0.N#F!]1q!.
017740: 30 22 7A 30 2A 7A 30 E5 1E 30 01 24 00 CD 2E 04 0"z0*z0..0.$....
017750: 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A 7A 30 44 *.0##N#F.a..*z0D
017760: 4D 2A 5D 31 26 00 EB CD F0 03 2A 7A 30 4E CD 97 M*]1&.....*z0N..
017770: 06 1F D2 8A 15 2A 7A 30 7E 32 62 31 2A 7A 30 23 .....*z0~2b1*z0#
017780: 22 7A 30 21 5D 31 35 C3 10 16 01 04 00 2A 9A 30 "z0!]15......*.0
017790: 09 7E 3D 4F 06 00 2A 7A 30 09 4E CD 97 06 1F D2 .~=O..*z0.N.....
0177A0: BD 15 01 04 00 2A 9A 30 09 7E 3D 4F 06 00 2A 7A .....*.0.~=O..*z
0177B0: 30 09 7E 32 62 31 21 5D 31 35 C3 10 16 01 04 00 0.~2b1!]15......
0177C0: 2A 9A 30 09 7E 3D 4F 06 00 2A 7A 30 09 4E CD 8A *.0.~=O..*z0.N..
0177D0: 09 1F DA F1 15 21 62 31 36 2D 01 04 00 2A 9A 30 .....!b16-...*.0
0177E0: 09 7E 3D 4F 06 00 2A 7A 30 09 7E D6 80 77 C3 10 .~=O..*z0.~..w..
0177F0: 16 2A 7A 30 4E CD 8A 09 1F DA 0B 16 21 62 31 36 .*z0N.......!b16
017800: 2D 2A 7A 30 7E D6 80 77 C3 10 16 21 62 31 36 2B -*z0~..w...!b16+
017810: 01 0A 00 2A 9A 30 09 3A 60 31 BE CA 53 16 01 0A ...*.0.:`1..S...
017820: 00 2A 9A 30 09 3A 60 31 BE D2 43 16 01 0A 00 2A .*.0.:`1..C....*
017830: 9A 30 09 7E 21 60 31 96 4F 3A 5D 31 91 32 5D 31 .0.~!`1.O:]1.2]1
017840: C3 53 16 01 0A 00 2A 9A 30 09 3A 60 31 96 21 5D .S....*.0.:`1.!]
017850: 31 86 77 3A 5D 31 3D 32 82 30 3A 5E 31 32 58 31 1.w:]1=2.0:^12X1
017860: 32 5C 31 21 93 30 36 01 3A 5D 31 21 93 30 BE DA 2\1!.06.:]1!.0..
017870: 30 17 2A 58 31 26 00 EB 2A 89 30 19 7E D6 20 D6 0.*X1&..*.0.~. .
017880: 01 9F F5 7E D6 30 D6 01 9F C1 48 B1 F5 7E D6 2F ...~.0....H..~./
017890: D6 01 9F C1 48 B1 F5 7E D6 2E D6 01 9F C1 48 B1 ....H..~......H.
0178A0: F5 7E D6 2C D6 01 9F C1 48 B1 F5 3A 5E 31 21 58 .~.,....H..:^1!X
0178B0: 31 96 9F 2F C1 48 A1 1F D2 C2 16 21 58 31 35 C3 1../.H.....!X15.
0178C0: 72 16 2A 82 30 26 00 EB 2A 7A 30 19 7E FE 2E CA r.*.0&..*z0.~...
0178D0: 25 17 2A 82 30 26 00 EB 2A 7A 30 19 7E FE 30 CA %.*.0&..*z0.~.0.
0178E0: 21 17 21 5F 31 3A 58 31 96 9F F5 3A 58 31 D6 FF !.!_1:X1...:X1..
0178F0: D6 01 9F C1 48 B1 1F D2 03 17 3A 5D 31 32 93 30 ....H.....:]12.0
017900: 09 77 CD 94 1B C9 01 0C 00 2A 9E 30 09 6E 26 00 .w.......*.0.n&.
017910: 22 81 31 0E 07 CD 06 30 01 20 00 E5 2A 9E 30 09 ".1....0. ..*.0.
017920: 5E 16 00 E1 19 22 81 31 3A 70 31 B7 1F 1F DA 38 ^....".1:p1....8
017930: 1F 2A 81 31 2B 22 81 31 0E 07 21 81 31 CD 02 30 .*.1+".1..!.1..0
017940: E5 2A 64 31 23 EB 2A 68 31 CD 1F 30 C1 09 22 85 .*d1#.*h1..0..".
017950: 31 01 04 00 2A 9A 30 09 4E 23 46 03 03 2A 85 31 1...*.0.N#F..*.1
017960: EB CD D1 2F 13 EB 22 83 31 C9 CD 06 1F 22 87 31 .../..".1....".1
017970: 21 8B 31 36 00 3E 03 21 8B 31 BE DA C8 1F 21 8C !.16.>.!.1....!.
017980: 31 36 00 2A 8B 31 26 00 01 03 01 29 09 5E 23 56 16.*.1&....).^#V
017990: EB 22 89 31 11 87 31 CD 40 30 DA B2 1F 01 89 31 .".1..1.@0.....1
0179A0: 11 87 31 CD 30 30 EB 2B 73 23 72 21 8C 31 34 C3 ..1.00.+s#r!.14.
0179B0: 83 1F 3A 8C 31 C6 30 2A 8B 31 26 00 01 8D 31 09 ..:.1.0*.1&...1.
0179C0: 77 21 8B 31 34 C2 75 1F 11 30 00 2A 87 31 19 EB w!.14.u..0.*.1..
0179D0: 21 91 31 73 01 08 00 2A 9A 30 09 7E 32 8B 31 4F !.1s...*.0.~2.1O
0179E0: 3E 05 B9 DA 0B 20 3A 8B 31 11 92 31 CD 26 30 E5 >.... :.1..1.&0.
0179F0: 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 44 4D 2A ...*.0.N#F.a.DM*
017A00: 8B 31 26 00 EB CD F0 03 C3 4D 20 01 06 00 2A 9A .1&......M ...*.
017A10: 30 09 4E 23 46 CD 61 03 E5 3A 8B 31 D6 05 4F 06 0.N#F.a..:.1..O.
017A20: 00 1E 30 CD 2E 04 01 8D 31 C5 01 06 00 2A 9A 30 ..0.....1....*.0
017A30: 09 4E 23 46 CD 61 03 E5 2A 8B 31 26 00 C1 09 EB .N#F.a..*.1&....
017A40: 3E 05 CD 26 30 44 4D 11 05 00 CD F0 03 C9 21 01 >..&0DM.......!.
017A50: 00 22 78 30 01 04 00 2A 9A 30 09 EB 01 78 30 CD ."x0...*.0...x0.
017A60: 30 30 DA 77 20 0E FF CD F2 1B 11 01 00 2A 78 30 00.w ........*x0
017A70: 19 22 78 30 D2 54 20 CD 2D 1C C9 21 93 31 70 2B ."x0.T .-..!.1p+
017A80: 71 21 94 31 36 01 11 92 31 3A 94 31 CD 3D 30 DA q!.16...1:.1.=0.
017A90: 9C 20 CD 4E 20 21 94 31 34 C2 86 20 C9 2A 9A 30 . .N !.14.. .*.0
017AA0: 4E 23 46 CD 61 03 44 4D CD 02 03 01 0C 00 2A 9E N#F.a.DM......*.
017AB0: 30 09 7E 3D 77 FE FF C2 C0 20 01 37 57 CD B4 02 0.~=w.... .7W...
017AC0: 2A 9A 30 4E 23 46 CD 61 03 44 4D CD E1 02 FE FF *.0N#F.a.DM.....
017AD0: C2 D9 20 01 50 4F CD B4 02 01 20 00 2A 9E 30 09 .. .PO.... .*.0.
017AE0: 36 7F C9 01 04 00 2A 9A 30 09 4E 23 46 03 03 11 6.....*.0.N#F...
017AF0: 64 31 CD 35 30 EB 2B 73 23 72 2A 68 31 2B CD 1F d1.50.+s#r*h1+..
017B00: C3 21 17 2A 82 30 26 00 EB 2A 7A 30 19 E5 2A 58 .!.*.0&..*z0..*X
017B10: 31 26 00 EB 2A 89 30 19 C1 0A 77 3A 58 31 32 5C 1&..*.0...w:X12\
017B20: 31 21 58 31 35 21 82 30 35 21 93 30 34 C2 68 16 1!X15!.05!.04.h.
017B30: 3A 5B 31 FE 00 CA DD 17 21 82 30 36 00 2A 82 30 :[1.....!.06.*.0
017B40: 26 00 EB 2A 89 30 19 3A 5B 31 BE CA 55 17 21 82 &..*.0.:[1..U.!.
017B50: 30 34 C3 3D 17 2A 82 30 26 00 EB 2A 89 30 19 7E 04.=.*.0&..*.0.~
017B60: D6 2C D6 01 9F F5 7E D6 30 D6 01 9F C1 48 B1 F5 .,....~.0....H..
017B70: 7E D6 20 D6 01 9F C1 48 B1 F5 7E D6 2F D6 01 9F ~. ....H..~./...
017B80: C1 48 B1 F5 3A 5B 31 96 D6 01 9F C1 48 B1 F5 3A .H..:[1.....H..:
017B90: 5E 31 21 82 30 96 9F 2F C1 48 A1 1F D2 B2 17 2A ^1!.0../.H.....*
017BA0: 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 34 C3 .0&..*.0.6 !.04.
017BB0: 55 17 3A 5B 31 FE 5A CA DD 17 3A 82 30 3D 32 82 U.:[1.Z...:.0=2.
017BC0: 30 4F 06 00 2A 89 30 09 3A 5B 31 77 2A 5B 31 4D 0O..*.0.:[1w*[1M
017BD0: CD 97 06 1F D2 DD 17 3A 82 30 32 61 31 21 82 30 .......:.02a1!.0
017BE0: 36 00 3A 5C 31 21 82 30 BE DA 47 18 2A 82 30 26 6.:\1!.0..G.*.0&
017BF0: 00 EB 2A 89 30 19 7E FE 4F C2 0B 18 2A 82 30 26 ..*.0.~.O...*.0&
017C00: 00 EB 2A 89 30 19 36 30 C3 40 18 2A 82 30 26 00 ..*.0.60.@.*.0&.
017C10: EB 2A 89 30 19 7E D6 2C D6 01 9F F5 3A 82 30 3D .*.0.~.,....:.0=
017C20: 4F 06 00 2A 89 30 09 7E D6 2A D6 01 9F C1 48 A1 O..*.0.~.*....H.
017C30: 1F D2 40 18 2A 82 30 26 00 EB 2A 89 30 19 36 2A ..@.*.0&..*.0.6*
017C40: 21 82 30 34 C2 E2 17 3A 5C 31 3C 32 82 30 3A 5E !.04...:\1<2.0:^
017C50: 31 21 82 30 BE DA A7 18 2A 82 30 26 00 EB 2A 89 1!.0....*.0&..*.
017C60: 30 19 7E D6 2A D6 01 9F F5 7E D6 24 D6 01 9F C1 0.~.*....~.$....
017C70: 48 B1 F5 E5 2A 82 30 26 00 EB 2A 89 30 19 4E CD H...*.0&..*.0.N.
017C80: 97 06 D1 C1 48 B1 F5 1A D6 4F D6 01 9F C1 48 B1 ....H....O....H.
017C90: 1F D2 A0 18 2A 82 30 26 00 EB 2A 89 30 19 36 30 ....*.0&..*.0.60
017CA0: 21 82 30 34 C2 4E 18 01 08 00 2A 9A 30 09 3A 61 !.04.N....*.0.:a
017CB0: 31 BE D2 0A 19 2A 61 31 26 00 EB 2A 89 30 19 7E 1....*a1&..*.0.~
017CC0: FE 2B C2 D6 18 2A 61 31 26 00 EB 2A 89 30 19 3A .+...*a1&..*.0.:
017CD0: 62 31 77 C3 0A 19 3A 62 31 FE 2B C2 0A 19 2A 61 b1w...:b1.+...*a
017CE0: 31 26 00 EB 2A 89 30 19 7E FE 2D CA FE 18 2A 61 1&..*.0.~.-...*a
017CF0: 31 26 00 01 01 00 09 EB 2A 89 30 19 36 20 2A 61 1&......*.0.6 *a
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 01 00 02 09 52 E5 14 00 C1 02 00 00 00 02 ......R.........
017D20: 14 00 C6 02 00 00 00 02 14 00 C2 02 00 00 00 02 ................
017D30: 14 00 C7 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D40: 14 00 C8 02 00 00 00 02 14 00 C4 02 00 00 00 02 ................
017D50: 14 00 C9 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 30 DA 0D 21 01 20 00 2A 9E 30 09 35 C9 01 64 31 0..!. .*.0.5..d1
017E10: 11 68 31 CD 30 30 22 64 31 3E 81 21 64 31 CD 48 .h1.00"d1>.!d1.H
017E20: 30 D2 3C 21 3E 80 11 64 31 CD 3D 30 EB 2B 73 23 0.<!>..d1.=0.+s#
017E30: 72 01 20 00 2A 9E 30 09 35 C3 19 21 01 64 31 11 r. .*.0.5..!.d1.
017E40: 66 31 CD 30 30 22 64 31 01 20 00 2A 9E 30 09 35 f1.00"d1. .*.0.5
017E50: 35 2A 9E 30 09 3E 7F BE D2 75 21 CD 9D 20 3A 71 5*.0.>...u!.. :q
017E60: 31 1F D2 66 21 C9 CD 94 1B 01 20 00 2A 9E 30 09 1..f!..... .*.0.
017E70: 36 7F C3 80 21 CD 94 1B 01 20 00 2A 9E 30 09 35 6...!.... .*.0.5
017E80: C9 21 95 31 71 CD E3 20 21 72 31 36 01 3A 95 31 .!.1q.. !r16.:.1
017E90: 1F D2 9A 21 CD B1 1D C3 9D 21 CD 4E 20 CD 71 1B ...!.....!.N .q.
017EA0: 01 20 00 2A 9E 30 09 7E FE 00 C2 B3 21 CD 9D 20 . .*.0.~....!..
017EB0: C3 BB 21 01 20 00 2A 9E 30 09 35 21 72 31 36 00 ..!. .*.0.5!r16.
017EC0: CD 94 1B C9 CD 06 1F 22 98 31 01 06 00 2A 9A 30 .......".1...*.0
017ED0: 09 4E 23 46 CD 61 03 01 08 00 E5 2A 9A 30 09 5E .N#F.a.....*.0.^
017EE0: C1 CD 86 04 22 9A 31 11 9A 31 01 98 31 CD 30 30 ....".1..1..1.00
017EF0: D2 F9 21 01 32 57 CD B4 02 01 98 31 11 9A 31 CD ..!.2W.....1..1.
017F00: 30 30 22 96 31 3E 00 CD 1C 30 D2 15 22 2A 96 31 00".1>...0.."*.1
017F10: 44 4D CD 7B 20 C9 2A 83 30 26 00 EB 2A 7A 30 19 DM.{ .*.0&..*z0.
017F20: E5 2A 82 30 26 00 EB 2A 89 30 19 C1 0A 77 21 83 .*.0&..*.0...w!.
017F30: 30 34 2B 34 C9 21 9C 31 71 3A 9C 31 D6 30 D6 01 04+4.!.1q:.1.0..
017F40: 9F F5 3A 9C 31 D6 2F D6 01 9F C1 48 B1 1F D2 58 ..:.1./....H...X
017F50: 22 21 82 30 34 C3 C2 22 3A 9C 31 FE 42 C2 73 22 "!.04..":.1.B.s"
017F60: 2A 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 34 *.0&..*.0.6 !.04
017F70: C3 C2 22 3A 9C 31 FE 41 C2 99 22 2A 83 30 26 00 ..":.1.A.."*.0&.
017F80: EB 2A 7A 30 19 4E CD 7F 06 1F DA 93 22 01 43 49 .*z0.N......".CI
017F90: CD 4E 02 CD 16 22 C3 C2 22 3A 9C 31 FE 39 C2 BF .N..."..":.1.9..
017FA0: 22 2A 83 30 26 00 EB 2A 7A 30 19 4E CD 67 06 1F "*.0&..*z0.N.g..
017FB0: DA B9 22 01 43 49 CD 4E 02 CD 16 22 C3 C2 22 CD ..".CI.N..."..".
017FC0: 16 22 C9 CD 20 02 21 82 30 36 01 3E 04 21 82 30 .".. .!.06.>.!.0
017FD0: BE DA E8 22 2A 82 30 26 00 01 84 30 09 4E CD 10 ..."*.0&...0.N..
017FE0: 02 21 82 30 34 C2 CB 22 11 1B 01 0E 09 CD 05 00 .!.04.."........
017FF0: 21 F8 22 E5 2A 7C 30 E9 C9 CD 2C 05 4F 06 00 21 !.".*|0...,.O..!
018000: C3 B1 2F 0E 00 CD 83 07 C3 B1 2F 0E 02 CD 83 07 ../......./.....
018010: C3 B1 2F 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A ../*.0##N#F.a..*
018020: 9A 30 4E 23 46 CD 61 03 01 04 00 E5 2A 9A 30 09 .0N#F.a.....*.0.
018030: 5E 23 56 C1 CD F0 03 01 06 00 2A 9A 30 09 3E 00 ^#V.......*.0.>.
018040: CD 48 30 B5 CA 70 2B 2A 9A 30 4E 23 46 CD 61 03 .H0..p+*.0N#F.a.
018050: 01 04 00 E5 2A 9A 30 09 D1 CD B9 2F E5 01 06 00 ....*.0..../....
018060: 2A 9A 30 09 E5 CD 60 04 E1 4E 23 46 5F CD 2E 04 *.0...`..N#F_...
018070: 0E 08 CD 19 05 C3 B1 2F 21 A2 31 36 01 CD 3A 1A ......./!.16..:.
018080: 3A 70 31 B7 1F 1F D2 8F 2B 01 35 57 CD B4 02 01 :p1.....+.5W....
018090: 24 00 2A 9E 30 09 7E 2F 21 A2 31 A6 1F D2 BC 2B $.*.0.~/!.1....+
0180A0: 21 A2 31 36 00 CD 6A 1F CD 4D 1D 2A 7A 30 7E FE !.16..j..M.*z0~.
0180B0: FF C2 B9 2B 21 A2 31 36 01 C3 8F 2B 0E 09 CD 19 ...+!.16...+....
0180C0: 05 C3 B1 2F CD 3A 1A 3A 70 31 B7 1F 1F DA D6 2B .../.:.:p1.....+
0180D0: 01 31 57 CD B4 02 CD C4 21 CD 6A 1F CD B1 1D 0E .1W.....!.j.....
0180E0: 09 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 B7 1F 1F ....../.:.:p1...
0180F0: D2 F9 2B 01 35 57 CD B4 02 CD 07 1E 3A 71 31 1F ..+.5W......:q1.
018100: DA 06 2C CD 4D 1D 3A 71 31 1F D2 16 2C 01 24 00 ..,.M.:q1...,.$.
018110: 2A 9E 30 09 36 00 0E 09 CD 19 05 C3 B1 2F CD 3A *.0.6......../.:
018120: 1A 3A 70 31 B7 1F 1F D2 36 2C CD C4 21 CD 6A 1F .:p1....6,..!.j.
018130: CD B1 1D C3 7C 2C 3A 70 31 E6 FE 1F 1F 1F D2 7C ....|,:p1......|
018140: 2C CD 07 1E 3A 71 31 1F DA 76 2C 2A 64 31 23 7E ,...:q1..v,*d1#~
018150: FE FF C2 6D 2C 21 72 31 36 01 01 20 00 2A 9E 30 ...m,!r16.. .*.0
018160: 09 35 CD B1 1D 21 72 31 36 00 C3 73 2C 01 34 57 .5...!r16..s,.4W
018170: CD B4 02 C3 7C 2C 01 33 57 CD B4 02 0E 09 CD 19 ....|,.3W.......
018180: 05 C3 B1 2F CD 3A 1A 3A 70 31 E6 FE 1F 1F 1F DA .../.:.:p1......
018190: 98 2C 01 36 57 CD B4 02 21 72 31 36 01 CD E3 20 .,.6W...!r16...
0181A0: 3A 71 31 1F DA AA 2C CD B1 1D 21 72 31 36 00 0E :q1...,...!r16..
0181B0: 09 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 E6 FE 1F ....../.:.:p1...
0181C0: 1F 1F DA CB 2C 01 36 57 CD B4 02 CD 07 1E 21 72 ....,.6W......!r
0181D0: 31 36 01 2B 7E 1F DA E4 2C 01 20 00 2A 9E 30 09 16.+~...,. .*.0.
0181E0: 35 CD 4E 20 21 72 31 36 00 0E 09 CD 19 05 C3 B1 5.N !r16........
0181F0: 2F 2A 9A 30 4E 23 46 CD 61 03 22 89 30 01 06 00 /*.0N#F.a.".0...
018200: 2B 2F 09 09 5E 23 56 EB E9 C3 B1 2F CD 0E 0F C3 +/..^#V..../....
018210: B1 2F 3A 21 31 EE 01 32 21 31 CD 0E 0F C3 B1 2F ./:!1..2!1...../
018220: CD 53 0F 21 E4 30 22 7A 30 0E 11 CD C0 0A 21 F6 .S.!.0"z0.....!.
018230: 30 22 7A 30 0E 01 CD C0 0A 3A 1B 31 21 1A 31 86 0"z0.....:.1!.1.
018240: 32 1C 31 21 9D 31 36 0A 21 93 30 36 01 3E 09 21 2.1!.16.!.06.>.!
018250: 93 30 BE DA 86 23 3A 9D 31 3D 32 9D 31 4F 06 00 .0...#:.1=2.1O..
018260: 21 F6 30 09 3E 0F A6 4F CD C5 0F 2A 9D 31 26 00 !.0.>..O...*.1&.
018270: 01 F6 30 09 7E E6 F8 1F 1F 1F 1F 4F CD C5 0F 21 ..0.~......O...!
018280: 93 30 34 C2 4D 23 21 08 31 22 7A 30 0E 11 CD DE .04.M#!.1"z0....
018290: 0A 3A 1E 31 1F D2 BC 23 3A 1C 31 21 82 30 86 32 .:.1...#:.1!.0.2
0182A0: 9E 31 FE 11 D2 AF 23 21 1C 31 36 00 C3 BC 23 3A .1....#!.16...#:
0182B0: 9E 31 D6 11 32 1C 31 21 1E 31 36 00 21 20 31 36 .1..2.1!.16.! 16
0182C0: 0A CD A5 0D C3 B1 2F CD E2 0F C3 B1 2F 3A D4 30 ....../...../:.0
0182D0: 2F 32 D4 30 C3 B1 2F CD C3 22 C3 B1 2F CD B5 09 /2.0../.."../...
0182E0: C3 B1 2F 01 8B 30 11 96 30 CD 30 30 D2 2A 24 2A ../..0..0.00.*$*
0182F0: 96 30 5E 23 56 EB 22 9A 30 2A 96 30 23 23 5E 23 .0^#V.".0*.0##^#
018300: 56 EB 22 91 30 01 04 00 2A 96 30 09 5E 23 56 EB V.".0...*.0.^#V.
018310: 22 8F 30 11 06 00 2A 96 30 19 22 96 30 2A 7E 30 ".0...*.0.".0*~0
018320: 22 80 30 5E 23 56 EB 22 7E 30 C3 B1 2F 3A 1E 31 ".0^#V."~0../:.1
018330: 1F DA 74 24 21 08 31 22 7A 30 2A 9A 30 3A 1C 31 ..t$!.1"z0*.0:.1
018340: 96 4F 3E 00 B9 D2 5D 24 2A 9A 30 3A 1C 31 96 4F .O>...]$*.0:.1.O
018350: CD C0 0A 2A 9A 30 7E 32 1C 31 C3 71 24 2A 9A 30 ...*.0~2.1.q$*.0
018360: 7E 21 1C 31 96 4F CD DE 0A 3A 82 30 21 1C 31 86 ~!.1.O...:.0!.1.
018370: 77 CD A5 0D 0E 01 CD 19 05 C3 B1 2F 2A 9A 30 3E w........../*.0>
018380: 00 CD 48 30 B5 CA A6 24 2A 9A 30 4E 23 46 CD 61 ..H0...$*.0N#F.a
018390: 03 22 78 30 2A 9A 30 3E 00 77 23 36 00 2A 78 30 ."x0*.0>.w#6.*x0
0183A0: 22 9A 30 C3 AB 24 0E 02 CD 19 05 C3 B1 2F CD 3A ".0..$......./.:
0183B0: 1A CD 63 1B 1F D2 CE 24 3A 70 31 E6 FE 1F 1F 1F ..c....$:p1.....
0183C0: DA C8 24 0E 1A CD F2 1B CD 71 1B C3 D1 24 CD D3 ..$......q...$..
0183D0: 02 2A 9A 30 4E 23 46 CD 61 03 44 4D CD 02 03 21 .*.0N#F.a.DM...!
0183E0: 70 31 36 00 01 21 00 2A 9E 30 09 36 00 0E 02 CD p16..!.*.0.6....
0183F0: 19 05 C3 B1 2F 3A 1E 31 1F D2 06 25 0E 03 CD 19 ..../:.1...%....
018400: 2A 9A 30 09 4E 23 46 CD 61 03 E5 01 08 00 2A 9A *.0.N#F.a.....*.
018410: 30 09 5E 23 56 2A 89 30 44 4D CD F0 03 2A 9A 30 0.^#V*.0DM...*.0
018420: 23 23 4E 23 46 CD 61 03 22 7A 30 21 82 30 36 00 ##N#F.a."z0!.06.
018430: 23 36 00 01 04 00 2A 9A 30 09 3A 83 30 CD 48 30 #6....*.0.:.0.H0
018440: 9F 01 08 00 2A 9A 30 09 F5 3A 82 30 CD 48 30 9F ....*.0..:.0.H0.
018450: C1 48 A1 1F D2 68 2D 2A 82 30 26 00 EB 2A 89 30 .H...h-*.0&..*.0
018460: 19 4E CD 35 22 C3 33 2D 01 08 00 2A 9A 30 09 3A .N.5".3-...*.0.:
018470: 82 30 CD 48 30 D2 D4 2D 2A 82 30 26 00 EB 2A 89 .0.H0..-*.0&..*.
018480: 30 19 7E D6 58 D6 01 9F F5 7E D6 41 D6 01 9F C1 0.~.X....~.A....
018490: 48 B1 F5 7E D6 39 D6 01 9F C1 48 B1 1F D2 B1 2D H..~.9....H....-
0184A0: CD 60 04 2A 82 30 26 00 EB 2A 89 30 19 77 C3 CD .`.*.0&..*.0.w..
0184B0: 2D 2A 82 30 26 00 EB 2A 89 30 19 7E FE 42 C2 CD -*.0&..*.0.~.B..
0184C0: 2D 2A 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 -*.0&..*.0.6 !.0
0184D0: 34 C3 68 2D 0E 0A CD 19 05 C3 B1 2F CD D4 13 C3 4.h-......./....
0184E0: B1 2F 3E 06 11 96 30 CD 3D 30 EB 2B 73 23 72 11 ./>...0.=0.+s#r.
0184F0: 06 00 2A 9A 30 19 E5 2A 96 30 C1 71 23 70 2A 96 ..*.0..*.0.q#p*.
018500: 30 23 23 E5 2A 91 30 EB E1 73 23 72 01 04 00 2A 0##.*.0..s#r...*
018510: 96 30 09 E5 2A 8F 30 EB E1 73 23 72 2A 9A 30 23 .0..*.0..s#r*.0#
018520: 23 5E 23 56 EB 22 91 30 2A 9A 30 09 5E 23 56 EB #^#V.".0*.0.^#V.
018530: 22 8F 30 2A 9A 30 5E 23 56 EB 22 9A 30 C3 B1 2F ".0*.0^#V.".0../
018540: 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A 9A 30 23 *.0##N#F.a..*.0#
018550: 5E C1 CD 86 04 EB 21 A5 31 73 2A 9A 30 7E 21 A5 ^.....!.1s*.0~!.
018560: 31 96 9F F5 7E D6 01 9F C1 48 B1 1F D2 83 2E 01 1...~....H......
018570: 44 47 CD 4E 02 2A 9A 30 7E 87 C6 04 4F CD 19 05 DG.N.*.0~...O...
018580: C3 9B 2E 2A A5 31 26 00 01 02 00 29 09 EB 2A 9A ...*.1&....)..*.
018590: 30 19 4E 23 46 CD 61 03 22 9A 30 C3 B1 2F 2A 80 0.N#F.a.".0../*.
0185A0: 30 22 89 30 2A 9A 30 5E 23 56 EB 29 EB 2A 80 30 0".0*.0^#V.).*.0
0185B0: 19 23 23 22 80 30 3E 07 11 96 30 CD 3D 30 EB 21 .##".0>...0.=0.!
0185C0: 80 30 CD 4B 30 D2 CE 2E 01 4F 43 CD B4 02 2A 89 .0.K0....OC...*.
0185D0: 30 E5 2A 7E 30 EB E1 73 23 72 21 82 30 36 01 2A 0.*~0..s#r!.06.*
0185E0: 9A 30 EB 3A 82 30 CD 3D 30 DA 14 2F 2A 82 30 26 .0.:.0.=0../*.0&
0185F0: 00 29 EB 2A 9A 30 19 4E 23 46 CD 61 03 E5 2A 82 .).*.0.N#F.a..*.
018600: 05 21 1E 31 36 00 C3 B1 2F 2A 9A 30 4E 23 46 CD .!.16.../*.0N#F.
018610: 61 03 22 9A 30 C3 B1 2F 0E 01 CD A1 1A CD 94 1B a.".0../........
018620: C3 B1 2F 0E 02 CD A1 1A C3 B1 2F 0E 04 CD A1 1A ../......./.....
018630: CD 94 1B C3 B1 2F 3A 23 31 1F DA 44 25 3A D4 30 ...../:#1..D%:.0
018640: 2F 32 D4 30 0E 00 CD 3C 05 C3 B1 2F CD F8 0C 2F /2.0...<.../.../
018650: 21 23 31 A6 1F D2 5F 25 3A D4 30 2F 32 D4 30 0E !#1..._%:.0/2.0.
018660: 00 CD 3C 05 C3 B1 2F CD F8 0C 1F D2 75 25 3A D4 ..<.../.....u%:.
018670: 30 2F 32 D4 30 0E 00 CD 3C 05 C3 B1 2F 2A 71 31 0/2.0...<.../*q1
018680: 4D CD 6E 05 C3 B1 2F 01 24 00 2A 9E 30 09 4E CD M.n.../.$.*.0.N.
018690: 6E 05 C3 B1 2F CD 3A 1A 2A 9A 30 23 23 7E FE 64 n.../.:.*.0##~.d
0186A0: D2 C4 25 21 9F 31 36 01 2A 9A 30 23 23 7E 21 9F ..%!.16.*.0##~!.
0186B0: 31 BE DA C1 25 0E 0A CD F2 1B 21 9F 31 34 C2 A8 1...%.....!.14..
0186C0: 25 C3 C9 25 0E 0C CD F2 1B 01 03 00 2A 9A 30 09 %..%........*.0.
0186D0: 7E FE 30 C2 DB 25 21 6F 31 36 01 0E 03 CD 19 05 ~.0..%!o16......
0186E0: C3 B1 2F CD 66 19 C3 B1 2F 01 03 00 2A 9A 30 09 ../.f.../...*.0.
0186F0: 7E 32 25 31 2A 9A 30 09 36 00 CD AC 19 01 2D 01 ~2%1*.0.6.....-.
018700: CD 2B 02 01 50 01 CD 2B 02 21 6A 31 36 00 3A 6A .+..P..+.!j16.:j
018710: 31 D6 0D C6 FF 9F F5 3A 6A 31 D6 53 C6 FF 9F C1 1......:j1.S....
018720: 48 A1 1F D2 3A 26 01 70 01 CD 2B 02 11 00 00 0E H...:&.p..+.....
018730: 01 CD 05 00 32 6A 31 C3 0E 26 3A 6A 31 FE 0D C2 ....2j1..&:j1...
018740: 50 26 2A 9A 30 2B 22 9A 30 3A 25 31 77 C3 53 26 P&*.0+".0:%1w.S&
018750: CD C3 22 C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 E5 .."../*.0N#F.a..
018760: 2A 9A 30 23 23 5E C1 CD 86 04 23 01 04 00 E5 2A *.0##^....#....*
018770: 9A 30 09 C1 71 23 70 0E 03 CD 19 05 C3 B1 2F CD .0..q#p......./.
018780: AC 19 C3 B1 2F 2A 9A 30 3E 00 CD 48 30 B5 CA 9C ..../*.0>..H0...
018790: 26 2A 9A 30 4E 23 46 0B 2B 71 23 70 2A 9A 30 3E &*.0N#F.+q#p*.0>
0187A0: 00 CD 48 30 B5 C2 B9 26 2A 9A 30 23 23 4E 23 46 ..H0...&*.0##N#F
0187B0: CD 61 03 22 9A 30 C3 BE 26 0E 04 CD 19 05 C3 B1 .a.".0..&.......
0187C0: 2F CD AF 13 0E 04 CD 19 05 C3 B1 2F CD AF 13 2A /........../...*
0187D0: 9A 30 4E 23 46 CD 61 03 44 4D CD 37 13 C3 B1 2F .0N#F.a.DM.7.../
0187E0: CD AF 13 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 ...*.0N#F.a..*.0
0187F0: 23 23 5E 16 00 E1 19 2B 44 4D CD 37 13 C3 B1 2F ##^....+DM.7.../
018800: 30 26 00 29 EB 2A 89 30 19 C1 71 23 70 21 82 30 0&.).*.0..q#p!.0
018810: 34 C2 DF 2E 2A 89 30 22 7E 30 2A 9A 30 5E 23 56 4...*.0"~0*.0^#V
018820: EB 29 23 23 4D CD 19 05 C3 B1 2F 09 23 0C 23 12 .)##M...../.#.#.
018830: 23 20 23 C7 23 CD 23 D7 23 DD 23 E3 23 2D 24 7C # #.#.#.#.#.#-$|
018840: 24 AE 24 F5 24 09 25 18 25 23 25 2B 25 36 25 4C $.$.$.%.%#%+%6%L
018850: 25 67 25 7D 25 87 25 95 25 E3 25 E9 25 56 26 7F %g%}%.%.%.%.%V&.
018860: 26 85 26 C1 26 CC 26 E0 26 00 27 37 27 7B 27 E0 &.&.&.&.&.'7'{'.
018870: 27 E6 27 EC 27 46 28 99 28 D0 28 13 29 9C 29 CD '.'.'F(.(.(.).).
018880: 29 D3 29 D9 29 DF 29 0C 2A 39 2A 60 2A 94 2A 9F ).).).).*9*`*.*.
018890: 2A AA 2A FB 2A 03 2B 0B 2B 13 2B 78 2B C4 2B E7 *.*.*.+.+.+x+.+.
0188A0: 2B 1E 2C 84 2C B7 2C F1 2C DC 2D E2 2D 40 2E 9E +.,.,.,.,.-.-@..
0188B0: 2E C3 F9 22 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C ...".._.....o...
0188C0: 67 C9 EB 5F 16 00 EB 1A A5 6F 13 1A A4 67 C9 44 g.._.....o...g.D
0188D0: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
0188E0: 98 67 13 D2 E8 2F 09 1B F1 3D C2 D6 2F C9 44 4D .g.../...=../.DM
0188F0: 21 00 00 3E 10 29 EB 29 EB D2 FD 2F 09 3D C2 F5 !..>.).).../.=..
018900: 2F C9 5E 23 56 EB 29 0D C2 06 30 C9 5E 23 56 EB /.^#V.)...0.^#V.
018910: 7C B7 1F 67 7D 1F 6F 0D C2 10 30 C9 5F 16 00 7B |..g}.o...0._..{
018920: 95 6F 7A 9C 67 C9 4F 06 00 7B 91 6F 7A 98 67 C9 .oz.g.O..{.oz.g.
018930: 69 60 4E 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 i`N#F..o...g.o&.
018940: 1A 95 6F 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 ..o...g._..{._z#
018950: 9E 57 EB C9 00 00 00 00 00 00 00 00 00 00 00 00 .W..............
018960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018980: 00 00 00 00 20 20 20 20 30 00 00 00 00 00 00 00 .... 0.......
018990: 00 00 00 00 FC 00 00 00 00 35 00 00 00 00 00 00 .........5......
0189A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0189B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0189C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0189D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0189E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0189F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018A00: CD AE 0E 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 ...*.0N#F.a..*.0
018A10: 23 23 5E 16 00 E1 19 2B 22 7A 30 2A 9A 30 23 23 ##^....+"z0*.0##
018A20: 7E 3D 4F CD F5 12 2A 9A 30 4E 23 46 CD 61 03 44 ~=O...*.0N#F.a.D
018A30: 4D CD 70 13 C3 B1 2F CD AE 0E 2A 9A 30 4E 23 46 M.p.../...*.0N#F
018A40: CD 61 03 E5 2A 9A 30 23 23 5E 16 00 E1 19 2B 2B .a..*.0##^....++
018A50: 22 7A 30 2A 9A 30 23 23 7E 3D 4F CD F5 12 2A 9A "z0*.0##~=O...*.
018A60: 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 23 5E 16 00 0N#F.a..*.0##^..
018A70: E1 19 2B 44 4D CD 70 13 C3 B1 2F CD AE 0E 3A 23 ..+DM.p.../...:#
018A80: 31 FE 00 C2 8E 27 3A 11 31 F6 01 32 11 31 01 04 1....':.1..2.1..
018A90: 00 2A 9A 30 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F .*.0.~......:.1/
018AA0: C1 48 B1 1F D2 D8 27 2A 9A 30 23 23 5E 16 00 21 .H....'*.0##^..!
018AB0: 02 00 CD CF 2F 13 21 82 30 73 3A 82 30 11 12 31 ..../.!.0s:.0..1
018AC0: CD 26 30 E5 2A 9A 30 4E 23 46 CD 61 03 44 4D 2A .&0.*.0N#F.a.DM*
018AD0: 82 30 26 00 EB CD F0 03 0E 04 CD 19 05 C3 B1 2F .0&............/
018AE0: CD 13 12 C3 B1 2F CD FC 11 C3 B1 2F 2A 9A 30 4E ...../...../*.0N
018AF0: 23 46 CD 61 03 22 89 30 2A 89 30 4E CD 8A 09 1F #F.a.".0*.0N....
018B00: D2 1C 28 0E 01 CD 87 11 2A 9A 30 E5 2A 9A 30 23 ..(.....*.0.*.0#
018B10: 23 5E E1 4E 23 46 CD 40 11 C3 43 28 2A 89 30 7E #^.N#F.@..C(*.0~
018B20: 32 25 31 0E 00 CD 87 11 2A 9A 30 4E 23 46 03 2A 2%1.....*.0N#F.*
018B30: 9A 30 23 23 7E 3D 5F CD 40 11 3A 25 31 D6 80 4F .0##~=_.@.:%1..O
018B40: CD 01 11 C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 22 ...../*.0N#F.a."
018B50: 89 30 2A 9A 30 23 23 7E 3D 32 A0 31 4F 06 00 2A .0*.0##~=2.1O..*
018B60: 89 30 09 7E 32 82 30 4F CD 8A 09 1F D2 7B 28 0E .0.~2.0O.....{(.
018B70: 01 CD 87 11 21 A0 31 34 C3 89 28 0E 00 CD 87 11 ....!.14..(.....
018B80: 3A 82 30 D6 80 4F CD 01 11 2A 9A 30 4E 23 46 2A :.0..O...*.0N#F*
018B90: A0 31 EB CD 40 11 C3 B1 2F 2A 9A 30 4E 23 46 CD .1..@.../*.0N#F.
018BA0: 61 03 22 89 30 2A 89 30 7E FE 2B C2 B6 28 0E 01 a.".0*.0~.+..(..
018BB0: CD 87 11 C3 BB 28 0E 00 CD 87 11 2A 9A 30 4E 23 .....(.....*.0N#
018BC0: 46 03 2A 9A 30 23 23 7E 3D 5F CD 40 11 C3 B1 2F F.*.0##~=_.@.../
018BD0: 2A 9A 30 4E 23 46 CD 61 03 22 89 30 2A 9A 30 23 *.0N#F.a.".0*.0#
018BE0: 23 7E 3D 4F 06 00 2A 89 30 09 7E FE 2B C2 F8 28 #~=O..*.0.~.+..(
018BF0: 0E 01 CD 87 11 C3 FD 28 0E 00 CD 87 11 2A 9A 30 .......(.....*.0
018C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C20: 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
018C60: 00 00 00 00 00 00 00 00 00 00 00 80 00 82 00 00 ................
018C70: 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
018C80: 30 11 C1 30 CD 30 30 C9 2A 91 30 EB 2A C1 30 19 0..0.00.*.0.*.0.
018C90: C9 3E 08 11 C1 30 CD 3D 30 D2 A9 03 2A C1 30 01 .>...0.=0...*.0.
018CA0: B1 30 29 09 5E 23 56 EB C9 3E 0C 21 C1 30 CD 48 .0).^#V..>.!.0.H
018CB0: 30 D2 C7 03 3E 0C 11 C1 30 CD 3D 30 29 EB 2A 7E 0...>...0.=0).*~
018CC0: 30 19 5E 23 56 EB C9 3E 0A 11 C1 30 CD 3D 30 EB 0.^#V..>...0.=0.
018CD0: 21 E6 03 19 19 5E 23 56 EB E9 21 18 01 C9 21 19 !....^#V..!...!.
018CE0: 01 C9 21 1A 01 C9 DA 03 DE 03 E2 03 21 00 00 C9 ..!.........!...
018CF0: 21 C9 30 72 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 !.0r+s+p+q+..p+q
018D00: D5 2A C8 30 2B 22 C8 30 11 FF FF CD 1F 30 B5 CA .*.0+".0.....0..
018D10: 2D 04 2A C4 30 E5 2A C6 30 C1 0A 77 2A C4 30 23 -.*.0.*.0..w*.0#
018D20: 22 C4 30 2A C6 30 23 22 C6 30 C3 01 04 C9 21 CE ".0*.0#".0....!.
018D30: 30 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A CC 30 0s+p+q+..p+q.*.0
018D40: 2B 22 CC 30 11 FF FF CD 1F 30 B5 CA 5F 04 2A CA +".0.....0.._.*.
018D50: 30 3A CE 30 77 2A CA 30 23 22 CA 30 C3 3D 04 C9 0:.0w*.0#".0.=..
018D60: 2A 9A 30 23 23 3E 0B CD 48 30 B5 C2 71 04 3E 27 *.0##>..H0..q.>'
018D70: C9 2A 9A 30 23 23 3E 0C CD 48 30 B5 C2 82 04 3E .*.0##>..H0....>
018D80: 30 C9 3E 20 C9 C9 21 D1 30 73 2B 70 2B 71 21 00 0.> ..!.0s+p+q!.
018D90: 00 22 78 30 2A CF 30 22 7A 30 21 D3 30 36 00 3A ."x0*.0"z0!.06.:
018DA0: D1 30 3D 21 D3 30 BE DA 15 05 2A D3 30 26 00 EB .0=!.0....*.0&..
018DB0: 2A 7A 30 19 7E 32 D2 30 D6 2D D6 01 9F F5 3A D2 *z0.~2.0.-....:.
018DC0: 30 D6 80 F5 D6 30 9F 2F C1 48 F5 3E 39 91 9F 2F 0....0./.H.>9../
018DD0: C1 48 A1 C1 48 B1 1F D2 E1 04 21 00 00 22 78 30 .H..H.....!.."x0
018DE0: C9 3A D2 30 FE 2E C2 ED 04 2A 78 30 C9 3A D2 30 .:.0.....*x0.:.0
018DF0: FE 2B CA 0E 05 2A 78 30 29 29 29 E5 2A 78 30 29 .+...*x0))).*x0)
018E00: E5 2A 9A 30 23 23 7E 3D E1 4E 23 46 5F CD 40 11 .*.0##~=.N#F_.@.
018E10: C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 22 89 30 2A ../*.0N#F.a.".0*
018E20: 9A 30 23 23 5E 16 00 21 02 00 CD CF 2F 21 A1 31 .0##^..!..../!.1
018E30: 73 2A 89 30 19 7E 1F D2 42 29 0E 00 CD 87 11 C3 s*.0.~..B)......
018E40: 47 29 0E 01 CD 87 11 11 09 00 2A 7A 30 19 EB 3A G)........*z0..:
018E50: A1 31 CD 26 30 22 7A 30 21 82 30 36 00 3A A1 31 .1.&0"z0!.06.:.1
018E60: 21 82 30 BE DA 86 29 2A 82 30 26 00 EB 2A 89 30 !.0...)*.0&..*.0
018E70: 19 E5 2A 82 30 26 00 EB 2A 7A 30 19 C1 0A 77 21 ..*.0&..*z0...w!
018E80: 82 30 34 C2 5D 29 2A A1 31 26 00 EB 2A 7A 30 19 .04.])*.1&..*z0.
018E90: 3E F0 A6 77 0E 05 CD 19 05 C3 B1 2F 2A 9A 30 23 >..w......./*.0#
018EA0: 23 4E 23 46 CD 61 03 23 22 7A 30 01 04 00 2A 9A #N#F.a.#"z0...*.
018EB0: 30 09 E5 2A 7A 30 E3 4E 23 46 E1 71 23 70 2A 9A 0..*z0.N#F.q#p*.
018EC0: 30 4E 23 46 CD 61 03 22 9A 30 C3 B1 2F CD DC 07 0N#F.a.".0../...
018ED0: C3 B1 2F CD 49 08 C3 B1 2F CD 1D 09 C3 B1 2F CD ../.I.../...../.
018EE0: 3A 1A 3A 70 31 E6 FE 1F 1F 1F DA F3 29 01 36 57 :.:p1.......).6W
018EF0: CD B4 02 01 24 00 2A 9E 30 09 7E 1F DA 04 2A 0E ....$.*.0.~...*.
018F00: 01 CD 81 21 0E 06 CD 19 05 C3 B1 2F CD 3A 1A 3A ...!......./.:.:
018F10: 70 31 E6 FE 1F 1F 1F DA 20 2A 01 36 57 CD B4 02 p1...... *.6W...
018F20: 01 24 00 2A 9E 30 09 7E 1F DA 31 2A 0E 00 CD 81 .$.*.0.~..1*....
018F30: 21 0E 06 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 1F !......./.:.:p1.
018F40: DA 49 2A 01 35 57 CD B4 02 01 24 00 2A 9E 30 09 .I*.5W....$.*.0.
018F50: 7E 1F DA 58 2A CD 4D 1D 0E 06 CD 19 05 C3 B1 2F ~..X*.M......../
018F60: 01 06 00 2A 9A 30 09 7E FE 16 C2 72 2A 21 6F 31 ...*.0.~...r*!o1
018F70: 36 01 CD 3A 1A 3A 70 31 B7 1F 1F DA 84 2A 01 33 6..:.:p1.....*.3
018F80: 57 CD B4 02 CD B1 1D 0E 06 CD 19 05 21 6F 31 36 W...........!o16
018F90: 00 C3 B1 2F CD 57 1C 0E 06 CD 19 05 C3 B1 2F CD .../.W......../.
018FA0: D6 1C 0E 06 CD 19 05 C3 B1 2F 2A 9A 30 4E 23 46 ........./*.0N#F
018FB0: CD 61 03 E5 2A 9A 30 23 23 E5 01 04 00 2A 9A 30 .a..*.0##....*.0
018FC0: 09 4E 23 46 CD 61 03 01 06 00 E5 2A 9A 30 09 5E .N#F.a.....*.0.^
018FD0: C1 CD 86 04 2B E3 4E 23 46 D1 CD F0 2F C1 09 01 ....+.N#F.../...
018FE0: 07 00 E5 2A 9A 30 09 4E 06 00 21 B1 30 09 09 C1 ...*.0.N..!.0...
018FF0: 71 23 70 0E 08 CD 19 05 C3 B1 2F 0E 01 CD 83 07 q#p......./.....
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 01 00 02 09 52 E5 15 00 C1 02 00 00 00 02 ......R.........
019020: 15 00 C6 02 00 00 00 02 15 00 C2 02 00 00 00 02 ................
019030: 15 00 C7 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019040: 15 00 C8 02 00 00 00 02 15 00 C4 02 00 00 00 02 ................
019050: 15 00 C9 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0191F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0192F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019300: 6D 70 69 6C 65 72 0D 0A 20 43 4F 42 4F 4C 20 20 mpiler.. COBOL
019310: 20 2E 4F 56 52 20 20 31 34 6B 20 7D 20 70 72 6F .OVR 14k } pro
019320: 67 72 61 6D 73 2E 0D 0A 0D 0A 20 45 58 45 43 20 grams..... EXEC
019330: 20 20 20 2E 43 4F 4D 20 20 20 38 6B 20 7D 20 43 .COM 8k } C
019340: 6F 62 6F 6C 20 65 78 65 63 75 74 69 6F 6E 0D 0A obol execution..
019350: 20 45 58 45 43 20 20 20 20 2E 4F 56 52 20 20 31 EXEC .OVR 1
019360: 33 6B 20 7D 20 70 72 6F 67 72 61 6D 73 2E 0D 0A 3k } programs...
019370: 0D 0A 54 68 65 20 70 75 62 6C 69 63 20 64 6F 6D ..The public dom
019380: 61 69 6E 20 76 65 72 73 69 6F 6E 20 6F 66 20 43 ain version of C
019390: 4F 42 4F 4C 20 73 75 70 70 6C 69 65 64 20 62 79 OBOL supplied by
0193A0: 20 57 41 43 43 49 2C 20 69 73 20 61 20 67 6F 6F WACCI, is a goo
0193B0: 64 20 76 65 72 73 69 6F 6E 20 6F 66 0D 0A 74 68 d version of..th
0193C0: 65 20 6C 61 6E 67 75 61 67 65 2E 20 54 68 69 73 e language. This
0193D0: 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 74 68 version of th
0193E0: 65 20 20 6C 61 6E 67 75 61 67 65 20 20 68 61 73 e language has
0193F0: 20 20 74 68 72 65 65 20 20 64 72 61 77 62 61 63 three drawbac
019400: 6B 73 2C 20 70 6F 6F 72 0D 0A 73 63 72 65 65 6E ks, poor..screen
019410: 20 68 61 6E 64 6C 69 6E 67 2C 20 6E 6F 20 70 72 handling, no pr
019420: 69 6E 74 20 20 63 6F 6D 6D 61 6E 64 73 20 20 61 int commands a
019430: 6E 64 20 20 74 68 65 20 20 69 6E 61 62 69 6C 69 nd the inabili
019440: 74 79 20 20 74 6F 20 70 72 6F 64 75 63 65 20 73 ty to produce s
019450: 74 61 6E 64 0D 0A 61 6C 6F 6E 65 20 66 69 6C 65 tand..alone file
019460: 73 2E 20 54 68 65 73 65 20 63 61 6E 20 62 65 20 s. These can be
019470: 6F 76 65 72 63 6F 6D 65 20 77 69 74 68 20 61 20 overcome with a
019480: 62 69 74 20 6F 66 20 27 69 6E 76 65 6E 74 69 76 bit of 'inventiv
019490: 65 27 20 70 72 6F 67 72 61 6D 6D 69 6E 67 2E 0D e' programming..
0194A0: 0A 0D 0A 53 68 6F 75 6C 64 20 79 6F 75 20 64 65 ...Should you de
0194B0: 63 69 64 65 20 74 68 61 74 20 43 6F 62 6F 6C 20 cide that Cobol
0194C0: 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 73 20 20 programming is
0194D0: 66 6F 72 20 79 6F 75 20 74 68 65 6E 20 79 6F 75 for you then you
0194E0: 20 63 61 6E 20 6F 62 74 61 69 6E 20 61 0D 0A 62 can obtain a..b
0194F0: 65 74 74 65 72 20 76 65 72 73 69 6F 6E 20 6F 66 etter version of
019500: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019510: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
019520: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
019530: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
019540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019550: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
019560: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
019570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019580: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
019590: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0195A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0195B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 PA
0195C0: 52 54 20 4F 4E 45 20 3A 20 47 45 54 54 49 4E 47 RT ONE : GETTING
0195D0: 20 53 54 41 52 54 45 44 0D 0A 0D 0A 0D 0A 0D 0A STARTED........
0195E0: 49 4E 54 52 4F 44 55 43 54 49 4F 4E 2E 0D 0A 3D INTRODUCTION...=
0195F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
019600: 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 6C 6F Last month we lo
019610: 6F 6B 65 64 20 61 74 20 20 74 68 65 20 20 43 50 oked at the CP
019620: 2F 4D 20 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 /M public doma
019630: 69 6E 20 77 6F 72 64 20 70 72 6F 63 65 73 73 69 in word processi
019640: 6E 67 20 70 72 6F 67 72 61 6D 0D 0A 56 44 45 2E ng program..VDE.
019650: 20 54 68 69 73 20 6D 6F 6E 74 68 2C 20 77 65 20 This month, we
019660: 73 74 61 72 74 20 61 20 73 65 72 69 65 73 20 20 start a series
019670: 6F 6E 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 on programming i
019680: 6E 20 43 6F 62 6F 6C 20 75 73 69 6E 67 20 74 68 n Cobol using th
019690: 65 20 43 50 2F 4D 0D 0A 70 75 62 6C 69 63 20 64 e CP/M..public d
0196A0: 6F 6D 61 69 6E 20 76 65 72 73 69 6F 6E 20 61 76 omain version av
0196B0: 61 69 6C 61 62 6C 65 20 66 72 6F 6D 20 57 41 43 ailable from WAC
0196C0: 43 49 2E 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 72 6F CI.....Cobol pro
0196D0: 67 72 61 6D 73 20 61 72 65 20 77 72 69 74 74 65 grams are writte
0196E0: 6E 20 61 73 20 74 65 78 74 20 20 66 69 6C 65 73 n as text files
0196F0: 20 20 61 6E 64 20 74 68 65 6E 20 63 6F 6E 76 65 and then conve
019700: 20 74 68 65 20 6C 61 6E 67 75 61 67 65 20 66 6F the language fo
019710: 72 20 61 70 70 72 6F 78 2E 20 A3 34 30 2E 0D 0A r approx. £40...
019720: 0D 0A 0D 0A 43 52 45 41 54 49 4E 47 20 41 20 57 ....CREATING A W
019730: 4F 52 4B 20 44 49 53 43 2E 0D 0A 3D 3D 3D 3D 3D ORK DISC...=====
019740: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
019750: 0D 0A 0D 0A 44 6F 6E 27 74 20 75 73 65 20 79 6F ....Don't use yo
019760: 75 72 20 62 72 61 6E 64 20 6E 65 77 20 6D 61 73 ur brand new mas
019770: 74 65 72 20 64 69 73 63 2C 20 20 69 74 20 79 6F ter disc, it yo
019780: 75 20 64 61 6D 61 67 65 20 74 68 65 20 70 72 6F u damage the pro
019790: 67 72 61 6D 73 20 79 6F 75 20 77 69 6C 6C 0D 0A grams you will..
0197A0: 62 65 20 6C 65 73 73 20 74 68 61 6E 20 70 6C 65 be less than ple
0197B0: 61 73 65 64 2C 20 73 6F 20 62 65 66 6F 72 65 20 ased, so before
0197C0: 64 6F 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 65 doing anything e
0197D0: 6C 73 65 20 63 6F 70 79 20 79 6F 75 72 20 6D 61 lse copy your ma
0197E0: 73 74 65 72 20 64 69 73 63 2E 0D 0A 0D 0A 54 68 ster disc.....Th
0197F0: 65 6E 20 63 72 65 61 74 65 20 79 6F 75 72 73 65 en create yourse
019800: 6C 66 20 61 20 77 6F 72 6B 20 64 69 73 63 20 61 lf a work disc a
019810: 73 20 66 6F 6C 6C 6F 77 73 3A 0D 0A 0D 0A 20 31 s follows:.... 1
019820: 2E 20 20 46 6F 72 6D 61 74 20 79 6F 75 72 73 65 . Format yourse
019830: 6C 66 20 61 20 73 79 73 74 65 6D 20 64 69 73 63 lf a system disc
019840: 0D 0A 20 32 61 2E 20 43 6F 70 79 20 43 31 30 43 .. 2a. Copy C10C
019850: 50 4D 33 2E 45 4D 53 20 6F 6E 74 6F 20 74 68 65 PM3.EMS onto the
019860: 20 6E 65 77 20 64 69 73 63 20 28 43 50 2F 4D 20 new disc (CP/M
019870: 70 6C 75 73 20 4F 4E 4C 59 29 0D 0A 20 32 62 20 plus ONLY).. 2b
019880: 20 53 65 74 75 70 20 74 68 65 20 64 69 73 63 20 Setup the disc
019890: 75 73 69 6E 67 20 53 45 54 55 50 2E 43 4F 4D 20 using SETUP.COM
0198A0: 20 20 20 20 28 43 50 2F 4D 20 32 2E 32 20 4F 4E (CP/M 2.2 ON
0198B0: 4C 59 29 0D 0A 20 34 2E 20 20 43 6F 70 79 20 79 LY).. 4. Copy y
0198C0: 6F 75 72 20 66 61 76 6F 75 72 69 74 65 20 77 6F our favourite wo
0198D0: 72 64 20 70 72 6F 63 65 73 73 6F 72 20 6F 6E 74 rd processor ont
0198E0: 6F 20 74 68 65 20 64 69 73 63 2E 0D 0A 20 35 2E o the disc... 5.
0198F0: 20 20 43 6F 70 79 20 43 4F 42 4F 4C 2E 43 4F 4D Copy COBOL.COM
019900: 72 74 65 64 20 69 6E 74 6F 20 6D 61 63 68 69 6E rted into machin
019910: 65 0D 0A 63 6F 64 65 20 75 73 69 6E 67 20 61 20 e..code using a
019920: 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 72 2C 20 Cobol compiler,
019930: 73 6F 20 20 74 68 65 20 20 62 61 73 69 63 20 77 so the basic w
019940: 6F 72 64 20 70 72 6F 63 65 73 73 69 6E 67 20 73 ord processing s
019950: 6B 69 6C 6C 73 20 63 6F 76 65 72 65 64 0D 0A 6C kills covered..l
019960: 61 73 74 20 6D 6F 6E 74 68 20 77 69 6C 6C 20 62 ast month will b
019970: 65 20 6E 65 65 64 65 64 2E 0D 0A 0D 0A 41 4C 4C e needed.....ALL
019980: 20 74 68 65 20 65 78 61 6D 70 6C 65 73 20 69 6E the examples in
019990: 20 20 74 68 69 73 20 20 73 65 72 69 65 73 20 20 this series
0199A0: 77 65 72 65 20 20 77 72 69 74 74 65 6E 20 20 75 were written u
0199B0: 73 69 6E 67 20 56 44 45 32 36 36 20 28 74 68 65 sing VDE266 (the
0199C0: 20 50 75 62 6C 69 63 0D 0A 44 6F 6D 61 69 6E 20 Public..Domain
0199D0: 77 6F 72 64 20 70 72 6F 63 65 73 73 6F 72 29 20 word processor)
0199E0: 61 6E 64 20 74 68 65 20 20 50 75 62 6C 69 63 20 and the Public
0199F0: 20 44 6F 6D 61 69 6E 20 20 76 65 72 73 69 6F 6E Domain version
019A00: 20 6F 66 20 43 4F 42 4F 4C 2E 20 41 6E 79 20 77 of COBOL. Any w
019A10: 6F 72 64 0D 0A 70 72 6F 63 65 73 73 69 6E 67 20 ord..processing
019A20: 72 65 66 65 72 65 6E 63 65 73 20 77 69 6C 6C 20 references will
019A30: 72 65 66 65 72 20 74 6F 20 56 44 45 32 36 36 2E refer to VDE266.
019A40: 0D 0A 0D 0A 0D 0A 42 41 43 4B 47 52 4F 55 4E 44 ......BACKGROUND
019A50: 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A ...===========..
019A60: 0D 0A 43 4F 42 4F 4C 20 69 73 20 61 6E 20 61 63 ..COBOL is an ac
019A70: 72 6F 6E 79 6D 20 6F 66 20 43 4F 6D 62 69 6E 65 ronym of COmbine
019A80: 64 20 42 75 73 69 6E 65 73 73 20 20 4F 72 69 65 d Business Orie
019A90: 6E 74 65 64 20 4C 61 6E 67 75 61 67 65 20 61 6E nted Language an
019AA0: 64 20 20 69 73 20 6F 6E 65 20 6F 66 0D 0A 74 68 d is one of..th
019AB0: 65 20 6F 6C 64 65 73 74 20 63 6F 6D 70 75 74 65 e oldest compute
019AC0: 72 20 6C 61 6E 67 75 61 67 65 73 2E 20 49 74 73 r languages. Its
019AD0: 20 20 64 65 6D 69 73 65 20 20 68 61 73 20 20 62 demise has b
019AE0: 65 65 6E 20 70 72 65 64 69 63 74 65 64 20 65 76 een predicted ev
019AF0: 65 72 79 20 79 65 61 72 0D 0A 66 6F 72 20 61 73 ery year..for as
019B00: 2C 20 43 4F 42 4F 4C 2E 4F 56 52 2C 20 45 58 45 , COBOL.OVR, EXE
019B10: 43 2E 43 4F 4D 20 26 20 45 58 45 43 2E 4F 56 52 C.COM & EXEC.OVR
019B20: 20 6F 6E 74 6F 20 74 68 65 20 6E 65 77 20 64 69 onto the new di
019B30: 73 63 2E 0D 0A 0D 0A 59 6F 75 20 73 68 6F 75 6C sc.....You shoul
019B40: 64 20 70 72 69 6E 74 20 6F 75 74 20 61 20 63 6F d print out a co
019B50: 70 79 20 6F 66 20 20 74 68 65 20 64 6F 63 75 6D py of the docum
019B60: 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 73 20 61 entation files a
019B70: 74 20 74 68 69 73 20 73 74 61 67 65 2C 20 79 6F t this stage, yo
019B80: 75 0D 0A 77 69 6C 6C 20 6E 65 65 64 20 69 74 20 u..will need it
019B90: 74 6F 20 6C 6F 6F 6B 20 61 74 20 20 74 68 65 20 to look at the
019BA0: 20 65 72 72 6F 72 20 20 63 6F 64 65 73 20 20 61 error codes a
019BB0: 6E 64 20 74 68 65 20 63 6F 72 72 65 63 74 20 73 nd the correct s
019BC0: 79 6E 74 61 78 20 66 6F 72 20 74 68 65 0D 0A 63 yntax for the..c
019BD0: 6F 6D 6D 61 6E 64 73 20 75 73 65 64 2E 0D 0A 0D ommands used....
019BE0: 0A 59 6F 75 20 61 72 65 20 6E 6F 77 20 72 65 61 .You are now rea
019BF0: 64 79 20 74 6F 20 73 74 61 72 74 20 70 72 6F 67 dy to start prog
019C00: 72 61 6D 6D 69 6E 67 20 69 6E 20 43 6F 62 6F 6C ramming in Cobol
019C10: 2E 0D 0A 0D 0A 0D 0A 43 4F 42 4F 4C 20 50 52 4F .......COBOL PRO
019C20: 47 52 41 4D 20 4F 55 54 4C 49 4E 45 2E 0D 0A 3D GRAM OUTLINE...=
019C30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
019C40: 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 =====....Cobol p
019C50: 72 6F 67 72 61 6D 73 20 61 72 65 20 73 70 6C 69 rograms are spli
019C60: 74 20 69 6E 74 6F 20 34 20 64 69 76 69 73 69 6F t into 4 divisio
019C70: 6E 73 2C 20 74 68 65 73 65 20 61 72 65 3B 0D 0A ns, these are;..
019C80: 0D 0A 20 49 44 45 4E 54 49 46 49 43 41 54 49 4F .. IDENTIFICATIO
019C90: 4E 20 44 49 56 49 53 49 4F 4E 0D 0A 0D 0A 20 28 N DIVISION.... (
019CA0: 57 68 61 74 20 74 68 65 20 70 72 6F 67 72 61 6D What the program
019CB0: 20 64 6F 65 73 2C 20 74 68 65 20 61 75 74 68 6F does, the autho
019CC0: 72 27 73 20 6E 61 6D 65 2C 20 64 61 74 65 20 77 r's name, date w
019CD0: 72 69 74 74 65 6E 2C 20 65 74 63 29 0D 0A 0D 0A ritten, etc)....
019CE0: 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 ENVIRONMENT DIV
019CF0: 49 53 49 4F 4E 0D 0A 0D 0A 20 28 54 68 65 20 63 ISION.... (The c
019D00: 20 66 61 72 20 62 61 63 6B 20 61 73 20 49 20 63 far back as I c
019D10: 61 6E 20 72 65 6D 65 6D 62 65 72 20 62 75 74 20 an remember but
019D20: 69 74 20 69 73 20 73 74 69 6C 6C 20 69 6E 20 63 it is still in c
019D30: 6F 6D 6D 6F 6E 20 75 73 65 2E 0D 0A 0D 0A 43 4F ommon use.....CO
019D40: 42 4F 4C 20 68 61 73 20 72 65 74 61 69 6E 65 64 BOL has retained
019D50: 20 69 74 27 73 20 70 6F 70 75 6C 61 72 69 74 79 it's popularity
019D60: 20 6F 76 65 72 20 20 74 68 65 20 20 79 65 61 72 over the year
019D70: 73 20 20 62 65 63 61 75 73 65 20 69 74 20 69 73 s because it is
019D80: 20 65 61 73 79 20 74 6F 0D 0A 6C 65 61 72 6E 20 easy to..learn
019D90: 61 6E 64 20 75 73 65 2C 20 61 6E 64 20 69 74 20 and use, and it
019DA0: 63 61 6E 20 20 65 61 73 69 6C 79 20 20 62 65 20 can easily be
019DB0: 20 74 72 61 6E 73 66 65 72 72 65 64 20 74 6F 20 transferred to
019DC0: 61 20 64 69 66 66 65 72 65 6E 74 20 63 6F 6D 70 a different comp
019DD0: 75 74 65 72 0D 0A 73 79 73 74 65 6D 2E 0D 0A 0D uter..system....
019DE0: 0A 0D 0A 47 45 54 54 49 4E 47 20 53 54 41 52 54 ...GETTING START
019DF0: 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ED...===========
019E00: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 6F 20 73 74 61 72 =====....To star
019E10: 74 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 6E t programming in
019E20: 20 20 43 6F 62 6F 6C 20 20 79 6F 75 20 20 6E 65 Cobol you ne
019E30: 65 64 20 20 61 20 20 57 6F 72 64 20 20 70 72 6F ed a Word pro
019E40: 63 65 73 73 6F 72 20 20 61 6E 64 20 61 20 43 6F cessor and a Co
019E50: 62 6F 6C 0D 0A 63 6F 6D 70 69 6C 65 72 2E 20 59 bol..compiler. Y
019E60: 6F 75 20 63 61 6E 20 75 73 65 20 65 69 74 68 65 ou can use eithe
019E70: 72 20 6F 6E 65 20 20 6F 66 20 20 74 68 65 20 20 r one of the
019E80: 63 6F 6D 6D 65 72 63 69 61 6C 20 70 61 63 6B 61 commercial packa
019E90: 67 65 73 20 6F 72 20 61 20 50 75 62 6C 69 63 0D ges or a Public.
019EA0: 0A 44 6F 6D 61 69 6E 20 70 61 63 6B 61 67 65 73 .Domain packages
019EB0: 20 73 75 63 6A 68 20 61 73 20 56 44 45 32 36 36 sucjh as VDE266
019EC0: 2E 20 20 57 68 69 63 68 65 76 65 72 20 20 70 61 . Whichever pa
019ED0: 63 6B 61 67 65 20 20 79 6F 75 20 63 68 6F 73 65 ckage you chose
019EE0: 20 69 74 20 6D 75 73 74 20 62 65 0D 0A 63 61 70 it must be..cap
019EF0: 61 62 6C 65 20 6F 66 20 70 72 6F 64 75 63 69 6E able of producin
019F00: 6F 6D 70 75 74 65 72 20 74 68 65 20 70 72 6F 67 omputer the prog
019F10: 72 61 6D 20 77 61 73 20 77 72 69 74 74 65 6E 20 ram was written
019F20: 66 6F 72 2C 20 66 69 6C 65 73 20 74 68 65 20 70 for, files the p
019F30: 72 6F 67 72 61 6D 20 75 73 65 73 20 65 74 63 2E rogram uses etc.
019F40: 29 0D 0A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 )....DATA DIVISI
019F50: 4F 4E 0D 0A 0D 0A 20 28 46 69 6C 65 20 64 65 73 ON.... (File des
019F60: 63 72 69 70 74 69 6F 6E 73 2C 20 64 65 63 6C 61 criptions, decla
019F70: 72 69 6E 67 20 61 6E 64 20 64 69 6D 65 6E 73 69 ring and dimensi
019F80: 6F 6E 69 6E 67 20 76 61 72 69 61 62 6C 65 73 2C oning variables,
019F90: 20 65 74 63 2E 29 0D 0A 0D 0A 50 52 4F 43 45 44 etc.)....PROCED
019FA0: 55 52 45 20 44 49 56 49 53 49 4F 4E 0D 0A 0D 0A URE DIVISION....
019FB0: 20 28 54 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 (The Cobol prog
019FC0: 72 61 6D 29 0D 0A 0D 0A 0D 0A 4E 6F 74 65 73 3A ram)......Notes:
019FD0: 0D 0A 0D 0A 45 61 63 68 20 6F 66 20 74 68 65 20 ....Each of the
019FE0: 64 69 76 69 73 69 6F 6E 73 20 20 69 73 20 20 73 divisions is s
019FF0: 75 62 64 69 76 69 64 65 64 20 20 69 6E 74 6F 20 ubdivided into
01A000: 20 73 65 63 74 69 6F 6E 73 2E 20 20 43 6F 62 6F sections. Cobo
01A010: 6C 20 70 72 6F 67 72 61 6D 73 20 61 72 65 0D 0A l programs are..
01A020: 77 72 69 74 74 65 6E 20 61 73 20 74 65 78 74 20 written as text
01A030: 66 69 6C 65 73 20 61 6E 64 20 6D 75 73 74 20 62 files and must b
01A040: 65 20 73 61 76 65 64 20 74 6F 20 64 69 73 63 20 e saved to disc
01A050: 77 69 74 68 20 74 68 65 20 65 78 74 65 6E 73 69 with the extensi
01A060: 6F 6E 20 2E 43 42 4C 0D 0A 0D 0A 20 49 65 20 27 on .CBL.... Ie '
01A070: 66 69 6C 65 6E 61 6D 65 2E 43 42 4C 27 0D 0A 0D filename.CBL'...
01A080: 0A 53 70 65 6C 6C 69 6E 67 20 6D 75 73 74 20 62 .Spelling must b
01A090: 65 20 61 63 63 75 72 61 74 65 2E 0D 0A 0D 0A 43 e accurate.....C
01A0A0: 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 73 20 64 6F obol programs do
01A0B0: 20 6E 6F 74 20 75 73 65 20 20 6C 69 6E 65 20 20 not use line
01A0C0: 6E 75 6D 62 65 72 73 2C 20 20 74 68 65 20 69 6E numbers, the in
01A0D0: 73 74 72 75 63 74 69 6F 6E 73 20 61 72 65 20 77 structions are w
01A0E0: 72 69 74 74 65 6E 20 69 6E 0D 0A 70 72 6F 63 65 ritten in..proce
01A0F0: 64 75 72 65 73 20 28 70 61 72 61 67 72 61 70 68 dures (paragraph
01A100: 67 20 70 75 72 65 20 61 73 63 69 69 20 66 69 6C g pure ascii fil
01A110: 65 73 2E 0D 0A 0D 0A 43 4F 42 4F 4C 20 63 6F 6D es.....COBOL com
01A120: 65 73 20 63 6F 6D 70 6C 65 74 65 20 77 69 74 68 es complete with
01A130: 20 61 6E 20 65 78 74 65 6E 73 69 76 65 20 32 31 an extensive 21
01A140: 20 70 61 67 65 20 64 6F 63 75 6D 65 6E 74 20 66 page document f
01A150: 69 6C 65 2E 0D 0A 0D 0A 57 68 79 20 64 6F 20 79 ile.....Why do y
01A160: 6F 75 20 6E 65 65 64 20 61 20 77 6F 72 64 20 70 ou need a word p
01A170: 72 6F 63 65 73 73 6F 72 3F 20 20 77 65 6C 6C 20 rocessor? well
01A180: 20 74 68 65 20 61 6E 73 77 65 72 20 69 73 20 74 the answer is t
01A190: 68 61 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 hat Cobol progra
01A1A0: 6D 73 0D 0A 61 72 65 20 77 72 69 74 74 65 6E 20 ms..are written
01A1B0: 61 73 20 74 65 78 74 20 66 69 6C 65 73 2E 20 54 as text files. T
01A1C0: 68 65 20 74 65 78 74 20 66 69 6C 65 20 61 72 65 he text file are
01A1D0: 20 74 68 65 6E 20 63 6F 6D 70 69 6C 65 64 20 62 then compiled b
01A1E0: 79 20 43 6F 62 6F 6C 20 69 6E 74 6F 20 61 0D 0A y Cobol into a..
01A1F0: 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 2E 20 54 Cobol program. T
01A200: 68 65 20 6F 72 69 67 69 6E 61 6C 20 74 65 78 74 he original text
01A210: 20 66 69 6C 65 20 20 69 73 20 20 72 65 66 65 72 file is refer
01A220: 72 65 64 20 74 6F 20 61 73 20 74 68 65 20 73 6F red to as the so
01A230: 75 72 63 65 20 63 6F 64 65 2C 0D 0A 61 6E 64 20 urce code,..and
01A240: 74 68 65 20 63 6F 6D 70 69 6C 65 64 20 70 72 6F the compiled pro
01A250: 67 72 61 6D 20 69 73 20 72 65 66 65 72 72 65 64 gram is referred
01A260: 20 74 6F 20 61 73 20 74 68 65 20 6F 62 6A 65 63 to as the objec
01A270: 74 20 63 6F 64 65 2E 0D 0A 0D 0A 54 68 65 20 43 t code.....The C
01A280: 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 72 20 63 6F obol compiler co
01A290: 6E 73 69 73 74 73 20 6F 66 20 66 6F 75 72 20 73 nsists of four s
01A2A0: 65 70 61 72 61 74 65 20 70 72 6F 67 72 61 6D 73 eparate programs
01A2B0: 2C 20 61 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C , a document fil
01A2C0: 65 20 61 6E 64 0D 0A 66 69 76 65 20 65 78 61 6D e and..five exam
01A2D0: 70 6C 65 20 74 65 78 74 20 66 69 6C 65 73 2E 0D ple text files..
01A2E0: 0A 0D 0A 20 43 4F 42 4F 4C 20 20 20 2E 43 4F 4D ... COBOL .COM
01A2F0: 20 20 31 34 6B 20 7D 20 43 6F 62 6F 6C 20 63 6F 14k } Cobol co
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 01 00 02 09 52 E5 16 00 C1 02 00 00 00 02 ......R.........
01A320: 16 00 C6 02 00 00 00 02 16 00 C2 02 00 00 00 02 ................
01A330: 16 00 C7 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A340: 16 00 C8 02 00 00 00 02 16 00 C4 02 00 00 00 02 ................
01A350: 16 00 C9 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 73 29 2C 20 74 68 65 20 70 72 6F 63 65 64 75 72 s), the procedur
01A410: 65 73 20 61 72 65 20 66 6F 6C 6C 6F 77 65 64 20 es are followed
01A420: 73 65 71 75 65 6E 74 69 61 6C 6C 79 2E 0D 0A 0D sequentially....
01A430: 0A 45 61 63 68 20 20 70 72 6F 63 65 64 75 72 65 .Each procedure
01A440: 20 20 69 73 20 20 73 75 62 64 69 76 69 64 65 64 is subdivided
01A450: 20 20 69 6E 74 6F 20 20 73 65 6E 74 65 6E 63 65 into sentence
01A460: 73 2C 20 20 61 6E 64 20 20 65 61 63 68 20 20 73 s, and each s
01A470: 65 6E 74 65 6E 63 65 20 20 69 73 0D 0A 74 65 72 entence is..ter
01A480: 6D 69 6E 61 74 65 64 20 77 69 74 68 20 61 20 66 minated with a f
01A490: 75 6C 6C 20 73 74 6F 70 2E 0D 0A 0D 0A 43 6F 62 ull stop.....Cob
01A4A0: 6F 6C 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20 ol instructions
01A4B0: 6D 75 73 74 20 62 65 20 77 72 69 74 74 65 6E 20 must be written
01A4C0: 75 73 69 6E 67 20 55 50 50 45 52 20 43 41 53 45 using UPPER CASE
01A4D0: 20 6C 65 74 74 65 72 73 20 6F 6E 6C 79 2E 0D 0A letters only...
01A4E0: 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 6D ..Cobol programm
01A4F0: 69 6E 67 20 72 65 66 65 72 73 20 74 6F 20 6E 75 ing refers to nu
01A500: 6D 65 72 69 63 20 61 6E 64 20 73 74 72 69 6E 67 meric and string
01A510: 20 76 61 72 69 61 62 6C 65 73 20 61 73 20 49 44 variables as ID
01A520: 45 4E 54 49 46 49 45 52 53 2E 0D 0A 0D 0A 43 6F ENTIFIERS.....Co
01A530: 62 6F 6C 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 bol programming
01A540: 72 65 66 65 72 73 20 74 6F 20 73 74 72 69 6E 67 refers to string
01A550: 73 20 20 6F 66 20 20 74 65 78 74 20 20 61 73 20 s of text as
01A560: 4C 49 54 45 52 41 4C 27 53 2C 20 6C 69 74 65 72 LITERAL'S, liter
01A570: 61 6C 27 73 20 61 72 65 0D 0A 65 6E 63 6C 6F 73 al's are..enclos
01A580: 65 64 20 69 6E 20 27 73 69 6E 67 6C 65 20 71 75 ed in 'single qu
01A590: 6F 74 61 74 69 6F 6E 27 20 6D 61 72 6B 73 2C 20 otation' marks,
01A5A0: 6E 6F 74 20 22 64 6F 75 62 6C 65 20 71 75 6F 74 not "double quot
01A5B0: 61 74 69 6F 6E 22 20 6D 61 72 6B 73 20 61 73 20 ation" marks as
01A5C0: 75 73 65 64 0D 0A 69 6E 20 42 61 73 69 63 20 70 used..in Basic p
01A5D0: 72 6F 67 72 61 6D 6D 69 6E 67 2E 0D 0A 0D 0A 0D rogramming......
01A5E0: 0A 45 58 41 4D 50 4C 45 20 50 52 4F 47 52 41 4D .EXAMPLE PROGRAM
01A5F0: 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ...=============
01A600: 20 74 6F 0D 0A 64 69 73 63 20 61 73 20 27 66 69 to..disc as 'fi
01A610: 6C 65 6E 61 6D 65 2E 4C 53 54 27 2C 20 74 68 69 lename.LST', thi
01A620: 73 20 20 69 73 20 20 61 20 20 74 65 78 74 20 20 s is a text
01A630: 66 69 6C 65 20 20 77 68 69 63 68 20 20 63 61 6E file which can
01A640: 20 20 62 65 20 6C 6F 61 64 65 64 20 61 6E 64 0D be loaded and.
01A650: 0A 73 74 75 64 69 65 64 20 75 73 69 6E 67 20 74 .studied using t
01A660: 68 65 20 77 6F 72 64 20 70 72 6F 63 65 73 73 6F he word processo
01A670: 72 2E 20 46 75 6C 6C 20 20 64 65 74 61 69 6C 73 r. Full details
01A680: 20 20 6F 66 20 74 68 65 20 65 72 72 6F 72 20 63 of the error c
01A690: 6F 64 65 73 20 63 61 6E 20 62 65 0D 0A 66 6F 75 odes can be..fou
01A6A0: 6E 64 20 69 6E 20 74 68 65 20 43 6F 62 6F 6C 20 nd in the Cobol
01A6B0: 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 66 69 documentation fi
01A6C0: 6C 65 2E 20 45 72 72 6F 72 73 20 6D 75 73 74 20 le. Errors must
01A6D0: 62 65 20 63 6F 72 72 65 63 74 65 64 20 62 65 66 be corrected bef
01A6E0: 6F 72 65 20 79 6F 75 0D 0A 72 75 6E 20 74 68 65 ore you..run the
01A6F0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 52 program.......R
01A700: 55 4E 4E 49 4E 47 20 41 20 43 4F 42 4F 4C 20 50 UNNING A COBOL P
01A710: 52 4F 47 52 41 4D 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D ROGRAM...=======
01A720: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
01A730: 3D 0D 0A 0D 0A 57 68 65 6E 20 79 6F 75 20 68 61 =....When you ha
01A740: 76 65 20 20 73 75 63 63 65 73 73 66 75 6C 6C 79 ve successfully
01A750: 20 20 63 6F 6D 70 69 6C 65 64 20 20 74 68 65 20 compiled the
01A760: 20 70 72 6F 67 72 61 6D 20 20 74 68 65 20 64 69 program the di
01A770: 73 63 20 77 69 6C 6C 20 63 6F 6E 74 61 69 6E 0D sc will contain.
01A780: 0A 74 68 72 65 65 20 66 69 6C 65 73 2C 0D 0A 0D .three files,...
01A790: 0A 20 45 58 41 4D 2D 31 2E 43 42 4C 20 20 20 28 . EXAM-1.CBL (
01A7A0: 54 68 65 20 6F 72 69 67 69 6E 61 6C 20 74 65 78 The original tex
01A7B0: 74 20 66 69 6C 65 29 0D 0A 20 45 58 41 4D 2D 31 t file).. EXAM-1
01A7C0: 2E 4C 53 54 20 20 20 28 45 72 72 6F 72 20 6D 65 .LST (Error me
01A7D0: 73 73 61 67 65 20 66 69 6C 65 29 0D 0A 20 45 58 ssage file).. EX
01A7E0: 41 4D 2D 31 2E 43 49 4E 20 20 20 28 54 68 65 20 AM-1.CIN (The
01A7F0: 63 6F 6D 70 69 6C 65 64 20 63 6F 64 65 29 0D 0A compiled code)..
01A800: 3D 3D 3D 0D 0A 0D 0A 43 6F 6E 66 75 73 65 64 3F ===....Confused?
01A810: 2C 20 64 6F 6E 27 74 20 77 6F 72 72 79 2C 20 20 , don't worry,
01A820: 77 65 20 20 77 69 6C 6C 20 20 6C 65 61 72 6E 20 we will learn
01A830: 20 43 6F 62 6F 6C 20 20 70 72 6F 67 72 61 6D 6D Cobol programm
01A840: 69 6E 67 20 20 62 79 20 65 78 61 6D 69 6E 69 6E ing by examinin
01A850: 67 0D 0A 65 78 61 6D 70 6C 65 20 70 72 6F 67 72 g..example progr
01A860: 61 6D 73 20 77 68 69 63 68 20 77 69 6C 6C 20 20 ams which will
01A870: 73 68 6F 77 20 20 74 68 65 20 20 73 79 6E 74 61 show the synta
01A880: 78 20 20 6F 66 20 74 68 65 20 43 6F 62 6F 6C 20 x of the Cobol
01A890: 69 6E 73 74 72 75 63 74 69 6F 6E 73 2C 0D 0A 61 instructions,..a
01A8A0: 6E 64 20 74 68 65 20 65 66 66 65 63 74 20 74 68 nd the effect th
01A8B0: 65 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20 68 e instructions h
01A8C0: 61 76 65 2E 20 20 42 79 20 20 72 65 61 64 69 6E ave. By readin
01A8D0: 67 20 74 68 72 6F 75 67 68 20 74 68 65 20 70 72 g through the pr
01A8E0: 6F 67 72 61 6D 20 61 6E 64 0D 0A 77 61 74 63 68 ogram and..watch
01A8F0: 69 6E 67 20 74 68 65 20 65 66 66 65 63 74 20 74 ing the effect t
01A900: 68 65 20 20 70 72 6F 67 72 61 6D 20 20 69 6E 73 he program ins
01A910: 74 72 75 63 74 69 6F 6E 20 20 68 61 76 65 20 20 truction have
01A920: 79 6F 75 20 77 69 6C 6C 20 76 65 72 79 20 71 75 you will very qu
01A930: 69 63 6B 6C 79 0D 0A 64 65 76 65 6C 6F 70 20 61 ickly..develop a
01A940: 6E 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 20 n understanding
01A950: 6F 66 20 77 68 61 74 20 69 73 20 68 61 70 70 65 of what is happe
01A960: 6E 69 6E 67 2E 0D 0A 0D 0A 54 68 69 73 20 73 68 ning.....This sh
01A970: 6F 72 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 ort Cobol progra
01A980: 6D 20 20 70 72 6F 6D 70 74 73 20 79 6F 75 20 20 m prompts you
01A990: 74 6F 20 20 65 6E 74 65 72 20 61 20 6E 61 6D 65 to enter a name
01A9A0: 2C 20 61 6E 64 20 74 68 65 6E 20 64 69 73 70 6C , and then displ
01A9B0: 61 79 73 0D 0A 74 68 65 20 6E 61 6D 65 20 74 68 ays..the name th
01A9C0: 61 74 20 79 6F 75 20 68 61 76 65 20 65 6E 74 65 at you have ente
01A9D0: 72 65 64 20 6F 6E 20 74 68 65 20 73 63 72 65 65 red on the scree
01A9E0: 6E 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 n.....IDENTIFICA
01A9F0: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
01AA00: 0D 0A 54 6F 20 72 75 6E 20 79 6F 75 72 20 63 6F ..To run your co
01AA10: 6D 70 69 6C 65 64 20 70 72 6F 67 72 61 6D 2C 20 mpiled program,
01AA20: 72 65 74 75 72 6E 20 74 6F 20 74 68 65 20 41 3E return to the A>
01AA30: 20 70 72 6F 6D 70 74 20 6F 66 20 43 50 2F 4D 2B prompt of CP/M+
01AA40: 2E 20 54 68 65 6E 20 74 79 70 65 2C 0D 0A 0D 0A . Then type,....
01AA50: 20 45 58 45 43 20 45 58 41 4D 2D 31 20 20 28 74 EXEC EXAM-1 (t
01AA60: 68 65 6E 20 70 72 65 73 73 20 74 68 65 20 52 45 hen press the RE
01AA70: 54 55 52 4E 20 6B 65 79 29 0D 0A 0D 0A 54 68 69 TURN key)....Thi
01AA80: 73 20 77 69 6C 6C 20 64 69 73 70 6C 61 79 20 74 s will display t
01AA90: 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 6D 65 73 he following mes
01AAA0: 73 61 67 65 73 2C 0D 0A 0D 0A 20 27 4E 50 53 20 sages,.... 'NPS
01AAB0: 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 4C 4F 41 44 MICRO-COBOL LOAD
01AAC0: 45 52 20 56 45 52 53 20 32 2E 31 27 0D 0A 20 27 ER VERS 2.1'.. '
01AAD0: 45 58 41 4D 2D 31 20 4C 6F 61 64 69 6E 67 27 0D EXAM-1 Loading'.
01AAE0: 0A 20 27 4C 6F 61 64 69 6E 67 20 43 6F 6D 70 6C . 'Loading Compl
01AAF0: 65 74 65 64 27 0D 0A 20 27 4E 50 53 20 4D 49 43 eted'.. 'NPS MIC
01AB00: 52 4F 2D 43 4F 42 4F 4C 20 49 4E 54 45 52 50 52 RO-COBOL INTERPR
01AB10: 45 54 45 52 20 56 45 52 53 20 32 2E 31 27 0D 0A ETER VERS 2.1'..
01AB20: 0D 0A 59 6F 75 72 20 70 72 6F 67 72 61 6D 20 77 ..Your program w
01AB30: 69 6C 6C 20 74 68 65 6E 20 72 75 6E 2C 20 74 68 ill then run, th
01AB40: 65 20 70 72 6F 67 72 61 6D 20 73 68 6F 75 6C 64 e program should
01AB50: 20 64 69 73 70 6C 61 79 20 74 68 65 20 6D 65 73 display the mes
01AB60: 73 61 67 65 2C 0D 0A 0D 0A 20 27 50 6C 65 61 73 sage,.... 'Pleas
01AB70: 65 20 45 6E 74 65 72 20 59 6F 75 72 20 4E 61 6D e Enter Your Nam
01AB80: 65 2E 27 0D 0A 20 27 3F 27 0D 0A 0D 0A 54 68 65 e.'.. '?'....The
01AB90: 20 27 3F 27 20 69 73 20 74 68 65 20 70 72 6F 6D '?' is the prom
01ABA0: 70 74 20 66 6F 72 20 79 6F 75 20 20 74 6F 20 20 pt for you to
01ABB0: 65 6E 74 65 72 20 20 79 6F 75 72 20 6E 61 6D 65 enter your name
01ABC0: 2E 20 59 6F 75 20 73 68 6F 75 6C 64 20 65 6E 74 . You should ent
01ABD0: 65 72 20 79 6F 75 72 0D 0A 6E 61 6D 65 20 61 6E er your..name an
01ABE0: 64 20 74 68 65 20 70 72 65 73 73 20 74 68 65 20 d the press the
01ABF0: 52 45 54 55 52 4E 20 6B 65 79 2E 20 54 68 65 20 RETURN key. The
01AC00: 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 PROGRAM-ID.
01AC10: 20 45 78 61 6D 70 6C 65 20 4F 6E 65 2E 0D 0A 20 Example One...
01AC20: 20 20 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 AUTHOR.
01AC30: 43 20 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 C R Bellaby...
01AC40: 20 44 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 DATE-WRITTEN. 1
01AC50: 35 2F 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 5/9/89... SECU
01AC60: 52 49 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D RITY. None..
01AC70: 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 .*..ENVIRONMENT
01AC80: 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 DIVISION...CONFI
01AC90: 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E GURATION SECTION
01ACA0: 2E 0D 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D ... SOURCE-COM
01ACB0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
01ACC0: 31 32 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 128... OBJECT-
01ACD0: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
01ACE0: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
01ACF0: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
01AD00: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
01AD10: 49 4F 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 ION... 01 NAME
01AD20: 20 20 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A PIC X(80)...
01AD30: 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 *..PROCEDURE DIV
01AD40: 49 53 49 4F 4E 2E 0D 0A 50 41 52 41 47 52 41 50 ISION...PARAGRAP
01AD50: 48 2D 4F 4E 45 2E 0D 0A 20 20 20 44 49 53 50 4C H-ONE... DISPL
01AD60: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
01AD70: 20 59 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 Your Name'...
01AD80: 20 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D 0A ACCEPT NAME...
01AD90: 20 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C DISPLAY 'Hell
01ADA0: 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 53 o! ' NAME... S
01ADB0: 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 6F 67 TOP RUN.....Prog
01ADC0: 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A 31 2E ram Notes:....1.
01ADD0: 20 55 73 65 20 79 6F 75 72 20 43 50 2F 4D 20 77 Use your CP/M w
01ADE0: 6F 72 64 20 70 72 6F 63 65 73 73 6F 72 20 74 6F ord processor to
01ADF0: 20 65 6E 74 65 72 20 61 6E 64 20 73 61 76 65 20 enter and save
01AE00: 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 74 68 65 program will the
01AE10: 6E 20 64 69 73 70 6C 61 79 2C 0D 0A 0D 0A 20 27 n display,.... '
01AE20: 48 65 6C 6C 6F 21 27 20 20 22 66 6F 6C 6C 6F 77 Hello!' "follow
01AE30: 65 64 20 62 79 20 74 68 65 20 6E 61 6D 65 20 79 ed by the name y
01AE40: 6F 75 20 65 6E 74 65 72 65 64 22 0D 0A 0D 0A 54 ou entered"....T
01AE50: 68 65 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 he program will
01AE60: 74 68 65 6E 20 73 74 6F 70 20 61 6E 64 20 64 69 then stop and di
01AE70: 73 70 6C 61 79 20 74 68 65 20 6D 65 73 73 61 67 splay the messag
01AE80: 65 2C 0D 0A 0D 0A 20 27 30 20 45 78 65 63 75 74 e,.... '0 Execut
01AE90: 69 6F 6E 20 45 72 72 6F 72 28 73 29 0D 0A 0D 0A ion Error(s)....
01AEA0: 54 68 65 20 70 72 6F 67 72 61 6D 20 68 61 73 20 The program has
01AEB0: 6E 6F 77 20 62 65 65 6E 20 73 75 63 63 65 73 73 now been success
01AEC0: 66 75 6C 6C 79 20 72 75 6E 2C 20 61 6E 64 20 79 fully run, and y
01AED0: 6F 75 20 73 68 6F 75 6C 64 20 68 61 76 65 20 61 ou should have a
01AEE0: 20 67 6F 6F 64 20 69 64 65 61 0D 0A 6F 66 20 74 good idea..of t
01AEF0: 68 65 20 72 65 6C 61 74 69 6F 6E 73 68 69 70 20 he relationship
01AF00: 62 65 74 77 65 65 6E 20 74 68 65 20 44 49 53 50 between the DISP
01AF10: 4C 41 59 2C 20 20 41 43 43 45 50 54 20 61 6E 64 LAY, ACCEPT and
01AF20: 20 53 54 4F 50 20 52 55 4E 20 63 6F 6D 6D 61 6E STOP RUN comman
01AF30: 64 73 20 61 6E 64 0D 0A 74 68 65 20 65 66 66 65 ds and..the effe
01AF40: 63 74 20 74 68 61 74 20 74 68 65 79 20 68 61 76 ct that they hav
01AF50: 65 20 69 6E 20 43 6F 62 6F 6C 20 70 72 6F 67 72 e in Cobol progr
01AF60: 61 6D 6D 69 6E 67 2E 20 57 68 65 6E 20 79 6F 75 amming. When you
01AF70: 20 68 61 76 65 20 73 75 63 63 65 73 73 66 75 6C have successful
01AF80: 6C 79 0D 0A 63 6F 6D 70 69 6C 65 64 20 61 6E 64 ly..compiled and
01AF90: 20 72 75 6E 20 61 20 70 72 6F 67 72 61 6D 20 79 run a program y
01AFA0: 6F 75 20 63 61 6E 20 65 72 61 73 65 20 74 68 65 ou can erase the
01AFB0: 20 27 66 69 6C 65 6E 61 6D 65 2E 4C 53 54 27 20 'filename.LST'
01AFC0: 66 69 6C 65 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 file.......PROGR
01AFD0: 41 4D 20 54 57 4F 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D AM TWO...=======
01AFE0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
01AFF0: 6F 67 72 61 6D 20 69 73 20 61 20 65 78 74 65 6E ogram is a exten
01B000: 74 68 65 20 74 65 78 74 20 61 73 20 45 58 41 4D the text as EXAM
01B010: 2D 31 2E 43 42 4C 0D 0A 32 2E 20 57 68 65 6E 20 -1.CBL..2. When
01B020: 65 6E 74 65 72 69 6E 67 20 74 68 65 20 70 72 6F entering the pro
01B030: 67 72 61 6D 20 79 6F 75 20 73 68 6F 75 6C 64 20 gram you should
01B040: 73 65 74 20 74 68 65 20 6C 65 66 74 20 68 61 6E set the left han
01B050: 64 20 6D 61 72 67 69 6E 20 74 6F 20 31 2E 0D 0A d margin to 1...
01B060: 33 2E 20 44 49 56 49 53 49 4F 4E 20 61 6E 64 20 3. DIVISION and
01B070: 50 52 4F 43 45 44 55 52 45 20 68 65 61 64 69 6E PROCEDURE headin
01B080: 67 73 20 6D 75 73 74 20 73 74 61 72 74 20 69 6E gs must start in
01B090: 20 63 6F 6C 75 6D 6E 20 31 2E 0D 0A 0D 0A 45 78 column 1.....Ex
01B0A0: 70 6C 61 6E 61 74 69 6F 6E 20 4F 66 20 54 68 65 planation Of The
01B0B0: 20 49 6E 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A Instructions...
01B0C0: 0D 0A 4E 41 4D 45 20 69 73 20 61 6E 20 61 6C 70 ..NAME is an alp
01B0D0: 68 61 2F 6E 75 6D 65 72 69 63 20 69 64 65 6E 74 ha/numeric ident
01B0E0: 69 66 69 65 72 20 44 49 4D 65 6E 73 69 6F 6E 65 ifier DIMensione
01B0F0: 64 20 74 6F 20 33 30 20 63 68 61 72 61 63 74 65 d to 30 characte
01B100: 72 73 2E 0D 0A 0D 0A 50 6C 61 63 69 6E 67 20 61 rs.....Placing a
01B110: 20 2A 20 69 6E 20 63 6F 6C 75 6D 6E 20 31 20 6F * in column 1 o
01B120: 66 20 74 68 65 20 74 65 78 74 20 66 69 6C 65 20 f the text file
01B130: 68 61 73 20 74 68 65 20 65 66 66 65 63 74 20 6F has the effect o
01B140: 66 20 6D 61 6B 69 6E 67 20 74 68 65 20 72 65 73 f making the res
01B150: 74 0D 0A 6F 66 20 74 68 61 74 20 6C 69 6E 65 20 t..of that line
01B160: 69 6E 74 6F 20 61 20 72 65 6D 61 72 6B 73 20 73 into a remarks s
01B170: 74 61 74 65 6D 65 6E 74 2E 0D 0A 0D 0A 20 43 6F tatement..... Co
01B180: 62 6F 6C 20 43 6F 6D 6D 61 6E 64 20 20 20 20 20 bol Command
01B190: 42 61 73 69 63 20 45 71 75 69 76 61 6C 65 6E 74 Basic Equivalent
01B1A0: 2E 0D 0A 0D 0A 20 44 49 53 50 4C 41 59 20 20 20 ..... DISPLAY
01B1B0: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 6F 72 PRINT or
01B1C0: 20 3F 0D 0A 20 41 43 43 45 50 54 20 20 20 20 20 ?.. ACCEPT
01B1D0: 20 20 20 20 20 20 20 49 4E 50 55 54 0D 0A 20 53 INPUT.. S
01B1E0: 54 4F 50 20 52 55 4E 20 20 20 20 20 20 20 20 20 TOP RUN
01B1F0: 20 45 4E 44 0D 0A 20 2A 20 20 20 20 20 20 20 20 END.. *
01B200: 73 69 6F 6E 20 20 74 6F 20 20 74 68 65 20 20 66 sion to the f
01B210: 69 72 73 74 20 20 70 72 6F 67 72 61 6D 2C 20 20 irst program,
01B220: 69 74 20 69 6E 74 72 6F 64 75 63 65 73 20 61 20 it introduces a
01B230: 6E 65 77 0D 0A 69 6E 73 74 72 75 63 74 69 6F 6E new..instruction
01B240: 2C 20 47 4F 20 77 68 69 63 68 20 69 73 20 73 69 , GO which is si
01B250: 6D 69 6C 61 72 20 74 6F 20 74 68 65 20 42 61 73 milar to the Bas
01B260: 69 63 20 63 6F 6D 6D 61 6E 64 20 47 4F 54 4F 2E ic command GOTO.
01B270: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
01B280: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
01B290: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
01B2A0: 78 61 6D 70 6C 65 20 54 77 6F 2E 0D 0A 20 20 20 xample Two...
01B2B0: 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 43 20 AUTHOR. C
01B2C0: 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 20 44 R Bellaby... D
01B2D0: 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 35 2F ATE-WRITTEN. 15/
01B2E0: 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 52 49 9/89... SECURI
01B2F0: 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D 0A 2A TY. None...*
01B300: 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 ..ENVIRONMENT DI
01B310: 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 VISION...CONFIGU
01B320: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
01B330: 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 . SOURCE-COMPU
01B340: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
01B350: 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 43 4F 8... OBJECT-CO
01B360: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
01B370: 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 6128...*..DATA D
01B380: 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E IVISION...WORKIN
01B390: 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F G-STORAGE SECTIO
01B3A0: 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 20 20 N... 01 NAME
01B3B0: 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A 2A 0D PIC X(80)...*.
01B3C0: 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 .PROCEDURE DIVIS
01B3D0: 49 4F 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 5F 4E ION...*..ENTER_N
01B3E0: 41 4D 45 2E 0D 0A 20 20 20 44 49 53 50 4C 41 59 AME... DISPLAY
01B3F0: 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 20 59 'Please Enter Y
01B400: 20 20 20 20 20 20 20 20 20 52 45 4D 20 6F 72 20 REM or
01B410: 27 0D 0A 0D 0A 0D 0A 43 4F 4D 50 49 4C 49 4E 47 '......COMPILING
01B420: 20 45 58 41 4D 2D 31 2E 43 42 4C 2E 0D 0A 3D 3D EXAM-1.CBL...==
01B430: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
01B440: 3D 3D 3D 0D 0A 0D 0A 54 6F 20 63 6F 6D 70 69 6C ===....To compil
01B450: 65 20 74 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 e the Cobol prog
01B460: 72 61 6D 2C 20 65 78 69 74 20 66 72 6F 6D 20 20 ram, exit from
01B470: 56 44 45 20 20 75 73 69 6E 67 20 45 53 43 20 58 VDE using ESC X
01B480: 20 74 68 69 73 20 77 69 6C 6C 20 72 65 74 75 72 this will retur
01B490: 6E 0D 0A 79 6F 75 20 74 6F 20 74 68 65 20 41 3E n..you to the A>
01B4A0: 20 70 72 6F 6D 70 74 2E 20 54 68 65 6E 20 74 79 prompt. Then ty
01B4B0: 70 65 2C 0D 0A 0D 0A 20 43 4F 42 4F 4C 20 45 58 pe,.... COBOL EX
01B4C0: 41 4D 2D 31 20 20 20 28 61 6E 64 20 74 68 65 6E AM-1 (and then
01B4D0: 20 70 72 65 73 73 20 74 68 65 20 52 45 54 55 52 press the RETUR
01B4E0: 4E 20 6B 65 79 29 0D 0A 0D 0A 49 66 20 79 6F 75 N key)....If you
01B4F0: 20 68 61 76 65 20 74 79 70 65 64 20 74 68 65 20 have typed the
01B500: 70 72 6F 67 72 61 6D 20 63 6F 72 72 65 63 74 6C program correctl
01B510: 79 2C 20 74 68 65 20 70 72 6F 67 72 61 6D 20 77 y, the program w
01B520: 69 6C 6C 20 62 65 20 63 6F 6D 70 69 6C 65 64 2C ill be compiled,
01B530: 20 61 6E 64 0D 0A 79 6F 75 20 77 69 6C 6C 20 73 and..you will s
01B540: 65 65 20 74 68 65 20 6D 65 73 73 61 67 65 2C 0D ee the message,.
01B550: 0A 0D 0A 20 27 30 20 70 72 6F 67 72 61 6D 20 65 ... '0 program e
01B560: 72 72 6F 72 28 73 29 27 2E 0D 0A 0D 0A 49 66 20 rror(s)'.....If
01B570: 61 6E 20 65 72 72 6F 72 20 69 73 20 66 6F 75 6E an error is foun
01B580: 64 20 77 68 69 6C 73 74 20 20 74 68 65 20 20 70 d whilst the p
01B590: 72 6F 67 72 61 6D 20 20 69 73 20 62 65 69 6E 67 rogram is being
01B5A0: 20 63 6F 6D 70 69 6C 65 64 20 74 68 65 6E 20 61 compiled then a
01B5B0: 6E 20 65 72 72 6F 72 0D 0A 6D 65 73 73 61 67 65 n error..message
01B5C0: 20 77 69 6C 6C 20 62 65 20 64 69 73 70 6C 61 79 will be display
01B5D0: 65 64 20 75 70 6F 6E 20 74 68 65 20 73 63 72 65 ed upon the scre
01B5E0: 65 6E 2E 20 45 72 72 6F 72 20 6D 65 73 73 61 67 en. Error messag
01B5F0: 65 73 20 61 72 65 20 61 6C 73 6F 20 73 61 76 65 es are also save
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 01 00 02 09 52 E5 17 00 C1 02 00 00 00 02 ......R.........
01B620: 17 00 C6 02 00 00 00 02 17 00 C2 02 00 00 00 02 ................
01B630: 17 00 C7 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B640: 17 00 C8 02 00 00 00 02 17 00 C4 02 00 00 00 02 ................
01B650: 17 00 C9 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 20 44 our Name'... D
01B710: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 ISPLAY ' '...
01B720: 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D 0A 2A ACCEPT NAME...*
01B730: 0D 0A 53 48 4F 57 5F 4E 41 4D 45 2E 0D 0A 20 20 ..SHOW_NAME...
01B740: 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F 21 DISPLAY 'Hello!
01B750: 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 44 49 53 ' NAME... DIS
01B760: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 47 4F PLAY ' '... GO
01B770: 20 45 4E 54 45 52 5F 4E 41 4D 45 2E 0D 0A 0D 0A ENTER_NAME.....
01B780: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
01B790: 0D 0A 54 68 65 20 47 4F 20 63 6F 6D 6D 61 6E 64 ..The GO command
01B7A0: 20 68 61 73 20 74 68 65 20 73 61 6D 65 20 65 66 has the same ef
01B7B0: 66 65 63 74 20 61 73 20 74 68 65 20 42 61 73 69 fect as the Basi
01B7C0: 63 20 63 6F 6D 6D 61 6E 64 20 47 4F 54 4F 2C 20 c command GOTO,
01B7D0: 69 74 20 69 6E 73 74 72 75 63 74 73 0D 0A 74 68 it instructs..th
01B7E0: 65 20 63 6F 6D 70 75 74 65 72 20 70 72 6F 67 72 e computer progr
01B7F0: 61 6D 20 74 6F 20 6D 6F 76 65 20 64 69 72 65 63 am to move direc
01B800: 74 6C 79 20 74 6F 20 74 68 65 20 73 74 61 72 74 tly to the start
01B810: 20 6F 66 20 74 68 65 20 6E 61 6D 65 64 20 70 72 of the named pr
01B820: 6F 63 65 64 75 72 65 2E 0D 0A 0D 0A 50 72 6F 63 ocedure.....Proc
01B830: 65 64 75 72 65 73 20 63 61 6E 20 62 65 20 67 69 edures can be gi
01B840: 76 65 6E 20 61 6E 79 20 20 6E 61 6D 65 20 20 28 ven any name (
01B850: 64 6F 20 20 6E 6F 74 20 20 75 73 65 20 72 65 73 do not use res
01B860: 65 72 76 65 64 20 77 6F 72 64 73 29 2C 20 74 68 erved words), th
01B870: 65 20 6E 61 6D 65 0D 0A 6D 75 73 74 20 6E 6F 74 e name..must not
01B880: 20 69 6E 63 6C 75 64 65 20 73 70 61 63 65 73 2C include spaces,
01B890: 20 6D 75 73 74 20 68 61 76 65 20 61 20 66 75 6C must have a ful
01B8A0: 6C 20 20 73 74 6F 70 20 61 74 20 74 68 65 20 65 l stop at the e
01B8B0: 6E 64 2C 20 61 6E 64 20 6D 75 73 74 20 73 74 61 nd, and must sta
01B8C0: 72 74 0D 0A 69 6E 20 63 6F 6C 75 6D 6E 20 6F 6E rt..in column on
01B8D0: 65 2E 0D 0A 0D 0A 54 68 69 73 20 70 72 6F 67 72 e.....This progr
01B8E0: 61 6D 20 69 73 20 61 20 63 6F 6E 74 69 6E 75 6F am is a continuo
01B8F0: 75 73 20 6C 6F 6F 70 2C 20 77 68 69 63 68 20 6D us loop, which m
01B900: 20 20 20 6C 61 6E 67 75 61 67 65 20 20 20 73 70 language sp
01B910: 65 63 69 61 6C 6C 79 20 20 20 77 72 69 74 74 65 ecially writte
01B920: 6E 20 20 20 66 6F 72 20 20 62 75 73 69 6E 65 73 n for busines
01B930: 73 0D 0A 61 70 70 6C 69 63 61 74 69 6F 6E 73 2E s..applications.
01B940: 20 43 6F 62 6F 6C 20 77 61 73 20 77 72 69 74 74 Cobol was writt
01B950: 65 6E 20 69 6E 20 74 68 65 20 73 69 78 74 69 65 en in the sixtie
01B960: 73 20 61 6E 64 20 69 73 20 61 20 66 75 6C 6C 79 s and is a fully
01B970: 20 73 74 61 6E 64 61 72 64 69 73 65 64 0D 0A 6C standardised..l
01B980: 61 6E 67 75 61 67 65 2E 0D 0A 0D 0A 43 4F 4D 50 anguage.....COMP
01B990: 49 4C 45 52 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D ILER.....Program
01B9A0: 20 28 73 75 63 68 20 61 73 20 43 6F 62 6F 6C 20 (such as Cobol
01B9B0: 26 20 20 50 61 73 63 61 6C 29 20 20 77 68 69 63 & Pascal) whic
01B9C0: 68 20 20 74 72 61 6E 73 6C 61 74 65 73 20 61 20 h translates a
01B9D0: 68 69 67 68 20 6C 65 76 65 6C 20 63 6F 6D 70 75 high level compu
01B9E0: 74 65 72 0D 0A 6C 61 6E 67 75 61 67 65 73 20 69 ter..languages i
01B9F0: 6E 74 6F 20 6D 61 63 68 69 6E 65 20 63 6F 64 65 nto machine code
01BA00: 2E 0D 0A 0D 0A 43 50 2F 4D 2E 0D 0A 0D 0A 43 6F .....CP/M.....Co
01BA10: 6E 74 72 6F 6C 20 50 72 6F 67 72 61 6D 20 66 6F ntrol Program fo
01BA20: 72 20 4D 69 63 72 6F 70 72 6F 63 65 73 73 6F 72 r Microprocessor
01BA30: 73 2C 20 43 50 2F 4D 20 20 69 74 20 20 69 73 20 s, CP/M it is
01BA40: 20 6E 6F 74 20 61 20 63 6F 6D 70 75 74 65 72 20 not a computer
01BA50: 6C 61 6E 67 75 61 67 65 0D 0A 62 75 74 20 69 74 language..but it
01BA60: 20 70 72 6F 76 69 64 65 73 20 61 20 73 74 61 6E provides a stan
01BA70: 64 61 72 64 20 66 72 61 6D 65 77 6F 72 6B 20 69 dard framework i
01BA80: 6E 20 77 68 69 63 68 20 63 6F 6D 70 75 74 65 72 n which computer
01BA90: 20 6C 61 6E 67 75 61 67 65 73 20 6F 70 65 72 61 languages opera
01BAA0: 74 65 2E 0D 0A 0D 0A 47 2E 43 2E 45 2E 0D 0A 0D te.....G.C.E....
01BAB0: 0A 41 6E 20 6F 6C 64 20 65 78 61 6D 20 28 47 65 .An old exam (Ge
01BAC0: 6E 65 72 61 6C 20 43 65 72 74 69 66 69 63 61 74 neral Certificat
01BAD0: 65 20 6F 66 20 45 64 75 63 61 74 69 6F 6E 29 0D e of Education).
01BAE0: 0A 0D 0A 48 49 47 48 20 4C 45 56 45 4C 20 4C 41 ...HIGH LEVEL LA
01BAF0: 4E 47 55 41 47 45 2E 0D 0A 0D 0A 43 4F 42 4F 4C NGUAGE.....COBOL
01BB00: 65 61 6E 73 20 74 68 61 74 20 79 6F 75 20 6E 65 eans that you ne
01BB10: 65 64 20 74 6F 20 70 72 65 73 73 20 43 54 52 4C ed to press CTRL
01BB20: 0D 0A 43 20 74 6F 20 61 62 6F 72 74 20 74 68 65 ..C to abort the
01BB30: 20 70 72 6F 67 72 61 6D 20 61 6E 64 20 72 65 74 program and ret
01BB40: 75 72 6E 20 20 74 6F 20 20 43 50 2F 4D 2E 20 50 urn to CP/M. P
01BB50: 72 65 73 73 69 6E 67 20 20 43 54 52 4C 20 43 20 ressing CTRL C
01BB60: 68 61 73 20 74 68 65 20 73 61 6D 65 0D 0A 65 66 has the same..ef
01BB70: 66 65 63 74 20 61 73 20 70 72 65 73 73 69 6E 67 fect as pressing
01BB80: 20 74 68 65 20 45 53 43 20 6B 65 79 20 69 6E 20 the ESC key in
01BB90: 42 61 73 69 63 20 70 72 6F 67 72 61 6D 6D 69 6E Basic programmin
01BBA0: 67 2E 0D 0A 0D 0A 43 6F 6D 70 69 6C 65 20 61 6E g.....Compile an
01BBB0: 64 20 72 75 6E 20 74 68 65 20 73 65 63 6F 6E 64 d run the second
01BBC0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 54 68 65 program.....The
01BBD0: 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 64 69 program will di
01BBE0: 73 70 6C 61 79 20 74 68 65 20 20 65 6E 74 65 72 splay the enter
01BBF0: 20 20 6E 61 6D 65 20 20 6D 65 73 73 61 67 65 2C name message,
01BC00: 20 20 70 72 6F 6D 70 74 20 79 6F 75 20 74 6F 20 prompt you to
01BC10: 65 6E 74 65 72 20 61 0D 0A 6E 61 6D 65 2C 20 64 enter a..name, d
01BC20: 69 73 70 6C 61 79 20 74 68 65 20 20 6E 61 6D 65 isplay the name
01BC30: 20 20 65 6E 74 65 72 65 64 20 20 61 6E 64 20 20 entered and
01BC40: 74 68 65 20 20 6A 75 6D 70 20 20 62 61 63 6B 20 the jump back
01BC50: 20 74 6F 20 20 74 68 65 20 45 4E 54 45 52 2D 4E to the ENTER-N
01BC60: 41 4D 45 0D 0A 70 72 6F 63 65 64 75 72 65 20 61 AME..procedure a
01BC70: 6E 64 20 72 65 70 65 61 74 20 74 68 65 20 70 72 nd repeat the pr
01BC80: 6F 63 65 73 73 2C 20 6F 6E 20 61 6E 64 20 6F 6E ocess, on and on
01BC90: 20 2E 2E 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 .........PROGRA
01BCA0: 4D 20 54 48 52 45 45 2E 0D 0A 3D 3D 3D 3D 3D 3D M THREE...======
01BCB0: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F 67 ========....Prog
01BCC0: 72 61 6D 20 74 77 6F 20 68 61 73 20 61 20 70 72 ram two has a pr
01BCD0: 6F 62 6C 65 6D 2C 20 79 6F 75 20 63 61 6E 6E 6F oblem, you canno
01BCE0: 74 20 65 78 70 65 63 74 20 74 68 65 20 61 76 65 t expect the ave
01BCF0: 72 61 67 65 20 75 73 65 72 20 74 6F 20 6B 6E 6F rage user to kno
01BD00: 2C 20 42 41 53 49 43 20 61 6E 64 20 50 41 53 43 , BASIC and PASC
01BD10: 41 4C 20 20 61 72 65 20 20 65 78 61 6D 70 6C 65 AL are example
01BD20: 73 20 20 6F 66 20 20 68 69 67 68 20 6C 65 76 65 s of high leve
01BD30: 6C 20 63 6F 6D 70 75 74 65 72 20 6C 61 6E 67 75 l computer langu
01BD40: 61 67 65 73 2E 0D 0A 48 69 67 68 20 6C 65 76 65 ages...High leve
01BD50: 6C 20 6C 61 6E 67 75 61 67 65 73 20 75 73 65 20 l languages use
01BD60: 45 6E 67 6C 69 73 68 20 62 61 73 65 64 20 69 6E English based in
01BD70: 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D 0A 20 structions.....
01BD80: 49 65 20 20 57 48 49 4C 45 20 63 6F 75 6E 74 20 Ie WHILE count
01BD90: 3C 20 33 30 20 20 20 20 20 20 20 20 20 28 42 61 < 30 (Ba
01BDA0: 73 69 63 29 0D 0A 0D 0A 20 20 20 20 20 50 45 52 sic).... PER
01BDB0: 46 4F 52 4D 20 77 61 67 65 2D 63 61 6C 63 75 6C FORM wage-calcul
01BDC0: 61 74 69 6F 6E 73 20 55 4E 54 49 4C 0D 0A 20 20 ations UNTIL..
01BDD0: 20 20 20 20 20 6C 61 73 74 2D 72 65 63 6F 72 64 last-record
01BDE0: 20 3D 20 22 65 6E 64 20 22 20 20 20 28 43 6F 62 = "end " (Cob
01BDF0: 6F 6C 29 0D 0A 0D 0A 4C 4F 57 20 4C 45 56 45 4C ol)....LOW LEVEL
01BE00: 20 4C 41 4E 47 55 41 47 45 2E 0D 0A 0D 0A 4C 61 LANGUAGE.....La
01BE10: 6E 67 75 61 67 65 73 20 77 68 69 63 68 20 75 73 nguages which us
01BE20: 65 20 20 6D 6E 65 6D 6F 6E 69 63 73 20 20 61 73 e mnemonics as
01BE30: 20 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 2E 20 instructions.
01BE40: 20 54 68 65 20 20 6D 6E 65 6D 6F 6E 69 63 73 20 The mnemonics
01BE50: 61 72 65 20 74 68 65 6E 0D 0A 63 6F 6E 76 65 72 are then..conver
01BE60: 74 65 64 20 69 6E 74 6F 20 6D 61 63 68 69 6E 65 ted into machine
01BE70: 20 63 6F 64 65 20 20 75 73 69 6E 67 20 61 6E 20 code using an
01BE80: 61 73 73 65 6D 62 6C 65 72 20 73 75 63 68 20 61 assembler such a
01BE90: 73 20 4D 61 78 61 6D 2E 0D 0A 0D 0A 4F 42 4A 45 s Maxam.....OBJE
01BEA0: 43 54 20 43 4F 44 45 2E 0D 0A 0D 0A 54 68 65 20 CT CODE.....The
01BEB0: 6E 61 6D 65 20 67 69 76 65 6E 20 74 6F 20 74 68 name given to th
01BEC0: 65 20 6D 61 63 68 69 6E 65 20 63 6F 64 65 20 70 e machine code p
01BED0: 72 6F 64 75 63 65 64 20 62 79 20 61 20 63 6F 6D roduced by a com
01BEE0: 70 69 6C 65 72 20 6F 72 20 61 73 73 65 6D 62 6C piler or assembl
01BEF0: 65 72 2E 0D 0A 0D 0A 53 4F 55 52 43 45 20 43 4F er.....SOURCE CO
01BF00: 77 20 74 68 61 74 0D 0A 70 72 65 73 73 69 6E 67 w that..pressing
01BF10: 20 43 54 52 4C 20 43 20 77 69 6C 6C 20 74 65 72 CTRL C will ter
01BF20: 6D 69 6E 61 74 65 20 74 68 65 20 20 70 72 6F 67 minate the prog
01BF30: 72 61 6D 2E 20 20 54 68 69 73 20 20 70 72 6F 62 ram. This prob
01BF40: 6C 65 6D 20 69 73 20 65 61 73 79 20 74 6F 20 67 lem is easy to g
01BF50: 65 74 0D 0A 72 6F 75 6E 64 20 62 65 63 61 75 73 et..round becaus
01BF60: 65 20 43 6F 62 6F 6C 20 68 61 73 20 61 6E 20 69 e Cobol has an i
01BF70: 6E 73 74 72 75 63 74 69 6F 6E 20 77 68 69 63 68 nstruction which
01BF80: 20 64 69 73 70 6C 61 79 73 20 61 20 6D 65 73 73 displays a mess
01BF90: 61 67 65 20 61 73 6B 69 6E 67 20 74 68 65 0D 0A age asking the..
01BFA0: 75 73 65 72 20 69 66 20 74 68 65 79 20 77 69 73 user if they wis
01BFB0: 68 20 74 6F 20 74 65 72 6D 69 6E 61 74 65 20 74 h to terminate t
01BFC0: 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 53 he program.....S
01BFD0: 6F 20 6C 65 74 73 20 67 65 74 20 62 61 63 6B 20 o lets get back
01BFE0: 69 6E 74 6F 20 56 44 45 20 74 6F 20 65 6E 74 65 into VDE to ente
01BFF0: 72 20 70 72 6F 67 72 61 6D 20 74 68 72 65 65 2E r program three.
01C000: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
01C010: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
01C020: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
01C030: 78 61 6D 70 6C 65 20 54 68 72 65 65 2E 0D 0A 20 xample Three...
01C040: 20 20 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 AUTHOR.
01C050: 43 20 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 C R Bellaby...
01C060: 20 44 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 DATE-WRITTEN. 1
01C070: 35 2F 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 5/9/89... SECU
01C080: 52 49 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D RITY. None..
01C090: 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 .*..ENVIRONMENT
01C0A0: 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 DIVISION...CONFI
01C0B0: 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E GURATION SECTION
01C0C0: 2E 0D 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D ... SOURCE-COM
01C0D0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
01C0E0: 31 32 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 128... OBJECT-
01C0F0: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
01C100: 44 45 2E 0D 0A 0D 0A 54 68 65 20 73 6F 75 72 63 DE.....The sourc
01C110: 65 20 63 6F 64 65 20 69 73 20 74 68 65 20 45 6E e code is the En
01C120: 67 6C 69 73 68 20 62 61 73 65 64 20 68 69 67 68 glish based high
01C130: 20 6C 65 76 65 6C 20 6C 61 6E 67 75 61 67 65 20 level language
01C140: 69 6E 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D instructions....
01C150: 0A 57 41 43 43 49 2E 0D 0A 0D 0A 41 20 68 69 67 .WACCI.....A hig
01C160: 68 20 6C 65 76 65 6C 20 63 6F 6D 70 75 74 65 72 h level computer
01C170: 20 63 6C 75 62 2E 0D 0A 0D 0A 0D 0A 48 4F 4D 45 club.......HOME
01C180: 57 4F 52 4B 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D WORK...=========
01C190: 0D 0A 0D 0A 48 61 76 65 20 61 20 67 6F 6F 64 20 ....Have a good
01C1A0: 72 65 61 64 20 6F 66 20 74 68 65 20 20 43 6F 62 read of the Cob
01C1B0: 6F 6C 20 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F ol documentatio
01C1C0: 6E 20 66 69 6C 65 2C 20 61 6E 64 20 70 72 61 63 n file, and prac
01C1D0: 74 69 63 65 20 75 73 69 6E 67 20 74 68 65 0D 0A tice using the..
01C1E0: 66 6F 75 72 20 69 6E 73 74 72 75 63 74 69 6F 6E four instruction
01C1F0: 73 20 63 6F 76 65 72 65 64 20 74 68 69 73 20 6D s covered this m
01C200: 6F 6E 74 68 2E 0D 0A 0D 0A 0D 0A 43 6C 69 76 65 onth.......Clive
01C210: 20 42 65 6C 6C 61 62 79 2C 20 31 32 2C 20 54 72 Bellaby, 12, Tr
01C220: 61 66 61 6C 67 61 72 20 54 65 72 72 61 63 65 2C afalgar Terrace,
01C230: 20 4C 6F 6E 67 20 45 61 74 6F 6E 2C 20 4E 6F 74 Long Eaton, Not
01C240: 74 69 6E 67 68 61 6D 20 4E 47 31 30 20 31 47 50 tingham NG10 1GP
01C250: 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 .......** END OF
01C260: 20 53 45 52 49 45 53 2E 50 54 31 20 2A 2A 0D 0A SERIES.PT1 **..
01C270: 1A 39 2E 0D 0A 20 20 20 53 45 43 55 52 49 54 59 .9... SECURITY
01C280: 64 20 42 75 73 69 6E 65 73 73 20 20 4F 72 69 65 d Business Orie
01C290: 6E 74 65 64 20 4C 61 6E 67 75 61 67 65 20 61 6E nted Language an
01C2A0: 64 20 20 69 73 20 6F 6E 65 20 6F 66 0D 0A 74 68 d is one of..th
01C2B0: 65 20 6F 6C 64 65 73 74 20 63 6F 6D 70 75 74 65 e oldest compute
01C2C0: 72 20 6C 61 6E 67 75 61 67 65 73 2E 20 49 74 73 r languages. Its
01C2D0: 20 20 64 65 6D 69 73 65 20 20 68 61 73 20 20 62 demise has b
01C2E0: 65 65 6E 20 70 72 65 64 69 63 74 65 64 20 65 76 een predicted ev
01C2F0: 65 72 79 20 79 65 61 72 0D 0A 66 6F 72 20 61 73 ery year..for as
01C300: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
01C310: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
01C320: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
01C330: 49 4F 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 ION... 01 NAME
01C340: 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A PIC X(30)...
01C350: 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 *..PROCEDURE DIV
01C360: 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 ISION...*..ENTER
01C370: 5F 4E 41 4D 45 2E 0D 0A 20 20 20 44 49 53 50 4C _NAME... DISPL
01C380: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
01C390: 20 59 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 Your Name'...
01C3A0: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
01C3B0: 20 20 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D ACCEPT NAME..
01C3C0: 0A 2A 0D 0A 53 48 4F 57 5F 4E 41 4D 45 2E 0D 0A .*..SHOW_NAME...
01C3D0: 20 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C DISPLAY 'Hell
01C3E0: 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 44 o! ' NAME... D
01C3F0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 ISPLAY ' '...
01C400: 53 54 4F 50 20 27 45 6E 64 20 4F 66 20 52 6F 75 STOP 'End Of Rou
01C410: 74 69 6E 65 27 2E 0D 0A 20 20 20 47 4F 20 45 4E tine'... GO EN
01C420: 54 45 52 5F 4E 41 4D 45 2E 0D 0A 0D 0A 0D 0A 43 TER_NAME.......C
01C430: 6F 6D 70 69 6C 65 20 61 6E 64 20 72 75 6E 20 74 ompile and run t
01C440: 68 65 20 70 72 6F 67 72 61 6D 2C 20 61 6E 64 20 he program, and
01C450: 20 79 6F 75 20 20 77 69 6C 6C 20 20 6E 6F 74 69 you will noti
01C460: 63 65 20 74 68 61 74 20 74 68 61 74 20 53 54 4F ce that that STO
01C470: 50 20 63 6F 6D 6D 61 6E 64 0D 0A 75 73 65 64 20 P command..used
01C480: 69 6E 20 74 68 65 20 66 6F 72 6D 61 74 20 77 69 in the format wi
01C490: 6C 6C 20 68 61 6C 74 20 74 68 65 20 20 70 72 6F ll halt the pro
01C4A0: 67 72 61 6D 20 20 61 6E 64 20 64 69 73 70 6C 61 gram and displa
01C4B0: 79 20 74 68 69 73 20 6D 65 73 73 61 67 65 20 6F y this message o
01C4C0: 6E 20 74 68 65 0D 0A 73 63 72 65 65 6E 2C 0D 0A n the..screen,..
01C4D0: 0D 0A 20 27 4F 50 45 52 41 54 4F 52 20 45 4E 54 .. 'OPERATOR ENT
01C4E0: 45 52 20 41 20 5B 43 52 5D 20 54 4F 20 43 4F 4E ER A [CR] TO CON
01C4F0: 54 49 4E 55 45 20 4F 52 0D 0A 20 20 20 20 20 20 TINUE OR..
01C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C700: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 54 ENT
01C710: 45 52 20 41 4E 20 53 20 54 4F 20 45 4E 44 27 0D ER AN S TO END'.
01C720: 0A 0D 0A 54 68 65 20 70 72 6F 67 72 61 6D 20 6E ...The program n
01C730: 6F 77 20 77 61 69 74 73 20 75 6E 74 69 6C 20 74 ow waits until t
01C740: 68 65 20 6F 70 65 72 61 74 6F 72 20 20 70 72 65 he operator pre
01C750: 73 73 65 73 20 74 68 65 20 52 45 54 55 52 4E 20 sses the RETURN
01C760: 6B 65 79 2C 20 69 6E 20 77 68 69 63 68 0D 0A 63 key, in which..c
01C770: 61 73 65 20 74 68 65 20 70 72 6F 67 72 61 6D 20 ase the program
01C780: 6C 6F 6F 70 73 20 62 61 63 6B 20 74 6F 20 74 68 loops back to th
01C790: 65 20 20 73 74 61 72 74 2C 20 6F 72 20 74 68 65 e start, or the
01C7A0: 20 6F 70 65 72 61 74 6F 72 20 65 6E 74 65 72 73 operator enters
01C7B0: 20 61 6E 20 75 70 70 65 72 0D 0A 63 61 73 65 20 an upper..case
01C7C0: 53 20 74 6F 20 65 6E 64 20 74 68 65 20 70 72 6F S to end the pro
01C7D0: 67 72 61 6D 2C 20 77 68 65 6E 20 20 74 68 65 20 gram, when the
01C7E0: 66 6F 6C 6C 6F 77 69 6E 67 20 6D 65 73 73 61 67 following messag
01C7F0: 65 20 69 73 20 64 69 73 70 6C 61 79 65 64 20 6F e is displayed o
01C800: 6E 20 74 68 65 0D 0A 73 63 72 65 65 6E 2C 0D 0A n the..screen,..
01C810: 0D 0A 20 27 30 20 45 78 65 63 75 74 69 6F 6E 20 .. '0 Execution
01C820: 45 72 72 6F 72 28 73 29 27 0D 0A 0D 0A 49 66 20 Error(s)'....If
01C830: 74 68 65 20 6F 70 65 72 61 74 6F 72 20 70 72 65 the operator pre
01C840: 73 73 65 73 20 61 6E 79 20 6F 66 20 74 68 65 20 sses any of the
01C850: 20 6F 74 68 65 72 20 20 6F 74 68 65 72 20 6B 65 other other ke
01C860: 79 73 20 74 68 65 6E 20 74 68 65 20 6B 65 79 20 ys then the key
01C870: 70 72 65 73 73 65 64 0D 0A 77 69 6C 6C 20 62 65 pressed..will be
01C880: 20 64 69 73 70 6C 61 79 65 64 20 6F 6E 20 74 68 displayed on th
01C890: 65 20 73 63 72 65 65 6E 20 62 75 74 20 69 74 20 e screen but it
01C8A0: 68 61 73 20 6E 6F 20 65 66 66 65 63 74 20 6F 6E has no effect on
01C8B0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 44 program.......D
01C8C0: 45 46 49 4E 49 54 49 4F 4E 53 2E 0D 0A 3D 3D 3D EFINITIONS...===
01C8D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 4F 42 =========....COB
01C8E0: 4F 4C 2E 0D 0A 0D 0A 41 20 20 68 69 67 68 20 20 OL.....A high
01C8F0: 6C 65 76 65 6C 20 20 20 63 6F 6D 70 75 74 65 72 level computer
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 01 00 02 09 52 E5 18 00 C1 02 00 00 00 02 ......R.........
01C920: 18 00 C6 02 00 00 00 02 18 00 C2 02 00 00 00 02 ................
01C930: 18 00 C7 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C940: 18 00 C8 02 00 00 00 02 18 00 C4 02 00 00 00 02 ................
01C950: 18 00 C9 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01CA10: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
01CA20: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
01CA30: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
01CA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CA50: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
01CA60: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
01CA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01CA80: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
01CA90: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
01CAA0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
01CAB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 PA
01CAC0: 52 54 20 54 57 4F 20 3A 20 47 45 54 54 49 4E 47 RT TWO : GETTING
01CAD0: 20 42 45 54 54 45 52 0D 0A 0D 0A 0D 0A 0D 0A 59 BETTER........Y
01CAE0: 4F 55 52 20 51 55 45 52 49 45 53 20 41 4E 53 57 OUR QUERIES ANSW
01CAF0: 45 52 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D ERED...=========
01CB00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
01CB10: 0A 53 65 76 65 72 61 6C 20 6F 66 20 79 6F 75 20 .Several of you
01CB20: 68 61 76 65 20 61 73 6B 65 64 20 77 68 79 20 49 have asked why I
01CB30: 20 75 73 65 64 20 20 56 44 45 20 61 6E 64 20 6E used VDE and n
01CB40: 6F 74 20 56 44 45 32 36 36 20 66 6F 72 20 70 72 ot VDE266 for pr
01CB50: 6F 64 75 63 69 6E 67 20 74 68 65 0D 0A 43 6F 62 oducing the..Cob
01CB60: 6F 6C 20 74 65 78 74 20 66 69 6C 65 73 2E 20 56 ol text files. V
01CB70: 44 45 32 36 36 20 69 73 20 61 20 20 6D 75 63 68 DE266 is a much
01CB80: 20 20 69 6D 70 72 6F 76 65 64 20 20 76 65 72 73 improved vers
01CB90: 69 6F 6E 20 6F 66 20 56 44 45 2C 20 62 75 74 20 ion of VDE, but
01CBA0: 56 44 45 20 61 6E 64 0D 0A 43 6F 62 6F 6C 20 63 VDE and..Cobol c
01CBB0: 6F 6D 65 20 70 61 63 6B 61 67 65 64 20 74 6F 67 ome packaged tog
01CBC0: 65 74 68 65 72 20 6F 6E 20 43 50 4D 20 64 69 73 ether on CPM dis
01CBD0: 63 20 20 65 69 67 68 74 2C 20 20 73 6F 20 69 74 c eight, so it
01CBE0: 20 6D 61 64 65 20 73 65 6E 73 65 20 74 6F 20 6B made sense to k
01CBF0: 65 65 70 0D 0A 74 68 65 6E 20 74 6F 67 65 74 68 eep..then togeth
01CC00: 0D 0A 0D 0A 49 65 2E 0D 0A 0D 0A 49 44 45 4E 54 ....Ie.....IDENT
01CC10: 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 IFICATION DIVISI
01CC20: 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E ON...PROGRAM-ID.
01CC30: 20 20 20 45 78 61 6D 70 6C 65 20 46 6F 75 72 2E Example Four.
01CC40: 0D 0A 2A 0D 0A 2A 20 57 72 69 74 74 65 6E 20 42 ..*..* Written B
01CC50: 79 20 20 43 20 52 20 42 65 6C 6C 61 62 79 0D 0A y C R Bellaby..
01CC60: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 * 12
01CC70: 2C 54 72 61 66 61 6C 67 61 72 20 54 65 72 72 61 ,Trafalgar Terra
01CC80: 63 65 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 20 ce..*
01CC90: 20 20 4C 6F 6E 67 20 45 61 74 6F 6E 0D 0A 2A 20 Long Eaton..*
01CCA0: 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 74 74 Nott
01CCB0: 69 6E 67 68 61 6D 0D 0A 2A 20 20 20 20 20 20 20 ingham..*
01CCC0: 20 20 20 20 20 20 4E 47 31 30 20 31 47 50 0D 0A NG10 1GP..
01CCD0: 2A 0D 0A 2A 20 43 6F 70 79 72 69 67 68 74 20 20 *..* Copyright
01CCE0: 20 43 52 42 20 43 6F 6D 70 75 74 65 72 73 20 4C CRB Computers L
01CCF0: 74 64 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 20 td..*
01CD00: 20 20 4F 63 74 6F 62 65 72 20 31 39 39 30 0D 0A October 1990..
01CD10: 0D 0A 57 68 65 6E 20 75 73 69 6E 67 20 27 2A 27 ..When using '*'
01CD20: 73 20 79 6F 75 20 64 6F 20 6E 6F 74 20 6E 65 65 s you do not nee
01CD30: 64 20 61 20 66 75 6C 6C 20 73 74 6F 70 20 61 74 d a full stop at
01CD40: 20 74 68 65 20 65 6E 64 20 6F 66 20 74 68 65 20 the end of the
01CD50: 6C 69 6E 65 2E 20 49 6E 20 61 6C 6C 0D 0A 6F 74 line. In all..ot
01CD60: 68 65 72 20 63 61 73 65 73 20 61 20 66 75 6C 6C her cases a full
01CD70: 20 73 74 6F 70 20 6D 75 73 74 20 62 65 20 75 73 stop must be us
01CD80: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
01CD90: 20 46 4F 55 52 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FOUR...========
01CDA0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
01CDB0: 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 20 79 6F ogram prompts yo
01CDC0: 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 20 u to enter five
01CDD0: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
01CDE0: 20 74 68 65 20 6E 61 6D 65 73 20 79 6F 75 20 68 the names you h
01CDF0: 61 76 65 0D 0A 65 6E 74 65 72 65 64 20 61 6E 64 ave..entered and
01CE00: 65 72 2E 0D 0A 0D 0A 41 6E 6F 74 68 65 72 20 70 er.....Another p
01CE10: 6F 70 75 6C 61 72 20 71 75 65 73 74 69 6F 6E 20 opular question
01CE20: 77 61 73 20 63 6F 75 6C 64 20 79 6F 75 20 20 75 was could you u
01CE30: 73 65 20 20 61 6E 79 20 77 6F 72 64 20 70 72 6F se any word pro
01CE40: 63 65 73 73 6F 72 20 74 6F 20 70 72 6F 64 75 63 cessor to produc
01CE50: 65 0D 0A 79 6F 75 72 20 43 6F 62 6F 6C 20 74 65 e..your Cobol te
01CE60: 78 74 20 28 73 6F 75 72 63 65 29 20 66 69 6C 65 xt (source) file
01CE70: 73 2C 20 79 65 73 20 20 50 72 6F 74 65 78 74 2C s, yes Protext,
01CE80: 20 54 61 73 77 6F 72 64 2C 20 50 79 72 61 77 6F Tasword, Pyrawo
01CE90: 72 64 20 65 74 63 20 63 61 6E 20 62 65 0D 0A 75 rd etc can be..u
01CEA0: 73 65 64 20 62 75 74 20 74 68 65 20 66 69 6C 65 sed but the file
01CEB0: 20 6D 75 73 74 20 62 65 20 73 61 76 65 64 20 74 must be saved t
01CEC0: 6F 20 20 64 69 73 63 20 20 61 73 20 61 6E 20 61 o disc as an a
01CED0: 73 63 69 69 20 66 69 6C 65 2E 20 4C 69 66 65 20 scii file. Life
01CEE0: 69 73 20 65 61 73 69 65 72 0D 0A 69 66 20 79 6F is easier..if yo
01CEF0: 75 20 75 73 65 20 61 20 77 6F 72 64 20 70 72 6F u use a word pro
01CF00: 63 65 73 73 6F 72 20 77 68 69 63 68 20 20 6F 70 cessor which op
01CF10: 65 72 61 74 65 73 20 75 6E 64 65 72 20 43 50 2F erates under CP/
01CF20: 4D 2B 20 61 73 20 74 68 69 73 20 61 76 6F 69 64 M+ as this avoid
01CF30: 73 20 74 68 65 0D 0A 63 6F 6E 73 74 61 6E 74 20 s the..constant
01CF40: 6E 65 65 64 20 74 6F 20 6B 65 65 70 20 6C 6F 61 need to keep loa
01CF50: 64 69 6E 67 20 43 50 2F 4D 2B 20 74 6F 20 63 6F ding CP/M+ to co
01CF60: 6D 70 69 6C 65 20 61 6E 64 20 74 65 73 74 20 79 mpile and test y
01CF70: 6F 75 72 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A our program.....
01CF80: 53 74 65 76 65 20 61 73 6B 73 2C 20 77 68 65 6E Steve asks, when
01CF90: 20 49 20 20 68 61 76 65 20 20 73 75 63 63 65 73 I have succes
01CFA0: 73 66 75 6C 6C 79 20 20 63 6F 6D 70 69 6C 65 64 sfully compiled
01CFB0: 20 20 61 6E 64 20 20 72 75 6E 20 61 20 70 72 6F and run a pro
01CFC0: 67 72 61 6D 20 77 68 69 63 68 0D 0A 66 69 6C 65 gram which..file
01CFD0: 73 20 64 6F 20 49 20 6E 65 65 64 20 74 6F 20 6B s do I need to k
01CFE0: 65 65 70 3F 20 57 65 6C 6C 20 53 74 65 76 65 2C eep? Well Steve,
01CFF0: 20 20 61 66 74 65 72 20 79 6F 75 20 68 61 76 65 after you have
01D000: 20 74 68 65 6E 20 65 6E 64 73 2E 0D 0A 0D 0A 0D then ends......
01D010: 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 .IDENTIFICATION
01D020: 44 49 56 49 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 DIVISION...PROGR
01D030: 41 4D 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 AM-ID. Example
01D040: 20 46 6F 75 72 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 Four...*..* Thi
01D050: 73 20 70 72 6F 67 72 61 6D 20 70 72 6F 6D 70 74 s program prompt
01D060: 73 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 s you to enter f
01D070: 69 76 65 20 6E 61 6D 65 73 20 61 6E 64 20 74 68 ive names and th
01D080: 65 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 en ends...*..ENV
01D090: 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F IRONMENT DIVISIO
01D0A0: 4E 2E 0D 0A 2A 0D 0A 43 4F 4E 46 49 47 55 52 41 N...*..CONFIGURA
01D0B0: 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 TION SECTION...
01D0C0: 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 SOURCE-COMPUTER
01D0D0: 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D . Amstrad 6128..
01D0E0: 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 . OBJECT-COMPUT
01D0F0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
01D100: 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 ...*..DATA DIVIS
01D110: 49 4F 4E 2E 0D 0A 2A 0D 0A 57 4F 52 4B 49 4E 47 ION...*..WORKING
01D120: 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E -STORAGE SECTION
01D130: 2E 0D 0A 20 20 30 31 20 4E 41 4D 45 20 20 20 20 ... 01 NAME
01D140: 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A 0D 0A 50 PIC X(30)...*..P
01D150: 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F ROCEDURE DIVISIO
01D160: 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 5F 4E 41 4D N...*..ENTER_NAM
01D170: 45 5F 4F 4E 45 2E 0D 0A 20 20 44 49 53 50 4C 41 E_ONE... DISPLA
01D180: 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 20 Y 'Please Enter
01D190: 4E 61 6D 65 20 31 27 2E 0D 0A 20 20 44 49 53 50 Name 1'... DISP
01D1A0: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
01D1B0: 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 PT NAME... DISP
01D1C0: 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E 41 LAY 'Hello! ' NA
01D1D0: 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 ME... DISPLAY '
01D1E0: 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 '...*..ENTER-NA
01D1F0: 4D 45 2D 54 57 4F 2E 0D 0A 20 20 44 49 53 50 4C ME-TWO... DISPL
01D200: 20 63 6F 6D 70 69 6C 65 64 20 61 6E 64 20 72 75 compiled and ru
01D210: 6E 20 79 6F 75 72 0D 0A 70 72 6F 67 72 61 6D 20 n your..program
01D220: 79 6F 75 20 77 69 6C 6C 20 68 61 76 65 20 74 68 you will have th
01D230: 72 65 65 20 66 69 6C 65 73 20 6F 6E 20 79 6F 75 ree files on you
01D240: 72 20 64 69 73 63 2C 0D 0A 0D 0A 20 27 66 69 6C r disc,.... 'fil
01D250: 65 6E 61 6D 65 2E 43 42 4C 27 0D 0A 20 27 66 69 ename.CBL'.. 'fi
01D260: 6C 65 6E 61 6D 65 2E 4C 53 54 27 0D 0A 20 27 66 lename.LST'.. 'f
01D270: 69 6C 65 6E 61 6D 65 2E 43 49 4E 27 0D 0A 0D 0A ilename.CIN'....
01D280: 59 6F 75 20 6E 65 65 64 20 74 68 65 20 2E 43 42 You need the .CB
01D290: 4C 20 61 6E 64 20 74 68 65 20 2E 43 49 4E 20 66 L and the .CIN f
01D2A0: 69 6C 65 73 20 62 75 74 20 79 6F 75 20 63 61 6E iles but you can
01D2B0: 20 65 72 61 73 65 20 74 68 65 20 2E 4C 53 54 20 erase the .LST
01D2C0: 66 69 6C 65 2E 0D 0A 0D 0A 45 72 61 73 69 6E 67 file.....Erasing
01D2D0: 20 66 69 6C 65 73 20 75 73 69 6E 67 20 43 50 2F files using CP/
01D2E0: 4D 20 74 61 6B 65 73 20 74 68 65 20 66 6F 72 6D M takes the form
01D2F0: 61 74 2C 0D 0A 0D 0A 20 45 52 41 20 66 69 6C 65 at,.... ERA file
01D300: 6E 61 6D 65 2E 65 78 74 0D 0A 0D 0A 42 65 20 63 name.ext....Be c
01D310: 61 72 65 66 75 6C 20 77 68 65 6E 20 75 73 69 6E areful when usin
01D320: 67 20 74 68 65 20 45 52 41 73 65 20 63 6F 6D 6D g the ERAse comm
01D330: 61 6E 64 2C 20 79 6F 75 20 61 72 65 20 6E 6F 74 and, you are not
01D340: 20 61 73 6B 65 64 20 74 6F 20 63 6F 6E 66 69 72 asked to confir
01D350: 6D 20 79 6F 75 72 0D 0A 73 65 6C 65 63 74 69 6F m your..selectio
01D360: 6E 2E 0D 0A 0D 0A 0D 0A 4F 4E 20 57 49 54 48 20 n.......ON WITH
01D370: 54 48 45 20 53 48 4F 57 2E 0D 0A 3D 3D 3D 3D 3D THE SHOW...=====
01D380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
01D390: 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 73 74 Last month we st
01D3A0: 61 72 74 65 64 20 20 70 72 6F 67 72 61 6D 6D 69 arted programmi
01D3B0: 6E 67 20 20 69 6E 20 20 43 6F 62 6F 6C 20 20 77 ng in Cobol w
01D3C0: 69 74 68 20 20 74 68 72 65 65 20 73 69 6D 70 6C ith three simpl
01D3D0: 65 20 70 72 6F 67 72 61 6D 73 0D 0A 74 68 65 73 e programs..thes
01D3E0: 65 20 69 6E 74 72 6F 64 75 63 65 64 20 79 6F 75 e introduced you
01D3F0: 20 74 6F 20 74 68 65 20 66 6F 72 6D 61 74 20 20 to the format
01D400: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
01D410: 20 4E 61 6D 65 20 32 27 2E 0D 0A 20 20 44 49 53 Name 2'... DIS
01D420: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 PLAY ' '... ACC
01D430: 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 EPT NAME... DIS
01D440: 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E PLAY 'Hello! ' N
01D450: 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 AME... DISPLAY
01D460: 27 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E ' '...*..ENTER-N
01D470: 41 4D 45 2D 54 48 52 45 45 2E 0D 0A 20 20 44 49 AME-THREE... DI
01D480: 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E SPLAY 'Please En
01D490: 74 65 72 20 4E 61 6D 65 20 33 27 2E 0D 0A 20 20 ter Name 3'...
01D4A0: 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 DISPLAY ' '...
01D4B0: 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 ACCEPT NAME...
01D4C0: 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 DISPLAY 'Hello!
01D4D0: 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C ' NAME... DISPL
01D4E0: 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 AY ' '...*..ENTE
01D4F0: 52 2D 4E 41 4D 45 2D 46 4F 55 52 2E 0D 0A 20 20 R-NAME-FOUR...
01D500: 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 DISPLAY 'Please
01D510: 45 6E 74 65 72 20 4E 61 6D 65 20 34 27 2E 0D 0A Enter Name 4'...
01D520: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
01D530: 20 20 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A ACCEPT NAME...
01D540: 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F DISPLAY 'Hello
01D550: 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 ! ' NAME... DIS
01D560: 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 45 4E PLAY ' '...*..EN
01D570: 54 45 52 2D 4E 41 4D 45 2D 46 49 56 45 2E 0D 0A TER-NAME-FIVE...
01D580: 20 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 DISPLAY 'Pleas
01D590: 65 20 45 6E 74 65 72 20 4E 61 6D 65 20 35 27 2E e Enter Name 5'.
01D5A0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E .. DISPLAY ' '.
01D5B0: 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 4D 45 2E .. ACCEPT NAME.
01D5C0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C .. DISPLAY 'Hel
01D5D0: 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 lo! ' NAME... D
01D5E0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A ISPLAY ' '...*..
01D5F0: 54 48 45 2D 45 4E 44 2E 0D 0A 20 20 53 54 4F 50 THE-END... STOP
01D600: 74 68 61 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 that Cobol progr
01D610: 61 6D 73 20 66 6F 6C 6C 6F 77 2E 20 54 68 69 73 ams follow. This
01D620: 20 6D 6F 6E 74 68 0D 0A 77 69 6C 6C 20 63 6F 6E month..will con
01D630: 74 69 6E 75 65 20 61 6C 6F 6E 67 20 74 68 65 20 tinue along the
01D640: 73 61 6D 65 20 20 6C 69 6E 65 73 20 20 62 79 20 same lines by
01D650: 20 69 6E 74 72 6F 64 75 63 69 6E 67 20 20 79 6F introducing yo
01D660: 75 20 74 6F 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 u to new command
01D670: 73 2C 0D 0A 65 61 63 68 20 6F 66 20 77 68 69 63 s,..each of whic
01D680: 68 20 77 69 6C 6C 20 62 65 20 69 6C 6C 75 73 74 h will be illust
01D690: 72 61 74 65 64 20 77 69 74 68 20 20 61 6E 20 65 rated with an e
01D6A0: 78 61 6D 70 6C 65 20 70 72 6F 67 72 61 6D 20 73 xample program s
01D6B0: 6F 20 74 68 61 74 20 79 6F 75 20 63 61 6E 0D 0A o that you can..
01D6C0: 73 65 65 20 77 68 61 74 20 74 68 65 20 63 6F 6D see what the com
01D6D0: 6D 61 6E 64 20 64 6F 65 73 2E 0D 0A 0D 0A 49 20 mand does.....I
01D6E0: 66 69 6E 64 20 74 68 61 74 20 74 68 65 20 65 61 find that the ea
01D6F0: 73 69 65 73 74 20 20 6D 65 74 68 6F 64 20 20 6F siest method o
01D700: 66 20 20 6C 65 61 72 6E 69 6E 67 20 20 61 20 20 f learning a
01D710: 6E 65 77 20 6C 61 6E 67 75 61 67 65 20 69 73 20 new language is
01D720: 74 6F 20 77 72 69 74 65 0D 0A 73 69 6D 70 6C 65 to write..simple
01D730: 20 70 72 6F 67 72 61 6D 73 20 74 6F 20 63 68 65 programs to che
01D740: 63 6B 20 74 68 65 20 73 79 6E 74 61 78 20 6F 66 ck the syntax of
01D750: 20 63 6F 6D 6D 61 6E 64 73 20 61 6E 64 20 74 6F commands and to
01D760: 20 73 65 65 20 77 68 61 74 20 74 68 65 20 64 6F see what the do
01D770: 2E 0D 0A 0D 0A 0D 0A 54 48 45 20 49 44 45 4E 54 .......THE IDENT
01D780: 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 IFICATION DIVISI
01D790: 4F 4E 2E 0D 0A 0D 0A 54 68 65 20 66 6F 72 6D 61 ON.....The forma
01D7A0: 74 20 66 6F 72 20 74 68 65 20 69 64 65 6E 74 69 t for the identi
01D7B0: 66 69 63 61 74 69 6F 6E 20 64 69 76 69 73 69 6F fication divisio
01D7C0: 6E 20 69 73 2C 0D 0A 0D 0A 49 44 45 4E 54 49 46 n is,....IDENTIF
01D7D0: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
01D7E0: 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E ... PROGRAM-ID.
01D7F0: 20 5B 20 63 6F 6D 6D 65 6E 74 73 2E 5D 0D 0A 20 [ comments.]..
01D800: 20 52 55 4E 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D RUN.....Program
01D810: 20 4E 6F 74 65 73 3A 0D 0A 0D 0A 54 68 69 73 20 Notes:....This
01D820: 77 6F 72 6B 73 20 62 75 74 20 69 73 20 74 69 6D works but is tim
01D830: 65 20 63 6F 6E 73 75 6D 69 6E 67 20 74 6F 20 77 e consuming to w
01D840: 72 69 74 65 20 20 61 6E 64 20 64 65 62 75 67 2C rite and debug,
01D850: 20 73 6F 20 6C 65 74 73 20 6C 6F 6F 6B 20 61 74 so lets look at
01D860: 20 77 61 79 73 0D 0A 69 6E 20 77 68 69 63 68 20 ways..in which
01D870: 74 68 65 20 70 72 6F 67 72 61 6D 20 63 61 6E 20 the program can
01D880: 62 65 20 69 6D 70 72 6F 76 65 64 2E 0D 0A 0D 0A be improved.....
01D890: 0D 0A 50 52 4F 47 52 41 4D 20 46 49 56 45 2E 0D ..PROGRAM FIVE..
01D8A0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
01D8B0: 0D 0A 54 6F 20 69 6D 70 72 6F 76 65 20 70 72 6F ..To improve pro
01D8C0: 67 72 61 6D 20 66 6F 75 72 20 77 65 20 73 65 74 gram four we set
01D8D0: 20 75 70 20 20 61 20 20 63 6F 75 6E 74 65 72 20 up a counter
01D8E0: 74 6F 20 63 6F 75 6E 74 20 74 68 65 20 6E 75 6D to count the num
01D8F0: 62 65 72 20 6F 66 20 6E 61 6D 65 73 0D 0A 65 6E ber of names..en
01D900: 74 65 72 65 64 2C 20 61 6E 64 20 20 75 73 65 20 tered, and use
01D910: 61 20 73 75 62 72 6F 75 74 69 6E 65 20 66 6F 72 a subroutine for
01D920: 20 74 68 65 20 20 63 6F 6D 6D 6F 6E 20 70 61 72 the common par
01D930: 74 73 20 6F 66 20 74 68 65 20 70 72 6F 67 72 61 ts of the progra
01D940: 6D 2E 20 54 6F 20 64 6F 0D 0A 74 68 69 73 20 77 m. To do..this w
01D950: 65 20 6E 65 65 64 20 74 6F 20 75 73 65 20 74 68 e need to use th
01D960: 72 65 65 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 73 ree new commands
01D970: 2C 20 74 68 65 73 65 20 61 72 65 2C 20 41 44 44 , these are, ADD
01D980: 2C 20 4D 4F 56 45 20 61 6E 64 20 50 45 52 46 4F , MOVE and PERFO
01D990: 52 4D 2E 0D 0A 0D 0A 41 44 44 20 64 6F 65 73 20 RM.....ADD does
01D9A0: 61 73 20 69 74 73 20 6E 61 6D 65 20 73 75 67 67 as its name sugg
01D9B0: 65 73 74 20 69 74 20 61 64 64 73 20 61 20 76 61 est it adds a va
01D9C0: 6C 75 65 20 74 6F 20 61 6E 20 69 64 65 6E 74 69 lue to an identi
01D9D0: 66 69 65 72 20 28 76 61 72 69 61 62 6C 65 29 2E fier (variable).
01D9E0: 0D 0A 0D 0A 4D 4F 56 45 20 69 73 20 73 69 6D 69 ....MOVE is simi
01D9F0: 6C 61 72 20 74 6F 20 4C 45 54 20 20 69 6E 20 20 lar to LET in
01DA00: 5B 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 63 [AUTHOR. c
01DA10: 6F 6D 6D 65 6E 74 73 2E 5D 0D 0A 20 5B 44 41 54 omments.].. [DAT
01DA20: 45 2D 57 52 49 54 54 45 4E 2E 20 63 6F 6D 6D 65 E-WRITTEN. comme
01DA30: 6E 74 73 2E 5D 0D 0A 20 5B 53 45 43 55 52 49 54 nts.].. [SECURIT
01DA40: 59 2E 20 20 20 20 20 63 6F 6D 6D 65 6E 74 73 2E Y. comments.
01DA50: 5D 0D 0A 0D 0A 54 68 6F 73 65 20 63 6F 6D 6D 61 ]....Those comma
01DA60: 6E 64 73 20 77 68 69 63 68 20 61 72 65 20 6F 70 nds which are op
01DA70: 74 69 6F 6E 61 6C 20 20 68 61 76 65 20 20 62 65 tional have be
01DA80: 65 6E 20 69 64 65 6E 74 69 66 69 65 64 20 62 79 en identified by
01DA90: 20 65 6E 63 6C 6F 73 69 6E 67 20 74 68 65 6D 0D enclosing them.
01DAA0: 0A 77 69 74 68 69 6E 20 73 71 75 61 72 65 20 62 .within square b
01DAB0: 72 61 63 6B 65 74 73 20 5B 5D 2E 0D 0A 0D 0A 54 rackets [].....T
01DAC0: 68 65 20 66 75 6C 6C 20 73 74 6F 70 73 20 61 72 he full stops ar
01DAD0: 65 20 65 73 73 65 6E 74 69 61 6C 2E 0D 0A 0D 0A e essential.....
01DAE0: 54 68 65 20 69 64 65 6E 74 69 66 69 63 61 74 69 The identificati
01DAF0: 6F 6E 20 64 69 76 69 73 69 6F 6E 20 70 72 6F 76 on division prov
01DB00: 69 64 65 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E ides information
01DB10: 20 20 6F 6E 20 74 68 65 20 70 72 6F 67 72 61 6D on the program
01DB20: 20 69 64 65 6E 74 69 74 79 2C 0D 0A 61 6E 64 20 identity,..and
01DB30: 69 74 20 69 73 20 67 6F 6F 64 20 70 72 6F 67 72 it is good progr
01DB40: 61 6D 6D 69 6E 67 20 70 72 61 63 74 69 63 65 20 amming practice
01DB50: 74 6F 20 63 6F 6D 70 6C 65 74 65 20 74 68 69 73 to complete this
01DB60: 20 73 65 63 74 69 6F 6E 2E 0D 0A 0D 0A 49 66 20 section.....If
01DB70: 79 6F 75 20 77 69 73 68 20 74 6F 20 69 6E 63 6C you wish to incl
01DB80: 75 64 65 20 20 64 65 74 61 69 6C 65 64 20 20 63 ude detailed c
01DB90: 6F 6D 6D 65 6E 74 73 20 20 74 68 65 6E 20 20 79 omments then y
01DBA0: 6F 75 20 20 63 61 6E 20 20 70 6C 61 63 65 20 61 ou can place a
01DBB0: 20 27 2A 27 20 69 6E 0D 0A 63 6F 6C 75 6D 6E 20 '*' in..column
01DBC0: 6F 6E 65 2C 20 74 68 69 73 20 63 61 75 73 65 73 one, this causes
01DBD0: 20 74 68 65 20 72 65 73 74 20 6F 66 20 74 68 65 the rest of the
01DBE0: 20 6C 69 6E 65 20 74 6F 20 62 65 20 74 72 65 61 line to be trea
01DBF0: 74 65 64 20 61 73 20 63 6F 6D 6D 65 6E 74 73 2E ted as comments.
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 01 00 02 09 52 E5 19 00 C1 02 00 00 00 02 ......R.........
01DC20: 19 00 C6 02 00 00 00 02 19 00 C2 02 00 00 00 02 ................
01DC30: 19 00 C7 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC40: 19 00 C8 02 00 00 00 02 19 00 C4 02 00 00 00 02 ................
01DC50: 19 00 C9 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 42 61 73 69 63 2C 20 20 74 68 65 20 20 63 6F 6D Basic, the com
01DD10: 6D 61 6E 64 20 20 6D 6F 76 65 73 20 61 20 76 61 mand moves a va
01DD20: 6C 75 65 20 6F 72 20 6C 69 74 65 72 61 6C 0D 0A lue or literal..
01DD30: 28 73 74 72 69 6E 67 29 20 69 6E 74 6F 20 61 6E (string) into an
01DD40: 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A identifier.....
01DD50: 50 45 52 46 4F 52 4D 20 69 73 20 73 69 6D 69 6C PERFORM is simil
01DD60: 61 72 20 74 6F 20 47 4F 53 55 42 20 69 6E 20 42 ar to GOSUB in B
01DD70: 61 73 69 63 2C 20 61 6E 64 20 61 6C 6C 6F 77 73 asic, and allows
01DD80: 20 79 6F 75 20 74 6F 20 72 65 70 65 61 74 20 61 you to repeat a
01DD90: 20 70 72 6F 63 65 64 75 72 65 0D 0A 28 70 61 72 procedure..(par
01DDA0: 61 67 72 61 70 68 29 2E 0D 0A 0D 0A 54 68 65 20 agraph).....The
01DDB0: 72 65 76 69 73 65 64 20 70 72 6F 67 72 61 6D 20 revised program
01DDC0: 73 65 74 73 20 75 70 20 61 20 63 6F 75 6E 74 20 sets up a count
01DDD0: 20 72 6F 75 74 69 6E 65 20 20 77 68 69 63 68 20 routine which
01DDE0: 77 69 6C 6C 20 61 6C 6C 6F 77 20 74 68 65 20 75 will allow the u
01DDF0: 73 65 72 20 74 6F 0D 0A 65 6E 74 65 72 20 66 69 ser to..enter fi
01DE00: 76 65 20 6E 61 6D 65 73 20 62 65 66 6F 72 65 20 ve names before
01DE10: 74 68 65 20 70 72 6F 67 72 61 6D 20 74 65 72 6D the program term
01DE20: 69 6E 61 74 65 73 2E 0D 0A 0D 0A 0D 0A 49 44 45 inates.......IDE
01DE30: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
01DE40: 53 49 4F 4E 2E 0D 0A 20 20 50 52 4F 47 52 41 4D SION... PROGRAM
01DE50: 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 46 -ID. Example F
01DE60: 69 76 65 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 ive...*..* This
01DE70: 70 72 6F 67 72 61 6D 20 61 6C 6C 6F 77 73 20 79 program allows y
01DE80: 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 ou to enter five
01DE90: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
01DEA0: 20 74 68 65 20 6E 61 6D 65 20 74 68 65 6E 20 65 the name then e
01DEB0: 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E nds...*..ENVIRON
01DEC0: 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A MENT DIVISION...
01DED0: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 CONFIGURATION SE
01DEE0: 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 CTION... SOURCE
01DEF0: 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 -COMPUTER. Amstr
01DF00: 61 72 65 20 20 73 74 69 6C 6C 20 20 75 73 65 64 are still used
01DF10: 20 20 62 75 74 20 20 6E 6F 77 20 68 61 76 65 20 but now have
01DF20: 6E 6F 20 65 66 66 65 63 74 20 6F 6E 20 68 6F 77 no effect on how
01DF30: 0D 0A 6D 61 6E 79 20 74 69 6D 65 73 20 74 68 65 ..many times the
01DF40: 20 70 72 6F 63 65 64 75 72 65 20 69 73 20 63 6F procedure is co
01DF50: 6D 70 6C 65 74 65 64 2E 0D 0A 0D 0A 0D 0A 4C 45 mpleted.......LE
01DF60: 56 45 4C 20 4E 55 4D 42 45 52 53 2E 0D 0A 3D 3D VEL NUMBERS...==
01DF70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
01DF80: 4C 45 46 54 24 2C 20 52 49 47 48 54 24 20 61 6E LEFT$, RIGHT$ an
01DF90: 64 20 4D 49 44 24 20 61 72 65 20 75 73 65 64 20 d MID$ are used
01DFA0: 74 6F 20 20 73 70 6C 69 74 20 76 61 72 69 61 62 to split variab
01DFB0: 6C 65 73 20 69 6E 20 42 61 73 69 63 2C 20 64 6F les in Basic, do
01DFC0: 6E 27 74 20 74 72 79 20 74 6F 0D 0A 75 73 65 20 n't try to..use
01DFD0: 74 68 65 73 65 20 69 6E 20 61 20 43 6F 62 6F 6C these in a Cobol
01DFE0: 20 70 72 6F 67 72 61 6D 20 74 68 65 79 20 77 69 program they wi
01DFF0: 6C 6C 20 6E 6F 74 20 77 6F 72 6B 2E 0D 0A 0D 0A ll not work.....
01E000: 41 6E 20 69 64 65 6E 74 69 66 69 65 72 20 28 76 An identifier (v
01E010: 61 72 69 61 62 6C 65 29 20 20 69 6E 20 20 43 6F ariable) in Co
01E020: 62 6F 6C 20 20 69 73 20 20 64 65 63 6C 61 72 65 bol is declare
01E030: 64 20 20 61 6E 64 20 20 64 69 6D 65 6E 73 69 6F d and dimensio
01E040: 6E 65 64 20 69 6E 20 74 68 65 0D 0A 57 4F 52 4B ned in the..WORK
01E050: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
01E060: 49 4F 4E 20 6F 66 20 74 68 65 20 70 72 6F 67 72 ION of the progr
01E070: 61 6D 20 61 73 2C 0D 0A 0D 0A 30 31 20 4E 41 4D am as,....01 NAM
01E080: 45 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A E PIC X(30)...
01E090: 0D 0A 54 6F 20 73 70 6C 69 74 20 74 68 65 20 76 ..To split the v
01E0A0: 61 6C 75 65 20 65 6E 74 65 72 65 64 20 77 65 20 alue entered we
01E0B0: 75 73 65 20 64 69 66 66 65 72 65 6E 74 20 6C 65 use different le
01E0C0: 76 65 6C 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A vel numbers.....
01E0D0: 30 31 20 4E 41 4D 45 2E 0D 0A 20 20 30 33 20 4E 01 NAME... 03 N
01E0E0: 41 4D 45 2D 41 20 20 50 49 43 20 58 28 31 30 29 AME-A PIC X(10)
01E0F0: 2E 0D 0A 20 20 30 33 20 4E 41 4D 45 2D 42 20 20 ... 03 NAME-B
01E100: 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 ad 6128... OBJE
01E110: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
01E120: 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 trad 6128...*..D
01E130: 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 ATA DIVISION...W
01E140: 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 ORKING-STORAGE S
01E150: 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 4E 41 4D 45 ECTION...01 NAME
01E160: 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A PIC X(30)...
01E170: 30 31 20 43 4F 55 4E 54 20 20 20 50 49 43 20 39 01 COUNT PIC 9
01E180: 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 ...*..PROCEDURE
01E190: 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A 53 54 DIVISION...*..ST
01E1A0: 41 52 54 2E 0D 0A 20 20 4D 4F 56 45 20 30 20 54 ART... MOVE 0 T
01E1B0: 4F 20 43 4F 55 4E 54 2E 0D 0A 20 20 44 49 53 50 O COUNT... DISP
01E1C0: 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 LAY 'Please Ente
01E1D0: 72 20 35 20 4E 61 6D 65 73 27 2E 0D 0A 20 20 44 r 5 Names'... D
01E1E0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 50 ISPLAY ' '... P
01E1F0: 45 52 46 4F 52 4D 20 45 4E 54 45 52 2D 4E 41 4D ERFORM ENTER-NAM
01E200: 45 20 55 4E 54 49 4C 20 43 4F 55 4E 54 20 45 51 E UNTIL COUNT EQ
01E210: 55 41 4C 20 35 2E 0D 0A 20 20 53 54 4F 50 20 52 UAL 5... STOP R
01E220: 55 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 UN...*..ENTER-NA
01E230: 4D 45 2E 0D 0A 20 20 41 44 44 20 31 20 54 4F 20 ME... ADD 1 TO
01E240: 43 4F 55 4E 54 2E 0D 0A 20 20 44 49 53 50 4C 41 COUNT... DISPLA
01E250: 59 20 27 4E 61 6D 65 20 27 20 43 4F 55 4E 54 2E Y 'Name ' COUNT.
01E260: 0D 0A 20 20 41 43 43 45 50 54 20 20 4E 41 4D 45 .. ACCEPT NAME
01E270: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 48 65 ... DISPLAY 'He
01E280: 6C 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 llo! ' NAME...
01E290: 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 0D 0A DISPLAY ' '.....
01E2A0: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
01E2B0: 0D 0A 54 68 65 20 4D 4F 56 45 20 63 6F 6D 6D 61 ..The MOVE comma
01E2C0: 6E 64 20 20 69 73 20 20 75 73 65 64 20 20 74 6F nd is used to
01E2D0: 20 20 69 6E 69 74 69 61 6C 69 73 65 20 20 74 68 initialise th
01E2E0: 65 20 20 76 61 6C 75 65 20 20 6F 66 20 20 74 68 e value of th
01E2F0: 65 20 69 64 65 6E 74 69 66 69 65 72 0D 0A 28 76 e identifier..(v
01E300: 50 49 43 20 58 28 32 30 29 2E 0D 0A 0D 0A 57 68 PIC X(20).....Wh
01E310: 65 72 65 20 30 31 20 61 6E 64 20 30 33 20 61 72 ere 01 and 03 ar
01E320: 65 20 74 68 65 20 6C 65 76 65 6C 20 6E 75 6D 62 e the level numb
01E330: 65 72 73 2C 20 77 65 20 63 61 6E 20 6E 6F 77 20 ers, we can now
01E340: 75 73 65 2C 0D 0A 0D 0A 44 49 53 50 4C 41 59 20 use,....DISPLAY
01E350: 4E 41 4D 45 2E 0D 0A 0D 0A 54 68 69 73 20 64 69 NAME.....This di
01E360: 73 70 6C 61 79 73 20 61 6C 6C 20 6F 66 20 74 68 splays all of th
01E370: 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 74 68 e contents of th
01E380: 65 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A 0D e identifier....
01E390: 0A 4F 72 20 77 65 20 63 61 6E 20 75 73 65 2C 0D .Or we can use,.
01E3A0: 0A 0D 0A 44 49 53 50 4C 41 59 20 4E 41 4D 45 2D ...DISPLAY NAME-
01E3B0: 41 2E 0D 0A 0D 0A 54 68 69 73 20 64 69 73 70 6C A.....This displ
01E3C0: 61 79 73 20 74 68 65 20 66 69 72 73 74 20 31 30 ays the first 10
01E3D0: 20 62 79 74 65 73 20 6F 66 20 74 68 65 20 63 6F bytes of the co
01E3E0: 6E 74 65 6E 74 73 20 68 65 6C 64 20 69 6E 20 74 ntents held in t
01E3F0: 68 65 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A he identifier...
01E400: 0D 0A 4F 72 20 77 65 20 63 61 6E 20 75 73 65 2C ..Or we can use,
01E410: 0D 0A 0D 0A 44 49 53 50 4C 41 59 20 4E 41 4D 45 ....DISPLAY NAME
01E420: 2D 42 2E 0D 0A 0D 0A 54 68 65 20 64 69 73 70 6C -B.....The displ
01E430: 61 79 73 20 74 68 65 20 63 6F 6E 74 65 6E 74 73 ays the contents
01E440: 20 6F 66 20 74 68 65 20 6C 61 73 74 20 32 30 20 of the last 20
01E450: 62 79 74 65 73 20 6F 66 20 74 68 65 20 69 64 65 bytes of the ide
01E460: 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A 59 6F 75 20 ntifier.....You
01E470: 6D 61 79 20 75 73 65 20 31 30 20 64 69 66 66 65 may use 10 diffe
01E480: 72 65 6E 74 20 6C 65 76 65 6C 20 20 6E 75 6D 62 rent level numb
01E490: 65 72 73 2C 20 20 65 61 63 68 20 6C 65 76 65 6C ers, each level
01E4A0: 20 6E 75 6D 62 65 72 20 63 61 6E 20 72 61 6E 67 number can rang
01E4B0: 65 20 66 72 6F 6D 0D 0A 30 31 20 74 6F 20 20 39 e from..01 to 9
01E4C0: 39 2C 20 61 6C 74 68 6F 75 67 68 20 69 6E 20 70 9, although in p
01E4D0: 72 61 63 74 69 63 65 20 20 49 20 20 68 61 76 65 ractice I have
01E4E0: 20 20 6E 65 76 65 72 20 75 73 65 64 20 6D 6F 72 never used mor
01E4F0: 65 20 74 68 61 6E 20 35 20 64 69 66 66 65 72 65 e than 5 differe
01E500: 61 72 69 61 62 6C 65 29 20 63 6F 75 6E 74 2E 0D ariable) count..
01E510: 0A 0D 0A 54 68 65 20 50 45 52 46 4F 52 4D 20 20 ...The PERFORM
01E520: 63 6F 6D 6D 61 6E 64 20 20 69 6E 73 74 72 75 63 command instruc
01E530: 74 73 20 20 74 68 65 20 20 70 72 6F 67 72 61 6D ts the program
01E540: 20 20 74 6F 20 20 63 6F 6D 70 6C 65 74 65 20 20 to complete
01E550: 74 68 65 20 70 72 6F 63 65 64 75 72 65 0D 0A 28 the procedure..(
01E560: 70 61 72 61 67 72 61 70 68 29 20 63 61 6C 6C 65 paragraph) calle
01E570: 64 20 45 4E 54 45 52 2D 4E 41 4D 45 20 75 6E 74 d ENTER-NAME unt
01E580: 69 6C 20 20 74 68 65 20 20 76 61 6C 75 65 20 20 il the value
01E590: 6F 66 20 74 68 65 20 69 64 65 6E 74 69 66 69 65 of the identifie
01E5A0: 72 20 72 65 61 63 68 65 73 0D 0A 74 68 65 20 73 r reaches..the s
01E5B0: 70 65 63 69 66 69 65 64 20 76 61 6C 75 65 2E 20 pecified value.
01E5C0: 49 6E 20 74 68 69 73 20 63 61 73 65 20 74 68 65 In this case the
01E5D0: 20 76 61 6C 75 65 20 69 73 20 73 65 74 20 74 6F value is set to
01E5E0: 20 35 2E 0D 0A 0D 0A 54 68 65 20 41 44 44 20 63 5.....The ADD c
01E5F0: 6F 6D 6D 61 6E 64 20 69 73 20 75 73 65 64 20 74 ommand is used t
01E600: 6F 20 20 61 64 64 20 20 31 20 20 74 6F 20 20 74 o add 1 to t
01E610: 68 65 20 20 69 64 65 6E 74 69 66 69 65 72 20 65 he identifier e
01E620: 61 63 68 20 74 69 6D 65 20 74 68 61 74 20 74 68 ach time that th
01E630: 65 0D 0A 70 72 6F 63 65 64 75 72 65 20 69 73 20 e..procedure is
01E640: 70 65 72 66 6F 72 6D 65 64 20 74 68 69 73 20 61 performed this a
01E650: 63 74 73 20 61 73 20 61 20 63 6F 75 6E 74 65 72 cts as a counter
01E660: 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 53 .......PROGRAM S
01E670: 49 58 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D IX...===========
01E680: 3D 0D 0A 0D 0A 57 65 20 63 61 6E 20 75 73 65 20 =....We can use
01E690: 61 20 76 61 72 69 61 74 69 6F 6E 20 6F 66 20 74 a variation of t
01E6A0: 68 65 20 50 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 he PERFORM comma
01E6B0: 6E 64 20 74 6F 20 6F 62 74 61 69 6E 20 74 68 65 nd to obtain the
01E6C0: 20 73 61 6D 65 20 72 65 73 75 6C 74 73 2E 0D 0A same results...
01E6D0: 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F 4E ..IDENTIFICATION
01E6E0: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 50 52 DIVISION... PR
01E6F0: 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 61 6D OGRAM-ID. Exam
01E700: 6E 74 0D 0A 6C 65 76 65 6C 73 20 74 6F 20 73 75 nt..levels to su
01E710: 62 2D 64 69 76 69 64 65 20 61 6E 20 69 64 65 6E b-divide an iden
01E720: 74 69 66 69 65 72 2E 0D 0A 0D 0A 41 20 74 79 70 tifier.....A typ
01E730: 69 63 61 6C 20 65 78 61 6D 70 6C 65 2C 0D 0A 0D ical example,...
01E740: 0A 30 31 20 54 4F 54 41 4C 2D 52 45 43 4F 52 44 .01 TOTAL-RECORD
01E750: 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 20 20 20 ... 03 NAME
01E760: 20 20 20 20 20 20 50 49 43 20 58 28 33 30 29 2E PIC X(30).
01E770: 0D 0A 20 20 20 30 33 20 41 44 44 52 45 53 53 2E .. 03 ADDRESS.
01E780: 0D 0A 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D .. 05 LINE-
01E790: 31 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 1 PIC X(30)..
01E7A0: 0A 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D 32 . 05 LINE-2
01E7B0: 20 20 20 20 50 49 43 20 58 28 33 30 29 3E 0D 0A PIC X(30)>..
01E7C0: 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D 33 20 05 LINE-3
01E7D0: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
01E7E0: 20 20 30 33 20 50 4F 53 54 2D 43 4F 44 45 20 20 03 POST-CODE
01E7F0: 20 20 50 49 43 20 58 28 31 30 29 2E 0D 0A 20 20 PIC X(10)...
01E800: 20 30 33 20 50 48 4F 4E 45 20 20 20 20 20 20 20 03 PHONE
01E810: 20 50 49 43 20 39 28 36 29 2E 0D 0A 20 20 20 30 PIC 9(6)... 0
01E820: 33 20 44 2D 4F 46 2D 42 20 20 20 20 20 20 20 50 3 D-OF-B P
01E830: 49 43 20 39 28 36 29 2E 0D 0A 20 20 20 30 33 20 IC 9(6)... 03
01E840: 41 47 45 20 20 20 20 20 20 20 20 20 20 50 49 43 AGE PIC
01E850: 20 39 28 33 29 2E 0D 0A 20 20 20 30 33 20 44 41 9(3)... 03 DA
01E860: 54 45 2D 53 54 41 52 54 20 20 20 50 49 43 20 39 TE-START PIC 9
01E870: 28 36 29 2E 0D 0A 0D 0A 57 65 20 63 61 6E 20 6E (6).....We can n
01E880: 6F 77 20 72 65 66 65 72 20 74 6F 20 69 6E 64 69 ow refer to indi
01E890: 76 69 64 75 61 6C 20 69 64 65 6E 74 69 66 69 65 vidual identifie
01E8A0: 72 73 20 6F 72 20 74 6F 20 74 68 65 20 77 68 6F rs or to the who
01E8B0: 6C 65 20 72 65 63 6F 72 64 20 77 69 74 68 3A 0D le record with:.
01E8C0: 0A 0D 0A 44 49 53 50 4C 41 59 20 54 4F 54 41 4C ...DISPLAY TOTAL
01E8D0: 2D 52 45 43 4F 52 44 2E 20 20 20 6F 72 20 20 20 -RECORD. or
01E8E0: 44 49 53 50 4C 41 59 20 41 47 45 2E 0D 0A 0D 0A DISPLAY AGE.....
01E8F0: 49 74 20 69 73 20 73 74 61 6E 64 61 72 64 20 70 It is standard p
01E900: 70 6C 65 20 53 69 78 2E 0D 0A 2A 0D 0A 2A 20 54 ple Six...*..* T
01E910: 68 69 73 20 70 72 6F 67 72 61 6D 20 61 6C 6C 6F his program allo
01E920: 77 73 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 ws you to enter
01E930: 66 69 76 65 20 6E 61 6D 65 73 2C 20 64 69 73 70 five names, disp
01E940: 6C 61 79 73 20 74 68 65 20 6E 61 6D 65 20 74 68 lays the name th
01E950: 65 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 en ends...*..ENV
01E960: 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F IRONMENT DIVISIO
01E970: 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F N...CONFIGURATIO
01E980: 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F N SECTION... SO
01E990: 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 URCE-COMPUTER. A
01E9A0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 mstrad 6128...
01E9B0: 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E OBJECT-COMPUTER.
01E9C0: 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A Amstrad 6128...
01E9D0: 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E *..DATA DIVISION
01E9E0: 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 ...WORKING-STORA
01E9F0: 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 GE SECTION...01
01EA00: 4E 41 4D 45 20 20 20 20 50 49 43 20 58 28 33 30 NAME PIC X(30
01EA10: 29 2E 0D 0A 30 31 20 43 4F 55 4E 54 20 20 20 50 )...01 COUNT P
01EA20: 49 43 20 39 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 IC 9...*..PROCED
01EA30: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
01EA40: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 4D 4F 56 45 ..START... MOVE
01EA50: 20 30 20 54 4F 20 43 4F 55 4E 54 2E 0D 0A 20 20 0 TO COUNT...
01EA60: 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 DISPLAY 'Please
01EA70: 45 6E 74 65 72 20 35 20 4E 61 6D 65 73 27 2E 0D Enter 5 Names'..
01EA80: 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D . DISPLAY ' '..
01EA90: 0A 20 20 50 45 52 46 4F 52 4D 20 45 4E 54 45 52 . PERFORM ENTER
01EAA0: 2D 4E 41 4D 45 20 35 20 54 49 4D 45 53 2E 0D 0A -NAME 5 TIMES...
01EAB0: 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 2A 0D 0A STOP RUN...*..
01EAC0: 45 4E 54 45 52 2D 4E 41 4D 45 2E 0D 0A 20 20 41 ENTER-NAME... A
01EAD0: 44 44 20 31 20 54 4F 20 43 4F 55 4E 54 2E 0D 0A DD 1 TO COUNT...
01EAE0: 20 20 44 49 53 50 4C 41 59 20 27 4E 61 6D 65 20 DISPLAY 'Name
01EAF0: 27 20 43 4F 55 4E 54 2E 0D 0A 20 20 41 43 43 45 ' COUNT... ACCE
01EB00: 72 61 63 74 69 63 65 20 74 6F 20 20 75 73 65 20 ractice to use
01EB10: 20 6C 65 76 65 6C 20 20 6E 75 6D 62 65 72 73 20 level numbers
01EB20: 20 30 31 2C 20 20 30 33 2C 20 20 30 35 20 65 74 01, 03, 05 et
01EB30: 63 2E 20 61 73 20 74 68 69 73 0D 0A 61 6C 6C 6F c. as this..allo
01EB40: 77 73 20 79 6F 75 20 74 6F 20 61 64 64 20 6E 65 ws you to add ne
01EB50: 77 20 6C 65 76 65 6C 73 20 61 74 20 61 20 6C 61 w levels at a la
01EB60: 74 65 72 20 64 61 74 65 2E 0D 0A 0D 0A 0D 0A 50 ter date.......P
01EB70: 49 43 54 55 52 45 20 43 4C 41 55 53 45 53 2E 0D ICTURE CLAUSES..
01EB80: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
01EB90: 3D 0D 0A 0D 0A 54 68 65 20 50 49 43 20 63 6C 61 =....The PIC cla
01EBA0: 75 73 65 20 69 73 20 75 73 65 64 20 74 6F 20 64 use is used to d
01EBB0: 69 6D 65 6E 73 69 6F 6E 20 74 68 65 20 69 64 65 imension the ide
01EBC0: 6E 74 69 66 69 65 72 20 74 6F 20 61 20 73 70 65 ntifier to a spe
01EBD0: 63 69 66 69 63 20 6E 75 6D 62 65 72 20 6F 66 0D cific number of.
01EBE0: 0A 62 79 74 65 73 2C 20 61 6E 64 20 74 6F 20 64 .bytes, and to d
01EBF0: 65 63 6C 61 72 65 20 74 68 65 20 76 61 72 69 61 eclare the varia
01EC00: 62 6C 65 20 61 73 20 65 69 74 68 65 72 20 6E 75 ble as either nu
01EC10: 6D 65 72 69 63 20 6F 72 20 61 6C 70 68 61 20 6E meric or alpha n
01EC20: 75 6D 65 72 69 63 2E 0D 0A 0D 0A 50 49 43 20 39 umeric.....PIC 9
01EC30: 20 69 73 20 6E 75 6D 65 72 69 63 2E 0D 0A 0D 0A is numeric.....
01EC40: 50 49 43 20 58 20 69 73 20 61 6C 70 68 61 20 6E PIC X is alpha n
01EC50: 75 6D 65 72 69 63 20 28 73 74 72 69 6E 67 29 2E umeric (string).
01EC60: 0D 0A 0D 0A 72 61 74 68 65 72 20 74 68 61 6E 20 ....rather than
01EC70: 77 72 69 74 69 6E 67 2C 0D 0A 0D 0A 50 49 43 20 writing,....PIC
01EC80: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 2E XXXXXXXXXXXXXXX.
01EC90: 0D 0A 0D 0A 77 65 20 63 61 6E 20 75 73 65 2C 0D ....we can use,.
01ECA0: 0A 0D 0A 50 49 43 20 58 28 31 35 29 2E 0D 0A 0D ...PIC X(15)....
01ECB0: 0A 74 6F 20 64 69 6D 65 6E 73 69 6F 6E 20 74 68 .to dimension th
01ECC0: 65 20 69 64 65 6E 74 69 66 69 65 72 20 74 6F 20 e identifier to
01ECD0: 31 35 20 62 79 74 65 73 20 6F 66 20 61 6C 70 68 15 bytes of alph
01ECE0: 61 20 6E 75 6D 65 72 69 63 20 64 61 74 61 2E 0D a numeric data..
01ECF0: 0A 0D 0A 44 6F 63 75 6D 65 6E 74 61 74 69 6F 6E ...Documentation
01ED00: 50 54 20 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 PT NAME... DIS
01ED10: 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E PLAY 'Hello! ' N
01ED20: 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 AME... DISPLAY
01ED30: 27 20 27 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D 20 ' '.....Program
01ED40: 4E 6F 74 65 73 2E 0D 0A 0D 0A 54 68 69 73 20 70 Notes.....This p
01ED50: 72 6F 67 72 61 6D 20 69 73 20 73 69 6D 69 6C 61 rogram is simila
01ED60: 72 20 74 6F 20 70 72 6F 67 72 61 6D 20 20 66 69 r to program fi
01ED70: 76 65 2C 20 20 73 6F 20 72 61 74 68 65 72 20 74 ve, so rather t
01ED80: 68 61 6E 20 74 79 70 69 6E 67 20 74 68 65 20 77 han typing the w
01ED90: 68 6F 6C 65 0D 0A 6C 6F 74 20 69 6E 20 61 67 61 hole..lot in aga
01EDA0: 69 6E 2C 20 75 73 65 20 56 44 45 20 74 6F 20 6C in, use VDE to l
01EDB0: 6F 61 64 20 74 68 65 20 74 65 78 74 20 66 69 6C oad the text fil
01EDC0: 65 2C 20 75 73 65 20 45 53 43 20 4E 20 74 6F 20 e, use ESC N to
01EDD0: 72 65 6E 61 6D 65 20 74 68 65 20 66 69 6C 65 2C rename the file,
01EDE0: 0D 0A 61 6D 65 6E 64 20 74 68 65 20 74 65 78 74 ..amend the text
01EDF0: 2C 20 75 73 65 20 45 53 43 20 58 20 74 6F 20 73 , use ESC X to s
01EE00: 61 76 65 20 74 68 65 20 66 69 6C 65 20 74 6F 20 ave the file to
01EE10: 64 69 73 63 2E 0D 0A 0D 0A 54 68 65 20 50 45 52 disc.....The PER
01EE20: 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 20 68 61 73 FORM command has
01EE30: 20 62 65 65 6E 20 75 73 65 64 20 69 6E 20 20 61 been used in a
01EE40: 20 20 64 69 66 66 65 72 65 6E 74 20 77 61 79 20 different way
01EE50: 74 6F 20 70 72 6F 64 75 63 65 20 74 68 65 20 73 to produce the s
01EE60: 61 6D 65 0D 0A 72 65 73 75 6C 74 2E 20 49 6E 20 ame..result. In
01EE70: 74 68 69 73 20 20 70 72 6F 67 72 61 6D 20 20 74 this program t
01EE80: 68 65 20 20 50 45 52 46 4F 52 4D 20 20 63 6F 6D he PERFORM com
01EE90: 6D 61 6E 64 20 20 69 6E 73 74 72 75 63 74 73 20 mand instructs
01EEA0: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 74 6F 0D the program to.
01EEB0: 0A 63 6F 6D 70 6C 65 74 65 20 74 68 65 20 70 72 .complete the pr
01EEC0: 6F 63 65 64 75 72 65 20 63 61 6C 6C 65 64 20 45 ocedure called E
01EED0: 4E 54 45 52 2D 4E 41 4D 45 20 35 20 74 69 6D 65 NTER-NAME 5 time
01EEE0: 73 2E 0D 0A 0D 0A 54 68 65 20 41 44 44 20 61 6E s.....The ADD an
01EEF0: 64 20 4D 4F 56 45 20 63 6F 6D 6D 61 6E 64 73 20 d MOVE commands
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 01 00 02 09 52 E5 1A 00 C1 02 00 00 00 02 ......R.........
01EF20: 1A 00 C6 02 00 00 00 02 1A 00 C2 02 00 00 00 02 ................
01EF30: 1A 00 C7 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF40: 1A 00 C8 02 00 00 00 02 1A 00 C4 02 00 00 00 02 ................
01EF50: 1A 00 C9 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 20 45 72 72 6F 72 2E 0D 0A 0D 0A 54 68 65 72 65 Error.....There
01F010: 20 69 73 20 61 6E 20 20 65 72 72 6F 72 20 20 69 is an error i
01F020: 6E 20 20 74 68 65 20 20 43 6F 62 6F 6C 20 20 64 n the Cobol d
01F030: 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 20 66 69 ocumentation fi
01F040: 6C 65 2C 20 20 61 63 63 6F 72 64 69 6E 67 20 74 le, according t
01F050: 6F 20 74 68 65 0D 0A 64 6F 63 75 6D 65 6E 74 61 o the..documenta
01F060: 74 69 6F 6E 20 79 6F 75 20 61 72 65 20 6C 69 6D tion you are lim
01F070: 69 74 65 64 20 74 6F 20 61 20 6D 61 78 69 6D 75 ited to a maximu
01F080: 6D 20 20 50 49 43 20 73 69 7A 65 20 6F 66 20 33 m PIC size of 3
01F090: 30 20 28 74 68 69 72 74 79 29 20 62 79 74 65 73 0 (thirty) bytes
01F0A0: 2C 0D 0A 74 68 69 73 20 69 73 20 6E 6F 74 20 63 ,..this is not c
01F0B0: 6F 72 72 65 63 74 20 74 68 65 20 6D 61 78 69 6D orrect the maxim
01F0C0: 75 6D 20 6E 75 6D 62 65 72 20 20 6F 66 20 20 62 um number of b
01F0D0: 79 74 65 73 20 20 79 6F 75 20 63 61 6E 20 75 73 ytes you can us
01F0E0: 65 20 69 6E 20 61 20 50 49 43 20 69 73 0D 0A 6C e in a PIC is..l
01F0F0: 69 6D 69 74 65 64 20 6F 6E 6C 79 20 62 79 20 74 imited only by t
01F100: 68 65 20 61 6D 6F 75 6E 74 20 6F 66 20 66 72 65 he amount of fre
01F110: 65 20 20 6D 65 6D 6F 72 79 2C 20 20 68 6F 77 65 e memory, howe
01F120: 76 65 72 20 61 20 6D 61 78 69 6D 75 6D 20 73 69 ver a maximum si
01F130: 7A 65 20 6F 66 20 20 38 30 0D 0A 62 79 74 65 73 ze of 80..bytes
01F140: 20 69 73 20 73 75 67 67 65 73 74 65 64 20 61 73 is suggested as
01F150: 20 74 68 69 73 20 6D 61 74 63 68 65 73 20 74 68 this matches th
01F160: 65 20 73 63 72 65 65 6E 20 77 69 64 74 68 20 69 e screen width i
01F170: 6E 20 6D 6F 64 65 20 32 2E 0D 0A 0D 0A 0D 0A 50 n mode 2.......P
01F180: 52 4F 47 52 41 4D 20 53 45 56 45 4E 2E 0D 0A 3D ROGRAM SEVEN...=
01F190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
01F1A0: 0A 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 6C .This program il
01F1B0: 6C 75 73 74 72 61 74 65 73 20 68 6F 77 20 6C 65 lustrates how le
01F1C0: 76 65 6C 20 6E 75 6D 62 65 72 73 20 61 72 65 20 vel numbers are
01F1D0: 75 73 65 64 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 used.....IDENTIF
01F1E0: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
01F1F0: 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E ... PROGRAM-ID.
01F200: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
01F210: 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 6128... OBJECT-
01F220: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
01F230: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
01F240: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
01F250: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
01F260: 49 4F 4E 2E 0D 0A 30 31 20 4E 41 4D 45 2E 0D 0A ION...01 NAME...
01F270: 20 20 30 33 20 4E 41 4D 45 2D 54 45 53 54 20 20 03 NAME-TEST
01F280: 50 49 43 20 58 28 33 29 2E 0D 0A 20 20 30 33 20 PIC X(3)... 03
01F290: 52 45 53 54 2D 4E 41 4D 45 20 20 50 49 43 20 58 REST-NAME PIC X
01F2A0: 28 32 37 29 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 (27)...*..PROCED
01F2B0: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
01F2C0: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 50 45 52 46 ..START... PERF
01F2D0: 4F 52 4D 20 45 4E 54 45 52 2D 4E 41 4D 45 20 55 ORM ENTER-NAME U
01F2E0: 4E 54 49 4C 20 4E 41 4D 45 2D 54 45 53 54 20 45 NTIL NAME-TEST E
01F2F0: 51 55 41 4C 20 27 45 4E 44 27 2E 0D 0A 20 20 53 QUAL 'END'... S
01F300: 54 4F 50 20 52 55 4E 2E 0D 0A 2A 0D 0A 45 4E 54 TOP RUN...*..ENT
01F310: 45 52 2D 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 ER-NAME... DISP
01F320: 4C 41 59 20 27 50 4C 45 41 53 45 20 45 6E 74 65 LAY 'PLEASE Ente
01F330: 72 20 41 20 4E 61 6D 65 20 4F 72 20 45 6E 74 65 r A Name Or Ente
01F340: 72 20 45 4E 44 20 74 6F 20 46 69 6E 69 73 68 2E r END to Finish.
01F350: 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 '... DISPLAY '
01F360: 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 20 4E 41 '... ACCEPT NA
01F370: 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 ME... DISPLAY '
01F380: 48 65 6C 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A Hello! ' NAME...
01F390: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
01F3A0: 0D 0A 42 79 20 75 73 69 6E 67 20 74 68 65 20 72 ..By using the r
01F3B0: 65 76 69 73 65 64 20 20 50 45 52 46 4F 52 4D 20 evised PERFORM
01F3C0: 20 63 6F 6D 6D 61 6E 64 20 20 77 65 20 20 6E 6F command we no
01F3D0: 77 20 20 68 61 76 65 20 20 61 20 20 66 6F 75 72 w have a four
01F3E0: 74 68 20 6D 65 74 68 6F 64 20 6F 66 0D 0A 63 6F th method of..co
01F3F0: 6D 70 6C 65 74 69 6E 67 20 61 20 6C 6F 6F 70 20 mpleting a loop
01F400: 20 20 20 45 78 61 6D 70 6C 65 20 53 65 76 65 6E Example Seven
01F410: 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F ...*..* This pro
01F420: 67 72 61 6D 20 73 68 6F 77 73 20 68 6F 77 20 6C gram shows how l
01F430: 65 76 65 6C 20 6E 75 6D 62 65 72 73 20 61 72 65 evel numbers are
01F440: 20 75 73 65 64 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 used...*..ENVIR
01F450: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E ONMENT DIVISION.
01F460: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
01F470: 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 SECTION... SOUR
01F480: 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CE-COMPUTER. Ams
01F490: 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 trad 6128... OB
01F4A0: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
01F4B0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D mstrad 6128...*.
01F4C0: 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D .DATA DIVISION..
01F4D0: 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 .WORKING-STORAGE
01F4E0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 54 4F SECTION...01 TO
01F4F0: 54 2D 52 45 43 2E 0D 0A 20 20 30 33 20 4E 41 4D T-REC... 03 NAM
01F500: 45 20 20 20 20 20 20 20 50 49 43 20 58 28 33 30 E PIC X(30
01F510: 29 2E 0D 0A 20 20 30 33 20 41 44 44 52 45 53 53 )... 03 ADDRESS
01F520: 2E 0D 0A 20 20 20 20 30 35 20 4C 49 4E 45 2D 31 ... 05 LINE-1
01F530: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
01F540: 20 20 20 30 35 20 4C 49 4E 45 2D 32 20 20 20 50 05 LINE-2 P
01F550: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 20 30 IC X(30)... 0
01F560: 35 20 4C 49 4E 45 2D 33 20 20 20 50 49 43 20 58 5 LINE-3 PIC X
01F570: 28 33 30 29 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 (30)...*..PROCED
01F580: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
01F590: 0D 0A 45 4E 54 45 52 2D 4E 41 4D 45 2E 0D 0A 20 ..ENTER-NAME...
01F5A0: 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 DISPLAY 'Please
01F5B0: 20 45 6E 74 65 72 20 59 6F 75 72 20 4E 61 6D 65 Enter Your Name
01F5C0: 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 '... DISPLAY '
01F5D0: 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 4D '... ACCEPT NAM
01F5E0: 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 E... DISPLAY '
01F5F0: 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 41 44 44 '...*..ENTER-ADD
01F600: 77 69 74 68 69 6E 20 61 20 43 6F 62 6F 6C 20 70 within a Cobol p
01F610: 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 49 44 45 rogram.......IDE
01F620: 4E 54 49 46 49 45 52 20 56 41 4C 55 45 53 2E 0D NTIFIER VALUES..
01F630: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
01F640: 3D 3D 3D 0D 0A 0D 0A 57 68 65 6E 20 64 61 74 61 ===....When data
01F650: 20 69 73 20 65 6E 74 65 72 65 64 20 66 72 6F 6D is entered from
01F660: 20 20 74 68 65 20 20 6B 65 79 62 6F 61 72 64 20 the keyboard
01F670: 20 61 6E 64 20 20 73 74 6F 72 65 64 20 20 69 6E and stored in
01F680: 20 61 6E 20 69 64 65 6E 74 69 66 69 65 72 20 62 an identifier b
01F690: 79 0D 0A 75 73 69 6E 67 20 74 68 65 20 41 43 43 y..using the ACC
01F6A0: 45 50 54 20 63 6F 6D 6D 61 6E 64 2C 20 74 68 65 EPT command, the
01F6B0: 6E 20 20 74 68 65 20 20 62 61 6C 61 6E 63 65 20 n the balance
01F6C0: 20 6F 66 20 20 74 68 65 20 69 64 65 6E 74 69 66 of the identif
01F6D0: 69 65 72 20 69 73 20 66 69 6C 6C 65 64 0D 0A 77 ier is filled..w
01F6E0: 69 74 68 20 73 70 61 63 65 73 2E 0D 0A 0D 0A 57 ith spaces.....W
01F6F0: 68 61 74 21 0D 0A 0D 0A 4C 65 74 20 6D 65 20 75 hat!....Let me u
01F700: 73 65 20 74 68 69 73 20 73 68 6F 72 74 20 65 78 se this short ex
01F710: 61 6D 70 6C 65 20 74 6F 20 73 68 6F 77 20 77 68 ample to show wh
01F720: 61 74 20 49 20 6D 65 61 6E 2C 0D 0A 0D 0A 30 31 at I mean,....01
01F730: 20 4E 41 4D 45 20 50 49 43 20 58 28 33 30 29 2E NAME PIC X(30).
01F740: 0D 0A 0D 0A 49 66 20 74 68 65 20 6E 61 6D 65 20 ....If the name
01F750: 65 6E 74 65 72 65 64 20 69 73 20 27 46 52 45 44 entered is 'FRED
01F760: 27 20 74 68 69 73 20 77 69 6C 6C 20 6F 63 63 75 ' this will occu
01F770: 70 79 20 74 68 65 20 66 69 72 73 74 20 66 6F 75 py the first fou
01F780: 72 20 62 79 74 65 73 20 6F 66 20 74 68 65 0D 0A r bytes of the..
01F790: 69 64 65 6E 74 69 66 69 65 72 2C 20 61 6E 64 20 identifier, and
01F7A0: 74 68 65 20 72 65 6D 61 69 6E 69 6E 67 20 32 36 the remaining 26
01F7B0: 20 20 62 79 74 65 73 20 20 6F 66 20 20 74 68 65 bytes of the
01F7C0: 20 69 64 65 6E 74 69 66 69 65 72 20 77 69 6C 6C identifier will
01F7D0: 20 62 65 20 66 69 6C 6C 65 64 0D 0A 77 69 74 68 be filled..with
01F7E0: 20 73 70 61 63 65 73 2E 0D 0A 0D 0A 54 68 69 73 spaces.....This
01F7F0: 20 69 73 20 64 69 66 66 65 72 65 6E 74 20 66 72 is different fr
01F800: 52 45 53 53 2E 0D 0A 20 20 44 49 53 50 4C 41 59 RESS... DISPLAY
01F810: 20 27 45 6E 74 65 72 20 41 64 64 72 65 73 73 20 'Enter Address
01F820: 4C 69 6E 65 20 31 27 2E 0D 0A 20 20 44 49 53 50 Line 1'... DISP
01F830: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
01F840: 50 54 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 49 PT LINE-1... DI
01F850: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 SPLAY ' '...*..
01F860: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
01F870: 41 64 64 72 65 73 73 20 4C 69 6E 65 20 32 27 2E Address Line 2'.
01F880: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E .. DISPLAY ' '.
01F890: 0D 0A 20 20 41 43 43 45 50 54 20 4C 49 4E 45 2D .. ACCEPT LINE-
01F8A0: 32 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 2... DISPLAY '
01F8B0: 27 2E 0D 0A 2A 0D 0A 20 20 44 49 53 50 4C 41 59 '...*.. DISPLAY
01F8C0: 20 27 45 6E 74 65 72 20 41 64 64 72 65 73 73 20 'Enter Address
01F8D0: 4C 69 6E 65 20 33 27 2E 0D 0A 20 20 44 49 53 50 Line 3'... DISP
01F8E0: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
01F8F0: 50 54 20 4C 49 4E 45 2D 33 2E 0D 0A 20 20 44 49 PT LINE-3... DI
01F900: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 2A SPLAY ' '...*..*
01F910: 20 44 69 73 70 6C 61 79 20 64 65 74 61 69 6C 73 Display details
01F920: 20 65 6E 74 65 72 65 64 0D 0A 2A 0D 0A 53 48 4F entered..*..SHO
01F930: 57 2D 44 45 54 41 49 4C 53 2D 45 4E 54 45 52 45 W-DETAILS-ENTERE
01F940: 44 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 41 D... DISPLAY 'A
01F950: 64 64 72 65 73 73 20 20 4C 69 6E 65 20 31 3B 20 ddress Line 1;
01F960: 27 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 49 53 ' LINE-1... DIS
01F970: 50 4C 41 59 20 27 20 20 20 20 20 20 20 20 20 4C PLAY ' L
01F980: 69 6E 65 2D 32 3B 20 27 20 4C 49 4E 45 2D 32 2E ine-2; ' LINE-2.
01F990: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 20 20 .. DISPLAY '
01F9A0: 20 20 20 20 20 20 4C 69 6E 65 2D 33 3B 20 27 20 Line-3; '
01F9B0: 4C 49 4E 45 2D 33 2E 0D 0A 20 20 44 49 53 50 4C LINE-3... DISPL
01F9C0: 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 20 44 49 AY ' '...*.. DI
01F9D0: 53 50 4C 41 59 20 27 41 6C 6C 20 54 68 65 20 44 SPLAY 'All The D
01F9E0: 65 74 61 69 6C 73 3B 20 27 20 54 4F 54 2D 52 45 etails; ' TOT-RE
01F9F0: 43 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 C... DISPLAY '
01FA00: 6F 6D 20 74 68 65 20 6D 65 74 68 6F 64 20 74 68 om the method th
01FA10: 61 74 20 42 61 73 69 63 20 75 73 65 73 2E 0D 0A at Basic uses...
01FA20: 0D 0A 4C 65 74 20 6D 65 20 75 73 65 20 61 20 73 ..Let me use a s
01FA30: 65 63 6F 6E 64 20 65 78 61 6D 70 6C 65 20 74 6F econd example to
01FA40: 20 64 65 6D 6F 6E 73 74 72 61 74 65 20 74 68 65 demonstrate the
01FA50: 20 70 72 6F 62 6C 65 6D 73 20 63 61 75 73 65 64 problems caused
01FA60: 2E 0D 0A 0D 0A 41 6D 65 6E 64 20 70 72 6F 67 72 .....Amend progr
01FA70: 61 6D 20 65 69 67 68 74 20 61 73 20 66 6F 6C 6C am eight as foll
01FA80: 6F 77 73 2C 0D 0A 0D 0A 57 4F 52 4B 49 4E 47 2D ows,....WORKING-
01FA90: 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2E STORAGE SECTION.
01FAA0: 0D 0A 30 31 20 4E 41 4D 45 2E 0D 0A 20 20 30 33 ..01 NAME... 03
01FAB0: 20 4E 41 4D 45 2D 54 45 53 54 20 20 50 49 43 20 NAME-TEST PIC
01FAC0: 58 28 34 29 2E 0D 0A 20 20 30 33 20 52 45 53 54 X(4)... 03 REST
01FAD0: 2D 4E 41 4D 45 20 20 50 49 43 20 58 28 32 36 29 -NAME PIC X(26)
01FAE0: 2E 0D 0A 0D 0A 54 68 65 6E 20 63 6F 6D 70 69 6C .....Then compil
01FAF0: 65 20 74 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A e the program...
01FB00: 0D 0A 57 68 65 6E 20 74 68 65 20 70 72 6F 67 72 ..When the progr
01FB10: 61 6D 20 69 73 20 63 6F 6D 70 69 6C 69 6E 67 20 am is compiling
01FB20: 79 6F 75 20 77 69 6C 6C 20 20 62 65 20 6E 6F 74 you will be not
01FB30: 69 66 69 65 64 20 6F 66 20 61 6E 20 49 54 20 65 ified of an IT e
01FB40: 72 72 6F 72 20 62 65 63 61 75 73 65 0D 0A 74 68 rror because..th
01FB50: 65 20 70 65 72 66 6F 72 6D 20 63 6F 6D 6D 61 6E e perform comman
01FB60: 64 20 69 73 20 6E 6F 77 20 74 72 79 69 6E 67 20 d is now trying
01FB70: 20 74 6F 20 20 63 6F 6D 70 61 72 65 20 61 20 66 to compare a f
01FB80: 6F 75 72 20 62 79 74 65 20 69 64 65 6E 74 69 66 our byte identif
01FB90: 69 65 72 20 77 69 74 68 0D 0A 74 68 65 20 74 68 ier with..the th
01FBA0: 72 65 65 20 62 79 74 65 20 6C 69 74 65 72 61 6C ree byte literal
01FBB0: 20 27 45 4E 44 27 2E 0D 0A 0D 0A 54 68 65 20 63 'END'.....The c
01FBC0: 6F 6D 70 69 6C 65 72 20 69 73 20 74 65 6C 6C 69 ompiler is telli
01FBD0: 6E 67 20 79 6F 75 20 74 68 61 74 20 20 74 68 65 ng you that the
01FBE0: 73 65 20 20 77 69 6C 6C 20 6E 65 76 65 72 20 6D se will never m
01FBF0: 61 74 63 68 20 77 68 65 6E 20 74 68 65 20 50 45 atch when the PE
01FC00: 27 2E 0D 0A 2A 0D 0A 20 20 44 49 53 50 4C 41 59 '...*.. DISPLAY
01FC10: 20 27 59 6F 75 72 20 4E 61 6D 65 20 69 73 20 20 'Your Name is
01FC20: 20 3B 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 ; ' NAME... DI
01FC30: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 SPLAY ' '...*..
01FC40: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
01FC50: 6F 67 72 61 6D 20 4E 6F 74 65 2E 0D 0A 0D 0A 54 ogram Note.....T
01FC60: 68 69 73 20 69 73 20 6E 6F 74 20 74 68 65 20 71 his is not the q
01FC70: 75 69 63 6B 65 73 74 20 6D 65 74 68 6F 64 20 20 uickest method
01FC80: 6F 66 20 20 77 72 69 74 69 6E 67 20 74 68 65 20 of writing the
01FC90: 70 72 6F 67 72 61 6D 2C 20 74 68 69 73 20 65 78 program, this ex
01FCA0: 61 6D 70 6C 65 20 68 61 73 0D 0A 62 65 65 6E 20 ample has..been
01FCB0: 77 72 69 74 74 65 6E 20 73 6F 20 74 68 61 74 20 written so that
01FCC0: 69 74 20 69 73 20 65 61 73 79 20 74 6F 20 66 6F it is easy to fo
01FCD0: 6C 6C 6F 77 20 61 6E 64 20 75 6E 64 65 72 73 74 llow and underst
01FCE0: 61 6E 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 and.......PROGRA
01FCF0: 4D 20 45 49 47 48 54 2E 0D 0A 3D 3D 3D 3D 3D 3D M EIGHT...======
01FD00: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F 67 ========....Prog
01FD10: 72 61 6D 20 65 69 67 68 74 20 63 6F 6E 74 69 6E ram eight contin
01FD20: 75 65 73 20 74 68 65 20 74 68 65 6D 65 20 6F 66 ues the theme of
01FD30: 20 20 65 6E 74 65 72 69 6E 67 20 61 6E 64 20 64 entering and d
01FD40: 69 73 70 6C 61 79 69 6E 67 20 6E 61 6D 65 73 2C isplaying names,
01FD50: 20 62 75 74 20 61 0D 0A 6E 65 77 20 63 6F 6E 63 but a..new conc
01FD60: 65 70 74 20 69 73 20 75 73 65 64 2E 0D 0A 0D 0A ept is used.....
01FD70: 54 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 4E The identifier N
01FD80: 41 4D 45 20 68 61 73 20 20 62 65 65 6E 20 20 73 AME has been s
01FD90: 70 6C 69 74 20 20 69 6E 74 6F 20 20 74 77 6F 20 plit into two
01FDA0: 20 6E 65 77 20 69 64 65 6E 74 69 66 69 65 72 73 new identifiers
01FDB0: 20 62 79 20 20 75 73 69 6E 67 0D 0A 6C 65 76 65 by using..leve
01FDC0: 6C 20 6E 75 6D 62 65 72 73 2E 20 54 68 65 20 6E l numbers. The n
01FDD0: 65 77 20 69 64 65 6E 74 69 66 69 65 72 73 20 61 ew identifiers a
01FDE0: 72 65 20 4E 41 4D 45 2D 54 45 53 54 20 61 6E 64 re NAME-TEST and
01FDF0: 20 52 45 53 54 2D 4E 41 4D 45 2E 0D 0A 0D 0A 54 REST-NAME.....T
01FE00: 52 46 4F 52 4D 0D 0A 63 6F 6D 6D 61 6E 64 20 69 RFORM..command i
01FE10: 73 20 74 65 73 74 69 6E 67 20 66 6F 72 20 61 20 s testing for a
01FE20: 6D 61 74 63 68 2E 0D 0A 0D 0A 54 68 65 20 69 64 match.....The id
01FE30: 65 6E 74 69 66 69 65 72 20 68 61 73 20 62 65 65 entifier has bee
01FE40: 6E 20 70 61 63 6B 65 64 20 77 69 74 68 20 73 70 n packed with sp
01FE50: 61 63 65 73 20 73 6F 20 69 74 20 61 63 74 75 61 aces so it actua
01FE60: 6C 6C 79 20 63 6F 6E 74 61 69 6E 73 20 27 45 4E lly contains 'EN
01FE70: 44 20 27 2E 0D 0A 0D 0A 49 66 20 79 6F 75 20 72 D '.....If you r
01FE80: 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D 20 79 un the program y
01FE90: 6F 75 20 20 77 69 6C 6C 20 20 66 69 6E 64 20 20 ou will find
01FEA0: 74 68 61 74 20 20 79 6F 75 20 20 61 72 65 20 73 that you are s
01FEB0: 74 75 63 6B 20 69 6E 20 61 6E 20 65 6E 64 6C 65 tuck in an endle
01FEC0: 73 73 0D 0A 6C 6F 6F 70 2C 20 73 6F 20 70 72 65 ss..loop, so pre
01FED0: 73 73 20 43 54 52 4C 20 43 20 74 6F 20 61 62 6F ss CTRL C to abo
01FEE0: 72 74 20 69 74 2E 0D 0A 0D 0A 4C 65 74 20 75 73 rt it.....Let us
01FEF0: 20 63 6F 72 72 65 63 74 20 74 68 69 73 20 65 72 correct this er
01FF00: 72 6F 72 20 61 6E 64 20 68 65 6C 70 20 79 6F 75 ror and help you
01FF10: 72 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 20 r understanding
01FF20: 6F 66 20 74 68 65 20 73 69 74 75 61 74 69 6F 6E of the situation
01FF30: 2E 0D 0A 0D 0A 41 6D 65 6E 64 20 74 68 65 20 50 .....Amend the P
01FF40: 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 20 74 ERFORM command t
01FF50: 6F 2C 0D 0A 0D 0A 20 20 50 45 52 46 4F 52 4D 20 o,.... PERFORM
01FF60: 45 4E 54 45 52 2D 4E 41 4D 45 20 55 4E 54 49 4C ENTER-NAME UNTIL
01FF70: 20 4E 41 4D 45 2D 54 45 53 54 20 45 51 55 41 4C NAME-TEST EQUAL
01FF80: 20 27 45 4E 44 20 27 2E 0D 0A 0D 0A 61 6E 64 20 'END '.....and
01FF90: 63 6F 6D 70 69 6C 65 20 74 68 65 20 70 72 6F 67 compile the prog
01FFA0: 72 61 6D 2E 0D 0A 0D 0A 54 68 65 20 49 54 20 65 ram.....The IT e
01FFB0: 72 72 6F 72 20 6E 6F 20 6C 6F 6E 67 65 72 20 65 rror no longer e
01FFC0: 78 69 73 74 73 20 61 73 20 20 62 6F 74 68 20 74 xists as both t
01FFD0: 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 61 6E he identifier an
01FFE0: 64 20 74 68 65 20 6C 69 74 65 72 61 6C 20 68 61 d the literal ha
01FFF0: 76 65 0D 0A 74 68 65 20 73 61 6D 65 20 6E 75 6D ve..the same num
020000: 68 65 20 50 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 he PERFORM comma
020010: 6E 64 20 68 61 73 20 62 65 65 6E 20 61 6D 65 6E nd has been amen
020020: 64 65 64 20 20 74 6F 20 61 6C 6C 6F 77 20 74 68 ded to allow th
020030: 65 20 45 4E 54 45 52 2D 4E 41 4D 45 20 70 72 6F e ENTER-NAME pro
020040: 63 65 64 75 72 65 20 74 6F 0D 0A 62 65 20 72 65 cedure to..be re
020050: 70 65 61 74 65 64 20 75 6E 74 69 6C 20 74 68 65 peated until the
020060: 20 66 69 72 73 74 20 74 68 72 65 65 20 63 68 61 first three cha
020070: 72 61 63 74 65 72 73 20 65 6E 74 65 72 65 64 20 racters entered
020080: 61 72 65 20 27 45 4E 44 27 2E 0D 0A 0D 0A 54 68 are 'END'.....Th
020090: 65 20 69 64 65 6E 74 69 66 69 65 72 20 4E 41 4D e identifier NAM
0200A0: 45 2D 54 45 53 54 20 69 73 20 75 73 65 64 20 74 E-TEST is used t
0200B0: 6F 20 61 6C 6C 6F 77 20 74 68 65 20 74 65 73 74 o allow the test
0200C0: 69 6E 67 20 6F 66 20 74 68 65 73 65 20 63 68 61 ing of these cha
0200D0: 72 61 63 74 65 72 73 2E 0D 0A 0D 0A 50 6C 65 61 racters.....Plea
0200E0: 73 65 20 6E 6F 74 65 20 74 68 61 74 20 27 45 4E se note that 'EN
0200F0: 44 27 20 6D 75 73 74 20 62 65 20 74 79 70 65 64 D' must be typed
020100: 20 69 6E 20 63 61 70 69 74 61 6C 20 28 75 70 70 in capital (upp
020110: 65 72 20 63 61 73 65 29 20 6C 65 74 74 65 72 73 er case) letters
020120: 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 .....IDENTIFICAT
020130: 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 ION DIVISION...
020140: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
020150: 78 61 6D 70 6C 65 20 45 69 67 68 74 2E 0D 0A 2A xample Eight...*
020160: 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D ..* This program
020170: 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 65 allows you to e
020180: 6E 74 65 72 20 6E 61 6D 65 73 2C 20 64 69 73 70 nter names, disp
020190: 6C 61 79 73 20 74 68 65 20 6E 61 6D 65 2C 20 61 lays the name, a
0201A0: 6E 64 20 65 6E 64 73 0D 0A 2A 20 77 68 65 6E 20 nd ends..* when
0201B0: 27 45 4E 44 27 20 69 73 20 65 6E 74 65 72 65 64 'END' is entered
0201C0: 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E ...*..ENVIRONMEN
0201D0: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E T DIVISION...CON
0201E0: 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 FIGURATION SECTI
0201F0: 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 2D 43 4F ON... SOURCE-CO
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 01 00 02 09 52 E5 1B 00 C1 02 00 00 00 02 ......R.........
020220: 1B 00 C6 02 00 00 00 02 1B 00 C2 02 00 00 00 02 ................
020230: 1B 00 C7 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020240: 1B 00 C8 02 00 00 00 02 1B 00 C4 02 00 00 00 02 ................
020250: 1B 00 C9 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 62 65 72 20 6F 66 20 62 79 74 65 73 2E 0D 0A 0D ber of bytes....
020310: 0A 52 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D .Run the program
020320: 20 61 67 61 69 6E 2C 20 61 6E 64 20 20 6F 6E 63 again, and onc
020330: 65 20 20 61 67 61 69 6E 20 20 77 65 20 20 61 72 e again we ar
020340: 65 20 20 62 61 63 6B 20 74 6F 20 74 68 65 20 73 e back to the s
020350: 69 74 75 61 74 69 6F 6E 20 69 6E 0D 0A 77 68 69 ituation in..whi
020360: 63 68 20 77 68 65 6E 20 79 6F 75 20 74 79 70 65 ch when you type
020370: 20 27 45 4E 44 27 20 74 68 65 20 70 72 6F 67 72 'END' the progr
020380: 61 6D 20 65 6E 64 73 2E 0D 0A 0D 0A 0D 0A 48 4F am ends.......HO
020390: 4D 45 57 4F 52 4B 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D MEWORK...=======
0203A0: 3D 3D 0D 0A 0D 0A 59 6F 75 20 63 61 6E 6E 6F 74 ==....You cannot
0203B0: 20 6C 65 61 72 6E 20 61 20 6E 65 77 20 6C 61 6E learn a new lan
0203C0: 67 75 61 67 65 20 62 79 20 20 65 69 74 68 65 72 guage by either
0203D0: 20 72 65 61 64 69 6E 67 20 74 68 69 73 20 73 65 reading this se
0203E0: 72 69 65 73 2C 20 6F 72 20 67 65 74 74 69 6E 67 ries, or getting
0203F0: 0D 0A 61 20 67 6F 6F 64 20 62 6F 6F 6B 20 6F 75 ..a good book ou
020400: 74 20 6F 66 20 74 68 65 20 6C 69 62 72 61 72 79 t of the library
020410: 2E 0D 0A 0D 0A 59 6F 75 20 6D 75 73 74 20 75 73 .....You must us
020420: 65 20 74 68 65 20 65 78 61 6D 70 6C 65 73 20 69 e the examples i
020430: 6E 20 74 68 65 20 43 6F 62 6F 6C 20 64 6F 63 75 n the Cobol docu
020440: 6D 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 20 61 mentation file a
020450: 6E 64 20 74 68 65 20 65 78 61 6D 70 6C 65 73 0D nd the examples.
020460: 0A 69 6E 20 74 68 69 73 20 73 65 72 69 65 73 20 .in this series
020470: 74 6F 20 69 6E 63 72 65 61 73 65 20 79 6F 75 72 to increase your
020480: 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 2C 20 understanding,
020490: 20 61 6E 64 20 77 68 65 6E 20 79 6F 75 20 66 65 and when you fe
0204A0: 65 6C 20 74 68 61 74 20 79 6F 75 0D 0A 75 6E 64 el that you..und
0204B0: 65 72 73 74 61 6E 64 20 61 20 63 6F 6D 6D 61 6E erstand a comman
0204C0: 64 20 75 73 65 20 74 68 65 20 63 6F 6D 6D 61 6E d use the comman
0204D0: 64 20 69 6E 20 79 6F 75 72 20 6F 77 6E 20 70 72 d in your own pr
0204E0: 6F 67 72 61 6D 73 20 74 6F 20 74 65 73 74 20 74 ograms to test t
0204F0: 68 61 74 20 79 6F 75 0D 0A 61 72 65 20 63 6F 72 hat you..are cor
020500: 65 2C 20 73 6F 20 65 69 74 68 65 72 20 65 72 61 e, so either era
020510: 73 65 20 79 6F 75 72 0D 0A 75 6E 77 61 6E 74 65 se your..unwante
020520: 64 20 66 69 6C 65 73 20 6F 72 20 74 72 61 6E 73 d files or trans
020530: 66 65 72 20 73 6F 6D 65 20 6F 66 20 74 68 65 20 fer some of the
020540: 66 69 6C 65 73 20 6F 6E 74 6F 20 61 20 73 70 61 files onto a spa
020550: 72 65 20 64 69 73 63 2E 0D 0A 0D 0A 0D 0A 48 45 re disc.......HE
020560: 52 45 20 57 45 20 41 52 45 20 41 47 41 49 4E 20 RE WE ARE AGAIN
020570: 28 61 73 20 68 61 70 70 79 20 61 73 20 63 61 6E (as happy as can
020580: 20 62 65 3F 29 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D be?)..=========
020590: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0205A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A ==============..
0205B0: 0D 0A 54 68 69 73 20 6D 6F 6E 74 68 20 77 65 20 ..This month we
0205C0: 61 72 65 20 6C 6F 6F 6B 69 6E 67 20 20 61 74 20 are looking at
0205D0: 20 73 63 72 65 65 6E 20 20 68 61 6E 64 6C 69 6E screen handlin
0205E0: 67 20 20 61 6E 64 20 73 65 71 75 65 6E 74 69 61 g and sequentia
0205F0: 6C 20 66 69 6C 65 73 2C 20 62 75 74 0D 0A 66 69 l files, but..fi
020600: 72 73 74 20 61 6E 6F 74 68 65 72 20 76 61 72 69 rst another vari
020610: 61 74 69 6F 6E 20 6F 66 20 6F 6E 65 20 6F 66 20 ation of one of
020620: 6C 61 73 74 20 6D 6F 6E 74 68 73 20 70 72 6F 67 last months prog
020630: 72 61 6D 73 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 rams.......PROGR
020640: 41 4D 20 4E 49 4E 45 2E 0D 0A 3D 3D 3D 3D 3D 3D AM NINE...======
020650: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 59 6F 75 20 77 =======....You w
020660: 65 72 65 20 69 6E 74 72 6F 64 75 63 65 64 20 74 ere introduced t
020670: 6F 20 74 68 65 20 63 6F 6E 63 65 70 74 20 20 6F o the concept o
020680: 66 20 20 6C 65 76 65 6C 20 6E 75 6D 62 65 72 73 f level numbers
020690: 20 66 6F 72 20 69 64 65 6E 74 69 66 69 65 72 73 for identifiers
0206A0: 20 6C 61 73 74 0D 0A 6D 6F 6E 74 68 2C 20 74 68 last..month, th
0206B0: 65 73 65 20 20 68 61 76 65 20 20 61 6E 6F 74 68 ese have anoth
0206C0: 65 72 20 20 75 73 65 2C 20 20 77 68 65 6E 20 20 er use, when
0206D0: 61 6E 20 20 69 64 65 6E 74 69 66 69 65 72 20 20 an identifier
0206E0: 69 73 20 20 64 65 63 6C 61 72 65 64 20 20 61 6E is declared an
0206F0: 64 0D 0A 64 69 6D 65 6E 73 69 6F 6E 65 64 20 69 d..dimensioned i
020700: 72 65 63 74 2E 0D 0A 0D 0A 59 6F 75 72 20 74 61 rect.....Your ta
020710: 73 6B 2C 20 73 68 6F 75 6C 64 20 79 6F 75 20 61 sk, should you a
020720: 63 63 65 70 74 20 74 68 69 73 20 6D 69 73 73 69 ccept this missi
020730: 6F 6E 2C 20 20 69 73 20 74 6F 20 77 72 69 74 65 on, is to write
020740: 20 61 20 73 65 72 69 65 73 20 6F 66 20 73 69 6D a series of sim
020750: 70 6C 65 0D 0A 70 72 6F 67 72 61 6D 73 20 74 6F ple..programs to
020760: 20 74 72 79 20 6F 75 74 20 74 68 65 20 43 6F 62 try out the Cob
020770: 6F 6C 20 63 6F 6D 6D 61 6E 64 73 20 63 6F 76 65 ol commands cove
020780: 72 65 64 20 74 6F 20 64 61 74 65 2E 20 59 6F 75 red to date. You
020790: 72 20 63 6F 6D 70 75 74 65 72 20 77 69 6C 6C 0D r computer will.
0207A0: 0A 73 65 6C 66 20 64 65 73 74 72 75 63 74 20 69 .self destruct i
0207B0: 6E 20 73 69 78 20 73 65 63 6F 6E 64 73 2E 0D 0A n six seconds...
0207C0: 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 62 ....Clive Bellab
0207D0: 79 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 20 y, 12 Trafalgar
0207E0: 54 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 61 Terrace, Long Ea
0207F0: 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D 2C ton, Nottingham,
020800: 20 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A 2A NG10 1GP......*
020810: 2A 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 2E * END OF SERIES.
020820: 50 54 32 20 2A 2A 0D 0A 1A 20 53 45 52 49 45 53 PT2 **... SERIES
020830: 2E 50 54 32 20 2A 2A 0D 0A 1A 2A 20 54 68 69 73 .PT2 **...* This
020840: 20 70 72 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 program prompts
020850: 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 69 you to enter fi
020860: 76 65 20 6E 61 6D 65 73 20 61 6E 64 20 74 68 65 ve names and the
020870: 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 49 n ends...*..ENVI
020880: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
020890: 20 46 4F 55 52 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FOUR...========
0208A0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
0208B0: 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 20 79 6F ogram prompts yo
0208C0: 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 20 u to enter five
0208D0: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
0208E0: 20 74 68 65 20 6E 61 6D 65 73 20 79 6F 75 20 68 the names you h
0208F0: 61 76 65 0D 0A 65 6E 74 65 72 65 64 20 61 6E 64 ave..entered and
020900: 6E 20 74 68 65 20 57 4F 52 4B 49 4E 47 2D 53 54 n the WORKING-ST
020910: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 20 6F 66 ORAGE SECTION of
020920: 20 79 6F 75 72 20 70 72 6F 67 72 61 6D 20 74 68 your program th
020930: 65 6E 20 79 6F 75 20 63 61 6E 20 61 74 0D 0A 74 en you can at..t
020940: 68 65 20 73 61 6D 65 20 74 69 6D 65 20 66 69 6C he same time fil
020950: 6C 20 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 l the identifier
020960: 20 20 77 69 74 68 20 20 61 20 20 76 61 6C 75 65 with a value
020970: 20 6F 72 20 6C 69 74 65 72 61 6C 2E 20 50 72 6F or literal. Pro
020980: 67 72 61 6D 20 6E 69 6E 65 0D 0A 73 68 6F 77 73 gram nine..shows
020990: 20 68 6F 77 20 74 68 69 73 20 69 73 20 64 6F 6E how this is don
0209A0: 65 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 e.....IDENTIFICA
0209B0: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
0209C0: 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 PROGRAM-ID.
0209D0: 45 78 61 6D 70 6C 65 20 4E 69 6E 65 2E 0D 0A 2A Example Nine...*
0209E0: 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D ..* This program
0209F0: 20 64 65 6D 6F 6E 73 74 72 61 74 65 73 20 74 68 demonstrates th
020A00: 65 20 75 73 65 20 6F 66 20 50 49 43 2F 56 41 4C e use of PIC/VAL
020A10: 55 45 27 73 20 63 6C 61 75 73 65 20 69 6E 20 74 UE's clause in t
020A20: 68 65 0D 0A 2A 20 57 4F 52 4B 49 4E 47 2D 53 54 he..* WORKING-ST
020A30: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A ORAGE SECTION...
020A40: 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 *..ENVIRONMENT D
020A50: 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 IVISION...CONFIG
020A60: 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E URATION SECTION.
020A70: 0D 0A 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 .. SOURCE-COMPU
020A80: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
020A90: 38 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 8... OBJECT-COM
020AA0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
020AB0: 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 128...*..DATA DI
020AC0: 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E 47 VISION...WORKING
020AD0: 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E -STORAGE SECTION
020AE0: 2E 0D 0A 30 31 20 50 41 47 45 2D 48 45 41 44 49 ...01 PAGE-HEADI
020AF0: 4E 47 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 2D 31 NG... 03 LINE-1
020B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020D00: 20 20 50 49 43 20 58 28 31 29 20 56 41 4C 55 45 PIC X(1) VALUE
020D10: 20 27 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 ' '... 03 LINE
020D20: 2D 32 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -2 PIC X(7) VAL
020D30: 55 45 20 27 4C 69 6E 65 20 32 20 27 2E 0D 0A 20 UE 'Line 2 '...
020D40: 20 30 33 20 4C 49 4E 45 2D 33 20 20 50 49 43 20 03 LINE-3 PIC
020D50: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
020D60: 20 32 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 2 '... 03 LINE
020D70: 2D 34 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -4 PIC X(7) VAL
020D80: 55 45 20 27 4C 69 6E 65 20 33 20 27 2E 0D 0A 20 UE 'Line 3 '...
020D90: 20 30 33 20 4C 49 4E 45 2D 35 20 20 50 49 43 20 03 LINE-5 PIC
020DA0: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
020DB0: 20 34 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 4 '... 03 LINE
020DC0: 2D 36 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -6 PIC X(7) VAL
020DD0: 55 45 20 27 4C 69 6E 65 20 35 20 27 2E 0D 0A 20 UE 'Line 5 '...
020DE0: 20 30 33 20 4C 49 4E 45 2D 37 20 20 50 49 43 20 03 LINE-7 PIC
020DF0: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
020E00: 20 36 20 27 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 6 '...*..PROCED
020E10: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
020E20: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 44 49 53 50 ..START... DISP
020E30: 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 LAY LINE-1... D
020E40: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 32 2E 0D 0A ISPLAY LINE-2...
020E50: 20 20 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D 33 DISPLAY LINE-3
020E60: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 4C 49 4E ... DISPLAY LIN
020E70: 45 2D 34 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 E-4... DISPLAY
020E80: 4C 49 4E 45 2D 35 2E 0D 0A 20 20 44 49 53 50 4C LINE-5... DISPL
020E90: 41 59 20 4C 49 4E 45 2D 36 2E 0D 0A 20 20 44 49 AY LINE-6... DI
020EA0: 53 50 4C 41 59 20 4C 49 4E 45 2D 37 2E 0D 0A 0D SPLAY LINE-7....
020EB0: 0A 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D .Program Notes:.
020EC0: 0A 0D 0A 54 68 65 20 69 64 65 6E 74 69 66 69 65 ...The identifie
020ED0: 72 73 20 6C 69 6E 65 2D 31 20 74 6F 20 6C 69 6E rs line-1 to lin
020EE0: 65 2D 37 20 20 68 61 76 65 20 20 62 65 65 6E 20 e-7 have been
020EF0: 20 64 65 63 6C 61 72 65 64 20 61 6E 64 20 64 69 declared and di
020F00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
020F10: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
020F20: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
020F30: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
020F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020F50: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
020F60: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
020F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020F80: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
020F90: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
020FA0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
020FB0: 20 20 20 20 20 20 20 50 41 52 54 20 54 48 52 45 PART THRE
020FC0: 45 20 3A 20 46 49 4C 45 44 20 41 47 41 49 4E 20 E : FILED AGAIN
020FD0: 28 44 6F 6E 27 74 20 53 63 72 65 65 6E 29 0D 0A (Don't Screen)..
020FE0: 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 43 54 49 ......INTRODUCTI
020FF0: 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ON...===========
021000: 3D 3D 0D 0A 0D 0A 59 65 73 2C 20 68 65 72 65 20 ==....Yes, here
021010: 77 65 20 61 72 65 20 79 65 74 20 61 67 61 69 6E we are yet again
021020: 2C 20 77 69 74 68 20 20 74 68 65 20 20 74 68 69 , with the thi
021030: 72 64 20 20 69 6E 73 74 61 6C 6D 65 6E 74 20 69 rd instalment i
021040: 6E 20 74 68 65 20 66 75 6E 20 70 61 63 6B 65 64 n the fun packed
021050: 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 6D ..Cobol programm
021060: 69 6E 67 20 73 65 72 69 65 73 2E 20 54 68 69 73 ing series. This
021070: 20 6D 6F 6E 74 68 20 20 77 65 20 20 61 72 65 20 month we are
021080: 20 6C 6F 6F 6B 69 6E 67 20 73 63 72 65 65 6E 20 looking screen
021090: 64 69 73 70 6C 61 79 73 20 61 6E 64 0D 0A 73 65 displays and..se
0210A0: 71 75 65 6E 74 69 61 6C 20 66 69 6C 65 73 20 75 quential files u
0210B0: 73 69 6E 67 20 43 6F 62 6F 6C 2E 0D 0A 0D 0A 0D sing Cobol......
0210C0: 0A 59 4F 55 52 20 51 55 45 52 49 45 53 20 41 4E .YOUR QUERIES AN
0210D0: 53 57 45 52 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D SWERED...=======
0210E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
0210F0: 0A 0D 0A 44 65 61 72 20 4D 61 67 67 69 65 2C 20 ...Dear Maggie,
021100: 6D 65 6E 73 69 6F 6E 65 64 20 61 6E 64 0D 0A 67 mensioned and..g
021110: 69 76 65 6E 20 61 20 76 61 6C 75 65 20 61 73 20 iven a value as
021120: 70 61 72 74 20 6F 66 20 20 74 68 65 20 57 4F 52 part of the WOR
021130: 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 KING-STORAGE SEC
021140: 54 49 4F 4E 2E 20 57 68 65 6E 20 64 69 73 70 6C TION. When displ
021150: 61 79 69 6E 67 20 74 68 65 0D 0A 63 6F 6E 74 65 aying the..conte
021160: 6E 74 73 20 6F 66 20 61 6E 20 69 64 65 6E 74 69 nts of an identi
021170: 66 69 65 72 20 6F 6E 20 74 68 65 20 73 63 72 65 fier on the scre
021180: 65 6E 20 79 6F 75 20 63 61 6E 20 75 73 65 20 74 en you can use t
021190: 68 65 20 44 49 53 50 4C 41 59 20 63 6F 6D 6D 61 he DISPLAY comma
0211A0: 6E 64 20 69 6E 0D 0A 74 77 6F 20 64 69 66 66 65 nd in..two diffe
0211B0: 72 65 6E 74 20 77 61 79 73 2C 0D 0A 0D 0A 44 49 rent ways,....DI
0211C0: 53 50 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A 44 SPLAY LINE-1...D
0211D0: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 32 2E 0D 0A ISPLAY LINE-2...
0211E0: 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D 33 2E 0D DISPLAY LINE-3..
0211F0: 0A 45 74 63 0D 0A 0D 0A 54 68 69 73 20 64 69 73 .Etc....This dis
021200: 70 6C 61 79 73 20 74 68 65 20 20 63 6F 6E 74 65 plays the conte
021210: 6E 74 73 20 20 20 6F 66 20 20 74 68 65 20 20 69 nts of the i
021220: 64 65 6E 74 69 66 69 65 72 20 20 61 74 20 20 74 dentifier at t
021230: 68 65 20 20 63 75 72 72 65 6E 74 20 63 75 72 73 he current curs
021240: 6F 72 0D 0A 70 6F 73 69 74 69 6F 6E 20 61 6E 64 or..position and
021250: 20 74 68 65 6E 20 74 68 65 20 63 75 72 73 6F 72 then the cursor
021260: 20 6D 6F 76 65 73 20 64 6F 77 6E 20 6F 6E 74 6F moves down onto
021270: 20 74 68 65 20 6E 65 78 74 20 6C 69 6E 65 2E 0D the next line..
021280: 0A 0D 0A 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D ...DISPLAY LINE-
021290: 31 20 4C 49 4E 45 2D 32 20 4C 49 4E 45 2D 33 2E 1 LINE-2 LINE-3.
0212A0: 0D 0A 0D 0A 54 68 69 73 20 64 69 73 70 6C 61 79 ....This display
0212B0: 73 20 74 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F s the contents o
0212C0: 66 20 20 74 68 65 20 20 20 69 64 65 6E 74 69 66 f the identif
0212D0: 69 65 72 73 2C 20 20 61 6E 64 20 20 6F 6E 6C 79 iers, and only
0212E0: 20 6D 6F 76 65 20 6F 6E 74 6F 20 74 68 65 0D 0A move onto the..
0212F0: 6E 65 78 74 20 6C 69 6E 65 20 77 68 65 6E 20 74 next line when t
021300: 43 6F 62 6F 6C 20 69 73 20 75 6E 61 62 6C 65 20 Cobol is unable
021310: 74 6F 20 68 65 6C 70 20 79 6F 75 20 69 6E 20 72 to help you in r
021320: 65 67 61 69 6E 69 6E 67 20 79 6F 75 20 6C 6F 73 egaining you los
021330: 74 20 70 6F 70 75 6C 61 72 69 74 79 2E 0D 0A 0D t popularity....
021340: 0A 44 65 61 72 20 44 65 6E 6E 69 73 2C 20 79 6F .Dear Dennis, yo
021350: 75 72 20 68 61 69 72 20 6C 6F 73 73 20 69 73 20 ur hair loss is
021360: 6E 6F 74 68 69 6E 67 20 74 6F 20 64 6F 20 77 69 nothing to do wi
021370: 74 68 20 61 63 69 64 20 72 61 69 6E 2E 0D 0A 0D th acid rain....
021380: 0A 50 65 74 65 72 20 61 73 6B 73 2C 20 64 6F 20 .Peter asks, do
021390: 49 20 68 61 76 65 20 74 6F 20 63 6F 6D 70 69 6C I have to compil
0213A0: 65 20 61 20 20 43 6F 62 6F 6C 20 70 72 6F 67 72 e a Cobol progr
0213B0: 61 6D 20 65 61 63 68 20 74 69 6D 65 20 74 68 61 am each time tha
0213C0: 74 20 49 20 77 61 6E 74 20 74 6F 0D 0A 72 75 6E t I want to..run
0213D0: 20 69 74 2E 20 4E 6F 2E 20 4F 6E 63 65 20 79 6F it. No. Once yo
0213E0: 75 20 68 61 76 65 20 73 75 63 63 65 73 73 66 75 u have successfu
0213F0: 6C 6C 79 20 20 63 6F 6D 70 69 6C 65 64 20 20 61 lly compiled a
021400: 20 70 72 6F 67 72 61 6D 20 79 6F 75 20 63 61 6E program you can
021410: 20 72 75 6E 20 69 74 0D 0A 62 79 20 75 73 69 6E run it..by usin
021420: 67 2C 20 45 58 45 43 20 27 66 69 6C 65 6E 61 6D g, EXEC 'filenam
021430: 65 27 0D 0A 0D 0A 41 6E 6F 74 68 65 72 20 71 75 e'....Another qu
021440: 65 72 79 20 66 72 6F 6D 20 50 65 74 65 72 2C 20 ery from Peter,
021450: 77 68 65 6E 20 49 20 63 6F 6D 70 69 6C 65 20 61 when I compile a
021460: 20 70 72 6F 67 72 61 6D 20 75 73 69 6E 67 2C 20 program using,
021470: 43 4F 42 4F 4C 20 66 69 6C 65 2E 43 42 4C 2C 0D COBOL file.CBL,.
021480: 0A 49 20 67 65 74 20 74 68 65 20 65 72 72 6F 72 .I get the error
021490: 20 6D 65 73 73 61 67 65 20 4D 41 2C 20 20 77 68 message MA, wh
0214A0: 61 74 20 20 69 73 20 20 68 61 70 70 65 6E 69 6E at is happenin
0214B0: 67 2E 20 20 54 68 65 20 4D 41 20 65 72 72 6F 72 g. The MA error
0214C0: 20 6D 65 73 73 61 67 65 20 69 73 0D 0A 74 65 6C message is..tel
0214D0: 6C 69 6E 67 20 79 6F 75 20 74 68 61 74 20 79 6F ling you that yo
0214E0: 75 20 64 69 73 63 20 64 6F 65 73 20 20 69 73 20 u disc does is
0214F0: 20 73 68 6F 72 74 20 20 6F 66 20 20 73 70 61 63 short of spac
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 01 00 02 09 52 E5 1C 00 C1 02 00 00 00 02 ......R.........
021520: 1C 00 C6 02 00 00 00 02 1C 00 C2 02 00 00 00 02 ................
021530: 1C 00 C7 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021540: 1C 00 C8 02 00 00 00 02 1C 00 C4 02 00 00 00 02 ................
021550: 1C 00 C9 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 68 65 20 72 69 67 68 74 20 68 61 6E 64 20 65 64 he right hand ed
021610: 67 65 20 6F 66 20 20 74 68 65 20 73 63 72 65 65 ge of the scree
021620: 6E 20 69 73 20 72 65 61 63 68 65 64 2E 20 54 72 n is reached. Tr
021630: 79 20 74 68 69 73 20 6F 75 74 0D 0A 75 73 69 6E y this out..usin
021640: 67 20 70 72 6F 67 72 61 6D 20 6E 69 6E 65 2E 0D g program nine..
021650: 0A 0D 0A 0D 0A 46 55 4C 4C 20 53 54 4F 50 53 2E .....FULL STOPS.
021660: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D ..===========...
021670: 0A 53 65 76 65 72 61 6C 20 72 65 61 64 65 72 73 .Several readers
021680: 20 68 61 76 65 20 72 75 6E 20 69 6E 74 6F 20 70 have run into p
021690: 72 6F 62 6C 65 6D 73 20 62 79 20 20 6E 6F 74 20 roblems by not
0216A0: 20 70 75 74 74 69 6E 67 20 61 20 66 75 6C 6C 20 putting a full
0216B0: 73 74 6F 70 20 61 74 20 74 68 65 0D 0A 65 6E 64 stop at the..end
0216C0: 20 6F 66 20 74 68 65 20 6C 69 6E 65 2C 20 61 73 of the line, as
0216D0: 20 70 72 65 76 69 6F 75 73 6C 79 20 73 74 61 74 previously stat
0216E0: 65 64 20 74 68 69 73 20 63 61 6E 20 63 61 75 73 ed this can caus
0216F0: 65 20 6D 61 6E 79 20 70 72 6F 62 6C 65 6D 73 2E e many problems.
021700: 0D 0A 0D 0A 54 6F 20 73 68 6F 77 20 79 6F 75 20 ....To show you
021710: 77 68 61 74 20 49 20 20 6D 65 61 6E 2C 20 20 67 what I mean, g
021720: 6F 20 20 62 61 63 6B 20 20 69 6E 74 6F 20 20 56 o back into V
021730: 44 45 2C 20 20 6C 6F 61 64 20 20 6F 6E 65 20 6F DE, load one o
021740: 66 20 79 6F 75 72 20 65 78 61 6D 70 6C 65 0D 0A f your example..
021750: 70 72 6F 67 72 61 6D 73 20 61 6E 64 20 74 68 65 programs and the
021760: 6E 20 65 72 61 73 65 20 74 68 65 20 66 75 6C 6C n erase the full
021770: 20 73 74 6F 70 20 20 61 74 20 20 74 68 65 20 20 stop at the
021780: 65 6E 64 20 6F 66 20 6C 69 6E 65 20 74 77 6F 2C end of line two,
021790: 20 73 6F 20 69 74 20 6E 6F 77 0D 0A 6C 6F 6F 6B so it now..look
0217A0: 73 20 6C 69 6B 65 0D 0A 0D 0A 50 52 4F 47 52 41 s like....PROGRA
0217B0: 4D 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 M-ID. Example
0217C0: 4E 69 6E 65 0D 0A 0D 0A 54 68 65 6E 20 63 6F 6D Nine....Then com
0217D0: 70 69 6C 65 20 74 68 65 20 70 72 6F 67 72 61 6D pile the program
0217E0: 2C 20 79 6F 75 20 77 69 6C 6C 20 20 6E 6F 74 69 , you will noti
0217F0: 63 65 20 20 61 20 63 68 61 6E 67 65 2E 20 4D 69 ce a change. Mi
021800: 68 65 20 20 70 6F 73 69 74 69 6F 6E 20 73 70 65 he position spe
021810: 63 69 66 69 65 64 20 62 79 20 72 20 28 72 6F 77 cified by r (row
021820: 29 20 61 6E 64 20 63 0D 0A 20 20 20 20 20 20 20 ) and c..
021830: 20 20 20 20 20 20 28 63 6F 6C 75 6D 6E 29 2E 0D (column)..
021840: 0A 0D 0A 55 6E 6C 69 6B 65 20 42 61 73 69 63 2C ...Unlike Basic,
021850: 20 79 6F 75 20 68 61 76 65 20 74 6F 20 61 64 64 you have to add
021860: 20 33 32 20 28 26 32 30 29 20 20 74 6F 20 74 68 32 (&20) to th
021870: 65 20 72 6F 77 20 61 6E 64 20 63 6F 6C 75 6D 6E e row and column
021880: 20 6E 75 6D 62 65 72 73 20 74 68 61 74 0D 0A 79 numbers that..y
021890: 6F 75 20 77 61 6E 74 20 74 6F 20 75 73 65 2C 20 ou want to use,
0218A0: 74 68 65 6E 20 20 65 6E 74 65 72 20 20 74 68 65 then enter the
0218B0: 20 20 76 61 6C 75 65 73 20 20 74 68 61 74 20 20 values that
0218C0: 79 6F 75 20 20 61 72 65 20 20 67 6F 69 6E 67 20 you are going
0218D0: 74 6F 20 75 73 65 20 61 73 0D 0A 63 68 61 72 61 to use as..chara
0218E0: 63 74 65 72 73 2E 0D 0A 0D 0A 49 65 2E 20 20 52 cters.....Ie. R
0218F0: 6F 77 20 31 30 2C 20 43 6F 6C 75 6D 6E 20 32 30 ow 10, Column 20
021900: 0D 0A 0D 0A 41 64 64 20 33 32 20 74 6F 20 74 68 ....Add 32 to th
021910: 65 20 72 6F 77 20 6E 75 6D 62 65 72 2C 20 67 69 e row number, gi
021920: 76 69 6E 67 20 34 32 2C 20 6C 6F 6F 6B 20 61 74 ving 42, look at
021930: 20 74 68 65 20 61 73 63 69 69 20 63 6F 64 65 20 the ascii code
021940: 74 61 62 6C 65 20 28 63 68 61 70 74 65 72 0D 0A table (chapter..
021950: 37 2C 20 70 61 67 65 20 38 29 20 6F 66 20 79 6F 7, page 8) of yo
021960: 75 72 20 6D 61 6E 75 61 6C 2C 20 34 32 20 69 73 ur manual, 42 is
021970: 20 61 20 22 2A 22 2E 0D 0A 0D 0A 41 64 64 20 33 a "*".....Add 3
021980: 32 20 74 6F 20 74 68 65 20 63 6F 6C 75 6D 6E 20 2 to the column
021990: 6E 75 6D 62 65 72 2C 20 67 69 76 69 6E 67 20 20 number, giving
0219A0: 35 32 2C 20 63 68 65 63 6B 20 74 68 65 20 61 73 52, check the as
0219B0: 63 69 69 20 63 6F 64 65 20 74 61 62 6C 65 20 61 cii code table a
0219C0: 67 61 69 6E 2C 0D 0A 35 32 20 69 73 20 61 20 22 gain,..52 is a "
0219D0: 34 22 2E 0D 0A 0D 0A 53 6F 20 74 6F 20 6D 6F 76 4".....So to mov
0219E0: 65 20 74 6F 20 72 6F 77 20 31 30 2C 20 63 6F 6C e to row 10, col
0219F0: 75 6D 6E 20 32 30 2C 20 77 65 20 75 73 65 2C 0D umn 20, we use,.
021A00: 73 73 69 6E 67 20 6F 75 74 20 74 68 65 20 66 75 ssing out the fu
021A10: 6C 6C 0D 0A 73 74 6F 70 20 77 69 6C 6C 20 63 61 ll..stop will ca
021A20: 75 73 65 20 61 70 70 72 6F 78 20 32 2C 35 30 30 use approx 2,500
021A30: 20 65 72 72 6F 72 73 20 74 6F 20 20 62 65 20 72 errors to be r
021A40: 65 70 6F 72 74 65 64 20 62 79 20 74 68 65 20 63 eported by the c
021A50: 6F 6D 70 69 6C 65 72 2C 20 74 68 65 73 65 0D 0A ompiler, these..
021A60: 65 72 72 6F 72 73 20 77 69 6C 6C 20 74 61 6B 65 errors will take
021A70: 20 61 62 6F 75 74 20 74 77 65 6E 74 79 20 6D 69 about twenty mi
021A80: 6E 75 74 65 73 20 20 74 6F 20 20 6C 69 73 74 20 nutes to list
021A90: 20 6F 75 74 2E 20 49 66 20 79 6F 75 20 6C 69 6B out. If you lik
021AA0: 65 20 77 61 74 63 68 69 6E 67 0D 0A 70 61 69 6E e watching..pain
021AB0: 74 20 64 72 79 20 79 6F 75 20 77 69 6C 6C 20 65 t dry you will e
021AC0: 6E 6A 6F 79 20 77 61 74 63 68 69 6E 67 20 74 68 njoy watching th
021AD0: 65 6D 20 6C 69 73 74 65 64 20 6F 6E 20 74 68 65 em listed on the
021AE0: 20 73 63 72 65 65 6E 2C 20 69 66 20 79 6F 75 20 screen, if you
021AF0: 70 72 65 66 65 72 0D 0A 74 6F 20 61 62 6F 72 74 prefer..to abort
021B00: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 74 68 65 the program the
021B10: 6E 2C 0D 0A 0D 0A 50 72 65 73 73 20 43 54 52 4C n,....Press CTRL
021B20: 20 26 20 53 20 20 20 74 6F 20 73 74 6F 70 20 74 & S to stop t
021B30: 68 65 20 6C 69 73 74 69 6E 67 2E 0D 0A 0D 0A 20 he listing.....
021B40: 20 20 20 20 20 43 54 52 4C 20 26 20 43 20 20 20 CTRL & C
021B50: 74 6F 20 61 62 6F 72 74 20 74 68 65 20 63 6F 6D to abort the com
021B60: 70 69 6C 65 72 2E 0D 0A 0D 0A 0D 0A 53 65 76 65 piler.......Seve
021B70: 72 61 6C 20 6F 74 68 65 72 20 43 50 2F 4D 20 63 ral other CP/M c
021B80: 6F 6D 6D 61 6E 64 73 20 61 72 65 20 77 6F 72 74 ommands are wort
021B90: 68 20 72 65 6D 65 6D 62 65 72 69 6E 67 2C 0D 0A h remembering,..
021BA0: 0D 0A 20 20 20 20 20 20 43 74 72 6C 20 26 20 51 .. Ctrl & Q
021BB0: 20 2D 20 52 65 73 75 6D 65 20 74 68 65 20 73 63 - Resume the sc
021BC0: 72 65 65 6E 20 6F 75 74 70 75 74 0D 0A 0D 0A 20 reen output....
021BD0: 20 20 20 20 20 43 74 72 6C 20 26 20 50 20 2D 20 Ctrl & P -
021BE0: 45 63 68 6F 73 20 73 63 72 65 65 6E 20 6F 75 74 Echos screen out
021BF0: 70 75 74 20 74 6F 20 61 20 70 72 69 6E 74 65 72 put to a printer
021C00: 0A 0D 0A 45 53 43 20 22 59 2A 34 22 0D 0A 0D 0A ...ESC "Y*4"....
021C10: 54 68 65 20 74 6F 70 20 6C 65 66 74 20 68 61 6E The top left han
021C20: 64 20 63 6F 72 6E 65 72 20 6F 66 20 20 74 68 65 d corner of the
021C30: 20 20 73 63 72 65 65 6E 20 20 69 73 20 20 72 6F screen is ro
021C40: 77 20 20 30 2C 20 63 6F 6C 75 6D 6E 20 30 2E 20 w 0, column 0.
021C50: 54 68 65 20 62 6F 74 74 6F 6D 0D 0A 72 69 67 68 The bottom..righ
021C60: 74 20 68 61 6E 64 20 63 6F 72 6E 65 72 20 28 77 t hand corner (w
021C70: 68 65 6E 20 69 6E 20 6D 6F 64 65 20 32 29 2C 20 hen in mode 2),
021C80: 69 73 20 72 6F 77 20 32 34 2C 20 63 6F 6C 75 6D is row 24, colum
021C90: 6E 20 37 39 2E 0D 0A 0D 0A 0D 0A 53 43 52 45 45 n 79.......SCREE
021CA0: 4E 20 48 41 4E 44 4C 49 4E 47 20 2D 20 54 48 45 N HANDLING - THE
021CB0: 20 50 52 4F 42 4C 45 4D 2E 0D 0A 3D 3D 3D 3D 3D PROBLEM...=====
021CC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
021CD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 6F 72 =========....Wor
021CE0: 64 20 70 72 6F 63 65 73 73 6F 72 73 20 64 6F 20 d processors do
021CF0: 6E 6F 74 20 6C 65 74 20 79 6F 75 20 65 6E 74 65 not let you ente
021D00: 72 20 61 6E 20 45 53 43 20 63 68 61 72 61 63 74 r an ESC charact
021D10: 65 72 20 61 73 20 70 61 72 74 20 6F 66 20 74 68 er as part of th
021D20: 65 20 74 65 78 74 2C 0D 0A 73 6F 20 77 65 20 6E e text,..so we n
021D30: 65 65 64 20 61 6E 20 61 6C 74 65 72 6E 61 74 69 eed an alternati
021D40: 76 65 20 6D 65 74 68 6F 64 20 6F 66 20 69 6E 74 ve method of int
021D50: 72 6F 64 75 63 69 6E 67 20 74 68 65 20 45 53 43 roducing the ESC
021D60: 20 63 68 61 72 61 63 74 65 72 20 69 6E 74 6F 20 character into
021D70: 74 68 65 0D 0A 74 65 78 74 20 66 69 6C 65 2E 0D the..text file..
021D80: 0A 0D 0A 53 43 52 45 45 4E 20 48 41 4E 44 4C 49 ...SCREEN HANDLI
021D90: 4E 47 20 2D 20 54 48 45 20 53 4F 4C 55 54 49 4F NG - THE SOLUTIO
021DA0: 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D N...============
021DB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
021DC0: 3D 3D 3D 0D 0A 0D 0A 54 6F 20 67 65 74 20 74 68 ===....To get th
021DD0: 65 20 45 53 43 20 63 68 61 72 61 63 74 65 72 20 e ESC character
021DE0: 69 6E 74 6F 20 74 68 65 20 74 65 78 74 20 20 66 into the text f
021DF0: 69 6C 65 20 77 65 20 6E 65 65 64 20 74 6F 20 67 ile we need to g
021E00: 2E 20 57 68 65 6E 20 79 6F 75 20 64 6F 20 74 68 . When you do th
021E10: 69 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 is..
021E20: 20 20 20 20 20 63 6F 72 72 65 63 74 6C 79 20 79 correctly y
021E30: 6F 75 20 67 65 74 20 61 20 6E 69 63 65 20 62 65 ou get a nice be
021E40: 65 70 2E 20 50 72 65 73 73 20 63 6F 6E 74 72 6F ep. Press contro
021E50: 6C 20 2B 20 50 20 61 67 61 69 6E 0D 0A 20 20 20 l + P again..
021E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6F to
021E70: 20 73 77 69 74 63 68 20 74 68 69 73 20 66 65 61 switch this fea
021E80: 74 75 72 65 20 6F 66 66 2E 0D 0A 0D 0A 20 20 20 ture off.....
021E90: 20 20 20 43 74 72 6C 20 26 20 5B 20 2D 20 45 73 Ctrl & [ - Es
021EA0: 63 61 70 65 20 28 77 65 6C 6C 20 77 6F 72 74 68 cape (well worth
021EB0: 20 72 65 6D 65 6D 62 65 72 69 6E 67 29 0D 0A 0D remembering)...
021EC0: 0A 54 68 65 20 36 31 32 38 20 6D 61 6E 75 61 6C .The 6128 manual
021ED0: 20 63 6F 6E 74 61 69 6E 73 20 61 20 66 75 6C 6C contains a full
021EE0: 20 6C 69 73 74 20 61 6E 64 20 65 78 70 6C 61 6E list and explan
021EF0: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 63 6F 6E ation of the con
021F00: 74 72 6F 6C 20 63 6F 64 65 73 2E 0D 0A 28 4F 4D trol codes...(OM
021F10: 47 20 65 6E 6A 6F 79 65 64 20 74 68 69 73 20 62 G enjoyed this b
021F20: 69 74 20 61 73 20 20 68 65 20 20 69 73 20 20 66 it as he is f
021F30: 6F 72 65 76 65 72 20 20 74 65 6C 6C 69 6E 67 20 orever telling
021F40: 6D 65 20 74 68 61 74 20 70 75 6E 63 74 75 61 74 me that punctuat
021F50: 69 6F 6E 20 61 6E 64 0D 0A 73 70 65 6C 6C 69 6E ion and..spellin
021F60: 67 20 61 72 65 20 69 6D 70 6F 72 74 61 6E 74 2E g are important.
021F70: 29 0D 0A 0D 0A 0D 0A 53 43 52 45 45 4E 20 48 41 )......SCREEN HA
021F80: 4E 44 4C 49 4E 47 20 49 4E 54 52 4F 44 55 43 54 NDLING INTRODUCT
021F90: 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION...==========
021FA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
021FB0: 3D 3D 3D 0D 0A 0D 0A 53 63 72 65 65 6E 20 68 61 ===....Screen ha
021FC0: 6E 64 6C 69 6E 67 20 75 73 69 6E 67 20 74 68 69 ndling using thi
021FD0: 73 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 69 6E s public domain
021FE0: 20 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 43 version of C
021FF0: 6F 62 6F 6C 20 69 73 20 6D 65 73 73 79 20 61 6E obol is messy an
022000: 6F 20 62 61 63 6B 20 69 6E 74 6F 20 42 61 73 69 o back into Basi
022010: 63 0D 0A 61 6E 64 20 77 72 69 74 65 20 61 20 73 c..and write a s
022020: 68 6F 72 74 20 70 72 6F 67 72 61 6D 20 74 6F 20 hort program to
022030: 73 74 6F 72 65 20 74 68 65 20 45 53 43 20 63 68 store the ESC ch
022040: 61 72 61 63 74 65 72 20 61 73 20 61 20 74 65 78 aracter as a tex
022050: 74 20 63 68 61 72 61 63 74 65 72 2E 0D 0A 0D 0A t character.....
022060: 54 68 69 73 20 70 72 6F 67 72 61 6D 20 73 74 6F This program sto
022070: 72 65 73 20 45 53 43 20 22 45 22 20 45 53 43 20 res ESC "E" ESC
022080: 22 48 22 20 74 6F 20 64 69 73 63 20 61 73 20 61 "H" to disc as a
022090: 20 74 65 78 74 20 66 69 6C 65 20 63 61 6C 6C 65 text file calle
0220A0: 64 20 22 43 4C 53 22 2E 0D 0A 0D 0A 45 53 43 20 d "CLS".....ESC
0220B0: 22 45 22 20 45 53 43 20 22 48 22 20 68 61 76 65 "E" ESC "H" have
0220C0: 20 74 68 65 20 73 61 6D 65 20 65 66 66 65 63 74 the same effect
0220D0: 20 75 6E 64 65 72 20 43 50 2F 4D 20 61 73 20 43 under CP/M as C
0220E0: 4C 53 20 64 6F 65 73 20 69 6E 20 42 61 73 69 63 LS does in Basic
0220F0: 2E 0D 0A 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 .....10 OPENOUT
022100: 22 43 4C 53 22 0D 0A 32 30 20 50 52 49 4E 54 20 "CLS"..20 PRINT
022110: 23 39 2C 43 48 52 24 28 32 37 29 3B 22 45 22 3B #9,CHR$(27);"E";
022120: 43 48 52 24 28 32 37 29 3B 22 48 22 3B 0D 0A 33 CHR$(27);"H";..3
022130: 30 20 43 4C 4F 53 45 4F 55 54 0D 0A 34 30 20 45 0 CLOSEOUT..40 E
022140: 4E 44 0D 0A 0D 0A 59 6F 75 20 6D 61 79 20 62 65 ND....You may be
022150: 20 77 6F 6E 64 65 72 69 6E 67 20 77 68 61 74 20 wondering what
022160: 20 74 68 65 20 20 45 53 43 20 20 63 68 61 72 61 the ESC chara
022170: 63 74 65 72 20 20 6C 6F 6F 6B 73 20 6C 69 6B 65 cter looks like
022180: 20 77 68 65 6E 20 75 73 69 6E 67 20 56 44 45 2C when using VDE,
022190: 0D 0A 77 65 6C 6C 20 69 74 20 69 73 20 74 68 65 ..well it is the
0221A0: 20 6C 65 66 74 20 68 61 6E 64 20 20 73 71 75 61 left hand squa
0221B0: 72 65 20 20 62 72 61 63 6B 65 74 20 20 22 5B 22 re bracket "["
0221C0: 20 20 69 6E 20 69 6E 76 65 72 73 65 20 76 69 64 in inverse vid
0221D0: 65 6F 20 6D 6F 64 65 2E 20 4E 6F 77 0D 0A 62 61 eo mode. Now..ba
0221E0: 63 6B 20 74 6F 20 43 50 2F 4D 20 61 6E 64 20 65 ck to CP/M and e
0221F0: 6E 74 65 72 20 74 68 65 20 56 44 45 20 77 6F 72 nter the VDE wor
022200: 64 0D 0A 6C 6F 6E 67 20 77 69 6E 64 65 64 2E 20 d..long winded.
022210: 54 68 65 20 6E 65 78 74 20 73 65 63 74 69 6F 6E The next section
022220: 20 65 78 70 6C 61 69 6E 73 20 20 77 68 61 74 20 explains what
022230: 20 74 68 65 20 70 72 6F 62 6C 65 6D 20 69 73 2C the problem is,
022240: 20 61 6E 64 20 74 68 65 20 62 65 73 74 0D 0A 6D and the best..m
022250: 65 74 68 6F 64 20 6F 66 20 6F 76 65 72 63 6F 6D ethod of overcom
022260: 69 6E 67 20 74 68 65 20 70 72 6F 62 6C 65 6D 2E ing the problem.
022270: 20 54 68 65 20 20 73 63 72 65 65 6E 20 68 61 6E The screen han
022280: 64 6C 69 6E 67 20 63 6F 6E 74 72 6F 6C 20 63 6F dling control co
022290: 64 65 73 20 75 6E 64 65 72 0D 0A 43 50 2F 4D 20 des under..CP/M
0222A0: 61 72 65 20 69 73 73 75 65 64 20 61 73 20 20 45 are issued as E
0222B0: 53 43 20 20 63 6F 6D 6D 61 6E 64 73 2C 20 20 74 SC commands, t
0222C0: 68 65 73 65 20 20 61 72 65 20 20 66 75 6C 6C 79 hese are fully
0222D0: 20 65 78 70 6C 61 69 6E 65 64 20 69 6E 20 63 68 explained in ch
0222E0: 61 70 74 65 72 0D 0A 73 65 76 65 6E 2C 20 70 61 apter..seven, pa
0222F0: 67 65 20 34 38 20 20 6F 66 20 79 6F 75 72 20 41 ge 48 of your A
022300: 6D 73 74 72 61 64 20 36 31 32 38 20 6D 61 6E 75 mstrad 6128 manu
022310: 61 6C 2E 0D 0A 0D 0A 54 68 65 20 6D 61 69 6E 20 al.....The main
022320: 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 20 61 72 control codes ar
022330: 65 2C 0D 0A 0D 0A 45 53 43 20 22 45 22 20 20 20 e,....ESC "E"
022340: 20 20 20 43 6C 65 61 72 20 74 68 65 20 73 63 72 Clear the scr
022350: 65 65 6E 2E 0D 0A 0D 0A 45 53 43 20 22 48 22 20 een.....ESC "H"
022360: 20 20 20 20 20 4D 6F 76 65 20 74 68 65 20 63 75 Move the cu
022370: 72 73 6F 72 20 74 6F 20 74 68 65 20 68 6F 6D 65 rsor to the home
022380: 20 70 6F 73 69 74 69 6F 6E 2C 28 6C 69 6E 65 20 position,(line
022390: 30 2C 20 63 6F 6C 75 6D 6E 20 30 29 2E 0D 0A 0D 0, column 0)....
0223A0: 0A 45 53 43 20 22 62 22 20 6E 20 20 20 20 53 65 .ESC "b" n Se
0223B0: 74 20 74 68 65 20 69 6E 6B 20 74 6F 20 63 6F 6C t the ink to col
0223C0: 6F 75 72 20 6E 2E 0D 0A 0D 0A 45 53 43 20 22 63 our n.....ESC "c
0223D0: 22 20 6E 20 20 20 20 53 65 74 20 74 68 65 20 70 " n Set the p
0223E0: 61 70 65 72 20 74 6F 20 63 6F 6C 6F 75 72 20 6E aper to colour n
0223F0: 2E 0D 0A 0D 0A 45 53 43 20 22 70 22 20 20 20 20 .....ESC "p"
022400: 64 20 70 72 6F 63 65 73 73 69 6E 67 20 70 72 6F d processing pro
022410: 67 72 61 6D 2E 0D 0A 0D 0A 50 72 65 73 73 20 45 gram.....Press E
022420: 53 43 20 74 68 65 6E 20 52 2C 0D 0A 0D 0A 54 68 SC then R,....Th
022430: 69 73 20 77 69 6C 6C 20 70 72 6F 6D 70 74 20 79 is will prompt y
022440: 6F 75 20 74 6F 20 65 6E 74 65 72 20 74 68 65 20 ou to enter the
022450: 6E 61 6D 65 20 6F 66 20 61 20 66 69 6C 65 20 74 name of a file t
022460: 68 61 74 20 79 6F 75 20 77 69 73 68 20 74 6F 20 hat you wish to
022470: 6D 65 72 67 65 20 61 74 0D 0A 74 68 65 20 63 75 merge at..the cu
022480: 72 72 65 6E 74 20 63 75 72 73 6F 72 20 70 6F 73 rrent cursor pos
022490: 69 74 69 6F 6E 2E 20 54 79 70 65 20 69 6E 20 43 ition. Type in C
0224A0: 4C 53 2C 20 20 74 68 65 6E 20 70 72 65 73 73 20 LS, then press
0224B0: 74 68 65 20 52 45 54 55 52 4E 20 6B 65 79 2E 20 the RETURN key.
0224C0: 54 68 69 73 0D 0A 77 69 6C 6C 20 6C 6F 61 64 20 This..will load
0224D0: 74 68 65 20 45 53 43 20 22 45 22 20 45 53 43 20 the ESC "E" ESC
0224E0: 20 22 48 22 20 20 63 68 61 72 61 63 74 65 72 73 "H" characters
0224F0: 20 61 74 20 74 68 65 20 63 75 72 72 65 6E 74 20 at the current
022500: 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E 2E cursor position.
022510: 0D 0A 59 6F 75 20 63 61 6E 20 75 73 65 20 74 68 ..You can use th
022520: 69 73 20 6D 65 74 68 6F 64 20 74 6F 20 6C 6F 61 is method to loa
022530: 64 20 74 68 65 20 43 4C 53 20 63 68 61 72 61 63 d the CLS charac
022540: 74 65 72 73 20 69 6E 74 6F 20 74 68 65 20 74 65 ters into the te
022550: 78 74 20 66 69 6C 65 20 65 61 63 68 0D 0A 74 69 xt file each..ti
022560: 6D 65 20 74 68 61 74 20 79 6F 75 20 6E 65 65 64 me that you need
022570: 20 74 68 65 6D 2E 0D 0A 0D 0A 0D 0A 55 53 49 4E them.......USIN
022580: 47 20 54 48 45 20 53 4F 4C 55 54 49 4F 4E 2E 0D G THE SOLUTION..
022590: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
0225A0: 3D 3D 3D 3D 0D 0A 0D 0A 54 79 70 65 20 69 6E 20 ====....Type in
0225B0: 70 72 6F 67 72 61 6D 20 6E 69 6E 65 20 75 73 69 program nine usi
0225C0: 6E 67 20 56 44 45 2C 20 20 61 6E 64 20 61 6D 65 ng VDE, and ame
0225D0: 6E 64 20 74 68 65 20 74 68 65 20 57 4F 52 4B 49 nd the the WORKI
0225E0: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
0225F0: 4F 4E 0D 0A 74 6F 20 69 6E 63 6C 75 64 65 20 74 ON..to include t
022600: 20 20 49 6E 76 65 72 73 65 20 76 69 64 65 6F 20 Inverse video
022610: 4F 4E 20 28 73 77 61 70 73 20 74 68 65 20 70 65 ON (swaps the pe
022620: 6E 20 61 6E 64 20 70 61 70 65 72 20 63 6F 6C 6F n and paper colo
022630: 75 72 73 29 2E 0D 0A 0D 0A 45 53 43 20 22 71 22 urs).....ESC "q"
022640: 20 20 20 20 20 20 49 6E 76 65 72 73 65 20 76 69 Inverse vi
022650: 64 65 6F 20 4F 46 46 2E 0D 0A 0D 0A 45 53 43 20 deo OFF.....ESC
022660: 22 33 22 20 6E 20 20 20 20 53 65 74 20 74 68 65 "3" n Set the
022670: 20 73 63 72 65 65 6E 20 6D 6F 64 65 20 74 6F 20 screen mode to
022680: 6E 2E 20 28 6E 20 69 73 20 74 68 65 20 73 63 72 n. (n is the scr
022690: 65 65 6E 20 6D 6F 64 65 20 70 6C 75 73 20 33 32 een mode plus 32
0226A0: 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 )....
0226B0: 20 20 54 68 65 72 65 66 6F 72 65 20 20 6D 6F 64 Therefore mod
0226C0: 65 20 30 2C 20 20 6E 3D 33 32 0D 0A 20 20 20 20 e 0, n=32..
0226D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0226E0: 20 20 20 20 6D 6F 64 65 20 31 20 20 20 6E 3D 33 mode 1 n=3
0226F0: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3..
022700: 20 20 20 20 20 20 20 20 20 20 20 6D 6F 64 65 20 mode
022710: 32 20 20 20 6E 3D 33 34 0D 0A 0D 0A 43 68 61 6E 2 n=34....Chan
022720: 67 69 6E 67 20 74 68 65 20 6D 6F 64 65 20 20 75 ging the mode u
022730: 6E 64 65 72 20 20 43 50 2F 4D 20 20 64 6F 65 73 nder CP/M does
022740: 20 20 6E 6F 74 20 20 6D 6F 76 65 20 20 74 68 65 not move the
022750: 20 20 63 75 72 73 6F 72 20 20 74 6F 20 20 74 68 cursor to th
022760: 65 20 68 6F 6D 65 0D 0A 70 6F 73 69 74 69 6F 6E e home..position
022770: 2C 20 73 6F 20 74 6F 20 75 73 65 20 74 68 69 73 , so to use this
022780: 20 63 6F 6D 6D 61 6E 64 20 69 6E 20 74 68 65 20 command in the
022790: 20 73 61 6D 65 20 20 77 61 79 20 61 73 20 42 61 same way as Ba
0227A0: 73 69 63 20 77 65 20 6E 65 65 64 20 74 6F 20 61 sic we need to a
0227B0: 64 64 0D 0A 45 53 43 20 22 48 22 20 74 6F 20 74 dd..ESC "H" to t
0227C0: 68 65 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 20 he control code
0227D0: 73 65 71 75 65 6E 63 65 2E 0D 0A 0D 0A 45 53 43 sequence.....ESC
0227E0: 20 22 59 22 20 72 20 63 20 20 4D 6F 76 65 20 74 "Y" r c Move t
0227F0: 68 65 20 63 75 72 73 6F 72 20 20 74 6F 20 20 74 he cursor to t
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 01 00 02 09 52 E5 1D 00 C1 02 00 00 00 02 ......R.........
022820: 1D 00 C6 02 00 00 00 02 1D 00 C2 02 00 00 00 02 ................
022830: 1D 00 C7 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022840: 1D 00 C8 02 00 00 00 02 1D 00 C4 02 00 00 00 02 ................
022850: 1D 00 C9 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 68 69 73 20 6E 65 77 20 6C 69 6E 65 2E 0D 0A 0D his new line....
022910: 0A 30 31 20 50 41 47 45 2D 48 45 41 44 49 4E 47 .01 PAGE-HEADING
022920: 2E 0D 0A 20 20 30 33 20 43 4C 53 20 20 20 20 20 ... 03 CLS
022930: 50 49 43 20 58 28 34 29 20 20 56 41 4C 55 45 20 PIC X(4) VALUE
022940: 20 27 0D 0A 20 20 30 33 20 4C 49 4E 45 2D 31 20 '.. 03 LINE-1
022950: 20 65 74 63 0D 0A 0D 0A 54 68 65 6E 20 70 6F 73 etc....Then pos
022960: 69 74 69 6F 6E 20 74 68 65 20 63 75 72 73 6F 72 ition the cursor
022970: 20 61 74 20 74 68 65 20 65 6E 64 20 20 6F 66 20 at the end of
022980: 20 74 68 65 20 20 6E 65 77 20 20 6C 69 6E 65 2C the new line,
022990: 20 61 6E 64 20 75 73 65 20 74 68 65 20 45 53 43 and use the ESC
0229A0: 20 52 0D 0A 63 6F 6D 6D 61 6E 64 20 74 6F 20 6D R..command to m
0229B0: 65 72 67 65 20 74 68 65 20 43 4C 53 20 74 65 78 erge the CLS tex
0229C0: 74 20 66 69 6C 65 2E 20 54 68 65 20 6C 69 6E 65 t file. The line
0229D0: 20 77 69 6C 6C 20 6E 6F 77 20 6C 6F 6F 6B 20 6C will now look l
0229E0: 69 6B 65 20 74 68 69 73 2C 0D 0A 0D 0A 20 20 30 ike this,.... 0
0229F0: 33 20 43 4C 53 20 20 20 20 20 50 49 43 20 58 28 3 CLS PIC X(
022A00: 34 29 20 20 56 41 4C 55 45 20 20 27 5B 45 5B 48 4) VALUE '[E[H
022A10: 0D 0A 0D 0A 41 64 64 20 74 68 65 20 73 69 6E 67 ....Add the sing
022A20: 6C 65 20 71 75 6F 74 61 74 69 6F 6E 20 6D 61 72 le quotation mar
022A30: 6B 20 61 6E 64 20 74 68 65 20 66 75 6C 6C 20 73 k and the full s
022A40: 74 6F 70 20 74 6F 20 67 69 76 65 2C 0D 0A 0D 0A top to give,....
022A50: 20 20 30 33 20 43 4C 53 20 20 20 20 20 50 49 43 03 CLS PIC
022A60: 20 58 28 34 29 20 20 56 41 4C 55 45 20 20 27 5B X(4) VALUE '[
022A70: 45 5B 48 27 2E 0D 0A 0D 0A 54 68 65 6E 20 61 6D E[H'.....Then am
022A80: 65 6E 64 20 74 68 65 20 50 52 4F 43 45 44 55 52 end the PROCEDUR
022A90: 45 20 44 49 56 49 53 49 4F 4E 20 74 6F 20 44 49 E DIVISION to DI
022AA0: 53 50 4C 41 59 20 74 68 65 20 6E 65 77 20 69 64 SPLAY the new id
022AB0: 65 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A 50 52 4F entifier.....PRO
022AC0: 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E 2E CEDURE DIVISION.
022AD0: 0D 0A 2A 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 44 ..*..START... D
022AE0: 49 53 50 4C 41 59 20 43 4C 53 2E 0D 0A 20 20 44 ISPLAY CLS... D
022AF0: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A ISPLAY LINE-1...
022B00: 20 54 48 45 20 49 4E 54 52 4F 44 55 43 54 49 4F THE INTRODUCTIO
022B10: 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D N...============
022B20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
022B30: 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 73 =====....Cobol s
022B40: 75 70 70 6F 72 74 73 20 62 6F 74 68 20 53 65 71 upports both Seq
022B50: 75 65 6E 74 69 61 6C 20 61 6E 64 20 52 61 6E 64 uential and Rand
022B60: 6F 6D 20 61 63 63 65 73 73 20 66 69 6C 65 20 68 om access file h
022B70: 61 6E 64 6C 69 6E 67 2E 0D 0A 0D 0A 53 65 71 75 andling.....Sequ
022B80: 65 6E 74 69 61 6C 20 66 69 6C 65 73 20 61 72 65 ential files are
022B90: 20 6F 70 65 6E 65 64 20 61 73 20 65 69 74 68 65 opened as eithe
022BA0: 72 20 49 4E 50 55 54 20 6F 72 20 4F 55 54 50 55 r INPUT or OUTPU
022BB0: 54 2C 20 52 61 6E 64 6F 6D 20 61 63 63 65 73 73 T, Random access
022BC0: 20 66 69 6C 65 73 0D 0A 61 72 65 20 6F 70 65 6E files..are open
022BD0: 65 64 20 61 73 20 49 4E 50 55 54 2D 4F 55 54 50 ed as INPUT-OUTP
022BE0: 55 54 2E 0D 0A 0D 0A 43 6F 62 6F 6C 20 61 6C 6C UT.....Cobol all
022BF0: 6F 77 73 20 79 6F 75 20 74 6F 20 68 61 76 65 20 ows you to have
022C00: 6D 6F 72 65 20 74 68 61 6E 20 20 6F 6E 65 20 20 more than one
022C10: 66 69 6C 65 20 6F 70 65 6E 20 61 74 20 74 68 65 file open at the
022C20: 20 73 61 6D 65 20 74 69 6D 65 2C 20 42 61 73 69 same time, Basi
022C30: 63 0D 0A 72 65 73 74 72 69 63 74 73 20 79 6F 75 c..restricts you
022C40: 20 74 6F 20 68 61 76 69 6E 67 20 6F 6E 6C 79 20 to having only
022C50: 6F 6E 65 20 66 69 6C 65 20 6F 70 65 6E 20 61 74 one file open at
022C60: 20 61 6E 79 20 70 6F 69 6E 74 20 69 6E 20 74 69 any point in ti
022C70: 6D 65 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D me.......PROGRAM
022C80: 20 54 57 45 4C 56 45 2E 0D 0A 3D 3D 3D 3D 3D 3D TWELVE...======
022C90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 =========....Thi
022CA0: 73 20 70 72 6F 67 72 61 6D 20 61 73 6B 73 20 79 s program asks y
022CB0: 6F 75 20 74 6F 20 65 6E 74 65 72 20 6E 61 6D 65 ou to enter name
022CC0: 73 20 20 74 68 65 6E 20 20 73 74 6F 72 65 73 20 s then stores
022CD0: 20 74 68 65 20 6E 61 6D 65 73 20 74 6F 20 64 69 the names to di
022CE0: 73 63 20 69 6E 20 61 0D 0A 64 61 74 61 20 66 69 sc in a..data fi
022CF0: 6C 65 2E 20 54 68 65 20 70 72 6F 67 72 61 6D 20 le. The program
022D00: 20 20 65 74 63 2E 0D 0A 0D 0A 54 68 65 6E 20 63 etc.....Then c
022D10: 6F 6D 70 69 6C 65 20 61 6E 64 20 72 75 6E 20 74 ompile and run t
022D20: 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 57 he program.....W
022D30: 68 65 6E 20 79 6F 75 20 63 6F 6D 70 69 6C 65 20 hen you compile
022D40: 74 68 65 20 74 65 78 74 20 66 69 6C 65 20 20 74 the text file t
022D50: 68 65 20 20 63 6F 6E 74 72 6F 6C 20 63 68 61 72 he control char
022D60: 61 63 74 65 72 73 20 74 68 61 74 20 79 6F 75 20 acters that you
022D70: 61 72 65 20 75 73 69 6E 67 0D 0A 77 69 6C 6C 20 are using..will
022D80: 62 65 20 61 63 74 69 6F 6E 65 64 20 61 73 20 74 be actioned as t
022D90: 68 65 20 20 70 72 6F 67 72 61 6D 20 20 63 6F 6D he program com
022DA0: 70 69 6C 65 73 2E 20 20 53 6F 20 68 61 6C 66 20 piles. So half
022DB0: 77 61 79 20 74 68 72 6F 75 67 68 20 63 6F 6D 70 way through comp
022DC0: 69 6C 69 6E 67 0D 0A 74 68 69 73 20 70 72 6F 67 iling..this prog
022DD0: 72 61 6D 20 74 68 65 20 73 63 72 65 65 6E 20 77 ram the screen w
022DE0: 69 6C 6C 20 62 65 20 63 6C 65 61 72 65 64 20 28 ill be cleared (
022DF0: 64 6F 20 6E 6F 74 20 77 6F 72 72 79 20 61 62 6F do not worry abo
022E00: 75 74 20 74 68 69 73 29 2E 0D 0A 0D 0A 57 68 65 ut this).....Whe
022E10: 6E 20 79 6F 75 20 72 75 6E 20 74 68 65 20 70 72 n you run the pr
022E20: 6F 67 72 61 6D 20 74 68 65 20 73 63 72 65 65 6E ogram the screen
022E30: 20 20 77 69 6C 6C 20 20 62 65 20 63 6C 65 61 72 will be clear
022E40: 65 64 20 61 6E 64 20 74 68 65 20 63 75 72 73 6F ed and the curso
022E50: 72 20 6D 6F 76 65 64 0D 0A 74 6F 20 74 68 65 20 r moved..to the
022E60: 68 6F 6D 65 20 70 6F 73 69 74 69 6F 6E 20 62 65 home position be
022E70: 66 6F 72 65 20 74 68 65 20 20 74 65 78 74 20 20 fore the text
022E80: 69 73 20 20 64 69 73 70 6C 61 79 65 64 20 6F 6E is displayed on
022E90: 20 74 68 65 20 73 63 72 65 65 6E 2E 20 47 6F 20 the screen. Go
022EA0: 6F 6E 2C 0D 0A 74 72 79 20 69 74 2C 20 49 27 6C on,..try it, I'l
022EB0: 6C 20 77 61 69 74 20 68 65 72 65 20 66 6F 72 20 l wait here for
022EC0: 79 6F 75 2E 2E 2E 2E 2E 2E 2E 20 4F 6B 2C 20 48 you....... Ok, H
022ED0: 61 70 70 79 20 74 68 61 74 20 69 74 20 77 6F 72 appy that it wor
022EE0: 6B 73 3F 0D 0A 0D 0A 49 66 20 74 68 69 73 20 64 ks?....If this d
022EF0: 6F 65 73 20 20 6E 6F 74 20 20 77 6F 72 6B 2C 20 oes not work,
022F00: 69 6E 74 72 6F 64 75 63 65 73 20 79 6F 75 20 74 introduces you t
022F10: 6F 20 6D 6F 72 65 20 6E 65 77 20 73 65 63 74 69 o more new secti
022F20: 6F 6E 73 20 61 6E 64 20 63 6F 6D 6D 61 6E 64 73 ons and commands
022F30: 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 .....INPUT-OUTPU
022F40: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 54 68 T SECTION.....Th
022F50: 69 73 20 66 6F 72 6D 73 20 70 61 72 74 20 6F 66 is forms part of
022F60: 20 74 68 65 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 the ENVIRONMENT
022F70: 20 44 49 56 49 53 49 4F 4E 2C 20 61 6E 64 20 61 DIVISION, and a
022F80: 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 73 70 65 llows you to spe
022F90: 63 69 66 79 20 74 68 65 0D 0A 27 66 69 6C 65 6E cify the..'filen
022FA0: 61 6D 65 27 2E 0D 0A 0D 0A 46 6F 72 6D 61 74 3A ame'.....Format:
022FB0: 20 20 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 INPUT-OUTPUT S
022FC0: 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 20 ECTION.....
022FD0: 20 20 20 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C FILE-CONTROL
022FE0: 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 53 45 ..... SE
022FF0: 4C 45 43 54 20 27 70 72 6F 67 72 61 6D 20 66 69 LECT 'program fi
023000: 6C 65 20 6E 61 6D 65 27 20 41 53 53 49 47 4E 0D le name' ASSIGN.
023010: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
023020: 20 27 64 69 73 63 20 66 69 6C 65 20 6E 61 6D 65 'disc file name
023030: 27 2E 0D 0A 0D 0A 44 69 73 63 20 66 69 6C 65 73 '.....Disc files
023040: 20 61 72 65 20 61 6C 6C 6F 63 61 74 65 64 20 74 are allocated t
023050: 77 6F 20 6E 61 6D 65 73 2C 0D 0A 0D 0A 41 3E 20 wo names,....A>
023060: 54 68 65 20 6E 61 6D 65 20 74 68 61 74 20 74 68 The name that th
023070: 65 20 66 69 6C 65 20 69 73 20 72 65 66 65 72 72 e file is referr
023080: 65 64 20 74 6F 20 69 6E 20 74 68 65 20 70 72 6F ed to in the pro
023090: 67 72 61 6D 2E 0D 0A 42 3E 20 54 68 65 20 6E 61 gram...B> The na
0230A0: 6D 65 20 74 68 61 74 20 74 68 65 20 66 69 6C 65 me that the file
0230B0: 20 69 73 20 73 61 76 65 64 20 74 6F 20 74 68 65 is saved to the
0230C0: 20 64 69 73 63 20 61 73 2E 0D 0A 0D 0A 0D 0A 46 disc as.......F
0230D0: 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 3D 3D ILE SECTION...==
0230E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 ===========....T
0230F0: 68 65 20 46 49 4C 45 20 53 45 43 54 49 4F 4E 20 he FILE SECTION
023100: 20 72 65 61 64 20 20 74 68 72 6F 75 67 68 20 20 read through
023110: 74 68 69 73 20 20 73 65 63 74 69 6F 6E 20 20 61 this section a
023120: 67 61 69 6E 2C 20 20 61 6E 64 20 20 64 6F 20 69 gain, and do i
023130: 74 0D 0A 63 6F 72 72 65 63 74 6C 79 20 74 68 65 t..correctly the
023140: 20 73 65 63 6F 6E 64 20 74 69 6D 65 2E 0D 0A 0D second time....
023150: 0A 0D 0A 43 4F 4E 54 49 4E 55 49 4E 47 20 54 48 ...CONTINUING TH
023160: 45 20 53 4F 4C 55 54 49 4F 4E 2E 0D 0A 3D 3D 3D E SOLUTION...===
023170: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
023180: 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 65 20 6E 6F 77 20 =====....We now
023190: 68 61 76 65 20 74 6F 20 63 72 65 61 74 65 20 61 have to create a
0231A0: 20 72 61 6E 67 65 20 20 6F 66 20 20 74 65 78 74 range of text
0231B0: 20 20 66 69 6C 65 73 20 20 74 6F 20 63 6F 70 65 files to cope
0231C0: 20 77 69 74 68 20 74 68 65 20 6F 74 68 65 72 20 with the other
0231D0: 45 53 43 0D 0A 63 6F 64 65 73 20 74 68 61 74 20 ESC..codes that
0231E0: 77 65 20 77 61 6E 74 20 74 6F 20 75 73 65 20 20 we want to use
0231F0: 69 6E 20 20 74 68 65 20 20 70 72 6F 67 72 61 6D in the program
023200: 2E 20 20 49 20 20 73 61 76 65 20 74 68 65 73 65 . I save these
023210: 20 74 6F 20 64 69 73 63 20 77 69 74 68 20 61 0D to disc with a.
023220: 0A 73 69 6D 69 6C 61 72 20 6E 61 6D 65 20 74 6F .similar name to
023230: 20 74 68 65 69 72 20 42 61 73 69 63 20 65 71 75 their Basic equ
023240: 69 76 61 6C 65 6E 74 73 20 6F 72 20 61 20 6D 65 ivalents or a me
023250: 61 6E 69 6E 67 66 75 6C 20 66 69 6C 65 20 6E 61 aningful file na
023260: 6D 65 2E 0D 0A 0D 0A 49 65 3A 20 4D 4F 44 45 2D me.....Ie: MODE-
023270: 30 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4E 0 PEN
023280: 0D 0A 20 20 20 20 50 41 50 45 52 20 20 20 20 20 .. PAPER
023290: 20 20 20 20 20 20 20 20 4C 4F 43 41 54 45 0D 0A LOCATE..
0232A0: 20 20 20 20 49 4E 56 45 52 53 45 2E 4F 4E 20 20 INVERSE.ON
0232B0: 20 20 20 20 20 20 49 4E 56 45 52 53 45 2E 4F 46 INVERSE.OF
0232C0: 46 0D 0A 20 20 20 20 65 74 63 0D 0A 0D 0A 54 68 F.. etc....Th
0232D0: 69 73 20 42 61 73 69 63 20 70 72 6F 67 72 61 6D is Basic program
0232E0: 20 73 65 74 73 20 75 70 20 74 68 65 20 63 6F 6E sets up the con
0232F0: 74 72 6F 6C 20 20 63 6F 64 65 73 20 74 6F 20 63 trol codes to c
023300: 66 6F 72 6D 73 20 70 61 72 74 20 20 6F 66 20 20 forms part of
023310: 74 68 65 20 20 44 41 54 41 20 20 44 49 56 49 53 the DATA DIVIS
023320: 49 4F 4E 20 61 6E 64 20 63 6F 6E 74 61 69 6E 73 ION and contains
023330: 20 74 68 65 20 66 69 6C 65 0D 0A 64 65 73 63 72 the file..descr
023340: 69 70 74 69 6F 6E 20 28 46 44 29 2E 0D 0A 0D 0A iption (FD).....
023350: 46 6F 72 6D 61 74 2E 20 20 46 49 4C 45 20 53 45 Format. FILE SE
023360: 43 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 CTION...
023370: 20 46 44 20 66 69 6C 65 6E 61 6D 65 2E 0D 0A 20 FD filename...
023380: 20 20 20 20 20 20 20 20 30 31 20 69 64 65 6E 74 01 ident
023390: 69 66 69 65 72 2E 0D 0A 20 20 20 20 20 20 20 20 ifier...
0233A0: 20 20 20 30 33 20 69 64 65 6E 74 69 66 69 65 72 03 identifier
0233B0: 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 PIC X(30)...
0233C0: 20 20 20 20 20 20 20 20 30 33 20 69 64 65 6E 74 03 ident
0233D0: 69 66 69 65 72 20 50 49 43 20 58 28 33 32 29 2E ifier PIC X(32).
0233E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 65 74 63 .. etc
0233F0: 0D 0A 0D 0A 0D 0A 57 52 49 54 45 2E 0D 0A 3D 3D ......WRITE...==
023400: 3D 3D 3D 3D 0D 0A 0D 0A 57 72 69 74 65 20 61 20 ====....Write a
023410: 72 65 63 6F 72 64 20 74 6F 20 74 68 65 20 64 69 record to the di
023420: 73 63 20 66 69 6C 65 2C 20 74 68 65 20 72 65 63 sc file, the rec
023430: 6F 72 64 73 20 61 72 65 20 73 74 6F 72 65 64 20 ords are stored
023440: 69 73 20 61 73 63 69 69 20 66 6F 72 6D 61 74 2E is ascii format.
023450: 0D 0A 0D 0A 46 6F 72 6D 61 74 2E 20 20 57 52 49 ....Format. WRI
023460: 54 45 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A TE identifier...
023470: 0D 0A 54 68 65 20 69 64 65 6E 74 69 66 69 65 72 ..The identifier
023480: 20 74 68 61 74 20 69 73 20 77 72 69 74 74 65 6E that is written
023490: 20 20 74 6F 20 20 64 69 73 63 20 20 69 73 20 20 to disc is
0234A0: 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 74 the identifier t
0234B0: 68 61 74 20 68 61 73 20 62 65 65 6E 0D 0A 73 70 hat has been..sp
0234C0: 65 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 46 ecified in the F
0234D0: 49 4C 45 20 53 45 43 54 49 4F 4E 20 77 69 74 68 ILE SECTION with
0234E0: 20 74 68 65 20 30 31 20 6C 65 76 65 6C 20 6E 75 the 01 level nu
0234F0: 6D 62 65 72 2E 0D 0A 0D 0A 0D 0A 49 46 2E 2E 2E mber.......IF...
023500: 68 61 6E 67 65 20 74 68 65 20 73 63 72 65 65 6E hange the screen
023510: 20 6D 6F 64 65 20 74 6F 0D 0A 6D 6F 64 65 20 31 mode to..mode 1
023520: 20 61 6E 64 20 70 6F 73 69 74 69 6F 6E 73 20 74 and positions t
023530: 68 65 20 63 75 72 73 6F 72 20 61 74 20 74 68 65 he cursor at the
023540: 20 68 6F 6D 65 20 70 6F 73 69 74 69 6F 6E 2E 20 home position.
023550: 54 68 65 20 68 6F 6D 65 20 70 6F 73 69 74 69 6F The home positio
023560: 6E 20 69 73 0D 0A 74 68 65 20 74 6F 70 20 6C 65 n is..the top le
023570: 66 74 20 68 61 6E 64 20 63 6F 72 6E 65 72 20 6F ft hand corner o
023580: 66 20 74 68 65 20 73 63 72 65 65 6E 20 28 72 6F f the screen (ro
023590: 77 20 30 2C 20 63 6F 6C 75 6D 6E 20 30 29 2E 0D w 0, column 0)..
0235A0: 0A 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 22 4D ...10 OPENOUT "M
0235B0: 4F 44 45 2D 31 22 0D 0A 32 30 20 50 52 49 4E 54 ODE-1"..20 PRINT
0235C0: 20 23 39 2C 43 48 52 24 28 32 37 29 3B 22 33 22 #9,CHR$(27);"3"
0235D0: 3B 22 21 22 3B 43 48 52 24 28 32 37 29 3B 22 48 ;"!";CHR$(27);"H
0235E0: 22 3B 0D 0A 33 30 20 43 4C 4F 53 45 4F 55 54 0D ";..30 CLOSEOUT.
0235F0: 0A 34 30 20 45 4E 44 0D 0A 0D 0A 54 68 65 20 74 .40 END....The t
023600: 65 78 74 20 66 69 6C 65 73 20 20 63 6F 6E 74 61 ext files conta
023610: 69 6E 69 6E 67 20 20 74 68 65 73 65 20 20 65 78 ining these ex
023620: 61 6D 70 6C 65 73 20 20 61 72 65 20 20 61 76 61 amples are ava
023630: 69 6C 61 62 6C 65 20 20 66 72 6F 6D 20 20 74 68 ilable from th
023640: 65 20 46 53 57 0D 0A 6C 69 62 72 61 72 79 20 75 e FSW..library u
023650: 6E 64 65 72 20 45 78 61 6D 70 6C 65 31 2E 43 42 nder Example1.CB
023660: 4C 0D 0A 0D 0A 0D 0A 41 4E 4F 54 48 45 52 20 53 L......ANOTHER S
023670: 4F 4C 55 54 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D OLUTION...======
023680: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 ===========....W
023690: 65 20 68 61 76 65 20 74 6F 20 75 73 65 20 74 68 e have to use th
0236A0: 69 73 20 20 73 6F 6C 75 74 69 6F 6E 20 20 62 65 is solution be
0236B0: 63 61 75 73 65 20 20 6F 66 20 20 74 68 65 20 6C cause of the l
0236C0: 69 6D 69 74 61 74 69 6F 6E 73 20 69 6D 70 6F 73 imitations impos
0236D0: 65 64 20 62 79 20 74 68 65 0D 0A 70 75 62 6C 69 ed by the..publi
0236E0: 63 20 64 6F 6D 61 69 6E 20 76 65 72 73 69 6F 6E c domain version
0236F0: 20 6F 66 20 43 6F 62 6F 6C 2C 20 20 68 6F 77 65 of Cobol, howe
023700: 2E 45 4E 44 2D 49 46 2E 0D 0A 3D 3D 3D 3D 3D 3D .END-IF...======
023710: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 65 20 49 =======....The I
023720: 46 20 63 6F 6D 6D 61 6E 64 20 77 6F 72 6B 73 20 F command works
023730: 69 73 20 61 20 73 69 6D 69 6C 61 72 20 6D 61 6E is a similar man
023740: 6E 65 72 20 20 74 6F 20 49 46 20 69 6E 20 42 61 ner to IF in Ba
023750: 73 69 63 2C 20 74 68 65 20 49 46 20 73 74 61 74 sic, the IF stat
023760: 65 6D 65 6E 74 0D 0A 6D 75 73 74 20 62 65 20 63 ement..must be c
023770: 6F 6E 63 6C 75 64 65 64 20 77 69 74 68 20 61 6E oncluded with an
023780: 20 45 4E 44 2D 49 46 20 63 6F 6D 6D 61 6E 64 2E END-IF command.
023790: 0D 0A 0D 0A 4E 65 73 74 65 64 20 49 46 20 63 6F ....Nested IF co
0237A0: 6D 6D 61 6E 64 73 20 61 72 65 20 73 75 70 70 6F mmands are suppo
0237B0: 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 4C 49 53 54 49 rted.......LISTI
0237C0: 4E 47 20 46 4F 52 20 50 52 4F 47 52 41 4D 20 54 NG FOR PROGRAM T
0237D0: 57 45 4C 56 45 2E 0D 0A 0D 0A 49 44 45 4E 54 49 WELVE.....IDENTI
0237E0: 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F FICATION DIVISIO
0237F0: 4E 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 N... PROGRAM-ID
023800: 2E 20 20 20 45 78 61 6D 70 6C 65 20 54 77 65 6C . Example Twel
023810: 76 65 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 ve...*..* This p
023820: 72 6F 67 72 61 6D 20 61 6C 6C 6F 77 73 20 79 6F rogram allows yo
023830: 75 20 74 6F 20 69 6E 70 75 74 20 6E 61 6D 65 73 u to input names
023840: 2C 20 74 68 65 6E 20 73 74 6F 72 65 73 20 74 68 , then stores th
023850: 65 20 6E 61 6D 65 73 20 65 6E 74 65 72 65 64 0D e names entered.
023860: 0A 2A 20 69 6E 20 61 20 64 69 73 6B 20 66 69 6C .* in a disk fil
023870: 65 20 63 61 6C 6C 65 64 20 4E 41 4D 45 53 2E 44 e called NAMES.D
023880: 41 54 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D AT...*..ENVIRONM
023890: 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A ENT DIVISION...*
0238A0: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
0238B0: 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 SECTION... SOUR
0238C0: 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CE-COMPUTER. Ams
0238D0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 trad 6128... OB
0238E0: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
0238F0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D mstrad 6128...*.
023900: 76 65 72 20 20 69 66 20 20 79 6F 75 20 20 64 65 ver if you de
023910: 63 69 64 65 20 20 74 6F 20 62 75 79 20 61 20 62 cide to buy a b
023920: 65 74 74 65 72 0D 0A 69 6D 70 6C 65 6D 65 6E 74 etter..implement
023930: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 6C 61 6E ation of the lan
023940: 67 75 61 67 65 2C 20 79 6F 75 20 73 68 6F 75 6C guage, you shoul
023950: 64 20 63 68 65 63 6B 20 74 68 61 74 20 69 74 20 d check that it
023960: 68 61 73 20 62 65 74 74 65 72 20 73 63 72 65 65 has better scree
023970: 6E 0D 0A 68 61 6E 64 6C 69 6E 67 2E 20 54 68 65 n..handling. The
023980: 20 4D 69 63 72 6F 73 6F 66 74 20 76 65 72 73 69 Microsoft versi
023990: 6F 6E 20 20 6F 66 20 20 43 6F 62 6F 6C 20 20 73 on of Cobol s
0239A0: 75 70 70 6F 72 74 73 20 66 75 6C 6C 20 73 63 72 upports full scr
0239B0: 65 65 6E 20 68 61 6E 64 6C 69 6E 67 2C 0D 0A 70 een handling,..p
0239C0: 72 69 6E 74 69 6E 67 20 6F 66 20 74 65 78 74 20 rinting of text
0239D0: 61 6E 64 20 6D 75 6C 74 69 70 6C 65 20 20 66 69 and multiple fi
0239E0: 6C 65 20 20 68 61 6E 64 6C 69 6E 67 2E 20 20 43 le handling. C
0239F0: 68 65 63 6B 20 77 68 61 74 20 79 6F 75 20 61 72 heck what you ar
023A00: 65 20 67 65 74 74 69 6E 67 0D 0A 62 65 66 6F 72 e getting..befor
023A10: 65 20 79 6F 75 20 62 75 79 2C 20 6D 69 73 74 61 e you buy, mista
023A20: 6B 65 73 20 63 61 6E 20 62 65 20 65 78 70 65 6E kes can be expen
023A30: 73 69 76 65 2E 0D 0A 0D 0A 0D 0A 48 4F 4D 45 57 sive.......HOMEW
023A40: 4F 52 4B 20 4F 4E 45 2E 0D 0A 3D 3D 3D 3D 3D 3D ORK ONE...======
023A50: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 48 61 76 65 20 =======....Have
023A60: 61 20 67 6F 20 61 74 20 63 72 65 61 74 69 6E 67 a go at creating
023A70: 20 74 68 65 20 20 74 65 78 74 20 20 66 69 6C 65 the text file
023A80: 73 20 20 66 6F 72 20 20 74 68 65 20 6F 74 68 65 s for the othe
023A90: 72 20 75 73 65 66 75 6C 20 43 50 2F 4D 20 63 6F r useful CP/M co
023AA0: 6E 74 72 6F 6C 0D 0A 63 6F 6D 6D 61 6E 64 73 2E ntrol..commands.
023AB0: 20 54 68 65 6E 20 61 6D 65 6E 64 20 73 6F 6D 65 Then amend some
023AC0: 20 6F 66 20 79 6F 75 72 20 65 78 69 73 74 69 6E of your existin
023AD0: 67 20 70 72 6F 67 72 61 6D 73 20 74 6F 20 74 72 g programs to tr
023AE0: 79 20 74 68 65 6D 20 6F 75 74 2E 0D 0A 0D 0A 0D y them out......
023AF0: 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 20 2D .FILE HANDLING -
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 01 00 02 09 52 E5 1E 00 C1 02 00 00 00 02 ......R.........
023B20: 1E 00 C6 02 00 00 00 02 1E 00 C2 02 00 00 00 02 ................
023B30: 1E 00 C7 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B40: 1E 00 C8 02 00 00 00 02 1E 00 C4 02 00 00 00 02 ................
023B50: 1E 00 C9 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 .INPUT-OUTPUT SE
023C10: 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D 43 4F 4E CTION...FILE-CON
023C20: 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 43 54 20 TROL... SELECT
023C30: 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E NAME-FILE ASSIGN
023C40: 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A 2A 0D 0A NAMES.DAT...*..
023C50: 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A DATA DIVISION...
023C60: 2A 0D 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E *..FILE SECTION.
023C70: 0D 0A 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D ..FD NAME-FILE..
023C80: 0A 20 30 31 20 4E 41 4D 45 2D 54 4F 2D 53 54 4F . 01 NAME-TO-STO
023C90: 52 45 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 20 RE... 03 NAME
023CA0: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A PIC X(30)...*
023CB0: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
023CC0: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 2A 0D 0A 20 E SECTION...*..
023CD0: 20 30 31 20 52 45 50 4C 59 20 20 20 20 20 50 49 01 REPLY PI
023CE0: 43 20 58 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 55 C X...*..PROCEDU
023CF0: 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D RE DIVISION...*.
023D00: 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E 20 .START... OPEN
023D10: 4F 55 54 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 OUTPUT NAME-FILE
023D20: 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 4D 45 ...*..ENTER-NAME
023D30: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 ... DISPLAY ' '
023D40: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 50 6C ... DISPLAY 'Pl
023D50: 65 61 73 65 20 45 6E 74 65 72 20 41 20 4E 61 6D ease Enter A Nam
023D60: 65 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 e'... DISPLAY '
023D70: 20 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 '... ACCEPT NA
023D80: 4D 45 2E 0D 0A 2A 0D 0A 57 52 49 54 45 2D 4E 41 ME...*..WRITE-NA
023D90: 4D 45 2D 54 4F 2D 44 49 53 43 2E 0D 0A 20 20 57 ME-TO-DISC... W
023DA0: 52 49 54 45 20 4E 41 4D 45 2D 54 4F 2D 53 54 4F RITE NAME-TO-STO
023DB0: 52 45 2E 0D 0A 2A 0D 0A 43 4F 4E 54 49 4E 55 45 RE...*..CONTINUE
023DC0: 2D 59 45 53 2F 4E 4F 2E 0D 0A 20 20 4D 4F 56 45 -YES/NO... MOVE
023DD0: 20 27 20 27 20 54 4F 20 52 45 50 4C 59 2E 0D 0A ' ' TO REPLY...
023DE0: 20 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 DISPLAY 'Enter
023DF0: 20 43 20 74 6F 20 43 6F 6E 74 69 6E 75 65 2C 20 C to Continue,
023E00: 20 76 61 6C 75 65 0D 0A 79 6F 75 20 61 72 65 20 value..you are
023E10: 74 65 73 74 69 6E 67 20 66 6F 72 2E 0D 0A 0D 0A testing for.....
023E20: 49 66 20 79 6F 75 20 72 75 6E 20 70 72 6F 67 72 If you run progr
023E30: 61 6D 20 74 68 69 72 74 65 65 6E 20 28 31 32 61 am thirteen (12a
023E40: 29 20 74 77 69 63 65 20 69 74 20 77 69 6C 6C 20 ) twice it will
023E50: 6F 70 65 72 61 74 65 20 63 6F 72 72 65 63 74 6C operate correctl
023E60: 79 2C 20 68 6F 77 65 76 65 72 0D 0A 69 66 20 79 y, however..if y
023E70: 6F 75 20 72 65 6D 6F 76 65 20 74 68 65 20 4D 4F ou remove the MO
023E80: 56 45 20 27 20 27 20 54 4F 20 46 49 4C 45 2D 54 VE ' ' TO FILE-T
023E90: 45 53 54 20 63 6F 6D 6D 61 6E 64 20 61 6E 64 20 EST command and
023EA0: 63 6F 6D 70 69 6C 65 20 74 68 65 20 70 72 6F 67 compile the prog
023EB0: 72 61 6D 20 6F 6E 0D 0A 74 68 65 20 73 65 63 6F ram on..the seco
023EC0: 6E 64 20 6F 63 63 61 73 69 6F 6E 20 74 68 61 74 nd occasion that
023ED0: 20 69 74 20 20 69 73 20 20 72 75 6E 20 20 20 69 it is run i
023EE0: 74 20 20 77 69 6C 6C 20 6E 6F 74 20 77 6F 72 6B t will not work
023EF0: 20 63 6F 72 72 65 63 74 6C 79 20 62 65 63 61 75 correctly becau
023F00: 73 65 0D 0A 46 49 4C 45 2D 54 45 53 54 20 73 74 se..FILE-TEST st
023F10: 69 6C 6C 20 63 6F 6E 74 61 69 6E 73 20 74 68 65 ill contains the
023F20: 20 27 45 27 20 66 72 6F 6D 20 74 68 65 20 74 68 'E' from the th
023F30: 65 20 66 69 72 73 74 20 74 69 6D 65 20 74 68 61 e first time tha
023F40: 74 20 69 74 20 77 61 73 20 72 75 6E 2E 0D 0A 0D t it was run....
023F50: 0A 54 72 79 20 69 74 20 74 6F 20 73 65 65 20 77 .Try it to see w
023F60: 68 61 74 20 49 20 6D 65 61 6E 2E 0D 0A 0D 0A 4F hat I mean.....O
023F70: 6E 65 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 20 68 ne new command h
023F80: 61 73 20 62 65 65 6E 20 75 73 65 64 2C 0D 0A 0D as been used,...
023F90: 0A 52 45 41 44 20 27 66 69 6C 65 27 20 45 4E 44 .READ 'file' END
023FA0: 20 27 73 74 61 74 65 6D 65 6E 74 27 2E 0D 0A 0D 'statement'....
023FB0: 0A 46 6F 72 6D 61 74 3A 0D 0A 0D 0A 52 45 41 44 .Format:....READ
023FC0: 20 27 66 69 6C 65 27 20 69 6E 73 74 72 75 63 74 'file' instruct
023FD0: 73 20 74 68 65 20 63 6F 6D 70 75 74 65 72 20 20 s the computer
023FE0: 74 6F 20 20 72 65 61 64 20 20 61 20 20 72 65 63 to read a rec
023FF0: 6F 72 64 20 66 72 6F 6D 20 74 68 65 20 73 70 65 ord from the spe
024000: 45 6E 74 65 72 20 45 20 74 6F 20 45 6E 64 27 2E Enter E to End'.
024010: 0D 0A 2A 0D 0A 41 43 43 45 50 54 2D 52 45 50 4C ..*..ACCEPT-REPL
024020: 59 2D 45 4E 54 45 52 45 44 2E 0D 0A 20 20 41 43 Y-ENTERED... AC
024030: 43 45 50 54 20 52 45 50 4C 59 2E 0D 0A 20 20 49 CEPT REPLY... I
024040: 46 20 52 45 50 4C 59 20 45 51 55 41 4C 20 27 43 F REPLY EQUAL 'C
024050: 27 20 20 47 4F 20 45 4E 54 45 52 2D 4E 41 4D 45 ' GO ENTER-NAME
024060: 20 20 20 20 20 45 4E 44 2D 49 46 2E 0D 0A 20 20 END-IF...
024070: 49 46 20 52 45 50 4C 59 20 45 51 55 41 4C 20 27 IF REPLY EQUAL '
024080: 45 27 20 20 47 4F 20 45 4E 44 2D 50 52 4F 47 52 E' GO END-PROGR
024090: 41 4D 4D 45 20 20 45 4E 44 2D 49 46 2E 0D 0A 20 AMME END-IF...
0240A0: 20 47 4F 20 43 4F 4E 54 49 4E 55 45 2D 59 45 53 GO CONTINUE-YES
0240B0: 2F 4E 4F 2E 0D 0A 2A 0D 0A 45 4E 44 2D 50 52 4F /NO...*..END-PRO
0240C0: 47 52 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F 53 45 GRAMME... CLOSE
0240D0: 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 53 NAME-FILE... S
0240E0: 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 54 79 70 65 TOP RUN.....Type
0240F0: 20 69 6E 2C 20 63 6F 6D 70 69 6C 65 20 61 6E 64 in, compile and
024100: 20 72 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D run the program
024110: 20 79 6F 75 20 20 77 69 6C 6C 20 6E 6F 77 20 68 you will now h
024120: 61 76 65 20 61 20 6E 65 77 20 74 65 78 74 20 66 ave a new text f
024130: 69 6C 65 20 6F 6E 0D 0A 79 6F 75 72 20 64 69 73 ile on..your dis
024140: 63 20 63 61 6C 6C 20 4E 41 4D 45 53 2E 44 41 54 c call NAMES.DAT
024150: 2E 20 20 54 68 65 20 20 74 65 78 74 20 20 66 69 . The text fi
024160: 6C 65 20 20 63 61 6E 20 20 62 65 20 20 6C 6F 61 le can be loa
024170: 64 65 64 20 20 69 6E 74 6F 20 74 68 65 20 77 6F ded into the wo
024180: 72 64 0D 0A 70 72 6F 63 65 73 73 6F 72 20 61 6E rd..processor an
024190: 64 20 65 78 61 6D 69 6E 65 64 20 74 6F 20 63 68 d examined to ch
0241A0: 65 63 6B 20 74 68 61 74 20 69 74 20 68 61 73 20 eck that it has
0241B0: 62 65 65 6E 20 63 6F 72 72 65 63 74 6C 79 20 63 been correctly c
0241C0: 72 65 61 74 65 64 2E 0D 0A 0D 0A 50 6C 65 61 73 reated.....Pleas
0241D0: 65 20 6E 6F 74 65 2C 20 72 75 6E 6E 69 6E 67 20 e note, running
0241E0: 74 68 65 20 70 72 6F 67 72 61 6D 20 61 20 73 65 the program a se
0241F0: 63 6F 6E 64 20 74 69 6D 65 20 64 6F 65 73 20 6E cond time does n
024200: 63 69 66 69 65 64 0D 0A 66 69 6C 65 20 69 6E 74 cified..file int
024210: 6F 20 74 68 65 20 63 6F 6D 70 75 74 65 72 73 20 o the computers
024220: 6D 65 6D 6F 72 79 2E 0D 0A 0D 0A 45 4E 44 20 27 memory.....END '
024230: 73 74 61 74 65 6D 65 6E 74 27 0D 0A 0D 0A 54 68 statement'....Th
024240: 65 20 27 73 74 61 74 65 6D 65 6E 74 27 20 69 73 e 'statement' is
024250: 20 6D 61 64 65 20 75 70 20 6F 66 20 20 43 6F 62 made up of Cob
024260: 6F 6C 20 20 63 6F 6D 6D 61 6E 64 73 2C 20 77 68 ol commands, wh
024270: 69 63 68 20 61 72 65 20 63 61 72 72 69 65 64 20 ich are carried
024280: 6F 75 74 20 77 68 65 6E 0D 0A 79 6F 75 20 72 65 out when..you re
024290: 61 63 68 20 74 68 65 20 65 6E 64 20 6F 66 20 74 ach the end of t
0242A0: 68 65 20 66 69 6C 65 2E 0D 0A 0D 0A 49 65 2E 20 he file.....Ie.
0242B0: 20 45 4E 44 20 4D 4F 56 45 20 27 46 27 20 54 4F END MOVE 'F' TO
0242C0: 20 46 4C 41 47 2E 0D 0A 20 20 20 20 20 45 4E 44 FLAG... END
0242D0: 20 47 4F 20 43 4C 4F 53 45 2D 46 49 4C 45 53 2E GO CLOSE-FILES.
0242E0: 0D 0A 20 20 20 20 20 45 4E 44 20 44 49 53 50 4C .. END DISPL
0242F0: 41 59 20 27 45 6E 64 20 4F 66 20 46 69 6C 65 20 AY 'End Of File
024300: 52 65 61 63 68 65 64 27 2E 0D 0A 20 20 20 20 20 Reached'...
024310: 45 4E 44 20 50 45 52 46 4F 52 4D 20 43 4C 4F 53 END PERFORM CLOS
024320: 45 2D 46 49 4C 45 53 20 47 4F 20 54 4F 2D 53 54 E-FILES GO TO-ST
024330: 41 52 54 2E 0D 0A 20 20 20 20 20 65 74 63 2E 0D ART... etc..
024340: 0A 0D 0A 0D 0A 48 4F 4D 45 57 4F 52 4B 20 54 57 .....HOMEWORK TW
024350: 4F 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D O...============
024360: 3D 0D 0A 0D 0A 45 78 61 6D 69 6E 65 20 74 68 65 =....Examine the
024370: 20 65 78 61 6D 70 6C 65 20 70 72 6F 67 72 61 6D example program
024380: 73 20 73 75 70 70 6C 69 65 64 20 20 77 69 74 68 s supplied with
024390: 20 20 74 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 the Cobol comp
0243A0: 69 6C 65 72 2C 20 74 68 65 6E 20 72 65 61 64 0D iler, then read.
0243B0: 0A 74 68 72 6F 75 67 68 20 74 68 65 20 6D 61 6E .through the man
0243C0: 75 61 6C 20 61 6E 64 20 67 65 74 20 74 6F 20 6B ual and get to k
0243D0: 6E 6F 77 20 74 68 65 20 63 6F 6D 6D 61 6E 64 73 now the commands
0243E0: 2E 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 .....Clive Bella
0243F0: 62 79 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 by, 12 Trafalgar
024400: 6F 74 20 61 64 64 20 72 65 63 6F 72 64 73 20 74 ot add records t
024410: 6F 20 74 68 65 0D 0A 65 78 69 73 74 69 6E 67 20 o the..existing
024420: 64 61 74 61 20 66 69 6C 65 2C 20 62 75 74 20 65 data file, but e
024430: 72 61 73 65 73 20 74 68 65 20 6F 72 69 67 69 6E rases the origin
024440: 61 6C 20 20 66 69 6C 65 20 20 61 6E 64 20 73 61 al file and sa
024450: 76 65 73 20 61 20 6E 65 77 20 66 69 6C 65 20 74 ves a new file t
024460: 6F 0D 0A 64 69 73 63 20 77 69 74 68 20 74 68 65 o..disc with the
024470: 20 6E 65 77 20 6E 61 6D 65 73 20 65 6E 74 65 72 new names enter
024480: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
024490: 20 54 48 49 52 54 45 45 4E 20 28 49 66 20 79 6F THIRTEEN (If yo
0244A0: 75 20 61 72 65 20 73 75 70 65 72 73 74 69 74 69 u are superstiti
0244B0: 6F 75 73 20 74 68 65 6E 20 63 61 6C 6C 20 74 68 ous then call th
0244C0: 69 73 20 70 72 6F 67 72 61 6D 20 31 32 41 29 2E is program 12A).
0244D0: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..==============
0244E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0244F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
024500: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
024510: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F =========....Pro
024520: 67 72 61 6D 20 74 68 69 72 74 65 65 6E 20 6C 6F gram thirteen lo
024530: 61 64 73 20 20 74 68 65 20 20 66 69 6C 65 20 20 ads the file
024540: 74 68 61 74 20 20 79 6F 75 20 20 68 61 76 65 20 that you have
024550: 20 63 72 65 61 74 65 64 20 20 75 73 69 6E 67 20 created using
024560: 70 72 6F 67 72 61 6D 0D 0A 74 77 65 6C 76 65 2C program..twelve,
024570: 20 72 65 61 64 73 20 74 68 72 6F 75 67 68 20 74 reads through t
024580: 68 65 20 66 69 6C 65 20 61 6E 64 20 20 64 69 73 he file and dis
024590: 70 6C 61 79 73 20 20 74 68 65 20 20 63 6F 6E 74 plays the cont
0245A0: 65 6E 74 73 20 6F 66 20 74 68 65 20 66 69 6C 65 ents of the file
0245B0: 20 6F 6E 0D 0A 74 68 65 20 73 63 72 65 65 6E 2E on..the screen.
0245C0: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
0245D0: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
0245E0: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 PROGRAM-ID. Ex
0245F0: 61 6D 70 6C 65 20 54 68 69 72 74 65 65 6E 2E 0D ample Thirteen..
024600: 20 54 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 Terrace, Long E
024610: 61 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D aton, Nottingham
024620: 2C 20 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A , NG10 1GP......
024630: 2A 2A 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 ** END OF SERIES
024640: 2E 50 54 33 20 2A 2A 0D 0A 1A 30 20 31 47 50 0D .PT3 **...0 1GP.
024650: 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 53 .....** END OF S
024660: 45 52 49 45 53 2E 50 54 33 20 2A 2A 0D 0A 1A 69 ERIES.PT3 **...i
024670: 6E 73 90 20 61 20 66 75 6C 6C 20 6C 69 73 74 20 ns. a full list
024680: 74 75 72 65 20 6F 66 66 2E 0D 0A 0D 0A 20 20 20 ture off.....
024690: 20 20 20 43 74 72 6C 20 26 20 5B 20 2D 20 45 73 Ctrl & [ - Es
0246A0: 63 61 70 65 20 28 77 65 6C 6C 20 77 6F 72 74 68 cape (well worth
0246B0: 20 72 65 6D 65 6D 62 65 72 69 6E 67 29 0D 0A 0D remembering)...
0246C0: 0A 54 68 65 20 36 31 32 38 20 6D 61 6E 75 61 6C .The 6128 manual
0246D0: 20 63 6F 6E 74 61 69 6E 73 20 61 20 66 75 6C 6C contains a full
0246E0: 20 6C 69 73 74 20 61 6E 64 20 65 78 70 6C 61 6E list and explan
0246F0: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 63 6F 6E ation of the con
024700: 74 72 6F 6C 20 63 6F 64 65 73 2E 0D 0A 28 4F 4D trol codes...(OM
024710: 47 20 65 6E 6A 6F 79 65 64 20 74 68 69 73 20 62 G enjoyed this b
024720: 69 74 20 61 73 20 20 68 65 20 20 69 73 20 20 66 it as he is f
024730: 6F 72 65 76 65 72 20 20 74 65 6C 6C 69 6E 67 20 orever telling
024740: 6D 65 20 74 68 61 74 20 70 75 6E 63 74 75 61 74 me that punctuat
024750: 69 6F 6E 20 61 6E 64 0D 0A 73 70 65 6C 6C 69 6E ion and..spellin
024760: 67 20 61 72 65 20 69 6D 70 6F 72 74 61 6E 74 2E g are important.
024770: 29 0D 0A 0D 0A 0D 0A 53 43 52 45 45 4E 20 48 41 )......SCREEN HA
024780: 4E 44 4C 49 4E 47 20 49 4E 54 52 4F 44 55 43 54 NDLING INTRODUCT
024790: 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION...==========
0247A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0247B0: 3D 3D 3D 0D 0A 0D 0A 53 63 72 65 65 6E 20 68 61 ===....Screen ha
0247C0: 6E 64 6C 69 6E 67 20 75 73 69 6E 67 20 74 68 69 ndling using thi
0247D0: 73 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 69 6E s public domain
0247E0: 20 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 43 version of C
0247F0: 6F 62 6F 6C 20 69 73 20 6D 65 73 73 79 20 61 6E obol is messy an
024800: 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 .*..* This progr
024810: 61 6D 20 6F 70 65 6E 73 20 74 68 65 20 64 61 74 am opens the dat
024820: 61 20 66 69 6C 65 20 4E 41 4D 45 53 2E 44 41 54 a file NAMES.DAT
024830: 2C 20 74 68 65 6E 20 72 65 61 64 73 20 74 68 65 , then reads the
024840: 20 66 69 6C 65 20 61 6E 64 0D 0A 2A 20 64 69 73 file and..* dis
024850: 70 6C 61 79 73 20 74 68 65 20 63 6F 6E 74 65 6E plays the conten
024860: 74 73 20 6F 6E 20 74 68 65 20 73 63 72 65 65 6E ts on the screen
024870: 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E ...*..ENVIRONMEN
024880: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A T DIVISION...*..
024890: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 CONFIGURATION SE
0248A0: 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 CTION... SOURCE
0248B0: 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 -COMPUTER. Amstr
0248C0: 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 ad 6128... OBJE
0248D0: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
0248E0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 49 trad 6128...*..I
0248F0: 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 NPUT-OUTPUT SECT
024900: 49 4F 4E 2E 0D 0A 46 49 4C 45 2D 43 4F 4E 54 52 ION...FILE-CONTR
024910: 4F 4C 2E 0D 0A 20 20 53 45 4C 45 43 54 20 4E 41 OL... SELECT NA
024920: 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E 20 4E ME-FILE ASSIGN N
024930: 41 4D 45 53 2E 44 41 54 2E 0D 0A 2A 0D 0A 44 41 AMES.DAT...*..DA
024940: 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D TA DIVISION...*.
024950: 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A .FILE SECTION...
024960: 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 FD NAME-FILE...
024970: 30 31 20 53 54 4F 52 45 44 2D 4E 41 4D 45 2E 0D 01 STORED-NAME..
024980: 0A 20 20 20 30 33 20 4E 41 4D 45 20 20 20 20 20 . 03 NAME
024990: 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A 0D PIC X(30)...*.
0249A0: 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 .WORKING-STORAGE
0249B0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 2A 0D 0A 20 20 SECTION...*..
0249C0: 30 31 20 46 49 4C 45 2D 54 45 53 54 20 20 20 50 01 FILE-TEST P
0249D0: 49 43 20 58 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 IC X...*..PROCED
0249E0: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
0249F0: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E ..START... OPEN
024A00: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
024A10: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
024A20: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
024A30: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
024A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024A50: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
024A60: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
024A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
024A80: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
024A90: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
024AA0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
024AB0: 20 20 50 41 52 54 20 46 4F 55 52 20 3A 20 4D 4F PART FOUR : MO
024AC0: 52 45 20 46 49 4C 49 4E 47 20 41 4E 44 20 53 4F RE FILING AND SO
024AD0: 4D 45 20 50 52 49 4E 54 49 4E 47 20 41 53 20 57 ME PRINTING AS W
024AE0: 45 4C 4C 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 ELL......INTRODU
024AF0: 43 54 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D CTION...========
024B00: 3D 3D 3D 3D 3D 0D 0A 59 65 73 2C 20 79 65 74 20 =====..Yes, yet
024B10: 61 67 61 69 6E 20 79 6F 75 20 6A 6F 69 6E 20 75 again you join u
024B20: 73 20 61 74 20 20 74 68 65 20 20 73 74 61 72 74 s at the start
024B30: 20 20 6F 66 20 74 68 69 73 20 61 72 74 69 63 6C of this articl
024B40: 65 2C 20 74 68 65 20 77 65 61 74 68 65 72 20 69 e, the weather i
024B50: 73 0D 0A 77 61 72 6D 20 61 6E 64 20 73 75 6E 6E s..warm and sunn
024B60: 79 2C 20 74 68 65 72 65 27 73 20 61 20 6C 69 67 y, there's a lig
024B70: 68 74 20 62 72 65 65 7A 65 20 62 6C 6F 77 69 6E ht breeze blowin
024B80: 67 20 61 63 72 6F 73 73 20 74 68 65 20 70 61 67 g across the pag
024B90: 65 20 61 6E 64 20 77 65 20 68 61 76 65 0D 0A 65 e and we have..e
024BA0: 76 65 72 79 20 63 68 61 6E 63 65 20 6F 66 20 67 very chance of g
024BB0: 65 74 74 69 6E 67 20 20 61 20 20 67 6F 6F 64 20 etting a good
024BC0: 20 72 65 73 75 6C 74 2E 20 20 54 68 69 73 20 20 result. This
024BD0: 6D 6F 6E 74 68 20 20 77 65 20 20 68 61 76 65 20 month we have
024BE0: 6D 6F 72 65 20 66 69 6C 65 0D 0A 68 61 6E 64 6C more file..handl
024BF0: 69 6E 67 2C 20 6D 6F 72 65 20 43 6F 62 6F 6C 20 ing, more Cobol
024C00: 20 49 4E 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 INPUT NAME-FILE
024C10: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 4F 70 ... DISPLAY 'Op
024C20: 65 6E 69 6E 67 20 54 68 65 20 44 61 74 61 20 46 ening The Data F
024C30: 69 6C 65 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 ile'... DISPLAY
024C40: 20 27 20 27 2E 0D 0A 2A 0D 0A 52 45 41 44 2D 46 ' '...*..READ-F
024C50: 49 4C 45 2E 0D 0A 20 20 4D 4F 56 45 20 27 20 27 ILE... MOVE ' '
024C60: 20 54 4F 20 46 49 4C 45 2D 54 45 53 54 2E 0D 0A TO FILE-TEST...
024C70: 20 20 52 45 41 44 20 4E 41 4D 45 2D 46 49 4C 45 READ NAME-FILE
024C80: 20 45 4E 44 20 4D 4F 56 45 20 27 45 27 20 54 4F END MOVE 'E' TO
024C90: 20 46 49 4C 45 2D 54 45 53 54 2E 0D 0A 20 20 49 FILE-TEST... I
024CA0: 46 20 46 49 4C 45 2D 54 45 53 54 20 45 51 55 41 F FILE-TEST EQUA
024CB0: 4C 20 27 45 27 20 47 4F 20 45 4E 44 2D 50 52 4F L 'E' GO END-PRO
024CC0: 47 52 41 4D 4D 45 20 45 4E 44 2D 49 46 2E 0D 0A GRAMME END-IF...
024CD0: 2A 0D 0A 44 49 53 50 4C 41 59 2D 46 49 4C 45 2D *..DISPLAY-FILE-
024CE0: 44 41 54 41 2E 0D 0A 20 20 44 49 53 50 4C 41 59 DATA... DISPLAY
024CF0: 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 NAME... DISPLA
024D00: 59 20 27 20 27 2E 0D 0A 2A 0D 0A 4A 55 4D 50 2D Y ' '...*..JUMP-
024D10: 42 41 43 4B 2E 0D 0A 20 20 47 4F 20 52 45 41 44 BACK... GO READ
024D20: 2D 46 49 4C 45 2E 0D 0A 2A 0D 0A 45 4E 44 2D 50 -FILE...*..END-P
024D30: 52 4F 47 52 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F ROGRAMME... CLO
024D40: 53 45 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 SE NAME-FILE...
024D50: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
024D60: 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A ogram Notes:....
024D70: 57 68 65 6E 20 74 65 73 74 69 6E 67 20 69 64 65 When testing ide
024D80: 6E 74 69 66 69 65 72 73 20 77 69 74 68 20 74 68 ntifiers with th
024D90: 65 20 49 46 20 63 6F 6D 6D 61 6E 64 2C 20 79 6F e IF command, yo
024DA0: 75 20 73 68 6F 75 6C 64 20 61 6C 77 61 79 73 20 u should always
024DB0: 69 6E 69 74 69 61 6C 69 73 65 0D 0A 74 68 65 20 initialise..the
024DC0: 69 64 65 6E 74 69 66 69 65 72 20 75 73 69 6E 67 identifier using
024DD0: 20 74 68 65 20 4D 4F 56 45 20 63 6F 6D 6D 61 6E the MOVE comman
024DE0: 64 20 20 77 69 74 68 20 20 61 20 20 76 61 6C 75 d with a valu
024DF0: 65 20 6F 74 68 65 72 20 74 68 61 6E 20 74 68 65 e other than the
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 01 00 02 09 52 E5 1F 00 C1 02 00 00 00 02 ......R.........
024E20: 1F 00 C6 02 00 00 00 02 1F 00 C2 02 00 00 00 02 ................
024E30: 1F 00 C7 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E40: 1F 00 C8 02 00 00 00 02 1F 00 C4 02 00 00 00 02 ................
024E50: 1F 00 C9 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 63 6F 6D 6D 61 6E 64 73 20 61 6E 64 20 77 65 20 commands and we
024F10: 63 72 65 61 74 65 20 20 61 20 20 70 72 69 6E 74 create a print
024F20: 20 66 69 6C 65 2E 20 53 6F 20 62 6F 6F 74 20 75 file. So boot u
024F30: 70 20 74 68 65 0D 0A 6F 6C 64 20 43 50 2F 4D 20 p the..old CP/M
024F40: 61 6E 64 20 77 65 27 6C 6C 20 67 65 74 20 73 74 and we'll get st
024F50: 61 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 59 4F 55 52 arted.......YOUR
024F60: 20 51 55 45 52 49 45 53 20 41 4E 53 57 45 52 45 QUERIES ANSWERE
024F70: 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D D...============
024F80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 20 ==========....I
024F90: 68 61 76 65 20 62 65 65 6E 20 61 73 6B 65 64 20 have been asked
024FA0: 68 6F 77 20 6C 6F 6E 67 20 69 74 20 74 61 6B 65 how long it take
024FB0: 73 20 20 74 6F 20 77 72 69 74 65 2C 20 63 6F 6D s to write, com
024FC0: 70 69 6C 65 20 61 6E 64 20 74 65 73 74 20 61 20 pile and test a
024FD0: 70 72 6F 67 72 61 6D 2C 0D 0A 77 65 6C 6C 20 70 program,..well p
024FE0: 72 6F 67 72 61 6D 73 20 66 69 66 74 65 65 6E 20 rograms fifteen
024FF0: 61 6E 64 20 20 73 69 78 74 65 65 6E 20 20 74 6F and sixteen to
025000: 6F 6B 20 20 6D 65 20 20 61 70 70 72 6F 78 20 20 ok me approx
025010: 36 35 20 6D 69 6E 75 74 65 73 2C 20 77 68 69 63 65 minutes, whic
025020: 68 20 69 73 0D 0A 73 6C 69 67 68 74 6C 79 20 73 h is..slightly s
025030: 6C 6F 77 65 72 20 74 68 61 6E 20 77 72 69 74 69 lower than writi
025040: 6E 67 20 74 68 65 20 73 61 6D 65 20 20 70 72 6F ng the same pro
025050: 67 72 61 6D 20 69 6E 20 42 61 73 69 63 2E 20 28 gram in Basic. (
025060: 54 68 69 73 20 69 73 20 70 72 6F 62 61 62 6C 79 This is probably
025070: 0D 0A 62 65 63 61 75 73 65 20 49 20 61 6D 20 6E ..because I am n
025080: 6F 74 20 61 20 66 61 73 74 20 74 79 70 69 73 74 ot a fast typist
025090: 29 0D 0A 0D 0A 44 65 61 72 20 4D 61 67 67 69 65 )....Dear Maggie
0250A0: 2C 20 49 20 61 6D 20 73 6F 72 72 79 20 74 6F 20 , I am sorry to
0250B0: 68 61 76 65 20 74 65 6C 6C 20 79 6F 75 20 74 68 have tell you th
0250C0: 61 74 20 62 69 74 69 6E 67 20 79 6F 75 72 20 66 at biting your f
0250D0: 69 6E 67 65 72 6E 61 69 6C 73 20 64 6F 65 73 0D ingernails does.
0250E0: 0A 64 69 73 71 75 61 6C 69 66 79 20 79 6F 75 20 .disqualify you
0250F0: 66 72 6F 6D 20 62 65 63 6F 6D 69 6E 67 20 61 20 from becoming a
025100: 51 55 41 4C 20 27 65 27 20 20 47 4F 20 43 4C 4F QUAL 'e' GO CLO
025110: 53 45 2D 46 49 4C 45 53 20 45 4E 44 2D 49 46 2E SE-FILES END-IF.
025120: 0D 0A 20 20 47 4F 20 43 4F 4E 54 49 4E 55 45 2D .. GO CONTINUE-
025130: 59 45 53 2F 4E 4F 2E 0D 0A 43 4C 4F 53 45 2D 46 YES/NO...CLOSE-F
025140: 49 4C 45 53 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E ILES... CLOSE N
025150: 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 43 4C 4F AME-FILE... CLO
025160: 53 45 20 54 45 4D 50 2D 46 49 4C 45 2E 0D 0A 43 SE TEMP-FILE...C
025170: 4F 50 59 2D 4E 45 57 2D 46 49 4C 45 2E 0D 0A 20 OPY-NEW-FILE...
025180: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
025190: 20 44 49 53 50 4C 41 59 20 27 43 6F 70 79 69 6E DISPLAY 'Copyin
0251A0: 67 20 46 69 6C 65 2E 27 2E 0D 0A 20 20 44 49 53 g File.'... DIS
0251B0: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 4F 50 45 PLAY ' '... OPE
0251C0: 4E 20 49 4E 50 55 54 20 54 45 4D 50 2D 46 49 4C N INPUT TEMP-FIL
0251D0: 45 2E 0D 0A 20 20 4F 50 45 4E 20 4F 55 54 50 55 E... OPEN OUTPU
0251E0: 54 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 43 4F T NAME-FILE...CO
0251F0: 50 59 2D 4E 45 57 2D 46 49 4C 45 2D 31 2E 0D 0A PY-NEW-FILE-1...
025200: 20 20 52 45 41 44 20 54 45 4D 50 2D 46 49 4C 45 READ TEMP-FILE
025210: 20 45 4E 44 20 47 4F 20 45 4E 44 2D 50 52 4F 47 END GO END-PROG
025220: 52 41 4D 4D 45 2E 0D 0A 20 20 4D 4F 56 45 20 54 RAMME... MOVE T
025230: 45 4D 50 2D 4E 41 4D 45 20 54 4F 20 53 54 4F 52 EMP-NAME TO STOR
025240: 45 44 2D 4E 41 4D 45 2E 0D 0A 20 20 57 52 49 54 ED-NAME... WRIT
025250: 45 20 53 54 4F 52 45 44 2D 4E 41 4D 45 2E 0D 0A E STORED-NAME...
025260: 20 20 47 4F 20 43 4F 50 59 2D 4E 45 57 2D 46 49 GO COPY-NEW-FI
025270: 4C 45 2D 31 2E 0D 0A 45 4E 44 2D 50 52 4F 47 52 LE-1...END-PROGR
025280: 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E AMME... CLOSE N
025290: 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 43 4C 4F AME-FILE... CLO
0252A0: 53 45 20 54 45 4D 50 2D 46 49 4C 45 2E 0D 0A 20 SE TEMP-FILE...
0252B0: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
0252C0: 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A ogram Notes:....
0252D0: 31 2E 20 54 68 65 20 70 72 6F 67 72 61 6D 20 6E 1. The program n
0252E0: 6F 77 20 20 75 73 65 73 20 20 6D 6F 72 65 20 20 ow uses more
0252F0: 6D 65 61 6E 69 6E 67 66 75 6C 20 20 6E 61 6D 65 meaningful name
025300: 76 65 67 65 74 61 72 69 61 6E 2E 0D 0A 0D 0A 54 vegetarian.....T
025310: 68 61 6E 78 73 20 74 6F 20 4D 72 20 49 20 42 6F hanxs to Mr I Bo
025320: 74 68 61 6D 20 66 6F 72 20 70 6F 69 6E 74 69 6E tham for pointin
025330: 67 20 6F 75 74 20 74 68 61 74 20 43 50 2F 4D 2B g out that CP/M+
025340: 20 69 73 20 6D 6F 72 65 20 69 6E 74 65 72 65 73 is more interes
025350: 74 69 6E 67 20 74 68 61 6E 0D 0A 45 6E 67 6C 69 ting than..Engli
025360: 73 68 20 63 72 69 63 6B 65 74 2E 0D 0A 0D 0A 0D sh cricket......
025370: 0A 45 53 43 20 4B 45 59 20 53 45 51 55 45 4E 43 .ESC KEY SEQUENC
025380: 45 53 20 41 4E 44 20 43 50 2F 4D 2E 0D 0A 3D 3D ES AND CP/M...==
025390: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0253A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 59 6F 75 =========....You
0253B0: 20 63 61 6E 20 75 73 65 20 74 68 65 20 45 53 43 can use the ESC
0253C0: 20 6B 65 79 20 63 6F 6D 6D 61 6E 64 73 20 61 74 key commands at
0253D0: 20 20 74 68 65 20 20 41 3E 20 70 72 6F 6D 70 74 the A> prompt
0253E0: 20 74 6F 20 73 65 74 20 74 68 65 20 6D 6F 64 65 to set the mode
0253F0: 2C 20 63 6C 65 61 72 0D 0A 74 68 65 20 73 63 72 , clear..the scr
025400: 65 65 6E 20 65 74 63 2C 20 6C 65 74 27 73 20 74 een etc, let's t
025410: 72 79 20 61 6E 20 65 78 61 6D 70 6C 65 3A 0D 0A ry an example:..
025420: 0D 0A 54 6F 20 63 6C 65 61 72 20 74 68 65 20 73 ..To clear the s
025430: 63 72 65 65 6E 20 75 73 69 6E 67 20 43 50 2F 4D creen using CP/M
025440: 20 33 2E 31 20 28 70 6C 75 73 29 2C 20 70 72 65 3.1 (plus), pre
025450: 73 73 2C 0D 0A 0D 0A 20 45 53 43 20 20 45 20 20 ss,.... ESC E
025460: 45 53 43 20 20 48 20 20 20 28 74 68 65 6E 20 70 ESC H (then p
025470: 72 65 73 73 20 74 68 65 20 52 65 74 75 72 6E 20 ress the Return
025480: 6B 65 79 29 0D 0A 0D 0A 54 6F 20 63 6C 65 61 72 key)....To clear
025490: 20 74 68 65 20 73 63 72 65 65 6E 20 75 73 69 6E the screen usin
0254A0: 67 20 43 50 2F 4D 20 32 2E 32 2C 20 70 72 65 73 g CP/M 2.2, pres
0254B0: 73 2C 0D 0A 0D 0A 20 43 54 52 4C 20 26 20 4C 0D s,.... CTRL & L.
0254C0: 0A 0D 0A 0D 0A 4D 4F 52 45 20 46 49 4C 45 20 48 .....MORE FILE H
0254D0: 41 4E 44 4C 49 4E 47 2E 0D 0A 3D 3D 3D 3D 3D 3D ANDLING...======
0254E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
0254F0: 0A 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 75 .Last month we u
025500: 73 20 20 66 6F 72 20 74 68 65 20 69 64 65 6E 74 s for the ident
025510: 69 66 69 65 72 73 20 61 6E 64 0D 0A 20 20 20 70 ifiers and.. p
025520: 72 6F 63 65 64 75 72 65 73 2E 20 43 6F 62 6F 6C rocedures. Cobol
025530: 20 70 72 6F 67 72 61 6D 73 20 61 72 65 20 77 72 programs are wr
025540: 69 74 74 65 6E 20 20 69 6E 20 20 6E 65 61 72 20 itten in near
025550: 20 45 6E 67 6C 69 73 68 20 61 6E 64 20 73 68 6F English and sho
025560: 75 6C 64 20 62 65 0D 0A 20 20 20 65 61 73 79 20 uld be.. easy
025570: 74 6F 20 72 65 61 64 2E 0D 0A 0D 0A 32 2E 20 54 to read.....2. T
025580: 68 65 20 52 45 41 44 20 27 66 69 6C 65 6E 61 6D he READ 'filenam
025590: 65 27 20 45 4E 44 20 63 6F 6D 6D 61 6E 64 20 20 e' END command
0255A0: 6E 6F 77 20 20 75 73 65 73 20 61 20 64 69 66 66 now uses a diff
0255B0: 65 72 65 6E 74 20 66 6F 72 6D 61 74 2C 20 77 68 erent format, wh
0255C0: 65 6E 20 74 68 65 0D 0A 20 20 20 65 6E 64 20 6F en the.. end o
0255D0: 66 20 74 68 65 20 66 69 6C 65 20 69 73 20 72 65 f the file is re
0255E0: 61 63 68 65 64 20 74 68 65 20 70 72 6F 67 72 61 ached the progra
0255F0: 6D 20 75 73 65 73 20 61 20 47 4F 20 69 6E 73 74 m uses a GO inst
025600: 72 75 63 74 69 6F 6E 20 74 6F 20 6A 75 6D 70 20 ruction to jump
025610: 74 6F 0D 0A 20 20 20 61 20 6E 65 77 20 70 72 6F to.. a new pro
025620: 63 65 64 75 72 65 2E 20 54 68 69 73 20 6D 65 74 cedure. This met
025630: 68 6F 64 20 69 73 20 71 75 69 63 6B 65 72 20 69 hod is quicker i
025640: 6E 20 6F 70 65 72 61 74 69 6F 6E 20 62 75 74 20 n operation but
025650: 69 73 20 6E 6F 74 20 61 73 20 6E 65 61 74 0D 0A is not as neat..
025660: 0D 0A 33 2E 20 54 68 65 20 43 4F 4E 54 49 4E 55 ..3. The CONTINU
025670: 45 2D 59 45 53 2F 4E 4F 20 70 72 6F 63 65 64 75 E-YES/NO procedu
025680: 72 65 20 68 61 73 20 62 65 65 6E 20 61 6C 74 65 re has been alte
025690: 72 65 64 20 74 6F 20 61 6C 6C 6F 77 20 74 65 73 red to allow tes
0256A0: 74 69 6E 67 20 6F 66 20 62 6F 74 68 0D 0A 20 20 ting of both..
0256B0: 20 75 70 70 65 72 20 61 6E 64 20 6C 6F 77 65 72 upper and lower
0256C0: 20 63 61 73 65 20 63 68 61 72 61 63 74 65 72 73 case characters
0256D0: 2E 0D 0A 0D 0A 0D 0A 50 52 49 4E 54 49 4E 47 20 .......PRINTING
0256E0: 46 49 4C 45 53 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILES...========
0256F0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 =======....This
025700: 73 65 64 20 43 6F 62 6F 6C 20 74 6F 20 63 72 65 sed Cobol to cre
025710: 61 74 65 20 61 6E 64 20 74 68 65 20 64 69 73 70 ate and the disp
025720: 6C 61 79 20 61 20 73 65 71 75 65 6E 74 69 61 6C lay a sequential
025730: 20 66 69 6C 65 2C 20 74 68 69 73 0D 0A 6D 6F 6E file, this..mon
025740: 74 68 20 77 65 20 61 72 65 20 67 6F 69 6E 67 20 th we are going
025750: 6F 6E 65 20 62 65 74 74 65 72 20 20 77 69 74 68 one better with
025760: 20 20 61 20 70 72 6F 67 72 61 6D 20 77 68 69 63 a program whic
025770: 68 20 61 64 64 73 20 65 78 74 72 61 20 72 65 63 h adds extra rec
025780: 6F 72 64 73 20 74 6F 0D 0A 61 6E 20 65 78 69 73 ords to..an exis
025790: 74 69 6E 67 20 64 61 74 61 20 66 69 6C 65 2E 0D ting data file..
0257A0: 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 46 4F 55 .....PROGRAM FOU
0257B0: 52 54 45 45 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D RTEEN...========
0257C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 44 45 =========....IDE
0257D0: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
0257E0: 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 SION...PROGRAM-I
0257F0: 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 46 6F 75 D. Example Fou
025800: 72 74 65 65 6E 2E 0D 0A 2A 20 54 68 69 73 20 70 rteen...* This p
025810: 72 6F 67 72 61 6D 20 61 64 64 73 20 61 64 64 69 rogram adds addi
025820: 74 69 6F 6E 61 6C 20 6E 61 6D 65 73 20 74 6F 20 tional names to
025830: 74 68 65 20 64 61 74 61 20 66 69 6C 65 20 4E 41 the data file NA
025840: 4D 45 53 2E 44 41 54 0D 0A 2A 0D 0A 2A 20 4D 65 MES.DAT..*..* Me
025850: 74 68 6F 64 20 2D 20 43 6F 70 79 20 4F 4C 44 20 thod - Copy OLD
025860: 46 49 4C 45 20 74 6F 20 4E 45 57 20 46 49 4C 45 FILE to NEW FILE
025870: 0D 0A 2A 20 20 20 20 20 20 20 20 2D 20 61 64 64 ..* - add
025880: 20 6E 65 77 20 6E 61 6D 65 73 20 74 6F 20 4E 45 new names to NE
025890: 57 20 46 49 4C 45 0D 0A 2A 20 20 20 20 20 20 20 W FILE..*
0258A0: 20 2D 20 43 6F 70 79 20 4E 45 57 20 46 49 4C 45 - Copy NEW FILE
0258B0: 20 74 6F 20 4F 4C 44 20 46 49 4C 45 0D 0A 2A 0D to OLD FILE..*.
0258C0: 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 .ENVIRONMENT DIV
0258D0: 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 ISION...CONFIGUR
0258E0: 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A ATION SECTION...
0258F0: 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 SOURCE-COMPUTE
025900: 76 65 72 73 69 6F 6E 20 6F 66 20 43 6F 62 6F 6C version of Cobol
025910: 20 64 6F 65 73 20 6E 6F 74 20 61 6C 6C 6F 77 20 does not allow
025920: 20 79 6F 75 20 64 69 72 65 63 74 20 61 63 63 65 you direct acce
025930: 73 73 20 74 6F 20 74 68 65 20 70 72 69 6E 74 65 ss to the printe
025940: 72 2C 20 73 6F 0D 0A 69 66 20 77 65 20 77 61 6E r, so..if we wan
025950: 74 20 70 72 69 6E 74 65 64 20 6F 75 74 70 75 74 t printed output
025960: 20 77 65 20 68 61 76 65 20 74 6F 20 63 72 65 61 we have to crea
025970: 74 65 20 61 6E 20 74 65 78 74 20 66 69 6C 65 20 te an text file
025980: 77 69 74 68 20 66 6F 72 6D 61 74 74 65 64 20 74 with formatted t
025990: 6F 0D 0A 74 68 65 20 6C 61 79 6F 75 74 20 77 65 o..the layout we
0259A0: 20 6E 65 65 64 20 61 6E 64 20 74 68 65 6E 20 75 need and then u
0259B0: 73 65 20 56 44 45 20 20 74 6F 20 70 72 69 6E 74 se VDE to print
0259C0: 20 6F 75 74 20 6F 75 72 20 64 61 74 61 2E 20 54 out our data. T
0259D0: 68 69 73 20 6D 65 74 68 6F 64 20 69 73 0D 0A 71 his method is..q
0259E0: 75 69 74 65 20 65 61 73 79 20 74 6F 20 75 73 65 uite easy to use
0259F0: 2C 20 61 6E 64 20 70 72 6F 67 72 61 6D 73 20 31 , and programs 1
025A00: 35 20 61 6E 64 20 31 36 20 64 65 6D 6F 6E 73 74 5 and 16 demonst
025A10: 72 61 74 65 20 74 68 65 20 70 72 69 6E 63 69 70 rate the princip
025A20: 6C 65 73 20 75 73 65 64 2E 0D 0A 0D 0A 0D 0A 50 les used.......P
025A30: 52 4F 47 52 41 4D 20 46 49 46 54 45 45 4E 2E 0D ROGRAM FIFTEEN..
025A40: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
025A50: 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 6F 67 72 61 =....This progra
025A60: 6D 20 63 72 65 61 74 65 73 20 74 68 65 20 61 73 m creates the as
025A70: 63 69 69 20 66 69 6C 65 20 6E 65 65 64 65 64 20 cii file needed
025A80: 66 6F 72 20 70 72 6F 67 72 61 6D 20 73 69 78 74 for program sixt
025A90: 65 65 6E 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 een.....IDENTIFI
025AA0: 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E CATION DIVISION.
025AB0: 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 ..PROGRAM-ID.
025AC0: 45 78 61 6D 70 6C 65 20 46 69 66 74 65 65 6E 2E Example Fifteen.
025AD0: 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 ..*..* This prog
025AE0: 72 61 6D 20 63 72 65 61 74 65 73 20 61 20 64 61 ram creates a da
025AF0: 74 61 20 66 69 6C 65 20 63 61 6C 6C 65 64 20 44 ta file called D
025B00: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
025B10: 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 .. OBJECT-COMPU
025B20: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
025B30: 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 8...INPUT-OUTPUT
025B40: 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D SECTION...FILE-
025B50: 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 CONTROL... SELE
025B60: 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 CT NAME-FILE ASS
025B70: 49 47 4E 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A IGN NAMES.DAT...
025B80: 20 20 53 45 4C 45 43 54 20 54 45 4D 50 2D 46 49 SELECT TEMP-FI
025B90: 4C 45 20 41 53 53 49 47 4E 20 54 45 4D 50 2E 44 LE ASSIGN TEMP.D
025BA0: 41 54 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 AT...*..DATA DIV
025BB0: 49 53 49 4F 4E 2E 0D 0A 46 49 4C 45 20 53 45 43 ISION...FILE SEC
025BC0: 54 49 4F 4E 2E 0D 0A 46 44 20 4E 41 4D 45 2D 46 TION...FD NAME-F
025BD0: 49 4C 45 2E 0D 0A 20 20 30 31 20 53 54 4F 52 45 ILE... 01 STORE
025BE0: 44 2D 4E 41 4D 45 20 20 20 20 50 49 43 20 58 28 D-NAME PIC X(
025BF0: 33 30 29 2E 0D 0A 46 44 20 54 45 4D 50 2D 46 49 30)...FD TEMP-FI
025C00: 4C 45 2E 0D 0A 20 20 30 31 20 54 45 4D 50 2D 4E LE... 01 TEMP-N
025C10: 41 4D 45 20 20 20 20 20 20 50 49 43 20 58 28 33 AME PIC X(3
025C20: 30 29 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 0)...WORKING-STO
025C30: 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 RAGE SECTION...
025C40: 20 30 31 20 52 45 50 4C 59 20 20 20 20 20 20 20 01 REPLY
025C50: 20 20 20 50 49 43 20 58 2E 0D 0A 2A 0D 0A 50 52 PIC X...*..PR
025C60: 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E OCEDURE DIVISION
025C70: 2E 0D 0A 4F 50 45 4E 2D 46 49 4C 45 53 2E 0D 0A ...OPEN-FILES...
025C80: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
025C90: 20 20 44 49 53 50 4C 41 59 20 27 4F 70 65 6E 69 DISPLAY 'Openi
025CA0: 6E 67 20 54 68 65 20 44 69 73 63 20 46 69 6C 65 ng The Disc File
025CB0: 73 27 2E 0D 0A 20 20 4F 50 45 4E 20 49 4E 50 55 s'... OPEN INPU
025CC0: 54 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 T NAME-FILE...
025CD0: 4F 50 45 4E 20 4F 55 54 50 55 54 20 54 45 4D 50 OPEN OUTPUT TEMP
025CE0: 2D 46 49 4C 45 2E 0D 0A 43 4F 50 59 2D 4F 4C 44 -FILE...COPY-OLD
025CF0: 2D 46 49 4C 45 2E 0D 0A 20 20 52 45 41 44 20 4E -FILE... READ N
025D00: 41 54 41 2E 44 41 54 20 77 68 69 63 68 20 69 73 ATA.DAT which is
025D10: 20 75 73 65 64 20 69 6E 0D 0A 2A 20 70 72 6F 67 used in..* prog
025D20: 72 61 6D 20 73 69 78 74 65 65 6E 2E 0D 0A 2A 0D ram sixteen...*.
025D30: 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 .ENVIRONMENT DIV
025D40: 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 ISION...CONFIGUR
025D50: 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A ATION SECTION...
025D60: 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 SOURCE-COMPUTE
025D70: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
025D80: 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 .. OBJECT-COMPU
025D90: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
025DA0: 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 8...INPUT-OUTPUT
025DB0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D SECTION...FILE-
025DC0: 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 CONTROL... SELE
025DD0: 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 CT NAME-FILE ASS
025DE0: 49 47 4E 20 44 41 54 41 2E 44 41 54 2E 0D 0A 2A IGN DATA.DAT...*
025DF0: 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E ..DATA DIVISION.
025E00: 0D 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D ..FILE SECTION..
025E10: 0A 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A .FD NAME-FILE...
025E20: 30 31 20 45 4D 50 4C 4F 59 45 45 2D 52 45 43 4F 01 EMPLOYEE-RECO
025E30: 52 44 2E 0D 0A 20 20 30 33 20 4E 41 4D 45 20 20 RD... 03 NAME
025E40: 20 20 20 20 20 20 20 50 49 43 20 58 28 33 30 29 PIC X(30)
025E50: 2E 0D 0A 20 20 30 33 20 57 4F 52 4B 2D 4E 55 4D ... 03 WORK-NUM
025E60: 20 20 20 20 20 50 49 43 20 58 28 38 29 2E 0D 0A PIC X(8)...
025E70: 20 20 30 33 20 44 45 50 54 20 20 20 20 20 20 20 03 DEPT
025E80: 20 20 50 49 43 20 58 28 38 29 2E 0D 0A 20 20 30 PIC X(8)... 0
025E90: 33 20 44 4F 46 42 20 20 20 20 20 20 20 20 20 50 3 DOFB P
025EA0: 49 43 20 58 28 38 29 2E 0D 0A 0D 0A 2A 20 62 65 IC X(8).....* be
025EB0: 63 61 75 73 65 20 74 68 65 72 65 20 61 72 65 20 cause there are
025EC0: 6E 6F 20 61 64 64 69 74 69 6F 6E 61 6C 20 69 64 no additional id
025ED0: 65 6E 74 69 66 69 65 72 73 20 74 6F 20 62 65 20 entifiers to be
025EE0: 64 65 63 6C 61 72 65 64 20 77 65 20 64 6F 0D 0A declared we do..
025EF0: 2A 20 6E 65 65 64 20 74 68 65 20 57 4F 52 4B 49 * need the WORKI
025F00: 41 4D 45 2D 46 49 4C 45 20 45 4E 44 20 47 4F 20 AME-FILE END GO
025F10: 41 44 44 2D 4E 45 57 2D 4E 41 4D 45 53 2E 0D 0A ADD-NEW-NAMES...
025F20: 20 20 4D 4F 56 45 20 53 54 4F 52 45 44 2D 4E 41 MOVE STORED-NA
025F30: 4D 45 20 54 4F 20 54 45 4D 50 2D 4E 41 4D 45 2E ME TO TEMP-NAME.
025F40: 0D 0A 20 20 57 52 49 54 45 20 54 45 4D 50 2D 4E .. WRITE TEMP-N
025F50: 41 4D 45 2E 0D 0A 20 20 47 4F 20 43 4F 50 59 2D AME... GO COPY-
025F60: 4F 4C 44 2D 46 49 4C 45 2E 0D 0A 41 44 44 2D 4E OLD-FILE...ADD-N
025F70: 45 57 2D 4E 41 4D 45 53 2E 0D 0A 20 20 44 49 53 EW-NAMES... DIS
025F80: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 44 49 53 PLAY ' '... DIS
025F90: 50 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 PLAY 'Please Ent
025FA0: 65 72 20 41 20 4E 61 6D 65 27 2E 0D 0A 20 20 44 er A Name'... D
025FB0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 ISPLAY ' '... A
025FC0: 43 43 45 50 54 20 54 45 4D 50 2D 4E 41 4D 45 2E CCEPT TEMP-NAME.
025FD0: 0D 0A 20 20 57 52 49 54 45 20 54 45 4D 50 2D 4E .. WRITE TEMP-N
025FE0: 41 4D 45 2E 0D 0A 43 4F 4E 54 49 4E 55 45 2D 59 AME...CONTINUE-Y
025FF0: 45 53 2F 4E 4F 2E 0D 0A 20 20 4D 4F 56 45 20 27 ES/NO... MOVE '
026000: 20 27 20 54 4F 20 52 45 50 4C 59 2E 0D 0A 20 20 ' TO REPLY...
026010: 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 43 DISPLAY 'Enter C
026020: 20 74 6F 20 43 6F 6E 74 69 6E 75 65 27 2E 0D 0A to Continue'...
026030: 20 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 DISPLAY 'Enter
026040: 20 45 20 74 6F 20 45 6E 64 27 2E 0D 0A 20 20 41 E to End'... A
026050: 43 43 45 50 54 20 52 45 50 4C 59 2E 0D 0A 20 20 CCEPT REPLY...
026060: 20 20 49 46 20 52 45 50 4C 59 20 45 51 55 41 4C IF REPLY EQUAL
026070: 20 27 43 27 20 20 47 4F 20 41 44 44 2D 4E 45 57 'C' GO ADD-NEW
026080: 2D 4E 41 4D 45 53 20 45 4E 44 2D 49 46 2E 0D 0A -NAMES END-IF...
026090: 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 51 55 IF REPLY EQU
0260A0: 41 4C 20 27 63 27 20 20 47 4F 20 41 44 44 2D 4E AL 'c' GO ADD-N
0260B0: 45 57 2D 4E 41 4D 45 53 20 45 4E 44 2D 49 46 2E EW-NAMES END-IF.
0260C0: 0D 0A 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 .. IF REPLY E
0260D0: 51 55 41 4C 20 27 45 27 20 20 47 4F 20 43 4C 4F QUAL 'E' GO CLO
0260E0: 53 45 2D 46 49 4C 45 53 20 45 4E 44 2D 49 46 2E SE-FILES END-IF.
0260F0: 0D 0A 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 .. IF REPLY E
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 01 00 02 09 52 E5 20 00 C1 02 00 00 00 02 .....R. .......
026120: 20 00 C6 02 00 00 00 02 20 00 C2 02 00 00 00 02 ....... .......
026130: 20 00 C7 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026140: 20 00 C8 02 00 00 00 02 20 00 C4 02 00 00 00 02 ....... .......
026150: 20 00 C9 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
026210: 4F 4E 2E 0D 0A 0D 0A 50 52 4F 43 45 44 55 52 45 ON.....PROCEDURE
026220: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 4F 50 45 4E DIVISION...OPEN
026230: 2D 46 49 4C 45 2E 0D 0A 20 20 4F 50 45 4E 20 4F -FILE... OPEN O
026240: 55 54 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 2E UTPUT NAME-FILE.
026250: 0D 0A 50 52 49 4E 54 2D 49 4E 53 54 52 55 43 54 ..PRINT-INSTRUCT
026260: 49 4F 4E 53 2E 0D 0A 20 20 44 49 53 50 4C 41 59 IONS... DISPLAY
026270: 20 27 45 6E 74 65 72 20 54 68 65 20 46 6F 6C 6C 'Enter The Foll
026280: 6F 77 69 6E 67 20 44 61 74 61 27 2E 0D 0A 20 20 owing Data'...
026290: 44 49 53 50 4C 41 59 20 27 46 6F 72 20 46 69 76 DISPLAY 'For Fiv
0262A0: 65 20 45 6D 70 6C 6F 79 65 65 73 27 2E 0D 0A 20 e Employees'...
0262B0: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 47 DISPLAY ' '...G
0262C0: 45 54 2D 44 45 54 41 49 4C 53 2E 0D 0A 20 20 50 ET-DETAILS... P
0262D0: 45 52 46 4F 52 4D 20 45 4E 54 45 52 2D 44 41 54 ERFORM ENTER-DAT
0262E0: 41 20 35 20 54 49 4D 45 53 2E 0D 0A 20 20 43 4C A 5 TIMES... CL
0262F0: 4F 53 45 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A OSE NAME-FILE...
026300: 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 45 4E 54 STOP RUN...ENT
026310: 45 52 2D 44 41 54 41 2E 0D 0A 20 20 44 49 53 50 ER-DATA... DISP
026320: 4C 41 59 20 27 45 6E 74 65 72 20 4E 61 6D 65 27 LAY 'Enter Name'
026330: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 6D 61 ... DISPLAY 'ma
026340: 78 20 33 30 20 63 68 61 72 73 2E 27 2E 0D 0A 20 x 30 chars.'...
026350: 20 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 ACCEPT NAME...
026360: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
026370: 57 6F 72 6B 73 20 4E 75 6D 62 65 72 27 2E 0D 0A Works Number'...
026380: 20 20 44 49 53 50 4C 41 59 20 27 6D 61 78 20 38 DISPLAY 'max 8
026390: 20 63 68 61 72 73 2E 27 2E 0D 0A 20 20 41 43 43 chars.'... ACC
0263A0: 45 50 54 20 57 4F 52 4B 2D 4E 55 4D 2E 0D 0A 20 EPT WORK-NUM...
0263B0: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
0263C0: 44 65 70 61 72 74 6D 65 6E 74 27 2E 0D 0A 20 20 Department'...
0263D0: 44 49 53 50 4C 41 59 20 27 6D 61 78 20 38 20 63 DISPLAY 'max 8 c
0263E0: 68 61 72 73 2E 27 2E 0D 0A 20 20 41 43 43 45 50 hars.'... ACCEP
0263F0: 54 20 44 45 50 54 2E 0D 0A 20 20 44 49 53 50 4C T DEPT... DISPL
026400: 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 ... 03 FILLER
026410: 20 20 20 20 20 20 20 50 49 43 20 58 28 35 29 20 PIC X(5)
026420: 20 20 56 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A VALUE SPACE...
026430: 20 20 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 03 FILLER
026440: 20 20 20 20 50 49 43 20 58 28 34 29 20 20 20 56 PIC X(4) V
026450: 41 4C 55 45 20 27 4E 61 6D 65 27 2E 0D 0A 20 20 ALUE 'Name'...
026460: 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 20 20 03 FILLER
026470: 20 20 50 49 43 20 58 28 33 30 29 20 20 56 41 4C PIC X(30) VAL
026480: 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 UE SPACE... 03
026490: 46 49 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 FILLER P
0264A0: 49 43 20 58 28 31 32 29 20 20 56 41 4C 55 45 20 IC X(12) VALUE
0264B0: 27 57 6F 72 6B 20 4E 6F 2E 20 20 20 20 27 2E 0D 'Work No. '..
0264C0: 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 20 20 . 03 FILLER
0264D0: 20 20 20 20 20 50 49 43 20 58 28 31 32 29 20 20 PIC X(12)
0264E0: 56 41 4C 55 45 20 27 44 65 70 74 2E 20 20 20 20 VALUE 'Dept.
0264F0: 20 20 20 27 2E 0D 0A 20 20 30 33 20 46 49 4C 4C '... 03 FILL
026500: 45 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 ER PIC X
026510: 28 38 29 20 20 20 56 41 4C 55 45 20 27 44 20 6F (8) VALUE 'D o
026520: 66 20 42 20 20 27 2E 0D 0A 20 20 30 33 20 46 49 f B '... 03 FI
026530: 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 49 43 LLER PIC
026540: 20 58 28 39 29 20 20 20 56 41 4C 55 45 20 53 50 X(9) VALUE SP
026550: 41 43 45 2E 0D 0A 30 31 20 42 4C 41 4E 4B 2D 4C ACE...01 BLANK-L
026560: 49 4E 45 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 INE... 03 FILLE
026570: 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 20 R PIC X
026580: 20 20 20 20 20 56 41 4C 55 45 20 53 50 41 43 45 VALUE SPACE
026590: 2E 0D 0A 30 31 20 50 52 49 4E 54 2D 4C 49 4E 45 ...01 PRINT-LINE
0265A0: 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 ... 03 FILLER
0265B0: 20 20 20 20 20 20 20 50 49 43 20 58 28 35 29 20 PIC X(5)
0265C0: 20 20 56 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A VALUE SPACE...
0265D0: 20 20 30 33 20 50 52 49 4E 54 2D 4E 41 4D 45 20 03 PRINT-NAME
0265E0: 20 20 20 20 50 49 43 20 58 28 33 34 29 20 20 56 PIC X(34) V
0265F0: 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 ALUE SPACE... 0
026600: 41 59 20 27 45 6E 74 65 72 20 44 61 74 65 20 4F AY 'Enter Date O
026610: 66 20 42 69 72 74 68 27 2E 0D 0A 20 20 44 49 53 f Birth'... DIS
026620: 50 4C 41 59 20 27 46 6F 72 6D 61 74 20 44 44 2F PLAY 'Format DD/
026630: 4D 4D 2F 59 59 27 2E 0D 0A 20 20 41 43 43 45 50 MM/YY'... ACCEP
026640: 54 20 44 4F 46 42 2E 0D 0A 2A 0D 0A 20 20 57 52 T DOFB...*.. WR
026650: 49 54 45 20 45 4D 50 4C 4F 59 45 45 2D 52 45 43 ITE EMPLOYEE-REC
026660: 4F 52 44 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 ORD.......PROGRA
026670: 4D 20 53 49 58 54 45 45 4E 2E 0D 0A 3D 3D 3D 3D M SIXTEEN...====
026680: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
026690: 54 68 69 73 20 70 72 6F 67 72 61 6D 20 63 72 65 This program cre
0266A0: 61 74 65 73 20 74 68 65 20 61 73 63 69 69 20 66 ates the ascii f
0266B0: 69 6C 65 20 20 77 68 69 63 68 20 20 77 69 6C 6C ile which will
0266C0: 20 62 65 20 70 72 69 6E 74 65 64 20 6F 75 74 20 be printed out
0266D0: 75 73 69 6E 67 20 56 44 45 2E 0D 0A 50 72 6F 67 using VDE...Prog
0266E0: 72 61 6D 20 73 69 78 74 65 65 6E 20 69 73 20 71 ram sixteen is q
0266F0: 75 69 74 65 20 6C 6F 6E 67 20 73 6F 20 20 74 68 uite long so th
026700: 65 20 70 72 6F 67 72 61 6D 20 6E 6F 74 65 73 20 e program notes
026710: 68 61 76 65 20 62 65 65 6E 20 69 6E 74 65 72 73 have been inters
026720: 70 65 72 73 65 64 0D 0A 62 65 74 77 65 65 6E 20 persed..between
026730: 74 68 65 20 70 72 6F 67 72 61 6D 20 63 6F 6D 6D the program comm
026740: 61 6E 64 73 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 ands.....IDENTIF
026750: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
026760: 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 ...PROGRAM-ID.
026770: 20 45 78 61 6D 70 6C 65 20 53 69 78 74 65 65 6E Example Sixteen
026780: 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F ...*..* This pro
026790: 67 72 61 6D 20 73 61 76 65 73 20 61 20 64 61 74 gram saves a dat
0267A0: 61 20 66 69 6C 65 20 74 6F 20 64 69 73 63 2E 20 a file to disc.
0267B0: 54 68 65 20 66 69 6C 65 20 68 61 73 20 62 65 65 The file has bee
0267C0: 6E 20 66 6F 72 6D 61 74 74 65 64 0D 0A 2A 20 72 n formatted..* r
0267D0: 65 61 64 79 20 66 6F 72 20 70 72 69 6E 74 69 6E eady for printin
0267E0: 67 20 6F 75 74 20 75 73 69 6E 67 20 56 44 45 0D g out using VDE.
0267F0: 0A 2A 0D 0A 2A 20 4D 65 74 68 6F 64 20 2D 20 52 .*..* Method - R
026800: 33 20 50 52 49 4E 54 2D 57 4F 52 4B 2D 4E 55 4D 3 PRINT-WORK-NUM
026810: 20 50 49 43 20 58 28 31 32 29 20 20 56 41 4C 55 PIC X(12) VALU
026820: 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 50 E SPACE... 03 P
026830: 52 49 4E 54 2D 44 45 50 54 20 20 20 20 20 50 49 RINT-DEPT PI
026840: 43 20 58 28 31 32 29 20 20 56 41 4C 55 45 20 53 C X(12) VALUE S
026850: 50 41 43 45 2E 0D 0A 20 20 30 33 20 50 52 49 4E PACE... 03 PRIN
026860: 54 2D 44 4F 46 42 20 20 20 20 20 50 49 43 20 58 T-DOFB PIC X
026870: 28 31 37 29 20 20 56 41 4C 55 45 20 53 50 41 43 (17) VALUE SPAC
026880: 45 2E 0D 0A 0D 0A 27 50 52 49 4E 54 2D 4C 49 4E E.....'PRINT-LIN
026890: 45 20 69 73 20 61 20 73 74 6F 72 61 67 65 20 61 E is a storage a
0268A0: 72 65 61 20 77 68 69 63 68 20 77 65 20 20 61 72 rea which we ar
0268B0: 65 20 75 73 69 6E 67 20 74 6F 20 66 6F 72 6D 61 e using to forma
0268C0: 74 20 74 68 65 20 64 61 74 61 20 77 68 69 63 68 t the data which
0268D0: 0D 0A 20 77 69 6C 6C 20 62 65 20 73 61 76 65 64 .. will be saved
0268E0: 20 74 6F 20 64 69 73 63 2C 20 61 6E 64 20 74 68 to disc, and th
0268F0: 65 6E 20 70 72 69 6E 74 65 64 20 6F 75 74 20 75 en printed out u
026900: 73 69 6E 67 20 74 68 65 20 77 6F 72 64 20 70 72 sing the word pr
026910: 6F 63 65 73 73 6F 72 2E 27 0D 0A 0D 0A 30 31 20 ocessor.'....01
026920: 4C 49 4E 45 2D 43 4F 55 4E 54 20 20 20 20 20 20 LINE-COUNT
026930: 20 50 49 43 20 39 28 32 29 20 20 20 56 41 4C 55 PIC 9(2) VALU
026940: 45 20 5A 45 52 4F 2E 0D 0A 2A 0D 0A 50 52 4F 43 E ZERO...*..PROC
026950: 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D EDURE DIVISION..
026960: 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E 20 .START... OPEN
026970: 4F 55 54 50 55 54 20 50 52 49 4E 54 2D 46 49 4C OUTPUT PRINT-FIL
026980: 45 2E 0D 0A 20 20 4F 50 45 4E 20 49 4E 50 55 54 E... OPEN INPUT
026990: 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 50 NAME-FILE... P
0269A0: 45 52 46 4F 52 4D 20 50 52 49 4E 54 2D 50 41 47 ERFORM PRINT-PAG
0269B0: 45 2D 48 45 41 44 49 4E 47 2E 0D 0A 2A 0D 0A 52 E-HEADING...*..R
0269C0: 45 41 44 2D 50 52 49 4E 54 2E 0D 0A 20 20 49 46 EAD-PRINT... IF
0269D0: 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 45 51 55 41 LINE-COUNT EQUA
0269E0: 4C 20 31 32 0D 0A 20 20 20 50 45 52 46 4F 52 4D L 12.. PERFORM
0269F0: 20 50 52 49 4E 54 2D 45 4E 44 2D 4F 46 2D 50 41 PRINT-END-OF-PA
026A00: 65 61 64 20 64 61 74 61 20 66 69 6C 65 20 66 72 ead data file fr
026A10: 6F 6D 20 64 69 73 63 0D 0A 2A 20 20 20 20 20 20 om disc..*
026A20: 20 20 2D 20 43 72 65 61 74 65 20 61 6E 20 6E 65 - Create an ne
026A30: 77 20 61 73 63 69 69 20 66 69 6C 65 0D 0A 2A 20 w ascii file..*
026A40: 20 20 20 20 20 20 20 20 20 77 69 74 68 20 74 68 with th
026A50: 65 20 70 61 67 65 20 68 65 61 64 69 6E 67 73 20 e page headings
026A60: 61 6E 64 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 and..*
026A70: 74 65 78 74 20 72 65 61 64 79 20 66 6F 72 6D 61 text ready forma
026A80: 74 74 65 64 20 66 6F 72 0D 0A 2A 20 20 20 20 20 tted for..*
026A90: 20 20 20 20 20 70 72 69 6E 74 69 6E 67 0D 0A 2A printing..*
026AA0: 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 ..ENVIRONMENT DI
026AB0: 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 VISION...CONFIGU
026AC0: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
026AD0: 0A 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 . SOURCE-COMPUT
026AE0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
026AF0: 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 ... OBJECT-COMP
026B00: 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 UTER. Amstrad 61
026B10: 32 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 28...INPUT-OUTPU
026B20: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 T SECTION...FILE
026B30: 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C -CONTROL... SEL
026B40: 45 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 ECT NAME-FILE AS
026B50: 53 49 47 4E 20 44 41 54 41 2E 44 41 54 2E 0D 0A SIGN DATA.DAT...
026B60: 20 20 53 45 4C 45 43 54 20 50 52 49 4E 54 2D 46 SELECT PRINT-F
026B70: 49 4C 45 20 41 53 53 49 47 4E 20 50 52 49 4E 54 ILE ASSIGN PRINT
026B80: 2E 44 4F 43 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 .DOC...*..DATA D
026B90: 49 56 49 53 49 4F 4E 2E 0D 0A 46 49 4C 45 20 53 IVISION...FILE S
026BA0: 45 43 54 49 4F 4E 2E 0D 0A 46 44 20 4E 41 4D 45 ECTION...FD NAME
026BB0: 2D 46 49 4C 45 2E 0D 0A 30 31 20 45 4D 50 4C 4F -FILE...01 EMPLO
026BC0: 59 45 45 2D 52 45 43 4F 52 44 2E 0D 0A 20 20 30 YEE-RECORD... 0
026BD0: 33 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 50 3 NAME P
026BE0: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 30 33 20 IC X(30)... 03
026BF0: 57 4F 52 4B 2D 4E 55 4D 20 20 20 20 20 50 49 43 WORK-NUM PIC
026C00: 47 45 0D 0A 20 20 20 50 45 52 46 4F 52 4D 20 50 GE.. PERFORM P
026C10: 52 49 4E 54 2D 50 41 47 45 2D 48 45 41 44 49 4E RINT-PAGE-HEADIN
026C20: 47 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A G.. END-IF.....
026C30: 27 54 68 65 20 49 46 20 73 74 61 74 65 6D 65 6E 'The IF statemen
026C40: 74 20 63 6F 6D 6D 61 6E 64 20 20 69 6E 73 74 72 t command instr
026C50: 75 63 74 73 20 20 74 68 65 20 20 63 6F 6D 70 75 ucts the compu
026C60: 74 65 72 20 20 74 6F 20 20 63 6F 6D 70 6C 65 74 ter to complet
026C70: 65 20 62 6F 74 68 20 74 68 65 0D 0A 20 50 45 52 e both the.. PER
026C80: 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 73 20 77 68 FORM commands wh
026C90: 65 6E 20 74 68 65 20 76 61 6C 75 65 20 6F 66 20 en the value of
026CA0: 4C 49 4E 45 2D 43 4F 55 4E 54 20 72 65 61 63 68 LINE-COUNT reach
026CB0: 65 73 20 31 32 2E 27 0D 0A 0D 0A 27 54 68 65 20 es 12.'....'The
026CC0: 76 61 6C 75 65 20 6F 66 20 4C 49 4E 45 2D 43 4F value of LINE-CO
026CD0: 55 4E 54 20 63 61 6E 20 62 65 20 20 73 65 74 20 UNT can be set
026CE0: 20 62 65 74 77 65 65 6E 20 20 30 20 61 6E 64 20 between 0 and
026CF0: 39 39 2C 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 63 99, LINE-COUNT c
026D00: 6F 75 6E 74 73 0D 0A 20 74 68 65 20 6E 75 6D 62 ounts.. the numb
026D10: 65 72 20 6F 66 20 6C 69 6E 65 73 20 74 68 61 74 er of lines that
026D20: 20 68 61 76 65 20 73 61 76 65 64 20 74 6F 20 74 have saved to t
026D30: 68 65 20 70 72 69 6E 74 20 66 69 6C 65 2E 27 0D he print file.'.
026D40: 0A 0D 0A 2A 0D 0A 20 20 52 45 41 44 20 4E 41 4D ...*.. READ NAM
026D50: 45 2D 46 49 4C 45 0D 0A 20 20 45 4E 44 20 47 4F E-FILE.. END GO
026D60: 20 45 4E 44 2D 4F 46 2D 4A 4F 42 2E 0D 0A 2A 0D END-OF-JOB...*.
026D70: 0A 20 20 4D 4F 56 45 20 4E 41 4D 45 20 54 4F 20 . MOVE NAME TO
026D80: 50 52 49 4E 54 2D 4E 41 4D 45 2E 0D 0A 20 20 4D PRINT-NAME... M
026D90: 4F 56 45 20 57 4F 52 4B 2D 4E 55 4D 20 54 4F 20 OVE WORK-NUM TO
026DA0: 50 52 49 4E 54 2D 57 4F 52 4B 2D 4E 55 4D 2E 0D PRINT-WORK-NUM..
026DB0: 0A 20 20 4D 4F 56 45 20 44 45 50 54 20 54 4F 20 . MOVE DEPT TO
026DC0: 50 52 49 4E 54 2D 44 45 50 54 2E 0D 0A 20 20 4D PRINT-DEPT... M
026DD0: 4F 56 45 20 44 4F 46 42 20 54 4F 20 50 52 49 4E OVE DOFB TO PRIN
026DE0: 54 2D 44 4F 46 42 2E 0D 0A 0D 0A 27 54 68 65 20 T-DOFB.....'The
026DF0: 4D 4F 56 45 20 63 6F 6D 6D 61 6E 64 73 20 6D 6F MOVE commands mo
026E00: 20 58 28 38 29 2E 0D 0A 20 20 30 33 20 44 45 50 X(8)... 03 DEP
026E10: 54 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 T PIC X(
026E20: 38 29 2E 0D 0A 20 20 30 33 20 44 4F 46 42 20 20 8)... 03 DOFB
026E30: 20 20 20 20 20 20 20 50 49 43 20 58 28 38 29 2E PIC X(8).
026E40: 0D 0A 0D 0A 46 44 20 50 52 49 4E 54 2D 46 49 4C ....FD PRINT-FIL
026E50: 45 2E 0D 0A 30 31 20 42 55 46 46 45 52 20 20 20 E...01 BUFFER
026E60: 20 20 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A PIC X(80)...
026E70: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
026E80: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 54 E SECTION...01 T
026E90: 49 54 4C 45 2D 4C 49 4E 45 2D 31 2E 0D 0A 20 20 ITLE-LINE-1...
026EA0: 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 20 20 03 FILLER
026EB0: 20 20 50 49 43 20 58 28 36 39 29 20 20 56 41 4C PIC X(69) VAL
026EC0: 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 UE SPACE... 03
026ED0: 46 49 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 FILLER P
026EE0: 49 43 20 58 28 35 29 20 20 20 56 41 4C 55 45 20 IC X(5) VALUE
026EF0: 27 50 41 47 45 20 27 2E 0D 0A 20 20 30 33 20 50 'PAGE '... 03 P
026F00: 41 47 45 2D 4E 55 4D 42 45 52 20 20 20 20 50 49 AGE-NUMBER PI
026F10: 43 20 39 20 20 20 20 20 20 56 41 4C 55 45 20 5A C 9 VALUE Z
026F20: 45 52 4F 2E 0D 0A 0D 0A 27 54 68 65 20 54 49 54 ERO.....'The TIT
026F30: 4C 45 2D 4C 49 4E 45 2D 6E 20 69 64 65 6E 74 69 LE-LINE-n identi
026F40: 66 69 65 72 73 20 61 72 65 20 73 65 74 20 75 70 fiers are set up
026F50: 20 77 69 74 68 69 6E 20 74 68 65 20 57 20 53 20 within the W S
026F60: 53 45 43 54 49 4F 4E 20 77 69 74 68 20 74 68 65 SECTION with the
026F70: 0D 0A 20 66 6F 72 6D 61 74 20 61 6E 64 20 76 61 .. format and va
026F80: 6C 75 65 73 20 74 68 61 74 20 61 72 65 20 75 73 lues that are us
026F90: 65 64 20 77 68 65 6E 20 73 61 76 69 6E 67 20 74 ed when saving t
026FA0: 68 65 20 61 73 63 69 69 20 66 69 6C 65 20 74 6F he ascii file to
026FB0: 20 64 69 73 63 2E 27 0D 0A 0D 0A 27 46 49 4C 4C disc.'....'FILL
026FC0: 45 52 20 69 73 20 61 20 73 70 65 63 69 61 6C 20 ER is a special
026FD0: 69 64 65 6E 74 69 66 69 65 72 2C 20 69 74 20 69 identifier, it i
026FE0: 73 20 75 73 65 64 20 20 69 6E 20 74 68 65 20 57 s used in the W
026FF0: 20 53 20 53 45 43 54 49 4F 4E 20 66 6F 72 20 76 S SECTION for v
027000: 76 65 20 74 68 65 20 76 61 6C 75 65 73 20 66 72 ve the values fr
027010: 6F 6D 20 74 68 65 20 66 69 6C 65 20 72 65 63 6F om the file reco
027020: 72 64 20 74 68 61 74 20 68 61 73 20 62 65 65 6E rd that has been
027030: 20 52 45 41 44 0D 0A 20 69 6E 74 6F 20 74 68 65 READ.. into the
027040: 20 57 20 53 20 53 45 43 54 49 4F 4E 2C 20 77 68 W S SECTION, wh
027050: 65 72 65 20 74 68 65 20 61 72 65 61 20 68 61 73 ere the area has
027060: 20 62 65 65 6E 20 66 6F 72 6D 61 74 74 65 64 20 been formatted
027070: 72 65 61 64 79 20 66 6F 72 20 77 72 69 74 69 6E ready for writin
027080: 67 0D 0A 20 74 6F 20 74 68 65 20 70 72 69 6E 74 g.. to the print
027090: 20 66 69 6C 65 2E 27 0D 0A 0D 0A 20 20 4D 4F 56 file.'.... MOV
0270A0: 45 20 50 52 49 4E 54 2D 4C 49 4E 45 20 54 4F 20 E PRINT-LINE TO
0270B0: 42 55 46 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 BUFFER... WRITE
0270C0: 20 42 55 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 BUFFER... MOVE
0270D0: 20 42 4C 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 BLANK-LINE TO B
0270E0: 55 46 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 UFFER... WRITE
0270F0: 42 55 46 46 45 52 2E 0D 0A 20 20 41 44 44 20 32 BUFFER... ADD 2
027100: 20 54 4F 20 4C 49 4E 45 2D 43 4F 55 4E 54 2E 0D TO LINE-COUNT..
027110: 0A 20 20 47 4F 20 52 45 41 44 2D 50 52 49 4E 54 . GO READ-PRINT
027120: 2E 0D 0A 0D 0A 27 57 65 20 61 64 64 20 32 20 74 .....'We add 2 t
027130: 6F 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 62 65 63 o LINE-COUNT bec
027140: 61 75 73 65 20 77 65 20 20 68 61 76 65 20 20 77 ause we have w
027150: 72 69 74 74 65 6E 20 74 77 6F 20 6C 69 6E 65 73 ritten two lines
027160: 20 6F 66 20 74 65 78 74 20 74 6F 20 74 68 65 0D of text to the.
027170: 0A 20 70 72 69 6E 74 20 66 69 6C 65 2E 27 0D 0A . print file.'..
027180: 0D 0A 45 4E 44 2D 4F 46 2D 4A 4F 42 2E 0D 0A 20 ..END-OF-JOB...
027190: 20 43 4C 4F 53 45 20 50 52 49 4E 54 2D 46 49 4C CLOSE PRINT-FIL
0271A0: 45 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E 41 4D 45 E... CLOSE NAME
0271B0: 2D 46 49 4C 45 2E 0D 0A 20 20 53 54 4F 50 20 52 -FILE... STOP R
0271C0: 55 4E 2E 0D 0A 2A 0D 0A 2A 20 53 75 62 20 52 6F UN...*..* Sub Ro
0271D0: 75 74 69 6E 65 73 0D 0A 2A 0D 0A 50 52 49 4E 54 utines..*..PRINT
0271E0: 2D 45 4E 44 2D 4F 46 2D 50 41 47 45 2E 0D 0A 20 -END-OF-PAGE...
0271F0: 20 4D 4F 56 45 20 42 4C 41 4E 4B 2D 4C 49 4E 45 MOVE BLANK-LINE
027200: 61 6C 75 65 73 0D 0A 20 74 68 61 74 20 61 72 65 alues.. that are
027210: 20 6E 6F 74 20 75 73 65 64 20 65 6C 73 65 77 68 not used elsewh
027220: 65 72 65 2E 20 59 6F 75 20 63 61 6E 6E 6F 74 20 ere. You cannot
027230: 61 63 63 65 73 73 20 74 68 65 20 76 61 6C 75 65 access the value
027240: 20 68 65 6C 64 20 69 6E 20 61 20 46 49 4C 4C 45 held in a FILLE
027250: 52 0D 0A 20 69 64 65 6E 74 69 66 69 65 72 20 66 R.. identifier f
027260: 72 6F 6D 20 74 68 65 20 50 52 4F 43 45 44 55 52 rom the PROCEDUR
027270: 45 20 44 49 56 49 53 49 4F 4E 2E 27 0D 0A 0D 0A E DIVISION.'....
027280: 27 53 50 41 43 45 20 69 73 20 61 20 72 65 73 65 'SPACE is a rese
027290: 72 76 65 64 20 20 77 6F 72 64 20 20 77 68 69 63 rved word whic
0272A0: 68 20 20 66 69 6C 6C 20 20 61 6E 20 20 69 64 65 h fill an ide
0272B0: 6E 74 69 66 69 65 72 20 77 69 74 68 20 73 70 61 ntifier with spa
0272C0: 63 65 73 2E 20 53 50 41 43 45 0D 0A 20 63 61 6E ces. SPACE.. can
0272D0: 6E 6F 74 20 62 65 20 75 73 65 64 20 77 69 74 68 not be used with
0272E0: 20 61 20 6E 75 6D 65 72 69 63 20 69 64 65 6E 74 a numeric ident
0272F0: 69 66 69 65 72 2E 27 0D 0A 0D 0A 27 5A 45 52 4F ifier.'....'ZERO
027300: 20 69 73 20 61 20 72 65 73 65 72 76 65 64 20 77 is a reserved w
027310: 6F 72 64 20 75 73 65 64 20 20 74 6F 20 20 6D 61 ord used to ma
027320: 6B 65 20 20 74 68 65 20 20 76 61 6C 75 65 20 6F ke the value o
027330: 66 20 61 6E 20 69 64 65 6E 74 69 66 69 65 72 20 f an identifier
027340: 30 2C 20 69 74 0D 0A 20 63 61 6E 6E 6F 74 20 62 0, it.. cannot b
027350: 65 20 75 73 65 64 20 77 69 74 68 20 61 20 73 74 e used with a st
027360: 72 69 6E 67 20 69 64 65 6E 74 69 66 69 65 72 2E ring identifier.
027370: 27 0D 0A 0D 0A 30 31 20 54 49 54 4C 45 2D 4C 49 '....01 TITLE-LI
027380: 4E 45 2D 32 2E 0D 0A 20 20 30 33 20 46 49 4C 4C NE-2... 03 FILL
027390: 45 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 ER PIC X
0273A0: 28 33 30 29 20 20 56 41 4C 55 45 20 53 50 41 43 (30) VALUE SPAC
0273B0: 45 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 E... 03 FILLER
0273C0: 20 20 20 20 20 20 20 20 50 49 43 20 58 28 31 39 PIC X(19
0273D0: 29 20 20 56 41 4C 55 45 20 27 2D 20 45 4D 50 4C ) VALUE '- EMPL
0273E0: 4F 59 45 45 20 52 45 50 4F 52 54 20 2D 27 2E 0D OYEE REPORT -'..
0273F0: 0A 30 31 20 54 49 54 4C 45 2D 4C 49 4E 45 2D 33 .01 TITLE-LINE-3
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 01 00 02 09 52 E5 21 00 C1 02 00 00 00 02 !.....R.!.......
027420: 21 00 C6 02 00 00 00 02 21 00 C2 02 00 00 00 02 !.......!.......
027430: 21 00 C7 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027440: 21 00 C8 02 00 00 00 02 21 00 C4 02 00 00 00 02 !.......!.......
027450: 21 00 C9 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 20 54 4F 20 42 55 46 46 45 52 2E 0D 0A 20 20 57 TO BUFFER... W
027510: 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A 20 20 RITE BUFFER...
027520: 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A 20 WRITE BUFFER...
027530: 20 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A WRITE BUFFER...
027540: 20 20 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D WRITE BUFFER..
027550: 0A 0D 0A 27 54 68 65 20 66 6F 75 72 20 57 52 49 ...'The four WRI
027560: 54 45 20 42 55 46 46 45 52 20 63 6F 6D 6D 61 6E TE BUFFER comman
027570: 64 73 20 61 72 65 20 75 73 65 64 20 20 61 73 20 ds are used as
027580: 66 6F 72 6D 20 66 65 65 64 20 63 6F 6D 6D 61 6E form feed comman
027590: 64 73 2C 20 74 68 69 73 20 77 69 6C 6C 0D 0A 20 ds, this will..
0275A0: 73 65 70 61 72 61 74 65 20 74 68 65 20 70 61 67 separate the pag
0275B0: 65 73 20 6F 66 20 74 65 78 74 2E 27 0D 0A 0D 0A es of text.'....
0275C0: 50 52 49 4E 54 2D 50 41 47 45 2D 48 45 41 44 49 PRINT-PAGE-HEADI
0275D0: 4E 47 2E 0D 0A 20 20 41 44 44 20 31 20 54 4F 20 NG... ADD 1 TO
0275E0: 50 41 47 45 2D 4E 55 4D 42 45 52 2E 0D 0A 0D 0A PAGE-NUMBER.....
0275F0: 27 41 44 44 20 31 20 54 4F 20 50 41 47 45 2D 4E 'ADD 1 TO PAGE-N
027600: 55 4D 42 45 52 20 69 6E 63 72 65 61 73 65 20 74 UMBER increase t
027610: 68 65 20 70 61 67 65 20 6E 75 6D 62 65 72 20 64 he page number d
027620: 69 73 70 6C 61 79 65 64 20 61 74 20 74 68 65 20 isplayed at the
027630: 74 6F 70 20 6F 66 20 74 68 65 0D 0A 20 70 72 69 top of the.. pri
027640: 6E 74 20 66 69 6C 65 20 68 65 61 64 69 6E 67 73 nt file headings
027650: 2E 27 0D 0A 0D 0A 20 20 4D 4F 56 45 20 54 49 54 .'.... MOVE TIT
027660: 4C 45 2D 4C 49 4E 45 2D 31 20 54 4F 20 42 55 46 LE-LINE-1 TO BUF
027670: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
027680: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
027690: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
0276A0: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
0276B0: 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 54 49 54 FER... MOVE TIT
0276C0: 4C 45 2D 4C 49 4E 45 2D 32 20 54 4F 20 42 55 46 LE-LINE-2 TO BUF
0276D0: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
0276E0: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
0276F0: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
027700: 4D 42 45 52 21 27 0D 0A 20 20 47 4F 20 53 54 41 MBER!'.. GO STA
027710: 52 54 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 2A RT.. END-IF...*
027720: 0D 0A 20 20 49 46 20 4E 55 4D 42 45 52 2D 45 4E .. IF NUMBER-EN
027730: 54 45 52 45 44 20 4E 55 4D 45 52 49 43 0D 0A 20 TERED NUMERIC..
027740: 20 44 49 53 50 4C 41 59 20 27 57 65 6C 6C 20 44 DISPLAY 'Well D
027750: 6F 6E 65 27 0D 0A 20 20 4D 4F 56 45 20 4E 55 4D one'.. MOVE NUM
027760: 42 45 52 2D 45 4E 54 45 52 45 44 20 54 4F 20 4E BER-ENTERED TO N
027770: 55 4D 42 45 52 0D 0A 20 20 47 4F 20 53 54 41 52 UMBER.. GO STAR
027780: 54 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A T.. END-IF.....
027790: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
0277A0: 0D 0A 31 2E 20 54 68 65 20 73 74 72 69 6E 67 20 ..1. The string
0277B0: 69 64 65 6E 74 69 66 69 65 72 20 61 6E 64 20 20 identifier and
0277C0: 6E 75 6D 65 72 69 63 20 20 69 64 65 6E 74 69 66 numeric identif
0277D0: 69 65 72 20 20 6D 75 73 74 20 20 68 61 76 65 20 ier must have
0277E0: 74 68 65 20 73 61 6D 65 20 50 49 43 0D 0A 20 20 the same PIC..
0277F0: 20 63 6C 61 75 73 65 73 2E 0D 0A 0D 0A 32 2E 20 clauses.....2.
027800: 49 66 20 79 6F 75 20 65 6E 74 65 72 20 20 6D 6F If you enter mo
027810: 72 65 20 20 74 68 61 6E 20 20 34 20 20 63 68 61 re than 4 cha
027820: 72 61 63 74 65 72 73 20 20 74 68 65 6E 20 20 74 racters then t
027830: 68 65 20 65 78 74 72 61 20 63 68 61 72 61 63 74 he extra charact
027840: 65 72 73 20 61 72 65 0D 0A 20 20 20 27 6C 6F 73 ers are.. 'los
027850: 74 27 20 77 68 65 6E 20 74 68 65 79 20 61 72 65 t' when they are
027860: 20 6D 6F 76 65 64 20 66 72 6F 6D 20 74 68 65 20 moved from the
027870: 6B 65 79 62 6F 61 72 64 20 62 75 66 66 65 72 20 keyboard buffer
027880: 69 6E 20 74 68 65 20 57 20 53 20 53 45 43 54 49 in the W S SECTI
027890: 4F 4E 2E 0D 0A 0D 0A 20 20 20 54 79 70 65 20 69 ON..... Type i
0278A0: 6E 20 61 6E 20 65 69 67 68 74 20 64 69 67 69 74 n an eight digit
0278B0: 20 6E 75 6D 62 65 72 20 20 74 6F 20 20 73 65 65 number to see
0278C0: 20 20 74 68 65 20 65 66 66 65 63 74 2C 20 6F 6E the effect, on
0278D0: 6C 79 20 74 68 65 20 66 69 72 73 74 20 66 6F 75 ly the first fou
0278E0: 72 0D 0A 20 20 20 64 69 67 69 74 73 20 61 72 65 r.. digits are
0278F0: 20 64 69 73 70 6C 61 79 65 64 2E 0D 0A 0D 0A 0D displayed......
027900: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
027910: 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 54 49 54 FER... MOVE TIT
027920: 4C 45 2D 4C 49 4E 45 2D 33 20 54 4F 20 42 55 46 LE-LINE-3 TO BUF
027930: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
027940: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
027950: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
027960: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
027970: 46 45 52 2E 0D 0A 20 20 41 44 44 20 36 20 54 4F FER... ADD 6 TO
027980: 20 4C 49 4E 45 2D 43 4F 55 4E 54 2E 0D 0A 0D 0A LINE-COUNT.....
027990: 27 57 65 20 41 44 44 20 36 20 74 6F 20 4C 49 4E 'We ADD 6 to LIN
0279A0: 45 2D 43 4F 55 4E 54 20 62 65 63 61 75 73 65 20 E-COUNT because
0279B0: 20 77 65 20 20 68 61 76 65 20 20 77 72 69 74 74 we have writt
0279C0: 65 6E 20 20 36 20 6C 69 6E 65 73 20 6F 66 20 74 en 6 lines of t
0279D0: 65 78 74 20 74 6F 20 74 68 65 0D 0A 70 72 69 6E ext to the..prin
0279E0: 74 20 66 69 6C 65 2E 27 0D 0A 0D 0A 0D 0A 50 52 t file.'......PR
0279F0: 49 4E 54 49 4E 47 20 54 48 45 20 50 52 49 4E 54 INTING THE PRINT
027A00: 20 46 49 4C 45 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILE...========
027A10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
027A20: 0D 0A 0D 0A 57 68 65 6E 20 79 6F 75 20 68 61 76 ....When you hav
027A30: 65 20 74 79 70 65 64 20 69 6E 20 61 6E 64 20 72 e typed in and r
027A40: 75 6E 20 20 70 72 6F 67 72 61 6D 73 20 66 69 66 un programs fif
027A50: 74 65 65 6E 20 61 6E 64 20 73 69 78 74 65 65 6E teen and sixteen
027A60: 20 79 6F 75 20 61 72 65 20 72 65 61 64 79 0D 0A you are ready..
027A70: 74 6F 20 70 72 69 6E 74 20 6F 75 74 20 74 68 65 to print out the
027A80: 20 72 65 73 75 6C 74 73 2E 20 54 6F 20 70 72 69 results. To pri
027A90: 6E 74 20 20 6F 75 74 20 20 74 68 65 20 20 72 65 nt out the re
027AA0: 73 75 6C 74 73 2C 20 77 65 20 75 73 65 20 74 68 sults, we use th
027AB0: 65 20 56 44 45 20 77 6F 72 64 0D 0A 70 72 6F 63 e VDE word..proc
027AC0: 65 73 73 6F 72 2C 20 73 6F 20 62 65 66 6F 72 65 essor, so before
027AD0: 20 63 6F 6E 74 69 6E 75 69 6E 67 20 20 63 68 65 continuing che
027AE0: 63 6B 20 20 74 68 61 74 20 20 79 6F 75 72 20 20 ck that your
027AF0: 70 72 69 6E 74 65 72 20 69 73 20 6F 6E 2D 6C 69 printer is on-li
027B00: 0A 4F 54 48 45 52 20 54 45 53 54 53 2E 0D 0A 3D .OTHER TESTS...=
027B10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 41 ===========....A
027B20: 73 20 77 65 6C 6C 20 61 73 20 74 65 73 74 69 6E s well as testin
027B30: 67 20 69 66 20 61 6E 20 69 64 65 6E 74 69 66 69 g if an identifi
027B40: 65 72 20 20 69 73 20 20 6E 75 6D 65 72 69 63 20 er is numeric
027B50: 6F 72 20 6E 6F 74 20 6E 75 6D 65 72 69 63 20 6F or not numeric o
027B60: 74 68 65 72 20 74 65 73 74 0D 0A 63 61 6E 20 62 ther test..can b
027B70: 65 20 70 65 72 66 6F 72 6D 65 64 2E 0D 0A 0D 0A e performed.....
027B80: 20 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 IF 'identifier'
027B90: 20 41 4C 50 48 41 42 45 54 49 43 0D 0A 0D 0A 20 ALPHABETIC....
027BA0: 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 20 IF 'identifier'
027BB0: 4E 4F 54 20 41 4C 50 48 41 42 45 54 49 43 0D 0A NOT ALPHABETIC..
027BC0: 0D 0A 20 49 46 20 27 69 64 65 6E 74 69 66 69 65 .. IF 'identifie
027BD0: 72 27 20 45 51 55 41 4C 0D 0A 0D 0A 20 49 46 20 r' EQUAL.... IF
027BE0: 27 69 64 65 6E 74 69 66 69 65 72 27 20 4E 4F 54 'identifier' NOT
027BF0: 20 45 51 55 41 4C 0D 0A 0D 0A 20 49 46 20 27 69 EQUAL.... IF 'i
027C00: 64 65 6E 74 69 66 69 65 72 27 20 47 52 45 41 54 dentifier' GREAT
027C10: 45 52 0D 0A 0D 0A 20 49 46 20 27 69 64 65 6E 74 ER.... IF 'ident
027C20: 69 66 69 65 72 27 20 4E 4F 54 20 47 52 45 41 54 ifier' NOT GREAT
027C30: 45 52 0D 0A 0D 0A 20 49 46 20 27 69 64 65 6E 74 ER.... IF 'ident
027C40: 69 66 69 65 72 27 20 4C 45 53 53 0D 0A 0D 0A 20 ifier' LESS....
027C50: 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 20 IF 'identifier'
027C60: 4E 4F 54 20 4C 45 53 53 0D 0A 0D 0A 0D 0A 44 41 NOT LESS......DA
027C70: 54 45 53 2E 0D 0A 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A TES...======....
027C80: 57 65 20 75 73 65 20 74 68 65 20 66 6F 72 6D 61 We use the forma
027C90: 74 20 44 44 2F 4D 4D 2F 59 59 20 74 6F 20 65 78 t DD/MM/YY to ex
027CA0: 70 72 65 73 73 20 74 68 65 20 64 61 74 65 2C 20 press the date,
027CB0: 74 68 65 20 61 6D 65 72 69 63 61 6E 73 20 75 73 the americans us
027CC0: 65 20 4D 4D 2F 44 44 2F 59 59 0D 0A 74 6F 20 65 e MM/DD/YY..to e
027CD0: 78 70 72 65 73 73 20 74 68 65 20 64 61 74 65 2E xpress the date.
027CE0: 20 57 68 65 6E 20 79 6F 75 20 77 61 6E 74 20 20 When you want
027CF0: 74 6F 20 63 6F 6D 70 61 72 65 20 64 61 74 65 73 to compare dates
027D00: 6E 65 20 61 6E 64 0D 0A 6C 6F 61 64 65 64 20 77 ne and..loaded w
027D10: 69 74 68 20 70 61 70 65 72 2E 20 54 68 65 6E 20 ith paper. Then
027D20: 74 79 70 65 20 69 6E 20 74 68 65 20 66 6F 6C 6C type in the foll
027D30: 6F 77 69 6E 67 20 63 6F 6D 6D 61 6E 64 73 2E 0D owing commands..
027D40: 0A 0D 0A 20 56 44 45 20 50 52 49 4E 54 2E 44 4F ... VDE PRINT.DO
027D50: 43 0D 0A 0D 0A 27 54 68 69 73 20 6C 6F 61 64 73 C....'This loads
027D60: 20 56 44 45 20 61 6E 64 20 74 68 65 20 70 72 69 VDE and the pri
027D70: 6E 74 20 66 69 6C 65 2C 20 77 68 65 6E 20 56 44 nt file, when VD
027D80: 45 20 68 61 73 20 6C 6F 61 64 65 64 20 74 79 70 E has loaded typ
027D90: 65 2C 27 0D 0A 0D 0A 20 43 54 52 4C 20 4F 20 20 e,'.... CTRL O
027DA0: 50 0D 0A 0D 0A 27 43 54 52 4C 20 4F 20 66 6F 6C P....'CTRL O fol
027DB0: 6C 6F 77 65 64 20 62 79 20 50 2C 20 73 77 69 74 lowed by P, swit
027DC0: 63 68 65 73 20 6F 66 66 20 56 44 45 20 70 61 67 ches off VDE pag
027DD0: 69 6E 61 74 69 6F 6E 20 6D 6F 64 65 2C 20 73 6F ination mode, so
027DE0: 20 66 6F 72 6D 73 20 66 65 65 64 20 65 74 63 0D forms feed etc.
027DF0: 0A 20 61 72 65 20 64 69 73 61 62 6C 65 64 2E 27 . are disabled.'
027E00: 0D 0A 0D 0A 20 45 53 43 20 50 0D 0A 0D 0A 27 45 .... ESC P....'E
027E10: 53 43 20 50 20 69 73 20 74 68 65 20 56 44 45 20 SC P is the VDE
027E20: 20 63 6F 6D 6D 61 6E 64 20 20 66 6F 72 20 20 70 command for p
027E30: 72 69 6E 74 20 20 74 68 65 20 20 66 69 6C 65 2C rint the file,
027E40: 20 20 79 6F 75 20 20 77 69 6C 6C 20 62 65 20 61 you will be a
027E50: 73 6B 65 64 20 66 6F 72 0D 0A 20 4F 50 54 49 4F sked for.. OPTIO
027E60: 4E 53 2C 27 0D 0A 0D 0A 20 70 72 65 73 73 20 52 NS,'.... press R
027E70: 45 54 55 52 4E 0D 0A 0D 0A 27 52 65 74 75 72 6E ETURN....'Return
027E80: 20 69 6E 64 69 63 61 74 65 73 20 6E 6F 20 6F 70 indicates no op
027E90: 74 69 6F 6E 73 20 73 65 6C 65 63 74 65 64 2C 20 tions selected,
027EA0: 73 6F 20 20 74 68 65 20 20 66 69 6C 65 20 20 69 so the file i
027EB0: 73 20 70 72 69 6E 74 65 64 20 6F 75 74 20 61 73 s printed out as
027EC0: 20 69 74 0D 0A 20 73 74 61 6E 64 73 2E 27 0D 0A it.. stands.'..
027ED0: 0D 0A 54 68 65 20 66 69 6C 65 20 77 69 6C 6C 20 ..The file will
027EE0: 6E 6F 77 20 62 65 20 70 72 69 6E 74 65 64 20 6F now be printed o
027EF0: 75 74 2E 20 59 6F 75 20 20 63 61 6E 20 69 67 6E ut. You can ign
027F00: 20 77 69 74 68 69 6E 20 61 20 70 72 6F 67 72 61 within a progra
027F10: 6D 20 74 68 65 6E 0D 0A 79 6F 75 20 61 72 65 20 m then..you are
027F20: 62 65 74 74 65 72 20 6F 66 66 20 75 73 69 6E 67 better off using
027F30: 20 59 59 2F 4D 4D 2F 44 44 2C 20 20 62 65 63 61 YY/MM/DD, beca
027F40: 75 73 65 20 20 69 66 20 79 6F 75 20 77 61 6E 74 use if you want
027F50: 20 74 77 6F 20 63 6F 6D 70 61 72 65 20 64 61 74 two compare dat
027F60: 65 73 0D 0A 74 6F 20 66 69 6E 64 20 74 68 65 20 es..to find the
027F70: 65 61 72 6C 69 65 72 20 6F 66 20 20 74 68 65 20 earlier of the
027F80: 20 64 61 74 65 73 2C 20 20 74 68 65 6E 20 20 79 dates, then y
027F90: 6F 75 20 20 63 61 6E 20 63 6F 6D 70 61 72 65 20 ou can compare
027FA0: 74 68 65 20 74 77 6F 20 73 74 72 69 6E 67 0D 0A the two string..
027FB0: 69 64 65 6E 74 69 66 69 65 72 73 20 69 6E 20 77 identifiers in w
027FC0: 68 69 63 68 20 74 68 65 20 64 61 74 65 73 20 61 hich the dates a
027FD0: 72 65 20 68 65 6C 64 2E 20 20 43 6F 6D 70 61 72 re held. Compar
027FE0: 69 73 6F 6E 20 6F 66 20 73 74 72 69 6E 67 73 20 ison of strings
027FF0: 69 73 20 64 6F 6E 65 20 62 79 0D 0A 63 6F 6D 70 is done by..comp
028000: 61 72 69 6E 67 20 74 68 65 20 61 73 63 69 69 20 aring the ascii
028010: 63 6F 64 65 73 20 6F 66 20 74 68 65 20 73 74 72 codes of the str
028020: 69 6E 67 73 20 6F 6E 65 20 62 79 74 65 20 61 74 ings one byte at
028030: 20 61 20 74 69 6D 65 2C 20 74 68 65 72 65 66 6F a time, therefo
028040: 72 65 20 74 68 65 0D 0A 65 61 72 6C 69 65 72 20 re the..earlier
028050: 64 61 74 65 20 77 69 6C 6C 20 61 6C 77 61 79 73 date will always
028060: 20 63 6F 6E 73 69 73 74 20 6F 66 20 6C 6F 77 65 consist of lowe
028070: 72 20 61 73 63 69 69 20 63 6F 64 65 20 76 61 6C r ascii code val
028080: 75 65 73 2E 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 ues.....Clive Be
028090: 6C 6C 61 62 79 2C 20 31 32 20 54 72 61 66 61 6C llaby, 12 Trafal
0280A0: 67 61 72 20 54 65 72 72 61 63 65 2C 20 4C 6F 6E gar Terrace, Lon
0280B0: 67 20 45 61 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 g Eaton, Notting
0280C0: 68 61 6D 2C 20 4E 47 31 30 20 31 47 50 0D 0A 0D ham, NG10 1GP...
0280D0: 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 53 45 52 ...** END OF SER
0280E0: 49 45 53 2E 50 54 34 20 2A 2A 0D 0A 1A 0A 20 20 IES.PT4 **....
0280F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028100: 6F 72 65 20 74 68 65 20 43 54 52 4C 20 4F 20 50 ore the CTRL O P
028110: 20 63 6F 6D 6D 61 6E 64 20 61 6E 64 0D 0A 75 73 command and..us
028120: 65 20 79 6F 75 20 77 6F 72 64 20 70 72 6F 63 65 e you word proce
028130: 73 73 6F 72 20 74 6F 20 20 65 64 69 74 20 20 74 ssor to edit t
028140: 68 65 20 20 74 65 78 74 20 20 66 69 6C 65 20 74 he text file t
028150: 6F 20 69 6E 63 6C 75 64 65 20 70 72 69 6E 74 20 o include print
028160: 63 6F 6D 6D 61 6E 64 73 0D 0A 73 75 63 68 20 61 commands..such a
028170: 73 20 70 61 67 65 20 6C 65 6E 67 74 68 2C 20 62 s page length, b
028180: 6F 6C 64 2C 20 74 79 70 65 20 66 61 63 65 20 20 old, type face
028190: 65 74 63 2E 20 54 68 61 74 27 73 20 65 6E 6F 75 etc. That's enou
0281A0: 67 68 20 6F 6E 20 66 69 6C 65 20 68 61 6E 64 6C gh on file handl
0281B0: 69 6E 67 2C 0D 0A 6E 6F 77 20 6F 6E 20 77 69 74 ing,..now on wit
0281C0: 68 20 73 6F 6D 65 20 6D 6F 72 65 20 63 6F 6D 6D h some more comm
0281D0: 61 6E 64 73 2E 0D 0A 0D 0A 0D 0A 4E 55 4D 45 52 ands.......NUMER
0281E0: 49 43 20 4F 52 20 4E 4F 54 20 4E 55 4D 45 52 49 IC OR NOT NUMERI
0281F0: 43 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D C...============
028200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 ===========....I
028210: 66 20 79 6F 75 20 65 6E 74 65 72 20 61 6C 70 68 f you enter alph
028220: 61 62 65 74 69 63 20 64 61 74 61 20 69 6E 74 6F abetic data into
028230: 20 20 61 20 20 6E 75 6D 65 72 69 63 20 69 64 65 a numeric ide
028240: 6E 74 69 66 69 65 72 20 74 68 65 6E 20 79 6F 75 ntifier then you
028250: 72 20 70 72 6F 67 72 61 6D 0D 0A 77 69 6C 6C 20 r program..will
028260: 63 72 61 73 68 20 3C 3C 62 61 6E 67 21 3E 3E 2E crash <<bang!>>.
028270: 20 54 6F 20 67 65 74 20 72 6F 75 6E 64 20 74 68 To get round th
028280: 69 73 20 70 72 6F 62 6C 65 6D 20 61 6C 6C 20 64 is problem all d
028290: 61 74 61 20 73 68 6F 75 6C 64 20 62 65 20 65 6E ata should be en
0282A0: 74 65 72 65 64 0D 0A 69 6E 74 6F 20 73 74 72 69 tered..into stri
0282B0: 6E 67 20 69 64 65 6E 74 69 66 69 65 72 73 2C 20 ng identifiers,
0282C0: 74 65 73 74 65 64 20 74 6F 20 63 68 65 63 6B 20 tested to check
0282D0: 74 68 61 74 20 69 74 20 69 73 20 6E 75 6D 65 72 that it is numer
0282E0: 69 63 20 61 6E 64 20 74 68 65 6E 20 6D 6F 76 65 ic and then move
0282F0: 64 0D 0A 74 6F 20 61 20 6E 75 6D 65 72 69 63 20 d..to a numeric
028300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0283F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0284F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028500: 66 69 65 6C 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 field.......PROG
028510: 52 41 4D 20 53 45 56 45 4E 54 45 45 4E 2E 0D 0A RAM SEVENTEEN...
028520: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
028530: 3D 3D 0D 0A 0D 0A 54 68 69 73 20 76 65 72 79 20 ==....This very
028540: 73 68 6F 72 74 20 70 72 6F 67 72 61 6D 20 64 65 short program de
028550: 6D 6F 6E 73 74 72 61 74 65 73 20 74 68 65 20 70 monstrates the p
028560: 72 69 6E 63 69 70 6C 65 20 69 6E 76 6F 6C 76 65 rinciple involve
028570: 64 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 d.....IDENTIFICA
028580: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
028590: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 PROGRAM-ID. Ex
0285A0: 61 6D 70 6C 65 20 53 65 76 65 6E 74 65 65 6E 2E ample Seventeen.
0285B0: 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 ..*..DATA DIVISI
0285C0: 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F ON...WORKING-STO
0285D0: 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 RAGE SECTION...0
0285E0: 31 20 4E 55 4D 42 45 52 2D 45 4E 54 45 52 45 44 1 NUMBER-ENTERED
0285F0: 20 20 20 20 20 50 49 43 20 58 28 34 29 2E 0D 0A PIC X(4)...
028600: 30 31 20 4E 55 4D 42 45 52 20 20 20 20 20 20 20 01 NUMBER
028610: 20 20 20 20 20 20 50 49 43 20 39 28 34 29 2E 0D PIC 9(4)..
028620: 0A 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 .*..PROCEDURE DI
028630: 56 49 53 49 4F 4E 2E 0D 0A 53 54 41 52 54 2E 0D VISION...START..
028640: 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D . DISPLAY ' '..
028650: 0A 20 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 . DISPLAY 'Plea
028660: 73 65 20 45 6E 74 65 72 20 41 20 34 20 44 69 67 se Enter A 4 Dig
028670: 69 74 20 4E 75 6D 62 65 72 27 2E 0D 0A 20 20 44 it Number'... D
028680: 49 53 50 4C 41 59 20 27 50 72 65 73 73 20 43 54 ISPLAY 'Press CT
028690: 52 4C 20 43 20 54 6F 20 41 62 6F 72 74 27 2E 0D RL C To Abort'..
0286A0: 0A 2A 0D 0A 20 20 41 43 43 45 50 54 20 4E 55 4D .*.. ACCEPT NUM
0286B0: 42 45 52 2D 45 4E 54 45 52 45 44 2E 0D 0A 2A 0D BER-ENTERED...*.
0286C0: 0A 20 20 49 46 20 4E 55 4D 42 45 52 2D 45 4E 54 . IF NUMBER-ENT
0286D0: 45 52 45 44 20 4E 4F 54 20 4E 55 4D 45 52 49 43 ERED NOT NUMERIC
0286E0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 49 20 53 .. DISPLAY 'I S
0286F0: 41 49 44 20 41 20 34 20 44 49 47 49 54 20 4E 55 AID A 4 DIGIT NU
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 01 00 02 09 52 E5 22 00 C1 02 00 00 00 02 ".....R.".......
028720: 22 00 C6 02 00 00 00 02 22 00 C2 02 00 00 00 02 ".......".......
028730: 22 00 C7 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028740: 22 00 C8 02 00 00 00 02 22 00 C4 02 00 00 00 02 ".......".......
028750: 22 00 C9 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
028810: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
028820: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
028830: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
028840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028850: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
028860: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
028870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028880: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
028890: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0288A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0288B0: 20 20 20 20 20 50 41 52 54 20 46 49 56 45 20 3A PART FIVE :
0288C0: 20 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 20 46 RANDOM ACCESS F
0288D0: 49 4C 45 53 20 26 20 4F 54 48 45 52 20 42 49 54 ILES & OTHER BIT
0288E0: 53 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 43 54 S......INTRODUCT
0288F0: 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION..===========
028900: 3D 0D 0A 0D 0A 54 68 69 73 20 6D 6F 6E 74 68 20 =....This month
028910: 20 77 65 20 20 70 75 73 68 20 20 74 68 65 20 20 we push the
028920: 63 6F 6E 63 65 70 74 20 20 6F 66 20 20 66 69 6C concept of fil
028930: 65 20 20 68 61 6E 64 6C 69 6E 67 20 20 61 20 20 e handling a
028940: 62 69 74 20 20 66 75 72 74 68 65 72 20 62 79 0D bit further by.
028950: 0A 69 6E 74 72 6F 64 75 63 69 6E 67 20 74 68 65 .introducing the
028960: 20 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 66 Random Access f
028970: 69 6C 65 73 2E 20 53 6F 20 20 77 69 6E 64 20 20 iles. So wind
028980: 75 70 20 74 68 65 20 6F 6C 64 20 6D 61 63 68 69 up the old machi
028990: 6E 65 2C 20 74 79 70 65 20 69 6E 0D 0A 7C 43 50 ne, type in..|CP
0289A0: 4D 20 61 6E 64 20 77 65 27 6C 6C 20 67 65 74 20 M and we'll get
0289B0: 73 74 61 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 49 4E started.......IN
0289C0: 53 54 41 4C 4C 49 4E 47 20 56 44 45 0D 0A 3D 3D STALLING VDE..==
0289D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
0289E0: 4D 61 6E 79 20 6F 66 20 79 6F 75 20 68 61 76 65 Many of you have
0289F0: 20 68 61 64 20 70 72 6F 62 6C 65 6D 73 20 77 68 had problems wh
028A00: 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E 20 OUTPUT SECTION.
028A10: 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 FILE-CONTROL...
028A20: 53 45 4C 45 43 54 20 46 49 4C 45 2D 31 20 41 53 SELECT FILE-1 AS
028A30: 53 49 47 4E 20 44 41 54 41 2D 46 49 4C 45 2D 31 SIGN DATA-FILE-1
028A40: 2E 0D 0A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 .....DATA DIVISI
028A50: 4F 4E 2E 20 46 49 4C 45 20 53 45 43 54 49 4F 4E ON. FILE SECTION
028A60: 2E 0D 0A 20 46 44 20 46 49 4C 45 2D 31 0D 0A 20 ... FD FILE-1..
028A70: 20 30 31 20 52 45 43 4F 52 44 2D 31 2E 0D 0A 20 01 RECORD-1...
028A80: 20 20 30 33 20 4E 41 4D 45 2D 31 20 20 20 20 50 03 NAME-1 P
028A90: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 30 33 IC X(30)... 03
028AA0: 20 4E 41 4D 45 2D 32 20 20 20 20 50 49 43 20 58 NAME-2 PIC X
028AB0: 29 33 30 29 2E 0D 0A 20 20 20 65 74 63 0D 0A 0D )30)... etc...
028AC0: 0A 0D 0A 53 45 51 55 45 4E 54 49 41 4C 20 46 49 ...SEQUENTIAL FI
028AD0: 4C 45 20 2D 20 56 41 52 49 41 42 4C 45 20 4C 45 LE - VARIABLE LE
028AE0: 4E 47 54 48 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NGTH..----------
028AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
028B00: 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 45 4E 56 49 52 -------....ENVIR
028B10: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E ONMENT DIVISION.
028B20: 0D 0A 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F ....CONFIGURATIO
028B30: 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 53 4F 55 N SECTION... SOU
028B40: 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D RCE-COMPUTER. Am
028B50: 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 4F 42 strad 6128... OB
028B60: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
028B70: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D 0A mstrad 6128.....
028B80: 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 INPUT-OUTPUT SEC
028B90: 54 49 4F 4E 2E 20 46 49 4C 45 2D 43 4F 4E 54 52 TION. FILE-CONTR
028BA0: 4F 4C 2E 0D 0A 20 53 45 4C 45 43 54 20 46 49 4C OL... SELECT FIL
028BB0: 45 2D 32 20 41 53 53 49 47 4E 20 44 41 54 41 2D E-2 ASSIGN DATA-
028BC0: 46 49 4C 45 2D 32 2E 0D 0A 0D 0A 44 41 54 41 20 FILE-2.....DATA
028BD0: 44 49 56 49 53 49 4F 4E 2E 20 46 49 4C 45 20 53 DIVISION. FILE S
028BE0: 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 20 46 49 4C ECTION... FD FIL
028BF0: 45 2D 32 0D 0A 20 52 45 43 4F 52 44 20 36 20 54 E-2.. RECORD 6 T
028C00: 65 6E 20 20 69 6E 73 74 61 6C 6C 69 6E 67 20 56 en installing V
028C10: 44 45 20 28 69 6E 63 6C 75 64 69 6E 67 20 4D 20 DE (including M
028C20: 48 61 72 65 2C 20 41 6C 61 6E 0D 0A 54 69 6C 6C Hare, Alan..Till
028C30: 69 6E 67 2C 20 4B 65 76 69 6E 20 43 72 6F 73 73 ing, Kevin Cross
028C40: 2C 20 4E 6F 65 6C 20 44 6F 6E 61 67 68 2C 20 50 , Noel Donagh, P
028C50: 65 74 65 72 20 20 43 61 6D 70 62 65 6C 6C 20 20 eter Campbell
028C60: 26 20 41 6C 61 6E 20 43 6F 6F 70 65 72 29 20 74 & Alan Cooper) t
028C70: 6F 20 6E 61 6D 65 0D 0A 6A 75 73 74 20 61 20 66 o name..just a f
028C80: 65 77 2E 20 49 6E 73 74 61 6C 6C 69 6E 67 20 28 ew. Installing (
028C90: 63 6F 6E 66 69 67 75 72 69 6E 67 29 20 20 61 20 configuring) a
028CA0: 20 70 72 6F 67 72 61 6D 20 20 69 73 20 73 6F 6D program is som
028CB0: 65 74 68 69 6E 67 20 79 6F 75 20 6E 65 65 64 20 ething you need
028CC0: 74 6F 0D 0A 62 65 63 6F 6D 65 20 66 61 6D 69 6C to..become famil
028CD0: 69 61 72 20 77 69 74 68 20 77 68 65 6E 20 75 73 iar with when us
028CE0: 69 6E 67 20 20 43 50 2F 4D 20 20 61 6E 64 20 20 ing CP/M and
028CF0: 6F 74 68 65 72 20 6F 70 65 72 61 74 69 6E 67 20 other operating
028D00: 73 79 73 74 65 6D 73 2E 20 57 41 43 43 49 0D 0A systems. WACCI..
028D10: 6E 6F 77 20 68 61 73 20 61 20 73 74 65 70 20 62 now has a step b
028D20: 79 20 73 74 65 70 20 67 75 69 64 65 20 74 6F 20 y step guide to
028D30: 69 6E 73 74 61 6C 6C 69 6E 67 20 56 44 45 2E 0D installing VDE..
028D40: 0A 0D 0A 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 .....FILE HANDLI
028D50: 4E 47 20 42 41 43 4B 47 52 4F 55 4E 44 0D 0A 3D NG BACKGROUND..=
028D60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
028D70: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 41 6C 6C 20 64 =======....All d
028D80: 61 74 61 20 66 69 6C 65 73 20 6F 70 65 6E 65 64 ata files opened
028D90: 20 75 6E 64 65 72 20 43 50 2F 4D 20 61 72 65 20 under CP/M are
028DA0: 20 6F 70 65 6E 65 64 20 20 6F 6E 20 61 20 72 61 opened on a ra
028DB0: 6E 64 6F 6D 20 61 63 63 65 73 73 20 62 61 73 69 ndom access basi
028DC0: 73 2C 20 69 74 0D 0A 69 73 20 6F 6E 6C 79 20 74 s, it..is only t
028DD0: 68 65 20 64 69 66 66 65 72 65 6E 74 20 6D 65 74 he different met
028DE0: 68 6F 64 73 20 20 6F 66 20 20 63 6F 64 69 6E 67 hods of coding
028DF0: 20 20 75 73 65 64 20 20 62 79 20 43 6F 62 6F 6C used by Cobol
028E00: 4F 20 38 30 2E 0D 0A 20 20 30 31 20 52 45 43 4F O 80... 01 RECO
028E10: 52 44 2D 32 2E 0D 0A 20 20 20 30 33 20 4E 41 4D RD-2... 03 NAM
028E20: 45 2D 31 20 20 20 20 50 49 43 20 58 28 33 30 29 E-1 PIC X(30)
028E30: 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 2D 32 20 ... 03 NAME-2
028E40: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
028E50: 20 20 65 74 63 0D 0A 0D 0A 2A 20 54 68 65 20 52 etc....* The R
028E60: 45 43 4F 52 44 20 63 6F 6D 6D 61 6E 64 20 63 61 ECORD command ca
028E70: 6E 20 62 65 20 66 6F 6C 6C 6F 77 65 64 20 62 79 n be followed by
028E80: 20 61 6E 79 20 74 77 6F 20 76 61 6C 75 65 73 2C any two values,
028E90: 20 74 68 65 20 76 61 6C 75 65 73 20 75 73 65 64 the values used
028EA0: 0D 0A 2A 20 61 72 65 20 6E 6F 74 20 69 6D 70 6F ..* are not impo
028EB0: 72 74 61 6E 74 2C 20 70 72 6F 76 69 64 65 64 20 rtant, provided
028EC0: 74 77 6F 20 76 61 6C 75 65 73 20 61 72 65 20 69 two values are i
028ED0: 6E 63 6C 75 64 65 64 20 74 68 65 20 72 65 63 6F ncluded the reco
028EE0: 72 64 20 77 69 6C 6C 0D 0A 2A 20 62 65 20 74 72 rd will..* be tr
028EF0: 65 61 74 65 64 20 61 73 20 76 61 72 69 61 62 6C eated as variabl
028F00: 65 20 6C 65 6E 67 74 68 2E 0D 0A 0D 0A 0D 0A 52 e length.......R
028F10: 41 4E 44 4F 4D 20 41 43 43 45 53 53 20 46 49 4C ANDOM ACCESS FIL
028F20: 45 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D E..-------------
028F30: 2D 2D 2D 2D 2D 0D 0A 0D 0A 45 4E 56 49 52 4F 4E -----....ENVIRON
028F40: 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A MENT DIVISION...
028F50: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
028F60: 53 45 43 54 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 SECTION... SOURC
028F70: 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 E-COMPUTER. Amst
028F80: 72 61 64 20 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 rad 6128... OBJE
028F90: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
028FA0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E trad 6128.....IN
028FB0: 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 49 PUT-OUTPUT SECTI
028FC0: 4F 4E 2E 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C ON. FILE-CONTROL
028FD0: 2E 20 53 45 4C 45 43 54 20 46 49 4C 45 2D 33 20 . SELECT FILE-3
028FE0: 41 53 53 49 47 4E 20 44 41 54 41 2D 46 49 4C 45 ASSIGN DATA-FILE
028FF0: 2D 33 0D 0A 20 4F 52 47 41 4E 49 5A 41 54 49 4F -3.. ORGANIZATIO
029000: 20 77 68 69 63 68 20 64 65 74 65 72 6D 69 6E 65 which determine
029010: 73 0D 0A 77 68 65 74 68 65 72 20 74 68 65 20 66 s..whether the f
029020: 69 6C 65 20 69 73 20 73 65 71 75 65 6E 74 69 61 ile is sequentia
029030: 6C 20 6F 72 20 72 61 6E 64 6F 6D 20 61 63 63 65 l or random acce
029040: 73 73 2E 0D 0A 0D 0A 53 65 71 75 65 6E 74 69 61 ss.....Sequentia
029050: 6C 20 66 69 6C 65 73 20 61 72 65 20 72 65 61 64 l files are read
029060: 20 20 6F 6E 65 20 20 72 65 63 6F 72 64 20 20 61 one record a
029070: 74 20 20 61 20 20 74 69 6D 65 20 20 69 6E 74 6F t a time into
029080: 20 74 68 65 20 66 69 6C 65 20 62 75 66 66 65 72 the file buffer
029090: 2C 0D 0A 73 74 61 72 74 69 6E 67 20 61 74 20 74 ,..starting at t
0290A0: 68 65 20 66 69 72 73 74 20 72 65 63 6F 72 64 20 he first record
0290B0: 61 6E 64 20 66 69 6E 69 73 68 69 6E 67 20 20 61 and finishing a
0290C0: 74 20 74 68 65 20 6C 61 73 74 20 72 65 63 6F 72 t the last recor
0290D0: 64 20 68 65 6C 64 20 69 6E 20 74 68 65 0D 0A 66 d held in the..f
0290E0: 69 6C 65 2E 20 53 65 71 75 65 6E 74 69 61 6C 20 ile. Sequential
0290F0: 66 69 6C 65 73 20 20 68 61 76 65 20 20 74 77 6F files have two
029100: 20 20 61 64 76 61 6E 74 61 67 65 73 20 20 6F 76 advantages ov
029110: 65 72 20 20 72 61 6E 64 6F 6D 20 20 61 63 63 65 er random acce
029120: 73 73 20 66 69 6C 65 73 2C 0D 0A 73 65 71 75 65 ss files,..seque
029130: 6E 74 69 61 6C 20 66 69 6C 65 73 20 63 61 6E 20 ntial files can
029140: 20 62 65 20 20 76 61 72 69 61 62 6C 65 20 20 6C be variable l
029150: 65 6E 67 74 68 20 20 28 73 61 76 69 6E 67 20 20 ength (saving
029160: 64 69 73 63 20 20 73 70 61 63 65 29 20 20 61 6E disc space) an
029170: 64 20 61 72 65 0D 0A 71 75 69 63 6B 65 72 20 74 d are..quicker t
029180: 6F 20 61 63 63 65 73 73 20 28 72 65 61 64 29 2E o access (read).
029190: 0D 0A 0D 0A 52 61 6E 64 6F 6D 20 61 63 63 65 73 ....Random acces
0291A0: 73 20 66 69 6C 65 73 20 61 72 65 20 72 65 61 64 s files are read
0291B0: 20 69 6E 74 6F 20 20 66 69 6C 65 20 20 62 75 66 into file buf
0291C0: 66 65 72 20 20 6F 6E 65 20 72 65 63 6F 72 64 20 fer one record
0291D0: 61 74 20 61 20 74 69 6D 65 2C 20 62 75 74 0D 0A at a time, but..
0291E0: 79 6F 75 20 68 61 76 65 20 74 68 65 20 66 61 63 you have the fac
0291F0: 69 6C 69 74 79 20 74 6F 20 73 65 6C 65 63 74 20 ility to select
029200: 4E 20 52 45 4C 41 54 49 56 45 0D 0A 20 41 43 43 N RELATIVE.. ACC
029210: 45 53 53 20 52 41 4E 44 4F 4D 20 52 45 4C 41 54 ESS RANDOM RELAT
029220: 49 56 45 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 IVE RECORD-NUMBE
029230: 52 2E 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F R...DATA DIVISIO
029240: 4E 2E 20 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E N. FILE SECTION.
029250: 0D 0A 20 46 44 20 46 49 4C 45 2D 33 2E 0D 0A 20 .. FD FILE-3...
029260: 20 30 31 20 52 45 43 4F 52 44 2D 33 2E 0D 0A 20 01 RECORD-3...
029270: 20 20 30 33 20 4E 41 4D 45 2D 33 20 20 20 20 50 03 NAME-3 P
029280: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 30 33 IC X(30)... 03
029290: 20 65 74 63 0D 0A 0D 0A 2A 20 57 68 65 6E 20 72 etc....* When r
0292A0: 61 6E 64 6F 6D 20 61 63 63 65 73 73 20 66 69 6C andom access fil
0292B0: 65 73 20 61 72 65 20 75 73 65 64 20 74 68 65 20 es are used the
0292C0: 52 45 43 4F 52 44 20 4B 45 59 20 6D 75 73 74 20 RECORD KEY must
0292D0: 62 65 20 64 65 63 6C 61 72 65 64 20 69 6E 20 74 be declared in t
0292E0: 68 65 0D 0A 2A 20 57 4F 52 4B 49 4E 47 2D 53 54 he..* WORKING-ST
0292F0: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2C 20 69 ORAGE SECTION, i
029300: 6E 20 74 68 69 73 20 65 78 61 6D 70 6C 65 20 74 n this example t
029310: 68 65 20 52 45 43 4F 52 44 20 4B 45 59 20 69 6E he RECORD KEY in
029320: 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 0D 0A RECORD-NUMBER..
029330: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
029340: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 2A 20 E SECTION.....*
029350: 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 46 69 Random Access Fi
029360: 6C 65 20 2D 20 52 65 63 6F 72 64 20 4B 65 79 20 le - Record Key
029370: 74 68 65 20 72 65 63 6F 72 64 20 6B 65 79 20 6D the record key m
029380: 75 73 74 20 62 65 20 61 20 6E 75 6D 65 72 69 63 ust be a numeric
029390: 0D 0A 0D 0A 30 31 20 52 45 43 4F 52 44 2D 4E 55 ....01 RECORD-NU
0293A0: 4D 42 45 52 20 50 49 43 20 39 39 2E 0D 0A 0D 0A MBER PIC 99.....
0293B0: 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 0D ..FILE HANDLING.
0293C0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
0293D0: 0D 0A 41 66 74 65 72 20 79 6F 75 20 68 61 76 65 ..After you have
0293E0: 20 64 65 63 6C 61 72 65 64 20 79 6F 75 72 20 66 declared your f
0293F0: 69 6C 65 20 74 79 70 65 28 73 29 20 79 6F 75 20 ile type(s) you
029400: 77 68 69 63 68 20 20 72 65 63 6F 72 64 20 69 73 which record is
029410: 20 72 65 61 64 2C 20 74 68 69 73 20 69 73 20 61 read, this is a
029420: 63 68 69 65 76 65 64 20 62 79 0D 0A 75 73 69 6E chieved by..usin
029430: 67 20 61 20 72 65 63 6F 72 64 20 6B 65 79 2C 20 g a record key,
029440: 77 68 65 6E 20 79 6F 75 20 6D 6F 76 65 20 61 20 when you move a
029450: 76 61 6C 75 65 20 69 6E 74 6F 20 74 68 65 20 72 value into the r
029460: 65 63 6F 72 64 20 6B 65 79 2C 20 74 68 65 20 70 ecord key, the p
029470: 72 6F 67 72 61 6D 0D 0A 63 61 6C 63 75 6C 61 74 rogram..calculat
029480: 65 73 20 68 6F 77 20 66 61 72 20 69 6E 74 6F 20 es how far into
029490: 74 68 65 20 66 69 6C 65 20 20 74 68 65 20 20 72 the file the r
0294A0: 65 63 6F 72 64 20 20 79 6F 75 20 77 61 6E 74 20 ecord you want
0294B0: 69 73 2C 20 61 6E 64 20 74 68 65 6E 20 72 65 61 is, and then rea
0294C0: 64 73 0D 0A 74 68 65 20 74 72 61 63 6B 20 26 20 ds..the track &
0294D0: 73 65 63 74 6F 72 20 74 68 61 74 20 63 6F 6E 74 sector that cont
0294E0: 61 69 6E 73 20 74 68 65 20 72 65 63 6F 72 64 20 ains the record
0294F0: 79 6F 75 20 77 61 6E 74 2E 0D 0A 0D 0A 54 68 65 you want.....The
029500: 20 6D 61 69 6E 20 61 64 76 61 6E 74 61 67 65 20 main advantage
029510: 6F 66 20 72 61 6E 64 6F 6D 20 61 63 63 65 73 73 of random access
029520: 20 66 69 6C 65 73 20 20 69 73 20 20 74 68 61 74 files is that
029530: 20 79 6F 75 20 63 61 6E 20 72 65 61 64 20 61 6E you can read an
029540: 64 20 77 72 69 74 65 0D 0A 72 65 63 6F 72 64 73 d write..records
029550: 20 69 6E 20 61 6E 79 20 6F 72 64 65 72 2E 20 43 in any order. C
029560: 50 2F 4D 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 P/M allows you t
029570: 6F 20 20 68 61 76 65 20 75 70 74 6F 20 6E 69 6E o have upto nin
029580: 65 20 66 69 6C 65 73 20 6F 70 65 6E 20 61 74 20 e files open at
029590: 61 6E 79 0D 0A 70 6F 69 6E 74 20 69 6E 20 74 69 any..point in ti
0295A0: 6D 65 2C 20 74 68 65 20 6D 6F 73 74 20 20 49 20 me, the most I
0295B0: 20 68 61 76 65 20 20 75 73 65 64 20 20 69 73 20 have used is
0295C0: 20 74 68 72 65 65 20 20 73 6F 20 20 69 66 20 79 three so if y
0295D0: 6F 75 20 75 73 65 20 6D 6F 72 65 20 61 6E 64 0D ou use more and.
0295E0: 0A 65 6E 63 6F 75 6E 74 65 72 20 65 72 72 6F 72 .encounter error
0295F0: 73 20 64 6F 6E 27 74 20 62 6C 61 6D 65 20 20 6D s don't blame m
029600: 20 6E 65 65 64 20 74 6F 20 62 65 20 61 62 6C 65 need to be able
029610: 20 74 6F 20 72 65 61 64 20 61 6E 64 0D 0A 77 72 to read and..wr
029620: 69 74 65 20 64 61 74 61 20 74 6F 20 74 68 65 20 ite data to the
029630: 66 69 6C 65 73 2E 0D 0A 0D 0A 53 65 71 75 65 6E files.....Sequen
029640: 74 69 61 6C 20 66 69 6C 65 73 20 28 66 69 78 65 tial files (fixe
029650: 64 20 20 26 20 20 76 61 72 69 61 62 6C 65 29 20 d & variable)
029660: 20 75 73 65 20 20 64 69 66 66 65 72 65 6E 74 20 use different
029670: 20 63 6F 6D 6D 61 6E 64 73 20 20 74 6F 20 52 61 commands to Ra
029680: 6E 64 6F 6D 0D 0A 41 63 63 65 73 73 20 66 69 6C ndom..Access fil
029690: 65 73 2E 0D 0A 0D 0A 0D 0A 53 45 51 55 45 4E 54 es.......SEQUENT
0296A0: 49 41 4C 20 46 49 4C 45 20 48 41 4E 44 4C 49 4E IAL FILE HANDLIN
0296B0: 47 20 43 4F 4D 4D 41 4E 44 53 0D 0A 2D 2D 2D 2D G COMMANDS..----
0296C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0296D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
0296E0: 0A 4F 50 45 4E 20 49 4E 50 55 54 20 46 49 4C 45 .OPEN INPUT FILE
0296F0: 2D 31 2E 0D 0A 0D 0A 4F 50 45 4E 20 4F 55 54 50 -1.....OPEN OUTP
029700: 55 54 20 46 49 4C 45 2D 31 2E 0D 0A 0D 0A 43 4C UT FILE-1.....CL
029710: 4F 53 45 20 46 49 4C 45 2D 31 2E 0D 0A 0D 0A 52 OSE FILE-1.....R
029720: 45 41 44 20 46 49 4C 45 2D 31 20 45 4E 44 20 2E EAD FILE-1 END .
029730: 2E 2E 2E 2E 2E 0D 0A 0D 0A 28 72 65 61 64 20 74 .........(read t
029740: 68 65 20 66 69 6C 65 2C 20 77 68 65 6E 20 74 68 he file, when th
029750: 65 20 65 6E 64 20 6F 66 20 74 68 65 20 66 69 6C e end of the fil
029760: 65 20 69 73 20 72 65 61 63 68 65 64 20 74 68 65 e is reached the
029770: 6E 20 64 6F 20 73 6F 6D 65 74 68 69 6E 67 29 0D n do something).
029780: 0A 0D 0A 52 45 41 44 20 46 49 4C 45 2D 31 20 49 ...READ FILE-1 I
029790: 4E 56 41 4C 49 44 20 2E 2E 2E 2E 2E 2E 0D 0A 0D NVALID .........
0297A0: 0A 28 72 65 61 64 20 74 68 65 20 66 69 6C 65 2C .(read the file,
0297B0: 20 77 68 65 6E 20 74 68 65 20 65 6E 64 20 6F 66 when the end of
0297C0: 20 20 74 68 65 20 20 66 69 6C 65 20 20 69 73 20 the file is
0297D0: 72 65 61 63 68 65 64 2C 20 6F 72 20 61 20 72 65 reached, or a re
0297E0: 61 64 20 65 72 72 6F 72 20 69 73 0D 0A 20 65 6E ad error is.. en
0297F0: 63 6F 75 6E 74 65 72 65 64 20 74 68 65 6E 20 64 countered then d
029800: 65 2E 20 20 4C 65 74 20 20 6D 65 20 20 6E 6F 77 e. Let me now
029810: 20 20 73 75 6D 6D 61 72 69 73 65 20 20 74 68 65 summarise the
029820: 20 66 69 6C 65 20 74 79 70 65 73 0D 0A 61 76 61 file types..ava
029830: 69 6C 61 62 6C 65 2C 20 74 68 65 79 20 61 72 65 ilable, they are
029840: 2C 20 53 65 71 75 65 6E 74 69 61 6C 20 66 69 6C , Sequential fil
029850: 65 73 20 28 66 69 78 65 64 20 6C 65 6E 67 74 68 es (fixed length
029860: 29 2C 20 53 65 71 75 65 6E 74 69 61 6C 20 28 76 ), Sequential (v
029870: 61 72 69 61 62 6C 65 0D 0A 6C 65 6E 67 74 68 29 ariable..length)
029880: 20 61 6E 64 20 52 61 6E 64 6F 6D 20 41 63 63 65 and Random Acce
029890: 73 73 20 66 69 6C 65 73 20 28 66 69 78 65 64 20 ss files (fixed
0298A0: 6C 65 6E 67 74 68 29 2E 0D 0A 0D 0A 44 45 43 4C length).....DECL
0298B0: 41 52 49 4E 47 20 59 4F 55 52 20 46 49 4C 45 28 ARING YOUR FILE(
0298C0: 53 29 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D S)..============
0298D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 ==========....Th
0298E0: 65 20 66 69 6C 65 20 74 79 70 65 20 69 73 20 73 e file type is s
0298F0: 70 65 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 pecified in the
029900: 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 26 20 44 ENVIRONMENT & D
029910: 41 54 41 20 44 49 56 49 53 49 4F 4E 53 2C 20 75 ATA DIVISIONS, u
029920: 73 69 6E 67 20 74 68 65 0D 0A 66 6F 6C 6C 6F 77 sing the..follow
029930: 69 6E 67 20 63 6F 6D 6D 61 6E 64 73 2E 0D 0A 0D ing commands....
029940: 0A 0D 0A 53 45 51 55 45 4E 54 49 41 4C 20 46 49 ...SEQUENTIAL FI
029950: 4C 45 20 2D 20 46 49 58 45 44 20 4C 45 4E 47 54 LE - FIXED LENGT
029960: 48 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D H..-------------
029970: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029980: 2D 0D 0A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 -....ENVIRONMENT
029990: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 43 4F DIVISION.....CO
0299A0: 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 54 NFIGURATION SECT
0299B0: 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 45 2D 43 4F ION... SOURCE-CO
0299C0: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
0299D0: 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 43 54 2D 43 6128... OBJECT-C
0299E0: 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 OMPUTER. Amstrad
0299F0: 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 6128.....INPUT-
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 01 00 02 09 52 E5 23 00 C1 02 00 00 00 02 #.....R.#.......
029A20: 23 00 C6 02 00 00 00 02 23 00 C2 02 00 00 00 02 #.......#.......
029A30: 23 00 C7 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A40: 23 00 C8 02 00 00 00 02 23 00 C4 02 00 00 00 02 #.......#.......
029A50: 23 00 C9 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 6F 20 73 6F 6D 65 74 68 69 6E 67 29 0D 0A 0D 0A o something)....
029B10: 57 52 49 54 45 20 52 45 43 4F 52 44 2D 31 0D 0A WRITE RECORD-1..
029B20: 0D 0A 57 52 49 54 45 20 52 45 43 4F 52 44 2D 31 ..WRITE RECORD-1
029B30: 20 49 4E 56 41 4C 49 44 20 2E 2E 2E 2E 2E 2E 0D INVALID .......
029B40: 0A 0D 0A 28 77 72 69 74 65 20 74 68 65 20 72 65 ...(write the re
029B50: 63 6F 72 64 20 74 6F 20 64 69 73 63 2C 20 61 6E cord to disc, an
029B60: 64 20 69 66 20 61 6E 20 65 72 72 6F 72 20 6F 63 d if an error oc
029B70: 63 75 72 73 20 74 68 65 6E 20 64 6F 20 73 6F 6D curs then do som
029B80: 65 74 68 69 6E 67 29 0D 0A 0D 0A 4E 6F 74 65 73 ething)....Notes
029B90: 3A 20 54 68 65 72 65 20 61 72 65 20 73 6F 6D 65 : There are some
029BA0: 20 72 65 73 74 72 69 63 74 69 6F 6E 73 20 6F 6E restrictions on
029BB0: 20 74 68 65 20 75 73 65 20 6F 66 20 74 68 65 20 the use of the
029BC0: 66 69 6C 65 73 20 3A 0D 0A 0D 0A 31 2E 20 46 69 files :....1. Fi
029BD0: 6C 65 73 20 77 68 69 63 68 20 68 61 76 65 20 62 les which have b
029BE0: 65 65 6E 20 6F 70 65 6E 65 64 20 61 73 20 69 6E een opened as in
029BF0: 70 75 74 20 63 61 6E 20 6F 6E 6C 79 20 62 65 20 put can only be
029C00: 72 65 61 64 20 66 72 6F 6D 2E 0D 0A 0D 0A 32 2E read from.....2.
029C10: 20 46 69 6C 65 73 20 6F 70 65 6E 65 64 20 61 73 Files opened as
029C20: 20 6F 75 74 70 75 74 20 63 61 6E 20 6F 6E 6C 79 output can only
029C30: 20 62 65 20 77 72 69 74 74 65 6E 20 74 6F 2E 0D be written to..
029C40: 0A 0D 0A 49 66 20 79 6F 75 20 77 72 69 74 65 20 ...If you write
029C50: 74 6F 20 61 20 66 69 6C 65 20 77 68 69 63 68 20 to a file which
029C60: 68 61 73 20 20 62 65 65 6E 20 20 6F 70 65 6E 65 has been opene
029C70: 64 20 61 73 20 69 6E 70 75 74 20 74 68 65 6E 20 d as input then
029C80: 61 20 66 61 74 61 6C 20 65 72 72 6F 72 0D 0A 77 a fatal error..w
029C90: 69 6C 6C 20 6F 63 63 75 72 20 61 6E 64 20 79 6F ill occur and yo
029CA0: 75 72 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 ur program will
029CB0: 20 63 72 61 73 68 2C 20 20 73 6F 20 20 74 61 6B crash, so tak
029CC0: 65 20 63 61 72 65 2E 20 54 68 65 20 50 44 20 76 e care. The PD v
029CD0: 65 72 73 69 6F 6E 20 6F 66 0D 0A 43 6F 62 6F 6C ersion of..Cobol
029CE0: 20 77 69 6C 6C 20 6F 6E 6C 79 20 61 6C 6C 6F 77 will only allow
029CF0: 20 79 6F 75 20 74 6F 20 6F 70 65 6E 20 61 20 66 you to open a f
029D00: 29 0D 0A 34 30 20 4E 45 58 54 20 69 0D 0A 35 30 )..40 NEXT i..50
029D10: 20 43 4C 4F 53 45 4F 55 54 0D 0A 0D 0A 54 68 69 CLOSEOUT....Thi
029D20: 73 20 73 68 6F 77 73 20 74 68 65 20 76 65 72 73 s shows the vers
029D30: 61 74 69 6C 69 74 79 20 6F 66 20 74 68 65 20 41 atility of the A
029D40: 6D 73 74 72 61 64 20 20 43 50 43 27 73 20 77 68 mstrad CPC's wh
029D50: 69 63 68 20 61 6C 6C 6F 77 20 79 6F 75 20 6D 6F ich allow you mo
029D60: 72 65 20 74 68 61 6E 0D 0A 6F 6E 65 20 77 61 79 re than..one way
029D70: 20 6F 66 20 61 63 68 69 65 76 69 6E 67 20 74 68 of achieving th
029D80: 65 20 73 61 6D 65 20 20 72 65 73 75 6C 74 2E 20 e same result.
029D90: 20 54 68 65 20 70 72 6F 62 6C 65 6D 73 20 63 61 The problems ca
029DA0: 75 73 65 64 20 62 79 20 75 73 69 6E 67 20 42 61 used by using Ba
029DB0: 73 69 63 0D 0A 61 72 65 20 79 6F 75 20 6E 65 65 sic..are you nee
029DC0: 64 20 74 6F 20 64 72 6F 70 20 6F 75 74 20 6F 66 d to drop out of
029DD0: 20 20 43 50 2F 4D 2C 20 20 61 6E 64 20 20 74 68 CP/M, and th
029DE0: 65 20 20 6D 65 74 68 6F 64 20 63 61 6E 6E 6F 74 e method cannot
029DF0: 20 62 65 20 75 73 65 64 20 69 6E 20 74 68 65 0D be used in the.
029E00: 0A 6D 69 64 64 6C 65 20 6F 66 20 61 20 6C 61 72 .middle of a lar
029E10: 67 65 20 70 72 6F 67 72 61 6D 20 61 73 20 69 74 ge program as it
029E20: 20 77 6F 75 6C 64 20 72 65 61 6C 6C 79 20 63 6F would really co
029E30: 6E 66 75 73 65 20 74 68 65 20 75 73 65 72 2E 0D nfuse the user..
029E40: 0A 0D 0A 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 ...RANDOM ACCESS
029E50: 20 46 49 4C 45 53 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILES..========
029E60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 4E 6F 77 ===========..Now
029E70: 20 74 6F 20 74 65 73 74 20 74 68 65 20 52 61 6E to test the Ran
029E80: 64 6F 6D 20 41 63 63 65 73 73 20 66 69 6C 65 73 dom Access files
029E90: 20 20 77 65 20 20 61 72 65 20 62 61 63 6B 20 74 we are back t
029EA0: 6F 20 74 68 65 20 74 72 69 65 64 20 61 6E 64 20 o the tried and
029EB0: 74 72 75 73 74 65 64 0D 0A 6D 65 74 68 6F 64 20 trusted..method
029EC0: 6F 66 20 77 72 69 74 69 6E 67 20 73 68 6F 72 74 of writing short
029ED0: 20 65 78 61 6D 70 6C 65 20 20 70 72 6F 67 72 61 example progra
029EE0: 6D 73 20 77 68 69 63 68 20 64 65 6D 6F 6E 73 74 ms which demonst
029EF0: 72 61 74 65 20 74 68 65 20 70 72 69 6E 63 69 70 rate the princip
029F00: 69 6C 65 20 6F 6E 63 65 20 69 6E 20 61 20 70 72 ile once in a pr
029F10: 6F 67 72 61 6D 2C 20 73 6F 20 69 66 20 79 6F 75 ogram, so if you
029F20: 20 6F 70 65 6E 0D 0A 61 20 66 69 6C 65 20 61 73 open..a file as
029F30: 20 69 6E 70 75 74 2C 20 79 6F 75 20 63 61 6E 6E input, you cann
029F40: 6F 74 20 63 6C 6F 73 65 20 74 68 65 20 66 69 6C ot close the fil
029F50: 65 20 61 6E 64 20 74 68 65 6E 20 6F 70 65 6E 20 e and then open
029F60: 69 74 20 61 73 20 6F 75 74 70 75 74 2E 0D 0A 0D it as output....
029F70: 0A 0D 0A 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 ...RANDOM ACCESS
029F80: 20 46 49 4C 45 20 43 4F 4D 4D 41 4E 44 53 0D 0A FILE COMMANDS..
029F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
029FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 4F -----------....O
029FB0: 50 45 4E 20 49 2D 4F 20 46 49 4C 45 2D 33 0D 0A PEN I-O FILE-3..
029FC0: 0D 0A 43 4C 4F 53 45 20 46 49 4C 45 2D 33 2E 0D ..CLOSE FILE-3..
029FD0: 0A 0D 0A 52 45 41 44 20 46 49 4C 45 2D 33 20 45 ...READ FILE-3 E
029FE0: 4E 44 20 2E 2E 2E 2E 2E 0D 0A 0D 0A 52 45 41 44 ND .........READ
029FF0: 20 46 49 4C 45 2D 33 20 49 4E 56 41 4C 49 44 20 FILE-3 INVALID
02A000: 2E 2E 2E 2E 2E 2E 0D 0A 0D 0A 52 45 57 52 49 54 ..........REWRIT
02A010: 45 20 52 45 43 4F 52 44 2D 33 0D 0A 0D 0A 52 45 E RECORD-3....RE
02A020: 57 52 49 54 45 20 52 45 43 4F 52 44 2D 33 20 49 WRITE RECORD-3 I
02A030: 4E 56 41 4C 49 44 0D 0A 0D 0A 4E 6F 74 65 73 3A NVALID....Notes:
02A040: 20 52 61 6E 64 6F 6D 20 61 63 63 65 73 73 20 66 Random access f
02A050: 69 6C 65 73 20 68 61 76 65 20 72 65 73 74 72 69 iles have restri
02A060: 63 74 69 6F 6E 73 20 6F 6E 20 74 68 65 72 65 20 ctions on there
02A070: 75 73 65 20 3A 0D 0A 0D 0A 31 2E 20 42 65 66 6F use :....1. Befo
02A080: 72 65 20 75 73 69 6E 67 20 74 68 65 20 20 52 45 re using the RE
02A090: 41 44 20 20 26 20 20 52 45 57 52 49 54 45 20 20 AD & REWRITE
02A0A0: 63 6F 6D 6D 61 6E 64 73 20 20 79 6F 75 20 20 6D commands you m
02A0B0: 75 73 74 20 65 6E 73 75 72 65 20 74 68 61 74 20 ust ensure that
02A0C0: 74 68 65 0D 0A 20 20 20 72 65 63 6F 72 64 20 6B the.. record k
02A0D0: 65 79 20 63 6F 6E 74 61 69 6E 73 20 74 68 65 20 ey contains the
02A0E0: 6E 75 6D 62 65 72 20 6F 66 20 74 68 65 20 20 72 number of the r
02A0F0: 65 63 6F 72 64 20 20 74 68 61 74 20 79 6F 75 20 ecord that you
02A100: 6C 65 73 0D 0A 69 6E 76 6F 6C 76 65 64 2E 20 50 les..involved. P
02A110: 72 6F 67 72 61 6D 20 31 38 20 63 72 65 61 74 65 rogram 18 create
02A120: 73 20 74 68 65 20 64 61 74 61 20 66 69 6C 65 20 s the data file
02A130: 61 6E 64 20 50 72 6F 67 72 61 6D 20 31 39 20 75 and Program 19 u
02A140: 73 65 73 20 69 74 2E 0D 0A 0D 0A 0D 0A 50 52 4F ses it.......PRO
02A150: 47 52 41 4D 20 45 49 47 48 54 45 45 4E 0D 0A 3D GRAM EIGHTEEN..=
02A160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
02A170: 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F ...IDENTIFICATIO
02A180: 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 50 52 N DIVISION... PR
02A190: 4F 47 52 41 4D 2D 49 44 2E 20 50 72 6F 67 72 61 OGRAM-ID. Progra
02A1A0: 6D 20 45 69 67 68 74 65 65 6E 2E 0D 0A 0D 0A 2A m Eighteen.....*
02A1B0: 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 63 72 This program cr
02A1C0: 65 61 74 65 73 20 61 20 64 61 74 61 20 66 69 6C eates a data fil
02A1D0: 65 20 27 52 41 4E 44 4F 4D 2E 44 41 54 27 20 77 e 'RANDOM.DAT' w
02A1E0: 68 69 63 68 20 69 73 20 75 73 65 64 20 62 79 20 hich is used by
02A1F0: 70 72 6F 67 72 61 6D 73 0D 0A 2A 20 31 39 20 26 programs..* 19 &
02A200: 20 32 30 2C 20 54 68 65 20 64 61 74 61 20 66 69 20, The data fi
02A210: 6C 65 20 69 73 20 63 72 65 61 74 65 64 20 61 73 le is created as
02A220: 20 61 20 73 65 71 75 65 6E 74 69 61 6C 20 66 69 a sequential fi
02A230: 6C 65 0D 0A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E le....ENVIRONMEN
02A240: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 43 T DIVISION.....C
02A250: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 ONFIGURATION SEC
02A260: 54 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 45 2D 43 TION... SOURCE-C
02A270: 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 OMPUTER. Amstrad
02A280: 20 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 43 54 2D 6128... OBJECT-
02A290: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
02A2A0: 64 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E 50 55 54 d 6128.....INPUT
02A2B0: 2D 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E -OUTPUT SECTION.
02A2C0: 0D 0A 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E .. FILE-CONTROL.
02A2D0: 0D 0A 20 53 45 4C 45 43 54 20 52 41 4E 44 4F 4D .. SELECT RANDOM
02A2E0: 2D 46 49 4C 45 20 41 53 53 49 47 4E 20 52 41 4E -FILE ASSIGN RAN
02A2F0: 44 4F 4D 2E 44 41 54 2E 0D 0A 0D 0A 44 41 54 41 DOM.DAT.....DATA
02A300: 77 69 73 68 20 74 6F 20 72 65 61 64 20 6F 72 0D wish to read or.
02A310: 0A 20 20 20 72 65 77 72 69 74 65 2E 0D 0A 0D 0A . rewrite.....
02A320: 32 2E 20 42 65 66 6F 72 65 20 75 73 69 6E 67 20 2. Before using
02A330: 74 68 65 20 52 45 57 52 49 54 45 20 63 6F 6D 6D the REWRITE comm
02A340: 61 6E 64 20 74 68 65 20 20 72 65 63 6F 72 64 20 and the record
02A350: 6D 75 73 74 20 68 61 76 65 20 62 65 65 6E 20 72 must have been r
02A360: 65 61 64 2C 20 61 66 74 65 72 0D 0A 20 20 20 61 ead, after.. a
02A370: 6C 6C 20 79 6F 75 20 63 61 6E 6E 6F 74 20 72 65 ll you cannot re
02A380: 77 72 69 74 65 20 61 20 72 65 63 6F 72 64 20 74 write a record t
02A390: 68 61 74 20 64 6F 65 73 20 6E 6F 74 20 65 78 69 hat does not exi
02A3A0: 73 74 2E 0D 0A 0D 0A 33 2E 20 4E 6F 72 6D 61 6C st.....3. Normal
02A3B0: 20 70 72 61 63 74 69 63 65 20 69 73 20 74 6F 20 practice is to
02A3C0: 20 63 72 65 61 74 65 20 20 74 68 65 20 20 72 61 create the ra
02A3D0: 6E 64 6F 6D 20 20 61 63 63 65 73 73 20 66 69 6C ndom access fil
02A3E0: 65 20 61 73 20 61 20 73 65 71 75 65 6E 74 69 61 e as a sequentia
02A3F0: 6C 0D 0A 20 20 20 66 69 6C 65 20 28 69 6E 20 61 l.. file (in a
02A400: 20 73 65 70 61 72 61 74 65 20 70 72 6F 67 72 61 separate progra
02A410: 6D 29 20 62 65 66 6F 72 65 20 69 74 20 69 73 20 m) before it is
02A420: 75 73 65 64 2E 0D 0A 0D 0A 0D 0A 43 52 45 41 54 used.......CREAT
02A430: 49 4E 47 20 44 41 54 41 20 46 49 4C 45 53 0D 0A ING DATA FILES..
02A440: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
02A450: 3D 3D 3D 0D 0A 0D 0A 49 66 20 79 6F 75 20 6E 65 ===....If you ne
02A460: 65 64 20 74 6F 20 63 72 65 61 74 65 20 61 20 20 ed to create a
02A470: 64 61 74 61 20 20 66 69 6C 65 20 20 66 6F 72 20 data file for
02A480: 20 75 73 65 20 20 69 6E 20 61 20 70 72 6F 67 72 use in a progr
02A490: 61 6D 2C 20 74 68 65 72 65 20 61 72 65 20 74 77 am, there are tw
02A4A0: 6F 0D 0A 75 73 75 61 6C 20 6D 65 74 68 6F 64 73 o..usual methods
02A4B0: 20 6F 66 20 61 63 68 69 65 76 69 6E 67 20 74 68 of achieving th
02A4C0: 69 73 2E 20 59 6F 75 20 63 61 6E 20 20 69 66 20 is. You can if
02A4D0: 20 79 6F 75 20 77 69 73 68 20 77 72 69 74 65 20 you wish write
02A4E0: 61 20 73 68 6F 72 74 20 43 6F 62 6F 6C 0D 0A 70 a short Cobol..p
02A4F0: 72 6F 67 72 61 6D 20 6F 72 20 64 72 6F 70 20 62 rogram or drop b
02A500: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 46 49 DIVISION.....FI
02A510: 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 LE SECTION... FD
02A520: 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 20 RANDOM-FILE...
02A530: 20 30 31 20 4E 41 4D 45 20 20 20 50 49 43 20 58 01 NAME PIC X
02A540: 28 33 30 29 2E 0D 0A 0D 0A 50 52 4F 43 45 44 55 (30).....PROCEDU
02A550: 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A RE DIVISION.....
02A560: 4F 50 45 4E 2D 46 49 4C 45 2E 0D 0A 20 44 49 53 OPEN-FILE... DIS
02A570: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 44 49 53 50 PLAY ' '... DISP
02A580: 4C 41 59 20 27 43 72 65 61 74 69 6E 67 20 46 69 LAY 'Creating Fi
02A590: 6C 65 2C 20 50 6C 65 61 73 65 20 57 61 69 74 27 le, Please Wait'
02A5A0: 2E 0D 0A 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 ... OPEN OUTPUT
02A5B0: 52 41 4E 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 0D 0A RANDOM-FILE.....
02A5C0: 43 52 45 41 54 45 2D 46 49 4C 45 2E 0D 0A 20 4D CREATE-FILE... M
02A5D0: 4F 56 45 20 27 42 65 6C 6C 61 62 79 27 20 20 20 OVE 'Bellaby'
02A5E0: 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 TO NAME... WRIT
02A5F0: 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 E NAME... MOVE '
02A600: 57 69 6C 6C 69 61 6D 73 27 20 20 20 54 4F 20 4E Williams' TO N
02A610: 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E 41 4D AME... WRITE NAM
02A620: 45 2E 0D 0A 20 4D 4F 56 45 20 27 4B 65 6E 6E 65 E... MOVE 'Kenne
02A630: 64 79 27 20 20 20 20 54 4F 20 4E 41 4D 45 2E 0D dy' TO NAME..
02A640: 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D 0A 20 . WRITE NAME...
02A650: 4D 4F 56 45 20 27 41 64 61 6D 73 27 20 20 20 20 MOVE 'Adams'
02A660: 20 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 TO NAME... WRI
02A670: 54 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 TE NAME... MOVE
02A680: 27 4D 6F 72 6C 65 79 27 20 20 20 20 20 54 4F 20 'Morley' TO
02A690: 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E 41 NAME... WRITE NA
02A6A0: 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 57 61 63 63 ME... MOVE 'Wacc
02A6B0: 69 27 20 20 20 20 20 20 54 4F 20 4E 41 4D 45 2E i' TO NAME.
02A6C0: 0D 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D 0A .. WRITE NAME...
02A6D0: 20 4D 4F 56 45 20 27 44 77 65 72 79 68 6F 75 73 MOVE 'Dweryhous
02A6E0: 65 27 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 e' TO NAME... WR
02A6F0: 49 54 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 ITE NAME... MOVE
02A700: 61 63 6B 20 69 6E 74 6F 20 42 61 73 69 63 20 61 ack into Basic a
02A710: 6E 64 20 20 77 72 69 74 65 20 61 20 73 68 6F 72 nd write a shor
02A720: 74 20 42 61 73 69 63 20 77 68 69 63 68 20 63 72 t Basic which cr
02A730: 65 61 74 65 73 20 74 68 65 0D 0A 64 61 74 61 20 eates the..data
02A740: 66 69 6C 65 2E 20 54 68 65 20 66 6F 6C 6C 6F 77 file. The follow
02A750: 69 6E 67 20 70 72 6F 67 72 61 6D 73 20 62 6F 74 ing programs bot
02A760: 68 20 20 63 72 65 61 74 65 20 61 20 64 61 74 61 h create a data
02A770: 20 66 69 6C 65 20 63 6F 6E 74 61 69 6E 69 6E 67 file containing
02A780: 20 66 69 76 65 0D 0A 72 65 63 6F 72 64 73 20 6F five..records o
02A790: 66 20 33 30 20 73 70 61 63 65 73 2E 0D 0A 0D 0A f 30 spaces.....
02A7A0: 3C 3C 20 43 4F 42 4F 4C 20 3E 3E 0D 0A 0D 0A 49 << COBOL >>....I
02A7B0: 44 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 DENTIFICATION DI
02A7C0: 56 49 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D VISION...PROGRAM
02A7D0: 2D 49 44 2E 20 43 72 65 61 74 65 20 61 20 64 61 -ID. Create a da
02A7E0: 74 61 20 66 69 6C 65 2E 0D 0A 45 4E 56 49 52 4F ta file...ENVIRO
02A7F0: 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D NMENT DIVISION..
02A800: 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 .CONFIGURATION S
02A810: 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 ECTION... SOURC
02A820: 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 E-COMPUTER. Amst
02A830: 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A rad 6128... OBJ
02A840: 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D ECT-COMPUTER. Am
02A850: 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 49 4E 50 strad 6128...INP
02A860: 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 49 4F UT-OUTPUT SECTIO
02A870: 4E 2E 0D 0A 20 20 46 49 4C 45 2D 43 4F 4E 54 52 N... FILE-CONTR
02A880: 4F 4C 2E 0D 0A 20 20 20 20 53 45 4C 45 43 54 20 OL... SELECT
02A890: 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E NAME-FILE ASSIGN
02A8A0: 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A 44 41 54 NAMES.DAT...DAT
02A8B0: 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 46 A DIVISION... F
02A8C0: 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 ILE SECTION...
02A8D0: 20 20 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D FD NAME-FILE..
02A8E0: 0A 20 20 20 20 20 20 30 31 20 4E 41 4D 45 20 50 . 01 NAME P
02A8F0: 49 43 20 58 28 33 30 29 2E 0D 0A 57 4F 52 4B 49 IC X(30)...WORKI
02A900: 20 27 43 61 6D 70 62 65 6C 6C 27 20 20 20 54 4F 'Campbell' TO
02A910: 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E NAME... WRITE N
02A920: 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 54 69 6C AME... MOVE 'Til
02A930: 6C 69 6E 67 27 20 20 20 20 54 4F 20 4E 41 4D 45 ling' TO NAME
02A940: 2E 0D 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D ... WRITE NAME..
02A950: 0A 0D 0A 45 4E 44 2D 50 52 4F 47 52 41 4D 2E 0D ...END-PROGRAM..
02A960: 0A 20 43 4C 4F 53 45 20 52 41 4E 44 4F 4D 2D 46 . CLOSE RANDOM-F
02A970: 49 4C 45 2E 0D 0A 20 53 54 4F 50 20 52 55 4E 2E ILE... STOP RUN.
02A980: 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 4E 49 ......PROGRAM NI
02A990: 4E 45 54 45 45 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D NETEEN..========
02A9A0: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 44 45 4E ========....IDEN
02A9B0: 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 TIFICATION DIVIS
02A9C0: 49 4F 4E 2E 0D 0A 20 50 52 4F 47 52 41 4D 2D 49 ION... PROGRAM-I
02A9D0: 44 2E 20 50 72 6F 67 72 61 6D 20 4E 69 6E 65 74 D. Program Ninet
02A9E0: 65 65 6E 2E 0D 0A 0D 0A 2A 20 54 68 69 73 20 70 een.....* This p
02A9F0: 72 6F 67 72 61 6D 20 75 73 65 73 20 74 68 65 20 rogram uses the
02AA00: 64 61 74 61 20 66 69 6C 65 20 27 52 41 4E 44 4F data file 'RANDO
02AA10: 4D 2E 44 41 54 27 20 61 73 20 61 20 72 61 6E 64 M.DAT' as a rand
02AA20: 6F 6D 20 61 63 63 65 73 73 20 66 69 6C 65 20 74 om access file t
02AA30: 68 65 0D 0A 2A 20 64 61 74 61 20 66 69 6C 65 20 he..* data file
02AA40: 6D 75 73 74 20 66 69 72 73 74 20 62 65 20 63 72 must first be cr
02AA50: 65 61 74 65 64 20 75 73 69 6E 67 20 70 72 6F 67 eated using prog
02AA60: 72 61 6D 20 65 69 67 68 74 65 65 6E 0D 0A 0D 0A ram eighteen....
02AA70: 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 ENVIRONMENT DIVI
02AA80: 53 49 4F 4E 2E 0D 0A 0D 0A 43 4F 4E 46 49 47 55 SION.....CONFIGU
02AA90: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
02AAA0: 0A 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 . SOURCE-COMPUTE
02AAB0: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
02AAC0: 0D 0A 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 .. OBJECT-COMPUT
02AAD0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
02AAE0: 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 .....INPUT-OUTPU
02AAF0: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 46 49 4C T SECTION... FIL
02AB00: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
02AB10: 4F 4E 2E 0D 0A 20 20 30 31 20 4E 41 4D 45 2D 4E ON... 01 NAME-N
02AB20: 55 4D 42 45 52 20 20 20 20 50 49 43 20 39 2E 0D UMBER PIC 9..
02AB30: 0A 20 20 30 31 20 42 55 46 46 45 52 2D 31 20 20 . 01 BUFFER-1
02AB40: 20 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D PIC X(30)..
02AB50: 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 .PROCEDURE DIVIS
02AB60: 49 4F 4E 2E 0D 0A 4F 50 45 4E 2D 46 49 4C 45 2E ION...OPEN-FILE.
02AB70: 0D 0A 20 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 .. OPEN OUTPUT
02AB80: 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 4D 4F NAME-FILE... MO
02AB90: 56 45 20 30 20 54 4F 20 4E 41 4D 45 2D 4E 55 4D VE 0 TO NAME-NUM
02ABA0: 42 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 53 50 41 BER... MOVE SPA
02ABB0: 43 45 20 54 4F 20 42 55 46 46 45 52 2D 31 2E 0D CE TO BUFFER-1..
02ABC0: 0A 20 20 50 45 52 46 4F 52 4D 20 43 52 45 41 54 . PERFORM CREAT
02ABD0: 45 2D 46 49 4C 45 20 35 20 54 49 4D 45 53 2E 0D E-FILE 5 TIMES..
02ABE0: 0A 50 52 4F 47 52 41 4D 2D 45 4E 44 2E 0D 0A 20 .PROGRAM-END...
02ABF0: 20 43 4C 4F 53 45 20 4E 41 4D 45 2D 46 49 4C 45 CLOSE NAME-FILE
02AC00: 2E 0D 0A 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A ... STOP RUN...
02AC10: 43 52 45 41 54 45 2D 46 49 4C 45 2E 0D 0A 20 20 CREATE-FILE...
02AC20: 41 44 44 20 31 20 54 4F 20 4E 41 4D 45 2D 4E 55 ADD 1 TO NAME-NU
02AC30: 4D 42 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 55 MBER... MOVE BU
02AC40: 46 46 45 52 2D 31 20 54 4F 20 4E 41 4D 45 2E 0D FFER-1 TO NAME..
02AC50: 0A 20 20 57 52 49 54 45 20 4E 41 4D 45 20 49 4E . WRITE NAME IN
02AC60: 56 41 4C 49 44 0D 0A 20 20 20 20 44 49 53 50 4C VALID.. DISPL
02AC70: 41 59 20 27 45 52 52 4F 52 20 57 48 45 4E 20 53 AY 'ERROR WHEN S
02AC80: 41 56 49 4E 47 20 44 41 54 41 27 2E 0D 0A 0D 0A AVING DATA'.....
02AC90: 61 6E 64 20 6E 6F 77 20 74 68 65 20 73 61 6D 65 and now the same
02ACA0: 20 70 72 6F 67 72 61 6D 20 75 73 69 6E 67 2C 0D program using,.
02ACB0: 0A 0D 0A 3C 3C 20 42 41 53 49 43 20 3E 3E 0D 0A ...<< BASIC >>..
02ACC0: 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 22 6E 61 ..10 OPENOUT "na
02ACD0: 6D 65 73 2E 64 61 74 22 0D 0A 32 30 20 46 4F 52 mes.dat"..20 FOR
02ACE0: 20 69 3D 31 20 74 6F 20 35 0D 0A 33 30 20 50 52 i=1 to 5..30 PR
02ACF0: 49 4E 54 20 23 39 2C 73 70 61 63 65 24 28 33 30 INT #9,space$(30
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 01 00 02 09 52 E5 24 00 C1 02 00 00 00 02 $.....R.$.......
02AD20: 24 00 C6 02 00 00 00 02 24 00 C2 02 00 00 00 02 $.......$.......
02AD30: 24 00 C7 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD40: 24 00 C8 02 00 00 00 02 24 00 C4 02 00 00 00 02 $.......$.......
02AD50: 24 00 C9 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 E-CONTROL... SE
02AE10: 4C 45 43 54 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 LECT RANDOM-FILE
02AE20: 20 41 53 53 49 47 4E 20 52 41 4E 44 4F 4D 2E 44 ASSIGN RANDOM.D
02AE30: 41 54 0D 0A 20 20 4F 52 47 41 4E 49 5A 41 54 49 AT.. ORGANIZATI
02AE40: 4F 4E 20 52 45 4C 41 54 49 56 45 0D 0A 20 20 41 ON RELATIVE.. A
02AE50: 43 43 45 53 53 20 52 41 4E 44 4F 4D 20 52 45 4C CCESS RANDOM REL
02AE60: 41 54 49 56 45 20 52 45 43 4F 52 44 2D 4E 55 4D ATIVE RECORD-NUM
02AE70: 42 45 52 2E 0D 0A 0D 0A 44 41 54 41 20 44 49 56 BER.....DATA DIV
02AE80: 49 53 49 4F 4E 2E 0D 0A 0D 0A 46 49 4C 45 20 53 ISION.....FILE S
02AE90: 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 20 52 41 4E ECTION... FD RAN
02AEA0: 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 20 20 30 31 20 DOM-FILE... 01
02AEB0: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 50 NAME P
02AEC0: 49 43 20 58 28 33 30 29 2E 0D 0A 0D 0A 57 4F 52 IC X(30).....WOR
02AED0: 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 KING-STORAGE SEC
02AEE0: 54 49 4F 4E 2E 0D 0A 0D 0A 30 31 20 52 45 43 4F TION.....01 RECO
02AEF0: 52 44 2D 4E 55 4D 42 45 52 20 20 20 20 50 49 43 RD-NUMBER PIC
02AF00: 20 39 2E 0D 0A 30 31 20 4B 45 59 42 4F 41 52 44 9...01 KEYBOARD
02AF10: 2D 45 4E 54 52 59 20 20 20 50 49 43 20 58 2E 0D -ENTRY PIC X..
02AF20: 0A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 ...PROCEDURE DIV
02AF30: 49 53 49 4F 4E 2E 0D 0A 0D 0A 4F 50 45 4E 2D 46 ISION.....OPEN-F
02AF40: 49 4C 45 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 ILE... DISPLAY '
02AF50: 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 4F '... DISPLAY 'O
02AF60: 70 65 6E 69 6E 67 20 46 69 6C 65 2C 20 50 6C 65 pening File, Ple
02AF70: 61 73 65 20 57 61 69 74 27 2E 0D 0A 20 44 49 53 ase Wait'... DIS
02AF80: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 4F 50 45 4E PLAY ' '... OPEN
02AF90: 20 49 2D 4F 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 I-O RANDOM-FILE
02AFA0: 2E 0D 0A 0D 0A 44 49 53 50 4C 41 59 2D 46 49 4C .....DISPLAY-FIL
02AFB0: 45 2E 0D 0A 20 4D 4F 56 45 20 30 20 54 4F 20 52 E... MOVE 0 TO R
02AFC0: 45 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A 20 ECORD-NUMBER...
02AFD0: 50 45 52 46 4F 52 4D 20 52 45 41 44 2D 46 49 4C PERFORM READ-FIL
02AFE0: 45 20 39 20 54 49 4D 45 53 2E 0D 0A 0D 0A 44 49 E 9 TIMES.....DI
02AFF0: 53 50 4C 41 59 2D 4D 45 53 53 41 47 45 2E 0D 0A SPLAY-MESSAGE...
02B000: 72 20 77 6F 72 64 20 77 69 74 68 69 6E 20 61 0D r word within a.
02B010: 0A 70 72 6F 67 72 61 6D 2E 20 56 61 6C 75 65 20 .program. Value
02B020: 69 73 20 61 20 72 65 73 65 72 76 65 64 20 77 6F is a reserved wo
02B030: 72 64 20 69 6E 20 43 6F 62 6F 6C 2C 20 73 6F 20 rd in Cobol, so
02B040: 79 6F 75 20 63 61 6E 6E 6F 74 20 75 73 65 20 56 you cannot use V
02B050: 61 6C 75 65 20 75 6E 6C 65 73 73 0D 0A 69 74 20 alue unless..it
02B060: 66 6F 72 6D 73 20 70 61 72 74 20 6F 66 20 61 20 forms part of a
02B070: 6C 61 72 67 65 72 20 77 6F 72 64 2C 0D 0A 0D 0A larger word,....
02B080: 69 65 2E 20 43 41 4C 43 55 4C 41 54 45 2D 56 41 ie. CALCULATE-VA
02B090: 4C 55 45 20 28 69 73 20 61 63 63 65 70 74 61 62 LUE (is acceptab
02B0A0: 6C 65 2E 29 0D 0A 0D 0A 54 68 65 20 43 6F 62 6F le.)....The Cobo
02B0B0: 6C 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 20 l document file
02B0C0: 64 6F 65 73 20 6E 6F 74 20 20 63 6F 6E 74 61 69 does not contai
02B0D0: 6E 20 20 61 20 20 6C 69 73 74 20 6F 66 20 72 65 n a list of re
02B0E0: 73 65 72 76 65 64 20 77 6F 72 64 73 2C 20 73 6F served words, so
02B0F0: 20 49 0D 0A 68 61 63 6B 65 64 20 69 6E 74 6F 20 I..hacked into
02B100: 74 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C the Cobol compil
02B110: 65 72 20 75 73 69 6E 67 20 53 49 44 20 20 61 6E er using SID an
02B120: 64 20 64 69 73 63 6F 76 65 72 65 64 20 74 68 65 d discovered the
02B130: 20 66 75 6C 6C 3F 20 6C 69 73 74 20 6F 66 0D 0A full? list of..
02B140: 72 65 73 65 72 76 65 64 20 77 6F 72 64 73 20 75 reserved words u
02B150: 73 65 64 20 69 6E 20 74 68 65 20 50 44 20 76 65 sed in the PD ve
02B160: 72 73 69 6F 6E 20 6F 66 20 43 6F 62 6F 6C 2E 0D rsion of Cobol..
02B170: 0A 0D 0A 41 43 43 45 53 53 20 20 20 20 20 20 20 ...ACCESS
02B180: 20 20 20 20 41 43 43 45 50 54 20 20 20 20 20 20 ACCEPT
02B190: 20 20 20 20 20 20 41 44 44 20 20 20 20 20 20 20 ADD
02B1A0: 20 20 20 20 20 20 20 20 41 44 56 41 4E 43 49 4E ADVANCIN
02B1B0: 47 0D 0A 41 46 54 45 52 20 20 20 20 20 20 20 20 G..AFTER
02B1C0: 20 20 20 20 41 4C 50 48 41 42 45 54 49 43 20 20 ALPHABETIC
02B1D0: 20 20 20 20 20 20 41 53 53 49 47 4E 20 20 20 20 ASSIGN
02B1E0: 20 20 20 20 20 20 20 20 41 55 54 48 4F 52 0D 0A AUTHOR..
02B1F0: 42 45 46 4F 52 45 20 20 20 20 20 20 20 20 20 20 BEFORE
02B200: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
02B210: 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 61 DISPLAY 'Enter a
02B220: 20 6E 75 6D 62 65 72 2C 20 72 61 6E 67 65 20 30 number, range 0
02B230: 20 2D 20 39 27 2E 0D 0A 20 44 49 53 50 4C 41 59 - 9'... DISPLAY
02B240: 20 27 28 20 30 20 45 6E 64 20 50 72 6F 67 72 61 '( 0 End Progra
02B250: 6D 2C 20 31 20 74 6F 20 39 20 44 69 73 70 6C 61 m, 1 to 9 Displa
02B260: 79 73 20 52 65 63 6F 72 64 20 29 27 2E 0D 0A 20 ys Record )'...
02B270: 41 43 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D ACCEPT KEYBOARD-
02B280: 45 4E 54 52 59 2E 0D 0A 20 49 46 20 4B 45 59 42 ENTRY... IF KEYB
02B290: 4F 41 52 44 2D 45 4E 54 52 59 20 4E 4F 54 20 4E OARD-ENTRY NOT N
02B2A0: 55 4D 45 52 49 43 0D 0A 20 20 20 50 45 52 46 4F UMERIC.. PERFO
02B2B0: 52 4D 20 4E 4F 4E 2D 4E 55 4D 45 52 49 43 2D 45 RM NON-NUMERIC-E
02B2C0: 4E 54 52 59 0D 0A 20 20 20 47 4F 20 44 49 53 50 NTRY.. GO DISP
02B2D0: 4C 41 59 2D 46 49 4C 45 0D 0A 20 45 4E 44 2D 49 LAY-FILE.. END-I
02B2E0: 46 2E 0D 0A 0D 0A 43 48 45 43 4B 2D 49 46 2D 5A F.....CHECK-IF-Z
02B2F0: 45 52 4F 2E 0D 0A 20 4D 4F 56 45 20 4B 45 59 42 ERO... MOVE KEYB
02B300: 4F 41 52 44 2D 45 4E 54 52 59 20 54 4F 20 52 45 OARD-ENTRY TO RE
02B310: 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A 20 49 CORD-NUMBER... I
02B320: 46 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 20 F RECORD-NUMBER
02B330: 45 51 55 41 4C 20 30 0D 0A 20 20 44 49 53 50 4C EQUAL 0.. DISPL
02B340: 41 59 20 27 20 27 0D 0A 20 20 44 49 53 50 4C 41 AY ' '.. DISPLA
02B350: 59 20 27 45 6E 64 20 50 72 6F 67 72 61 6D 20 53 Y 'End Program S
02B360: 65 6C 65 63 74 65 64 27 0D 0A 20 20 44 49 53 50 elected'.. DISP
02B370: 4C 41 59 20 27 20 27 0D 0A 20 20 44 49 53 50 4C LAY ' '.. DISPL
02B380: 41 59 20 27 43 6C 6F 73 69 6E 67 20 46 69 6C 65 AY 'Closing File
02B390: 2C 20 50 6C 65 61 73 65 20 57 61 69 74 27 0D 0A , Please Wait'..
02B3A0: 20 20 43 4C 4F 53 45 20 52 41 4E 44 4F 4D 2D 46 CLOSE RANDOM-F
02B3B0: 49 4C 45 0D 0A 20 20 53 54 4F 50 20 52 55 4E 0D ILE.. STOP RUN.
02B3C0: 0A 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A 44 49 53 . END-IF.....DIS
02B3D0: 50 4C 41 59 2D 52 45 43 4F 52 44 2E 0D 0A 20 4D PLAY-RECORD... M
02B3E0: 4F 56 45 20 4B 45 59 42 4F 41 52 44 2D 45 4E 54 OVE KEYBOARD-ENT
02B3F0: 52 59 20 54 4F 20 52 45 43 4F 52 44 2D 4E 55 4D RY TO RECORD-NUM
02B400: 20 42 4C 4F 43 4B 20 20 20 20 20 20 20 20 20 20 BLOCK
02B410: 20 20 20 42 59 20 20 20 20 20 20 20 20 20 20 20 BY
02B420: 20 20 20 20 20 43 41 4C 4C 0D 0A 43 4C 4F 53 45 CALL..CLOSE
02B430: 20 20 20 20 20 20 20 20 20 20 20 20 43 4F 4D 50 COMP
02B440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4F CO
02B450: 4D 50 2D 33 20 20 20 20 20 20 20 20 20 20 20 20 MP-3
02B460: 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C 0D 0A 43 COMPUTATIONAL..C
02B470: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 20 20 20 ONFIGURATION
02B480: 44 41 54 41 20 20 20 20 20 20 20 20 20 20 20 20 DATA
02B490: 20 20 44 41 54 45 2D 57 52 49 54 54 45 4E 20 20 DATE-WRITTEN
02B4A0: 20 20 20 20 44 45 42 55 47 47 49 4E 47 0D 0A 44 DEBUGGING..D
02B4B0: 45 4C 45 54 45 20 20 20 20 20 20 20 20 20 20 20 ELETE
02B4C0: 44 45 50 45 4E 44 49 4E 47 20 20 20 20 20 20 20 DEPENDING
02B4D0: 20 20 44 49 53 50 4C 41 59 20 20 20 20 20 20 20 DISPLAY
02B4E0: 20 20 20 20 44 49 56 49 44 45 0D 0A 44 49 56 49 DIVIDE..DIVI
02B4F0: 53 49 4F 4E 20 20 20 20 20 20 20 20 20 45 4C 53 SION ELS
02B500: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E E
02B510: 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ND
02B520: 20 45 4E 44 2D 49 46 0D 0A 45 4E 56 49 52 4F 4E END-IF..ENVIRON
02B530: 4D 45 4E 54 20 20 20 20 20 20 45 51 55 41 4C 20 MENT EQUAL
02B540: 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4F ERRO
02B550: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 R EX
02B560: 49 54 0D 0A 46 44 20 20 20 20 20 20 20 20 20 20 IT..FD
02B570: 20 20 20 20 20 46 49 4C 45 20 20 20 20 20 20 20 FILE
02B580: 20 20 20 20 20 20 20 46 49 4C 45 2D 43 4F 4E 54 FILE-CONT
02B590: 52 4F 4C 20 20 20 20 20 20 46 49 4C 4C 45 52 0D ROL FILLER.
02B5A0: 0A 46 52 4F 4D 20 20 20 20 20 20 20 20 20 20 20 .FROM
02B5B0: 20 20 47 4F 20 20 20 20 20 20 20 20 20 20 20 20 GO
02B5C0: 20 20 20 20 47 52 45 41 54 45 52 20 20 20 20 20 GREATER
02B5D0: 20 20 20 20 20 20 49 44 45 4E 54 49 46 49 43 41 IDENTIFICA
02B5E0: 54 49 4F 4E 0D 0A 49 46 20 20 20 20 20 20 20 20 TION..IF
02B5F0: 20 20 20 20 20 20 20 49 4E 44 45 58 45 44 20 20 INDEXED
02B600: 42 45 52 2E 0D 0A 20 52 45 41 44 20 52 41 4E 44 BER... READ RAND
02B610: 4F 4D 2D 46 49 4C 45 20 49 4E 56 41 4C 49 44 20 OM-FILE INVALID
02B620: 50 45 52 46 4F 52 4D 20 52 45 41 44 2D 45 52 52 PERFORM READ-ERR
02B630: 4F 52 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 20 OR... DISPLAY '
02B640: 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 52 65 '... DISPLAY 'Re
02B650: 63 6F 72 64 20 4E 75 6D 62 65 72 20 27 20 52 45 cord Number ' RE
02B660: 43 4F 52 44 2D 4E 55 4D 42 45 52 20 27 20 20 20 CORD-NUMBER '
02B670: 27 20 4E 41 4D 45 2E 0D 0A 20 44 49 53 50 4C 41 ' NAME... DISPLA
02B680: 59 20 27 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 Y ' '... DISPLAY
02B690: 20 27 50 72 65 73 73 20 52 45 54 55 52 4E 20 74 'Press RETURN t
02B6A0: 6F 20 74 72 79 20 61 67 61 69 6E 27 2E 0D 0A 20 o try again'...
02B6B0: 41 43 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D ACCEPT KEYBOARD-
02B6C0: 45 4E 54 52 59 2E 0D 0A 20 47 4F 20 44 49 53 50 ENTRY... GO DISP
02B6D0: 4C 41 59 2D 46 49 4C 45 2E 0D 0A 0D 0A 2A 2A 2A LAY-FILE.....***
02B6E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 2A 20 53 ************ * S
02B6F0: 55 42 52 4F 55 54 49 4E 45 53 20 2A 20 2A 2A 2A UBROUTINES * ***
02B700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A ************....
02B710: 52 45 41 44 2D 46 49 4C 45 2E 0D 0A 20 41 44 44 READ-FILE... ADD
02B720: 20 31 20 54 4F 20 52 45 43 4F 52 44 2D 4E 55 4D 1 TO RECORD-NUM
02B730: 42 45 52 2E 0D 0A 20 52 45 41 44 20 52 41 4E 44 BER... READ RAND
02B740: 4F 4D 2D 46 49 4C 45 20 49 4E 56 41 4C 49 44 20 OM-FILE INVALID
02B750: 20 44 49 53 50 4C 41 59 20 27 52 65 61 64 20 45 DISPLAY 'Read E
02B760: 72 72 6F 72 2C 20 20 52 65 63 6F 72 64 20 27 20 rror, Record '
02B770: 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A RECORD-NUMBER...
02B780: 20 44 49 53 50 4C 41 59 20 27 52 65 63 6F 72 64 DISPLAY 'Record
02B790: 20 4E 6F 2E 20 27 20 52 45 43 4F 52 44 2D 4E 55 No. ' RECORD-NU
02B7A0: 4D 42 45 52 20 27 20 20 20 27 20 4E 41 4D 45 2E MBER ' ' NAME.
02B7B0: 0D 0A 0D 0A 4E 4F 4E 2D 4E 55 4D 45 52 49 43 2D ....NON-NUMERIC-
02B7C0: 45 4E 54 52 59 2E 0D 0A 20 44 49 53 50 4C 41 59 ENTRY... DISPLAY
02B7D0: 20 27 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 ' '... DISPLAY
02B7E0: 27 4E 6F 6E 2D 4E 75 6D 65 72 69 63 20 45 6E 74 'Non-Numeric Ent
02B7F0: 72 79 2C 20 50 72 65 73 73 20 52 65 74 75 72 6E ry, Press Return
02B800: 20 20 20 20 20 20 20 20 20 49 4E 50 55 54 20 20 INPUT
02B810: 20 20 20 20 20 20 20 20 20 20 20 49 4E 50 55 54 INPUT
02B820: 2D 4F 55 54 50 55 54 0D 0A 49 4E 53 54 41 4C 4C -OUTPUT..INSTALL
02B830: 41 54 49 4F 4E 20 20 20 20 20 49 4E 54 4F 20 20 ATION INTO
02B840: 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 56 41 INVA
02B850: 4C 49 44 20 49 2D 4F 20 20 20 20 20 20 20 49 2D LID I-O I-
02B860: 4F 2D 43 4F 4E 54 52 4F 4C 0D 0A 4C 41 42 45 4C O-CONTROL..LABEL
02B870: 20 20 20 20 20 20 20 20 20 20 20 20 4C 45 41 44 LEAD
02B880: 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 4C 45 ING LE
02B890: 46 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 FT
02B8A0: 4C 45 53 53 0D 0A 4C 49 4E 4B 41 47 45 20 20 20 LESS..LINKAGE
02B8B0: 20 20 20 20 20 20 20 4D 4F 44 45 20 20 20 20 20 MODE
02B8C0: 20 20 20 20 20 20 20 20 20 4D 4F 56 45 20 20 20 MOVE
02B8D0: 20 20 20 20 20 20 20 20 20 20 20 4D 55 4C 54 49 MULTI
02B8E0: 50 4C 59 0D 0A 4E 45 58 54 20 20 20 20 20 20 20 PLY..NEXT
02B8F0: 20 20 20 20 20 20 4E 4F 54 20 20 20 20 20 20 20 NOT
02B900: 20 20 20 20 20 20 20 20 4E 55 4D 45 52 49 43 20 NUMERIC
02B910: 20 20 20 20 20 20 20 20 20 20 4F 42 4A 45 43 54 OBJECT
02B920: 2D 43 4F 4D 50 55 54 45 52 0D 0A 4F 43 43 55 52 -COMPUTER..OCCUR
02B930: 53 20 20 20 20 20 20 20 20 20 20 20 4F 46 20 20 S OF
02B940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 4D OM
02B950: 49 54 54 45 44 20 20 20 20 20 20 20 20 20 20 20 ITTED
02B960: 4F 50 45 4E 0D 0A 4F 52 47 41 4E 49 5A 41 54 49 OPEN..ORGANIZATI
02B970: 4F 4E 20 20 20 20 20 4F 55 54 50 55 54 20 20 20 ON OUTPUT
02B980: 20 20 20 20 20 20 20 20 20 50 41 47 45 20 20 20 PAGE
02B990: 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4F PERFO
02B9A0: 52 4D 0D 0A 50 49 43 20 20 20 20 20 20 20 20 20 RM..PIC
02B9B0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 20 PROCEDURE
02B9C0: 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 PROGRAM-I
02B9D0: 44 20 20 20 20 20 20 20 20 51 55 4F 54 45 0D 0A D QUOTE..
02B9E0: 52 41 4E 44 4F 4D 20 20 20 20 20 20 20 20 20 20 RANDOM
02B9F0: 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 20 READ
02BA00: 20 54 6F 20 52 65 64 6F 2E 27 2E 0D 0A 20 41 43 To Redo.'... AC
02BA10: 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D 45 4E CEPT KEYBOARD-EN
02BA20: 54 52 59 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 TRY... DISPLAY '
02BA30: 20 27 2E 0D 0A 0D 0A 52 45 41 44 2D 45 52 52 4F '.....READ-ERRO
02BA40: 52 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 52 65 R... DISPLAY 'Re
02BA50: 61 64 20 45 72 72 6F 72 20 27 0D 0A 20 20 20 20 ad Error '..
02BA60: 20 20 20 20 20 20 52 45 43 4F 52 44 2D 4E 55 4D RECORD-NUM
02BA70: 42 45 52 0D 0A 20 20 20 20 20 20 20 20 20 27 20 BER.. '
02BA80: 50 72 65 73 73 20 52 65 74 75 72 6E 20 54 6F 20 Press Return To
02BA90: 41 62 6F 72 74 27 2E 0D 0A 20 44 49 53 50 4C 41 Abort'... DISPLA
02BAA0: 59 20 27 20 27 2E 0D 0A 20 41 43 43 45 50 54 20 Y ' '... ACCEPT
02BAB0: 4B 45 59 42 4F 41 52 44 2D 45 4E 54 52 59 2E 0D KEYBOARD-ENTRY..
02BAC0: 0A 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A . DISPLAY ' '...
02BAD0: 20 47 4F 20 44 49 53 50 4C 41 59 2D 46 49 4C 45 GO DISPLAY-FILE
02BAE0: 2E 0D 0A 0D 0A 4E 65 69 74 68 65 72 20 70 72 6F .....Neither pro
02BAF0: 67 72 61 6D 20 69 73 20 65 78 63 69 74 69 6E 67 gram is exciting
02BB00: 20 20 62 75 74 20 20 74 68 65 79 20 20 64 65 6D but they dem
02BB10: 6F 6E 73 74 72 61 74 65 20 74 68 65 20 70 72 69 onstrate the pri
02BB20: 6E 63 69 70 6C 65 20 69 6E 76 6F 6C 76 65 64 0D nciple involved.
02BB30: 0A 61 6E 64 20 61 72 65 20 72 65 6C 61 74 69 76 .and are relativ
02BB40: 65 6C 79 20 65 61 73 79 20 74 6F 20 72 65 61 64 ely easy to read
02BB50: 20 20 61 6E 64 20 75 6E 64 65 72 73 74 61 6E 64 and understand
02BB60: 2E 20 54 68 65 20 72 61 6E 64 6F 6D 20 61 63 63 . The random acc
02BB70: 65 73 73 20 70 72 6F 67 72 61 6D 0D 0A 77 6F 72 ess program..wor
02BB80: 6B 73 20 76 65 72 79 20 71 75 69 63 6B 6C 79 20 ks very quickly
02BB90: 69 6E 20 74 68 69 73 20 63 61 73 65 20 62 65 63 in this case bec
02BBA0: 61 75 73 65 20 20 74 68 65 20 20 61 6C 6C 20 74 ause the all t
02BBB0: 68 65 20 72 65 63 6F 72 64 73 20 66 69 74 20 69 he records fit i
02BBC0: 6E 74 6F 20 74 68 65 0D 0A 64 69 73 63 20 62 75 nto the..disc bu
02BBD0: 66 66 65 72 20 74 68 65 20 62 75 66 66 65 72 20 ffer the buffer
02BBE0: 69 73 20 74 72 65 61 74 65 64 20 61 73 20 20 61 is treated as a
02BBF0: 6E 20 61 72 65 61 20 6F 66 20 64 69 72 65 63 74 n area of direct
02BC00: 20 20 20 52 45 43 4F 52 44 20 20 20 20 20 20 20 RECORD
02BC10: 20 20 20 20 20 52 45 43 4F 52 44 53 0D 0A 52 45 RECORDS..RE
02BC20: 44 45 46 49 4E 45 53 20 20 20 20 20 20 20 20 52 DEFINES R
02BC30: 45 4C 41 54 49 56 45 20 20 20 20 20 20 20 20 20 ELATIVE
02BC40: 20 52 45 57 52 49 54 45 20 20 20 20 20 20 20 20 REWRITE
02BC50: 20 20 20 52 49 47 48 54 0D 0A 52 4F 55 4E 44 45 RIGHT..ROUNDE
02BC60: 44 20 20 20 20 20 20 20 20 20 20 52 55 4E 20 20 D RUN
02BC70: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 41 4D SAM
02BC80: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 E S
02BC90: 45 43 54 49 4F 4E 0D 0A 53 45 43 55 52 49 54 59 ECTION..SECURITY
02BCA0: 20 20 20 20 20 20 20 20 20 53 45 4C 45 43 54 20 SELECT
02BCB0: 20 20 20 20 20 20 20 20 20 20 20 53 45 50 41 52 SEPAR
02BCC0: 41 54 45 20 20 20 20 20 20 20 20 20 20 53 45 51 ATE SEQ
02BCD0: 55 45 4E 54 49 41 4C 0D 0A 53 49 47 4E 20 20 20 UENTIAL..SIGN
02BCE0: 20 20 20 20 20 20 20 20 20 20 53 49 5A 45 20 20 SIZE
02BCF0: 20 20 20 20 20 20 20 20 20 20 20 20 53 4F 55 52 SOUR
02BD00: 43 45 2D 43 4F 4D 50 55 54 45 52 20 20 20 53 50 CE-COMPUTER SP
02BD10: 41 43 45 0D 0A 53 54 41 4E 44 41 52 44 20 20 20 ACE..STANDARD
02BD20: 20 20 20 20 20 20 53 54 4F 50 20 20 20 20 20 20 STOP
02BD30: 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 54 SUBTRACT
02BD40: 20 20 20 20 20 20 20 20 20 20 53 59 4E 43 0D 0A SYNC..
02BD50: 54 49 4D 45 53 20 20 20 20 20 20 20 20 20 20 20 TIMES
02BD60: 20 54 48 52 55 20 20 20 20 20 20 20 20 20 20 20 THRU
02BD70: 20 20 20 54 4F 20 20 20 20 20 20 20 20 20 20 20 TO
02BD80: 20 20 20 20 20 54 52 41 49 4C 49 4E 47 0D 0A 55 TRAILING..U
02BD90: 4E 54 49 4C 20 20 20 20 20 20 20 20 20 20 20 20 NTIL
02BDA0: 55 53 41 47 45 20 20 20 20 20 20 20 20 20 20 20 USAGE
02BDB0: 20 20 55 53 49 4E 47 20 20 20 20 20 20 20 20 20 USING
02BDC0: 20 20 20 20 56 41 4C 55 45 0D 0A 56 41 52 59 49 VALUE..VARYI
02BDD0: 4E 47 20 20 20 20 20 20 20 20 20 20 57 4F 52 4B NG WORK
02BDE0: 49 4E 47 2D 53 54 4F 52 41 47 45 20 20 20 57 52 ING-STORAGE WR
02BDF0: 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ITE
02BE00: 20 61 63 63 65 73 73 20 52 61 6D 2E 20 4C 61 72 access Ram. Lar
02BE10: 67 65 72 0D 0A 66 69 6C 65 73 20 77 69 6C 6C 20 ger..files will
02BE20: 62 65 20 73 6C 6F 77 65 72 20 61 73 20 74 68 65 be slower as the
02BE30: 20 70 72 6F 67 72 61 6D 20 20 77 69 6C 6C 20 20 program will
02BE40: 6E 65 65 64 20 20 74 6F 20 72 65 61 64 20 74 68 need to read th
02BE50: 65 20 66 69 6C 65 20 69 6E 74 6F 20 74 68 65 0D e file into the.
02BE60: 0A 62 75 66 66 65 72 20 6D 6F 72 65 20 74 68 61 .buffer more tha
02BE70: 6E 20 6F 6E 63 65 2E 20 49 20 77 69 6C 6C 20 65 n once. I will e
02BE80: 78 70 61 6E 64 20 6F 6E 20 74 68 65 73 65 20 70 xpand on these p
02BE90: 72 6F 67 72 61 6D 73 20 6E 65 78 74 20 6D 6F 6E rograms next mon
02BEA0: 74 68 20 77 69 74 68 20 74 77 6F 0D 0A 6D 6F 72 th with two..mor
02BEB0: 65 20 70 72 6F 67 72 61 6D 73 2C 20 77 68 69 63 e programs, whic
02BEC0: 68 20 77 69 6C 6C 20 64 65 6D 6F 6E 73 74 72 61 h will demonstra
02BED0: 74 65 20 3A 0D 0A 0D 0A 31 2E 20 54 68 65 20 52 te :....1. The R
02BEE0: 45 57 52 49 54 45 20 63 6F 6D 6D 61 6E 64 0D 0A EWRITE command..
02BEF0: 32 2E 20 41 6E 20 61 6C 70 68 61 62 65 74 69 63 2. An alphabetic
02BF00: 20 73 6F 72 74 0D 0A 0D 0A 0D 0A 52 45 53 45 52 sort......RESER
02BF10: 56 45 44 20 57 4F 52 44 53 0D 0A 3D 3D 3D 3D 3D VED WORDS..=====
02BF20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 52 65 73 =========....Res
02BF30: 65 72 76 65 64 20 77 6F 72 64 73 20 61 72 65 20 erved words are
02BF40: 74 68 6F 73 65 20 77 68 69 63 68 20 68 61 76 65 those which have
02BF50: 20 61 20 70 61 72 74 69 63 75 6C 61 72 20 6D 65 a particular me
02BF60: 61 6E 69 6E 67 20 77 69 74 68 69 6E 20 61 20 63 aning within a c
02BF70: 6F 6D 70 75 74 65 72 0D 0A 6C 61 6E 67 75 61 67 omputer..languag
02BF80: 65 2C 20 74 68 65 79 20 63 61 6E 20 6F 6E 6C 79 e, they can only
02BF90: 20 20 62 65 20 20 75 73 65 64 20 20 77 69 74 68 be used with
02BFA0: 69 6E 20 20 61 20 20 70 72 6F 67 72 61 6D 20 69 in a program i
02BFB0: 6E 20 74 68 65 69 72 20 70 72 65 2D 64 65 66 69 n their pre-defi
02BFC0: 6E 65 64 0D 0A 72 6F 6C 65 2E 20 48 6F 77 65 76 ned..role. Howev
02BFD0: 65 72 20 61 20 72 65 73 65 72 76 65 64 20 77 6F er a reserved wo
02BFE0: 72 64 20 20 63 61 6E 20 20 66 6F 72 6D 20 20 70 rd can form p
02BFF0: 61 72 74 20 20 6F 66 20 20 61 20 6C 61 72 67 65 art of a large
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 01 00 02 09 52 E5 25 00 C1 02 00 00 00 02 %.....R.%.......
02C020: 25 00 C6 02 00 00 00 02 25 00 C2 02 00 00 00 02 %.......%.......
02C030: 25 00 C7 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C040: 25 00 C8 02 00 00 00 02 25 00 C4 02 00 00 00 02 %.......%.......
02C050: 25 00 C9 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 5A 45 52 4F 0D 0A 0D 0A 54 61 6B 65 20 61 20 63 ZERO....Take a c
02C110: 6F 70 79 20 6F 66 20 74 68 69 73 20 6C 69 73 74 opy of this list
02C120: 20 61 6E 64 20 6B 65 65 70 20 69 74 20 20 68 61 and keep it ha
02C130: 6E 64 79 20 61 73 20 75 73 69 6E 67 20 61 20 72 ndy as using a r
02C140: 65 73 65 72 76 65 64 20 77 6F 72 64 20 61 73 20 eserved word as
02C150: 61 6E 0D 0A 69 64 65 6E 74 69 66 69 65 72 20 77 an..identifier w
02C160: 69 6C 6C 20 20 63 61 75 73 65 20 20 73 65 76 65 ill cause seve
02C170: 72 61 6C 20 20 75 6E 75 73 75 61 6C 20 20 65 72 ral unusual er
02C180: 72 6F 72 73 20 20 77 68 65 6E 20 20 79 6F 75 20 rors when you
02C190: 20 63 6F 6D 70 69 6C 65 20 20 79 6F 75 72 0D 0A compile your..
02C1A0: 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 56 44 program.......VD
02C1B0: 45 20 52 45 56 49 53 49 54 45 44 0D 0A 3D 3D 3D E REVISITED..===
02C1C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 20 ==========....I
02C1D0: 68 61 76 65 20 6E 6F 77 20 64 69 73 63 6F 76 65 have now discove
02C1E0: 72 65 64 20 61 20 6E 65 77 20 6D 65 74 68 6F 64 red a new method
02C1F0: 20 6F 66 20 69 6E 63 6C 75 64 69 6E 67 20 61 64 of including ad
02C200: 64 69 74 69 6F 6E 61 6C 20 70 72 69 6E 74 65 72 ditional printer
02C210: 20 63 6F 6E 74 72 6F 6C 0D 0A 63 6F 64 65 73 20 control..codes
02C220: 69 6E 74 6F 20 64 6F 63 75 6D 65 6E 74 73 2C 20 into documents,
02C230: 61 6E 64 20 69 6E 63 6C 75 64 69 6E 67 20 73 63 and including sc
02C240: 72 65 65 6E 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 reen control cod
02C250: 65 73 20 69 6E 20 43 6F 62 6F 6C 20 70 72 6F 67 es in Cobol prog
02C260: 72 61 6D 73 0D 0A 77 72 69 74 74 65 6E 20 75 73 rams..written us
02C270: 69 6E 67 20 56 44 45 20 6F 72 20 56 44 45 32 36 ing VDE or VDE26
02C280: 36 2E 0D 0A 0D 0A 49 66 20 79 6F 75 20 70 72 65 6.....If you pre
02C290: 73 73 20 43 6F 6E 74 72 6F 6C 20 26 20 50 2C 20 ss Control & P,
02C2A0: 61 6E 64 20 20 74 68 65 6E 20 20 70 72 65 73 73 and then press
02C2B0: 20 20 74 68 65 20 45 53 43 20 6B 65 79 20 61 20 the ESC key a
02C2C0: 6C 65 66 74 20 68 61 6E 64 20 73 71 75 61 72 65 left hand square
02C2D0: 0D 0A 62 72 61 63 6B 65 74 20 77 69 6C 6C 20 61 ..bracket will a
02C2E0: 70 70 65 61 72 20 6F 6E 20 74 68 65 20 73 63 72 ppear on the scr
02C2F0: 65 65 6E 20 69 6E 20 69 6E 76 65 72 73 65 20 76 een in inverse v
02C300: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
02C310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E N
02C320: 4F 54 45 2D 31 2E 44 4F 43 0D 0A 0D 0A 20 20 20 OTE-1.DOC....
02C330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C340: 20 20 20 20 53 43 52 45 45 4E 20 43 4C 45 41 52 SCREEN CLEAR
02C350: 49 4E 47 20 43 4F 44 45 53 0D 0A 0D 0A 20 20 20 ING CODES....
02C360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C370: 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 2C 20 44 Clive Bellaby, D
02C380: 65 63 65 6D 62 65 72 20 31 39 39 31 0D 0A 0D 0A ecember 1991....
02C390: 0D 0A 54 6F 20 43 4C 45 41 52 20 54 48 45 20 56 ..To CLEAR THE V
02C3A0: 44 55 20 53 43 52 45 45 4E 0D 0A 3D 3D 3D 3D 3D DU SCREEN..=====
02C3B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
02C3C0: 3D 3D 0D 0A 0D 0A 43 50 2F 4D 20 32 2E 32 20 26 ==....CP/M 2.2 &
02C3D0: 20 42 61 73 69 63 20 75 73 65 20 20 43 48 52 24 Basic use CHR$
02C3E0: 28 31 32 29 20 20 20 20 20 20 20 20 20 20 20 20 (12)
02C3F0: 20 20 20 20 20 20 20 20 27 43 6F 6E 74 72 6F 6C 'Control
02C400: 20 26 20 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 & L..
02C410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C430: 20 20 20 20 20 20 20 20 0D 0A 43 50 2F 4D 20 33 ..CP/M 3
02C440: 2E 31 20 20 20 20 20 20 20 20 20 75 73 65 73 20 .1 uses
02C450: 43 48 52 24 28 32 37 29 3B 22 45 22 3B 63 68 72 CHR$(27);"E";chr
02C460: 24 28 32 37 29 3B 22 48 22 20 20 20 27 45 53 43 $(27);"H" 'ESC
02C470: 20 45 20 45 53 43 20 48 0D 0A 0D 0A 54 68 65 73 E ESC H....Thes
02C480: 65 20 61 72 65 20 6E 6F 74 20 69 6E 74 65 72 63 e are not interc
02C490: 68 61 6E 67 65 61 62 6C 65 2C 20 77 68 69 63 68 hangeable, which
02C4A0: 20 69 73 20 61 20 70 69 74 79 20 62 65 63 61 75 is a pity becau
02C4B0: 73 65 20 75 73 69 6E 67 20 74 77 6F 20 64 69 66 se using two dif
02C4C0: 66 65 72 65 6E 74 0D 0A 73 65 74 73 20 6F 66 20 ferent..sets of
02C4D0: 63 6F 64 65 73 20 69 73 20 61 20 70 61 69 6E 20 codes is a pain
02C4E0: 69 6E 20 74 68 65 20 6E 65 63 6B 2E 0D 0A 0D 0A in the neck.....
02C4F0: 59 6F 75 20 63 61 6E 20 63 6F 6D 62 69 6E 65 20 You can combine
02C500: 69 64 65 6F 2C 20 74 68 69 73 20 69 73 20 74 68 ideo, this is th
02C510: 65 20 73 79 6D 62 6F 6C 20 66 6F 72 0D 0A 61 73 e symbol for..as
02C520: 63 69 69 20 63 6F 64 65 20 32 37 20 77 68 69 63 cii code 27 whic
02C530: 68 20 61 73 20 77 65 20 61 6C 6C 20 20 6B 6E 6F h as we all kno
02C540: 77 20 20 69 73 20 20 45 53 43 2C 20 77 68 65 6E w is ESC, when
02C550: 20 74 68 65 20 64 6F 63 75 6D 65 6E 74 20 69 73 the document is
02C560: 20 70 72 69 6E 74 65 64 0D 0A 74 68 65 20 45 53 printed..the ES
02C570: 43 20 63 6F 64 65 20 69 73 20 61 63 74 69 76 61 C code is activa
02C580: 74 65 64 20 62 79 20 74 68 65 20 20 70 72 69 6E ted by the prin
02C590: 74 65 72 20 61 6E 64 20 74 68 65 20 66 6F 6C 6C ter and the foll
02C5A0: 6F 77 69 6E 67 20 63 68 61 72 61 63 74 65 72 73 owing characters
02C5B0: 20 61 63 74 0D 0A 61 73 20 70 72 69 6E 74 65 72 act..as printer
02C5C0: 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 2E 0D control codes..
02C5D0: 0A 0D 0A 53 6F 20 61 6C 6C 20 79 6F 75 20 6E 65 ...So all you ne
02C5E0: 65 64 20 74 6F 20 64 6F 20 20 69 73 20 20 64 69 ed to do is di
02C5F0: 67 20 20 6F 75 74 20 20 79 6F 75 72 20 20 70 72 g out your pr
02C600: 69 6E 74 65 72 20 6D 61 6E 75 61 6C 2C 20 61 6E inter manual, an
02C610: 64 20 74 6F 20 73 65 65 20 74 68 69 73 0D 0A 77 d to see this..w
02C620: 6F 72 6B 69 6E 67 20 6C 6F 6F 6B 20 20 75 70 20 orking look up
02C630: 20 74 68 65 20 20 63 6F 6E 74 72 6F 6C 20 20 63 the control c
02C640: 6F 64 65 20 20 66 6F 72 20 20 70 61 67 65 20 20 ode for page
02C650: 6C 65 6E 67 74 68 2C 20 20 77 68 69 63 68 20 20 length, which
02C660: 6F 6E 20 20 45 70 73 6F 6E 0D 0A 63 6F 6D 70 61 on Epson..compa
02C670: 74 69 62 6C 65 20 70 72 69 6E 74 65 72 73 20 69 tible printers i
02C680: 73 20 45 53 43 20 43 20 6E 2C 20 77 68 65 72 65 s ESC C n, where
02C690: 20 20 6E 20 20 69 73 20 20 74 68 65 20 6E 75 6D n is the num
02C6A0: 62 65 72 20 6F 66 20 6C 69 6E 65 73 20 74 68 61 ber of lines tha
02C6B0: 74 20 79 6F 75 0D 0A 77 61 6E 74 20 70 65 72 20 t you..want per
02C6C0: 70 61 67 65 2E 0D 0A 0D 0A 4C 65 74 73 20 61 73 page.....Lets as
02C6D0: 73 75 6D 65 20 74 68 61 74 20 79 6F 75 20 77 6F sume that you wo
02C6E0: 75 6C 64 20 6C 69 6B 65 20 34 35 20 20 6C 69 6E uld like 45 lin
02C6F0: 65 73 20 20 70 65 72 20 70 61 67 65 2C 20 74 68 es per page, th
02C700: 74 68 65 20 63 6F 64 65 73 20 74 6F 20 70 72 6F the codes to pro
02C710: 76 69 64 65 20 6F 6E 65 20 73 65 74 20 6F 66 20 vide one set of
02C720: 63 6F 64 65 73 20 74 68 61 74 20 77 69 6C 6C 20 codes that will
02C730: 77 6F 72 6B 20 69 6E 0D 0A 62 6F 74 68 20 43 50 work in..both CP
02C740: 2F 4D 20 32 2E 32 20 26 20 43 50 2F 4D 20 33 2E /M 2.2 & CP/M 3.
02C750: 31 20 28 70 6C 75 73 29 0D 0A 0D 0A 20 43 48 52 1 (plus).... CHR
02C760: 24 28 32 37 29 3B 22 45 22 3B 43 48 52 24 28 32 $(27);"E";CHR$(2
02C770: 37 29 3B 22 48 22 3B 43 48 52 24 28 31 32 29 0D 7);"H";CHR$(12).
02C780: 0A 0D 0A 54 68 69 73 20 77 6F 72 6B 73 20 62 65 ...This works be
02C790: 63 61 75 73 65 20 74 68 65 20 22 45 22 20 26 20 cause the "E" &
02C7A0: 22 48 22 20 64 69 73 70 6C 61 79 65 64 20 62 79 "H" displayed by
02C7B0: 20 43 50 2F 4D 20 32 2E 32 20 61 72 65 20 6E 6F CP/M 2.2 are no
02C7C0: 74 20 73 65 65 6E 20 62 65 63 61 75 73 65 0D 0A t seen because..
02C7D0: 74 68 65 20 73 63 72 65 65 6E 20 69 73 20 63 6C the screen is cl
02C7E0: 65 61 72 65 64 20 69 6D 6D 65 64 69 61 74 6C 65 eared immediatle
02C7F0: 79 20 61 66 74 65 72 20 74 68 65 79 20 61 72 65 y after they are
02C800: 20 70 72 69 6E 74 65 64 2E 0D 0A 0D 0A 54 68 65 printed.....The
02C810: 20 43 48 52 24 28 31 32 29 20 69 73 20 69 67 6E CHR$(12) is ign
02C820: 6F 72 65 64 20 61 73 20 61 6E 20 69 6E 76 61 6C ored as an inval
02C830: 69 64 20 63 6F 64 65 20 62 79 20 43 50 2F 4D 20 id code by CP/M
02C840: 33 2E 31 20 28 70 6C 75 73 29 0D 0A 0D 0A 1A 20 3.1 (plus).....
02C850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
02C860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02C870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
02C880: 61 20 66 61 74 61 6C 20 65 72 72 6F 72 0D 0A 77 a fatal error..w
02C890: 69 6C 6C 20 6F 63 63 75 72 20 61 6E 64 20 79 6F ill occur and yo
02C8A0: 75 72 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 ur program will
02C8B0: 20 63 72 61 73 68 2C 20 20 73 6F 20 20 74 61 6B crash, so tak
02C8C0: 65 20 63 61 72 65 2E 20 54 68 65 20 50 44 20 76 e care. The PD v
02C8D0: 65 72 73 69 6F 6E 20 6F 66 0D 0A 43 6F 62 6F 6C ersion of..Cobol
02C8E0: 20 77 69 6C 6C 20 6F 6E 6C 79 20 61 6C 6C 6F 77 will only allow
02C8F0: 20 79 6F 75 20 74 6F 20 6F 70 65 6E 20 61 20 66 you to open a f
02C900: 65 20 61 73 63 69 69 20 63 6F 64 65 20 66 6F 72 e ascii code for
02C910: 20 34 35 0D 0A 69 73 20 22 2D 22 2C 20 73 6F 20 45..is "-", so
02C920: 74 6F 20 73 65 74 20 79 6F 75 72 20 70 72 69 6E to set your prin
02C930: 74 65 72 20 74 6F 20 34 35 20 6C 69 6E 65 73 20 ter to 45 lines
02C940: 70 65 72 20 70 61 67 65 2C 0D 0A 0D 0A 50 72 65 per page,....Pre
02C950: 73 73 20 43 6F 6E 74 72 6F 6C 20 26 20 50 20 50 ss Control & P P
02C960: 72 65 73 73 20 45 53 43 0D 0A 0D 0A 74 68 69 73 ress ESC....this
02C970: 20 67 69 76 65 73 20 79 6F 75 20 74 68 65 20 45 gives you the E
02C980: 53 43 20 63 6F 64 65 20 20 6F 6E 20 20 74 68 65 SC code on the
02C990: 20 73 63 72 65 65 6E 2C 69 6D 6D 65 64 69 61 74 screen,immediat
02C9A0: 65 6C 79 20 61 66 74 65 72 20 74 68 65 20 45 53 ely after the ES
02C9B0: 43 20 63 6F 64 65 0D 0A 74 79 70 65 20 43 2D 2C C code..type C-,
02C9C0: 20 74 68 65 20 73 63 72 65 65 6E 20 77 69 6C 6C the screen will
02C9D0: 20 6C 6F 6F 6B 20 6C 69 6B 65 2C 0D 0A 0D 0A 5B look like,....[
02C9E0: 43 2D 0D 0A 0D 0A 57 68 65 6E 20 74 68 69 73 20 C-....When this
02C9F0: 63 6F 64 65 20 69 73 20 72 65 61 63 68 65 64 20 code is reached
02CA00: 74 68 65 20 70 61 67 65 20 20 6C 65 6E 67 74 68 the page length
02CA10: 20 20 77 69 6C 6C 20 20 62 65 20 73 65 74 20 74 will be set t
02CA20: 6F 20 34 35 20 6C 69 6E 65 73 2E 20 54 68 69 73 o 45 lines. This
02CA30: 0D 0A 6D 65 74 68 6F 64 20 63 61 6E 20 62 65 20 ..method can be
02CA40: 75 73 65 64 20 74 6F 20 72 65 70 6C 61 63 65 20 used to replace
02CA50: 20 74 68 65 20 20 6D 65 74 68 6F 64 20 20 6F 75 the method ou
02CA60: 74 6C 69 6E 65 64 20 69 6E 20 70 61 72 74 20 74 tlined in part t
02CA70: 68 72 65 65 20 6F 66 20 74 68 69 73 0D 0A 73 65 hree of this..se
02CA80: 72 69 65 73 20 77 68 69 63 68 20 69 6E 76 6F 6C ries which invol
02CA90: 76 65 64 20 77 72 69 74 69 6E 67 20 20 61 20 20 ved writing a
02CAA0: 73 68 6F 72 74 20 20 42 61 73 69 63 20 20 70 72 short Basic pr
02CAB0: 6F 67 72 61 6D 6D 65 20 20 74 6F 20 61 6C 6C 6F ogramme to allo
02CAC0: 77 20 73 63 72 65 65 6E 0D 0A 63 6F 6E 74 72 6F w screen..contro
02CAD0: 6C 20 63 6F 64 65 73 20 74 6F 20 62 65 20 75 73 l codes to be us
02CAE0: 65 64 20 69 6E 20 61 20 43 6F 62 6F 6C 20 70 72 ed in a Cobol pr
02CAF0: 6F 67 72 61 6D 2E 0D 0A 0D 0A 54 68 69 73 20 6D ogram.....This m
02CB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CD00: 65 74 68 6F 64 20 69 73 20 6E 6F 74 20 64 6F 63 ethod is not doc
02CD10: 75 6D 65 6E 74 65 64 20 69 6E 20 74 68 65 20 56 umented in the V
02CD20: 44 45 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 DE document file
02CD30: 20 61 6E 64 20 6D 61 79 20 62 65 20 61 20 27 62 and may be a 'b
02CD40: 75 67 27 2C 0D 0A 68 6F 77 65 76 65 72 20 61 73 ug',..however as
02CD50: 20 69 74 27 73 20 73 6F 20 75 73 65 66 75 6C 20 it's so useful
02CD60: 77 65 20 77 69 6C 6C 20 72 65 67 61 72 64 20 69 we will regard i
02CD70: 74 20 61 73 20 61 20 66 65 61 74 75 72 65 2E 0D t as a feature..
02CD80: 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 ...Clive Bellaby
02CD90: 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 20 54 , 12 Trafalgar T
02CDA0: 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 61 74 errace, Long Eat
02CDB0: 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D 2C 20 on, Nottingham,
02CDC0: 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A 2A 2A NG10 1GP......**
02CDD0: 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 2E 50 END OF SERIES.P
02CDE0: 54 35 20 2A 2A 0D 0A 1A 2C 20 54 72 61 66 61 6C T5 **..., Trafal
02CDF0: 67 61 72 20 54 65 72 72 61 63 65 2C 0D 0A 4C 6F gar Terrace,..Lo
02CE00: 6E 20 74 68 69 73 20 65 78 61 6D 70 6C 65 20 74 n this example t
02CE10: 68 65 20 52 45 43 4F 52 44 20 4B 45 59 20 69 6E he RECORD KEY in
02CE20: 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 0D 0A RECORD-NUMBER..
02CE30: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
02CE40: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 2A 20 E SECTION.....*
02CE50: 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 46 69 Random Access Fi
02CE60: 6C 65 20 2D 20 52 65 63 6F 72 64 20 4B 65 79 20 le - Record Key
02CE70: 74 68 65 20 72 65 63 6F 72 64 20 6B 65 79 20 6D the record key m
02CE80: 75 73 74 20 62 65 20 61 20 6E 75 6D 65 72 69 63 ust be a numeric
02CE90: 0D 0A 0D 0A 30 31 20 52 45 43 4F 52 44 2D 4E 55 ....01 RECORD-NU
02CEA0: 4D 42 45 52 20 50 49 43 20 39 39 2E 0D 0A 0D 0A MBER PIC 99.....
02CEB0: 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 0D ..FILE HANDLING.
02CEC0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
02CED0: 0D 0A 41 66 74 65 72 20 79 6F 75 20 68 61 76 65 ..After you have
02CEE0: 20 64 65 63 6C 61 72 65 64 20 79 6F 75 72 20 66 declared your f
02CEF0: 69 6C 65 20 74 79 70 65 28 73 29 20 79 6F 75 20 ile type(s) you
02CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 01 00 02 09 52 E5 26 00 C1 02 00 00 00 02 &.....R.&.......
02D320: 26 00 C6 02 00 00 00 02 26 00 C2 02 00 00 00 02 &.......&.......
02D330: 26 00 C7 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D340: 26 00 C8 02 00 00 00 02 26 00 C4 02 00 00 00 02 &.......&.......
02D350: 26 00 C9 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 01 00 02 09 52 E5 27 00 C1 02 00 00 00 02 '.....R.'.......
02E620: 27 00 C6 02 00 00 00 02 27 00 C2 02 00 00 00 02 '.......'.......
02E630: 27 00 C7 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E640: 27 00 C8 02 00 00 00 02 27 00 C4 02 00 00 00 02 '.......'.......
02E650: 27 00 C9 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F900: 4F 66 66 73 65 74 2D 49 6E 66 6F 0D 0A 00 00 F9 Offset-Info.....
02F910: 17 A5 00 22 03 9C 05 19 08 94 0A 0F 0D 8A 0F 07 ..."............
02F920: 12 84 14 FB 17 A5 00 21 03 9C 05 1A 08 95 0A 13 .......!........
02F930: 0D 8F 0F 0E 12 8B 14 FD 17 A5 00 22 03 9D 05 19 ..........."....
02F940: 08 96 0A 12 0D 90 0F 0E 12 8D 14 F8 17 A5 00 22 ..............."
02F950: 03 9C 05 19 08 97 0A 14 0D 90 0F 0C 12 87 14 F6 ................
02F960: 17 A1 00 1D 03 98 05 14 08 91 0A 0C 0D 87 0F 04 ................
02F970: 12 80 14 F9 17 A4 00 1F 03 98 05 15 08 91 0A 10 ................
02F980: 0D 8C 0F 0A 12 86 14 FE 17 A5 00 22 03 9E 05 1C ..........."....
02F990: 08 97 0A 14 0D 90 0F 0F 12 8B 14 F9 17 A5 00 21 ...............!
02F9A0: 03 9D 05 1A 08 96 0A 13 0D 8F 0F 0D 12 8A 14 F4 ................
02F9B0: 17 A6 00 22 03 9B 05 18 08 93 0A 0F 0D 8B 0F 07 ..."............
02F9C0: 12 84 14 F8 17 A5 00 22 03 9B 05 17 08 92 0A 0E ......."........
02F9D0: 0D 8C 0F 09 12 87 14 FC 17 A5 00 22 03 9C 05 19 ..........."....
02F9E0: 08 96 0A 14 0D 90 0F 0F 12 8C 14 FA 17 A6 00 23 ...............#
02F9F0: 03 9D 05 1A 08 96 0A 16 0D 92 0F 0F 12 8B 14 F4 ................
02FA00: 17 A5 00 23 03 9B 05 17 08 94 0A 0F 0D 8B 0F 07 ...#............
02FA10: 12 83 14 F6 17 A5 00 1F 03 98 05 14 08 8F 0A 0B ................
02FA20: 0D 88 0F 05 12 83 14 FD 17 A4 00 21 03 9D 05 1B ...........!....
02FA30: 08 97 0A 13 0D 90 0F 0F 12 8D 14 FA 17 A5 00 23 ...............#
02FA40: 03 9D 05 1B 08 99 0A 16 0D 92 0F 10 12 8D 14 F4 ................
02FA50: 17 A5 00 22 03 9D 05 18 08 94 0A 10 0D 8D 0F 0A ..."............
02FA60: 12 86 14 F5 17 A5 00 20 03 9A 05 14 08 90 0A 0D ....... ........
02FA70: 0D 8B 0F 08 12 86 14 FA 17 A4 00 22 03 9B 05 17 ..........."....
02FA80: 08 93 0A 11 0D 8F 0F 0C 12 8A 14 FB 17 A4 00 22 ..............."
02FA90: 03 9C 05 19 08 96 0A 17 0D 92 0F 11 12 8C 14 F4 ................
02FAA0: 17 A5 00 22 03 9C 05 1A 08 96 0A 14 0D 8F 0F 0B ..."............
02FAB0: 12 86 14 F2 17 A5 00 20 03 9A 05 16 08 92 0A 0F ....... ........
02FAC0: 0D 8C 0F 0A 12 87 14 F7 17 A4 00 21 03 9B 05 17 ...........!....
02FAD0: 08 94 0A 11 0D 8F 0F 0D 12 8A 14 F8 17 A4 00 22 ..............."
02FAE0: 03 9A 05 17 08 94 0A 12 0D 8F 0F 0E 12 8B 14 F4 ................
02FAF0: 17 A4 00 23 03 9F 05 1C 08 98 0A 15 0D 93 0F 10 ...#............
02FB00: 12 8C 14 F1 17 A5 00 20 03 9C 05 18 08 94 0A 10 ....... ........
02FB10: 0D 8E 0F 0B 12 88 14 F5 17 A3 00 21 03 9A 05 15 .........£.!....
02FB20: 08 93 0A 11 0D 90 0F 0E 12 8D 14 F9 17 A3 00 21 .............£.!
02FB30: 03 9C 05 1A 08 97 0A 15 0D 94 0F 12 12 90 14 F3 ................
02FB40: 17 A5 00 21 03 9C 05 1A 08 98 0A 15 0D 92 0F 10 ...!............
02FB50: 12 8C 14 F0 17 A4 00 23 03 A2 05 19 08 96 0A 12 .......#........
02FB60: 0D 8F 0F 0D 12 8B 14 F3 17 A5 00 22 03 9C 05 19 ..........."....
02FB70: 08 96 0A 14 0D 91 0F 10 12 93 14 F7 17 A4 00 22 ..............."
02FB80: 03 9E 05 1A 08 98 0A 17 0D 95 0F 14 12 94 14 F3 ................
02FB90: 17 A5 00 22 03 9D 05 1A 08 98 0A 17 0D 95 0F 14 ..."............
02FBA0: 12 90 14 ED 17 A6 00 22 03 9C 05 18 08 9A 0A 11 ......."........
02FBB0: 0D 8F 0F 0D 12 8A 14 EF 17 A4 00 21 03 99 05 15 ...........!....
02FBC0: 08 94 0A 13 0D 90 0F 0F 12 8C 14 F6 17 A6 00 22 ..............."
02FBD0: 03 9D 05 1C 08 9A 0A 19 0D 96 0F 16 12 93 14 F1 ................
02FBE0: 17 A5 00 22 03 9D 05 1B 08 9A 0A 19 0D 97 0F 16 ..."............
02FBF0: 12 93 14 EC 17 A5 00 22 03 9D 05 1A 08 98 0A 14 ......."........
02FC00: 0D 92 0F 0F 12 8C 14 EE 17 A4 00 22 03 9B 05 18 ..........."....
02FC10: 08 93 0A 11 0D 8F 0F 0F 12 8D 14 F3 17 A6 00 25 ...............%
02FC20: 03 9F 05 1E 08 9C 0A 19 0D 98 0F 18 12 95 14 FA ................
02FC30: 0B FA 0B FA 0B .....
RESULT OF SEARCH :
PRO=491 CHEA=0 COD=54 MUSI=0 COP=31 GRA=351 WRIT=134 198=0 199=8 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk140309+ RCOBOL COMp COBOL OVRnCOBOL-1 DOCf
!"#$%&'()*COBOL-2 DOCF+,-./0123COBOL-3 DOCg456789DISC BASABCDDISC DOC#EFG
HIEXEC COMJKLMNOPQEXEC OVRaRSTUVWXYZSERIES PT1cabcdefghijkSERIES PT2slmn
opqrstuvwxyzSERIES PT3SERIES PT4lSERIES PT5z£NOTE-1 DOC u "# $%&()*+,-./
0$1 23456789AEHIJKLMNOPRTVXZabcdeAf giiopqu "$&(*,.02468£ "##$$%''(()))))++,,
--..15566778899999999999D+8HJKLMQTYfik!(.135FDOFTOPICCOMPDATAFILELEFTMODESAMESIG
NSYNCZEROBLOCKLABELQUOTERIGHTSPACEUSAGEVALUEACCESSASSIGNAUTHORCOMP-3FILLEROCCURS
RANDOMRECORDSELECTDISPLAYINDEXEDLEADINGLINKAGEOMITTEDRECORDSSECTIONDIVISIONRELAT
IVESECURITYSEPARATESTANDARDTRAILINGDEBUGGINGPROCEDUREREDEFINESPROGRAM-IDSEQUENTI
ALENVIRONMENTI-O-CONTROLDATE-WRITTENFILE-CONTROLINPUT-OUTPUTINSTALLATIONORGANIZA
TIONCOMPUTATIONALCONFIGURATIONIDENTIFICATIONOBJECT-COMPUTERSOURCE-COMPUTERWORKIN
G-STORAGE PROCEDUREd CBLWR$ $NPS MICRO-COBOL COMPILER VERSION 2.1 $ ERRO
R NEAR $12*2*#2DM!"4N#Fi"2i"2z4%n!47'0*4&4 wJ00240!4#w4244!44*4&j4j4!j4H!463!4*4
&3*4&j5w!44*4&24!46424-!44-PN4 024-!46!44"!40O4244244O*424024*4&424*4&24!44H!44t
*4&24!46424"!4024J0*4&z24!4j4H!44*4&x24"'00*4&4w024S1v!3q*3&!3r+s+p+q*3*3f!3q*2#
"231202!02"2*23w!3p+q*3"3*3$*3No*3#"3*3 o o!3p+q!36*3&*3w3 *3&*360!30 323O*3 0 *
3&*360!3p+q31s !36!3k *3&3)w#6i+4K !3631!363*3&3)1H*3&3)#O**3&3)nM**3&3)#Oo*3&3)
nMo*3&3)w#6i+4'2!!7!!)($.'"!3!,(&- )(#*3()(69+%04!!!/!!!!1!'#8*! 5,,69+%41#8*!!!
! kjgb lmne8'()*6ZcdDC&FE5/rs-1 o42.3 0 "($%BA7,p9*6q!#'G$%B)+8HJKLMQTYbcefgiklm
nyvuwSzUVWXRPOjdNhxaZtI R !36!26PN31LS1HVN1H!26*3O**3O**3Oo*3Oo&2PN31!263£*3&3)
*3s#ri+4&2!3p+q*3DM4 4 *3PO*323ORB3/!3p+q*3*3AM!3r+s+p+q+p+q*3+"31V*3*3 w*3#"3*3
#"3*!3r+s+q+p+q*3+"31*33w*3#"3fi4!i46+24*3#"3!41!6"4!"3!"3*3!6"4!"3*32424!k464!k
42 2!*5#V"4*5#V"5O!5p+q*2"5*5"221AOM*5!5q9!5/0/H!5r+s+p+q*5"4*5"4!46*4&4)#V"4w 4
14O!51wV"53*4&4)411R4 *4&4)#V"4424OLE4 !46*2"5*4&5)#V"4*4&4)+N#Fq#p441H 3/Hz*4DM
b*5DM*4"4"54C441V"5 25*4"4V"55153/H*4"4551*5DM*5D2 *k4&4N*2!3+ *k4&4No!k444!464W
X 424O!44w32v 323O!34w 4 z 4 4H S4 Rg4 !g46 4 4 3!l46!l4 !l44 4*z O4/72
%*31oz O4O%2Lz O S 4 4 H4H4.2h4!i46W!46.!46.WxH 4' *3&3)f1"m4!o46*3&!o4o43M5515
,551DM"52R4 *4"4*5DML4L441!h5b4yV"5!44!5604!56 4!56'*5DM*5z44!51*54+*4&4+451DM z
425!5H$VN4 V!5s&O5255C!5542525!56+4-!56-!565!5*5&4.525!54d!56!5*5&560!5452552552
5!5525O5/H*5&4*5&5w525525m4b1+s#r#4!p463!p4Fp4O*m4*p4&3!p44!3U*3&2q4j2r4xr4!q4!3
6 4'x !2j4!I2s4s42j4j4ES4 !t463!t4*t4&3N**t4&3No!t44!u4q!v46!v4p!w46*v4&2x4Ou4!
x4u42u4+4w40O*!v44.u40O*m22$!z46z42z4O!22y4 y4L2/22y4S3/23y4P3/23y4T3/23y4C2/22y
4W525525OH*5&45HI*5&4*5&5w!5!54HHrLS4 5-55255*5&5w550LS4 52555O!55w55+*5&560*5&5
61*5&!o1!56(50O!56!55*5&50*5&0HO!544(*5&!o1!4s5!4!44n*5&5+h5!46wV"5O1H*51"5424"4
!"4!45wV*53/23y4D%2/2%2*3DM*3W2i*33!362#q#p!Z3"33*32!26!/2"2!2"32 4 *3W*3"2w#6*4
!4p+q*4*4s#r*4#V*4##!4q*4##4w!4q!4*4##w *4!4q *44w*4!4q*44w!4p+q*4*4s#r*4#V!4p+q
*4*4s#r!4p+q*4*4s#r*4#V*4*2s#r*4"4 *4"4*4#V*2"4###"2*4*4s#r*4##"44w!5q2DM40w*4&4
)w#6!45w!"4VDM"5!"5!46j5!4*4&j5NEtNN4 *5)))*5)*4&j50"5!44S*4&5)*5s#r!5r+s+q*5&5)
51s#r5 Wl5k525!56!56!56!565!j55HL525O!j525.8!56I*5&55w!54"5DMb*5DM%5+z4O!5q*4&5)
5c1MGS4 *4&5)1V#DM!66#6#6!46!56#626/!6/Hej5!5*3#"331#32!2"3*35w!5r+s+p+q!"5551b*
5N*5#"5*5"5!5p+q*5O*5O!5s+p+q!"5551*5M*5"5!5r+s+p+qC*5DMc*5DMc!5q*2"5525O*4"221T
S*5*5&W!j5!j56!56#6j5!5*5&j5525!5453b1"5!26*51!26*2"4*5*2s#r*j5M*4j5w!56j5!5*5&j
55 O*4 w!54*4*5#V"425!j5!565 O*4*5&j5525O5 Re*5&j5+-H*5&j50!6A525*5&j50/9/H.H*5
&j5.!6DM4 *5&j5424O!4 w*5&j50!66*5&j5.!66!54*5&j509H.HNN4 6SM4 *5&j5+-H6GS4 *5&j
5424O!4 w!66!54!545244+4-HH40H!46#6*4"4 !i5!h56!66!66#6#6!"62626262626!j5CP4 !66
j5!6!*6&4"4426!46*4&4)w#6!45*6"4*6"46244O!5#V"4"44O!5N#F!6q6'41'O''4'w*4&4)w#6!4
5'*4"44O!5#V*4DM*4&5)w#6'!6''!56!664O!5#V"4"44O!5N#F!6q*4&5)N#F!6q66MHb)Mb()O*4&
4)1H(4O!4#V"6"4 26!6(*6"4&(O(!i5+(!h56*b(4H )4O!j526A#!6B%#!699!64#!6XI#!6S61Hp6
26!6V6H626*6!6s#6!6/60H#!6$v$!*6M$v$!6*6ZH v$!6, #!6.6H #*6!6s#6!6C*6&k5RH6DBH
Hj5!6H6/H #626O!j526 #6 j526!66!6(61H!6O!j526!"6626O!j526)4#V"4&6*4&4)1H8)!466*
4&4)41H)**Ms)7L4 *!6*!66H*4&4)41H)*6*4O!4#V"6"4 26!6)*6"4&*!6/6H*!i5+6#H+*!h56*!
6*!66*!6/6H*O6d*!i5+*!h56*O6*!66)*4"4426!46w624*4"4!6q3*#**6M%*6M!L/#V0!46000000
09!609!6H!2P4 *6)))*6)60"6 62661!!"6*6+!61q!#*6"6Q!*6M$6$H6*H6ZH69H!66b1+!6s!*6+
"6!3P4 !646/6O!j5N$H!j526!66$$ "!66#/$$"!66#$$/"!66#$$"!66H#$$Q"!66#$$66H6HH"!66
I#$$#!66P6#!66*6&j56"!64"!646!6#*6&j56BH/H0H,000000000!%26000000$00*4&5)*4&)1s#r
0*4&5)*4&)N#Fq#p0*4&5)*4&)1*4&5)q#p000*4M0IN4 00*4M0*4M*4&5)#V"40000000000!360!3
6000O0, ,!46000000*4&5)N#F00000*4&5)*4&)N#Fq#p0M-O,4O!4#V"4 H,&,O,,4H-4O!4#VH#4P
4 626!64"6,#5P4 ##6OG#*6MV*6DM6#*6DM6$"6DMb*6DM*6*66+!6#6P4 6#661M/5/66HH#!664!6
#*6&4*6&j5w!64#!56!6q6!6w*6#"61#$*666w!6q6!6/!6p+q621+s#r!21Y$OM*2!£6q£6+£6-H!6q
6*6&6$626!66*6&6$1P4 *6&6$*6#!6s!64$*6&66 #*4&5)41%*4"6*4"44-&0000004h5/HB-*4&"4
02b--b-DD4 0*2"4*4&5)*2s#r02-DU4 *4&5)4o&)#VN#F*4&5)w#63-3R4 '03-9'-'00000000000
00*4&5)N#Fy!44*4"4 o&"5M51Hc.LO4 003.EV4 !460000*4&5)w#60026!6H.VN4 %!46.%!460%!
460!460!460!460H0&5)#V"4 *6s#r4O!5#V"6%FN4 %611Hb%!66%61v%!66% 61%!66%AI4 !666O!
6q266%!h56%!h56 2i54%EL4 &66H9&!66j5!6&*6&j5*6&4w!64%66H6&!56&66/!6/HHb&&66H&VL4
!66j5!6&*6&j5*6&4w!64&!46*4"6*4"6*4"4wO1H&424&"4&!"4* R*4&5)q#p2I/!26#-/DU4 I/
OC/OI/DD4 0*********+++ + +++++!+$+'+*+-+0+6+9+X+u++£++++++++++++,,, ,,,, ,,A,G,
J,M,P,c,f,i,l,o,,---- -#-E-e----------......f.i............/*4&*4&424(90OS*4&5)w
#640j4a0!26!4630*j4M% *!6q*6&26*6&266266!60*6&j40!64042661*6&426O01!641624P "$&,
-679AEFKM))N)*)*12L0/)*125#JH+8' .BDQ !"$&,679AEFKM 3)4INGGG)C "&,679AEFKM)C "
$&,679AEFKM !"$&,679AEFKMO4%()*12)*125O+8')4IGGGGGGGGG .BDQ05C%()*12qGinwGwGin i
n)XZrf/012349B"%'(*+,-/01234679Bstz .Qgo6!6500F*2DMc4+2231+s#r0221+s#r%2!221DM*!
28ogDM!))og1v1DM!))11iN#FogozgOozgiN#Fogo&ogz#W6 a8 0 LST5,/01
2349B$5hY!"$'(+,-.4567KIL IIMINPOBA9-SNPOR*E8%(')%&$ Y !"$'+,-.4567I)9*12*3*"I//
8!$'+,-.4567I08Y!"$'+,-.4567Y !"$'+,-.4567F)F#&INPOJ INPOFGBCC CIN9-P,h
1 DDELLMMNN OO PPQQQQSUWXZZefffjklqrstwxxzavu232pH454cbGgoyTFhni.RYV0VX6A188N8
82Ov8!"8*8DM88*8"8"8!L8*8v!8p+q*8!8p+q*88!8p+q*8*8COBOL OVR235E2356E17259 10
!!BHABH IJKTCCCCCCCCCCCCCCCHQU,d!£m"!"$"%*+./5"%67""8AIabccccceijkjmnnoprnnnnntu
wxy+z%7 "%*,.0258BLPRTVXZadfhjlsW17+++++++++# B! "BHI$$BI$BI $HI D$HD$$ H B!
$D$"$B$DA!ABI$H B$I$HI$H$! $I $I$I $H $"UUUUUUH"H$I$IDBI$H!$HI$$DHI$gz339E5DAA09
3 10EA00F20CB10E1CDAA10FE20DA850EC3A63F 100EB0000E2A0601E002BCDAA10FE09CAD40EFE
73 100EC0000DCAD40EFE21DAE110771C7BFE10D2E1B07D00010C3B60ED5E5EB2A0600235E2356E
17259 10 !!BHABH R##%&&&&&&&&&&**++,,,,,...3366888AAACCCDDEEEEEEFFOOPPQQRRRRSS
TVWWXXYYZZZkl BCEQWXZeq!c5r+s+q+p+q*b5+"b5f33*5a5w*5#"5)6F!)66+25*'5#"'5!53sm!7"
5!"'5s!"'5*'5!7"5!"'5*'525425!+665!+63!z4*+6&5N3!,5*+6&5N8!+64'635!'665!565W525O
!55wz5Qz52z5O!z55w5 OA5 5Hn5 5 +5!,66!,6!,645*A5/z4,58A53A*6IMPBYGOIFNOORTOEOFAD
DANDENDI-ONOTRUNCALLELSEEXITFROMINTOLESSMOVENEXTOPENPAGEREADSIZESTOPTHRUWITHZERO
AFTERCLOSEENTEREQUALERRORINPUTQUOTESPACETIMESUNTILUSINGWRITEACCEPTBEFOREDELETEDI
VIDEEND-IFGIVINGOUTPUTCOMPUTEDISPLAYGREATERINVALIDNUMERICPERFORMREWRITEROUNDEDSE
CTIONVARYINGDIVISIONMULTIPLYSENTENCESUBTRACTADVANCINGDEPENDINGPROCEDUREALPHABETI
C EOF d WR$ $UL $ ERROR NEAR $ PROGRAM ERROR(S)$13!*66P!P5 5 H5H5(5)5.J4
2(6!)66d!56.!56.H-H6H5'*#*z5&d5)dF3"-6!/66*z5&!/6/6z5-6B3+s#r#4!066z5!0606O*-6*0
6&z5!064 !z5W*z5&Y216T226O26!16wT!166!16616!z56P5't#-#6##l2*6255552*6!366z5!36*3
6&z5N*36&z5N8!364"6N#Fi"3i"333w3BK*3!X4"15*43"4!5"35*%54"%5G6i!63RA2*6&6)*6s#rs2
+2"x682x6B3+#s#r*x6"x6z6x6w3O*x6*6*6*6*H !"6z5!63 *6z5*66w*6"6 *x6)#V"6!66*z6"x6
Bz6x6w3BPNc2o&"6B!G66*x6"x6 f!6382O62662663M'626+2"x6*6&6)#V"z6*x6Zn&"66z6w3H*x6
#"x6*x6)#V"6c3!G66*6"6f!63L+2!46q!566!56K!666*56&276O46!7646246+4660O!564460O!6p
+q*86*6s#r*86#V*86#V*86##!6q*86##6w*86#V *86*86*86!6q*4"6626O*86"433TSs*6*6&*86"
6*6#V!B6qB6*-5"E6!C66!C6*E63*E6#V"86863c!D66!D6D6 O*86ND6 O*86N8!D64i3*86#V"86J*
E6##"E6!C64+!7q9!7/0/H!7q7A/Z!7/HTI!7q4"x6s2*x6n&"6!6*63H*x6#"x6*x6)#V"6fA282*6&
6)w#6+2"6M E*4DM+4545 !"x6!x63*x63N*x63N8*x6"x6c154w3 8 8Y4v!85q*85&!5r+s+p+q*95
*5/!5q*4#"4153Y43!3"4*45w!5p+q*5"5*5*5$*5N8*5#"5x 8 8!C5p+q!D56*D5&*B5w*D5&*B560
!D5D52D5O*B5 *D5&*B560!F5*%5#"%5353#54!4"%5*%57w!7p+q*7O*7O!7q74B3+s#r43dOMs!7r+
s+q*7M*7DM+B!6!66!76#66!7*7&6727!747-5B3"7*733*4"86*7*4s#r*6M*866w!766!7'*7&67 O
*86 w!74*86*7#V"8627!6!767 O*86*7&6727O7*7#V"86O*7#V"7!7p+q*6&/7)*7s#r!7p+q*6&k7
)*7s#r!7q*7&/7)#V"86DU626O!66p+qE53!S56!S54*S5&G5)w#6!S54!S56rE53!S56S5*S5&G5)3H
*S5&G5)#O*S5&G5)nM*S5&G5)#O8*S5&G5)nM8*S5&G5)w#6!S54M!S56!36rPNE53VN3HLS3HH!36*E
5O*E5O*E5O8*E5O83PNE53Er!36S5l*S5&G5)*E5s#r!S543!U5p+q*T5DM!W5p+q*V5LCs*/52X5ORB
sX5/!5r+s+p+q+p+q*5+"5f3*Y5*5 w*Y5#"Y5*5#"5 R6!7q*7MB!7p+q*7DM+B!"656+!76E!7672
556!55*55&6NsNN*65*65)))*65)*55&60m3"65!554K*65!7r+s+p+qD*7DM+*7DM+63*6DM*4£!"6*
4#DM e*4DM6O!/7N#F*4£*4DM*6&/7)N#F*6&k7)N#F!76#6xDM*6&/7)N!7qxDMl"86lDMDM7x"86 *
86#V"86lDMMLW*86"7x"862557!7HCC55"73m%6 /!6/H/7 /!7/HH%m%67Hm%6P7PHm%*4DMI64O*7D
M*6DM*7DM*6M26O276H%7HH6IH6!3H&7!PH&7/!7/HU&6!6HR&7IvPHs&7H&#!6HH&7P
H&*6M*6&/7)#V"86*6&k7)#V"7c3&l"7"7C0g7x"86C5579g55Lg55z2xDM*7"86lDMDMTF255/g558g
55g551xDMDMl"86lDMTF*6M26/!6/H666H7255Ugp55j.gpTILWx"86255g55-gTI*6DM*6M*6M!7q*7
&/7)#V"65c3/653H%O!'#V67w3*'67w3"76'!"7*7"67'*7DM'''*6£*6M''*6MO''I'T'g'*7DM*6DM
*6DM'xDM*7DM!7q)5'#*7M*7M!0#V*2!G666'"*26O!/73G(!"x6O6!x63D(*x6P6)#V"86*x6 DMU*x
6"x6((BO6O!"x6O6!x63(*x6P6)#V"86lDM*x6"x6(*2*2*6&/7)!O66N#F#q#p*2O62O6(DI!O66*6&
/7)*O6&P6)N#Fq#p*2*2*2*26(!66!**7&k7)#V"6*H6&"6*65!6sm36626!66!653*65!6s"6!66!"6
*7&/7)#V"8626"626*7&k7)#V"6c3l"6!7s+q*7M"O*7M!7q*7MO643+s#r!43OMsC*4DM+62H6O+!55
6H6!556 *55&6N!554 *4!66!5566!55£ *55&627O7-H7+H7.H 7. !55626!554D !5566!55 *55&
6N !554 *6&/7)3 *6M6O!7q26A)6)FP!66*6&/7)#V"M6*6&k7)#V"K6D)"*2*2*2*2*2IN*2*6M*6e
*6M*2*2*6&/7)#V"86!"x6!x63)!x63)*x6 *86N) *x6"x6)B*227O7H*xe *EC*2*2*2*2*2*6&/7)
N#F# e*2AO6O*6&/7)#V"86*6MMlDM!556O6!55**55&P6)N#F"DM!554r**2&*2*26O!/73**6&/7)N
#F""7*6O!/7N#F""7*6&k7)#V6£7O !7q*6£6£7O *6&/7)#V"86Y!SI !l"7"7c3!*7"86*+O3*7DMl
3e"7c3!*7"86DM"86255!55H!ETlDMMO*6M*6&/7)#V"86l"65c31"*6&k7)#V*65DM£*6&k7)N#FUO"
DD x"65c3o"*65DM*4£*86*4s#r e*6&/7)#V"65*M6DM*65"M6*6&k7)#V"65*K6DM*65"K6!!7s+q+
p+q*7"8627 "7"lx7#"7c3+*4"74+*6&/7)*4N#F£*6&/7)N#F#)e*7DM*7DM*2*6&/7)3z++*6&/7)
3+3H+*6&k7)#Ve*H6M+*6&/7)#Ve*2*2*2*6MV#*2!J66*6MV#*22777H*6&/7)3H,*6&/7)C3xey,77
Hs,*6&/7)C3xey,EO*2*2*2*2*6M*6e*6M*4DMe*4DM*2"*2"*2*2"*2"*2*2*6£6O*26£*67!#l"657
4B3DMU*65x"6574B3*86q#p*65!7s+p+q*7*7M"!7q*7M*6e*6MJ6##!J666/!6/H66/!6/HH*6M*6M2
6I6,$6!6H#*4DM6$*$+*6DM*6DM%I6a$#$*4DM,*6DM*6DM%#p$!556u$!556627627*6"7*6"7*6M#$
!55455$*6£43DM*6£I6O%76H$m%67w R£6O*2*2*2*2*6&/7)6O!k7#VN#F£6O!/7N#F*4£*2*6&/7)
N#F*4£*2*2*6 e*4++"6*2*4#6O!/7q#p e6O!k7*4s#r*2 *2*6&/7)3-GI *2!*2IN*2IN*2!*2IN*
2 *2*6&/7)38.GI *2IN*2*6£*2*6£6O!/7w#6*2*6£*2*6£6O!/7w#6*2*2*2*2*2*2*2*2*2*2*2*2
*2*2q*2*2*2*2*2*2*23/3/2 BCEQWXZeq3#*2*2!I66*2!I66*2"*235//3/23*2*2!I66*2!I66*2!
I66*2!I66*2!I66*2!I66*2*2*2*2*2*2*2*2*2*2*2*2*2"*2*2*2*2"*2*2!76*2!76*2*2e*2*2*2
*2*2*6M*2*DM*2DM90*4DM*2 T0DMc0DM*6M*2*2*29!*2*2IN*2DM*2 23DM*2 *2*2*2 0DM*2*2*2
*2*2*2*2!36*2' NPS MICRO-COBOL Version 2.1
User's Guide PART O
NE Revised and Updated
By Clive Bellaby, June 1991 ORGANIZATION The Cobol compiler and run-tim
e program are designed to run on an 8080 based system in an interactive mode. T
hey will happily operate under both CP/M 2.2 and CP/M 3.1 (plus) systems. Th
ese programs need a miminum 24k of''((((((()G)M)S)V)Y)b)))) *****9****++++++,,,,
,,,,,,,,-- -&-b-y--------.....G.S........................ /// /&//B/J/R/Z/b/j/r/
///////////////////////0000!00f0i0r0x000000000000000*6K)#V*6626O!/7w#6*6&k7)w#66
r2OSs62!66*52**6M !7p+q*7K)#V"7*7*7+"7*7"777w32*7*62*7"726277 main memory and a
disc drive. The following programs are supplied in the Cobol package COBOL
.COM The Cobol compiler. COBOL.OVL EXEC.COM The 'Runtime' Exe
cution program. EXEC.OVR COBOL-n.DOC The Cobol program notes. SER
IES.PTn The Cobol programming series. EXAM-nn.COB Example programs.
MAG.nnn A complete Cobol program that stores details of magazine
articles. ADDRESS.nnn A complete Cobol program that stores names
, a3*7&6)#V"7DM243!76/3726*7!7522ogDM!))3V3ozgOozgiN#Fogo&ogz#Waddresses etc.
GENERAL INTRODUCTION The compiler is composed of two programs COBOL.COM
and COBOL.OVL, each of which reads in and compiles a portion of the input file.
COBOL.COM reads the input program to the end of the Data Division and builds
the symbol table. At the end of the Data Division, COBOL.COM is overlayed by
COBOL.OVL which uses the symbol table to produce the code. The output code is w
ritten to disc as it is produced to minimize the use of internal storage. !a -
H R The EXECution program consists of two parts EXEC.COM and EXEC.OVL, the E
XEC.COM Program builds the core image for the intermediate code and performs su
ch functions as backstuffing addresses and offsetting address in subroutines. E
XEC.COM then loads EXEC.OVL (the interpreter) into memory and transfers control
to it. The interpreter is controlled by a large case statement that decodes th
e instructions and performs the required actions. MICRO-COBOL ELEMENTS
This section conermediate code. Default is OFF. Setting this toggl
e speeds initial compilation for syntax checking. When this toggle is
set the "CIN" file is empty. $D - Debugging mode. Default is OFF.
This toggle sets the debugging mode, which means all the debugg
ing lines (those with a '' in column one) are compiled. If this toggle
is not set in the ENVIRONMENT DIVISION of the source program all debu
gging lines are treated as comments. $L -tains a description of each elem
ent in the language and shows simple examples of their use. The following conve
ntions are used in explaining the formats Elements enclosed in broken bracke
ts are themselves complete entites and are described elsewhere in the manual.
Elements enclosed in squiggley brackets are choices, one of the elements whic
h is to be used. Elements enclosed in square brackets are optional. All el
ements in capital letters are reserved words and must be spelled exactly list t
he input code on the screen as the program is compiled. Default is ON.
Error messages are displayed at the terminal in any case. $P
- Productions. List productions as they occur. Default is OFF. $S - sequ
ence numbers are in the first six positions of each record Default is
OFF. $T - Tokens. List tokens from the scanner. Default is OFF. $W
- Create a list file. Default is OFF. A listing file is created
when this toggle is set. . User names are indicated in lower case. These name
s are unrestricted in length, however they must be unique within the first 15 c
haracters. The only other restriction on user names is that the first character
must be an alpha character. The remainder of the user name can have any combin
ation of representable characters in it. The input to the compiler does not
need to conform to standard COBOL format. Free form input will be accepted as t
he default condition. If desired, sequence numbers can b When this to
ggle is not set the "LST" file will only contain error messages.
RUN TIME CONVENTIONS This section explains how to run the compiler on the c
urrent system. The compiler expects to see a file with a type of CBL as the i
nput file. In general, the input is free form. If the input includes sequence
numbers then the compiler must be notified by setting the appropriate toggle.
The compiler is started by typing COBOL filename. Where the filee entered in
the first six positions of each line. However, a toggle needs to be set to caus
e the compiler to ignore the sequence numbers. The first character position
on any line is used to indicate the following * - indicates a comment en
try. - indicates a debugging line. / - indicates a page eject.
COMPILER TOGGLES There are six compiler toggles which are controlled by an
entry following the compiler activation command, COBOL filename. The format
name is the system name of the input file. There is no interaction required to
start the second part of the compiler. The output file will have the same f
ilename as the input file and will be given a file type of CIN. Any previous c
opies of the file will be erased. As with the CIN file, a LST file will be cre
ated with the same file name as the input file and any previous LST files with
that name will be erased. The interpreter is started by typing EXEC filename.
The first program is a l of the entry consists of following filename by one
space and then entering a "$" followed immediately by the desired toggles. The
re must be only one space after filename and no spaces between the "$" and the
toggles. The following is an example of a typical entry COBOL EXAMPLE $
S This entry would cause the compiler to ignore the first six characters (use
d for sequence numbers) at the beginning of each input line. In each case the
toggle reverses the default value. $C - No int Roader, and it will disp
lay "NPS MICRO-COBOL LOADER VERS 2.1" followed by the display "LOAD
FINISHED" to indicates successful completion. The run-time package will be b
rought in by the EXEC routine, and execution should continue without interrupti
on. Successful transfer of control to the interpreter will be indicated by the
display "NPS MICRO-COBOL INTERPRETER VERS 2.1." Completion of program e
xecution will be indicated by the display "X EXECUTION ERROR(S)," where
"X" isPROGRAM-ID. comment. AUTHOR. comment. DATE
-WRITTEN. comment. SECURITY. comment. NOTES This divisio
n provides information for program identification for the reader. The order of
the lines is fixed. EXAMPLES IDENTIFICATION DIVISION. PROGRA
M-ID. SAMPLE. AUTHOR. HAL R POWELL. IDENTIFICATI
ON DIVISION. PROGRAM-ID. WAGES-CALCULATION. *
* This program the number of errors which occurred during execution.
FILE INTERACTIONS WITH CP/M CP/M treats all data files as Random Access f
iles, CP/M cannot distinguish the sequential files, from the random Access file
s created under Cobol. The distinction between the two file types is specified
by the way in which the file is opened by the Cobol program that uses the file.
This means that the various types of reads and writes are all valid to any
file that has fixed length calculate the employees net wage from
* data entered through the keyboard and stores the net * wage in t
he WAGE.DAT file ENVIRONMENT DIVISION ELEMENT ENVIRONMENT DIVISION
Format FORMAT ENVIRONMENT DIVISION. CONFIGURATION SECTI
ON. SOURCE-COMPUTER. comment DEBUGGING MODE. OBJ
ECT-COMPUTER. comment. INPUT-OUTPUT SECTION. FIL
E-CONTROL. frecords. The restrictions of the ASSIGN statement p
revent a file from being open for both random and sequential actions during one
program. Each logical record is terminated by a carriage return and a line f
eed. In the case of variable length records, this is the only end mark that exi
sts. This convention was adopted to allow the various programs which are used
in CP/M to work with the files. Files created by the editor, for example, wil
l generally be variable length files. This convention removile-control-entry .
. . I-O-CONTROL. SAME file-name-1 file-name-2 fi
le-name-3 file-name-4 file-name-5. NOTES This divisi
on determines the external nature of a file. In the case of CP/M all of the fil
es used can be accessed either sequentially or randomly except for variable len
gth files which are sequential only. The debugging mode is also set by this sec
tion. The DEBUGGING MODE clause is used in conjunction with the '' to indicae
s the capability of reading variable length files in a random mode. All of t
he physical records are 128 bytes in length and the program supplies buffer spa
ce for these records in addition to the logical records. Logical records may be
of any desired length. PROGRAM STRUCTURE Cobol programs must followed
a pre-defined program structure, the general structure and command syntax is c
ontained in COBOL.PT2, COBOL.PT3 and COBOL.PT4 document files. Programs foll
ow the outlinete conditional compilation. If this clause is specified, all deb
ugging lines (those with a '' in column one) are compiled. If this clause is
not specified, all debugging lines are treated as comments. In addition the DE
BUGGING MODE can be specified by using the compiler toggle 'D.' file-contro
l-entry ELEMENT file-control-entry FORMAT 1. SELECT file-name
ASSIGN implementor-name ORGANIZATION SEQUENTI
AL structure of A. IDENTIFICATION DIVISION. (details abo
ut the program) B. ENVIRONMENT DIVISION. (details on the environment th
e program was designed to run in, such as machine type, file types etc )
C. DATA DIVISION. (declaration of variables, file structures etc) D. P
ROCEDURE DIVISION. (the program commands) IDENTIFICATION DIVISION
ELEMENT IDENTIFICATION DIVISION Format FORMAT IDENTIFICATION DIV
ISION. R ACCESS SEQUENTIAL. 2. SELECT file-
name ASSIGN implementor-name ORGANIZATION RE
LATIVE ACCESS SEQUENTIAL RELATIVE data-name.
RANDOM RELATIVE data-name 3. SELECT file-name
ASSIGN implementor-name ORGANIZATION INDEXED
ACCESS SEQUENTIAL. RANDOM NOTE
S The file-control-entry defines the t NPS MICRO-COB
OL Version 2.1 User's Guide
PART TWO Revised and Updated
By Clive Bellaby, June 1991 comment ELEMEN
T comment FORMAT any string of characters DESCRIPTION A comment is
a string of characters. It may include anything other than a period followed b
y a blank or a reserved word, either of which terminate ype of file that the pr
ogram expects to see. There is no difference on the diskette, but the type of r
eads and writes that are performed will differ. For CP/M the implementor nam
e needs to conform to the normal specifications. Indexed is not implemented.
EXAMPLES SELECT CARDS ASSIGN CARD.FIL. SELECT
RANDOM-FILE ASSIGN A.RAN ORGANIZATION RELATIVE
ACCESS RANDOM RELATIVE RAND-FLAG. DATA DIVISION ELEME the
string. Comments may be empty if desired, but the terminator is still require
d by the program. EXAMPLES this is a comment anotheroneallruntog
ether 8080b 16K NOTE a '*' in column 1 to cause compiler to igno
re sequence numbers. data-description-entry ELEMENT data-description
-entry format FORMAT level-number data-name FILLE
R REDEFINES data-name PIC character-strinNT DATA
DIVISION Format FORMAT DATA DIVISION. FILE SECTION.
FD file-name BLOCK integer-1 RECORDS
RECORD integer-1 TO integer-3 LABEL RECORDS STANDARD
OMITTED VALUE OF implementor-name-1 liter
al-1 implementor-name-2 literal-2 . . . .
record-description-entry . . . . . . WORKING-STORAg
USAGE COMP COMP-3 COMPUTATIONA
L DISPLAY SIGN LEADING SEPARATE
TRAILING OCCURS integer SYNC LEFT RIG
HT VALUE literal. DESCRIPTION This statement describes the speci
fic attributes of the data. Since the 8080 is a byte machine, there was no mean
ing to the SYNC clause, and thus it has not been implemented, however existiGE
SECTION. record-description-entry . . . LINKA
GE SECTION. record-description-entry . . .
comment DESCRIPTION This is the section that describes how the data is str
uctured. There are no major differences from standard COBOL except for the foll
owing 1. Label records make no sense on the diskette so no entry is required.
2. The VALUE OF clause has no meaning for CP/M. If a record is given two
lengths as ing programs that are transferred to MICRO-COBOL and use this feat
ure will compile and execute successfully. All numeric data are maintained in D
ISPLAY format or packed BCD if the COMP-3 option is used. EXAMPLES 01 CARD-
RECORD. 02 PART PIC X(5). 02 NEXT-PART PIC 99V99 U
SAGE DISPLAY. 02 FILLER. 03 NUMB PIC S9(3)V9 SI
GN LEADING SEPARATE. 03 LONG-NUMB 9(15). 03
STRING REDEFINES LONG-NUMB PIC X(15). n RECORD 12 to 128, the file is tak
en to be variable length and can only be accessed in the sequential mode. Se
e the section on files for more information. ** END OF COBOL-1.DOC **
User's Guide Division and builds
the symbol table. At the end of the Data Division, COBOL.COM is overlayed by
COBOL.OVL which uses the symbol table to produce the code. The output code is w
ritten to disc as it is produced to minimize the use of internal storage. R
02 ARRAY PIC 99 OCCURS 100. PROCEDURE DIVISION ELEMEN
T PROCEDURE DIVISION Format FORMAT 1. PROCEDURE DIVISION USING name1 nam
e2 . . . name5. section-name SECTION. paragraph-na
me. sentence sentence . . . . . . . . . 2. PROCEDURE DIVISION US
ING name1 name2 . . . name5. paragraph-name. sentence sentence .
. . . . . DESCRIPTION As is indicated, if the program is to contain s
ROUNDED SIZE ERROR imperative-statement DESCRIPTION This instruction adds
either one number to a second with the result being placed in the last locatio
n. Multiple adds have not been implemented. EXAMPLES ADD 10 TO NUM1
ADD X TO Z ROUNDED. ADD 100 TO NUMBER SIZE ERROR GO ERROR-LOC
CALL ELEMENT CALL FORMAT CALL literal USING name1 name2 . . . n
ameN DESCRIPTION Control is transferred to the called procedure with an addr
ess oections, then the first paragraph must be in a section. sentence
ELEMENT sentence FORMAT imperative-statement conditional-st
atement imperative-statement ELEMENT imperative-statement FORMAT
The following verbs are *always* imperative ACCEPT . . . . . .
. . 15 CALL . . . . . . . . . 17 CLOSE . . . . . . . .
17 DISPLAY . . . . . . . 18 EXIT . . . . . f each of t
he parameters to be passed. The parameters map to those in the linkage section
of the called program. The type and size of the parameters must match exactly.
EXAMPLES CALL 'NC152' USING DN1 CALL 'PRINT' CALL '
ADDLIST' USING VAR1 VAR2 VAR3 CLOSE ELEMENT CLOSE FORMAT CLOSE
file-name DESCRIPTION Files must be closed if they have been written. Howev
er, the normal requirement to close an input file prior to the end of processin
g does not . . . . 19 GO . . . . . . . . . . 20 MOVE . .
. . . . . . . 22 OPEN . . . . . . . . . 24 PERFORM . .
. . . . . 25 STOP . . . . . . . . . 27 The following
*may be* imperatives ADD . . . . . . . . . 16 *without* the SI
ZE ERROR DIVIDE . . . . . . . . 19 statement MULTIPLY
. . . . . . . 23 SUBTRACT . . . . . . . 28 DELETE
. . . . . . . . 18 *without* the exist. EXAMPLES CLOSE FILE1
CLOSE RANDFILE DELETE ELEMENT DELETE FORMAT DELETE file-name
INVALID imperative-statement DESCRIPTION This statement requires the file-n
ame of the item to be deleted. The record is logically removed by filling it wi
th a high value character, which is not displayable to the console or line prin
ter. The logical record space can be used again by writing a valid record in it
s place. EXAMPLES DELETE FILE-NAME DISPLAY INVALID option
WRITE . . . . . . . . 29 REWRITE . . . . . . . 26 conditi
onal-statements ELEMENT conditional-statements FORMAT IF . . . . .
. . . . . 21 READ . . . . . . . . . 26 ADD . . . . .
. . . . 16 *with* the SIZE ERROR statement DIVIDE . . . . . . . .
19 MULTIPLY . . . . . . . 23 SUBTRACT . . . . . . .
28 DELETE . . . . . . . . 18 ELEMENT DISPLAY FORMAT
DISPLAY identifier identifier-1 . . . identifier-N litera
l literal-1 . . . literal-N DESCRIPTION This displays the conten
ts of an identifier or displays a literal on the console. Usage must be DISPLAY
. The maximum length of the display is 80 characters for literal values and 25
5 characters for identifiers. EXAMPLES DISPLAY MESSAGE-1 DISPLAY
MESSAGE-3 10 DISPLAY 'THIS MUST BE THE EN *with* the INVALID option
WRITE . . . . . . . . 29 REWRITE . . . . . . . 26
ACCEPT ELEMENT ACCEPT FORMAT ACCEPT identifier DESCRIPTION
This statement reads up to 255 characters from the console. The usage of the
item must be DISPLAY. EXAMPLES ACCEPT IMAGE. ACCEPT NUM(9).
ADD ELEMENT ADD FORMAT ADD identifier-1 identifier-2 . . TO ide
ntifier-m literal-1 literal-2 RD' DIVIDE
ELEMENT DIVIDE FORMAT DIVIDE identifier INTO identifier-1 ROUNDED litera
l SIZE ERROR imperative-statement DESCRIPTION The resu
lt of the division is stored in identifier-1 any remainder is lost. EXAMPLES
DIVIDE NUMB INTO STORE DIVIDE 25 INTO RESULT EXIT ELEMENT
EXIT FORMAT EXIT PROGRAM DESCRIPTION The EXIT command causes no act
ion by the interpreter but allows for an empty paragraph for
NPS MICRO-COBOL Version 2.1 User's G
uide PART THREE
Revised and Updated By Clive Bellaby, June 1991
MOVE ELEMENT MOVE FORMAT MOVE identifier-1 TO identifier-2
literal DESCRIPTION The standard list of allowable moves ap
plies to this action. As a space saving feature of this implementation, all num
erithe construction of a common return point. The optional PROGRAM terminates a
subroutine and returns to the calling program. Its use in the main program ca
uses no action to be taken. EXAMPLES EXIT PROGRAM EXIT GO
ELEMENT GO FORMAT 1. GO procedure-name 2. GO procedure-1
procedure-2 . . . procedure-20 DEPENDING identifier DESCRI
PTION The GO command causes an unconditional branch to the routine specified. T
he second form causes a foc moves go through the accumulators. This makes num
eric moves slower than alpha-numeric moves and where possible they should be av
oided. Any move that involves picture clauses that are exactly the same can be
accomplished as an alpha-numeric move if the elements are redefined as alpha-nu
meric also all group moves are alpha-numeric. EXAMPLES MOVE SPACE TO PRINT
-LINE. MOVE A(10) TO B(PTR). MULTIPLY ELEMENT MULTIPLY
FORMAT MULTIPLY identifier BY identifierrward branch depending on the value
of the contents of the identifier. The identifier must be a numeric integer va
lue. There can be no more than 20 procedure names. EXAMPLES GO READ-CARD.
GO READ1 READ2 READ3 DEPENDING READ-INDEX IF ELEMENT IF
FORMAT IF condition stmt-lst END-IF IF condition stmt-lst
ELSE stmt-lst END-IF NEXT SENTENCE NEXT SENTENCE DESCRIPTIO
N This is an enhanced version of the standard COBOL IF s-2 ROUNDED
literal SIZE ERROR imperative-statement DESCRIPTION
The multiply routine uses a double length register to calculate the result.
This allows the result generated to be of maximum precision. The actual va
lue stored will be determined by the amount of storage allocated for the vari
able. Overflow will occur if the number in the register is larger than the va
riable. If the precision in the register is greater than the variable, truncati
tatement. Nesting of IF statement is allowed. EXAMPLES IF A GREATER B ADD A
TO C ELSE GO ERROR-ONE END-IF. IF A NOT NUMERIC NEXT SENTENCE ELS
E MOVE ZERO TO A END-IF. IF A LESS B DISPLAY A DISPLAY B END-IF.
IF A GREATER B DISPLAY A DISPLAY B ELSE DISPLAY C DIS
PLAY D END-IF. IF A GREATER B IF A GREATER C
DISPLAY A ELSE DISPLAY C END-
IF ELSE on occurs unless the round option is specified.
EXAMPLES MULTIPLY X BY Y. MULTIPLY A BY B(7) SIZE ERROR GO OVER
FLOW. OPEN ELEMENT OPEN FORMAT OPEN INPUT file-name-1 file-na
me-2 . . . OUTPUT file-name-1 file-name-2 . . .
I-O file-name-1 file-name-2 . . . DESCRIPTION The three types of OPENS
have exactly the same effect on the diskette. However, they do allow for
internal checking of the other file IF B GREATER C DISPLAY
B ELSE DISPLAY C END-IF
END-IF. ** END OF COBOL-2.DOC **RO-COBOL Version 2.1
User's Guide by using the compiler toggl
e 'D.' file-control-entry ELEMENT file-control-entry FORMAT
1. SELECT file-name ASSIGN implementor-name
ORGANIZATION SEQUENTIAL Ractions. For example, a write to a
file set open as input will cause a fatal error. Multiple opens have not b
een implemented. EXAMPLES OPEN INPUT CARDS. OPEN OUTPUT REPORT-F
ILE. PERFORM ELEMENT PERFORM FORMAT 1. PERFORM procedure-name
THRU procedure-name-2 2. PERFORM procedure-name THRU procedure-name-
2 identifier TIMES integer 3.
PERFORM procedure-name THRU procedure-name-2 CR TO CONTINUE
OR ENTER AN "S" TO TERMINATE. SUBTRACT ELEMENT SUBTRACT FORMAT
SUBTRACT identifier-1 identifier-2 . . . FROM identifier-m
literal-1 literal-2 ROUNDED SIZE ERROR imperative-st
atement DESCRIPTION Identifier-m, is decremented by the value of identif
ier/literal one. The results are stored back in identifier-m. Rounding and size
error options are available if desired. Multiple subtracts UNTIL cond
ition 4. PERFORM procedure-name VARYING identifier
FROM identifier BY identifier UNTIL condition DESCRIPTION
All four options are supported. Branching may be either forward or b
ackward, and the procedures called may have perform statements in them as lon
g as the end points do not coincide or overlap. EXAMPLES PERFORM OPEN-ROUTIN
E. PERFORM TOTALS THRU END-REPORT. PERFORM SUM 10 TIMES.
have not been implemented. EXAMPLES SUBTRACT 10 FROM SUB(12). S
UBTRACT A FROM C ROUNDED. WRITE ELEMENT WRITE FORMAT 1. WRITE
record-name BEFORE ADVANCING INTEGER AFTER
PAGE 2. WRITE record-name INVALID imperative-statement
DESCRIPTION The record specified is written to the file specified in the file s
ection of the source program. The INVALID option only applies to random files.
EXAMPLES PERFORM SKIP-LINE UNTIL PG-CNT GREATER 60. PE
RFORM REPEAT-AGAIN VARYING COUNTER FROM 1 BY 2 UNTIL COUNTER E
QUAL 10. READ ELEMENT READ FORMAT 1. READ file-name INVALID im
perative-statement 2. READ file-name END imperative-statement DES
CRIPTION The invalid condition is only applicable to files in a random mod
e. All sequential files must have an END statement. EXAMPLES READ CARDS END
GO END-OF-FILE. RE WRITE OUT-FILE. WRITE RAND-FILE INV
ALID PERFORM ERROR-RECOV. condition ELEMENT condition FORMAT R
ELATIONAL CONDITION identifier-1 NOT GREATER identifier-2
literal-1 LESS literal-2 EQU
AL CLASS CONDITION identifier NOT NUMERIC
ALPHABETIC DESCRIPTION It is not valid to comp
are two literals. AD RANDOM-FILE INVALID MOVE SPACES TO REC-1. REWRITE
ELEMENT REWRITE FORMAT REWRITE record-name INVALID imperative DES
CRIPTION REWRITE is only valid for files that are open in the I-O mode. The I
NVALID clause is only valid for random files. This statement results in the cur
rent record being written back into the place that it was just read from, t
he last executed read. EXAMPLES REWRITE CARDS. REWRITE RAND-1 I
NVALID PERFORM ERROR-CHECK. STOPThe class condition NUMERIC will allow for
a sign if the identifier is signed numeric. EXAMPLES A NOT LESS 10.
LINE GREATER 'C'. NUMB1 NOT NUMERIC Subscripting ELEM
ENT subscripting FORMAT data-name (subscript) DESCRIPTION Any item d
efined with an OCCURS may be referenced by a subscript. The subscript ma
y be a literal integer, or it may be a data item that has been specified as a
n integer. If the subscript is signed, the sig ELEMENT STOP FOR
MAT STOP RUN literal DESCRIPTION This statement stops
execution of the program. If a literal is specified, then the literal is d
isplayed on the console and a prompt is displayed giving the operator t
he option of terminating or continuing program execution. EXAMPLES ST
OP RUN. STOP 1. STOP 'INVALID FINISH'. For the last t
wo examples the following prompt is displayed OPERATOR ENTER A R
n must be positive at the time of its use. EXAMPLES A(10) I
TEM(SUB) VII. ERROR MESSAGES A. Compiler Fatal Messages BR Bad r
ead - disk error, no corrective action can be taken in the program. CL Close
error - unable to close the output file. MA Make error - could not create t
he output file. MO Memory overflow - the code and constants generated will n
ot fit in the allotted memory space. OP Open error - can not open the
input filceeds 30 characters. P1 More than one float symbol declared. P2
Non-numeric data in repetition clause or missing right parenthesis. P3 Inva
lid or incompatible symbol in pic clause. P4 Invalid symbol(s) embedded with
in a float symbol only /,O,B,',' allowed. P5 Invalid combination of symbols
in pic clause, type cannot be determined. P6 Number of possible numeric entr
ies exceeds register length max is 18. PF Paragraph first - a section header
was produced after a paragraph hee, or no such file present. SO Stack
overflow - LALR (1) parsing stack has exceeded its maximum allowable size
. ST Symbol table overflow - the table is too large for the allocated space.
WR Write error - disk error, could not write a code record to the disk.
B. Compiler Warnings DD Carriage Control error - The WRITE BEFORE/AFTER
ADVANCING option can only be used with sequential files. CE Close erro
r - attempted to close a non-existing file. DD Dader, which is not in a sect
ion. R1 Redefine nesting - a redefinition was made for an item which is part
of a redefined item. R2 Redefine length - the length of the redefinit
ion item was greater than the item that is redefined. That is only allowe
d at the 01 level. This error message may be printed out one identifier pa
st the redefining identifier record in which it occurred. R3 Redefines
misplaced - a redefines was attempted in the FILE SECTION of the source p
rogruplicate Declaration - the identifier name has been previously declare
d. EL Extra levels - only 10 are allowed. FT File type - the data elemen
t used in a read or write statement is not a file name. IA Invalid acc
ess - the specified options are not an allowable combination. ID Identifier
stack overflow - more than 20 items in a GO - DEPENDING statement. IS
Invalid subscript - an item was subscripted but it was not defined by an O
CCURS. IT Invalid type - the fieam. SE Scanner error - the scanner was u
nable to read an identifier due to an invalid character. SG Sign error
- either a sign was expected and not found, or a sign was present when no
t valid. SL Significance loss - the number assigned as a value is larger tha
n the field defined. TE Type error - the type of a subscript index is
not integer numeric. UD Undeclared identifier - the identifier was not decla
red. UL Unresolved label - label has not been referenced. This wld types do
not match for this statement. LE Literal error - a literal value was assigne
d to an item that is part of a group item previously assigned a value.
LV Literal value error - the PICTURE clause field type does not match the
VALUE clause literal type. L7 Level 77 error - level 77 used incorrectly.
MD Multiple decimals - a numeric literal in a VALUE clause contains more
than one sign. NF No file assigned - there was no SELECT clause for this f
ile. NI Not implarning will be given to all references to external sub
routines. VE Value error - a value statement was assigned to an item in the
file section. WL Wrong level error - program attempted to write a reco
rd other than an 01 level record to an output file. C. Interpreter Fa
tal Errors CL Close error - the system was unable to close an output file.
CO Call stack Overflow - insufficient memory available to transfer variable
address' and/or reemented - a production was used that is not implemented
. NP No production - no production exists for the current parser confi
guration error recovery will automatically occur. NV Numeric value - a nume
ric value was assigned to a non-numeric item. OE Open error - attempt to ope
n a file that was not declared or attempted to open a file for I-O that wa
s not a RELATIVE file. OL OCCURS LEVEL - 01 and 77 levels can not contain an
occurs clause. PC Picture clause - a pic clause ex Rturn location for a su
broutine call. ME Make error - the system was unable to make an output file
on the disk. NF No file - an input file with the given name could not be ope
ned. OE Open Error - attempt to open a file which was already open. OP O
pen Error - the system was unable to open a file. PS Procedure Stack - not e
nough memory to load all subroutines. SO Subroutine Overflow - subroutine sy
mbol table overflow. W1 Write non-sequential - attempted to WRITE to a file
opened forOPENING MENU SCREEN#,"DISC CONTENTS PROGRAM"#,"","Copyright Clive Bell
aby & WACCI, October 1991",L"This program allows you to view the disc contents a
nd print the disc"F"contents. If you use the print option, please ensure that yo
ur"0"printer is 'on-line' and ready to print." ,"OPTIONS"""1 View File"C,"2 Pr
int File ( 54 lines per page, single sheets of paper)"36"3 Print File ( 1 INPUT
or a file opened for I-O when ACCESS was SEQUENTIAL. W2 Wrong key - a
ttempted to change the key value to a lower value than the number of the l
ast record written. W3 Write input - attempted to WRITE to a file opened for
INPUT. W4 Write non-empty - attempted to WRITE to a non-empty record. W5
Read output - attempted to READ a file opened for OUTPUT. W6 Rewrite error
- attempted to REWRITE to a file not opened for I-O. W7 Rewrite error - att
empted to REWRITE a record1 inch continuous paper )""4 Print File ( 11.67 inch
'A4' continuous paper )"JT"0 Quit Program"'h" Please Enter Your Selection"rC"
0""1"7"2" ro354 lines (less 3 header)B"3" ro66 lines (less 3 header & 3 footer)B
"4" ro70 lines (less 3 header & 3 footer)*DISPLAY FILE CONTENTS ON THE SCREEN #,
,P,,#,,P, before reading the file or multiple REWRITE attempts without doi
ng a READ between each. D. Interpreter Warning Messages EM End mark -
a record that was read did not have a carriage return or a line feed in t
he expected location. GD Go to depending - the value of the depending indica
tor was greater than the number of available branch addresses. IC Inva
lid character - an invalid character was loaded into an output field durin
g an edit,#,(P,())#," VIEW FILE "()" NEXT Screen, "()3#," Previous Screen,
Press Enter To Quit "0&# #,( ) (0bSelect Option & Set Variables"END"&D3NDispl
ay File Section, Action Option SelectedXbC#l()""#v()""!( )"END"bNext Page Select
edC tem ed move. For example, a numeric character into an alphabetic-only
field. NE Numeric Error - non-numeric data in an arithmetic operation. W8
Write Error - the system was unable to write to an output file on the di
sk. Disk may be full. SI Sign Invalid - the sign is not a "+" or a "-."
** END OF COBOL-3.DOC ** User's Guide number
in the register is larger than the variable. If the precision in the register
is greater than the variable, truncati( tem) temPrevious Page Selected
PRINT FILE CONTENTS !*,"PRINT DOCUMENT FILE"!4,"",IH"Please Ensure that your pri
nter is loaded with paper and ready to"R"print the document file",f"Option Selec
ted"pz"2""54 lines per page, single sheet printing"4"3""11 inch paper, continuou
s printing"DISC BASpSC $$$O WACCI PUBLIC DOMAI DISC
.BAS4WACCI PD INSTRUCTION DISPLAY & PRINT PROGRAM 0Copyright (c) Clive Bellaby,
October 1991&(This is a Public Domain Program2AOPEN FILE, CREATE STRING ARRAY, S
TORE DATA IN ARRAY r$(c)FP1Z"Loading DISC.DOC, Please Wait ..........."d"disc.d
oc"n x()'£#,( ) R"4""11.67 inch paper 'A4', continuous printing"C" Press '0'
to Quit Print Option, Press '1' to print file"C"0""1"print file contents,"Prin
ting Document File .........." pagprint page header #$Check Printer Is On-Line.
#,( )Print Line"8 ro ro B LV&print file, end of page routinej23.BAS 3k in t
he COBOL series. (EXAM-1 to EXAM-24) 12/07a ADDRESS.CBL 19k A complete COB
OL program, it's a address 12/07b ADDRESS.BAS 2k list. ADDRESS.DOC contains
full instructions 12/07c ADDRESS.DOC 6k for setting up the program 12/0
8a MAG.CBL 24k A complete COBOL program, holds details on 12/08b MAG-FI
LE.BAS 1k MAGazine articles. The program include full 12/08c MAG-CODE.BAS 7
k screen handling ets. MAG.DOC contains full 12/08d MAG.DOC 6k instruc
tioms f7t ro6###print header & footer ro3ask for next page, print header8single
sheet printer, ask for next sheet of paper#,,P,,#,"Next Sheet Of Paper Please, P
ress RETURN when Ready"C( )#Check Printer Is On-Line#,,P,, ()(K#,"Printer Not Re
ady Switch On, Check Paper, Place Printer On-Line"() (#2print pageor setting up
the program. 12/09a NOTE-1.DOC 1k Help on screen clearing codes 12/09b
NOTE-2.DOC 6k Help with printing from within COBOL GETT
ING STARTED WACCI PUBLIC DOMAIN DISCS Clive Bellaby, Oc
tober 1991 Public Domain programs have been donated by their authors for the
free use and enjoyment of all. Public Domain programs may be freely copied and
distributed. Public Domain programs may not be sold for profit or included wit
h programs that headerF&P#,()(H)"Page " pagZ#d#n pag pagxEnd Of The ProgramSC
$$$O WACCI PUBLIC DOMAIN DISC TWO
---------------------------- PAGE 2. WRITE record-na
me INVALID imperative-statement DESCRIPTION The record specified is written
to the file specified in the file section of the source program. The INVALID op
tion only applies to random files. EXAMPLES are sold for profit. The programs
authors retain the copyright to the program(s). All the programs supplied b
y Wacci have been tested on a Amstrad 6128. INSTRUCTIONS This disc is su
pplied in VENDOR format, never heard of VENDOR format, then let me explain.
A VENDOR format disc is the same a SYSTEM format disc, except that is does not
contain the system tracks. It is against the copyright laws to distribute discs
containing the CP/M system tracks. VENDOR format discs can verWACCI PD DISC
TWELVE WACCI PUBLIC DOMAIN DISC TWELVE
------------------------------- These programs run under CP/M
2.2 and CP/M 3.1 THIS DISC CONTAINS Ref. Pro
gram Size Description 12/01a DISC.BAS 4k Instructions & disc co
ntents 12/01b DISC.DOC 5k 12/02a COBOL.COM 14k The COBOL compile
r 12/02b COBOL.OVR 14k 12/03a EXEC.COM 8k The COBOL EXECution pr
ogram 12/03y quickly and easily be converted into System format discs that wil
l run under CP/M 2.2, all you need to do is follow these instructions. CP/M
3.1 users DO NOT need to copy the system tracks onto their discs, this version
of CPM will happily use DATA, SYSTEM and VENDOR format discs. CP/M 2.2 USERS
ONLY 1. Copy you PD disc 2. Load CP/M 2.2 (please write protect your c
p/m master disc) 3. Type in BOOTGEN (press return) at the 'please inse
rt your source disc in drive A ........ ' b EXEC.OVR 13k 12/04a COBOL-
1.DOC 13k The COBOL DOCumentation files 12/04b COBOL-2.DOC 9k 12/04c CO
BOL-3.DOC 13k 12/05a SERIES.PT1 13k The complete COBOL programming seri
es 12/05b SERIES.PT2 15k (as published in WACCI) 12/05c SERIES.PT3 16k
12/05d SERIES.PT4 14k 12/05e SERIES.PT5 16k 12/05f SERIES.PT6 16k
12/05g SERIES.PT7 14k 12/05h SERIES.PT8 17k 12/06 EXAM-nn.CBL
44k The complete set of example programs used EXAM- Rprompt pre
ss RETURN at the 'please insert your destination disc in drive A ... ' pro
mpt place you PD disc in drive A, then press RETURN at the 'do you w
ish to configure another disc (Y/N)' prompt press N, then RETURN at
the 'please insert a CP/M system disc into drive A .... ' prompt put your
CP/M 2.2 disc back into drive A then press RETURN. 4. Type in SYSGEN (pr
ess RETURN) at the 'please insert your source disc in drive A ........ ' p
rompt pres*2#DM!" !* !5p+qw*4Og*4Og* #DM!r+s+p+q+p+q*+" *6*8 w*6#"6*8#"8!s
+q+p+q2*w*#"* #" ! * w!" * * w!q w,! 6! 5* * w* #" ! 4 GOM !Y" * " * "w#6*"A*
" SP *A!C6#6!D*D&C2C!D4 !C "* #*" **s#rj!D6!D*Ds RETURN at the 'please i
nsert your destination disc in drive A ... ' prompt place you PD disc in d
rive A, then press RETURN at the 'do you wish to configure another disc (Y
/N)' prompt press N, then RETURN at the 'please insert a CP/M system
disc into drive A .... ' prompt put your CP/M 2.2 disc back into drive A
then press RETURN. 5. Your PD disc now contains a copy of your CP/M system tr
acks, let's check that out by a) reset the machine b) place the PD
&*D&* w!D4l*#V" !D6*D&* *D&lD2DOi*#V" 2*#V"* ###V"E!G" * w* #w*G* * * ##q#pE *E
" * #V"E! 6! * &)* * N#Fq#p* ##" ! 4* ###V" !I" * w* #wI) *" "!K6!Kt* *K&w!K4Q
!K6!K*K&)* * N#Fq#p* ##" !K4* * ##q#p* O* O!L" ! 6! disc with the system trac
ks on in drive A c) type CPM, press RETURN d) and CP/M 2.2 should happil
y load 6. If CP/M 2.2 does not load, then make another copy of your PD disc,
and start again. You should not have any problems, I have tested this ou
t on a 6128 and it works happily. ** END OF FILE ** LVE
------------------------------- ecord in which it occurred. R3 Redefines
misplaced - a redefines was attempted in the FILE SECTION of the source p
rogr* &* w! 4**L" #V"L* *Ns#rL D!R" ! 6! q* &* w! 4SP R R +" " **R+" !"PTP *P*
w*P"P(* 6* 6* #" !V6* #DM7!(6!V6!V*V&)* "* *#V" ! 6* 6!(6* *s#r* *s#r* DM* * #DM
L * 6* !" * DM* #DM*#V"!!V4 ! 6(z* w* #w* #V" * / * * Q * b * "s * ) * 3 * 3 *
8 * * * * * G * A * B( * D7 * CF H * Eh (e * DM * Fw wJogozgiN#Fogo
&ogz#W5EXEC OVR£.CIN$CLOSE ERROR ON MODULE $END OF INPUT$CODE ERROR$ LOADED$
NOT FOUND$LOAD ERROR$NPS MICRO-COBOL LOADER VERSION 2.1$CIN NOT FOUND$CINTERP.CO
M NOT FOUND $1 !" N#Fi")+" wU * 6x* DML* DM* #DMH * DM!L * 6* DMw*&LL!" !e* v!
+q*+& g g!-p+q*,!/p+q*." ! 6w 2 O* H* &* Ng!1p+q*0!3p+q*2w R4#w6 R1**!W4##F#x
#s#r#wQ Uog'd Un#!#V#0og- xD y0K GW yW W GD z ''*##V++N+yU + x. * w#
* r# LEU!#x0P*"!6x+"g*E#xt#VnxE*Gxxvx80x645*E*x**LCZMEIABDHSP!"U2T"+"!91*"2
F!BM##V# !W6pG##V#x#"!N#F*R7*%9!&##V*z2%woL*UE!h *n* n!Ow#w q! 5w# G6# . U I
6# W6 w#j!ex#y#*"N!Q1!L!!"!&##Vzw !&%w#s#r !&LH6UE##Vn 6Q!w"!l# HXEw* w# W2 2 2
O x!i"9o!***F9*JMD*HG7*U!"P2%**"m*"e PASS !T*U+"Uw2% !##Z"*#w2"*F#!Os!#V/SNcc#V
#*#Vecx'g8c*cO*###ce7*P!ON*!#E T!M/w/wYP"*##F+N+ 2 2 w# 2 GWx!P NULTw!# a 2 !6
! * *+ !w *##Vr+s+6*"s#s#r ! **"! ***+ SYMBOLS NEXT PC END BUMy#V
E .n." w#TMs#r#w#M#2TB!"P#/ogz339E5DAA093 10EA00F20CB10E1CDAA10FE20DA850EC3A63F
100EB0000E2A0601E002BCDAA10FE09CAD40EFE73 100EC0000DCAD40EFE21DAE110771C7BFE1
0D2E1B07D00010C3B60ED5E5EB2A0600235E2356E17259 10 !!BHABH B! "BHI$$BI$BI $HI D$
HD$$ H B!$D$"$B$DA!ABI$H B$I$HI$H$! $I $I$I $H $"UUUUUUH"H$I$IDBI$H!$HI$$DH"P"U
2G* +!# 1 UQxgAAg!ws#r!!427U m!o"k # a!n 45*k#"k 0766 L.+LUEE .*go/+- , 0 #V#*
NyI$H D "DD" H " "BI$!$ HHBI!$$ H ! AAHHBDBI$$HBD!B HI$$$"$ D$"I $I$D$B" D"!
B""D"$D$$ HBH! DHDIHI!$"D!"D I$I"D B$$B$ $$1*"!*vD$!D$*k*m! + 4D##V"m"k/og++!.
l#V' ' 'S#0 )DM))O*#V#))))o" s#r#!4-/+* T+,T-TyxW!M6WT6!6# ,o2r !XN! !!#Vx-!
RBBUILD.COMREV $$$CINTERP COMREV $$$'q'MD COMPMe£.CIN$CLOSE ERROR ON MO
DULE $END OF INPUT$CODE ERROR$ LOADED$ NOT FOUND$LOAD ERROR$NPS MICRO-COBOL LOAD
ER VERSION 2.1$CIN NOT FOUND$CINTERP.COM NOT FOUND $1 !" N#Fi")+" wU * 6x* DML
* DM* #DMH0NgH*000*0Og*0&*0NgHM020*0Ng*0&*0OgH*0&0w!0q*0##N#Fa"0*0N#Fa"z0DM!0"z0
*0DM!0"0!00/20*0N#Fa"z0!"x0*0##N#FPY!x0K0-*x0*z0Ng *0##N#Fi"x0*x0"x0*0##x020C0/2
0!06*0N#Fa"z0!"x0*0##N#FPY!x0K0*x0*z020Ogx00*0##N#F50H*0M0OgH0/H!06*0##N#Fi"x0*0
##N#Fi"x0*x0"x0 * DM!L * 6* DMw*&LL!" !e* v!+q*+& g g!-p+q*,!/p+q*." ! 6w 2 O*
H* &* Ng!1p+q*0!3p+q*2w*2) 12/05c SERIES.PT3 16k 12/05d SERIES.PT4 14k
12/05e SERIES.PT5 16k 12/05f SERIES.PT6 16k 12/05g SERIES.PT7 14
k 12/05h SERIES.PT8 17k 12/06 EXAM-nn.CBL 44k The complete set of e
xample programs used EXAM-*0##x0200/20*0N#Fa"z0!"x0*0##N#FPY!x0K0n*x0*z
0Na*0##N#Fi"x0*x0"x0/*0##x0200/20!&1q*&1Mg&1OgISN!06!0*0&1*0&0w!04121#12!1*z0!1Y
!'16 1!'1E *'1&*z0*'1&*z0Hw!'14 1O*z0w !16 12(1!06 1!0 !(15N*z0(1O*z0Hw!04j *z
0w*z0 *z06!)1q!06)1!0 !04 !*1q!16*1 !06!06*1!'d FATAL ERROR$ '0 EXECUTION ERRO
RS$ OPERATOR ENTER A CR TO CONTINUE$ OR ENTER AN "S" TO TERMINATE.$ $NPS MICRO-
COBOL INTERPRETER VERSION 2.1$EXECUTION BEGINS$1x0*00!"z0N#Fi"0*00"0*0*0##"0*0"0
*0"0"0t++*0"z0#V"0"v!0q*0& !0p+q *0!0p+q*£0 !0p+q *0O*0O!06*0&0w9*0&060!0020O!0
*0&060l!0p+q*0DMN!*0%*0!0p+q*02001/!1!04 !,161!1!0"z0!112+1O 0!1w0!,1121!0"z0!1
12+1O 0!1w0!,1121!.1p+q1*-1"z0!0+12,1O !16!/1q 120!116 1!11*0&*z0201!/1'#w+w*0&*
z001w!05!114!51r+s+p+q*21"0*41"z0!616 120!16 1!1*0&0271*0&*028161!71'291+w81!91'
w!61w*0&*z091w!05!14$61*61M!1q*1&!1w*1M!#V!0"0!0"0!1"0!06 1!0*0&*0w!0410!0p+q*0$
LC*0!0p+q*0LEM*0*0!0p+q !0H000000000*0*000*00)#V!0H000)*0#V 00!#V!!!!!0r+s+p+q+p
+q*0+"00-*0*0 w*0#"0*0#"0!0s+p+q+p+q*0+"00*00w*0#"0*0##H0q'*0##H00 !0s+p+q!"x0*0
"z0!060!0*0&*z020-00/H9/HH!"x00.*x00+*x0)))*x0)1H !16!1D *1&1 !14" !1p+q!16*1"z0
!06!0 *0&*z0 1!14*0&*z0 1!14!04 11 !1"z011H !161 !15*z0w1G O!#16!#16!1+-!1/"1/HC
!#16!1RW!0"z0!16!1*1&*z00Og/*1&*z00Og/HENN!14c*020!1!16!1"z00!1!01O !10O !161G *
0##00"x0!04*x0!0q00/+s#r*0200!0q0c!06*0&)*0N#Fa"0m0O!0q0*0N#Fa"0o&"0*0##H0 0H!"x
0*0N#FPY!x0K0*x0*z000*x0*z0!0H0*x0"x0d!"x0*0N#FPY!x0K0d*x0*z0*x0*0*x0*z0*x0*0 W*
x0"x0 !0q00/9!0/H!0q0A/Z!0/H!0q0+0-H!0p+q!06*0N#F!0q+PY&0*0&*0Ng!04*0Ng*0&* RO
!16X!1612110 !A1q!B16A1!B1R11!B148X!16! 16"1#/2#11.!06!0*0&0*0&02C1*0&0!C1!04!D1
qD1*D1M/!0"z00G O!160G O1.S!0"z0 0!1w!0"z0 0!1w!16!1p12H1O1c!16!16m!H1121z!1##w!
E16!E1!F16x000!F14E12G1E1*G1&1F1w*G1&1F1w!0"z0 !E14! 16 1&*06 !c1q*c1&Y1+W121e*
c1&Y16!10c1HW021c1e02a1 *m1*0##N .*k16*k1DM*m1*0N#Fa*0##*0N#Fa"z0*0 *0##2s1!06s1
!0*0&*z0N!04*0N#Fa"z0!*z0!t1q*0N#Fa"z0.EO!*z0t1w!q16*0N#Fa00S*0"z0"*d1s#r*0p1w*0
N#Fa"0%"h1"f1!*02p1*0#V"d1!u1q*u1M*0N#Fa"0*06*0DM20u1O!#V0FN(*0N#FaDM2!I1q$1/2$1
(*1&*z0I10wI10121O*z0Hq!L1s+p+q*J1DMa"0L120!06L1!0!05*0&*0N!04!N1q*02O1O!#V!0"z0
!0"z0!1"z0£*0*O1&1w*O1&!1N1w*z0.!16!$16*0*0##N#F*0##2P1*0N#Fa"0*0-M*0+H!Q16+20!0
6P1!0!05N*0.0OP12Q1*0&*0N!04*0N!1Q1w!P15*0#"0$1/2$1*00*z0w*0+"00*z0w*z0+"z0!R1q!
$16!0FN *06$*06%*0"h1"f1!*02p1*h1+"d1*0q#pp1p12p1p12p1W208WN!q16cqM200$*06!q16*d
1#"d1!f1K0$*0*h1"d1*d1!v1q*d1#"d1!f1K0"q*h1"d1r1" *05h*d1v1w HVMEN*0N#Fa"z0*z
0*0##N#F .!"x0*0##N#FPY!x0K020 200$*06*x0*z00w*x0"x08*0##N#Fa"z0*0#V"w1*w1+"w1*z
01"0*01/H6!06R1!06!04"!T1p+q#1j*S1"z0*01/Hj*z0w!V1p+q*U1"z0*01/H#1*z06+*z06-*0N#
Fa*0##+"z0*0##N!16!16!Y16#6*021*02a1*021*0N#Fa"0*0N#Fa*0#V*0DM*1&*0BRH!155!155#5
5!061!0*0&*02W19*0&*06OW1$*W1MW1ZW121W1B*0&*06 !11!0W1/W1 HW10 w10H!"x0w1x000I*x
0*z0N*x0"x0$-*0##N#Fa"z0!"x0*0N#FPY!x0K02y1!q16$*06*x0*z0y1w*x0"x0a8*0##N#Fa"z0!
"x0*0N#FPY!x0K0*x0*z0N*x0"x0o1 -cq*0N#Fa*0"110!q16*0N#F*1+/"z10"10!1s*0*0N#FaDM*
01w*0N#FaDMp1*0N#FaDM2!q16*06*0N#FaDMPOz1/*h1+"d1*1 *0HW1,H!15!04a!1a10!15!15*0N
#F!1q!0"z0*z00$.*0##N#Fa*z0DM*1&*z0N*z02b1*z0#"z0!15*0O*z0N*0O*z02b1!15*0O*z0N!b
16-*0O*z0w*z0N!b16-*z0w!b16+ *01S *01C *0!1O121S *01!1w12012X121!061!00*X1&*0 0H
/H.H,H1!X1/H!X15r*0&*z0.%*0&*z00!!1X1X1H120w*0n&"10 *0"1p18*1+"1!10*d1#*h10"1*0N
#F*1/"1"1!16!1!16*1&)#V"1101100+s#r!1410*1&1w!14u0*1!1s*021O 11&0*0N#FaDM*1&M *0
N#Fa1O0.1*0N#Fa*1&&0DM!"x0*0x000w *x0"x0T -!1p+q!16110 N !14 *0N#FaDM*0w 7W*0N#F
aDM PO *06*0N#Fd150+s#r*h1+!*0&*z0*X1&*0 wX121!X15!05!04h1!06*0&*01U!04*0&*0,0H
H/H1H1!0/H*0&*06 !04U1Z020O*01w*1M02a1!061!0G*0&*0O*0&*060*0&*0,0O*0*H*0&*06*!04
1201!0*0&*0*$H*0&*0NHOH*0&*060!04N*0a1 *a1&*0+*a1&*0b1w b1+ *a1&*0-*a1&*06 *a R
0 ! *05d1h100"d1!d1H0!d10+s#r *05!d1f100"d1 *055*0u! q1f! *06! *05!1q !r161!!N q
*0! ! *05!r16"1*0N#Fa*0"11100!2W1100"10"*1DM *0&*z0*0&*0 w!04+4!1q101/HX"!04"1B
s"*0&*06 !04"1A"*0&*z0N"CIN""19"*0&*z0Ng"CIN""" !06!0"*0&0N!04"!"*0,O!///*0##N#F
a*0N#Fa*0#V*0H0p+*0N#Fa*0/*0N#F./!16p1+5W$*0/!1+!16jM*z0+!16+/p1+1W!j/p1+5Wq1,Mq
1,$*06/p16,!j,p1,q1v,*d1#m,!r16 *05!r16s,4W,3W/p1,6W!r16 q1,!r16/p1,6W!r16+, *05
N !r16/*0N#Fa"0+/#V//!12!1/S!0"z0 !0"z0 1!121!16 !06!0#121O!0O*1&0O!04M#!1"z0 1#
1!021#!16#121!16! 16 //0/20/"//0000*$*0#V"0*0###V"0*0#V"0*0"0*0"0#V"0/1t$!1"z0*
01O$*01O *021q$*0!1O 0!1w /*0H0$*0N#Fa"x0*0w#6*x0"0$/c$p1$q$*0N#FaDM!p16!*06/1%*
0N#Fa*0#V*0DM*0##N#Fa"z0!06#6*00H0*00H0Hh-*0&*0N5"3-*00H0-*0&*0XAH9H-*0&*0w-*0&*
0B-*0&*06 !04h- //00+s#r*0*0q#p*0##*0s#r*0*0s#r*0###V"0*0#V"0*0#V"0/*0##N#Fa*0#!
1s*0!1H.DGN*0O.*1&)*0N#Fa"0/*0"0*0#V)*0##"000!0K0.OC*0*0s#r!06*000/*0&)*0N#Fa*!1
6/*0N#Fa"0////#1D%0/20//!#1%0/20/u%0/20/*q1Mn/$*0Nn/*0##d%!16*0##!1% !14%%*00%!o
16/f/*02%1*06-+P+!j16j1 j1SH&p+2j1&j1 P&*0+"0%1wS&"/*0N#Fa*0###*0q#p//*0H0&*0N#F
+q#p*0H0&*0##N#Fa"0&//*0N#FaDM7/*0N#Fa*0##+DM7/0&)*0q#p!04.*0"0*0#V)##M/### ####
##-$$$$%%#%+%6%L%g%%%%%%V&&&&&&'7'''''F((())))))*9******+++x+++,,,,--.."ogogDM!)
)og//DM!))//#V) 0#Vgo 0ozgOozgiN#Fogo&ogz#W 05*0N#Fa*0##+"z0*0##O*0N#FaDMp/*0
N#Fa*0##++"z0*0##O*0N#Fa*0##+DMp/#1'121*01/H'*0##!/!0s01&0*0N#FaDM*0&///*0N#Fa"0
*0N(*0*0##N#FC(*02%1*0N#F*0##%1O/*0N#Fa"0*0##21O*020O(!14(0O*0N#F*1/*0N#Fa"0*0+(
(*0N#F*0##/*0N#Fa"0*0##O*0+((*0 0000*0*000*00)#V!0H000)*0#V 00!#V!!!!!0r+s+p+q+p
+q*0+"00-*0*0 w*0#"0*0#"0!0s+p+q+p+q*0+"00*00w*0#"0*0##H0q'*0##H00 !0s+p+q!"x0*0
"z0!060!0*0&*z020-00/H9/HH!"x00.*x00+*x0)))*x0)*0##N#F/*0N#Fa"0*0##!/!1s*0B)G)*z
01&0"z0!061!0)*0&*0*0&*z0 w!04)*1&*z0w/*0##N#Fa#"z0*0*z0N#Fq#p*0N#Fa"0//I//p1)6W
$*0*!/p1 *6W$*01*!/p1I*5W$*0X*M/*0r*!o16p1*3W!o16/W//*0N#Fa*0##*0N#Fa*0+N#F/*0N!
0q#p/ Rmpiler COBOL .OVR 14k programs. EXEC .COM 8k Cobol execu
tion EXEC .OVR 13k programs. The public domain version of COBOL suppli
ed by WACCI, is a good version of the language. This version of the language
has three drawbacks, poor screen handling, no print commands and the in
ability to produce stand alone files. These can be overcome with a bit of 'inv
entive' programming. Should you decide that Cobol programming is for you the
n you can obtain a better version of THE COMPLETE COBOL PROG
RAMMING SERIES By Clive Bellaby
Copyright Clive Bellaby & WACCI PART ONE GET
TING STARTED INTRODUCTION. Last month we looked at the CP/M publi
c domain word processing program VDE. This month, we start a series on progra
mming in Cobol using the CP/M public domain version available from WACCI. Co
bol programs are written as text files and then conve the language for approx.
£40. CREATING A WORK DISC. Don't use your brand new master disc, it
you damage the programs you will be less than pleased, so before doing anything
else copy your master disc. Then create yourself a work disc as follows
1. Format yourself a system disc 2a. Copy C10CPM3.EMS onto the new disc (CP/M
plus ONLY) 2b Setup the disc using SETUP.COM (CP/M 2.2 ONLY) 4. Copy
your favourite word processor onto the disc. 5. Copy COBOL.COMrted into machi
ne code using a Cobol compiler, so the basic word processing skills covered
last month will be needed. ALL the examples in this series were written
using VDE266 (the Public Domain word processor) and the Public Domain versio
n of COBOL. Any word processing references will refer to VDE266. BACKGROUN
D. COBOL is an acronym of COmbined Business Oriented Language and is one
of the oldest computer languages. Its demise has been predicted every year
for as, COBOL.OVR, EXEC.COM & EXEC.OVR onto the new disc. You should print ou
t a copy of the documentation files at this stage, you will need it to look at
the error codes and the correct syntax for the commands used. You are n
ow ready to start programming in Cobol. COBOL PROGRAM OUTLINE. Cobol p
rograms are split into 4 divisions, these are IDENTIFICATION DIVISION (W
hat the program does, the author's name, date written, etc) ENVIRONMENT DIVI
SION (The c far back as I can remember but it is still in common use. COB
OL has retained it's popularity over the years because it is easy to learn a
nd use, and it can easily be transferred to a different computer system.
GETTING STARTED. To start programming in Cobol you need a Word proc
essor and a Cobol compiler. You can use either one of the commercial packag
es or a Public Domain packages sucjh as VDE266. Whichever package you chose
it must be capable of producinomputer the program was written for, files the pr
ogram uses etc.) DATA DIVISION (File descriptions, declaring and dimensio
ning variables, etc.) PROCEDURE DIVISION (The Cobol program) Notes
Each of the divisions is subdivided into sections. Cobol programs are wr
itten as text files and must be saved to disc with the extension .CBL Ie 'fi
lename.CBL' Spelling must be accurate. Cobol programs do not use line nu
mbers, the instructions are written in procedures (paragraphg pure ascii files
. COBOL comes complete with an extensive 21 page document file. Why do you
need a word processor well the answer is that Cobol programs are written as
text files. The text file are then compiled by Cobol into a Cobol program. The
original text file is referred to as the source code, and the compiled progra
m is referred to as the object code. The Cobol compiler consists of four sepa
rate programs, a document file and five example text files. COBOL .COM 1
4k Cobol co Rs), the procedures are followed sequentially. Each procedure
is subdivided into sentences, and each sentence is terminated with a fu
ll stop. Cobol instructions must be written using UPPER CASE letters only.
Cobol programming refers to numeric and string variables as IDENTIFIERS. Cob
ol programming refers to strings of text as LITERAL'S, literal's are enclose
d in 'single quotation' marks, not "double quotation" marks as used in Basic pr
ogramming. EXAMPLE PROGRAM. to disc as 'filename.LST', this is a text
file which can be loaded and studied using the word processor. Full detai
ls of the error codes can be found in the Cobol documentation file. Errors mus
t be corrected before you run the program. RUNNING A COBOL PROGRAM. W
hen you have successfully compiled the program the disc will contain three
files, EXAM-1.CBL (The original text file) EXAM-1.LST (Error message
file) EXAM-1.CIN (The compiled code) Confused, don't worry, we will
learn Cobol programming by examining example programs which will show the
syntax of the Cobol instructions, and the effect the instructions have. By
reading through the program and watching the effect the program instruction
have you will very quickly develop an understanding of what is happening. T
his short Cobol program prompts you to enter a name, and then displays the n
ame that you have entered on the screen. IDENTIFICATION DIVISION. To run y
our compiled program, return to the A prompt of CP/M+. Then type, EXEC EXAM-
1 (then press the RETURN key) This will display the following messages,
'NPS MICRO-COBOL LOADER VERS 2.1' 'EXAM-1 Loading' 'Loading Completed' 'NP
S MICRO-COBOL INTERPRETER VERS 2.1' Your program will then run, the program s
hould display the message, 'Please Enter Your Name.' '' The '' is the p
rompt for you to enter your name. You should enter your name and the press t
he RETURN key. The PROGRAM-ID. Example One. AUTHOR. C R Bellaby.
DATE-WRITTEN. 15/9/89. SECURITY. None. * ENVIRONMENT DIVISION. CO
NFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Ams
trad 6128. * DATA DIVISION. WORKING-STORAGE SECTION. 01 NAME PIC X(80)
. * PROCEDURE DIVISION. PARAGRAPH-ONE. DISPLAY 'Please Enter Your Name'.
ACCEPT NAME. DISPLAY 'Hello! ' NAME. STOP RUN. Program Notes
1. Use your CP/M word processor to enter and save program will then display,
'Hello!' "followed by the name you entered" The program will then stop and
display the message, '0 Execution Error(s) The program has now been succe
ssfully run, and you should have a good idea of the relationship between the DI
SPLAY, ACCEPT and STOP RUN commands and the effect that they have in Cobol pro
gramming. When you have successfully compiled and run a program you can erase t
he 'filename.LST' file. PROGRAM TWO. This program is a extenthe text a
s EXAM-1.CBL 2. When entering the program you should set the left hand margin t
o 1. 3. DIVISION and PROCEDURE headings must start in column 1. Explanation
Of The Instructions. NAME is an alpha/numeric identifier DIMensioned to 30 ch
aracters. Placing a * in column 1 of the text file has the effect of making t
he rest of that line into a remarks statement. Cobol Command Basic Equi
valent. DISPLAY PRINT or ACCEPT INPUT STOP RUN
END * sion to the first program, it introduces a new instru
ction, GO which is similar to the Basic command GOTO. IDENTIFICATION DIVISION
. PROGRAM-ID. Example Two. AUTHOR. C R Bellaby. DATE-WRITTEN
. 15/9/89. SECURITY. None. * ENVIRONMENT DIVISION. CONFIGURATION SECT
ION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. * D
ATA DIVISION. WORKING-STORAGE SECTION. 01 NAME PIC X(80). * PROCEDURE
DIVISION. * ENTERNAME. DISPLAY 'Please Enter Y REM or ' COMPI
LING EXAM-1.CBL. To compile the Cobol program, exit from VDE using ESC X
this will return you to the A prompt. Then type, COBOL EXAM-1 (and then p
ress the RETURN key) If you have typed the program correctly, the program wil
l be compiled, and you will see the message, '0 program error(s)'. If an
error is found whilst the program is being compiled then an error message w
ill be displayed upon the screen. Error messages are also save Rour Name'.
DISPLAY ' '. ACCEPT NAME. * SHOWNAME. DISPLAY 'Hello! ' NAME. DIS
PLAY ' '. GO ENTERNAME. Program Notes The GO command has the same effe
ct as the Basic command GOTO, it instructs the computer program to move directl
y to the start of the named procedure. Procedures can be given any name (do
not use reserved words), the name must not include spaces, must have a full
stop at the end, and must start in column one. This program is a continuous
loop, which m language specially written for business applications. C
obol was written in the sixties and is a fully standardised language. COMPIL
ER. Program (such as Cobol & Pascal) which translates a high level compute
r languages into machine code. CP/M. Control Program for Microprocessors,
CP/M it is not a computer language but it provides a standard framework in
which computer languages operate. G.C.E. An old exam (General Certificate
of Education) HIGH LEVEL LANGUAGE. COBOLeans that you need to press CTRL
C to abort the program and return to CP/M. Pressing CTRL C has the same effe
ct as pressing the ESC key in Basic programming. Compile and run the second p
rogram. The program will display the enter name message, prompt you to en
ter a name, display the name entered and the jump back to the ENTER-NAM
E procedure and repeat the process, on and on ... PROGRAM THREE. Prog
ram two has a problem, you cannot expect the average user to kno, BASIC and PASC
AL are examples of high level computer languages. High level languages use
English based instructions. Ie WHILE count 30 (Basic) PERF
ORM wage-calculations UNTIL last-record "end " (Cobol) LOW LEVEL L
ANGUAGE. Languages which use mnemonics as instructions. The mnemonics ar
e then converted into machine code using an assembler such as Maxam. OBJECT
CODE. The name given to the machine code produced by a compiler or assembler
. SOURCE COw that pressing CTRL C will terminate the program. This proble
m is easy to get round because Cobol has an instruction which displays a messag
e asking the user if they wish to terminate the program. So lets get back in
to VDE to enter program three. IDENTIFICATION DIVISION. PROGRAM-ID. Exa
mple Three. AUTHOR. C R Bellaby. DATE-WRITTEN. 15/9/89. SECURI
TY. None. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPU
TER. Amstrad 6128. OBJECT-COMPUTER. AmstraDE. The source code is the Engl
ish based high level language instructions. WACCI. A high level computer c
lub. HOMEWORK. Have a good read of the Cobol documentation file, and
practice using the four instructions covered this month. Clive Bellaby, 1
2, Trafalgar Terrace, Long Eaton, Nottingham NG10 1GP. ** END OF SERIES.PT1
** 9. SECURITYd Business Oriented Language and is one of the oldest com
puter languages. Its demise has been predicted every year for asd 6128. *
DATA DIVISION. WORKING-STORAGE SECTION. 01 NAME PIC X(30). * PROCEDURE
DIVISION. * ENTERNAME. DISPLAY 'Please Enter Your Name'. DISPLAY ' '.
ACCEPT NAME. * SHOWNAME. DISPLAY 'Hello! ' NAME. DISPLAY ' '.
STOP 'End Of Routine'. GO ENTERNAME. Compile and run the program, and
you will notice that that STOP command used in the format will halt the pr
ogram and display this message on the screen, 'OPERATOR ENTER A CR TO CONT
INUE OR ENTER AN S TO END' The program now waits until th
e operator presses the RETURN key, in which case the program loops back to the
start, or the operator enters an upper case S to end the program, when the f
ollowing message is displayed on the screen, '0 Execution Error(s)' If t
he operator presses any of the other other keys then the key pressed will be
displayed on the screen but it has no effect on program. DEFINITIONS.
COBOL. A high level computer R THE COMPLETE COBOL PRO
GRAMMING SERIES By Clive Bellaby
Copyright Clive Bellaby & WACCI PART TWO GE
TTING BETTER YOUR QUERIES ANSWERED. Several of you have asked why I
used VDE and not VDE266 for producing the Cobol text files. VDE266 is a much
improved version of VDE, but VDE and Cobol come packaged together on CPM disc
eight, so it made sense to keep then togeth Ie. IDENTIFICATION DIVISIO
N. PROGRAM-ID. Example Four. * * Written By C R Bellaby * 12,
Trafalgar Terrace * Long Eaton * Nottingham *
NG10 1GP * * Copyright CRB Computers Ltd * October 1990
When using '*'s you do not need a full stop at the end of the line. In all oth
er cases a full stop must be used. PROGRAM FOUR. This program prompts
you to enter five names, displays the names you have entered ander. Another
popular question was could you use any word processor to produce your Cobol
text (source) files, yes Protext, Tasword, Pyraword etc can be used but the fi
le must be saved to disc as an ascii file. Life is easier if you use a word p
rocessor which operates under CP/M+ as this avoids the constant need to keep l
oading CP/M+ to compile and test your program. Steve asks, when I have succ
essfully compiled and run a program which files do I need to keep Well Steve
, after you have then ends. IDENTIFICATION DIVISION. PROGRAM-ID. Exampl
e Four. * * This program prompts you to enter five names and then ends. * EN
VIRONMENT DIVISION. * CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128.
OBJECT-COMPUTER. Amstrad 6128. * DATA DIVISION. * WORKING-STORAGE SECTIO
N. 01 NAME PIC X(30). * PROCEDURE DIVISION. * ENTERNAMEONE. DISPLAY
'Please Enter Name 1'. DISPLAY ' '. ACCEPT NAME. DISPLAY 'Hello! ' NAM
E. DISPLAY ' '. * ENTER-NAME-TWO. DISPL compiled and run your program y
ou will have three files on your disc, 'filename.CBL' 'filename.LST' 'fi
lename.CIN' You need the .CBL and the .CIN files but you can erase the .LST f
ile. Erasing files using CP/M takes the format, ERA filename.ext Be ca
reful when using the ERAse command, you are not asked to confirm your selection
. ON WITH THE SHOW. Last month we started programming in Cobol wit
h three simple programs these introduced you to the format AY 'Please Enter N
ame 2'. DISPLAY ' '. ACCEPT NAME. DISPLAY 'Hello! ' NAME. DISPLAY '
'. * ENTER-NAME-THREE. DISPLAY 'Please Enter Name 3'. DISPLAY ' '. AC
CEPT NAME. DISPLAY 'Hello! ' NAME. DISPLAY ' '. * ENTER-NAME-FOUR. DI
SPLAY 'Please Enter Name 4'. DISPLAY ' '. ACCEPT NAME. DISPLAY 'Hello!
' NAME. DISPLAY ' '. * ENTER-NAME-FIVE. DISPLAY 'Please Enter Name 5'.
DISPLAY ' '. ACCEPT NAME. DISPLAY 'Hello! ' NAME. DISPLAY ' '. * TH
E-END. STOPthat Cobol programs follow. This month will continue along the sa
me lines by introducing you to new commands, each of which will be illustra
ted with an example program so that you can see what the command does. I fi
nd that the easiest method of learning a new language is to write simple p
rograms to check the syntax of commands and to see what the do. THE IDENTIF
ICATION DIVISION. The format for the identification division is, IDENTIFIC
ATION DIVISION. PROGRAM-ID. comments. RUN. Program Notes This works
but is time consuming to write and debug, so lets look at ways in which the p
rogram can be improved. PROGRAM FIVE. To improve program four we set u
p a counter to count the number of names entered, and use a subroutine for t
he common parts of the program. To do this we need to use three new commands,
these are, ADD, MOVE and PERFORM. ADD does as its name suggest it adds a valu
e to an identifier (variable). MOVE is similar to LET in AUTHOR. comm
ents. DATE-WRITTEN. comments. SECURITY. comments. Those commands whic
h are optional have been identified by enclosing them within square brackets
. The full stops are essential. The identification division provides infor
mation on the program identity, and it is good programming practice to complet
e this section. If you wish to include detailed comments then you can p
lace a '*' in column one, this causes the rest of the line to be treated as com
ments. RBasic, the command moves a value or literal (string) into an identi
fier. PERFORM is similar to GOSUB in Basic, and allows you to repeat a proced
ure (paragraph). The revised program sets up a count routine which will al
low the user to enter five names before the program terminates. IDENTIFICA
TION DIVISION. PROGRAM-ID. Example Five. * * This program allows you to e
nter five names, displays the name then ends. * ENVIRONMENT DIVISION. CONFIGU
RATION SECTION. SOURCE-COMPUTER. Amstrare still used but now have no effe
ct on how many times the procedure is completed. LEVEL NUMBERS. LEFT$
, RIGHT$ and MID$ are used to split variables in Basic, don't try to use these
in a Cobol program they will not work. An identifier (variable) in Cobol
is declared and dimensioned in the WORKING-STORAGE SECTION of the program as
, 01 NAME PIC X(30). To split the value entered we use different level n
umbers. 01 NAME. 03 NAME-A PIC X(10). 03 NAME-B ad 6128. OBJECT-CO
MPUTER. Amstrad 6128. * DATA DIVISION. WORKING-STORAGE SECTION. 01 NAME P
IC X(30). 01 COUNT PIC 9. * PROCEDURE DIVISION. * START. MOVE 0 TO COU
NT. DISPLAY 'Please Enter 5 Names'. DISPLAY ' '. PERFORM ENTER-NAME UNT
IL COUNT EQUAL 5. STOP RUN. * ENTER-NAME. ADD 1 TO COUNT. DISPLAY 'Na
me ' COUNT. ACCEPT NAME. DISPLAY 'Hello! ' NAME. DISPLAY ' '. Progr
am Notes The MOVE command is used to initialise the value of the iden
tifier (vPIC X(20). Where 01 and 03 are the level numbers, we can now use,
DISPLAY NAME. This displays all of the contents of the identifier. Or we
can use, DISPLAY NAME-A. This displays the first 10 bytes of the contents
held in the identifier. Or we can use, DISPLAY NAME-B. The displays th
e contents of the last 20 bytes of the identifier. You may use 10 different l
evel numbers, each level number can range from 01 to 99, although in practic
e I have never used more than 5 differeariable) count. The PERFORM comman
d instructs the program to complete the procedure (paragraph) called ENTE
R-NAME until the value of the identifier reaches the specified value. In thi
s case the value is set to 5. The ADD command is used to add 1 to the id
entifier each time that the procedure is performed this acts as a counter.
PROGRAM SIX. We can use a variation of the PERFORM command to obtain the s
ame results. IDENTIFICATION DIVISION. PROGRAM-ID. Examnt levels to sub-
divide an identifier. A typical example, 01 TOTAL-RECORD. 03 NAME
PIC X(30). 03 ADDRESS. 05 LINE-1 PIC X(30). 05 LINE-2
PIC X(30) 05 LINE-3 PIC X(30). 03 POST-CODE PIC X(10). 03
PHONE PIC 9(6). 03 D-OF-B PIC 9(6). 03 AGE PIC 9(
3). 03 DATE-START PIC 9(6). We can now refer to individual identifiers
or to the whole record with DISPLAY TOTAL-RECORD. or DISPLAY AGE. It i
s standard pple Six. * * This program allows you to enter five names, displays
the name then ends. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE
-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. * DATA DIVISION. W
ORKING-STORAGE SECTION. 01 NAME PIC X(30). 01 COUNT PIC 9. * PROCEDURE
DIVISION. * START. MOVE 0 TO COUNT. DISPLAY 'Please Enter 5 Names'. D
ISPLAY ' '. PERFORM ENTER-NAME 5 TIMES. STOP RUN. * ENTER-NAME. ADD 1
TO COUNT. DISPLAY 'Name ' COUNT. ACCEractice to use level numbers 01,
03, 05 etc. as this allows you to add new levels at a later date. PICTU
RE CLAUSES. The PIC clause is used to dimension the identifier to a specifi
c number of bytes, and to declare the variable as either numeric or alpha numer
ic. PIC 9 is numeric. PIC X is alpha numeric (string). rather than writ
ing, PIC XXXXXXXXXXXXXXX. we can use, PIC X(15). to dimension the id
entifier to 15 bytes of alpha numeric data. DocumentationPT NAME. DISPLAY
'Hello! ' NAME. DISPLAY ' '. Program Notes. This program is similar to
program five, so rather than typing the whole lot in again, use VDE to load
the text file, use ESC N to rename the file, amend the text, use ESC X to save
the file to disc. The PERFORM command has been used in a different way to p
roduce the same result. In this program the PERFORM command instructs the
program to complete the procedure called ENTER-NAME 5 times. The ADD and MO
VE commands R Error. There is an error in the Cobol documentation fil
e, according to the documentation you are limited to a maximum PIC size of 30
(thirty) bytes, this is not correct the maximum number of bytes you can use
in a PIC is limited only by the amount of free memory, however a maximum siz
e of 80 bytes is suggested as this matches the screen width in mode 2. PR
OGRAM SEVEN. This program illustrates how level numbers are used. IDENTI
FICATION DIVISION. PROGRAM-ID.MPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstr
ad 6128. * DATA DIVISION. WORKING-STORAGE SECTION. 01 NAME. 03 NAME-TEST
PIC X(3). 03 REST-NAME PIC X(27). * PROCEDURE DIVISION. * START. PER
FORM ENTER-NAME UNTIL NAME-TEST EQUAL 'END'. STOP RUN. * ENTER-NAME. DIS
PLAY 'PLEASE Enter A Name Or Enter END to Finish.'. DISPLAY ' '. ACCEPT N
AME. DISPLAY 'Hello! ' NAME. DISPLAY ' '. By using the revised PERFORM
command we now have a fourth method of completing a loop Example Seve
n. * * This program shows how level numbers are used. * ENVIRONMENT DIVISION
. CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER.
Amstrad 6128. * DATA DIVISION. WORKING-STORAGE SECTION. 01 TOT-REC. 03 NA
ME PIC X(30). 03 ADDRESS. 05 LINE-1 PIC X(30). 05 LINE-2
PIC X(30). 05 LINE-3 PIC X(30). * PROCEDURE DIVISION. * ENTER-NAME.
DISPLAY 'Please Enter Your Name'. DISPLAY ' '. ACCEPT NAME. DISPLAY '
'. * ENTER-ADDwithin a Cobol program. IDENTIFIER VALUES. When data
is entered from the keyboard and stored in an identifier by using the ACCE
PT command, then the balance of the identifier is filled with spaces. Wh
at! Let me use this short example to show what I mean, 01 NAME PIC X(30).
If the name entered is 'FRED' this will occupy the first four bytes of the i
dentifier, and the remaining 26 bytes of the identifier will be filled with
spaces. This is different frRESS. DISPLAY 'Enter Address Line 1'. DISPL
AY ' '. ACCEPT LINE-1. DISPLAY ' '. * DISPLAY 'Enter Address Line 2'.
DISPLAY ' '. ACCEPT LINE-2. DISPLAY ' '. * DISPLAY 'Enter Address L
ine 3'. DISPLAY ' '. ACCEPT LINE-3. DISPLAY ' '. * * Display details
entered * SHOW-DETAILS-ENTERED. DISPLAY 'Address Line 1 ' LINE-1. DISPL
AY ' Line-2 ' LINE-2. DISPLAY ' Line-3 ' LINE-3. DISPLAY '
'. * DISPLAY 'All The Details ' TOT-REC. DISPLAY ' om the method that Ba
sic uses. Let me use a second example to demonstrate the problems caused.
Amend program eight as follows, WORKING-STORAGE SECTION. 01 NAME. 03 NAME
-TEST PIC X(4). 03 REST-NAME PIC X(26). Then compile the program. Whe
n the program is compiling you will be notified of an IT error because the per
form command is now trying to compare a four byte identifier with the three b
yte literal 'END'. The compiler is telling you that these will never match
when the PE'. * DISPLAY 'Your Name is ' NAME. DISPLAY ' '. * STOP
RUN. Program Note. This is not the quickest method of writing the progra
m, this example has been written so that it is easy to follow and understand.
PROGRAM EIGHT. Program eight continues the theme of entering and displ
aying names, but a new concept is used. The identifier NAME has been split
into two new identifiers by using level numbers. The new identifiers are N
AME-TEST and REST-NAME. TRFORM command is testing for a match. The identi
fier has been packed with spaces so it actually contains 'END '. If you run t
he program you will find that you are stuck in an endless loop, so press C
TRL C to abort it. Let us correct this error and help your understanding of t
he situation. Amend the PERFORM command to, PERFORM ENTER-NAME UNTIL NAM
E-TEST EQUAL 'END '. and compile the program. The IT error no longer exist
s as both the identifier and the literal have the same numhe PERFORM command h
as been amended to allow the ENTER-NAME procedure to be repeated until the fir
st three characters entered are 'END'. The identifier NAME-TEST is used to al
low the testing of these characters. Please note that 'END' must be typed in
capital (upper case) letters. IDENTIFICATION DIVISION. PROGRAM-ID. Examp
le Eight. * * This program allows you to enter names, displays the name, and e
nds * when 'END' is entered. * ENVIRONMENT DIVISION. CONFIGURATION SECTION.
SOURCE-CO Rber of bytes. Run the program again, and once again we are
back to the situation in which when you type 'END' the program ends. HOM
EWORK. You cannot learn a new language by either reading this series, or g
etting a good book out of the library. You must use the examples in the Cobo
l documentation file and the examples in this series to increase your understan
ding, and when you feel that you understand a command use the command in your
own programs to test that you are core, so either erase your unwanted files or
transfer some of the files onto a spare disc. HERE WE ARE AGAIN (as happy
as can be) This month we are looking at screen handling and sequential
files, but first another variation of one of last months programs. PROGRAM
NINE. You were introduced to the concept of level numbers for identifier
s last month, these have another use, when an identifier is declared a
nd dimensioned irect. Your task, should you accept this mission, is to writ
e a series of simple programs to try out the Cobol commands covered to date. Yo
ur computer will self destruct in six seconds. Clive Bellaby, 12 Trafalgar
Terrace, Long Eaton, Nottingham, NG10 1GP ** END OF SERIES.PT2 ** SERIES
.PT2 ** * This program prompts you to enter five names and then ends. * ENVIe
d. PROGRAM FOUR. This program prompts you to enter five names, displa
ys the names you have entered andn the WORKING-STORAGE SECTION of your program
then you can at the same time fill the identifier with a value or literal. P
rogram nine shows how this is done. IDENTIFICATION DIVISION. PROGRAM-ID.
Example Nine. * * This program demonstrates the use of PIC/VALUE's clause in
the * WORKING-STORAGE SECTION. * ENVIRONMENT DIVISION. CONFIGURATION SECTIO
N. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. * DATA
DIVISION. WORKING-STORAGE SECTION. 01 PAGE-HEADING. 03 LINE-1 PIC X(1) VAL
UE ' '. 03 LINE-2 PIC X(7) VALUE 'Line 2 '. 03 LINE-3 PIC X(7) VALUE 'Li
ne 2 '. 03 LINE-4 PIC X(7) VALUE 'Line 3 '. 03 LINE-5 PIC X(7) VALUE 'Li
ne 4 '. 03 LINE-6 PIC X(7) VALUE 'Line 5 '. 03 LINE-7 PIC X(7) VALUE 'Li
ne 6 '. * PROCEDURE DIVISION. * START. DISPLAY LINE-1. DISPLAY LINE-2.
DISPLAY LINE-3. DISPLAY LINE-4. DISPLAY LINE-5. DISPLAY LINE-6.
DISPLAY LINE-7. Program Notes The identifiers line-1 to line-7 have been
declared and di THE COMPLETE COBOL PROGRAMMING SERIES
By Clive Bellaby Copyright Cl
ive Bellaby & WACCI PART THREE FILED AGAIN (Don't Screen)
INTRODUCTION. Yes, here we are yet again, with the third instalmen
t in the fun packed Cobol programming series. This month we are looking scre
en displays and sequential files using Cobol. YOUR QUERIES ANSWERED.
Dear Maggie, mensioned and given a value as part of the WORKING-STORAGE SECTIO
N. When displaying the contents of an identifier on the screen you can use the
DISPLAY command in two different ways, DISPLAY LINE-1. DISPLAY LINE-2. DIS
PLAY LINE-3. Etc This displays the contents of the identifier at the
current cursor position and then the cursor moves down onto the next line.
DISPLAY LINE-1 LINE-2 LINE-3. This displays the contents of the identifier
s, and only move onto the next line when tCobol is unable to help you in rega
ining you lost popularity. Dear Dennis, your hair loss is nothing to do with
acid rain. Peter asks, do I have to compile a Cobol program each time that I
want to run it. No. Once you have successfully compiled a program you can ru
n it by using, EXEC 'filename' Another query from Peter, when I compile a pr
ogram using, COBOL file.CBL, I get the error message MA, what is happening.
The MA error message is telling you that you disc does is short of spac R
he right hand edge of the screen is reached. Try this out using program nine.
FULL STOPS. Several readers have run into problems by not putting a
full stop at the end of the line, as previously stated this can cause many prob
lems. To show you what I mean, go back into VDE, load one of your exam
ple programs and then erase the full stop at the end of line two, so it now
looks like PROGRAM-ID. Example Nine Then compile the program, you will
notice a change. Mihe position specified by r (row) and c (colu
mn). Unlike Basic, you have to add 32 (&20) to the row and column numbers th
at you want to use, then enter the values that you are going to use as
characters. Ie. Row 10, Column 20 Add 32 to the row number, giving 42, lo
ok at the ascii code table (chapter 7, page 8) of your manual, 42 is a "*".
Add 32 to the column number, giving 52, check the ascii code table again, 52 i
s a "4". So to move to row 10, column 20, we use, ssing out the full stop wi
ll cause approx 2,500 errors to be reported by the compiler, these errors will
take about twenty minutes to list out. If you like watching paint dry you w
ill enjoy watching them listed on the screen, if you prefer to abort the progra
m then, Press CTRL & S to stop the listing. CTRL & C to abort th
e compiler. Several other CP/M commands are worth remembering, Ctr
l & Q - Resume the screen output Ctrl & P - Echos screen output to a pr
inter ESC "Y*4" The top left hand corner of the screen is row 0, colum
n 0. The bottom right hand corner (when in mode 2), is row 24, column 79.
SCREEN HANDLING - THE PROBLEM. Word processors do not let you enter an ESC
character as part of the text, so we need an alternative method of introducing
the ESC character into the text file. SCREEN HANDLING - THE SOLUTION. T
o get the ESC character into the text file we need to g. When you do this
correctly you get a nice beep. Press control + P again
to switch this feature off. Ctrl & - Escape (well worth remember
ing) The 6128 manual contains a full list and explanation of the control code
s. (OMG enjoyed this bit as he is forever telling me that punctuation and
spelling are important.) SCREEN HANDLING INTRODUCTION. Screen handling
using this public domain version of Cobol is messy ano back into Basic and
write a short program to store the ESC character as a text character. This p
rogram stores ESC "E" ESC "H" to disc as a text file called "CLS". ESC "E" ES
C "H" have the same effect under CP/M as CLS does in Basic. 10 OPENOUT "CLS"
20 PRINT #9,CHR$(27)"E"CHR$(27)"H" 30 CLOSEOUT 40 END You may be wondering
what the ESC character looks like when using VDE, well it is the left hand
square bracket "" in inverse video mode. Now back to CP/M and enter the VD
E word long winded. The next section explains what the problem is, and the be
st method of overcoming the problem. The screen handling control codes under
CP/M are issued as ESC commands, these are fully explained in chapter seve
n, page 48 of your Amstrad 6128 manual. The main control codes are, ESC "
E" Clear the screen. ESC "H" Move the cursor to the home position,(
line 0, column 0). ESC "b" n Set the ink to colour n. ESC "c" n Set
the paper to colour n. ESC "p" d processing program. Press ESC then R,
This will prompt you to enter the name of a file that you wish to merge at t
he current cursor position. Type in CLS, then press the RETURN key. This will
load the ESC "E" ESC "H" characters at the current cursor position. You can u
se this method to load the CLS characters into the text file each time that you
need them. USING THE SOLUTION. Type in program nine using VDE, and a
mend the the WORKING-STORAGE SECTION to include t Inverse video ON (swaps the
pen and paper colours). ESC "q" Inverse video OFF. ESC "3" n Set t
he screen mode to n. (n is the screen mode plus 32) Therefore m
ode 0, n32 mode 1 n33 mode
2 n34 Changing the mode under CP/M does not move the cursor to the
home position, so to use this command in the same way as Basic we need to ad
d ESC "H" to the control code sequence. ESC "Y" r c Move the cursor to t
Rhis new line. 01 PAGE-HEADING. 03 CLS PIC X(4) VALUE ' 03 LINE-
1 etc Then position the cursor at the end of the new line, and use the E
SC R command to merge the CLS text file. The line will now look like this,
03 CLS PIC X(4) VALUE 'EH Add the single quotation mark and the full s
top to give, 03 CLS PIC X(4) VALUE 'EH'. Then amend the PROCEDURE
DIVISION to DISPLAY the new identifier. PROCEDURE DIVISION. * START. DIS
PLAY CLS. DISPLAY LINE-1. THE INTRODUCTION. Cobol supports both Sequen
tial and Random access file handling. Sequential files are opened as either I
NPUT or OUTPUT, Random access files are opened as INPUT-OUTPUT. Cobol allows
you to have more than one file open at the same time, Basic restricts you to
having only one file open at any point in time. PROGRAM TWELVE. This
program asks you to enter names then stores the names to disc in a data file
. The program etc. Then compile and run the program. When you compile th
e text file the control characters that you are using will be actioned as the
program compiles. So half way through compiling this program the screen wil
l be cleared (do not worry about this). When you run the program the screen
will be cleared and the cursor moved to the home position before the text is
displayed on the screen. Go on, try it, I'll wait here for you....... Ok, Hap
py that it works If this does not work, introduces you to more new sections
and commands. INPUT-OUTPUT SECTION. This forms part of the ENVIRONMENT DI
VISION, and allows you to specify the 'filename'. Format INPUT-OUTPUT SECTI
ON. FILE-CONTROL. SELECT 'program file name' ASSIGN
'disc file name'. Disc files are allocated two names, A The n
ame that the file is referred to in the program. B The name that the file is sa
ved to the disc as. FILE SECTION. The FILE SECTION read through thi
s section again, and do it correctly the second time. CONTINUING THE S
OLUTION. We now have to create a range of text files to cope with the o
ther ESC codes that we want to use in the program. I save these to disc wi
th a similar name to their Basic equivalents or a meaningful file name. Ie M
ODE-0 PEN PAPER LOCATE INVERSE.ON INVERS
E.OFF etc This Basic program sets up the control codes to cforms part
of the DATA DIVISION and contains the file description (FD). Format. FIL
E SECTION. FD filename. 01 identifier. 03 identi
fier PIC X(30). 03 identifier PIC X(32). etc WRITE.
Write a record to the disc file, the records are stored is ascii format.
Format. WRITE identifier. The identifier that is written to disc is th
e identifier that has been specified in the FILE SECTION with the 01 level numb
er. IF...hange the screen mode to mode 1 and positions the cursor at the h
ome position. The home position is the top left hand corner of the screen (row
0, column 0). 10 OPENOUT "MODE-1" 20 PRINT #9,CHR$(27)"3""!"CHR$(27)"H" 30
CLOSEOUT 40 END The text files containing these examples are available
from the FSW library under Example1.CBL ANOTHER SOLUTION. We have t
o use this solution because of the limitations imposed by the public domain
version of Cobol, howe.END-IF. The IF command works is a similar manner
to IF in Basic, the IF statement must be concluded with an END-IF command. N
ested IF commands are supported. LISTING FOR PROGRAM TWELVE. IDENTIFICAT
ION DIVISION. PROGRAM-ID. Example Twelve. * * This program allows you to
input names, then stores the names entered * in a disk file called NAMES.DAT.
* ENVIRONMENT DIVISION. * CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad
6128. OBJECT-COMPUTER. Amstrad 6128. * ver if you decide to buy a better
implementation of the language, you should check that it has better screen ha
ndling. The Microsoft version of Cobol supports full screen handling, printi
ng of text and multiple file handling. Check what you are getting before you
buy, mistakes can be expensive. HOMEWORK ONE. Have a go at creating t
he text files for the other useful CP/M control commands. Then amend some o
f your existing programs to try them out. FILE HANDLING - R INPUT-OUTPUT S
ECTION. FILE-CONTROL. SELECT NAME-FILE ASSIGN NAMES.DAT. * DATA DIVISION.
* FILE SECTION. FD NAME-FILE. 01 NAME-TO-STORE. 03 NAME PIC X(30).
* WORKING-STORAGE SECTION. * 01 REPLY PIC X. * PROCEDURE DIVISION. *
START. OPEN OUTPUT NAME-FILE. * ENTER-NAME. DISPLAY ' '. DISPLAY 'P
lease Enter A Name'. DISPLAY ' '. ACCEPT NAME. * WRITE-NAME-TO-DISC.
WRITE NAME-TO-STORE. * CONTINUE-YES/NO. MOVE ' ' TO REPLY. DISPLAY 'Ente
r C to Continue, value you are testing for. If you run program thirteen (12
a) twice it will operate correctly, however if you remove the MOVE ' ' TO FILE-
TEST command and compile the program on the second occasion that it is run
it will not work correctly because FILE-TEST still contains the 'E' from the t
he first time that it was run. Try it to see what I mean. One new command
has been used, READ 'file' END 'statement'. Format READ 'file' instruct
s the computer to read a record from the speEnter E to End'. * ACCEPT-REPL
Y-ENTERED. ACCEPT REPLY. IF REPLY EQUAL 'C' GO ENTER-NAME END-IF.
IF REPLY EQUAL 'E' GO END-PROGRAMME END-IF. GO CONTINUE-YES/NO. * END-PRO
GRAMME. CLOSE NAME-FILE. STOP RUN. Type in, compile and run the program
you will now have a new text file on your disc call NAMES.DAT. The text fi
le can be loaded into the word processor and examined to check that it has
been correctly created. Please note, running the program a second time does n
cified file into the computers memory. END 'statement' The 'statement' is
made up of Cobol commands, which are carried out when you reach the end of t
he file. Ie. END MOVE 'F' TO FLAG. END GO CLOSE-FILES. END DISPL
AY 'End Of File Reached'. END PERFORM CLOSE-FILES GO TO-START. etc.
HOMEWORK TWO. Examine the example programs supplied with the Cobol c
ompiler, then read through the manual and get to know the commands. Clive Be
llaby, 12 Trafalgarot add records to the existing data file, but erases the ori
ginal file and saves a new file to disc with the new names entered. PROG
RAM THIRTEEN (If you are superstitious then call this program 12A). Program
thirteen loads the file that you have created using program twelve, rea
ds through the file and displays the contents of the file on the screen.
IDENTIFICATION DIVISION. PROGRAM-ID. Example Thirteen. Terrace, Long Eaton
, Nottingham, NG10 1GP ** END OF SERIES.PT3 ** 0 1GP ** END OF SERIES
.PT3 ** ins a full list ture off. Ctrl & - Escape (well worth remembe
ring) The 6128 manual contains a full list and explanation of the control cod
es. (OMG enjoyed this bit as he is forever telling me that punctuation and
spelling are important.) SCREEN HANDLING INTRODUCTION. Screen handlin
g using this public domain version of Cobol is messy an * * This program op
ens the data file NAMES.DAT, then reads the file and * displays the contents on
the screen. * ENVIRONMENT DIVISION. * CONFIGURATION SECTION. SOURCE-COMP
UTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. * INPUT-OUTPUT SECTION.
FILE-CONTROL. SELECT NAME-FILE ASSIGN NAMES.DAT. * DATA DIVISION. * FILE
SECTION. FD NAME-FILE. 01 STORED-NAME. 03 NAME PIC X(30). * WORK
ING-STORAGE SECTION. * 01 FILE-TEST PIC X. * PROCEDURE DIVISION. * STA
RT. OPEN THE COMPLETE COBOL PROGRAMMING SERIES
By Clive Bellaby Copyright Clive Be
llaby & WACCI PART FOUR MORE FILING AND SOME PRINTING AS WELL
INTRODUCTION. Yes, yet again you join us at the start of this article,
the weather is warm and sunny, there's a light breeze blowing across the page a
nd we have every chance of getting a good result. This month we have mor
e file handling, more Cobol INPUT NAME-FILE. DISPLAY 'Opening The Data File
'. DISPLAY ' '. * READ-FILE. MOVE ' ' TO FILE-TEST. READ NAME-FILE EN
D MOVE 'E' TO FILE-TEST. IF FILE-TEST EQUAL 'E' GO END-PROGRAMME END-IF. *
DISPLAY-FILE-DATA. DISPLAY NAME. DISPLAY ' '. * JUMP-BACK. GO READ-FI
LE. * END-PROGRAMME. CLOSE NAME-FILE. STOP RUN. Program Notes When
testing identifiers with the IF command, you should always initialise the iden
tifier using the MOVE command with a value other than the Rcommands and we c
reate a print file. So boot up the old CP/M and we'll get started. YOUR
QUERIES ANSWERED. I have been asked how long it takes to write, compile an
d test a program, well programs fifteen and sixteen took me approx 65 minu
tes, which is slightly slower than writing the same program in Basic. (This is
probably because I am not a fast typist) Dear Maggie, I am sorry to have te
ll you that biting your fingernails does disqualify you from becoming a QUAL 'e
' GO CLOSE-FILES END-IF. GO CONTINUE-YES/NO. CLOSE-FILES. CLOSE NAME-FIL
E. CLOSE TEMP-FILE. COPY-NEW-FILE. DISPLAY ' '. DISPLAY 'Copying File.
'. DISPLAY ' '. OPEN INPUT TEMP-FILE. OPEN OUTPUT NAME-FILE. COPY-NEW-
FILE-1. READ TEMP-FILE END GO END-PROGRAMME. MOVE TEMP-NAME TO STORED-NAME
. WRITE STORED-NAME. GO COPY-NEW-FILE-1. END-PROGRAMME. CLOSE NAME-FIL
E. CLOSE TEMP-FILE. STOP RUN. Program Notes 1. The program now uses
more meaningful namevegetarian. Thanxs to Mr I Botham for pointing out th
at CP/M+ is more interesting than English cricket. ESC KEY SEQUENCES AND C
P/M. You can use the ESC key commands at the A prompt to set the mode, cl
ear the screen etc, let's try an example To clear the screen using CP/M 3.1
(plus), press, ESC E ESC H (then press the Return key) To clear the
screen using CP/M 2.2, press, CTRL & L MORE FILE HANDLING. Last mo
nth we us for the identifiers and procedures. Cobol programs are written i
n near English and should be easy to read. 2. The READ 'filename' END c
ommand now uses a different format, when the end of the file is reached th
e program uses a GO instruction to jump to a new procedure. This method is q
uicker in operation but is not as neat 3. The CONTINUE-YES/NO procedure has b
een altered to allow testing of both upper and lower case characters. P
RINTING FILES. This sed Cobol to create and the display a sequential file,
this month we are going one better with a program which adds extra records to
an existing data file. PROGRAM FOURTEEN. IDENTIFICATION DIVISION. P
ROGRAM-ID. Example Fourteen. * This program adds additional names to the data
file NAMES.DAT * * Method - Copy OLD FILE to NEW FILE * - add new nam
es to NEW FILE * - Copy NEW FILE to OLD FILE * ENVIRONMENT DIVISION.
CONFIGURATION SECTION. SOURCE-COMPUTEversion of Cobol does not allow you dir
ect access to the printer, so if we want printed output we have to create an te
xt file with formatted to the layout we need and then use VDE to print out our
data. This method is quite easy to use, and programs 15 and 16 demonstrate the
principles used. PROGRAM FIFTEEN. This program creates the ascii file
needed for program sixteen. IDENTIFICATION DIVISION. PROGRAM-ID. Example
Fifteen. * * This program creates a data file called DR. Amstrad 6128. OBJE
CT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT NAME-
FILE ASSIGN NAMES.DAT. SELECT TEMP-FILE ASSIGN TEMP.DAT. * DATA DIVISION.
FILE SECTION. FD NAME-FILE. 01 STORED-NAME PIC X(30). FD TEMP-FILE. 0
1 TEMP-NAME PIC X(30). WORKING-STORAGE SECTION. 01 REPLY PIC X
. * PROCEDURE DIVISION. OPEN-FILES. DISPLAY ' '. DISPLAY 'Opening The D
isc Files'. OPEN INPUT NAME-FILE. OPEN OUTPUT TEMP-FILE. COPY-OLD-FILE.
READ NATA.DAT which is used in * program sixteen. * ENVIRONMENT DIVISION.
CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Ams
trad 6128. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT NAME-FILE ASSIGN DATA
.DAT. * DATA DIVISION. FILE SECTION. FD NAME-FILE. 01 EMPLOYEE-RECORD. 0
3 NAME PIC X(30). 03 WORK-NUM PIC X(8). 03 DEPT PIC X(
8). 03 DOFB PIC X(8). * because there are no additional identifier
s to be declared we do * need the WORKIAME-FILE END GO ADD-NEW-NAMES. MOVE S
TORED-NAME TO TEMP-NAME. WRITE TEMP-NAME. GO COPY-OLD-FILE. ADD-NEW-NAMES
. DISPLAY ' '. DISPLAY 'Please Enter A Name'. DISPLAY ' '. ACCEPT TE
MP-NAME. WRITE TEMP-NAME. CONTINUE-YES/NO. MOVE ' ' TO REPLY. DISPLAY
'Enter C to Continue'. DISPLAY 'Enter E to End'. ACCEPT REPLY. IF REP
LY EQUAL 'C' GO ADD-NEW-NAMES END-IF. IF REPLY EQUAL 'c' GO ADD-NEW-NAMES
END-IF. IF REPLY EQUAL 'E' GO CLOSE-FILES END-IF. IF REPLY E R
NG-STORAGE SECTION. PROCEDURE DIVISION. OPEN-FILE. OPEN OUTPUT NAME-
FILE. PRINT-INSTRUCTIONS. DISPLAY 'Enter The Following Data'. DISPLAY 'Fo
r Five Employees'. DISPLAY ' '. GET-DETAILS. PERFORM ENTER-DATA 5 TIMES.
CLOSE NAME-FILE. STOP RUN. ENTER-DATA. DISPLAY 'Enter Name'. DISPLA
Y 'max 30 chars.'. ACCEPT NAME. DISPLAY 'Enter Works Number'. DISPLAY '
max 8 chars.'. ACCEPT WORK-NUM. DISPLAY 'Enter Department'. DISPLAY 'ma
x 8 chars.'. ACCEPT DEPT. DISPL. 03 FILLER PIC X(5) VALUE SPA
CE. 03 FILLER PIC X(4) VALUE 'Name'. 03 FILLER PIC X(30)
VALUE SPACE. 03 FILLER PIC X(12) VALUE 'Work No. '. 03 FILLE
R PIC X(12) VALUE 'Dept. '. 03 FILLER PIC X(8) VALUE
'D of B '. 03 FILLER PIC X(9) VALUE SPACE. 01 BLANK-LINE. 03
FILLER PIC X VALUE SPACE. 01 PRINT-LINE. 03 FILLER PIC
X(5) VALUE SPACE. 03 PRINT-NAME PIC X(34) VALUE SPACE. 0AY 'Enter D
ate Of Birth'. DISPLAY 'Format DD/MM/YY'. ACCEPT DOFB. * WRITE EMPLOYE
E-RECORD. PROGRAM SIXTEEN. This program creates the ascii file which
will be printed out using VDE. Program sixteen is quite long so the program n
otes have been interspersed between the program commands. IDENTIFICATION DIV
ISION. PROGRAM-ID. Example Sixteen. * * This program saves a data file to d
isc. The file has been formatted * ready for printing out using VDE * * Metho
d - R3 PRINT-WORK-NUM PIC X(12) VALUE SPACE. 03 PRINT-DEPT PIC X(12) VA
LUE SPACE. 03 PRINT-DOFB PIC X(17) VALUE SPACE. 'PRINT-LINE is a stor
age area which we are using to format the data which will be saved to disc, a
nd then printed out using the word processor.' 01 LINE-COUNT PIC 9(2)
VALUE ZERO. * PROCEDURE DIVISION. START. OPEN OUTPUT PRINT-FILE. OPEN
INPUT NAME-FILE. PERFORM PRINT-PAGE-HEADING. * READ-PRINT. IF LINE-COUNT
EQUAL 12 PERFORM PRINT-END-OF-PAead data file from disc * - Create
an new ascii file * with the page headings and * text ready
formatted for * printing * ENVIRONMENT DIVISION. CONFIGURATION SECT
ION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. INPUT-
OUTPUT SECTION. FILE-CONTROL. SELECT NAME-FILE ASSIGN DATA.DAT. SELECT PR
INT-FILE ASSIGN PRINT.DOC. * DATA DIVISION. FILE SECTION. FD NAME-FILE. 01
EMPLOYEE-RECORD. 03 NAME PIC X(30). 03 WORK-NUM PICGE PERF
ORM PRINT-PAGE-HEADING END-IF. 'The IF statement command instructs the
computer to complete both the PERFORM commands when the value of LINE-COUNT
reaches 12.' 'The value of LINE-COUNT can be set between 0 and 99, LINE-CO
UNT counts the number of lines that have saved to the print file.' * REA
D NAME-FILE END GO END-OF-JOB. * MOVE NAME TO PRINT-NAME. MOVE WORK-NU
M TO PRINT-WORK-NUM. MOVE DEPT TO PRINT-DEPT. MOVE DOFB TO PRINT-DOFB.
'The MOVE commands mo X(8). 03 DEPT PIC X(8). 03 DOFB PIC
X(8). FD PRINT-FILE. 01 BUFFER PIC X(80). WORKING-STORAGE SECTION.
01 TITLE-LINE-1. 03 FILLER PIC X(69) VALUE SPACE. 03 FILLER
PIC X(5) VALUE 'PAGE '. 03 PAGE-NUMBER PIC 9 VALUE ZERO. 'Th
e TITLE-LINE-n identifiers are set up within the W S SECTION with the format a
nd values that are used when saving the ascii file to disc.' 'FILLER is a spe
cial identifier, it is used in the W S SECTION for vve the values from the file
record that has been READ into the W S SECTION, where the area has been forma
tted ready for writing to the print file.' MOVE PRINT-LINE TO BUFFER.
WRITE BUFFER. MOVE BLANK-LINE TO BUFFER. WRITE BUFFER. ADD 2 TO LINE-CO
UNT. GO READ-PRINT. 'We add 2 to LINE-COUNT because we have written two
lines of text to the print file.' END-OF-JOB. CLOSE PRINT-FILE. CLOSE
NAME-FILE. STOP RUN. * * Sub Routines * PRINT-END-OF-PAGE. MOVE BLANK
-LINEalues that are not used elsewhere. You cannot access the value held in a
FILLER identifier from the PROCEDURE DIVISION.' 'SPACE is a reserved word
which fill an identifier with spaces. SPACE cannot be used with a numeric
identifier.' 'ZERO is a reserved word used to make the value of an identi
fier 0, it cannot be used with a string identifier.' 01 TITLE-LINE-2. 03
FILLER PIC X(30) VALUE SPACE. 03 FILLER PIC X(19) VALUE '-
EMPLOYEE REPORT -'. 01 TITLE-LINE-3 !R!!!!!!!!! TO BUFFER. WRITE BUFFER.
WRITE BUFFER. WRITE BUFFER. WRITE BUFFER. 'The four WRITE BUFFER comm
ands are used as form feed commands, this will separate the pages of text.'
PRINT-PAGE-HEADING. ADD 1 TO PAGE-NUMBER. 'ADD 1 TO PAGE-NUMBER increase
the page number displayed at the top of the print file headings.' MOVE T
ITLE-LINE-1 TO BUFFER. WRITE BUFFER. MOVE BLANK-LINE TO BUFFER. WRITE B
UFFER. MOVE TITLE-LINE-2 TO BUFFER. WRITE BUFFER. MOVE BLANK-LINE TO BU
FFMBER!' GO START END-IF. * IF NUMBER-ENTERED NUMERIC DISPLAY 'Well
Done' MOVE NUMBER-ENTERED TO NUMBER GO START END-IF. Program Notes
1. The string identifier and numeric identifier must have the same PIC
clauses. 2. If you enter more than 4 characters then the extra charac
ters are 'lost' when they are moved from the keyboard buffer in the W S SECT
ION. Type in an eight digit number to see the effect, only the first fo
ur digits are displayed. ER. WRITE BUFFER. MOVE TITLE-LINE-3 TO BU
FFER. WRITE BUFFER. MOVE BLANK-LINE TO BUFFER. WRITE BUFFER. ADD 6 T
O LINE-COUNT. 'We ADD 6 to LINE-COUNT because we have written 6 lines of
text to the print file.' PRINTING THE PRINT FILE. When you have typed
in and run programs fifteen and sixteen you are ready to print out the result
s. To print out the results, we use the VDE word processor, so before contin
uing check that your printer is on-li OTHER TESTS. As well as testing i
f an identifier is numeric or not numeric other test can be performed. IF
'identifier' ALPHABETIC IF 'identifier' NOT ALPHABETIC IF 'identifier'
EQUAL IF 'identifier' NOT EQUAL IF 'identifier' GREATER IF 'identifi
er' NOT GREATER IF 'identifier' LESS IF 'identifier' NOT LESS DATES
. We use the format DD/MM/YY to express the date, the americans use MM/DD/Y
Y to express the date. When you want to compare datesne and loaded with paper
. Then type in the following commands. VDE PRINT.DOC 'This loads VDE and
the print file, when VDE has loaded type,' CTRL O P 'CTRL O followed by
P, switches off VDE pagination mode, so forms feed etc are disabled.' ESC
P 'ESC P is the VDE command for print the file, you will be asked for
OPTIONS,' press RETURN 'Return indicates no options selected, so the
file is printed out as it stands.' The file will now be printed out. You
can ign within a program then you are better off using YY/MM/DD, because if y
ou want two compare dates to find the earlier of the dates, then you can c
ompare the two string identifiers in which the dates are held. Comparison of s
trings is done by comparing the ascii codes of the strings one byte at a time,
therefore the earlier date will always consist of lower ascii code values. C
live Bellaby, 12 Trafalgar Terrace, Long Eaton, Nottingham, NG10 1GP ** END
OF SERIES.PT4 ** ore the CTRL O P command and use you word
processor to edit the text file to include print commands such as page len
gth, bold, type face etc. That's enough on file handling, now on with some mor
e commands. NUMERIC OR NOT NUMERIC. If you enter alphabetic data into
a numeric identifier then your program will crash bang!. To get round this pr
oblem all data should be entered into string identifiers, tested to check that
it is numeric and then moved to a numeric field. PROGRAM SEVENTEEN. T
his very short program demonstrates the principle involved. IDENTIFICATION DI
VISION. PROGRAM-ID. Example Seventeen. * DATA DIVISION. WORKING-STORAGE SE
CTION. 01 NUMBER-ENTERED PIC X(4). 01 NUMBER PIC 9(4). * PRO
CEDURE DIVISION. START. DISPLAY ' '. DISPLAY 'Please Enter A 4 Digit Numb
er'. DISPLAY 'Press CTRL C To Abort'. * ACCEPT NUMBER-ENTERED. * IF N
UMBER-ENTERED NOT NUMERIC DISPLAY 'I SAID A 4 DIGIT NU "R"""""""""
THE COMPLETE COBOL PROGRAMMING SERIES
By Clive Bellaby Copyright Clive Bellaby & WACCI
PART FIVE RANDOM ACCESS FILES & OTHER BITS INTRODUCTION Th
is month we push the concept of file handling a bit further by introd
ucing the Random Access files. So wind up the old machine, type in CPM and we
'll get started. INSTALLING VDE Many of you have had problems whOUTPUT
SECTION. FILE-CONTROL. SELECT FILE-1 ASSIGN DATA-FILE-1. DATA DIVISION. FI
LE SECTION. FD FILE-1 01 RECORD-1. 03 NAME-1 PIC X(30). 03 NAME-
2 PIC X)30). etc SEQUENTIAL FILE - VARIABLE LENGTH ----------------
----------------- ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-CO
MPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SECTION.
FILE-CONTROL. SELECT FILE-2 ASSIGN DATA-FILE-2. DATA DIVISION. FILE SECTION
. FD FILE-2 RECORD 6 Ten installing VDE (including M Hare, Alan Tilling, K
evin Cross, Noel Donagh, Peter Campbell & Alan Cooper) to name just a few. In
stalling (configuring) a program is something you need to become familiar wi
th when using CP/M and other operating systems. WACCI now has a step by step
guide to installing VDE. FILE HANDLING BACKGROUND All data files open
ed under CP/M are opened on a random access basis, it is only the different m
ethods of coding used by CobolO 80. 01 RECORD-2. 03 NAME-1 PIC X(3
0). 03 NAME-2 PIC X(30). etc * The RECORD command can be followed
by any two values, the values used * are not important, provided two values are
included the record will * be treated as variable length. RANDOM ACCESS F
ILE ------------------ ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOU
RCE-COMPUTER. Amstrad 6128. OBJECT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SEC
TION. FILE-CONTROL. SELECT FILE-3 ASSIGN DATA-FILE-3 ORGANIZATIO which determi
nes whether the file is sequential or random access. Sequential files are re
ad one record at a time into the file buffer, starting at the first recor
d and finishing at the last record held in the file. Sequential files have t
wo advantages over random access files, sequential files can be variable
length (saving disc space) and are quicker to access (read). Random acc
ess files are read into file buffer one record at a time, but you have the f
acility to select N RELATIVE ACCESS RANDOM RELATIVE RECORD-NUMBER. DATA DIVIS
ION. FILE SECTION. FD FILE-3. 01 RECORD-3. 03 NAME-3 PIC X(30).
03 etc * When random access files are used the RECORD KEY must be declared in
the * WORKING-STORAGE SECTION, in this example the RECORD KEY in RECORD-NUMBER
WORKING-STORAGE SECTION. * Random Access File - Record Key the record key
must be a numeric 01 RECORD-NUMBER PIC 99. FILE HANDLING After you
have declared your file type(s) you which record is read, this is achieved by
using a record key, when you move a value into the record key, the program cal
culates how far into the file the record you want is, and then reads the tra
ck & sector that contains the record you want. The main advantage of random a
ccess files is that you can read and write records in any order. CP/M allows
you to have upto nine files open at any point in time, the most I have used
is three so if you use more and encounter errors don't blame m need to be
able to read and write data to the files. Sequential files (fixed & varia
ble) use different commands to Random Access files. SEQUENTIAL FILE HA
NDLING COMMANDS --------------------------------- OPEN INPUT FILE-1. OPEN
OUTPUT FILE-1. CLOSE FILE-1. READ FILE-1 END ...... (read the file, wh
en the end of the file is reached then do something) READ FILE-1 INVALID ....
.. (read the file, when the end of the file is reached, or a read error is
encountered then de. Let me now summarise the file types available, the
y are, Sequential files (fixed length), Sequential (variable length) and Random
Access files (fixed length). DECLARING YOUR FILE(S) The file type is sp
ecified in the ENVIRONMENT & DATA DIVISIONS, using the following commands.
SEQUENTIAL FILE - FIXED LENGTH ------------------------------ ENVIRONMENT
DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128. OBJECT-CO
MPUTER. Amstrad 6128. INPUT- #R#########o something) WRITE RECORD-1 WR
ITE RECORD-1 INVALID ...... (write the record to disc, and if an error occurs
then do something) Notes There are some restrictions on the use of the files
1. Files which have been opened as input can only be read from. 2. Files
opened as output can only be written to. If you write to a file which has b
een opened as input then a fatal error will occur and your program will crash
, so take care. The PD version of Cobol will only allow you to open a f) 40
NEXT i 50 CLOSEOUT This shows the versatility of the Amstrad CPC's which al
low you more than one way of achieving the same result. The problems caused b
y using Basic are you need to drop out of CP/M, and the method cannot be us
ed in the middle of a large program as it would really confuse the user. RAN
DOM ACCESS FILES Now to test the Random Access files we are back to the tri
ed and trusted method of writing short example programs which demonstrate the
principile once in a program, so if you open a file as input, you cannot close
the file and then open it as output. RANDOM ACCESS FILE COMMANDS ---------
------------------ OPEN I-O FILE-3 CLOSE FILE-3. READ FILE-3 END .....
READ FILE-3 INVALID ...... REWRITE RECORD-3 REWRITE RECORD-3 INVALID
Notes Random access files have restrictions on there use 1. Before using th
e READ & REWRITE commands you must ensure that the record key contains
the number of the record that you les involved. Program 18 creates the data
file and Program 19 uses it. PROGRAM EIGHTEEN IDENTIFICATION DIVISION.
PROGRAM-ID. Program Eighteen. * This program creates a data file 'RANDOM.D
AT' which is used by programs * 19 & 20, The data file is created as a sequenti
al file ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. Am
strad 6128. OBJECT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SECTION. FILE-CON
TROL. SELECT RANDOM-FILE ASSIGN RANDOM.DAT. DATAwish to read or rewrite
. 2. Before using the REWRITE command the record must have been read, after
all you cannot rewrite a record that does not exist. 3. Normal practice i
s to create the random access file as a sequential file (in a separate p
rogram) before it is used. CREATING DATA FILES If you need to create a
data file for use in a program, there are two usual methods of achieving
this. You can if you wish write a short Cobol program or drop b DIVISION.
FILE SECTION. FD RANDOM-FILE. 01 NAME PIC X(30). PROCEDURE DIVISION.
OPEN-FILE. DISPLAY ' '. DISPLAY 'Creating File, Please Wait'. OPEN OUTPU
T RANDOM-FILE. CREATE-FILE. MOVE 'Bellaby' TO NAME. WRITE NAME. MOVE
'Williams' TO NAME. WRITE NAME. MOVE 'Kennedy' TO NAME. WRITE NAME.
MOVE 'Adams' TO NAME. WRITE NAME. MOVE 'Morley' TO NAME. WRITE
NAME. MOVE 'Wacci' TO NAME. WRITE NAME. MOVE 'Dweryhouse' TO NAME.
WRITE NAME. MOVEack into Basic and write a short Basic which creates the dat
a file. The following programs both create a data file containing five records
of 30 spaces. COBOL IDENTIFICATION DIVISION. PROGRAM-ID. Create a data
file. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. Amstra
d 6128. OBJECT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SECTION. FILE-CONTROL
. SELECT NAME-FILE ASSIGN NAMES.DAT. DATA DIVISION. FILE SECTION.
FD NAME-FILE. 01 NAME PIC X(30). WORKI 'Campbell' TO NAME. WRITE NAM
E. MOVE 'Tilling' TO NAME. WRITE NAME. END-PROGRAM. CLOSE RANDOM-FIL
E. STOP RUN. PROGRAM NINETEEN IDENTIFICATION DIVISION. PROGRAM-ID.
Program Nineteen. * This program uses the data file 'RANDOM.DAT' as a random
access file the * data file must first be created using program eighteen EN
VIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. Amstrad 6128.
OBJECT-COMPUTER. Amstrad 6128. INPUT-OUTPUT SECTION. FILNG-STORAGE SECTION
. 01 NAME-NUMBER PIC 9. 01 BUFFER-1 PIC X(30). PROCEDURE DIVISIO
N. OPEN-FILE. OPEN OUTPUT NAME-FILE. MOVE 0 TO NAME-NUMBER. MOVE SPACE
TO BUFFER-1. PERFORM CREATE-FILE 5 TIMES. PROGRAM-END. CLOSE NAME-FILE.
STOP RUN. CREATE-FILE. ADD 1 TO NAME-NUMBER. MOVE BUFFER-1 TO NAME.
WRITE NAME INVALID DISPLAY 'ERROR WHEN SAVING DATA'. and now the same p
rogram using, BASIC 10 OPENOUT "names.dat" 20 FOR i1 to 5 30 PRINT #9,
space$(30 $R$$$$$$$$$E-CONTROL. SELECT RANDOM-FILE ASSIGN RANDOM.DAT ORGA
NIZATION RELATIVE ACCESS RANDOM RELATIVE RECORD-NUMBER. DATA DIVISION.
FILE SECTION. FD RANDOM-FILE. 01 NAME PIC X(30). WORKING-STORA
GE SECTION. 01 RECORD-NUMBER PIC 9. 01 KEYBOARD-ENTRY PIC X. PROCEDU
RE DIVISION. OPEN-FILE. DISPLAY ' '. DISPLAY 'Opening File, Please Wait'.
DISPLAY ' '. OPEN I-O RANDOM-FILE. DISPLAY-FILE. MOVE 0 TO RECORD-NUMB
ER. PERFORM READ-FILE 9 TIMES. DISPLAY-MESSAGE. r word within a program.
Value is a reserved word in Cobol, so you cannot use Value unless it forms part
of a larger word, ie. CALCULATE-VALUE (is acceptable.) The Cobol document
file does not contain a list of reserved words, so I hacked into the Cobol
compiler using SID and discovered the full list of reserved words used in the
PD version of Cobol. ACCESS ACCEPT ADD ADV
ANCING AFTER ALPHABETIC ASSIGN AUTHOR BEFORE
DISPLAY ' '. DISPLAY 'Enter a number, range 0 - 9'. DISPLAY '( 0 End P
rogram, 1 to 9 Displays Record )'. ACCEPT KEYBOARD-ENTRY. IF KEYBOARD-ENTRY
NOT NUMERIC PERFORM NON-NUMERIC-ENTRY GO DISPLAY-FILE END-IF. CHECK
-IF-ZERO. MOVE KEYBOARD-ENTRY TO RECORD-NUMBER. IF RECORD-NUMBER EQUAL 0
DISPLAY ' ' DISPLAY 'End Program Selected' DISPLAY ' ' DISPLAY 'Closing
File, Please Wait' CLOSE RANDOM-FILE STOP RUN END-IF. DISPLAY-RECORD
. MOVE KEYBOARD-ENTRY TO RECORD-NUM BLOCK BY CALL
CLOSE COMP COMP-3 COMPUTATIONAL CONFIGURATIO
N DATA DATE-WRITTEN DEBUGGING DELETE DEPENDING
DISPLAY DIVIDE DIVISION ELSE END
END-IF ENVIRONMENT EQUAL ERROR EXIT FD
FILE FILE-CONTROL FILLER FROM GO
GREATER IDENTIFICATION IF INDEXED BER. READ
RANDOM-FILE INVALID PERFORM READ-ERROR. DISPLAY ' '. DISPLAY 'Record Number
' RECORD-NUMBER ' ' NAME. DISPLAY ' '. DISPLAY 'Press RETURN to try again
'. ACCEPT KEYBOARD-ENTRY. GO DISPLAY-FILE. *************** * SUBROUTINES
* *************** READ-FILE. ADD 1 TO RECORD-NUMBER. READ RANDOM-FILE INV
ALID DISPLAY 'Read Error, Record ' RECORD-NUMBER. DISPLAY 'Record No. ' RECO
RD-NUMBER ' ' NAME. NON-NUMERIC-ENTRY. DISPLAY ' '. DISPLAY 'Non-Numeri
c Entry, Press Return INPUT INPUT-OUTPUT INSTALLATION I
NTO INVALID I-O I-O-CONTROL LABEL LEADING
LEFT LESS LINKAGE MODE MOVE
MULTIPLY NEXT NOT NUMERIC OBJECT-COMPUTER
OCCURS OF OMITTED OPEN ORGANIZATION OUTP
UT PAGE PERFORM PIC PROCEDURE PROG
RAM-ID QUOTE RANDOM READ To Redo.'. ACCEPT KEYBOA
RD-ENTRY. DISPLAY ' '. READ-ERROR. DISPLAY 'Read Error ' RECOR
D-NUMBER ' Press Return To Abort'. DISPLAY ' '. ACCEPT KEYBOARD-EN
TRY. DISPLAY ' '. GO DISPLAY-FILE. Neither program is exciting but they
demonstrate the principle involved and are relatively easy to read and under
stand. The random access program works very quickly in this case because the
all the records fit into the disc buffer the buffer is treated as an area of d
irect RECORD RECORDS REDEFINES RELATIVE REWRITE
RIGHT ROUNDED RUN SAME SECTION SEC
URITY SELECT SEPARATE SEQUENTIAL SIGN S
IZE SOURCE-COMPUTER SPACE STANDARD STOP SUB
TRACT SYNC TIMES THRU TO TRAILI
NG UNTIL USAGE USING VALUE VARYING
WORKING-STORAGE WRITE access Ram. Larger files will be slower a
s the program will need to read the file into the buffer more than once. I w
ill expand on these programs next month with two more programs, which will demo
nstrate 1. The REWRITE command 2. An alphabetic sort RESERVED WORDS
Reserved words are those which have a particular meaning within a computer l
anguage, they can only be used within a program in their pre-defined role.
However a reserved word can form part of a large %R%%%%%%%%%ZERO Take
a copy of this list and keep it handy as using a reserved word as an identifie
r will cause several unusual errors when you compile your program.
VDE REVISITED I have now discovered a new method of including additional p
rinter control codes into documents, and including screen control codes in Cobo
l programs written using VDE or VDE266. If you press Control & P, and then
press the ESC key a left hand square bracket will appear on the screen in inv
erse v NOTE-1.DOC SCREEN
CLEARING CODES Clive Bellaby, December 1991 To CLEAR
THE VDU SCREEN CP/M 2.2 & Basic use CHR$(12) 'Control
& L CP/M 3.1 uses C
HR$(27)"E"chr$(27)"H" 'ESC E ESC H These are not interchangeable, which is
a pity because using two different sets of codes is a pain in the neck. You
can combine ideo, this is the symbol for ascii code 27 which as we all know i
s ESC, when the document is printed the ESC code is activated by the printer
and the following characters act as printer control codes. So all you need t
o do is dig out your printer manual, and to see this working look up the
control code for page length, which on Epson compatible printers is ES
C C n, where n is the number of lines that you want per page. Lets assume
that you would like 45 lines per page, ththe codes to provide one set of code
s that will work in both CP/M 2.2 & CP/M 3.1 (plus) CHR$(27)"E"CHR$(27)"H"C
HR$(12) This works because the "E" & "H" displayed by CP/M 2.2 are not seen b
ecause the screen is cleared immediatley after they are printed. The CHR$(12
) is ignored as an invalid code by CP/M 3.1 (plus) ----------
--------------------- a fatal error will occur and your program will crash,
so take care. The PD version of Cobol will only allow you to open a fe ascii c
ode for 45 is "-", so to set your printer to 45 lines per page, Press Contro
l & P Press ESC this gives you the ESC code on the screen,immediately after
the ESC code type C-, the screen will look like, C- When this code is re
ached the page length will be set to 45 lines. This method can be used to re
place the method outlined in part three of this series which involved writin
g a short Basic programme to allow screen control codes to be used in a Co
bol program. This method is not documented in the VDE document file and may b
e a 'bug', however as it's so useful we will regard it as a feature. Clive B
ellaby, 12 Trafalgar Terrace, Long Eaton, Nottingham, NG10 1GP ** END OF SE
RIES.PT5 ** , Trafalgar Terrace, Lon this example the RECORD KEY in RECORD-NUM
BER WORKING-STORAGE SECTION. * Random Access File - Record Key the record
key must be a numeric 01 RECORD-NUMBER PIC 99. FILE HANDLING After
you have declared your file type(s) you &R&&&&&&&&& 'R''''''''' " ! " "
" ! " " " # # ! # " " " " ! " # £! £! !
# " " " " ! " " " " %