NPS Micro-Cobol v2.1 (UK) (1991) [Original] [UTILITAIRE].dsk
   
Choose sector :
Size : 512 (Real : 512)
000000: 00 43 4F 42 4F 4C 20 20 20 43 4F 4D 00 00 00 70 .COBOL COM...p
000010: 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 00 00 ................
000020: 00 43 4F 42 4F 4C 20 20 20 4F 56 52 00 00 00 6E .COBOL OVR...n
000030: 10 11 12 13 14 15 16 17 18 19 1A 1B 1C 1D 00 00 ................
000040: 00 43 4F 42 4F 4C 2D 31 20 44 4F 43 00 00 00 66 .COBOL-1 DOC...f
000050: 1E 1F 20 21 22 23 24 25 26 27 28 29 2A 00 00 00 .. !"#$%&'()*...
000060: 00 43 4F 42 4F 4C 2D 32 20 44 4F 43 00 00 00 46 .COBOL-2 DOC...F
000070: 2B 2C 2D 2E 2F 30 31 32 33 00 00 00 00 00 00 00 +,-./0123.......
000080: 00 43 4F 42 4F 4C 2D 33 20 44 4F 43 00 00 00 67 .COBOL-3 DOC...g
000090: 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 00 00 00 456789:;<=>?@...
0000A0: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 1E .DISC BAS....
0000B0: 41 42 43 44 00 00 00 00 00 00 00 00 00 00 00 00 ABCD............
0000C0: 00 44 49 53 43 20 20 20 20 44 4F 43 00 00 00 23 .DISC DOC...#
0000D0: 45 46 47 48 49 00 00 00 00 00 00 00 00 00 00 00 EFGHI...........
0000E0: 00 45 58 45 43 20 20 20 20 43 4F 4D 00 00 00 3E .EXEC COM...>
0000F0: 4A 4B 4C 4D 4E 4F 50 51 00 00 00 00 00 00 00 00 JKLMNOPQ........
000100: 00 45 58 45 43 20 20 20 20 4F 56 52 00 00 00 61 .EXEC OVR...a
000110: 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 00 00 00 RSTUVWXYZ[\]^...
000120: 00 53 45 52 49 45 53 20 20 50 54 31 00 00 00 63 .SERIES PT1...c
000130: 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 00 00 00 _`abcdefghijk...
000140: 00 53 45 52 49 45 53 20 20 50 54 32 00 00 00 73 .SERIES PT2...s
000150: 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A 00 lmnopqrstuvwxyz.
000160: 00 53 45 52 49 45 53 20 20 50 54 33 00 00 00 7D .SERIES PT3...}
000170: 7B 7C 7D 7E 7F 80 81 82 83 84 85 86 87 88 89 8A {|}~............
000180: 00 53 45 52 49 45 53 20 20 50 54 34 00 00 00 6C .SERIES PT4...l
000190: 8B 8C 8D 8E 8F 90 91 92 93 94 95 96 97 98 00 00 ................
0001A0: 00 53 45 52 49 45 53 20 20 50 54 35 00 00 00 7A .SERIES PT5...z
0001B0: 99 9A 9B 9C 9D 9E 9F A0 A1 A2 A3 A4 A5 A6 A7 A8 ................
0001C0: 00 4E 4F 54 45 2D 31 20 20 44 4F 43 00 00 00 07 .NOTE-1 DOC....
0001D0: A9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 01 02 03 04 05 06 07 08 04 04 09 04 09 04 0A 04 ................
000010: 0B 09 75 04 0C 0D 0D 09 0E 0F 10 0D 11 13 09 15 ..u.............
000020: 16 1A 1B 20 22 23 09 09 0D 0D 24 25 26 28 29 2A ... "#....$%&()*
000030: 2B 2C 2D 2E 2F 0D 30 24 31 0D 32 33 34 35 36 37 +,-./.0$1.234567
000040: 38 39 3C 3D 3E 3F 40 41 45 48 49 4A 4B 4C 4D 4E 89<=>?@AEHIJKLMN
000050: 4F 50 52 54 56 58 5A 5C 5E 5F 61 62 63 64 65 41 OPRTVXZ\^_abcdeA
000060: 66 08 0D 67 69 69 0C 6F 70 71 75 09 09 09 01 03 f..gii.opqu.....
000070: 05 08 0A 0C 0E 10 12 14 16 18 1A 1C 1E 20 22 24 ............. "$
000080: 26 28 2A 2C 2E 30 32 34 36 38 C9 A1 F4 F6 F6 CE &(*,.02468......
000090: A5 A3 A7 DB AB AE E2 B0 BF E4 D9 C1 01 02 03 04 ................
0000A0: 04 05 05 06 06 07 07 08 08 0F 0F 10 11 11 12 12 ................
0000B0: 13 13 14 16 16 17 17 17 19 19 19 1A 1A 1B 1B 1C ................
0000C0: 1C 1D 1D 1E 20 20 22 23 23 24 24 25 27 27 28 28 .... "##$$%''((
0000D0: 29 29 29 29 29 2B 2B 2C 2C 2D 2D 2E 2E 31 35 35 )))))++,,--..155
0000E0: 36 36 37 37 38 38 39 39 39 39 39 39 39 39 39 39 6677889999999999
0000F0: 39 3B 3B 3B 3C 3C 3E 3E 3E 3E 3E 3F 44 00 01 01 9;;;<<>>>>>?D...
000100: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 ................
000110: 01 01 01 01 01 01 01 01 01 01 02 02 01 01 04 01 ................
000120: 05 02 01 01 01 01 01 01 01 01 02 01 01 01 01 01 ................
000130: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 03 ................
000140: 01 01 01 01 01 04 03 01 01 01 01 01 01 01 01 02 ................
000150: 02 02 02 02 02 02 01 02 01 01 01 01 01 04 01 01 ................
000160: 01 02 06 06 01 01 01 04 02 01 01 01 02 02 03 02 ................
000170: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ................
000180: 02 02 02 02 02 02 02 02 05 06 1E 2B 38 48 4A 4B ...........+8HJK
000190: 4C 4D 51 54 59 5E 5F 66 69 6B 03 07 03 03 00 03 LMQTY^_fik......
0001A0: 00 03 00 03 00 00 01 07 00 08 01 00 06 00 00 01 ................
0001B0: 03 00 01 01 02 01 00 00 00 00 00 01 00 02 00 00 ................
0001C0: 01 02 00 01 05 03 00 00 01 04 00 00 00 01 02 01 ................
0001D0: 02 02 02 00 02 03 00 03 00 00 01 04 00 00 01 00 ................
0001E0: 00 00 00 01 01 01 01 01 01 02 02 03 01 01 01 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 01 04 05 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0F 16 21 28 2E 31 33 35 3A 3C 3D 46 44 4F 46 54 ..!(.135:<=FDOFT
000010: 4F 50 49 43 43 4F 4D 50 44 41 54 41 46 49 4C 45 OPICCOMPDATAFILE
000020: 4C 45 46 54 4D 4F 44 45 53 41 4D 45 53 49 47 4E LEFTMODESAMESIGN
000030: 53 59 4E 43 5A 45 52 4F 42 4C 4F 43 4B 4C 41 42 SYNCZEROBLOCKLAB
000040: 45 4C 51 55 4F 54 45 52 49 47 48 54 53 50 41 43 ELQUOTERIGHTSPAC
000050: 45 55 53 41 47 45 56 41 4C 55 45 41 43 43 45 53 EUSAGEVALUEACCES
000060: 53 41 53 53 49 47 4E 41 55 54 48 4F 52 43 4F 4D SASSIGNAUTHORCOM
000070: 50 2D 33 46 49 4C 4C 45 52 4F 43 43 55 52 53 52 P-3FILLEROCCURSR
000080: 41 4E 44 4F 4D 52 45 43 4F 52 44 53 45 4C 45 43 ANDOMRECORDSELEC
000090: 54 44 49 53 50 4C 41 59 49 4E 44 45 58 45 44 4C TDISPLAYINDEXEDL
0000A0: 45 41 44 49 4E 47 4C 49 4E 4B 41 47 45 4F 4D 49 EADINGLINKAGEOMI
0000B0: 54 54 45 44 52 45 43 4F 52 44 53 53 45 43 54 49 TTEDRECORDSSECTI
0000C0: 4F 4E 44 49 56 49 53 49 4F 4E 52 45 4C 41 54 49 ONDIVISIONRELATI
0000D0: 56 45 53 45 43 55 52 49 54 59 53 45 50 41 52 41 VESECURITYSEPARA
0000E0: 54 45 53 54 41 4E 44 41 52 44 54 52 41 49 4C 49 TESTANDARDTRAILI
0000F0: 4E 47 44 45 42 55 47 47 49 4E 47 50 52 4F 43 45 NGDEBUGGINGPROCE
000100: 44 55 52 45 52 45 44 45 46 49 4E 45 53 50 52 4F DUREREDEFINESPRO
000110: 47 52 41 4D 2D 49 44 53 45 51 55 45 4E 54 49 41 GRAM-IDSEQUENTIA
000120: 4C 45 4E 56 49 52 4F 4E 4D 45 4E 54 49 2D 4F 2D LENVIRONMENTI-O-
000130: 43 4F 4E 54 52 4F 4C 44 41 54 45 2D 57 52 49 54 CONTROLDATE-WRIT
000140: 54 45 4E 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 49 TENFILE-CONTROLI
000150: 4E 50 55 54 2D 4F 55 54 50 55 54 49 4E 53 54 41 NPUT-OUTPUTINSTA
000160: 4C 4C 41 54 49 4F 4E 4F 52 47 41 4E 49 5A 41 54 LLATIONORGANIZAT
000170: 49 4F 4E 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C IONCOMPUTATIONAL
000180: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 49 44 45 CONFIGURATIONIDE
000190: 4E 54 49 46 49 43 41 54 49 4F 4E 4F 42 4A 45 43 NTIFICATIONOBJEC
0001A0: 54 2D 43 4F 4D 50 55 54 45 52 53 4F 55 52 43 45 T-COMPUTERSOURCE
0001B0: 2D 43 4F 4D 50 55 54 45 52 57 4F 52 4B 49 4E 47 -COMPUTERWORKING
0001C0: 2D 53 54 4F 52 41 47 45 00 00 03 01 09 07 09 07 -STORAGE........
0001D0: 06 03 02 02 05 02 01 03 20 20 20 20 20 20 50 52 ........ PR
0001E0: 4F 43 45 44 55 52 45 64 0A 43 42 4C 57 52 24 0D OCEDUREd.CBLWR$.
0001F0: 0A 24 4E 50 53 20 4D 49 43 52 4F 2D 43 4F 42 4F .$NPS MICRO-COBO
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4C 20 43 4F 4D 50 49 4C 45 52 20 56 45 52 53 49 L COMPILER VERSI
000010: 4F 4E 20 32 2E 31 0D 0A 0A 24 20 45 52 52 4F 52 ON 2.1...$ ERROR
000020: 20 4E 45 41 52 20 24 31 11 32 2A 14 32 E5 2A 23 NEAR $1.2*.2.*#
000030: 32 44 4D 11 FF 00 CD 19 0C 21 06 00 22 82 34 4E 2DM......!..".4N
000040: 23 46 0B 60 69 22 16 32 60 69 22 D4 32 CD 7A 10 #F.`i".2`i".2.z.
000050: CD 9D 11 3A 90 34 1F D2 25 09 3E 6E 21 EA 34 BE ...:.4..%.>n!.4.
000060: DA 37 08 CD 27 30 2A E9 34 26 00 01 EB 34 09 0B .7..'0*.4&...4..
000070: 0A 77 CD 4A 30 CD 11 30 32 DB 34 CD 1C 30 21 DB .w.J0..02.4..0!.
000080: 34 86 3D 23 77 3A DB 34 32 DB 34 3A DC 34 21 DB 4.=#w:.42.4:.4!.
000090: 34 BE DA 34 08 2A DB 34 26 00 01 03 01 09 3A 6A 4..4.*.4&.....:j
0000A0: 34 BE C2 04 08 3A 6A 34 D6 21 D6 01 9F F5 3A 6A 4....:j4.!....:j
0000B0: 34 D6 0F D6 01 9F C1 48 B1 1F D2 E9 07 21 DD 34 4......H.....!.4
0000C0: 36 00 3A D9 33 21 DD 34 BE DA E9 07 2A DD 34 26 6.:.3!.4....*.4&
0000D0: 00 01 D9 33 09 E5 2A DD 34 26 00 01 6A 35 09 D1 ...3..*.4&..j5..
0000E0: 1A 77 21 DD 34 34 C2 C2 07 2A DB 34 26 00 01 01 .w!.44...*.4&...
0000F0: 02 09 7E 32 EA 34 21 E0 34 36 01 3A DC 34 32 DB ..~2.4!.46.:.42.
000100: 34 C3 2D 08 21 DC 34 3A DB 34 BE C2 2D 08 01 50 4.-.!.4:.4..-..P
000110: 4E CD 34 0A 01 1A 07 CD 9A 09 CD EE 0F CD CC 30 N.4............0
000120: 32 EA 34 FE 00 C2 2D 08 21 90 34 36 00 21 DB 34 2.4...-.!.46.!.4
000130: 34 C2 8B 07 C3 22 09 3E 9C 21 EA 34 BE D2 BF 08 4....".>.!.4....
000140: CD 1C 30 4F 3A E9 34 91 32 DE 34 3A DE 34 3C 32 ..0O:.4.2.4:.4<2
000150: DF 34 3A EA 34 D6 9C 4F CD B4 2A 3A DE 34 32 E9 .4:.4..O..*:.42.
000160: 34 CD 11 30 32 DB 34 2A E9 34 26 00 01 EB 34 09 4..02.4*.4&...4.
000170: 7E 32 DC 34 2A DB 34 26 00 01 B4 01 09 7E 32 DD ~2.4*.4&.....~2.
000180: 34 D6 00 C6 FF 9F 21 DD 34 F5 3A DC 34 96 C6 FF 4.....!.4.:.4...
000190: 9F C1 48 A1 1F D2 9F 08 21 DB 34 34 C3 74 08 2A ..H.....!.44.t.*
0001A0: DB 34 26 00 01 B2 02 09 7E 32 DD 34 FE 00 C2 B6 .4&.....~2.4....
0001B0: 08 21 90 34 36 00 3A DD 34 32 EA 34 C3 22 09 3E .!.46.:.42.4.".>
0001C0: 8A 21 EA 34 BE DA 0C 09 CD 11 30 32 DB 34 CD 4A .!.4......02.4.J
0001D0: 30 2A DB 34 26 00 01 7A 01 09 7E 32 DD 34 D6 00 0*.4&..z..~2.4..
0001E0: C6 FF 9F 21 DD 34 F5 3A 6A 34 96 C6 FF 9F C1 48 ...!.4.:j4.....H
0001F0: A1 1F D2 FC 08 21 DB 34 34 C3 D1 08 2A DB 34 26 .....!.44...*.4&
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 00 01 78 02 09 7E 32 EA 34 C3 22 09 CD 27 30 CD ..x..~2.4."..'0.
000010: 1C 30 2A E9 34 26 00 01 EB 34 09 77 CD 11 30 32 .0*.4&...4.w..02
000020: EA 34 C3 53 07 CD 12 31 FB 76 21 8D 33 71 2A 8D .4.S...1.v!.3q*.
000030: 33 26 00 EB 0E 02 CD 05 00 C9 21 91 33 72 2B 73 3&........!.3r+s
000040: 2B 70 2B 71 2A 8E 33 EB 0E 1A CD 05 00 2A 90 33 +p+q*.3......*.3
000050: EB 0E 15 CD 05 00 FE 00 CA 66 09 11 EC 06 0E 09 .........f......
000060: CD 05 00 CD 00 00 11 80 00 0E 1A CD 05 00 C9 21 ...............!
000070: 92 33 71 2A D2 32 23 22 D2 32 11 89 33 CD D3 31 .3q*.2#".2..3..1
000080: D2 92 09 11 B0 32 01 30 32 CD 3A 09 21 30 32 22 .....2.02.:.!02"
000090: D2 32 2A D2 32 3A 92 33 77 C9 21 94 33 70 2B 71 .2*.2:.3w.!.3p+q
0000A0: 2A 93 33 22 95 33 2A 95 33 7E FE 24 CA C0 09 2A *.3".3*.3~.$...*
0000B0: 95 33 4E CD 6F 09 2A 95 33 23 22 95 33 C3 A6 09 .3N.o.*.3#".3...
0000C0: 2A 93 33 EB 0E 09 CD 05 00 C9 11 EF 06 0E 09 CD *.3.............
0000D0: 05 00 C9 0E 0D CD 6F 09 0E 0A CD 6F 09 C9 21 98 ......o....o..!.
0000E0: 33 70 2B 71 21 99 33 36 04 2A 99 33 26 00 EB 2A 3p+q!.36.*.3&..*
0000F0: 97 33 19 7E 3C 77 FE 3A C2 33 0A 2A 99 33 26 00 .3.~<w.:.3.*.3&.
000100: EB 2A 97 33 19 36 30 3E 00 21 99 33 BE D2 30 0A .*.3.60>.!.3..0.
000110: 3A 99 33 3D 32 99 33 4F 06 00 2A 97 33 09 7E FE :.3=2.3O..*.3.~.
000120: 20 C2 30 0A 2A 99 33 26 00 EB 2A 97 33 19 36 30 .0.*.3&..*.3.60
000130: C3 E9 09 C9 21 9B 33 70 2B 71 3E 00 11 9A 33 CD ....!.3p+q>...3.
000140: D0 31 B5 C2 73 0A 21 9C 33 36 00 3E 05 21 9C 33 .1..s.!.36.>.!.3
000150: BE DA 6B 0A 2A 9C 33 26 00 01 9D 33 29 09 3E 00 ..k.*.3&...3).>.
000160: 77 23 36 00 60 69 2B 34 C2 4B 0A 21 9C 33 36 00 w#6.`i+4.K.!.36.
000170: C3 A9 0B 3E 01 11 9A 33 CD D0 31 B5 C2 0F 0B 21 ...>...3..1....!
000180: 9C 33 36 00 3A 9C 33 D6 06 C6 FF 9F 2A 9C 33 26 .36.:.3.....*.3&
000190: 00 01 9D 33 29 09 F5 3E 00 CD DB 31 B5 C6 FF 9F ...3)..>...1....
0001A0: C1 48 A1 1F D2 02 0B 2A 9C 33 26 00 01 9D 33 29 .H.....*.3&...3)
0001B0: 09 23 7E 4F CD 2A 09 2A 9C 33 26 00 01 9D 33 29 .#~O.*.*.3&...3)
0001C0: 09 6E 4D CD 2A 09 2A 9C 33 26 00 01 9D 33 29 09 .nM.*.*.3&...3).
0001D0: 23 7E 4F CD 6F 09 2A 9C 33 26 00 01 9D 33 29 09 #~O.o.*.3&...3).
0001E0: 6E 4D CD 6F 09 CD CA 09 CD D3 09 2A 9C 33 26 00 nM.o.......*.3&.
0001F0: 01 9D 33 29 09 3E 00 77 23 36 00 60 69 2B 34 C3 ..3).>.w#6.`i+4.
Size : 512 (Real : 512)
000000: C3 27 07 00 3D 32 3C 21 08 19 3F 02 21 37 3E 0B .'..=2<!..?.!7>.
000010: 21 21 29 28 24 2E 09 13 27 06 1A 22 3B 03 0E 0F !!)($...'..";...
000020: 12 14 21 1D 33 21 01 2C 28 26 2D 01 01 01 01 01 ..!.3!.,(&-.....
000030: 01 01 01 01 0A 01 29 01 01 01 28 01 23 2A 33 28 ......)...(.#*3(
000040: 29 01 01 28 10 11 16 1E 17 18 3A 36 39 2B 25 30 )..(......:69+%0
000050: 01 07 34 01 21 01 21 21 2F 01 21 01 21 01 21 01 ..4.!.!!/.!.!.!.
000060: 21 31 1B 21 27 04 23 38 2A 01 01 21 05 0C 0D 15 !1.!'.#8*..!....
000070: 16 1C 01 40 01 17 18 3A 1F 35 00 08 00 19 00 09 ...@...:.5......
000080: 13 00 2C 00 2C 00 01 00 36 00 39 00 2B 00 25 00 ..,.,...6.9.+.%.
000090: 34 00 01 00 31 00 04 00 23 00 38 00 2A 00 01 00 4...1...#.8.*...
0000A0: 02 00 21 00 01 00 01 00 0B 00 40 00 07 00 21 00 ..!.......@...!.
0000B0: 21 00 21 00 00 00 00 00 00 00 00 00 09 0A 0C 0E !.!.............
0000C0: 10 14 00 00 00 00 00 00 6B 00 00 6A 00 00 00 00 ........k..j....
0000D0: 00 00 67 00 1C 00 00 00 00 62 00 00 00 60 00 00 ..g......b...`..
0000E0: 00 00 0D 12 00 6C 6D 6E 00 00 00 00 00 65 00 00 .....lmn.....e..
0000F0: 38 00 00 18 1F 27 28 00 16 29 2A 36 3A 5A 63 64 8....'(..)*6:Zcd
000100: 00 00 44 3B 43 A8 1B 26 46 16 FC 3F 45 1C FD E7 ..D;C..&F..?E...
000110: 35 2F 72 73 F2 F3 2D E8 E9 EB EA 17 F9 F8 FB FA 5/rs..-.........
000120: F7 BD BC B8 09 F5 31 D4 D3 07 08 0B 0D 0F 02 03 ......1.........
000130: 6F 10 AD 04 34 15 0E 13 32 0C BB BA B9 2E 33 14 o...4...2.....3.
000140: 0A 30 1F 20 22 28 24 25 42 3E 41 37 2C 9D 11 1A .0. "($%B>A7,...
000150: 3C 70 A9 A0 A9 A9 39 A2 A9 A4 A9 A6 A9 AC A9 3A <p....9........:
000160: E0 FD D1 18 2A 40 36 DE C4 FD 19 1D 71 21 23 27 ....*@6.....q!#'
000170: 12 47 B3 24 25 42 29 3D 00 05 8B 06 8C 1E 1E 8D .G.$%B)=........
000180: 2B 8E 38 8F 90 48 4A 91 4B 92 4C 93 4D 94 51 95 +.8..HJ.K.L.M.Q.
000190: 96 54 59 97 5C D6 5D EF 5E 98 5F 99 CD 60 62 C8 .TY.\.].^._..`b.
0001A0: 63 D5 E3 65 9A 66 67 C0 69 9B 9C 6B 6C D8 6D DA c..e.fg.i..kl.m.
0001B0: 6E CC 00 00 79 9E 76 75 77 9F 53 7A 55 56 57 58 n...y.vuw.SzUVWX
0001C0: 52 50 7E 4F AA 87 B2 B1 6A B5 B4 B6 7F B7 AF 85 RP~O....j.......
0001D0: C3 C2 64 82 4E 86 81 CB CA 68 80 D0 CF D2 78 C7 ..d.N....h....x.
0001E0: 89 8A 88 DD DD DD DC 7B 84 61 83 E6 E5 F0 ED EC .......{.a......
0001F0: F1 D7 5B 7D 7C 5A 74 49 EE BE E1 DF C6 C6 C5 00 ..[}|ZtI........
Size : 512 (Real : 512)
000000: 84 0A 21 9C 33 36 00 21 11 32 36 00 C3 A9 0B 01 ..!.36.!.26.....
000010: 50 4E 11 9A 33 CD C8 31 B5 D6 01 9F 01 4C 53 1B PN..3..1.....LS.
000020: F5 CD C8 31 B5 D6 01 9F C1 48 B1 01 56 4E 1B F5 ...1.....H..VN..
000030: CD C8 31 B5 D6 01 9F C1 48 B1 1F D2 7F 0B 21 11 ..1.....H.....!.
000040: 32 36 01 2A 9A 33 7C 4F CD 2A 09 2A 9A 33 7D 4F 26.*.3|O.*.*.3}O
000050: CD 2A 09 2A 9A 33 7C 4F CD 6F 09 2A 9A 33 7D 4F .*.*.3|O.o.*.3}O
000060: CD 6F 09 01 26 32 CD DE 09 01 50 4E 11 9A 33 CD .o..&2....PN..3.
000070: C8 31 B5 CA 7C 0B CD CA 09 CD D3 09 C3 A9 0B 21 .1..|..........!
000080: 11 32 36 01 3A 9C 33 FE 06 CA A3 0B 2A 9C 33 26 .26.:.3.....*.3&
000090: 00 01 9D 33 29 09 E5 2A 9A 33 EB E1 73 23 72 60 ...3)..*.3..s#r`
0000A0: 69 2B 34 01 26 32 CD DE 09 C9 21 AA 33 70 2B 71 i+4.&2....!.3p+q
0000B0: 2A A9 33 44 4D CD 34 0A 01 01 00 CD 34 0A CD 00 *.3DM.4.....4...
0000C0: 00 C9 2A 87 33 EB 0E 0F CD 05 00 FE FF C2 D6 0B ..*.3...........
0000D0: 01 50 4F CD AA 0B C9 2A 87 33 EB 0E 14 CD 05 00 .PO....*.3......
0000E0: 32 AB 33 4F 3E 01 B9 D2 F0 0B 01 52 42 CD AA 0B 2.3O>......RB...
0000F0: 3A AB 33 2F C9 21 AD 33 70 2B 71 2A AC 33 EB 0E :.3/.!.3p+q*.3..
000100: 13 CD 05 00 2A AC 33 EB 0E 16 CD 05 00 FE FF C2 ....*.3.........
000110: 18 0C 01 41 4D CD AA 0B C9 21 B3 33 72 2B 73 2B ...AM....!.3r+s+
000120: 70 2B 71 2B D1 C1 70 2B 71 D5 2A B2 33 2B 22 B2 p+q+..p+q.*.3+".
000130: 33 11 FF FF CD B2 31 B5 CA 56 0C 2A AE 33 E5 2A 3.....1..V.*.3.*
000140: B0 33 C1 0A 77 2A AE 33 23 22 AE 33 2A B0 33 23 .3..w*.3#".3*.3#
000150: 22 B0 33 C3 2A 0C C9 21 B8 33 72 2B 73 2B 71 2B ".3.*..!.3r+s+q+
000160: D1 C1 70 2B 71 D5 2A B7 33 2B 22 B7 33 11 FF FF ..p+q.*.3+".3...
000170: CD B2 31 B5 CA 88 0C 2A B4 33 3A B6 33 77 2A B4 ..1....*.3:.3w*.
000180: 33 23 22 B4 33 C3 66 0C C9 3A 69 34 1F D2 9B 0C 3#".3.f..:i4....
000190: 21 69 34 36 00 2B 7E 32 0E 34 C9 2A 7E 33 23 22 !i46.+~2.4.*~3#"
0001A0: 7E 33 EB 21 0C 34 CD DE 31 DA C8 0C CD D7 0B 1F ~3.!.4..1.......
0001B0: DA C2 0C 21 C0 36 22 0C 34 21 D8 06 22 7E 33 C3 ...!.6".4!.."~3.
0001C0: C8 0C 21 80 00 22 7E 33 2A 7E 33 7E FE 1A C2 DD ..!.."~3*~3~....
0001D0: 0C 21 C0 36 22 0C 34 21 D8 06 22 7E 33 2A 7E 33 .!.6".4!.."~3*~3
0001E0: 7E 32 0E 34 C9 CD 89 0C 32 0E 34 C9 21 6B 34 36 ~2.4....2.4.!k46
0001F0: 01 3A 0F 34 21 6B 34 BE DA 32 0D 3A 11 32 21 D1 .:.4!k4..2.:.2!.
Size : 512 (Real : 512)
000000: 15 2A B2 35 5E 23 56 EB 22 7B 34 C9 C3 D6 14 2A .*.5^#V."{4....*
000010: B2 35 5E 23 56 EB 22 B2 35 C3 4F 14 C9 21 B7 35 .5^#V.".5.O..!.5
000020: 70 2B 71 2A D6 32 22 B8 35 E5 2A B6 35 C1 09 22 p+q*.2".5.*.5.."
000030: D6 32 11 D4 32 CD D3 31 D2 41 15 01 4F 4D CD AA .2..2..1.A..OM..
000040: 0B 2A B8 35 C9 21 BA 35 71 3E 39 21 BA 35 96 9F .*.5.!.5q>9!.5..
000050: 2F F5 7E D6 30 9F 2F C1 48 A1 C9 21 BE 35 72 2B /.~.0./.H..!.5r+
000060: 73 2B 70 2B 71 2A BB 35 22 E2 34 2A BD 35 22 E4 s+p+q*.5".4*.5".
000070: 34 21 E1 34 36 01 C9 2A DA 34 26 00 01 C6 34 29 4!.46..*.4&...4)
000080: 09 5E 23 56 EB 22 7B 34 C9 CD 77 15 CD 0D 12 C9 .^#V."{4..w.....
000090: 3E 00 11 C6 34 CD D0 31 B5 CA 15 16 3A E9 34 3D >...4..1....:.4=
0000A0: 3D 4F 06 00 21 18 35 09 09 3E 00 CD DB 31 B5 C2 =O..!.5..>...1..
0000B0: C4 15 CD 77 15 CD 56 12 E5 CD DA 11 C1 09 22 BF ...w..V.......".
0000C0: 35 C3 F9 15 3A 86 33 1F D2 F6 15 2A DA 34 26 00 5...:.3....*.4&.
0000D0: 01 C6 34 29 09 11 E2 34 CD C5 31 B5 CA F6 15 01 ..4)...4..1.....
0000E0: 31 52 CD 34 0A 2A DA 34 26 00 01 C6 34 29 09 5E 1R.4.*.4&...4).^
0000F0: 23 56 EB 22 E2 34 CD 83 16 3A DA 34 3C 32 DA 34 #V.".4...:.4<2.4
000100: 4F 3E 09 B9 D2 12 16 01 4C 45 CD 34 0A 21 DA 34 O>......LE.4.!.4
000110: 36 09 C3 1B 16 2A D6 32 22 BF 35 2A DF 34 26 00 6....*.2".5*.4&.
000120: 01 18 35 29 09 5E 23 56 EB 22 7B 34 2A DA 34 26 ..5).^#V."{4*.4&
000130: 00 01 C6 34 29 09 EB 2B 4E 23 46 EB 71 23 70 01 ...4)..+N#F.q#p.
000140: 7E 34 11 7B 34 CD C3 31 B5 C6 FF 9F 13 F5 1A D6 ~4.{4..1........
000150: 00 C6 FF 9F C1 48 A1 1F D2 5E 16 CD CE 12 CD 0D .....H...^......
000160: 12 D6 01 D6 01 9F F5 3A 86 33 2F C1 48 A1 1F D2 .......:.3/.H...
000170: 7A 16 2A 80 34 44 4D CD 62 12 2A BF 35 44 4D CD z.*.4DM.b.*.5DM.
000180: C3 11 C9 2A E2 34 22 7B 34 CD DA 11 22 BF 35 C9 ...*.4"{4...".5.
000190: 3A E1 34 1F D2 43 17 01 7B 34 11 E4 34 CD C3 31 :.4..C..{4..4..1
0001A0: B5 C2 40 17 CD 56 12 22 C1 35 CD 0D 12 32 C8 35 ..@..V.".5...2.5
0001B0: 2A E2 34 22 7B 34 CD 56 12 22 C3 35 11 C1 35 CD *.4"{4.V.".5..5.
0001C0: D3 31 B5 CA 40 17 3A C8 35 D6 01 D6 01 9F F5 3A .1..@.:.5......:
0001D0: 86 33 2F C1 48 A1 1F D2 04 17 2A 80 34 22 7B 34 .3/.H.....*.4"{4
0001E0: 0E 04 CD ED 11 11 C3 35 01 C1 35 CD C3 31 D2 FC .......5..5..1..
0001F0: 16 2A C1 35 44 4D CD 3F 12 C3 04 17 2A C3 35 44 .*.5DM.?....*.5D
Size : 512 (Real : 512)
000000: 32 B6 1F D2 13 0D 2A 6B 34 26 00 01 0F 34 09 4E 2.....*k4&...4.N
000010: CD 2A 09 3A 11 32 21 83 33 B6 1F D2 2B 0D 2A 6B .*.:.2!.3...+.*k
000020: 34 26 00 01 0F 34 09 4E CD 6F 09 21 6B 34 34 C2 4&...4.N.o.!k44.
000030: F1 0C 01 0F 34 CD DE 09 21 0F 34 36 05 C9 3A 0F ....4...!.46..:.
000040: 34 FE 57 D2 58 0D 3A 0F 34 3C 32 0F 34 4F 06 00 4.W.X.:.4<2.4O..
000050: 21 0F 34 09 3A 0E 34 77 CD E5 0C C9 3A D9 33 FE !.4.:.4w....:.3.
000060: 32 D2 76 0D 3A D9 33 3C 32 D9 33 4F 06 00 21 D9 2.v.:.3<2.3O..!.
000070: 33 09 3A 0E 34 77 CD 3E 0D C9 3A 0E 34 FE 0D CA 3.:.4w.>..:.4...
000080: 88 0D CD 3E 0D C3 7A 0D C9 3A 0E 34 D6 20 D6 01 ...>..z..:.4. ..
000090: 9F F5 3A 0E 34 D6 09 D6 01 9F C1 48 B1 1F D2 A7 ..:.4......H....
0000A0: 0D CD 3E 0D C3 53 0E 3A 0E 34 FE 0D C2 52 0E 3A ..>..S.:.4...R.:
0000B0: 67 34 1F D2 C1 0D 21 67 34 36 00 CD E5 0C C3 D0 g4....!g46......
0000C0: 0D CD 3E 0D CD 3E 0D CD EC 0C 01 01 00 CD 34 0A ..>..>........4.
0000D0: 3A 0E 34 FE 0D C2 E4 0D CD 3E 0D CD 3E 0D CD EC :.4......>..>...
0000E0: 0C C3 D0 0D 3A 82 33 1F D2 03 0E 21 6C 34 36 01 ....:.3....!l46.
0000F0: 3E 06 21 6C 34 BE DA 03 0E CD 3E 0D 21 6C 34 34 >.!l4.....>.!l44
000100: C2 F0 0D 3A 0E 34 FE 2A C2 11 0E CD 7A 0D C3 4F ...:.4.*....z..O
000110: 0E 3A 0E 34 FE 2F C2 37 0E 3A D1 32 1F D2 25 0E .:.4./.7.:.2..%.
000120: 0E 0C CD 2A 09 3A 83 33 1F D2 31 0E 0E 0C CD 6F ...*.:.3..1....o
000130: 09 CD 7A 0D C3 4F 0E 3A 0E 34 FE 3A C2 4F 0E 3A ..z..O.:.4.:.O.:
000140: 25 32 1F DA 4C 0E CD 7A 0D C3 4F 0E CD 3E 0D C3 %2..L..z..O..>..
000150: 53 0E C9 C3 89 0D C9 3A 0E 34 D6 20 D6 01 9F F5 S......:.4. ....
000160: 3A 0E 34 D6 0D D6 01 9F C1 48 B1 F5 3A 0E 34 D6 :.4......H..:.4.
000170: 09 D6 01 9F C1 48 B1 C9 3A 0E 34 FE 2E CA 83 0E .....H..:.4.....
000180: 3E 00 C9 CD 89 0C 32 68 34 21 69 34 36 01 CD 57 >.....2h4!i46..W
000190: 0E 1F D2 9D 0E 21 0E 34 36 2E 3E 01 C9 21 0E 34 .....!.46.>..!.4
0001A0: 36 2E 3E 00 C9 CD 57 0E F5 CD 78 0E C1 48 B1 C9 6.>...W...x..H..
0001B0: CD 3E 0D 3A 0E 34 FE 27 C2 C1 0E CD 3E 0D 3E 0F .>.:.4.'....>.>.
0001C0: C9 CD 5C 0D C3 B3 0E C9 2A D9 33 26 00 01 B9 33 ..\.....*.3&...3
0001D0: 29 09 11 0B 05 CD 66 31 22 6D 34 21 6F 34 36 01 ).....f1"m4!o46.
0001E0: 2A D9 33 26 00 01 C8 06 09 7E 21 6F 34 BE DA 0F *.3&.....~!o4...
0001F0: 0F CD 12 0F 1F D2 FC 0E 3A 6F 34 C9 3A D9 33 11 ........:o4.:.3.
Size : 512 (Real : 512)
000000: 4D CD 3F 12 11 C3 35 01 C1 35 CD C3 31 D2 40 17 M.?...5..5..1.@.
000010: 3A C8 35 FE 01 C2 2C 17 01 C3 35 11 C1 35 CD C3 :.5...,...5..5..
000020: 31 44 4D CD 1D 15 22 C5 35 C3 40 17 01 32 52 CD 1DM...".5.@..2R.
000030: 34 0A 2A E4 34 22 7B 34 2A C1 35 44 4D CD 3F 12 4.*.4"{4*.5DM.?.
000040: C3 4C 17 3A E6 34 FE 00 C2 4C 17 C9 3A DA 34 11 .L.:.4...L..:.4.
000050: E7 34 CD D0 31 B5 C6 FF 9F 21 68 35 B6 1F D2 62 .4..1....!h5...b
000060: 17 C9 3A E6 34 FE 00 CA 79 17 CD DA 11 E5 CD 56 ..:.4...y......V
000070: 12 22 C1 35 EB C1 CD A9 13 3E 02 21 E6 34 BE D2 .".5.....>.!.4..
000080: BE 17 3A E6 34 FE 03 C2 92 17 21 C7 35 36 30 C3 ..:.4.....!.560.
000090: AF 17 3A E6 34 FE 04 C2 A2 17 21 C7 35 36 20 C3 ..:.4.....!.56 .
0000A0: AF 17 3A E6 34 FE 05 C2 AF 17 21 C7 35 36 27 2A ..:.4.....!.56'*
0000B0: C1 35 44 4D 2A C7 35 EB CD 7A 13 C3 93 1A 3A E6 .5DM*.5..z....:.
0000C0: 34 FE 02 C2 FE 17 3A 91 34 21 C1 35 CD DB 31 DA 4.....:.4!.5..1.
0000D0: DF 17 2A C1 35 EB 01 92 34 CD 2B 13 C3 FB 17 2A ..*.5...4.+....*
0000E0: 91 34 26 00 EB 01 92 34 CD 2B 13 3A 91 34 11 C1 .4&....4.+.:.4..
0000F0: 35 CD D0 31 44 4D 1E 20 CD 7A 13 C3 93 1A 3A E6 5..1DM. .z....:.
000100: 34 FE 01 C2 93 1A CD E6 11 32 D0 35 D6 10 9F F5 4........2.5....
000110: 3E 15 21 D0 35 96 9F C1 48 B1 1F D2 24 18 01 56 >.!.5...H...$..V
000120: 4E CD 34 0A CD 56 12 EB 21 CE 35 73 CD 26 12 4F N.4..V..!.5s.&.O
000130: 3A CE 35 91 32 CD 35 3A D0 35 FE 14 C2 43 18 21 :.5.2.5:.5...C.!
000140: CD 35 35 3A 91 34 32 CA 35 3C 32 C9 35 21 CF 35 .55:.42.5<2.5!.5
000150: 36 2B 3A 92 34 FE 2D C2 5F 18 21 CF 35 36 2D 21 6+:.4.-._.!.56-!
000160: CB 35 36 01 3A CA 35 21 CB 35 BE DA 8A 18 2A CB .56.:.5!.5....*.
000170: 35 26 00 01 91 34 09 7E FE 2E C2 83 18 3A CB 35 5&...4.~.....:.5
000180: 32 C9 35 21 CB 35 34 C2 64 18 21 CC 35 36 00 3E 2.5!.54.d.!.56.>
000190: 13 21 CC 35 BE DA AA 18 2A CC 35 26 00 01 D1 35 .!.5....*.5&...5
0001A0: 09 36 30 21 CC 35 34 C2 8F 18 3A CD 35 3D 32 CC .60!.54...:.5=2.
0001B0: 35 3A C9 35 32 CB 35 3A CC 35 3C 32 CC 35 21 CE 5:.52.5:.5<2.5!.
0001C0: 35 96 9F F5 3A CB 35 3C 32 CB 35 4F 3A CA 35 91 5...:.5<2.5O:.5.
0001D0: 9F 2F C1 48 A1 1F D2 F2 18 2A CB 35 26 00 01 91 ./.H.....*.5&...
0001E0: 34 09 E5 2A CC 35 26 00 01 D1 35 09 D1 1A 77 C3 4..*.5&...5...w.
0001F0: B7 18 3A CD 35 32 CC 35 3A C9 35 32 CB 35 3A CC ..:.52.5:.52.5:.
Size : 512 (Real : 512)
000000: 6D 34 CD 62 31 EB 2B 73 23 72 23 34 C2 E0 0E 3E m4.b1.+s#r#4...>
000010: 00 C9 21 70 34 36 01 3A D9 33 21 70 34 BE DA 46 ..!p46.:.3!p4..F
000020: 0F 3A 70 34 3D 4F 06 00 2A 6D 34 09 E5 2A 70 34 .:p4=O..*m4..*p4
000030: 26 00 01 D9 33 09 D1 1A BE CA 3F 0F 3E 00 C9 21 &...3.....?.>..!
000040: 70 34 34 C2 17 0F 3E 01 C9 3E 0F 21 D9 33 BE D2 p44...>..>.!.3..
000050: 55 0F 3E 00 C9 2A D9 33 26 00 01 FB 04 09 7E 32 U.>..*.3&.....~2
000060: 71 34 FE 00 C2 6A 0F 3E 00 C9 CD C8 0E 32 72 34 q4...j.>.....2r4
000070: FE 00 C2 78 0F 3E 00 C9 3A 72 34 21 71 34 86 C9 ...x.>..:r4!q4..
000080: 21 D9 33 36 00 CD 89 0D 3A 0E 34 FE 27 C2 94 0F !.36....:.4.'...
000090: CD B0 0E C9 CD 78 0E 1F D2 A1 0F CD 5C 0D 3E 01 .....x......\.>.
0000A0: C9 CD 5C 0D CD A5 0E 1F D2 AE 0F 3E 21 C9 C3 A1 ..\........>!...
0000B0: 0F C9 CD 80 0F 32 6A 34 FE 21 C2 CE 0F CD 49 0F .....2j4.!....I.
0000C0: 32 73 34 FE 00 CA CE 0F 3A 73 34 32 6A 34 3A 6A 2s4.....:s42j4:j
0000D0: 34 FE 00 CA D7 0F C9 01 45 53 CD 34 0A CD A5 0E 4.......ES.4....
0000E0: 1F DA EA 0F CD E5 0C C3 DD 0F C3 B2 0F C9 21 74 ..............!t
0000F0: 34 36 01 3A D9 33 21 74 34 BE DA 1E 10 2A 74 34 46.:.3!t4....*t4
000100: 26 00 01 D9 33 09 4E CD 2A 09 2A 74 34 26 00 01 &...3.N.*.*t4&..
000110: D9 33 09 4E CD 6F 09 21 74 34 34 C2 F3 0F CD CA .3.N.o.!t44.....
000120: 09 CD D3 09 C9 21 75 34 71 21 76 34 36 00 3E 01 .....!u4q!v46.>.
000130: 21 76 34 BE DA 70 10 21 77 34 36 00 2A 76 34 26 !v4..p.!w46.*v4&
000140: 00 01 E7 06 09 7E 32 78 34 4F 3A 75 34 B9 DA 60 .....~2x4O:u4..`
000150: 10 21 78 34 3A 75 34 96 32 75 34 2B 34 C3 3C 10 .!x4:u4.2u4+4.<.
000160: 3A 77 34 C6 30 4F CD 2A 09 21 76 34 34 C2 2E 10 :w4.0O.*.!v44...
000170: 3A 75 34 C6 30 4F CD 2A 09 C9 01 6D 00 C5 11 08 :u4.0O.*...m....
000180: 00 01 18 32 CD 19 0C 3A 18 32 FE 24 C2 17 11 21 ...2...:.2.$...!
000190: 7A 34 36 00 3A 7A 34 3C 32 7A 34 4F 06 00 21 18 z46.:z4<2z4O..!.
0001A0: 32 09 7E 32 79 34 FE 20 CA 17 11 3A 79 34 FE 4C 2.~2y4. ...:y4.L
0001B0: C2 BA 10 3A D1 32 2F 32 D1 32 3A 79 34 FE 53 C2 ...:.2/2.2:y4.S.
0001C0: C9 10 3A 82 33 2F 32 82 33 3A 79 34 FE 50 C2 D8 ..:.3/2.3:y4.P..
0001D0: 10 3A 80 33 2F 32 80 33 3A 79 34 FE 54 C2 E7 10 .:.3/2.3:y4.T...
0001E0: 3A 81 33 2F 32 81 33 3A 79 34 FE 43 C2 F6 10 3A :.3/2.3:y4.C...:
0001F0: DA 32 2F 32 DA 32 3A 79 34 FE 57 C2 05 11 3A 83 .2/2.2:y4.W...:.
Size : 512 (Real : 512)
000000: 35 3D 32 CC 35 D6 FF 9F F5 3A CB 35 3D 32 CB 35 5=2.5....:.5=2.5
000010: 4F 3E 00 91 9F C1 48 A1 2A CB 35 26 00 01 91 34 O>....H.*.5&...4
000020: 09 F5 3A CF 35 96 C6 FF 9F C1 48 A1 1F D2 49 19 ..:.5.....H...I.
000030: 2A CB 35 26 00 01 91 34 09 E5 2A CC 35 26 00 01 *.5&...4..*.5&..
000040: D1 35 09 D1 1A 77 C3 FE 18 3E 01 21 CB 35 96 9F .5...w...>.!.5..
000050: F5 7E D6 01 D6 01 9F 21 CF 35 F5 3A 92 34 96 C6 .~.....!.5.:.4..
000060: FF 9F C1 48 A1 C1 48 B1 1F D2 72 19 01 4C 53 CD ...H..H...r..LS.
000070: 34 0A 3A CF 35 FE 2D C2 A2 19 3A D0 35 FE 11 C2 4.:.5.-...:.5...
000080: 8D 19 3A D1 35 F6 80 32 D1 35 C3 A2 19 3A D0 35 ..:.5..2.5...:.5
000090: FE 12 C2 A2 19 2A CE 35 26 00 01 D1 35 09 3E 80 .....*.5&...5.>.
0000A0: B6 77 3A D0 35 FE 13 C2 C1 19 3A D1 35 FE 30 CA .w:.5.....:.5.0.
0000B0: B8 19 01 4C 53 CD 34 0A 3A CF 35 32 D1 35 C3 D8 ...LS.4.:.52.5..
0000C0: 19 3A D0 35 FE 14 C2 D8 19 3A CE 35 3D 4F 06 00 .:.5.....:.5=O..
0000D0: 21 D1 35 09 3A CF 35 77 3A D0 35 FE 15 C2 87 1A !.5.:.5w:.5.....
0000E0: 3A CF 35 FE 2B C2 F6 19 2A CE 35 26 00 01 D1 35 :.5.+...*.5&...5
0000F0: 09 36 30 C3 01 1A 2A CE 35 26 00 01 D1 35 09 36 .60...*.5&...5.6
000100: 31 2A CE 35 26 00 EB 21 02 00 CD 6F 31 7D 1F D2 1*.5&..!...o1}..
000110: 1A 1A 21 CC 35 36 00 C3 28 1A 3A D1 35 D6 30 4F ..!.56..(.:.5.0O
000120: CD F8 12 21 CC 35 36 01 21 CE 35 3A CC 35 BE D2 ...!.56.!.5:.5..
000130: 5C 1A 2A CC 35 26 00 01 D1 35 09 7E D6 30 87 87 \.*.5&...5.~.0..
000140: 87 87 2A CC 35 26 00 03 09 F5 7E D6 30 C1 48 B1 ..*.5&....~.0.H.
000150: 4F CD F8 12 21 CC 35 34 34 C3 28 1A 2A CE 35 26 O...!.544.(.*.5&
000160: 00 EB 21 02 00 CD 6F 31 13 13 21 DB 34 73 3A CE ..!...o1..!.4s:.
000170: 35 21 DB 34 BE DA 84 1A 0E 00 CD F8 12 21 DB 34 5!.4.........!.4
000180: 34 C2 6E 1A C3 93 1A 2A CE 35 26 00 EB 01 D1 35 4.n....*.5&....5
000190: CD 2B 13 3A 68 35 1F DA 9F 1A 21 E6 34 36 00 C9 .+.:h5....!.46..
0001A0: CD 77 15 CD 90 16 CD 56 12 22 E5 35 CD E6 11 4F .w.....V.".5...O
0001B0: 3E 80 91 9F F5 CD 90 12 3E 00 CD AF 31 B5 C6 FF >.......>...1...
0001C0: 9F C1 48 A1 1F D2 F0 1A CD 90 12 EB 2A E5 35 CD ..H.........*.5.
0001D0: 8E 31 22 E5 35 3A 7D 34 3D 32 7D 34 FE 00 CA EA .1".5:}4=2}4....
0001E0: 1A CD B3 12 22 7E 34 C3 F0 1A 21 00 00 22 7E 34 ...."~4...!.."~4
0001F0: 21 DA 34 35 CD 77 15 CD 56 12 E5 2A E5 35 C1 09 !.45.w..V..*.5..
Size : 512 (Real : 512)
000000: 33 2F 32 83 33 3A 79 34 FE 44 C2 14 11 3A 25 32 3/2.3:y4.D...:%2
000010: 2F 32 25 32 C3 94 10 01 E9 06 C5 11 09 00 2A 87 /2%2..........*.
000020: 33 19 44 4D 11 03 00 CD 19 0C 11 0C 00 2A 87 33 3.DM.........*.3
000030: 19 E5 11 05 00 0E 00 CD 57 0C CD C2 0B 3A DA 32 ........W....:.2
000040: 1F DA 69 11 2A 87 33 E5 11 09 00 01 5B 33 CD 19 ..i.*.3.....[3..
000050: 0C 21 7B 33 36 00 01 DA 32 23 71 23 70 21 5A 33 .!{36...2#q#p!Z3
000060: 22 8B 33 01 5B 33 CD F5 0B 2A 87 33 E5 11 09 00 ".3.[3...*.3....
000070: 01 B0 32 CD 19 0C 21 D0 32 36 00 21 2F 32 22 D2 ..2...!.26.!/2".
000080: 32 21 AF 32 22 89 33 01 B0 32 CD F5 0B CD 89 0D 2!.2".3..2......
000090: 01 00 00 CD 34 0A 01 F2 06 CD 9A 09 C9 2A 84 33 ....4........*.3
0000A0: E5 11 82 00 0E 00 CD 57 0C 11 80 00 2A 84 33 19 .......W....*.3.
0000B0: 22 D8 32 3E 00 77 23 36 00 C9 01 03 00 2A 7B 34 ".2>.w#6.....*{4
0000C0: 09 7E C9 21 85 34 70 2B 71 01 04 00 2A 7B 34 09 .~.!.4p+q...*{4.
0000D0: E5 2A 84 34 EB E1 73 23 72 C9 01 04 00 2A 7B 34 .*.4..s#r....*{4
0000E0: 09 5E 23 56 EB C9 2A 7B 34 23 23 7E C9 21 86 34 .^#V..*{4##~.!.4
0000F0: 71 2A 7B 34 23 23 3A 86 34 77 C9 21 87 34 71 CD q*{4##:.4w.!.4q.
000100: E6 11 21 87 34 B6 2A 7B 34 23 23 77 C9 01 0A 00 ..!.4.*{4##w....
000110: 2A 7B 34 09 7E C9 21 88 34 71 01 0A 00 2A 7B 34 *{4.~.!.4q...*{4
000120: 09 3A 88 34 77 C9 01 0B 00 2A 7B 34 09 7E C9 21 .:.4w....*{4.~.!
000130: 89 34 71 01 0B 00 2A 7B 34 09 3A 89 34 77 C9 21 .4q...*{4.:.4w.!
000140: 8B 34 70 2B 71 01 06 00 2A 7B 34 09 E5 2A 8A 34 .4p+q...*{4..*.4
000150: EB E1 73 23 72 C9 01 06 00 2A 7B 34 09 5E 23 56 ..s#r....*{4.^#V
000160: EB C9 21 8D 34 70 2B 71 01 08 00 2A 7B 34 09 E5 ..!.4p+q...*{4..
000170: 2A 8C 34 EB E1 73 23 72 C9 21 8F 34 70 2B 71 01 *.4..s#r.!.4p+q.
000180: 0C 00 2A 7B 34 09 E5 2A 8E 34 EB E1 73 23 72 C9 ..*{4..*.4..s#r.
000190: 01 0C 00 2A 7B 34 09 5E 23 56 EB C9 01 04 00 2A ...*{4.^#V.....*
0001A0: 7B 34 09 E5 2A D8 32 EB E1 73 23 72 2A 7B 34 22 {4..*.2..s#r*{4"
0001B0: 80 34 C9 11 0D 00 2A 7B 34 19 E5 CD BA 11 5F 16 .4....*{4....._.
0001C0: 00 E1 19 22 82 34 2A 82 34 5E 23 56 EB C9 2A D8 ...".4*.4^#V..*.
0001D0: 32 22 82 34 23 23 23 22 D8 32 2A 82 34 E5 2A 7E 2".4###".2*.4.*~
0001E0: 34 EB E1 73 23 72 0E 80 CD FB 11 2A 82 34 23 23 4..s#r.....*.4##
0001F0: 22 82 34 3A 7D 34 77 C9 21 9D 35 71 3A DA 32 1F ".4:}4w.!.5q:.2.
Size : 512 (Real : 512)
000000: 44 4D CD 3F 12 0E 06 CD FB 11 C9 3A DA 34 FE 00 DM.?.......:.4..
000010: CA 30 1B CD 77 15 CD 90 16 2A DA 34 26 00 01 C6 .0..w....*.4&...
000020: 34 29 09 3E 00 77 23 36 00 21 DA 34 35 C3 0B 1B 4).>.w#6.!.45...
000030: CD 77 15 CD 90 16 21 00 00 22 C6 34 CD 56 12 44 .w....!..".4.V.D
000040: 4D CD 1D 15 22 13 35 C9 21 00 00 22 E7 35 21 DB M...".5.!..".5!.
000050: 34 36 01 3A 6A 35 21 DB 34 BE DA 9D 1B 2A DB 34 46.:j5!.4....*.4
000060: 26 00 01 6A 35 09 4E CD 45 15 1F DA 74 1B 01 4E &..j5.N.E...t..N
000070: 4E CD 34 0A 2A E7 35 29 29 29 E5 2A E7 35 29 C1 N.4.*.5))).*.5).
000080: 09 E5 2A DB 34 26 00 01 6A 35 09 7E D6 30 5F 16 ..*.4&..j5.~.0_.
000090: 00 E1 19 22 E7 35 21 DB 34 34 C2 53 1B 2A E9 34 ...".5!.44.S.*.4
0000A0: 26 00 01 18 35 29 09 E5 2A E7 35 EB E1 73 23 72 &...5)..*.5..s#r
0000B0: C9 21 EB 35 72 2B 73 2B 71 2A E9 35 26 00 01 18 .!.5r+s+q*.5&...
0000C0: 35 29 09 11 EA 35 E5 CD A4 31 EB E1 73 23 72 C9 5)...5...1..s#r.
0000D0: 01 EE 35 C5 11 0C 00 0E 20 CD 57 0C 3A 6C 35 FE ..5..... .W.:l5.
0000E0: 3A C2 F4 1B 3A 6B 35 E6 0F 32 EE 35 21 FB 35 36 :...:k5..2.5!.56
0000F0: 02 C3 FE 1B 21 EE 35 36 00 21 FB 35 36 00 21 FC ....!.56.!.56.!.
000100: 35 36 01 3A FC 35 D6 0C 9F 21 6A 35 F5 3A FB 35 56.:.5...!j5.:.5
000110: 96 9F C1 48 A1 1F D2 4C 1C 3A FB 35 3C 32 FB 35 ...H...L.:.5<2.5
000120: 4F 06 00 21 6A 35 09 7E 32 FA 35 FE 2E C2 38 1C O..!j5.~2.5...8.
000130: 21 FC 35 36 09 C3 49 1C 2A FC 35 26 00 01 EE 35 !.56..I.*.5&...5
000140: 09 3A FA 35 77 21 FC 35 34 C3 03 1C 01 A5 00 CD .:.5w!.54.......
000150: 1D 15 22 EC 35 44 4D CD 62 12 2A EC 35 44 4D 11 ..".5DM.b.*.5DM.
000160: 25 00 CD A9 13 11 0C 00 01 EE 35 CD 2B 13 1E 00 %.........5.+...
000170: 01 19 00 CD 7A 13 3A E9 34 3D 4F 11 01 00 CD B1 ....z.:.4=O.....
000180: 1B C9 21 FD 35 71 CD E6 11 FE 11 C2 A5 1C 2A E9 ..!.5q........*.
000190: 34 26 00 01 18 35 29 09 3A FD 35 CD 63 31 4D CD 4&...5).:.5.c1M.
0001A0: ED 11 C3 AB 1C 01 47 53 CD 34 0A 2A E9 34 26 00 ......GS.4.*.4&.
0001B0: 01 18 35 29 09 3E 00 CD DB 31 B5 CA C7 1C CD 56 ..5).>...1.....V
0001C0: 12 23 44 4D CD 3F 12 C9 21 01 36 36 01 23 36 00 .#DM.?..!.66.#6.
0001D0: 23 36 00 21 91 34 36 00 21 FE 35 36 00 23 36 01 #6.!.46.!.56.#6.
0001E0: CD E6 11 32 00 36 D6 10 9F 2F F5 3E 15 21 00 36 ...2.6.../.>.!.6
0001F0: 96 9F 2F C1 48 A1 1F D2 65 1E 3A 6A 35 21 FF 35 ../.H...e.:j5!.5
Size : 512 (Real : 512)
000000: D2 04 13 C9 2A 7C 33 23 22 7C 33 11 8B 33 CD D3 ....*|3#"|3..3..
000010: 31 D2 23 13 11 5B 33 01 DB 32 CD 3A 09 21 DB 32 1.#..[3..2.:.!.2
000020: 22 7C 33 2A 7C 33 3A 9D 35 77 C9 21 A1 35 72 2B "|3*|3:.5w.!.5r+
000030: 73 2B 70 2B 71 21 01 00 22 A2 35 11 A0 35 01 A2 s+p+q!..".5..5..
000040: 35 CD C3 31 DA 62 13 2A 9E 35 4E CD F8 12 2A 9E 5..1.b.*.5N...*.
000050: 35 23 22 9E 35 11 01 00 2A A2 35 19 22 A2 35 D2 5#".5...*.5.".5.
000060: 3B 13 C9 21 A5 35 70 2B 71 2A A4 35 7D 4F CD F8 ;..!.5p+q*.5}O..
000070: 12 2A A4 35 7C 4F CD F8 12 C9 21 A8 35 73 2B 70 .*.5|O....!.5s+p
000080: 2B 71 21 01 00 22 A9 35 11 A6 35 01 A9 35 CD C3 +q!..".5..5..5..
000090: 31 DA A8 13 2A A8 35 4D CD F8 12 11 01 00 2A A9 1...*.5M......*.
0000A0: 35 19 22 A9 35 D2 88 13 C9 21 AE 35 72 2B 73 2B 5.".5....!.5r+s+
0000B0: 70 2B 71 0E 43 CD F8 12 2A AB 35 44 4D CD 63 13 p+q.C...*.5DM.c.
0000C0: 2A AD 35 44 4D CD 63 13 C9 21 AF 35 71 2A D8 32 *.5DM.c..!.5q*.2
0000D0: 22 B0 35 3A AF 35 C6 0E 32 AF 35 4F 06 00 2A 7B ".5:.5..2.5O..*{
0000E0: 34 09 22 D8 32 11 16 32 CD D3 31 D2 F4 13 01 54 4.".2..2..1....T
0000F0: 53 CD AA 0B 2A B0 35 E5 2A AF 35 26 00 EB 0E 00 S...*.5.*.5&....
000100: CD 57 0C C9 3E 0F 21 6A 35 BE D2 12 14 21 6A 35 .W..>.!j5....!j5
000110: 36 0F 21 B4 35 36 00 23 36 01 3A 6A 35 21 B5 35 6.!.56.#6.:j5!.5
000120: BE DA 3B 14 2A B5 35 26 00 01 6A 35 09 3A B4 35 ..;.*.5&..j5.:.5
000130: 86 32 B4 35 21 B5 35 34 C2 1A 14 3A B4 35 E6 3F .2.5!.54...:.5.?
000140: 87 11 84 33 CD 62 31 22 B2 35 21 13 32 36 00 2A ...3.b1".5!.26.*
000150: B2 35 3E 00 CD DB 31 B5 C2 BA 14 21 13 32 36 01 .5>...1....!.26.
000160: 2A D8 32 22 7B 34 2A B2 35 E5 2A D8 32 EB E1 73 *.2"{4*.5.*.2..s
000170: 23 72 2A 6A 35 4D CD C9 13 01 03 00 2A 7B 34 09 #r*j5M......*{4.
000180: 3A 6A 35 77 21 B5 35 36 01 3A 6A 35 21 B5 35 BE :j5w!.56.:j5!.5.
000190: DA B3 14 2A B5 35 26 00 01 6A 35 09 3A B5 35 C6 ...*.5&..j5.:.5.
0001A0: 0D 4F 06 00 E5 2A 7B 34 09 C1 0A 77 21 B5 35 34 .O...*{4...w!.54
0001B0: C2 89 14 2A 7B 34 C9 C3 0F 15 2A B2 35 5E 23 56 ...*{4....*.5^#V
0001C0: EB 22 7B 34 CD BA 11 32 B4 35 21 6A 35 BE C2 0F ."{4...2.5!j5...
0001D0: 15 21 B5 35 36 01 3A B5 35 C6 0D 4F 06 00 2A 7B .!.56.:.5..O..*{
0001E0: 34 09 E5 2A B5 35 26 00 01 6A 35 09 D1 1A BE C2 4..*.5&..j5.....
0001F0: 0F 15 3A B5 35 3C 32 B5 35 4F 3A B4 35 B9 D2 0C ..:.5<2.5O:.5...
Size : 512 (Real : 512)
000000: BE DA 65 1E 2A FF 35 26 00 01 6A 35 09 7E D6 2B ..e.*.5&..j5.~.+
000010: C6 FF 9F F5 7E D6 2D C6 FF 9F C1 48 A1 1F D2 FC ....~.-....H....
000020: 1D 2A FF 35 26 00 01 6A 35 09 7E D6 30 D6 01 9F .*.5&..j5.~.0...
000030: 21 01 36 A6 1F D2 41 1D 3A FF 35 32 FF 35 C3 F9 !.6...A.:.52.5..
000040: 1D 2A FF 35 26 00 01 6A 35 09 7E D6 30 9F 2F F5 .*.5&..j5.~.0./.
000050: 3E 39 96 9F 2F C1 48 A1 F5 7E D6 2E D6 01 9F C1 >9../.H..~......
000060: 48 B1 1F D2 D0 1D 2A FF 35 26 00 01 6A 35 09 7E H.....*.5&..j5.~
000070: D6 2E D6 01 9F 21 03 36 A6 1F D2 86 1D 01 44 4D .....!.6......DM
000080: CD 34 0A C3 CD 1D 2A FF 35 26 00 01 6A 35 09 3A .4....*.5&..j5.:
000090: 91 34 3C 32 91 34 4F 06 00 E5 21 91 34 09 C1 0A .4<2.4O...!.4...
0000A0: 77 2A FF 35 26 00 01 6A 35 09 7E FE 30 CA B5 1D w*.5&..j5.~.0...
0000B0: 21 01 36 36 00 2A FF 35 26 00 01 6A 35 09 7E FE !.66.*.5&..j5.~.
0000C0: 2E C2 C9 1D 21 03 36 36 01 21 FE 35 34 C3 F9 1D ....!.66.!.54...
0000D0: 2A FF 35 26 00 01 6A 35 09 7E D6 30 9F F5 3E 39 *.5&..j5.~.0..>9
0000E0: 96 9F C1 48 B1 F5 7E D6 2E C6 FF 9F C1 48 A1 1F ...H..~......H..
0000F0: D2 F9 1D 01 4E 4E CD 34 0A C3 5E 1E 3A 02 36 1F ....NN.4..^.:.6.
000100: D2 0C 1E 01 53 4D CD 34 0A C3 5E 1E 2A FF 35 26 ....SM.4..^.*.5&
000110: 00 01 6A 35 09 7E D6 2B D6 01 9F F5 7E D6 2D D6 ..j5.~.+....~.-.
000120: 01 9F C1 48 B1 1F D2 5E 1E 3A 00 36 FE 10 C2 3A ...H...^.:.6...:
000130: 1E 01 47 53 CD 34 0A C3 5E 1E 2A FF 35 26 00 01 ..GS.4..^.*.5&..
000140: 6A 35 09 3A 91 34 3C 32 91 34 4F 06 00 E5 21 91 j5.:.4<2.4O...!.
000150: 34 09 C1 0A 77 21 02 36 36 01 21 FE 35 34 21 FF 4...w!.66.!.54!.
000160: 35 34 C3 FA 1C 3A FE 35 32 91 34 D6 01 D6 01 9F 54...:.52.4.....
000170: F5 3A 92 34 D6 2B D6 01 9F F5 3A 92 34 D6 2D D6 .:.4.+....:.4.-.
000180: 01 9F C1 48 B1 C1 48 A1 F5 3A 91 34 D6 30 D6 01 ...H..H..:.4.0..
000190: 9F C1 48 B1 1F D2 A0 1E 21 91 34 36 00 23 36 00 ..H.....!.46.#6.
0001A0: C9 2A C4 34 22 7B 34 CD 0D 12 21 69 35 BE C2 B6 .*.4"{4...!i5...
0001B0: 1E 21 68 35 36 00 21 8D 36 36 00 21 90 36 36 00 .!h56.!.66.!.66.
0001C0: 23 36 00 23 36 01 21 00 00 22 8A 36 7D 32 8C 36 #6.#6.!..".6}2.6
0001D0: 32 8E 36 32 8F 36 32 94 36 32 9E 36 3E 1E 21 6A 2.62.62.62.6>.!j
0001E0: 35 BE D2 EC 1E 01 43 50 CD 34 0A C9 21 95 36 36 5.....CP.4..!.66
0001F0: 01 3A 6A 35 21 95 36 BE DA D6 21 2A 95 36 26 00 .:j5!.6...!*.6&.
Size : 512 (Real : 512)
000000: 34 22 E4 34 3A E1 34 32 AB 36 21 E1 34 36 01 CD 4".4:.42.6!.46..
000010: 90 16 2A DA 34 26 00 01 C6 34 29 09 3E 00 77 23 ..*.4&...4).>.w#
000020: 36 00 21 DA 34 35 2A AC 36 22 E2 34 2A AE 36 22 6.!.45*.6".4*.6"
000030: E4 34 3A AB 36 32 E1 34 C9 3A DE 34 3D 4F 06 00 .4:.62.4.:.4=O..
000040: 21 18 35 09 09 5E 23 56 EB 22 C4 34 22 7B 34 3A !.5..^#V.".4"{4:
000050: DE 34 3D 3D 4F 06 00 21 18 35 09 09 4E 23 46 E5 .4==O..!.5..N#F.
000060: 21 B0 36 71 E1 CD 16 12 3A B0 36 FE 01 C2 E1 27 !.6q....:.6....'
000070: 3E 00 11 C6 34 CD D0 31 B5 CA DE 27 CD 89 15 4F >...4..1...'...O
000080: 3E 01 B9 D2 8C 27 CD A0 1A C3 7C 27 3A DA 34 FE >....'....|':.4.
000090: 00 CA B1 27 CD 77 15 CD 90 16 2A DA 34 26 00 01 ...'.w....*.4&..
0000A0: C6 34 29 09 3E 00 77 23 36 00 21 DA 34 35 C3 8C .4).>.w#6.!.45..
0000B0: 27 2A C4 34 22 7B 34 3A DE 34 3D 4F 06 00 21 18 '*.4"{4:.4=O..!.
0000C0: 35 09 09 5E 23 56 2A C6 34 44 4D CD 5B 15 2A DE 5..^#V*.4DM.[.*.
0000D0: 34 26 00 01 18 35 29 09 3E 01 77 23 36 00 C3 F1 4&...5).>.w#6...
0000E0: 27 CD 89 15 21 B0 36 BE DA F1 27 CD A0 1A C3 E1 '...!.6...'.....
0000F0: 27 C9 21 17 35 36 01 21 B3 36 36 00 3A DE 34 3D '.!.56.!.66.:.4=
000100: 4F 06 00 21 18 35 09 09 5E 23 56 EB 22 C4 34 22 O..!.5..^#V.".4"
000110: 7B 34 3A DE 34 3D 3D 4F 06 00 21 18 35 09 09 4E {4:.4==O..!.5..N
000120: 23 46 E5 21 B1 36 71 E1 CD 16 12 2A DE 34 26 00 #F.!.6q....*.4&.
000130: 01 18 35 29 09 4E 23 46 21 B5 36 71 3A B1 36 D6 ..5).N#F!.6q:.6.
000140: 01 D6 01 9F F5 3A B1 36 D6 4D D6 01 9F C1 48 B1 .....:.6.M....H.
000150: 1F D2 62 29 CD 89 15 FE 4D C2 62 28 CD 0B 1B C3 ..b)....M.b(....
000160: 5F 29 CD 89 15 4F 3E 01 91 9F 2A DA 34 26 00 01 _)...O>...*.4&..
000170: C6 34 29 09 F5 3E 00 CD DB 31 B5 C6 FF 9F C1 48 .4)..>...1.....H
000180: A1 1F D2 DF 28 3A DA 34 3D 4F 06 00 21 C6 34 09 ....(:.4=O..!.4.
000190: 09 5E 23 56 EB 22 B6 36 22 7B 34 CD 0D 12 32 B2 .^#V.".6"{4...2.
0001A0: 36 CD 89 15 21 B2 36 BE C2 B7 28 2A B6 36 22 7B 6...!.6...(*.6"{
0001B0: 34 CD B2 26 C3 DC 28 CD 89 15 4F 3E 01 B9 D2 DC 4..&..(...O>....
0001C0: 28 CD A0 1A CD 89 15 21 69 35 96 D6 01 9F 2B A6 (......!i5....+.
0001D0: 1F D2 DC 28 21 68 35 36 00 CD 96 2A C3 62 28 CD ...(!h56...*.b(.
0001E0: 89 15 D6 01 D6 01 9F F5 3A DA 34 D6 00 C6 FF 9F ........:.4.....
0001F0: C1 48 A1 1F D2 0D 29 3A DA 34 3D 4F 06 00 21 C6 .H....):.4=O..!.
Size : 512 (Real : 512)
000000: 01 6A 35 09 7E 32 89 36 FE 41 C2 15 1F 0E 01 CD .j5.~2.6.A......
000010: FC 23 C3 CF 21 3A 89 36 FE 42 C2 25 1F 0E 02 CD .#..!:.6.B.%....
000020: FC 23 C3 CF 21 3A 89 36 FE 39 C2 39 1F 21 8E 36 .#..!:.6.9.9.!.6
000030: 34 0E 10 CD FC 23 C3 CF 21 3A 89 36 FE 58 C2 49 4....#..!:.6.X.I
000040: 1F 0E 04 CD FC 23 C3 CF 21 3A 89 36 D6 53 D6 01 .....#..!:.6.S..
000050: 9F F5 3E 00 11 8A 36 CD D0 31 B5 D6 01 9F C1 48 ..>...6..1.....H
000060: A1 1F D2 70 1F 3A 8F 36 F6 80 32 8F 36 C3 CF 21 ...p.:.6..2.6..!
000070: 3A 89 36 D6 56 D6 01 9F F5 3A 8C 36 D6 00 D6 01 :.6.V....:.6....
000080: 9F C1 48 A1 1F D2 9E 1F 3A 8F 36 F6 40 32 8F 36 ..H.....:.6.@2.6
000090: 2A 8A 36 EB 21 8C 36 73 23 36 01 C3 CF 21 3A 89 *.6.!.6s#6...!:.
0000A0: 36 D6 2F D6 01 9F F5 3A 89 36 D6 30 D6 01 9F C1 6./....:.6.0....
0000B0: 48 B1 1F D2 BE 1F 0E 08 CD FC 23 C3 CF 21 3A 89 H.........#..!:.
0000C0: 36 FE 24 C2 CE 1F 0E 00 CD 76 24 C3 CF 21 2A 89 6.$......v$..!*.
0000D0: 36 4D CD 5D 24 1F D2 E1 1F 0E 01 CD 76 24 C3 CF 6M.]$.......v$..
0000E0: 21 3A 89 36 D6 2A D6 01 9F F5 3A 89 36 D6 5A D6 !:.6.*....:.6.Z.
0000F0: 01 9F C1 48 B1 1F D2 01 20 0E 02 CD 76 24 C3 CF ...H.... ...v$..
000100: 21 3A 89 36 FE 2C C2 11 20 0E 20 CD FC 23 C3 CF !:.6.,.. . ..#..
000110: 21 3A 89 36 D6 2E D6 01 9F F5 3A 8C 36 D6 00 D6 !:.6......:.6...
000120: 01 9F C1 48 A1 1F D2 3C 20 0E 20 CD FC 23 2A 8A ...H...< . ..#*.
000130: 36 EB 21 8C 36 73 23 36 01 C3 CF 21 3A 89 36 D6 6.!.6s#6...!:.6.
000140: 43 D6 01 9F 2A 95 36 26 00 01 6B 35 09 F5 7E D6 C...*.6&..k5..~.
000150: 52 D6 01 9F C1 48 A1 F5 3A 89 36 D6 44 D6 01 9F R....H..:.6.D...
000160: F5 7E D6 42 D6 01 9F C1 48 A1 C1 48 B1 F5 3A 6A .~.B....H..H..:j
000170: 35 3D 21 95 36 96 D6 01 9F C1 48 A1 F5 3A 91 36 5=!.6.....H..:.6
000180: 2F C1 48 A1 1F D2 BA 20 0E 20 CD FC 23 3A 95 36 /.H.... . ..#:.6
000190: 3C 32 95 36 4F 06 00 21 6A 35 09 7E 32 89 36 0E <2.6O..!j5.~2.6.
0001A0: 20 CD FC 23 3A 8D 36 1F DA B7 20 3A 6A 35 3D 32 ..#:.6... :j5=2
0001B0: 8C 36 21 8D 36 36 01 C3 CF 21 3A 89 36 D6 28 D6 .6!.66...!:.6.(.
0001C0: 01 9F F5 3E 00 11 8A 36 CD D0 31 B5 C6 FF 9F C1 ...>...6..1.....
0001D0: 48 A1 1F D2 C8 21 3A 95 36 3D 4F 06 00 21 6A 35 H....!:.6=O..!j5
0001E0: 09 7E 32 9B 36 21 00 00 22 99 36 3A 95 36 3C 32 .~2.6!..".6:.6<2
0001F0: 95 36 4F 06 00 21 6A 35 09 7E 32 89 36 FE 29 CA .6O..!j5.~2.6.).
Size : 512 (Real : 512)
000000: 34 09 09 5E 23 56 EB 22 7B 34 CD B2 26 3A B5 36 4..^#V."{4..&:.6
000010: D6 00 D6 01 9F 2A DA 34 26 00 01 C6 34 29 09 F5 .....*.4&...4)..
000020: 3E 00 CD DB 31 B5 C6 FF 9F C1 48 A1 1F D2 38 29 >...1.....H...8)
000030: CD 0B 1B 21 E1 34 36 00 3A B5 36 D6 01 D6 01 9F ...!.46.:.6.....
000040: 2A DA 34 26 00 01 C6 34 29 09 11 E2 34 F5 CD C5 *.4&...4)...4...
000050: 31 B5 D6 01 9F C1 48 A1 1F D2 5F 29 CD 96 2A C3 1.....H..._)..*.
000060: 8F 2A CD 89 15 FE 4D C2 73 29 01 37 4C CD 34 0A .*....M.s).7L.4.
000070: C3 8F 2A CD 89 15 21 B1 36 BE DA 8F 2A CD 89 15 ..*...!.6...*...
000080: 21 B1 36 96 D6 01 9F F5 3A B5 36 D6 01 D6 01 9F !.6.....:.6.....
000090: C1 48 A1 2A DA 34 26 00 01 C6 34 29 09 11 E2 34 .H.*.4&...4)...4
0000A0: F5 CD C5 31 B5 D6 01 9F C1 48 A1 1F D2 B2 29 CD ...1.....H....).
0000B0: 96 2A 3A B3 36 1F DA 8F 2A 3A DA 34 3D 4F 06 00 .*:.6...*:.4=O..
0000C0: 21 C6 34 09 09 5E 23 56 EB 22 B6 36 22 7B 34 CD !.4..^#V.".6"{4.
0000D0: 0D 12 32 B2 36 CD 89 15 21 B2 36 BE C2 EB 29 2A ..2.6...!.6...)*
0000E0: B6 36 22 7B 34 CD B2 26 C3 8C 2A CD 89 15 21 B1 .6"{4..&..*...!.
0000F0: 36 96 9F 2F F5 3A B5 36 D6 00 D6 01 9F C1 48 A1 6../.:.6......H.
000100: 1F D2 3D 2A CD A0 1A CD 89 15 21 69 35 96 D6 01 ..=*......!i5...
000110: 9F 2B A6 F5 3A B1 36 23 96 D6 01 9F C1 48 A1 1F .+..:.6#.....H..
000120: D2 2B 2A 21 68 35 36 00 CD 96 2A CD 89 15 21 B1 .+*!h56...*...!.
000130: 36 BE D2 3A 2A 21 B3 36 36 01 C3 8C 2A CD 89 15 6..:*!.66...*...
000140: 21 B1 36 96 9F 2F F5 3A B5 36 D6 01 D6 01 9F C1 !.6../.:.6......
000150: 48 A1 1F D2 8C 2A CD 89 15 4F 3A B1 36 B9 D2 64 H....*...O:.6..d
000160: 2A CD A0 1A CD 89 15 21 69 35 96 D6 01 9F 2B A6 *......!i5....+.
000170: 1F D2 7C 2A 21 68 35 36 00 CD 96 2A CD 89 15 4F ..|*!h56...*...O
000180: 3A B1 36 B9 DA 8C 2A 21 B3 36 36 01 C3 B2 29 2A :.6...*!.66...)*
000190: C4 34 22 7B 34 C9 3A E1 34 32 B4 36 21 E1 34 36 .4"{4.:.42.6!.46
0001A0: 00 CD 77 15 CD 90 16 3A B4 36 32 E1 34 2A C4 34 ..w....:.62.4*.4
0001B0: 22 7B 34 C9 21 B8 36 71 3A 80 33 1F D2 CE 2A CD "{4.!.6q:.3...*.
0001C0: CA 09 0E 23 CD 2A 09 2A B8 36 4D CD 25 10 2A B8 ...#.*.*.6M.%.*.
0001D0: 36 4D 06 00 21 4C 2F 09 09 5E 23 56 EB E9 C3 10 6M..!L/..^#V....
0001E0: 30 21 90 34 36 00 CD EC 0C C3 10 30 C3 10 30 C3 0!.46......0..0.
0001F0: 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 .0..0..0..0..0..
Size : 512 (Real : 512)
000000: 39 21 3A 89 36 D6 30 9F F5 3E 39 21 89 36 96 9F 9!:.6.0..>9!.6..
000010: C1 48 B1 1F D2 1D 21 01 32 50 CD 34 0A 2A 99 36 .H....!.2P.4.*.6
000020: 29 29 29 E5 2A 99 36 29 C1 09 3A 89 36 D6 30 5F ))).*.6)..:.6.0_
000030: 16 00 19 22 99 36 C3 EB 20 3A 9B 36 32 89 36 3E ...".6.. :.62.6>
000040: 00 11 99 36 CD D0 31 B5 CA BE 21 21 01 00 22 96 ...6..1...!!..".
000050: 36 2A 99 36 2B EB 21 96 36 CD DE 31 DA 71 21 0E 6*.6+.!.6..1.q!.
000060: 00 CD FC 23 11 01 00 2A 96 36 19 22 96 36 D2 51 ...#...*.6.".6.Q
000070: 21 2A 9B 36 4D CD 5D 24 F5 3A 9B 36 D6 24 D6 01 !*.6M.]$.:.6.$..
000080: 9F C1 48 B1 F5 3A 9B 36 D6 2A D6 01 9F C1 48 B1 ..H..:.6.*....H.
000090: F5 3A 9B 36 D6 5A D6 01 9F C1 48 B1 F5 3A 9B 36 .:.6.Z....H..:.6
0000A0: D6 39 D6 01 9F C1 48 B1 1F D2 BB 21 11 99 36 3A .9....H....!..6:
0000B0: 8E 36 CD 62 31 2B EB 21 8E 36 73 C3 C5 21 2A 8A .6.b1+.!.6s..!*.
0000C0: 36 2B 22 8A 36 C3 CF 21 01 33 50 CD 34 0A C9 21 6+".6..!.3P.4..!
0000D0: 95 36 34 C3 F1 1E 3A 8D 36 2F F5 3A 95 36 3D 4F .64...:.6/.:.6=O
0000E0: 06 00 21 6A 35 09 4E CD 5D 24 C1 48 A1 1F D2 FC ..!j5.N.]$.H....
0000F0: 21 3A 6A 35 32 8C 36 21 8D 36 36 01 0E AF CD 24 !:j52.6!.66....$
000100: 24 1F D2 0D 22 21 9E 36 36 10 C3 1B 23 0E 2F CD $..."!.66...#./.
000110: 24 24 1F D2 1E 22 21 9E 36 36 11 C3 1B 23 0E FE $$..."!.66...#..
000120: CD 24 24 1F D2 2F 22 21 9E 36 36 08 C3 1B 23 0E .$$../"!.66...#.
000130: FC CD 24 24 1F D2 40 22 21 9E 36 36 48 C3 1B 23 ..$$..@"!.66H..#
000140: 0E EA CD 24 24 1F D2 51 22 21 9E 36 36 09 C3 1B ...$$..Q"!.66...
000150: 23 0E E0 CD 24 24 F5 3A 8F 36 E6 06 D6 00 C6 FF #...$$.:.6......
000160: 9F F5 3A 8F 36 E6 09 D6 00 C6 FF 9F C1 48 B1 F5 ..:.6........H..
000170: 3A 8F 36 E6 12 D6 00 C6 FF 9F C1 48 B1 C1 48 A1 :.6........H..H.
000180: 1F D2 8C 22 21 9E 36 36 49 C3 1B 23 0E 85 CD 24 ..."!.66I..#...$
000190: 24 1F D2 1B 23 21 9E 36 36 50 3A 94 36 FE 00 CA $...#!.66P:.6...
0001A0: 1B 23 21 95 36 36 01 2A 95 36 26 00 01 6A 35 09 .#!.66.*.6&..j5.
0001B0: 3A 94 36 BE CA BE 22 21 95 36 34 C3 A7 22 21 95 :.6..."!.64.."!.
0001C0: 36 34 3A 93 36 21 95 36 BE DA 1B 23 2A 95 36 26 64:.6!.6...#*.6&
0001D0: 00 01 6A 35 09 3A 94 36 96 C6 FF 9F F5 7E D6 42 ..j5.:.6.....~.B
0001E0: C6 FF 9F C1 48 A1 F5 7E D6 2F C6 FF 9F C1 48 A1 ....H..~./....H.
0001F0: F5 7E D6 30 C6 FF 9F C1 48 A1 F5 7E D6 2C C6 FF .~.0....H..~.,..
Size : 512 (Real : 512)
000000: 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0..0..0..0..0..0
000010: C3 10 30 C3 10 30 C3 10 30 21 25 32 36 01 C3 10 ..0..0..0!%26...
000020: 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0..0..0..0..0..0
000030: CD E3 24 C3 10 30 C3 10 30 2A E9 34 26 00 01 18 ..$..0..0*.4&...
000040: 35 29 09 E5 2A DE 34 26 00 29 09 D1 E5 CD A4 31 5)..*.4&.).....1
000050: EB E1 73 23 72 C3 10 30 2A E9 34 26 00 01 18 35 ..s#r..0*.4&...5
000060: 29 09 E5 2A DE 34 26 00 29 09 E3 4E 23 46 E1 71 )..*.4&.)..N#F.q
000070: 23 70 C3 10 30 2A DF 34 26 00 01 18 35 29 09 E5 #p..0*.4&...5)..
000080: 2A E9 34 26 00 29 09 D1 CD A4 31 E5 2A DE 34 26 *.4&.)....1.*.4&
000090: 00 01 18 35 29 09 C1 71 23 70 C3 10 30 CD D0 1B ...5)..q#p..0...
0000A0: C3 10 30 C3 10 30 2A E9 34 4D 11 04 00 CD B1 1B ..0..0*.4M......
0000B0: C3 10 30 01 49 4E CD 34 0A C3 10 30 C3 10 30 2A ..0.IN.4...0..0*
0000C0: E9 34 4D 11 02 00 CD B1 1B C3 10 30 2A DE 34 4D .4M........0*.4M
0000D0: 11 08 00 CD B1 1B 2A E9 34 26 00 01 18 35 29 09 ......*.4&...5).
0000E0: 5E 23 56 EB 22 7B 34 0E 1A CD ED 11 C3 10 30 C3 ^#V."{4.......0.
0000F0: 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 .0..0..0..0..0..
000100: 30 C3 10 30 C3 10 30 C3 10 30 21 86 33 36 01 C3 0..0..0..0!.36..
000110: 10 30 21 86 33 36 01 C3 10 30 C3 10 30 C3 10 30 .0!.36...0..0..0
000120: CD 89 15 4F 3E 01 B9 D2 30 2C CD A0 1A C3 20 2C ...O>...0,.... ,
000130: CD 0B 1B 21 E1 34 36 00 C3 10 30 CD 9C 12 C3 10 ...!.46...0.....
000140: 30 CD 9C 12 C3 10 30 C3 10 30 C3 10 30 C3 10 30 0.....0..0..0..0
000150: 2A E9 34 26 00 01 18 35 29 09 4E 23 46 CD 3F 12 *.4&...5).N#F.?.
000160: C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 2A ..0..0..0..0..0*
000170: E9 34 26 00 01 18 35 29 09 E5 2A DE 34 26 00 29 .4&...5)..*.4&.)
000180: 09 E3 4E 23 46 E1 71 23 70 0E 04 CD ED 11 C3 10 ..N#F.q#p.......
000190: 30 CD 89 15 FE 4D CA 0E 2D CD 89 15 4F 3E 01 B9 0....M..-...O>..
0001A0: D2 D9 2C 3A DA 34 3D 4F 06 00 21 C6 34 09 09 5E ..,:.4=O..!.4..^
0001B0: 23 56 EB 22 7B 34 CD 0D 12 F5 CD 89 15 C1 48 B9 #V."{4........H.
0001C0: C2 C9 2C CD B2 26 C3 D6 2C CD 89 15 4F 3E 01 B9 ..,..&..,...O>..
0001D0: D2 D6 2C CD A0 1A C3 99 2C CD 89 15 D6 01 D6 01 ..,.....,.......
0001E0: 9F F5 3A DA 34 D6 00 C6 FF 9F C1 48 A1 1F D2 0E ..:.4......H....
0001F0: 2D 3A DA 34 3D 4F 06 00 21 C6 34 09 09 5E 23 56 -:.4=O..!.4..^#V
Size : 512 (Real : 512)
000000: 9F C1 48 A1 1F D2 14 23 01 34 50 CD 34 0A 3A 93 ..H....#.4P.4.:.
000010: 36 32 95 36 21 95 36 34 C2 C2 22 3A 9E 36 FE 00 62.6!.64..":.6..
000020: C2 2C 23 01 35 50 CD 34 0A C3 A7 23 CD E6 11 FE .,#.5P.4...#....
000030: 80 C2 40 23 3A 9E 36 C6 80 4F CD ED 11 C3 47 23 ..@#:.6..O....G#
000040: 2A 9E 36 4D CD ED 11 CD 56 12 EB 2A 8A 36 19 44 *.6M....V..*.6.D
000050: 4D CD 3F 12 3A 9E 36 E6 40 FE 00 CA 84 23 2A 8A M.?.:.6.@....#*.
000060: 36 44 4D CD 36 24 22 9C 36 44 4D CD 62 12 2A 9C 6DM.6$".6DM.b.*.
000070: 36 44 4D 2A 8A 36 EB CD A9 13 2A 8A 36 EB 01 05 6DM*.6....*.6...
000080: 36 CD 2B 13 3E 12 21 8E 36 BE D2 93 23 01 36 50 6.+.>.!.6...#.6P
000090: CD 34 0A 3A 8D 36 1F D2 A7 23 3A 8C 36 11 8A 36 .4.:.6...#:.6..6
0000A0: CD D0 31 4D CD 2F 12 3A 17 35 2F F5 3A 9E 36 D6 ..1M./.:.5/.:.6.
0000B0: 10 D6 01 9F F5 3A 9E 36 D6 11 D6 01 9F C1 48 B1 .....:.6......H.
0000C0: C1 48 A1 1F D2 FB 23 21 98 36 36 00 3A 91 34 21 .H....#!.66.:.4!
0000D0: 98 36 BE DA F3 23 2A 98 36 26 00 01 91 34 09 E5 .6...#*.6&...4..
0000E0: 2A 98 36 26 00 01 6A 35 09 D1 1A 77 21 98 36 34 *.6&..j5...w!.64
0000F0: C2 CC 23 CD C8 1C 21 17 35 36 01 C9 21 9F 36 71 ..#...!.56..!.6q
000100: 3A 9F 36 21 8F 36 B6 77 2A 8A 36 23 22 8A 36 EB :.6!.6.w*.6#".6.
000110: 3E 85 CD B9 31 D2 23 24 2A 8A 36 01 04 36 09 3A >...1.#$*.6..6.:
000120: 89 36 77 C9 21 A0 36 71 3A A0 36 21 8F 36 A6 D6 .6w.!.6q:.6!.6..
000130: 00 C6 FF 9F 2F C9 21 A2 36 70 2B 71 01 A1 36 11 ..../.!.6p+q..6.
000140: D4 32 CD C3 31 EB 2B 73 23 72 21 D6 32 CD DE 31 .2..1.+s#r!.2..1
000150: D2 59 24 01 4F 4D CD AA 0B 2A D4 32 C9 21 A3 36 .Y$.OM...*.2.!.6
000160: 71 3A A3 36 D6 2B D6 01 9F F5 3A A3 36 D6 2D D6 q:.6.+....:.6.-.
000170: 01 9F C1 48 B1 C9 21 A4 36 71 3A 94 36 D6 00 D6 ...H..!.6q:.6...
000180: 01 9F 2A A4 36 26 00 01 90 36 09 A6 1F D2 96 24 ..*.6&...6.....$
000190: 3A 89 36 32 94 36 21 94 36 3A 89 36 96 C6 FF 9F :.62.6!.6:.6....
0001A0: 2A A4 36 26 00 01 90 36 09 A6 1F D2 B4 24 01 31 *.6&...6.....$.1
0001B0: 50 CD 34 0A 2A A4 36 26 00 01 90 36 09 7E 1F D2 P.4.*.6&...6.~..
0001C0: D2 24 2A 8A 36 23 EB 21 93 36 73 21 8E 36 34 C3 .$*.6#.!.6s!.64.
0001D0: DD 24 2A A4 36 26 00 01 90 36 09 36 01 0E 20 CD .$*.6&...6.6.. .
0001E0: FC 23 C9 2A DF 34 26 00 01 18 35 29 09 11 7B 34 .#.*.4&...5)..{4
0001F0: CD C5 31 B5 CA 1B 25 2A 7B 34 22 A5 36 2A DF 34 ..1...%*{4".6*.4
Size : 512 (Real : 512)
000000: EB 22 7B 34 3A E1 34 1F D2 0E 2D CD B2 26 CD 0B ."{4:.4...-..&..
000010: 1B C3 10 30 C3 10 30 C3 10 30 C3 10 30 C3 10 30 ...0..0..0..0..0
000020: C3 10 30 CD 90 15 3A E6 34 D6 00 C6 FF 9F F5 3A ..0...:.4......:
000030: 68 35 2F C1 48 A1 1F D2 42 2D 2A DA 34 26 00 22 h5/.H...B-*.4&."
000040: E7 34 C3 10 30 3A 13 32 1F DA 62 2D CD E6 11 FE .4..0:.2..b-....
000050: 1A C2 5C 2D 0E 19 CD ED 11 C3 62 2D 01 44 44 CD ..\-......b-.DD.
000060: 34 0A C3 10 30 2A D8 32 22 7B 34 2A E9 34 26 00 4...0*.2"{4*.4&.
000070: 01 18 35 29 09 E5 2A D8 32 EB E1 73 23 72 0E 00 ..5)..*.2..s#r..
000080: CD C9 13 C3 10 30 3A 13 32 1F D2 93 2D 01 44 55 .....0:.2...-.DU
000090: CD 34 0A 2A E9 34 26 00 01 18 35 29 09 3A E9 34 .4.*.4&...5).:.4
0000A0: 3D 3D E5 6F 26 00 29 09 5E 23 56 E1 4E 23 46 CD ==.o&.).^#V.N#F.
0000B0: 5B 15 2A DE 34 26 00 01 18 35 29 09 3E 01 77 23 [.*.4&...5).>.w#
0000C0: 36 00 3A 86 33 1F DA CF 2D 01 33 52 CD 34 0A CD 6.:.3...-.3R.4..
0000D0: F2 27 C3 10 30 3A 86 33 1F DA E2 2D CD 39 27 C3 .'..0:.3...-.9'.
0000E0: E5 2D CD F2 27 C3 10 30 C3 10 30 C3 10 30 C3 10 .-..'..0..0..0..
0000F0: 30 C3 10 30 CD A1 1E C3 10 30 C3 10 30 0E 15 CD 0..0.....0..0...
000100: ED 11 C3 10 30 C3 10 30 C3 10 30 0E 11 CD 82 1C ....0..0..0.....
000110: C3 10 30 0E 12 CD 82 1C C3 10 30 C3 10 30 2A E9 ..0.......0..0*.
000120: 34 26 00 01 18 35 29 09 4E 23 46 CD 79 12 21 7D 4&...5).N#F.y.!}
000130: 34 34 CD CE 12 2A 7B 34 22 7E 34 CD 0D 12 6F 26 44...*{4"~4...o&
000140: 00 22 15 35 D6 01 D6 01 9F F5 3E 4D 11 15 35 CD .".5......>M..5.
000150: D0 31 B5 D6 01 9F C1 48 B1 1F D2 63 2E 01 4C 4F .1.....H...c..LO
000160: CD 34 0A C3 10 30 C3 10 30 3A 86 33 1F DA 7B 2E .4...0..0:.3..{.
000170: 01 45 56 CD 34 0A 21 E6 34 36 00 C3 10 30 C3 10 .EV.4.!.46...0..
000180: 30 C3 10 30 C3 10 30 2A E9 34 26 00 01 18 35 29 0..0..0*.4&...5)
000190: 09 3E 02 77 23 36 00 C3 10 30 C3 10 30 CD E6 11 .>.w#6...0..0...
0001A0: 32 B9 36 D6 10 9F F5 3E 15 21 B9 36 96 9F C1 48 2.6....>.!.6...H
0001B0: B1 1F D2 C8 2E 01 56 4E CD 34 0A 0E 00 CD 9F 25 ......VN.4.....%
0001C0: 21 E6 34 36 02 C3 D2 2E 0E 01 CD 9F 25 21 E6 34 !.46........%!.4
0001D0: 36 01 C3 10 30 0E 00 CD 9F 25 21 E6 34 36 02 C3 6...0....%!.46..
0001E0: 10 30 21 E6 34 36 03 C3 10 30 21 E6 34 36 04 C3 .0!.46...0!.46..
0001F0: 10 30 21 E6 34 36 05 C3 10 30 CD 48 1B C3 10 30 .0!.46...0.H...0
Size : 512 (Real : 512)
000000: 26 00 01 18 35 29 09 5E 23 56 EB 22 7B 34 01 0A &...5).^#V."{4..
000010: 00 09 E5 2A A5 36 EB E1 73 23 72 3A E9 34 3D 4F ...*.6..s#r:.4=O
000020: 06 00 21 18 35 09 09 5E 23 56 EB 22 A5 36 7D 1F ..!.5..^#V.".6}.
000030: DA 3C 25 01 46 4E CD 34 0A C3 95 25 3E 01 11 A5 .<%.FN.4...%>...
000040: 36 CD D0 31 B5 D6 01 9F F5 3E 05 1B CD D0 31 B5 6..1.....>....1.
000050: D6 01 9F C1 48 B1 1F D2 62 25 21 A7 36 36 01 C3 ....H...b%!.66..
000060: 95 25 3E 0F 11 A5 36 CD D0 31 B5 C2 76 25 21 A7 .%>...6..1..v%!.
000070: 36 36 03 C3 95 25 3E 0D 11 A5 36 CD D0 31 B5 C2 66...%>...6..1..
000080: 8A 25 21 A7 36 36 02 C3 95 25 01 41 49 CD 34 0A .%!.66...%.AI.4.
000090: 21 A7 36 36 01 3A A7 36 C6 80 4F CD ED 11 C9 21 !.66.:.6..O....!
0000A0: A8 36 71 CD E6 11 32 AA 36 3A AA 36 FE 00 CA B9 .6q...2.6:.6....
0000B0: 25 21 68 35 36 00 C3 C4 25 21 68 35 36 01 CD 0D %!h56...%!h56...
0000C0: 12 32 69 35 3A E6 34 FE 00 CA D5 25 01 45 4C CD .2i5:.4....%.EL.
0000D0: 34 0A C3 B1 26 3A A8 36 D6 00 D6 01 9F F5 3A AA 4...&:.6......:.
0000E0: 36 D6 00 D6 01 9F C1 48 B1 1F D2 39 26 21 A9 36 6......H...9&!.6
0000F0: 36 00 3A 6A 35 21 A9 36 BE DA 19 26 2A A9 36 26 6.:j5!.6...&*.6&
000100: 00 01 6A 35 09 E5 2A A9 36 26 00 01 91 34 09 D1 ..j5..*.6&...4..
000110: 1A 77 21 A9 36 34 C2 F2 25 3A A8 36 D6 01 D6 01 .w!.64..%:.6....
000120: 9F F5 3A AA 36 D6 00 D6 01 9F C1 48 A1 1F D2 36 ..:.6......H...6
000130: 26 21 17 35 36 00 C3 B1 26 3A A8 36 D6 01 D6 01 &!.56...&:.6....
000140: 9F F5 3A AA 36 D6 10 9F 2F F5 3E 15 21 AA 36 96 ..:.6.../.>.!.6.
000150: 9F 2F C1 48 A1 C1 48 A1 1F D2 62 26 CD C8 1C C3 ./.H..H...b&....
000160: B1 26 3A A8 36 D6 01 D6 01 9F F5 3A AA 36 D6 00 .&:.6......:.6..
000170: C6 FF 9F C1 48 A1 1F D2 B1 26 01 56 4C CD 34 0A ....H....&.VL.4.
000180: 21 A9 36 36 00 3A 6A 35 21 A9 36 BE DA AC 26 2A !.66.:j5!.6...&*
000190: A9 36 26 00 01 6A 35 09 E5 2A A9 36 26 00 01 91 .6&..j5..*.6&...
0001A0: 34 09 D1 1A 77 21 A9 36 34 C2 85 26 21 E6 34 36 4...w!.64..&!.46
0001B0: 02 C9 2A E2 34 22 AC 36 2A E4 34 22 AE 36 2A 7B ..*.4".6*.4".6*{
0001C0: 34 22 E2 34 CD 77 15 CD E6 11 4F 3E 80 91 9F F5 4".4.w....O>....
0001D0: CD 90 12 3E 00 CD AF 31 B5 C6 FF 9F C1 48 A1 1F ...>...1.....H..
0001E0: D2 FE 26 3A 7D 34 3D 32 7D 34 FE 00 CA F8 26 CD ..&:}4=2}4....&.
0001F0: B3 12 22 7E 34 C3 FE 26 21 00 00 22 7E 34 2A 7B .."~4..&!.."~4*{
Size : 512 (Real : 512)
000000: CD 04 14 E5 2A E9 34 26 00 01 18 35 29 09 C1 71 ....*.4&...5)..q
000010: 23 70 3A 12 32 1F D2 49 2F 21 12 32 36 00 23 7E #p:.2..I/!.26.#~
000020: 1F D2 2D 2F 01 44 55 CD 34 0A C3 49 2F CD E6 11 ..-/.DU.4..I/...
000030: 4F 3E 80 B9 D2 43 2F CD E6 11 D6 80 4F CD ED 11 O>...C/.....O...
000040: C3 49 2F 01 44 44 CD 34 0A C3 10 30 DE 2A E1 2A .I/.DD.4...0.*.*
000050: EC 2A EF 2A F2 2A F5 2A F8 2A FB 2A FE 2A 01 2B .*.*.*.*.*.*.*.+
000060: 04 2B 07 2B 0A 2B 0D 2B 10 2B 13 2B 16 2B 19 2B .+.+.+.+.+.+.+.+
000070: 21 2B 24 2B 27 2B 2A 2B 2D 2B 30 2B 36 2B 39 2B !+$+'+*+-+0+6+9+
000080: 58 2B 75 2B 9D 2B A3 2B A6 2B B3 2B BC 2B BF 2B X+u+.+.+.+.+.+.+
000090: CC 2B EF 2B F2 2B F5 2B F8 2B FB 2B FE 2B 01 2C .+.+.+.+.+.+.+.,
0000A0: 04 2C 07 2C 0A 2C 12 2C 1A 2C 1D 2C 20 2C 3B 2C .,.,.,.,.,., ,;,
0000B0: 41 2C 47 2C 4A 2C 4D 2C 50 2C 63 2C 66 2C 69 2C A,G,J,M,P,c,f,i,
0000C0: 6C 2C 6F 2C 91 2C 14 2D 17 2D 1A 2D 1D 2D 20 2D l,o,.,.-.-.-.- -
0000D0: 23 2D 45 2D 65 2D 86 2D D5 2D E8 2D EB 2D EE 2D #-E-e-.-.-.-.-.-
0000E0: F1 2D F4 2D FA 2D FD 2D 05 2E 08 2E 0B 2E 13 2E .-.-.-.-........
0000F0: 1B 2E 1E 2E 66 2E 69 2E 7E 2E 81 2E 84 2E 87 2E ....f.i.~.......
000100: 9A 2E 9D 2E D5 2E E2 2E EA 2E F2 2E FA 2E 00 2F .............../
000110: C9 2A EA 34 26 00 01 FF 02 09 7E C9 2A EA 34 26 .*.4&.....~.*.4&
000120: 00 01 FD 03 09 7E C9 3A E9 34 3C 32 E9 34 FE 28 .....~.:.4<2.4.(
000130: DA 39 30 01 4F 53 CD AA 0B 2A E9 34 26 00 01 18 .90.OS...*.4&...
000140: 35 29 09 3E 00 77 23 36 00 C9 3A E0 34 1F D2 7F 5).>.w#6..:.4...
000150: 30 CD B2 0F 3A 6A 34 FE 02 C2 61 30 21 12 32 36 0...:j4...a0!.26
000160: 01 21 E0 34 36 00 3A 81 33 1F D2 7F 30 CD CA 09 .!.46.:.3...0...
000170: 2A 6A 34 4D CD 25 10 0E 20 CD 2A 09 CD EE 0F C9 *j4M.%.. .*.....
000180: 21 BA 36 71 2A BA 36 26 00 01 FF 02 09 7E 32 BC !.6q*.6&.....~2.
000190: 36 2A BA 36 26 00 01 FD 03 09 86 3D 32 BD 36 3A 6*.6&......=2.6:
0001A0: BC 36 32 BB 36 3A BD 36 21 BB 36 BE DA C9 30 2A .62.6:.6!.6...0*
0001B0: BB 36 26 00 01 03 01 09 3A 6A 34 BE C2 C2 30 3E .6&.....:j4...0>
0001C0: 01 C9 21 BB 36 34 C2 A5 30 3E 00 C9 3A E9 34 32 ..!.64..0>..:.42
0001D0: BE 36 3A BE 36 FE FF CA 0B 31 2A BE 36 26 00 01 .6:.6....1*.6&..
0001E0: EB 34 09 7E 32 BF 36 4F CD 80 30 1F D2 04 31 21 .4.~2.6O..0...1!
0001F0: BE 36 3A E9 34 BE CA 00 31 3A BE 36 3D 32 E9 34 .6:.4...1:.6=2.4
Size : 512 (Real : 512)
000000: C3 F7 0C 00 50 0E 0F 14 1A 1C 20 22 24 26 2C 2D ....P..... "$&,-
000010: 36 37 39 3A 40 41 45 46 4B 4D 3F 03 29 3F 3F 03 679:@AEFKM?.)??.
000020: 04 07 29 3F 4E 29 3F 2A 29 2A 31 32 3F 4C 17 30 ..)?N)?*)*12?L.0
000030: 3D 2F 19 29 2A 31 32 3F 10 01 35 23 3F 4A 01 48 =/.)*12?..5#?J.H
000040: 03 2B 38 27 02 0A 0B 1F 2E 42 44 51 0E 0F 14 1A .+8'.....BDQ....
000050: 1C 20 21 22 24 26 2C 36 37 39 3A 40 41 45 46 4B . !"$&,679:@AEFK
000060: 4D 0D 0D 1E 0D 33 05 08 29 34 3F 49 4E 15 06 15 M....3..)4?IN...
000070: 0B 47 3C 3C 47 3C 47 01 1B 3B 3B 12 18 12 29 3C .G<<G<G..;;...)<
000080: 3F 0C 16 43 0E 14 1A 1C 20 22 26 2C 36 37 39 3A ?..C.... "&,679:
000090: 40 41 45 46 4B 4D 1D 29 3C 3F 1D 43 01 01 0E 0F @AEFKM.)<?.C....
0000A0: 14 1A 1C 20 22 24 26 2C 36 37 39 3A 40 41 45 46 ... "$&,679:@AEF
0000B0: 4B 4D 04 07 04 06 07 0E 0F 11 14 1A 1C 20 21 22 KM........... !"
0000C0: 24 26 2C 36 37 39 3A 40 41 45 46 4B 4D 11 3F 4F $&,679:@AEFKM.?O
0000D0: 34 13 3F 25 28 29 2A 31 32 3F 06 09 03 29 2A 31 4.?%()*12?...)*1
0000E0: 32 3F 00 00 00 13 3F 00 3F 00 03 00 35 00 3F 4F 2?....?.?...5.?O
0000F0: 00 3F 00 2B 38 00 03 00 27 00 05 08 00 05 08 00 .?.+8...'.......
000100: 05 08 00 05 08 00 05 08 00 29 34 3F 49 00 15 00 .........)4?I...
000110: 15 00 47 00 47 00 3C 47 00 3C 47 00 47 00 47 00 ..G.G.<G.<G.G.G.
000120: 47 00 47 00 47 00 02 0A 0B 18 1F 2E 42 44 51 00 G.G.G.......BDQ.
000130: 17 30 3D 00 0C 00 0C 00 0C 00 35 00 43 00 3F 00 .0=.......5.C.?.
000140: 3F 00 1B 3B 00 04 07 00 3F 00 11 00 3F 00 25 00 ?..;....?...?.%.
000150: 28 29 2A 31 32 3F 00 13 3F 00 00 00 71 00 13 00 ()*12?..?...q...
000160: 00 80 00 00 86 00 47 69 6E 77 7B 82 00 00 00 00 ......Ginw{.....
000170: 85 00 00 7F 00 00 00 00 00 47 77 7B 00 47 00 00 .........Gw{.G..
000180: 69 6E 82 00 00 00 06 00 07 08 0A 0B 00 09 0C 00 in..............
000190: 0F 00 69 6E 82 00 29 00 04 15 00 19 00 00 00 00 ..in..).........
0001A0: 58 5A 5B 5C 5D 5E 5F 60 00 00 00 00 00 00 72 00 XZ[\]^_`......r.
0001B0: 00 00 00 00 66 00 10 11 16 17 1C 1E 2F 30 31 32 ....f......./012
0001C0: 33 34 39 42 00 00 02 10 11 13 16 17 1B 1C 1E 22 349B..........."
0001D0: 25 27 28 2A 2B 2C 2D 2F 30 31 32 33 34 36 37 39 %'(*+,-/01234679
0001E0: 3E 42 73 74 7A 7D 7E 80 84 85 00 06 07 08 09 0A >Bstz}~.........
0001F0: 0B 0C 0E 0F 12 18 1D 2E 3B 3C 51 67 6F 00 10 11 ........;<Qgo...
Size : 512 (Real : 512)
000000: 3A BF 36 C9 21 BE 36 35 C3 D2 30 CD B2 0F C3 CC :.6.!.65..0.....
000010: 30 C9 0E 46 CD F8 12 2A D6 32 44 4D CD 63 13 01 0..F...*.2DM.c..
000020: 10 34 C5 11 05 00 01 2B 32 CD 19 0C 01 DB 32 11 .4.....+2.....2.
000030: 7C 33 CD C8 31 EB 2B 73 23 72 01 30 32 11 D2 32 |3..1.+s#r.02..2
000040: CD C8 31 EB 2B 73 23 72 01 25 32 C5 01 21 32 11 ..1.+s#r.%2..!2.
000050: 16 32 CD C3 31 44 4D 2A 21 32 EB CD 19 0C C3 00 .2..1DM*!2......
000060: 38 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C 67 C9 44 8.._.....o...g.D
000070: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
000080: 98 67 13 D2 88 31 09 1B F1 3D C2 76 31 C9 44 4D .g...1...=.v1.DM
000090: 21 00 00 3E 10 29 EB 29 EB D2 9D 31 09 3D C2 95 !..>.).)...1.=..
0000A0: 31 C9 69 60 4E 23 46 1A B1 6F 13 1A B0 67 C9 5F 1.i`N#F..o...g._
0000B0: 16 00 7B 95 6F 7A 9C 67 C9 4F 06 00 7B 91 6F 7A ..{.oz.g.O..{.oz
0000C0: 98 67 C9 69 60 4E 23 46 1A 91 6F 13 1A 98 67 C9 .g.i`N#F..o...g.
0000D0: 6F 26 00 1A 95 6F 13 1A 9C 67 C9 5F 16 00 7B 96 o&...o...g._..{.
0000E0: 5F 7A 23 9E 57 EB C9 00 00 00 00 00 00 00 00 00 _z#.W...........
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 36 00 00 20 20 20 20 20 20 20 20 .....6..
000120: 20 61 01 00 38 00 20 20 20 20 30 00 00 00 00 00 a..8. 0.....
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 20 20 20 20 20 20 20 20 4C 53 54 00 00 00 00 . LST....
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 01 00 00 00 00 02 35 00 00 00 00 00 00 00 00 .......5........
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 ................
Size : 512 (Real : 512)
000000: 16 17 1C 1E 2C 2F 30 31 32 33 34 39 42 00 00 00 ....,/012349B...
000010: 24 00 00 1F 35 68 83 00 00 00 00 00 00 3F 00 13 $...5h.......?..
000020: 00 59 01 18 00 1A 00 8A 00 1F 00 21 00 22 00 24 .Y.........!.".$
000030: 00 27 00 28 00 2B 00 2C 00 2D 00 2E 00 34 00 35 .'.(.+.,.-...4.5
000040: 00 36 00 37 00 3B 00 3C 00 4B 01 06 00 49 01 8B .6.7.;.<.K...I..
000050: 00 4C 01 06 00 07 00 0A 00 49 01 8B 00 DA 00 49 .L.......I.....I
000060: 01 8B 00 4D 01 49 01 4E 01 50 01 4F 01 8B 00 F9 ...M.I.N.P.O....
000070: 00 42 01 40 01 41 01 39 01 2D 01 53 01 4E 01 50 .B.@.A.9.-.S.N.P
000080: 01 4F 01 52 01 14 00 CE 00 2A 00 3F 01 45 01 8C .O.R.....*.?.E..
000090: 00 89 00 38 00 05 00 3D 01 3C 01 25 00 28 01 27 ...8...=.<.%.(.'
0000A0: 01 29 01 25 01 26 01 24 01 1F 01 20 01 13 00 59 .).%.&.$... ...Y
0000B0: 01 18 00 1A 00 8A 00 1F 00 20 00 21 00 22 00 24 ......... .!.".$
0000C0: 00 27 00 2B 00 2C 00 2D 00 2E 00 34 00 35 00 36 .'.+.,.-...4.5.6
0000D0: 00 37 00 3B 00 3C 00 12 00 10 00 1E 00 11 00 EA .7.;.<..........
0000E0: 00 09 00 0C 00 49 01 29 00 8B 00 39 00 3D 00 19 .....I.)...9.=..
0000F0: 00 1E 01 19 00 0E 00 2A 01 31 00 32 00 2A 01 33 .......*.1.2.*.3
000100: 00 2A 01 02 00 FA 00 F7 00 F6 00 17 00 22 01 16 .*..........."..
000110: 00 49 01 2F 00 8B 00 0F 00 2F 01 38 01 13 00 18 .I./...../.8....
000120: 00 1A 00 8A 00 1F 00 21 00 24 00 27 00 2B 00 2C .......!.$.'.+.,
000130: 00 2D 00 2E 00 34 00 35 00 36 00 37 00 3B 00 3C .-...4.5.6.7.;.<
000140: 00 1C 00 49 01 30 00 8B 00 1D 00 38 01 CF 00 D0 ...I.0.....8....
000150: 00 13 00 59 01 18 00 1A 00 8A 00 1F 00 21 00 22 ...Y.........!."
000160: 00 24 00 27 00 2B 00 2C 00 2D 00 2E 00 34 00 35 .$.'.+.,.-...4.5
000170: 00 36 00 37 00 3B 00 3C 00 08 00 0B 00 08 00 14 .6.7.;.<........
000180: 01 0B 00 13 00 59 01 15 00 18 00 1A 00 8A 00 1F .....Y..........
000190: 00 20 00 21 00 22 00 24 00 27 00 2B 00 2C 00 2D . .!.".$.'.+.,.-
0001A0: 00 2E 00 34 00 35 00 36 00 37 00 3B 00 3C 00 15 ...4.5.6.7.;.<..
0001B0: 00 46 01 3E 00 29 00 C5 00 46 01 23 00 26 00 49 .F.>.)...F.#.&.I
0001C0: 01 4E 01 50 01 4F 01 8B 00 4A 01 0D 00 04 00 49 .N.P.O...J.....I
0001D0: 01 4E 01 50 01 4F 01 8B 00 00 00 00 00 00 00 CC .N.P.O..........
0001E0: 00 CC 00 03 00 1B 00 B4 00 46 01 47 01 3A 00 B5 .........F.G.:..
0001F0: 00 C8 00 C8 00 DC 00 42 00 B6 00 43 00 43 00 B7 .......B...C.C..
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 20 20 20 20 ............
000060: 20 20 20 20 43 49 4E 00 00 00 00 00 00 00 00 00 CIN.........
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ................
000080: 00 00 00 00 00 39 00 5C 00 00 00 00 00 00 00 00 .....9.\........
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 06 ................
0000C0: 00 09 00 2D 00 50 00 86 00 B7 00 E7 00 02 01 16 ...-.P..........
0000D0: 01 2C 01 68 01 82 01 90 01 00 00 00 00 00 00 00 .,.h............
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 01 0D 05 ................
000110: 20 20 20 31 20 00 00 00 00 00 00 00 00 00 00 00 1 ...........
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 00 00 00 00 00 00 01 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: 01 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: 01 00 00 00 00 00 00 00 00 FF 01 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 00 44 00 44 01 45 00 B8 00 4C 00 4C 00 09 01 4D .D.D.E...L.L...M
000010: 00 4D 00 0C 01 4E 00 4E 00 0D 01 4F 00 4F 00 0A .M...N.N...O.O..
000020: 01 50 00 50 00 0B 01 51 00 51 00 51 00 51 00 B9 .P.P...Q.Q.Q.Q..
000030: 00 53 00 18 01 55 00 19 01 57 00 BA 00 58 00 BB .S...U...W...X..
000040: 00 5A 00 5A 00 BC 00 5B 00 5B 00 BD 00 5C 00 BE .Z.Z...[.[...\..
000050: 00 5D 00 BF 00 5E 00 C0 00 5F 00 C1 00 60 00 C2 .]...^..._...`..
000060: 00 C3 00 C3 00 C3 00 65 00 C3 00 C3 00 C3 00 C3 .......e........
000070: 00 C3 00 1C 01 66 00 66 00 66 00 DF 00 6A 00 0E .....f.f.f...j..
000080: 01 6B 00 0F 01 6C 00 10 01 71 00 C4 00 72 00 D8 .k...l...q...r..
000090: 00 73 00 E6 00 74 00 E7 00 F8 00 F8 00 77 00 78 .s...t.......w.x
0000A0: 00 78 00 04 01 7A 00 D7 00 7C 00 EE 00 7D 00 C6 .x...z...|...}..
0000B0: 00 81 00 D5 00 83 00 83 00 83 00 83 00 83 00 83 ................
0000C0: 00 D9 00 CD 00 CD 00 86 00 00 00 00 00 D6 00 61 ...............a
0000D0: 00 7E 00 B0 00 80 00 CB 00 CA 00 B3 00 76 00 75 .~...........v.u
0000E0: 00 32 01 F4 00 F5 00 33 01 32 01 F3 00 D1 00 AE .2.....3.2......
0000F0: 00 B2 00 A4 00 AB 00 AA 00 E0 00 EC 00 EB 00 70 ...............p
000100: 00 7F 00 48 00 F0 00 34 01 35 01 34 01 D2 00 63 ...H...4.5.4...c
000110: 00 62 00 47 00 D5 00 D5 00 D5 00 B1 00 67 00 6F .b.G.........g.o
000120: 00 79 00 AD 00 93 00 95 00 94 00 96 00 92 00 A6 .y..............
000130: 00 A7 00 A5 00 12 01 11 01 D8 00 D8 00 D8 00 A9 ................
000140: 00 AF 00 7B 00 54 00 99 00 98 00 1B 01 1A 01 1D ...{.T..........
000150: 01 46 00 68 00 FC 00 FD 00 00 01 02 01 03 01 FE .F.h............
000160: 00 FF 00 01 01 FB 00 E1 00 6E 00 D3 00 AC 00 97 .........n......
000170: 00 69 00 2E 01 82 00 17 01 52 00 3A 01 85 00 84 .i.......R.:....
000180: 00 59 00 9D 00 9A 00 DE 00 9E 00 9C 00 9B 00 9F .Y..............
000190: 00 A0 00 A1 00 A2 00 56 00 EF 00 30 01 D4 00 3E .......V...0...>
0001A0: 01 40 00 90 00 90 00 8D 00 90 00 90 00 56 01 90 .@...........V..
0001B0: 00 90 00 58 01 36 01 E2 00 8E 00 C8 00 8F 00 90 ...X.6..........
0001C0: 00 15 01 90 00 90 00 90 00 90 00 90 00 90 00 91 ................
0001D0: 00 16 01 90 00 DD 00 90 00 E9 00 E9 00 E3 00 C9 ................
0001E0: 00 C9 00 40 00 E8 00 E8 00 41 00 13 01 13 01 13 ...@.....A......
0001F0: 01 13 01 13 01 13 01 13 01 13 01 13 01 F2 00 05 ................
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
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: 31 A8 38 11 00 01 0E 1A CD 05 00 01 AA 38 CD 4E 1.8..........8.N
000110: 38 FE FF C2 1C 38 01 32 4F CD 76 38 21 00 01 22 8....8.2O.v8!.."
000120: CB 38 2A CB 38 44 4D CD 5E 38 FE 00 C2 3C 38 11 .8*.8DM.^8...<8.
000130: 80 00 2A CB 38 19 22 CB 38 C3 22 38 11 80 00 0E ..*.8.".8."8....
000140: 1A CD 05 00 21 4C 38 E5 2A A8 38 E9 FB 76 21 CE ....!L8.*.8..v!.
000150: 38 70 2B 71 2A CD 38 EB 0E 0F CD 05 00 C9 21 D0 8p+q*.8.......!.
000160: 38 70 2B 71 2A CF 38 EB 0E 1A CD 05 00 11 AA 38 8p+q*.8........8
000170: 0E 14 CD 05 00 C9 21 D2 38 70 2B 71 2A D1 38 7C ......!.8p+q*.8|
000180: 5F 16 00 0E 02 CD 05 00 2A D1 38 7D 5F 16 00 0E _.......*.8}_...
000190: 02 CD 05 00 CD 00 00 C9 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 01 00 43 4F 42 4F 4C ...........COBOL
0001B0: 20 20 20 4F 56 52 00 00 00 00 00 00 00 00 00 00 OVR..........
0001C0: 00 00 00 00 00 00 00 00 00 00 00 32 33 35 45 32 ...........235E2
0001D0: 33 35 36 45 31 37 32 35 39 0D 0A 3A 31 30 00 20 356E17259..:10.
0001E0: 90 00 40 00 08 21 10 92 10 21 12 42 48 00 09 10 ..@..!...!.BH...
0001F0: 02 40 00 10 40 08 08 41 02 00 82 42 48 09 09 20 .@..@..A...BH..
Size : 512 (Real : 512)
000000: 01 F1 00 49 00 4A 00 07 01 4B 00 06 01 08 01 54 ...I.J...K.....T
000010: 01 43 01 43 01 43 01 43 01 43 01 43 01 43 01 43 .C.C.C.C.C.C.C.C
000020: 01 43 01 43 01 43 01 43 01 43 01 43 01 43 01 48 .C.C.C.C.C.C.C.H
000030: 01 87 00 A8 00 51 01 55 01 2C 01 64 00 E4 00 21 .....Q.U.,.d...!
000040: 01 E5 00 A3 00 DB 00 6D 00 88 00 00 00 01 00 CB .......m........
000050: 00 02 00 D9 00 17 00 1C 00 18 00 18 00 18 00 18 ................
000060: 00 18 00 18 00 1B 00 1C 00 18 00 CB 00 CB 00 22 ..............."
000070: 00 CB 00 21 00 D9 00 CB 00 CB 00 22 00 D9 00 24 ...!......."...$
000080: 00 CB 00 CB 00 22 00 CB 00 25 00 2A 00 2B 00 CB ....."...%.*.+..
000090: 00 2E 00 2F 00 CB 00 35 00 CB 00 CB 00 D9 00 CB .../...5........
0000A0: 00 CB 00 CB 00 CB 00 22 00 CB 00 CB 00 CB 00 CB ......."........
0000B0: 00 CB 00 CB 00 25 00 CB 00 CB 00 36 00 CB 00 37 .....%.....6...7
0000C0: 00 22 00 22 00 38 00 CB 00 3A 00 3B 00 3D 00 CB .".".8...:.;.=..
0000D0: 00 3E 00 3D 00 40 00 41 00 49 00 5E 00 5F 00 61 .>.=.@.A.I.^._.a
0000E0: 00 62 00 63 00 63 00 63 00 63 00 63 00 65 00 69 .b.c.c.c.c.c.e.i
0000F0: 00 6A 00 6B 00 6A 00 6D 00 6E 00 6E 00 6F 00 70 .j.k.j.m.n.n.o.p
000100: 00 72 00 6E 00 6E 00 6E 00 6E 00 6E 00 74 00 75 .r.n.n.n.n.n.t.u
000110: 00 77 00 78 00 79 00 2B 00 7A 00 25 00 81 00 7E .w.x.y.+.z.%...~
000120: 00 7E 00 7E 00 7F 00 81 00 93 00 97 00 37 00 98 .~.~.........7..
000130: 00 CB 00 CB 00 99 00 9A 00 9B 00 AF 00 B1 00 CB ................
000140: 00 B4 00 CA 00 CB 00 CB 00 CD 00 CE 00 D0 00 81 ................
000150: 00 D1 00 CB 00 CB 00 02 00 D7 00 D9 00 01 00 04 ................
000160: 00 06 00 08 00 0A 00 0D 00 0F 00 12 00 14 00 16 ................
000170: 00 19 00 1C 00 1F 00 22 00 25 00 2A 00 2C 00 2E .......".%.*.,..
000180: 00 30 00 32 00 35 00 38 00 3A 00 3C 00 3E 00 40 .0.2.5.8.:.<.>.@
000190: 00 42 00 4C 00 50 00 52 00 54 00 56 00 58 00 5A .B.L.P.R.T.V.X.Z
0001A0: 00 5C 00 5E 00 61 00 64 00 66 00 68 00 6A 00 6C .\.^.a.d.f.h.j.l
0001B0: 00 73 00 57 01 C7 00 31 01 3B 01 37 01 ED 00 2B .s.W...1.;.7...+
0001C0: 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B 01 2B .+.+.+.+.+.+.+.+
0001D0: 01 23 01 C7 00 01 00 02 00 02 00 04 00 04 00 06 .#..............
0001E0: 00 06 00 07 00 07 00 07 00 09 00 09 00 0A 00 0A ................
0001F0: 00 0A 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C ................
Size : 512 (Real : 512)
000000: 42 21 01 20 08 22 12 11 10 10 88 42 48 49 24 24 B!. .".....BHI$$
000010: 92 42 49 24 42 49 20 84 24 84 10 92 09 10 92 48 .BI$BI .$......H
000020: 49 09 20 82 44 04 24 90 90 84 91 08 48 90 90 84 I. .D.$.....H...
000030: 84 44 24 24 20 48 08 04 08 08 00 04 00 20 84 20 .D$$ H....... .
000040: 08 42 10 92 04 21 24 44 24 04 88 22 24 92 42 24 .B...!$D$.."$.B$
000050: 90 92 44 08 41 08 21 02 10 11 10 41 08 42 08 08 ..D.A.!....A.B..
000060: 90 92 49 24 84 90 92 12 48 20 42 01 24 90 92 49 ..I$....H B.$..I
000070: 09 24 92 48 08 92 49 08 24 08 91 04 81 12 48 11 .$.H..I.$.....H.
000080: 24 89 21 20 24 92 49 20 00 00 00 00 00 00 00 00 $.! $.I ........
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 24 ...............$
0000B0: 92 49 24 91 00 49 20 89 24 12 48 20 08 40 40 08 .I$..I .$.H .@@.
0000C0: 24 84 84 90 90 22 10 82 01 55 55 55 55 55 55 40 $...."...UUUUUU@
0000D0: 00 80 48 22 48 91 24 49 24 92 49 12 44 42 49 24 ..H"H.$I$.I.DBI$
0000E0: 80 84 84 48 21 24 90 48 92 00 49 24 90 91 08 08 ...H!$.H..I$....
0000F0: 91 24 44 82 48 91 11 08 49 24 84 88 80 10 92 08 .$D.H...I$......
000100: FF 8C 67 7B B9 C2 19 17 7A 90 C2 19 17 E1 3C C9 ..g{....z.....<.
000110: 33 33 C3 FA 16 AF C9 00 00 00 39 45 35 00 44 41 33........9E5.DA
000120: 41 00 30 39 33 00 0A 3A 31 00 30 45 41 00 30 30 A.093..:1.0EA.00
000130: 46 00 32 30 43 00 42 31 30 00 45 31 43 44 41 41 F.20C.B10.E1CDAA
000140: 31 30 46 45 32 30 44 41 38 35 30 45 43 33 41 36 10FE20DA850EC3A6
000150: 33 46 0D 0A 3A 31 30 30 45 42 30 30 30 30 45 32 3F..:100EB0000E2
000160: 41 30 36 30 40 31 45 30 30 32 42 43 44 41 41 31 A060@1E002BCDAA1
000170: 30 46 45 30 39 43 41 44 34 30 45 46 45 37 33 0D 0FE09CAD40EFE73.
000180: 0A 3A 31 30 30 45 43 30 30 30 30 44 43 41 44 34 .:100EC0000DCAD4
000190: 30 45 46 45 32 31 44 41 45 31 31 30 37 37 31 43 0EFE21DAE110771C
0001A0: 37 42 46 45 31 30 44 32 45 31 42 30 3E 1A 37 C1 7BFE10D2E1B0>.7.
0001B0: D1 E1 C9 44 30 30 30 31 30 43 33 42 36 30 45 44 ...D00010C3B60ED
0001C0: 35 45 35 45 42 32 41 30 36 30 30 32 33 35 45 32 5E5EB2A0600235E2
0001D0: 33 35 36 45 31 37 32 35 39 0D 0A 3A 31 30 00 20 356E17259..:10.
0001E0: 90 00 40 00 08 21 10 92 10 21 12 42 48 00 09 10 ..@..!...!.BH...
0001F0: 02 40 00 10 40 08 08 41 02 00 82 42 48 09 09 08 .@..@..A...BH...
Size : 512 (Real : 512)
000000: 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 0C 00 13 ................
000010: 00 13 00 14 00 14 00 15 00 15 00 16 00 16 00 18 ................
000020: 00 18 00 18 00 18 00 19 00 1B 00 1C 00 1D 00 1E ................
000030: 00 1F 00 1F 00 1F 00 1F 00 1F 00 23 00 23 00 25 ...........#.#.%
000040: 00 26 00 26 00 26 00 26 00 26 00 26 00 26 00 26 .&.&.&.&.&.&.&.&
000050: 00 26 00 26 00 2A 00 2A 00 2B 00 2B 00 2C 00 2C .&.&.*.*.+.+.,.,
000060: 00 2C 00 2C 00 2C 00 2E 00 2E 00 2E 00 33 00 33 .,.,.,.......3.3
000070: 00 36 00 36 00 38 00 38 00 38 00 3C 00 3C 00 3E .6.6.8.8.8.<.<.>
000080: 00 3E 00 41 00 41 00 41 00 43 00 43 00 43 00 44 .>.A.A.A.C.C.C.D
000090: 00 44 00 45 00 45 00 45 00 45 00 45 00 45 00 46 .D.E.E.E.E.E.E.F
0000A0: 00 46 00 4F 00 4F 00 50 00 50 00 51 00 51 00 52 .F.O.O.P.P.Q.Q.R
0000B0: 00 52 00 52 00 52 00 53 00 53 00 54 00 56 00 57 .R.R.R.S.S.T.V.W
0000C0: 00 57 00 58 00 58 00 59 00 59 00 5A 00 5A 00 5A .W.X.X.Y.Y.Z.Z.Z
0000D0: 00 5C 00 5C 00 6B 00 6C 00 91 00 91 00 91 00 A4 .\.\.k.l........
0000E0: 00 B4 00 B4 00 B5 00 B6 00 B6 00 B6 00 B8 00 B8 ................
0000F0: 00 B8 00 B9 00 B9 00 BE 00 BE 00 BF 00 C0 00 00 ................
000100: 01 01 15 06 01 05 03 03 03 03 03 03 01 05 03 01 ................
000110: 01 02 01 01 06 01 01 02 06 01 01 01 02 01 05 01 ................
000120: 03 01 01 06 01 01 01 01 06 01 01 01 01 02 01 01 ................
000130: 01 01 01 01 05 01 01 01 01 01 02 02 02 01 01 02 ................
000140: 01 01 02 01 01 08 15 01 02 01 01 02 02 02 02 02 ................
000150: 04 01 01 02 01 01 01 01 01 02 02 01 01 01 01 01 ................
000160: 01 02 01 01 01 03 04 05 12 01 01 01 02 12 04 01 ................
000170: 01 01 01 01 01 01 14 02 03 01 16 01 01 02 01 02 ................
000180: 01 12 06 01 01 15 02 06 03 02 02 02 03 02 03 02 ................
000190: 02 03 03 03 03 03 05 02 02 02 02 03 03 02 02 02 ................
0001A0: 02 02 0A 04 02 02 02 02 02 02 02 03 03 02 02 02 ................
0001B0: 02 07 03 1B 3A 42 43 45 51 57 58 5A 5B 5C 5D 5E ....:BCEQWXZ[\]^
0001C0: 5F 60 65 71 05 01 00 00 01 00 01 01 02 02 01 02 _`eq............
0001D0: 00 00 02 01 00 02 01 00 01 04 01 01 03 03 01 03 ................
0001E0: 01 00 01 00 01 01 02 00 01 01 00 02 00 01 01 01 ................
0001F0: 01 01 02 02 02 05 03 00 01 00 04 04 04 06 06 04 ................
Size : 512 (Real : 512)
000000: 12 C9 21 63 35 72 2B 73 2B 71 2B D1 C1 70 2B 71 ..!c5r+s+q+..p+q
000010: D5 2A 62 35 2B 22 62 35 11 FF FF CD 66 33 B5 CA .*b5+"b5....f3..
000020: 33 13 2A 5F 35 3A 61 35 77 2A 5F 35 23 22 5F 35 3.*_5:a5w*_5#"_5
000030: C3 11 13 C9 3A 29 36 1F D2 46 13 21 29 36 36 00 ....:)6..F.!)66.
000040: 2B 7E 32 CE 35 C9 2A 27 35 23 22 27 35 EB 21 CC +~2.5.*'5#"'5.!.
000050: 35 CD 92 33 DA 73 13 CD A6 12 1F DA 6D 13 21 F9 5..3.s......m.!.
000060: 37 22 CC 35 21 C1 0C 22 27 35 C3 73 13 21 80 00 7".5!.."'5.s.!..
000070: 22 27 35 2A 27 35 7E FE 1A C2 88 13 21 F9 37 22 "'5*'5~.....!.7"
000080: CC 35 21 C1 0C 22 27 35 2A 27 35 7E 32 CE 35 C9 .5!.."'5*'5~2.5.
000090: CD 34 13 32 CE 35 C9 21 2B 36 36 01 3A CF 35 21 .4.2.5.!+66.:.5!
0000A0: 2B 36 BE DA DD 13 3A C6 33 21 7A 34 B6 1F D2 BE +6....:.3!z4....
0000B0: 13 2A 2B 36 26 00 01 CF 35 09 4E CD F3 0F 3A C6 .*+6&...5.N...:.
0000C0: 33 21 2C 35 B6 1F D2 D6 13 2A 2B 36 26 00 01 CF 3!,5.....*+6&...
0000D0: 35 09 4E CD 38 10 21 2B 36 34 C2 9C 13 3A 27 36 5.N.8.!+64...:'6
0000E0: 1F D2 F9 13 01 D4 33 C5 11 05 00 01 D0 35 CD C4 ......3......5..
0000F0: 12 21 27 36 36 00 C3 FF 13 01 CF 35 CD A7 10 21 .!'66......5...!
000100: CF 35 36 05 C9 3A CF 35 FE 57 D2 1F 14 3A CF 35 .56..:.5.W...:.5
000110: 3C 32 CF 35 4F 06 00 21 CF 35 09 3A CE 35 77 CD <2.5O..!.5.:.5w.
000120: 90 13 C9 3A 7A 35 FE 51 D2 3D 14 3A 7A 35 3C 32 ...:z5.Q.=.:z5<2
000130: 7A 35 4F 06 00 21 7A 35 09 3A CE 35 77 CD 05 14 z5O..!z5.:.5w...
000140: C9 3A CE 35 FE 0D CA 4F 14 CD 05 14 C3 41 14 C9 .:.5...O.....A..
000150: 3A CE 35 D6 20 D6 01 9F F5 3A CE 35 D6 09 D6 01 :.5. ....:.5....
000160: 9F C1 48 B1 1F D2 6E 14 CD 05 14 C3 08 15 3A CE ..H...n.......:.
000170: 35 FE 0D C2 07 15 CD 05 14 CD 05 14 CD 97 13 01 5...............
000180: 01 00 CD FD 10 3A CE 35 FE 0D C2 99 14 CD 05 14 .....:.5........
000190: CD 05 14 CD 97 13 C3 85 14 3A 2B 35 1F D2 B8 14 .........:+5....
0001A0: 21 2C 36 36 01 3E 06 21 2C 36 BE DA B8 14 CD 05 !,66.>.!,6......
0001B0: 14 21 2C 36 34 C2 A5 14 3A CE 35 FE 2A C2 C6 14 .!,64...:.5.*...
0001C0: CD 41 14 C3 04 15 3A CE 35 FE 2F C2 EC 14 3A 7A .A....:.5./...:z
0001D0: 34 1F D2 DA 14 0E 0C CD F3 0F 3A 2C 35 1F D2 E6 4.........:,5...
0001E0: 14 0E 0C CD 38 10 CD 41 14 C3 04 15 3A CE 35 FE ....8..A....:.5.
0001F0: 3A C2 04 15 3A CE 33 1F DA 01 15 CD 41 14 C3 04 :...:.3.....A...
Size : 512 (Real : 512)
000000: 06 04 04 03 00 01 00 01 00 02 02 01 01 00 02 02 ................
000010: 00 02 00 02 01 01 02 00 02 00 02 00 02 02 00 00 ................
000020: 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 01 00 01 01 00 00 01 02 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 03 00 02 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 01 00 00 00 0C 12 19 2A 36 ..............*6
000060: 3F 49 4D 50 42 59 47 4F 49 46 4E 4F 4F 52 54 4F ?IMPBYGOIFNOORTO
000070: 45 4F 46 41 44 44 41 4E 44 45 4E 44 49 2D 4F 4E EOFADDANDENDI-ON
000080: 4F 54 52 55 4E 43 41 4C 4C 45 4C 53 45 45 58 49 OTRUNCALLELSEEXI
000090: 54 46 52 4F 4D 49 4E 54 4F 4C 45 53 53 4D 4F 56 TFROMINTOLESSMOV
0000A0: 45 4E 45 58 54 4F 50 45 4E 50 41 47 45 52 45 41 ENEXTOPENPAGEREA
0000B0: 44 53 49 5A 45 53 54 4F 50 54 48 52 55 57 49 54 DSIZESTOPTHRUWIT
0000C0: 48 5A 45 52 4F 41 46 54 45 52 43 4C 4F 53 45 45 HZEROAFTERCLOSEE
0000D0: 4E 54 45 52 45 51 55 41 4C 45 52 52 4F 52 49 4E NTEREQUALERRORIN
0000E0: 50 55 54 51 55 4F 54 45 53 50 41 43 45 54 49 4D PUTQUOTESPACETIM
0000F0: 45 53 55 4E 54 49 4C 55 53 49 4E 47 57 52 49 54 ESUNTILUSINGWRIT
000100: 45 41 43 43 45 50 54 42 45 46 4F 52 45 44 45 4C EACCEPTBEFOREDEL
000110: 45 54 45 44 49 56 49 44 45 45 4E 44 2D 49 46 47 ETEDIVIDEEND-IFG
000120: 49 56 49 4E 47 4F 55 54 50 55 54 43 4F 4D 50 55 IVINGOUTPUTCOMPU
000130: 54 45 44 49 53 50 4C 41 59 47 52 45 41 54 45 52 TEDISPLAYGREATER
000140: 49 4E 56 41 4C 49 44 4E 55 4D 45 52 49 43 50 45 INVALIDNUMERICPE
000150: 52 46 4F 52 4D 52 45 57 52 49 54 45 52 4F 55 4E RFORMREWRITEROUN
000160: 44 45 44 53 45 43 54 49 4F 4E 56 41 52 59 49 4E DEDSECTIONVARYIN
000170: 47 44 49 56 49 53 49 4F 4E 4D 55 4C 54 49 50 4C GDIVISIONMULTIPL
000180: 59 53 45 4E 54 45 4E 43 45 53 55 42 54 52 41 43 YSENTENCESUBTRAC
000190: 54 41 44 56 41 4E 43 49 4E 47 44 45 50 45 4E 44 TADVANCINGDEPEND
0001A0: 49 4E 47 50 52 4F 43 45 44 55 52 45 41 4C 50 48 INGPROCEDUREALPH
0001B0: 41 42 45 54 49 43 00 00 06 07 10 0C 07 0A 04 03 ABETIC..........
0001C0: 01 20 20 20 20 20 20 45 4F 46 20 20 64 0A 57 52 . EOF d.WR
0001D0: 24 0D 0A 24 55 4C 20 24 20 45 52 52 4F 52 20 4E $..$UL $ ERROR N
0001E0: 45 41 52 20 24 20 50 52 4F 47 52 41 4D 20 45 52 EAR $ PROGRAM ER
0001F0: 52 4F 52 28 53 29 24 31 C5 33 21 2A 36 36 50 21 ROR(S)$1.3!*66P!
Size : 512 (Real : 512)
000000: 15 CD 05 14 C3 08 15 C9 C3 50 14 C9 3A CE 35 D6 .........P..:.5.
000010: 20 D6 01 9F F5 3A CE 35 D6 0D D6 01 9F C1 48 B1 ....:.5......H.
000020: F5 3A CE 35 D6 09 D6 01 9F C1 48 B1 C9 3A CE 35 .:.5......H..:.5
000030: D6 28 D6 01 9F C9 3A CE 35 D6 29 D6 01 9F C9 3A .(....:.5.)....:
000040: CE 35 FE 2E CA 4A 15 3E 00 C9 CD 34 13 32 28 36 .5...J.>...4.2(6
000050: 21 29 36 36 01 CD 0C 15 1F D2 64 15 21 CE 35 36 !)66......d.!.56
000060: 2E 3E 01 C9 21 CE 35 36 2E 3E 00 C9 CD 0C 15 F5 .>..!.56.>......
000070: CD 3F 15 C1 48 B1 F5 CD 2D 15 C1 48 B1 F5 CD 36 .?..H...-..H...6
000080: 15 C1 48 B1 C9 CD 05 14 3A CE 35 FE 27 C2 96 15 ..H.....:.5.'...
000090: CD 05 14 3E 2A C9 CD 23 14 C3 88 15 C9 2A 7A 35 ...>*..#.....*z5
0000A0: 26 00 01 64 35 29 09 11 64 0B CD 46 33 22 2D 36 &..d5)..d..F3"-6
0000B0: 21 2F 36 36 01 2A 7A 35 26 00 01 B6 0C 09 7E 21 !/66.*z5&.....~!
0000C0: 2F 36 BE DA E4 15 CD E7 15 1F D2 D1 15 3A 2F 36 /6...........:/6
0000D0: C9 3A 7A 35 11 2D 36 CD 42 33 EB 2B 73 23 72 23 .:z5.-6.B3.+s#r#
0000E0: 34 C2 B5 15 3E 00 C9 21 30 36 36 01 3A 7A 35 21 4...>..!066.:z5!
0000F0: 30 36 BE DA 1B 16 3A 30 36 3D 4F 06 00 2A 2D 36 06....:06=O..*-6
000100: 09 E5 2A 30 36 26 00 01 7A 35 09 D1 1A BE CA 14 ..*06&..z5......
000110: 16 3E 00 C9 21 30 36 34 C2 EC 15 3E 01 C9 3E 0A .>..!064...>..>.
000120: 21 7A 35 BE DA 57 16 2A 7A 35 26 00 01 59 0B 09 !z5..W.*z5&..Y..
000130: 7E 32 31 36 FE 00 CA 54 16 CD 9D 15 32 32 36 FE ~216...T....226.
000140: 00 CA 4F 16 3A 32 36 21 31 36 86 77 C3 54 16 21 ..O.:26!16.w.T.!
000150: 31 36 36 00 C3 5C 16 21 31 36 36 00 3A 31 36 C9 166..\.!166.:16.
000160: 21 7A 35 36 00 CD 50 14 3A CE 35 FE 27 C2 74 16 !z56..P.:.5.'.t.
000170: CD 85 15 C9 CD 3F 15 1F D2 81 16 CD 23 14 3E 01 .....?......#.>.
000180: C9 CD 2D 15 1F D2 8E 16 CD 23 14 3E 03 C9 CD 36 ..-......#.>...6
000190: 15 1F D2 9B 16 CD 23 14 3E 06 C9 CD 23 14 CD 6C ......#.>...#..l
0001A0: 15 1F D2 A8 16 3E 3F C9 C3 9B 16 C9 CD 60 16 32 .....>?......`.2
0001B0: 2A 36 FE 3F C2 C8 16 CD 1E 16 32 35 35 FE 00 CA *6.?......255...
0001C0: C8 16 3A 35 35 32 2A 36 C9 21 33 36 36 01 3A 7A ..:552*6.!366.:z
0001D0: 35 21 33 36 BE DA F9 16 2A 33 36 26 00 01 7A 35 5!36....*36&..z5
0001E0: 09 4E CD F3 0F 2A 33 36 26 00 01 7A 35 09 4E CD .N...*36&..z5.N.
0001F0: 38 10 21 33 36 34 C2 CE 16 CD 93 10 CD 9C 10 C9 8.!364..........
Size : 512 (Real : 512)
000000: 06 00 22 3A 36 4E 23 46 0B 60 69 22 CC 33 60 69 ..":6N#F.`i".3`i
000010: 22 C8 33 01 CA 33 11 CC 33 CD 77 33 E5 42 4B 2A ".3..3..3.w3.BK*
000020: CA 33 EB 03 CD C4 12 21 58 34 22 31 35 2A 7B 34 .3.....!X4"15*{4
000030: 01 D9 33 09 22 7B 34 21 03 35 22 33 35 2A 25 35 ..3."{4!.5"35*%5
000040: 01 84 34 09 22 25 35 01 00 00 CD FD 10 3A 47 36 ..4."%5......:G6
000050: 1F D2 69 0F 3E 88 21 8C 36 CD 8F 33 DA 52 0E CD ..i.>.!.6..3.R..
000060: 41 32 2A 8B 36 26 00 01 8E 36 29 09 E5 2A 8C 36 A2*.6&...6)..*.6
000070: EB E1 73 23 72 CD 73 32 CD 2B 32 22 78 36 CD 38 ..s#r.s2.+2"x6.8
000080: 32 11 78 36 CD 42 33 2B EB 23 73 23 72 2A 78 36 2.x6.B3+.#s#r*x6
000090: 22 78 36 11 7A 36 01 78 36 CD 77 33 DA 4F 0E 2A "x6.z6.x6.w3.O.*
0000A0: 78 36 01 03 01 09 3A 2A 36 BE C2 13 0E 3A 2A 36 x6....:*6....:*6
0000B0: D6 3F D6 01 9F F5 3A 2A 36 D6 2A D6 01 9F C1 48 .?....:*6.*....H
0000C0: B1 1F D2 F6 0D 21 00 00 22 7C 36 3A 7A 35 21 7C .....!.."|6:z5!|
0000D0: 36 CD 8F 33 DA F6 0D 2A 7C 36 01 7A 35 09 E5 2A 6..3...*|6.z5..*
0000E0: 7C 36 01 CB 36 09 D1 1A 77 11 01 00 2A 7C 36 19 |6..6...w...*|6.
0000F0: 22 7C 36 D2 CB 0D 2A 78 36 01 1B 03 29 09 5E 23 "|6...*x6...).^#
000100: 56 EB 22 8C 36 21 89 36 36 01 2A 7A 36 22 78 36 V.".6!.66.*z6"x6
000110: C3 42 0E 01 7A 36 11 78 36 CD 77 33 B5 C2 42 0E .B..z6.x6.w3..B.
000120: 01 50 4E CD FD 10 01 D8 0C CD 63 10 CD C9 16 CD .PN.......c.....
000130: F6 32 6F 26 00 22 8C 36 FE 00 C2 42 0E 21 47 36 .2o&.".6...B.!G6
000140: 36 00 11 01 00 2A 78 36 19 22 78 36 D2 93 0D C3 6....*x6."x6....
000150: 66 0F 3E C4 21 8C 36 CD 8F 33 D2 F2 0E CD 38 32 f.>.!.6..3....82
000160: 4F 3A 8B 36 91 32 85 36 3A 85 36 3C 32 86 36 3E O:.6.2.6:.6<2.6>
000170: C4 11 8C 36 CD 84 33 4D CD B6 27 3A 85 36 32 8B ...6..3M..':.62.
000180: 36 CD 2B 32 22 78 36 2A 8B 36 26 00 01 8E 36 29 6.+2"x6*.6&...6)
000190: 09 5E 23 56 EB 22 7A 36 2A 78 36 01 5A 02 09 E5 .^#V."z6*x6.Z...
0001A0: 6E 26 00 22 7C 36 7D D6 00 C6 FF 9F 01 7C 36 11 n&."|6}......|6.
0001B0: 7A 36 F5 CD 77 33 B5 C6 FF 9F C1 48 A1 E1 1F D2 z6..w3.....H....
0001C0: CC 0E 2A 78 36 23 22 78 36 C3 98 0E 2A 78 36 01 ..*x6#"x6...*x6.
0001D0: C9 05 29 09 5E 23 56 EB 22 7C 36 3E 00 CD 63 33 ..).^#V."|6>..c3
0001E0: B5 C2 E9 0E 21 47 36 36 00 2A 7C 36 22 8C 36 C3 ....!G66.*|6".6.
0001F0: 66 0F 3E B3 21 8C 36 CD 8F 33 DA 4C 0F CD 2B 32 f.>.!.6..3.L..+2
Size : 512 (Real : 512)
000000: 21 34 36 71 21 35 36 36 00 3E 01 21 35 36 BE DA !46q!566.>.!56..
000010: 4B 17 21 36 36 36 00 2A 35 36 26 00 01 CC 0C 09 K.!666.*56&.....
000020: 7E 32 37 36 4F 3A 34 36 B9 DA 3B 17 21 37 36 3A ~276O:46..;.!76:
000030: 34 36 96 32 34 36 2B 34 C3 17 17 3A 36 36 C6 30 46.246+4...:66.0
000040: 4F CD F3 0F 21 35 36 34 C2 09 17 3A 34 36 C6 30 O...!564...:46.0
000050: 4F CD F3 0F C9 21 3D 36 70 2B 71 01 04 00 2A 38 O....!=6p+q...*8
000060: 36 09 E5 2A 3C 36 EB E1 73 23 72 C9 01 04 00 2A 6..*<6..s#r....*
000070: 38 36 09 5E 23 56 EB C9 01 08 00 2A 38 36 09 5E 86.^#V.....*86.^
000080: 23 56 EB C9 2A 38 36 23 23 7E C9 21 3E 36 71 2A #V..*86##~.!>6q*
000090: 38 36 23 23 3A 3E 36 77 C9 01 06 00 2A 38 36 09 86##:>6w....*86.
0000A0: 5E 23 56 EB C9 01 0A 00 2A 38 36 09 7E C9 01 0B ^#V.....*86.~...
0000B0: 00 2A 38 36 09 7E C9 01 03 00 2A 38 36 09 7E C9 .*86.~....*86.~.
0000C0: 21 3F 36 71 2A 81 34 22 40 36 3A 3F 36 C6 0E 32 !?6q*.4"@6:?6..2
0000D0: 3F 36 4F 06 00 2A 38 36 09 22 81 34 11 C8 33 CD ?6O..*86.".4..3.
0000E0: 87 33 D2 EB 17 01 54 53 CD 73 12 2A 40 36 E5 2A .3....TS.s.*@6.*
0000F0: 3F 36 26 00 EB 0E 00 CD 02 13 C9 11 0E 00 2A 38 ?6&...........*8
000100: 36 19 E5 CD B7 17 5F 16 00 E1 19 22 3A 36 2A 3A 6....._....":6*:
000110: 36 5E 23 56 EB C9 21 42 36 71 3A 42 36 E6 7F C9 6^#V..!B6q:B6...
000120: 2A 2D 35 22 45 36 21 43 36 36 01 3E 40 21 43 36 *-5"E6!C66.>@!C6
000130: BE DA C2 18 2A 45 36 3E 00 CD 8F 33 B5 CA B3 18 ....*E6>...3....
000140: 2A 45 36 5E 23 56 EB 22 38 36 3E 00 11 38 36 CD *E6^#V."86>..86.
000150: 84 33 B5 CA B3 18 CD 84 17 FE FF C2 A6 18 01 D4 .3..............
000160: 0C CD 63 10 21 44 36 36 01 CD B7 17 21 44 36 BE ..c.!D66....!D6.
000170: DA 9A 18 3A 44 36 C6 0D 4F 06 00 2A 38 36 09 4E ...:D6..O..*86.N
000180: CD F3 0F 3A 44 36 C6 0D 4F 06 00 2A 38 36 09 4E ...:D6..O..*86.N
000190: CD 38 10 21 44 36 34 C2 69 18 CD 93 10 CD 9C 10 .8.!D64.i.......
0001A0: 01 CF 33 CD A7 10 2A 38 36 5E 23 56 EB 22 38 36 ..3...*86^#V."86
0001B0: C3 4A 18 2A 45 36 23 23 22 45 36 21 43 36 34 C2 .J.*E6##"E6!C64.
0001C0: 2B 18 C9 21 A9 37 71 3E 39 21 A9 37 96 9F 2F F5 +..!.7q>9!.7../.
0001D0: 7E D6 30 9F 2F C1 48 A1 C9 21 AA 37 71 3A AA 37 ~.0./.H..!.7q:.7
0001E0: D6 41 9F 2F F5 3E 5A 21 AA 37 96 9F 2F C1 48 A1 .A./.>Z!.7../.H.
0001F0: C9 01 54 49 CD FD 10 C9 21 AB 37 71 3A 83 34 1F ..TI....!.7q:.4.
Size : 512 (Real : 512)
000000: 22 78 36 CD 73 32 2A 78 36 01 E4 01 09 E5 6E 26 "x6.s2*x6.....n&
000010: 00 22 7C 36 7D D6 00 C6 FF 9F 21 7C 36 F5 3A 2A ."|6}.....!|6.:*
000020: 36 CD 8F 33 B5 C6 FF 9F C1 48 A1 E1 1F D2 3A 0F 6..3.....H....:.
000030: 2A 78 36 23 22 78 36 C3 06 0F 2A 78 36 01 DD 04 *x6#"x6...*x6...
000040: 29 09 5E 23 56 EB 22 8C 36 C3 66 0F CD 41 32 CD ).^#V.".6.f..A2.
000050: 38 32 2A 8B 36 26 00 01 8E 36 29 09 77 23 36 00 82*.6&...6).w#6.
000060: CD 2B 32 22 8C 36 C3 4D 0D 0E 45 CD 05 1B 2A 7D .+2".6.M..E...*}
000070: 34 44 4D CD 2B 19 3A 83 34 1F DA 8C 0F 11 04 35 4DM.+.:.4......5
000080: 01 84 34 CD 03 10 01 04 35 CD 8B 12 CD 20 18 CD ..4.....5.... ..
000090: 93 10 CD 9C 10 21 00 00 22 78 36 3E 04 21 78 36 .....!.."x6>.!x6
0000A0: CD 8F 33 DA C9 0F 2A 78 36 01 CF 33 09 4E CD F3 ..3...*x6..3.N..
0000B0: 0F 2A 78 36 01 CF 33 09 4E CD 38 10 11 01 00 2A .*x6..3.N.8....*
0000C0: 78 36 19 22 78 36 D2 9B 0F 01 E5 0C CD 63 10 01 x6."x6.......c..
0000D0: 31 35 11 7B 34 CD 77 33 D2 E3 0F 0E 20 CD 38 10 15.{4.w3.... .8.
0000E0: C3 CF 0F 0E 20 CD 38 10 01 59 34 CD 8B 12 CD 00 .... .8..Y4.....
0000F0: 00 FB 76 21 38 35 71 2A 38 35 26 00 EB 0E 02 CD ..v!85q*85&.....
000100: 05 00 C9 21 3C 35 72 2B 73 2B 70 2B 71 2A 39 35 ...!<5r+s+p+q*95
000110: EB 0E 1A CD 05 00 2A 3B 35 EB 0E 15 CD 05 00 FE ......*;5.......
000120: 00 CA 2F 10 11 CE 0C 0E 09 CD 05 00 CD 00 00 11 ../.............
000130: 80 00 0E 1A CD 05 00 C9 21 3D 35 71 2A 7B 34 23 ........!=5q*{4#
000140: 22 7B 34 11 31 35 CD 87 33 D2 5B 10 11 59 34 01 "{4.15..3.[..Y4.
000150: D9 33 CD 03 10 21 D9 33 22 7B 34 2A 7B 34 3A 3D .3...!.3"{4*{4:=
000160: 35 77 C9 21 3F 35 70 2B 71 2A 3E 35 22 40 35 2A 5w.!?5p+q*>5"@5*
000170: 3E 35 EB 0E 09 CD 05 00 2A 40 35 7E FE 24 CA 92 >5......*@5~.$..
000180: 10 2A 40 35 4E CD 38 10 2A 40 35 23 22 40 35 C3 .*@5N.8.*@5#"@5.
000190: 78 10 C9 11 D1 0C 0E 09 CD 05 00 C9 0E 0D CD 38 x..............8
0001A0: 10 0E 0A CD 38 10 C9 21 43 35 70 2B 71 21 44 35 ....8..!C5p+q!D5
0001B0: 36 04 2A 44 35 26 00 EB 2A 42 35 19 7E 3C 77 FE 6.*D5&..*B5.~<w.
0001C0: 3A C2 FC 10 2A 44 35 26 00 EB 2A 42 35 19 36 30 :...*D5&..*B5.60
0001D0: 3E 00 21 44 35 BE D2 F9 10 3A 44 35 3D 32 44 35 >.!D5....:D5=2D5
0001E0: 4F 06 00 2A 42 35 09 7E FE 20 C2 F9 10 2A 44 35 O..*B5.~. ...*D5
0001F0: 26 00 EB 2A 42 35 19 36 30 C3 B2 10 C9 21 46 35 &..*B5.60....!F5
Size : 512 (Real : 512)
000000: D2 04 19 C9 2A 25 35 23 22 25 35 11 33 35 CD 87 ....*%5#"%5.35..
000010: 33 D2 23 19 11 04 35 01 84 34 CD 03 10 21 84 34 3.#...5..4...!.4
000020: 22 25 35 2A 25 35 3A AB 37 77 C9 21 AD 37 70 2B "%5*%5:.7w.!.7p+
000030: 71 2A AC 37 7D 4F CD F8 18 2A AC 37 7C 4F CD F8 q*.7}O...*.7|O..
000040: 18 C9 21 AE 37 71 3A AE 37 11 7F 34 CD 42 33 EB ..!.7q:.7..4.B3.
000050: 2B 73 23 72 EB 11 7D 34 CD 87 33 D2 64 19 01 4F +s#r..}4..3.d..O
000060: 4D CD 73 12 C9 21 B1 37 72 2B 73 2B 71 2A AF 37 M.s..!.7r+s+q*.7
000070: 4D CD F8 18 2A B0 37 44 4D CD 2B 19 0E 03 CD 42 M...*.7DM.+....B
000080: 19 C9 3E 0F 21 CB 36 BE D2 90 19 21 CB 36 36 0F ..>.!.6....!.66.
000090: 21 B4 37 36 00 23 36 01 3A CB 36 21 B5 37 BE DA !.76.#6.:.6!.7..
0000A0: B9 19 2A B5 37 26 00 01 CB 36 09 3A B4 37 86 32 ..*.7&...6.:.7.2
0000B0: B4 37 21 B5 37 34 C2 98 19 3A B4 37 E6 3F 87 11 .7!.74...:.7.?..
0000C0: 2D 35 CD 42 33 22 B2 37 2A B2 37 3E 00 CD 8F 33 -5.B3".7*.7>...3
0000D0: B5 C2 33 1A 2A 81 34 22 38 36 2A B2 37 E5 2A 81 ..3.*.4"86*.7.*.
0000E0: 34 EB E1 73 23 72 2A CB 36 4D CD C0 17 01 03 00 4..s#r*.6M......
0000F0: 2A 38 36 09 3A CB 36 77 21 B5 37 36 01 3A CB 36 *86.:.6w!.76.:.6
000100: 21 B5 37 BE DA 27 1A 2A B5 37 26 00 01 CB 36 09 !.7..'.*.7&...6.
000110: 3A B5 37 C6 0D 4F 06 00 E5 2A 38 36 09 C1 0A 77 :.7..O...*86...w
000120: 21 B5 37 34 C2 FD 19 0E FF CD 8B 17 2A 38 36 C9 !.74........*86.
000130: C3 88 1A 2A B2 37 5E 23 56 EB 22 38 36 CD B7 17 ...*.7^#V."86...
000140: 32 B4 37 21 CB 36 BE C2 88 1A 21 B5 37 36 01 3A 2.7!.6....!.76.:
000150: B5 37 C6 0D 4F 06 00 2A 38 36 09 E5 2A B5 37 26 .7..O..*86..*.7&
000160: 00 01 CB 36 09 D1 1A BE C2 88 1A 3A B5 37 3C 32 ...6.......:.7<2
000170: B5 37 4F 3A B4 37 B9 D2 85 1A 2A B2 37 5E 23 56 .7O:.7....*.7^#V
000180: EB 22 38 36 C9 C3 4F 1A 2A B2 37 5E 23 56 EB 22 ."86..O.*.7^#V."
000190: B2 37 C3 C8 19 C9 21 B7 37 70 2B 71 2A 85 36 26 .7....!.7p+q*.6&
0001A0: 00 01 2F 37 29 09 E5 2A B6 37 EB E1 73 23 72 C9 ../7)..*.7..s#r.
0001B0: 21 B9 37 70 2B 71 2A 85 36 26 00 01 6B 37 29 09 !.7p+q*.6&..k7).
0001C0: E5 2A B8 37 EB E1 73 23 72 C9 21 BA 37 71 2A BA .*.7..s#r.!.7q*.
0001D0: 37 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 CD 7&../7).^#V."86.
0001E0: 84 17 FE FF C2 ED 1A 01 44 55 CD FD 10 C9 3A CA ........DU....:.
0001F0: 36 3C 32 CA 36 4F 3E 07 B9 D2 01 1B 21 CA 36 36 6<2.6O>.....!.66
Size : 512 (Real : 512)
000000: 70 2B 71 3E 00 11 45 35 CD 84 33 B5 C2 3C 11 21 p+q>..E5..3..<.!
000010: 53 35 36 00 3E 05 21 53 35 BE DA 34 11 2A 53 35 S56.>.!S5..4.*S5
000020: 26 00 01 47 35 29 09 3E 00 77 23 36 00 21 53 35 &..G5).>.w#6.!S5
000030: 34 C2 14 11 21 53 35 36 00 C3 72 12 3E 01 11 45 4...!S56..r.>..E
000040: 35 CD 84 33 B5 C2 D8 11 21 53 35 36 00 3A 53 35 5..3....!S56.:S5
000050: D6 06 C6 FF 9F 2A 53 35 26 00 01 47 35 29 09 F5 .....*S5&..G5)..
000060: 3E 00 CD 8F 33 B5 C6 FF 9F C1 48 A1 1F D2 CB 11 >...3.....H.....
000070: 2A 53 35 26 00 01 47 35 29 09 23 7E 4F CD F3 0F *S5&..G5).#~O...
000080: 2A 53 35 26 00 01 47 35 29 09 6E 4D CD F3 0F 2A *S5&..G5).nM...*
000090: 53 35 26 00 01 47 35 29 09 23 7E 4F CD 38 10 2A S5&..G5).#~O.8.*
0000A0: 53 35 26 00 01 47 35 29 09 6E 4D CD 38 10 CD 93 S5&..G5).nM.8...
0000B0: 10 CD 9C 10 2A 53 35 26 00 01 47 35 29 09 3E 00 ....*S5&..G5).>.
0000C0: 77 23 36 00 21 53 35 34 C3 4D 11 21 53 35 36 00 w#6.!S54.M.!S56.
0000D0: 21 C6 33 36 00 C3 72 12 01 50 4E 11 45 35 CD 7C !.36..r..PN.E5.|
0000E0: 33 B5 D6 01 9F 01 56 4E 1B F5 CD 7C 33 B5 D6 01 3.....VN...|3...
0000F0: 9F C1 48 B1 01 4C 53 1B F5 CD 7C 33 B5 D6 01 9F ..H..LS...|3....
000100: C1 48 B1 1F D2 48 12 21 C6 33 36 01 2A 45 35 7C .H...H.!.36.*E5|
000110: 4F CD F3 0F 2A 45 35 7D 4F CD F3 0F 2A 45 35 7C O...*E5}O...*E5|
000120: 4F CD 38 10 2A 45 35 7D 4F CD 38 10 01 CF 33 CD O.8.*E5}O.8...3.
000130: A7 10 01 50 4E 11 45 35 CD 7C 33 B5 CA 45 12 CD ...PN.E5.|3..E..
000140: 93 10 CD 9C 10 C3 72 12 21 C6 33 36 01 3A 53 35 ......r.!.36.:S5
000150: FE 06 CA 6C 12 2A 53 35 26 00 01 47 35 29 09 E5 ...l.*S5&..G5)..
000160: 2A 45 35 EB E1 73 23 72 21 53 35 34 01 CF 33 CD *E5..s#r!S54..3.
000170: A7 10 C9 21 55 35 70 2B 71 2A 54 35 44 4D CD FD ...!U5p+q*T5DM..
000180: 10 01 01 00 CD FD 10 CD 00 00 C9 21 57 35 70 2B ...........!W5p+
000190: 71 2A 56 35 EB 0E 10 CD 05 00 FE FF C2 A5 12 01 q*V5............
0001A0: 4C 43 CD 73 12 C9 2A 2F 35 EB 0E 14 CD 05 00 32 LC.s..*/5......2
0001B0: 58 35 4F 3E 01 B9 D2 BF 12 01 52 42 CD 73 12 3A X5O>......RB.s.:
0001C0: 58 35 2F C9 21 5E 35 72 2B 73 2B 70 2B 71 2B D1 X5/.!^5r+s+p+q+.
0001D0: C1 70 2B 71 D5 2A 5D 35 2B 22 5D 35 11 FF FF CD .p+q.*]5+"]5....
0001E0: 66 33 B5 CA 01 13 2A 59 35 E5 2A 5B 35 C1 0A 77 f3....*Y5.*[5..w
0001F0: 2A 59 35 23 22 59 35 2A 5B 35 23 22 5B 35 C3 D5 *Y5#"Y5*[5#"[5..
Size : 512 (Real : 512)
000000: 01 3A CA 36 C9 21 BB 37 71 2A BB 37 4D CD F8 18 .:.6.!.7q*.7M...
000010: 0E 01 CD 42 19 C9 21 BD 37 70 2B 71 2A BC 37 44 ...B..!.7p+q*.7D
000020: 4D CD 2B 19 0E 02 CD 42 19 C9 21 00 00 22 36 35 M.+....B..!.."65
000030: 3A CC 36 FE 2B C2 40 1B 21 BE 37 36 02 C3 45 1B :.6.+.@.!.76..E.
000040: 21 BE 37 36 01 3A BE 37 32 35 35 3A CB 36 21 35 !.76.:.7255:.6!5
000050: 35 BE DA 9F 1B 2A 35 35 26 00 01 CB 36 09 4E CD 5....*55&...6.N.
000060: C3 18 1F DA 73 1B 01 4E 4E CD FD 10 2A 36 35 C9 ....s..NN...*65.
000070: C3 98 1B 2A 36 35 29 29 29 E5 2A 36 35 29 C1 09 ...*65))).*65)..
000080: E5 2A 35 35 26 00 01 CB 36 09 5E 16 00 E1 19 EB .*55&...6.^.....
000090: 3E 30 CD 6D 33 22 36 35 21 35 35 34 C2 4B 1B 2A >0.m3"65!554.K.*
0000A0: 36 35 C9 21 C2 37 72 2B 73 2B 70 2B 71 0E 44 CD 65.!.7r+s+p+q.D.
0000B0: F8 18 2A BF 37 44 4D CD 2B 19 2A C1 37 44 4D CD ..*.7DM.+.*.7DM.
0000C0: 2B 19 C9 3E 00 11 87 36 CD 84 33 B5 CA E1 1B 2A +..>...6..3....*
0000D0: 87 36 44 4D 2A 7F 34 EB CD A3 1B 21 00 00 22 87 .6DM*.4....!..".
0000E0: 36 C9 2A 7F 34 23 44 4D CD 96 1A 11 00 00 0E 0D 6.*.4#DM........
0000F0: CD 65 19 2A 7F 34 44 4D CD B0 1A C9 3A 8B 36 3D .e.*.4DM....:.6=
000100: 4F 06 00 21 2F 37 09 09 4E 23 46 2A 7F 34 EB CD O..!/7..N#F*.4..
000110: A3 1B C9 2A 7F 34 44 4D CD 96 1A 01 00 00 CD 16 ...*.4DM........
000120: 1B C9 2A 8B 36 26 00 01 2F 37 29 09 4E 23 46 CD ..*.6&../7).N#F.
000130: 96 1A 2A 8B 36 26 00 01 6B 37 29 09 4E 23 46 CD ..*.6&..k7).N#F.
000140: B0 1A C9 21 A7 37 36 00 23 36 00 0E 16 CD 05 1B ...!.76.#6......
000150: CD 78 17 44 4D CD 16 1B 2A 8B 36 26 00 01 2F 37 .x.DM...*.6&../7
000160: 29 09 4E CD 05 1B C9 21 C3 37 71 CD 78 17 44 4D ).N....!.7q.x.DM
000170: CD 16 1B CD 6C 17 22 38 36 CD 6C 17 44 4D CD 16 ....l."86.l.DM..
000180: 1B CD 99 17 44 4D CD 16 1B 3A C3 37 FE 00 C2 92 ....DM...:.7....
000190: 1C C9 CD 78 17 22 38 36 01 0A 00 2A 38 36 09 5E ...x."86...*86.^
0001A0: 23 56 EB 22 38 36 CD 6C 17 44 4D CD 16 1B CD 99 #V."86.l.DM.....
0001B0: 17 4D CD 05 1B C9 CD A5 17 FE 01 CA C7 1C 01 4C .M.............L
0001C0: 57 CD FD 10 C3 80 1D 2A 38 36 22 C4 37 CD 78 17 W......*86".7.x.
0001D0: 22 38 36 CD 84 17 32 35 35 D6 01 C6 FF 9F F5 3A "86...255......:
0001E0: A8 37 21 A7 37 B6 C1 48 A1 1F D2 F3 1C 01 43 43 .7!.7..H......CC
0001F0: CD FD 10 3A 35 35 FE 01 C2 22 1D 3A A8 37 1F D2 ...:55...".:.7..
Size : 512 (Real : 512)
000000: 33 B5 CA 6D 25 3A 84 36 D6 0A 9F 2F F5 3E 0C 21 3..m%:.6.../.>.!
000010: 84 36 96 9F 2F C1 48 A1 2F F5 3A DA 37 D6 0A 9F .6../.H./.:.7...
000020: 2F F5 3E 0C 21 DA 37 96 9F 2F C1 48 A1 C1 48 A9 /.>.!.7../.H..H.
000030: 1F D2 3A 25 CD F1 18 C3 6D 25 3A 80 36 D6 00 C6 ..:%....m%:.6...
000040: FF 9F F5 3A DB 37 D6 00 C6 FF 9F C1 48 B1 1F D2 ...:.7......H...
000050: 6D 25 3A 84 36 D6 50 D6 01 9F F5 3A DA 37 D6 50 m%:.6.P....:.7.P
000060: D6 01 9F C1 48 A9 1F DA 6D 25 CD F1 18 2A 7F 34 ....H...m%...*.4
000070: 44 4D CD B0 1A 3A 49 36 C6 34 4F CD 05 1B 2A DC DM...:I6.4O...*.
000080: 37 44 4D CD 16 1B 2A 7E 36 44 4D CD 16 1B 2A DE 7DM...*~6DM...*.
000090: 37 44 4D CD 16 1B CD 13 1C C9 2A 84 36 4D CD 16 7DM.......*.6M..
0000A0: 18 32 84 36 CD 84 17 4F CD 16 18 32 E0 37 D6 06 .2.6...O...2.7..
0000B0: D6 01 9F F5 3A 84 36 D6 06 D6 01 9F C1 48 B1 1F ....:.6......H..
0000C0: D2 C6 25 3E 00 C9 3A E0 37 FE 08 C2 00 26 CD 8B ..%>..:.7....&..
0000D0: 23 F5 3A 84 36 D6 48 D6 01 9F C1 48 B1 F5 3A 84 #.:.6.H....H..:.
0000E0: 36 D6 49 D6 01 9F C1 48 B1 F5 3A 84 36 D6 07 D6 6.I....H..:.6...
0000F0: 01 9F 21 C5 33 A6 C1 48 B1 1F D2 00 26 3E 00 C9 ..!.3..H....&>..
000100: 3A E0 37 FE 09 C2 21 26 CD 9F 23 F5 3A 84 36 D6 :.7...!&..#.:.6.
000110: 50 C6 FF 9F C1 48 A1 1F D2 1E 26 CD F1 18 3E 00 P....H....&...>.
000120: C9 3A E0 37 D6 10 9F 2F F5 3E 15 21 E0 37 96 9F .:.7.../.>.!.7..
000130: 2F C1 48 A1 1F D2 55 26 3A 84 36 D6 08 D6 01 9F /.H...U&:.6.....
000140: F5 3E 15 21 84 36 96 9F C1 48 B1 1F D2 52 26 CD .>.!.6...H...R&.
000150: F1 18 3E 02 C9 3A E0 37 FE 49 C2 76 26 CD 9F 23 ..>..:.7.I.v&..#
000160: F5 3A 84 36 D6 50 C6 FF 9F C1 48 A1 1F D2 73 26 .:.6.P....H...s&
000170: CD F1 18 3E 01 C9 3A E0 37 FE 48 C2 9D 26 CD 8B ...>..:.7.H..&..
000180: 23 F5 3E 15 21 84 36 96 9F C1 48 B1 F5 7E D6 07 #.>.!.6...H..~..
000190: D6 01 9F C1 48 B1 1F D2 9D 26 3E 01 C9 3A E0 37 ....H....&>..:.7
0001A0: FE 50 C2 BB 26 CD A8 23 F5 3A 84 36 D6 09 D6 01 .P..&..#.:.6....
0001B0: 9F C1 48 B1 1F D2 BB 26 3E 03 C9 CD F1 18 3E 00 ..H....&>.....>.
0001C0: C9 2A 86 36 4D CD D3 1E 2A 8B 36 26 00 01 2F 37 .*.6M...*.6&../7
0001D0: 29 09 5E 23 56 EB 22 38 36 2A 8B 36 26 00 01 6B ).^#V."86*.6&..k
0001E0: 37 29 09 5E 23 56 EB 22 E1 37 3E 00 CD 63 33 B5 7).^#V.".7>..c3.
0001F0: C2 F9 26 CD 6C 17 22 E1 37 CD 99 17 22 E5 37 CD ..&.l.".7...".7.
Size : 512 (Real : 512)
000000: 05 1D CD 43 1C 0E 30 CD 05 1B 0E 00 CD 67 1C 3A ...C..0......g.:
000010: A7 37 1F D2 1F 1D CD 78 17 22 38 36 CD 43 1C C3 .7.....x."86.C..
000020: 80 1D 3A 35 35 FE 02 C2 37 1D 0E 39 CD 05 1B 0E ..:55...7..9....
000030: 01 CD 67 1C C3 80 1D 3A 35 35 FE 03 C2 4C 1D 0E ..g....:55...L..
000040: 3B CD 05 1B 0E 01 CD 67 1C C3 80 1D 3A 35 35 FE ;......g....:55.
000050: 04 C2 7A 1D 0E 32 CD 05 1B CD 78 17 44 4D CD 16 ..z..2....x.DM..
000060: 1B 2A C4 37 22 38 36 CD 6C 17 44 4D CD 16 1B CD .*.7"86.l.DM....
000070: 99 17 44 4D CD 16 1B C3 80 1D 01 54 46 CD FD 10 ..DM.......TF...
000080: C9 CD 84 17 32 35 35 FE 01 C2 99 1D 0E 2F CD 05 ....255....../..
000090: 1B 0E 00 CD 67 1C C3 F7 1D 3A 35 35 FE 02 C2 AE ....g....:55....
0000A0: 1D 0E 38 CD 05 1B 0E 01 CD 67 1C C3 F7 1D 3A 35 ..8......g....:5
0000B0: 35 FE 03 C2 C3 1D 0E 3A CD 05 1B 0E 01 CD 67 1C 5......:......g.
0000C0: C3 F7 1D 3A 35 35 FE 04 C2 F1 1D 0E 31 CD 05 1B ...:55......1...
0000D0: CD 78 17 44 4D CD 16 1B CD 99 17 44 4D CD 16 1B .x.DM......DM...
0000E0: CD 6C 17 22 38 36 CD 6C 17 44 4D CD 16 1B C3 F7 .l."86.l.DM.....
0000F0: 1D 01 54 46 CD FD 10 C9 2A 84 36 4D CD 16 18 32 ..TF....*.6M...2
000100: 84 36 D6 0F 9F 2F F5 3E 15 21 84 36 96 9F 2F C1 .6.../.>.!.6../.
000110: 48 A1 1F D2 1C 1E 3A 84 36 D6 0F C9 3A 84 36 D6 H.....:.6...:.6.
000120: 0C D6 01 9F F5 3A 84 36 D6 09 D6 01 9F C1 48 B1 .....:.6......H.
000130: 1F D2 37 1E 3E 00 C9 CD F1 18 3E 00 C9 CD 84 17 ..7.>.....>.....
000140: 32 35 35 FE 03 C2 55 1E 0E 3D CD 05 1B 0E 01 CD 255...U..=......
000150: 67 1C C3 70 1E 3A 35 35 FE 02 C2 6A 1E 0E 2E CD g..p.:55...j....
000160: 05 1B 0E 00 CD 67 1C C3 70 1E 01 54 49 CD FD 10 .....g..p..TI...
000170: C9 CD A5 17 FE 01 CA 82 1E 01 4C 57 CD FD 10 C3 ..........LW....
000180: BB 1E CD 78 17 22 38 36 CD 84 17 32 35 35 FE 03 ...x."86...255..
000190: C2 A0 1E 0E 3C CD 05 1B 0E 01 CD 67 1C C3 BB 1E ....<......g....
0001A0: 3A 35 35 FE 02 C2 B5 1E 0E 2D CD 05 1B 0E 00 CD :55......-......
0001B0: 67 1C C3 BB 1E 01 54 49 CD FD 10 C9 2A 7E 36 44 g.....TI....*~6D
0001C0: 4D CD 16 1B 2A 82 36 4D CD 05 1B 2A 80 36 4D CD M...*.6M...*.6M.
0001D0: 05 1B C9 21 C6 37 71 2A C6 37 26 00 01 2F 37 29 ...!.7q*.7&../7)
0001E0: 09 5E 23 56 EB 22 36 35 3E 07 CD 63 33 9F 2F F5 .^#V."65>..c3./.
0001F0: 3E 0F 11 36 35 CD 84 33 B5 D6 01 9F C1 48 B1 1F >..65..3.....H..
Size : 512 (Real : 512)
000000: 9A 25 4F 06 00 21 80 27 09 09 5E 23 56 EB E9 11 .%O..!.'..^#V...
000010: 82 36 01 E5 37 CD 77 33 D2 2A 27 01 82 36 11 E5 .6..7.w3.*'..6..
000020: 37 CD 77 33 22 E3 37 C3 36 27 21 00 00 22 E3 37 7.w3".7.6'!..".7
000030: 2A E5 37 22 82 36 0E 37 CD 05 1B CD 89 27 2A E3 *.7".6.7.....'*.
000040: 37 44 4D CD 16 1B C3 88 27 0E 3E CD 05 1B CD A2 7DM.....'.>.....
000050: 27 C3 88 27 2A 86 36 EB 0E 02 CD A3 1F 2A 8B 36 '..'*.6......*.6
000060: 4D CD C4 1F C3 88 27 0E 3F CD 05 1B CD A2 27 2A M.....'.?.....'*
000070: 80 36 4D CD 05 1B CD AE 17 4F CD 05 1B C3 88 27 .6M......O.....'
000080: 0F 27 49 27 54 27 67 27 C9 2A E1 37 44 4D CD 16 .'I'T'g'.*.7DM..
000090: 1B 2A 7E 36 44 4D CD 16 1B 2A 82 36 44 4D CD 16 .*~6DM...*.6DM..
0000A0: 1B C9 CD 89 27 CD 78 17 44 4D CD 16 1B 2A E5 37 ....'.x.DM...*.7
0000B0: 44 4D CD 16 1B C9 21 E7 37 71 3A 29 35 1F D2 D0 DM....!.7q:)5...
0000C0: 27 CD 93 10 0E 23 CD F3 0F 2A E7 37 4D CD 00 17 '....#...*.7M...
0000D0: 2A E7 37 4D 06 00 21 FE 30 09 09 5E 23 56 EB E9 *.7M..!.0..^#V..
0000E0: C3 2A 32 21 47 36 36 00 3A 8A 36 1F D2 F2 27 CD .*2!G66.:.6...'.
0000F0: 88 22 C3 2A 32 3A 85 36 3D 4F 06 00 21 2F 37 09 .".*2:.6=O..!/7.
000100: 09 3E 00 CD 8F 33 B5 C2 47 28 21 00 00 22 78 36 .>...3..G(!.."x6
000110: 3A 4F 36 21 78 36 CD 8F 33 DA 44 28 2A 78 36 01 :O6!x6..3.D(*x6.
000120: 50 36 29 09 5E 23 56 EB 22 38 36 2A 78 36 01 0D P6).^#V."86*x6..
000130: 00 09 44 4D CD 55 17 11 01 00 2A 78 36 19 22 78 ..DM.U....*x6."x
000140: 36 D2 10 28 C3 8C 28 0E 42 CD 05 1B 3A 4F 36 3C 6..(..(.B...:O6<
000150: 4F 06 00 CD 16 1B 21 00 00 22 78 36 3A 4F 36 21 O.....!.."x6:O6!
000160: 78 36 CD 8F 33 DA 8C 28 2A 78 36 01 50 36 29 09 x6..3..(*x6.P6).
000170: 5E 23 56 EB 22 38 36 CD 6C 17 44 4D CD 16 1B 11 ^#V."86.l.DM....
000180: 01 00 2A 78 36 19 22 78 36 D2 5C 28 C3 2A 32 C3 ..*x6."x6.\(.*2.
000190: 2A 32 2A 8B 36 26 00 01 2F 37 29 09 E5 21 4F 36 *2*.6&../7)..!O6
0001A0: 36 00 E3 4E 23 46 E1 23 71 23 70 C3 2A 32 3A 4F 6..N#F.#q#p.*2:O
0001B0: 36 3C 32 4F 36 FE 14 C2 C5 28 01 44 49 CD FD 10 6<2O6....(.DI...
0001C0: 21 4F 36 36 13 2A 8B 36 26 00 01 2F 37 29 09 E5 !O66.*.6&../7)..
0001D0: 2A 4F 36 26 00 01 50 36 29 09 E3 4E 23 46 E1 71 *O6&..P6)..N#F.q
0001E0: 23 70 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 3A 8A #p.*2.*2.*2.*2:.
0001F0: 36 FE 00 C2 FB 28 21 8A 36 36 02 CD FC 21 C3 2A 6....(!.66...!.*
Size : 512 (Real : 512)
000000: D2 3C 1F 2A C6 37 26 00 01 6B 37 29 09 5E 23 56 .<.*.7&..k7).^#V
000010: EB 22 7E 36 2A 48 36 26 00 22 82 36 2A 36 35 EB ."~6*H6&.".6*65.
000020: 21 84 36 73 3E 0F CD 6D 33 B5 C2 36 1F 3A 81 36 !.6s>..m3..6.:.6
000030: 32 80 36 C3 3B 1F 21 80 36 36 00 C9 3E 0C 21 36 2.6.;.!.66..>.!6
000040: 35 CD 8F 33 DA 5F 1F 2A 36 35 EB 21 84 36 73 EB 5..3._.*65.!.6s.
000050: 22 7E 36 21 80 36 36 00 21 01 00 22 82 36 C9 2A "~6!.66.!..".6.*
000060: C6 37 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 .7&../7).^#V."86
000070: CD 84 17 32 84 36 CD 99 17 22 82 36 CD AE 17 32 ...2.6...".6...2
000080: 80 36 2A C6 37 26 00 01 6B 37 29 09 5E 23 56 EB .6*.7&..k7).^#V.
000090: 22 7E 36 3E 00 CD 63 33 B5 C2 A2 1F CD 6C 17 22 "~6>..c3.....l."
0000A0: 7E 36 C9 21 C8 37 73 2B 71 2A C8 37 4D CD D3 1E ~6.!.7s+q*.7M...
0000B0: CD F8 1D C6 22 4F CD 05 1B CD BC 1E 2A C7 37 4D ...."O......*.7M
0000C0: CD 05 1B C9 21 C9 37 71 2A C9 37 4D CD D3 1E CD ....!.7q*.7M....
0000D0: F8 1D C6 1C 3D 4F CD 05 1B CD BC 1E C9 3A CB 36 ....=O.......:.6
0000E0: 11 7D 34 CD 84 33 EB 2B 73 23 72 21 7F 34 CD 92 .}4..3.+s#r!.4..
0000F0: 33 D2 FA 1F 01 4F 4D CD 73 12 0E 43 CD F8 18 2A 3....OM.s..C...*
000100: 7D 34 44 4D CD 2B 19 3A CB 36 32 48 36 4F 06 00 }4DM.+.:.62H6O..
000110: CD 2B 19 21 35 35 36 01 3A 48 36 21 35 35 BE DA .+.!556.:H6!55..
000120: 36 20 2A 35 35 26 00 01 CB 36 09 4E CD F8 18 21 6 *55&...6.N...!
000130: 35 35 34 C2 18 20 2A 7D 34 C9 21 81 36 36 00 21 554.. *}4.!.66.!
000140: 35 35 36 01 3A CB 36 21 35 35 BE DA A3 20 2A 35 556.:.6!55... *5
000150: 35 26 00 01 CB 36 09 7E 32 CA 37 4F CD C3 18 F5 5&...6.~2.7O....
000160: 3A CA 37 D6 2D D6 01 9F C1 48 B1 F5 3A CA 37 D6 :.7.-....H..:.7.
000170: 2B D6 01 9F C1 48 B1 F5 3A CA 37 D6 2E D6 01 9F +....H..:.7.....
000180: C1 48 B1 1F DA 8A 20 3E 00 C9 3A CA 37 FE 2E C2 .H.... >..:.7...
000190: 9C 20 21 35 35 3A CB 36 96 32 81 36 21 35 35 34 . !55:.6.2.6!554
0001A0: C2 44 20 3E 01 C9 21 35 35 36 01 3A CB 36 21 35 .D >..!556.:.6!5
0001B0: 35 BE DA D0 20 2A 35 35 26 00 01 CB 36 09 4E CD 5... *55&...6.N.
0001C0: D9 18 1F DA C9 20 3E 00 C9 21 35 35 34 C2 AB 20 ..... >..!554..
0001D0: 3E 01 C9 2A 8B 36 26 00 01 2F 37 29 09 3E 00 CD >..*.6&../7).>..
0001E0: 8F 33 B5 CA F2 20 0E 09 CD 05 1B 2A 80 36 4D CD .3... .....*.6M.
0001F0: 05 1B 3A 8B 36 3D 4F CD C4 1F C9 21 CB 37 71 3A ..:.6=O....!.7q:
Size : 512 (Real : 512)
000000: 32 3A 8A 36 FE 01 CA 41 29 3A 8A 36 FE 02 C2 17 2:.6...A):.6....
000010: 29 01 46 50 CD FD 10 21 8A 36 36 01 2A 85 36 26 ).FP...!.66.*.6&
000020: 00 01 2F 37 29 09 5E 23 56 EB 22 4D 36 2A 85 36 ../7).^#V."M6*.6
000030: 26 00 01 6B 37 29 09 5E 23 56 EB 22 4B 36 C3 44 &..k7).^#V."K6.D
000040: 29 CD 88 22 C3 2A 32 CD C3 1B C3 2A 32 CD C3 1B )..".*2....*2...
000050: C3 2A 32 C3 2A 32 C3 2A 32 01 49 4E CD FD 10 C3 .*2.*2.*2.IN....
000060: 2A 32 2A 8B 36 4D CD D3 1E 2A 7E 36 EB 0E 17 CD *2*.6M...*~6....
000070: 65 19 2A 82 36 4D CD 05 1B C3 2A 32 C3 2A 32 2A e.*.6M....*2.*2*
000080: 86 36 26 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 .6&../7).^#V."86
000090: 0E 40 CD 05 1B 21 01 00 22 78 36 3E 08 21 78 36 .@...!.."x6>.!x6
0000A0: CD 8F 33 DA D7 29 CD B7 17 21 78 36 CD 8F 33 DA ..3..)...!x6..3.
0000B0: C5 29 2A 78 36 01 0D 00 09 EB 2A 38 36 19 4E CD .)*x6.....*86.N.
0000C0: F8 18 C3 CA 29 0E 20 CD F8 18 11 01 00 2A 78 36 ....). ......*x6
0000D0: 19 22 78 36 D2 9B 29 0E 06 CD 42 19 C3 2A 32 CD ."x6..)...B..*2.
0000E0: 84 17 32 E8 37 4F 3E 00 91 9F F5 3A E8 37 D6 05 ..2.7O>....:.7..
0000F0: 9F C1 48 A1 1F D2 04 2A CD 78 17 EB 0E 0B CD 65 ..H....*.x.....e
000100: 19 C3 0A 2A 01 45 43 CD FD 10 C3 2A 32 C3 2A 32 ...*.EC....*2.*2
000110: C3 2A 32 C3 2A 32 0E 08 CD 05 1B C3 2A 32 2A 8B .*2.*2......*2*.
000120: 36 26 00 01 2F 37 29 09 4E 23 46 1E 01 CD 40 23 6&../7).N#F...@#
000130: EB 0E 0D CD 65 19 C3 2A 32 0E 41 CD 05 1B 3A 4F ....e..*2.A...:O
000140: 36 3C 4F CD 05 1B 2A 8B 36 26 00 01 2F 37 29 09 6<O...*.6&../7).
000150: 5E 23 56 EB 22 38 36 2A 8B 36 4D CD CA 1A CD 99 ^#V."86*.6M.....
000160: 17 4D CD 05 1B CD 6C 17 44 4D CD 16 1B 21 35 35 .M....l.DM...!55
000170: 36 00 3A 4F 36 21 35 35 BE DA 9D 2A 2A 35 35 26 6.:O6!55...**55&
000180: 00 01 50 36 29 09 4E 23 46 C5 1E 00 0E 01 CD CA ..P6).N#F.......
000190: 22 44 4D CD 16 1B 21 35 35 34 C2 72 2A C3 2A 32 "DM...!554.r*.*2
0001A0: CD C1 26 C3 2A 32 C3 2A 32 3A 8B 36 3D 4F 06 00 ..&.*2.*2:.6=O..
0001B0: 21 2F 37 09 09 3E 00 CD 8F 33 B5 C2 D9 2A 2A 86 !/7..>...3...**.
0001C0: 36 26 00 01 2F 37 29 09 4E 23 46 C5 1E 03 0E 00 6&../7).N#F.....
0001D0: CD CA 22 22 E9 37 C3 F3 2A 3A 8B 36 3D 4F 06 00 .."".7..*:.6=O..
0001E0: 21 2F 37 09 09 4E 23 46 C5 1E 03 0E 00 CD CA 22 !/7..N#F......."
0001F0: 22 E9 37 2A 8B 36 26 00 01 6B 37 29 09 5E 23 56 ".7*.6&..k7).^#V
Size : 512 (Real : 512)
000000: 8B 36 3D 5F 0E 01 CD A3 1F 3A CB 37 3C 4F CD 05 .6=_.....:.7<O..
000010: 1B CD D3 20 C9 21 CC 37 71 2A 86 36 EB 0E 00 CD ... .!.7q*.6....
000020: A3 1F 3A 8B 36 3D 5F 0E 01 CD A3 1F 3A CC 37 C6 ..:.6=_.....:.7.
000030: 03 4F CD 05 1B CD D3 20 C9 2A 85 36 26 00 01 2F .O..... .*.6&../
000040: 37 29 09 5E 23 56 EB 22 38 36 CD 84 17 FE 80 D2 7).^#V."86......
000050: 59 21 01 53 49 CD FD 10 C9 CD 3A 20 1F D2 92 21 Y!.SI.....: ...!
000060: CD 6C 17 22 CF 37 CD FB 17 22 CD 37 3E 00 CD 63 .l.".7...".7>..c
000070: 33 B5 CA 7B 21 2A CD 37 22 38 36 CD 99 17 E5 CD 3..{!*.7"86.....
000080: 2A 1B 2B D1 CD 4F 33 EB 2A CF 37 19 44 4D CD B0 *.+..O3.*.7.DM..
000090: 1A C9 CD 6C 17 EB 0E 33 CD 65 19 CD FB 17 22 CD ...l...3.e....".
0000A0: 37 3E 00 CD 63 33 B5 CA B0 21 2A CD 37 22 38 36 7>..c3...!*.7"86
0000B0: CD 99 17 44 4D CD 16 1B CD 82 19 22 38 36 CD 84 ...DM......"86..
0000C0: 17 32 35 35 D6 10 9F F5 3E 15 21 35 35 96 9F C1 .255....>.!55...
0000D0: 48 B1 1F D2 DC 21 01 45 54 CD FD 10 CD 6C 17 44 H....!.ET....l.D
0000E0: 4D CD 16 1B CD 99 17 4D CD 05 1B CD EE 1A 4F CD M......M......O.
0000F0: 05 1B 2A CA 36 4D 06 00 CD B0 1A C9 2A 85 36 26 ..*.6M......*.6&
000100: 00 01 2F 37 29 09 5E 23 56 EB 22 38 36 CD 6C 17 ../7).^#V."86.l.
000110: 22 36 35 3E 00 CD 63 33 B5 CA 31 22 2A 85 36 26 "65>..c3..1"*.6&
000120: 00 01 6B 37 29 09 5E 23 56 2A 36 35 44 4D CD A3 ..k7).^#V*65DM..
000130: 1B 2A 85 36 26 00 01 6B 37 29 09 4E 23 46 CD 55 .*.6&..k7).N#F.U
000140: 17 CD 84 17 FE FF CA 4F 22 01 44 44 CD FD 10 0E .......O".DD....
000150: 20 CD 8B 17 CD 78 17 22 36 35 3E 00 CD 63 33 B5 ....x."65>..c3.
000160: CA 6F 22 2A 36 35 44 4D 2A 7F 34 EB CD A3 1B 01 .o"*65DM*.4.....
000170: 08 00 2A 38 36 09 E5 2A 7F 34 EB E1 73 23 72 11 ..*86..*.4..s#r.
000180: 00 00 0E 0A CD 65 19 C9 2A 85 36 26 00 01 2F 37 .....e..*.6&../7
000190: 29 09 5E 23 56 EB 22 36 35 2A 4D 36 44 4D CD 96 ).^#V."65*M6DM..
0001A0: 1A 2A 36 35 22 4D 36 2A 85 36 26 00 01 6B 37 29 .*65"M6*.6&..k7)
0001B0: 09 5E 23 56 EB 22 36 35 2A 4B 36 44 4D CD B0 1A .^#V."65*K6DM...
0001C0: 2A 36 35 22 4B 36 CD FC 21 C9 21 D4 37 73 2B 71 *65"K6..!.!.7s+q
0001D0: 2B D1 C1 70 2B 71 D5 2A D1 37 22 38 36 CD 84 17 +..p+q.*.7"86...
0001E0: 32 D5 37 FE 20 C2 F7 22 3A D3 37 1F D2 F3 22 CD 2.7. ..":.7...".
0001F0: 6C 17 C9 CD 78 17 C9 3A D5 37 FE FF CA 02 23 CD l...x..:.7....#.
Size : 512 (Real : 512)
000000: EB 22 EB 37 3E 00 CD 63 33 B5 C2 1A 2B 11 07 00 .".7>..c3...+...
000010: 2A 7F 34 19 22 EB 37 C3 34 2B 2A 8B 36 26 00 01 *.4.".7.4+*.6&..
000020: 2F 37 29 09 11 07 00 E5 2A 7F 34 19 E3 4E 23 46 /7).....*.4..N#F
000030: D1 CD A3 1B 2A 86 36 26 00 01 2F 37 29 09 4E 23 ....*.6&../7).N#
000040: 46 1E 01 CD 40 23 EB 0E 29 CD 65 19 2A E9 37 44 F...@#..).e.*.7D
000050: 4D CD 16 1B 2A EB 37 44 4D CD 16 1B C3 2A 32 2A M...*.7DM....*2*
000060: 8B 36 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 .6&../7).>...3..
000070: 7A 2B 0E 06 CD 05 1B C3 CE 2B 2A 8B 36 26 00 01 z+.......+*.6&..
000080: 2F 37 29 09 EB 3E 0A CD 84 33 9F EB F5 3E 0C 2B /7)..>...3...>.+
000090: CD 8F 33 9F C1 48 B1 1F D2 B7 2B 2A 8B 36 26 00 ..3..H....+*.6&.
0000A0: 01 6B 37 29 09 5E 23 56 0E 18 CD 65 19 2A 48 36 .k7).^#V...e.*H6
0000B0: 4D CD 05 1B C3 CE 2B 2A 8B 36 26 00 01 2F 37 29 M.....+*.6&../7)
0000C0: 09 5E 23 56 0E 18 CD 65 19 0E 01 CD 05 1B C3 2A .^#V...e.......*
0000D0: 32 C3 2A 32 C3 2A 32 2A 8B 36 4D CD 56 23 C3 2A 2.*2.*2*.6M.V#.*
0000E0: 32 21 4A 36 36 01 2A 8B 36 4D CD 56 23 C3 2A 32 2!J66.*.6M.V#.*2
0000F0: CD 84 17 32 ED 37 3A ED 37 D6 01 D6 01 9F F5 3A ...2.7:.7......:
000100: ED 37 D6 04 D6 01 9F C1 48 B1 2A 85 36 26 00 01 .7......H.*.6&..
000110: 2F 37 29 09 F5 3E 02 CD 8F 33 B5 C6 FF 9F C1 48 /7)..>...3.....H
000120: A1 1F D2 40 2C 2A 85 36 26 00 01 2F 37 29 09 3E ...@,*.6&../7).>
000130: 0E CD 43 33 E5 CD 78 17 EB C1 CD 65 19 C3 79 2C ..C3..x....e..y,
000140: 3A ED 37 D6 02 D6 01 9F F5 3A ED 37 D6 03 D6 01 :.7......:.7....
000150: 9F C1 48 B1 1F D2 73 2C 2A 85 36 26 00 01 2F 37 ..H...s,*.6&../7
000160: 29 09 3E 0E CD 43 33 E5 CD 78 17 EB C1 CD 65 19 ).>..C3..x....e.
000170: C3 79 2C 01 45 4F CD FD 10 C3 2A 32 C3 2A 32 C3 .y,.EO....*2.*2.
000180: 2A 32 C3 2A 32 2A 85 36 4D CD D3 1E 2A 7E 36 EB *2.*2*.6M...*~6.
000190: 0E 19 CD 65 19 2A 82 36 4D CD 05 1B 2A 7F 34 44 ...e.*.6M...*.4D
0001A0: 4D CD B0 1A 11 00 00 0E 1B CD 65 19 2A 7F 34 44 M.........e.*.4D
0001B0: 4D CD 96 1A 01 00 00 CD 16 1B C3 2A 32 CD 22 1C M..........*2.".
0001C0: C3 2A 32 CD 22 1C C3 2A 32 C3 2A 32 CD 22 1C C3 .*2."..*2.*2."..
0001D0: 2A 32 CD 22 1C C3 2A 32 C3 2A 32 2A 8B 36 EB 0E *2."..*2.*2*.6..
0001E0: 02 CD A3 1F 3A 85 36 3D 4F CD C4 1F C3 2A 32 3A ....:.6=O....*2:
0001F0: 85 36 3D 3D 5F 0E 00 CD A3 1F 2A 8B 36 EB 0E 01 .6==_.....*.6...
Size : 512 (Real : 512)
000000: F1 18 3A D3 37 1F D2 21 23 CD 6C 17 22 36 35 3A ..:.7..!#.l."65:
000010: D4 37 11 7F 34 CD 42 33 44 4D CD 55 17 2A 36 35 .7..4.B3DM.U.*65
000020: C9 CD 78 17 22 36 35 3A D4 37 11 7F 34 CD 42 33 ..x."65:.7..4.B3
000030: 01 08 00 E5 2A 38 36 09 C1 71 23 70 2A 36 35 C9 ....*86..q#p*65.
000040: 21 D8 37 73 2B 70 2B 71 2A D6 37 E5 2A D8 37 4D !.7s+p+q*.7.*.7M
000050: 1E 01 CD CA 22 C9 21 D9 37 71 2A D9 37 4D CD D3 ....".!.7q*.7M..
000060: 1E 2A 7E 36 EB 0E 1A CD 65 19 2A 82 36 4D CD 05 .*~6....e.*.6M..
000070: 1B 3A 4A 36 1F D2 80 23 0E 01 CD 05 1B C3 85 23 .:J6...#.......#
000080: 0E 00 CD 05 1B 21 4A 36 36 00 C9 3A 84 36 D6 08 .....!J66..:.6..
000090: 9F 2F F5 3E 0B 21 84 36 96 9F 2F C1 48 A1 C9 3A ./.>.!.6../.H..:
0000A0: 80 36 D6 00 C6 FF 9F C9 3A 84 36 D6 0F 9F 2F F5 .6......:.6.../.
0000B0: 3E 15 21 84 36 96 9F 2F C1 48 A1 F5 7E D6 0C D6 >.!.6../.H..~...
0000C0: 01 9F C1 48 B1 C9 2A 85 36 4D CD D3 1E 2A 84 36 ...H..*.6M...*.6
0000D0: 4D CD 16 18 32 84 36 3A 49 36 FE 03 C2 2C 24 3A M...2.6:I6...,$:
0000E0: 84 36 D6 08 D6 01 9F F5 3E 15 21 84 36 96 9F C1 .6......>.!.6...
0000F0: 48 B1 1F D2 F9 23 CD F1 18 2A 7F 34 44 4D CD B0 H....#...*.4DM..
000100: 1A 3A 84 36 FE 10 C2 11 24 0E 2A CD 05 1B C3 16 .:.6....$.*.....
000110: 24 0E 2B CD 05 1B 2A 7E 36 44 4D CD 16 1B 2A 82 $.+...*~6DM...*.
000120: 36 44 4D CD 16 1B CD 13 1C C3 99 25 3A 49 36 FE 6DM........%:I6.
000130: 04 C2 61 24 CD A8 23 1F D2 3E 24 CD F1 18 2A 7F ..a$..#..>$...*.
000140: 34 44 4D CD B0 1A 0E 2C CD 05 1B 2A 7E 36 44 4D 4DM....,...*~6DM
000150: CD 16 1B 2A 82 36 44 4D CD 16 1B CD 13 1C C3 99 ...*.6DM........
000160: 25 CD A8 23 1F D2 70 24 21 35 35 36 01 C3 75 24 %..#..p$!556..u$
000170: 21 35 35 36 00 3A 84 36 32 DA 37 3A 80 36 32 DB !556.:.62.7:.62.
000180: 37 2A 7E 36 22 DC 37 2A 82 36 22 DE 37 2A 8B 36 7*~6".7*.6".7*.6
000190: 4D CD D3 1E CD A8 23 1F D2 9F 24 21 35 35 34 3A M.....#...$!554:
0001A0: 35 35 FE 02 C2 DA 24 2A 85 36 EB 0E 00 CD A3 1F 55....$*.6......
0001B0: 3E 06 11 7F 34 CD 84 33 44 4D CD B0 1A 2A 8B 36 >...4..3DM...*.6
0001C0: EB 0E 01 CD A3 1F 0E 02 CD 05 1B 3A 49 36 C6 11 ...........:I6..
0001D0: 4F CD 05 1B CD 13 1C C3 99 25 3A DA 37 D6 15 D6 O........%:.7...
0001E0: 01 9F F5 3A 84 36 D6 15 D6 01 9F C1 48 B1 1F D2 ...:.6......H...
0001F0: F8 24 CD F1 18 C3 6D 25 01 82 36 11 DE 37 CD 77 .$....m%..6..7.w
Size : 512 (Real : 512)
000000: CD A3 1F 0E 01 CD 05 1B 3A 85 36 3D 3D 4F CD C4 ........:.6==O..
000010: 1F C3 2A 32 CD FC 1B C3 2A 32 CD FC 1B C3 2A 32 ..*2....*2....*2
000020: CD FC 1B C3 2A 32 2A 86 36 26 00 01 2F 37 29 09 ....*2*.6&../7).
000030: 3A 8B 36 D6 03 4F 06 00 E5 21 6B 37 09 09 5E 23 :.6..O...!k7..^#
000040: 56 E1 4E 23 46 CD A3 1B 3A 8B 36 D6 03 4F 06 00 V.N#F...:.6..O..
000050: 21 2F 37 09 09 4E 23 46 2A 7F 34 EB CD A3 1B C3 !/7..N#F*.4.....
000060: 2A 32 2A 86 36 26 00 01 2F 37 29 09 4E 23 46 2A *2*.6&../7).N#F*
000070: 7F 34 EB CD A3 1B C3 2A 32 C3 2A 32 2A 87 36 EB .4.....*2.*2*.6.
000080: 0E 0D CD 65 19 2A 7F 34 2B 2B 22 87 36 C3 2A 32 ...e.*.4++".6.*2
000090: 2A 7F 34 23 3A 8B 36 3D 4F 06 00 E5 21 2F 37 09 *.4#:.6=O...!/7.
0000A0: 09 C1 71 23 70 11 00 00 0E 0D CD 65 19 3A 8B 36 ..q#p......e.:.6
0000B0: 3D 4F 06 00 21 6B 37 09 09 E5 2A 7F 34 EB E1 73 =O..!k7...*.4..s
0000C0: 23 72 C3 2A 32 0E 00 CD FB 20 C3 2A 32 2A 85 36 #r.*2.... .*2*.6
0000D0: 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 E6 2D &../7).>...3...-
0000E0: 01 47 49 CD FD 10 CD D3 20 C3 2A 32 0E 01 CD 15 .GI..... .*2....
0000F0: 21 C3 2A 32 01 49 4E CD FD 10 C3 2A 32 01 49 4E !.*2.IN....*2.IN
000100: CD FD 10 C3 2A 32 0E 00 CD 15 21 C3 2A 32 01 49 ....*2....!.*2.I
000110: 4E CD FD 10 C3 2A 32 0E 01 CD FB 20 C3 2A 32 2A N....*2.... .*2*
000120: 85 36 26 00 01 2F 37 29 09 3E 00 CD 8F 33 B5 C2 .6&../7).>...3..
000130: 38 2E 01 47 49 CD FD 10 CD D3 20 C3 2A 32 01 49 8..GI..... .*2.I
000140: 4E CD FD 10 C3 2A 32 2A 8B 36 EB 0E 00 CD A3 1F N....*2*.6......
000150: C3 2A 32 2A 8B 36 EB 0E 01 CD A3 1F 0E 01 CD 05 .*2*.6..........
000160: 1B 0E 07 CD 05 1B 3A 85 36 3D 4F 06 00 21 2F 37 ......:.6=O..!/7
000170: 09 09 3E 01 77 23 36 00 C3 2A 32 2A 8B 36 EB 0E ..>.w#6..*2*.6..
000180: 00 CD A3 1F C3 2A 32 2A 8B 36 EB 0E 01 CD A3 1F .....*2*.6......
000190: 0E 01 CD 05 1B 0E 07 CD 05 1B 3A 85 36 3D 4F 06 ..........:.6=O.
0001A0: 00 21 2F 37 09 09 3E 01 77 23 36 00 C3 2A 32 C3 .!/7..>.w#6..*2.
0001B0: 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A *2.*2.*2.*2.*2.*
0001C0: 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 2.*2.*2.*2.*2.*2
0001D0: C3 2A 32 CD 3D 1E C3 2A 32 CD 71 1E C3 2A 32 CD .*2.=..*2.q..*2.
0001E0: B6 1C C3 2A 32 C3 2A 32 C3 2A 32 C3 2A 32 C3 2A ...*2.*2.*2.*2.*
0001F0: 32 C3 2A 32 3A C7 33 1F D2 07 2F 3A C7 33 2F 32 2.*2:.3.../:.3/2
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 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 1A 1A 1A 1A 1A 1A 1A ................
0000B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0000F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000100: 01 01 15 06 01 05 03 03 03 03 03 03 01 05 03 01 ................
000110: 01 02 01 01 06 01 01 02 06 01 01 01 02 01 05 01 ................
000120: 03 01 01 06 01 01 01 01 06 01 01 01 01 02 01 01 ................
000130: 01 01 01 01 05 01 01 01 01 01 02 02 02 01 01 02 ................
000140: 01 01 02 01 01 08 15 01 02 01 01 02 02 02 02 02 ................
000150: 04 01 01 02 01 01 01 01 01 02 02 01 01 01 01 01 ................
000160: 01 02 01 01 01 03 04 05 12 01 01 01 02 12 04 01 ................
000170: 01 01 01 01 01 01 14 02 03 01 16 01 01 02 01 02 ................
000180: 01 12 06 01 01 15 02 06 03 02 02 02 03 02 03 02 ................
000190: 02 03 03 03 03 03 05 02 02 02 02 03 03 02 02 02 ................
0001A0: 02 02 0A 04 02 02 02 02 02 02 02 03 03 02 02 02 ................
0001B0: 02 07 03 1B 3A 42 43 45 51 57 58 5A 5B 5C 5D 5E ....:BCEQWXZ[\]^
0001C0: 5F 60 65 71 05 01 00 00 01 00 01 01 02 02 01 02 _`eq............
0001D0: 00 00 02 01 00 02 01 00 01 04 01 01 03 03 01 03 ................
0001E0: 01 00 01 00 01 01 02 00 01 01 00 02 00 01 01 01 ................
0001F0: 01 01 02 02 02 05 03 00 01 00 04 04 04 06 06 04 ................
Size : 512 (Real : 512)
000000: C7 33 0E 05 CD 05 1B CD C6 23 C3 2A 32 C3 2A 32 .3.......#.*2.*2
000010: 21 49 36 36 03 C3 2A 32 21 49 36 36 04 C3 2A 32 !I66..*2!I66..*2
000020: CD 22 1C C3 2A 32 3A C7 33 1F DA 35 2F 0E 05 CD ."..*2:.3..5/...
000030: 05 1B C3 3C 2F 3A C7 33 2F 32 C7 33 C3 2A 32 C3 ...</:.3/2.3.*2.
000040: 2A 32 21 49 36 36 00 C3 2A 32 21 49 36 36 01 C3 *2!I66..*2!I66..
000050: 2A 32 21 49 36 36 02 C3 2A 32 21 49 36 36 00 C3 *2!I66..*2!I66..
000060: 2A 32 21 49 36 36 01 C3 2A 32 21 49 36 36 02 C3 *2!I66..*2!I66..
000070: 2A 32 01 01 00 CD 96 1A C3 2A 32 C3 2A 32 C3 2A *2.......*2.*2.*
000080: 32 C3 2A 32 C3 2A 32 01 02 00 CD 96 1A 0E 15 CD 2.*2.*2.........
000090: 05 1B CD 13 1C C3 2A 32 C3 2A 32 C3 2A 32 C3 2A ......*2.*2.*2.*
0000A0: 32 C3 2A 32 C3 2A 32 C3 2A 32 CD 22 1C C3 2A 32 2.*2.*2.*2."..*2
0000B0: C3 2A 32 01 01 00 CD 96 1A 0E 14 CD 05 1B CD 13 .*2.............
0000C0: 1C C3 2A 32 0E 0C CD 05 1B CD E2 1B C3 2A 32 CD ..*2.........*2.
0000D0: 22 1C C3 2A 32 C3 2A 32 21 A7 37 36 01 C3 2A 32 "..*2.*2!.76..*2
0000E0: 21 A8 37 36 01 C3 2A 32 C3 2A 32 01 65 00 CD 96 !.76..*2.*2.e...
0000F0: 1A C3 2A 32 C3 2A 32 01 01 00 CD 96 1A C3 2A 32 ..*2.*2.......*2
000100: 01 02 00 CD 96 1A C3 2A 32 C3 2A 32 2A 8B 36 4D .......*2.*2*.6M
000110: CD CA 1A C3 2A 32 CD 2A 1B 44 4D CD 96 1A C3 2A ....*2.*.DM....*
000120: 32 CD 82 19 44 4D CD 96 1A CD 84 17 FE FF C2 39 2...DM.........9
000130: 30 2A 7F 34 44 4D CD B0 1A C3 2A 32 CD 3A 20 1F 0*.4DM....*2.: .
000140: D2 54 30 01 0F 00 CD 96 1A CD DD 1F 44 4D CD B0 .T0.........DM..
000150: 1A C3 63 30 CD 82 19 44 4D CD 96 1A 2A 85 36 4D ..c0...DM...*.6M
000160: CD CA 1A C3 2A 32 C3 2A 32 01 0C 00 CD 96 1A C3 ....*2.*2.......
000170: 2A 32 CD 39 21 C3 2A 32 C3 2A 32 01 49 4E CD FD *2.9!.*2.*2.IN..
000180: 10 C3 2A 32 CD 82 19 44 4D CD 96 1A C3 2A 32 CD ..*2...DM....*2.
000190: A6 20 32 C5 33 01 07 00 CD 96 1A CD DD 1F 44 4D . 2.3.........DM
0001A0: CD B0 1A C3 2A 32 01 0A 00 CD 96 1A C3 2A 32 01 ....*2.......*2.
0001B0: 0B 00 CD 96 1A C3 2A 32 C3 2A 32 CD 3A 20 1F DA ......*2.*2.: ..
0001C0: C5 30 CD F1 18 01 0F 00 CD 96 1A CD DD 1F 44 4D .0............DM
0001D0: CD B0 1A C3 2A 32 01 0C 00 CD 96 1A C3 2A 32 C3 ....*2.......*2.
0001E0: 2A 32 C3 2A 32 0E 08 CD 05 1B C3 2A 32 C3 2A 32 *2.*2......*2.*2
0001F0: CD 81 1D C3 2A 32 21 C7 33 36 01 C3 2A 32 E0 27 ....*2!.36..*2.'
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
000020: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
000030: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
000060: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 PART
000090: 20 4F 4E 45 0D 0A 0D 0A 20 20 20 20 20 20 20 20 ONE....
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 20 Revised and
0000C0: 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 20 Updated....
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C 6C By Clive Bell
0000F0: 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D 0A aby, June 1991..
000100: 0D 0A 4F 52 47 41 4E 49 5A 41 54 49 4F 4E 0D 0A ..ORGANIZATION..
000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
000120: 54 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C The Cobol compil
000130: 65 72 20 61 6E 64 20 72 75 6E 2D 74 69 6D 65 20 er and run-time
000140: 70 72 6F 67 72 61 6D 20 61 72 65 20 64 65 73 69 program are desi
000150: 67 6E 65 64 20 74 6F 20 72 75 6E 20 6F 6E 20 61 gned to run on a
000160: 6E 20 38 30 38 30 20 62 61 73 65 64 0D 0A 73 79 n 8080 based..sy
000170: 73 74 65 6D 20 69 6E 20 61 6E 20 69 6E 74 65 72 stem in an inter
000180: 61 63 74 69 76 65 20 6D 6F 64 65 2E 20 54 68 65 active mode. The
000190: 79 20 77 69 6C 6C 20 68 61 70 70 69 6C 79 20 6F y will happily o
0001A0: 70 65 72 61 74 65 20 75 6E 64 65 72 20 62 6F 74 perate under bot
0001B0: 68 20 43 50 2F 4D 20 32 2E 32 0D 0A 61 6E 64 20 h CP/M 2.2..and
0001C0: 43 50 2F 4D 20 33 2E 31 20 28 70 6C 75 73 29 20 CP/M 3.1 (plus)
0001D0: 73 79 73 74 65 6D 73 2E 0D 0A 0D 0A 54 68 65 73 systems.....Thes
0001E0: 65 20 70 72 6F 67 72 61 6D 73 20 6E 65 65 64 20 e programs need
0001F0: 61 20 6D 69 6D 69 6E 75 6D 20 32 34 6B 20 6F 66 a miminum 24k of
Size : 512 (Real : 512)
000000: E3 27 F5 27 8F 28 92 28 AE 28 E5 28 E8 28 EB 28 .'.'.(.(.(.(.(.(
000010: EE 28 01 29 47 29 4D 29 53 29 56 29 59 29 62 29 .(.)G)M)S)V)Y)b)
000020: 7C 29 7F 29 DF 29 0D 2A 10 2A 13 2A 16 2A 1E 2A |).).).*.*.*.*.*
000030: 39 2A A0 2A A6 2A A9 2A 5F 2B D1 2B D4 2B D7 2B 9*.*.*.*_+.+.+.+
000040: E1 2B F0 2B 7C 2C 7F 2C 82 2C 85 2C BD 2C C3 2C .+.+|,.,.,.,.,.,
000050: C9 2C CC 2C D2 2C D8 2C DB 2C EF 2C 14 2D 1A 2D .,.,.,.,.,.,.-.-
000060: 20 2D 26 2D 62 2D 79 2D 7C 2D 90 2D C5 2D CD 2D -&-b-y-|-.-.-.-
000070: EC 2D F4 2D FD 2D 06 2E 0E 2E 17 2E 1F 2E 3E 2E .-.-.-........>.
000080: 47 2E 53 2E 7B 2E 87 2E AF 2E B2 2E B5 2E B8 2E G.S.{...........
000090: BB 2E BE 2E C1 2E C4 2E C7 2E CA 2E CD 2E D0 2E ................
0000A0: D3 2E D9 2E DF 2E E5 2E E8 2E EB 2E EE 2E F1 2E ................
0000B0: F4 2E 0D 2F 10 2F 18 2F 20 2F 26 2F 3F 2F 42 2F .../././ /&/?/B/
0000C0: 4A 2F 52 2F 5A 2F 62 2F 6A 2F 72 2F 7B 2F 7E 2F J/R/Z/b/j/r/{/~/
0000D0: 81 2F 84 2F 87 2F 98 2F 9B 2F 9E 2F A1 2F A4 2F ././././././././
0000E0: A7 2F AA 2F B0 2F B3 2F C4 2F CF 2F D5 2F D8 2F ././././././././
0000F0: E0 2F E8 2F EB 2F F4 2F F7 2F 00 30 09 30 0C 30 ./././././.0.0.0
000100: 16 30 21 30 3C 30 66 30 69 30 72 30 78 30 7B 30 .0!0<0f0i0r0x0{0
000110: 84 30 8F 30 A6 30 AF 30 B8 30 BB 30 D6 30 DF 30 .0.0.0.0.0.0.0.0
000120: E2 30 E5 30 ED 30 F0 30 F6 30 C9 2A 8C 36 01 4B .0.0.0.0.0.*.6.K
000130: 07 29 09 5E 23 56 EB C9 2A 8C 36 01 FF 09 09 7E .).^#V..*.6....~
000140: C9 3A 8B 36 3C 32 8B 36 4F 06 00 21 2F 37 09 09 .:.6<2.6O..!/7..
000150: 3E 00 77 23 36 00 2A 8B 36 26 00 01 6B 37 29 09 >.w#6.*.6&..k7).
000160: 77 23 36 00 3A 8B 36 FE 1E DA 72 32 01 4F 53 CD w#6.:.6...r2.OS.
000170: 73 12 C9 3A 89 36 1F D2 9B 32 CD AC 16 21 89 36 s..:.6...2...!.6
000180: 36 00 3A 2A 35 1F D2 9B 32 CD 93 10 2A 2A 36 4D 6.:*5...2...**6M
000190: CD 00 17 0E 20 CD F3 0F CD C9 16 C9 21 EF 37 70 .... .......!.7p
0001A0: 2B 71 2A EE 37 01 4B 07 29 09 5E 23 56 EB 22 F2 +q*.7.K.).^#V.".
0001B0: 37 2A EE 37 01 FF 09 09 5E 16 00 2A F2 37 19 2B 7*.7....^..*.7.+
0001C0: 22 F4 37 2A F2 37 22 F0 37 11 F4 37 01 F0 37 CD ".7*.7".7..7..7.
0001D0: 77 33 DA F3 32 2A F0 37 01 03 01 09 3A 2A 36 BE w3..2*.7....:*6.
0001E0: C2 E6 32 3E 01 C9 11 01 00 2A F0 37 19 22 F0 37 ..2>.....*.7.".7
0001F0: D2 C9 32 3E 00 C9 3A 8B 36 32 F6 37 3A F6 37 FE ..2>..:.62.7:.7.
Size : 512 (Real : 512)
000000: 20 6D 61 69 6E 20 6D 65 6D 6F 72 79 20 61 6E 64 main memory and
000010: 20 61 20 64 69 73 63 20 64 72 69 76 65 2E 0D 0A a disc drive...
000020: 0D 0A 54 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 ..The following
000030: 70 72 6F 67 72 61 6D 73 20 61 72 65 20 73 75 70 programs are sup
000040: 70 6C 69 65 64 20 69 6E 20 74 68 65 20 43 6F 62 plied in the Cob
000050: 6F 6C 20 70 61 63 6B 61 67 65 3A 0D 0A 0D 0A 43 ol package:....C
000060: 4F 42 4F 4C 2E 43 4F 4D 20 20 20 20 7D 20 20 54 OBOL.COM } T
000070: 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 he Cobol compile
000080: 72 2E 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 20 20 r...COBOL.OVL
000090: 20 7D 0D 0A 0D 0A 45 58 45 43 2E 43 4F 4D 20 20 }....EXEC.COM
0000A0: 20 20 20 7D 20 20 54 68 65 20 27 52 75 6E 74 69 } The 'Runti
0000B0: 6D 65 27 20 45 78 65 63 75 74 69 6F 6E 20 70 72 me' Execution pr
0000C0: 6F 67 72 61 6D 2E 0D 0A 45 58 45 43 2E 4F 56 52 ogram...EXEC.OVR
0000D0: 20 20 20 20 20 7D 0D 0A 0D 0A 43 4F 42 4F 4C 2D }....COBOL-
0000E0: 6E 2E 44 4F 43 20 20 7D 20 20 54 68 65 20 43 6F n.DOC } The Co
0000F0: 62 6F 6C 20 70 72 6F 67 72 61 6D 20 6E 6F 74 65 bol program note
000100: 73 2E 0D 0A 0D 0A 53 45 52 49 45 53 2E 50 54 6E s.....SERIES.PTn
000110: 20 20 20 7D 20 20 54 68 65 20 43 6F 62 6F 6C 20 } The Cobol
000120: 70 72 6F 67 72 61 6D 6D 69 6E 67 20 73 65 72 69 programming seri
000130: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 2D 6E 6E 2E 43 es.....EXAM-nn.C
000140: 4F 42 20 20 7D 20 20 45 78 61 6D 70 6C 65 20 70 OB } Example p
000150: 72 6F 67 72 61 6D 73 2E 0D 0A 0D 0A 4D 41 47 2E rograms.....MAG.
000160: 6E 6E 6E 20 20 20 20 20 20 7D 20 20 41 20 63 6F nnn } A co
000170: 6D 70 6C 65 74 65 20 43 6F 62 6F 6C 20 70 72 6F mplete Cobol pro
000180: 67 72 61 6D 20 74 68 61 74 20 73 74 6F 72 65 73 gram that stores
000190: 20 64 65 74 61 69 6C 73 20 6F 66 20 6D 61 67 61 details of maga
0001A0: 7A 69 6E 65 0D 0A 20 20 20 20 20 20 20 20 20 20 zine..
0001B0: 20 20 20 20 20 20 61 72 74 69 63 6C 65 73 2E 0D articles..
0001C0: 0A 0D 0A 41 44 44 52 45 53 53 2E 6E 6E 6E 20 20 ...ADDRESS.nnn
0001D0: 7D 20 20 41 20 63 6F 6D 70 6C 65 74 65 20 43 6F } A complete Co
0001E0: 62 6F 6C 20 70 72 6F 67 72 61 6D 20 74 68 61 74 bol program that
0001F0: 20 73 74 6F 72 65 73 20 6E 61 6D 65 73 2C 20 61 stores names, a
Size : 512 (Real : 512)
000000: FF CA 3B 33 2A F6 37 26 00 01 8E 36 29 09 5E 23 ..;3*.7&...6).^#
000010: 56 EB 22 F7 37 44 4D CD 9C 32 1F D2 34 33 21 F6 V.".7DM..2..43!.
000020: 37 3A 8B 36 BE CA 2F 33 3A F6 37 3D 32 8B 36 2A 7:.6../3:.7=2.6*
000030: F7 37 7D C9 21 F6 37 35 C3 FC 32 CD AC 16 C3 F6 .7}.!.75..2.....
000040: 32 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C 67 C9 44 2.._.....o...g.D
000050: 4D 21 00 00 3E 10 29 EB 29 EB D2 5E 33 09 3D C2 M!..>.).)..^3.=.
000060: 56 33 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 4F 06 00 V3._..{.oz.g.O..
000070: 7B 91 6F 7A 98 67 C9 69 60 4E 23 46 1A 91 6F 13 {.oz.g.i`N#F..o.
000080: 1A 98 67 C9 6F 26 00 1A 95 6F 13 1A 9C 67 C9 5F ..g.o&...o...g._
000090: 16 00 7B 96 5F 7A 23 9E 57 EB C9 00 00 00 00 00 ..{._z#.W.......
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 61 01 00 00 00 00 ..........a.....
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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 ................
Size : 512 (Real : 512)
000000: 64 64 72 65 73 73 65 73 20 65 74 63 2E 0D 0A 0D ddresses etc....
000010: 0A 0D 0A 47 45 4E 45 52 41 4C 20 49 4E 54 52 4F ...GENERAL INTRO
000020: 44 55 43 54 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D DUCTION..=======
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
000040: 0A 54 68 65 20 63 6F 6D 70 69 6C 65 72 20 69 73 .The compiler is
000050: 20 63 6F 6D 70 6F 73 65 64 20 6F 66 20 74 77 6F composed of two
000060: 20 70 72 6F 67 72 61 6D 73 20 43 4F 42 4F 4C 2E programs COBOL.
000070: 43 4F 4D 20 61 6E 64 20 43 4F 42 4F 4C 2E 4F 56 COM and COBOL.OV
000080: 4C 2C 20 65 61 63 68 20 6F 66 0D 0A 77 68 69 63 L, each of..whic
000090: 68 20 72 65 61 64 73 20 69 6E 20 61 6E 64 20 63 h reads in and c
0000A0: 6F 6D 70 69 6C 65 73 20 61 20 70 6F 72 74 69 6F ompiles a portio
0000B0: 6E 20 6F 66 20 74 68 65 20 69 6E 70 75 74 20 66 n of the input f
0000C0: 69 6C 65 2E 0D 0A 0D 0A 43 4F 42 4F 4C 2E 43 4F ile.....COBOL.CO
0000D0: 4D 20 72 65 61 64 73 20 74 68 65 20 69 6E 70 75 M reads the inpu
0000E0: 74 20 70 72 6F 67 72 61 6D 20 74 6F 20 74 68 65 t program to the
0000F0: 20 65 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 end of the Data
000100: 20 44 69 76 69 73 69 6F 6E 20 61 6E 64 20 62 75 Division and bu
000110: 69 6C 64 73 0D 0A 74 68 65 20 73 79 6D 62 6F 6C ilds..the symbol
000120: 20 74 61 62 6C 65 2E 20 41 74 20 74 68 65 20 65 table. At the e
000130: 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 20 44 nd of the Data D
000140: 69 76 69 73 69 6F 6E 2C 20 43 4F 42 4F 4C 2E 43 ivision, COBOL.C
000150: 4F 4D 20 69 73 20 6F 76 65 72 6C 61 79 65 64 20 OM is overlayed
000160: 62 79 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 77 68 by..COBOL.OVL wh
000170: 69 63 68 20 75 73 65 73 20 74 68 65 20 73 79 6D ich uses the sym
000180: 62 6F 6C 20 74 61 62 6C 65 20 74 6F 20 70 72 6F bol table to pro
000190: 64 75 63 65 20 74 68 65 20 63 6F 64 65 2E 0D 0A duce the code...
0001A0: 54 68 65 20 6F 75 74 70 75 74 20 63 6F 64 65 20 The output code
0001B0: 69 73 20 77 72 69 74 74 65 6E 20 74 6F 20 64 69 is written to di
0001C0: 73 63 20 61 73 20 69 74 20 69 73 20 70 72 6F 64 sc as it is prod
0001D0: 75 63 65 64 20 74 6F 20 6D 69 6E 69 6D 69 7A 65 uced to minimize
0001E0: 20 74 68 65 20 75 73 65 20 6F 66 0D 0A 69 6E 74 the use of..int
0001F0: 65 72 6E 61 6C 20 73 74 6F 72 61 67 65 2E 0D 0A ernal storage...
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5C ...............\
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 0C 00 21 00 61 00 ............!.a.
000070: 9D 00 C7 00 0D 01 2D 01 48 01 00 00 00 00 00 00 ......-.H.......
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 01 20 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: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
000130: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 ................
000150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
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 FF 01 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 ................
Size : 512 (Real : 512)
000000: 0D 0A 54 68 65 20 45 58 45 43 75 74 69 6F 6E 20 ..The EXECution
000010: 70 72 6F 67 72 61 6D 20 63 6F 6E 73 69 73 74 73 program consists
000020: 20 6F 66 20 74 77 6F 20 70 61 72 74 73 20 45 58 of two parts EX
000030: 45 43 2E 43 4F 4D 20 61 6E 64 20 45 58 45 43 2E EC.COM and EXEC.
000040: 4F 56 4C 2C 20 74 68 65 0D 0A 45 58 45 43 2E 43 OVL, the..EXEC.C
000050: 4F 4D 20 50 72 6F 67 72 61 6D 20 62 75 69 6C 64 OM Program build
000060: 73 20 74 68 65 20 63 6F 72 65 20 69 6D 61 67 65 s the core image
000070: 20 66 6F 72 20 74 68 65 20 69 6E 74 65 72 6D 65 for the interme
000080: 64 69 61 74 65 20 63 6F 64 65 20 61 6E 64 0D 0A diate code and..
000090: 70 65 72 66 6F 72 6D 73 20 73 75 63 68 20 66 75 performs such fu
0000A0: 6E 63 74 69 6F 6E 73 20 61 73 20 62 61 63 6B 73 nctions as backs
0000B0: 74 75 66 66 69 6E 67 20 61 64 64 72 65 73 73 65 tuffing addresse
0000C0: 73 20 61 6E 64 20 6F 66 66 73 65 74 74 69 6E 67 s and offsetting
0000D0: 20 61 64 64 72 65 73 73 20 69 6E 0D 0A 73 75 62 address in..sub
0000E0: 72 6F 75 74 69 6E 65 73 2E 20 45 58 45 43 2E 43 routines. EXEC.C
0000F0: 4F 4D 20 74 68 65 6E 20 6C 6F 61 64 73 20 45 58 OM then loads EX
000100: 45 43 2E 4F 56 4C 20 28 74 68 65 20 69 6E 74 65 EC.OVL (the inte
000110: 72 70 72 65 74 65 72 29 20 69 6E 74 6F 20 6D 65 rpreter) into me
000120: 6D 6F 72 79 20 61 6E 64 0D 0A 74 72 61 6E 73 66 mory and..transf
000130: 65 72 73 20 63 6F 6E 74 72 6F 6C 20 74 6F 20 69 ers control to i
000140: 74 2E 20 54 68 65 20 69 6E 74 65 72 70 72 65 74 t. The interpret
000150: 65 72 20 69 73 20 63 6F 6E 74 72 6F 6C 6C 65 64 er is controlled
000160: 20 62 79 20 61 20 6C 61 72 67 65 20 63 61 73 65 by a large case
000170: 0D 0A 73 74 61 74 65 6D 65 6E 74 20 74 68 61 74 ..statement that
000180: 20 64 65 63 6F 64 65 73 20 74 68 65 20 69 6E 73 decodes the ins
000190: 74 72 75 63 74 69 6F 6E 73 20 61 6E 64 20 70 65 tructions and pe
0001A0: 72 66 6F 72 6D 73 20 74 68 65 20 72 65 71 75 69 rforms the requi
0001B0: 72 65 64 20 61 63 74 69 6F 6E 73 2E 0D 0A 0D 0A red actions.....
0001C0: 0D 0A 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 45 4C ..MICRO-COBOL EL
0001D0: 45 4D 45 4E 54 53 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D EMENTS..========
0001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
0001F0: 54 68 69 73 20 73 65 63 74 69 6F 6E 20 63 6F 6E This section con
Size : 512 (Real : 512)
000000: 65 72 6D 65 64 69 61 74 65 20 63 6F 64 65 2E 20 ermediate code.
000010: 20 44 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E Default is OFF.
000020: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 53 65 74 .... Set
000030: 74 69 6E 67 20 74 68 69 73 20 74 6F 67 67 6C 65 ting this toggle
000040: 20 73 70 65 65 64 73 20 69 6E 69 74 69 61 6C 20 speeds initial
000050: 63 6F 6D 70 69 6C 61 74 69 6F 6E 20 66 6F 72 20 compilation for
000060: 73 79 6E 74 61 78 0D 0A 20 20 20 20 20 20 20 20 syntax..
000070: 20 63 68 65 63 6B 69 6E 67 2E 20 20 57 68 65 6E checking. When
000080: 20 74 68 69 73 20 74 6F 67 67 6C 65 20 69 73 20 this toggle is
000090: 73 65 74 20 74 68 65 20 22 43 49 4E 22 20 66 69 set the "CIN" fi
0000A0: 6C 65 20 69 73 20 65 6D 70 74 79 2E 0D 0A 0D 0A le is empty.....
0000B0: 20 20 20 24 44 20 20 2D 20 44 65 62 75 67 67 69 $D - Debuggi
0000C0: 6E 67 20 6D 6F 64 65 2E 20 20 44 65 66 61 75 6C ng mode. Defaul
0000D0: 74 20 69 73 20 4F 46 46 2E 0D 0A 0D 0A 20 20 20 t is OFF.....
0000E0: 20 20 20 20 20 20 54 68 69 73 20 74 6F 67 67 6C This toggl
0000F0: 65 20 73 65 74 73 20 74 68 65 20 64 65 62 75 67 e sets the debug
000100: 67 69 6E 67 20 6D 6F 64 65 2C 20 77 68 69 63 68 ging mode, which
000110: 20 6D 65 61 6E 73 20 61 6C 6C 20 74 68 65 0D 0A means all the..
000120: 20 20 20 20 20 20 20 20 20 64 65 62 75 67 67 69 debuggi
000130: 6E 67 20 6C 69 6E 65 73 20 28 74 68 6F 73 65 20 ng lines (those
000140: 77 69 74 68 20 61 20 27 3A 27 20 69 6E 20 63 6F with a ':' in co
000150: 6C 75 6D 6E 20 6F 6E 65 29 20 61 72 65 20 63 6F lumn one) are co
000160: 6D 70 69 6C 65 64 2E 0D 0A 20 20 20 20 20 20 20 mpiled...
000170: 20 20 49 66 20 74 68 69 73 20 74 6F 67 67 6C 65 If this toggle
000180: 20 69 73 20 6E 6F 74 20 73 65 74 20 69 6E 20 74 is not set in t
000190: 68 65 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 he ENVIRONMENT D
0001A0: 49 56 49 53 49 4F 4E 20 6F 66 20 74 68 65 0D 0A IVISION of the..
0001B0: 20 20 20 20 20 20 20 20 20 73 6F 75 72 63 65 20 source
0001C0: 70 72 6F 67 72 61 6D 20 61 6C 6C 20 64 65 62 75 program all debu
0001D0: 67 67 69 6E 67 20 6C 69 6E 65 73 20 61 72 65 20 gging lines are
0001E0: 74 72 65 61 74 65 64 20 61 73 20 63 6F 6D 6D 65 treated as comme
0001F0: 6E 74 73 2E 0D 0A 0D 0A 20 20 20 24 4C 20 20 2D nts..... $L -
Size : 512 (Real : 512)
000000: 74 61 69 6E 73 20 61 20 64 65 73 63 72 69 70 74 tains a descript
000010: 69 6F 6E 20 6F 66 20 65 61 63 68 20 65 6C 65 6D ion of each elem
000020: 65 6E 74 20 69 6E 20 74 68 65 20 6C 61 6E 67 75 ent in the langu
000030: 61 67 65 20 61 6E 64 0D 0A 73 68 6F 77 73 20 73 age and..shows s
000040: 69 6D 70 6C 65 20 65 78 61 6D 70 6C 65 73 20 6F imple examples o
000050: 66 20 74 68 65 69 72 20 75 73 65 2E 20 54 68 65 f their use. The
000060: 20 66 6F 6C 6C 6F 77 69 6E 67 20 63 6F 6E 76 65 following conve
000070: 6E 74 69 6F 6E 73 20 61 72 65 20 75 73 65 64 20 ntions are used
000080: 69 6E 0D 0A 65 78 70 6C 61 69 6E 69 6E 67 20 74 in..explaining t
000090: 68 65 20 66 6F 72 6D 61 74 73 3A 0D 0A 0D 0A 45 he formats:....E
0000A0: 6C 65 6D 65 6E 74 73 20 65 6E 63 6C 6F 73 65 64 lements enclosed
0000B0: 20 69 6E 20 3C 62 72 6F 6B 65 6E 3E 20 62 72 61 in <broken> bra
0000C0: 63 6B 65 74 73 20 61 72 65 20 74 68 65 6D 73 65 ckets are themse
0000D0: 6C 76 65 73 20 63 6F 6D 70 6C 65 74 65 20 65 6E lves complete en
0000E0: 74 69 74 65 73 20 61 6E 64 0D 0A 61 72 65 20 64 tites and..are d
0000F0: 65 73 63 72 69 62 65 64 20 65 6C 73 65 77 68 65 escribed elsewhe
000100: 72 65 20 69 6E 20 74 68 65 20 6D 61 6E 75 61 6C re in the manual
000110: 2E 0D 0A 0D 0A 45 6C 65 6D 65 6E 74 73 20 65 6E .....Elements en
000120: 63 6C 6F 73 65 64 20 69 6E 20 7B 73 71 75 69 67 closed in {squig
000130: 67 6C 65 79 7D 20 62 72 61 63 6B 65 74 73 20 61 gley} brackets a
000140: 72 65 20 63 68 6F 69 63 65 73 2C 20 6F 6E 65 20 re choices, one
000150: 6F 66 20 74 68 65 20 65 6C 65 6D 65 6E 74 73 0D of the elements.
000160: 0A 77 68 69 63 68 20 69 73 20 74 6F 20 62 65 20 .which is to be
000170: 75 73 65 64 2E 0D 0A 0D 0A 45 6C 65 6D 65 6E 74 used.....Element
000180: 73 20 65 6E 63 6C 6F 73 65 64 20 69 6E 20 5B 73 s enclosed in [s
000190: 71 75 61 72 65 5D 20 62 72 61 63 6B 65 74 73 20 quare] brackets
0001A0: 61 72 65 20 6F 70 74 69 6F 6E 61 6C 2E 0D 0A 0D are optional....
0001B0: 0A 41 6C 6C 20 65 6C 65 6D 65 6E 74 73 20 69 6E .All elements in
0001C0: 20 63 61 70 69 74 61 6C 20 6C 65 74 74 65 72 73 capital letters
0001D0: 20 61 72 65 20 72 65 73 65 72 76 65 64 20 77 6F are reserved wo
0001E0: 72 64 73 20 61 6E 64 20 6D 75 73 74 20 62 65 20 rds and must be
0001F0: 73 70 65 6C 6C 65 64 0D 0A 65 78 61 63 74 6C 79 spelled..exactly
Size : 512 (Real : 512)
000000: 20 6C 69 73 74 20 74 68 65 20 69 6E 70 75 74 20 list the input
000010: 63 6F 64 65 20 6F 6E 20 74 68 65 20 73 63 72 65 code on the scre
000020: 65 6E 20 61 73 20 74 68 65 20 70 72 6F 67 72 61 en as the progra
000030: 6D 20 69 73 20 63 6F 6D 70 69 6C 65 64 2E 0D 0A m is compiled...
000040: 20 20 20 20 20 20 20 20 20 44 65 66 61 75 6C 74 Default
000050: 20 69 73 20 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 20 is ON.....
000060: 20 20 20 20 45 72 72 6F 72 20 6D 65 73 73 61 67 Error messag
000070: 65 73 20 61 72 65 20 64 69 73 70 6C 61 79 65 64 es are displayed
000080: 20 61 74 20 74 68 65 20 74 65 72 6D 69 6E 61 6C at the terminal
000090: 20 69 6E 20 61 6E 79 20 63 61 73 65 2E 0D 0A 0D in any case....
0000A0: 0A 20 20 20 24 50 20 20 2D 20 50 72 6F 64 75 63 . $P - Produc
0000B0: 74 69 6F 6E 73 2E 20 4C 69 73 74 20 70 72 6F 64 tions. List prod
0000C0: 75 63 74 69 6F 6E 73 20 61 73 20 74 68 65 79 20 uctions as they
0000D0: 6F 63 63 75 72 2E 20 44 65 66 61 75 6C 74 20 69 occur. Default i
0000E0: 73 20 4F 46 46 2E 0D 0A 0D 0A 20 20 20 24 53 20 s OFF..... $S
0000F0: 20 2D 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 - sequence numb
000100: 65 72 73 20 61 72 65 20 69 6E 20 74 68 65 20 66 ers are in the f
000110: 69 72 73 74 20 73 69 78 20 70 6F 73 69 74 69 6F irst six positio
000120: 6E 73 20 6F 66 20 65 61 63 68 20 72 65 63 6F 72 ns of each recor
000130: 64 0D 0A 20 20 20 20 20 20 20 20 20 44 65 66 61 d.. Defa
000140: 75 6C 74 20 69 73 20 4F 46 46 2E 0D 0A 0D 0A 20 ult is OFF.....
000150: 20 20 24 54 20 20 2D 20 54 6F 6B 65 6E 73 2E 20 $T - Tokens.
000160: 20 4C 69 73 74 20 74 6F 6B 65 6E 73 20 66 72 6F List tokens fro
000170: 6D 20 74 68 65 20 73 63 61 6E 6E 65 72 2E 20 44 m the scanner. D
000180: 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E 0D 0A efault is OFF...
000190: 0D 0A 20 20 20 24 57 20 20 2D 20 43 72 65 61 74 .. $W - Creat
0001A0: 65 20 61 20 6C 69 73 74 20 66 69 6C 65 2E 20 20 e a list file.
0001B0: 44 65 66 61 75 6C 74 20 69 73 20 4F 46 46 2E 0D Default is OFF..
0001C0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 41 20 6C 69 ... A li
0001D0: 73 74 69 6E 67 20 20 66 69 6C 65 20 69 73 20 63 sting file is c
0001E0: 72 65 61 74 65 64 20 77 68 65 6E 20 74 68 69 73 reated when this
0001F0: 20 74 6F 67 67 6C 65 20 69 73 20 73 65 74 2E 20 toggle is set.
Size : 512 (Real : 512)
000000: 2E 0D 0A 0D 0A 55 73 65 72 20 6E 61 6D 65 73 20 .....User names
000010: 61 72 65 20 69 6E 64 69 63 61 74 65 64 20 69 6E are indicated in
000020: 20 6C 6F 77 65 72 20 63 61 73 65 2E 20 54 68 65 lower case. The
000030: 73 65 20 6E 61 6D 65 73 20 61 72 65 20 75 6E 72 se names are unr
000040: 65 73 74 72 69 63 74 65 64 20 69 6E 0D 0A 6C 65 estricted in..le
000050: 6E 67 74 68 2C 20 68 6F 77 65 76 65 72 20 74 68 ngth, however th
000060: 65 79 20 6D 75 73 74 20 62 65 20 75 6E 69 71 75 ey must be uniqu
000070: 65 20 77 69 74 68 69 6E 20 74 68 65 20 66 69 72 e within the fir
000080: 73 74 20 31 35 20 63 68 61 72 61 63 74 65 72 73 st 15 characters
000090: 2E 20 54 68 65 20 6F 6E 6C 79 0D 0A 6F 74 68 65 . The only..othe
0000A0: 72 20 72 65 73 74 72 69 63 74 69 6F 6E 20 6F 6E r restriction on
0000B0: 20 75 73 65 72 20 6E 61 6D 65 73 20 69 73 20 74 user names is t
0000C0: 68 61 74 20 74 68 65 20 66 69 72 73 74 20 63 68 hat the first ch
0000D0: 61 72 61 63 74 65 72 20 6D 75 73 74 20 62 65 20 aracter must be
0000E0: 61 6E 20 61 6C 70 68 61 0D 0A 63 68 61 72 61 63 an alpha..charac
0000F0: 74 65 72 2E 20 54 68 65 20 72 65 6D 61 69 6E 64 ter. The remaind
000100: 65 72 20 6F 66 20 74 68 65 20 75 73 65 72 20 6E er of the user n
000110: 61 6D 65 20 63 61 6E 20 68 61 76 65 20 61 6E 79 ame can have any
000120: 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 20 6F 66 0D combination of.
000130: 0A 72 65 70 72 65 73 65 6E 74 61 62 6C 65 20 63 .representable c
000140: 68 61 72 61 63 74 65 72 73 20 69 6E 20 69 74 2E haracters in it.
000150: 0D 0A 0D 0A 54 68 65 20 69 6E 70 75 74 20 74 6F ....The input to
000160: 20 74 68 65 20 63 6F 6D 70 69 6C 65 72 20 64 6F the compiler do
000170: 65 73 20 6E 6F 74 20 6E 65 65 64 20 74 6F 20 63 es not need to c
000180: 6F 6E 66 6F 72 6D 20 74 6F 20 73 74 61 6E 64 61 onform to standa
000190: 72 64 20 43 4F 42 4F 4C 20 66 6F 72 6D 61 74 2E rd COBOL format.
0001A0: 0D 0A 46 72 65 65 20 66 6F 72 6D 20 69 6E 70 75 ..Free form inpu
0001B0: 74 20 77 69 6C 6C 20 62 65 20 61 63 63 65 70 74 t will be accept
0001C0: 65 64 20 61 73 20 74 68 65 20 64 65 66 61 75 6C ed as the defaul
0001D0: 74 20 63 6F 6E 64 69 74 69 6F 6E 2E 20 49 66 20 t condition. If
0001E0: 64 65 73 69 72 65 64 2C 0D 0A 73 65 71 75 65 6E desired,..sequen
0001F0: 63 65 20 6E 75 6D 62 65 72 73 20 63 61 6E 20 62 ce numbers can b
Size : 512 (Real : 512)
000000: 20 57 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 When..
000010: 74 68 69 73 20 74 6F 67 67 6C 65 20 69 73 20 6E this toggle is n
000020: 6F 74 20 73 65 74 20 74 68 65 20 22 4C 53 54 22 ot set the "LST"
000030: 20 66 69 6C 65 20 77 69 6C 6C 20 6F 6E 6C 79 20 file will only
000040: 63 6F 6E 74 61 69 6E 0D 0A 20 20 20 20 20 20 20 contain..
000050: 20 20 65 72 72 6F 72 20 6D 65 73 73 61 67 65 73 error messages
000060: 2E 0D 0A 0D 0A 0D 0A 52 55 4E 20 54 49 4D 45 20 .......RUN TIME
000070: 43 4F 4E 56 45 4E 54 49 4F 4E 53 0D 0A 3D 3D 3D CONVENTIONS..===
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000090: 3D 0D 0A 0D 0A 54 68 69 73 20 73 65 63 74 69 6F =....This sectio
0000A0: 6E 20 65 78 70 6C 61 69 6E 73 20 68 6F 77 20 74 n explains how t
0000B0: 6F 20 72 75 6E 20 74 68 65 20 63 6F 6D 70 69 6C o run the compil
0000C0: 65 72 20 6F 6E 20 74 68 65 20 63 75 72 72 65 6E er on the curren
0000D0: 74 20 73 79 73 74 65 6D 2E 0D 0A 0D 0A 54 68 65 t system.....The
0000E0: 20 63 6F 6D 70 69 6C 65 72 20 65 78 70 65 63 74 compiler expect
0000F0: 73 20 74 6F 20 73 65 65 20 61 20 66 69 6C 65 20 s to see a file
000100: 77 69 74 68 20 61 20 74 79 70 65 20 6F 66 20 43 with a type of C
000110: 42 4C 20 61 73 20 74 68 65 20 69 6E 70 75 74 20 BL as the input
000120: 66 69 6C 65 2E 20 20 49 6E 0D 0A 67 65 6E 65 72 file. In..gener
000130: 61 6C 2C 20 74 68 65 20 69 6E 70 75 74 20 69 73 al, the input is
000140: 20 66 72 65 65 20 66 6F 72 6D 2E 20 20 49 66 20 free form. If
000150: 74 68 65 20 69 6E 70 75 74 20 69 6E 63 6C 75 64 the input includ
000160: 65 73 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 es sequence numb
000170: 65 72 73 0D 0A 74 68 65 6E 20 74 68 65 20 63 6F ers..then the co
000180: 6D 70 69 6C 65 72 20 6D 75 73 74 20 62 65 20 6E mpiler must be n
000190: 6F 74 69 66 69 65 64 20 62 79 20 73 65 74 74 69 otified by setti
0001A0: 6E 67 20 74 68 65 20 61 70 70 72 6F 70 72 69 61 ng the appropria
0001B0: 74 65 20 74 6F 67 67 6C 65 2E 0D 0A 0D 0A 54 68 te toggle.....Th
0001C0: 65 20 63 6F 6D 70 69 6C 65 72 20 69 73 20 73 74 e compiler is st
0001D0: 61 72 74 65 64 20 62 79 20 74 79 70 69 6E 67 20 arted by typing
0001E0: 43 4F 42 4F 4C 20 3C 66 69 6C 65 6E 61 6D 65 3E COBOL <filename>
0001F0: 2E 20 57 68 65 72 65 20 74 68 65 20 66 69 6C 65 . Where the file
Size : 512 (Real : 512)
000000: 65 20 65 6E 74 65 72 65 64 20 69 6E 20 74 68 65 e entered in the
000010: 20 66 69 72 73 74 20 73 69 78 20 70 6F 73 69 74 first six posit
000020: 69 6F 6E 73 20 6F 66 20 65 61 63 68 20 6C 69 6E ions of each lin
000030: 65 2E 0D 0A 48 6F 77 65 76 65 72 2C 20 61 20 74 e...However, a t
000040: 6F 67 67 6C 65 20 6E 65 65 64 73 20 74 6F 20 62 oggle needs to b
000050: 65 20 73 65 74 20 74 6F 20 63 61 75 73 65 20 74 e set to cause t
000060: 68 65 20 63 6F 6D 70 69 6C 65 72 20 74 6F 20 69 he compiler to i
000070: 67 6E 6F 72 65 20 74 68 65 0D 0A 73 65 71 75 65 gnore the..seque
000080: 6E 63 65 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A nce numbers.....
000090: 54 68 65 20 66 69 72 73 74 20 63 68 61 72 61 63 The first charac
0000A0: 74 65 72 20 70 6F 73 69 74 69 6F 6E 20 6F 6E 20 ter position on
0000B0: 61 6E 79 20 6C 69 6E 65 20 69 73 20 75 73 65 64 any line is used
0000C0: 20 74 6F 20 69 6E 64 69 63 61 74 65 20 74 68 65 to indicate the
0000D0: 20 66 6F 6C 6C 6F 77 69 6E 67 3A 0D 0A 0D 0A 20 following:....
0000E0: 20 20 2A 20 20 2D 20 20 69 6E 64 69 63 61 74 65 * - indicate
0000F0: 73 20 61 20 63 6F 6D 6D 65 6E 74 20 65 6E 74 72 s a comment entr
000100: 79 2E 0D 0A 20 20 20 3A 20 20 2D 20 20 69 6E 64 y... : - ind
000110: 69 63 61 74 65 73 20 61 20 64 65 62 75 67 67 69 icates a debuggi
000120: 6E 67 20 6C 69 6E 65 2E 0D 0A 20 20 20 2F 20 20 ng line... /
000130: 2D 20 20 69 6E 64 69 63 61 74 65 73 20 61 20 70 - indicates a p
000140: 61 67 65 20 65 6A 65 63 74 2E 0D 0A 0D 0A 0D 0A age eject.......
000150: 43 4F 4D 50 49 4C 45 52 20 54 4F 47 47 4C 45 53 COMPILER TOGGLES
000160: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..==============
000170: 3D 3D 0D 0A 0D 0A 54 68 65 72 65 20 61 72 65 20 ==....There are
000180: 73 69 78 20 63 6F 6D 70 69 6C 65 72 20 74 6F 67 six compiler tog
000190: 67 6C 65 73 20 77 68 69 63 68 20 61 72 65 20 63 gles which are c
0001A0: 6F 6E 74 72 6F 6C 6C 65 64 20 62 79 20 61 6E 20 ontrolled by an
0001B0: 65 6E 74 72 79 20 66 6F 6C 6C 6F 77 69 6E 67 0D entry following.
0001C0: 0A 74 68 65 20 63 6F 6D 70 69 6C 65 72 20 61 63 .the compiler ac
0001D0: 74 69 76 61 74 69 6F 6E 20 63 6F 6D 6D 61 6E 64 tivation command
0001E0: 2C 20 20 43 4F 42 4F 4C 20 3C 66 69 6C 65 6E 61 , COBOL <filena
0001F0: 6D 65 3E 2E 20 20 54 68 65 20 66 6F 72 6D 61 74 me>. The format
Size : 512 (Real : 512)
000000: 20 6E 61 6D 65 20 69 73 0D 0A 74 68 65 20 73 79 name is..the sy
000010: 73 74 65 6D 20 6E 61 6D 65 20 6F 66 20 74 68 65 stem name of the
000020: 20 69 6E 70 75 74 20 66 69 6C 65 2E 20 20 54 68 input file. Th
000030: 65 72 65 20 69 73 20 6E 6F 20 69 6E 74 65 72 61 ere is no intera
000040: 63 74 69 6F 6E 20 72 65 71 75 69 72 65 64 20 74 ction required t
000050: 6F 0D 0A 73 74 61 72 74 20 74 68 65 20 73 65 63 o..start the sec
000060: 6F 6E 64 20 70 61 72 74 20 6F 66 20 74 68 65 20 ond part of the
000070: 63 6F 6D 70 69 6C 65 72 2E 20 20 20 54 68 65 20 compiler. The
000080: 6F 75 74 70 75 74 20 66 69 6C 65 20 77 69 6C 6C output file will
000090: 20 68 61 76 65 20 74 68 65 20 73 61 6D 65 0D 0A have the same..
0000A0: 3C 66 69 6C 65 6E 61 6D 65 3E 20 61 73 20 74 68 <filename> as th
0000B0: 65 20 69 6E 70 75 74 20 66 69 6C 65 20 61 6E 64 e input file and
0000C0: 20 77 69 6C 6C 20 62 65 20 67 69 76 65 6E 20 61 will be given a
0000D0: 20 66 69 6C 65 20 74 79 70 65 20 6F 66 20 43 49 file type of CI
0000E0: 4E 2E 20 20 41 6E 79 0D 0A 70 72 65 76 69 6F 75 N. Any..previou
0000F0: 73 20 63 6F 70 69 65 73 20 6F 66 20 74 68 65 20 s copies of the
000100: 66 69 6C 65 20 77 69 6C 6C 20 62 65 20 65 72 61 file will be era
000110: 73 65 64 2E 20 20 41 73 20 77 69 74 68 20 74 68 sed. As with th
000120: 65 20 43 49 4E 20 66 69 6C 65 2C 20 61 20 4C 53 e CIN file, a LS
000130: 54 0D 0A 66 69 6C 65 20 77 69 6C 6C 20 62 65 20 T..file will be
000140: 63 72 65 61 74 65 64 20 77 69 74 68 20 74 68 65 created with the
000150: 20 73 61 6D 65 20 66 69 6C 65 20 6E 61 6D 65 20 same file name
000160: 61 73 20 74 68 65 20 69 6E 70 75 74 20 66 69 6C as the input fil
000170: 65 20 61 6E 64 20 61 6E 79 0D 0A 70 72 65 76 69 e and any..previ
000180: 6F 75 73 20 4C 53 54 20 66 69 6C 65 73 20 77 69 ous LST files wi
000190: 74 68 20 74 68 61 74 20 6E 61 6D 65 20 77 69 6C th that name wil
0001A0: 6C 20 62 65 20 65 72 61 73 65 64 2E 0D 0A 0D 0A l be erased.....
0001B0: 54 68 65 20 69 6E 74 65 72 70 72 65 74 65 72 20 The interpreter
0001C0: 69 73 20 73 74 61 72 74 65 64 20 62 79 20 74 79 is started by ty
0001D0: 70 69 6E 67 20 45 58 45 43 20 3C 66 69 6C 65 6E ping EXEC <filen
0001E0: 61 6D 65 3E 2E 20 20 54 68 65 20 66 69 72 73 74 ame>. The first
0001F0: 20 70 72 6F 67 72 61 6D 20 69 73 0D 0A 61 20 6C program is..a l
Size : 512 (Real : 512)
000000: 20 6F 66 20 74 68 65 20 65 6E 74 72 79 0D 0A 63 of the entry..c
000010: 6F 6E 73 69 73 74 73 20 6F 66 20 66 6F 6C 6C 6F onsists of follo
000020: 77 69 6E 67 20 3C 66 69 6C 65 6E 61 6D 65 3E 20 wing <filename>
000030: 62 79 20 6F 6E 65 20 73 70 61 63 65 20 61 6E 64 by one space and
000040: 20 74 68 65 6E 20 65 6E 74 65 72 69 6E 67 20 61 then entering a
000050: 20 22 24 22 0D 0A 66 6F 6C 6C 6F 77 65 64 20 69 "$"..followed i
000060: 6D 6D 65 64 69 61 74 65 6C 79 20 62 79 20 74 68 mmediately by th
000070: 65 20 64 65 73 69 72 65 64 20 74 6F 67 67 6C 65 e desired toggle
000080: 73 2E 20 20 54 68 65 72 65 20 6D 75 73 74 20 62 s. There must b
000090: 65 20 6F 6E 6C 79 20 6F 6E 65 20 73 70 61 63 65 e only one space
0000A0: 0D 0A 61 66 74 65 72 20 3C 66 69 6C 65 6E 61 6D ..after <filenam
0000B0: 65 3E 20 61 6E 64 20 6E 6F 20 73 70 61 63 65 73 e> and no spaces
0000C0: 20 62 65 74 77 65 65 6E 20 74 68 65 20 22 24 22 between the "$"
0000D0: 20 61 6E 64 20 74 68 65 20 74 6F 67 67 6C 65 73 and the toggles
0000E0: 2E 0D 0A 0D 0A 54 68 65 20 66 6F 6C 6C 6F 77 69 .....The followi
0000F0: 6E 67 20 69 73 20 61 6E 20 65 78 61 6D 70 6C 65 ng is an example
000100: 20 6F 66 20 61 20 74 79 70 69 63 61 6C 20 65 6E of a typical en
000110: 74 72 79 3A 0D 0A 0D 0A 20 20 20 43 4F 42 4F 4C try:.... COBOL
000120: 20 45 58 41 4D 50 4C 45 20 24 53 0D 0A 0D 0A 54 EXAMPLE $S....T
000130: 68 69 73 20 65 6E 74 72 79 20 77 6F 75 6C 64 20 his entry would
000140: 63 61 75 73 65 20 74 68 65 20 63 6F 6D 70 69 6C cause the compil
000150: 65 72 20 74 6F 20 69 67 6E 6F 72 65 20 74 68 65 er to ignore the
000160: 20 66 69 72 73 74 20 73 69 78 20 63 68 61 72 61 first six chara
000170: 63 74 65 72 73 20 28 75 73 65 64 0D 0A 66 6F 72 cters (used..for
000180: 20 73 65 71 75 65 6E 63 65 20 6E 75 6D 62 65 72 sequence number
000190: 73 29 20 61 74 20 74 68 65 20 62 65 67 69 6E 6E s) at the beginn
0001A0: 69 6E 67 20 6F 66 20 65 61 63 68 20 69 6E 70 75 ing of each inpu
0001B0: 74 20 6C 69 6E 65 2E 20 20 49 6E 20 65 61 63 68 t line. In each
0001C0: 20 63 61 73 65 20 74 68 65 0D 0A 74 6F 67 67 6C case the..toggl
0001D0: 65 20 72 65 76 65 72 73 65 73 20 74 68 65 20 64 e reverses the d
0001E0: 65 66 61 75 6C 74 20 76 61 6C 75 65 2E 0D 0A 0D efault value....
0001F0: 0A 20 20 20 24 43 20 20 2D 20 4E 6F 20 69 6E 74 . $C - No int
Size : 512 (Real : 512)
000000: 6F 61 64 65 72 2C 20 61 6E 64 20 69 74 20 77 69 oader, and it wi
000010: 6C 6C 20 64 69 73 70 6C 61 79 3A 0D 0A 0D 0A 20 ll display:....
000020: 20 22 4E 50 53 20 4D 49 43 52 4F 2D 43 4F 42 4F "NPS MICRO-COBO
000030: 4C 20 4C 4F 41 44 45 52 20 56 45 52 53 20 32 2E L LOADER VERS 2.
000040: 31 22 0D 0A 0D 0A 66 6F 6C 6C 6F 77 65 64 20 62 1"....followed b
000050: 79 20 74 68 65 20 64 69 73 70 6C 61 79 3A 0D 0A y the display:..
000060: 0D 0A 20 20 22 4C 4F 41 44 20 46 49 4E 49 53 48 .. "LOAD FINISH
000070: 45 44 22 0D 0A 0D 0A 74 6F 20 69 6E 64 69 63 61 ED"....to indica
000080: 74 65 73 20 73 75 63 63 65 73 73 66 75 6C 20 63 tes successful c
000090: 6F 6D 70 6C 65 74 69 6F 6E 2E 20 54 68 65 20 72 ompletion. The r
0000A0: 75 6E 2D 74 69 6D 65 20 70 61 63 6B 61 67 65 20 un-time package
0000B0: 77 69 6C 6C 20 62 65 20 62 72 6F 75 67 68 74 20 will be brought
0000C0: 69 6E 0D 0A 62 79 20 74 68 65 20 45 58 45 43 20 in..by the EXEC
0000D0: 72 6F 75 74 69 6E 65 2C 20 61 6E 64 20 65 78 65 routine, and exe
0000E0: 63 75 74 69 6F 6E 20 73 68 6F 75 6C 64 20 63 6F cution should co
0000F0: 6E 74 69 6E 75 65 20 77 69 74 68 6F 75 74 20 69 ntinue without i
000100: 6E 74 65 72 72 75 70 74 69 6F 6E 2E 0D 0A 53 75 nterruption...Su
000110: 63 63 65 73 73 66 75 6C 20 74 72 61 6E 73 66 65 ccessful transfe
000120: 72 20 6F 66 20 63 6F 6E 74 72 6F 6C 20 74 6F 20 r of control to
000130: 74 68 65 20 69 6E 74 65 72 70 72 65 74 65 72 20 the interpreter
000140: 77 69 6C 6C 20 62 65 20 69 6E 64 69 63 61 74 65 will be indicate
000150: 64 20 62 79 20 74 68 65 0D 0A 64 69 73 70 6C 61 d by the..displa
000160: 79 3A 0D 0A 0D 0A 20 20 22 4E 50 53 20 4D 49 43 y:.... "NPS MIC
000170: 52 4F 2D 43 4F 42 4F 4C 20 49 4E 54 45 52 50 52 RO-COBOL INTERPR
000180: 45 54 45 52 20 56 45 52 53 20 32 2E 31 2E 22 0D ETER VERS 2.1.".
000190: 0A 0D 0A 43 6F 6D 70 6C 65 74 69 6F 6E 20 6F 66 ...Completion of
0001A0: 20 70 72 6F 67 72 61 6D 20 65 78 65 63 75 74 69 program executi
0001B0: 6F 6E 20 77 69 6C 6C 20 62 65 20 69 6E 64 69 63 on will be indic
0001C0: 61 74 65 64 20 62 79 20 74 68 65 20 64 69 73 70 ated by the disp
0001D0: 6C 61 79 0D 0A 0D 0A 20 20 22 58 20 45 58 45 43 lay.... "X EXEC
0001E0: 55 54 49 4F 4E 20 45 52 52 4F 52 28 53 29 2C 22 UTION ERROR(S),"
0001F0: 0D 0A 0D 0A 77 68 65 72 65 20 22 58 22 20 69 73 ....where "X" is
Size : 512 (Real : 512)
000000: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 3C 63 6F 6D PROGRAM-ID. <com
000010: 6D 65 6E 74 3E 2E 0D 0A 0D 0A 20 20 20 20 20 20 ment>.....
000020: 20 20 20 20 20 20 20 5B 41 55 54 48 4F 52 2E 20 [AUTHOR.
000030: 3C 63 6F 6D 6D 65 6E 74 3E 2E 5D 0D 0A 0D 0A 20 <comment>.]....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 5B 44 41 54 [DAT
000050: 45 2D 57 52 49 54 54 45 4E 2E 20 3C 63 6F 6D 6D E-WRITTEN. <comm
000060: 65 6E 74 3E 2E 5D 0D 0A 0D 0A 20 20 20 20 20 20 ent>.]....
000070: 20 20 20 20 20 20 20 5B 53 45 43 55 52 49 54 59 [SECURITY
000080: 2E 20 3C 63 6F 6D 6D 65 6E 74 3E 2E 5D 0D 0A 0D . <comment>.]...
000090: 0A 0D 0A 4E 4F 54 45 53 3A 0D 0A 0D 0A 54 68 69 ...NOTES:....Thi
0000A0: 73 20 64 69 76 69 73 69 6F 6E 20 70 72 6F 76 69 s division provi
0000B0: 64 65 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E 20 des information
0000C0: 66 6F 72 20 70 72 6F 67 72 61 6D 20 69 64 65 6E for program iden
0000D0: 74 69 66 69 63 61 74 69 6F 6E 20 66 6F 72 20 74 tification for t
0000E0: 68 65 20 72 65 61 64 65 72 2E 0D 0A 54 68 65 20 he reader...The
0000F0: 6F 72 64 65 72 20 6F 66 20 74 68 65 20 6C 69 6E order of the lin
000100: 65 73 20 69 73 20 66 69 78 65 64 2E 0D 0A 0D 0A es is fixed.....
000110: 45 58 41 4D 50 4C 45 53 3A 20 20 20 20 49 44 45 EXAMPLES: IDE
000120: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
000130: 53 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 SION...
000140: 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 PROGRAM-ID.
000150: 53 41 4D 50 4C 45 2E 0D 0A 20 20 20 20 20 20 20 SAMPLE...
000160: 20 20 20 20 20 20 41 55 54 48 4F 52 2E 20 48 41 AUTHOR. HA
000170: 4C 20 52 20 50 4F 57 45 4C 4C 2E 0D 0A 0D 0A 0D L R POWELL......
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 49 44 . ID
000190: 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 ENTIFICATION DIV
0001A0: 49 53 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 ISION...
0001B0: 20 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E PROGRAM-ID.
0001C0: 20 57 41 47 45 53 2D 43 41 4C 43 55 4C 41 54 49 WAGES-CALCULATI
0001D0: 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ON...
0001E0: 20 20 2A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 *..
0001F0: 20 20 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D * This program
Size : 512 (Real : 512)
000000: 20 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 65 the number of e
000010: 72 72 6F 72 73 20 77 68 69 63 68 20 6F 63 63 75 rrors which occu
000020: 72 72 65 64 20 64 75 72 69 6E 67 20 65 78 65 63 rred during exec
000030: 75 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 46 49 4C 45 ution.......FILE
000040: 20 49 4E 54 45 52 41 43 54 49 4F 4E 53 20 57 49 INTERACTIONS WI
000050: 54 48 20 43 50 2F 4D 0D 0A 3D 3D 3D 3D 3D 3D 3D TH CP/M..=======
000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000070: 3D 3D 3D 3D 0D 0A 0D 0A 43 50 2F 4D 20 74 72 65 ====....CP/M tre
000080: 61 74 73 20 61 6C 6C 20 64 61 74 61 20 66 69 6C ats all data fil
000090: 65 73 20 61 73 20 52 61 6E 64 6F 6D 20 41 63 63 es as Random Acc
0000A0: 65 73 73 20 66 69 6C 65 73 2C 20 43 50 2F 4D 20 ess files, CP/M
0000B0: 63 61 6E 6E 6F 74 20 64 69 73 74 69 6E 67 75 69 cannot distingui
0000C0: 73 68 0D 0A 74 68 65 20 73 65 71 75 65 6E 74 69 sh..the sequenti
0000D0: 61 6C 20 66 69 6C 65 73 2C 20 66 72 6F 6D 20 74 al files, from t
0000E0: 68 65 20 72 61 6E 64 6F 6D 20 41 63 63 65 73 73 he random Access
0000F0: 20 66 69 6C 65 73 20 63 72 65 61 74 65 64 20 75 files created u
000100: 6E 64 65 72 20 43 6F 62 6F 6C 2E 0D 0A 54 68 65 nder Cobol...The
000110: 20 64 69 73 74 69 6E 63 74 69 6F 6E 20 62 65 74 distinction bet
000120: 77 65 65 6E 20 74 68 65 20 74 77 6F 20 66 69 6C ween the two fil
000130: 65 20 74 79 70 65 73 20 69 73 20 73 70 65 63 69 e types is speci
000140: 66 69 65 64 20 62 79 20 74 68 65 20 77 61 79 20 fied by the way
000150: 69 6E 20 77 68 69 63 68 0D 0A 74 68 65 20 66 69 in which..the fi
000160: 6C 65 20 69 73 20 6F 70 65 6E 65 64 20 62 79 20 le is opened by
000170: 74 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 the Cobol progra
000180: 6D 20 74 68 61 74 20 75 73 65 73 20 74 68 65 20 m that uses the
000190: 66 69 6C 65 2E 0D 0A 0D 0A 54 68 69 73 20 6D 65 file.....This me
0001A0: 61 6E 73 20 74 68 61 74 20 74 68 65 20 76 61 72 ans that the var
0001B0: 69 6F 75 73 20 74 79 70 65 73 20 6F 66 20 72 65 ious types of re
0001C0: 61 64 73 20 61 6E 64 20 77 72 69 74 65 73 20 61 ads and writes a
0001D0: 72 65 20 61 6C 6C 20 76 61 6C 69 64 20 74 6F 20 re all valid to
0001E0: 61 6E 79 0D 0A 66 69 6C 65 20 74 68 61 74 20 68 any..file that h
0001F0: 61 73 20 66 69 78 65 64 20 6C 65 6E 67 74 68 20 as fixed length
Size : 512 (Real : 512)
000000: 20 63 61 6C 63 75 6C 61 74 65 20 74 68 65 20 65 calculate the e
000010: 6D 70 6C 6F 79 65 65 73 20 6E 65 74 20 77 61 67 mployees net wag
000020: 65 20 66 72 6F 6D 0D 0A 20 20 20 20 20 20 20 20 e from..
000030: 20 20 20 20 20 2A 20 64 61 74 61 20 65 6E 74 65 * data ente
000040: 72 65 64 20 74 68 72 6F 75 67 68 20 74 68 65 20 red through the
000050: 6B 65 79 62 6F 61 72 64 20 61 6E 64 20 73 74 6F keyboard and sto
000060: 72 65 73 20 74 68 65 20 6E 65 74 0D 0A 20 20 20 res the net..
000070: 20 20 20 20 20 20 20 20 20 20 2A 20 77 61 67 65 * wage
000080: 20 69 6E 20 74 68 65 20 57 41 47 45 2E 44 41 54 in the WAGE.DAT
000090: 20 66 69 6C 65 0D 0A 0D 0A 0D 0A 45 4E 56 49 52 file......ENVIR
0000A0: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 0D ONMENT DIVISION.
0000B0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
0000C0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 =====....ELEMENT
0000D0: 3A 20 20 20 20 20 45 4E 56 49 52 4F 4E 4D 45 4E : ENVIRONMEN
0000E0: 54 20 44 49 56 49 53 49 4F 4E 20 46 6F 72 6D 61 T DIVISION Forma
0000F0: 74 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 t....FORMAT:
000100: 20 20 5B 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 [ENVIRONMENT D
000110: 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 IVISION.....
000120: 20 20 20 20 20 20 20 20 20 43 4F 4E 46 49 47 55 CONFIGU
000130: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
000140: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
000150: 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E SOURCE-COMPUTER.
000160: 20 3C 63 6F 6D 6D 65 6E 74 3E 20 5B 44 45 42 55 <comment> [DEBU
000170: 47 47 49 4E 47 20 4D 4F 44 45 5D 2E 0D 0A 0D 0A GGING MODE].....
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 42 4A OBJ
000190: 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 3C 63 ECT-COMPUTER. <c
0001A0: 6F 6D 6D 65 6E 74 3E 2E 0D 0A 0D 0A 20 20 20 20 omment>.....
0001B0: 20 20 20 20 20 20 20 20 20 5B 49 4E 50 55 54 2D [INPUT-
0001C0: 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E 0D OUTPUT SECTION..
0001D0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
0001E0: 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 0D FILE-CONTROL....
0001F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3C 66 . <f
Size : 512 (Real : 512)
000000: 72 65 63 6F 72 64 73 2E 20 54 68 65 20 72 65 73 records. The res
000010: 74 72 69 63 74 69 6F 6E 73 20 6F 66 20 74 68 65 trictions of the
000020: 20 41 53 53 49 47 4E 20 73 74 61 74 65 6D 65 6E ASSIGN statemen
000030: 74 0D 0A 70 72 65 76 65 6E 74 20 61 20 66 69 6C t..prevent a fil
000040: 65 20 66 72 6F 6D 20 62 65 69 6E 67 20 6F 70 65 e from being ope
000050: 6E 20 66 6F 72 20 62 6F 74 68 20 72 61 6E 64 6F n for both rando
000060: 6D 20 61 6E 64 20 73 65 71 75 65 6E 74 69 61 6C m and sequential
000070: 20 61 63 74 69 6F 6E 73 20 64 75 72 69 6E 67 0D actions during.
000080: 0A 6F 6E 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D .one program....
000090: 0A 45 61 63 68 20 6C 6F 67 69 63 61 6C 20 72 65 .Each logical re
0000A0: 63 6F 72 64 20 69 73 20 74 65 72 6D 69 6E 61 74 cord is terminat
0000B0: 65 64 20 62 79 20 61 20 63 61 72 72 69 61 67 65 ed by a carriage
0000C0: 20 72 65 74 75 72 6E 20 61 6E 64 20 61 20 6C 69 return and a li
0000D0: 6E 65 20 66 65 65 64 2E 20 49 6E 0D 0A 74 68 65 ne feed. In..the
0000E0: 20 63 61 73 65 20 6F 66 20 76 61 72 69 61 62 6C case of variabl
0000F0: 65 20 6C 65 6E 67 74 68 20 72 65 63 6F 72 64 73 e length records
000100: 2C 20 74 68 69 73 20 69 73 20 74 68 65 20 6F 6E , this is the on
000110: 6C 79 20 65 6E 64 20 6D 61 72 6B 20 74 68 61 74 ly end mark that
000120: 20 65 78 69 73 74 73 2E 0D 0A 0D 0A 54 68 69 73 exists.....This
000130: 20 63 6F 6E 76 65 6E 74 69 6F 6E 20 77 61 73 20 convention was
000140: 61 64 6F 70 74 65 64 20 74 6F 20 61 6C 6C 6F 77 adopted to allow
000150: 20 74 68 65 20 76 61 72 69 6F 75 73 20 70 72 6F the various pro
000160: 67 72 61 6D 73 20 77 68 69 63 68 20 61 72 65 20 grams which are
000170: 75 73 65 64 20 69 6E 0D 0A 43 50 2F 4D 20 74 6F used in..CP/M to
000180: 20 77 6F 72 6B 20 77 69 74 68 20 74 68 65 20 66 work with the f
000190: 69 6C 65 73 2E 20 20 46 69 6C 65 73 20 63 72 65 iles. Files cre
0001A0: 61 74 65 64 20 62 79 20 74 68 65 20 65 64 69 74 ated by the edit
0001B0: 6F 72 2C 20 66 6F 72 20 65 78 61 6D 70 6C 65 2C or, for example,
0001C0: 20 77 69 6C 6C 0D 0A 67 65 6E 65 72 61 6C 6C 79 will..generally
0001D0: 20 62 65 20 76 61 72 69 61 62 6C 65 20 6C 65 6E be variable len
0001E0: 67 74 68 20 66 69 6C 65 73 2E 20 54 68 69 73 20 gth files. This
0001F0: 63 6F 6E 76 65 6E 74 69 6F 6E 20 72 65 6D 6F 76 convention remov
Size : 512 (Real : 512)
000000: 69 6C 65 2D 63 6F 6E 74 72 6F 6C 2D 65 6E 74 72 ile-control-entr
000010: 79 3E 20 2E 20 2E 20 2E 0D 0A 0D 0A 20 20 20 20 y> . . .....
000020: 20 20 20 20 20 20 20 20 20 5B 49 2D 4F 2D 43 4F [I-O-CO
000030: 4E 54 52 4F 4C 2E 0D 0A 0D 0A 20 20 20 20 20 20 NTROL.....
000040: 20 20 20 20 20 20 20 53 41 4D 45 20 66 69 6C 65 SAME file
000050: 2D 6E 61 6D 65 2D 31 20 66 69 6C 65 2D 6E 61 6D -name-1 file-nam
000060: 65 2D 32 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D 33 e-2 [file-name-3
000070: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
000080: 20 20 20 20 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D [file-name-
000090: 34 5D 20 5B 66 69 6C 65 2D 6E 61 6D 65 2D 35 5D 4] [file-name-5]
0000A0: 2E 20 5D 20 5D 20 5D 0D 0A 0D 0A 4E 4F 54 45 53 . ] ] ]....NOTES
0000B0: 3A 0D 0A 0D 0A 54 68 69 73 20 64 69 76 69 73 69 :....This divisi
0000C0: 6F 6E 20 64 65 74 65 72 6D 69 6E 65 73 20 74 68 on determines th
0000D0: 65 20 65 78 74 65 72 6E 61 6C 20 6E 61 74 75 72 e external natur
0000E0: 65 20 6F 66 20 61 20 66 69 6C 65 2E 20 49 6E 20 e of a file. In
0000F0: 74 68 65 20 63 61 73 65 20 6F 66 20 43 50 2F 4D the case of CP/M
000100: 0D 0A 61 6C 6C 20 6F 66 20 74 68 65 20 66 69 6C ..all of the fil
000110: 65 73 20 75 73 65 64 20 63 61 6E 20 62 65 20 61 es used can be a
000120: 63 63 65 73 73 65 64 20 65 69 74 68 65 72 20 73 ccessed either s
000130: 65 71 75 65 6E 74 69 61 6C 6C 79 20 6F 72 20 72 equentially or r
000140: 61 6E 64 6F 6D 6C 79 20 65 78 63 65 70 74 0D 0A andomly except..
000150: 66 6F 72 20 76 61 72 69 61 62 6C 65 20 6C 65 6E for variable len
000160: 67 74 68 20 66 69 6C 65 73 20 77 68 69 63 68 20 gth files which
000170: 61 72 65 20 73 65 71 75 65 6E 74 69 61 6C 20 6F are sequential o
000180: 6E 6C 79 2E 20 54 68 65 20 64 65 62 75 67 67 69 nly. The debuggi
000190: 6E 67 20 6D 6F 64 65 20 69 73 0D 0A 61 6C 73 6F ng mode is..also
0001A0: 20 73 65 74 20 62 79 20 74 68 69 73 20 73 65 63 set by this sec
0001B0: 74 69 6F 6E 2E 0D 0A 0D 0A 54 68 65 20 44 45 42 tion.....The DEB
0001C0: 55 47 47 49 4E 47 20 4D 4F 44 45 20 63 6C 61 75 UGGING MODE clau
0001D0: 73 65 20 69 73 20 75 73 65 64 20 69 6E 20 63 6F se is used in co
0001E0: 6E 6A 75 6E 63 74 69 6F 6E 20 77 69 74 68 20 74 njunction with t
0001F0: 68 65 20 27 3A 27 20 74 6F 20 69 6E 64 69 63 61 he ':' to indica
Size : 512 (Real : 512)
000000: 65 73 20 74 68 65 20 63 61 70 61 62 69 6C 69 74 es the capabilit
000010: 79 0D 0A 6F 66 20 72 65 61 64 69 6E 67 20 76 61 y..of reading va
000020: 72 69 61 62 6C 65 20 6C 65 6E 67 74 68 20 66 69 riable length fi
000030: 6C 65 73 20 69 6E 20 61 20 72 61 6E 64 6F 6D 20 les in a random
000040: 6D 6F 64 65 2E 0D 0A 0D 0A 41 6C 6C 20 6F 66 20 mode.....All of
000050: 74 68 65 20 70 68 79 73 69 63 61 6C 20 72 65 63 the physical rec
000060: 6F 72 64 73 20 61 72 65 20 31 32 38 20 62 79 74 ords are 128 byt
000070: 65 73 20 69 6E 20 6C 65 6E 67 74 68 20 61 6E 64 es in length and
000080: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 73 75 70 the program sup
000090: 70 6C 69 65 73 0D 0A 62 75 66 66 65 72 20 73 70 plies..buffer sp
0000A0: 61 63 65 20 66 6F 72 20 74 68 65 73 65 20 72 65 ace for these re
0000B0: 63 6F 72 64 73 20 69 6E 20 61 64 64 69 74 69 6F cords in additio
0000C0: 6E 20 74 6F 20 74 68 65 20 6C 6F 67 69 63 61 6C n to the logical
0000D0: 20 72 65 63 6F 72 64 73 2E 20 4C 6F 67 69 63 61 records. Logica
0000E0: 6C 0D 0A 72 65 63 6F 72 64 73 20 6D 61 79 20 62 l..records may b
0000F0: 65 20 6F 66 20 61 6E 79 20 64 65 73 69 72 65 64 e of any desired
000100: 20 6C 65 6E 67 74 68 2E 0D 0A 0D 0A 0D 0A 50 52 length.......PR
000110: 4F 47 52 41 4D 20 53 54 52 55 43 54 55 52 45 0D OGRAM STRUCTURE.
000120: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
000130: 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 ==....Cobol prog
000140: 72 61 6D 73 20 6D 75 73 74 20 66 6F 6C 6C 6F 77 rams must follow
000150: 65 64 20 61 20 70 72 65 2D 64 65 66 69 6E 65 64 ed a pre-defined
000160: 20 70 72 6F 67 72 61 6D 20 73 74 72 75 63 74 75 program structu
000170: 72 65 2C 20 74 68 65 20 67 65 6E 65 72 61 6C 0D re, the general.
000180: 0A 73 74 72 75 63 74 75 72 65 20 61 6E 64 20 63 .structure and c
000190: 6F 6D 6D 61 6E 64 20 73 79 6E 74 61 78 20 69 73 ommand syntax is
0001A0: 20 63 6F 6E 74 61 69 6E 65 64 20 69 6E 20 43 4F contained in CO
0001B0: 42 4F 4C 2E 50 54 32 2C 20 43 4F 42 4F 4C 2E 50 BOL.PT2, COBOL.P
0001C0: 54 33 20 61 6E 64 0D 0A 43 4F 42 4F 4C 2E 50 54 T3 and..COBOL.PT
0001D0: 34 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 73 4 document files
0001E0: 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D 73 20 66 6F .....Programs fo
0001F0: 6C 6C 6F 77 20 74 68 65 20 6F 75 74 6C 69 6E 65 llow the outline
Size : 512 (Real : 512)
000000: 74 65 0D 0A 63 6F 6E 64 69 74 69 6F 6E 61 6C 20 te..conditional
000010: 63 6F 6D 70 69 6C 61 74 69 6F 6E 2E 20 20 49 66 compilation. If
000020: 20 74 68 69 73 20 63 6C 61 75 73 65 20 69 73 20 this clause is
000030: 73 70 65 63 69 66 69 65 64 2C 20 61 6C 6C 20 64 specified, all d
000040: 65 62 75 67 67 69 6E 67 20 6C 69 6E 65 73 0D 0A ebugging lines..
000050: 28 74 68 6F 73 65 20 77 69 74 68 20 20 61 20 27 (those with a '
000060: 3A 27 20 69 6E 20 63 6F 6C 75 6D 6E 20 6F 6E 65 :' in column one
000070: 29 20 61 72 65 20 63 6F 6D 70 69 6C 65 64 2E 20 ) are compiled.
000080: 20 49 66 20 74 68 69 73 20 63 6C 61 75 73 65 20 If this clause
000090: 69 73 20 6E 6F 74 0D 0A 73 70 65 63 69 66 69 65 is not..specifie
0000A0: 64 2C 20 61 6C 6C 20 64 65 62 75 67 67 69 6E 67 d, all debugging
0000B0: 20 6C 69 6E 65 73 20 61 72 65 20 74 72 65 61 74 lines are treat
0000C0: 65 64 20 61 73 20 63 6F 6D 6D 65 6E 74 73 2E 20 ed as comments.
0000D0: 49 6E 20 61 64 64 69 74 69 6F 6E 20 74 68 65 0D In addition the.
0000E0: 0A 44 45 42 55 47 47 49 4E 47 20 4D 4F 44 45 20 .DEBUGGING MODE
0000F0: 63 61 6E 20 62 65 20 73 70 65 63 69 66 69 65 64 can be specified
000100: 20 62 79 20 75 73 69 6E 67 20 74 68 65 20 63 6F by using the co
000110: 6D 70 69 6C 65 72 20 74 6F 67 67 6C 65 20 27 44 mpiler toggle 'D
000120: 2E 27 0D 0A 0D 0A 0D 0A 3C 66 69 6C 65 2D 63 6F .'......<file-co
000130: 6E 74 72 6F 6C 2D 65 6E 74 72 79 3E 0D 0A 3D 3D ntrol-entry>..==
000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000150: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
000160: 20 20 20 3C 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C <file-control
000170: 2D 65 6E 74 72 79 3E 0D 0A 0D 0A 46 4F 52 4D 41 -entry>....FORMA
000180: 54 3A 20 20 20 20 20 20 31 2E 20 53 45 4C 45 43 T: 1. SELEC
000190: 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 20 T file-name..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 AS
0001B0: 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 SIGN implementor
0001C0: 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 -name..
0001D0: 20 20 20 20 20 20 20 20 5B 4F 52 47 41 4E 49 5A [ORGANIZ
0001E0: 41 54 49 4F 4E 20 53 45 51 55 45 4E 54 49 41 4C ATION SEQUENTIAL
0001F0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
Size : 512 (Real : 512)
000000: 20 73 74 72 75 63 74 75 72 65 20 6F 66 3A 0D 0A structure of:..
000010: 0D 0A 41 2E 20 49 44 45 4E 54 49 46 49 43 41 54 ..A. IDENTIFICAT
000020: 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D ION DIVISION....
000030: 0A 20 20 20 28 64 65 74 61 69 6C 73 20 61 62 6F . (details abo
000040: 75 74 20 74 68 65 20 70 72 6F 67 72 61 6D 29 0D ut the program).
000050: 0A 0D 0A 42 2E 20 45 4E 56 49 52 4F 4E 4D 45 4E ...B. ENVIRONMEN
000060: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 20 T DIVISION.....
000070: 20 20 28 64 65 74 61 69 6C 73 20 6F 6E 20 74 68 (details on th
000080: 65 20 65 6E 76 69 72 6F 6E 6D 65 6E 74 20 74 68 e environment th
000090: 65 20 70 72 6F 67 72 61 6D 20 77 61 73 20 64 65 e program was de
0000A0: 73 69 67 6E 65 64 20 74 6F 20 72 75 6E 20 69 6E signed to run in
0000B0: 2C 20 73 75 63 68 20 61 73 0D 0A 20 20 20 20 6D , such as.. m
0000C0: 61 63 68 69 6E 65 20 74 79 70 65 2C 20 66 69 6C achine type, fil
0000D0: 65 20 74 79 70 65 73 20 65 74 63 20 29 0D 0A 0D e types etc )...
0000E0: 0A 43 2E 20 44 41 54 41 20 44 49 56 49 53 49 4F .C. DATA DIVISIO
0000F0: 4E 2E 0D 0A 0D 0A 20 20 20 28 64 65 63 6C 61 72 N..... (declar
000100: 61 74 69 6F 6E 20 6F 66 20 76 61 72 69 61 62 6C ation of variabl
000110: 65 73 2C 20 66 69 6C 65 20 73 74 72 75 63 74 75 es, file structu
000120: 72 65 73 20 65 74 63 29 0D 0A 0D 0A 44 2E 20 50 res etc)....D. P
000130: 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F ROCEDURE DIVISIO
000140: 4E 2E 0D 0A 0D 0A 20 20 20 28 74 68 65 20 70 72 N..... (the pr
000150: 6F 67 72 61 6D 20 63 6F 6D 6D 61 6E 64 73 29 0D ogram commands).
000160: 0A 0D 0A 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 .......IDENTIFIC
000170: 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 0D 0A ATION DIVISION..
000180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000190: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
0001A0: 4E 54 3A 20 20 20 20 20 49 44 45 4E 54 49 46 49 NT: IDENTIFI
0001B0: 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 20 CATION DIVISION
0001C0: 46 6F 72 6D 61 74 0D 0A 0D 0A 46 4F 52 4D 41 54 Format....FORMAT
0001D0: 3A 20 20 20 20 20 20 49 44 45 4E 54 49 46 49 43 : IDENTIFIC
0001E0: 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D ATION DIVISION..
0001F0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
Size : 512 (Real : 512)
000000: 20 20 20 20 5B 41 43 43 45 53 53 20 53 45 51 55 [ACCESS SEQU
000010: 45 4E 54 49 41 4C 5D 2E 0D 0A 0D 0A 20 20 20 20 ENTIAL].....
000020: 20 20 20 20 20 20 20 20 20 32 2E 20 53 45 4C 45 2. SELE
000030: 43 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 CT file-name..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 A
000050: 53 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F SSIGN implemento
000060: 72 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 r-name..
000070: 20 20 20 20 20 20 20 20 20 4F 52 47 41 4E 49 5A ORGANIZ
000080: 41 54 49 4F 4E 20 52 45 4C 41 54 49 56 45 0D 0A ATION RELATIVE..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000A0: 20 5B 41 43 43 45 53 53 20 7B 53 45 51 55 45 4E [ACCESS {SEQUEN
0000B0: 54 49 41 4C 20 5B 52 45 4C 41 54 49 56 45 20 64 TIAL [RELATIVE d
0000C0: 61 74 61 2D 6E 61 6D 65 5D 7D 5D 2E 0D 0A 20 20 ata-name]}]...
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 20 20 20 7B 52 41 4E 44 4F 4D 20 52 {RANDOM R
0000F0: 45 4C 41 54 49 56 45 20 64 61 74 61 2D 6E 61 6D ELATIVE data-nam
000100: 65 20 20 20 20 20 20 7D 0D 0A 0D 0A 20 20 20 20 e }....
000110: 20 20 20 20 20 20 20 20 20 33 2E 20 53 45 4C 45 3. SELE
000120: 43 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 CT file-name..
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 A
000140: 53 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F SSIGN implemento
000150: 72 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 r-name..
000160: 20 20 20 20 20 20 20 20 20 4F 52 47 41 4E 49 5A ORGANIZ
000170: 41 54 49 4F 4E 20 49 4E 44 45 58 45 44 0D 0A 20 ATION INDEXED..
000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000190: 5B 41 43 43 45 53 53 20 7B 53 45 51 55 45 4E 54 [ACCESS {SEQUENT
0001A0: 49 41 4C 7D 5D 2E 0D 0A 20 20 20 20 20 20 20 20 IAL}]...
0001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001C0: 20 20 7B 52 41 4E 44 4F 4D 20 20 20 20 7D 0D 0A {RANDOM }..
0001D0: 0D 0A 4E 4F 54 45 53 3A 0D 0A 0D 0A 54 68 65 20 ..NOTES:....The
0001E0: 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C 2D 65 6E 74 file-control-ent
0001F0: 72 79 20 64 65 66 69 6E 65 73 20 74 68 65 20 74 ry defines the t
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
000020: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
000030: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
000060: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 PART
000090: 20 54 57 4F 0D 0A 0D 0A 20 20 20 20 20 20 20 20 TWO....
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 20 Revised and
0000C0: 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 20 Updated....
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C 6C By Clive Bell
0000F0: 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D 0A aby, June 1991..
000100: 0D 0A 0D 0A 3C 63 6F 6D 6D 65 6E 74 3E 0D 0A 3D ....<comment>..=
000110: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
000120: 45 4E 54 3A 20 20 20 3C 63 6F 6D 6D 65 6E 74 3E ENT: <comment>
000130: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 61 ....FORMAT: a
000140: 6E 79 20 73 74 72 69 6E 67 20 6F 66 20 63 68 61 ny string of cha
000150: 72 61 63 74 65 72 73 0D 0A 0D 0A 44 45 53 43 52 racters....DESCR
000160: 49 50 54 49 4F 4E 3A 0D 0A 0D 0A 41 20 63 6F 6D IPTION:....A com
000170: 6D 65 6E 74 20 69 73 20 61 20 73 74 72 69 6E 67 ment is a string
000180: 20 6F 66 20 63 68 61 72 61 63 74 65 72 73 2E 20 of characters.
000190: 49 74 20 6D 61 79 20 69 6E 63 6C 75 64 65 20 61 It may include a
0001A0: 6E 79 74 68 69 6E 67 20 6F 74 68 65 72 20 74 68 nything other th
0001B0: 61 6E 20 61 0D 0A 70 65 72 69 6F 64 20 66 6F 6C an a..period fol
0001C0: 6C 6F 77 65 64 20 62 79 20 61 20 62 6C 61 6E 6B lowed by a blank
0001D0: 20 6F 72 20 61 20 72 65 73 65 72 76 65 64 20 77 or a reserved w
0001E0: 6F 72 64 2C 20 20 65 69 74 68 65 72 20 6F 66 20 ord, either of
0001F0: 77 68 69 63 68 20 74 65 72 6D 69 6E 61 74 65 0D which terminate.
Size : 512 (Real : 512)
000000: 79 70 65 20 6F 66 20 66 69 6C 65 20 74 68 61 74 ype of file that
000010: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 65 78 70 the program exp
000020: 65 63 74 73 20 74 6F 0D 0A 73 65 65 2E 20 54 68 ects to..see. Th
000030: 65 72 65 20 69 73 20 6E 6F 20 64 69 66 66 65 72 ere is no differ
000040: 65 6E 63 65 20 6F 6E 20 74 68 65 20 64 69 73 6B ence on the disk
000050: 65 74 74 65 2C 20 62 75 74 20 74 68 65 20 74 79 ette, but the ty
000060: 70 65 20 6F 66 20 72 65 61 64 73 20 61 6E 64 20 pe of reads and
000070: 77 72 69 74 65 73 0D 0A 74 68 61 74 20 61 72 65 writes..that are
000080: 20 70 65 72 66 6F 72 6D 65 64 20 77 69 6C 6C 20 performed will
000090: 64 69 66 66 65 72 2E 0D 0A 0D 0A 46 6F 72 20 43 differ.....For C
0000A0: 50 2F 4D 20 74 68 65 20 69 6D 70 6C 65 6D 65 6E P/M the implemen
0000B0: 74 6F 72 20 6E 61 6D 65 20 6E 65 65 64 73 20 74 tor name needs t
0000C0: 6F 20 63 6F 6E 66 6F 72 6D 20 74 6F 20 74 68 65 o conform to the
0000D0: 20 6E 6F 72 6D 61 6C 20 73 70 65 63 69 66 69 63 normal specific
0000E0: 61 74 69 6F 6E 73 2E 0D 0A 49 6E 64 65 78 65 64 ations...Indexed
0000F0: 20 69 73 20 6E 6F 74 20 69 6D 70 6C 65 6D 65 6E is not implemen
000100: 74 65 64 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 ted.....EXAMPLES
000110: 3A 20 20 20 20 53 45 4C 45 43 54 20 43 41 52 44 : SELECT CARD
000120: 53 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 S..
000130: 20 41 53 53 49 47 4E 20 43 41 52 44 2E 46 49 4C ASSIGN CARD.FIL
000140: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ...
000150: 20 53 45 4C 45 43 54 20 52 41 4E 44 4F 4D 2D 46 SELECT RANDOM-F
000160: 49 4C 45 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ILE..
000170: 20 20 20 41 53 53 49 47 4E 20 41 2E 52 41 4E 0D ASSIGN A.RAN.
000180: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F . O
000190: 52 47 41 4E 49 5A 41 54 49 4F 4E 20 52 45 4C 41 RGANIZATION RELA
0001A0: 54 49 56 45 0D 0A 20 20 20 20 20 20 20 20 20 20 TIVE..
0001B0: 20 20 20 20 41 43 43 45 53 53 20 52 41 4E 44 4F ACCESS RANDO
0001C0: 4D 20 52 45 4C 41 54 49 56 45 20 52 41 4E 44 2D M RELATIVE RAND-
0001D0: 46 4C 41 47 2E 0D 0A 0D 0A 0D 0A 44 41 54 41 20 FLAG.......DATA
0001E0: 44 49 56 49 53 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D DIVISION..======
0001F0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
Size : 512 (Real : 512)
000000: 0A 74 68 65 20 73 74 72 69 6E 67 2E 20 20 43 6F .the string. Co
000010: 6D 6D 65 6E 74 73 20 6D 61 79 20 62 65 20 65 6D mments may be em
000020: 70 74 79 20 69 66 20 64 65 73 69 72 65 64 2C 20 pty if desired,
000030: 20 62 75 74 20 74 68 65 20 74 65 72 6D 69 6E 61 but the termina
000040: 74 6F 72 20 69 73 0D 0A 73 74 69 6C 6C 20 72 65 tor is..still re
000050: 71 75 69 72 65 64 20 62 79 20 74 68 65 20 70 72 quired by the pr
000060: 6F 67 72 61 6D 2E 0D 0A 0D 0A 45 58 41 4D 50 4C ogram.....EXAMPL
000070: 45 53 3A 20 20 74 68 69 73 20 69 73 20 61 20 63 ES: this is a c
000080: 6F 6D 6D 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 omment..
000090: 20 20 20 61 6E 6F 74 68 65 72 6F 6E 65 61 6C 6C anotheroneall
0000A0: 72 75 6E 74 6F 67 65 74 68 65 72 0D 0A 20 20 20 runtogether..
0000B0: 20 20 20 20 20 20 20 20 38 30 38 30 62 20 31 36 8080b 16
0000C0: 4B 0D 0A 0D 0A 4E 4F 54 45 20 3A 20 61 20 27 2A K....NOTE : a '*
0000D0: 27 20 69 6E 20 63 6F 6C 75 6D 6E 20 31 20 74 6F ' in column 1 to
0000E0: 20 63 61 75 73 65 20 63 6F 6D 70 69 6C 65 72 20 cause compiler
0000F0: 74 6F 20 69 67 6E 6F 72 65 20 73 65 71 75 65 6E to ignore sequen
000100: 63 65 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A 0D ce numbers......
000110: 0A 3C 64 61 74 61 2D 64 65 73 63 72 69 70 74 69 .<data-descripti
000120: 6F 6E 2D 65 6E 74 72 79 3E 0D 0A 3D 3D 3D 3D 3D on-entry>..=====
000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000140: 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 ===....ELEMENT:
000150: 20 20 3C 64 61 74 61 2D 64 65 73 63 72 69 70 74 <data-descript
000160: 69 6F 6E 2D 65 6E 74 72 79 3E 20 66 6F 72 6D 61 ion-entry> forma
000170: 74 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 t....FORMAT:
000180: 6C 65 76 65 6C 2D 6E 75 6D 62 65 72 20 7B 64 61 level-number {da
000190: 74 61 2D 6E 61 6D 65 7D 0D 0A 20 20 20 20 20 20 ta-name}..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 7B 46 49 4C 4C 45 52 20 20 20 7D 0D 0A 20 {FILLER }..
0001C0: 20 20 20 20 20 20 20 20 20 20 5B 52 45 44 45 46 [REDEF
0001D0: 49 4E 45 53 20 64 61 74 61 2D 6E 61 6D 65 5D 0D INES data-name].
0001E0: 0A 20 20 20 20 20 20 20 20 20 20 20 5B 50 49 43 . [PIC
0001F0: 20 63 68 61 72 61 63 74 65 72 2D 73 74 72 69 6E character-strin
Size : 512 (Real : 512)
000000: 4E 54 3A 20 20 20 20 20 44 41 54 41 20 44 49 56 NT: DATA DIV
000010: 49 53 49 4F 4E 20 46 6F 72 6D 61 74 0D 0A 0D 0A ISION Format....
000020: 46 4F 52 4D 41 54 3A 20 20 20 20 20 20 44 41 54 FORMAT: DAT
000030: 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 20 A DIVISION...
000040: 20 20 20 20 20 20 20 20 20 20 20 5B 46 49 4C 45 [FILE
000050: 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 SECTION...
000060: 20 20 20 20 20 20 20 20 20 5B 46 44 20 66 69 6C [FD fil
000070: 65 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 e-name..
000080: 20 20 20 20 20 20 20 20 5B 42 4C 4F 43 4B 20 69 [BLOCK i
000090: 6E 74 65 67 65 72 2D 31 20 52 45 43 4F 52 44 53 nteger-1 RECORDS
0000A0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
0000B0: 20 20 20 5B 52 45 43 4F 52 44 20 5B 69 6E 74 65 [RECORD [inte
0000C0: 67 65 72 2D 31 20 54 4F 5D 20 69 6E 74 65 67 65 ger-1 TO] intege
0000D0: 72 2D 33 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 r-3]..
0000E0: 20 20 20 20 20 20 4C 41 42 45 4C 20 52 45 43 4F LABEL RECO
0000F0: 52 44 53 20 7B 53 54 41 4E 44 41 52 44 7D 5D 0D RDS {STANDARD}].
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B {
000120: 4F 4D 49 54 54 45 44 7D 0D 0A 20 20 20 20 20 20 OMITTED}..
000130: 20 20 20 20 20 20 20 20 20 20 5B 56 41 4C 55 45 [VALUE
000140: 20 4F 46 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 2D OF implementor-
000150: 6E 61 6D 65 2D 31 20 6C 69 74 65 72 61 6C 2D 31 name-1 literal-1
000160: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000170: 20 20 20 20 20 20 20 20 20 20 20 5B 69 6D 70 6C [impl
000180: 65 6D 65 6E 74 6F 72 2D 6E 61 6D 65 2D 32 20 6C ementor-name-2 l
000190: 69 74 65 72 61 6C 2D 32 5D 20 2E 20 2E 20 2E 20 iteral-2] . . .
0001A0: 5D 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 ].....
0001B0: 20 20 20 20 20 20 5B 3C 72 65 63 6F 72 64 2D 64 [<record-d
0001C0: 65 73 63 72 69 70 74 69 6F 6E 2D 65 6E 74 72 79 escription-entry
0001D0: 3E 5D 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E 20 2E >] . . . ] . . .
0001E0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
0001F0: 20 20 5B 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 [WORKING-STORA
Size : 512 (Real : 512)
000000: 67 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B g].. [
000010: 55 53 41 47 45 20 7B 43 4F 4D 50 20 20 20 7D 5D USAGE {COMP }]
000020: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000030: 20 20 20 20 7B 43 4F 4D 50 2D 33 7D 0D 0A 20 20 {COMP-3}..
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 7B 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C 7D 0D {COMPUTATIONAL}.
000060: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000070: 20 20 20 7B 44 49 53 50 4C 41 59 7D 0D 0A 20 20 {DISPLAY}..
000080: 20 20 20 20 20 20 20 20 20 5B 53 49 47 4E 20 7B [SIGN {
000090: 4C 45 41 44 49 4E 47 7D 20 5B 53 45 50 41 52 41 LEADING} [SEPARA
0000A0: 54 45 5D 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 TE]]..
0000B0: 20 20 20 20 20 20 20 7B 54 52 41 49 4C 49 4E 47 {TRAILING
0000C0: 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B 4F }.. [O
0000D0: 43 43 55 52 53 20 69 6E 74 65 67 65 72 5D 0D 0A CCURS integer]..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 5B 53 59 4E 43 [SYNC
0000F0: 20 5B 4C 45 46 54 5D 5D 0D 0A 20 20 20 20 20 20 [LEFT]]..
000100: 20 20 20 20 20 20 20 20 20 20 20 5B 52 49 47 48 [RIGH
000110: 54 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 5B T].. [
000120: 56 41 4C 55 45 20 6C 69 74 65 72 61 6C 5D 2E 0D VALUE literal]..
000130: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
000140: 0A 54 68 69 73 20 73 74 61 74 65 6D 65 6E 74 20 .This statement
000150: 64 65 73 63 72 69 62 65 73 20 74 68 65 20 73 70 describes the sp
000160: 65 63 69 66 69 63 20 61 74 74 72 69 62 75 74 65 ecific attribute
000170: 73 20 6F 66 20 74 68 65 20 64 61 74 61 2E 20 53 s of the data. S
000180: 69 6E 63 65 20 74 68 65 0D 0A 38 30 38 30 20 69 ince the..8080 i
000190: 73 20 61 20 62 79 74 65 20 6D 61 63 68 69 6E 65 s a byte machine
0001A0: 2C 20 74 68 65 72 65 20 77 61 73 20 6E 6F 20 6D , there was no m
0001B0: 65 61 6E 69 6E 67 20 74 6F 20 74 68 65 20 53 59 eaning to the SY
0001C0: 4E 43 20 63 6C 61 75 73 65 2C 20 61 6E 64 20 74 NC clause, and t
0001D0: 68 75 73 0D 0A 69 74 20 68 61 73 20 6E 6F 74 20 hus..it has not
0001E0: 62 65 65 6E 20 69 6D 70 6C 65 6D 65 6E 74 65 64 been implemented
0001F0: 2C 20 68 6F 77 65 76 65 72 20 65 78 69 73 74 69 , however existi
Size : 512 (Real : 512)
000000: 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 20 GE SECTION...
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 5B 3C 72 [<r
000020: 65 63 6F 72 64 2D 64 65 73 63 72 69 70 74 69 6F ecord-descriptio
000030: 6E 2D 65 6E 74 72 79 3E 5D 20 2E 20 2E 20 2E 20 n-entry>] . . .
000040: 5D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ]....
000050: 20 20 20 5B 4C 49 4E 4B 41 47 45 20 53 45 43 54 [LINKAGE SECT
000060: 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 ION...
000070: 20 20 20 20 20 20 5B 3C 72 65 63 6F 72 64 2D 64 [<record-d
000080: 65 73 63 72 69 70 74 69 6F 6E 2D 65 6E 74 72 79 escription-entry
000090: 3E 5D 20 2E 20 2E 20 2E 20 5D 0D 0A 0D 0A 20 20 >] . . . ]....
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3C 63 <c
0000B0: 6F 6D 6D 65 6E 74 3E 0D 0A 0D 0A 44 45 53 43 52 omment>....DESCR
0000C0: 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 73 IPTION:..This is
0000D0: 20 74 68 65 20 73 65 63 74 69 6F 6E 20 74 68 61 the section tha
0000E0: 74 20 64 65 73 63 72 69 62 65 73 20 68 6F 77 20 t describes how
0000F0: 20 74 68 65 20 20 64 61 74 61 20 69 73 20 73 74 the data is st
000100: 72 75 63 74 75 72 65 64 2E 20 54 68 65 72 65 20 ructured. There
000110: 61 72 65 20 6E 6F 0D 0A 6D 61 6A 6F 72 20 64 69 are no..major di
000120: 66 66 65 72 65 6E 63 65 73 20 66 72 6F 6D 20 73 fferences from s
000130: 74 61 6E 64 61 72 64 20 43 4F 42 4F 4C 20 65 78 tandard COBOL ex
000140: 63 65 70 74 20 66 6F 72 20 74 68 65 20 66 6F 6C cept for the fol
000150: 6C 6F 77 69 6E 67 3A 0D 0A 0D 0A 31 2E 20 4C 61 lowing:....1. La
000160: 62 65 6C 20 72 65 63 6F 72 64 73 20 6D 61 6B 65 bel records make
000170: 20 6E 6F 20 73 65 6E 73 65 20 6F 6E 20 74 68 65 no sense on the
000180: 20 64 69 73 6B 65 74 74 65 20 73 6F 20 6E 6F 20 diskette so no
000190: 65 6E 74 72 79 20 69 73 20 72 65 71 75 69 72 65 entry is require
0001A0: 64 2E 0D 0A 0D 0A 32 2E 20 54 68 65 20 56 41 4C d.....2. The VAL
0001B0: 55 45 20 4F 46 20 63 6C 61 75 73 65 20 68 61 73 UE OF clause has
0001C0: 20 6E 6F 20 20 6D 65 61 6E 69 6E 67 20 66 6F 72 no meaning for
0001D0: 20 43 50 2F 4D 2E 20 49 66 20 61 20 72 65 63 6F CP/M. If a reco
0001E0: 72 64 20 69 73 20 67 69 76 65 6E 20 74 77 6F 0D rd is given two.
0001F0: 0A 20 20 20 6C 65 6E 67 74 68 73 20 61 73 20 69 . lengths as i
Size : 512 (Real : 512)
000000: 6E 67 20 70 72 6F 67 72 61 6D 73 20 74 68 61 74 ng programs that
000010: 20 61 72 65 0D 0A 74 72 61 6E 73 66 65 72 72 65 are..transferre
000020: 64 20 74 6F 20 4D 49 43 52 4F 2D 43 4F 42 4F 4C d to MICRO-COBOL
000030: 20 61 6E 64 20 75 73 65 20 74 68 69 73 20 66 65 and use this fe
000040: 61 74 75 72 65 20 77 69 6C 6C 20 63 6F 6D 70 69 ature will compi
000050: 6C 65 20 61 6E 64 20 65 78 65 63 75 74 65 0D 0A le and execute..
000060: 73 75 63 63 65 73 73 66 75 6C 6C 79 2E 20 41 6C successfully. Al
000070: 6C 20 6E 75 6D 65 72 69 63 20 64 61 74 61 20 61 l numeric data a
000080: 72 65 20 6D 61 69 6E 74 61 69 6E 65 64 20 69 6E re maintained in
000090: 20 44 49 53 50 4C 41 59 20 66 6F 72 6D 61 74 20 DISPLAY format
0000A0: 6F 72 20 70 61 63 6B 65 64 0D 0A 42 43 44 20 69 or packed..BCD i
0000B0: 66 20 74 68 65 20 43 4F 4D 50 2D 33 20 6F 70 74 f the COMP-3 opt
0000C0: 69 6F 6E 20 69 73 20 75 73 65 64 2E 0D 0A 0D 0A ion is used.....
0000D0: 45 58 41 4D 50 4C 45 53 3A 20 20 30 31 20 43 41 EXAMPLES: 01 CA
0000E0: 52 44 2D 52 45 43 4F 52 44 2E 0D 0A 20 20 20 20 RD-RECORD...
0000F0: 20 20 20 20 20 20 20 20 20 20 30 32 20 50 41 52 02 PAR
000100: 54 20 50 49 43 20 58 28 35 29 2E 0D 0A 20 20 20 T PIC X(5)...
000110: 20 20 20 20 20 20 20 20 20 20 20 30 32 20 4E 45 02 NE
000120: 58 54 2D 50 41 52 54 20 50 49 43 20 39 39 56 39 XT-PART PIC 99V9
000130: 39 20 55 53 41 47 45 20 44 49 53 50 4C 41 59 2E 9 USAGE DISPLAY.
000140: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000150: 30 32 20 46 49 4C 4C 45 52 2E 0D 0A 20 20 20 20 02 FILLER...
000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 33 20 03
000170: 4E 55 4D 42 20 50 49 43 20 53 39 28 33 29 56 39 NUMB PIC S9(3)V9
000180: 20 53 49 47 4E 20 4C 45 41 44 49 4E 47 20 53 45 SIGN LEADING SE
000190: 50 41 52 41 54 45 2E 0D 0A 20 20 20 20 20 20 20 PARATE...
0001A0: 20 20 20 20 20 20 20 20 20 20 30 33 20 4C 4F 4E 03 LON
0001B0: 47 2D 4E 55 4D 42 20 39 28 31 35 29 2E 0D 0A 20 G-NUMB 9(15)...
0001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001D0: 30 33 20 53 54 52 49 4E 47 20 52 45 44 45 46 49 03 STRING REDEFI
0001E0: 4E 45 53 20 4C 4F 4E 47 2D 4E 55 4D 42 20 50 49 NES LONG-NUMB PI
0001F0: 43 20 58 28 31 35 29 2E 0D 0A 20 20 20 20 20 20 C X(15)...
Size : 512 (Real : 512)
000000: 6E 20 52 45 43 4F 52 44 20 31 32 20 74 6F 20 31 n RECORD 12 to 1
000010: 32 38 2C 20 74 68 65 20 66 69 6C 65 20 69 73 20 28, the file is
000020: 74 61 6B 65 6E 20 74 6F 20 62 65 20 76 61 72 69 taken to be vari
000030: 61 62 6C 65 20 6C 65 6E 67 74 68 0D 0A 20 20 20 able length..
000040: 61 6E 64 20 63 61 6E 20 6F 6E 6C 79 20 62 65 20 and can only be
000050: 61 63 63 65 73 73 65 64 20 69 6E 20 74 68 65 20 accessed in the
000060: 73 65 71 75 65 6E 74 69 61 6C 20 6D 6F 64 65 2E sequential mode.
000070: 20 53 65 65 20 74 68 65 20 73 65 63 74 69 6F 6E See the section
000080: 20 6F 6E 20 66 69 6C 65 73 0D 0A 20 20 20 66 6F on files.. fo
000090: 72 20 6D 6F 72 65 20 69 6E 66 6F 72 6D 61 74 69 r more informati
0000A0: 6F 6E 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 on.......** END
0000B0: 4F 46 20 43 4F 42 4F 4C 2D 31 2E 44 4F 43 20 2A OF COBOL-1.DOC *
0000C0: 2A 0D 0A 1A 20 20 20 20 20 20 20 20 20 20 20 20 *...
0000D0: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
0000E0: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 44 69 76 69 73 69 6F 6E 20 61 6E 64 20 62 75 Division and bu
000110: 69 6C 64 73 0D 0A 74 68 65 20 73 79 6D 62 6F 6C ilds..the symbol
000120: 20 74 61 62 6C 65 2E 20 41 74 20 74 68 65 20 65 table. At the e
000130: 6E 64 20 6F 66 20 74 68 65 20 44 61 74 61 20 44 nd of the Data D
000140: 69 76 69 73 69 6F 6E 2C 20 43 4F 42 4F 4C 2E 43 ivision, COBOL.C
000150: 4F 4D 20 69 73 20 6F 76 65 72 6C 61 79 65 64 20 OM is overlayed
000160: 62 79 0D 0A 43 4F 42 4F 4C 2E 4F 56 4C 20 77 68 by..COBOL.OVL wh
000170: 69 63 68 20 75 73 65 73 20 74 68 65 20 73 79 6D ich uses the sym
000180: 62 6F 6C 20 74 61 62 6C 65 20 74 6F 20 70 72 6F bol table to pro
000190: 64 75 63 65 20 74 68 65 20 63 6F 64 65 2E 0D 0A duce the code...
0001A0: 54 68 65 20 6F 75 74 70 75 74 20 63 6F 64 65 20 The output code
0001B0: 69 73 20 77 72 69 74 74 65 6E 20 74 6F 20 64 69 is written to di
0001C0: 73 63 20 61 73 20 69 74 20 69 73 20 70 72 6F 64 sc as it is prod
0001D0: 75 63 65 64 20 74 6F 20 6D 69 6E 69 6D 69 7A 65 uced to minimize
0001E0: 20 74 68 65 20 75 73 65 20 6F 66 0D 0A 69 6E 74 the use of..int
0001F0: 65 72 6E 61 6C 20 73 74 6F 72 61 67 65 2E 0D 0A ernal storage...
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 30 32 20 41 52 52 41 59 02 ARRAY
000010: 20 50 49 43 20 39 39 20 4F 43 43 55 52 53 20 31 PIC 99 OCCURS 1
000020: 30 30 2E 0D 0A 0D 0A 0D 0A 50 52 4F 43 45 44 55 00.......PROCEDU
000030: 52 45 20 44 49 56 49 53 49 4F 4E 0D 0A 3D 3D 3D RE DIVISION..===
000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
000050: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 50 52 ...ELEMENT: PR
000060: 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E OCEDURE DIVISION
000070: 20 46 6F 72 6D 61 74 0D 0A 0D 0A 46 4F 52 4D 41 Format....FORMA
000080: 54 3A 20 20 20 20 31 2E 20 50 52 4F 43 45 44 55 T: 1. PROCEDU
000090: 52 45 20 44 49 56 49 53 49 4F 4E 20 5B 55 53 49 RE DIVISION [USI
0000A0: 4E 47 20 6E 61 6D 65 31 20 5B 6E 61 6D 65 32 5D NG name1 [name2]
0000B0: 20 2E 20 2E 20 2E 20 5B 6E 61 6D 65 35 5D 5D 2E . . . [name5]].
0000C0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0000D0: 73 65 63 74 69 6F 6E 2D 6E 61 6D 65 20 53 45 43 section-name SEC
0000E0: 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 20 TION...
0000F0: 20 20 20 20 20 5B 70 61 72 61 67 72 61 70 68 2D [paragraph-
000100: 6E 61 6D 65 2E 20 3C 73 65 6E 74 65 6E 63 65 3E name. <sentence>
000110: 20 5B 3C 73 65 6E 74 65 6E 63 65 3E 20 2E 20 2E [<sentence> . .
000120: 20 2E 20 5D 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E . ] . . . ] . .
000130: 20 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 .....
000140: 20 32 2E 20 50 52 4F 43 45 44 55 52 45 20 44 49 2. PROCEDURE DI
000150: 56 49 53 49 4F 4E 20 5B 55 53 49 4E 47 20 6E 61 VISION [USING na
000160: 6D 65 31 20 5B 6E 61 6D 65 32 5D 20 2E 20 2E 20 me1 [name2] . .
000170: 2E 20 5B 6E 61 6D 65 35 5D 5D 2E 0D 0A 20 20 20 . [name5]]...
000180: 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 67 parag
000190: 72 61 70 68 2D 6E 61 6D 65 2E 20 3C 73 65 6E 74 raph-name. <sent
0001A0: 65 6E 63 65 3E 20 5B 3C 73 65 6E 74 65 6E 63 65 ence> [<sentence
0001B0: 3E 20 2E 20 2E 20 2E 20 5D 20 2E 20 2E 20 2E 0D > . . . ] . . ..
0001C0: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
0001D0: 0A 41 73 20 69 73 20 69 6E 64 69 63 61 74 65 64 .As is indicated
0001E0: 2C 20 69 66 20 74 68 65 20 70 72 6F 67 72 61 6D , if the program
0001F0: 20 69 73 20 74 6F 20 63 6F 6E 74 61 69 6E 20 73 is to contain s
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 5B 52 4F 55 4E 44 45 [ROUNDE
000010: 44 5D 20 5B 53 49 5A 45 20 45 52 52 4F 52 20 3C D] [SIZE ERROR <
000020: 69 6D 70 65 72 61 74 69 76 65 2D 73 74 61 74 65 imperative-state
000030: 6D 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 43 52 49 ment>]....DESCRI
000040: 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 6E 73 PTION:..This ins
000050: 74 72 75 63 74 69 6F 6E 20 61 64 64 73 20 65 69 truction adds ei
000060: 74 68 65 72 20 6F 6E 65 20 6E 75 6D 62 65 72 20 ther one number
000070: 74 6F 20 61 20 73 65 63 6F 6E 64 20 77 69 74 68 to a second with
000080: 20 74 68 65 20 72 65 73 75 6C 74 20 62 65 69 6E the result bein
000090: 67 0D 0A 70 6C 61 63 65 64 20 69 6E 20 74 68 65 g..placed in the
0000A0: 20 6C 61 73 74 20 6C 6F 63 61 74 69 6F 6E 2E 20 last location.
0000B0: 20 4D 75 6C 74 69 70 6C 65 20 61 64 64 73 20 68 Multiple adds h
0000C0: 61 76 65 20 6E 6F 74 20 62 65 65 6E 20 69 6D 70 ave not been imp
0000D0: 6C 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 45 58 41 lemented.....EXA
0000E0: 4D 50 4C 45 53 3A 20 20 41 44 44 20 31 30 20 54 MPLES: ADD 10 T
0000F0: 4F 20 4E 55 4D 31 0D 0A 20 20 20 20 20 20 20 20 O NUM1..
000100: 20 20 20 41 44 44 20 58 20 54 4F 20 5A 20 52 4F ADD X TO Z RO
000110: 55 4E 44 45 44 2E 0D 0A 20 20 20 20 20 20 20 20 UNDED...
000120: 20 20 20 41 44 44 20 31 30 30 20 54 4F 20 4E 55 ADD 100 TO NU
000130: 4D 42 45 52 20 53 49 5A 45 20 45 52 52 4F 52 20 MBER SIZE ERROR
000140: 47 4F 20 45 52 52 4F 52 2D 4C 4F 43 0D 0A 0D 0A GO ERROR-LOC....
000150: 0D 0A 43 41 4C 4C 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A ..CALL..====....
000160: 45 4C 45 4D 45 4E 54 3A 20 20 20 43 41 4C 4C 0D ELEMENT: CALL.
000170: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 43 41 ...FORMAT: CA
000180: 4C 4C 20 6C 69 74 65 72 61 6C 20 5B 55 53 49 4E LL literal [USIN
000190: 47 20 6E 61 6D 65 31 20 5B 6E 61 6D 65 32 5D 20 G name1 [name2]
0001A0: 2E 20 2E 20 2E 20 5B 6E 61 6D 65 4E 5D 5D 0D 0A . . . [nameN]]..
0001B0: 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A ..DESCRIPTION:..
0001C0: 43 6F 6E 74 72 6F 6C 20 69 73 20 74 72 61 6E 73 Control is trans
0001D0: 66 65 72 72 65 64 20 74 6F 20 74 68 65 20 63 61 ferred to the ca
0001E0: 6C 6C 65 64 20 70 72 6F 63 65 64 75 72 65 20 77 lled procedure w
0001F0: 69 74 68 20 61 6E 20 61 64 64 72 65 73 73 20 6F ith an address o
Size : 512 (Real : 512)
000000: 65 63 74 69 6F 6E 73 2C 20 74 68 65 6E 20 74 68 ections, then th
000010: 65 20 66 69 72 73 74 0D 0A 70 61 72 61 67 72 61 e first..paragra
000020: 70 68 20 6D 75 73 74 20 62 65 20 69 6E 20 61 20 ph must be in a
000030: 73 65 63 74 69 6F 6E 2E 0D 0A 0D 0A 0D 0A 3C 73 section.......<s
000040: 65 6E 74 65 6E 63 65 3E 0D 0A 3D 3D 3D 3D 3D 3D entence>..======
000050: 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A ====....ELEMENT:
000060: 20 20 20 3C 73 65 6E 74 65 6E 63 65 3E 0D 0A 0D <sentence>...
000070: 0A 46 4F 52 4D 41 54 3A 20 20 20 20 3C 69 6D 70 .FORMAT: <imp
000080: 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D 65 6E erative-statemen
000090: 74 3E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 3C t>.. <
0000A0: 63 6F 6E 64 69 74 69 6F 6E 61 6C 2D 73 74 61 74 conditional-stat
0000B0: 65 6D 65 6E 74 3E 0D 0A 0D 0A 0D 0A 3C 69 6D 70 ement>......<imp
0000C0: 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D 65 6E erative-statemen
0000D0: 74 3E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D t>..============
0000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C ==========....EL
0000F0: 45 4D 45 4E 54 3A 20 20 20 3C 69 6D 70 65 72 61 EMENT: <impera
000100: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
000110: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 54 68 ...FORMAT: Th
000120: 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 76 65 72 62 e following verb
000130: 73 20 61 72 65 20 2A 61 6C 77 61 79 73 2A 20 69 s are *always* i
000140: 6D 70 65 72 61 74 69 76 65 3A 0D 0A 0D 0A 20 20 mperative:....
000150: 20 20 20 20 20 20 20 20 20 41 43 43 45 50 54 20 ACCEPT
000160: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . . .
000170: 31 35 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 15.. C
000180: 41 4C 4C 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 ALL . . . . . .
000190: 2E 20 2E 20 2E 20 31 37 0D 0A 20 20 20 20 20 20 . . . 17..
0001A0: 20 20 20 20 20 43 4C 4F 53 45 20 20 2E 20 2E 20 CLOSE . .
0001B0: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 37 0D 0A . . . . . . 17..
0001C0: 20 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4C DISPL
0001D0: 41 59 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 AY . . . . . .
0001E0: 2E 20 31 38 0D 0A 20 20 20 20 20 20 20 20 20 20 . 18..
0001F0: 20 45 58 49 54 20 2E 20 2E 20 2E 20 2E 20 2E 20 EXIT . . . . .
Size : 512 (Real : 512)
000000: 66 20 65 61 63 68 20 6F 66 0D 0A 74 68 65 20 70 f each of..the p
000010: 61 72 61 6D 65 74 65 72 73 20 74 6F 20 62 65 20 arameters to be
000020: 70 61 73 73 65 64 2E 20 54 68 65 20 70 61 72 61 passed. The para
000030: 6D 65 74 65 72 73 20 6D 61 70 20 74 6F 20 74 68 meters map to th
000040: 6F 73 65 20 69 6E 20 74 68 65 20 6C 69 6E 6B 61 ose in the linka
000050: 67 65 0D 0A 73 65 63 74 69 6F 6E 20 6F 66 20 74 ge..section of t
000060: 68 65 20 63 61 6C 6C 65 64 20 20 70 72 6F 67 72 he called progr
000070: 61 6D 2E 20 54 68 65 20 74 79 70 65 20 61 6E 64 am. The type and
000080: 20 73 69 7A 65 20 6F 66 20 74 68 65 20 70 61 72 size of the par
000090: 61 6D 65 74 65 72 73 20 6D 75 73 74 0D 0A 6D 61 ameters must..ma
0000A0: 74 63 68 20 65 78 61 63 74 6C 79 2E 0D 0A 0D 0A tch exactly.....
0000B0: 45 58 41 4D 50 4C 45 53 3A 20 20 43 41 4C 4C 20 EXAMPLES: CALL
0000C0: 27 4E 43 31 35 32 27 20 55 53 49 4E 47 20 44 4E 'NC152' USING DN
0000D0: 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 41 1.. CA
0000E0: 4C 4C 20 27 50 52 49 4E 54 27 0D 0A 20 20 20 20 LL 'PRINT'..
0000F0: 20 20 20 20 20 20 20 43 41 4C 4C 20 27 41 44 44 CALL 'ADD
000100: 4C 49 53 54 27 20 55 53 49 4E 47 20 56 41 52 31 LIST' USING VAR1
000110: 20 56 41 52 32 20 56 41 52 33 0D 0A 0D 0A 0D 0A VAR2 VAR3......
000120: 43 4C 4F 53 45 0D 0A 3D 3D 3D 3D 3D 0D 0A 0D 0A CLOSE..=====....
000130: 45 4C 45 4D 45 4E 54 3A 20 20 20 43 4C 4F 53 45 ELEMENT: CLOSE
000140: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 43 ....FORMAT: C
000150: 4C 4F 53 45 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A LOSE file-name..
000160: 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A ..DESCRIPTION:..
000170: 46 69 6C 65 73 20 6D 75 73 74 20 62 65 20 63 6C Files must be cl
000180: 6F 73 65 64 20 69 66 20 74 68 65 79 20 68 61 76 osed if they hav
000190: 65 20 62 65 65 6E 20 77 72 69 74 74 65 6E 2E 20 e been written.
0001A0: 48 6F 77 65 76 65 72 2C 20 74 68 65 20 6E 6F 72 However, the nor
0001B0: 6D 61 6C 0D 0A 72 65 71 75 69 72 65 6D 65 6E 74 mal..requirement
0001C0: 20 74 6F 20 63 6C 6F 73 65 20 61 6E 20 69 6E 70 to close an inp
0001D0: 75 74 20 66 69 6C 65 20 70 72 69 6F 72 20 74 6F ut file prior to
0001E0: 20 74 68 65 20 65 6E 64 20 6F 66 20 70 72 6F 63 the end of proc
0001F0: 65 73 73 69 6E 67 20 64 6F 65 73 20 6E 6F 74 0D essing does not.
Size : 512 (Real : 512)
000000: 2E 20 2E 20 2E 20 2E 20 31 39 0D 0A 20 20 20 20 . . . . 19..
000010: 20 20 20 20 20 20 20 47 4F 20 2E 20 2E 20 2E 20 GO . . .
000020: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 30 . . . . . . . 20
000030: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D 4F 56 .. MOV
000040: 45 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 E . . . . . . .
000050: 2E 20 2E 20 32 32 0D 0A 20 20 20 20 20 20 20 20 . . 22..
000060: 20 20 20 4F 50 45 4E 20 2E 20 2E 20 2E 20 2E 20 OPEN . . . .
000070: 2E 20 2E 20 2E 20 2E 20 2E 20 32 34 0D 0A 20 20 . . . . . 24..
000080: 20 20 20 20 20 20 20 20 20 50 45 52 46 4F 52 4D PERFORM
000090: 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . .
0000A0: 32 35 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 25.. S
0000B0: 54 4F 50 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 TOP . . . . . .
0000C0: 2E 20 2E 20 2E 20 32 37 0D 0A 0D 0A 20 20 20 20 . . . 27....
0000D0: 20 20 20 20 20 20 20 54 68 65 20 66 6F 6C 6C 6F The follo
0000E0: 77 69 6E 67 20 2A 6D 61 79 20 62 65 2A 20 69 6D wing *may be* im
0000F0: 70 65 72 61 74 69 76 65 73 3A 0D 0A 0D 0A 20 20 peratives:....
000100: 20 20 20 20 20 20 20 20 20 41 44 44 20 20 2E 20 ADD .
000110: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . . .
000120: 31 36 20 20 7D 20 20 2A 77 69 74 68 6F 75 74 2A 16 } *without*
000130: 20 74 68 65 20 53 49 5A 45 20 45 52 52 4F 52 0D the SIZE ERROR.
000140: 0A 20 20 20 20 20 20 20 20 20 20 20 44 49 56 49 . DIVI
000150: 44 45 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E DE . . . . . . .
000160: 20 2E 20 31 39 20 20 7D 20 20 73 74 61 74 65 6D . 19 } statem
000170: 65 6E 74 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ent..
000180: 4D 55 4C 54 49 50 4C 59 20 2E 20 2E 20 2E 20 2E MULTIPLY . . . .
000190: 20 2E 20 2E 20 2E 20 32 33 20 20 7D 0D 0A 20 20 . . . 23 }..
0001A0: 20 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 SUBTRAC
0001B0: 54 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 T . . . . . . .
0001C0: 32 38 20 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 28 }....
0001D0: 20 20 20 20 44 45 4C 45 54 45 20 2E 20 2E 20 2E DELETE . . .
0001E0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 38 20 20 7D . . . . . 18 }
0001F0: 20 20 2A 77 69 74 68 6F 75 74 2A 20 74 68 65 20 *without* the
Size : 512 (Real : 512)
000000: 0A 65 78 69 73 74 2E 0D 0A 0D 0A 45 58 41 4D 50 .exist.....EXAMP
000010: 4C 45 53 3A 20 20 43 4C 4F 53 45 20 46 49 4C 45 LES: CLOSE FILE
000020: 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 43 4C 1.. CL
000030: 4F 53 45 20 52 41 4E 44 46 49 4C 45 0D 0A 0D 0A OSE RANDFILE....
000040: 0D 0A 44 45 4C 45 54 45 0D 0A 3D 3D 3D 3D 3D 3D ..DELETE..======
000050: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 44 ....ELEMENT: D
000060: 45 4C 45 54 45 0D 0A 0D 0A 46 4F 52 4D 41 54 3A ELETE....FORMAT:
000070: 20 20 20 20 44 45 4C 45 54 45 20 66 69 6C 65 2D DELETE file-
000080: 6E 61 6D 65 20 5B 49 4E 56 41 4C 49 44 20 3C 69 name [INVALID <i
000090: 6D 70 65 72 61 74 69 76 65 2D 73 74 61 74 65 6D mperative-statem
0000A0: 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 ent>]....DESCRIP
0000B0: 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 73 74 61 74 TION:..This stat
0000C0: 65 6D 65 6E 74 20 72 65 71 75 69 72 65 73 20 74 ement requires t
0000D0: 68 65 20 66 69 6C 65 2D 6E 61 6D 65 20 6F 66 20 he file-name of
0000E0: 74 68 65 20 69 74 65 6D 20 74 6F 20 62 65 20 64 the item to be d
0000F0: 65 6C 65 74 65 64 2E 20 54 68 65 0D 0A 72 65 63 eleted. The..rec
000100: 6F 72 64 20 69 73 20 6C 6F 67 69 63 61 6C 6C 79 ord is logically
000110: 20 72 65 6D 6F 76 65 64 20 62 79 20 66 69 6C 6C removed by fill
000120: 69 6E 67 20 69 74 20 77 69 74 68 20 61 20 68 69 ing it with a hi
000130: 67 68 20 76 61 6C 75 65 20 63 68 61 72 61 63 74 gh value charact
000140: 65 72 2C 0D 0A 77 68 69 63 68 20 69 73 20 6E 6F er,..which is no
000150: 74 20 64 69 73 70 6C 61 79 61 62 6C 65 20 74 6F t displayable to
000160: 20 74 68 65 20 63 6F 6E 73 6F 6C 65 20 6F 72 20 the console or
000170: 6C 69 6E 65 20 70 72 69 6E 74 65 72 2E 20 54 68 line printer. Th
000180: 65 20 6C 6F 67 69 63 61 6C 0D 0A 72 65 63 6F 72 e logical..recor
000190: 64 20 73 70 61 63 65 20 63 61 6E 20 62 65 20 75 d space can be u
0001A0: 73 65 64 20 61 67 61 69 6E 20 62 79 20 77 72 69 sed again by wri
0001B0: 74 69 6E 67 20 61 20 76 61 6C 69 64 20 72 65 63 ting a valid rec
0001C0: 6F 72 64 20 69 6E 20 69 74 73 20 70 6C 61 63 65 ord in its place
0001D0: 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 .....EXAMPLES:
0001E0: 44 45 4C 45 54 45 20 46 49 4C 45 2D 4E 41 4D 45 DELETE FILE-NAME
0001F0: 0D 0A 0D 0A 0D 0A 44 49 53 50 4C 41 59 0D 0A 3D ......DISPLAY..=
Size : 512 (Real : 512)
000000: 49 4E 56 41 4C 49 44 20 6F 70 74 69 6F 6E 0D 0A INVALID option..
000010: 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 WRITE
000020: 20 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 . . . . . . .
000030: 2E 20 32 39 20 20 7D 0D 0A 20 20 20 20 20 20 20 . 29 }..
000040: 20 20 20 20 52 45 57 52 49 54 45 20 20 2E 20 2E REWRITE . .
000050: 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 36 20 20 7D . . . . . 26 }
000060: 0D 0A 0D 0A 0D 0A 3C 63 6F 6E 64 69 74 69 6F 6E ......<condition
000070: 61 6C 2D 73 74 61 74 65 6D 65 6E 74 73 3E 0D 0A al-statements>..
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000090: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
0000A0: 45 4E 54 3A 20 20 20 3C 63 6F 6E 64 69 74 69 6F ENT: <conditio
0000B0: 6E 61 6C 2D 73 74 61 74 65 6D 65 6E 74 73 3E 0D nal-statements>.
0000C0: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 49 46 ...FORMAT: IF
0000D0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E . . . . . . . .
0000E0: 20 2E 20 2E 20 32 31 0D 0A 20 20 20 20 20 20 20 . . 21..
0000F0: 20 20 20 20 52 45 41 44 20 2E 20 2E 20 2E 20 2E READ . . . .
000100: 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 36 0D 0A 0D . . . . . 26...
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 41 44 44 20 . ADD
000120: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E . . . . . . . .
000130: 20 2E 20 31 36 20 20 7D 20 20 2A 77 69 74 68 2A . 16 } *with*
000140: 20 74 68 65 20 53 49 5A 45 20 45 52 52 4F 52 20 the SIZE ERROR
000150: 73 74 61 74 65 6D 65 6E 74 0D 0A 20 20 20 20 20 statement..
000160: 20 20 20 20 20 20 44 49 56 49 44 45 20 2E 20 2E DIVIDE . .
000170: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 31 39 20 . . . . . . 19
000180: 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D }.. M
000190: 55 4C 54 49 50 4C 59 20 2E 20 2E 20 2E 20 2E 20 ULTIPLY . . . .
0001A0: 2E 20 2E 20 2E 20 32 33 20 20 7D 0D 0A 20 20 20 . . . 23 }..
0001B0: 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 54 SUBTRACT
0001C0: 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 . . . . . . . 2
0001D0: 38 20 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 20 20 8 }....
0001E0: 20 20 20 44 45 4C 45 54 45 20 2E 20 2E 20 2E 20 DELETE . . .
0001F0: 2E 20 2E 20 2E 20 2E 20 2E 20 31 38 20 20 7D 20 . . . . . 18 }
Size : 512 (Real : 512)
000000: 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ======....ELEMEN
000010: 54 3A 20 20 20 44 49 53 50 4C 41 59 0D 0A 0D 0A T: DISPLAY....
000020: 46 4F 52 4D 41 54 3A 20 20 20 20 44 49 53 50 4C FORMAT: DISPL
000030: 41 59 20 7B 69 64 65 6E 74 69 66 69 65 72 7D 20 AY {identifier}
000040: 5B 7B 69 64 65 6E 74 69 66 69 65 72 2D 31 7D 5D [{identifier-1}]
000050: 20 2E 20 2E 20 2E 20 5B 7B 69 64 65 6E 74 69 66 . . . [{identif
000060: 69 65 72 2D 4E 7D 5D 0D 0A 20 20 20 20 20 20 20 ier-N}]..
000070: 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C 69 74 {lit
000080: 65 72 61 6C 20 20 20 7D 20 20 7B 6C 69 74 65 72 eral } {liter
000090: 61 6C 2D 31 20 20 20 7D 20 20 2E 20 2E 20 2E 20 al-1 } . . .
0000A0: 20 7B 6C 69 74 65 72 61 6C 2D 4E 20 20 20 7D 0D {literal-N }.
0000B0: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
0000C0: 0A 54 68 69 73 20 64 69 73 70 6C 61 79 73 20 74 .This displays t
0000D0: 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 61 he contents of a
0000E0: 6E 20 69 64 65 6E 74 69 66 69 65 72 20 6F 72 20 n identifier or
0000F0: 64 69 73 70 6C 61 79 73 20 61 20 6C 69 74 65 72 displays a liter
000100: 61 6C 20 6F 6E 20 74 68 65 0D 0A 63 6F 6E 73 6F al on the..conso
000110: 6C 65 2E 20 55 73 61 67 65 20 6D 75 73 74 20 62 le. Usage must b
000120: 65 20 44 49 53 50 4C 41 59 2E 20 20 54 68 65 20 e DISPLAY. The
000130: 6D 61 78 69 6D 75 6D 20 6C 65 6E 67 74 68 20 6F maximum length o
000140: 66 20 74 68 65 20 64 69 73 70 6C 61 79 20 69 73 f the display is
000150: 20 38 30 0D 0A 63 68 61 72 61 63 74 65 72 73 20 80..characters
000160: 66 6F 72 20 6C 69 74 65 72 61 6C 20 76 61 6C 75 for literal valu
000170: 65 73 20 61 6E 64 20 32 35 35 20 63 68 61 72 61 es and 255 chara
000180: 63 74 65 72 73 20 66 6F 72 20 69 64 65 6E 74 69 cters for identi
000190: 66 69 65 72 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C fiers.....EXAMPL
0001A0: 45 53 3A 20 20 44 49 53 50 4C 41 59 20 4D 45 53 ES: DISPLAY MES
0001B0: 53 41 47 45 2D 31 0D 0A 20 20 20 20 20 20 20 20 SAGE-1..
0001C0: 20 20 20 44 49 53 50 4C 41 59 20 4D 45 53 53 41 DISPLAY MESSA
0001D0: 47 45 2D 33 20 31 30 0D 0A 20 20 20 20 20 20 20 GE-3 10..
0001E0: 20 20 20 20 44 49 53 50 4C 41 59 20 27 54 48 49 DISPLAY 'THI
0001F0: 53 20 4D 55 53 54 20 42 45 20 54 48 45 20 45 4E S MUST BE THE EN
Size : 512 (Real : 512)
000000: 20 2A 77 69 74 68 2A 20 74 68 65 20 49 4E 56 41 *with* the INVA
000010: 4C 49 44 20 6F 70 74 69 6F 6E 0D 0A 20 20 20 20 LID option..
000020: 20 20 20 20 20 20 20 57 52 49 54 45 20 20 2E 20 WRITE .
000030: 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 2E 20 32 39 . . . . . . . 29
000040: 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 }..
000050: 52 45 57 52 49 54 45 20 20 2E 20 2E 20 2E 20 2E REWRITE . . . .
000060: 20 2E 20 2E 20 2E 20 32 36 20 20 7D 0D 0A 0D 0A . . . 26 }....
000070: 0D 0A 41 43 43 45 50 54 0D 0A 3D 3D 3D 3D 3D 3D ..ACCEPT..======
000080: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 41 ....ELEMENT: A
000090: 43 43 45 50 54 0D 0A 0D 0A 46 4F 52 4D 41 54 3A CCEPT....FORMAT:
0000A0: 20 20 20 20 41 43 43 45 50 54 20 3C 69 64 65 6E ACCEPT <iden
0000B0: 74 69 66 69 65 72 3E 0D 0A 0D 0A 44 45 53 43 52 tifier>....DESCR
0000C0: 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 73 74 IPTION:..This st
0000D0: 61 74 65 6D 65 6E 74 20 72 65 61 64 73 20 75 70 atement reads up
0000E0: 20 74 6F 20 32 35 35 20 63 68 61 72 61 63 74 65 to 255 characte
0000F0: 72 73 20 66 72 6F 6D 20 74 68 65 20 63 6F 6E 73 rs from the cons
000100: 6F 6C 65 2E 20 54 68 65 20 75 73 61 67 65 20 6F ole. The usage o
000110: 66 0D 0A 74 68 65 20 69 74 65 6D 20 6D 75 73 74 f..the item must
000120: 20 62 65 20 44 49 53 50 4C 41 59 2E 0D 0A 0D 0A be DISPLAY.....
000130: 45 58 41 4D 50 4C 45 53 3A 20 20 41 43 43 45 50 EXAMPLES: ACCEP
000140: 54 20 49 4D 41 47 45 2E 0D 0A 20 20 20 20 20 20 T IMAGE...
000150: 20 20 20 20 20 41 43 43 45 50 54 20 4E 55 4D 28 ACCEPT NUM(
000160: 39 29 2E 0D 0A 0D 0A 0D 0A 41 44 44 0D 0A 3D 3D 9).......ADD..==
000170: 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 =....ELEMENT:
000180: 41 44 44 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 ADD....FORMAT:
000190: 20 20 41 44 44 20 7B 69 64 65 6E 74 69 66 69 65 ADD {identifie
0001A0: 72 2D 31 7D 20 5B 7B 69 64 65 6E 74 69 66 69 65 r-1} [{identifie
0001B0: 72 2D 32 7D 5D 20 20 2E 20 2E 20 20 20 54 4F 20 r-2}] . . TO
0001C0: 69 64 65 6E 74 69 66 69 65 72 2D 6D 0D 0A 20 20 identifier-m..
0001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 6C 69 {li
0001E0: 74 65 72 61 6C 2D 31 20 20 20 7D 20 20 20 7B 6C teral-1 } {l
0001F0: 69 74 65 72 61 6C 2D 32 20 20 20 7D 0D 0A 20 20 iteral-2 }..
Size : 512 (Real : 512)
000000: 44 27 0D 0A 0D 0A 0D 0A 44 49 56 49 44 45 0D 0A D'......DIVIDE..
000010: 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ======....ELEMEN
000020: 54 3A 20 20 20 44 49 56 49 44 45 0D 0A 0D 0A 46 T: DIVIDE....F
000030: 4F 52 4D 41 54 3A 20 20 20 20 44 49 56 49 44 45 ORMAT: DIVIDE
000040: 20 7B 69 64 65 6E 74 69 66 69 65 72 7D 20 49 4E {identifier} IN
000050: 54 4F 20 69 64 65 6E 74 69 66 69 65 72 2D 31 20 TO identifier-1
000060: 5B 52 4F 55 4E 44 45 44 5D 20 7B 6C 69 74 65 72 [ROUNDED] {liter
000070: 61 6C 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 al }..
000080: 20 20 20 20 20 20 20 20 20 20 5B 53 49 5A 45 20 [SIZE
000090: 45 52 52 4F 52 20 3C 69 6D 70 65 72 61 74 69 76 ERROR <imperativ
0000A0: 65 2D 73 74 61 74 65 6D 65 6E 74 3E 5D 0D 0A 0D e-statement>]...
0000B0: 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 54 .DESCRIPTION:..T
0000C0: 68 65 20 72 65 73 75 6C 74 20 6F 66 20 74 68 65 he result of the
0000D0: 20 64 69 76 69 73 69 6F 6E 20 69 73 20 73 74 6F division is sto
0000E0: 72 65 64 20 69 6E 20 69 64 65 6E 74 69 66 69 65 red in identifie
0000F0: 72 2D 31 3B 20 61 6E 79 20 72 65 6D 61 69 6E 64 r-1; any remaind
000100: 65 72 20 69 73 20 6C 6F 73 74 2E 0D 0A 0D 0A 45 er is lost.....E
000110: 58 41 4D 50 4C 45 53 3A 20 20 44 49 56 49 44 45 XAMPLES: DIVIDE
000120: 20 4E 55 4D 42 20 49 4E 54 4F 20 53 54 4F 52 45 NUMB INTO STORE
000130: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 44 49 56 .. DIV
000140: 49 44 45 20 32 35 20 49 4E 54 4F 20 52 45 53 55 IDE 25 INTO RESU
000150: 4C 54 0D 0A 0D 0A 0D 0A 45 58 49 54 0D 0A 3D 3D LT......EXIT..==
000160: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
000170: 20 45 58 49 54 0D 0A 0D 0A 46 4F 52 4D 41 54 3A EXIT....FORMAT:
000180: 20 20 20 20 45 58 49 54 20 5B 50 52 4F 47 52 41 EXIT [PROGRA
000190: 4D 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F M]....DESCRIPTIO
0001A0: 4E 3A 0D 0A 54 68 65 20 45 58 49 54 20 63 6F 6D N:..The EXIT com
0001B0: 6D 61 6E 64 20 63 61 75 73 65 73 20 6E 6F 20 61 mand causes no a
0001C0: 63 74 69 6F 6E 20 62 79 20 74 68 65 20 69 6E 74 ction by the int
0001D0: 65 72 70 72 65 74 65 72 20 62 75 74 20 61 6C 6C erpreter but all
0001E0: 6F 77 73 20 66 6F 72 20 61 6E 20 65 6D 70 74 79 ows for an empty
0001F0: 0D 0A 70 61 72 61 67 72 61 70 68 20 66 6F 72 20 ..paragraph for
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 4E 50 53 20 4D 49 NPS MI
000020: 43 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 CRO-COBOL Versi
000030: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
000060: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 20 PART
000090: 54 48 52 45 45 0D 0A 0D 0A 20 20 20 20 20 20 20 THREE....
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000B0: 20 20 20 20 20 52 65 76 69 73 65 64 20 61 6E 64 Revised and
0000C0: 20 55 70 64 61 74 65 64 0D 0A 0D 0A 20 20 20 20 Updated....
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 42 79 20 43 6C 69 76 65 20 42 65 6C By Clive Bel
0000F0: 6C 61 62 79 2C 20 4A 75 6E 65 20 31 39 39 31 0D laby, June 1991.
000100: 0A 0D 0A 0D 0A 4D 4F 56 45 0D 0A 3D 3D 3D 3D 0D .....MOVE..====.
000110: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 4D 4F ...ELEMENT: MO
000120: 56 45 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 VE....FORMAT:
000130: 20 4D 4F 56 45 20 7B 69 64 65 6E 74 69 66 69 65 MOVE {identifie
000140: 72 2D 31 7D 20 54 4F 20 69 64 65 6E 74 69 66 69 r-1} TO identifi
000150: 65 72 2D 32 0D 0A 20 20 20 20 20 20 20 20 20 20 er-2..
000160: 20 20 20 20 20 20 7B 6C 69 74 65 72 61 6C 20 20 {literal
000170: 20 20 20 7D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 }....DESCRIPT
000180: 49 4F 4E 3A 0D 0A 54 68 65 20 73 74 61 6E 64 61 ION:..The standa
000190: 72 64 20 6C 69 73 74 20 6F 66 20 61 6C 6C 6F 77 rd list of allow
0001A0: 61 62 6C 65 20 6D 6F 76 65 73 20 61 70 70 6C 69 able moves appli
0001B0: 65 73 20 74 6F 20 74 68 69 73 20 61 63 74 69 6F es to this actio
0001C0: 6E 2E 20 41 73 20 61 20 73 70 61 63 65 0D 0A 73 n. As a space..s
0001D0: 61 76 69 6E 67 20 66 65 61 74 75 72 65 20 6F 66 aving feature of
0001E0: 20 74 68 69 73 20 69 6D 70 6C 65 6D 65 6E 74 61 this implementa
0001F0: 74 69 6F 6E 2C 20 61 6C 6C 20 6E 75 6D 65 72 69 tion, all numeri
Size : 512 (Real : 512)
000000: 74 68 65 20 63 6F 6E 73 74 72 75 63 74 69 6F 6E the construction
000010: 20 6F 66 20 61 20 63 6F 6D 6D 6F 6E 20 72 65 74 of a common ret
000020: 75 72 6E 20 70 6F 69 6E 74 2E 20 54 68 65 20 6F urn point. The o
000030: 70 74 69 6F 6E 61 6C 0D 0A 50 52 4F 47 52 41 4D ptional..PROGRAM
000040: 20 74 65 72 6D 69 6E 61 74 65 73 20 61 20 73 75 terminates a su
000050: 62 72 6F 75 74 69 6E 65 20 61 6E 64 20 72 65 74 broutine and ret
000060: 75 72 6E 73 20 74 6F 20 74 68 65 20 63 61 6C 6C urns to the call
000070: 69 6E 67 20 70 72 6F 67 72 61 6D 2E 20 20 49 74 ing program. It
000080: 73 20 75 73 65 0D 0A 69 6E 20 74 68 65 20 6D 61 s use..in the ma
000090: 69 6E 20 70 72 6F 67 72 61 6D 20 63 61 75 73 65 in program cause
0000A0: 73 20 6E 6F 20 61 63 74 69 6F 6E 20 74 6F 20 62 s no action to b
0000B0: 65 20 74 61 6B 65 6E 2E 0D 0A 0D 0A 45 58 41 4D e taken.....EXAM
0000C0: 50 4C 45 53 3A 20 20 45 58 49 54 20 50 52 4F 47 PLES: EXIT PROG
0000D0: 52 41 4D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 RAM..
0000E0: 45 58 49 54 0D 0A 0D 0A 0D 0A 47 4F 0D 0A 3D 3D EXIT......GO..==
0000F0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 47 ....ELEMENT: G
000100: 4F 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 O....FORMAT:
000110: 31 2E 20 47 4F 20 70 72 6F 63 65 64 75 72 65 2D 1. GO procedure-
000120: 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 20 name..
000130: 20 32 2E 20 47 4F 20 70 72 6F 63 65 64 75 72 65 2. GO procedure
000140: 2D 31 20 5B 70 72 6F 63 65 64 75 72 65 2D 32 5D -1 [procedure-2]
000150: 20 2E 20 2E 20 2E 20 70 72 6F 63 65 64 75 72 65 . . . procedure
000160: 2D 32 30 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -20..
000170: 20 20 20 20 20 20 44 45 50 45 4E 44 49 4E 47 20 DEPENDING
000180: 69 64 65 6E 74 69 66 69 65 72 0D 0A 0D 0A 44 45 identifier....DE
000190: 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 65 20 SCRIPTION:..The
0001A0: 47 4F 20 63 6F 6D 6D 61 6E 64 20 63 61 75 73 65 GO command cause
0001B0: 73 20 61 6E 20 75 6E 63 6F 6E 64 69 74 69 6F 6E s an uncondition
0001C0: 61 6C 20 62 72 61 6E 63 68 20 74 6F 20 74 68 65 al branch to the
0001D0: 20 72 6F 75 74 69 6E 65 20 73 70 65 63 69 66 69 routine specifi
0001E0: 65 64 2E 20 54 68 65 0D 0A 73 65 63 6F 6E 64 20 ed. The..second
0001F0: 66 6F 72 6D 20 63 61 75 73 65 73 20 61 20 66 6F form causes a fo
Size : 512 (Real : 512)
000000: 63 20 6D 6F 76 65 73 20 67 6F 20 74 68 72 6F 75 c moves go throu
000010: 67 68 20 74 68 65 0D 0A 61 63 63 75 6D 75 6C 61 gh the..accumula
000020: 74 6F 72 73 2E 20 20 54 68 69 73 20 6D 61 6B 65 tors. This make
000030: 73 20 6E 75 6D 65 72 69 63 20 6D 6F 76 65 73 20 s numeric moves
000040: 73 6C 6F 77 65 72 20 74 68 61 6E 20 61 6C 70 68 slower than alph
000050: 61 2D 6E 75 6D 65 72 69 63 20 6D 6F 76 65 73 20 a-numeric moves
000060: 61 6E 64 0D 0A 77 68 65 72 65 20 70 6F 73 73 69 and..where possi
000070: 62 6C 65 20 74 68 65 79 20 73 68 6F 75 6C 64 20 ble they should
000080: 62 65 20 61 76 6F 69 64 65 64 2E 20 41 6E 79 20 be avoided. Any
000090: 6D 6F 76 65 20 74 68 61 74 20 69 6E 76 6F 6C 76 move that involv
0000A0: 65 73 20 70 69 63 74 75 72 65 0D 0A 63 6C 61 75 es picture..clau
0000B0: 73 65 73 20 74 68 61 74 20 61 72 65 20 65 78 61 ses that are exa
0000C0: 63 74 6C 79 20 74 68 65 20 73 61 6D 65 20 63 61 ctly the same ca
0000D0: 6E 20 62 65 20 61 63 63 6F 6D 70 6C 69 73 68 65 n be accomplishe
0000E0: 64 20 61 73 20 61 6E 20 61 6C 70 68 61 2D 6E 75 d as an alpha-nu
0000F0: 6D 65 72 69 63 0D 0A 6D 6F 76 65 20 69 66 20 74 meric..move if t
000100: 68 65 20 65 6C 65 6D 65 6E 74 73 20 61 72 65 20 he elements are
000110: 72 65 64 65 66 69 6E 65 64 20 61 73 20 61 6C 70 redefined as alp
000120: 68 61 2D 6E 75 6D 65 72 69 63 3B 20 20 61 6C 73 ha-numeric; als
000130: 6F 20 61 6C 6C 20 67 72 6F 75 70 20 6D 6F 76 65 o all group move
000140: 73 0D 0A 61 72 65 20 61 6C 70 68 61 2D 6E 75 6D s..are alpha-num
000150: 65 72 69 63 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 eric.....EXAMPLE
000160: 53 3A 20 20 4D 4F 56 45 20 53 50 41 43 45 20 54 S: MOVE SPACE T
000170: 4F 20 50 52 49 4E 54 2D 4C 49 4E 45 2E 0D 0A 20 O PRINT-LINE...
000180: 20 20 20 20 20 20 20 20 20 20 4D 4F 56 45 20 41 MOVE A
000190: 28 31 30 29 20 54 4F 20 42 28 50 54 52 29 2E 0D (10) TO B(PTR)..
0001A0: 0A 0D 0A 0D 0A 4D 55 4C 54 49 50 4C 59 0D 0A 3D .....MULTIPLY..=
0001B0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 =======....ELEME
0001C0: 4E 54 3A 20 20 20 4D 55 4C 54 49 50 4C 59 0D 0A NT: MULTIPLY..
0001D0: 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 4D 55 4C ..FORMAT: MUL
0001E0: 54 49 50 4C 59 20 7B 69 64 65 6E 74 69 66 69 65 TIPLY {identifie
0001F0: 72 7D 20 42 59 20 69 64 65 6E 74 69 66 69 65 72 r} BY identifier
Size : 512 (Real : 512)
000000: 72 77 61 72 64 20 62 72 61 6E 63 68 20 64 65 70 rward branch dep
000010: 65 6E 64 69 6E 67 20 6F 6E 20 74 68 65 20 76 61 ending on the va
000020: 6C 75 65 20 6F 66 20 74 68 65 20 63 6F 6E 74 65 lue of the conte
000030: 6E 74 73 0D 0A 6F 66 20 74 68 65 20 69 64 65 6E nts..of the iden
000040: 74 69 66 69 65 72 2E 20 54 68 65 20 69 64 65 6E tifier. The iden
000050: 74 69 66 69 65 72 20 6D 75 73 74 20 62 65 20 61 tifier must be a
000060: 20 6E 75 6D 65 72 69 63 20 69 6E 74 65 67 65 72 numeric integer
000070: 20 76 61 6C 75 65 2E 20 54 68 65 72 65 20 63 61 value. There ca
000080: 6E 0D 0A 62 65 20 6E 6F 20 6D 6F 72 65 20 74 68 n..be no more th
000090: 61 6E 20 32 30 20 70 72 6F 63 65 64 75 72 65 20 an 20 procedure
0000A0: 6E 61 6D 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C names.....EXAMPL
0000B0: 45 53 3A 20 20 47 4F 20 52 45 41 44 2D 43 41 52 ES: GO READ-CAR
0000C0: 44 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 47 D... G
0000D0: 4F 20 52 45 41 44 31 20 52 45 41 44 32 20 52 45 O READ1 READ2 RE
0000E0: 41 44 33 20 44 45 50 45 4E 44 49 4E 47 20 52 45 AD3 DEPENDING RE
0000F0: 41 44 2D 49 4E 44 45 58 0D 0A 0D 0A 0D 0A 49 46 AD-INDEX......IF
000100: 0D 0A 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A ..==....ELEMENT:
000110: 20 20 20 49 46 0D 0A 0D 0A 46 4F 52 4D 41 54 3A IF....FORMAT:
000120: 20 20 20 20 49 46 20 3C 63 6F 6E 64 69 74 69 6F IF <conditio
000130: 6E 3E 20 7B 73 74 6D 74 2D 6C 73 74 20 20 20 7D n> {stmt-lst }
000140: 20 45 4E 44 2D 49 46 0D 0A 20 20 20 20 20 20 20 END-IF..
000150: 20 20 20 20 49 46 20 3C 63 6F 6E 64 69 74 69 6F IF <conditio
000160: 6E 3E 20 7B 73 74 6D 74 2D 6C 73 74 20 20 20 7D n> {stmt-lst }
000170: 20 45 4C 53 45 20 7B 73 74 6D 74 2D 6C 73 74 7D ELSE {stmt-lst}
000180: 20 45 4E 44 2D 49 46 0D 0A 20 20 20 20 20 20 20 END-IF..
000190: 20 20 20 20 20 20 20 7B 4E 45 58 54 20 53 45 4E {NEXT SEN
0001A0: 54 45 4E 43 45 7D 20 20 20 7B 4E 45 58 54 20 53 TENCE} {NEXT S
0001B0: 45 4E 54 45 4E 43 45 7D 0D 0A 0D 0A 44 45 53 43 ENTENCE}....DESC
0001C0: 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 69 73 20 69 RIPTION:..This i
0001D0: 73 20 61 6E 20 65 6E 68 61 6E 63 65 64 20 76 65 s an enhanced ve
0001E0: 72 73 69 6F 6E 20 6F 66 20 74 68 65 20 73 74 61 rsion of the sta
0001F0: 6E 64 61 72 64 20 43 4F 42 4F 4C 20 49 46 20 73 ndard COBOL IF s
Size : 512 (Real : 512)
000000: 2D 32 20 5B 52 4F 55 4E 44 45 44 5D 0D 0A 20 20 -2 [ROUNDED]..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000020: 20 20 7B 6C 69 74 65 72 61 6C 20 20 20 7D 0D 0A {literal }..
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 5B 53 49 [SI
000040: 5A 45 20 45 52 52 4F 52 20 3C 69 6D 70 65 72 61 ZE ERROR <impera
000050: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 5D tive-statement>]
000060: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
000070: 0D 0A 54 68 65 20 6D 75 6C 74 69 70 6C 79 20 72 ..The multiply r
000080: 6F 75 74 69 6E 65 20 75 73 65 73 20 61 20 64 6F outine uses a do
000090: 75 62 6C 65 20 20 6C 65 6E 67 74 68 20 72 65 67 uble length reg
0000A0: 69 73 74 65 72 20 74 6F 20 63 61 6C 63 75 6C 61 ister to calcula
0000B0: 74 65 20 74 68 65 20 72 65 73 75 6C 74 2E 0D 0A te the result...
0000C0: 54 68 69 73 20 61 6C 6C 6F 77 73 20 74 68 65 20 This allows the
0000D0: 72 65 73 75 6C 74 20 20 67 65 6E 65 72 61 74 65 result generate
0000E0: 64 20 20 74 6F 20 20 62 65 20 20 6F 66 20 20 6D d to be of m
0000F0: 61 78 69 6D 75 6D 20 70 72 65 63 69 73 69 6F 6E aximum precision
000100: 2E 20 54 68 65 20 61 63 74 75 61 6C 0D 0A 76 61 . The actual..va
000110: 6C 75 65 20 73 74 6F 72 65 64 20 77 69 6C 6C 20 lue stored will
000120: 62 65 20 64 65 74 65 72 6D 69 6E 65 64 20 62 79 be determined by
000130: 20 20 74 68 65 20 20 61 6D 6F 75 6E 74 20 6F 66 the amount of
000140: 20 73 74 6F 72 61 67 65 20 61 6C 6C 6F 63 61 74 storage allocat
000150: 65 64 20 66 6F 72 20 74 68 65 0D 0A 76 61 72 69 ed for the..vari
000160: 61 62 6C 65 2E 20 4F 76 65 72 66 6C 6F 77 20 77 able. Overflow w
000170: 69 6C 6C 20 6F 63 63 75 72 20 69 66 20 74 68 65 ill occur if the
000180: 20 20 6E 75 6D 62 65 72 20 20 69 6E 20 74 68 65 number in the
000190: 20 72 65 67 69 73 74 65 72 20 69 73 20 6C 61 72 register is lar
0001A0: 67 65 72 20 74 68 61 6E 0D 0A 74 68 65 20 76 61 ger than..the va
0001B0: 72 69 61 62 6C 65 2E 20 49 66 20 74 68 65 20 70 riable. If the p
0001C0: 72 65 63 69 73 69 6F 6E 20 69 6E 20 74 68 65 20 recision in the
0001D0: 72 65 67 69 73 74 65 72 20 69 73 20 67 72 65 61 register is grea
0001E0: 74 65 72 20 74 68 61 6E 20 74 68 65 20 76 61 72 ter than the var
0001F0: 69 61 62 6C 65 2C 0D 0A 74 72 75 6E 63 61 74 69 iable,..truncati
Size : 512 (Real : 512)
000000: 74 61 74 65 6D 65 6E 74 2E 20 4E 65 73 74 69 6E tatement. Nestin
000010: 67 20 6F 66 0D 0A 49 46 20 73 74 61 74 65 6D 65 g of..IF stateme
000020: 6E 74 20 69 73 20 61 6C 6C 6F 77 65 64 2E 0D 0A nt is allowed...
000030: 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 49 46 20 ..EXAMPLES: IF
000040: 41 20 47 52 45 41 54 45 52 20 42 20 41 44 44 20 A GREATER B ADD
000050: 41 20 54 4F 20 43 20 45 4C 53 45 20 47 4F 20 45 A TO C ELSE GO E
000060: 52 52 4F 52 2D 4F 4E 45 20 45 4E 44 2D 49 46 2E RROR-ONE END-IF.
000070: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 .... I
000080: 46 20 41 20 4E 4F 54 20 4E 55 4D 45 52 49 43 20 F A NOT NUMERIC
000090: 4E 45 58 54 20 53 45 4E 54 45 4E 43 45 20 45 4C NEXT SENTENCE EL
0000A0: 53 45 20 4D 4F 56 45 20 5A 45 52 4F 20 54 4F 20 SE MOVE ZERO TO
0000B0: 41 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A 20 20 20 A END-IF.....
0000C0: 20 20 20 20 20 20 20 20 49 46 20 41 20 4C 45 53 IF A LES
0000D0: 53 20 42 20 44 49 53 50 4C 41 59 20 41 20 44 49 S B DISPLAY A DI
0000E0: 53 50 4C 41 59 20 42 20 45 4E 44 2D 49 46 2E 0D SPLAY B END-IF..
0000F0: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 46 ... IF
000100: 20 41 20 47 52 45 41 54 45 52 20 42 20 44 49 53 A GREATER B DIS
000110: 50 4C 41 59 20 41 20 44 49 53 50 4C 41 59 20 42 PLAY A DISPLAY B
000120: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 45 .. E
000130: 4C 53 45 20 44 49 53 50 4C 41 59 20 43 20 44 49 LSE DISPLAY C DI
000140: 53 50 4C 41 59 20 44 20 45 4E 44 2D 49 46 2E 0D SPLAY D END-IF..
000150: 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 49 46 ... IF
000160: 20 41 20 47 52 45 41 54 45 52 20 42 0D 0A 20 20 A GREATER B..
000170: 20 20 20 20 20 20 20 20 20 20 20 49 46 20 41 20 IF A
000180: 47 52 45 41 54 45 52 20 43 0D 0A 20 20 20 20 20 GREATER C..
000190: 20 20 20 20 20 20 20 20 20 20 44 49 53 50 4C 41 DISPLA
0001A0: 59 20 41 0D 0A 20 20 20 20 20 20 20 20 20 20 20 Y A..
0001B0: 20 20 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 ELSE..
0001C0: 20 20 20 20 20 20 20 44 49 53 50 4C 41 59 20 43 DISPLAY C
0001D0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 .. END
0001E0: 2D 49 46 0D 0A 20 20 20 20 20 20 20 20 20 20 20 -IF..
0001F0: 45 4C 53 45 0D 0A 20 20 20 20 20 20 20 20 20 20 ELSE..
Size : 512 (Real : 512)
000000: 6F 6E 20 6F 63 63 75 72 73 20 75 6E 6C 65 73 73 on occurs unless
000010: 20 74 68 65 20 72 6F 75 6E 64 20 6F 70 74 69 6F the round optio
000020: 6E 20 69 73 20 73 70 65 63 69 66 69 65 64 2E 0D n is specified..
000030: 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 4D 55 ...EXAMPLES: MU
000040: 4C 54 49 50 4C 59 20 58 20 42 59 20 59 2E 0D 0A LTIPLY X BY Y...
000050: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4D 55 4C .. MUL
000060: 54 49 50 4C 59 20 41 20 42 59 20 42 28 37 29 20 TIPLY A BY B(7)
000070: 53 49 5A 45 20 45 52 52 4F 52 20 47 4F 20 4F 56 SIZE ERROR GO OV
000080: 45 52 46 4C 4F 57 2E 0D 0A 0D 0A 0D 0A 4F 50 45 ERFLOW.......OPE
000090: 4E 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 N..====....ELEME
0000A0: 4E 54 3A 20 20 20 4F 50 45 4E 0D 0A 0D 0A 46 4F NT: OPEN....FO
0000B0: 52 4D 41 54 3A 20 20 20 20 4F 50 45 4E 20 7B 49 RMAT: OPEN {I
0000C0: 4E 50 55 54 20 66 69 6C 65 2D 6E 61 6D 65 2D 31 NPUT file-name-1
0000D0: 20 7D 20 5B 7B 66 69 6C 65 2D 6E 61 6D 65 2D 32 } [{file-name-2
0000E0: 7D 5D 20 2E 20 2E 20 2E 0D 0A 20 20 20 20 20 20 }] . . ...
0000F0: 20 20 20 20 20 20 20 20 20 20 7B 4F 55 54 50 55 {OUTPU
000100: 54 20 66 69 6C 65 2D 6E 61 6D 65 2D 31 7D 20 5B T file-name-1} [
000110: 7B 66 69 6C 65 2D 6E 61 6D 65 2D 32 7D 5D 20 2E {file-name-2}] .
000120: 20 2E 20 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 . ...
000130: 20 20 20 20 20 20 7B 49 2D 4F 20 66 69 6C 65 2D {I-O file-
000140: 6E 61 6D 65 2D 31 20 20 20 7D 20 5B 7B 66 69 6C name-1 } [{fil
000150: 65 2D 6E 61 6D 65 2D 32 7D 5D 20 2E 20 2E 20 2E e-name-2}] . . .
000160: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
000170: 0D 0A 54 68 65 20 74 68 72 65 65 20 74 79 70 65 ..The three type
000180: 73 20 6F 66 20 20 4F 50 45 4E 53 20 20 68 61 76 s of OPENS hav
000190: 65 20 20 65 78 61 63 74 6C 79 20 20 74 68 65 20 e exactly the
0001A0: 20 73 61 6D 65 20 20 65 66 66 65 63 74 20 6F 6E same effect on
0001B0: 20 74 68 65 20 64 69 73 6B 65 74 74 65 2E 0D 0A the diskette...
0001C0: 48 6F 77 65 76 65 72 2C 20 74 68 65 79 20 64 6F However, they do
0001D0: 20 61 6C 6C 6F 77 20 66 6F 72 20 69 6E 74 65 72 allow for inter
0001E0: 6E 61 6C 20 63 68 65 63 6B 69 6E 67 20 20 6F 66 nal checking of
0001F0: 20 74 68 65 20 6F 74 68 65 72 20 66 69 6C 65 20 the other file
Size : 512 (Real : 512)
000000: 20 20 20 49 46 20 42 20 47 52 45 41 54 45 52 20 IF B GREATER
000010: 43 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 C..
000020: 20 20 20 44 49 53 50 4C 41 59 20 42 0D 0A 20 20 DISPLAY B..
000030: 20 20 20 20 20 20 20 20 20 20 20 45 4C 53 45 0D ELSE.
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000050: 44 49 53 50 4C 41 59 20 43 0D 0A 20 20 20 20 20 DISPLAY C..
000060: 20 20 20 20 20 20 20 20 45 4E 44 2D 49 46 0D 0A END-IF..
000070: 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 2D 49 END-I
000080: 46 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F F.......** END O
000090: 46 20 43 4F 42 4F 4C 2D 32 2E 44 4F 43 20 2A 2A F COBOL-2.DOC **
0000A0: 1A 52 4F 2D 43 4F 42 4F 4C 20 20 56 65 72 73 69 .RO-COBOL Versi
0000B0: 6F 6E 20 32 2E 31 0D 0A 0D 0A 20 20 20 20 20 20 on 2.1....
0000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000D0: 20 20 20 20 20 20 20 20 20 20 55 73 65 72 27 73 User's
0000E0: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000100: 20 62 79 20 75 73 69 6E 67 20 74 68 65 20 63 6F by using the co
000110: 6D 70 69 6C 65 72 20 74 6F 67 67 6C 65 20 27 44 mpiler toggle 'D
000120: 2E 27 0D 0A 0D 0A 0D 0A 3C 66 69 6C 65 2D 63 6F .'......<file-co
000130: 6E 74 72 6F 6C 2D 65 6E 74 72 79 3E 0D 0A 3D 3D ntrol-entry>..==
000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000150: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
000160: 20 20 20 3C 66 69 6C 65 2D 63 6F 6E 74 72 6F 6C <file-control
000170: 2D 65 6E 74 72 79 3E 0D 0A 0D 0A 46 4F 52 4D 41 -entry>....FORMA
000180: 54 3A 20 20 20 20 20 20 31 2E 20 53 45 4C 45 43 T: 1. SELEC
000190: 54 20 66 69 6C 65 2D 6E 61 6D 65 0D 0A 20 20 20 T file-name..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 53 AS
0001B0: 53 49 47 4E 20 69 6D 70 6C 65 6D 65 6E 74 6F 72 SIGN implementor
0001C0: 2D 6E 61 6D 65 0D 0A 20 20 20 20 20 20 20 20 20 -name..
0001D0: 20 20 20 20 20 20 20 20 5B 4F 52 47 41 4E 49 5A [ORGANIZ
0001E0: 41 54 49 4F 4E 20 53 45 51 55 45 4E 54 49 41 4C ATION SEQUENTIAL
0001F0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
Size : 512 (Real : 512)
000000: 61 63 74 69 6F 6E 73 2E 20 46 6F 72 0D 0A 65 78 actions. For..ex
000010: 61 6D 70 6C 65 2C 20 61 20 77 72 69 74 65 20 74 ample, a write t
000020: 6F 20 61 20 20 66 69 6C 65 20 20 73 65 74 20 20 o a file set
000030: 6F 70 65 6E 20 20 61 73 20 20 69 6E 70 75 74 20 open as input
000040: 20 77 69 6C 6C 20 63 61 75 73 65 20 61 20 66 61 will cause a fa
000050: 74 61 6C 20 65 72 72 6F 72 2E 0D 0A 4D 75 6C 74 tal error...Mult
000060: 69 70 6C 65 20 6F 70 65 6E 73 20 68 61 76 65 20 iple opens have
000070: 6E 6F 74 20 62 65 65 6E 20 69 6D 70 6C 65 6D 65 not been impleme
000080: 6E 74 65 64 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 nted.....EXAMPLE
000090: 53 3A 20 20 4F 50 45 4E 20 49 4E 50 55 54 20 43 S: OPEN INPUT C
0000A0: 41 52 44 53 2E 0D 0A 20 20 20 20 20 20 20 20 20 ARDS...
0000B0: 20 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 52 45 OPEN OUTPUT RE
0000C0: 50 4F 52 54 2D 46 49 4C 45 2E 0D 0A 0D 0A 0D 0A PORT-FILE.......
0000D0: 50 45 52 46 4F 52 4D 0D 0A 3D 3D 3D 3D 3D 3D 3D PERFORM..=======
0000E0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 50 ....ELEMENT: P
0000F0: 45 52 46 4F 52 4D 0D 0A 0D 0A 46 4F 52 4D 41 54 ERFORM....FORMAT
000100: 3A 20 20 20 20 31 2E 20 50 45 52 46 4F 52 4D 20 : 1. PERFORM
000110: 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B procedure-name [
000120: 54 48 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E THRU procedure-n
000130: 61 6D 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 ame-2]..
000140: 20 20 20 32 2E 20 50 45 52 46 4F 52 4D 20 70 72 2. PERFORM pr
000150: 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B 54 48 ocedure-name [TH
000160: 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D RU procedure-nam
000170: 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 e-2]..
000180: 20 20 20 20 20 20 20 7B 69 64 65 6E 74 69 66 69 {identifi
000190: 65 72 7D 20 54 49 4D 45 53 0D 0A 20 20 20 20 20 er} TIMES..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 7B 69 6E 74 {int
0001B0: 65 67 65 72 20 20 20 7D 0D 0A 20 20 20 20 20 20 eger }..
0001C0: 20 20 20 20 20 33 2E 20 50 45 52 46 4F 52 4D 20 3. PERFORM
0001D0: 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 20 5B procedure-name [
0001E0: 54 48 52 55 20 70 72 6F 63 65 64 75 72 65 2D 6E THRU procedure-n
0001F0: 61 6D 65 2D 32 5D 0D 0A 20 20 20 20 20 20 20 20 ame-2]..
Size : 512 (Real : 512)
000000: 43 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 0D CR> TO CONTINUE.
000010: 0A 20 20 20 20 20 20 20 20 20 4F 52 20 45 4E 54 . OR ENT
000020: 45 52 20 41 4E 20 22 53 22 20 54 4F 20 54 45 52 ER AN "S" TO TER
000030: 4D 49 4E 41 54 45 2E 0D 0A 0D 0A 0D 0A 53 55 42 MINATE.......SUB
000040: 54 52 41 43 54 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 0D TRACT..========.
000050: 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 53 55 ...ELEMENT: SU
000060: 42 54 52 41 43 54 0D 0A 0D 0A 46 4F 52 4D 41 54 BTRACT....FORMAT
000070: 3A 20 20 20 20 53 55 42 54 52 41 43 54 20 7B 69 : SUBTRACT {i
000080: 64 65 6E 74 69 66 69 65 72 2D 31 7D 20 5B 69 64 dentifier-1} [id
000090: 65 6E 74 69 66 69 65 72 2D 32 5D 20 2E 20 2E 20 entifier-2] . .
0000A0: 2E 20 46 52 4F 4D 20 69 64 65 6E 74 69 66 69 65 . FROM identifie
0000B0: 72 2D 6D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 r-m..
0000C0: 20 20 20 20 20 20 20 20 20 7B 6C 69 74 65 72 61 {litera
0000D0: 6C 2D 31 20 20 20 7D 20 5B 6C 69 74 65 72 61 6C l-1 } [literal
0000E0: 2D 32 20 20 20 5D 0D 0A 20 20 20 20 20 20 20 20 -2 ]..
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 5B 52 4F 55 [ROU
000100: 4E 44 45 44 5D 20 5B 53 49 5A 45 20 45 52 52 4F NDED] [SIZE ERRO
000110: 52 20 3C 69 6D 70 65 72 61 74 69 76 65 2D 73 74 R <imperative-st
000120: 61 74 65 6D 65 6E 74 3E 5D 0D 0A 0D 0A 44 45 53 atement>]....DES
000130: 43 52 49 50 54 49 4F 4E 3A 0D 0A 49 64 65 6E 74 CRIPTION:..Ident
000140: 69 66 69 65 72 2D 6D 2C 20 69 73 20 20 64 65 63 ifier-m, is dec
000150: 72 65 6D 65 6E 74 65 64 20 62 79 20 20 74 68 65 remented by the
000160: 20 20 76 61 6C 75 65 20 20 6F 66 20 69 64 65 6E value of iden
000170: 74 69 66 69 65 72 2F 6C 69 74 65 72 61 6C 20 6F tifier/literal o
000180: 6E 65 2E 20 54 68 65 0D 0A 72 65 73 75 6C 74 73 ne. The..results
000190: 20 61 72 65 20 73 74 6F 72 65 64 20 62 61 63 6B are stored back
0001A0: 20 69 6E 20 69 64 65 6E 74 69 66 69 65 72 2D 6D in identifier-m
0001B0: 2E 20 52 6F 75 6E 64 69 6E 67 20 61 6E 64 20 73 . Rounding and s
0001C0: 69 7A 65 20 65 72 72 6F 72 20 6F 70 74 69 6F 6E ize error option
0001D0: 73 20 61 72 65 0D 0A 61 76 61 69 6C 61 62 6C 65 s are..available
0001E0: 20 69 66 20 64 65 73 69 72 65 64 2E 20 4D 75 6C if desired. Mul
0001F0: 74 69 70 6C 65 20 73 75 62 74 72 61 63 74 73 20 tiple subtracts
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 55 4E 54 49 4C 20 3C UNTIL <
000010: 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 20 20 20 20 condition>..
000020: 20 20 20 20 20 20 20 34 2E 20 50 45 52 46 4F 52 4. PERFOR
000030: 4D 20 70 72 6F 63 65 64 75 72 65 2D 6E 61 6D 65 M procedure-name
000040: 20 56 41 52 59 49 4E 47 20 7B 69 64 65 6E 74 69 VARYING {identi
000050: 66 69 65 72 7D 0D 0A 20 20 20 20 20 20 20 20 20 fier}..
000060: 20 20 20 20 20 20 20 20 46 52 4F 4D 20 7B 69 64 FROM {id
000070: 65 6E 74 69 66 69 65 72 7D 20 42 59 20 7B 69 64 entifier} BY {id
000080: 65 6E 74 69 66 69 65 72 7D 0D 0A 20 20 20 20 20 entifier}..
000090: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 54 49 UNTI
0000A0: 4C 20 3C 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 0D L <condition>...
0000B0: 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D 0A 41 .DESCRIPTION:..A
0000C0: 6C 6C 20 66 6F 75 72 20 20 6F 70 74 69 6F 6E 73 ll four options
0000D0: 20 20 61 72 65 20 20 73 75 70 70 6F 72 74 65 64 are supported
0000E0: 2E 20 20 20 42 72 61 6E 63 68 69 6E 67 20 20 6D . Branching m
0000F0: 61 79 20 20 62 65 20 20 65 69 74 68 65 72 20 20 ay be either
000100: 66 6F 72 77 61 72 64 20 20 6F 72 0D 0A 62 61 63 forward or..bac
000110: 6B 77 61 72 64 2C 20 61 6E 64 20 74 68 65 20 70 kward, and the p
000120: 72 6F 63 65 64 75 72 65 73 20 63 61 6C 6C 65 64 rocedures called
000130: 20 6D 61 79 20 20 68 61 76 65 20 20 70 65 72 66 may have perf
000140: 6F 72 6D 20 73 74 61 74 65 6D 65 6E 74 73 20 69 orm statements i
000150: 6E 20 74 68 65 6D 20 61 73 0D 0A 6C 6F 6E 67 20 n them as..long
000160: 61 73 20 74 68 65 20 65 6E 64 20 70 6F 69 6E 74 as the end point
000170: 73 20 64 6F 20 6E 6F 74 20 63 6F 69 6E 63 69 64 s do not coincid
000180: 65 20 6F 72 20 6F 76 65 72 6C 61 70 2E 0D 0A 0D e or overlap....
000190: 0A 45 58 41 4D 50 4C 45 53 3A 20 20 50 45 52 46 .EXAMPLES: PERF
0001A0: 4F 52 4D 20 4F 50 45 4E 2D 52 4F 55 54 49 4E 45 ORM OPEN-ROUTINE
0001B0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 50 45 ... PE
0001C0: 52 46 4F 52 4D 20 54 4F 54 41 4C 53 20 54 48 52 RFORM TOTALS THR
0001D0: 55 20 45 4E 44 2D 52 45 50 4F 52 54 2E 0D 0A 20 U END-REPORT...
0001E0: 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4F 52 PERFOR
0001F0: 4D 20 53 55 4D 20 31 30 20 54 49 4D 45 53 2E 0D M SUM 10 TIMES..
Size : 512 (Real : 512)
000000: 68 61 76 65 20 6E 6F 74 20 62 65 65 6E 20 69 6D have not been im
000010: 70 6C 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 45 58 plemented.....EX
000020: 41 4D 50 4C 45 53 3A 20 20 53 55 42 54 52 41 43 AMPLES: SUBTRAC
000030: 54 20 31 30 20 46 52 4F 4D 20 53 55 42 28 31 32 T 10 FROM SUB(12
000040: 29 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 )... S
000050: 55 42 54 52 41 43 54 20 41 20 46 52 4F 4D 20 43 UBTRACT A FROM C
000060: 20 52 4F 55 4E 44 45 44 2E 0D 0A 0D 0A 0D 0A 57 ROUNDED.......W
000070: 52 49 54 45 0D 0A 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 RITE..=====....E
000080: 4C 45 4D 45 4E 54 3A 20 20 20 57 52 49 54 45 0D LEMENT: WRITE.
000090: 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 31 2E ...FORMAT: 1.
0000A0: 20 57 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 WRITE record-na
0000B0: 6D 65 20 5B 7B 42 45 46 4F 52 45 7D 20 41 44 56 me [{BEFORE} ADV
0000C0: 41 4E 43 49 4E 47 20 7B 49 4E 54 45 47 45 52 7D ANCING {INTEGER}
0000D0: 5D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ]..
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 20 20 20 20 7B 41 46 54 45 52 20 7D 20 20 20 20 {AFTER }
000100: 20 20 20 20 20 20 20 7B 50 41 47 45 20 20 7D 0D {PAGE }.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 57 . 2. W
000120: 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 6D 65 RITE record-name
000130: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
000140: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
000150: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
000160: 0A 54 68 65 20 72 65 63 6F 72 64 20 73 70 65 63 .The record spec
000170: 69 66 69 65 64 20 69 73 20 77 72 69 74 74 65 6E ified is written
000180: 20 74 6F 20 74 68 65 20 66 69 6C 65 20 73 70 65 to the file spe
000190: 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 66 69 cified in the fi
0001A0: 6C 65 20 73 65 63 74 69 6F 6E 20 6F 66 0D 0A 74 le section of..t
0001B0: 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 61 he source progra
0001C0: 6D 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 20 6F m. The INVALID o
0001D0: 70 74 69 6F 6E 20 6F 6E 6C 79 20 61 70 70 6C 69 ption only appli
0001E0: 65 73 20 74 6F 20 72 61 6E 64 6F 6D 20 66 69 6C es to random fil
0001F0: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A es.....EXAMPLES:
Size : 512 (Real : 512)
000000: 0A 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 . PERF
000010: 4F 52 4D 20 53 4B 49 50 2D 4C 49 4E 45 20 55 4E ORM SKIP-LINE UN
000020: 54 49 4C 20 50 47 2D 43 4E 54 20 47 52 45 41 54 TIL PG-CNT GREAT
000030: 45 52 20 36 30 2E 0D 0A 20 20 20 20 20 20 20 20 ER 60...
000040: 20 20 20 50 45 52 46 4F 52 4D 20 52 45 50 45 41 PERFORM REPEA
000050: 54 2D 41 47 41 49 4E 20 56 41 52 59 49 4E 47 20 T-AGAIN VARYING
000060: 43 4F 55 4E 54 45 52 20 46 52 4F 4D 20 31 20 42 COUNTER FROM 1 B
000070: 59 20 32 0D 0A 20 20 20 20 20 20 20 20 20 20 20 Y 2..
000080: 20 20 20 20 20 20 55 4E 54 49 4C 20 43 4F 55 4E UNTIL COUN
000090: 54 45 52 20 45 51 55 41 4C 20 31 30 2E 0D 0A 0D TER EQUAL 10....
0000A0: 0A 0D 0A 52 45 41 44 0D 0A 3D 3D 3D 3D 0D 0A 0D ...READ..====...
0000B0: 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 52 45 41 44 .ELEMENT: READ
0000C0: 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 20 31 ....FORMAT: 1
0000D0: 2E 20 52 45 41 44 20 66 69 6C 65 2D 6E 61 6D 65 . READ file-name
0000E0: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
0000F0: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
000100: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 52 . 2. R
000110: 45 41 44 20 66 69 6C 65 2D 6E 61 6D 65 20 45 4E EAD file-name EN
000120: 44 20 3C 69 6D 70 65 72 61 74 69 76 65 2D 73 74 D <imperative-st
000130: 61 74 65 6D 65 6E 74 3E 0D 0A 0D 0A 44 45 53 43 atement>....DESC
000140: 52 49 50 54 49 4F 4E 3A 0D 0A 54 68 65 20 69 6E RIPTION:..The in
000150: 76 61 6C 69 64 20 63 6F 6E 64 69 74 69 6F 6E 20 valid condition
000160: 69 73 20 6F 6E 6C 79 20 20 61 70 70 6C 69 63 61 is only applica
000170: 62 6C 65 20 20 74 6F 20 20 66 69 6C 65 73 20 20 ble to files
000180: 69 6E 20 20 61 20 72 61 6E 64 6F 6D 20 6D 6F 64 in a random mod
000190: 65 2E 20 41 6C 6C 0D 0A 73 65 71 75 65 6E 74 69 e. All..sequenti
0001A0: 61 6C 20 66 69 6C 65 73 20 6D 75 73 74 20 68 61 al files must ha
0001B0: 76 65 20 61 6E 20 45 4E 44 20 73 74 61 74 65 6D ve an END statem
0001C0: 65 6E 74 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 ent.....EXAMPLES
0001D0: 3A 20 20 52 45 41 44 20 43 41 52 44 53 20 45 4E : READ CARDS EN
0001E0: 44 20 47 4F 20 45 4E 44 2D 4F 46 2D 46 49 4C 45 D GO END-OF-FILE
0001F0: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 52 45 ... RE
Size : 512 (Real : 512)
000000: 20 20 57 52 49 54 45 20 4F 55 54 2D 46 49 4C 45 WRITE OUT-FILE
000010: 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 57 52 ... WR
000020: 49 54 45 20 52 41 4E 44 2D 46 49 4C 45 20 49 4E ITE RAND-FILE IN
000030: 56 41 4C 49 44 20 50 45 52 46 4F 52 4D 20 45 52 VALID PERFORM ER
000040: 52 4F 52 2D 52 45 43 4F 56 2E 0D 0A 0D 0A 0D 0A ROR-RECOV.......
000050: 3C 63 6F 6E 64 69 74 69 6F 6E 3E 0D 0A 3D 3D 3D <condition>..===
000060: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D ========....ELEM
000070: 45 4E 54 3A 20 20 20 3C 63 6F 6E 64 69 74 69 6F ENT: <conditio
000080: 6E 3E 0D 0A 0D 0A 46 4F 52 4D 41 54 3A 20 20 20 n>....FORMAT:
000090: 20 52 45 4C 41 54 49 4F 4E 41 4C 20 43 4F 4E 44 RELATIONAL COND
0000A0: 49 54 49 4F 4E 3A 0D 0A 0D 0A 20 20 20 20 20 20 ITION:....
0000B0: 20 20 20 20 20 7B 69 64 65 6E 74 69 66 69 65 72 {identifier
0000C0: 2D 31 7D 20 5B 4E 4F 54 5D 20 7B 47 52 45 41 54 -1} [NOT] {GREAT
0000D0: 45 52 7D 20 7B 69 64 65 6E 74 69 66 69 65 72 2D ER} {identifier-
0000E0: 32 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 2}..
0000F0: 20 20 7B 6C 69 74 65 72 61 6C 2D 31 7D 20 20 20 {literal-1}
000100: 20 20 20 20 7B 4C 45 53 53 20 20 7D 20 20 7B 6C {LESS } {l
000110: 69 74 65 72 61 6C 2D 32 20 20 20 7D 0D 0A 20 20 iteral-2 }..
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7B 45 {E
000140: 51 55 41 4C 20 7D 0D 0A 0D 0A 20 20 20 20 20 20 QUAL }....
000150: 20 20 20 20 20 43 4C 41 53 53 20 43 4F 4E 44 49 CLASS CONDI
000160: 54 49 4F 4E 3A 0D 0A 0D 0A 20 20 20 20 20 20 20 TION:....
000170: 20 20 20 20 20 20 20 20 69 64 65 6E 74 69 66 69 identifi
000180: 65 72 20 5B 4E 4F 54 5D 20 7B 4E 55 4D 45 52 49 er [NOT] {NUMERI
000190: 43 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 20 C }..
0001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0001B0: 20 20 20 20 20 20 7B 41 4C 50 48 41 42 45 54 49 {ALPHABETI
0001C0: 43 7D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F C}....DESCRIPTIO
0001D0: 4E 3A 0D 0A 49 74 20 69 73 20 6E 6F 74 20 76 61 N:..It is not va
0001E0: 6C 69 64 20 74 6F 20 63 6F 6D 70 61 72 65 20 20 lid to compare
0001F0: 74 77 6F 20 20 6C 69 74 65 72 61 6C 73 2E 20 20 two literals.
Size : 512 (Real : 512)
000000: 41 44 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 20 49 AD RANDOM-FILE I
000010: 4E 56 41 4C 49 44 20 4D 4F 56 45 20 53 50 41 43 NVALID MOVE SPAC
000020: 45 53 20 54 4F 20 52 45 43 2D 31 2E 0D 0A 0D 0A ES TO REC-1.....
000030: 0D 0A 52 45 57 52 49 54 45 0D 0A 3D 3D 3D 3D 3D ..REWRITE..=====
000040: 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 ==....ELEMENT:
000050: 20 52 45 57 52 49 54 45 0D 0A 0D 0A 46 4F 52 4D REWRITE....FORM
000060: 41 54 3A 20 20 20 20 52 45 57 52 49 54 45 20 72 AT: REWRITE r
000070: 65 63 6F 72 64 2D 6E 61 6D 65 20 5B 49 4E 56 41 ecord-name [INVA
000080: 4C 49 44 20 3C 69 6D 70 65 72 61 74 69 76 65 3E LID <imperative>
000090: 5D 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E ]....DESCRIPTION
0000A0: 3A 0D 0A 52 45 57 52 49 54 45 20 69 73 20 6F 6E :..REWRITE is on
0000B0: 6C 79 20 76 61 6C 69 64 20 66 6F 72 20 66 69 6C ly valid for fil
0000C0: 65 73 20 74 68 61 74 20 20 61 72 65 20 20 6F 70 es that are op
0000D0: 65 6E 20 69 6E 20 74 68 65 20 49 2D 4F 20 6D 6F en in the I-O mo
0000E0: 64 65 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 0D de. The INVALID.
0000F0: 0A 63 6C 61 75 73 65 20 69 73 20 6F 6E 6C 79 20 .clause is only
000100: 76 61 6C 69 64 20 66 6F 72 20 72 61 6E 64 6F 6D valid for random
000110: 20 66 69 6C 65 73 2E 20 54 68 69 73 20 73 74 61 files. This sta
000120: 74 65 6D 65 6E 74 20 72 65 73 75 6C 74 73 20 69 tement results i
000130: 6E 20 74 68 65 20 63 75 72 72 65 6E 74 0D 0A 72 n the current..r
000140: 65 63 6F 72 64 20 62 65 69 6E 67 20 77 72 69 74 ecord being writ
000150: 74 65 6E 20 62 61 63 6B 20 69 6E 74 6F 20 74 68 ten back into th
000160: 65 20 20 70 6C 61 63 65 20 20 74 68 61 74 20 20 e place that
000170: 69 74 20 20 77 61 73 20 6A 75 73 74 20 72 65 61 it was just rea
000180: 64 20 66 72 6F 6D 2C 20 74 68 65 0D 0A 6C 61 73 d from, the..las
000190: 74 20 65 78 65 63 75 74 65 64 20 72 65 61 64 2E t executed read.
0001A0: 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A 20 20 52 ....EXAMPLES: R
0001B0: 45 57 52 49 54 45 20 43 41 52 44 53 2E 0D 0A 20 EWRITE CARDS...
0001C0: 20 20 20 20 20 20 20 20 20 20 52 45 57 52 49 54 REWRIT
0001D0: 45 20 52 41 4E 44 2D 31 20 49 4E 56 41 4C 49 44 E RAND-1 INVALID
0001E0: 20 50 45 52 46 4F 52 4D 20 45 52 52 4F 52 2D 43 PERFORM ERROR-C
0001F0: 48 45 43 4B 2E 0C 0D 0A 0D 0A 0D 0A 53 54 4F 50 HECK........STOP
Size : 512 (Real : 512)
000000: 54 68 65 20 63 6C 61 73 73 20 63 6F 6E 64 69 74 The class condit
000010: 69 6F 6E 20 4E 55 4D 45 52 49 43 20 77 69 6C 6C ion NUMERIC will
000020: 0D 0A 61 6C 6C 6F 77 20 66 6F 72 20 61 20 73 69 ..allow for a si
000030: 67 6E 20 69 66 20 74 68 65 20 69 64 65 6E 74 69 gn if the identi
000040: 66 69 65 72 20 69 73 20 73 69 67 6E 65 64 20 6E fier is signed n
000050: 75 6D 65 72 69 63 2E 0D 0A 0D 0A 45 58 41 4D 50 umeric.....EXAMP
000060: 4C 45 53 3A 20 20 41 20 4E 4F 54 20 4C 45 53 53 LES: A NOT LESS
000070: 20 31 30 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 10...
000080: 20 4C 49 4E 45 20 47 52 45 41 54 45 52 20 27 43 LINE GREATER 'C
000090: 27 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 4E '... N
0000A0: 55 4D 42 31 20 4E 4F 54 20 4E 55 4D 45 52 49 43 UMB1 NOT NUMERIC
0000B0: 0D 0A 0D 0A 0D 0A 53 75 62 73 63 72 69 70 74 69 ......Subscripti
0000C0: 6E 67 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ng..============
0000D0: 0D 0A 0D 0A 45 4C 45 4D 45 4E 54 3A 20 20 20 73 ....ELEMENT: s
0000E0: 75 62 73 63 72 69 70 74 69 6E 67 0D 0A 0D 0A 46 ubscripting....F
0000F0: 4F 52 4D 41 54 3A 20 20 20 20 64 61 74 61 2D 6E ORMAT: data-n
000100: 61 6D 65 20 28 73 75 62 73 63 72 69 70 74 29 0D ame (subscript).
000110: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
000120: 0A 41 6E 79 20 69 74 65 6D 20 64 65 66 69 6E 65 .Any item define
000130: 64 20 77 69 74 68 20 20 61 6E 20 20 4F 43 43 55 d with an OCCU
000140: 52 53 20 20 6D 61 79 20 20 62 65 20 20 72 65 66 RS may be ref
000150: 65 72 65 6E 63 65 64 20 20 62 79 20 20 61 20 73 erenced by a s
000160: 75 62 73 63 72 69 70 74 2E 20 54 68 65 0D 0A 73 ubscript. The..s
000170: 75 62 73 63 72 69 70 74 20 6D 61 79 20 62 65 20 ubscript may be
000180: 61 20 6C 69 74 65 72 61 6C 20 69 6E 74 65 67 65 a literal intege
000190: 72 2C 20 6F 72 20 69 74 20 20 6D 61 79 20 20 62 r, or it may b
0001A0: 65 20 61 20 64 61 74 61 20 69 74 65 6D 20 74 68 e a data item th
0001B0: 61 74 20 68 61 73 20 62 65 65 6E 0D 0A 73 70 65 at has been..spe
0001C0: 63 69 66 69 65 64 20 61 73 20 61 6E 20 69 6E 74 cified as an int
0001D0: 65 67 65 72 2E 20 20 20 49 66 20 20 74 68 65 20 eger. If the
0001E0: 20 73 75 62 73 63 72 69 70 74 20 20 69 73 20 20 subscript is
0001F0: 73 69 67 6E 65 64 2C 20 20 74 68 65 20 73 69 67 signed, the sig
Size : 512 (Real : 512)
000000: 0D 0A 3D 3D 3D 3D 0D 0A 0D 0A 45 4C 45 4D 45 4E ..====....ELEMEN
000010: 54 3A 20 20 20 53 54 4F 50 0D 0A 0D 0A 46 4F 52 T: STOP....FOR
000020: 4D 41 54 3A 20 20 20 20 53 54 4F 50 20 7B 52 55 MAT: STOP {RU
000030: 4E 20 20 20 7D 0D 0A 20 20 20 20 20 20 20 20 20 N }..
000040: 20 20 20 20 20 20 20 7B 6C 69 74 65 72 61 6C 7D {literal}
000050: 0D 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A ....DESCRIPTION:
000060: 0D 0A 54 68 69 73 20 73 74 61 74 65 6D 65 6E 74 ..This statement
000070: 20 73 74 6F 70 73 20 65 78 65 63 75 74 69 6F 6E stops execution
000080: 20 6F 66 20 20 74 68 65 20 20 70 72 6F 67 72 61 of the progra
000090: 6D 2E 20 20 49 66 20 61 20 6C 69 74 65 72 61 6C m. If a literal
0000A0: 20 69 73 20 73 70 65 63 69 66 69 65 64 2C 0D 0A is specified,..
0000B0: 74 68 65 6E 20 74 68 65 20 6C 69 74 65 72 61 6C then the literal
0000C0: 20 69 73 20 20 64 69 73 70 6C 61 79 65 64 20 20 is displayed
0000D0: 6F 6E 20 20 74 68 65 20 20 63 6F 6E 73 6F 6C 65 on the console
0000E0: 20 20 61 6E 64 20 20 61 20 70 72 6F 6D 70 74 20 and a prompt
0000F0: 69 73 20 64 69 73 70 6C 61 79 65 64 0D 0A 67 69 is displayed..gi
000100: 76 69 6E 67 20 20 74 68 65 20 20 6F 70 65 72 61 ving the opera
000110: 74 6F 72 20 20 74 68 65 20 20 6F 70 74 69 6F 6E tor the option
000120: 20 20 6F 66 20 20 74 65 72 6D 69 6E 61 74 69 6E of terminatin
000130: 67 20 20 6F 72 20 20 63 6F 6E 74 69 6E 75 69 6E g or continuin
000140: 67 20 20 70 72 6F 67 72 61 6D 0D 0A 65 78 65 63 g program..exec
000150: 75 74 69 6F 6E 2E 0D 0A 0D 0A 45 58 41 4D 50 4C ution.....EXAMPL
000160: 45 53 3A 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A ES: STOP RUN...
000170: 20 20 20 20 20 20 20 20 20 20 20 53 54 4F 50 20 STOP
000180: 31 2E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 53 1... S
000190: 54 4F 50 20 27 49 4E 56 41 4C 49 44 20 46 49 4E TOP 'INVALID FIN
0001A0: 49 53 48 27 2E 0D 0A 0D 0A 46 6F 72 20 74 68 65 ISH'.....For the
0001B0: 20 6C 61 73 74 20 74 77 6F 20 65 78 61 6D 70 6C last two exampl
0001C0: 65 73 20 74 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 es the following
0001D0: 20 70 72 6F 6D 70 74 20 69 73 20 64 69 73 70 6C prompt is displ
0001E0: 61 79 65 64 3A 0D 0A 0D 0A 20 20 20 20 20 4F 50 ayed:.... OP
0001F0: 45 52 41 54 4F 52 20 45 4E 54 45 52 20 41 20 3C ERATOR ENTER A <
Size : 512 (Real : 512)
000000: 6E 20 6D 75 73 74 20 62 65 0D 0A 70 6F 73 69 74 n must be..posit
000010: 69 76 65 20 61 74 20 74 68 65 20 74 69 6D 65 20 ive at the time
000020: 6F 66 20 69 74 73 20 75 73 65 2E 0D 0A 0D 0A 45 of its use.....E
000030: 58 41 4D 50 4C 45 53 3A 20 20 41 28 31 30 29 0D XAMPLES: A(10).
000040: 0A 20 20 20 20 20 20 20 20 20 20 20 49 54 45 4D . ITEM
000050: 28 53 55 42 29 0D 0A 0D 0A 0D 0A 0D 0A 56 49 49 (SUB)........VII
000060: 2E 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 53 . ERROR MESSAGES
000070: 0D 0A 0D 0A 41 2E 20 43 6F 6D 70 69 6C 65 72 20 ....A. Compiler
000080: 46 61 74 61 6C 20 4D 65 73 73 61 67 65 73 0D 0A Fatal Messages..
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 42 52 ==========....BR
0000B0: 20 20 42 61 64 20 72 65 61 64 20 2D 20 64 69 73 Bad read - dis
0000C0: 6B 20 65 72 72 6F 72 2C 20 6E 6F 20 63 6F 72 72 k error, no corr
0000D0: 65 63 74 69 76 65 20 61 63 74 69 6F 6E 20 63 61 ective action ca
0000E0: 6E 20 62 65 20 74 61 6B 65 6E 20 69 6E 20 74 68 n be taken in th
0000F0: 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 43 4C e program.....CL
000100: 20 20 43 6C 6F 73 65 20 65 72 72 6F 72 20 2D 20 Close error -
000110: 75 6E 61 62 6C 65 20 74 6F 20 63 6C 6F 73 65 20 unable to close
000120: 74 68 65 20 6F 75 74 70 75 74 20 66 69 6C 65 2E the output file.
000130: 0D 0A 0D 0A 4D 41 20 20 4D 61 6B 65 20 65 72 72 ....MA Make err
000140: 6F 72 20 2D 20 63 6F 75 6C 64 20 6E 6F 74 20 63 or - could not c
000150: 72 65 61 74 65 20 74 68 65 20 6F 75 74 70 75 74 reate the output
000160: 20 66 69 6C 65 2E 0D 0A 0D 0A 4D 4F 20 20 4D 65 file.....MO Me
000170: 6D 6F 72 79 20 6F 76 65 72 66 6C 6F 77 20 2D 20 mory overflow -
000180: 74 68 65 20 63 6F 64 65 20 61 6E 64 20 63 6F 6E the code and con
000190: 73 74 61 6E 74 73 20 67 65 6E 65 72 61 74 65 64 stants generated
0001A0: 20 77 69 6C 6C 20 6E 6F 74 20 66 69 74 20 69 6E will not fit in
0001B0: 20 74 68 65 0D 0A 20 20 20 20 20 61 6C 6C 6F 74 the.. allot
0001C0: 74 65 64 20 6D 65 6D 6F 72 79 20 73 70 61 63 65 ted memory space
0001D0: 2E 0D 0A 0D 0A 4F 50 20 20 4F 70 65 6E 20 65 72 .....OP Open er
0001E0: 72 6F 72 20 2D 20 63 61 6E 20 6E 6F 74 20 6F 70 ror - can not op
0001F0: 65 6E 20 74 68 65 20 69 6E 70 75 74 20 66 69 6C en the input fil
Size : 512 (Real : 512)
000000: 63 65 65 64 73 20 33 30 3F 20 63 68 61 72 61 63 ceeds 30? charac
000010: 74 65 72 73 2E 0D 0A 0D 0A 50 31 20 20 4D 6F 72 ters.....P1 Mor
000020: 65 20 74 68 61 6E 20 6F 6E 65 20 66 6C 6F 61 74 e than one float
000030: 20 73 79 6D 62 6F 6C 20 64 65 63 6C 61 72 65 64 symbol declared
000040: 2E 0D 0A 0D 0A 50 32 20 20 4E 6F 6E 2D 6E 75 6D .....P2 Non-num
000050: 65 72 69 63 20 64 61 74 61 20 69 6E 20 72 65 70 eric data in rep
000060: 65 74 69 74 69 6F 6E 20 63 6C 61 75 73 65 20 6F etition clause o
000070: 72 20 6D 69 73 73 69 6E 67 20 72 69 67 68 74 20 r missing right
000080: 70 61 72 65 6E 74 68 65 73 69 73 2E 0D 0A 0D 0A parenthesis.....
000090: 50 33 20 20 49 6E 76 61 6C 69 64 20 6F 72 20 69 P3 Invalid or i
0000A0: 6E 63 6F 6D 70 61 74 69 62 6C 65 20 73 79 6D 62 ncompatible symb
0000B0: 6F 6C 20 69 6E 20 70 69 63 20 63 6C 61 75 73 65 ol in pic clause
0000C0: 2E 0D 0A 0D 0A 50 34 20 20 49 6E 76 61 6C 69 64 .....P4 Invalid
0000D0: 20 73 79 6D 62 6F 6C 28 73 29 20 65 6D 62 65 64 symbol(s) embed
0000E0: 64 65 64 20 77 69 74 68 69 6E 20 61 20 66 6C 6F ded within a flo
0000F0: 61 74 20 73 79 6D 62 6F 6C 20 6F 6E 6C 79 20 2F at symbol only /
000100: 2C 4F 2C 42 2C 27 2C 27 20 61 6C 6C 6F 77 65 64 ,O,B,',' allowed
000110: 2E 0D 0A 0D 0A 50 35 20 20 49 6E 76 61 6C 69 64 .....P5 Invalid
000120: 20 63 6F 6D 62 69 6E 61 74 69 6F 6E 20 6F 66 20 combination of
000130: 73 79 6D 62 6F 6C 73 20 69 6E 20 70 69 63 20 63 symbols in pic c
000140: 6C 61 75 73 65 2C 20 74 79 70 65 20 63 61 6E 6E lause, type cann
000150: 6F 74 20 62 65 20 64 65 74 65 72 6D 69 6E 65 64 ot be determined
000160: 2E 0D 0A 0D 0A 50 36 20 20 4E 75 6D 62 65 72 20 .....P6 Number
000170: 6F 66 20 70 6F 73 73 69 62 6C 65 20 6E 75 6D 65 of possible nume
000180: 72 69 63 20 65 6E 74 72 69 65 73 20 65 78 63 65 ric entries exce
000190: 65 64 73 20 72 65 67 69 73 74 65 72 20 6C 65 6E eds register len
0001A0: 67 74 68 20 6D 61 78 20 69 73 20 31 38 2E 0D 0A gth max is 18...
0001B0: 0D 0A 50 46 20 20 50 61 72 61 67 72 61 70 68 20 ..PF Paragraph
0001C0: 66 69 72 73 74 20 2D 20 61 20 73 65 63 74 69 6F first - a sectio
0001D0: 6E 20 68 65 61 64 65 72 20 77 61 73 20 70 72 6F n header was pro
0001E0: 64 75 63 65 64 20 61 66 74 65 72 20 61 20 70 61 duced after a pa
0001F0: 72 61 67 72 61 70 68 0D 0A 20 20 20 20 20 68 65 ragraph.. he
Size : 512 (Real : 512)
000000: 65 2C 20 6F 72 20 6E 6F 20 73 75 63 68 20 66 69 e, or no such fi
000010: 6C 65 20 70 72 65 73 65 6E 74 2E 0D 0A 0D 0A 53 le present.....S
000020: 4F 20 20 53 74 61 63 6B 20 6F 76 65 72 66 6C 6F O Stack overflo
000030: 77 20 2D 20 4C 41 4C 52 20 28 31 29 20 70 61 72 w - LALR (1) par
000040: 73 69 6E 67 20 73 74 61 63 6B 20 68 61 73 20 65 sing stack has e
000050: 78 63 65 65 64 65 64 20 69 74 73 20 6D 61 78 69 xceeded its maxi
000060: 6D 75 6D 0D 0A 20 20 20 20 20 61 6C 6C 6F 77 61 mum.. allowa
000070: 62 6C 65 20 73 69 7A 65 2E 0D 0A 0D 0A 53 54 20 ble size.....ST
000080: 20 53 79 6D 62 6F 6C 20 74 61 62 6C 65 20 6F 76 Symbol table ov
000090: 65 72 66 6C 6F 77 20 2D 20 74 68 65 20 74 61 62 erflow - the tab
0000A0: 6C 65 20 69 73 20 74 6F 6F 20 6C 61 72 67 65 20 le is too large
0000B0: 66 6F 72 20 74 68 65 20 61 6C 6C 6F 63 61 74 65 for the allocate
0000C0: 64 20 73 70 61 63 65 2E 0D 0A 0D 0A 57 52 20 20 d space.....WR
0000D0: 57 72 69 74 65 20 65 72 72 6F 72 20 2D 20 64 69 Write error - di
0000E0: 73 6B 20 65 72 72 6F 72 2C 20 63 6F 75 6C 64 20 sk error, could
0000F0: 6E 6F 74 20 77 72 69 74 65 20 61 20 63 6F 64 65 not write a code
000100: 20 72 65 63 6F 72 64 20 74 6F 20 74 68 65 20 64 record to the d
000110: 69 73 6B 2E 0D 0A 0D 0A 0D 0A 42 2E 20 43 6F 6D isk.......B. Com
000120: 70 69 6C 65 72 20 57 61 72 6E 69 6E 67 73 0D 0A piler Warnings..
000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000140: 3D 3D 3D 3D 0D 0A 0D 0A 44 44 20 20 43 61 72 72 ====....DD Carr
000150: 69 61 67 65 20 43 6F 6E 74 72 6F 6C 20 65 72 72 iage Control err
000160: 6F 72 20 2D 20 54 68 65 20 57 52 49 54 45 20 42 or - The WRITE B
000170: 45 46 4F 52 45 2F 41 46 54 45 52 20 41 44 56 41 EFORE/AFTER ADVA
000180: 4E 43 49 4E 47 20 6F 70 74 69 6F 6E 20 63 61 6E NCING option can
000190: 0D 0A 20 20 20 20 20 6F 6E 6C 79 20 62 65 20 75 .. only be u
0001A0: 73 65 64 20 77 69 74 68 20 73 65 71 75 65 6E 74 sed with sequent
0001B0: 69 61 6C 20 66 69 6C 65 73 2E 0D 0A 0D 0A 43 45 ial files.....CE
0001C0: 20 20 43 6C 6F 73 65 20 65 72 72 6F 72 20 2D 20 Close error -
0001D0: 61 74 74 65 6D 70 74 65 64 20 74 6F 20 63 6C 6F attempted to clo
0001E0: 73 65 20 61 20 6E 6F 6E 2D 65 78 69 73 74 69 6E se a non-existin
0001F0: 67 20 66 69 6C 65 2E 0D 0A 0D 0A 44 44 20 20 44 g file.....DD D
Size : 512 (Real : 512)
000000: 61 64 65 72 2C 20 77 68 69 63 68 20 69 73 20 6E ader, which is n
000010: 6F 74 20 69 6E 20 61 20 73 65 63 74 69 6F 6E 2E ot in a section.
000020: 0D 0A 0D 0A 52 31 20 20 52 65 64 65 66 69 6E 65 ....R1 Redefine
000030: 20 6E 65 73 74 69 6E 67 20 2D 20 61 20 72 65 64 nesting - a red
000040: 65 66 69 6E 69 74 69 6F 6E 20 77 61 73 20 6D 61 efinition was ma
000050: 64 65 20 66 6F 72 20 61 6E 20 69 74 65 6D 20 77 de for an item w
000060: 68 69 63 68 20 69 73 20 70 61 72 74 20 6F 66 0D hich is part of.
000070: 0A 20 20 20 20 20 61 20 72 65 64 65 66 69 6E 65 . a redefine
000080: 64 20 69 74 65 6D 2E 0D 0A 0D 0A 52 32 20 20 52 d item.....R2 R
000090: 65 64 65 66 69 6E 65 20 6C 65 6E 67 74 68 20 2D edefine length -
0000A0: 20 74 68 65 20 6C 65 6E 67 74 68 20 6F 66 20 74 the length of t
0000B0: 68 65 20 72 65 64 65 66 69 6E 69 74 69 6F 6E 20 he redefinition
0000C0: 69 74 65 6D 20 77 61 73 20 67 72 65 61 74 65 72 item was greater
0000D0: 20 74 68 61 6E 0D 0A 20 20 20 20 20 74 68 65 20 than.. the
0000E0: 69 74 65 6D 20 74 68 61 74 20 69 73 20 72 65 64 item that is red
0000F0: 65 66 69 6E 65 64 2E 20 20 54 68 61 74 20 69 73 efined. That is
000100: 20 6F 6E 6C 79 20 61 6C 6C 6F 77 65 64 20 61 74 only allowed at
000110: 20 74 68 65 20 30 31 20 6C 65 76 65 6C 2E 20 54 the 01 level. T
000120: 68 69 73 0D 0A 20 20 20 20 20 65 72 72 6F 72 20 his.. error
000130: 6D 65 73 73 61 67 65 20 6D 61 79 20 62 65 20 70 message may be p
000140: 72 69 6E 74 65 64 20 6F 75 74 20 6F 6E 65 20 69 rinted out one i
000150: 64 65 6E 74 69 66 69 65 72 20 70 61 73 74 20 74 dentifier past t
000160: 68 65 20 72 65 64 65 66 69 6E 69 6E 67 0D 0A 20 he redefining..
000170: 20 20 20 20 69 64 65 6E 74 69 66 69 65 72 20 72 identifier r
000180: 65 63 6F 72 64 20 69 6E 20 77 68 69 63 68 20 69 ecord in which i
000190: 74 20 6F 63 63 75 72 72 65 64 2E 0D 0A 0D 0A 52 t occurred.....R
0001A0: 33 20 20 52 65 64 65 66 69 6E 65 73 20 6D 69 73 3 Redefines mis
0001B0: 70 6C 61 63 65 64 20 2D 20 61 20 72 65 64 65 66 placed - a redef
0001C0: 69 6E 65 73 20 77 61 73 20 61 74 74 65 6D 70 74 ines was attempt
0001D0: 65 64 20 69 6E 20 74 68 65 20 46 49 4C 45 20 53 ed in the FILE S
0001E0: 45 43 54 49 4F 4E 20 6F 66 0D 0A 20 20 20 20 20 ECTION of..
0001F0: 74 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 the source progr
Size : 512 (Real : 512)
000000: 75 70 6C 69 63 61 74 65 20 44 65 63 6C 61 72 61 uplicate Declara
000010: 74 69 6F 6E 20 2D 20 74 68 65 20 69 64 65 6E 74 tion - the ident
000020: 69 66 69 65 72 20 6E 61 6D 65 20 68 61 73 20 62 ifier name has b
000030: 65 65 6E 20 70 72 65 76 69 6F 75 73 6C 79 0D 0A een previously..
000040: 20 20 20 20 20 64 65 63 6C 61 72 65 64 2E 0D 0A declared...
000050: 0D 0A 45 4C 20 20 45 78 74 72 61 20 6C 65 76 65 ..EL Extra leve
000060: 6C 73 20 2D 20 6F 6E 6C 79 20 31 30 20 61 72 65 ls - only 10 are
000070: 20 61 6C 6C 6F 77 65 64 2E 0D 0A 0D 0A 46 54 20 allowed.....FT
000080: 20 46 69 6C 65 20 74 79 70 65 20 2D 20 74 68 65 File type - the
000090: 20 64 61 74 61 20 65 6C 65 6D 65 6E 74 20 75 73 data element us
0000A0: 65 64 20 69 6E 20 61 20 72 65 61 64 20 6F 72 20 ed in a read or
0000B0: 77 72 69 74 65 20 73 74 61 74 65 6D 65 6E 74 20 write statement
0000C0: 69 73 20 6E 6F 74 20 61 0D 0A 20 20 20 20 20 66 is not a.. f
0000D0: 69 6C 65 20 6E 61 6D 65 2E 0D 0A 0D 0A 49 41 20 ile name.....IA
0000E0: 20 49 6E 76 61 6C 69 64 20 61 63 63 65 73 73 20 Invalid access
0000F0: 2D 20 74 68 65 20 73 70 65 63 69 66 69 65 64 20 - the specified
000100: 6F 70 74 69 6F 6E 73 20 61 72 65 20 6E 6F 74 20 options are not
000110: 61 6E 20 61 6C 6C 6F 77 61 62 6C 65 20 63 6F 6D an allowable com
000120: 62 69 6E 61 74 69 6F 6E 2E 0D 0A 0D 0A 49 44 20 bination.....ID
000130: 20 49 64 65 6E 74 69 66 69 65 72 20 73 74 61 63 Identifier stac
000140: 6B 20 6F 76 65 72 66 6C 6F 77 20 2D 20 6D 6F 72 k overflow - mor
000150: 65 20 74 68 61 6E 20 32 30 20 69 74 65 6D 73 20 e than 20 items
000160: 69 6E 20 61 20 47 4F 20 2D 20 44 45 50 45 4E 44 in a GO - DEPEND
000170: 49 4E 47 0D 0A 20 20 20 20 20 73 74 61 74 65 6D ING.. statem
000180: 65 6E 74 2E 0D 0A 0D 0A 49 53 20 20 49 6E 76 61 ent.....IS Inva
000190: 6C 69 64 20 73 75 62 73 63 72 69 70 74 20 2D 20 lid subscript -
0001A0: 61 6E 20 69 74 65 6D 20 77 61 73 20 73 75 62 73 an item was subs
0001B0: 63 72 69 70 74 65 64 20 62 75 74 20 69 74 20 77 cripted but it w
0001C0: 61 73 20 6E 6F 74 20 64 65 66 69 6E 65 64 20 62 as not defined b
0001D0: 79 20 61 6E 0D 0A 20 20 20 20 20 4F 43 43 55 52 y an.. OCCUR
0001E0: 53 2E 0D 0A 0D 0A 49 54 20 20 49 6E 76 61 6C 69 S.....IT Invali
0001F0: 64 20 74 79 70 65 20 2D 20 74 68 65 20 66 69 65 d type - the fie
Size : 512 (Real : 512)
000000: 61 6D 2E 0D 0A 0D 0A 53 45 20 20 53 63 61 6E 6E am.....SE Scann
000010: 65 72 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 er error - the s
000020: 63 61 6E 6E 65 72 20 77 61 73 20 75 6E 61 62 6C canner was unabl
000030: 65 20 74 6F 20 72 65 61 64 20 61 6E 20 69 64 65 e to read an ide
000040: 6E 74 69 66 69 65 72 20 64 75 65 20 74 6F 20 61 ntifier due to a
000050: 6E 0D 0A 20 20 20 20 20 69 6E 76 61 6C 69 64 20 n.. invalid
000060: 63 68 61 72 61 63 74 65 72 2E 0D 0A 0D 0A 53 47 character.....SG
000070: 20 20 53 69 67 6E 20 65 72 72 6F 72 20 2D 20 65 Sign error - e
000080: 69 74 68 65 72 20 61 20 73 69 67 6E 20 77 61 73 ither a sign was
000090: 20 65 78 70 65 63 74 65 64 20 61 6E 64 20 6E 6F expected and no
0000A0: 74 20 66 6F 75 6E 64 2C 20 6F 72 20 61 20 73 69 t found, or a si
0000B0: 67 6E 20 77 61 73 0D 0A 20 20 20 20 20 70 72 65 gn was.. pre
0000C0: 73 65 6E 74 20 77 68 65 6E 20 6E 6F 74 20 76 61 sent when not va
0000D0: 6C 69 64 2E 0D 0A 0D 0A 53 4C 20 20 53 69 67 6E lid.....SL Sign
0000E0: 69 66 69 63 61 6E 63 65 20 6C 6F 73 73 20 2D 20 ificance loss -
0000F0: 74 68 65 20 6E 75 6D 62 65 72 20 61 73 73 69 67 the number assig
000100: 6E 65 64 20 61 73 20 61 20 76 61 6C 75 65 20 69 ned as a value i
000110: 73 20 6C 61 72 67 65 72 20 74 68 61 6E 20 74 68 s larger than th
000120: 65 0D 0A 20 20 20 20 20 66 69 65 6C 64 20 64 65 e.. field de
000130: 66 69 6E 65 64 2E 0D 0A 0D 0A 54 45 20 20 54 79 fined.....TE Ty
000140: 70 65 20 65 72 72 6F 72 20 2D 20 74 68 65 20 74 pe error - the t
000150: 79 70 65 20 6F 66 20 61 20 73 75 62 73 63 72 69 ype of a subscri
000160: 70 74 20 69 6E 64 65 78 20 69 73 20 6E 6F 74 20 pt index is not
000170: 69 6E 74 65 67 65 72 20 6E 75 6D 65 72 69 63 2E integer numeric.
000180: 0D 0A 0D 0A 55 44 20 20 55 6E 64 65 63 6C 61 72 ....UD Undeclar
000190: 65 64 20 69 64 65 6E 74 69 66 69 65 72 20 2D 20 ed identifier -
0001A0: 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 77 the identifier w
0001B0: 61 73 20 6E 6F 74 20 64 65 63 6C 61 72 65 64 2E as not declared.
0001C0: 0D 0A 0D 0A 55 4C 20 20 55 6E 72 65 73 6F 6C 76 ....UL Unresolv
0001D0: 65 64 20 6C 61 62 65 6C 20 2D 20 6C 61 62 65 6C ed label - label
0001E0: 20 68 61 73 20 6E 6F 74 20 62 65 65 6E 20 72 65 has not been re
0001F0: 66 65 72 65 6E 63 65 64 2E 20 54 68 69 73 20 77 ferenced. This w
Size : 512 (Real : 512)
000000: 6C 64 20 74 79 70 65 73 20 64 6F 20 6E 6F 74 20 ld types do not
000010: 6D 61 74 63 68 20 66 6F 72 20 74 68 69 73 20 73 match for this s
000020: 74 61 74 65 6D 65 6E 74 2E 0D 0A 0D 0A 4C 45 20 tatement.....LE
000030: 20 4C 69 74 65 72 61 6C 20 65 72 72 6F 72 20 2D Literal error -
000040: 20 61 20 6C 69 74 65 72 61 6C 20 76 61 6C 75 65 a literal value
000050: 20 77 61 73 20 61 73 73 69 67 6E 65 64 20 74 6F was assigned to
000060: 20 61 6E 20 69 74 65 6D 20 74 68 61 74 20 69 73 an item that is
000070: 20 70 61 72 74 20 6F 66 0D 0A 20 20 20 20 20 61 part of.. a
000080: 20 67 72 6F 75 70 20 69 74 65 6D 20 70 72 65 76 group item prev
000090: 69 6F 75 73 6C 79 20 61 73 73 69 67 6E 65 64 20 iously assigned
0000A0: 61 20 76 61 6C 75 65 2E 0D 0A 0D 0A 4C 56 20 20 a value.....LV
0000B0: 4C 69 74 65 72 61 6C 20 76 61 6C 75 65 20 65 72 Literal value er
0000C0: 72 6F 72 20 2D 20 74 68 65 20 50 49 43 54 55 52 ror - the PICTUR
0000D0: 45 20 63 6C 61 75 73 65 20 66 69 65 6C 64 20 74 E clause field t
0000E0: 79 70 65 20 64 6F 65 73 20 6E 6F 74 20 6D 61 74 ype does not mat
0000F0: 63 68 20 74 68 65 0D 0A 20 20 20 20 20 56 41 4C ch the.. VAL
000100: 55 45 20 63 6C 61 75 73 65 20 6C 69 74 65 72 61 UE clause litera
000110: 6C 20 74 79 70 65 2E 0D 0A 0D 0A 4C 37 20 20 4C l type.....L7 L
000120: 65 76 65 6C 20 37 37 20 65 72 72 6F 72 20 2D 20 evel 77 error -
000130: 6C 65 76 65 6C 20 37 37 20 75 73 65 64 20 69 6E level 77 used in
000140: 63 6F 72 72 65 63 74 6C 79 2E 0D 0A 0D 0A 4D 44 correctly.....MD
000150: 20 20 4D 75 6C 74 69 70 6C 65 20 64 65 63 69 6D Multiple decim
000160: 61 6C 73 20 2D 20 61 20 6E 75 6D 65 72 69 63 20 als - a numeric
000170: 6C 69 74 65 72 61 6C 20 69 6E 20 61 20 56 41 4C literal in a VAL
000180: 55 45 20 63 6C 61 75 73 65 20 63 6F 6E 74 61 69 UE clause contai
000190: 6E 73 20 6D 6F 72 65 0D 0A 20 20 20 20 20 74 68 ns more.. th
0001A0: 61 6E 20 6F 6E 65 20 73 69 67 6E 2E 0D 0A 0D 0A an one sign.....
0001B0: 4E 46 20 20 4E 6F 20 66 69 6C 65 20 61 73 73 69 NF No file assi
0001C0: 67 6E 65 64 20 2D 20 74 68 65 72 65 20 77 61 73 gned - there was
0001D0: 20 6E 6F 20 53 45 4C 45 43 54 20 63 6C 61 75 73 no SELECT claus
0001E0: 65 20 66 6F 72 20 74 68 69 73 20 66 69 6C 65 2E e for this file.
0001F0: 0D 0A 0D 0A 4E 49 20 20 4E 6F 74 20 69 6D 70 6C ....NI Not impl
Size : 512 (Real : 512)
000000: 61 72 6E 69 6E 67 20 77 69 6C 6C 20 62 65 0D 0A arning will be..
000010: 20 20 20 20 20 67 69 76 65 6E 20 74 6F 20 61 6C given to al
000020: 6C 20 72 65 66 65 72 65 6E 63 65 73 20 74 6F 20 l references to
000030: 65 78 74 65 72 6E 61 6C 20 73 75 62 72 6F 75 74 external subrout
000040: 69 6E 65 73 2E 0D 0A 0D 0A 56 45 20 20 56 61 6C ines.....VE Val
000050: 75 65 20 65 72 72 6F 72 20 2D 20 61 20 76 61 6C ue error - a val
000060: 75 65 20 73 74 61 74 65 6D 65 6E 74 20 77 61 73 ue statement was
000070: 20 61 73 73 69 67 6E 65 64 20 74 6F 20 61 6E 20 assigned to an
000080: 69 74 65 6D 20 69 6E 20 74 68 65 20 66 69 6C 65 item in the file
000090: 0D 0A 20 20 20 20 20 73 65 63 74 69 6F 6E 2E 0D .. section..
0000A0: 0A 0D 0A 57 4C 20 20 57 72 6F 6E 67 20 6C 65 76 ...WL Wrong lev
0000B0: 65 6C 20 65 72 72 6F 72 20 2D 20 70 72 6F 67 72 el error - progr
0000C0: 61 6D 20 61 74 74 65 6D 70 74 65 64 20 74 6F 20 am attempted to
0000D0: 77 72 69 74 65 20 61 20 72 65 63 6F 72 64 20 6F write a record o
0000E0: 74 68 65 72 20 74 68 61 6E 20 61 6E 0D 0A 20 20 ther than an..
0000F0: 20 20 20 30 31 20 6C 65 76 65 6C 20 72 65 63 6F 01 level reco
000100: 72 64 20 74 6F 20 61 6E 20 6F 75 74 70 75 74 20 rd to an output
000110: 66 69 6C 65 2E 0D 0A 0D 0A 0D 0A 43 2E 20 49 6E file.......C. In
000120: 74 65 72 70 72 65 74 65 72 20 46 61 74 61 6C 20 terpreter Fatal
000130: 45 72 72 6F 72 73 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D Errors..========
000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000150: 3D 3D 3D 0D 0A 0D 0A 43 4C 20 20 43 6C 6F 73 65 ===....CL Close
000160: 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 error - the sys
000170: 74 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 tem was unable t
000180: 6F 20 63 6C 6F 73 65 20 61 6E 20 6F 75 74 70 75 o close an outpu
000190: 74 20 66 69 6C 65 2E 0D 0A 0D 0A 43 4F 20 20 43 t file.....CO C
0001A0: 61 6C 6C 20 73 74 61 63 6B 20 4F 76 65 72 66 6C all stack Overfl
0001B0: 6F 77 20 2D 20 69 6E 73 75 66 66 69 63 69 65 6E ow - insufficien
0001C0: 74 20 6D 65 6D 6F 72 79 20 61 76 61 69 6C 61 62 t memory availab
0001D0: 6C 65 20 74 6F 20 74 72 61 6E 73 66 65 72 20 76 le to transfer v
0001E0: 61 72 69 61 62 6C 65 0D 0A 20 20 20 20 20 61 64 ariable.. ad
0001F0: 64 72 65 73 73 27 20 61 6E 64 2F 6F 72 20 72 65 dress' and/or re
Size : 512 (Real : 512)
000000: 65 6D 65 6E 74 65 64 20 2D 20 61 20 70 72 6F 64 emented - a prod
000010: 75 63 74 69 6F 6E 20 77 61 73 20 75 73 65 64 20 uction was used
000020: 74 68 61 74 20 69 73 20 6E 6F 74 20 69 6D 70 6C that is not impl
000030: 65 6D 65 6E 74 65 64 2E 0D 0A 0D 0A 4E 50 20 20 emented.....NP
000040: 4E 6F 20 70 72 6F 64 75 63 74 69 6F 6E 20 2D 20 No production -
000050: 6E 6F 20 70 72 6F 64 75 63 74 69 6F 6E 20 65 78 no production ex
000060: 69 73 74 73 20 66 6F 72 20 74 68 65 20 63 75 72 ists for the cur
000070: 72 65 6E 74 20 70 61 72 73 65 72 0D 0A 20 20 20 rent parser..
000080: 20 20 63 6F 6E 66 69 67 75 72 61 74 69 6F 6E 3B configuration;
000090: 20 20 65 72 72 6F 72 20 72 65 63 6F 76 65 72 79 error recovery
0000A0: 20 77 69 6C 6C 20 61 75 74 6F 6D 61 74 69 63 61 will automatica
0000B0: 6C 6C 79 20 6F 63 63 75 72 2E 0D 0A 0D 0A 4E 56 lly occur.....NV
0000C0: 20 20 4E 75 6D 65 72 69 63 20 76 61 6C 75 65 20 Numeric value
0000D0: 2D 20 61 20 6E 75 6D 65 72 69 63 20 76 61 6C 75 - a numeric valu
0000E0: 65 20 77 61 73 20 61 73 73 69 67 6E 65 64 20 74 e was assigned t
0000F0: 6F 20 61 20 6E 6F 6E 2D 6E 75 6D 65 72 69 63 20 o a non-numeric
000100: 69 74 65 6D 2E 0D 0A 0D 0A 4F 45 20 20 4F 70 65 item.....OE Ope
000110: 6E 20 65 72 72 6F 72 20 2D 20 61 74 74 65 6D 70 n error - attemp
000120: 74 20 74 6F 20 6F 70 65 6E 20 61 20 66 69 6C 65 t to open a file
000130: 20 74 68 61 74 20 77 61 73 20 6E 6F 74 20 64 65 that was not de
000140: 63 6C 61 72 65 64 3B 20 6F 72 20 61 74 74 65 6D clared; or attem
000150: 70 74 65 64 0D 0A 20 20 20 20 20 74 6F 20 6F 70 pted.. to op
000160: 65 6E 20 61 20 66 69 6C 65 20 66 6F 72 20 49 2D en a file for I-
000170: 4F 20 74 68 61 74 20 77 61 73 20 6E 6F 74 20 61 O that was not a
000180: 20 52 45 4C 41 54 49 56 45 20 66 69 6C 65 2E 0D RELATIVE file..
000190: 0A 0D 0A 4F 4C 20 20 4F 43 43 55 52 53 20 4C 45 ...OL OCCURS LE
0001A0: 56 45 4C 20 2D 20 30 31 20 61 6E 64 20 37 37 20 VEL - 01 and 77
0001B0: 6C 65 76 65 6C 73 20 63 61 6E 20 6E 6F 74 20 63 levels can not c
0001C0: 6F 6E 74 61 69 6E 20 61 6E 20 6F 63 63 75 72 73 ontain an occurs
0001D0: 20 63 6C 61 75 73 65 2E 0D 0A 0D 0A 50 43 20 20 clause.....PC
0001E0: 50 69 63 74 75 72 65 20 63 6C 61 75 73 65 20 2D Picture clause -
0001F0: 20 61 20 70 69 63 20 63 6C 61 75 73 65 20 65 78 a pic clause ex
Size : 512 (Real : 512)
000000: 74 75 72 6E 20 6C 6F 63 61 74 69 6F 6E 20 66 6F turn location fo
000010: 72 20 61 20 73 75 62 72 6F 75 74 69 6E 65 20 63 r a subroutine c
000020: 61 6C 6C 2E 0D 0A 0D 0A 4D 45 20 20 4D 61 6B 65 all.....ME Make
000030: 20 65 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 error - the sys
000040: 74 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 tem was unable t
000050: 6F 20 6D 61 6B 65 20 61 6E 20 6F 75 74 70 75 74 o make an output
000060: 20 66 69 6C 65 20 6F 6E 20 74 68 65 20 64 69 73 file on the dis
000070: 6B 2E 0D 0A 0D 0A 4E 46 20 20 4E 6F 20 66 69 6C k.....NF No fil
000080: 65 20 2D 20 61 6E 20 69 6E 70 75 74 20 66 69 6C e - an input fil
000090: 65 20 77 69 74 68 20 74 68 65 20 67 69 76 65 6E e with the given
0000A0: 20 6E 61 6D 65 20 63 6F 75 6C 64 20 6E 6F 74 20 name could not
0000B0: 62 65 20 6F 70 65 6E 65 64 2E 0D 0A 0D 0A 4F 45 be opened.....OE
0000C0: 20 20 4F 70 65 6E 20 45 72 72 6F 72 20 2D 20 61 Open Error - a
0000D0: 74 74 65 6D 70 74 20 74 6F 20 6F 70 65 6E 20 61 ttempt to open a
0000E0: 20 66 69 6C 65 20 77 68 69 63 68 20 77 61 73 20 file which was
0000F0: 61 6C 72 65 61 64 79 20 6F 70 65 6E 2E 0D 0A 0D already open....
000100: 0A 4F 50 20 20 4F 70 65 6E 20 45 72 72 6F 72 20 .OP Open Error
000110: 2D 20 74 68 65 20 73 79 73 74 65 6D 20 77 61 73 - the system was
000120: 20 75 6E 61 62 6C 65 20 74 6F 20 6F 70 65 6E 20 unable to open
000130: 61 20 66 69 6C 65 2E 0D 0A 0D 0A 50 53 20 20 50 a file.....PS P
000140: 72 6F 63 65 64 75 72 65 20 53 74 61 63 6B 20 2D rocedure Stack -
000150: 20 6E 6F 74 20 65 6E 6F 75 67 68 20 6D 65 6D 6F not enough memo
000160: 72 79 20 74 6F 20 6C 6F 61 64 20 61 6C 6C 20 73 ry to load all s
000170: 75 62 72 6F 75 74 69 6E 65 73 2E 0D 0A 0D 0A 53 ubroutines.....S
000180: 4F 20 20 53 75 62 72 6F 75 74 69 6E 65 20 4F 76 O Subroutine Ov
000190: 65 72 66 6C 6F 77 20 2D 20 73 75 62 72 6F 75 74 erflow - subrout
0001A0: 69 6E 65 20 73 79 6D 62 6F 6C 20 74 61 62 6C 65 ine symbol table
0001B0: 20 6F 76 65 72 66 6C 6F 77 2E 0D 0A 0D 0A 57 31 overflow.....W1
0001C0: 20 20 57 72 69 74 65 20 6E 6F 6E 2D 73 65 71 75 Write non-sequ
0001D0: 65 6E 74 69 61 6C 20 2D 20 61 74 74 65 6D 70 74 ential - attempt
0001E0: 65 64 20 74 6F 20 57 52 49 54 45 20 74 6F 20 61 ed to WRITE to a
0001F0: 20 66 69 6C 65 20 6F 70 65 6E 65 64 20 66 6F 72 file opened for
Size : 512 (Real : 512)
000000: 00 01 C0 4F 50 45 4E 49 4E 47 20 4D 45 4E 55 20 ...OPENING MENU
000010: 53 43 52 45 45 4E 00 07 00 AA 00 01 C0 00 07 00 SCREEN..........
000020: B4 00 AD 10 00 23 00 BE 00 A9 19 1C 2C 0F 01 BF .....#......,...
000030: 22 44 49 53 43 20 43 4F 4E 54 45 4E 54 53 20 50 "DISC CONTENTS P
000040: 52 4F 47 52 41 4D 22 00 23 00 C8 00 A9 19 1C 2C ROGRAM".#......,
000050: 10 01 BF 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..."============
000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 3B 00 D2 00 A9 =========".;....
000070: 19 0F 2C 12 01 BF 22 43 6F 70 79 72 69 67 68 74 ..,..."Copyright
000080: 20 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 20 26 Clive Bellaby &
000090: 20 57 41 43 43 49 2C 20 4F 63 74 6F 62 65 72 20 WACCI, October
0000A0: 31 39 39 31 22 00 09 00 DC 00 A9 0F 2C 15 00 4C 1991".......,..L
0000B0: 00 E6 00 BF 22 54 68 69 73 20 70 72 6F 67 72 61 ...."This progra
0000C0: 6D 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 m allows you to
0000D0: 76 69 65 77 20 74 68 65 20 64 69 73 63 20 63 6F view the disc co
0000E0: 6E 74 65 6E 74 73 20 61 6E 64 20 70 72 69 6E 74 ntents and print
0000F0: 20 74 68 65 20 64 69 73 63 22 00 46 00 F0 00 BF the disc".F....
000100: 22 63 6F 6E 74 65 6E 74 73 2E 20 49 66 20 79 6F "contents. If yo
000110: 75 20 75 73 65 20 74 68 65 20 70 72 69 6E 74 20 u use the print
000120: 6F 70 74 69 6F 6E 2C 20 70 6C 65 61 73 65 20 65 option, please e
000130: 6E 73 75 72 65 20 74 68 61 74 20 79 6F 75 72 22 nsure that your"
000140: 00 30 00 FA 00 BF 22 70 72 69 6E 74 65 72 20 69 .0...."printer i
000150: 73 20 27 6F 6E 2D 6C 69 6E 65 27 20 61 6E 64 20 s 'on-line' and
000160: 72 65 61 64 79 20 74 6F 20 70 72 69 6E 74 2E 22 ready to print."
000170: 00 0A 00 04 01 A9 0F 2C 19 0B 00 0F 00 0E 01 BF .......,........
000180: 22 4F 50 54 49 4F 4E 53 22 00 06 00 18 01 BF 00 "OPTIONS".......
000190: 15 00 22 01 BF 22 31 3A 20 20 56 69 65 77 20 46 ..".."1: View F
0001A0: 69 6C 65 22 00 43 00 2C 01 BF 22 32 3A 20 20 50 ile".C.,.."2: P
0001B0: 72 69 6E 74 20 46 69 6C 65 20 28 20 35 34 20 6C rint File ( 54 l
0001C0: 69 6E 65 73 20 70 65 72 20 70 61 67 65 2C 20 73 ines per page, s
0001D0: 69 6E 67 6C 65 20 73 68 65 65 74 73 20 6F 66 20 ingle sheets of
0001E0: 70 61 70 65 72 29 22 00 33 00 36 01 BF 22 33 3A paper)".3.6.."3:
0001F0: 20 20 50 72 69 6E 74 20 46 69 6C 65 20 28 20 31 Print File ( 1
Size : 512 (Real : 512)
000000: 20 49 4E 50 55 54 20 6F 72 0D 0A 20 20 20 20 20 INPUT or..
000010: 61 20 66 69 6C 65 20 6F 70 65 6E 65 64 20 66 6F a file opened fo
000020: 72 20 49 2D 4F 20 77 68 65 6E 20 41 43 43 45 53 r I-O when ACCES
000030: 53 20 77 61 73 20 53 45 51 55 45 4E 54 49 41 4C S was SEQUENTIAL
000040: 2E 0D 0A 0D 0A 57 32 20 20 57 72 6F 6E 67 20 6B .....W2 Wrong k
000050: 65 79 20 2D 20 61 74 74 65 6D 70 74 65 64 20 74 ey - attempted t
000060: 6F 20 63 68 61 6E 67 65 20 74 68 65 20 6B 65 79 o change the key
000070: 20 76 61 6C 75 65 20 74 6F 20 61 20 6C 6F 77 65 value to a lowe
000080: 72 20 76 61 6C 75 65 20 74 68 61 6E 20 74 68 65 r value than the
000090: 0D 0A 20 20 20 20 20 6E 75 6D 62 65 72 20 6F 66 .. number of
0000A0: 20 74 68 65 20 6C 61 73 74 20 72 65 63 6F 72 64 the last record
0000B0: 20 77 72 69 74 74 65 6E 2E 0D 0A 0D 0A 57 33 20 written.....W3
0000C0: 20 57 72 69 74 65 20 69 6E 70 75 74 20 2D 20 61 Write input - a
0000D0: 74 74 65 6D 70 74 65 64 20 74 6F 20 57 52 49 54 ttempted to WRIT
0000E0: 45 20 74 6F 20 61 20 66 69 6C 65 20 6F 70 65 6E E to a file open
0000F0: 65 64 20 66 6F 72 20 49 4E 50 55 54 2E 0D 0A 0D ed for INPUT....
000100: 0A 57 34 20 20 57 72 69 74 65 20 6E 6F 6E 2D 65 .W4 Write non-e
000110: 6D 70 74 79 20 2D 20 61 74 74 65 6D 70 74 65 64 mpty - attempted
000120: 20 74 6F 20 57 52 49 54 45 20 74 6F 20 61 20 6E to WRITE to a n
000130: 6F 6E 2D 65 6D 70 74 79 20 72 65 63 6F 72 64 2E on-empty record.
000140: 0D 0A 0D 0A 57 35 20 20 52 65 61 64 20 6F 75 74 ....W5 Read out
000150: 70 75 74 20 2D 20 61 74 74 65 6D 70 74 65 64 20 put - attempted
000160: 74 6F 20 52 45 41 44 20 61 20 66 69 6C 65 20 6F to READ a file o
000170: 70 65 6E 65 64 20 66 6F 72 20 4F 55 54 50 55 54 pened for OUTPUT
000180: 2E 0D 0A 0D 0A 57 36 20 20 52 65 77 72 69 74 65 .....W6 Rewrite
000190: 20 65 72 72 6F 72 20 2D 20 61 74 74 65 6D 70 74 error - attempt
0001A0: 65 64 20 74 6F 20 52 45 57 52 49 54 45 20 74 6F ed to REWRITE to
0001B0: 20 61 20 66 69 6C 65 20 6E 6F 74 20 6F 70 65 6E a file not open
0001C0: 65 64 20 66 6F 72 20 49 2D 4F 2E 0D 0A 0D 0A 57 ed for I-O.....W
0001D0: 37 20 20 52 65 77 72 69 74 65 20 65 72 72 6F 72 7 Rewrite error
0001E0: 20 2D 20 61 74 74 65 6D 70 74 65 64 20 74 6F 20 - attempted to
0001F0: 52 45 57 52 49 54 45 20 61 20 72 65 63 6F 72 64 REWRITE a record
Size : 512 (Real : 512)
000000: 31 20 69 6E 63 68 20 63 6F 6E 74 69 6E 75 6F 75 1 inch continuou
000010: 73 20 70 61 70 65 72 20 29 22 00 3B 00 40 01 BF s paper )".;.@..
000020: 22 34 3A 20 20 50 72 69 6E 74 20 46 69 6C 65 20 "4: Print File
000030: 28 20 31 31 2E 36 37 20 69 6E 63 68 20 27 41 34 ( 11.67 inch 'A4
000040: 27 20 63 6F 6E 74 69 6E 75 6F 75 73 20 70 61 70 ' continuous pap
000050: 65 72 20 29 22 00 06 00 4A 01 BF 00 18 00 54 01 er )"...J.....T.
000060: BF 22 30 3A 20 20 51 75 69 74 20 50 72 6F 67 72 ."0: Quit Progr
000070: 61 6D 22 00 06 00 5E 01 BF 00 27 00 68 01 BF 22 am"...^...'.h.."
000080: 5F 20 20 20 50 6C 65 61 73 65 20 45 6E 74 65 72 _ Please Enter
000090: 20 59 6F 75 72 20 53 65 6C 65 63 74 69 6F 6E 22 Your Selection"
0000A0: 00 07 00 72 01 01 C0 00 0C 00 7C 01 03 00 00 E1 ...r......|.....
0000B0: EF FF 43 00 13 00 86 01 A1 03 00 00 E1 EF 22 30 ..C..........."0
0000C0: 22 EB AD 10 01 98 00 13 00 90 01 A1 03 00 00 E1 "...............
0000D0: EF 22 31 22 EB A0 1E CC 01 00 37 00 9A 01 A1 03 ."1"......7.....
0000E0: 00 00 E1 EF 22 32 22 EB 0D 00 00 72 6F F7 EF 19 ...."2"....ro...
0000F0: 33 01 A0 1E 0C 03 01 C0 35 34 20 6C 69 6E 65 73 3.......54 lines
000100: 20 28 6C 65 73 73 20 33 20 68 65 61 64 65 72 29 (less 3 header)
000110: 00 42 00 A4 01 A1 03 00 00 E1 EF 22 33 22 EB 0D .B........."3"..
000120: 00 00 72 6F F7 EF 19 3C 01 A0 1E 0C 03 01 C0 36 ..ro...<.......6
000130: 36 20 6C 69 6E 65 73 20 28 6C 65 73 73 20 33 20 6 lines (less 3
000140: 68 65 61 64 65 72 20 26 20 33 20 66 6F 6F 74 65 header & 3 foote
000150: 72 29 00 42 00 AE 01 A1 03 00 00 E1 EF 22 34 22 r).B........."4"
000160: EB 0D 00 00 72 6F F7 EF 19 40 01 A0 1E 0C 03 01 ....ro...@......
000170: C0 37 30 20 6C 69 6E 65 73 20 28 6C 65 73 73 20 .70 lines (less
000180: 33 20 68 65 61 64 65 72 20 26 20 33 20 66 6F 6F 3 header & 3 foo
000190: 74 65 72 29 00 09 00 B8 01 A0 1E 7C 01 00 07 00 ter).......|....
0001A0: C2 01 01 C0 00 2A 00 CC 01 01 C0 44 49 53 50 4C .....*.....DISPL
0001B0: 41 59 20 46 49 4C 45 20 43 4F 4E 54 45 4E 54 53 AY FILE CONTENTS
0001C0: 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 00 07 ON THE SCREEN..
0001D0: 00 D6 01 01 C0 00 0B 00 E0 01 0D 00 00 E4 EF 0F ................
0001E0: 00 12 00 EA 01 D8 23 0F 2C 0F 2C 19 50 2C 0F 2C ......#.,.,.P,.,
0001F0: 19 16 00 13 00 F4 01 D8 23 10 2C 0F 2C 19 50 2C ........#.,.,.P,
Size : 512 (Real : 512)
000000: 20 62 65 66 6F 72 65 20 72 65 61 64 69 6E 67 20 before reading
000010: 74 68 65 20 66 69 6C 65 3B 0D 0A 20 20 20 20 20 the file;..
000020: 6F 72 20 6D 75 6C 74 69 70 6C 65 20 52 45 57 52 or multiple REWR
000030: 49 54 45 20 61 74 74 65 6D 70 74 73 20 77 69 74 ITE attempts wit
000040: 68 6F 75 74 20 64 6F 69 6E 67 20 61 20 52 45 41 hout doing a REA
000050: 44 20 62 65 74 77 65 65 6E 20 65 61 63 68 2E 0D D between each..
000060: 0A 0D 0A 0D 0A 44 2E 20 49 6E 74 65 72 70 72 65 .....D. Interpre
000070: 74 65 72 20 57 61 72 6E 69 6E 67 20 4D 65 73 73 ter Warning Mess
000080: 61 67 65 73 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ages..==========
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000A0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 45 4D 20 20 45 6E 64 =====....EM End
0000B0: 20 6D 61 72 6B 20 2D 20 61 20 72 65 63 6F 72 64 mark - a record
0000C0: 20 74 68 61 74 20 77 61 73 20 72 65 61 64 20 64 that was read d
0000D0: 69 64 20 6E 6F 74 20 68 61 76 65 20 61 20 63 61 id not have a ca
0000E0: 72 72 69 61 67 65 20 72 65 74 75 72 6E 20 6F 72 rriage return or
0000F0: 20 61 0D 0A 20 20 20 20 20 6C 69 6E 65 20 66 65 a.. line fe
000100: 65 64 20 69 6E 20 74 68 65 20 65 78 70 65 63 74 ed in the expect
000110: 65 64 20 6C 6F 63 61 74 69 6F 6E 2E 0D 0A 0D 0A ed location.....
000120: 47 44 20 20 47 6F 20 74 6F 20 64 65 70 65 6E 64 GD Go to depend
000130: 69 6E 67 20 2D 20 74 68 65 20 76 61 6C 75 65 20 ing - the value
000140: 6F 66 20 74 68 65 20 64 65 70 65 6E 64 69 6E 67 of the depending
000150: 20 69 6E 64 69 63 61 74 6F 72 20 77 61 73 20 67 indicator was g
000160: 72 65 61 74 65 72 20 74 68 61 6E 0D 0A 20 20 20 reater than..
000170: 20 20 74 68 65 20 6E 75 6D 62 65 72 20 6F 66 20 the number of
000180: 61 76 61 69 6C 61 62 6C 65 20 62 72 61 6E 63 68 available branch
000190: 20 61 64 64 72 65 73 73 65 73 2E 0D 0A 0D 0A 49 addresses.....I
0001A0: 43 20 20 49 6E 76 61 6C 69 64 20 63 68 61 72 61 C Invalid chara
0001B0: 63 74 65 72 20 2D 20 61 6E 20 69 6E 76 61 6C 69 cter - an invali
0001C0: 64 20 63 68 61 72 61 63 74 65 72 20 77 61 73 20 d character was
0001D0: 6C 6F 61 64 65 64 20 69 6E 74 6F 20 61 6E 20 6F loaded into an o
0001E0: 75 74 70 75 74 0D 0A 20 20 20 20 20 66 69 65 6C utput.. fiel
0001F0: 64 20 64 75 72 69 6E 67 20 61 6E 20 65 64 69 74 d during an edit
Size : 512 (Real : 512)
000000: 19 18 2C 19 19 00 17 00 FE 01 BF 23 10 2C FF 7B ..,........#.,.{
000010: 28 19 50 2C FF 03 28 19 9A 29 29 3B 00 3B 00 08 (.P,..(..));.;..
000020: 02 BF 23 10 2C 22 20 56 49 45 57 20 46 49 4C 45 ..#.," VIEW FILE
000030: 3A 20 20 20 22 3B FF 03 28 19 F1 29 3B 22 20 4E : ";..(..);" N
000040: 45 58 54 20 53 63 72 65 65 6E 2C 20 20 20 22 3B EXT Screen, ";
000050: FF 03 28 19 F0 29 3B 00 33 00 12 02 BF 23 10 2C ..(..);.3....#.,
000060: 22 20 50 72 65 76 69 6F 75 73 20 53 63 72 65 65 " Previous Scree
000070: 6E 2C 20 20 20 50 72 65 73 73 20 45 6E 74 65 72 n, Press Enter
000080: 20 54 6F 20 51 75 69 74 20 22 00 07 00 1C 02 01 To Quit "......
000090: C0 00 30 00 26 02 8A 23 0F 01 9E 0D 00 00 E9 EF ..0.&..#........
0000A0: 0D 00 00 E4 EC 0D 00 00 E4 F4 19 15 01 BF 23 0F ..............#.
0000B0: 2C 03 00 00 F2 28 0D 00 00 E9 29 01 B0 0D 00 00 ,....(....).....
0000C0: E9 00 28 00 30 02 9F 1E 62 02 01 C0 53 65 6C 65 ..(.0...b...Sele
0000D0: 63 74 20 4F 70 74 69 6F 6E 20 26 20 53 65 74 20 ct Option & Set
0000E0: 56 61 72 69 61 62 6C 65 73 00 18 00 3A 02 A1 03 Variables...:...
0000F0: 00 00 E3 EF 22 45 4E 44 22 EB 98 01 97 A0 1E 26 ...."END"......&
000100: 02 00 07 00 44 02 01 C0 00 33 00 4E 02 01 C0 44 ....D....3.N...D
000110: 69 73 70 6C 61 79 20 46 69 6C 65 20 53 65 63 74 isplay File Sect
000120: 69 6F 6E 2C 20 41 63 74 69 6F 6E 20 4F 70 74 69 ion, Action Opti
000130: 6F 6E 20 53 65 6C 65 63 74 65 64 00 07 00 58 02 on Selected...X.
000140: 01 C0 00 0C 00 62 02 03 00 00 F0 EF FF 43 00 23 .....b.......C.#
000150: 00 6C 02 A1 03 00 00 F0 EF FF 03 28 19 F1 29 EB .l.........(..).
000160: 9F 1E BC 02 01 03 00 00 E3 EF 22 22 01 A0 1E 94 ..........""....
000170: 02 00 23 00 76 02 A1 03 00 00 F0 EF FF 03 28 19 ..#.v.........(.
000180: F0 29 EB 9F 1E DA 02 01 03 00 00 E3 EF 22 22 01 .)..........."".
000190: A0 1E 94 02 00 21 00 80 02 A1 03 00 00 F0 EF FF .....!..........
0001A0: 03 28 19 0D 29 EB 03 00 00 E3 EF 22 45 4E 44 22 .(..)......"END"
0001B0: 01 A0 1E A0 00 00 09 00 8A 02 A0 1E 62 02 00 06 ............b...
0001C0: 00 94 02 C9 00 07 00 9E 02 01 C0 00 19 00 A8 02 ................
0001D0: 01 C0 4E 65 78 74 20 50 61 67 65 20 53 65 6C 65 ..Next Page Sele
0001E0: 63 74 65 64 00 07 00 B2 02 01 C0 00 43 00 BC 02 cted........C...
0001F0: 0D 00 00 74 65 6D F0 EF 0D 00 00 E4 F4 19 13 01 ...tem..........
Size : 512 (Real : 512)
000000: 65 64 20 6D 6F 76 65 2E 20 46 6F 72 20 65 78 61 ed move. For exa
000010: 6D 70 6C 65 2C 20 61 20 6E 75 6D 65 72 69 63 20 mple, a numeric
000020: 63 68 61 72 61 63 74 65 72 20 69 6E 74 6F 0D 0A character into..
000030: 20 20 20 20 20 61 6E 20 61 6C 70 68 61 62 65 74 an alphabet
000040: 69 63 2D 6F 6E 6C 79 20 66 69 65 6C 64 2E 0D 0A ic-only field...
000050: 0D 0A 4E 45 20 20 4E 75 6D 65 72 69 63 20 45 72 ..NE Numeric Er
000060: 72 6F 72 20 2D 20 6E 6F 6E 2D 6E 75 6D 65 72 69 ror - non-numeri
000070: 63 20 64 61 74 61 20 69 6E 20 61 6E 20 61 72 69 c data in an ari
000080: 74 68 6D 65 74 69 63 20 6F 70 65 72 61 74 69 6F thmetic operatio
000090: 6E 2E 0D 0A 0D 0A 57 38 20 20 57 72 69 74 65 20 n.....W8 Write
0000A0: 45 72 72 6F 72 20 2D 20 74 68 65 20 73 79 73 74 Error - the syst
0000B0: 65 6D 20 77 61 73 20 75 6E 61 62 6C 65 20 74 6F em was unable to
0000C0: 20 77 72 69 74 65 20 74 6F 20 61 6E 20 6F 75 74 write to an out
0000D0: 70 75 74 20 66 69 6C 65 20 6F 6E 0D 0A 20 20 20 put file on..
0000E0: 20 20 74 68 65 20 64 69 73 6B 2E 20 20 44 69 73 the disk. Dis
0000F0: 6B 20 6D 61 79 20 62 65 20 66 75 6C 6C 2E 0D 0A k may be full...
000100: 0D 0A 53 49 20 20 53 69 67 6E 20 49 6E 76 61 6C ..SI Sign Inval
000110: 69 64 20 2D 20 74 68 65 20 73 69 67 6E 20 69 73 id - the sign is
000120: 20 6E 6F 74 20 61 20 22 2B 22 20 6F 72 20 61 20 not a "+" or a
000130: 22 2D 2E 22 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 "-."......** END
000140: 20 4F 46 20 43 4F 42 4F 4C 2D 33 2E 44 4F 43 20 OF COBOL-3.DOC
000150: 2A 2A 1A 20 20 20 20 20 20 20 55 73 65 72 27 73 **. User's
000160: 20 47 75 69 64 65 0D 0A 0D 0A 20 20 20 20 20 20 Guide....
000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000180: 20 20 6E 75 6D 62 65 72 20 20 69 6E 20 74 68 65 number in the
000190: 20 72 65 67 69 73 74 65 72 20 69 73 20 6C 61 72 register is lar
0001A0: 67 65 72 20 74 68 61 6E 0D 0A 74 68 65 20 76 61 ger than..the va
0001B0: 72 69 61 62 6C 65 2E 20 49 66 20 74 68 65 20 70 riable. If the p
0001C0: 72 65 63 69 73 69 6F 6E 20 69 6E 20 74 68 65 20 recision in the
0001D0: 72 65 67 69 73 74 65 72 20 69 73 20 67 72 65 61 register is grea
0001E0: 74 65 72 20 74 68 61 6E 20 74 68 65 20 76 61 72 ter than the var
0001F0: 69 61 62 6C 65 2C 0D 0A 74 72 75 6E 63 61 74 69 iable,..truncati
Size : 512 (Real : 512)
000000: A1 28 0D 00 00 74 65 6D F0 F4 19 15 29 EE 0D 00 .(...tem....)...
000010: 00 E3 EB 0D 00 00 E4 EF 0D 00 00 E3 F5 19 15 01 ................
000020: 01 97 0D 00 00 E4 EF 0D 00 00 74 65 6D F0 00 06 ..........tem...
000030: 00 C6 02 C9 00 07 00 D0 02 01 C0 00 1D 00 DA 02 ................
000040: 01 C0 50 72 65 76 69 6F 75 73 20 50 61 67 65 20 ..Previous Page
000050: 53 65 6C 65 63 74 65 64 00 07 00 E4 02 01 C0 00 Selected........
000060: 20 00 EE 02 0D 00 00 E4 EF 0D 00 00 E4 F5 19 13 ...............
000070: 01 A1 0D 00 00 E4 F1 0F EB 0D 00 00 E4 EF 0F 00 ................
000080: 06 00 F8 02 C9 00 07 00 02 03 01 C0 00 1A 00 0C ................
000090: 03 01 C0 50 52 49 4E 54 20 46 49 4C 45 20 43 4F ...PRINT FILE CO
0000A0: 4E 54 45 4E 54 53 00 07 00 16 03 01 C0 00 07 00 NTENTS..........
0000B0: 20 03 AD 10 00 21 00 2A 03 A9 19 1E 2C 0F 01 BF ....!.*....,...
0000C0: 22 50 52 49 4E 54 20 44 4F 43 55 4D 45 4E 54 20 "PRINT DOCUMENT
0000D0: 46 49 4C 45 22 00 21 00 34 03 A9 19 1E 2C 10 01 FILE".!.4....,..
0000E0: BF 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ."==============
0000F0: 3D 3D 3D 3D 3D 22 00 09 00 3E 03 A9 0F 2C 13 00 ====="...>...,..
000100: 49 00 48 03 BF 22 50 6C 65 61 73 65 20 45 6E 73 I.H.."Please Ens
000110: 75 72 65 20 74 68 61 74 20 79 6F 75 72 20 70 72 ure that your pr
000120: 69 6E 74 65 72 20 69 73 20 6C 6F 61 64 65 64 20 inter is loaded
000130: 77 69 74 68 20 70 61 70 65 72 20 61 6E 64 20 72 with paper and r
000140: 65 61 64 79 20 74 6F 22 00 1F 00 52 03 BF 22 70 eady to"...R.."p
000150: 72 69 6E 74 20 74 68 65 20 64 6F 63 75 6D 65 6E rint the documen
000160: 74 20 66 69 6C 65 22 00 09 00 5C 03 A9 0F 2C 17 t file"...\...,.
000170: 00 18 00 66 03 BF 22 4F 70 74 69 6F 6E 20 53 65 ...f.."Option Se
000180: 6C 65 63 74 65 64 3A 22 00 06 00 70 03 BF 00 3A lected:"...p...:
000190: 00 7A 03 A1 03 00 00 E1 EF 22 32 22 EB BF 22 35 .z......."2".."5
0001A0: 34 20 6C 69 6E 65 73 20 70 65 72 20 70 61 67 65 4 lines per page
0001B0: 2C 20 73 69 6E 67 6C 65 20 73 68 65 65 74 20 70 , single sheet p
0001C0: 72 69 6E 74 69 6E 67 22 00 34 00 84 03 A1 03 00 rinting".4......
0001D0: 00 E1 EF 22 33 22 EB BF 22 31 31 20 69 6E 63 68 ..."3".."11 inch
0001E0: 20 70 61 70 65 72 2C 20 63 6F 6E 74 69 6E 75 6F paper, continuo
0001F0: 75 73 20 70 72 69 6E 74 69 6E 67 22 00 3C 00 8E us printing".<..
Size : 512 (Real : 512)
000000: 00 44 49 53 43 20 20 20 20 42 41 53 00 00 00 00 .DISC BAS....
000010: 00 00 00 00 00 70 01 00 03 0E 00 00 00 00 00 00 .....p..........
000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 03 0E 00 0C 03 00 00 00 1A 53 43 20 20 20 20 24 .........SC $
000050: 24 24 FF 00 FF 4F 0D 0A 20 20 20 20 20 20 20 20 $$...O..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 WA
000070: 43 43 49 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 CCI PUBLIC DOMAI
000080: 0F 00 0A 00 01 C0 44 49 53 43 2E 42 41 53 00 34 ......DISC.BAS.4
000090: 00 14 00 01 C0 57 41 43 43 49 20 50 44 20 49 4E .....WACCI PD IN
0000A0: 53 54 52 55 43 54 49 4F 4E 20 44 49 53 50 4C 41 STRUCTION DISPLA
0000B0: 59 20 26 20 50 52 49 4E 54 20 50 52 4F 47 52 41 Y & PRINT PROGRA
0000C0: 4D 20 00 30 00 1E 00 01 C0 43 6F 70 79 72 69 67 M .0.....Copyrig
0000D0: 68 74 20 28 63 29 20 43 6C 69 76 65 20 42 65 6C ht (c) Clive Bel
0000E0: 6C 61 62 79 2C 20 4F 63 74 6F 62 65 72 20 31 39 laby, October 19
0000F0: 39 31 00 26 00 28 00 01 C0 54 68 69 73 20 69 73 91.&.(...This is
000100: 20 61 20 50 75 62 6C 69 63 20 44 6F 6D 61 69 6E a Public Domain
000110: 20 50 72 6F 67 72 61 6D 00 07 00 32 00 01 C0 00 Program...2....
000120: 41 00 3C 00 01 C0 4F 50 45 4E 20 46 49 4C 45 2C A.<...OPEN FILE,
000130: 20 43 52 45 41 54 45 20 53 54 52 49 4E 47 20 41 CREATE STRING A
000140: 52 52 41 59 2C 20 53 54 4F 52 45 20 44 41 54 41 RRAY, STORE DATA
000150: 20 49 4E 20 41 52 52 41 59 20 20 72 24 28 63 29 IN ARRAY r$(c)
000160: 00 07 00 46 00 01 C0 00 07 00 50 00 AD 10 00 31 ...F......P....1
000170: 00 5A 00 BF 22 4C 6F 61 64 69 6E 67 20 44 49 53 .Z.."Loading DIS
000180: 43 2E 44 4F 43 2C 20 50 6C 65 61 73 65 20 57 61 C.DOC, Please Wa
000190: 69 74 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 it ...........".
0001A0: 10 00 64 00 B6 22 64 69 73 63 2E 64 6F 63 22 00 ..d.."disc.doc".
0001B0: 0B 00 6E 00 0D 00 00 E3 EF 0E 00 0E 00 78 00 93 ..n..........x..
0001C0: 03 00 00 F2 28 19 FA 29 00 27 00 82 00 D6 FE FF ....(..).'......
0001D0: 40 01 A6 A3 23 17 2C 03 00 00 F2 28 0D 00 00 E3 @...#.,....(....
0001E0: 29 01 0D 00 00 E3 EF 0D 00 00 E3 F4 0F 01 D5 00 )...............
0001F0: 06 00 8C 00 88 00 07 00 96 00 01 C0 00 1A 00 A0 ................
Size : 512 (Real : 512)
000000: 03 A1 03 00 00 E1 EF 22 34 22 EB BF 22 31 31 2E ......."4".."11.
000010: 36 37 20 69 6E 63 68 20 70 61 70 65 72 20 27 41 67 inch paper 'A
000020: 34 27 2C 20 63 6F 6E 74 69 6E 75 6F 75 73 20 70 4', continuous p
000030: 72 69 6E 74 69 6E 67 22 00 08 00 98 03 BF 01 BF rinting"........
000040: 00 43 00 A2 03 BF 22 5F 20 20 50 72 65 73 73 20 .C...."_ Press
000050: 27 30 27 20 74 6F 20 51 75 69 74 20 50 72 69 6E '0' to Quit Prin
000060: 74 20 4F 70 74 69 6F 6E 2C 20 20 50 72 65 73 73 t Option, Press
000070: 20 27 31 27 20 74 6F 20 70 72 69 6E 74 20 66 69 '1' to print fi
000080: 6C 65 22 00 0C 00 AC 03 03 00 00 E1 EF FF 43 00 le"...........C.
000090: 13 00 B6 03 A1 03 00 00 E1 EF 22 30 22 EB A0 1E .........."0"...
0000A0: A0 00 00 13 00 C0 03 A1 03 00 00 E1 EF 22 31 22 ............."1"
0000B0: EB A0 1E F2 03 00 09 00 CA 03 A0 1E AC 03 00 07 ................
0000C0: 00 D4 03 01 C0 00 1A 00 DE 03 01 C0 70 72 69 6E ............prin
0000D0: 74 20 66 69 6C 65 20 63 6F 6E 74 65 6E 74 73 00 t file contents.
0000E0: 07 00 E8 03 01 C0 00 2C 00 F2 03 AD 10 01 BF 22 .......,......."
0000F0: 50 72 69 6E 74 69 6E 67 20 44 6F 63 75 6D 65 6E Printing Documen
000100: 74 20 46 69 6C 65 20 2E 2E 2E 2E 2E 2E 2E 2E 2E t File .........
000110: 2E 22 00 0E 00 FC 03 0D 00 00 70 61 67 E5 EF 0F ."........pag...
000120: 00 1C 00 06 04 9F 1E 3C 05 01 C0 70 72 69 6E 74 .......<...print
000130: 20 70 61 67 65 20 68 65 61 64 65 72 00 07 00 10 page header....
000140: 04 01 C0 00 11 00 1A 04 9E 0D 00 00 E4 EF 0F EC ................
000150: 0D 00 00 E3 00 23 00 24 04 9F 1E EC 04 01 C0 43 .....#.$.......C
000160: 68 65 63 6B 20 50 72 69 6E 74 65 72 20 49 73 20 heck Printer Is
000170: 4F 6E 2D 4C 69 6E 65 00 1F 00 2E 04 BF 23 16 2C On-Line......#.,
000180: 03 00 00 F2 28 0D 00 00 E4 29 01 C0 50 72 69 6E ....(....)..Prin
000190: 74 20 4C 69 6E 65 00 22 00 38 04 A1 0D 00 00 E4 t Line.".8......
0001A0: F7 0D 00 00 72 6F F7 EF 0D 00 00 E4 F9 0D 00 00 ....ro..........
0001B0: 72 6F F7 EB 9F 1E 60 04 00 0A 00 42 04 B0 0D 00 ro....`....B....
0001C0: 00 E4 00 09 00 4C 04 A0 1E A0 00 00 07 00 56 04 .....L........V.
0001D0: 01 C0 00 26 00 60 04 01 C0 70 72 69 6E 74 20 66 ...&.`...print f
0001E0: 69 6C 65 2C 20 65 6E 64 20 6F 66 20 70 61 67 65 ile, end of page
0001F0: 20 72 6F 75 74 69 6E 65 00 07 00 6A 04 01 C0 00 routine...j....
Size : 512 (Real : 512)
000000: 32 33 2E 42 41 53 20 20 20 33 6B 20 7D 20 69 6E 23.BAS 3k } in
000010: 20 74 68 65 20 43 4F 42 4F 4C 20 73 65 72 69 65 the COBOL serie
000020: 73 2E 20 28 45 58 41 4D 2D 31 20 74 6F 20 45 58 s. (EXAM-1 to EX
000030: 41 4D 2D 32 34 29 0D 0A 0D 0A 31 32 2F 30 37 61 AM-24)....12/07a
000040: 20 20 41 44 44 52 45 53 53 2E 43 42 4C 20 20 31 ADDRESS.CBL 1
000050: 39 6B 20 7D 20 41 20 63 6F 6D 70 6C 65 74 65 20 9k } A complete
000060: 43 4F 42 4F 4C 20 70 72 6F 67 72 61 6D 2C 20 69 COBOL program, i
000070: 74 27 73 20 61 20 61 64 64 72 65 73 73 0D 0A 31 t's a address..1
000080: 32 2F 30 37 62 20 20 41 44 44 52 45 53 53 2E 42 2/07b ADDRESS.B
000090: 41 53 20 20 20 32 6B 20 7D 20 6C 69 73 74 2E 20 AS 2k } list.
0000A0: 41 44 44 52 45 53 53 2E 44 4F 43 20 63 6F 6E 74 ADDRESS.DOC cont
0000B0: 61 69 6E 73 20 66 75 6C 6C 20 69 6E 73 74 72 75 ains full instru
0000C0: 63 74 69 6F 6E 73 0D 0A 31 32 2F 30 37 63 20 20 ctions..12/07c
0000D0: 41 44 44 52 45 53 53 2E 44 4F 43 20 20 20 36 6B ADDRESS.DOC 6k
0000E0: 20 7D 20 66 6F 72 20 73 65 74 74 69 6E 67 20 75 } for setting u
0000F0: 70 20 74 68 65 20 70 72 6F 67 72 61 6D 0D 0A 0D p the program...
000100: 0A 31 32 2F 30 38 61 20 20 4D 41 47 2E 43 42 4C .12/08a MAG.CBL
000110: 20 20 20 20 20 20 32 34 6B 20 7D 20 41 20 63 6F 24k } A co
000120: 6D 70 6C 65 74 65 20 43 4F 42 4F 4C 20 70 72 6F mplete COBOL pro
000130: 67 72 61 6D 2C 20 68 6F 6C 64 73 20 64 65 74 61 gram, holds deta
000140: 69 6C 73 20 6F 6E 0D 0A 31 32 2F 30 38 62 20 20 ils on..12/08b
000150: 4D 41 47 2D 46 49 4C 45 2E 42 41 53 20 20 31 6B MAG-FILE.BAS 1k
000160: 20 7D 20 4D 41 47 61 7A 69 6E 65 20 61 72 74 69 } MAGazine arti
000170: 63 6C 65 73 2E 20 54 68 65 20 70 72 6F 67 72 61 cles. The progra
000180: 6D 20 69 6E 63 6C 75 64 65 20 66 75 6C 6C 0D 0A m include full..
000190: 31 32 2F 30 38 63 20 20 4D 41 47 2D 43 4F 44 45 12/08c MAG-CODE
0001A0: 2E 42 41 53 20 20 37 6B 20 7D 20 73 63 72 65 65 .BAS 7k } scree
0001B0: 6E 20 68 61 6E 64 6C 69 6E 67 20 65 74 73 2E 20 n handling ets.
0001C0: 4D 41 47 2E 44 4F 43 20 63 6F 6E 74 61 69 6E 73 MAG.DOC contains
0001D0: 20 66 75 6C 6C 0D 0A 31 32 2F 30 38 64 20 20 4D full..12/08d M
0001E0: 41 47 2E 44 4F 43 20 20 20 20 20 20 20 36 6B 20 AG.DOC 6k
0001F0: 7D 20 69 6E 73 74 72 75 63 74 69 6F 6D 73 20 66 } instructioms f
Size : 512 (Real : 512)
000000: 37 00 74 04 A1 0D 00 00 72 6F F7 EE 19 36 EB BF 7.t.....ro...6..
000010: 23 16 01 BF 23 16 01 BF 23 16 01 9F 1E 3C 05 01 #...#...#....<..
000020: C0 70 72 69 6E 74 20 68 65 61 64 65 72 20 26 20 .print header &
000030: 66 6F 6F 74 65 72 00 3A 00 7E 04 A1 0D 00 00 72 footer.:.~.....r
000040: 6F F7 EF 19 33 EB 9F 1E 9C 04 01 9F 1E 3C 05 01 o...3........<..
000050: C0 61 73 6B 20 66 6F 72 20 6E 65 78 74 20 70 61 .ask for next pa
000060: 67 65 2C 20 70 72 69 6E 74 20 68 65 61 64 65 72 ge, print header
000070: 00 06 00 88 04 C9 00 07 00 92 04 01 C0 00 38 00 ..............8.
000080: 9C 04 01 C0 73 69 6E 67 6C 65 20 73 68 65 65 74 ....single sheet
000090: 20 70 72 69 6E 74 65 72 2C 20 61 73 6B 20 66 6F printer, ask fo
0000A0: 72 20 6E 65 78 74 20 73 68 65 65 74 20 6F 66 20 r next sheet of
0000B0: 70 61 70 65 72 00 07 00 A6 04 01 C0 00 13 00 B0 paper...........
0000C0: 04 D8 23 10 2C 0F 2C 19 50 2C 19 19 2C 19 19 00 ..#.,.,.P,..,...
0000D0: 3E 00 BA 04 BF 23 10 2C 22 4E 65 78 74 20 53 68 >....#.,"Next Sh
0000E0: 65 65 74 20 4F 66 20 50 61 70 65 72 20 50 6C 65 eet Of Paper Ple
0000F0: 61 73 65 2C 20 50 72 65 73 73 20 52 45 54 55 52 ase, Press RETUR
000100: 4E 20 77 68 65 6E 20 52 65 61 64 79 22 00 11 00 N when Ready"...
000110: C4 04 D6 FF 43 F2 FF 03 28 19 0D 29 01 D5 00 08 ....C...(..)....
000120: 00 CE 04 8A 23 10 00 06 00 D8 04 C9 00 07 00 E2 ....#...........
000130: 04 01 C0 00 1F 00 EC 04 01 C0 43 68 65 63 6B 20 ..........Check
000140: 50 72 69 6E 74 65 72 20 49 73 20 4F 6E 2D 4C 69 Printer Is On-Li
000150: 6E 65 00 07 00 F6 04 01 C0 00 13 00 00 05 D8 23 ne.............#
000160: 10 2C 0F 2C 19 50 2C 19 19 2C 19 19 00 15 00 0A .,.,.P,..,......
000170: 05 A1 FF 0B 28 1C 00 F5 29 EF 19 1E EB A0 1E 28 ....(...)......(
000180: 05 00 4B 00 14 05 BF 23 10 2C 22 50 72 69 6E 74 ..K....#.,"Print
000190: 65 72 20 4E 6F 74 20 52 65 61 64 79 3A 20 53 77 er Not Ready: Sw
0001A0: 69 74 63 68 20 4F 6E 2C 20 43 68 65 63 6B 20 50 itch On, Check P
0001B0: 61 70 65 72 2C 20 50 6C 61 63 65 20 50 72 69 6E aper, Place Prin
0001C0: 74 65 72 20 4F 6E 2D 4C 69 6E 65 22 00 12 00 1E ter On-Line"....
0001D0: 05 D6 FF 0B 28 1C 00 F5 29 F2 19 1E 01 D5 00 0A ....(...).......
0001E0: 00 28 05 8A 23 10 01 C9 00 07 00 32 05 01 C0 00 .(..#......2....
0001F0: 18 00 3C 05 01 C0 70 72 69 6E 74 20 70 61 67 65 ..<...print page
Size : 512 (Real : 512)
000000: 6F 72 20 73 65 74 74 69 6E 67 20 75 70 20 74 68 or setting up th
000010: 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 31 32 e program.....12
000020: 2F 30 39 61 20 20 4E 4F 54 45 2D 31 2E 44 4F 43 /09a NOTE-1.DOC
000030: 20 20 20 20 31 6B 20 7D 20 48 65 6C 70 20 6F 6E 1k } Help on
000040: 20 73 63 72 65 65 6E 20 63 6C 65 61 72 69 6E 67 screen clearing
000050: 20 63 6F 64 65 73 0D 0A 31 32 2F 30 39 62 20 20 codes..12/09b
000060: 4E 4F 54 45 2D 32 2E 44 4F 43 20 20 20 20 36 6B NOTE-2.DOC 6k
000070: 20 7D 20 48 65 6C 70 20 77 69 74 68 20 70 72 69 } Help with pri
000080: 6E 74 69 6E 67 20 66 72 6F 6D 20 77 69 74 68 69 nting from withi
000090: 6E 20 43 4F 42 4F 4C 0D 0A 0D 0A 0D 0A 20 20 20 n COBOL......
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 47 45 54 54 GETT
0000B0: 49 4E 47 20 53 54 41 52 54 45 44 20 3A 20 57 41 ING STARTED : WA
0000C0: 43 43 49 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 CCI PUBLIC DOMAI
0000D0: 4E 20 44 49 53 43 53 0D 0A 0D 0A 20 20 20 20 20 N DISCS....
0000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000F0: 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 2C 20 4F Clive Bellaby, O
000100: 63 74 6F 62 65 72 20 31 39 39 31 0D 0A 0D 0A 50 ctober 1991....P
000110: 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 72 6F ublic Domain pro
000120: 67 72 61 6D 73 20 68 61 76 65 20 62 65 65 6E 20 grams have been
000130: 64 6F 6E 61 74 65 64 20 62 79 20 74 68 65 69 72 donated by their
000140: 20 61 75 74 68 6F 72 73 20 66 6F 72 20 74 68 65 authors for the
000150: 20 66 72 65 65 0D 0A 75 73 65 20 61 6E 64 20 65 free..use and e
000160: 6E 6A 6F 79 6D 65 6E 74 20 6F 66 20 61 6C 6C 2E njoyment of all.
000170: 20 50 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 Public Domain p
000180: 72 6F 67 72 61 6D 73 20 6D 61 79 20 62 65 20 66 rograms may be f
000190: 72 65 65 6C 79 20 63 6F 70 69 65 64 0D 0A 61 6E reely copied..an
0001A0: 64 20 64 69 73 74 72 69 62 75 74 65 64 2E 20 50 d distributed. P
0001B0: 75 62 6C 69 63 20 44 6F 6D 61 69 6E 20 70 72 6F ublic Domain pro
0001C0: 67 72 61 6D 73 20 6D 61 79 20 6E 6F 74 20 62 65 grams may not be
0001D0: 20 73 6F 6C 64 20 66 6F 72 20 70 72 6F 66 69 74 sold for profit
0001E0: 20 6F 72 0D 0A 69 6E 63 6C 75 64 65 64 20 77 69 or..included wi
0001F0: 74 68 20 70 72 6F 67 72 61 6D 73 20 74 68 61 74 th programs that
Size : 512 (Real : 512)
000000: 20 68 65 61 64 65 72 00 07 00 46 05 01 C0 00 26 header...F....&
000010: 00 50 05 BF 23 16 2C 03 00 00 F2 28 0E 29 3B EA .P..#.,....(.);.
000020: 28 19 48 29 3B 22 50 61 67 65 20 22 3B 0D 00 00 (.H);"Page ";...
000030: 70 61 67 E5 00 08 00 5A 05 BF 23 16 00 08 00 64 pag....Z..#....d
000040: 05 BF 23 16 00 16 00 6E 05 0D 00 00 70 61 67 E5 ..#....n....pag.
000050: EF 0D 00 00 70 61 67 E5 F4 0F 00 06 00 78 05 C9 ....pag......x..
000060: 00 07 00 82 05 01 C0 00 19 00 8C 05 01 C0 45 6E ..............En
000070: 64 20 4F 66 20 54 68 65 20 50 72 6F 67 72 61 6D d Of The Program
000080: 00 00 00 1A 53 43 20 20 20 20 24 24 24 FF 00 FF ....SC $$$...
000090: 4F 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 O..
0000A0: 20 20 20 20 20 20 20 20 20 57 41 43 43 49 20 50 WACCI P
0000B0: 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 44 49 53 UBLIC DOMAIN DIS
0000C0: 43 20 54 57 4F 0D 0A 20 20 20 20 20 20 20 20 20 C TWO..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
0000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 20 20 20 ---------....
000100: 20 20 20 20 20 20 20 7B 50 41 47 45 20 20 7D 0D {PAGE }.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 32 2E 20 57 . 2. W
000120: 52 49 54 45 20 72 65 63 6F 72 64 2D 6E 61 6D 65 RITE record-name
000130: 20 49 4E 56 41 4C 49 44 20 3C 69 6D 70 65 72 61 INVALID <impera
000140: 74 69 76 65 2D 73 74 61 74 65 6D 65 6E 74 3E 0D tive-statement>.
000150: 0A 0D 0A 44 45 53 43 52 49 50 54 49 4F 4E 3A 0D ...DESCRIPTION:.
000160: 0A 54 68 65 20 72 65 63 6F 72 64 20 73 70 65 63 .The record spec
000170: 69 66 69 65 64 20 69 73 20 77 72 69 74 74 65 6E ified is written
000180: 20 74 6F 20 74 68 65 20 66 69 6C 65 20 73 70 65 to the file spe
000190: 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 66 69 cified in the fi
0001A0: 6C 65 20 73 65 63 74 69 6F 6E 20 6F 66 0D 0A 74 le section of..t
0001B0: 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 61 he source progra
0001C0: 6D 2E 20 54 68 65 20 49 4E 56 41 4C 49 44 20 6F m. The INVALID o
0001D0: 70 74 69 6F 6E 20 6F 6E 6C 79 20 61 70 70 6C 69 ption only appli
0001E0: 65 73 20 74 6F 20 72 61 6E 64 6F 6D 20 66 69 6C es to random fil
0001F0: 65 73 2E 0D 0A 0D 0A 45 58 41 4D 50 4C 45 53 3A es.....EXAMPLES:
Size : 512 (Real : 512)
000000: 20 61 72 65 20 73 6F 6C 64 20 66 6F 72 20 70 72 are sold for pr
000010: 6F 66 69 74 2E 20 54 68 65 20 70 72 6F 67 72 61 ofit. The progra
000020: 6D 73 20 61 75 74 68 6F 72 73 0D 0A 72 65 74 61 ms authors..reta
000030: 69 6E 20 74 68 65 20 63 6F 70 79 72 69 67 68 74 in the copyright
000040: 20 74 6F 20 74 68 65 20 70 72 6F 67 72 61 6D 28 to the program(
000050: 73 29 2E 0D 0A 0D 0A 41 6C 6C 20 74 68 65 20 70 s).....All the p
000060: 72 6F 67 72 61 6D 73 20 73 75 70 70 6C 69 65 64 rograms supplied
000070: 20 62 79 20 57 61 63 63 69 20 68 61 76 65 20 62 by Wacci have b
000080: 65 65 6E 20 74 65 73 74 65 64 20 6F 6E 20 61 20 een tested on a
000090: 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D Amstrad 6128....
0000A0: 0A 0D 0A 49 4E 53 54 52 55 43 54 49 4F 4E 53 0D ...INSTRUCTIONS.
0000B0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 54 .============..T
0000C0: 68 69 73 20 64 69 73 63 20 69 73 20 73 75 70 70 his disc is supp
0000D0: 6C 69 65 64 20 69 6E 20 56 45 4E 44 4F 52 20 66 lied in VENDOR f
0000E0: 6F 72 6D 61 74 2C 20 6E 65 76 65 72 20 68 65 61 ormat, never hea
0000F0: 72 64 20 6F 66 20 56 45 4E 44 4F 52 20 66 6F 72 rd of VENDOR for
000100: 6D 61 74 2C 20 74 68 65 6E 0D 0A 6C 65 74 20 6D mat, then..let m
000110: 65 20 65 78 70 6C 61 69 6E 2E 0D 0A 0D 0A 41 20 e explain.....A
000120: 56 45 4E 44 4F 52 20 66 6F 72 6D 61 74 20 64 69 VENDOR format di
000130: 73 63 20 69 73 20 74 68 65 20 73 61 6D 65 20 61 sc is the same a
000140: 20 53 59 53 54 45 4D 20 66 6F 72 6D 61 74 20 64 SYSTEM format d
000150: 69 73 63 2C 20 65 78 63 65 70 74 20 74 68 61 74 isc, except that
000160: 20 69 73 20 64 6F 65 73 0D 0A 6E 6F 74 20 63 6F is does..not co
000170: 6E 74 61 69 6E 20 74 68 65 20 73 79 73 74 65 6D ntain the system
000180: 20 74 72 61 63 6B 73 2E 20 49 74 20 69 73 20 61 tracks. It is a
000190: 67 61 69 6E 73 74 20 74 68 65 20 63 6F 70 79 72 gainst the copyr
0001A0: 69 67 68 74 20 6C 61 77 73 20 74 6F 0D 0A 64 69 ight laws to..di
0001B0: 73 74 72 69 62 75 74 65 20 64 69 73 63 73 20 63 stribute discs c
0001C0: 6F 6E 74 61 69 6E 69 6E 67 20 74 68 65 20 43 50 ontaining the CP
0001D0: 2F 4D 20 73 79 73 74 65 6D 20 74 72 61 63 6B 73 /M system tracks
0001E0: 2E 0D 0A 0D 0A 56 45 4E 44 4F 52 20 66 6F 72 6D .....VENDOR form
0001F0: 61 74 20 64 69 73 63 73 20 63 61 6E 20 76 65 72 at discs can ver
Size : 512 (Real : 512)
000000: 57 41 43 43 49 20 50 44 20 44 49 53 43 20 54 57 WACCI PD DISC TW
000010: 45 4C 56 45 0D 0A 20 20 20 20 20 20 20 20 20 20 ELVE..
000020: 20 20 20 20 20 20 20 20 20 20 57 41 43 43 49 20 WACCI
000030: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 44 49 PUBLIC DOMAIN DI
000040: 53 43 20 54 57 45 4C 56 45 0D 0A 20 20 20 20 20 SC TWELVE..
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000080: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000090: 54 68 65 73 65 20 70 72 6F 67 72 61 6D 73 20 72 These programs r
0000A0: 75 6E 20 75 6E 64 65 72 20 43 50 2F 4D 20 32 2E un under CP/M 2.
0000B0: 32 20 61 6E 64 20 43 50 2F 4D 20 33 2E 31 0D 0A 2 and CP/M 3.1..
0000C0: 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ....
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 48 TH
0000E0: 49 53 20 44 49 53 43 20 43 4F 4E 54 41 49 4E 53 IS DISC CONTAINS
0000F0: 3A 0D 0A 0D 0A 52 65 66 2E 20 20 20 50 72 6F 67 :....Ref. Prog
000100: 72 61 6D 20 20 20 20 20 20 53 69 7A 65 20 20 20 ram Size
000110: 44 65 73 63 72 69 70 74 69 6F 6E 0D 0A 0D 0A 31 Description....1
000120: 32 2F 30 31 61 20 20 44 49 53 43 2E 42 41 53 20 2/01a DISC.BAS
000130: 20 20 20 20 20 34 6B 20 7D 20 49 6E 73 74 72 75 4k } Instru
000140: 63 74 69 6F 6E 73 20 26 20 64 69 73 63 20 63 6F ctions & disc co
000150: 6E 74 65 6E 74 73 0D 0A 31 32 2F 30 31 62 20 20 ntents..12/01b
000160: 44 49 53 43 2E 44 4F 43 20 20 20 20 20 20 35 6B DISC.DOC 5k
000170: 20 7D 0D 0A 0D 0A 31 32 2F 30 32 61 20 20 43 4F }....12/02a CO
000180: 42 4F 4C 2E 43 4F 4D 20 20 20 20 31 34 6B 20 7D BOL.COM 14k }
000190: 20 54 68 65 20 43 4F 42 4F 4C 20 63 6F 6D 70 69 The COBOL compi
0001A0: 6C 65 72 0D 0A 31 32 2F 30 32 62 20 20 43 4F 42 ler..12/02b COB
0001B0: 4F 4C 2E 4F 56 52 20 20 20 20 31 34 6B 20 7D 0D OL.OVR 14k }.
0001C0: 0A 0D 0A 31 32 2F 30 33 61 20 20 45 58 45 43 2E ...12/03a EXEC.
0001D0: 43 4F 4D 20 20 20 20 20 20 38 6B 20 7D 20 54 68 COM 8k } Th
0001E0: 65 20 43 4F 42 4F 4C 20 45 58 45 43 75 74 69 6F e COBOL EXECutio
0001F0: 6E 20 70 72 6F 67 72 61 6D 0D 0A 31 32 2F 30 33 n program..12/03
Size : 512 (Real : 512)
000000: 79 20 71 75 69 63 6B 6C 79 20 61 6E 64 20 65 61 y quickly and ea
000010: 73 69 6C 79 20 62 65 20 63 6F 6E 76 65 72 74 65 sily be converte
000020: 64 20 69 6E 74 6F 20 53 79 73 74 65 6D 0D 0A 66 d into System..f
000030: 6F 72 6D 61 74 20 64 69 73 63 73 20 74 68 61 74 ormat discs that
000040: 20 77 69 6C 6C 20 72 75 6E 20 75 6E 64 65 72 20 will run under
000050: 43 50 2F 4D 20 32 2E 32 2C 20 61 6C 6C 20 79 6F CP/M 2.2, all yo
000060: 75 20 6E 65 65 64 20 74 6F 20 64 6F 20 69 73 20 u need to do is
000070: 66 6F 6C 6C 6F 77 0D 0A 74 68 65 73 65 20 69 6E follow..these in
000080: 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D 0A 43 structions.....C
000090: 50 2F 4D 20 33 2E 31 20 75 73 65 72 73 20 44 4F P/M 3.1 users DO
0000A0: 20 4E 4F 54 20 6E 65 65 64 20 74 6F 20 63 6F 70 NOT need to cop
0000B0: 79 20 74 68 65 20 73 79 73 74 65 6D 20 74 72 61 y the system tra
0000C0: 63 6B 73 20 6F 6E 74 6F 20 74 68 65 69 72 20 64 cks onto their d
0000D0: 69 73 63 73 2C 20 74 68 69 73 0D 0A 76 65 72 73 iscs, this..vers
0000E0: 69 6F 6E 20 6F 66 20 43 50 5C 4D 20 77 69 6C 6C ion of CP\M will
0000F0: 20 68 61 70 70 69 6C 79 20 75 73 65 20 44 41 54 happily use DAT
000100: 41 2C 20 53 59 53 54 45 4D 20 61 6E 64 20 56 45 A, SYSTEM and VE
000110: 4E 44 4F 52 20 66 6F 72 6D 61 74 20 64 69 73 63 NDOR format disc
000120: 73 2E 0D 0A 0D 0A 43 50 2F 4D 20 32 2E 32 20 55 s.....CP/M 2.2 U
000130: 53 45 52 53 20 4F 4E 4C 59 20 3A 0D 0A 0D 0A 31 SERS ONLY :....1
000140: 2E 20 43 6F 70 79 20 79 6F 75 20 50 44 20 64 69 . Copy you PD di
000150: 73 63 0D 0A 32 2E 20 4C 6F 61 64 20 43 50 2F 4D sc..2. Load CP/M
000160: 20 32 2E 32 20 20 20 20 20 20 28 70 6C 65 61 73 2.2 (pleas
000170: 65 20 77 72 69 74 65 20 70 72 6F 74 65 63 74 20 e write protect
000180: 79 6F 75 72 20 63 70 2F 6D 20 6D 61 73 74 65 72 your cp/m master
000190: 20 64 69 73 63 29 0D 0A 33 2E 20 54 79 70 65 20 disc)..3. Type
0001A0: 69 6E 20 42 4F 4F 54 47 45 4E 20 20 20 20 28 70 in BOOTGEN (p
0001B0: 72 65 73 73 20 72 65 74 75 72 6E 29 0D 0A 0D 0A ress return)....
0001C0: 20 20 20 61 74 20 74 68 65 20 27 70 6C 65 61 73 at the 'pleas
0001D0: 65 20 69 6E 73 65 72 74 20 79 6F 75 72 20 73 6F e insert your so
0001E0: 75 72 63 65 20 64 69 73 63 20 69 6E 20 64 72 69 urce disc in dri
0001F0: 76 65 20 41 20 2E 2E 2E 2E 2E 2E 2E 2E 20 27 20 ve A ........ '
Size : 512 (Real : 512)
000000: 62 20 20 45 58 45 43 2E 4F 56 52 20 20 20 20 20 b EXEC.OVR
000010: 31 33 6B 20 7D 0D 0A 0D 0A 31 32 2F 30 34 61 20 13k }....12/04a
000020: 20 43 4F 42 4F 4C 2D 31 2E 44 4F 43 20 20 31 33 COBOL-1.DOC 13
000030: 6B 20 7D 20 54 68 65 20 43 4F 42 4F 4C 20 44 4F k } The COBOL DO
000040: 43 75 6D 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 Cumentation file
000050: 73 0D 0A 31 32 2F 30 34 62 20 20 43 4F 42 4F 4C s..12/04b COBOL
000060: 2D 32 2E 44 4F 43 20 20 20 39 6B 20 7D 0D 0A 31 -2.DOC 9k }..1
000070: 32 2F 30 34 63 20 20 43 4F 42 4F 4C 2D 33 2E 44 2/04c COBOL-3.D
000080: 4F 43 20 20 31 33 6B 20 7D 0D 0A 0D 0A 31 32 2F OC 13k }....12/
000090: 30 35 61 20 20 53 45 52 49 45 53 2E 50 54 31 20 05a SERIES.PT1
0000A0: 20 20 31 33 6B 20 7D 20 54 68 65 20 63 6F 6D 70 13k } The comp
0000B0: 6C 65 74 65 20 43 4F 42 4F 4C 20 70 72 6F 67 72 lete COBOL progr
0000C0: 61 6D 6D 69 6E 67 20 73 65 72 69 65 73 0D 0A 31 amming series..1
0000D0: 32 2F 30 35 62 20 20 53 45 52 49 45 53 2E 50 54 2/05b SERIES.PT
0000E0: 32 20 20 20 31 35 6B 20 7D 20 28 61 73 20 70 75 2 15k } (as pu
0000F0: 62 6C 69 73 68 65 64 20 69 6E 20 57 41 43 43 49 blished in WACCI
000100: 29 0D 0A 31 32 2F 30 35 63 20 20 53 45 52 49 45 )..12/05c SERIE
000110: 53 2E 50 54 33 20 20 20 31 36 6B 20 7D 0D 0A 31 S.PT3 16k }..1
000120: 32 2F 30 35 64 20 20 53 45 52 49 45 53 2E 50 54 2/05d SERIES.PT
000130: 34 20 20 20 31 34 6B 20 7D 0D 0A 31 32 2F 30 35 4 14k }..12/05
000140: 65 20 20 53 45 52 49 45 53 2E 50 54 35 20 20 20 e SERIES.PT5
000150: 31 36 6B 20 7D 0D 0A 31 32 2F 30 35 66 20 20 53 16k }..12/05f S
000160: 45 52 49 45 53 2E 50 54 36 20 20 20 31 36 6B 20 ERIES.PT6 16k
000170: 7D 0D 0A 31 32 2F 30 35 67 20 20 53 45 52 49 45 }..12/05g SERIE
000180: 53 2E 50 54 37 20 20 20 31 34 6B 20 7D 0D 0A 31 S.PT7 14k }..1
000190: 32 2F 30 35 68 20 20 53 45 52 49 45 53 2E 50 54 2/05h SERIES.PT
0001A0: 38 20 20 20 31 37 6B 20 7D 0D 0A 0D 0A 31 32 2F 8 17k }....12/
0001B0: 30 36 20 20 20 45 58 41 4D 2D 6E 6E 2E 43 42 4C 06 EXAM-nn.CBL
0001C0: 20 20 34 34 6B 20 7D 20 54 68 65 20 63 6F 6D 70 44k } The comp
0001D0: 6C 65 74 65 20 73 65 74 20 6F 66 20 65 78 61 6D lete set of exam
0001E0: 70 6C 65 20 70 72 6F 67 72 61 6D 73 20 75 73 65 ple programs use
0001F0: 64 0D 0A 20 20 20 20 20 20 20 20 45 58 41 4D 2D d.. EXAM-
Size : 512 (Real : 512)
000000: 70 72 6F 6D 70 74 0D 0A 0D 0A 20 20 20 70 72 65 prompt.... pre
000010: 73 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 ss RETURN....
000020: 61 74 20 74 68 65 20 27 70 6C 65 61 73 65 20 69 at the 'please i
000030: 6E 73 65 72 74 20 79 6F 75 72 20 64 65 73 74 69 nsert your desti
000040: 6E 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 20 64 nation disc in d
000050: 72 69 76 65 20 41 20 2E 2E 2E 20 27 20 70 72 6F rive A ... ' pro
000060: 6D 70 74 0D 0A 0D 0A 20 20 20 70 6C 61 63 65 20 mpt.... place
000070: 79 6F 75 20 50 44 20 64 69 73 63 20 69 6E 20 64 you PD disc in d
000080: 72 69 76 65 20 41 2C 20 74 68 65 6E 20 70 72 65 rive A, then pre
000090: 73 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 ss RETURN....
0000A0: 61 74 20 74 68 65 20 27 64 6F 20 79 6F 75 20 77 at the 'do you w
0000B0: 69 73 68 20 74 6F 20 63 6F 6E 66 69 67 75 72 65 ish to configure
0000C0: 20 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 59 another disc (Y
0000D0: 2F 4E 29 27 20 70 72 6F 6D 70 74 0D 0A 0D 0A 20 /N)' prompt....
0000E0: 20 20 70 72 65 73 73 20 4E 2C 20 74 68 65 6E 20 press N, then
0000F0: 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 74 20 RETURN.... at
000100: 74 68 65 20 27 70 6C 65 61 73 65 20 69 6E 73 65 the 'please inse
000110: 72 74 20 61 20 43 50 2F 4D 20 73 79 73 74 65 6D rt a CP/M system
000120: 20 64 69 73 63 20 69 6E 74 6F 20 64 72 69 76 65 disc into drive
000130: 20 41 20 2E 2E 2E 2E 20 27 20 70 72 6F 6D 70 74 A .... ' prompt
000140: 0D 0A 0D 0A 20 20 20 70 75 74 20 79 6F 75 72 20 .... put your
000150: 43 50 2F 4D 20 32 2E 32 20 64 69 73 63 20 62 61 CP/M 2.2 disc ba
000160: 63 6B 20 69 6E 74 6F 20 64 72 69 76 65 20 41 20 ck into drive A
000170: 74 68 65 6E 20 70 72 65 73 73 20 52 45 54 55 52 then press RETUR
000180: 4E 2E 0D 0A 0D 0A 34 2E 20 54 79 70 65 20 69 6E N.....4. Type in
000190: 20 53 59 53 47 45 4E 20 20 20 20 20 20 28 70 72 SYSGEN (pr
0001A0: 65 73 73 20 52 45 54 55 52 4E 29 0D 0A 0D 0A 20 ess RETURN)....
0001B0: 20 20 61 74 20 74 68 65 20 27 70 6C 65 61 73 65 at the 'please
0001C0: 20 69 6E 73 65 72 74 20 79 6F 75 72 20 73 6F 75 insert your sou
0001D0: 72 63 65 20 64 69 73 63 20 69 6E 20 64 72 69 76 rce disc in driv
0001E0: 65 20 41 20 2E 2E 2E 2E 2E 2E 2E 2E 20 27 20 70 e A ........ ' p
0001F0: 72 6F 6D 70 74 0D 0A 0D 0A 20 20 20 70 72 65 73 rompt.... pres
Size : 512 (Real : 512)
000000: 02 01 08 01 CD 82 02 2A 32 0B 23 44 4D CD 92 02 .......*2.#DM...
000010: C9 21 00 00 22 E0 0A 21 1F 03 E5 2A E0 0A E9 C9 .!.."..!...*....
000020: 21 35 0B 70 2B 71 CD 77 02 2A 34 0B 7C 4F CD 67 !5.p+q.w.*4.|O.g
000030: 02 2A 34 0B 7D 4F CD 67 02 2A E9 0A 23 44 4D CD .*4.}O.g.*..#DM.
000040: 92 02 01 03 01 CD 82 02 CD 11 03 C9 21 3B 0B 72 ............!;.r
000050: 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A 3A 0B +s+p+q+..p+q.*:.
000060: 2B 22 3A 0B 11 FF FF CD 97 0A B5 CA 89 03 2A 36 +":...........*6
000070: 0B E5 2A 38 0B C1 0A 77 2A 36 0B 23 22 36 0B 2A ..*8...w*6.#"6.*
000080: 38 0B 23 22 38 0B C3 5D 03 C9 21 3F 0B 73 2B 71 8.#"8..]..!?.s+q
000090: 2B D1 C1 70 2B 71 D5 3A 3F 0B 3D 32 3F 0B FE FF +..p+q.:?.=2?...
0000A0: CA B4 03 2A 3C 0B 3A 3E 0B 77 2A 3C 0B 23 22 3C ...*<.:>.w*<.#"<
0000B0: 0B C3 97 03 C9 2A E0 0A 23 22 E0 0A EB 21 00 01 .....*..#"...!..
0000C0: CD 97 0A DA E6 03 2A E9 0A EB 0E 14 CD 05 00 FE ......*.........
0000D0: 00 CA E0 03 CD 77 02 01 1F 01 CD 82 02 CD 11 03 .....w..........
0000E0: 21 80 00 22 E0 0A 2A E0 0A 7E C9 CD B5 03 2A E0 !.."..*..~....*.
0000F0: 0A 77 C9 21 40 0B 71 3A E6 0A 1F D2 0B 04 CD 77 .w.!@.q:.......w
000100: 02 01 2C 01 CD 82 02 CD EB 03 C9 21 F0 0A 36 01 ..,........!..6.
000110: 3A 40 0B 21 F0 0A BE DA 35 04 2A E0 0A E5 2A E4 :@.!....5.*...*.
000120: 0A C1 0A 77 CD EB 03 2A E4 0A 23 22 E4 0A 21 F0 ...w...*..#"..!.
000130: 0A 34 C2 10 04 11 EE 0A 01 E4 0A CD 9E 0A D2 47 .4.............G
000140: 04 01 4F 4D CD 20 03 C9 21 59 0B 22 EB 0A 2A EB ..OM. ..!Y."..*.
000150: 0A E5 1E 22 0E 00 CD 8A 03 11 20 00 2A EB 0A 19 ..."...... .*...
000160: 22 1A 0B 3E 00 77 23 36 00 C9 2A 1A 0B 22 41 0B "..>.w#6..*.."A.
000170: 01 11 00 2A E7 0A 09 22 1A 0B 11 18 0B CD AE 0A ...*..."........
000180: D2 89 04 01 53 50 CD 20 03 2A 41 0B E5 1E 11 0E ....SP. .*A.....
000190: 00 CD 8A 03 C9 21 43 0B 36 00 23 36 00 3E 07 21 .....!C.6.#6.>.!
0001A0: 44 0B BE DA BD 04 2A 44 0B 26 00 01 1E 0B 09 3A D.....*D.&.....:
0001B0: 43 0B 86 32 43 0B 21 44 0B 34 C2 9D 04 3A ED 0A C..2C.!D.4...:..
0001C0: 21 43 0B A6 87 11 EB 0A CD 87 0A 22 1C 0B 2A 1C !C........."..*.
0001D0: 0B 3E 00 CD B6 0A B5 C2 23 05 2A 1A 0B 22 E7 0A .>......#.*.."..
0001E0: 2A 1C 0B E5 2A 1A 0B EB E1 73 23 72 CD 6A 04 21 *...*....s#r.j.!
0001F0: 44 0B 36 00 3E 07 21 44 0B BE DA 1F 05 2A 44 0B D.6.>.!D.....*D.
Size : 512 (Real : 512)
000000: 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 s RETURN.... a
000010: 74 20 74 68 65 20 27 70 6C 65 61 73 65 20 69 6E t the 'please in
000020: 73 65 72 74 20 79 6F 75 72 20 64 65 73 74 69 6E sert your destin
000030: 61 74 69 6F 6E 20 64 69 73 63 20 69 6E 20 64 72 ation disc in dr
000040: 69 76 65 20 41 20 2E 2E 2E 20 27 20 70 72 6F 6D ive A ... ' prom
000050: 70 74 0D 0A 0D 0A 20 20 20 70 6C 61 63 65 20 79 pt.... place y
000060: 6F 75 20 50 44 20 64 69 73 63 20 69 6E 20 64 72 ou PD disc in dr
000070: 69 76 65 20 41 2C 20 74 68 65 6E 20 70 72 65 73 ive A, then pres
000080: 73 20 52 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 s RETURN.... a
000090: 74 20 74 68 65 20 27 64 6F 20 79 6F 75 20 77 69 t the 'do you wi
0000A0: 73 68 20 74 6F 20 63 6F 6E 66 69 67 75 72 65 20 sh to configure
0000B0: 61 6E 6F 74 68 65 72 20 64 69 73 63 20 28 59 2F another disc (Y/
0000C0: 4E 29 27 20 70 72 6F 6D 70 74 0D 0A 0D 0A 20 20 N)' prompt....
0000D0: 20 70 72 65 73 73 20 4E 2C 20 74 68 65 6E 20 52 press N, then R
0000E0: 45 54 55 52 4E 0D 0A 0D 0A 20 20 20 61 74 20 74 ETURN.... at t
0000F0: 68 65 20 27 70 6C 65 61 73 65 20 69 6E 73 65 72 he 'please inser
000100: 74 20 61 20 43 50 2F 4D 20 73 79 73 74 65 6D 20 t a CP/M system
000110: 64 69 73 63 20 69 6E 74 6F 20 64 72 69 76 65 20 disc into drive
000120: 41 20 2E 2E 2E 2E 20 27 20 70 72 6F 6D 70 74 0D A .... ' prompt.
000130: 0A 0D 0A 20 20 20 70 75 74 20 79 6F 75 72 20 43 ... put your C
000140: 50 2F 4D 20 32 2E 32 20 64 69 73 63 20 62 61 63 P/M 2.2 disc bac
000150: 6B 20 69 6E 74 6F 20 64 72 69 76 65 20 41 20 74 k into drive A t
000160: 68 65 6E 20 70 72 65 73 73 20 52 45 54 55 52 4E hen press RETURN
000170: 2E 0D 0A 0D 0A 35 2E 20 59 6F 75 72 20 50 44 20 .....5. Your PD
000180: 64 69 73 63 20 6E 6F 77 20 63 6F 6E 74 61 69 6E disc now contain
000190: 73 20 61 20 63 6F 70 79 20 6F 66 20 79 6F 75 72 s a copy of your
0001A0: 20 43 50 2F 4D 20 73 79 73 74 65 6D 20 74 72 61 CP/M system tra
0001B0: 63 6B 73 2C 20 6C 65 74 27 73 0D 0A 20 20 20 63 cks, let's.. c
0001C0: 68 65 63 6B 20 74 68 61 74 20 6F 75 74 20 62 79 heck that out by
0001D0: 3A 0D 0A 0D 0A 20 20 20 61 29 20 72 65 73 65 74 :.... a) reset
0001E0: 20 74 68 65 20 6D 61 63 68 69 6E 65 0D 0A 20 20 the machine..
0001F0: 20 62 29 20 70 6C 61 63 65 20 74 68 65 20 50 44 b) place the PD
Size : 512 (Real : 512)
000000: 26 00 01 1E 0B 09 E5 2A 44 0B 26 00 01 08 00 09 &......*D.&.....
000010: EB 2A E7 0A 19 D1 1A 77 21 44 0B 34 C2 F4 04 C9 .*.....w!D.4....
000020: C3 6C 05 2A 1C 0B 5E 23 56 EB 22 E7 0A 21 44 0B .l.*..^#V."..!D.
000030: 36 00 2A 44 0B 26 00 01 08 00 09 EB 2A E7 0A 19 6.*D.&......*...
000040: E5 2A 44 0B 26 00 01 1E 0B 09 D1 1A BE C2 6C 05 .*D.&.........l.
000050: 3A 44 0B 3C 32 44 0B 4F 3E 07 B9 D2 69 05 2A 1C :D.<2D.O>...i.*.
000060: 0B 5E 23 56 EB 22 E7 0A C9 C3 32 05 2A 1C 0B 5E .^#V."....2.*..^
000070: 23 56 EB 22 1C 0B C3 CE 04 C9 2A E7 0A 23 23 5E #V."......*..##^
000080: 23 56 EB 22 45 0B 21 47 0B 22 E2 0A CD B5 03 2A #V."E.!G.".....*
000090: E2 0A 77 CD B5 03 2A E2 0A 23 77 2A 47 0B EB 2A ..w...*..#w*G..*
0000A0: E4 0A 19 EB 2A F1 0A CD 97 0A E5 2A E7 0A 23 23 ....*......*..##
0000B0: C1 71 23 70 3E 00 11 45 0B CD AB 0A B5 CA 07 06 .q#p>..E........
0000C0: 2A 45 0B 22 E2 0A 2A E2 0A 5E 23 56 EB 22 45 0B *E."..*..^#V."E.
0000D0: 21 F0 0A 36 01 3E 03 21 F0 0A BE DA 04 06 2A F0 !..6.>.!......*.
0000E0: 0A 26 00 29 EB 2A E7 0A 19 E5 2A E2 0A E3 4E 23 .&.).*....*...N#
0000F0: 46 E1 71 23 70 2A E2 0A 23 23 22 E2 0A 21 F0 0A F.q#p*..##"..!..
000100: 34 C2 D5 05 C3 B4 05 2A E7 0A 23 23 5E 23 56 EB 4......*..##^#V.
000110: 22 E4 0A C9 21 49 0B 22 E2 0A CD B5 03 2A E2 0A "...!I.".....*..
000120: 77 CD B5 03 2A E2 0A 23 77 01 49 0B 11 29 0B CD w...*..#w.I..)..
000130: 9E 0A EB 2A 14 0B 19 22 14 0B 01 F1 0A 11 E4 0A ...*..."........
000140: CD 9E 0A 22 16 0B C9 0E 01 CD F3 03 21 4B 0B 36 ..."........!K.6
000150: 00 3E 07 21 4B 0B BE DA 74 06 2A E0 0A E5 2A 4B .>.!K...t.*...*K
000160: 0B 26 00 01 1E 0B 09 D1 1A 77 CD EB 03 21 4B 0B .&.......w...!K.
000170: 34 C2 51 06 CD 95 04 21 4B 0B 36 01 3E 03 21 4B 4.Q....!K.6.>.!K
000180: 0B BE DA AB 06 2A 4B 0B 26 00 29 EB 2A E7 0A 19 .....*K.&.).*...
000190: E5 2A E4 0A E3 4E 23 46 E1 71 23 70 2A E4 0A 23 .*...N#F.q#p*..#
0001A0: 23 22 E4 0A 21 4B 0B 34 C2 7C 06 01 10 00 2A E7 #"..!K.4.|....*.
0001B0: 0A 09 7E FE 00 C2 CA 06 3E 06 11 E4 0A CD AB 0A ..~.....>.......
0001C0: E5 2A E7 0A 23 23 C1 71 23 70 C9 0E 01 CD F3 03 .*..##.q#p......
0001D0: 2A E0 0A 7E 87 C6 04 4F CD F3 03 C9 0E 01 CD F3 *..~...O........
0001E0: 03 2A E0 0A 7E 87 3C 3C 4F CD F3 03 C9 21 4C 0B .*..~.<<O....!L.
0001F0: 22 E2 0A 21 F0 0A 36 00 3E 03 21 F0 0A BE DA 16 "..!..6.>.!.....
Size : 512 (Real : 512)
000000: 20 64 69 73 63 20 77 69 74 68 20 74 68 65 20 73 disc with the s
000010: 79 73 74 65 6D 20 74 72 61 63 6B 73 20 6F 6E 20 ystem tracks on
000020: 69 6E 20 64 72 69 76 65 20 41 0D 0A 20 20 20 63 in drive A.. c
000030: 29 20 74 79 70 65 20 7C 43 50 4D 2C 20 70 72 65 ) type |CPM, pre
000040: 73 73 20 52 45 54 55 52 4E 0D 0A 20 20 20 64 29 ss RETURN.. d)
000050: 20 61 6E 64 20 43 50 2F 4D 20 32 2E 32 20 73 68 and CP/M 2.2 sh
000060: 6F 75 6C 64 20 68 61 70 70 69 6C 79 20 6C 6F 61 ould happily loa
000070: 64 0D 0A 0D 0A 36 2E 20 49 66 20 43 50 2F 4D 20 d....6. If CP/M
000080: 32 2E 32 20 64 6F 65 73 20 6E 6F 74 20 6C 6F 61 2.2 does not loa
000090: 64 2C 20 74 68 65 6E 20 6D 61 6B 65 20 61 6E 6F d, then make ano
0000A0: 74 68 65 72 20 63 6F 70 79 20 6F 66 20 79 6F 75 ther copy of you
0000B0: 72 20 50 44 20 64 69 73 63 2C 0D 0A 20 20 20 61 r PD disc,.. a
0000C0: 6E 64 20 73 74 61 72 74 20 61 67 61 69 6E 2E 20 nd start again.
0000D0: 59 6F 75 20 73 68 6F 75 6C 64 20 6E 6F 74 20 68 You should not h
0000E0: 61 76 65 20 61 6E 79 20 70 72 6F 62 6C 65 6D 73 ave any problems
0000F0: 2C 20 49 20 68 61 76 65 20 74 65 73 74 65 64 0D , I have tested.
000100: 0A 20 20 20 74 68 69 73 20 6F 75 74 20 6F 6E 20 . this out on
000110: 61 20 36 31 32 38 20 61 6E 64 20 69 74 20 77 6F a 6128 and it wo
000120: 72 6B 73 20 68 61 70 70 69 6C 79 2E 0D 0A 0D 0A rks happily.....
000130: 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 46 49 4C 45 ..** END OF FILE
000140: 20 2A 2A 0D 0A 1A 4C 56 45 0D 0A 20 20 20 20 20 **...LVE..
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000180: 65 63 6F 72 64 20 69 6E 20 77 68 69 63 68 20 69 ecord in which i
000190: 74 20 6F 63 63 75 72 72 65 64 2E 0D 0A 0D 0A 52 t occurred.....R
0001A0: 33 20 20 52 65 64 65 66 69 6E 65 73 20 6D 69 73 3 Redefines mis
0001B0: 70 6C 61 63 65 64 20 2D 20 61 20 72 65 64 65 66 placed - a redef
0001C0: 69 6E 65 73 20 77 61 73 20 61 74 74 65 6D 70 74 ines was attempt
0001D0: 65 64 20 69 6E 20 74 68 65 20 46 49 4C 45 20 53 ed in the FILE S
0001E0: 45 43 54 49 4F 4E 20 6F 66 0D 0A 20 20 20 20 20 ECTION of..
0001F0: 74 68 65 20 73 6F 75 72 63 65 20 70 72 6F 67 72 the source progr
Size : 512 (Real : 512)
000000: 07 CD B5 03 2A F0 0A 26 00 EB 2A E2 0A 19 77 21 ....*..&..*...w!
000010: F0 0A 34 C2 F8 06 2A 16 0B EB 2A 4C 0B 19 22 E2 ..4...*...*L..".
000020: 0A 5E 23 56 EB 22 4C 0B 2A E2 0A E5 2A 4E 0B EB .^#V."L.*...*N..
000030: E1 73 23 72 3E 00 11 4C 0B CD AB 0A B5 C2 44 07 .s#r>..L......D.
000040: CD EB 03 C9 C3 16 07 C9 21 52 0B 22 E2 0A 21 F0 ........!R."..!.
000050: 0A 36 00 3E 03 21 F0 0A BE DA 71 07 CD B5 03 2A .6.>.!....q....*
000060: F0 0A 26 00 EB 2A E2 0A 19 77 21 F0 0A 34 C2 53 ..&..*...w!..4.S
000070: 07 01 50 0B 11 EE 0A CD 9E 0A 11 52 0B CD AE 0A ..P........R....
000080: DA 96 07 01 14 0B 11 52 0B CD 9E 0A 2B 22 E2 0A .......R....+"..
000090: 22 EE 0A C3 A2 07 2A 16 0B EB 2A 52 0B 19 2B 22 ".....*...*R..+"
0000A0: E2 0A 21 01 00 22 50 0B 11 54 0B 01 50 0B CD 9E ..!.."P..T..P...
0000B0: 0A DA CD 07 CD B5 03 2A 50 0B EB 2A E2 0A 19 77 .......*P..*...w
0000C0: 11 01 00 2A 50 0B 19 22 50 0B D2 A8 07 CD EB 03 ...*P.."P.......
0000D0: C9 3A 28 0B 1F D2 E0 07 2A E4 0A 36 08 C3 E5 07 .:(.....*..6....
0000E0: 2A E4 0A 36 06 2A E4 0A 23 22 E4 0A 21 56 0B 36 *..6.*..#"..!V.6
0000F0: FF 2A E9 0A 23 44 4D CD 92 02 01 37 01 CD 82 02 .*..#DM....7....
000100: 21 28 0B 36 00 21 56 0B 36 00 3E 0F 21 56 0B BE !(.6.!V.6.>.!V..
000110: DA EE 08 2A 56 0B 26 00 29 EB 2A EB 0A 19 22 1C ...*V.&.).*...".
000120: 0B 2A 1C 0B 3E 00 CD B6 0A B5 CA E7 08 2A 1C 0B .*..>........*..
000130: 5E 23 56 EB 22 E7 0A 01 10 00 09 7E FE 00 C2 DA ^#V."......~....
000140: 08 21 E6 0A 36 01 01 10 00 2A E7 0A 09 36 01 21 .!..6....*...6.!
000150: 28 0B 36 01 CD 14 06 01 04 00 2A E7 0A 09 E5 2A (.6.......*....*
000160: 16 0B EB E1 73 23 72 01 06 00 2A E7 0A 09 E5 2A ....s#r...*....*
000170: 14 0B EB E1 73 23 72 2A E9 0A 44 4D CD EA 02 01 ....s#r*..DM....
000180: 08 00 2A E7 0A 09 E5 2A E9 0A 23 44 4D 11 08 00 ..*....*..#DM...
000190: CD 4C 03 01 20 00 2A E9 0A 09 36 00 11 0C 00 2A .L.. .*...6....*
0001A0: E9 0A 19 E5 1E 04 0E 00 CD 8A 03 21 00 01 22 E0 ...........!..".
0001B0: 0A 2A E9 0A 44 4D CD DA 02 FE FF C2 D6 08 2A E9 .*..DM........*.
0001C0: 0A 23 44 4D CD 92 02 01 03 01 CD 82 02 01 3F 01 .#DM..........?.
0001D0: CD 82 02 CD 11 03 CD EB 03 C9 2A 1C 0B 5E 23 56 ..........*..^#V
0001E0: EB 22 1C 0B C3 21 08 21 56 0B 34 C2 0A 08 C9 21 ."...!.!V.4....!
0001F0: E6 0A 36 00 3A 28 0B 1F D2 01 09 CD 7A 05 C3 1A ..6.:(......z...
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 09 CD B5 03 2A F1 0A 77 CD B5 03 2A F1 0A 23 77 ....*..w...*..#w
000010: 2A F1 0A 5E 23 56 EB 22 E4 0A CD EB 03 C9 2A E0 *..^#V."......*.
000020: 0A 7E FE 09 D2 2F 09 0E 01 CD F3 03 C3 83 0A 2A .~.../.........*
000030: E0 0A 7E FE 0A D2 40 09 0E 02 CD F3 03 C3 83 0A ..~...@.........
000040: 2A E0 0A 7E FE 16 D2 51 09 0E 03 CD F3 03 C3 83 *..~...Q........
000050: 0A 2A E0 0A 7E FE 1A D2 62 09 0E 04 CD F3 03 C3 .*..~...b.......
000060: 83 0A 2A E0 0A 7E FE 22 D2 73 09 0E 05 CD F3 03 ..*..~.".s......
000070: C3 83 0A 2A E0 0A 7E FE 29 D2 84 09 0E 06 CD F3 ...*..~.).......
000080: 03 C3 83 0A 2A E0 0A 7E FE 33 D2 95 09 0E 07 CD ....*..~.3......
000090: F3 03 C3 83 0A 2A E0 0A 7E FE 33 D2 A6 09 0E 08 .....*..~.3.....
0000A0: CD F3 03 C3 83 0A 2A E0 0A 7E FE 38 D2 B7 09 0E ......*..~.8....
0000B0: 09 CD F3 03 C3 83 0A 2A E0 0A 7E FE 3E D2 C8 09 .......*..~.>...
0000C0: 0E 0A CD F3 03 C3 83 0A 2A E0 0A 7E FE 3F D2 D9 ........*..~.?..
0000D0: 09 0E 0B CD F3 03 C3 83 0A 2A E0 0A 7E FE 3F D2 .........*..~.?.
0000E0: EA 09 0E 0C CD F3 03 C3 83 0A 2A E0 0A 7E FE 40 ..........*..~.@
0000F0: D2 FB 09 0E 0D CD F3 03 C3 83 0A 2A E0 0A 7E FE ...........*..~.
000100: 40 C2 0A 0A CD 47 06 C3 83 0A 2A E0 0A 7E FE 41 @....G....*..~.A
000110: C2 19 0A CD CB 06 C3 83 0A 2A E0 0A 7E FE 42 C2 .........*..~.B.
000120: 28 0A CD DC 06 C3 83 0A 2A E0 0A 7E FE 44 C2 37 (.......*..~.D.7
000130: 0A CD ED 06 C3 83 0A 2A E0 0A 7E FE 43 C2 46 0A .......*..~.C.F.
000140: CD 48 07 C3 83 0A 2A E0 0A 7E FE 45 C2 68 0A CD .H....*..~.E.h..
000150: D1 07 3A 28 0B 1F DA 65 0A CD 14 06 2A E9 0A 44 ..:(...e....*..D
000160: 4D CD EA 02 C9 C3 83 0A 2A E0 0A 7E FE 46 C2 77 M.......*..~.F.w
000170: 0A CD EF 08 C3 83 0A CD 77 02 01 4A 01 CD 82 02 ........w..J....
000180: CD EB 03 C3 1E 09 C9 EB 5F 16 00 EB 1A 85 6F 13 ........_.....o.
000190: 1A 8C 67 C9 5F 16 00 7B 95 6F 7A 9C 67 C9 69 60 ..g._..{.oz.g.i`
0001A0: 4E 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 1A 95 N#F..o...g.o&...
0001B0: 6F 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 9E 57 o...g._..{._z#.W
0001C0: EB C9 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 01 00 00 00 00 01 00 00 5C 00 00 00 0F 00 00 .........\......
0001F0: 00 00 35 00 45 58 45 43 20 20 20 20 4F 56 52 00 ..5.EXEC OVR.
Size : 512 (Real : 512)
000000: C3 A3 01 2E 43 49 4E 24 43 4C 4F 53 45 20 45 52 ....CIN$CLOSE ER
000010: 52 4F 52 20 4F 4E 20 4D 4F 44 55 4C 45 20 24 45 ROR ON MODULE $E
000020: 4E 44 20 4F 46 20 49 4E 50 55 54 24 43 4F 44 45 ND OF INPUT$CODE
000030: 20 45 52 52 4F 52 24 20 4C 4F 41 44 45 44 24 20 ERROR$ LOADED$
000040: 4E 4F 54 20 46 4F 55 4E 44 24 4C 4F 41 44 20 45 NOT FOUND$LOAD E
000050: 52 52 4F 52 24 4E 50 53 20 4D 49 43 52 4F 2D 43 RROR$NPS MICRO-C
000060: 4F 42 4F 4C 20 4C 4F 41 44 45 52 20 56 45 52 53 OBOL LOADER VERS
000070: 49 4F 4E 20 32 2E 31 24 43 49 4E 00 00 00 00 20 ION 2.1$CIN....
000080: 4E 4F 54 20 46 4F 55 4E 44 24 43 49 4E 54 45 52 NOT FOUND$CINTER
000090: 50 2E 43 4F 4D 20 4E 4F 54 20 46 4F 55 4E 44 20 P.COM NOT FOUND
0000A0: 20 20 24 31 E0 0A 21 06 00 22 E2 0A 4E 23 46 0B $1..!.."..N#F.
0000B0: 60 69 22 29 0B 2B 22 EE 0A CD 77 02 01 55 01 CD `i").+"...w..U..
0000C0: 82 02 01 20 00 2A E9 0A 09 36 00 01 78 01 C5 11 ... .*...6..x...
0000D0: 09 00 2A E9 0A 19 44 4D 11 07 00 CD 4C 03 2A E9 ..*...DM....L.*.
0000E0: 0A 44 4D CD DA 02 FE FF C2 03 02 2A E9 0A 23 44 .DM........*..#D
0000F0: 4D CD 92 02 01 03 01 CD 82 02 01 7F 01 CD 82 02 M...............
000100: CD 11 03 CD EB 03 CD 48 04 CD 1E 09 01 F3 0A C5 .......H........
000110: 2A E9 0A 44 4D 11 21 00 CD 4C 03 01 20 00 2A E9 *..DM.!..L.. .*.
000120: 0A 09 36 00 2A E9 0A 44 4D CD DA 02 FE FF C2 3D ..6.*..DM......=
000130: 02 CD 77 02 01 8A 01 CD 82 02 CD 11 03 2A 26 0B ..w..........*&.
000140: E5 11 80 00 01 80 00 CD 4C 03 01 14 0B C5 11 04 ........L.......
000150: 00 01 FC 00 CD 4C 03 21 80 00 22 E0 0A 21 65 02 .....L.!.."..!e.
000160: E5 2A E0 0A E9 FB 76 21 2B 0B 71 2A 2B 0B 26 00 .*....v!+.q*+.&.
000170: EB 0E 02 CD 05 00 C9 0E 0D CD 67 02 0E 0A CD 67 ..........g....g
000180: 02 C9 21 2D 0B 70 2B 71 2A 2C 0B EB 0E 09 CD 05 ..!-.p+q*,......
000190: 00 C9 21 2F 0B 70 2B 71 2A 2E 0B 22 E2 0A 21 F0 ..!/.p+q*.."..!.
0001A0: 0A 36 FF CD 77 02 3A F0 0A 3C 32 F0 0A 4F 06 00 .6..w.:..<2..O..
0001B0: 2A E2 0A 09 7E D6 20 C6 FF 9F F5 3A F0 0A D6 08 *...~. ....:....
0001C0: 9F C1 48 A1 1F D2 D9 02 2A F0 0A 26 00 EB 2A E2 ..H.....*..&..*.
0001D0: 0A 19 4E CD 67 02 C3 A6 02 C9 21 31 0B 70 2B 71 ..N.g.....!1.p+q
0001E0: 2A 30 0B EB 0E 0F CD 05 00 C9 21 33 0B 70 2B 71 *0........!3.p+q
0001F0: 2A 32 0B EB 0E 10 CD 05 00 FE FF C2 10 03 CD 77 *2.............w
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 80 34 00 00 00 00 00 00 .........4......
000020: 00 00 00 00 00 00 80 1C 00 1A 1A 1A 1A 1A 1A 1A ................
000030: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000040: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: E1 23 1A 77 EB 36 FF E1 11 04 00 19 0D C2 52 09 .#.w.6........R.
000090: 31 DB 17 D1 C1 F1 E1 F9 2A E5 17 E5 2A E3 17 FB 1.......*...*...
0000A0: C9 F5 C5 21 57 17 7E 34 B7 CA BC 09 23 7E 23 46 ...!W.~4....#~#F
0000B0: 23 BB C2 BC 09 78 BA C2 BC 09 7E 12 23 73 23 72 #....x....~.#s#r
0000C0: 23 1A 77 3E FF 12 C1 F1 C9 CD 51 12 CA 85 0A CD #.w>......Q.....
0000D0: E8 10 3D CA 03 0A 3D C2 E1 0F E5 CD E8 10 D1 E5 ..=...=.........
0000E0: CD 55 10 19 CD A7 10 CD FB 0F E1 AF 95 6F 3E 00 .U...........o>.
0000F0: 9C 67 19 CD A7 10 C3 0B 07 10 27 E8 03 64 00 0A .g........'..d..
000100: 00 01 00 EB CD 55 10 D5 D5 CD 6E 10 CD FB 0F 3E .....U....n....>
000110: 23 CD FD 0F 06 85 21 F9 09 5E 23 56 23 E3 0E 30 #.....!..^#V#..0
000120: 7D 93 6F 7C 9A 67 DA 2D 0A 0C C3 20 0A 19 78 B7 }.o|.g.-... ..x.
000130: F2 44 0A F5 79 FE 30 CA 4B 0A CD FD 0F F1 E6 7F .D..y.0.K.......
000140: 47 C3 57 0A 79 CD FD 0F C3 57 0A F1 E6 7F FE 01 G.W.y....W......
000150: C2 57 0A 47 C3 44 0A E3 05 C2 19 0A D1 D1 7A B7 .W.G.D........z.
000160: C2 0B 07 7B E6 7F FE 20 DA 0B 07 3C CA 0B 07 CD ...{... ...<....
000170: FB 0F 3E 27 CD FD 0F 7B E6 7F CD FD 0F 3E 27 CD ..>'...{.....>'.
000180: FD 0F C3 0B 07 2A B1 17 23 23 56 2B 5E 2B 4E 2B .....*..##V+^+N+
000190: 79 FE 10 D2 0B 07 CD 55 10 EB CD A7 10 EB CD FB y......U........
0001A0: 0F 0C 0D CA AE 0A 7E 2B CD FD 0F C3 A2 0A CD 5F ......~+......._
0001B0: 10 C2 0B 07 C3 8A 0A 06 00 78 06 00 B7 C0 C3 14 .........x......
0001C0: 10 FE 2E C8 FE 0D C8 FE 2A C8 FE 20 C9 CD C1 0A ........*.. ....
0001D0: CA E6 0A 77 23 CD B9 0A 0D C2 CD 0A CD C1 0A C8 ...w#...........
0001E0: CD B9 0A C3 DC 0A 16 20 FE 2A C2 F2 0A CD B9 0A ....... .*......
0001F0: 16 3F 72 23 0D C2 F2 0A C9 3A 4C 17 B7 C2 E1 0F .?r#.....:L.....
Size : 512 (Real : 512)
000000: CD 45 10 C9 CD D3 12 CD A7 10 C9 CD 55 10 CD FB .E..........U...
000010: 0F 21 F6 13 06 00 C5 E5 CD DB 12 E1 C1 04 23 78 .!............#x
000020: FE 0B D2 30 13 FE 05 DA 16 13 CD FB 0F C3 16 13 ...0............
000030: CD FB 0F CD B0 15 F5 D5 C5 CD 96 0B D2 50 13 2A .............P.*
000040: E5 17 22 0C 00 21 10 00 36 FF CD 06 00 C3 78 13 .."..!..6.....x.
000050: 2B 22 67 17 2A E5 17 7E CD 45 10 23 CD BE 10 DA +"g.*..~.E.#....
000060: 78 13 F5 CD FB 0F F1 B3 CA 74 13 5E 23 56 CD 6E x........t.^#V.n
000070: 10 C3 78 13 7E CD 45 10 2A E5 17 7E 47 E6 C0 FE ..x.~.E.*..~G...
000080: 80 C2 8F 13 78 E6 07 FE 06 C2 F2 13 C3 BC 13 FE ....x...........
000090: 40 C2 AC 13 78 FE 76 CA F2 13 E6 07 FE 06 CA C8 @...x.v.........
0000A0: 13 78 E6 38 FE 30 C2 F2 13 C3 C8 13 78 FE 36 CA .x.8.0......x.6.
0000B0: C8 13 FE 34 CA BC 13 FE 35 C2 CE 13 3E 3D CD FD ...4....5...>=..
0000C0: 0F 2A E3 17 7E CD 45 10 2A E3 17 C3 E1 13 E6 E7 .*..~.E.*.......
0000D0: FE 02 C2 F2 13 78 E6 10 2A DB 17 C2 E1 13 2A DD .....x..*.....*.
0000E0: 17 3A 4C 17 B7 C2 F2 13 EB CD F5 16 CA F2 13 CD .:L.............
0000F0: 7D 10 C1 D1 F1 C9 43 5A 4D 45 49 41 42 44 48 53 }.....CZMEIABDHS
000100: 50 F6 F4 FC FA FE 01 07 08 03 05 21 00 00 22 55 P..........!.."U
000110: 17 AF 32 54 17 C9 F3 22 E3 17 E1 2B 22 E5 17 F5 ..2T..."...+"...
000120: 21 02 00 39 F1 31 E3 17 E5 F5 C5 D5 FB 2A E5 17 !..9.1.......*..
000130: 7E FE FF F5 E5 3A 22 17 32 46 17 21 42 17 0E 08 ~....:".2F.!B...
000140: E5 7E B7 CA 4D 14 23 5E 23 56 23 7E 12 E1 11 FC .~..M.#^#V#~....
000150: FF 19 0D C2 40 14 CD A2 15 21 57 17 7E 36 00 B7 ....@....!W.~6..
000160: CA 70 14 3D 47 23 5E 23 56 23 7E 12 78 C3 5F 14 .p.=G#^#V#~.x._.
000170: E1 F1 CA 94 14 23 22 E5 17 EB 21 AA 06 4E 23 46 .....#"...!..N#F
000180: CD EC 08 DA 94 14 CD 0B 14 2A 52 17 EB 3E 82 B7 .........*R..>..
000190: 37 C3 2A 09 3A 25 17 B7 C2 39 15 21 26 17 0E 08 7.*.:%...9.!&...
0001A0: E5 7E B7 CA F6 14 23 7E 23 56 2A E5 17 BD C2 F6 .~....#~#V*.....
0001B0: 14 7A BC C2 F6 14 E1 7E 3D C2 C4 14 F5 3D 32 25 .z.....~=....=2%
0001C0: 17 C3 DB 14 77 F5 CD 6F 15 FE 02 CA DB 14 3A 4C ....w..o......:L
0001D0: 17 B7 CA DB 14 CD B0 15 C3 2A 09 CD 55 10 F1 3C .........*..U..<
0001E0: CD 45 10 21 68 15 CD 0A 10 2A E5 17 EB CD 6E 10 .E.!h....*....n.
0001F0: CD 0B 13 C3 2A 09 E1 11 04 00 19 0D C2 A0 14 CD ....*...........
Size : 512 (Real : 512)
000000: 11 6E 17 21 80 00 1A 4F 77 0C 13 13 23 1A 77 0D .n.!...Ow...#.w.
000010: C2 0B 0B 71 1E 02 21 5C 00 CD B7 0A FE 20 CA 19 ...q..!\..... ..
000020: 0B F5 CD B9 0A FE 3A C2 35 0B F1 D6 40 77 23 CD ......:.5...@w#.
000030: B7 0A C3 3A 0B 47 36 00 23 F1 0E 08 CD CD 0A FE ...:.G6.#.......
000040: 2E CC B9 0A 0E 03 CD CD 0A CD C4 0A CA 55 0B CD .............U..
000050: B9 0A C3 49 0B 0E 04 36 00 23 0D C2 57 0B 1D C2 ...I...6.#..W...
000060: 19 0B 36 00 C3 0B 07 CD D6 08 CD EC 08 DA 0B 07 ..6.............
000070: 0A 03 77 23 C3 6A 0B 21 65 00 BE C0 78 23 BE C0 ..w#.j.!e...x#..
000080: 79 23 BE C9 EB 2A B3 17 7D 93 7C 9A EB C9 CD 84 y#...*..}.|.....
000090: 0B D0 22 B3 17 C9 3A 4E 17 FE 01 D0 E5 21 00 00 .."...:N.....!..
0000A0: CD 84 0B E1 C9 CD 51 12 DA E1 0F CA 31 0C CD E8 ......Q.....1...
0000B0: 10 E5 21 01 00 3D 3A 4C 17 CA C6 0B B7 C2 E1 0F ..!..=:L........
0000C0: CD E8 10 C3 D0 0B 21 00 00 B7 C2 D0 0B 21 01 00 ......!......!..
0000D0: 7C B7 C2 E1 0F 22 AF 17 21 26 17 0E 08 E5 7E B7 |...."..!&....~.
0000E0: CA FD 0B 23 7E 23 56 E1 E3 BD C2 FB 0B 7A BC C2 ...#~#V......z..
0000F0: FB 0B 3A AF 17 E1 77 B7 C3 0B 07 E3 E5 E1 11 04 ..:...w.........
000100: 00 19 0D C2 DD 0B 3A AF 17 B7 CA E1 0F 21 26 17 ......:......!&.
000110: 0E 08 E5 7E B7 C2 25 0C 3A AF 17 E1 77 D1 23 73 ...~..%.:...w.#s
000120: 23 72 C3 0B 07 E1 11 04 00 19 0D C2 12 0C C3 E1 #r..............
000130: 0F 21 26 17 0E 08 E5 7E B7 CA 5B 0C 3A 4C 17 B7 .!&....~..[.:L..
000140: CA 48 0C 36 00 C3 5B 0C C5 CD 55 10 7E CD 45 10 .H.6..[...U.~.E.
000150: CD FB 0F 23 5E 23 56 CD 6E 10 C1 E1 11 04 00 19 ...#^#V.n.......
000160: 0D C2 36 0C C3 0B 07 CD 51 12 21 00 00 CA 77 0C ..6.....Q.!...w.
000170: 3D C2 E1 0F CD E8 10 22 AF 17 21 6C 00 11 9F 17 =......"..!l....
000180: 0E 10 7E 12 23 13 0D C2 82 0C 3A 5D 00 FE 3F CA ..~.#.....:]..?.
000190: 40 0D CD 82 07 FE FF CA E1 0F 3E 48 01 58 45 CD @.........>H.XE.
0001A0: 77 0B 2A AF 17 E5 CA CF 0C E1 11 00 01 19 E5 11 w.*.............
0001B0: 5C 00 0E 14 CD A4 06 E1 B7 C2 40 0D 11 80 00 0E \.........@.....
0001C0: 80 1A 13 77 23 0D C2 C1 0C CD 8E 0B C3 AE 0C CD ...w#...........
0001D0: AA 0F FE 1A CA E1 0F DE 3A C2 CF 0C 57 E1 E5 CD ........:...W...
0001E0: 32 0D 5F CD 32 0D F5 CD 32 0D C1 4F 09 7B B7 C2 2._.2...2..O.{..
0001F0: 02 0D 78 B1 21 00 01 CA FC 0C 69 60 22 E5 17 C3 ..x.!.....i`"...
Size : 512 (Real : 512)
000000: 5F 10 C2 39 15 CD 6F 15 CA 21 15 3D C2 15 15 CD _..9..o..!.=....
000010: B0 15 C3 2A 09 2A E5 17 CD 90 10 CD 0B 13 C3 2A ...*.*.........*
000020: 09 3A 46 17 B7 CA 39 15 2A 4A 17 4D 44 2A 48 17 .:F...9.*J.MD*H.
000030: EB 3A 47 17 B7 37 C3 2A 09 CD 55 10 CD A2 15 21 .:G..7.*..U....!
000040: 00 00 22 50 17 CD 0B 14 32 25 17 3E 2A CD FD 0F .."P....2%.>*...
000050: 2A E5 17 CD 96 0B D2 5C 15 22 0C 00 CD 6D 10 2A *......\."...m.*
000060: E3 17 22 65 17 C3 0B 07 20 50 41 53 53 20 00 21 .."e.... PASS .!
000070: 54 17 7E B7 C8 E5 2A 55 17 2B 22 55 17 7C B5 E1 T.~...*U.+"U.|..
000080: C2 88 15 77 3D 32 25 17 7E B7 C9 11 0D 00 21 DB ...w=2%.~.....!.
000090: 16 7E A0 23 BE 23 CA 9E 15 14 1D C2 91 15 5A 16 .~.#.#........Z.
0000A0: 00 C9 3A 22 17 B7 C8 2A 23 17 77 AF 32 22 17 C9 ..:"...*#.w.2"..
0000B0: 2A E5 17 46 23 E5 CD 8B 15 21 4F 17 73 21 C7 15 *..F#....!O.s!..
0000C0: 19 19 5E 23 56 EB E9 E3 15 0B 16 E3 15 0B 16 E9 ..^#V...........
0000D0: 15 1D 16 2F 16 60 16 60 16 5D 16 5D 16 53 16 60 .../.`.`.].].S.`
0000E0: 16 4E 16 CD F9 15 C2 63 16 CD 04 16 C3 63 16 3A .N.....c.....c.:
0000F0: AA 06 BB C0 3A AB 06 BA C9 C1 E1 5E 23 56 23 E5 ....:......^#V#.
000100: C5 C3 EF 15 2A E1 17 5E 23 56 C9 CD F9 15 CA 18 ....*..^#V......
000110: 16 C1 C5 3E 02 C3 65 16 D1 D5 C3 63 16 78 FE FF ...>..e....c.x..
000120: C2 27 16 AF C3 67 16 E6 38 5F 16 00 C3 63 16 2A .'...g..8_...c.*
000130: E3 17 EB CD EF 15 C2 63 16 C3 E9 15 3A 4F 17 FE .......c....:O..
000140: 02 D8 FE 04 3F D8 2A E5 17 23 23 23 EB C9 D1 D5 ....?.*..###....
000150: C3 63 16 CD 04 16 C1 C5 3E 02 C3 65 16 D1 13 D5 .c......>..e....
000160: D1 13 D5 3E 01 3C 37 F5 2A 50 17 7C B5 CA 98 16 ...>.<7.*P.|....
000170: D5 C5 E5 21 4F 17 4E 2A E5 17 EB 21 80 16 E3 E9 ...!O.N*...!....
000180: B7 C1 D1 CA 98 16 F5 3E 23 CD FD 0F F1 CD 45 10 .......>#.....E.
000190: 3E 20 CD FD 0F C3 3C 15 3A 54 17 21 4D 17 A6 CA > ....<.:T.!M...
0001A0: AE 16 CD 3C 16 DA AE 16 F1 3E 02 C3 D9 16 F1 F5 ...<.....>......
0001B0: B7 CA D8 16 3D EB 5F 7E 2F 77 BE 2F 77 7B EB F5 ....=._~/w./w{..
0001C0: CA CC 16 CD 3C 16 D2 CC 16 CD 04 16 F1 3D CA D8 ....<........=..
0001D0: 16 D5 59 50 C1 C3 B5 16 F1 E1 C9 FF C3 C7 C2 FF ..YP............
0001E0: CD C7 C4 FF C9 C7 C7 FF E9 C7 06 C7 C6 CF 01 E7 ................
0001F0: 22 C7 C0 F7 D3 2A B1 17 23 23 46 2B 4E 2B 7E FE "....*..##F+N+~.
Size : 512 (Real : 512)
000000: 40 0D CD 32 0D CD 32 0D 77 23 1D C2 05 0D CD 32 @..2..2.w#.....2
000010: 0D F5 CD 8E 0B F1 C2 E1 0F C3 CF 0C CD AA 0F CD ................
000020: DB 10 07 07 07 07 E6 F0 F5 CD AA 0F CD DB 10 C1 ................
000030: B0 C9 C5 E5 D5 CD 1C 0D 47 D1 82 57 78 E1 C1 C9 ........G..Wx...
000040: 21 00 00 CD 84 0B DA 50 0D 3A 4E 17 B7 CC 95 07 !......P.:N.....
000050: 3E 55 01 4C 54 CD 77 0B F5 21 9F 17 11 5C 00 0E >U.LT.w..!...\..
000060: 10 7E 12 23 13 0D C2 61 0D AF 32 7C 00 3A 5D 00 .~.#...a..2|.:].
000070: FE 20 CA FE 0D 21 36 0E CD 0A 10 CD 82 07 3C CA . ...!6.......<.
000080: E1 0F CD AA 0F FE 1A CA FE 0D FE 21 DA 82 0D CD ...........!....
000090: 1F 0D F5 CD 1C 0D D1 5F 2A AF 17 19 E5 CD AA 0F ......._*.......
0000A0: FE 20 CA B1 0D E1 CD AA 0F FE 20 DA 85 0D C3 A6 . ........ .....
0000B0: 0D 2A 06 00 1E 00 2B CD AA 0F FE 09 CA D4 0D FE .*....+.........
0000C0: 0D CA D4 0D FE 21 DA E1 0F 77 1C 7B FE 11 D2 E1 .....!...w.{....
0000D0: 0F C3 B6 0D D5 E5 EB 2A 06 00 23 5E 23 56 E1 72 .......*..#^#V.r
0000E0: 2B 73 2B 36 C3 CD 84 0B D2 E1 0F EB 2A 06 00 EB +s+6........*...
0000F0: 22 06 00 EB D1 73 23 D1 73 23 72 C3 82 0D F1 C2 "....s#.s#r.....
000100: 14 0E 21 0A 0E E5 2A E5 17 E9 2A 06 00 19 22 B1 ..!...*...*...".
000110: 17 C3 0B 07 21 40 0E CD 0A 10 2A B3 17 CD A7 10 ....!@....*.....
000120: CD FB 0F 2A E5 17 CD A7 10 CD FB 0F 2A 06 00 2B ...*........*..+
000130: CD A7 10 C3 0B 07 0D 0A 53 59 4D 42 4F 4C 53 00 ........SYMBOLS.
000140: 0D 0A 4E 45 58 54 20 20 50 43 20 20 45 4E 44 0D ..NEXT PC END.
000150: 0A 00 CD 42 12 3D C2 E1 0F CD E8 10 CD 55 10 E5 ...B.=.......U..
000160: CD A7 10 CD FB 0F E1 E5 3A 4D 17 B7 CA 79 0E 5E ........:M...y.^
000170: 23 56 EB CD A7 10 C3 7D 0E 7E CD 45 10 CD FB 0F #V.....}.~.E....
000180: CD EC 0F CD 14 10 E1 FE 0D CA D0 0E FE 2E C2 9A ................
000190: 0E 3A 6E 17 B7 CA 0B 07 3E 2E FE 22 E5 C2 AF 0E .:n.....>.."....
0001A0: CD 20 10 E1 FE 0D CA 5C 0E 77 23 E5 C3 A0 0E CD . .....\.w#.....
0001B0: 54 12 3D C2 E1 0F CD E8 10 3A 4D 17 B7 CA C9 0E T.=......:M.....
0001C0: EB E1 73 23 72 23 C3 5C 0E B7 C2 E1 0F 7D E1 77 ..s#r#.\.....}.w
0001D0: 23 3A 4D 17 B7 CA 5C 0E 23 C3 5C 0E 3E 01 C3 E3 #:M...\.#.\.>...
0001E0: 0E 3E 02 32 54 17 CD 42 12 21 00 00 22 50 17 23 .>.2T..B.!.."P.#
0001F0: CA 10 0F DA 00 0F CD E8 10 F5 7D B4 CA E1 0F F1 ..........}.....
Size : 512 (Real : 512)
000000: 10 D2 1E 17 E5 2F 85 6F 3E FF 8C 67 7B B9 C2 19 ...../.o>..g{...
000010: 17 7A 90 C2 19 17 E1 3C C9 33 33 C3 FA 16 AF C9 .z.....<.33.....
000020: 00 00 00 39 45 35 00 44 41 41 00 30 39 33 00 0A ...9E5.DAA.093..
000030: 3A 31 00 30 45 41 00 30 30 46 00 32 30 43 00 42 :1.0EA.00F.20C.B
000040: 31 30 00 45 31 43 44 41 41 31 30 46 45 32 30 44 10.E1CDAA10FE20D
000050: 41 38 35 30 45 43 33 41 36 33 46 0D 0A 3A 31 30 A850EC3A63F..:10
000060: 30 45 42 30 30 30 30 45 32 41 30 36 30 40 31 45 0EB0000E2A060@1E
000070: 30 30 32 42 43 44 41 41 31 30 46 45 30 39 43 41 002BCDAA10FE09CA
000080: 44 34 30 45 46 45 37 33 0D 0A 3A 31 30 30 45 43 D40EFE73..:100EC
000090: 30 30 30 30 44 43 41 44 34 30 45 46 45 32 31 44 0000DCAD40EFE21D
0000A0: 41 45 31 31 30 37 37 31 43 37 42 46 45 31 30 44 AE110771C7BFE10D
0000B0: 32 45 31 42 30 3E 1A 37 C1 D1 E1 C9 44 30 30 30 2E1B0>.7....D000
0000C0: 31 30 43 33 42 36 30 45 44 35 45 35 45 42 32 41 10C3B60ED5E5EB2A
0000D0: 30 36 30 30 32 33 35 45 32 33 35 36 45 31 37 32 0600235E2356E172
0000E0: 35 39 0D 0A 3A 31 30 00 20 90 00 40 00 08 21 10 59..:10. ..@..!.
0000F0: 92 10 21 12 42 48 00 09 10 02 40 00 10 40 08 08 ..!.BH....@..@..
000100: 41 02 00 82 42 48 09 09 20 42 21 01 20 08 22 12 A...BH.. B!. .".
000110: 11 10 10 88 42 48 49 24 24 92 42 49 24 42 49 20 ....BHI$$.BI$BI
000120: 84 24 84 10 92 09 10 92 48 49 09 20 82 44 04 24 .$......HI. .D.$
000130: 90 90 84 91 08 48 90 90 84 84 44 24 24 20 48 08 .....H....D$$ H.
000140: 04 08 08 00 04 00 20 84 20 08 42 10 92 04 21 24 ...... . .B...!$
000150: 44 24 04 88 22 24 92 42 24 90 92 44 08 41 08 21 D$.."$.B$..D.A.!
000160: 02 10 11 10 41 08 42 08 08 90 92 49 24 84 90 92 ....A.B....I$...
000170: 12 48 20 42 01 24 90 92 49 09 24 92 48 08 92 49 .H B.$..I.$.H..I
000180: 08 24 08 91 04 81 12 48 11 24 89 21 20 24 92 49 .$.....H.$.! $.I
000190: 20 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 24 92 49 24 91 00 49 20 ........$.I$..I
0001C0: 89 24 12 48 20 08 40 40 08 24 84 84 90 90 22 10 .$.H .@@.$....".
0001D0: 82 01 55 55 55 55 55 55 40 00 80 48 22 48 91 24 ..UUUUUU@..H"H.$
0001E0: 49 24 92 49 12 44 42 49 24 80 84 84 48 21 24 90 I$.I.DBI$...H!$.
0001F0: 48 92 00 49 24 90 91 08 08 91 24 44 82 48 91 11 H..I$.....$D.H..
Size : 512 (Real : 512)
000000: E5 3D CA 0F 0F 3D C2 E1 0F CD E8 10 22 50 17 E1 .=...=......"P..
000010: 22 55 17 AF 32 47 17 CD 0B 13 C3 2A 09 CD 14 10 "U..2G.....*....
000020: FE 0D C2 2B 0F CD 0B 13 C3 0B 07 01 0B 00 21 F6 ...+..........!.
000030: 13 BE CA 3E 0F 23 04 0D C2 31 0F C3 E1 0F CD 14 ...>.#...1......
000040: 10 FE 0D C2 E1 0F C5 CD 55 10 CD DB 12 CD FB 0F ........U.......
000050: CD EC 0F CD 51 12 B7 CA 0B 07 3D C2 E1 0F CD E8 ....Q.....=.....
000060: 10 C1 78 FE 05 D2 8F 0F 7C B7 C2 E1 0F 7D FE 02 ..x.....|....}..
000070: D2 E1 0F CD A4 12 67 41 3E FE CD 89 0F A4 41 67 ......gA>.....Ag
000080: 7D CD 89 0F B4 12 C3 0B 07 05 C8 07 C3 89 0F C2 }...............
000090: 9F 0F 7C B7 C2 E1 0F 7D 21 E0 17 77 C3 0B 07 E5 ..|....}!..w....
0000A0: CD C2 12 D1 73 23 72 C3 0B 07 E5 D5 C5 3A 5B 00 ....s#r......:[.
0000B0: E6 7F CA CA 0F 16 00 5F 21 80 00 19 7E FE 1A CA ......._!...~...
0000C0: DC 0F 21 5B 00 34 B7 C3 DD 0F 0E 14 11 5C 00 CD ..![.4.......\..
0000D0: A4 06 B7 C2 B5 17 32 5B 00 C3 B5 0F 37 C1 D1 E1 ......2[....7...
0000E0: C9 CD 55 10 3E 3F CD FD 0F C3 0B 07 0E 0A 11 6D ..U.>?.........m
0000F0: 17 CD A4 06 21 6F 17 22 6B 17 C9 3E 20 E5 D5 C5 ....!o."k..> ...
000100: 5F 0E 02 CD A4 06 C1 D1 E1 C9 7E B7 C8 CD FD 0F _.........~.....
000110: 23 C3 0A 10 CD 20 10 FE 7F C8 FE 61 D8 E6 5F C9 #.... .....a.._.
000120: E5 21 6E 17 7E B7 3E 0D CA 34 10 35 2A 6B 17 7E .!n.~.>..4.5*k.~
000130: 23 22 6B 17 E1 C9 FE 0A D2 40 10 C6 30 C3 FD 0F #"k......@..0...
000140: C6 37 C3 FD 0F F5 1F 1F 1F 1F E6 0F CD 36 10 F1 .7...........6..
000150: E6 0F C3 36 10 3E 0D CD FD 0F 3E 0A C3 FD 0F C5 ...6.>....>.....
000160: D5 E5 0E 0B CD A4 06 E6 01 E1 D1 C1 C9 EB D5 EB ................
000170: CD A7 10 D1 3A 4C 17 B7 C0 CD F5 16 C8 CD FB 0F ....:L..........
000180: 3E 2E CD FD 0F 5E 2B 7E CD FD 0F 1D C2 86 10 C9 >....^+~........
000190: E5 3A 4C 17 B7 D1 C0 CD F5 16 C8 CD 55 10 CD 85 .:L.........U...
0001A0: 10 3E 3A CD FD 0F C9 7C CD 45 10 7D C3 45 10 FE .>:....|.E.}.E..
0001B0: 7F D2 B9 10 FE 20 D2 FD 0F 3E 2E C3 FD 0F EB 2A ..... ...>.....*
0001C0: 67 17 7D 93 6F 7C 9A EB C9 FE 2F C8 FE 2B C8 FE g.}.o|..../..+..
0001D0: 2D C8 FE 0D C8 FE 2C C8 FE 20 C9 D6 30 FE 0A D8 -.....,.. ..0...
0001E0: C6 F9 FE 10 D8 C3 E1 0F EB 5E 23 56 23 EB C9 D5 .........^#V#...
0001F0: CD 14 10 2A B1 17 F5 4E 79 FE 10 D2 E1 0F F1 EB ...*...Ny.......
Size : 512 (Real : 512)
000000: 08 49 24 84 88 80 10 92 08 92 48 91 20 44 09 20 .I$.......H. D.
000010: 91 09 01 01 12 10 84 09 00 01 20 22 04 10 08 40 .......... "...@
000020: 00 12 44 44 22 40 04 80 02 12 10 80 00 88 20 48 ..DD"@........ H
000030: 11 20 22 10 20 22 42 08 49 00 04 88 84 24 92 00 . ". "B.I....$..
000040: 80 01 21 12 24 09 01 11 20 00 20 10 88 40 48 02 ..!.$... . ..@H.
000050: 10 92 48 04 42 49 02 00 01 00 88 81 21 24 80 91 ..H.BI......!$..
000060: 24 08 09 20 20 08 48 20 04 89 01 20 08 04 90 12 $.. .H ... ....
000070: 21 11 20 40 12 41 12 41 00 40 48 40 48 80 02 10 !. @.A.A.@H@H...
000080: 00 92 42 10 44 40 40 42 49 04 88 92 40 12 01 00 ..B.D@@BI...@...
000090: 24 91 01 10 00 80 09 24 48 42 44 21 08 84 80 42 $......$HBD!...B
0000A0: 10 80 90 00 01 20 00 04 48 80 92 49 24 90 24 00 ..... ..H..I$.$.
0000B0: 00 00 08 92 24 22 04 89 24 10 91 01 20 82 44 91 ....$"..$... .D.
0000C0: 00 88 11 10 84 82 24 82 08 92 22 49 09 20 88 24 ......$..."I. .$
0000D0: 84 49 24 44 81 08 24 08 10 82 42 22 20 40 08 00 .I$D..$...B" @..
0000E0: 40 40 44 10 10 90 92 40 04 01 12 00 10 22 10 21 @@D....@.....".!
0000F0: 08 02 08 42 02 00 22 11 08 22 10 44 84 22 10 84 ...B.."..".D."..
000100: 40 00 00 00 01 00 24 04 08 82 44 24 88 24 90 02 @.....$...D$.$..
000110: 20 00 10 08 48 00 90 01 10 84 90 42 12 48 10 00 ...H......B.H..
000120: 81 10 21 08 04 90 40 20 20 84 44 84 48 10 44 00 ..!...@ .D.H.D.
000130: 49 02 12 02 10 82 48 49 21 24 84 82 01 01 02 22 I.....HI!$....."
000140: 02 00 84 00 90 44 21 12 22 44 90 20 08 49 24 12 .....D!."D. .I$.
000150: 49 09 12 22 44 20 91 20 10 12 10 40 80 90 42 10 I.."D . ...@..B.
000160: 91 24 08 24 91 12 40 00 00 00 88 42 01 01 01 24 .$.$..@....B...$
000170: 04 00 04 90 20 01 08 88 24 90 12 24 04 08 84 10 .... ...$..$....
000180: 31 BB 00 11 80 00 2A BB 00 19 22 BB 00 EB 0E 1A 1.....*...".....
000190: CD 05 00 11 5C 00 0E 14 CD 05 00 FE 00 CA A8 00 ....\...........
0001A0: 21 A8 00 E5 2A BD 00 E9 C3 83 00 FB 76 02 44 92 !...*.......v.D.
0001B0: 00 80 24 08 00 21 04 44 04 11 09 80 00 00 01 00 ..$..!.D........
0001C0: 24 90 81 00 00 00 01 00 10 00 84 04 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 ................
Size : 512 (Real : 512)
000000: D5 F5 2A 6B 17 E5 2A 6D 17 E5 EB 0C CD C9 10 CA ..*k..*m........
000010: 21 11 0D CA 3B 11 2B BE C2 3B 11 CD 14 10 C3 0C !...;.+..;......
000020: 11 0D C2 3B 11 E1 E1 E1 CD CC 10 CA 34 11 CD 14 ...;........4...
000030: 10 C3 44 11 E1 23 5E 23 56 E1 C9 E1 22 6D 17 E1 ..D..#^#V..."m..
000040: 22 6B 17 F1 E1 F5 7E 2F 85 6F 3E FF 8C 67 2B 2B "k....~/.o>..g++
000050: F1 C3 F6 10 EB 21 00 00 FE 2E CA EF 10 FE 40 C2 .....!........@.
000060: 6C 11 CD EF 10 E5 EB 5E 23 56 E1 C9 FE 3D C2 7B l......^#V...=.{
000070: 11 CD EF 10 E5 EB 5E 16 00 E1 C9 FE 27 C2 9F 11 ......^.....'...
000080: EB CD 20 10 FE 20 DA E1 0F FE 27 C2 9A 11 CD 20 .. .. ....'....
000090: 10 CD CC 10 C8 FE 27 C2 E1 0F 53 5F C3 81 11 FE ......'...S_....
0000A0: 23 C2 C3 11 CD 14 10 CD CC 10 CA C1 11 D6 30 FE #.............0.
0000B0: 0A D2 E1 0F 29 44 4D 29 29 09 4F 06 00 09 C3 A4 ....)DM)).O.....
0000C0: 11 EB C9 FE 5E C2 DA 11 D5 2A E1 17 5E 23 56 23 ....^....*..^#V#
0000D0: CD 14 10 FE 5E CA CC 11 E1 C9 CD DB 10 29 29 29 ....^........)))
0000E0: 29 B5 6F CD 14 10 CD CC 10 C2 C3 11 EB C9 EB 22 ).o............"
0000F0: 20 17 EB 73 23 72 23 E5 21 5E 17 34 E1 C9 FE 2D ..s#r#.!^.4...-
000100: C2 09 12 11 00 00 C3 2F 12 FE 2B C2 16 12 EB 2A ......./..+....*
000110: 20 17 EB C3 1E 12 CD 54 11 FE 2B C2 2C 12 D5 CD ......T..+.,...
000120: 14 10 CD 54 11 C1 EB 09 EB C3 19 12 FE 2D C0 CD ...T.........-..
000130: 14 10 D5 CD 54 11 C1 F5 79 93 5F 78 9A 57 F1 C3 ....T...y._x.W..
000140: 19 12 CD 14 10 21 4D 17 36 00 FE 57 C2 54 12 36 .....!M.6..W.T.6
000150: FF CD 14 10 21 5E 17 36 00 23 FE 0D CA 96 12 FE ....!^.6.#......
000160: 2C C2 6F 12 3E 80 32 5E 17 11 00 00 C3 72 12 CD ,.o.>.2^.....r..
000170: FE 11 CD EE 11 FE 0D CA 96 12 CD 14 10 CD FE 11 ................
000180: CD EE 11 FE 0D CA 96 12 CD 14 10 CD FE 11 CD EE ................
000190: 11 FE 0D C2 E1 0F 11 5E 17 1A FE 81 CA E1 0F 13 .......^........
0001A0: B7 07 0F C9 E5 21 06 14 58 16 00 19 4E 21 DF 17 .....!..X...N!..
0001B0: 7E EB E1 C9 CD A4 12 0D CA BF 12 1F C3 B7 12 E6 ~...............
0001C0: 01 C9 D6 06 21 01 14 5F 16 00 19 5E 16 FF 21 E7 ....!.._...^..!.
0001D0: 17 19 C9 CD C2 12 5E 23 56 EB C9 78 FE 05 D2 EE ......^#V..x....
0001E0: 12 CD B4 12 B7 3E 2D CA FD 0F 7E C3 FD 0F F5 7E .....>-...~....~
0001F0: CD FD 0F 3E 3D CD FD 0F F1 C2 04 13 21 E0 17 7E ...>=.......!..~
Size : 512 (Real : 512)
000000: 3D 42 3A 42 55 49 4C 44 2E 43 4F 4D 00 00 00 00 =B:BUILD.COM....
000010: 00 00 00 00 00 00 00 00 00 00 00 00 E5 52 45 56 .............REV
000020: 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 $$$........
000030: 00 00 00 00 00 00 00 00 00 00 00 00 E5 43 49 4E .............CIN
000040: 54 45 52 50 20 43 4F 4D 00 00 00 00 00 00 00 00 TERP COM........
000050: 00 00 00 00 00 00 00 00 00 00 00 00 E5 52 45 56 .............REV
000060: 20 20 20 20 20 24 24 24 00 00 00 00 00 00 00 00 $$$........
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 03 FF 03 ................
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 F7 27 00 00 00 00 ...........'....
0000A0: 00 FF 00 EE 03 71 1C FF FF 01 15 FF FF F7 27 00 .....q........'.
0000B0: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 4D 00 FF .............M..
0000C0: 00 FF 00 FF 00 02 44 1C 1A FF 00 0D 07 0B 01 FF ......D.........
0000D0: 00 FF 00 FF 00 43 4F 4D 00 EB 03 50 1C AD 03 FF .....COM...P....
0000E0: 00 FF 00 FF 00 FF 00 FF 00 FF 00 FF 00 01 00 01 ................
0000F0: 1A 04 01 0C 4D 65 1C C3 A3 01 2E 43 49 4E 24 43 ....Me.....CIN$C
000100: 4C 4F 53 45 20 45 52 52 4F 52 20 4F 4E 20 4D 4F LOSE ERROR ON MO
000110: 44 55 4C 45 20 24 45 4E 44 20 4F 46 20 49 4E 50 DULE $END OF INP
000120: 55 54 24 43 4F 44 45 20 45 52 52 4F 52 24 20 4C UT$CODE ERROR$ L
000130: 4F 41 44 45 44 24 20 4E 4F 54 20 46 4F 55 4E 44 OADED$ NOT FOUND
000140: 24 4C 4F 41 44 20 45 52 52 4F 52 24 4E 50 53 20 $LOAD ERROR$NPS
000150: 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 4C 4F 41 44 MICRO-COBOL LOAD
000160: 45 52 20 56 45 52 53 49 4F 4E 20 32 2E 31 24 43 ER VERSION 2.1$C
000170: 49 4E 00 00 00 00 20 4E 4F 54 20 46 4F 55 4E 44 IN.... NOT FOUND
000180: 24 43 49 4E 54 45 52 50 2E 43 4F 4D 20 4E 4F 54 $CINTERP.COM NOT
000190: 20 46 4F 55 4E 44 20 20 20 24 31 E0 0A 21 06 00 FOUND $1..!..
0001A0: 22 E2 0A 4E 23 46 0B 60 69 22 29 0B 2B 22 EE 0A "..N#F.`i").+"..
0001B0: CD 77 02 01 55 01 CD 82 02 01 20 00 2A E9 0A 09 .w..U..... .*...
0001C0: 36 00 01 78 01 C5 11 09 00 2A E9 0A 19 44 4D 11 6..x.....*...DM.
0001D0: 07 00 CD 4C 03 2A E9 0A 44 4D CD DA 02 FE FF C2 ...L.*..DM......
0001E0: 03 02 2A E9 0A 23 44 4D CD 92 02 01 03 01 CD 82 ..*..#DM........
0001F0: 02 01 7F 01 CD 82 02 CD 11 03 CD EB 03 CD 48 04 ..............H.
Size : 512 (Real : 512)
000000: DD 30 19 4E CD 67 06 C1 48 A1 1F D2 11 07 3E 00 .0.N.g..H.....>.
000010: C9 2A DD 30 E5 3A E0 30 3C 5F 16 00 01 E4 30 CD .*.0.:.0<_....0.
000020: F0 03 2A DD 30 7E D6 80 4F CD 67 06 F5 2A E0 30 ..*.0~..O.g..*.0
000030: 26 00 EB 2A DD 30 19 4E CD 67 06 C1 48 A1 1F D2 &..*.0.N.g..H...
000040: 4D 07 3A E4 30 D6 80 32 E4 30 C3 80 07 2A DD 30 M.:.0..2.0...*.0
000050: 4E CD 67 06 F5 2A E0 30 26 00 EB 2A DD 30 19 7E N.g..*.0&..*.0.~
000060: D6 80 4F CD 67 06 C1 48 A1 1F D2 7D 07 2A E0 30 ..O.g..H...}.*.0
000070: 26 00 01 E4 30 09 7E D6 80 77 C3 80 07 3E 00 C9 &...0.~..w...>..
000080: 3E 01 C9 21 E1 30 71 2A 9A 30 23 23 4E 23 46 CD >..!.0q*.0##N#F.
000090: 61 03 22 89 30 2A 9A 30 4E 23 46 CD 61 03 22 7A a.".0*.0N#F.a."z
0000A0: 30 44 4D CD B0 06 1F D2 B3 07 21 E4 30 22 7A 30 0DM.......!.0"z0
0000B0: C3 C5 07 2A 89 30 44 4D CD B0 06 1F D2 C5 07 21 ...*.0DM.......!
0000C0: E4 30 22 89 30 CD 8E 05 21 E1 30 BE C2 D6 07 3A .0".0...!.0....:
0000D0: D4 30 2F 32 D4 30 0E 03 CD 3C 05 C9 2A 9A 30 4E .0/2.0...<..*.0N
0000E0: 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 2A 9A #F.a."z0!.."x0*.
0000F0: 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B 30 DA 0##N#F.PY!x0.K0.
000100: 2D 08 2A 78 30 EB 2A 7A 30 19 4E CD 67 06 1F DA -.*x0.*z0.N.g...
000110: 20 08 2A 9A 30 23 23 4E 23 46 03 60 69 22 78 30 .*.0##N#F.`i"x0
000120: 11 01 00 2A 78 30 19 22 78 30 D2 EE 07 2A 9A 30 ...*x0."x0...*.0
000130: 23 23 11 78 30 CD 32 30 B5 C2 43 08 3A D4 30 2F ##.x0.20..C.:.0/
000140: 32 D4 30 0E 02 CD 3C 05 C9 21 E3 30 36 00 2A 9A 2.0...<..!.06.*.
000150: 30 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 0N#F.a."z0!.."x0
000160: 2A 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B *.0##N#F.PY!x0.K
000170: 30 DA 01 09 2A 78 30 EB 2A 7A 30 19 7E 32 E2 30 0...*x0.*z0.~2.0
000180: 4F CD 67 06 1F DA F4 08 3E 00 11 78 30 CD 3D 30 O.g.....>..x0.=0
000190: B5 D6 01 9F 2A 9A 30 23 23 4E 23 46 0B 1B F5 CD ....*.0##N#F....
0001A0: 35 30 B5 D6 01 9F C1 48 B1 1F D2 E6 08 2A E2 30 50.....H.....*.0
0001B0: 4D CD 97 06 F5 3A E2 30 D6 80 4F CD 67 06 C1 48 M....:.0..O.g..H
0001C0: B1 F5 3A E3 30 2F C1 48 A1 1F D2 D5 08 21 E3 30 ..:.0/.H.....!.0
0001D0: 36 01 C3 E3 08 2A 9A 30 23 23 4E 23 46 03 60 69 6....*.0##N#F.`i
0001E0: 22 78 30 C3 F4 08 2A 9A 30 23 23 4E 23 46 03 60 "x0...*.0##N#F.`
0001F0: 69 22 78 30 11 01 00 2A 78 30 19 22 78 30 D2 60 i"x0...*x0."x0.`
Size : 512 (Real : 512)
000000: CD 1E 09 01 F3 0A C5 2A E9 0A 44 4D 11 21 00 CD .......*..DM.!..
000010: 4C 03 01 20 00 2A E9 0A 09 36 00 2A E9 0A 44 4D L.. .*...6.*..DM
000020: CD DA 02 FE FF C2 3D 02 CD 77 02 01 8A 01 CD 82 ......=..w......
000030: 02 CD 11 03 2A 26 0B E5 11 80 00 01 80 00 CD 4C ....*&.........L
000040: 03 01 14 0B C5 11 04 00 01 FC 00 CD 4C 03 21 80 ............L.!.
000050: 00 22 E0 0A 21 65 02 E5 2A E0 0A E9 FB 76 21 2B ."..!e..*....v!+
000060: 0B 71 2A 2B 0B 26 00 EB 0E 02 CD 05 00 C9 0E 0D .q*+.&..........
000070: CD 67 02 0E 0A CD 67 02 C9 21 2D 0B 70 2B 71 2A .g....g..!-.p+q*
000080: 2C 0B EB 0E 09 CD 05 00 C9 21 2F 0B 70 2B 71 2A ,........!/.p+q*
000090: 2E 0B 22 E2 0A 21 F0 0A 36 FF CD 77 02 3A F0 0A .."..!..6..w.:..
0000A0: 3C 32 F0 0A 4F 06 00 2A E2 0A 09 7E D6 20 C6 FF <2..O..*...~. ..
0000B0: 9F F5 3A F0 0A D6 08 9F C1 48 A1 1F D2 D9 02 2A ..:......H.....*
0000C0: F0 0A 26 00 EB 2A E2 0A 19 4E CD 67 02 C3 A6 02 ..&..*...N.g....
0000D0: C9 21 31 0B 70 2B 71 2A 30 0B EB 0E 0F CD 05 00 .!1.p+q*0.......
0000E0: C9 21 33 0B 70 2B 71 2A 32 0B EB 0E 10 CD 05 00 .!3.p+q*2.......
0000F0: FE FF C2 10 03 CD 77 02 01 08 01 CD 82 02 2A 32 ......w.......*2
000100: 29 0D 0A 31 32 2F 30 35 63 20 20 53 45 52 49 45 )..12/05c SERIE
000110: 53 2E 50 54 33 20 20 20 31 36 6B 20 7D 0D 0A 31 S.PT3 16k }..1
000120: 32 2F 30 35 64 20 20 53 45 52 49 45 53 2E 50 54 2/05d SERIES.PT
000130: 34 20 20 20 31 34 6B 20 7D 0D 0A 31 32 2F 30 35 4 14k }..12/05
000140: 65 20 20 53 45 52 49 45 53 2E 50 54 35 20 20 20 e SERIES.PT5
000150: 31 36 6B 20 7D 0D 0A 31 32 2F 30 35 66 20 20 53 16k }..12/05f S
000160: 45 52 49 45 53 2E 50 54 36 20 20 20 31 36 6B 20 ERIES.PT6 16k
000170: 7D 0D 0A 31 32 2F 30 35 67 20 20 53 45 52 49 45 }..12/05g SERIE
000180: 53 2E 50 54 37 20 20 20 31 34 6B 20 7D 0D 0A 31 S.PT7 14k }..1
000190: 32 2F 30 35 68 20 20 53 45 52 49 45 53 2E 50 54 2/05h SERIES.PT
0001A0: 38 20 20 20 31 37 6B 20 7D 0D 0A 0D 0A 31 32 2F 8 17k }....12/
0001B0: 30 36 20 20 20 45 58 41 4D 2D 6E 6E 2E 43 42 4C 06 EXAM-nn.CBL
0001C0: 20 20 34 34 6B 20 7D 20 54 68 65 20 63 6F 6D 70 44k } The comp
0001D0: 6C 65 74 65 20 73 65 74 20 6F 66 20 65 78 61 6D lete set of exam
0001E0: 70 6C 65 20 70 72 6F 67 72 61 6D 73 20 75 73 65 ple programs use
0001F0: 64 0D 0A 20 20 20 20 20 20 20 20 45 58 41 4D 2D d.. EXAM-
Size : 512 (Real : 512)
000000: 08 2A 9A 30 23 23 11 78 30 CD 32 30 B5 C2 17 09 .*.0##.x0.20....
000010: 3A D4 30 2F 32 D4 30 0E 02 CD 3C 05 C9 2A 9A 30 :.0/2.0...<..*.0
000020: 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 30 2A N#F.a."z0!.."x0*
000030: 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 4B 30 .0##N#F.PY!x0.K0
000040: DA 6E 09 2A 78 30 EB 2A 7A 30 19 4E CD 7F 06 1F .n.*x0.*z0.N....
000050: DA 61 09 2A 9A 30 23 23 4E 23 46 03 60 69 22 78 .a.*.0##N#F.`i"x
000060: 30 11 01 00 2A 78 30 19 22 78 30 D2 2F 09 2A 9A 0...*x0."x0./.*.
000070: 30 23 23 11 78 30 CD 32 30 B5 C2 84 09 3A D4 30 0##.x0.20....:.0
000080: 2F 32 D4 30 0E 02 CD 3C 05 C9 21 26 31 71 2A 26 /2.0...<..!&1q*&
000090: 31 4D CD 67 06 1F D2 9C 09 3E 01 C9 3A 26 31 D6 1M.g.....>..:&1.
0000A0: 80 4F CD 67 06 1F D2 AC 09 3E 00 C9 01 49 53 CD .O.g.....>...IS.
0000B0: 4E 02 3E 01 C9 21 82 30 36 00 3E 09 21 82 30 BE N.>..!.06.>.!.0.
0000C0: DA E0 09 2A 82 30 26 00 01 08 31 09 E5 2A 82 30 ...*.0&...1..*.0
0000D0: 26 00 01 E4 30 09 D1 1A 77 21 82 30 34 C2 BA 09 &...0...w!.04...
0000E0: 3A 1C 31 32 1A 31 3A 23 31 32 21 31 C9 2A 7A 30 :.12.1:#12!1.*z0
0000F0: 7E 87 87 87 87 D6 00 D6 01 9F 21 1D 31 B6 1F D2 ~.........!.1...
000100: 59 0A 21 27 31 36 00 3A 20 31 3D 3D 21 27 31 BE Y.!'16.: 1==!'1.
000110: DA 45 0A 2A 27 31 26 00 EB 2A 7A 30 19 7E 87 87 .E.*'1&..*z0.~..
000120: 87 87 E5 2A 27 31 26 00 01 01 00 09 EB 2A 7A 30 ...*'1&......*z0
000130: 19 F5 7E E6 F8 1F 1F 1F 1F C1 48 B1 E1 77 21 27 ..~.......H..w!'
000140: 31 34 C2 07 0A 3A 20 31 3D 4F 06 00 2A 7A 30 09 14...: 1=O..*z0.
000150: 7E 87 87 87 87 77 C3 5E 0A 21 1E 31 36 01 C9 3A ~....w.^.!.16..:
000160: 20 31 32 28 31 21 93 30 36 01 3A 20 31 3D 21 93 12(1!.06.: 1=!.
000170: 30 BE DA A6 0A 21 28 31 35 4E 06 00 2A 7A 30 09 0....!(15N..*z0.
000180: 7E E6 F8 1F 1F 1F 1F F5 3A 28 31 3D 4F 06 00 E5 ~.......:(1=O...
000190: 2A 7A 30 09 7E 87 87 87 87 D1 C1 48 B1 EB 77 21 *z0.~......H..w!
0001A0: 93 30 34 C2 6A 0A 2A 7A 30 7E E6 F8 1F 1F 1F 1F .04.j.*z0~......
0001B0: 77 2A 7A 30 7E FE 09 C2 BF 0A 2A 7A 30 36 99 C9 w*z0~.....*z06..
0001C0: 21 29 31 71 21 82 30 36 01 3A 29 31 21 82 30 BE !)1q!.06.:)1!.0.
0001D0: DA DD 0A CD 5F 0A 21 82 30 34 C2 C9 0A C9 21 2A ...._.!.04....!*
0001E0: 31 71 21 1E 31 36 00 3A 2A 31 FE 00 C2 F5 0A 21 1q!.16.:*1.....!
0001F0: 82 30 36 00 C9 21 82 30 36 00 3A 2A 31 3D 21 82 .06..!.06.:*1=!.
Size : 512 (Real : 512)
000000: C3 AD 01 10 27 E8 03 64 00 0A 00 20 46 41 54 41 ....'..d... FATA
000010: 4C 20 45 52 52 4F 52 24 20 27 30 20 45 58 45 43 L ERROR$ '0 EXEC
000020: 55 54 49 4F 4E 20 45 52 52 4F 52 53 24 0A 4F 50 UTION ERRORS$.OP
000030: 45 52 41 54 4F 52 20 45 4E 54 45 52 20 41 20 3C ERATOR ENTER A <
000040: 43 52 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 24 CR> TO CONTINUE$
000050: 09 20 4F 52 20 45 4E 54 45 52 20 41 4E 20 22 53 . OR ENTER AN "S
000060: 22 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 2E 24 " TO TERMINATE.$
000070: 0D 0A 3F 24 4E 50 53 20 4D 49 43 52 4F 2D 43 4F ..?$NPS MICRO-CO
000080: 42 4F 4C 20 49 4E 54 45 52 50 52 45 54 45 52 20 BOL INTERPRETER
000090: 56 45 52 53 49 4F 4E 20 32 2E 31 24 45 58 45 43 VERSION 2.1$EXEC
0000A0: 55 54 49 4F 4E 20 42 45 47 49 4E 53 24 31 78 30 UTION BEGINS$1x0
0000B0: 2A 94 30 E5 11 04 00 01 8B 30 CD F0 03 21 06 00 *.0......0...!..
0000C0: 22 7A 30 4E 23 46 0B 60 69 22 9C 30 EB 2A 8B 30 "z0N#F.`i".0.*.0
0000D0: CD 1F 30 22 8B 30 2A 8D 30 EB 2A 98 30 19 23 23 ..0".0*.0.*.0.##
0000E0: 22 8D 30 2A 8B 30 22 96 30 2A 8D 30 22 80 30 22 ".0*.0".0*.0".0"
0000F0: 7E 30 01 74 01 CD 2B 02 01 9C 01 CD 2B 02 2A 98 ~0.t..+.....+.*.
000100: 30 22 7A 30 5E 23 56 EB 22 9A 30 CD F9 22 FB 76 0"z0^#V.".0..".v
000110: 21 A0 30 71 2A A0 30 26 00 EB 0E 02 CD 05 00 C9 !.0q*.0&........
000120: 0E 0D CD 10 02 0E 0A CD 10 02 C9 21 A2 30 70 2B ...........!.0p+
000130: 71 CD 20 02 2A A1 30 EB 0E 09 CD 05 00 C9 21 A4 q. .*.0.......!.
000140: 30 70 2B 71 2A A3 30 EB 0E 0A CD 05 00 C9 21 A6 0p+q*.0.......!.
000150: 30 70 2B 71 CD 20 02 2A A5 30 7C 4F CD 10 02 2A 0p+q. .*.0|O...*
000160: A5 30 7D 4F CD 10 02 21 A7 30 36 04 2A A7 30 26 .0}O...!.06.*.0&
000170: 00 01 84 30 09 7E 3C 77 FE 39 C2 B3 02 2A A7 30 ...0.~<w.9...*.0
000180: 26 00 01 84 30 09 36 30 3E 00 21 A7 30 BE D2 B0 &...0.60>.!.0...
000190: 02 3A A7 30 3D 32 A7 30 4F 06 00 21 84 30 09 7E .:.0=2.0O..!.0.~
0001A0: FE 20 C2 B0 02 2A A7 30 26 00 01 84 30 09 36 30 . ...*.0&...0.60
0001B0: C3 6C 02 C9 21 A9 30 70 2B 71 2A A8 30 44 4D CD .l..!.0p+q*.0DM.
0001C0: 4E 02 11 0B 01 0E 09 CD 05 00 21 D2 02 E5 2A 7C N.........!...*|
0001D0: 30 E9 C9 11 25 00 2A 9E 30 19 EB 0E 1A CD 05 00 0...%.*.0.......
0001E0: C9 21 AB 30 70 2B 71 11 80 00 0E 1A CD 05 00 2A .!.0p+q........*
0001F0: AA 30 EB 0E 0F CD 05 00 32 AC 30 CD D3 02 3A AC .0......2.0...:.
Size : 512 (Real : 512)
000000: 30 BE DA 1C 0B CD ED 09 3A 1D 31 2F 21 1E 31 A6 0.......:.1/!.1.
000010: 1F D2 15 0B C9 21 82 30 34 C2 FA 0A C9 21 2C 31 .....!.04....!,1
000020: 36 00 3A 1B 31 21 1A 31 BE D2 5B 0B 21 F6 30 22 6.:.1!.1..[.!.0"
000030: 7A 30 21 1B 31 3A 1A 31 96 32 2B 31 4F CD DE 0A z0!.1:.1.2+1O...
000040: 3A 82 30 21 1B 31 86 77 01 E4 30 CD 88 0B 21 2C :.0!.1.w..0...!,
000050: 31 3A 1A 31 96 32 1A 31 C3 87 0B 21 E4 30 22 7A 1:.1.2.1...!.0"z
000060: 30 21 1A 31 3A 1B 31 96 32 2B 31 4F CD DE 0A 3A 0!.1:.1.2+1O...:
000070: 82 30 21 1A 31 86 77 01 F6 30 CD 88 0B 21 2C 31 .0!.1.w..0...!,1
000080: 3A 1B 31 96 32 1B 31 C9 21 2E 31 70 2B 71 3A 1E :.1.2.1.!.1p+q:.
000090: 31 1F D2 AE 0B 2A 2D 31 22 7A 30 21 82 30 3A 2B 1....*-1"z0!.0:+
0000A0: 31 96 32 2C 31 4F CD C0 0A 21 1E 31 36 00 C9 21 1.2,1O...!.16..!
0000B0: 2F 31 71 3A 20 31 3D 32 82 30 21 31 31 36 01 3A /1q: 1=2.0!116.:
0000C0: 20 31 21 31 31 BE DA FC 0B 2A 82 30 26 00 EB 2A 1!11....*.0&..*
0000D0: 7A 30 19 7E 32 30 31 21 2F 31 86 27 23 77 9F E6 z0.~201!/1.'#w..
0000E0: 01 2B 77 2A 82 30 26 00 EB 2A 7A 30 19 3A 30 31 .+w*.0&..*z0.:01
0000F0: 77 21 82 30 35 21 31 31 34 C2 BF 0B C9 21 35 31 w!.05!114....!51
000100: 72 2B 73 2B 70 2B 71 2A 32 31 22 89 30 2A 34 31 r+s+p+q*21".0*41
000110: 22 7A 30 21 36 31 36 00 3A 20 31 3D 32 82 30 21 "z0!616.: 1=2.0!
000120: 3A 31 36 01 3A 20 31 21 3A 31 BE DA 81 0C 2A 82 :16.: 1!:1....*.
000130: 30 26 00 01 E4 30 09 7E 32 37 31 2A 82 30 26 00 0&...0.~271*.0&.
000140: EB 2A 89 30 19 7E 32 38 31 3A 36 31 21 37 31 86 .*.0.~281:61!71.
000150: 27 32 39 31 9F 2B 77 3A 38 31 21 39 31 86 27 77 '291.+w:81!91.'w
000160: 9F 21 36 31 B6 E6 01 77 2A 82 30 26 00 EB 2A 7A .!61...w*.0&..*z
000170: 30 19 3A 39 31 77 21 82 30 35 21 3A 31 34 C2 24 0.:91w!.05!:14.$
000180: 0C 3A 36 31 1F D2 8F 0C 2A 36 31 4D CD AF 0B C9 .:61....*61M....
000190: 21 3B 31 71 2A 3B 31 26 00 01 21 31 09 3E 01 AE !;1q*;1&..!1.>..
0001A0: 77 2A 3B 31 4D 06 00 21 CC 0C 09 09 5E 23 56 EB w*;1M..!....^#V.
0001B0: E9 21 E4 30 22 89 30 C3 D2 0C 21 F6 30 22 89 30 .!.0".0...!.0".0
0001C0: C3 D2 0C 21 08 31 22 89 30 C3 D2 0C B1 0C BA 0C ...!.1".0.......
0001D0: C3 0C 21 82 30 36 00 3A 20 31 3D 21 82 30 BE DA ..!.06.: 1=!.0..
0001E0: F7 0C 2A 82 30 26 00 EB 2A 89 30 19 3E 99 96 77 ..*.0&..*.0.>..w
0001F0: 21 82 30 34 C2 D7 0C C9 3A 08 31 87 87 87 87 D6 !.04....:.1.....
Size : 512 (Real : 512)
000000: 30 C9 21 AE 30 70 2B 71 11 80 00 0E 1A CD 05 00 0.!.0p+q........
000010: 2A AD 30 EB 0E 10 CD 05 00 FE FF C2 24 03 01 4C *.0.........$..L
000020: 43 CD B4 02 CD D3 02 C9 2A 9E 30 EB 0E 13 CD 05 C.......*.0.....
000030: 00 C9 21 B0 30 70 2B 71 2A AF 30 EB 0E 16 CD 05 ..!.0p+q*.0.....
000040: 00 FE FF C2 4C 03 01 45 4D CD B4 02 C9 2A 9E 30 ....L..EM....*.0
000050: EB 0E 14 CD 05 00 C9 2A 9E 30 EB 0E 15 CD 05 00 .......*.0......
000060: C9 21 C2 30 70 2B 71 3E 20 21 C1 30 CD 48 30 D2 .!.0p+q> !.0.H0.
000070: 91 03 11 8B 30 01 C1 30 CD 30 30 D2 88 03 01 8F ....0..0.00.....
000080: 30 11 C1 30 CD 30 30 C9 2A 91 30 EB 2A C1 30 19 0..0.00.*.0.*.0.
000090: C9 3E 08 11 C1 30 CD 3D 30 D2 A9 03 2A C1 30 01 .>...0.=0...*.0.
0000A0: B1 30 29 09 5E 23 56 EB C9 3E 0C 21 C1 30 CD 48 .0).^#V..>.!.0.H
0000B0: 30 D2 C7 03 3E 0C 11 C1 30 CD 3D 30 29 EB 2A 7E 0...>...0.=0).*~
0000C0: 30 19 5E 23 56 EB C9 3E 0A 11 C1 30 CD 3D 30 EB 0.^#V..>...0.=0.
0000D0: 21 E6 03 19 19 5E 23 56 EB E9 21 18 01 C9 21 19 !....^#V..!...!.
0000E0: 01 C9 21 1A 01 C9 DA 03 DE 03 E2 03 21 00 00 C9 ..!.........!...
0000F0: 21 C9 30 72 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 !.0r+s+p+q+..p+q
000100: D5 2A C8 30 2B 22 C8 30 11 FF FF CD 1F 30 B5 CA .*.0+".0.....0..
000110: 2D 04 2A C4 30 E5 2A C6 30 C1 0A 77 2A C4 30 23 -.*.0.*.0..w*.0#
000120: 22 C4 30 2A C6 30 23 22 C6 30 C3 01 04 C9 21 CE ".0*.0#".0....!.
000130: 30 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A CC 30 0s+p+q+..p+q.*.0
000140: 2B 22 CC 30 11 FF FF CD 1F 30 B5 CA 5F 04 2A CA +".0.....0.._.*.
000150: 30 3A CE 30 77 2A CA 30 23 22 CA 30 C3 3D 04 C9 0:.0w*.0#".0.=..
000160: 2A 9A 30 23 23 3E 0B CD 48 30 B5 C2 71 04 3E 27 *.0##>..H0..q.>'
000170: C9 2A 9A 30 23 23 3E 0C CD 48 30 B5 C2 82 04 3E .*.0##>..H0....>
000180: 30 C9 3E 20 C9 C9 21 D1 30 73 2B 70 2B 71 21 00 0.> ..!.0s+p+q!.
000190: 00 22 78 30 2A CF 30 22 7A 30 21 D3 30 36 00 3A ."x0*.0"z0!.06.:
0001A0: D1 30 3D 21 D3 30 BE DA 15 05 2A D3 30 26 00 EB .0=!.0....*.0&..
0001B0: 2A 7A 30 19 7E 32 D2 30 D6 2D D6 01 9F F5 3A D2 *z0.~2.0.-....:.
0001C0: 30 D6 80 F5 D6 30 9F 2F C1 48 F5 3E 39 91 9F 2F 0....0./.H.>9../
0001D0: C1 48 A1 C1 48 B1 1F D2 E1 04 21 00 00 22 78 30 .H..H.....!.."x0
0001E0: C9 3A D2 30 FE 2E C2 ED 04 2A 78 30 C9 3A D2 30 .:.0.....*x0.:.0
0001F0: FE 2B CA 0E 05 2A 78 30 29 29 29 E5 2A 78 30 29 .+...*x0))).*x0)
Size : 512 (Real : 512)
000000: 00 C6 FF 9F F5 3A 11 31 E6 F8 1F 1F 1F 1F D6 00 .....:.1........
000010: C6 FF 9F C1 48 B1 1F D2 1D 0D 3E 00 C9 21 3C 31 ....H.....>..!<1
000020: 36 01 3E 08 21 3C 31 BE DA 44 0D 2A 3C 31 26 00 6.>.!<1..D.*<1&.
000030: 01 08 31 09 7E FE 00 CA 3D 0D 3E 00 C9 21 3C 31 ..1.~...=.>..!<1
000040: 34 C2 22 0D 3E 01 C9 21 3E 31 70 2B 71 21 3F 31 4.".>..!>1p+q!?1
000050: 36 00 2A 3D 31 22 7A 30 21 82 30 36 00 3E 09 21 6.*=1"z0!.06.>.!
000060: 82 30 BE DA A1 0D 2A 82 30 26 00 EB 2A 7A 30 19 .0....*.0&..*z0.
000070: 3E F0 A6 FE 00 CA 7C 0D 3A 3F 31 C9 21 3F 31 34 >.....|.:?1.!?14
000080: 2A 82 30 26 00 EB 2A 7A 30 19 3E 0F A6 FE 00 CA *.0&..*z0.>.....
000090: 96 0D 3A 3F 31 C9 21 3F 31 34 21 82 30 34 C2 5D ..:?1.!?14!.04.]
0000A0: 0D 3A 3F 31 C9 3A 08 31 E6 F8 1F 1F 1F 1F FE 09 .:?1.:.1........
0000B0: C2 B8 0D 0E 02 CD 90 0C 21 08 31 22 7A 30 0E 05 ........!.1"z0..
0000C0: CD AF 0B 3A 08 31 E6 F8 1F 1F 1F 1F D6 00 C6 FF ...:.1..........
0000D0: 9F F5 3A 1C 31 D6 00 D6 01 9F C1 48 A1 1F D2 E9 ..:.1......H....
0000E0: 0D 21 1E 31 36 01 C3 00 0E 3A 08 31 E6 F8 1F 1F .!.16....:.1....
0000F0: 1F 1F FE 00 CA 00 0E 0E 01 CD C0 0A 21 1C 31 35 ............!.15
000100: 01 09 00 2A 7A 30 09 3E F0 A6 77 01 08 31 CD 47 ...*z0.>..w..1.G
000110: 0D 4F 3E 13 B9 D2 1D 0E 21 23 31 36 01 C9 21 23 .O>.....!#16..!#
000120: 31 36 01 3A 21 31 2B A6 1F D2 2D 0E C9 3A 21 31 16.:!1+...-..:!1
000130: 2F F5 3A 22 31 2F C1 48 A1 1F D2 43 0E 21 23 31 /.:"1/.H...C.!#1
000140: 36 00 C9 3A 21 31 1F D2 52 0E 0E 01 CD 90 0C C3 6..:!1..R.......
000150: 57 0E 0E 00 CD 90 0C C9 21 E4 30 22 7A 30 21 40 W.......!.0"z0!@
000160: 31 36 00 3E 1B 21 40 31 BE DA AD 0E 2A 40 31 26 16.>.!@1....*@1&
000170: 00 EB 2A 7A 30 19 7E E6 F8 1F 1F 1F 1F F6 30 4F ..*z0.~.......0O
000180: CD 67 06 2F F5 2A 40 31 26 00 EB 2A 7A 30 19 3E .g./.*@1&..*z0.>
000190: 0F A6 F6 30 4F CD 67 06 2F C1 48 B1 1F D2 A6 0E ...0O.g./.H.....
0001A0: 01 45 4E CD 4E 02 21 40 31 34 C2 63 0E C9 01 03 .EN.N.!@14.c....
0001B0: 00 2A 9A 30 09 7E 32 82 30 21 1C 31 BE CA F3 0E .*.0.~2.0!.1....
0001C0: 21 1D 31 36 01 21 08 31 22 7A 30 3A 82 30 21 1C !.16.!.1"z0:.0!.
0001D0: 31 BE D2 E3 0E 21 82 30 3A 1C 31 96 4F CD C0 0A 1....!.0:.1.O...
0001E0: C3 EE 0E 21 1C 31 3A 82 30 96 4F CD DE 0A 21 1D ...!.1:.0.O...!.
0001F0: 31 36 00 01 08 31 CD 47 0D 2A 9A 30 23 23 F5 3E 16...1.G.*.0##.>
Size : 512 (Real : 512)
000000: C1 09 3A D2 30 D6 30 5F 16 00 19 22 78 30 21 D3 ..:.0.0_..."x0!.
000010: 30 34 C2 9F 04 2A 78 30 C9 21 D5 30 71 3A D5 30 04...*x0.!.0q:.0
000020: 11 9A 30 CD B5 2F EB 2B 73 23 72 C9 2A 9A 30 7E ..0../.+s#r.*.0~
000030: 32 82 30 0E 01 CD 19 05 3A 82 30 C9 21 D6 30 71 2.0.....:.0.!.0q
000040: 3A D4 30 1F D2 63 05 21 D4 30 36 00 2A D6 30 26 :.0..c.!.06.*.0&
000050: 00 29 EB 2A 9A 30 19 4E 23 46 CD 61 03 22 9A 30 .).*.0.N#F.a.".0
000060: C3 6D 05 3A D6 30 87 3C 3C 4F CD 19 05 C9 21 D7 .m.:.0.<<O....!.
000070: 30 71 3A D7 30 1F D2 81 05 0E 02 CD 19 05 C3 8D 0q:.0...........
000080: 05 2A 9A 30 4E 23 46 CD 61 03 22 9A 30 C9 CD 60 .*.0N#F.a.".0..`
000090: 04 6F 26 00 22 D8 30 2A 9A 30 23 23 3E 09 CD 48 .o&.".0*.0##>..H
0000A0: 30 9F F5 3E 0D 1B CD 3D 30 9F C1 48 A1 1F D2 07 0..>...=0..H....
0000B0: 06 21 00 00 22 78 30 01 04 00 2A 9A 30 09 4E 23 .!.."x0...*.0.N#
0000C0: 46 0B 50 59 21 78 30 CD 4B 30 DA 04 06 2A 78 30 F.PY!x0.K0...*x0
0000D0: EB 2A 7A 30 19 7E 11 D8 30 CD 3D 30 D2 E2 05 3E .*z0.~..0.=0...>
0000E0: 01 C9 2A 78 30 EB 2A 7A 30 19 7E 21 D8 30 CD 48 ..*x0.*z0.~!.0.H
0000F0: 30 D2 F7 05 3E 00 C9 11 01 00 2A 78 30 19 22 78 0...>.....*x0."x
000100: 30 D2 B7 05 C3 64 06 21 00 00 22 78 30 01 04 00 0....d.!.."x0...
000110: 2A 9A 30 09 4E 23 46 0B 50 59 21 78 30 CD 4B 30 *.0.N#F.PY!x0.K0
000120: DA 64 06 2A 78 30 EB 2A 7A 30 19 E5 2A 78 30 EB .d.*x0.*z0..*x0.
000130: 2A 89 30 19 7E E1 BE D2 3D 06 3E 01 C9 2A 78 30 *.0.~...=.>..*x0
000140: EB 2A 7A 30 19 E5 2A 78 30 EB 2A 89 30 19 C1 0A .*z0..*x0.*.0...
000150: BE D2 57 06 3E 00 C9 11 01 00 2A 78 30 19 22 78 ..W.>.....*x0."x
000160: 30 D2 0D 06 3E 02 C9 21 DA 30 71 3A DA 30 D6 30 0...>..!.0q:.0.0
000170: 9F 2F F5 3E 39 21 DA 30 96 9F 2F C1 48 A1 C9 21 ./.>9!.0../.H..!
000180: DB 30 71 3A DB 30 D6 41 9F 2F F5 3E 5A 21 DB 30 .0q:.0.A./.>Z!.0
000190: 96 9F 2F C1 48 A1 C9 21 DC 30 71 3A DC 30 D6 2B ../.H..!.0q:.0.+
0001A0: D6 01 9F F5 3A DC 30 D6 2D D6 01 9F C1 48 B1 C9 ....:.0.-....H..
0001B0: 21 DE 30 70 2B 71 21 DF 30 36 01 01 04 00 2A 9A !.0p+q!.06....*.
0001C0: 30 09 4E 23 46 0B 21 E0 30 71 0B 2B 7E 50 59 CD 0.N#F.!.0q.+~PY.
0001D0: 26 30 DA F1 06 2A DF 30 26 00 EB 2A DD 30 19 4E &0...*.0&..*.0.N
0001E0: CD 67 06 1F DA EA 06 3E 00 C9 21 DF 30 34 C2 BB .g.....>..!.04..
0001F0: 06 2A DD 30 4E CD 67 06 F5 2A E0 30 26 00 EB 2A .*.0N.g..*.0&..*
Size : 512 (Real : 512)
000000: 13 96 4F F1 B9 D2 0D 0F 21 1E 31 36 01 C9 CD 58 ..O.....!.16...X
000010: 0E 21 1E 31 36 00 CD 1D 0B CD 1E 0E 3A 1A 31 32 .!.16.......:.12
000020: 1C 31 11 08 31 01 F6 30 CD FD 0B CD A5 0D C9 21 .1..1..0.......!
000030: 41 31 71 21 42 31 36 01 3A 41 31 21 42 31 BE DA A1q!B16.:A1!B1..
000040: 52 0F 11 08 31 01 08 31 CD FD 0B 21 42 31 34 C2 R...1..1...!B14.
000050: 38 0F C9 CD 58 0E 21 1E 31 36 00 21 20 31 36 12 8...X.!.16.! 16.
000060: 3A 22 31 23 AE 2F E6 01 32 23 31 01 08 31 C5 1E :"1#./..2#1..1..
000070: 00 01 12 00 CD 2E 04 C9 21 82 30 36 00 3E 09 21 ........!.06.>.!
000080: 82 30 BE DA C2 0F 2A 82 30 26 00 01 F6 30 09 E5 .0....*.0&...0..
000090: 2A 82 30 26 00 01 E4 30 09 3E 99 96 32 43 31 E1 *.0&...0.>..2C1.
0000A0: BE D2 A7 0F 3E 01 C9 2A 82 30 26 00 01 F6 30 09 ....>..*.0&...0.
0000B0: 7E 21 43 31 BE D2 BB 0F 3E 00 C9 21 82 30 34 C2 ~!C1....>..!.04.
0000C0: 7D 0F 3E 01 C9 21 44 31 71 3A 44 31 FE 00 CA D8 }.>..!D1q:D1....
0000D0: 0F 2A 44 31 4D CD 2F 0F 21 E4 30 22 7A 30 CD ED .*D1M./.!.0"z0..
0000E0: 09 C9 01 E4 30 CD 47 0D 4F 3E 13 B9 D2 F5 0F 21 ....0.G.O>.....!
0000F0: 1E 31 36 01 C9 01 F6 30 CD 47 0D 4F 3E 13 B9 D2 .16....0.G.O>...
000100: 0F 10 01 08 31 C5 1E 00 01 12 00 CD 2E 04 C9 CD ....1...........
000110: 53 0F 21 E4 30 22 7A 30 0E 11 CD DE 0A 3A 82 30 S.!.0"z0.....:.0
000120: 21 1A 31 86 77 21 F6 30 22 7A 30 0E 11 CD DE 0A !.1.w!.0"z0.....
000130: 3A 82 30 21 1B 31 86 77 21 1E 31 36 00 3E 11 21 :.0!.1.w!.16.>.!
000140: 1A 31 BE D2 70 10 3A 1A 31 D6 11 32 48 31 4F 3A .1..p.:.1..2H1O:
000150: 1B 31 B9 D2 63 10 21 1E 31 36 01 21 1C 31 36 00 .1..c.!.16.!.16.
000160: C3 6D 10 21 48 31 3A 1B 31 96 32 1C 31 C3 7A 10 .m.!H1:.1.2.1.z.
000170: 21 1A 31 3E 11 96 23 86 23 77 0E 00 CD 90 0C 21 !.1>..#.#w.....!
000180: 45 31 36 01 3E 13 21 45 31 BE DA F8 10 21 46 31 E16.>.!E1....!F1
000190: 36 00 CD 78 0F 1F D2 B6 10 11 F6 30 01 F6 30 CD 6..x.......0..0.
0001A0: FD 0B 3A F6 30 FE 99 C2 AF 10 0E 01 CD 90 0C 21 ..:.0..........!
0001B0: 46 31 34 C3 92 10 3A 45 31 B7 1F 32 47 31 3A 45 F14...:E1..2G1:E
0001C0: 31 1F D2 D6 10 2A 47 31 26 00 01 08 31 09 3A 46 1....*G1&...1.:F
0001D0: 31 B6 77 C3 E8 10 2A 47 31 26 00 01 08 31 09 3A 1.w...*G1&...1.:
0001E0: 46 31 87 87 87 87 B6 77 21 E4 30 22 7A 30 CD 5F F1.....w!.0"z0._
0001F0: 0A 21 45 31 34 C2 84 10 21 20 31 36 0A CD A5 0D .!E14...! 16....
Size : 512 (Real : 512)
000000: 31 26 00 EB 2A 89 30 19 36 20 0E 0C CD 19 05 C9 1&..*.0.6 ......
000010: 21 63 31 71 2A 63 31 26 00 01 59 31 09 7E 1F D2 !c1q*c1&..Y1.~..
000020: 2B 19 3A 57 31 32 5B 31 C3 65 19 2A 63 31 26 00 +.:W12[1.e.*c1&.
000030: 01 59 31 09 36 01 21 5E 31 3A 82 30 96 C6 FF 9F .Y1.6.!^1:.0....
000040: F5 3A 63 31 D6 00 D6 01 9F C1 48 B1 1F D2 57 19 .:c1......H...W.
000050: 3A 82 30 3C 32 5F 31 3A 63 31 FE 01 C2 65 19 3A :.0<2_1:c1...e.:
000060: 82 30 32 61 31 C9 CD 20 02 0E 3F CD 10 02 2A 6D .02a1.. ..?...*m
000070: 31 E5 2A 9A 30 23 23 4E 06 00 1E 20 CD 2E 04 2A 1.*.0##N... ...*
000080: 6B 31 36 80 2A 6B 31 44 4D CD 3E 02 2A 6D 31 E5 k16.*k1DM.>.*m1.
000090: 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 23 5E *.0N#F.a..*.0##^
0000A0: 16 00 C1 CD F0 03 0E 03 CD 19 05 C9 2A 9A 30 4E ............*.0N
0000B0: 23 46 CD 61 03 22 7A 30 01 03 00 2A 9A 30 09 7E #F.a."z0...*.0.~
0000C0: 1F DA C7 19 CD 20 02 2A 9A 30 23 23 7E 32 73 31 ..... .*.0##~2s1
0000D0: 21 82 30 36 00 3A 73 31 3D 21 82 30 BE DA F5 19 !.06.:s1=!.0....
0000E0: 2A 82 30 26 00 EB 2A 7A 30 19 4E CD 10 02 21 82 *.0&..*z0.N...!.
0000F0: 30 34 C2 D5 19 0E 04 CD 19 05 C9 2A 9A 30 4E 23 04.........*.0N#
000100: 46 CD 61 03 22 7A 30 01 21 00 2A 7A 30 09 7E C9 F.a."z0.!.*z0.~.
000110: 21 74 31 71 2A 9A 30 4E 23 46 CD 61 03 22 7A 30 !t1q*.0N#F.a."z0
000120: CD FB 19 FE 00 CA 2E 1A 01 45 4F CD B4 02 01 21 .........EO....!
000130: 00 2A 7A 30 09 3A 74 31 77 C9 21 71 31 36 00 2A .*z0.:t1w.!q16.*
000140: 9A 30 4E 23 46 CD 61 03 11 9E 30 CD 40 30 B5 C2 .0N#F.a...0.@0..
000150: 53 1A C9 2A 9E 30 22 7A 30 01 22 00 09 E5 2A 64 S..*.0"z0."...*d
000160: 31 EB E1 73 23 72 2A 9E 30 0B 09 3A 70 31 77 2A 1..s#r*.0..:p1w*
000170: 9A 30 4E 23 46 CD 61 03 22 9E 30 11 25 00 19 22 .0N#F.a.".0.%.."
000180: 68 31 11 80 00 19 22 66 31 01 21 00 2A 9E 30 09 h1...."f1.!.*.0.
000190: 7E 32 70 31 2A 9E 30 03 09 5E 23 56 EB 22 64 31 ~2p1*.0..^#V."d1
0001A0: C9 21 75 31 71 2A 75 31 4D CD 10 1A 2A 9A 30 4E .!u1q*u1M...*.0N
0001B0: 23 46 CD 61 03 22 9E 30 01 0C 00 2A 9E 30 09 36 #F.a.".0...*.0.6
0001C0: 00 2A 9E 30 44 4D CD E1 02 32 82 30 3A 75 31 3D .*.0DM...2.0:u1=
0001D0: 4F 06 00 21 16 1B 09 09 5E 23 56 EB E9 3A 82 30 O..!....^#V..:.0
0001E0: FE FF C2 EB 1A 01 46 4E CD B4 02 C3 1E 1B CD 28 ......FN.......(
0001F0: 03 2A 9A 30 4E 23 46 CD 61 03 44 4D CD 32 03 C3 .*.0N#F.a.DM.2..
Size : 512 (Real : 512)
000000: C9 21 49 31 71 3A 24 31 2F 32 24 31 1F D2 28 11 .!I1q:$1/2$1..(.
000010: 2A 1F 31 26 00 EB 2A 7A 30 19 3A 49 31 D6 30 87 *.1&..*z0.:I1.0.
000020: 87 87 87 B6 77 C3 3F 11 3A 49 31 D6 30 F5 3A 1F ....w.?.:I1.0.:.
000030: 31 3D 32 1F 31 4F 06 00 2A 7A 30 09 C1 48 71 C9 1=2.1O..*z0..Hq.
000040: 21 4C 31 73 2B 70 2B 71 2A 4A 31 44 4D CD 61 03 !L1s+p+q*J1DM.a.
000050: 22 89 30 3A 4C 31 32 82 30 21 93 30 36 01 3A 4C ".0:L12.0!.06.:L
000060: 31 21 93 30 BE DA 81 11 21 82 30 35 2A 82 30 26 1!.0....!.05*.0&
000070: 00 EB 2A 89 30 19 4E CD 01 11 21 93 30 34 C2 5E ..*.0.N...!.04.^
000080: 11 0E 05 CD 19 05 C9 21 4E 31 71 01 04 00 2A 9A .......!N1q...*.
000090: 30 09 7E 32 4F 31 4F 06 00 21 BE 11 09 09 5E 23 0.~2O1O..!....^#
0000A0: 56 EB E9 21 E4 30 22 7A 30 C3 C4 11 21 F6 30 22 V..!.0"z0...!.0"
0000B0: 7A 30 C3 C4 11 21 08 31 22 7A 30 C3 C4 11 A3 11 z0...!.1"z0.....
0000C0: AC 11 B5 11 01 03 00 2A 9A 30 09 E5 2A 4F 31 26 .......*.0..*O1&
0000D0: 00 01 1A 31 09 D1 1A 77 2A 4F 31 26 00 01 21 31 ...1...w*O1&..!1
0000E0: 09 3A 4E 31 77 2A 7A 30 E5 1E 00 01 12 00 CD 2E .:N1w*z0........
0000F0: 04 21 1F 31 36 09 21 24 31 36 00 C9 0E 01 CD 87 .!.16.!$16......
000100: 11 2A 9A 30 E5 2A 9A 30 23 23 5E E1 4E 23 46 CD .*.0.*.0##^.N#F.
000110: 40 11 C9 2A 9A 30 23 23 7E 32 50 31 2A 9A 30 4E @..*.0##~2P1*.0N
000120: 23 46 CD 61 03 22 89 30 2A 89 30 7E FE 2D C2 3C #F.a.".0*.0~.-.<
000130: 12 CD B3 12 0E 00 CD 87 11 C3 4D 12 2A 89 30 7E ..........M.*.0~
000140: FE 2B C2 48 12 CD B3 12 0E 01 CD 87 11 21 51 31 .+.H.........!Q1
000150: 36 00 2B 7E 32 82 30 21 93 30 36 01 3A 50 31 21 6.+~2.0!.06.:P1!
000160: 93 30 BE DA 9B 12 21 82 30 35 4E 06 00 2A 89 30 .0....!.05N..*.0
000170: 09 7E FE 2E C2 86 12 3A 82 30 3C 4F 3A 50 31 91 .~.....:.0<O:P1.
000180: 32 51 31 C3 94 12 2A 82 30 26 00 EB 2A 89 30 19 2Q1...*.0&..*.0.
000190: 4E CD 01 11 21 93 30 34 C2 5C 12 01 04 00 2A 9A N...!.04.\....*.
0001A0: 30 09 4E 06 00 21 1A 31 09 3A 51 31 77 0E 05 CD 0.N..!.1.:Q1w...
0001B0: 19 05 C9 21 50 31 35 2A 89 30 23 22 89 30 C9 3A ...!P15*.0#".0.:
0001C0: 24 31 2F 32 24 31 1F D2 DD 12 2A 89 30 7E E6 F8 $1/2$1....*.0~..
0001D0: 1F 1F 1F 1F F6 30 2A 7A 30 77 C3 ED 12 2A 89 30 .....0*z0w...*.0
0001E0: 2B 22 89 30 3E 0F A6 F6 30 2A 7A 30 77 2A 7A 30 +".0>...0*z0w*z0
0001F0: 2B 22 7A 30 C9 21 52 31 71 21 24 31 36 00 21 11 +"z0.!R1q!$16.!.
Size : 512 (Real : 512)
000000: 1E 1B C3 1E 1B 3A 82 30 FE FF C2 13 1B 01 46 4E .....:.0......FN
000010: CD B4 02 C3 1E 1B DD 1A EE 1A 02 1B 05 1B 01 20 ...............
000020: 00 2A 9E 30 09 36 00 01 24 00 2A 9E 30 09 36 00 .*.0.6..$.*.0.6.
000030: 11 25 00 2A 9E 30 19 22 68 31 11 80 00 19 22 66 .%.*.0."h1...."f
000040: 31 01 21 00 2A 9E 30 09 7E 32 70 31 2A 68 31 2B 1.!.*.0.~2p1*h1+
000050: 22 64 31 E5 2A 9E 30 03 09 C1 71 23 70 0E 02 CD "d1.*.0...q#p...
000060: 19 05 C9 3A 70 31 07 C9 3A 70 31 F6 80 32 70 31 ...:p1..:p1..2p1
000070: C9 CD D3 02 3A 70 31 E6 0F 32 70 31 CD 57 03 32 ....:p1..2p1.W.2
000080: 82 30 FE 00 C2 88 1B C9 01 38 57 CD 4E 02 21 71 .0.......8W.N.!q
000090: 31 36 01 C9 CD D3 02 CD 63 1B 1F D2 A1 1B CD 71 16......c......q
0000A0: 1B CD 4D 03 32 82 30 FE 00 C2 AD 1B C9 3A 82 30 ..M.2.0......:.0
0000B0: FE 01 C2 BE 1B 01 24 00 2A 9E 30 09 36 01 21 71 ......$.*.0.6.!q
0000C0: 31 36 01 C9 2A 64 31 23 22 64 31 EB 21 66 31 CD 16..*d1#"d1.!f1.
0000D0: 4B 30 DA ED 1B CD 94 1B 01 24 00 2A 9E 30 09 7E K0.......$.*.0.~
0000E0: 1F D2 E7 1B 3E 1A C9 2A 68 31 22 64 31 2A 64 31 ....>..*h1"d1*d1
0000F0: 7E C9 21 76 31 71 2A 64 31 23 22 64 31 EB 21 66 ~.!v1q*d1#"d1.!f
000100: 31 CD 4B 30 DA 22 1C CD 71 1B 2A 68 31 22 64 31 1.K0."..q.*h1"d1
000110: 3A 72 31 1F D2 22 1C CD 94 1B 01 20 00 2A 9E 30 :r1.."..... .*.0
000120: 09 35 CD 68 1B 2A 64 31 3A 76 31 77 C9 0E 0D CD .5.h.*d1:v1w....
000130: F2 1B 0E 0A CD F2 1B C9 CD C4 1B D6 0D C6 FF 9F ................
000140: F5 CD C4 1B D6 0A C6 FF 9F C1 48 B1 1F D2 56 1C ..........H...V.
000150: 01 4D 45 CD 4E 02 C9 CD 3A 1A 01 04 00 2A 9A 30 .ME.N...:....*.0
000160: 09 4E 23 46 CD 61 03 22 7A 30 2A 7A 30 E5 2A 9A .N#F.a."z0*z0.*.
000170: 30 23 23 4E 23 46 1E 20 CD 2E 04 21 00 00 22 78 0##N#F. ...!.."x
000180: 30 2A 9A 30 23 23 4E 23 46 0B 50 59 21 78 30 CD 0*.0##N#F.PY!x0.
000190: 4B 30 DA D2 1C CD C4 1B 32 82 30 FE 0D C2 A7 1C K0......2.0.....
0001A0: CD C4 1B 32 82 30 C9 3A 82 30 FE 1A C2 B9 1C 01 ...2.0.:.0......
0001B0: 24 00 2A 9E 30 09 36 01 C9 2A 78 30 EB 2A 7A 30 $.*.0.6..*x0.*z0
0001C0: 19 3A 82 30 77 11 01 00 2A 78 30 19 22 78 30 D2 .:.0w...*x0."x0.
0001D0: 81 1C CD 38 1C C9 CD 3A 1A 2A 9A 30 23 23 4E 23 ...8...:.*.0##N#
0001E0: 46 CD 61 03 22 7A 30 01 04 00 2A 9A 30 09 5E 23 F.a."z0...*.0.^#
0001F0: 56 EB 22 77 31 2A 77 31 2B 22 77 31 EB 2A 7A 30 V."w1*w1+"w1.*z0
Size : 512 (Real : 512)
000000: 31 22 89 30 01 04 00 2A 9A 30 09 7E D6 0C C6 FF 1".0...*.0.~....
000010: 9F F5 3A 1E 31 2F C1 48 B1 1F D2 36 13 21 82 30 ..:.1/.H...6.!.0
000020: 36 01 3A 52 31 21 82 30 BE DA 36 13 CD BF 12 21 6.:R1!.0..6....!
000030: 82 30 34 C2 22 13 C9 21 54 31 70 2B 71 3A 23 31 .04."..!T1p+q:#1
000040: 1F DA 6A 13 2A 53 31 22 7A 30 01 04 00 2A 9A 30 ..j.*S1"z0...*.0
000050: 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F C1 48 B1 1F .~......:.1/.H..
000060: D2 6A 13 2A 7A 30 3E 80 86 77 0E 04 CD 19 05 C9 .j.*z0>..w......
000070: 21 56 31 70 2B 71 2A 55 31 22 7A 30 01 04 00 2A !V1p+q*U1"z0...*
000080: 9A 30 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F C1 48 .0.~......:.1/.H
000090: B1 1F D2 A9 13 3A 23 31 1F D2 A4 13 2A 7A 30 36 .....:#1....*z06
0000A0: 2B C3 A9 13 2A 7A 30 36 2D 0E 04 CD 19 05 C9 CD +...*z06-.......
0000B0: AE 0E 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 ..*.0N#F.a..*.0#
0000C0: 23 5E 16 00 E1 19 2B 22 7A 30 2A 9A 30 23 23 4E #^....+"z0*.0##N
0000D0: CD F5 12 C9 21 5B 31 36 00 21 5F 31 36 00 21 59 ....![16.!_16.!Y
0000E0: 31 36 00 23 36 00 01 0B 00 2A 9A 30 09 7E 32 60 16.#6....*.0.~2`
0000F0: 31 01 08 00 2A 9A 30 09 7E 32 61 31 2A 9A 30 09 1...*.0.~2a1*.0.
000100: 7E 3D 32 5E 31 2A 9A 30 4E 23 46 CD 61 03 22 89 ~=2^1*.0N#F.a.".
000110: 30 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 E5 01 0...*.0.N#F.a...
000120: 08 00 2A 9A 30 09 5E 23 56 2A 89 30 44 4D CD F0 ..*.0.^#V*.0DM..
000130: 03 2A 5E 31 26 00 EB 2A 89 30 19 7E D6 42 D6 01 .*^1&..*.0.~.B..
000140: 9F F5 7E D6 52 D6 01 9F C1 48 B1 1F D2 5C 14 21 ..~.R....H...\.!
000150: 5E 31 35 35 21 60 31 35 35 23 35 35 21 82 30 36 ^155!`155#55!.06
000160: 00 3A 5E 31 21 82 30 BE DA 1E 15 2A 82 30 26 00 .:^1!.0....*.0&.
000170: EB 2A 89 30 19 7E 32 57 31 FE 39 C2 8D 14 2A 82 .*.0.~2W1.9...*.
000180: 30 26 00 EB 2A 89 30 19 36 4F C3 D5 14 3A 57 31 0&..*.0.6O...:W1
000190: FE 24 C2 9D 14 0E 00 CD 10 19 C3 D5 14 2A 57 31 .$...........*W1
0001A0: 4D CD 97 06 1F D2 B0 14 0E 01 CD 10 19 C3 D5 14 M...............
0001B0: 3A 57 31 FE 5A C2 C1 14 3A 57 31 32 5B 31 C3 D5 :W1.Z...:W12[1..
0001C0: 14 3A 57 31 FE 42 C2 D5 14 2A 82 30 26 00 EB 2A .:W1.B...*.0&..*
0001D0: 89 30 19 36 20 21 60 31 3A 5E 31 96 21 82 30 BE .0.6 !`1:^1.!.0.
0001E0: D2 17 15 3A 57 31 D6 2F D6 01 9F F5 3A 57 31 D6 ...:W1./....:W1.
0001F0: 20 D6 01 9F C1 48 B1 F5 3A 57 31 D6 30 D6 01 9F ....H..:W1.0...
Size : 512 (Real : 512)
000000: 19 7E D6 20 D6 01 9F F5 3E 00 11 77 31 CD 3D 30 .~. ....>..w1.=0
000010: B5 C6 FF 9F C1 48 A1 1F D2 1E 1D C3 F5 1C 21 00 .....H........!.
000020: 00 22 78 30 11 77 31 01 78 30 CD 30 30 DA 49 1D ."x0.w1.x0.00.I.
000030: 2A 78 30 EB 2A 7A 30 19 4E CD F2 1B 11 01 00 2A *x0.*z0.N......*
000040: 78 30 19 22 78 30 D2 24 1D CD 2D 1C C9 2A 9A 30 x0."x0.$..-..*.0
000050: 23 23 4E 23 46 CD 61 03 22 7A 30 21 00 00 22 78 ##N#F.a."z0!.."x
000060: 30 01 04 00 2A 9A 30 09 4E 23 46 0B 50 59 21 78 0...*.0.N#F.PY!x
000070: 30 CD 4B 30 DA AD 1D CD C4 1B 32 79 31 FE 1A C2 0.K0......2y1...
000080: 94 1D 21 71 31 36 01 01 24 00 2A 9E 30 09 36 01 ..!q16..$.*.0.6.
000090: C9 C3 A0 1D 2A 78 30 EB 2A 7A 30 19 3A 79 31 77 ....*x0.*z0.:y1w
0000A0: 11 01 00 2A 78 30 19 22 78 30 D2 61 1D CD 38 1C ...*x0."x0.a..8.
0000B0: C9 2A 9A 30 23 23 4E 23 46 CD 61 03 22 7A 30 21 .*.0##N#F.a."z0!
0000C0: 00 00 22 78 30 01 04 00 2A 9A 30 09 4E 23 46 0B .."x0...*.0.N#F.
0000D0: 50 59 21 78 30 CD 4B 30 DA F4 1D 2A 78 30 EB 2A PY!x0.K0...*x0.*
0000E0: 7A 30 19 4E CD F2 1B 11 01 00 2A 78 30 19 22 78 z0.N......*x0."x
0000F0: 30 D2 C5 1D 3A 6F 31 1F D2 03 1E 0E 0D CD F2 1B 0...:o1.........
000100: C3 06 1E CD 2D 1C C9 CD 63 1B 1F D2 11 1E CD 71 ....-...c......q
000110: 1B 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 01 08 ....*.0.N#F.a...
000120: 00 E5 2A 9A 30 09 5E C1 CD 86 04 22 7C 31 3E 00 ..*.0.^...."|1>.
000130: 11 7C 31 CD 3D 30 B5 C2 40 1E 21 71 31 36 01 C9 .|1.=0..@.!q16..
000140: 01 04 00 2A 9A 30 09 4E 23 46 03 03 2A 7C 31 2B ...*.0.N#F..*|1+
000150: EB CD F0 2F 22 7A 31 0E 07 CD 10 30 22 7E 31 0E .../"z1....0"~1.
000160: 07 CD 10 30 EB 21 80 31 73 01 0C 00 2A 9E 30 09 ...0.!.1s...*.0.
000170: 7B BE CA E2 1E 2A 9A 30 4E 23 46 CD 61 03 44 4D {....*.0N#F.a.DM
000180: CD 02 03 01 0C 00 2A 9E 30 09 3A 80 31 77 2A 9A ......*.0.:.1w*.
000190: 30 4E 23 46 CD 61 03 44 4D CD E1 02 FE FF C2 E2 0N#F.a.DM.......
0001A0: 1E 3A 70 31 B7 1F 1F D2 BB 1E 2A 9A 30 4E 23 46 .:p1......*.0N#F
0001B0: CD 61 03 44 4D CD 32 03 C3 E2 1E 21 71 31 36 01 .a.DM.2....!q16.
0001C0: 01 0C 00 2A 9E 30 09 36 00 2A 9A 30 4E 23 46 CD ...*.0.6.*.0N#F.
0001D0: 61 03 44 4D CD E1 02 FE FF C2 E2 1E 01 50 4F CD a.DM.........PO.
0001E0: B4 02 3E 7F 11 7A 31 CD C2 2F E5 2A 68 31 C1 09 ..>..z1../.*h1..
0001F0: 2B 22 64 31 2A 7E 31 7D E6 7F 01 20 00 2A 9E 30 +"d1*~1}... .*.0
Size : 512 (Real : 512)
000000: C1 48 B1 F5 3A 57 31 D6 2C D6 01 9F C1 48 B1 1F .H..:W1.,....H..
000010: D2 17 15 21 60 31 35 21 82 30 34 C2 61 14 21 5E ...!`15!.04.a.!^
000020: 31 3A 61 31 BE C2 30 15 21 5E 31 35 21 60 31 35 1:a1..0.!^15!`15
000030: 01 04 00 2A 9A 30 09 4E 23 46 21 5D 31 71 21 E4 ...*.0.N#F!]1q!.
000040: 30 22 7A 30 2A 7A 30 E5 1E 30 01 24 00 CD 2E 04 0"z0*z0..0.$....
000050: 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A 7A 30 44 *.0##N#F.a..*z0D
000060: 4D 2A 5D 31 26 00 EB CD F0 03 2A 7A 30 4E CD 97 M*]1&.....*z0N..
000070: 06 1F D2 8A 15 2A 7A 30 7E 32 62 31 2A 7A 30 23 .....*z0~2b1*z0#
000080: 22 7A 30 21 5D 31 35 C3 10 16 01 04 00 2A 9A 30 "z0!]15......*.0
000090: 09 7E 3D 4F 06 00 2A 7A 30 09 4E CD 97 06 1F D2 .~=O..*z0.N.....
0000A0: BD 15 01 04 00 2A 9A 30 09 7E 3D 4F 06 00 2A 7A .....*.0.~=O..*z
0000B0: 30 09 7E 32 62 31 21 5D 31 35 C3 10 16 01 04 00 0.~2b1!]15......
0000C0: 2A 9A 30 09 7E 3D 4F 06 00 2A 7A 30 09 4E CD 8A *.0.~=O..*z0.N..
0000D0: 09 1F DA F1 15 21 62 31 36 2D 01 04 00 2A 9A 30 .....!b16-...*.0
0000E0: 09 7E 3D 4F 06 00 2A 7A 30 09 7E D6 80 77 C3 10 .~=O..*z0.~..w..
0000F0: 16 2A 7A 30 4E CD 8A 09 1F DA 0B 16 21 62 31 36 .*z0N.......!b16
000100: 2D 2A 7A 30 7E D6 80 77 C3 10 16 21 62 31 36 2B -*z0~..w...!b16+
000110: 01 0A 00 2A 9A 30 09 3A 60 31 BE CA 53 16 01 0A ...*.0.:`1..S...
000120: 00 2A 9A 30 09 3A 60 31 BE D2 43 16 01 0A 00 2A .*.0.:`1..C....*
000130: 9A 30 09 7E 21 60 31 96 4F 3A 5D 31 91 32 5D 31 .0.~!`1.O:]1.2]1
000140: C3 53 16 01 0A 00 2A 9A 30 09 3A 60 31 96 21 5D .S....*.0.:`1.!]
000150: 31 86 77 3A 5D 31 3D 32 82 30 3A 5E 31 32 58 31 1.w:]1=2.0:^12X1
000160: 32 5C 31 21 93 30 36 01 3A 5D 31 21 93 30 BE DA 2\1!.06.:]1!.0..
000170: 30 17 2A 58 31 26 00 EB 2A 89 30 19 7E D6 20 D6 0.*X1&..*.0.~. .
000180: 01 9F F5 7E D6 30 D6 01 9F C1 48 B1 F5 7E D6 2F ...~.0....H..~./
000190: D6 01 9F C1 48 B1 F5 7E D6 2E D6 01 9F C1 48 B1 ....H..~......H.
0001A0: F5 7E D6 2C D6 01 9F C1 48 B1 F5 3A 5E 31 21 58 .~.,....H..:^1!X
0001B0: 31 96 9F 2F C1 48 A1 1F D2 C2 16 21 58 31 35 C3 1../.H.....!X15.
0001C0: 72 16 2A 82 30 26 00 EB 2A 7A 30 19 7E FE 2E CA r.*.0&..*z0.~...
0001D0: 25 17 2A 82 30 26 00 EB 2A 7A 30 19 7E FE 30 CA %.*.0&..*z0.~.0.
0001E0: 21 17 21 5F 31 3A 58 31 96 9F F5 3A 58 31 D6 FF !.!_1:X1...:X1..
0001F0: D6 01 9F C1 48 B1 1F D2 03 17 3A 5D 31 32 93 30 ....H.....:]12.0
Size : 512 (Real : 512)
000000: 09 77 CD 94 1B C9 01 0C 00 2A 9E 30 09 6E 26 00 .w.......*.0.n&.
000010: 22 81 31 0E 07 CD 06 30 01 20 00 E5 2A 9E 30 09 ".1....0. ..*.0.
000020: 5E 16 00 E1 19 22 81 31 3A 70 31 B7 1F 1F DA 38 ^....".1:p1....8
000030: 1F 2A 81 31 2B 22 81 31 0E 07 21 81 31 CD 02 30 .*.1+".1..!.1..0
000040: E5 2A 64 31 23 EB 2A 68 31 CD 1F 30 C1 09 22 85 .*d1#.*h1..0..".
000050: 31 01 04 00 2A 9A 30 09 4E 23 46 03 03 2A 85 31 1...*.0.N#F..*.1
000060: EB CD D1 2F 13 EB 22 83 31 C9 CD 06 1F 22 87 31 .../..".1....".1
000070: 21 8B 31 36 00 3E 03 21 8B 31 BE DA C8 1F 21 8C !.16.>.!.1....!.
000080: 31 36 00 2A 8B 31 26 00 01 03 01 29 09 5E 23 56 16.*.1&....).^#V
000090: EB 22 89 31 11 87 31 CD 40 30 DA B2 1F 01 89 31 .".1..1.@0.....1
0000A0: 11 87 31 CD 30 30 EB 2B 73 23 72 21 8C 31 34 C3 ..1.00.+s#r!.14.
0000B0: 83 1F 3A 8C 31 C6 30 2A 8B 31 26 00 01 8D 31 09 ..:.1.0*.1&...1.
0000C0: 77 21 8B 31 34 C2 75 1F 11 30 00 2A 87 31 19 EB w!.14.u..0.*.1..
0000D0: 21 91 31 73 01 08 00 2A 9A 30 09 7E 32 8B 31 4F !.1s...*.0.~2.1O
0000E0: 3E 05 B9 DA 0B 20 3A 8B 31 11 92 31 CD 26 30 E5 >.... :.1..1.&0.
0000F0: 01 06 00 2A 9A 30 09 4E 23 46 CD 61 03 44 4D 2A ...*.0.N#F.a.DM*
000100: 8B 31 26 00 EB CD F0 03 C3 4D 20 01 06 00 2A 9A .1&......M ...*.
000110: 30 09 4E 23 46 CD 61 03 E5 3A 8B 31 D6 05 4F 06 0.N#F.a..:.1..O.
000120: 00 1E 30 CD 2E 04 01 8D 31 C5 01 06 00 2A 9A 30 ..0.....1....*.0
000130: 09 4E 23 46 CD 61 03 E5 2A 8B 31 26 00 C1 09 EB .N#F.a..*.1&....
000140: 3E 05 CD 26 30 44 4D 11 05 00 CD F0 03 C9 21 01 >..&0DM.......!.
000150: 00 22 78 30 01 04 00 2A 9A 30 09 EB 01 78 30 CD ."x0...*.0...x0.
000160: 30 30 DA 77 20 0E FF CD F2 1B 11 01 00 2A 78 30 00.w ........*x0
000170: 19 22 78 30 D2 54 20 CD 2D 1C C9 21 93 31 70 2B ."x0.T .-..!.1p+
000180: 71 21 94 31 36 01 11 92 31 3A 94 31 CD 3D 30 DA q!.16...1:.1.=0.
000190: 9C 20 CD 4E 20 21 94 31 34 C2 86 20 C9 2A 9A 30 . .N !.14.. .*.0
0001A0: 4E 23 46 CD 61 03 44 4D CD 02 03 01 0C 00 2A 9E N#F.a.DM......*.
0001B0: 30 09 7E 3D 77 FE FF C2 C0 20 01 37 57 CD B4 02 0.~=w.... .7W...
0001C0: 2A 9A 30 4E 23 46 CD 61 03 44 4D CD E1 02 FE FF *.0N#F.a.DM.....
0001D0: C2 D9 20 01 50 4F CD B4 02 01 20 00 2A 9E 30 09 .. .PO.... .*.0.
0001E0: 36 7F C9 01 04 00 2A 9A 30 09 4E 23 46 03 03 11 6.....*.0.N#F...
0001F0: 64 31 CD 35 30 EB 2B 73 23 72 2A 68 31 2B CD 1F d1.50.+s#r*h1+..
Size : 512 (Real : 512)
000000: C3 21 17 2A 82 30 26 00 EB 2A 7A 30 19 E5 2A 58 .!.*.0&..*z0..*X
000010: 31 26 00 EB 2A 89 30 19 C1 0A 77 3A 58 31 32 5C 1&..*.0...w:X12\
000020: 31 21 58 31 35 21 82 30 35 21 93 30 34 C2 68 16 1!X15!.05!.04.h.
000030: 3A 5B 31 FE 00 CA DD 17 21 82 30 36 00 2A 82 30 :[1.....!.06.*.0
000040: 26 00 EB 2A 89 30 19 3A 5B 31 BE CA 55 17 21 82 &..*.0.:[1..U.!.
000050: 30 34 C3 3D 17 2A 82 30 26 00 EB 2A 89 30 19 7E 04.=.*.0&..*.0.~
000060: D6 2C D6 01 9F F5 7E D6 30 D6 01 9F C1 48 B1 F5 .,....~.0....H..
000070: 7E D6 20 D6 01 9F C1 48 B1 F5 7E D6 2F D6 01 9F ~. ....H..~./...
000080: C1 48 B1 F5 3A 5B 31 96 D6 01 9F C1 48 B1 F5 3A .H..:[1.....H..:
000090: 5E 31 21 82 30 96 9F 2F C1 48 A1 1F D2 B2 17 2A ^1!.0../.H.....*
0000A0: 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 34 C3 .0&..*.0.6 !.04.
0000B0: 55 17 3A 5B 31 FE 5A CA DD 17 3A 82 30 3D 32 82 U.:[1.Z...:.0=2.
0000C0: 30 4F 06 00 2A 89 30 09 3A 5B 31 77 2A 5B 31 4D 0O..*.0.:[1w*[1M
0000D0: CD 97 06 1F D2 DD 17 3A 82 30 32 61 31 21 82 30 .......:.02a1!.0
0000E0: 36 00 3A 5C 31 21 82 30 BE DA 47 18 2A 82 30 26 6.:\1!.0..G.*.0&
0000F0: 00 EB 2A 89 30 19 7E FE 4F C2 0B 18 2A 82 30 26 ..*.0.~.O...*.0&
000100: 00 EB 2A 89 30 19 36 30 C3 40 18 2A 82 30 26 00 ..*.0.60.@.*.0&.
000110: EB 2A 89 30 19 7E D6 2C D6 01 9F F5 3A 82 30 3D .*.0.~.,....:.0=
000120: 4F 06 00 2A 89 30 09 7E D6 2A D6 01 9F C1 48 A1 O..*.0.~.*....H.
000130: 1F D2 40 18 2A 82 30 26 00 EB 2A 89 30 19 36 2A ..@.*.0&..*.0.6*
000140: 21 82 30 34 C2 E2 17 3A 5C 31 3C 32 82 30 3A 5E !.04...:\1<2.0:^
000150: 31 21 82 30 BE DA A7 18 2A 82 30 26 00 EB 2A 89 1!.0....*.0&..*.
000160: 30 19 7E D6 2A D6 01 9F F5 7E D6 24 D6 01 9F C1 0.~.*....~.$....
000170: 48 B1 F5 E5 2A 82 30 26 00 EB 2A 89 30 19 4E CD H...*.0&..*.0.N.
000180: 97 06 D1 C1 48 B1 F5 1A D6 4F D6 01 9F C1 48 B1 ....H....O....H.
000190: 1F D2 A0 18 2A 82 30 26 00 EB 2A 89 30 19 36 30 ....*.0&..*.0.60
0001A0: 21 82 30 34 C2 4E 18 01 08 00 2A 9A 30 09 3A 61 !.04.N....*.0.:a
0001B0: 31 BE D2 0A 19 2A 61 31 26 00 EB 2A 89 30 19 7E 1....*a1&..*.0.~
0001C0: FE 2B C2 D6 18 2A 61 31 26 00 EB 2A 89 30 19 3A .+...*a1&..*.0.:
0001D0: 62 31 77 C3 0A 19 3A 62 31 FE 2B C2 0A 19 2A 61 b1w...:b1.+...*a
0001E0: 31 26 00 EB 2A 89 30 19 7E FE 2D CA FE 18 2A 61 1&..*.0.~.-...*a
0001F0: 31 26 00 01 01 00 09 EB 2A 89 30 19 36 20 2A 61 1&......*.0.6 *a
Size : 512 (Real : 512)
000000: 30 DA 0D 21 01 20 00 2A 9E 30 09 35 C9 01 64 31 0..!. .*.0.5..d1
000010: 11 68 31 CD 30 30 22 64 31 3E 81 21 64 31 CD 48 .h1.00"d1>.!d1.H
000020: 30 D2 3C 21 3E 80 11 64 31 CD 3D 30 EB 2B 73 23 0.<!>..d1.=0.+s#
000030: 72 01 20 00 2A 9E 30 09 35 C3 19 21 01 64 31 11 r. .*.0.5..!.d1.
000040: 66 31 CD 30 30 22 64 31 01 20 00 2A 9E 30 09 35 f1.00"d1. .*.0.5
000050: 35 2A 9E 30 09 3E 7F BE D2 75 21 CD 9D 20 3A 71 5*.0.>...u!.. :q
000060: 31 1F D2 66 21 C9 CD 94 1B 01 20 00 2A 9E 30 09 1..f!..... .*.0.
000070: 36 7F C3 80 21 CD 94 1B 01 20 00 2A 9E 30 09 35 6...!.... .*.0.5
000080: C9 21 95 31 71 CD E3 20 21 72 31 36 01 3A 95 31 .!.1q.. !r16.:.1
000090: 1F D2 9A 21 CD B1 1D C3 9D 21 CD 4E 20 CD 71 1B ...!.....!.N .q.
0000A0: 01 20 00 2A 9E 30 09 7E FE 00 C2 B3 21 CD 9D 20 . .*.0.~....!..
0000B0: C3 BB 21 01 20 00 2A 9E 30 09 35 21 72 31 36 00 ..!. .*.0.5!r16.
0000C0: CD 94 1B C9 CD 06 1F 22 98 31 01 06 00 2A 9A 30 .......".1...*.0
0000D0: 09 4E 23 46 CD 61 03 01 08 00 E5 2A 9A 30 09 5E .N#F.a.....*.0.^
0000E0: C1 CD 86 04 22 9A 31 11 9A 31 01 98 31 CD 30 30 ....".1..1..1.00
0000F0: D2 F9 21 01 32 57 CD B4 02 01 98 31 11 9A 31 CD ..!.2W.....1..1.
000100: 30 30 22 96 31 3E 00 CD 1C 30 D2 15 22 2A 96 31 00".1>...0.."*.1
000110: 44 4D CD 7B 20 C9 2A 83 30 26 00 EB 2A 7A 30 19 DM.{ .*.0&..*z0.
000120: E5 2A 82 30 26 00 EB 2A 89 30 19 C1 0A 77 21 83 .*.0&..*.0...w!.
000130: 30 34 2B 34 C9 21 9C 31 71 3A 9C 31 D6 30 D6 01 04+4.!.1q:.1.0..
000140: 9F F5 3A 9C 31 D6 2F D6 01 9F C1 48 B1 1F D2 58 ..:.1./....H...X
000150: 22 21 82 30 34 C3 C2 22 3A 9C 31 FE 42 C2 73 22 "!.04..":.1.B.s"
000160: 2A 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 34 *.0&..*.0.6 !.04
000170: C3 C2 22 3A 9C 31 FE 41 C2 99 22 2A 83 30 26 00 ..":.1.A.."*.0&.
000180: EB 2A 7A 30 19 4E CD 7F 06 1F DA 93 22 01 43 49 .*z0.N......".CI
000190: CD 4E 02 CD 16 22 C3 C2 22 3A 9C 31 FE 39 C2 BF .N..."..":.1.9..
0001A0: 22 2A 83 30 26 00 EB 2A 7A 30 19 4E CD 67 06 1F "*.0&..*z0.N.g..
0001B0: DA B9 22 01 43 49 CD 4E 02 CD 16 22 C3 C2 22 CD ..".CI.N..."..".
0001C0: 16 22 C9 CD 20 02 21 82 30 36 01 3E 04 21 82 30 .".. .!.06.>.!.0
0001D0: BE DA E8 22 2A 82 30 26 00 01 84 30 09 4E CD 10 ..."*.0&...0.N..
0001E0: 02 21 82 30 34 C2 CB 22 11 1B 01 0E 09 CD 05 00 .!.04.."........
0001F0: 21 F8 22 E5 2A 7C 30 E9 C9 CD 2C 05 4F 06 00 21 !.".*|0...,.O..!
Size : 512 (Real : 512)
000000: C3 B1 2F 0E 00 CD 83 07 C3 B1 2F 0E 02 CD 83 07 ../......./.....
000010: C3 B1 2F 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A ../*.0##N#F.a..*
000020: 9A 30 4E 23 46 CD 61 03 01 04 00 E5 2A 9A 30 09 .0N#F.a.....*.0.
000030: 5E 23 56 C1 CD F0 03 01 06 00 2A 9A 30 09 3E 00 ^#V.......*.0.>.
000040: CD 48 30 B5 CA 70 2B 2A 9A 30 4E 23 46 CD 61 03 .H0..p+*.0N#F.a.
000050: 01 04 00 E5 2A 9A 30 09 D1 CD B9 2F E5 01 06 00 ....*.0..../....
000060: 2A 9A 30 09 E5 CD 60 04 E1 4E 23 46 5F CD 2E 04 *.0...`..N#F_...
000070: 0E 08 CD 19 05 C3 B1 2F 21 A2 31 36 01 CD 3A 1A ......./!.16..:.
000080: 3A 70 31 B7 1F 1F D2 8F 2B 01 35 57 CD B4 02 01 :p1.....+.5W....
000090: 24 00 2A 9E 30 09 7E 2F 21 A2 31 A6 1F D2 BC 2B $.*.0.~/!.1....+
0000A0: 21 A2 31 36 00 CD 6A 1F CD 4D 1D 2A 7A 30 7E FE !.16..j..M.*z0~.
0000B0: FF C2 B9 2B 21 A2 31 36 01 C3 8F 2B 0E 09 CD 19 ...+!.16...+....
0000C0: 05 C3 B1 2F CD 3A 1A 3A 70 31 B7 1F 1F DA D6 2B .../.:.:p1.....+
0000D0: 01 31 57 CD B4 02 CD C4 21 CD 6A 1F CD B1 1D 0E .1W.....!.j.....
0000E0: 09 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 B7 1F 1F ....../.:.:p1...
0000F0: D2 F9 2B 01 35 57 CD B4 02 CD 07 1E 3A 71 31 1F ..+.5W......:q1.
000100: DA 06 2C CD 4D 1D 3A 71 31 1F D2 16 2C 01 24 00 ..,.M.:q1...,.$.
000110: 2A 9E 30 09 36 00 0E 09 CD 19 05 C3 B1 2F CD 3A *.0.6......../.:
000120: 1A 3A 70 31 B7 1F 1F D2 36 2C CD C4 21 CD 6A 1F .:p1....6,..!.j.
000130: CD B1 1D C3 7C 2C 3A 70 31 E6 FE 1F 1F 1F D2 7C ....|,:p1......|
000140: 2C CD 07 1E 3A 71 31 1F DA 76 2C 2A 64 31 23 7E ,...:q1..v,*d1#~
000150: FE FF C2 6D 2C 21 72 31 36 01 01 20 00 2A 9E 30 ...m,!r16.. .*.0
000160: 09 35 CD B1 1D 21 72 31 36 00 C3 73 2C 01 34 57 .5...!r16..s,.4W
000170: CD B4 02 C3 7C 2C 01 33 57 CD B4 02 0E 09 CD 19 ....|,.3W.......
000180: 05 C3 B1 2F CD 3A 1A 3A 70 31 E6 FE 1F 1F 1F DA .../.:.:p1......
000190: 98 2C 01 36 57 CD B4 02 21 72 31 36 01 CD E3 20 .,.6W...!r16...
0001A0: 3A 71 31 1F DA AA 2C CD B1 1D 21 72 31 36 00 0E :q1...,...!r16..
0001B0: 09 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 E6 FE 1F ....../.:.:p1...
0001C0: 1F 1F DA CB 2C 01 36 57 CD B4 02 CD 07 1E 21 72 ....,.6W......!r
0001D0: 31 36 01 2B 7E 1F DA E4 2C 01 20 00 2A 9E 30 09 16.+~...,. .*.0.
0001E0: 35 CD 4E 20 21 72 31 36 00 0E 09 CD 19 05 C3 B1 5.N !r16........
0001F0: 2F 2A 9A 30 4E 23 46 CD 61 03 22 89 30 01 06 00 /*.0N#F.a.".0...
Size : 512 (Real : 512)
000000: 2B 2F 09 09 5E 23 56 EB E9 C3 B1 2F CD 0E 0F C3 +/..^#V..../....
000010: B1 2F 3A 21 31 EE 01 32 21 31 CD 0E 0F C3 B1 2F ./:!1..2!1...../
000020: CD 53 0F 21 E4 30 22 7A 30 0E 11 CD C0 0A 21 F6 .S.!.0"z0.....!.
000030: 30 22 7A 30 0E 01 CD C0 0A 3A 1B 31 21 1A 31 86 0"z0.....:.1!.1.
000040: 32 1C 31 21 9D 31 36 0A 21 93 30 36 01 3E 09 21 2.1!.16.!.06.>.!
000050: 93 30 BE DA 86 23 3A 9D 31 3D 32 9D 31 4F 06 00 .0...#:.1=2.1O..
000060: 21 F6 30 09 3E 0F A6 4F CD C5 0F 2A 9D 31 26 00 !.0.>..O...*.1&.
000070: 01 F6 30 09 7E E6 F8 1F 1F 1F 1F 4F CD C5 0F 21 ..0.~......O...!
000080: 93 30 34 C2 4D 23 21 08 31 22 7A 30 0E 11 CD DE .04.M#!.1"z0....
000090: 0A 3A 1E 31 1F D2 BC 23 3A 1C 31 21 82 30 86 32 .:.1...#:.1!.0.2
0000A0: 9E 31 FE 11 D2 AF 23 21 1C 31 36 00 C3 BC 23 3A .1....#!.16...#:
0000B0: 9E 31 D6 11 32 1C 31 21 1E 31 36 00 21 20 31 36 .1..2.1!.16.! 16
0000C0: 0A CD A5 0D C3 B1 2F CD E2 0F C3 B1 2F 3A D4 30 ....../...../:.0
0000D0: 2F 32 D4 30 C3 B1 2F CD C3 22 C3 B1 2F CD B5 09 /2.0../.."../...
0000E0: C3 B1 2F 01 8B 30 11 96 30 CD 30 30 D2 2A 24 2A ../..0..0.00.*$*
0000F0: 96 30 5E 23 56 EB 22 9A 30 2A 96 30 23 23 5E 23 .0^#V.".0*.0##^#
000100: 56 EB 22 91 30 01 04 00 2A 96 30 09 5E 23 56 EB V.".0...*.0.^#V.
000110: 22 8F 30 11 06 00 2A 96 30 19 22 96 30 2A 7E 30 ".0...*.0.".0*~0
000120: 22 80 30 5E 23 56 EB 22 7E 30 C3 B1 2F 3A 1E 31 ".0^#V."~0../:.1
000130: 1F DA 74 24 21 08 31 22 7A 30 2A 9A 30 3A 1C 31 ..t$!.1"z0*.0:.1
000140: 96 4F 3E 00 B9 D2 5D 24 2A 9A 30 3A 1C 31 96 4F .O>...]$*.0:.1.O
000150: CD C0 0A 2A 9A 30 7E 32 1C 31 C3 71 24 2A 9A 30 ...*.0~2.1.q$*.0
000160: 7E 21 1C 31 96 4F CD DE 0A 3A 82 30 21 1C 31 86 ~!.1.O...:.0!.1.
000170: 77 CD A5 0D 0E 01 CD 19 05 C3 B1 2F 2A 9A 30 3E w........../*.0>
000180: 00 CD 48 30 B5 CA A6 24 2A 9A 30 4E 23 46 CD 61 ..H0...$*.0N#F.a
000190: 03 22 78 30 2A 9A 30 3E 00 77 23 36 00 2A 78 30 ."x0*.0>.w#6.*x0
0001A0: 22 9A 30 C3 AB 24 0E 02 CD 19 05 C3 B1 2F CD 3A ".0..$......./.:
0001B0: 1A CD 63 1B 1F D2 CE 24 3A 70 31 E6 FE 1F 1F 1F ..c....$:p1.....
0001C0: DA C8 24 0E 1A CD F2 1B CD 71 1B C3 D1 24 CD D3 ..$......q...$..
0001D0: 02 2A 9A 30 4E 23 46 CD 61 03 44 4D CD 02 03 21 .*.0N#F.a.DM...!
0001E0: 70 31 36 00 01 21 00 2A 9E 30 09 36 00 0E 02 CD p16..!.*.0.6....
0001F0: 19 05 C3 B1 2F 3A 1E 31 1F D2 06 25 0E 03 CD 19 ..../:.1...%....
Size : 512 (Real : 512)
000000: 2A 9A 30 09 4E 23 46 CD 61 03 E5 01 08 00 2A 9A *.0.N#F.a.....*.
000010: 30 09 5E 23 56 2A 89 30 44 4D CD F0 03 2A 9A 30 0.^#V*.0DM...*.0
000020: 23 23 4E 23 46 CD 61 03 22 7A 30 21 82 30 36 00 ##N#F.a."z0!.06.
000030: 23 36 00 01 04 00 2A 9A 30 09 3A 83 30 CD 48 30 #6....*.0.:.0.H0
000040: 9F 01 08 00 2A 9A 30 09 F5 3A 82 30 CD 48 30 9F ....*.0..:.0.H0.
000050: C1 48 A1 1F D2 68 2D 2A 82 30 26 00 EB 2A 89 30 .H...h-*.0&..*.0
000060: 19 4E CD 35 22 C3 33 2D 01 08 00 2A 9A 30 09 3A .N.5".3-...*.0.:
000070: 82 30 CD 48 30 D2 D4 2D 2A 82 30 26 00 EB 2A 89 .0.H0..-*.0&..*.
000080: 30 19 7E D6 58 D6 01 9F F5 7E D6 41 D6 01 9F C1 0.~.X....~.A....
000090: 48 B1 F5 7E D6 39 D6 01 9F C1 48 B1 1F D2 B1 2D H..~.9....H....-
0000A0: CD 60 04 2A 82 30 26 00 EB 2A 89 30 19 77 C3 CD .`.*.0&..*.0.w..
0000B0: 2D 2A 82 30 26 00 EB 2A 89 30 19 7E FE 42 C2 CD -*.0&..*.0.~.B..
0000C0: 2D 2A 82 30 26 00 EB 2A 89 30 19 36 20 21 82 30 -*.0&..*.0.6 !.0
0000D0: 34 C3 68 2D 0E 0A CD 19 05 C3 B1 2F CD D4 13 C3 4.h-......./....
0000E0: B1 2F 3E 06 11 96 30 CD 3D 30 EB 2B 73 23 72 11 ./>...0.=0.+s#r.
0000F0: 06 00 2A 9A 30 19 E5 2A 96 30 C1 71 23 70 2A 96 ..*.0..*.0.q#p*.
000100: 30 23 23 E5 2A 91 30 EB E1 73 23 72 01 04 00 2A 0##.*.0..s#r...*
000110: 96 30 09 E5 2A 8F 30 EB E1 73 23 72 2A 9A 30 23 .0..*.0..s#r*.0#
000120: 23 5E 23 56 EB 22 91 30 2A 9A 30 09 5E 23 56 EB #^#V.".0*.0.^#V.
000130: 22 8F 30 2A 9A 30 5E 23 56 EB 22 9A 30 C3 B1 2F ".0*.0^#V.".0../
000140: 2A 9A 30 23 23 4E 23 46 CD 61 03 E5 2A 9A 30 23 *.0##N#F.a..*.0#
000150: 5E C1 CD 86 04 EB 21 A5 31 73 2A 9A 30 7E 21 A5 ^.....!.1s*.0~!.
000160: 31 96 9F F5 7E D6 01 9F C1 48 B1 1F D2 83 2E 01 1...~....H......
000170: 44 47 CD 4E 02 2A 9A 30 7E 87 C6 04 4F CD 19 05 DG.N.*.0~...O...
000180: C3 9B 2E 2A A5 31 26 00 01 02 00 29 09 EB 2A 9A ...*.1&....)..*.
000190: 30 19 4E 23 46 CD 61 03 22 9A 30 C3 B1 2F 2A 80 0.N#F.a.".0../*.
0001A0: 30 22 89 30 2A 9A 30 5E 23 56 EB 29 EB 2A 80 30 0".0*.0^#V.).*.0
0001B0: 19 23 23 22 80 30 3E 07 11 96 30 CD 3D 30 EB 21 .##".0>...0.=0.!
0001C0: 80 30 CD 4B 30 D2 CE 2E 01 4F 43 CD B4 02 2A 89 .0.K0....OC...*.
0001D0: 30 E5 2A 7E 30 EB E1 73 23 72 21 82 30 36 01 2A 0.*~0..s#r!.06.*
0001E0: 9A 30 EB 3A 82 30 CD 3D 30 DA 14 2F 2A 82 30 26 .0.:.0.=0../*.0&
0001F0: 00 29 EB 2A 9A 30 19 4E 23 46 CD 61 03 E5 2A 82 .).*.0.N#F.a..*.
Size : 512 (Real : 512)
000000: 05 21 1E 31 36 00 C3 B1 2F 2A 9A 30 4E 23 46 CD .!.16.../*.0N#F.
000010: 61 03 22 9A 30 C3 B1 2F 0E 01 CD A1 1A CD 94 1B a.".0../........
000020: C3 B1 2F 0E 02 CD A1 1A C3 B1 2F 0E 04 CD A1 1A ../......./.....
000030: CD 94 1B C3 B1 2F 3A 23 31 1F DA 44 25 3A D4 30 ...../:#1..D%:.0
000040: 2F 32 D4 30 0E 00 CD 3C 05 C3 B1 2F CD F8 0C 2F /2.0...<.../.../
000050: 21 23 31 A6 1F D2 5F 25 3A D4 30 2F 32 D4 30 0E !#1..._%:.0/2.0.
000060: 00 CD 3C 05 C3 B1 2F CD F8 0C 1F D2 75 25 3A D4 ..<.../.....u%:.
000070: 30 2F 32 D4 30 0E 00 CD 3C 05 C3 B1 2F 2A 71 31 0/2.0...<.../*q1
000080: 4D CD 6E 05 C3 B1 2F 01 24 00 2A 9E 30 09 4E CD M.n.../.$.*.0.N.
000090: 6E 05 C3 B1 2F CD 3A 1A 2A 9A 30 23 23 7E FE 64 n.../.:.*.0##~.d
0000A0: D2 C4 25 21 9F 31 36 01 2A 9A 30 23 23 7E 21 9F ..%!.16.*.0##~!.
0000B0: 31 BE DA C1 25 0E 0A CD F2 1B 21 9F 31 34 C2 A8 1...%.....!.14..
0000C0: 25 C3 C9 25 0E 0C CD F2 1B 01 03 00 2A 9A 30 09 %..%........*.0.
0000D0: 7E FE 30 C2 DB 25 21 6F 31 36 01 0E 03 CD 19 05 ~.0..%!o16......
0000E0: C3 B1 2F CD 66 19 C3 B1 2F 01 03 00 2A 9A 30 09 ../.f.../...*.0.
0000F0: 7E 32 25 31 2A 9A 30 09 36 00 CD AC 19 01 2D 01 ~2%1*.0.6.....-.
000100: CD 2B 02 01 50 01 CD 2B 02 21 6A 31 36 00 3A 6A .+..P..+.!j16.:j
000110: 31 D6 0D C6 FF 9F F5 3A 6A 31 D6 53 C6 FF 9F C1 1......:j1.S....
000120: 48 A1 1F D2 3A 26 01 70 01 CD 2B 02 11 00 00 0E H...:&.p..+.....
000130: 01 CD 05 00 32 6A 31 C3 0E 26 3A 6A 31 FE 0D C2 ....2j1..&:j1...
000140: 50 26 2A 9A 30 2B 22 9A 30 3A 25 31 77 C3 53 26 P&*.0+".0:%1w.S&
000150: CD C3 22 C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 E5 .."../*.0N#F.a..
000160: 2A 9A 30 23 23 5E C1 CD 86 04 23 01 04 00 E5 2A *.0##^....#....*
000170: 9A 30 09 C1 71 23 70 0E 03 CD 19 05 C3 B1 2F CD .0..q#p......./.
000180: AC 19 C3 B1 2F 2A 9A 30 3E 00 CD 48 30 B5 CA 9C ..../*.0>..H0...
000190: 26 2A 9A 30 4E 23 46 0B 2B 71 23 70 2A 9A 30 3E &*.0N#F.+q#p*.0>
0001A0: 00 CD 48 30 B5 C2 B9 26 2A 9A 30 23 23 4E 23 46 ..H0...&*.0##N#F
0001B0: CD 61 03 22 9A 30 C3 BE 26 0E 04 CD 19 05 C3 B1 .a.".0..&.......
0001C0: 2F CD AF 13 0E 04 CD 19 05 C3 B1 2F CD AF 13 2A /........../...*
0001D0: 9A 30 4E 23 46 CD 61 03 44 4D CD 37 13 C3 B1 2F .0N#F.a.DM.7.../
0001E0: CD AF 13 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 ...*.0N#F.a..*.0
0001F0: 23 23 5E 16 00 E1 19 2B 44 4D CD 37 13 C3 B1 2F ##^....+DM.7.../
Size : 512 (Real : 512)
000000: 30 26 00 29 EB 2A 89 30 19 C1 71 23 70 21 82 30 0&.).*.0..q#p!.0
000010: 34 C2 DF 2E 2A 89 30 22 7E 30 2A 9A 30 5E 23 56 4...*.0"~0*.0^#V
000020: EB 29 23 23 4D CD 19 05 C3 B1 2F 09 23 0C 23 12 .)##M...../.#.#.
000030: 23 20 23 C7 23 CD 23 D7 23 DD 23 E3 23 2D 24 7C # #.#.#.#.#.#-$|
000040: 24 AE 24 F5 24 09 25 18 25 23 25 2B 25 36 25 4C $.$.$.%.%#%+%6%L
000050: 25 67 25 7D 25 87 25 95 25 E3 25 E9 25 56 26 7F %g%}%.%.%.%.%V&.
000060: 26 85 26 C1 26 CC 26 E0 26 00 27 37 27 7B 27 E0 &.&.&.&.&.'7'{'.
000070: 27 E6 27 EC 27 46 28 99 28 D0 28 13 29 9C 29 CD '.'.'F(.(.(.).).
000080: 29 D3 29 D9 29 DF 29 0C 2A 39 2A 60 2A 94 2A 9F ).).).).*9*`*.*.
000090: 2A AA 2A FB 2A 03 2B 0B 2B 13 2B 78 2B C4 2B E7 *.*.*.+.+.+x+.+.
0000A0: 2B 1E 2C 84 2C B7 2C F1 2C DC 2D E2 2D 40 2E 9E +.,.,.,.,.-.-@..
0000B0: 2E C3 F9 22 C9 EB 5F 16 00 EB 1A 85 6F 13 1A 8C ...".._.....o...
0000C0: 67 C9 EB 5F 16 00 EB 1A A5 6F 13 1A A4 67 C9 44 g.._.....o...g.D
0000D0: 4D 21 00 00 3E 10 F5 29 EB 97 29 EB 8D 91 6F 7C M!..>..)..)...o|
0000E0: 98 67 13 D2 E8 2F 09 1B F1 3D C2 D6 2F C9 44 4D .g.../...=../.DM
0000F0: 21 00 00 3E 10 29 EB 29 EB D2 FD 2F 09 3D C2 F5 !..>.).).../.=..
000100: 2F C9 5E 23 56 EB 29 0D C2 06 30 C9 5E 23 56 EB /.^#V.)...0.^#V.
000110: 7C B7 1F 67 7D 1F 6F 0D C2 10 30 C9 5F 16 00 7B |..g}.o...0._..{
000120: 95 6F 7A 9C 67 C9 4F 06 00 7B 91 6F 7A 98 67 C9 .oz.g.O..{.oz.g.
000130: 69 60 4E 23 46 1A 91 6F 13 1A 98 67 C9 6F 26 00 i`N#F..o...g.o&.
000140: 1A 95 6F 13 1A 9C 67 C9 5F 16 00 7B 96 5F 7A 23 ..o...g._..{._z#
000150: 9E 57 EB C9 00 00 00 00 00 00 00 00 00 00 00 00 .W..............
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 20 20 20 20 30 00 00 00 00 00 00 00 .... 0.......
000190: 00 00 00 00 FC 00 00 00 00 35 00 00 00 00 00 00 .........5......
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 ................
Size : 512 (Real : 512)
000000: CD AE 0E 2A 9A 30 4E 23 46 CD 61 03 E5 2A 9A 30 ...*.0N#F.a..*.0
000010: 23 23 5E 16 00 E1 19 2B 22 7A 30 2A 9A 30 23 23 ##^....+"z0*.0##
000020: 7E 3D 4F CD F5 12 2A 9A 30 4E 23 46 CD 61 03 44 ~=O...*.0N#F.a.D
000030: 4D CD 70 13 C3 B1 2F CD AE 0E 2A 9A 30 4E 23 46 M.p.../...*.0N#F
000040: CD 61 03 E5 2A 9A 30 23 23 5E 16 00 E1 19 2B 2B .a..*.0##^....++
000050: 22 7A 30 2A 9A 30 23 23 7E 3D 4F CD F5 12 2A 9A "z0*.0##~=O...*.
000060: 30 4E 23 46 CD 61 03 E5 2A 9A 30 23 23 5E 16 00 0N#F.a..*.0##^..
000070: E1 19 2B 44 4D CD 70 13 C3 B1 2F CD AE 0E 3A 23 ..+DM.p.../...:#
000080: 31 FE 00 C2 8E 27 3A 11 31 F6 01 32 11 31 01 04 1....':.1..2.1..
000090: 00 2A 9A 30 09 7E D6 0C C6 FF 9F F5 3A 1E 31 2F .*.0.~......:.1/
0000A0: C1 48 B1 1F D2 D8 27 2A 9A 30 23 23 5E 16 00 21 .H....'*.0##^..!
0000B0: 02 00 CD CF 2F 13 21 82 30 73 3A 82 30 11 12 31 ..../.!.0s:.0..1
0000C0: CD 26 30 E5 2A 9A 30 4E 23 46 CD 61 03 44 4D 2A .&0.*.0N#F.a.DM*
0000D0: 82 30 26 00 EB CD F0 03 0E 04 CD 19 05 C3 B1 2F .0&............/
0000E0: CD 13 12 C3 B1 2F CD FC 11 C3 B1 2F 2A 9A 30 4E ...../...../*.0N
0000F0: 23 46 CD 61 03 22 89 30 2A 89 30 4E CD 8A 09 1F #F.a.".0*.0N....
000100: D2 1C 28 0E 01 CD 87 11 2A 9A 30 E5 2A 9A 30 23 ..(.....*.0.*.0#
000110: 23 5E E1 4E 23 46 CD 40 11 C3 43 28 2A 89 30 7E #^.N#F.@..C(*.0~
000120: 32 25 31 0E 00 CD 87 11 2A 9A 30 4E 23 46 03 2A 2%1.....*.0N#F.*
000130: 9A 30 23 23 7E 3D 5F CD 40 11 3A 25 31 D6 80 4F .0##~=_.@.:%1..O
000140: CD 01 11 C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 22 ...../*.0N#F.a."
000150: 89 30 2A 9A 30 23 23 7E 3D 32 A0 31 4F 06 00 2A .0*.0##~=2.1O..*
000160: 89 30 09 7E 32 82 30 4F CD 8A 09 1F D2 7B 28 0E .0.~2.0O.....{(.
000170: 01 CD 87 11 21 A0 31 34 C3 89 28 0E 00 CD 87 11 ....!.14..(.....
000180: 3A 82 30 D6 80 4F CD 01 11 2A 9A 30 4E 23 46 2A :.0..O...*.0N#F*
000190: A0 31 EB CD 40 11 C3 B1 2F 2A 9A 30 4E 23 46 CD .1..@.../*.0N#F.
0001A0: 61 03 22 89 30 2A 89 30 7E FE 2B C2 B6 28 0E 01 a.".0*.0~.+..(..
0001B0: CD 87 11 C3 BB 28 0E 00 CD 87 11 2A 9A 30 4E 23 .....(.....*.0N#
0001C0: 46 03 2A 9A 30 23 23 7E 3D 5F CD 40 11 C3 B1 2F F.*.0##~=_.@.../
0001D0: 2A 9A 30 4E 23 46 CD 61 03 22 89 30 2A 9A 30 23 *.0N#F.a.".0*.0#
0001E0: 23 7E 3D 4F 06 00 2A 89 30 09 7E FE 2B C2 F8 28 #~=O..*.0.~.+..(
0001F0: 0E 01 CD 87 11 C3 FD 28 0E 00 CD 87 11 2A 9A 30 .......(.....*.0
Size : 512 (Real : 512)
000000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000010: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 80 00 82 00 00 ................
000070: 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
000080: 30 11 C1 30 CD 30 30 C9 2A 91 30 EB 2A C1 30 19 0..0.00.*.0.*.0.
000090: C9 3E 08 11 C1 30 CD 3D 30 D2 A9 03 2A C1 30 01 .>...0.=0...*.0.
0000A0: B1 30 29 09 5E 23 56 EB C9 3E 0C 21 C1 30 CD 48 .0).^#V..>.!.0.H
0000B0: 30 D2 C7 03 3E 0C 11 C1 30 CD 3D 30 29 EB 2A 7E 0...>...0.=0).*~
0000C0: 30 19 5E 23 56 EB C9 3E 0A 11 C1 30 CD 3D 30 EB 0.^#V..>...0.=0.
0000D0: 21 E6 03 19 19 5E 23 56 EB E9 21 18 01 C9 21 19 !....^#V..!...!.
0000E0: 01 C9 21 1A 01 C9 DA 03 DE 03 E2 03 21 00 00 C9 ..!.........!...
0000F0: 21 C9 30 72 2B 73 2B 70 2B 71 2B D1 C1 70 2B 71 !.0r+s+p+q+..p+q
000100: D5 2A C8 30 2B 22 C8 30 11 FF FF CD 1F 30 B5 CA .*.0+".0.....0..
000110: 2D 04 2A C4 30 E5 2A C6 30 C1 0A 77 2A C4 30 23 -.*.0.*.0..w*.0#
000120: 22 C4 30 2A C6 30 23 22 C6 30 C3 01 04 C9 21 CE ".0*.0#".0....!.
000130: 30 73 2B 70 2B 71 2B D1 C1 70 2B 71 D5 2A CC 30 0s+p+q+..p+q.*.0
000140: 2B 22 CC 30 11 FF FF CD 1F 30 B5 CA 5F 04 2A CA +".0.....0.._.*.
000150: 30 3A CE 30 77 2A CA 30 23 22 CA 30 C3 3D 04 C9 0:.0w*.0#".0.=..
000160: 2A 9A 30 23 23 3E 0B CD 48 30 B5 C2 71 04 3E 27 *.0##>..H0..q.>'
000170: C9 2A 9A 30 23 23 3E 0C CD 48 30 B5 C2 82 04 3E .*.0##>..H0....>
000180: 30 C9 3E 20 C9 C9 21 D1 30 73 2B 70 2B 71 21 00 0.> ..!.0s+p+q!.
000190: 00 22 78 30 2A CF 30 22 7A 30 21 D3 30 36 00 3A ."x0*.0"z0!.06.:
0001A0: D1 30 3D 21 D3 30 BE DA 15 05 2A D3 30 26 00 EB .0=!.0....*.0&..
0001B0: 2A 7A 30 19 7E 32 D2 30 D6 2D D6 01 9F F5 3A D2 *z0.~2.0.-....:.
0001C0: 30 D6 80 F5 D6 30 9F 2F C1 48 F5 3E 39 91 9F 2F 0....0./.H.>9../
0001D0: C1 48 A1 C1 48 B1 1F D2 E1 04 21 00 00 22 78 30 .H..H.....!.."x0
0001E0: C9 3A D2 30 FE 2E C2 ED 04 2A 78 30 C9 3A D2 30 .:.0.....*x0.:.0
0001F0: FE 2B CA 0E 05 2A 78 30 29 29 29 E5 2A 78 30 29 .+...*x0))).*x0)
Size : 512 (Real : 512)
000000: E5 2A 9A 30 23 23 7E 3D E1 4E 23 46 5F CD 40 11 .*.0##~=.N#F_.@.
000010: C3 B1 2F 2A 9A 30 4E 23 46 CD 61 03 22 89 30 2A ../*.0N#F.a.".0*
000020: 9A 30 23 23 5E 16 00 21 02 00 CD CF 2F 21 A1 31 .0##^..!..../!.1
000030: 73 2A 89 30 19 7E 1F D2 42 29 0E 00 CD 87 11 C3 s*.0.~..B)......
000040: 47 29 0E 01 CD 87 11 11 09 00 2A 7A 30 19 EB 3A G)........*z0..:
000050: A1 31 CD 26 30 22 7A 30 21 82 30 36 00 3A A1 31 .1.&0"z0!.06.:.1
000060: 21 82 30 BE DA 86 29 2A 82 30 26 00 EB 2A 89 30 !.0...)*.0&..*.0
000070: 19 E5 2A 82 30 26 00 EB 2A 7A 30 19 C1 0A 77 21 ..*.0&..*z0...w!
000080: 82 30 34 C2 5D 29 2A A1 31 26 00 EB 2A 7A 30 19 .04.])*.1&..*z0.
000090: 3E F0 A6 77 0E 05 CD 19 05 C3 B1 2F 2A 9A 30 23 >..w......./*.0#
0000A0: 23 4E 23 46 CD 61 03 23 22 7A 30 01 04 00 2A 9A #N#F.a.#"z0...*.
0000B0: 30 09 E5 2A 7A 30 E3 4E 23 46 E1 71 23 70 2A 9A 0..*z0.N#F.q#p*.
0000C0: 30 4E 23 46 CD 61 03 22 9A 30 C3 B1 2F CD DC 07 0N#F.a.".0../...
0000D0: C3 B1 2F CD 49 08 C3 B1 2F CD 1D 09 C3 B1 2F CD ../.I.../...../.
0000E0: 3A 1A 3A 70 31 E6 FE 1F 1F 1F DA F3 29 01 36 57 :.:p1.......).6W
0000F0: CD B4 02 01 24 00 2A 9E 30 09 7E 1F DA 04 2A 0E ....$.*.0.~...*.
000100: 01 CD 81 21 0E 06 CD 19 05 C3 B1 2F CD 3A 1A 3A ...!......./.:.:
000110: 70 31 E6 FE 1F 1F 1F DA 20 2A 01 36 57 CD B4 02 p1...... *.6W...
000120: 01 24 00 2A 9E 30 09 7E 1F DA 31 2A 0E 00 CD 81 .$.*.0.~..1*....
000130: 21 0E 06 CD 19 05 C3 B1 2F CD 3A 1A 3A 70 31 1F !......./.:.:p1.
000140: DA 49 2A 01 35 57 CD B4 02 01 24 00 2A 9E 30 09 .I*.5W....$.*.0.
000150: 7E 1F DA 58 2A CD 4D 1D 0E 06 CD 19 05 C3 B1 2F ~..X*.M......../
000160: 01 06 00 2A 9A 30 09 7E FE 16 C2 72 2A 21 6F 31 ...*.0.~...r*!o1
000170: 36 01 CD 3A 1A 3A 70 31 B7 1F 1F DA 84 2A 01 33 6..:.:p1.....*.3
000180: 57 CD B4 02 CD B1 1D 0E 06 CD 19 05 21 6F 31 36 W...........!o16
000190: 00 C3 B1 2F CD 57 1C 0E 06 CD 19 05 C3 B1 2F CD .../.W......../.
0001A0: D6 1C 0E 06 CD 19 05 C3 B1 2F 2A 9A 30 4E 23 46 ........./*.0N#F
0001B0: CD 61 03 E5 2A 9A 30 23 23 E5 01 04 00 2A 9A 30 .a..*.0##....*.0
0001C0: 09 4E 23 46 CD 61 03 01 06 00 E5 2A 9A 30 09 5E .N#F.a.....*.0.^
0001D0: C1 CD 86 04 2B E3 4E 23 46 D1 CD F0 2F C1 09 01 ....+.N#F.../...
0001E0: 07 00 E5 2A 9A 30 09 4E 06 00 21 B1 30 09 09 C1 ...*.0.N..!.0...
0001F0: 71 23 70 0E 08 CD 19 05 C3 B1 2F 0E 01 CD 83 07 q#p......./.....
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 6D 70 69 6C 65 72 0D 0A 20 43 4F 42 4F 4C 20 20 mpiler.. COBOL
000010: 20 2E 4F 56 52 20 20 31 34 6B 20 7D 20 70 72 6F .OVR 14k } pro
000020: 67 72 61 6D 73 2E 0D 0A 0D 0A 20 45 58 45 43 20 grams..... EXEC
000030: 20 20 20 2E 43 4F 4D 20 20 20 38 6B 20 7D 20 43 .COM 8k } C
000040: 6F 62 6F 6C 20 65 78 65 63 75 74 69 6F 6E 0D 0A obol execution..
000050: 20 45 58 45 43 20 20 20 20 2E 4F 56 52 20 20 31 EXEC .OVR 1
000060: 33 6B 20 7D 20 70 72 6F 67 72 61 6D 73 2E 0D 0A 3k } programs...
000070: 0D 0A 54 68 65 20 70 75 62 6C 69 63 20 64 6F 6D ..The public dom
000080: 61 69 6E 20 76 65 72 73 69 6F 6E 20 6F 66 20 43 ain version of C
000090: 4F 42 4F 4C 20 73 75 70 70 6C 69 65 64 20 62 79 OBOL supplied by
0000A0: 20 57 41 43 43 49 2C 20 69 73 20 61 20 67 6F 6F WACCI, is a goo
0000B0: 64 20 76 65 72 73 69 6F 6E 20 6F 66 0D 0A 74 68 d version of..th
0000C0: 65 20 6C 61 6E 67 75 61 67 65 2E 20 54 68 69 73 e language. This
0000D0: 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 74 68 version of th
0000E0: 65 20 20 6C 61 6E 67 75 61 67 65 20 20 68 61 73 e language has
0000F0: 20 20 74 68 72 65 65 20 20 64 72 61 77 62 61 63 three drawbac
000100: 6B 73 2C 20 70 6F 6F 72 0D 0A 73 63 72 65 65 6E ks, poor..screen
000110: 20 68 61 6E 64 6C 69 6E 67 2C 20 6E 6F 20 70 72 handling, no pr
000120: 69 6E 74 20 20 63 6F 6D 6D 61 6E 64 73 20 20 61 int commands a
000130: 6E 64 20 20 74 68 65 20 20 69 6E 61 62 69 6C 69 nd the inabili
000140: 74 79 20 20 74 6F 20 70 72 6F 64 75 63 65 20 73 ty to produce s
000150: 74 61 6E 64 0D 0A 61 6C 6F 6E 65 20 66 69 6C 65 tand..alone file
000160: 73 2E 20 54 68 65 73 65 20 63 61 6E 20 62 65 20 s. These can be
000170: 6F 76 65 72 63 6F 6D 65 20 77 69 74 68 20 61 20 overcome with a
000180: 62 69 74 20 6F 66 20 27 69 6E 76 65 6E 74 69 76 bit of 'inventiv
000190: 65 27 20 70 72 6F 67 72 61 6D 6D 69 6E 67 2E 0D e' programming..
0001A0: 0A 0D 0A 53 68 6F 75 6C 64 20 79 6F 75 20 64 65 ...Should you de
0001B0: 63 69 64 65 20 74 68 61 74 20 43 6F 62 6F 6C 20 cide that Cobol
0001C0: 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 73 20 20 programming is
0001D0: 66 6F 72 20 79 6F 75 20 74 68 65 6E 20 79 6F 75 for you then you
0001E0: 20 63 61 6E 20 6F 62 74 61 69 6E 20 61 0D 0A 62 can obtain a..b
0001F0: 65 74 74 65 72 20 76 65 72 73 69 6F 6E 20 6F 66 etter version of
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
000020: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
000030: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
000060: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
000090: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0000A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 PA
0000C0: 52 54 20 4F 4E 45 20 3A 20 47 45 54 54 49 4E 47 RT ONE : GETTING
0000D0: 20 53 54 41 52 54 45 44 0D 0A 0D 0A 0D 0A 0D 0A STARTED........
0000E0: 49 4E 54 52 4F 44 55 43 54 49 4F 4E 2E 0D 0A 3D INTRODUCTION...=
0000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
000100: 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 6C 6F Last month we lo
000110: 6F 6B 65 64 20 61 74 20 20 74 68 65 20 20 43 50 oked at the CP
000120: 2F 4D 20 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 /M public doma
000130: 69 6E 20 77 6F 72 64 20 70 72 6F 63 65 73 73 69 in word processi
000140: 6E 67 20 70 72 6F 67 72 61 6D 0D 0A 56 44 45 2E ng program..VDE.
000150: 20 54 68 69 73 20 6D 6F 6E 74 68 2C 20 77 65 20 This month, we
000160: 73 74 61 72 74 20 61 20 73 65 72 69 65 73 20 20 start a series
000170: 6F 6E 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 on programming i
000180: 6E 20 43 6F 62 6F 6C 20 75 73 69 6E 67 20 74 68 n Cobol using th
000190: 65 20 43 50 2F 4D 0D 0A 70 75 62 6C 69 63 20 64 e CP/M..public d
0001A0: 6F 6D 61 69 6E 20 76 65 72 73 69 6F 6E 20 61 76 omain version av
0001B0: 61 69 6C 61 62 6C 65 20 66 72 6F 6D 20 57 41 43 ailable from WAC
0001C0: 43 49 2E 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 72 6F CI.....Cobol pro
0001D0: 67 72 61 6D 73 20 61 72 65 20 77 72 69 74 74 65 grams are writte
0001E0: 6E 20 61 73 20 74 65 78 74 20 20 66 69 6C 65 73 n as text files
0001F0: 20 20 61 6E 64 20 74 68 65 6E 20 63 6F 6E 76 65 and then conve
Size : 512 (Real : 512)
000000: 20 74 68 65 20 6C 61 6E 67 75 61 67 65 20 66 6F the language fo
000010: 72 20 61 70 70 72 6F 78 2E 20 A3 34 30 2E 0D 0A r approx. .40...
000020: 0D 0A 0D 0A 43 52 45 41 54 49 4E 47 20 41 20 57 ....CREATING A W
000030: 4F 52 4B 20 44 49 53 43 2E 0D 0A 3D 3D 3D 3D 3D ORK DISC...=====
000040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000050: 0D 0A 0D 0A 44 6F 6E 27 74 20 75 73 65 20 79 6F ....Don't use yo
000060: 75 72 20 62 72 61 6E 64 20 6E 65 77 20 6D 61 73 ur brand new mas
000070: 74 65 72 20 64 69 73 63 2C 20 20 69 74 20 79 6F ter disc, it yo
000080: 75 20 64 61 6D 61 67 65 20 74 68 65 20 70 72 6F u damage the pro
000090: 67 72 61 6D 73 20 79 6F 75 20 77 69 6C 6C 0D 0A grams you will..
0000A0: 62 65 20 6C 65 73 73 20 74 68 61 6E 20 70 6C 65 be less than ple
0000B0: 61 73 65 64 2C 20 73 6F 20 62 65 66 6F 72 65 20 ased, so before
0000C0: 64 6F 69 6E 67 20 61 6E 79 74 68 69 6E 67 20 65 doing anything e
0000D0: 6C 73 65 20 63 6F 70 79 20 79 6F 75 72 20 6D 61 lse copy your ma
0000E0: 73 74 65 72 20 64 69 73 63 2E 0D 0A 0D 0A 54 68 ster disc.....Th
0000F0: 65 6E 20 63 72 65 61 74 65 20 79 6F 75 72 73 65 en create yourse
000100: 6C 66 20 61 20 77 6F 72 6B 20 64 69 73 63 20 61 lf a work disc a
000110: 73 20 66 6F 6C 6C 6F 77 73 3A 0D 0A 0D 0A 20 31 s follows:.... 1
000120: 2E 20 20 46 6F 72 6D 61 74 20 79 6F 75 72 73 65 . Format yourse
000130: 6C 66 20 61 20 73 79 73 74 65 6D 20 64 69 73 63 lf a system disc
000140: 0D 0A 20 32 61 2E 20 43 6F 70 79 20 43 31 30 43 .. 2a. Copy C10C
000150: 50 4D 33 2E 45 4D 53 20 6F 6E 74 6F 20 74 68 65 PM3.EMS onto the
000160: 20 6E 65 77 20 64 69 73 63 20 28 43 50 2F 4D 20 new disc (CP/M
000170: 70 6C 75 73 20 4F 4E 4C 59 29 0D 0A 20 32 62 20 plus ONLY).. 2b
000180: 20 53 65 74 75 70 20 74 68 65 20 64 69 73 63 20 Setup the disc
000190: 75 73 69 6E 67 20 53 45 54 55 50 2E 43 4F 4D 20 using SETUP.COM
0001A0: 20 20 20 20 28 43 50 2F 4D 20 32 2E 32 20 4F 4E (CP/M 2.2 ON
0001B0: 4C 59 29 0D 0A 20 34 2E 20 20 43 6F 70 79 20 79 LY).. 4. Copy y
0001C0: 6F 75 72 20 66 61 76 6F 75 72 69 74 65 20 77 6F our favourite wo
0001D0: 72 64 20 70 72 6F 63 65 73 73 6F 72 20 6F 6E 74 rd processor ont
0001E0: 6F 20 74 68 65 20 64 69 73 63 2E 0D 0A 20 35 2E o the disc... 5.
0001F0: 20 20 43 6F 70 79 20 43 4F 42 4F 4C 2E 43 4F 4D Copy COBOL.COM
Size : 512 (Real : 512)
000000: 72 74 65 64 20 69 6E 74 6F 20 6D 61 63 68 69 6E rted into machin
000010: 65 0D 0A 63 6F 64 65 20 75 73 69 6E 67 20 61 20 e..code using a
000020: 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 72 2C 20 Cobol compiler,
000030: 73 6F 20 20 74 68 65 20 20 62 61 73 69 63 20 77 so the basic w
000040: 6F 72 64 20 70 72 6F 63 65 73 73 69 6E 67 20 73 ord processing s
000050: 6B 69 6C 6C 73 20 63 6F 76 65 72 65 64 0D 0A 6C kills covered..l
000060: 61 73 74 20 6D 6F 6E 74 68 20 77 69 6C 6C 20 62 ast month will b
000070: 65 20 6E 65 65 64 65 64 2E 0D 0A 0D 0A 41 4C 4C e needed.....ALL
000080: 20 74 68 65 20 65 78 61 6D 70 6C 65 73 20 69 6E the examples in
000090: 20 20 74 68 69 73 20 20 73 65 72 69 65 73 20 20 this series
0000A0: 77 65 72 65 20 20 77 72 69 74 74 65 6E 20 20 75 were written u
0000B0: 73 69 6E 67 20 56 44 45 32 36 36 20 28 74 68 65 sing VDE266 (the
0000C0: 20 50 75 62 6C 69 63 0D 0A 44 6F 6D 61 69 6E 20 Public..Domain
0000D0: 77 6F 72 64 20 70 72 6F 63 65 73 73 6F 72 29 20 word processor)
0000E0: 61 6E 64 20 74 68 65 20 20 50 75 62 6C 69 63 20 and the Public
0000F0: 20 44 6F 6D 61 69 6E 20 20 76 65 72 73 69 6F 6E Domain version
000100: 20 6F 66 20 43 4F 42 4F 4C 2E 20 41 6E 79 20 77 of COBOL. Any w
000110: 6F 72 64 0D 0A 70 72 6F 63 65 73 73 69 6E 67 20 ord..processing
000120: 72 65 66 65 72 65 6E 63 65 73 20 77 69 6C 6C 20 references will
000130: 72 65 66 65 72 20 74 6F 20 56 44 45 32 36 36 2E refer to VDE266.
000140: 0D 0A 0D 0A 0D 0A 42 41 43 4B 47 52 4F 55 4E 44 ......BACKGROUND
000150: 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A ...===========..
000160: 0D 0A 43 4F 42 4F 4C 20 69 73 20 61 6E 20 61 63 ..COBOL is an ac
000170: 72 6F 6E 79 6D 20 6F 66 20 43 4F 6D 62 69 6E 65 ronym of COmbine
000180: 64 20 42 75 73 69 6E 65 73 73 20 20 4F 72 69 65 d Business Orie
000190: 6E 74 65 64 20 4C 61 6E 67 75 61 67 65 20 61 6E nted Language an
0001A0: 64 20 20 69 73 20 6F 6E 65 20 6F 66 0D 0A 74 68 d is one of..th
0001B0: 65 20 6F 6C 64 65 73 74 20 63 6F 6D 70 75 74 65 e oldest compute
0001C0: 72 20 6C 61 6E 67 75 61 67 65 73 2E 20 49 74 73 r languages. Its
0001D0: 20 20 64 65 6D 69 73 65 20 20 68 61 73 20 20 62 demise has b
0001E0: 65 65 6E 20 70 72 65 64 69 63 74 65 64 20 65 76 een predicted ev
0001F0: 65 72 79 20 79 65 61 72 0D 0A 66 6F 72 20 61 73 ery year..for as
Size : 512 (Real : 512)
000000: 2C 20 43 4F 42 4F 4C 2E 4F 56 52 2C 20 45 58 45 , COBOL.OVR, EXE
000010: 43 2E 43 4F 4D 20 26 20 45 58 45 43 2E 4F 56 52 C.COM & EXEC.OVR
000020: 20 6F 6E 74 6F 20 74 68 65 20 6E 65 77 20 64 69 onto the new di
000030: 73 63 2E 0D 0A 0D 0A 59 6F 75 20 73 68 6F 75 6C sc.....You shoul
000040: 64 20 70 72 69 6E 74 20 6F 75 74 20 61 20 63 6F d print out a co
000050: 70 79 20 6F 66 20 20 74 68 65 20 64 6F 63 75 6D py of the docum
000060: 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 73 20 61 entation files a
000070: 74 20 74 68 69 73 20 73 74 61 67 65 2C 20 79 6F t this stage, yo
000080: 75 0D 0A 77 69 6C 6C 20 6E 65 65 64 20 69 74 20 u..will need it
000090: 74 6F 20 6C 6F 6F 6B 20 61 74 20 20 74 68 65 20 to look at the
0000A0: 20 65 72 72 6F 72 20 20 63 6F 64 65 73 20 20 61 error codes a
0000B0: 6E 64 20 74 68 65 20 63 6F 72 72 65 63 74 20 73 nd the correct s
0000C0: 79 6E 74 61 78 20 66 6F 72 20 74 68 65 0D 0A 63 yntax for the..c
0000D0: 6F 6D 6D 61 6E 64 73 20 75 73 65 64 2E 0D 0A 0D ommands used....
0000E0: 0A 59 6F 75 20 61 72 65 20 6E 6F 77 20 72 65 61 .You are now rea
0000F0: 64 79 20 74 6F 20 73 74 61 72 74 20 70 72 6F 67 dy to start prog
000100: 72 61 6D 6D 69 6E 67 20 69 6E 20 43 6F 62 6F 6C ramming in Cobol
000110: 2E 0D 0A 0D 0A 0D 0A 43 4F 42 4F 4C 20 50 52 4F .......COBOL PRO
000120: 47 52 41 4D 20 4F 55 54 4C 49 4E 45 2E 0D 0A 3D GRAM OUTLINE...=
000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000140: 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 70 =====....Cobol p
000150: 72 6F 67 72 61 6D 73 20 61 72 65 20 73 70 6C 69 rograms are spli
000160: 74 20 69 6E 74 6F 20 34 20 64 69 76 69 73 69 6F t into 4 divisio
000170: 6E 73 2C 20 74 68 65 73 65 20 61 72 65 3B 0D 0A ns, these are;..
000180: 0D 0A 20 49 44 45 4E 54 49 46 49 43 41 54 49 4F .. IDENTIFICATIO
000190: 4E 20 44 49 56 49 53 49 4F 4E 0D 0A 0D 0A 20 28 N DIVISION.... (
0001A0: 57 68 61 74 20 74 68 65 20 70 72 6F 67 72 61 6D What the program
0001B0: 20 64 6F 65 73 2C 20 74 68 65 20 61 75 74 68 6F does, the autho
0001C0: 72 27 73 20 6E 61 6D 65 2C 20 64 61 74 65 20 77 r's name, date w
0001D0: 72 69 74 74 65 6E 2C 20 65 74 63 29 0D 0A 0D 0A ritten, etc)....
0001E0: 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 ENVIRONMENT DIV
0001F0: 49 53 49 4F 4E 0D 0A 0D 0A 20 28 54 68 65 20 63 ISION.... (The c
Size : 512 (Real : 512)
000000: 20 66 61 72 20 62 61 63 6B 20 61 73 20 49 20 63 far back as I c
000010: 61 6E 20 72 65 6D 65 6D 62 65 72 20 62 75 74 20 an remember but
000020: 69 74 20 69 73 20 73 74 69 6C 6C 20 69 6E 20 63 it is still in c
000030: 6F 6D 6D 6F 6E 20 75 73 65 2E 0D 0A 0D 0A 43 4F ommon use.....CO
000040: 42 4F 4C 20 68 61 73 20 72 65 74 61 69 6E 65 64 BOL has retained
000050: 20 69 74 27 73 20 70 6F 70 75 6C 61 72 69 74 79 it's popularity
000060: 20 6F 76 65 72 20 20 74 68 65 20 20 79 65 61 72 over the year
000070: 73 20 20 62 65 63 61 75 73 65 20 69 74 20 69 73 s because it is
000080: 20 65 61 73 79 20 74 6F 0D 0A 6C 65 61 72 6E 20 easy to..learn
000090: 61 6E 64 20 75 73 65 2C 20 61 6E 64 20 69 74 20 and use, and it
0000A0: 63 61 6E 20 20 65 61 73 69 6C 79 20 20 62 65 20 can easily be
0000B0: 20 74 72 61 6E 73 66 65 72 72 65 64 20 74 6F 20 transferred to
0000C0: 61 20 64 69 66 66 65 72 65 6E 74 20 63 6F 6D 70 a different comp
0000D0: 75 74 65 72 0D 0A 73 79 73 74 65 6D 2E 0D 0A 0D uter..system....
0000E0: 0A 0D 0A 47 45 54 54 49 4E 47 20 53 54 41 52 54 ...GETTING START
0000F0: 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ED...===========
000100: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 6F 20 73 74 61 72 =====....To star
000110: 74 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 69 6E t programming in
000120: 20 20 43 6F 62 6F 6C 20 20 79 6F 75 20 20 6E 65 Cobol you ne
000130: 65 64 20 20 61 20 20 57 6F 72 64 20 20 70 72 6F ed a Word pro
000140: 63 65 73 73 6F 72 20 20 61 6E 64 20 61 20 43 6F cessor and a Co
000150: 62 6F 6C 0D 0A 63 6F 6D 70 69 6C 65 72 2E 20 59 bol..compiler. Y
000160: 6F 75 20 63 61 6E 20 75 73 65 20 65 69 74 68 65 ou can use eithe
000170: 72 20 6F 6E 65 20 20 6F 66 20 20 74 68 65 20 20 r one of the
000180: 63 6F 6D 6D 65 72 63 69 61 6C 20 70 61 63 6B 61 commercial packa
000190: 67 65 73 20 6F 72 20 61 20 50 75 62 6C 69 63 0D ges or a Public.
0001A0: 0A 44 6F 6D 61 69 6E 20 70 61 63 6B 61 67 65 73 .Domain packages
0001B0: 20 73 75 63 6A 68 20 61 73 20 56 44 45 32 36 36 sucjh as VDE266
0001C0: 2E 20 20 57 68 69 63 68 65 76 65 72 20 20 70 61 . Whichever pa
0001D0: 63 6B 61 67 65 20 20 79 6F 75 20 63 68 6F 73 65 ckage you chose
0001E0: 20 69 74 20 6D 75 73 74 20 62 65 0D 0A 63 61 70 it must be..cap
0001F0: 61 62 6C 65 20 6F 66 20 70 72 6F 64 75 63 69 6E able of producin
Size : 512 (Real : 512)
000000: 6F 6D 70 75 74 65 72 20 74 68 65 20 70 72 6F 67 omputer the prog
000010: 72 61 6D 20 77 61 73 20 77 72 69 74 74 65 6E 20 ram was written
000020: 66 6F 72 2C 20 66 69 6C 65 73 20 74 68 65 20 70 for, files the p
000030: 72 6F 67 72 61 6D 20 75 73 65 73 20 65 74 63 2E rogram uses etc.
000040: 29 0D 0A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 )....DATA DIVISI
000050: 4F 4E 0D 0A 0D 0A 20 28 46 69 6C 65 20 64 65 73 ON.... (File des
000060: 63 72 69 70 74 69 6F 6E 73 2C 20 64 65 63 6C 61 criptions, decla
000070: 72 69 6E 67 20 61 6E 64 20 64 69 6D 65 6E 73 69 ring and dimensi
000080: 6F 6E 69 6E 67 20 76 61 72 69 61 62 6C 65 73 2C oning variables,
000090: 20 65 74 63 2E 29 0D 0A 0D 0A 50 52 4F 43 45 44 etc.)....PROCED
0000A0: 55 52 45 20 44 49 56 49 53 49 4F 4E 0D 0A 0D 0A URE DIVISION....
0000B0: 20 28 54 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 (The Cobol prog
0000C0: 72 61 6D 29 0D 0A 0D 0A 0D 0A 4E 6F 74 65 73 3A ram)......Notes:
0000D0: 0D 0A 0D 0A 45 61 63 68 20 6F 66 20 74 68 65 20 ....Each of the
0000E0: 64 69 76 69 73 69 6F 6E 73 20 20 69 73 20 20 73 divisions is s
0000F0: 75 62 64 69 76 69 64 65 64 20 20 69 6E 74 6F 20 ubdivided into
000100: 20 73 65 63 74 69 6F 6E 73 2E 20 20 43 6F 62 6F sections. Cobo
000110: 6C 20 70 72 6F 67 72 61 6D 73 20 61 72 65 0D 0A l programs are..
000120: 77 72 69 74 74 65 6E 20 61 73 20 74 65 78 74 20 written as text
000130: 66 69 6C 65 73 20 61 6E 64 20 6D 75 73 74 20 62 files and must b
000140: 65 20 73 61 76 65 64 20 74 6F 20 64 69 73 63 20 e saved to disc
000150: 77 69 74 68 20 74 68 65 20 65 78 74 65 6E 73 69 with the extensi
000160: 6F 6E 20 2E 43 42 4C 0D 0A 0D 0A 20 49 65 20 27 on .CBL.... Ie '
000170: 66 69 6C 65 6E 61 6D 65 2E 43 42 4C 27 0D 0A 0D filename.CBL'...
000180: 0A 53 70 65 6C 6C 69 6E 67 20 6D 75 73 74 20 62 .Spelling must b
000190: 65 20 61 63 63 75 72 61 74 65 2E 0D 0A 0D 0A 43 e accurate.....C
0001A0: 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 73 20 64 6F obol programs do
0001B0: 20 6E 6F 74 20 75 73 65 20 20 6C 69 6E 65 20 20 not use line
0001C0: 6E 75 6D 62 65 72 73 2C 20 20 74 68 65 20 69 6E numbers, the in
0001D0: 73 74 72 75 63 74 69 6F 6E 73 20 61 72 65 20 77 structions are w
0001E0: 72 69 74 74 65 6E 20 69 6E 0D 0A 70 72 6F 63 65 ritten in..proce
0001F0: 64 75 72 65 73 20 28 70 61 72 61 67 72 61 70 68 dures (paragraph
Size : 512 (Real : 512)
000000: 67 20 70 75 72 65 20 61 73 63 69 69 20 66 69 6C g pure ascii fil
000010: 65 73 2E 0D 0A 0D 0A 43 4F 42 4F 4C 20 63 6F 6D es.....COBOL com
000020: 65 73 20 63 6F 6D 70 6C 65 74 65 20 77 69 74 68 es complete with
000030: 20 61 6E 20 65 78 74 65 6E 73 69 76 65 20 32 31 an extensive 21
000040: 20 70 61 67 65 20 64 6F 63 75 6D 65 6E 74 20 66 page document f
000050: 69 6C 65 2E 0D 0A 0D 0A 57 68 79 20 64 6F 20 79 ile.....Why do y
000060: 6F 75 20 6E 65 65 64 20 61 20 77 6F 72 64 20 70 ou need a word p
000070: 72 6F 63 65 73 73 6F 72 3F 20 20 77 65 6C 6C 20 rocessor? well
000080: 20 74 68 65 20 61 6E 73 77 65 72 20 69 73 20 74 the answer is t
000090: 68 61 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 hat Cobol progra
0000A0: 6D 73 0D 0A 61 72 65 20 77 72 69 74 74 65 6E 20 ms..are written
0000B0: 61 73 20 74 65 78 74 20 66 69 6C 65 73 2E 20 54 as text files. T
0000C0: 68 65 20 74 65 78 74 20 66 69 6C 65 20 61 72 65 he text file are
0000D0: 20 74 68 65 6E 20 63 6F 6D 70 69 6C 65 64 20 62 then compiled b
0000E0: 79 20 43 6F 62 6F 6C 20 69 6E 74 6F 20 61 0D 0A y Cobol into a..
0000F0: 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 2E 20 54 Cobol program. T
000100: 68 65 20 6F 72 69 67 69 6E 61 6C 20 74 65 78 74 he original text
000110: 20 66 69 6C 65 20 20 69 73 20 20 72 65 66 65 72 file is refer
000120: 72 65 64 20 74 6F 20 61 73 20 74 68 65 20 73 6F red to as the so
000130: 75 72 63 65 20 63 6F 64 65 2C 0D 0A 61 6E 64 20 urce code,..and
000140: 74 68 65 20 63 6F 6D 70 69 6C 65 64 20 70 72 6F the compiled pro
000150: 67 72 61 6D 20 69 73 20 72 65 66 65 72 72 65 64 gram is referred
000160: 20 74 6F 20 61 73 20 74 68 65 20 6F 62 6A 65 63 to as the objec
000170: 74 20 63 6F 64 65 2E 0D 0A 0D 0A 54 68 65 20 43 t code.....The C
000180: 6F 62 6F 6C 20 63 6F 6D 70 69 6C 65 72 20 63 6F obol compiler co
000190: 6E 73 69 73 74 73 20 6F 66 20 66 6F 75 72 20 73 nsists of four s
0001A0: 65 70 61 72 61 74 65 20 70 72 6F 67 72 61 6D 73 eparate programs
0001B0: 2C 20 61 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C , a document fil
0001C0: 65 20 61 6E 64 0D 0A 66 69 76 65 20 65 78 61 6D e and..five exam
0001D0: 70 6C 65 20 74 65 78 74 20 66 69 6C 65 73 2E 0D ple text files..
0001E0: 0A 0D 0A 20 43 4F 42 4F 4C 20 20 20 2E 43 4F 4D ... COBOL .COM
0001F0: 20 20 31 34 6B 20 7D 20 43 6F 62 6F 6C 20 63 6F 14k } Cobol co
Size : 512 (Real : 512)
000000: 73 29 2C 20 74 68 65 20 70 72 6F 63 65 64 75 72 s), the procedur
000010: 65 73 20 61 72 65 20 66 6F 6C 6C 6F 77 65 64 20 es are followed
000020: 73 65 71 75 65 6E 74 69 61 6C 6C 79 2E 0D 0A 0D sequentially....
000030: 0A 45 61 63 68 20 20 70 72 6F 63 65 64 75 72 65 .Each procedure
000040: 20 20 69 73 20 20 73 75 62 64 69 76 69 64 65 64 is subdivided
000050: 20 20 69 6E 74 6F 20 20 73 65 6E 74 65 6E 63 65 into sentence
000060: 73 2C 20 20 61 6E 64 20 20 65 61 63 68 20 20 73 s, and each s
000070: 65 6E 74 65 6E 63 65 20 20 69 73 0D 0A 74 65 72 entence is..ter
000080: 6D 69 6E 61 74 65 64 20 77 69 74 68 20 61 20 66 minated with a f
000090: 75 6C 6C 20 73 74 6F 70 2E 0D 0A 0D 0A 43 6F 62 ull stop.....Cob
0000A0: 6F 6C 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20 ol instructions
0000B0: 6D 75 73 74 20 62 65 20 77 72 69 74 74 65 6E 20 must be written
0000C0: 75 73 69 6E 67 20 55 50 50 45 52 20 43 41 53 45 using UPPER CASE
0000D0: 20 6C 65 74 74 65 72 73 20 6F 6E 6C 79 2E 0D 0A letters only...
0000E0: 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 6D ..Cobol programm
0000F0: 69 6E 67 20 72 65 66 65 72 73 20 74 6F 20 6E 75 ing refers to nu
000100: 6D 65 72 69 63 20 61 6E 64 20 73 74 72 69 6E 67 meric and string
000110: 20 76 61 72 69 61 62 6C 65 73 20 61 73 20 49 44 variables as ID
000120: 45 4E 54 49 46 49 45 52 53 2E 0D 0A 0D 0A 43 6F ENTIFIERS.....Co
000130: 62 6F 6C 20 70 72 6F 67 72 61 6D 6D 69 6E 67 20 bol programming
000140: 72 65 66 65 72 73 20 74 6F 20 73 74 72 69 6E 67 refers to string
000150: 73 20 20 6F 66 20 20 74 65 78 74 20 20 61 73 20 s of text as
000160: 4C 49 54 45 52 41 4C 27 53 2C 20 6C 69 74 65 72 LITERAL'S, liter
000170: 61 6C 27 73 20 61 72 65 0D 0A 65 6E 63 6C 6F 73 al's are..enclos
000180: 65 64 20 69 6E 20 27 73 69 6E 67 6C 65 20 71 75 ed in 'single qu
000190: 6F 74 61 74 69 6F 6E 27 20 6D 61 72 6B 73 2C 20 otation' marks,
0001A0: 6E 6F 74 20 22 64 6F 75 62 6C 65 20 71 75 6F 74 not "double quot
0001B0: 61 74 69 6F 6E 22 20 6D 61 72 6B 73 20 61 73 20 ation" marks as
0001C0: 75 73 65 64 0D 0A 69 6E 20 42 61 73 69 63 20 70 used..in Basic p
0001D0: 72 6F 67 72 61 6D 6D 69 6E 67 2E 0D 0A 0D 0A 0D rogramming......
0001E0: 0A 45 58 41 4D 50 4C 45 20 50 52 4F 47 52 41 4D .EXAMPLE PROGRAM
0001F0: 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ...=============
Size : 512 (Real : 512)
000000: 20 74 6F 0D 0A 64 69 73 63 20 61 73 20 27 66 69 to..disc as 'fi
000010: 6C 65 6E 61 6D 65 2E 4C 53 54 27 2C 20 74 68 69 lename.LST', thi
000020: 73 20 20 69 73 20 20 61 20 20 74 65 78 74 20 20 s is a text
000030: 66 69 6C 65 20 20 77 68 69 63 68 20 20 63 61 6E file which can
000040: 20 20 62 65 20 6C 6F 61 64 65 64 20 61 6E 64 0D be loaded and.
000050: 0A 73 74 75 64 69 65 64 20 75 73 69 6E 67 20 74 .studied using t
000060: 68 65 20 77 6F 72 64 20 70 72 6F 63 65 73 73 6F he word processo
000070: 72 2E 20 46 75 6C 6C 20 20 64 65 74 61 69 6C 73 r. Full details
000080: 20 20 6F 66 20 74 68 65 20 65 72 72 6F 72 20 63 of the error c
000090: 6F 64 65 73 20 63 61 6E 20 62 65 0D 0A 66 6F 75 odes can be..fou
0000A0: 6E 64 20 69 6E 20 74 68 65 20 43 6F 62 6F 6C 20 nd in the Cobol
0000B0: 64 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 66 69 documentation fi
0000C0: 6C 65 2E 20 45 72 72 6F 72 73 20 6D 75 73 74 20 le. Errors must
0000D0: 62 65 20 63 6F 72 72 65 63 74 65 64 20 62 65 66 be corrected bef
0000E0: 6F 72 65 20 79 6F 75 0D 0A 72 75 6E 20 74 68 65 ore you..run the
0000F0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 52 program.......R
000100: 55 4E 4E 49 4E 47 20 41 20 43 4F 42 4F 4C 20 50 UNNING A COBOL P
000110: 52 4F 47 52 41 4D 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D ROGRAM...=======
000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000130: 3D 0D 0A 0D 0A 57 68 65 6E 20 79 6F 75 20 68 61 =....When you ha
000140: 76 65 20 20 73 75 63 63 65 73 73 66 75 6C 6C 79 ve successfully
000150: 20 20 63 6F 6D 70 69 6C 65 64 20 20 74 68 65 20 compiled the
000160: 20 70 72 6F 67 72 61 6D 20 20 74 68 65 20 64 69 program the di
000170: 73 63 20 77 69 6C 6C 20 63 6F 6E 74 61 69 6E 0D sc will contain.
000180: 0A 74 68 72 65 65 20 66 69 6C 65 73 2C 0D 0A 0D .three files,...
000190: 0A 20 45 58 41 4D 2D 31 2E 43 42 4C 20 20 20 28 . EXAM-1.CBL (
0001A0: 54 68 65 20 6F 72 69 67 69 6E 61 6C 20 74 65 78 The original tex
0001B0: 74 20 66 69 6C 65 29 0D 0A 20 45 58 41 4D 2D 31 t file).. EXAM-1
0001C0: 2E 4C 53 54 20 20 20 28 45 72 72 6F 72 20 6D 65 .LST (Error me
0001D0: 73 73 61 67 65 20 66 69 6C 65 29 0D 0A 20 45 58 ssage file).. EX
0001E0: 41 4D 2D 31 2E 43 49 4E 20 20 20 28 54 68 65 20 AM-1.CIN (The
0001F0: 63 6F 6D 70 69 6C 65 64 20 63 6F 64 65 29 0D 0A compiled code)..
Size : 512 (Real : 512)
000000: 3D 3D 3D 0D 0A 0D 0A 43 6F 6E 66 75 73 65 64 3F ===....Confused?
000010: 2C 20 64 6F 6E 27 74 20 77 6F 72 72 79 2C 20 20 , don't worry,
000020: 77 65 20 20 77 69 6C 6C 20 20 6C 65 61 72 6E 20 we will learn
000030: 20 43 6F 62 6F 6C 20 20 70 72 6F 67 72 61 6D 6D Cobol programm
000040: 69 6E 67 20 20 62 79 20 65 78 61 6D 69 6E 69 6E ing by examinin
000050: 67 0D 0A 65 78 61 6D 70 6C 65 20 70 72 6F 67 72 g..example progr
000060: 61 6D 73 20 77 68 69 63 68 20 77 69 6C 6C 20 20 ams which will
000070: 73 68 6F 77 20 20 74 68 65 20 20 73 79 6E 74 61 show the synta
000080: 78 20 20 6F 66 20 74 68 65 20 43 6F 62 6F 6C 20 x of the Cobol
000090: 69 6E 73 74 72 75 63 74 69 6F 6E 73 2C 0D 0A 61 instructions,..a
0000A0: 6E 64 20 74 68 65 20 65 66 66 65 63 74 20 74 68 nd the effect th
0000B0: 65 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 20 68 e instructions h
0000C0: 61 76 65 2E 20 20 42 79 20 20 72 65 61 64 69 6E ave. By readin
0000D0: 67 20 74 68 72 6F 75 67 68 20 74 68 65 20 70 72 g through the pr
0000E0: 6F 67 72 61 6D 20 61 6E 64 0D 0A 77 61 74 63 68 ogram and..watch
0000F0: 69 6E 67 20 74 68 65 20 65 66 66 65 63 74 20 74 ing the effect t
000100: 68 65 20 20 70 72 6F 67 72 61 6D 20 20 69 6E 73 he program ins
000110: 74 72 75 63 74 69 6F 6E 20 20 68 61 76 65 20 20 truction have
000120: 79 6F 75 20 77 69 6C 6C 20 76 65 72 79 20 71 75 you will very qu
000130: 69 63 6B 6C 79 0D 0A 64 65 76 65 6C 6F 70 20 61 ickly..develop a
000140: 6E 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 20 n understanding
000150: 6F 66 20 77 68 61 74 20 69 73 20 68 61 70 70 65 of what is happe
000160: 6E 69 6E 67 2E 0D 0A 0D 0A 54 68 69 73 20 73 68 ning.....This sh
000170: 6F 72 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 61 ort Cobol progra
000180: 6D 20 20 70 72 6F 6D 70 74 73 20 79 6F 75 20 20 m prompts you
000190: 74 6F 20 20 65 6E 74 65 72 20 61 20 6E 61 6D 65 to enter a name
0001A0: 2C 20 61 6E 64 20 74 68 65 6E 20 64 69 73 70 6C , and then displ
0001B0: 61 79 73 0D 0A 74 68 65 20 6E 61 6D 65 20 74 68 ays..the name th
0001C0: 61 74 20 79 6F 75 20 68 61 76 65 20 65 6E 74 65 at you have ente
0001D0: 72 65 64 20 6F 6E 20 74 68 65 20 73 63 72 65 65 red on the scree
0001E0: 6E 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 n.....IDENTIFICA
0001F0: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
Size : 512 (Real : 512)
000000: 0D 0A 54 6F 20 72 75 6E 20 79 6F 75 72 20 63 6F ..To run your co
000010: 6D 70 69 6C 65 64 20 70 72 6F 67 72 61 6D 2C 20 mpiled program,
000020: 72 65 74 75 72 6E 20 74 6F 20 74 68 65 20 41 3E return to the A>
000030: 20 70 72 6F 6D 70 74 20 6F 66 20 43 50 2F 4D 2B prompt of CP/M+
000040: 2E 20 54 68 65 6E 20 74 79 70 65 2C 0D 0A 0D 0A . Then type,....
000050: 20 45 58 45 43 20 45 58 41 4D 2D 31 20 20 28 74 EXEC EXAM-1 (t
000060: 68 65 6E 20 70 72 65 73 73 20 74 68 65 20 52 45 hen press the RE
000070: 54 55 52 4E 20 6B 65 79 29 0D 0A 0D 0A 54 68 69 TURN key)....Thi
000080: 73 20 77 69 6C 6C 20 64 69 73 70 6C 61 79 20 74 s will display t
000090: 68 65 20 66 6F 6C 6C 6F 77 69 6E 67 20 6D 65 73 he following mes
0000A0: 73 61 67 65 73 2C 0D 0A 0D 0A 20 27 4E 50 53 20 sages,.... 'NPS
0000B0: 4D 49 43 52 4F 2D 43 4F 42 4F 4C 20 4C 4F 41 44 MICRO-COBOL LOAD
0000C0: 45 52 20 56 45 52 53 20 32 2E 31 27 0D 0A 20 27 ER VERS 2.1'.. '
0000D0: 45 58 41 4D 2D 31 20 4C 6F 61 64 69 6E 67 27 0D EXAM-1 Loading'.
0000E0: 0A 20 27 4C 6F 61 64 69 6E 67 20 43 6F 6D 70 6C . 'Loading Compl
0000F0: 65 74 65 64 27 0D 0A 20 27 4E 50 53 20 4D 49 43 eted'.. 'NPS MIC
000100: 52 4F 2D 43 4F 42 4F 4C 20 49 4E 54 45 52 50 52 RO-COBOL INTERPR
000110: 45 54 45 52 20 56 45 52 53 20 32 2E 31 27 0D 0A ETER VERS 2.1'..
000120: 0D 0A 59 6F 75 72 20 70 72 6F 67 72 61 6D 20 77 ..Your program w
000130: 69 6C 6C 20 74 68 65 6E 20 72 75 6E 2C 20 74 68 ill then run, th
000140: 65 20 70 72 6F 67 72 61 6D 20 73 68 6F 75 6C 64 e program should
000150: 20 64 69 73 70 6C 61 79 20 74 68 65 20 6D 65 73 display the mes
000160: 73 61 67 65 2C 0D 0A 0D 0A 20 27 50 6C 65 61 73 sage,.... 'Pleas
000170: 65 20 45 6E 74 65 72 20 59 6F 75 72 20 4E 61 6D e Enter Your Nam
000180: 65 2E 27 0D 0A 20 27 3F 27 0D 0A 0D 0A 54 68 65 e.'.. '?'....The
000190: 20 27 3F 27 20 69 73 20 74 68 65 20 70 72 6F 6D '?' is the prom
0001A0: 70 74 20 66 6F 72 20 79 6F 75 20 20 74 6F 20 20 pt for you to
0001B0: 65 6E 74 65 72 20 20 79 6F 75 72 20 6E 61 6D 65 enter your name
0001C0: 2E 20 59 6F 75 20 73 68 6F 75 6C 64 20 65 6E 74 . You should ent
0001D0: 65 72 20 79 6F 75 72 0D 0A 6E 61 6D 65 20 61 6E er your..name an
0001E0: 64 20 74 68 65 20 70 72 65 73 73 20 74 68 65 20 d the press the
0001F0: 52 45 54 55 52 4E 20 6B 65 79 2E 20 54 68 65 20 RETURN key. The
Size : 512 (Real : 512)
000000: 20 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 PROGRAM-ID.
000010: 20 45 78 61 6D 70 6C 65 20 4F 6E 65 2E 0D 0A 20 Example One...
000020: 20 20 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 AUTHOR.
000030: 43 20 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 C R Bellaby...
000040: 20 44 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 DATE-WRITTEN. 1
000050: 35 2F 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 5/9/89... SECU
000060: 52 49 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D RITY. None..
000070: 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 .*..ENVIRONMENT
000080: 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 DIVISION...CONFI
000090: 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E GURATION SECTION
0000A0: 2E 0D 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D ... SOURCE-COM
0000B0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
0000C0: 31 32 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 128... OBJECT-
0000D0: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
0000E0: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
0000F0: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
000100: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
000110: 49 4F 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 ION... 01 NAME
000120: 20 20 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A PIC X(80)...
000130: 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 *..PROCEDURE DIV
000140: 49 53 49 4F 4E 2E 0D 0A 50 41 52 41 47 52 41 50 ISION...PARAGRAP
000150: 48 2D 4F 4E 45 2E 0D 0A 20 20 20 44 49 53 50 4C H-ONE... DISPL
000160: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
000170: 20 59 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 Your Name'...
000180: 20 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D 0A ACCEPT NAME...
000190: 20 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C DISPLAY 'Hell
0001A0: 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 53 o! ' NAME... S
0001B0: 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 6F 67 TOP RUN.....Prog
0001C0: 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A 31 2E ram Notes:....1.
0001D0: 20 55 73 65 20 79 6F 75 72 20 43 50 2F 4D 20 77 Use your CP/M w
0001E0: 6F 72 64 20 70 72 6F 63 65 73 73 6F 72 20 74 6F ord processor to
0001F0: 20 65 6E 74 65 72 20 61 6E 64 20 73 61 76 65 20 enter and save
Size : 512 (Real : 512)
000000: 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 74 68 65 program will the
000010: 6E 20 64 69 73 70 6C 61 79 2C 0D 0A 0D 0A 20 27 n display,.... '
000020: 48 65 6C 6C 6F 21 27 20 20 22 66 6F 6C 6C 6F 77 Hello!' "follow
000030: 65 64 20 62 79 20 74 68 65 20 6E 61 6D 65 20 79 ed by the name y
000040: 6F 75 20 65 6E 74 65 72 65 64 22 0D 0A 0D 0A 54 ou entered"....T
000050: 68 65 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 he program will
000060: 74 68 65 6E 20 73 74 6F 70 20 61 6E 64 20 64 69 then stop and di
000070: 73 70 6C 61 79 20 74 68 65 20 6D 65 73 73 61 67 splay the messag
000080: 65 2C 0D 0A 0D 0A 20 27 30 20 45 78 65 63 75 74 e,.... '0 Execut
000090: 69 6F 6E 20 45 72 72 6F 72 28 73 29 0D 0A 0D 0A ion Error(s)....
0000A0: 54 68 65 20 70 72 6F 67 72 61 6D 20 68 61 73 20 The program has
0000B0: 6E 6F 77 20 62 65 65 6E 20 73 75 63 63 65 73 73 now been success
0000C0: 66 75 6C 6C 79 20 72 75 6E 2C 20 61 6E 64 20 79 fully run, and y
0000D0: 6F 75 20 73 68 6F 75 6C 64 20 68 61 76 65 20 61 ou should have a
0000E0: 20 67 6F 6F 64 20 69 64 65 61 0D 0A 6F 66 20 74 good idea..of t
0000F0: 68 65 20 72 65 6C 61 74 69 6F 6E 73 68 69 70 20 he relationship
000100: 62 65 74 77 65 65 6E 20 74 68 65 20 44 49 53 50 between the DISP
000110: 4C 41 59 2C 20 20 41 43 43 45 50 54 20 61 6E 64 LAY, ACCEPT and
000120: 20 53 54 4F 50 20 52 55 4E 20 63 6F 6D 6D 61 6E STOP RUN comman
000130: 64 73 20 61 6E 64 0D 0A 74 68 65 20 65 66 66 65 ds and..the effe
000140: 63 74 20 74 68 61 74 20 74 68 65 79 20 68 61 76 ct that they hav
000150: 65 20 69 6E 20 43 6F 62 6F 6C 20 70 72 6F 67 72 e in Cobol progr
000160: 61 6D 6D 69 6E 67 2E 20 57 68 65 6E 20 79 6F 75 amming. When you
000170: 20 68 61 76 65 20 73 75 63 63 65 73 73 66 75 6C have successful
000180: 6C 79 0D 0A 63 6F 6D 70 69 6C 65 64 20 61 6E 64 ly..compiled and
000190: 20 72 75 6E 20 61 20 70 72 6F 67 72 61 6D 20 79 run a program y
0001A0: 6F 75 20 63 61 6E 20 65 72 61 73 65 20 74 68 65 ou can erase the
0001B0: 20 27 66 69 6C 65 6E 61 6D 65 2E 4C 53 54 27 20 'filename.LST'
0001C0: 66 69 6C 65 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 file.......PROGR
0001D0: 41 4D 20 54 57 4F 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D AM TWO...=======
0001E0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
0001F0: 6F 67 72 61 6D 20 69 73 20 61 20 65 78 74 65 6E ogram is a exten
Size : 512 (Real : 512)
000000: 74 68 65 20 74 65 78 74 20 61 73 20 45 58 41 4D the text as EXAM
000010: 2D 31 2E 43 42 4C 0D 0A 32 2E 20 57 68 65 6E 20 -1.CBL..2. When
000020: 65 6E 74 65 72 69 6E 67 20 74 68 65 20 70 72 6F entering the pro
000030: 67 72 61 6D 20 79 6F 75 20 73 68 6F 75 6C 64 20 gram you should
000040: 73 65 74 20 74 68 65 20 6C 65 66 74 20 68 61 6E set the left han
000050: 64 20 6D 61 72 67 69 6E 20 74 6F 20 31 2E 0D 0A d margin to 1...
000060: 33 2E 20 44 49 56 49 53 49 4F 4E 20 61 6E 64 20 3. DIVISION and
000070: 50 52 4F 43 45 44 55 52 45 20 68 65 61 64 69 6E PROCEDURE headin
000080: 67 73 20 6D 75 73 74 20 73 74 61 72 74 20 69 6E gs must start in
000090: 20 63 6F 6C 75 6D 6E 20 31 2E 0D 0A 0D 0A 45 78 column 1.....Ex
0000A0: 70 6C 61 6E 61 74 69 6F 6E 20 4F 66 20 54 68 65 planation Of The
0000B0: 20 49 6E 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A Instructions...
0000C0: 0D 0A 4E 41 4D 45 20 69 73 20 61 6E 20 61 6C 70 ..NAME is an alp
0000D0: 68 61 2F 6E 75 6D 65 72 69 63 20 69 64 65 6E 74 ha/numeric ident
0000E0: 69 66 69 65 72 20 44 49 4D 65 6E 73 69 6F 6E 65 ifier DIMensione
0000F0: 64 20 74 6F 20 33 30 20 63 68 61 72 61 63 74 65 d to 30 characte
000100: 72 73 2E 0D 0A 0D 0A 50 6C 61 63 69 6E 67 20 61 rs.....Placing a
000110: 20 2A 20 69 6E 20 63 6F 6C 75 6D 6E 20 31 20 6F * in column 1 o
000120: 66 20 74 68 65 20 74 65 78 74 20 66 69 6C 65 20 f the text file
000130: 68 61 73 20 74 68 65 20 65 66 66 65 63 74 20 6F has the effect o
000140: 66 20 6D 61 6B 69 6E 67 20 74 68 65 20 72 65 73 f making the res
000150: 74 0D 0A 6F 66 20 74 68 61 74 20 6C 69 6E 65 20 t..of that line
000160: 69 6E 74 6F 20 61 20 72 65 6D 61 72 6B 73 20 73 into a remarks s
000170: 74 61 74 65 6D 65 6E 74 2E 0D 0A 0D 0A 20 43 6F tatement..... Co
000180: 62 6F 6C 20 43 6F 6D 6D 61 6E 64 20 20 20 20 20 bol Command
000190: 42 61 73 69 63 20 45 71 75 69 76 61 6C 65 6E 74 Basic Equivalent
0001A0: 2E 0D 0A 0D 0A 20 44 49 53 50 4C 41 59 20 20 20 ..... DISPLAY
0001B0: 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 6F 72 PRINT or
0001C0: 20 3F 0D 0A 20 41 43 43 45 50 54 20 20 20 20 20 ?.. ACCEPT
0001D0: 20 20 20 20 20 20 20 49 4E 50 55 54 0D 0A 20 53 INPUT.. S
0001E0: 54 4F 50 20 52 55 4E 20 20 20 20 20 20 20 20 20 TOP RUN
0001F0: 20 45 4E 44 0D 0A 20 2A 20 20 20 20 20 20 20 20 END.. *
Size : 512 (Real : 512)
000000: 73 69 6F 6E 20 20 74 6F 20 20 74 68 65 20 20 66 sion to the f
000010: 69 72 73 74 20 20 70 72 6F 67 72 61 6D 2C 20 20 irst program,
000020: 69 74 20 69 6E 74 72 6F 64 75 63 65 73 20 61 20 it introduces a
000030: 6E 65 77 0D 0A 69 6E 73 74 72 75 63 74 69 6F 6E new..instruction
000040: 2C 20 47 4F 20 77 68 69 63 68 20 69 73 20 73 69 , GO which is si
000050: 6D 69 6C 61 72 20 74 6F 20 74 68 65 20 42 61 73 milar to the Bas
000060: 69 63 20 63 6F 6D 6D 61 6E 64 20 47 4F 54 4F 2E ic command GOTO.
000070: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
000080: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
000090: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
0000A0: 78 61 6D 70 6C 65 20 54 77 6F 2E 0D 0A 20 20 20 xample Two...
0000B0: 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 43 20 AUTHOR. C
0000C0: 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 20 44 R Bellaby... D
0000D0: 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 35 2F ATE-WRITTEN. 15/
0000E0: 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 52 49 9/89... SECURI
0000F0: 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D 0A 2A TY. None...*
000100: 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 ..ENVIRONMENT DI
000110: 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 VISION...CONFIGU
000120: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
000130: 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 . SOURCE-COMPU
000140: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
000150: 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 43 4F 8... OBJECT-CO
000160: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
000170: 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 6128...*..DATA D
000180: 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E IVISION...WORKIN
000190: 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F G-STORAGE SECTIO
0001A0: 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 20 20 N... 01 NAME
0001B0: 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A 2A 0D PIC X(80)...*.
0001C0: 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 .PROCEDURE DIVIS
0001D0: 49 4F 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 5F 4E ION...*..ENTER_N
0001E0: 41 4D 45 2E 0D 0A 20 20 20 44 49 53 50 4C 41 59 AME... DISPLAY
0001F0: 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 20 59 'Please Enter Y
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 52 45 4D 20 6F 72 20 REM or
000010: 27 0D 0A 0D 0A 0D 0A 43 4F 4D 50 49 4C 49 4E 47 '......COMPILING
000020: 20 45 58 41 4D 2D 31 2E 43 42 4C 2E 0D 0A 3D 3D EXAM-1.CBL...==
000030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000040: 3D 3D 3D 0D 0A 0D 0A 54 6F 20 63 6F 6D 70 69 6C ===....To compil
000050: 65 20 74 68 65 20 43 6F 62 6F 6C 20 70 72 6F 67 e the Cobol prog
000060: 72 61 6D 2C 20 65 78 69 74 20 66 72 6F 6D 20 20 ram, exit from
000070: 56 44 45 20 20 75 73 69 6E 67 20 45 53 43 20 58 VDE using ESC X
000080: 20 74 68 69 73 20 77 69 6C 6C 20 72 65 74 75 72 this will retur
000090: 6E 0D 0A 79 6F 75 20 74 6F 20 74 68 65 20 41 3E n..you to the A>
0000A0: 20 70 72 6F 6D 70 74 2E 20 54 68 65 6E 20 74 79 prompt. Then ty
0000B0: 70 65 2C 0D 0A 0D 0A 20 43 4F 42 4F 4C 20 45 58 pe,.... COBOL EX
0000C0: 41 4D 2D 31 20 20 20 28 61 6E 64 20 74 68 65 6E AM-1 (and then
0000D0: 20 70 72 65 73 73 20 74 68 65 20 52 45 54 55 52 press the RETUR
0000E0: 4E 20 6B 65 79 29 0D 0A 0D 0A 49 66 20 79 6F 75 N key)....If you
0000F0: 20 68 61 76 65 20 74 79 70 65 64 20 74 68 65 20 have typed the
000100: 70 72 6F 67 72 61 6D 20 63 6F 72 72 65 63 74 6C program correctl
000110: 79 2C 20 74 68 65 20 70 72 6F 67 72 61 6D 20 77 y, the program w
000120: 69 6C 6C 20 62 65 20 63 6F 6D 70 69 6C 65 64 2C ill be compiled,
000130: 20 61 6E 64 0D 0A 79 6F 75 20 77 69 6C 6C 20 73 and..you will s
000140: 65 65 20 74 68 65 20 6D 65 73 73 61 67 65 2C 0D ee the message,.
000150: 0A 0D 0A 20 27 30 20 70 72 6F 67 72 61 6D 20 65 ... '0 program e
000160: 72 72 6F 72 28 73 29 27 2E 0D 0A 0D 0A 49 66 20 rror(s)'.....If
000170: 61 6E 20 65 72 72 6F 72 20 69 73 20 66 6F 75 6E an error is foun
000180: 64 20 77 68 69 6C 73 74 20 20 74 68 65 20 20 70 d whilst the p
000190: 72 6F 67 72 61 6D 20 20 69 73 20 62 65 69 6E 67 rogram is being
0001A0: 20 63 6F 6D 70 69 6C 65 64 20 74 68 65 6E 20 61 compiled then a
0001B0: 6E 20 65 72 72 6F 72 0D 0A 6D 65 73 73 61 67 65 n error..message
0001C0: 20 77 69 6C 6C 20 62 65 20 64 69 73 70 6C 61 79 will be display
0001D0: 65 64 20 75 70 6F 6E 20 74 68 65 20 73 63 72 65 ed upon the scre
0001E0: 65 6E 2E 20 45 72 72 6F 72 20 6D 65 73 73 61 67 en. Error messag
0001F0: 65 73 20 61 72 65 20 61 6C 73 6F 20 73 61 76 65 es are also save
Size : 512 (Real : 512)
000000: 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 20 44 our Name'... D
000010: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 ISPLAY ' '...
000020: 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D 0A 2A ACCEPT NAME...*
000030: 0D 0A 53 48 4F 57 5F 4E 41 4D 45 2E 0D 0A 20 20 ..SHOW_NAME...
000040: 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F 21 DISPLAY 'Hello!
000050: 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 44 49 53 ' NAME... DIS
000060: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 47 4F PLAY ' '... GO
000070: 20 45 4E 54 45 52 5F 4E 41 4D 45 2E 0D 0A 0D 0A ENTER_NAME.....
000080: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
000090: 0D 0A 54 68 65 20 47 4F 20 63 6F 6D 6D 61 6E 64 ..The GO command
0000A0: 20 68 61 73 20 74 68 65 20 73 61 6D 65 20 65 66 has the same ef
0000B0: 66 65 63 74 20 61 73 20 74 68 65 20 42 61 73 69 fect as the Basi
0000C0: 63 20 63 6F 6D 6D 61 6E 64 20 47 4F 54 4F 2C 20 c command GOTO,
0000D0: 69 74 20 69 6E 73 74 72 75 63 74 73 0D 0A 74 68 it instructs..th
0000E0: 65 20 63 6F 6D 70 75 74 65 72 20 70 72 6F 67 72 e computer progr
0000F0: 61 6D 20 74 6F 20 6D 6F 76 65 20 64 69 72 65 63 am to move direc
000100: 74 6C 79 20 74 6F 20 74 68 65 20 73 74 61 72 74 tly to the start
000110: 20 6F 66 20 74 68 65 20 6E 61 6D 65 64 20 70 72 of the named pr
000120: 6F 63 65 64 75 72 65 2E 0D 0A 0D 0A 50 72 6F 63 ocedure.....Proc
000130: 65 64 75 72 65 73 20 63 61 6E 20 62 65 20 67 69 edures can be gi
000140: 76 65 6E 20 61 6E 79 20 20 6E 61 6D 65 20 20 28 ven any name (
000150: 64 6F 20 20 6E 6F 74 20 20 75 73 65 20 72 65 73 do not use res
000160: 65 72 76 65 64 20 77 6F 72 64 73 29 2C 20 74 68 erved words), th
000170: 65 20 6E 61 6D 65 0D 0A 6D 75 73 74 20 6E 6F 74 e name..must not
000180: 20 69 6E 63 6C 75 64 65 20 73 70 61 63 65 73 2C include spaces,
000190: 20 6D 75 73 74 20 68 61 76 65 20 61 20 66 75 6C must have a ful
0001A0: 6C 20 20 73 74 6F 70 20 61 74 20 74 68 65 20 65 l stop at the e
0001B0: 6E 64 2C 20 61 6E 64 20 6D 75 73 74 20 73 74 61 nd, and must sta
0001C0: 72 74 0D 0A 69 6E 20 63 6F 6C 75 6D 6E 20 6F 6E rt..in column on
0001D0: 65 2E 0D 0A 0D 0A 54 68 69 73 20 70 72 6F 67 72 e.....This progr
0001E0: 61 6D 20 69 73 20 61 20 63 6F 6E 74 69 6E 75 6F am is a continuo
0001F0: 75 73 20 6C 6F 6F 70 2C 20 77 68 69 63 68 20 6D us loop, which m
Size : 512 (Real : 512)
000000: 20 20 20 6C 61 6E 67 75 61 67 65 20 20 20 73 70 language sp
000010: 65 63 69 61 6C 6C 79 20 20 20 77 72 69 74 74 65 ecially writte
000020: 6E 20 20 20 66 6F 72 20 20 62 75 73 69 6E 65 73 n for busines
000030: 73 0D 0A 61 70 70 6C 69 63 61 74 69 6F 6E 73 2E s..applications.
000040: 20 43 6F 62 6F 6C 20 77 61 73 20 77 72 69 74 74 Cobol was writt
000050: 65 6E 20 69 6E 20 74 68 65 20 73 69 78 74 69 65 en in the sixtie
000060: 73 20 61 6E 64 20 69 73 20 61 20 66 75 6C 6C 79 s and is a fully
000070: 20 73 74 61 6E 64 61 72 64 69 73 65 64 0D 0A 6C standardised..l
000080: 61 6E 67 75 61 67 65 2E 0D 0A 0D 0A 43 4F 4D 50 anguage.....COMP
000090: 49 4C 45 52 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D ILER.....Program
0000A0: 20 28 73 75 63 68 20 61 73 20 43 6F 62 6F 6C 20 (such as Cobol
0000B0: 26 20 20 50 61 73 63 61 6C 29 20 20 77 68 69 63 & Pascal) whic
0000C0: 68 20 20 74 72 61 6E 73 6C 61 74 65 73 20 61 20 h translates a
0000D0: 68 69 67 68 20 6C 65 76 65 6C 20 63 6F 6D 70 75 high level compu
0000E0: 74 65 72 0D 0A 6C 61 6E 67 75 61 67 65 73 20 69 ter..languages i
0000F0: 6E 74 6F 20 6D 61 63 68 69 6E 65 20 63 6F 64 65 nto machine code
000100: 2E 0D 0A 0D 0A 43 50 2F 4D 2E 0D 0A 0D 0A 43 6F .....CP/M.....Co
000110: 6E 74 72 6F 6C 20 50 72 6F 67 72 61 6D 20 66 6F ntrol Program fo
000120: 72 20 4D 69 63 72 6F 70 72 6F 63 65 73 73 6F 72 r Microprocessor
000130: 73 2C 20 43 50 2F 4D 20 20 69 74 20 20 69 73 20 s, CP/M it is
000140: 20 6E 6F 74 20 61 20 63 6F 6D 70 75 74 65 72 20 not a computer
000150: 6C 61 6E 67 75 61 67 65 0D 0A 62 75 74 20 69 74 language..but it
000160: 20 70 72 6F 76 69 64 65 73 20 61 20 73 74 61 6E provides a stan
000170: 64 61 72 64 20 66 72 61 6D 65 77 6F 72 6B 20 69 dard framework i
000180: 6E 20 77 68 69 63 68 20 63 6F 6D 70 75 74 65 72 n which computer
000190: 20 6C 61 6E 67 75 61 67 65 73 20 6F 70 65 72 61 languages opera
0001A0: 74 65 2E 0D 0A 0D 0A 47 2E 43 2E 45 2E 0D 0A 0D te.....G.C.E....
0001B0: 0A 41 6E 20 6F 6C 64 20 65 78 61 6D 20 28 47 65 .An old exam (Ge
0001C0: 6E 65 72 61 6C 20 43 65 72 74 69 66 69 63 61 74 neral Certificat
0001D0: 65 20 6F 66 20 45 64 75 63 61 74 69 6F 6E 29 0D e of Education).
0001E0: 0A 0D 0A 48 49 47 48 20 4C 45 56 45 4C 20 4C 41 ...HIGH LEVEL LA
0001F0: 4E 47 55 41 47 45 2E 0D 0A 0D 0A 43 4F 42 4F 4C NGUAGE.....COBOL
Size : 512 (Real : 512)
000000: 65 61 6E 73 20 74 68 61 74 20 79 6F 75 20 6E 65 eans that you ne
000010: 65 64 20 74 6F 20 70 72 65 73 73 20 43 54 52 4C ed to press CTRL
000020: 0D 0A 43 20 74 6F 20 61 62 6F 72 74 20 74 68 65 ..C to abort the
000030: 20 70 72 6F 67 72 61 6D 20 61 6E 64 20 72 65 74 program and ret
000040: 75 72 6E 20 20 74 6F 20 20 43 50 2F 4D 2E 20 50 urn to CP/M. P
000050: 72 65 73 73 69 6E 67 20 20 43 54 52 4C 20 43 20 ressing CTRL C
000060: 68 61 73 20 74 68 65 20 73 61 6D 65 0D 0A 65 66 has the same..ef
000070: 66 65 63 74 20 61 73 20 70 72 65 73 73 69 6E 67 fect as pressing
000080: 20 74 68 65 20 45 53 43 20 6B 65 79 20 69 6E 20 the ESC key in
000090: 42 61 73 69 63 20 70 72 6F 67 72 61 6D 6D 69 6E Basic programmin
0000A0: 67 2E 0D 0A 0D 0A 43 6F 6D 70 69 6C 65 20 61 6E g.....Compile an
0000B0: 64 20 72 75 6E 20 74 68 65 20 73 65 63 6F 6E 64 d run the second
0000C0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 54 68 65 program.....The
0000D0: 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 64 69 program will di
0000E0: 73 70 6C 61 79 20 74 68 65 20 20 65 6E 74 65 72 splay the enter
0000F0: 20 20 6E 61 6D 65 20 20 6D 65 73 73 61 67 65 2C name message,
000100: 20 20 70 72 6F 6D 70 74 20 79 6F 75 20 74 6F 20 prompt you to
000110: 65 6E 74 65 72 20 61 0D 0A 6E 61 6D 65 2C 20 64 enter a..name, d
000120: 69 73 70 6C 61 79 20 74 68 65 20 20 6E 61 6D 65 isplay the name
000130: 20 20 65 6E 74 65 72 65 64 20 20 61 6E 64 20 20 entered and
000140: 74 68 65 20 20 6A 75 6D 70 20 20 62 61 63 6B 20 the jump back
000150: 20 74 6F 20 20 74 68 65 20 45 4E 54 45 52 2D 4E to the ENTER-N
000160: 41 4D 45 0D 0A 70 72 6F 63 65 64 75 72 65 20 61 AME..procedure a
000170: 6E 64 20 72 65 70 65 61 74 20 74 68 65 20 70 72 nd repeat the pr
000180: 6F 63 65 73 73 2C 20 6F 6E 20 61 6E 64 20 6F 6E ocess, on and on
000190: 20 2E 2E 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 .........PROGRA
0001A0: 4D 20 54 48 52 45 45 2E 0D 0A 3D 3D 3D 3D 3D 3D M THREE...======
0001B0: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F 67 ========....Prog
0001C0: 72 61 6D 20 74 77 6F 20 68 61 73 20 61 20 70 72 ram two has a pr
0001D0: 6F 62 6C 65 6D 2C 20 79 6F 75 20 63 61 6E 6E 6F oblem, you canno
0001E0: 74 20 65 78 70 65 63 74 20 74 68 65 20 61 76 65 t expect the ave
0001F0: 72 61 67 65 20 75 73 65 72 20 74 6F 20 6B 6E 6F rage user to kno
Size : 512 (Real : 512)
000000: 2C 20 42 41 53 49 43 20 61 6E 64 20 50 41 53 43 , BASIC and PASC
000010: 41 4C 20 20 61 72 65 20 20 65 78 61 6D 70 6C 65 AL are example
000020: 73 20 20 6F 66 20 20 68 69 67 68 20 6C 65 76 65 s of high leve
000030: 6C 20 63 6F 6D 70 75 74 65 72 20 6C 61 6E 67 75 l computer langu
000040: 61 67 65 73 2E 0D 0A 48 69 67 68 20 6C 65 76 65 ages...High leve
000050: 6C 20 6C 61 6E 67 75 61 67 65 73 20 75 73 65 20 l languages use
000060: 45 6E 67 6C 69 73 68 20 62 61 73 65 64 20 69 6E English based in
000070: 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D 0A 20 structions.....
000080: 49 65 20 20 57 48 49 4C 45 20 63 6F 75 6E 74 20 Ie WHILE count
000090: 3C 20 33 30 20 20 20 20 20 20 20 20 20 28 42 61 < 30 (Ba
0000A0: 73 69 63 29 0D 0A 0D 0A 20 20 20 20 20 50 45 52 sic).... PER
0000B0: 46 4F 52 4D 20 77 61 67 65 2D 63 61 6C 63 75 6C FORM wage-calcul
0000C0: 61 74 69 6F 6E 73 20 55 4E 54 49 4C 0D 0A 20 20 ations UNTIL..
0000D0: 20 20 20 20 20 6C 61 73 74 2D 72 65 63 6F 72 64 last-record
0000E0: 20 3D 20 22 65 6E 64 20 22 20 20 20 28 43 6F 62 = "end " (Cob
0000F0: 6F 6C 29 0D 0A 0D 0A 4C 4F 57 20 4C 45 56 45 4C ol)....LOW LEVEL
000100: 20 4C 41 4E 47 55 41 47 45 2E 0D 0A 0D 0A 4C 61 LANGUAGE.....La
000110: 6E 67 75 61 67 65 73 20 77 68 69 63 68 20 75 73 nguages which us
000120: 65 20 20 6D 6E 65 6D 6F 6E 69 63 73 20 20 61 73 e mnemonics as
000130: 20 20 69 6E 73 74 72 75 63 74 69 6F 6E 73 2E 20 instructions.
000140: 20 54 68 65 20 20 6D 6E 65 6D 6F 6E 69 63 73 20 The mnemonics
000150: 61 72 65 20 74 68 65 6E 0D 0A 63 6F 6E 76 65 72 are then..conver
000160: 74 65 64 20 69 6E 74 6F 20 6D 61 63 68 69 6E 65 ted into machine
000170: 20 63 6F 64 65 20 20 75 73 69 6E 67 20 61 6E 20 code using an
000180: 61 73 73 65 6D 62 6C 65 72 20 73 75 63 68 20 61 assembler such a
000190: 73 20 4D 61 78 61 6D 2E 0D 0A 0D 0A 4F 42 4A 45 s Maxam.....OBJE
0001A0: 43 54 20 43 4F 44 45 2E 0D 0A 0D 0A 54 68 65 20 CT CODE.....The
0001B0: 6E 61 6D 65 20 67 69 76 65 6E 20 74 6F 20 74 68 name given to th
0001C0: 65 20 6D 61 63 68 69 6E 65 20 63 6F 64 65 20 70 e machine code p
0001D0: 72 6F 64 75 63 65 64 20 62 79 20 61 20 63 6F 6D roduced by a com
0001E0: 70 69 6C 65 72 20 6F 72 20 61 73 73 65 6D 62 6C piler or assembl
0001F0: 65 72 2E 0D 0A 0D 0A 53 4F 55 52 43 45 20 43 4F er.....SOURCE CO
Size : 512 (Real : 512)
000000: 77 20 74 68 61 74 0D 0A 70 72 65 73 73 69 6E 67 w that..pressing
000010: 20 43 54 52 4C 20 43 20 77 69 6C 6C 20 74 65 72 CTRL C will ter
000020: 6D 69 6E 61 74 65 20 74 68 65 20 20 70 72 6F 67 minate the prog
000030: 72 61 6D 2E 20 20 54 68 69 73 20 20 70 72 6F 62 ram. This prob
000040: 6C 65 6D 20 69 73 20 65 61 73 79 20 74 6F 20 67 lem is easy to g
000050: 65 74 0D 0A 72 6F 75 6E 64 20 62 65 63 61 75 73 et..round becaus
000060: 65 20 43 6F 62 6F 6C 20 68 61 73 20 61 6E 20 69 e Cobol has an i
000070: 6E 73 74 72 75 63 74 69 6F 6E 20 77 68 69 63 68 nstruction which
000080: 20 64 69 73 70 6C 61 79 73 20 61 20 6D 65 73 73 displays a mess
000090: 61 67 65 20 61 73 6B 69 6E 67 20 74 68 65 0D 0A age asking the..
0000A0: 75 73 65 72 20 69 66 20 74 68 65 79 20 77 69 73 user if they wis
0000B0: 68 20 74 6F 20 74 65 72 6D 69 6E 61 74 65 20 74 h to terminate t
0000C0: 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 53 he program.....S
0000D0: 6F 20 6C 65 74 73 20 67 65 74 20 62 61 63 6B 20 o lets get back
0000E0: 69 6E 74 6F 20 56 44 45 20 74 6F 20 65 6E 74 65 into VDE to ente
0000F0: 72 20 70 72 6F 67 72 61 6D 20 74 68 72 65 65 2E r program three.
000100: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
000110: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
000120: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
000130: 78 61 6D 70 6C 65 20 54 68 72 65 65 2E 0D 0A 20 xample Three...
000140: 20 20 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 AUTHOR.
000150: 43 20 52 20 42 65 6C 6C 61 62 79 2E 0D 0A 20 20 C R Bellaby...
000160: 20 44 41 54 45 2D 57 52 49 54 54 45 4E 2E 20 31 DATE-WRITTEN. 1
000170: 35 2F 39 2F 38 39 2E 0D 0A 20 20 20 53 45 43 55 5/9/89... SECU
000180: 52 49 54 59 2E 20 20 20 20 20 4E 6F 6E 65 2E 0D RITY. None..
000190: 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 .*..ENVIRONMENT
0001A0: 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 DIVISION...CONFI
0001B0: 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E GURATION SECTION
0001C0: 2E 0D 0A 20 20 20 53 4F 55 52 43 45 2D 43 4F 4D ... SOURCE-COM
0001D0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
0001E0: 31 32 38 2E 0D 0A 20 20 20 4F 42 4A 45 43 54 2D 128... OBJECT-
0001F0: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
Size : 512 (Real : 512)
000000: 44 45 2E 0D 0A 0D 0A 54 68 65 20 73 6F 75 72 63 DE.....The sourc
000010: 65 20 63 6F 64 65 20 69 73 20 74 68 65 20 45 6E e code is the En
000020: 67 6C 69 73 68 20 62 61 73 65 64 20 68 69 67 68 glish based high
000030: 20 6C 65 76 65 6C 20 6C 61 6E 67 75 61 67 65 20 level language
000040: 69 6E 73 74 72 75 63 74 69 6F 6E 73 2E 0D 0A 0D instructions....
000050: 0A 57 41 43 43 49 2E 0D 0A 0D 0A 41 20 68 69 67 .WACCI.....A hig
000060: 68 20 6C 65 76 65 6C 20 63 6F 6D 70 75 74 65 72 h level computer
000070: 20 63 6C 75 62 2E 0D 0A 0D 0A 0D 0A 48 4F 4D 45 club.......HOME
000080: 57 4F 52 4B 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D WORK...=========
000090: 0D 0A 0D 0A 48 61 76 65 20 61 20 67 6F 6F 64 20 ....Have a good
0000A0: 72 65 61 64 20 6F 66 20 74 68 65 20 20 43 6F 62 read of the Cob
0000B0: 6F 6C 20 20 64 6F 63 75 6D 65 6E 74 61 74 69 6F ol documentatio
0000C0: 6E 20 66 69 6C 65 2C 20 61 6E 64 20 70 72 61 63 n file, and prac
0000D0: 74 69 63 65 20 75 73 69 6E 67 20 74 68 65 0D 0A tice using the..
0000E0: 66 6F 75 72 20 69 6E 73 74 72 75 63 74 69 6F 6E four instruction
0000F0: 73 20 63 6F 76 65 72 65 64 20 74 68 69 73 20 6D s covered this m
000100: 6F 6E 74 68 2E 0D 0A 0D 0A 0D 0A 43 6C 69 76 65 onth.......Clive
000110: 20 42 65 6C 6C 61 62 79 2C 20 31 32 2C 20 54 72 Bellaby, 12, Tr
000120: 61 66 61 6C 67 61 72 20 54 65 72 72 61 63 65 2C afalgar Terrace,
000130: 20 4C 6F 6E 67 20 45 61 74 6F 6E 2C 20 4E 6F 74 Long Eaton, Not
000140: 74 69 6E 67 68 61 6D 20 4E 47 31 30 20 31 47 50 tingham NG10 1GP
000150: 2E 0D 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 .......** END OF
000160: 20 53 45 52 49 45 53 2E 50 54 31 20 2A 2A 0D 0A SERIES.PT1 **..
000170: 1A 39 2E 0D 0A 20 20 20 53 45 43 55 52 49 54 59 .9... SECURITY
000180: 64 20 42 75 73 69 6E 65 73 73 20 20 4F 72 69 65 d Business Orie
000190: 6E 74 65 64 20 4C 61 6E 67 75 61 67 65 20 61 6E nted Language an
0001A0: 64 20 20 69 73 20 6F 6E 65 20 6F 66 0D 0A 74 68 d is one of..th
0001B0: 65 20 6F 6C 64 65 73 74 20 63 6F 6D 70 75 74 65 e oldest compute
0001C0: 72 20 6C 61 6E 67 75 61 67 65 73 2E 20 49 74 73 r languages. Its
0001D0: 20 20 64 65 6D 69 73 65 20 20 68 61 73 20 20 62 demise has b
0001E0: 65 65 6E 20 70 72 65 64 69 63 74 65 64 20 65 76 een predicted ev
0001F0: 65 72 79 20 79 65 61 72 0D 0A 66 6F 72 20 61 73 ery year..for as
Size : 512 (Real : 512)
000000: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
000010: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
000020: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
000030: 49 4F 4E 2E 0D 0A 20 20 20 30 31 20 4E 41 4D 45 ION... 01 NAME
000040: 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A PIC X(30)...
000050: 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 *..PROCEDURE DIV
000060: 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 ISION...*..ENTER
000070: 5F 4E 41 4D 45 2E 0D 0A 20 20 20 44 49 53 50 4C _NAME... DISPL
000080: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
000090: 20 59 6F 75 72 20 4E 61 6D 65 27 2E 0D 0A 20 20 Your Name'...
0000A0: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
0000B0: 20 20 41 43 43 45 50 54 20 20 4E 41 4D 45 2E 0D ACCEPT NAME..
0000C0: 0A 2A 0D 0A 53 48 4F 57 5F 4E 41 4D 45 2E 0D 0A .*..SHOW_NAME...
0000D0: 20 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C DISPLAY 'Hell
0000E0: 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 20 44 o! ' NAME... D
0000F0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 20 ISPLAY ' '...
000100: 53 54 4F 50 20 27 45 6E 64 20 4F 66 20 52 6F 75 STOP 'End Of Rou
000110: 74 69 6E 65 27 2E 0D 0A 20 20 20 47 4F 20 45 4E tine'... GO EN
000120: 54 45 52 5F 4E 41 4D 45 2E 0D 0A 0D 0A 0D 0A 43 TER_NAME.......C
000130: 6F 6D 70 69 6C 65 20 61 6E 64 20 72 75 6E 20 74 ompile and run t
000140: 68 65 20 70 72 6F 67 72 61 6D 2C 20 61 6E 64 20 he program, and
000150: 20 79 6F 75 20 20 77 69 6C 6C 20 20 6E 6F 74 69 you will noti
000160: 63 65 20 74 68 61 74 20 74 68 61 74 20 53 54 4F ce that that STO
000170: 50 20 63 6F 6D 6D 61 6E 64 0D 0A 75 73 65 64 20 P command..used
000180: 69 6E 20 74 68 65 20 66 6F 72 6D 61 74 20 77 69 in the format wi
000190: 6C 6C 20 68 61 6C 74 20 74 68 65 20 20 70 72 6F ll halt the pro
0001A0: 67 72 61 6D 20 20 61 6E 64 20 64 69 73 70 6C 61 gram and displa
0001B0: 79 20 74 68 69 73 20 6D 65 73 73 61 67 65 20 6F y this message o
0001C0: 6E 20 74 68 65 0D 0A 73 63 72 65 65 6E 2C 0D 0A n the..screen,..
0001D0: 0D 0A 20 27 4F 50 45 52 41 54 4F 52 20 45 4E 54 .. 'OPERATOR ENT
0001E0: 45 52 20 41 20 5B 43 52 5D 20 54 4F 20 43 4F 4E ER A [CR] TO CON
0001F0: 54 49 4E 55 45 20 4F 52 0D 0A 20 20 20 20 20 20 TINUE OR..
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 54 ENT
000010: 45 52 20 41 4E 20 53 20 54 4F 20 45 4E 44 27 0D ER AN S TO END'.
000020: 0A 0D 0A 54 68 65 20 70 72 6F 67 72 61 6D 20 6E ...The program n
000030: 6F 77 20 77 61 69 74 73 20 75 6E 74 69 6C 20 74 ow waits until t
000040: 68 65 20 6F 70 65 72 61 74 6F 72 20 20 70 72 65 he operator pre
000050: 73 73 65 73 20 74 68 65 20 52 45 54 55 52 4E 20 sses the RETURN
000060: 6B 65 79 2C 20 69 6E 20 77 68 69 63 68 0D 0A 63 key, in which..c
000070: 61 73 65 20 74 68 65 20 70 72 6F 67 72 61 6D 20 ase the program
000080: 6C 6F 6F 70 73 20 62 61 63 6B 20 74 6F 20 74 68 loops back to th
000090: 65 20 20 73 74 61 72 74 2C 20 6F 72 20 74 68 65 e start, or the
0000A0: 20 6F 70 65 72 61 74 6F 72 20 65 6E 74 65 72 73 operator enters
0000B0: 20 61 6E 20 75 70 70 65 72 0D 0A 63 61 73 65 20 an upper..case
0000C0: 53 20 74 6F 20 65 6E 64 20 74 68 65 20 70 72 6F S to end the pro
0000D0: 67 72 61 6D 2C 20 77 68 65 6E 20 20 74 68 65 20 gram, when the
0000E0: 66 6F 6C 6C 6F 77 69 6E 67 20 6D 65 73 73 61 67 following messag
0000F0: 65 20 69 73 20 64 69 73 70 6C 61 79 65 64 20 6F e is displayed o
000100: 6E 20 74 68 65 0D 0A 73 63 72 65 65 6E 2C 0D 0A n the..screen,..
000110: 0D 0A 20 27 30 20 45 78 65 63 75 74 69 6F 6E 20 .. '0 Execution
000120: 45 72 72 6F 72 28 73 29 27 0D 0A 0D 0A 49 66 20 Error(s)'....If
000130: 74 68 65 20 6F 70 65 72 61 74 6F 72 20 70 72 65 the operator pre
000140: 73 73 65 73 20 61 6E 79 20 6F 66 20 74 68 65 20 sses any of the
000150: 20 6F 74 68 65 72 20 20 6F 74 68 65 72 20 6B 65 other other ke
000160: 79 73 20 74 68 65 6E 20 74 68 65 20 6B 65 79 20 ys then the key
000170: 70 72 65 73 73 65 64 0D 0A 77 69 6C 6C 20 62 65 pressed..will be
000180: 20 64 69 73 70 6C 61 79 65 64 20 6F 6E 20 74 68 displayed on th
000190: 65 20 73 63 72 65 65 6E 20 62 75 74 20 69 74 20 e screen but it
0001A0: 68 61 73 20 6E 6F 20 65 66 66 65 63 74 20 6F 6E has no effect on
0001B0: 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 44 program.......D
0001C0: 45 46 49 4E 49 54 49 4F 4E 53 2E 0D 0A 3D 3D 3D EFINITIONS...===
0001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 4F 42 =========....COB
0001E0: 4F 4C 2E 0D 0A 0D 0A 41 20 20 68 69 67 68 20 20 OL.....A high
0001F0: 6C 65 76 65 6C 20 20 20 63 6F 6D 70 75 74 65 72 level computer
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
000020: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
000030: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
000060: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
000090: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0000A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 PA
0000C0: 52 54 20 54 57 4F 20 3A 20 47 45 54 54 49 4E 47 RT TWO : GETTING
0000D0: 20 42 45 54 54 45 52 0D 0A 0D 0A 0D 0A 0D 0A 59 BETTER........Y
0000E0: 4F 55 52 20 51 55 45 52 49 45 53 20 41 4E 53 57 OUR QUERIES ANSW
0000F0: 45 52 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D ERED...=========
000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
000110: 0A 53 65 76 65 72 61 6C 20 6F 66 20 79 6F 75 20 .Several of you
000120: 68 61 76 65 20 61 73 6B 65 64 20 77 68 79 20 49 have asked why I
000130: 20 75 73 65 64 20 20 56 44 45 20 61 6E 64 20 6E used VDE and n
000140: 6F 74 20 56 44 45 32 36 36 20 66 6F 72 20 70 72 ot VDE266 for pr
000150: 6F 64 75 63 69 6E 67 20 74 68 65 0D 0A 43 6F 62 oducing the..Cob
000160: 6F 6C 20 74 65 78 74 20 66 69 6C 65 73 2E 20 56 ol text files. V
000170: 44 45 32 36 36 20 69 73 20 61 20 20 6D 75 63 68 DE266 is a much
000180: 20 20 69 6D 70 72 6F 76 65 64 20 20 76 65 72 73 improved vers
000190: 69 6F 6E 20 6F 66 20 56 44 45 2C 20 62 75 74 20 ion of VDE, but
0001A0: 56 44 45 20 61 6E 64 0D 0A 43 6F 62 6F 6C 20 63 VDE and..Cobol c
0001B0: 6F 6D 65 20 70 61 63 6B 61 67 65 64 20 74 6F 67 ome packaged tog
0001C0: 65 74 68 65 72 20 6F 6E 20 43 50 4D 20 64 69 73 ether on CPM dis
0001D0: 63 20 20 65 69 67 68 74 2C 20 20 73 6F 20 69 74 c eight, so it
0001E0: 20 6D 61 64 65 20 73 65 6E 73 65 20 74 6F 20 6B made sense to k
0001F0: 65 65 70 0D 0A 74 68 65 6E 20 74 6F 67 65 74 68 eep..then togeth
Size : 512 (Real : 512)
000000: 0D 0A 0D 0A 49 65 2E 0D 0A 0D 0A 49 44 45 4E 54 ....Ie.....IDENT
000010: 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 IFICATION DIVISI
000020: 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E ON...PROGRAM-ID.
000030: 20 20 20 45 78 61 6D 70 6C 65 20 46 6F 75 72 2E Example Four.
000040: 0D 0A 2A 0D 0A 2A 20 57 72 69 74 74 65 6E 20 42 ..*..* Written B
000050: 79 20 20 43 20 52 20 42 65 6C 6C 61 62 79 0D 0A y C R Bellaby..
000060: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 31 32 * 12
000070: 2C 54 72 61 66 61 6C 67 61 72 20 54 65 72 72 61 ,Trafalgar Terra
000080: 63 65 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 20 ce..*
000090: 20 20 4C 6F 6E 67 20 45 61 74 6F 6E 0D 0A 2A 20 Long Eaton..*
0000A0: 20 20 20 20 20 20 20 20 20 20 20 20 4E 6F 74 74 Nott
0000B0: 69 6E 67 68 61 6D 0D 0A 2A 20 20 20 20 20 20 20 ingham..*
0000C0: 20 20 20 20 20 20 4E 47 31 30 20 31 47 50 0D 0A NG10 1GP..
0000D0: 2A 0D 0A 2A 20 43 6F 70 79 72 69 67 68 74 20 20 *..* Copyright
0000E0: 20 43 52 42 20 43 6F 6D 70 75 74 65 72 73 20 4C CRB Computers L
0000F0: 74 64 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 20 td..*
000100: 20 20 4F 63 74 6F 62 65 72 20 31 39 39 30 0D 0A October 1990..
000110: 0D 0A 57 68 65 6E 20 75 73 69 6E 67 20 27 2A 27 ..When using '*'
000120: 73 20 79 6F 75 20 64 6F 20 6E 6F 74 20 6E 65 65 s you do not nee
000130: 64 20 61 20 66 75 6C 6C 20 73 74 6F 70 20 61 74 d a full stop at
000140: 20 74 68 65 20 65 6E 64 20 6F 66 20 74 68 65 20 the end of the
000150: 6C 69 6E 65 2E 20 49 6E 20 61 6C 6C 0D 0A 6F 74 line. In all..ot
000160: 68 65 72 20 63 61 73 65 73 20 61 20 66 75 6C 6C her cases a full
000170: 20 73 74 6F 70 20 6D 75 73 74 20 62 65 20 75 73 stop must be us
000180: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
000190: 20 46 4F 55 52 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FOUR...========
0001A0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
0001B0: 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 20 79 6F ogram prompts yo
0001C0: 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 20 u to enter five
0001D0: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
0001E0: 20 74 68 65 20 6E 61 6D 65 73 20 79 6F 75 20 68 the names you h
0001F0: 61 76 65 0D 0A 65 6E 74 65 72 65 64 20 61 6E 64 ave..entered and
Size : 512 (Real : 512)
000000: 65 72 2E 0D 0A 0D 0A 41 6E 6F 74 68 65 72 20 70 er.....Another p
000010: 6F 70 75 6C 61 72 20 71 75 65 73 74 69 6F 6E 20 opular question
000020: 77 61 73 20 63 6F 75 6C 64 20 79 6F 75 20 20 75 was could you u
000030: 73 65 20 20 61 6E 79 20 77 6F 72 64 20 70 72 6F se any word pro
000040: 63 65 73 73 6F 72 20 74 6F 20 70 72 6F 64 75 63 cessor to produc
000050: 65 0D 0A 79 6F 75 72 20 43 6F 62 6F 6C 20 74 65 e..your Cobol te
000060: 78 74 20 28 73 6F 75 72 63 65 29 20 66 69 6C 65 xt (source) file
000070: 73 2C 20 79 65 73 20 20 50 72 6F 74 65 78 74 2C s, yes Protext,
000080: 20 54 61 73 77 6F 72 64 2C 20 50 79 72 61 77 6F Tasword, Pyrawo
000090: 72 64 20 65 74 63 20 63 61 6E 20 62 65 0D 0A 75 rd etc can be..u
0000A0: 73 65 64 20 62 75 74 20 74 68 65 20 66 69 6C 65 sed but the file
0000B0: 20 6D 75 73 74 20 62 65 20 73 61 76 65 64 20 74 must be saved t
0000C0: 6F 20 20 64 69 73 63 20 20 61 73 20 61 6E 20 61 o disc as an a
0000D0: 73 63 69 69 20 66 69 6C 65 2E 20 4C 69 66 65 20 scii file. Life
0000E0: 69 73 20 65 61 73 69 65 72 0D 0A 69 66 20 79 6F is easier..if yo
0000F0: 75 20 75 73 65 20 61 20 77 6F 72 64 20 70 72 6F u use a word pro
000100: 63 65 73 73 6F 72 20 77 68 69 63 68 20 20 6F 70 cessor which op
000110: 65 72 61 74 65 73 20 75 6E 64 65 72 20 43 50 2F erates under CP/
000120: 4D 2B 20 61 73 20 74 68 69 73 20 61 76 6F 69 64 M+ as this avoid
000130: 73 20 74 68 65 0D 0A 63 6F 6E 73 74 61 6E 74 20 s the..constant
000140: 6E 65 65 64 20 74 6F 20 6B 65 65 70 20 6C 6F 61 need to keep loa
000150: 64 69 6E 67 20 43 50 2F 4D 2B 20 74 6F 20 63 6F ding CP/M+ to co
000160: 6D 70 69 6C 65 20 61 6E 64 20 74 65 73 74 20 79 mpile and test y
000170: 6F 75 72 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A our program.....
000180: 53 74 65 76 65 20 61 73 6B 73 2C 20 77 68 65 6E Steve asks, when
000190: 20 49 20 20 68 61 76 65 20 20 73 75 63 63 65 73 I have succes
0001A0: 73 66 75 6C 6C 79 20 20 63 6F 6D 70 69 6C 65 64 sfully compiled
0001B0: 20 20 61 6E 64 20 20 72 75 6E 20 61 20 70 72 6F and run a pro
0001C0: 67 72 61 6D 20 77 68 69 63 68 0D 0A 66 69 6C 65 gram which..file
0001D0: 73 20 64 6F 20 49 20 6E 65 65 64 20 74 6F 20 6B s do I need to k
0001E0: 65 65 70 3F 20 57 65 6C 6C 20 53 74 65 76 65 2C eep? Well Steve,
0001F0: 20 20 61 66 74 65 72 20 79 6F 75 20 68 61 76 65 after you have
Size : 512 (Real : 512)
000000: 20 74 68 65 6E 20 65 6E 64 73 2E 0D 0A 0D 0A 0D then ends......
000010: 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 .IDENTIFICATION
000020: 44 49 56 49 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 DIVISION...PROGR
000030: 41 4D 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 AM-ID. Example
000040: 20 46 6F 75 72 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 Four...*..* Thi
000050: 73 20 70 72 6F 67 72 61 6D 20 70 72 6F 6D 70 74 s program prompt
000060: 73 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 s you to enter f
000070: 69 76 65 20 6E 61 6D 65 73 20 61 6E 64 20 74 68 ive names and th
000080: 65 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 en ends...*..ENV
000090: 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F IRONMENT DIVISIO
0000A0: 4E 2E 0D 0A 2A 0D 0A 43 4F 4E 46 49 47 55 52 41 N...*..CONFIGURA
0000B0: 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 TION SECTION...
0000C0: 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 SOURCE-COMPUTER
0000D0: 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D . Amstrad 6128..
0000E0: 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 . OBJECT-COMPUT
0000F0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
000100: 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 ...*..DATA DIVIS
000110: 49 4F 4E 2E 0D 0A 2A 0D 0A 57 4F 52 4B 49 4E 47 ION...*..WORKING
000120: 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E -STORAGE SECTION
000130: 2E 0D 0A 20 20 30 31 20 4E 41 4D 45 20 20 20 20 ... 01 NAME
000140: 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A 0D 0A 50 PIC X(30)...*..P
000150: 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F ROCEDURE DIVISIO
000160: 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 5F 4E 41 4D N...*..ENTER_NAM
000170: 45 5F 4F 4E 45 2E 0D 0A 20 20 44 49 53 50 4C 41 E_ONE... DISPLA
000180: 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 20 Y 'Please Enter
000190: 4E 61 6D 65 20 31 27 2E 0D 0A 20 20 44 49 53 50 Name 1'... DISP
0001A0: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
0001B0: 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 PT NAME... DISP
0001C0: 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E 41 LAY 'Hello! ' NA
0001D0: 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 ME... DISPLAY '
0001E0: 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 '...*..ENTER-NA
0001F0: 4D 45 2D 54 57 4F 2E 0D 0A 20 20 44 49 53 50 4C ME-TWO... DISPL
Size : 512 (Real : 512)
000000: 20 63 6F 6D 70 69 6C 65 64 20 61 6E 64 20 72 75 compiled and ru
000010: 6E 20 79 6F 75 72 0D 0A 70 72 6F 67 72 61 6D 20 n your..program
000020: 79 6F 75 20 77 69 6C 6C 20 68 61 76 65 20 74 68 you will have th
000030: 72 65 65 20 66 69 6C 65 73 20 6F 6E 20 79 6F 75 ree files on you
000040: 72 20 64 69 73 63 2C 0D 0A 0D 0A 20 27 66 69 6C r disc,.... 'fil
000050: 65 6E 61 6D 65 2E 43 42 4C 27 0D 0A 20 27 66 69 ename.CBL'.. 'fi
000060: 6C 65 6E 61 6D 65 2E 4C 53 54 27 0D 0A 20 27 66 lename.LST'.. 'f
000070: 69 6C 65 6E 61 6D 65 2E 43 49 4E 27 0D 0A 0D 0A ilename.CIN'....
000080: 59 6F 75 20 6E 65 65 64 20 74 68 65 20 2E 43 42 You need the .CB
000090: 4C 20 61 6E 64 20 74 68 65 20 2E 43 49 4E 20 66 L and the .CIN f
0000A0: 69 6C 65 73 20 62 75 74 20 79 6F 75 20 63 61 6E iles but you can
0000B0: 20 65 72 61 73 65 20 74 68 65 20 2E 4C 53 54 20 erase the .LST
0000C0: 66 69 6C 65 2E 0D 0A 0D 0A 45 72 61 73 69 6E 67 file.....Erasing
0000D0: 20 66 69 6C 65 73 20 75 73 69 6E 67 20 43 50 2F files using CP/
0000E0: 4D 20 74 61 6B 65 73 20 74 68 65 20 66 6F 72 6D M takes the form
0000F0: 61 74 2C 0D 0A 0D 0A 20 45 52 41 20 66 69 6C 65 at,.... ERA file
000100: 6E 61 6D 65 2E 65 78 74 0D 0A 0D 0A 42 65 20 63 name.ext....Be c
000110: 61 72 65 66 75 6C 20 77 68 65 6E 20 75 73 69 6E areful when usin
000120: 67 20 74 68 65 20 45 52 41 73 65 20 63 6F 6D 6D g the ERAse comm
000130: 61 6E 64 2C 20 79 6F 75 20 61 72 65 20 6E 6F 74 and, you are not
000140: 20 61 73 6B 65 64 20 74 6F 20 63 6F 6E 66 69 72 asked to confir
000150: 6D 20 79 6F 75 72 0D 0A 73 65 6C 65 63 74 69 6F m your..selectio
000160: 6E 2E 0D 0A 0D 0A 0D 0A 4F 4E 20 57 49 54 48 20 n.......ON WITH
000170: 54 48 45 20 53 48 4F 57 2E 0D 0A 3D 3D 3D 3D 3D THE SHOW...=====
000180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
000190: 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 73 74 Last month we st
0001A0: 61 72 74 65 64 20 20 70 72 6F 67 72 61 6D 6D 69 arted programmi
0001B0: 6E 67 20 20 69 6E 20 20 43 6F 62 6F 6C 20 20 77 ng in Cobol w
0001C0: 69 74 68 20 20 74 68 72 65 65 20 73 69 6D 70 6C ith three simpl
0001D0: 65 20 70 72 6F 67 72 61 6D 73 0D 0A 74 68 65 73 e programs..thes
0001E0: 65 20 69 6E 74 72 6F 64 75 63 65 64 20 79 6F 75 e introduced you
0001F0: 20 74 6F 20 74 68 65 20 66 6F 72 6D 61 74 20 20 to the format
Size : 512 (Real : 512)
000000: 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 72 AY 'Please Enter
000010: 20 4E 61 6D 65 20 32 27 2E 0D 0A 20 20 44 49 53 Name 2'... DIS
000020: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 PLAY ' '... ACC
000030: 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 EPT NAME... DIS
000040: 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E PLAY 'Hello! ' N
000050: 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 AME... DISPLAY
000060: 27 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E ' '...*..ENTER-N
000070: 41 4D 45 2D 54 48 52 45 45 2E 0D 0A 20 20 44 49 AME-THREE... DI
000080: 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E SPLAY 'Please En
000090: 74 65 72 20 4E 61 6D 65 20 33 27 2E 0D 0A 20 20 ter Name 3'...
0000A0: 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 DISPLAY ' '...
0000B0: 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 20 ACCEPT NAME...
0000C0: 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 DISPLAY 'Hello!
0000D0: 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C ' NAME... DISPL
0000E0: 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 AY ' '...*..ENTE
0000F0: 52 2D 4E 41 4D 45 2D 46 4F 55 52 2E 0D 0A 20 20 R-NAME-FOUR...
000100: 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 DISPLAY 'Please
000110: 45 6E 74 65 72 20 4E 61 6D 65 20 34 27 2E 0D 0A Enter Name 4'...
000120: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
000130: 20 20 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A ACCEPT NAME...
000140: 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C 6C 6F DISPLAY 'Hello
000150: 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 ! ' NAME... DIS
000160: 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 45 4E PLAY ' '...*..EN
000170: 54 45 52 2D 4E 41 4D 45 2D 46 49 56 45 2E 0D 0A TER-NAME-FIVE...
000180: 20 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 DISPLAY 'Pleas
000190: 65 20 45 6E 74 65 72 20 4E 61 6D 65 20 35 27 2E e Enter Name 5'.
0001A0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E .. DISPLAY ' '.
0001B0: 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 4D 45 2E .. ACCEPT NAME.
0001C0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 48 65 6C .. DISPLAY 'Hel
0001D0: 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 lo! ' NAME... D
0001E0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A ISPLAY ' '...*..
0001F0: 54 48 45 2D 45 4E 44 2E 0D 0A 20 20 53 54 4F 50 THE-END... STOP
Size : 512 (Real : 512)
000000: 74 68 61 74 20 43 6F 62 6F 6C 20 70 72 6F 67 72 that Cobol progr
000010: 61 6D 73 20 66 6F 6C 6C 6F 77 2E 20 54 68 69 73 ams follow. This
000020: 20 6D 6F 6E 74 68 0D 0A 77 69 6C 6C 20 63 6F 6E month..will con
000030: 74 69 6E 75 65 20 61 6C 6F 6E 67 20 74 68 65 20 tinue along the
000040: 73 61 6D 65 20 20 6C 69 6E 65 73 20 20 62 79 20 same lines by
000050: 20 69 6E 74 72 6F 64 75 63 69 6E 67 20 20 79 6F introducing yo
000060: 75 20 74 6F 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 u to new command
000070: 73 2C 0D 0A 65 61 63 68 20 6F 66 20 77 68 69 63 s,..each of whic
000080: 68 20 77 69 6C 6C 20 62 65 20 69 6C 6C 75 73 74 h will be illust
000090: 72 61 74 65 64 20 77 69 74 68 20 20 61 6E 20 65 rated with an e
0000A0: 78 61 6D 70 6C 65 20 70 72 6F 67 72 61 6D 20 73 xample program s
0000B0: 6F 20 74 68 61 74 20 79 6F 75 20 63 61 6E 0D 0A o that you can..
0000C0: 73 65 65 20 77 68 61 74 20 74 68 65 20 63 6F 6D see what the com
0000D0: 6D 61 6E 64 20 64 6F 65 73 2E 0D 0A 0D 0A 49 20 mand does.....I
0000E0: 66 69 6E 64 20 74 68 61 74 20 74 68 65 20 65 61 find that the ea
0000F0: 73 69 65 73 74 20 20 6D 65 74 68 6F 64 20 20 6F siest method o
000100: 66 20 20 6C 65 61 72 6E 69 6E 67 20 20 61 20 20 f learning a
000110: 6E 65 77 20 6C 61 6E 67 75 61 67 65 20 69 73 20 new language is
000120: 74 6F 20 77 72 69 74 65 0D 0A 73 69 6D 70 6C 65 to write..simple
000130: 20 70 72 6F 67 72 61 6D 73 20 74 6F 20 63 68 65 programs to che
000140: 63 6B 20 74 68 65 20 73 79 6E 74 61 78 20 6F 66 ck the syntax of
000150: 20 63 6F 6D 6D 61 6E 64 73 20 61 6E 64 20 74 6F commands and to
000160: 20 73 65 65 20 77 68 61 74 20 74 68 65 20 64 6F see what the do
000170: 2E 0D 0A 0D 0A 0D 0A 54 48 45 20 49 44 45 4E 54 .......THE IDENT
000180: 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 IFICATION DIVISI
000190: 4F 4E 2E 0D 0A 0D 0A 54 68 65 20 66 6F 72 6D 61 ON.....The forma
0001A0: 74 20 66 6F 72 20 74 68 65 20 69 64 65 6E 74 69 t for the identi
0001B0: 66 69 63 61 74 69 6F 6E 20 64 69 76 69 73 69 6F fication divisio
0001C0: 6E 20 69 73 2C 0D 0A 0D 0A 49 44 45 4E 54 49 46 n is,....IDENTIF
0001D0: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
0001E0: 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E ... PROGRAM-ID.
0001F0: 20 5B 20 63 6F 6D 6D 65 6E 74 73 2E 5D 0D 0A 20 [ comments.]..
Size : 512 (Real : 512)
000000: 20 52 55 4E 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D RUN.....Program
000010: 20 4E 6F 74 65 73 3A 0D 0A 0D 0A 54 68 69 73 20 Notes:....This
000020: 77 6F 72 6B 73 20 62 75 74 20 69 73 20 74 69 6D works but is tim
000030: 65 20 63 6F 6E 73 75 6D 69 6E 67 20 74 6F 20 77 e consuming to w
000040: 72 69 74 65 20 20 61 6E 64 20 64 65 62 75 67 2C rite and debug,
000050: 20 73 6F 20 6C 65 74 73 20 6C 6F 6F 6B 20 61 74 so lets look at
000060: 20 77 61 79 73 0D 0A 69 6E 20 77 68 69 63 68 20 ways..in which
000070: 74 68 65 20 70 72 6F 67 72 61 6D 20 63 61 6E 20 the program can
000080: 62 65 20 69 6D 70 72 6F 76 65 64 2E 0D 0A 0D 0A be improved.....
000090: 0D 0A 50 52 4F 47 52 41 4D 20 46 49 56 45 2E 0D ..PROGRAM FIVE..
0000A0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
0000B0: 0D 0A 54 6F 20 69 6D 70 72 6F 76 65 20 70 72 6F ..To improve pro
0000C0: 67 72 61 6D 20 66 6F 75 72 20 77 65 20 73 65 74 gram four we set
0000D0: 20 75 70 20 20 61 20 20 63 6F 75 6E 74 65 72 20 up a counter
0000E0: 74 6F 20 63 6F 75 6E 74 20 74 68 65 20 6E 75 6D to count the num
0000F0: 62 65 72 20 6F 66 20 6E 61 6D 65 73 0D 0A 65 6E ber of names..en
000100: 74 65 72 65 64 2C 20 61 6E 64 20 20 75 73 65 20 tered, and use
000110: 61 20 73 75 62 72 6F 75 74 69 6E 65 20 66 6F 72 a subroutine for
000120: 20 74 68 65 20 20 63 6F 6D 6D 6F 6E 20 70 61 72 the common par
000130: 74 73 20 6F 66 20 74 68 65 20 70 72 6F 67 72 61 ts of the progra
000140: 6D 2E 20 54 6F 20 64 6F 0D 0A 74 68 69 73 20 77 m. To do..this w
000150: 65 20 6E 65 65 64 20 74 6F 20 75 73 65 20 74 68 e need to use th
000160: 72 65 65 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 73 ree new commands
000170: 2C 20 74 68 65 73 65 20 61 72 65 2C 20 41 44 44 , these are, ADD
000180: 2C 20 4D 4F 56 45 20 61 6E 64 20 50 45 52 46 4F , MOVE and PERFO
000190: 52 4D 2E 0D 0A 0D 0A 41 44 44 20 64 6F 65 73 20 RM.....ADD does
0001A0: 61 73 20 69 74 73 20 6E 61 6D 65 20 73 75 67 67 as its name sugg
0001B0: 65 73 74 20 69 74 20 61 64 64 73 20 61 20 76 61 est it adds a va
0001C0: 6C 75 65 20 74 6F 20 61 6E 20 69 64 65 6E 74 69 lue to an identi
0001D0: 66 69 65 72 20 28 76 61 72 69 61 62 6C 65 29 2E fier (variable).
0001E0: 0D 0A 0D 0A 4D 4F 56 45 20 69 73 20 73 69 6D 69 ....MOVE is simi
0001F0: 6C 61 72 20 74 6F 20 4C 45 54 20 20 69 6E 20 20 lar to LET in
Size : 512 (Real : 512)
000000: 5B 41 55 54 48 4F 52 2E 20 20 20 20 20 20 20 63 [AUTHOR. c
000010: 6F 6D 6D 65 6E 74 73 2E 5D 0D 0A 20 5B 44 41 54 omments.].. [DAT
000020: 45 2D 57 52 49 54 54 45 4E 2E 20 63 6F 6D 6D 65 E-WRITTEN. comme
000030: 6E 74 73 2E 5D 0D 0A 20 5B 53 45 43 55 52 49 54 nts.].. [SECURIT
000040: 59 2E 20 20 20 20 20 63 6F 6D 6D 65 6E 74 73 2E Y. comments.
000050: 5D 0D 0A 0D 0A 54 68 6F 73 65 20 63 6F 6D 6D 61 ]....Those comma
000060: 6E 64 73 20 77 68 69 63 68 20 61 72 65 20 6F 70 nds which are op
000070: 74 69 6F 6E 61 6C 20 20 68 61 76 65 20 20 62 65 tional have be
000080: 65 6E 20 69 64 65 6E 74 69 66 69 65 64 20 62 79 en identified by
000090: 20 65 6E 63 6C 6F 73 69 6E 67 20 74 68 65 6D 0D enclosing them.
0000A0: 0A 77 69 74 68 69 6E 20 73 71 75 61 72 65 20 62 .within square b
0000B0: 72 61 63 6B 65 74 73 20 5B 5D 2E 0D 0A 0D 0A 54 rackets [].....T
0000C0: 68 65 20 66 75 6C 6C 20 73 74 6F 70 73 20 61 72 he full stops ar
0000D0: 65 20 65 73 73 65 6E 74 69 61 6C 2E 0D 0A 0D 0A e essential.....
0000E0: 54 68 65 20 69 64 65 6E 74 69 66 69 63 61 74 69 The identificati
0000F0: 6F 6E 20 64 69 76 69 73 69 6F 6E 20 70 72 6F 76 on division prov
000100: 69 64 65 73 20 69 6E 66 6F 72 6D 61 74 69 6F 6E ides information
000110: 20 20 6F 6E 20 74 68 65 20 70 72 6F 67 72 61 6D on the program
000120: 20 69 64 65 6E 74 69 74 79 2C 0D 0A 61 6E 64 20 identity,..and
000130: 69 74 20 69 73 20 67 6F 6F 64 20 70 72 6F 67 72 it is good progr
000140: 61 6D 6D 69 6E 67 20 70 72 61 63 74 69 63 65 20 amming practice
000150: 74 6F 20 63 6F 6D 70 6C 65 74 65 20 74 68 69 73 to complete this
000160: 20 73 65 63 74 69 6F 6E 2E 0D 0A 0D 0A 49 66 20 section.....If
000170: 79 6F 75 20 77 69 73 68 20 74 6F 20 69 6E 63 6C you wish to incl
000180: 75 64 65 20 20 64 65 74 61 69 6C 65 64 20 20 63 ude detailed c
000190: 6F 6D 6D 65 6E 74 73 20 20 74 68 65 6E 20 20 79 omments then y
0001A0: 6F 75 20 20 63 61 6E 20 20 70 6C 61 63 65 20 61 ou can place a
0001B0: 20 27 2A 27 20 69 6E 0D 0A 63 6F 6C 75 6D 6E 20 '*' in..column
0001C0: 6F 6E 65 2C 20 74 68 69 73 20 63 61 75 73 65 73 one, this causes
0001D0: 20 74 68 65 20 72 65 73 74 20 6F 66 20 74 68 65 the rest of the
0001E0: 20 6C 69 6E 65 20 74 6F 20 62 65 20 74 72 65 61 line to be trea
0001F0: 74 65 64 20 61 73 20 63 6F 6D 6D 65 6E 74 73 2E ted as comments.
Size : 512 (Real : 512)
000000: 42 61 73 69 63 2C 20 20 74 68 65 20 20 63 6F 6D Basic, the com
000010: 6D 61 6E 64 20 20 6D 6F 76 65 73 20 61 20 76 61 mand moves a va
000020: 6C 75 65 20 6F 72 20 6C 69 74 65 72 61 6C 0D 0A lue or literal..
000030: 28 73 74 72 69 6E 67 29 20 69 6E 74 6F 20 61 6E (string) into an
000040: 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A identifier.....
000050: 50 45 52 46 4F 52 4D 20 69 73 20 73 69 6D 69 6C PERFORM is simil
000060: 61 72 20 74 6F 20 47 4F 53 55 42 20 69 6E 20 42 ar to GOSUB in B
000070: 61 73 69 63 2C 20 61 6E 64 20 61 6C 6C 6F 77 73 asic, and allows
000080: 20 79 6F 75 20 74 6F 20 72 65 70 65 61 74 20 61 you to repeat a
000090: 20 70 72 6F 63 65 64 75 72 65 0D 0A 28 70 61 72 procedure..(par
0000A0: 61 67 72 61 70 68 29 2E 0D 0A 0D 0A 54 68 65 20 agraph).....The
0000B0: 72 65 76 69 73 65 64 20 70 72 6F 67 72 61 6D 20 revised program
0000C0: 73 65 74 73 20 75 70 20 61 20 63 6F 75 6E 74 20 sets up a count
0000D0: 20 72 6F 75 74 69 6E 65 20 20 77 68 69 63 68 20 routine which
0000E0: 77 69 6C 6C 20 61 6C 6C 6F 77 20 74 68 65 20 75 will allow the u
0000F0: 73 65 72 20 74 6F 0D 0A 65 6E 74 65 72 20 66 69 ser to..enter fi
000100: 76 65 20 6E 61 6D 65 73 20 62 65 66 6F 72 65 20 ve names before
000110: 74 68 65 20 70 72 6F 67 72 61 6D 20 74 65 72 6D the program term
000120: 69 6E 61 74 65 73 2E 0D 0A 0D 0A 0D 0A 49 44 45 inates.......IDE
000130: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
000140: 53 49 4F 4E 2E 0D 0A 20 20 50 52 4F 47 52 41 4D SION... PROGRAM
000150: 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 46 -ID. Example F
000160: 69 76 65 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 ive...*..* This
000170: 70 72 6F 67 72 61 6D 20 61 6C 6C 6F 77 73 20 79 program allows y
000180: 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 ou to enter five
000190: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
0001A0: 20 74 68 65 20 6E 61 6D 65 20 74 68 65 6E 20 65 the name then e
0001B0: 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E nds...*..ENVIRON
0001C0: 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A MENT DIVISION...
0001D0: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 CONFIGURATION SE
0001E0: 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 CTION... SOURCE
0001F0: 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 -COMPUTER. Amstr
Size : 512 (Real : 512)
000000: 61 72 65 20 20 73 74 69 6C 6C 20 20 75 73 65 64 are still used
000010: 20 20 62 75 74 20 20 6E 6F 77 20 68 61 76 65 20 but now have
000020: 6E 6F 20 65 66 66 65 63 74 20 6F 6E 20 68 6F 77 no effect on how
000030: 0D 0A 6D 61 6E 79 20 74 69 6D 65 73 20 74 68 65 ..many times the
000040: 20 70 72 6F 63 65 64 75 72 65 20 69 73 20 63 6F procedure is co
000050: 6D 70 6C 65 74 65 64 2E 0D 0A 0D 0A 0D 0A 4C 45 mpleted.......LE
000060: 56 45 4C 20 4E 55 4D 42 45 52 53 2E 0D 0A 3D 3D VEL NUMBERS...==
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
000080: 4C 45 46 54 24 2C 20 52 49 47 48 54 24 20 61 6E LEFT$, RIGHT$ an
000090: 64 20 4D 49 44 24 20 61 72 65 20 75 73 65 64 20 d MID$ are used
0000A0: 74 6F 20 20 73 70 6C 69 74 20 76 61 72 69 61 62 to split variab
0000B0: 6C 65 73 20 69 6E 20 42 61 73 69 63 2C 20 64 6F les in Basic, do
0000C0: 6E 27 74 20 74 72 79 20 74 6F 0D 0A 75 73 65 20 n't try to..use
0000D0: 74 68 65 73 65 20 69 6E 20 61 20 43 6F 62 6F 6C these in a Cobol
0000E0: 20 70 72 6F 67 72 61 6D 20 74 68 65 79 20 77 69 program they wi
0000F0: 6C 6C 20 6E 6F 74 20 77 6F 72 6B 2E 0D 0A 0D 0A ll not work.....
000100: 41 6E 20 69 64 65 6E 74 69 66 69 65 72 20 28 76 An identifier (v
000110: 61 72 69 61 62 6C 65 29 20 20 69 6E 20 20 43 6F ariable) in Co
000120: 62 6F 6C 20 20 69 73 20 20 64 65 63 6C 61 72 65 bol is declare
000130: 64 20 20 61 6E 64 20 20 64 69 6D 65 6E 73 69 6F d and dimensio
000140: 6E 65 64 20 69 6E 20 74 68 65 0D 0A 57 4F 52 4B ned in the..WORK
000150: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
000160: 49 4F 4E 20 6F 66 20 74 68 65 20 70 72 6F 67 72 ION of the progr
000170: 61 6D 20 61 73 2C 0D 0A 0D 0A 30 31 20 4E 41 4D am as,....01 NAM
000180: 45 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A E PIC X(30)...
000190: 0D 0A 54 6F 20 73 70 6C 69 74 20 74 68 65 20 76 ..To split the v
0001A0: 61 6C 75 65 20 65 6E 74 65 72 65 64 20 77 65 20 alue entered we
0001B0: 75 73 65 20 64 69 66 66 65 72 65 6E 74 20 6C 65 use different le
0001C0: 76 65 6C 20 6E 75 6D 62 65 72 73 2E 0D 0A 0D 0A vel numbers.....
0001D0: 30 31 20 4E 41 4D 45 2E 0D 0A 20 20 30 33 20 4E 01 NAME... 03 N
0001E0: 41 4D 45 2D 41 20 20 50 49 43 20 58 28 31 30 29 AME-A PIC X(10)
0001F0: 2E 0D 0A 20 20 30 33 20 4E 41 4D 45 2D 42 20 20 ... 03 NAME-B
Size : 512 (Real : 512)
000000: 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 ad 6128... OBJE
000010: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
000020: 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 trad 6128...*..D
000030: 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 ATA DIVISION...W
000040: 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 ORKING-STORAGE S
000050: 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 4E 41 4D 45 ECTION...01 NAME
000060: 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A PIC X(30)...
000070: 30 31 20 43 4F 55 4E 54 20 20 20 50 49 43 20 39 01 COUNT PIC 9
000080: 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 ...*..PROCEDURE
000090: 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A 53 54 DIVISION...*..ST
0000A0: 41 52 54 2E 0D 0A 20 20 4D 4F 56 45 20 30 20 54 ART... MOVE 0 T
0000B0: 4F 20 43 4F 55 4E 54 2E 0D 0A 20 20 44 49 53 50 O COUNT... DISP
0000C0: 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 65 LAY 'Please Ente
0000D0: 72 20 35 20 4E 61 6D 65 73 27 2E 0D 0A 20 20 44 r 5 Names'... D
0000E0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 50 ISPLAY ' '... P
0000F0: 45 52 46 4F 52 4D 20 45 4E 54 45 52 2D 4E 41 4D ERFORM ENTER-NAM
000100: 45 20 55 4E 54 49 4C 20 43 4F 55 4E 54 20 45 51 E UNTIL COUNT EQ
000110: 55 41 4C 20 35 2E 0D 0A 20 20 53 54 4F 50 20 52 UAL 5... STOP R
000120: 55 4E 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 UN...*..ENTER-NA
000130: 4D 45 2E 0D 0A 20 20 41 44 44 20 31 20 54 4F 20 ME... ADD 1 TO
000140: 43 4F 55 4E 54 2E 0D 0A 20 20 44 49 53 50 4C 41 COUNT... DISPLA
000150: 59 20 27 4E 61 6D 65 20 27 20 43 4F 55 4E 54 2E Y 'Name ' COUNT.
000160: 0D 0A 20 20 41 43 43 45 50 54 20 20 4E 41 4D 45 .. ACCEPT NAME
000170: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 48 65 ... DISPLAY 'He
000180: 6C 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 llo! ' NAME...
000190: 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 0D 0A DISPLAY ' '.....
0001A0: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
0001B0: 0D 0A 54 68 65 20 4D 4F 56 45 20 63 6F 6D 6D 61 ..The MOVE comma
0001C0: 6E 64 20 20 69 73 20 20 75 73 65 64 20 20 74 6F nd is used to
0001D0: 20 20 69 6E 69 74 69 61 6C 69 73 65 20 20 74 68 initialise th
0001E0: 65 20 20 76 61 6C 75 65 20 20 6F 66 20 20 74 68 e value of th
0001F0: 65 20 69 64 65 6E 74 69 66 69 65 72 0D 0A 28 76 e identifier..(v
Size : 512 (Real : 512)
000000: 50 49 43 20 58 28 32 30 29 2E 0D 0A 0D 0A 57 68 PIC X(20).....Wh
000010: 65 72 65 20 30 31 20 61 6E 64 20 30 33 20 61 72 ere 01 and 03 ar
000020: 65 20 74 68 65 20 6C 65 76 65 6C 20 6E 75 6D 62 e the level numb
000030: 65 72 73 2C 20 77 65 20 63 61 6E 20 6E 6F 77 20 ers, we can now
000040: 75 73 65 2C 0D 0A 0D 0A 44 49 53 50 4C 41 59 20 use,....DISPLAY
000050: 4E 41 4D 45 2E 0D 0A 0D 0A 54 68 69 73 20 64 69 NAME.....This di
000060: 73 70 6C 61 79 73 20 61 6C 6C 20 6F 66 20 74 68 splays all of th
000070: 65 20 63 6F 6E 74 65 6E 74 73 20 6F 66 20 74 68 e contents of th
000080: 65 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A 0D e identifier....
000090: 0A 4F 72 20 77 65 20 63 61 6E 20 75 73 65 2C 0D .Or we can use,.
0000A0: 0A 0D 0A 44 49 53 50 4C 41 59 20 4E 41 4D 45 2D ...DISPLAY NAME-
0000B0: 41 2E 0D 0A 0D 0A 54 68 69 73 20 64 69 73 70 6C A.....This displ
0000C0: 61 79 73 20 74 68 65 20 66 69 72 73 74 20 31 30 ays the first 10
0000D0: 20 62 79 74 65 73 20 6F 66 20 74 68 65 20 63 6F bytes of the co
0000E0: 6E 74 65 6E 74 73 20 68 65 6C 64 20 69 6E 20 74 ntents held in t
0000F0: 68 65 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A he identifier...
000100: 0D 0A 4F 72 20 77 65 20 63 61 6E 20 75 73 65 2C ..Or we can use,
000110: 0D 0A 0D 0A 44 49 53 50 4C 41 59 20 4E 41 4D 45 ....DISPLAY NAME
000120: 2D 42 2E 0D 0A 0D 0A 54 68 65 20 64 69 73 70 6C -B.....The displ
000130: 61 79 73 20 74 68 65 20 63 6F 6E 74 65 6E 74 73 ays the contents
000140: 20 6F 66 20 74 68 65 20 6C 61 73 74 20 32 30 20 of the last 20
000150: 62 79 74 65 73 20 6F 66 20 74 68 65 20 69 64 65 bytes of the ide
000160: 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A 59 6F 75 20 ntifier.....You
000170: 6D 61 79 20 75 73 65 20 31 30 20 64 69 66 66 65 may use 10 diffe
000180: 72 65 6E 74 20 6C 65 76 65 6C 20 20 6E 75 6D 62 rent level numb
000190: 65 72 73 2C 20 20 65 61 63 68 20 6C 65 76 65 6C ers, each level
0001A0: 20 6E 75 6D 62 65 72 20 63 61 6E 20 72 61 6E 67 number can rang
0001B0: 65 20 66 72 6F 6D 0D 0A 30 31 20 74 6F 20 20 39 e from..01 to 9
0001C0: 39 2C 20 61 6C 74 68 6F 75 67 68 20 69 6E 20 70 9, although in p
0001D0: 72 61 63 74 69 63 65 20 20 49 20 20 68 61 76 65 ractice I have
0001E0: 20 20 6E 65 76 65 72 20 75 73 65 64 20 6D 6F 72 never used mor
0001F0: 65 20 74 68 61 6E 20 35 20 64 69 66 66 65 72 65 e than 5 differe
Size : 512 (Real : 512)
000000: 61 72 69 61 62 6C 65 29 20 63 6F 75 6E 74 2E 0D ariable) count..
000010: 0A 0D 0A 54 68 65 20 50 45 52 46 4F 52 4D 20 20 ...The PERFORM
000020: 63 6F 6D 6D 61 6E 64 20 20 69 6E 73 74 72 75 63 command instruc
000030: 74 73 20 20 74 68 65 20 20 70 72 6F 67 72 61 6D ts the program
000040: 20 20 74 6F 20 20 63 6F 6D 70 6C 65 74 65 20 20 to complete
000050: 74 68 65 20 70 72 6F 63 65 64 75 72 65 0D 0A 28 the procedure..(
000060: 70 61 72 61 67 72 61 70 68 29 20 63 61 6C 6C 65 paragraph) calle
000070: 64 20 45 4E 54 45 52 2D 4E 41 4D 45 20 75 6E 74 d ENTER-NAME unt
000080: 69 6C 20 20 74 68 65 20 20 76 61 6C 75 65 20 20 il the value
000090: 6F 66 20 74 68 65 20 69 64 65 6E 74 69 66 69 65 of the identifie
0000A0: 72 20 72 65 61 63 68 65 73 0D 0A 74 68 65 20 73 r reaches..the s
0000B0: 70 65 63 69 66 69 65 64 20 76 61 6C 75 65 2E 20 pecified value.
0000C0: 49 6E 20 74 68 69 73 20 63 61 73 65 20 74 68 65 In this case the
0000D0: 20 76 61 6C 75 65 20 69 73 20 73 65 74 20 74 6F value is set to
0000E0: 20 35 2E 0D 0A 0D 0A 54 68 65 20 41 44 44 20 63 5.....The ADD c
0000F0: 6F 6D 6D 61 6E 64 20 69 73 20 75 73 65 64 20 74 ommand is used t
000100: 6F 20 20 61 64 64 20 20 31 20 20 74 6F 20 20 74 o add 1 to t
000110: 68 65 20 20 69 64 65 6E 74 69 66 69 65 72 20 65 he identifier e
000120: 61 63 68 20 74 69 6D 65 20 74 68 61 74 20 74 68 ach time that th
000130: 65 0D 0A 70 72 6F 63 65 64 75 72 65 20 69 73 20 e..procedure is
000140: 70 65 72 66 6F 72 6D 65 64 20 74 68 69 73 20 61 performed this a
000150: 63 74 73 20 61 73 20 61 20 63 6F 75 6E 74 65 72 cts as a counter
000160: 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 53 .......PROGRAM S
000170: 49 58 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D IX...===========
000180: 3D 0D 0A 0D 0A 57 65 20 63 61 6E 20 75 73 65 20 =....We can use
000190: 61 20 76 61 72 69 61 74 69 6F 6E 20 6F 66 20 74 a variation of t
0001A0: 68 65 20 50 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 he PERFORM comma
0001B0: 6E 64 20 74 6F 20 6F 62 74 61 69 6E 20 74 68 65 nd to obtain the
0001C0: 20 73 61 6D 65 20 72 65 73 75 6C 74 73 2E 0D 0A same results...
0001D0: 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F 4E ..IDENTIFICATION
0001E0: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 50 52 DIVISION... PR
0001F0: 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 61 6D OGRAM-ID. Exam
Size : 512 (Real : 512)
000000: 6E 74 0D 0A 6C 65 76 65 6C 73 20 74 6F 20 73 75 nt..levels to su
000010: 62 2D 64 69 76 69 64 65 20 61 6E 20 69 64 65 6E b-divide an iden
000020: 74 69 66 69 65 72 2E 0D 0A 0D 0A 41 20 74 79 70 tifier.....A typ
000030: 69 63 61 6C 20 65 78 61 6D 70 6C 65 2C 0D 0A 0D ical example,...
000040: 0A 30 31 20 54 4F 54 41 4C 2D 52 45 43 4F 52 44 .01 TOTAL-RECORD
000050: 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 20 20 20 ... 03 NAME
000060: 20 20 20 20 20 20 50 49 43 20 58 28 33 30 29 2E PIC X(30).
000070: 0D 0A 20 20 20 30 33 20 41 44 44 52 45 53 53 2E .. 03 ADDRESS.
000080: 0D 0A 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D .. 05 LINE-
000090: 31 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 1 PIC X(30)..
0000A0: 0A 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D 32 . 05 LINE-2
0000B0: 20 20 20 20 50 49 43 20 58 28 33 30 29 3E 0D 0A PIC X(30)>..
0000C0: 20 20 20 20 20 20 30 35 20 4C 49 4E 45 2D 33 20 05 LINE-3
0000D0: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
0000E0: 20 20 30 33 20 50 4F 53 54 2D 43 4F 44 45 20 20 03 POST-CODE
0000F0: 20 20 50 49 43 20 58 28 31 30 29 2E 0D 0A 20 20 PIC X(10)...
000100: 20 30 33 20 50 48 4F 4E 45 20 20 20 20 20 20 20 03 PHONE
000110: 20 50 49 43 20 39 28 36 29 2E 0D 0A 20 20 20 30 PIC 9(6)... 0
000120: 33 20 44 2D 4F 46 2D 42 20 20 20 20 20 20 20 50 3 D-OF-B P
000130: 49 43 20 39 28 36 29 2E 0D 0A 20 20 20 30 33 20 IC 9(6)... 03
000140: 41 47 45 20 20 20 20 20 20 20 20 20 20 50 49 43 AGE PIC
000150: 20 39 28 33 29 2E 0D 0A 20 20 20 30 33 20 44 41 9(3)... 03 DA
000160: 54 45 2D 53 54 41 52 54 20 20 20 50 49 43 20 39 TE-START PIC 9
000170: 28 36 29 2E 0D 0A 0D 0A 57 65 20 63 61 6E 20 6E (6).....We can n
000180: 6F 77 20 72 65 66 65 72 20 74 6F 20 69 6E 64 69 ow refer to indi
000190: 76 69 64 75 61 6C 20 69 64 65 6E 74 69 66 69 65 vidual identifie
0001A0: 72 73 20 6F 72 20 74 6F 20 74 68 65 20 77 68 6F rs or to the who
0001B0: 6C 65 20 72 65 63 6F 72 64 20 77 69 74 68 3A 0D le record with:.
0001C0: 0A 0D 0A 44 49 53 50 4C 41 59 20 54 4F 54 41 4C ...DISPLAY TOTAL
0001D0: 2D 52 45 43 4F 52 44 2E 20 20 20 6F 72 20 20 20 -RECORD. or
0001E0: 44 49 53 50 4C 41 59 20 41 47 45 2E 0D 0A 0D 0A DISPLAY AGE.....
0001F0: 49 74 20 69 73 20 73 74 61 6E 64 61 72 64 20 70 It is standard p
Size : 512 (Real : 512)
000000: 70 6C 65 20 53 69 78 2E 0D 0A 2A 0D 0A 2A 20 54 ple Six...*..* T
000010: 68 69 73 20 70 72 6F 67 72 61 6D 20 61 6C 6C 6F his program allo
000020: 77 73 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 ws you to enter
000030: 66 69 76 65 20 6E 61 6D 65 73 2C 20 64 69 73 70 five names, disp
000040: 6C 61 79 73 20 74 68 65 20 6E 61 6D 65 20 74 68 lays the name th
000050: 65 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 en ends...*..ENV
000060: 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F IRONMENT DIVISIO
000070: 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F N...CONFIGURATIO
000080: 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F N SECTION... SO
000090: 55 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 URCE-COMPUTER. A
0000A0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 mstrad 6128...
0000B0: 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E OBJECT-COMPUTER.
0000C0: 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A Amstrad 6128...
0000D0: 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E *..DATA DIVISION
0000E0: 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 ...WORKING-STORA
0000F0: 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 GE SECTION...01
000100: 4E 41 4D 45 20 20 20 20 50 49 43 20 58 28 33 30 NAME PIC X(30
000110: 29 2E 0D 0A 30 31 20 43 4F 55 4E 54 20 20 20 50 )...01 COUNT P
000120: 49 43 20 39 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 IC 9...*..PROCED
000130: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
000140: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 4D 4F 56 45 ..START... MOVE
000150: 20 30 20 54 4F 20 43 4F 55 4E 54 2E 0D 0A 20 20 0 TO COUNT...
000160: 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 20 DISPLAY 'Please
000170: 45 6E 74 65 72 20 35 20 4E 61 6D 65 73 27 2E 0D Enter 5 Names'..
000180: 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D . DISPLAY ' '..
000190: 0A 20 20 50 45 52 46 4F 52 4D 20 45 4E 54 45 52 . PERFORM ENTER
0001A0: 2D 4E 41 4D 45 20 35 20 54 49 4D 45 53 2E 0D 0A -NAME 5 TIMES...
0001B0: 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 2A 0D 0A STOP RUN...*..
0001C0: 45 4E 54 45 52 2D 4E 41 4D 45 2E 0D 0A 20 20 41 ENTER-NAME... A
0001D0: 44 44 20 31 20 54 4F 20 43 4F 55 4E 54 2E 0D 0A DD 1 TO COUNT...
0001E0: 20 20 44 49 53 50 4C 41 59 20 27 4E 61 6D 65 20 DISPLAY 'Name
0001F0: 27 20 43 4F 55 4E 54 2E 0D 0A 20 20 41 43 43 45 ' COUNT... ACCE
Size : 512 (Real : 512)
000000: 72 61 63 74 69 63 65 20 74 6F 20 20 75 73 65 20 ractice to use
000010: 20 6C 65 76 65 6C 20 20 6E 75 6D 62 65 72 73 20 level numbers
000020: 20 30 31 2C 20 20 30 33 2C 20 20 30 35 20 65 74 01, 03, 05 et
000030: 63 2E 20 61 73 20 74 68 69 73 0D 0A 61 6C 6C 6F c. as this..allo
000040: 77 73 20 79 6F 75 20 74 6F 20 61 64 64 20 6E 65 ws you to add ne
000050: 77 20 6C 65 76 65 6C 73 20 61 74 20 61 20 6C 61 w levels at a la
000060: 74 65 72 20 64 61 74 65 2E 0D 0A 0D 0A 0D 0A 50 ter date.......P
000070: 49 43 54 55 52 45 20 43 4C 41 55 53 45 53 2E 0D ICTURE CLAUSES..
000080: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
000090: 3D 0D 0A 0D 0A 54 68 65 20 50 49 43 20 63 6C 61 =....The PIC cla
0000A0: 75 73 65 20 69 73 20 75 73 65 64 20 74 6F 20 64 use is used to d
0000B0: 69 6D 65 6E 73 69 6F 6E 20 74 68 65 20 69 64 65 imension the ide
0000C0: 6E 74 69 66 69 65 72 20 74 6F 20 61 20 73 70 65 ntifier to a spe
0000D0: 63 69 66 69 63 20 6E 75 6D 62 65 72 20 6F 66 0D cific number of.
0000E0: 0A 62 79 74 65 73 2C 20 61 6E 64 20 74 6F 20 64 .bytes, and to d
0000F0: 65 63 6C 61 72 65 20 74 68 65 20 76 61 72 69 61 eclare the varia
000100: 62 6C 65 20 61 73 20 65 69 74 68 65 72 20 6E 75 ble as either nu
000110: 6D 65 72 69 63 20 6F 72 20 61 6C 70 68 61 20 6E meric or alpha n
000120: 75 6D 65 72 69 63 2E 0D 0A 0D 0A 50 49 43 20 39 umeric.....PIC 9
000130: 20 69 73 20 6E 75 6D 65 72 69 63 2E 0D 0A 0D 0A is numeric.....
000140: 50 49 43 20 58 20 69 73 20 61 6C 70 68 61 20 6E PIC X is alpha n
000150: 75 6D 65 72 69 63 20 28 73 74 72 69 6E 67 29 2E umeric (string).
000160: 0D 0A 0D 0A 72 61 74 68 65 72 20 74 68 61 6E 20 ....rather than
000170: 77 72 69 74 69 6E 67 2C 0D 0A 0D 0A 50 49 43 20 writing,....PIC
000180: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 2E XXXXXXXXXXXXXXX.
000190: 0D 0A 0D 0A 77 65 20 63 61 6E 20 75 73 65 2C 0D ....we can use,.
0001A0: 0A 0D 0A 50 49 43 20 58 28 31 35 29 2E 0D 0A 0D ...PIC X(15)....
0001B0: 0A 74 6F 20 64 69 6D 65 6E 73 69 6F 6E 20 74 68 .to dimension th
0001C0: 65 20 69 64 65 6E 74 69 66 69 65 72 20 74 6F 20 e identifier to
0001D0: 31 35 20 62 79 74 65 73 20 6F 66 20 61 6C 70 68 15 bytes of alph
0001E0: 61 20 6E 75 6D 65 72 69 63 20 64 61 74 61 2E 0D a numeric data..
0001F0: 0A 0D 0A 44 6F 63 75 6D 65 6E 74 61 74 69 6F 6E ...Documentation
Size : 512 (Real : 512)
000000: 50 54 20 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 PT NAME... DIS
000010: 50 4C 41 59 20 27 48 65 6C 6C 6F 21 20 27 20 4E PLAY 'Hello! ' N
000020: 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 AME... DISPLAY
000030: 27 20 27 2E 0D 0A 0D 0A 50 72 6F 67 72 61 6D 20 ' '.....Program
000040: 4E 6F 74 65 73 2E 0D 0A 0D 0A 54 68 69 73 20 70 Notes.....This p
000050: 72 6F 67 72 61 6D 20 69 73 20 73 69 6D 69 6C 61 rogram is simila
000060: 72 20 74 6F 20 70 72 6F 67 72 61 6D 20 20 66 69 r to program fi
000070: 76 65 2C 20 20 73 6F 20 72 61 74 68 65 72 20 74 ve, so rather t
000080: 68 61 6E 20 74 79 70 69 6E 67 20 74 68 65 20 77 han typing the w
000090: 68 6F 6C 65 0D 0A 6C 6F 74 20 69 6E 20 61 67 61 hole..lot in aga
0000A0: 69 6E 2C 20 75 73 65 20 56 44 45 20 74 6F 20 6C in, use VDE to l
0000B0: 6F 61 64 20 74 68 65 20 74 65 78 74 20 66 69 6C oad the text fil
0000C0: 65 2C 20 75 73 65 20 45 53 43 20 4E 20 74 6F 20 e, use ESC N to
0000D0: 72 65 6E 61 6D 65 20 74 68 65 20 66 69 6C 65 2C rename the file,
0000E0: 0D 0A 61 6D 65 6E 64 20 74 68 65 20 74 65 78 74 ..amend the text
0000F0: 2C 20 75 73 65 20 45 53 43 20 58 20 74 6F 20 73 , use ESC X to s
000100: 61 76 65 20 74 68 65 20 66 69 6C 65 20 74 6F 20 ave the file to
000110: 64 69 73 63 2E 0D 0A 0D 0A 54 68 65 20 50 45 52 disc.....The PER
000120: 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 20 68 61 73 FORM command has
000130: 20 62 65 65 6E 20 75 73 65 64 20 69 6E 20 20 61 been used in a
000140: 20 20 64 69 66 66 65 72 65 6E 74 20 77 61 79 20 different way
000150: 74 6F 20 70 72 6F 64 75 63 65 20 74 68 65 20 73 to produce the s
000160: 61 6D 65 0D 0A 72 65 73 75 6C 74 2E 20 49 6E 20 ame..result. In
000170: 74 68 69 73 20 20 70 72 6F 67 72 61 6D 20 20 74 this program t
000180: 68 65 20 20 50 45 52 46 4F 52 4D 20 20 63 6F 6D he PERFORM com
000190: 6D 61 6E 64 20 20 69 6E 73 74 72 75 63 74 73 20 mand instructs
0001A0: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 74 6F 0D the program to.
0001B0: 0A 63 6F 6D 70 6C 65 74 65 20 74 68 65 20 70 72 .complete the pr
0001C0: 6F 63 65 64 75 72 65 20 63 61 6C 6C 65 64 20 45 ocedure called E
0001D0: 4E 54 45 52 2D 4E 41 4D 45 20 35 20 74 69 6D 65 NTER-NAME 5 time
0001E0: 73 2E 0D 0A 0D 0A 54 68 65 20 41 44 44 20 61 6E s.....The ADD an
0001F0: 64 20 4D 4F 56 45 20 63 6F 6D 6D 61 6E 64 73 20 d MOVE commands
Size : 512 (Real : 512)
000000: 20 45 72 72 6F 72 2E 0D 0A 0D 0A 54 68 65 72 65 Error.....There
000010: 20 69 73 20 61 6E 20 20 65 72 72 6F 72 20 20 69 is an error i
000020: 6E 20 20 74 68 65 20 20 43 6F 62 6F 6C 20 20 64 n the Cobol d
000030: 6F 63 75 6D 65 6E 74 61 74 69 6F 6E 20 20 66 69 ocumentation fi
000040: 6C 65 2C 20 20 61 63 63 6F 72 64 69 6E 67 20 74 le, according t
000050: 6F 20 74 68 65 0D 0A 64 6F 63 75 6D 65 6E 74 61 o the..documenta
000060: 74 69 6F 6E 20 79 6F 75 20 61 72 65 20 6C 69 6D tion you are lim
000070: 69 74 65 64 20 74 6F 20 61 20 6D 61 78 69 6D 75 ited to a maximu
000080: 6D 20 20 50 49 43 20 73 69 7A 65 20 6F 66 20 33 m PIC size of 3
000090: 30 20 28 74 68 69 72 74 79 29 20 62 79 74 65 73 0 (thirty) bytes
0000A0: 2C 0D 0A 74 68 69 73 20 69 73 20 6E 6F 74 20 63 ,..this is not c
0000B0: 6F 72 72 65 63 74 20 74 68 65 20 6D 61 78 69 6D orrect the maxim
0000C0: 75 6D 20 6E 75 6D 62 65 72 20 20 6F 66 20 20 62 um number of b
0000D0: 79 74 65 73 20 20 79 6F 75 20 63 61 6E 20 75 73 ytes you can us
0000E0: 65 20 69 6E 20 61 20 50 49 43 20 69 73 0D 0A 6C e in a PIC is..l
0000F0: 69 6D 69 74 65 64 20 6F 6E 6C 79 20 62 79 20 74 imited only by t
000100: 68 65 20 61 6D 6F 75 6E 74 20 6F 66 20 66 72 65 he amount of fre
000110: 65 20 20 6D 65 6D 6F 72 79 2C 20 20 68 6F 77 65 e memory, howe
000120: 76 65 72 20 61 20 6D 61 78 69 6D 75 6D 20 73 69 ver a maximum si
000130: 7A 65 20 6F 66 20 20 38 30 0D 0A 62 79 74 65 73 ze of 80..bytes
000140: 20 69 73 20 73 75 67 67 65 73 74 65 64 20 61 73 is suggested as
000150: 20 74 68 69 73 20 6D 61 74 63 68 65 73 20 74 68 this matches th
000160: 65 20 73 63 72 65 65 6E 20 77 69 64 74 68 20 69 e screen width i
000170: 6E 20 6D 6F 64 65 20 32 2E 0D 0A 0D 0A 0D 0A 50 n mode 2.......P
000180: 52 4F 47 52 41 4D 20 53 45 56 45 4E 2E 0D 0A 3D ROGRAM SEVEN...=
000190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
0001A0: 0A 54 68 69 73 20 70 72 6F 67 72 61 6D 20 69 6C .This program il
0001B0: 6C 75 73 74 72 61 74 65 73 20 68 6F 77 20 6C 65 lustrates how le
0001C0: 76 65 6C 20 6E 75 6D 62 65 72 73 20 61 72 65 20 vel numbers are
0001D0: 75 73 65 64 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 used.....IDENTIF
0001E0: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
0001F0: 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E ... PROGRAM-ID.
Size : 512 (Real : 512)
000000: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
000010: 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 6128... OBJECT-
000020: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
000030: 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 d 6128...*..DATA
000040: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B DIVISION...WORK
000050: 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 ING-STORAGE SECT
000060: 49 4F 4E 2E 0D 0A 30 31 20 4E 41 4D 45 2E 0D 0A ION...01 NAME...
000070: 20 20 30 33 20 4E 41 4D 45 2D 54 45 53 54 20 20 03 NAME-TEST
000080: 50 49 43 20 58 28 33 29 2E 0D 0A 20 20 30 33 20 PIC X(3)... 03
000090: 52 45 53 54 2D 4E 41 4D 45 20 20 50 49 43 20 58 REST-NAME PIC X
0000A0: 28 32 37 29 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 (27)...*..PROCED
0000B0: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
0000C0: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 50 45 52 46 ..START... PERF
0000D0: 4F 52 4D 20 45 4E 54 45 52 2D 4E 41 4D 45 20 55 ORM ENTER-NAME U
0000E0: 4E 54 49 4C 20 4E 41 4D 45 2D 54 45 53 54 20 45 NTIL NAME-TEST E
0000F0: 51 55 41 4C 20 27 45 4E 44 27 2E 0D 0A 20 20 53 QUAL 'END'... S
000100: 54 4F 50 20 52 55 4E 2E 0D 0A 2A 0D 0A 45 4E 54 TOP RUN...*..ENT
000110: 45 52 2D 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 ER-NAME... DISP
000120: 4C 41 59 20 27 50 4C 45 41 53 45 20 45 6E 74 65 LAY 'PLEASE Ente
000130: 72 20 41 20 4E 61 6D 65 20 4F 72 20 45 6E 74 65 r A Name Or Ente
000140: 72 20 45 4E 44 20 74 6F 20 46 69 6E 69 73 68 2E r END to Finish.
000150: 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 '... DISPLAY '
000160: 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 20 4E 41 '... ACCEPT NA
000170: 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 ME... DISPLAY '
000180: 48 65 6C 6C 6F 21 20 27 20 4E 41 4D 45 2E 0D 0A Hello! ' NAME...
000190: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
0001A0: 0D 0A 42 79 20 75 73 69 6E 67 20 74 68 65 20 72 ..By using the r
0001B0: 65 76 69 73 65 64 20 20 50 45 52 46 4F 52 4D 20 evised PERFORM
0001C0: 20 63 6F 6D 6D 61 6E 64 20 20 77 65 20 20 6E 6F command we no
0001D0: 77 20 20 68 61 76 65 20 20 61 20 20 66 6F 75 72 w have a four
0001E0: 74 68 20 6D 65 74 68 6F 64 20 6F 66 0D 0A 63 6F th method of..co
0001F0: 6D 70 6C 65 74 69 6E 67 20 61 20 6C 6F 6F 70 20 mpleting a loop
Size : 512 (Real : 512)
000000: 20 20 20 45 78 61 6D 70 6C 65 20 53 65 76 65 6E Example Seven
000010: 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F ...*..* This pro
000020: 67 72 61 6D 20 73 68 6F 77 73 20 68 6F 77 20 6C gram shows how l
000030: 65 76 65 6C 20 6E 75 6D 62 65 72 73 20 61 72 65 evel numbers are
000040: 20 75 73 65 64 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 used...*..ENVIR
000050: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E ONMENT DIVISION.
000060: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
000070: 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 SECTION... SOUR
000080: 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CE-COMPUTER. Ams
000090: 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 trad 6128... OB
0000A0: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
0000B0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D mstrad 6128...*.
0000C0: 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D .DATA DIVISION..
0000D0: 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 .WORKING-STORAGE
0000E0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 54 4F SECTION...01 TO
0000F0: 54 2D 52 45 43 2E 0D 0A 20 20 30 33 20 4E 41 4D T-REC... 03 NAM
000100: 45 20 20 20 20 20 20 20 50 49 43 20 58 28 33 30 E PIC X(30
000110: 29 2E 0D 0A 20 20 30 33 20 41 44 44 52 45 53 53 )... 03 ADDRESS
000120: 2E 0D 0A 20 20 20 20 30 35 20 4C 49 4E 45 2D 31 ... 05 LINE-1
000130: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
000140: 20 20 20 30 35 20 4C 49 4E 45 2D 32 20 20 20 50 05 LINE-2 P
000150: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 20 30 IC X(30)... 0
000160: 35 20 4C 49 4E 45 2D 33 20 20 20 50 49 43 20 58 5 LINE-3 PIC X
000170: 28 33 30 29 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 (30)...*..PROCED
000180: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
000190: 0D 0A 45 4E 54 45 52 2D 4E 41 4D 45 2E 0D 0A 20 ..ENTER-NAME...
0001A0: 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 73 65 DISPLAY 'Please
0001B0: 20 45 6E 74 65 72 20 59 6F 75 72 20 4E 61 6D 65 Enter Your Name
0001C0: 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 '... DISPLAY '
0001D0: 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 4D '... ACCEPT NAM
0001E0: 45 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 E... DISPLAY '
0001F0: 27 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 41 44 44 '...*..ENTER-ADD
Size : 512 (Real : 512)
000000: 77 69 74 68 69 6E 20 61 20 43 6F 62 6F 6C 20 70 within a Cobol p
000010: 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 49 44 45 rogram.......IDE
000020: 4E 54 49 46 49 45 52 20 56 41 4C 55 45 53 2E 0D NTIFIER VALUES..
000030: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
000040: 3D 3D 3D 0D 0A 0D 0A 57 68 65 6E 20 64 61 74 61 ===....When data
000050: 20 69 73 20 65 6E 74 65 72 65 64 20 66 72 6F 6D is entered from
000060: 20 20 74 68 65 20 20 6B 65 79 62 6F 61 72 64 20 the keyboard
000070: 20 61 6E 64 20 20 73 74 6F 72 65 64 20 20 69 6E and stored in
000080: 20 61 6E 20 69 64 65 6E 74 69 66 69 65 72 20 62 an identifier b
000090: 79 0D 0A 75 73 69 6E 67 20 74 68 65 20 41 43 43 y..using the ACC
0000A0: 45 50 54 20 63 6F 6D 6D 61 6E 64 2C 20 74 68 65 EPT command, the
0000B0: 6E 20 20 74 68 65 20 20 62 61 6C 61 6E 63 65 20 n the balance
0000C0: 20 6F 66 20 20 74 68 65 20 69 64 65 6E 74 69 66 of the identif
0000D0: 69 65 72 20 69 73 20 66 69 6C 6C 65 64 0D 0A 77 ier is filled..w
0000E0: 69 74 68 20 73 70 61 63 65 73 2E 0D 0A 0D 0A 57 ith spaces.....W
0000F0: 68 61 74 21 0D 0A 0D 0A 4C 65 74 20 6D 65 20 75 hat!....Let me u
000100: 73 65 20 74 68 69 73 20 73 68 6F 72 74 20 65 78 se this short ex
000110: 61 6D 70 6C 65 20 74 6F 20 73 68 6F 77 20 77 68 ample to show wh
000120: 61 74 20 49 20 6D 65 61 6E 2C 0D 0A 0D 0A 30 31 at I mean,....01
000130: 20 4E 41 4D 45 20 50 49 43 20 58 28 33 30 29 2E NAME PIC X(30).
000140: 0D 0A 0D 0A 49 66 20 74 68 65 20 6E 61 6D 65 20 ....If the name
000150: 65 6E 74 65 72 65 64 20 69 73 20 27 46 52 45 44 entered is 'FRED
000160: 27 20 74 68 69 73 20 77 69 6C 6C 20 6F 63 63 75 ' this will occu
000170: 70 79 20 74 68 65 20 66 69 72 73 74 20 66 6F 75 py the first fou
000180: 72 20 62 79 74 65 73 20 6F 66 20 74 68 65 0D 0A r bytes of the..
000190: 69 64 65 6E 74 69 66 69 65 72 2C 20 61 6E 64 20 identifier, and
0001A0: 74 68 65 20 72 65 6D 61 69 6E 69 6E 67 20 32 36 the remaining 26
0001B0: 20 20 62 79 74 65 73 20 20 6F 66 20 20 74 68 65 bytes of the
0001C0: 20 69 64 65 6E 74 69 66 69 65 72 20 77 69 6C 6C identifier will
0001D0: 20 62 65 20 66 69 6C 6C 65 64 0D 0A 77 69 74 68 be filled..with
0001E0: 20 73 70 61 63 65 73 2E 0D 0A 0D 0A 54 68 69 73 spaces.....This
0001F0: 20 69 73 20 64 69 66 66 65 72 65 6E 74 20 66 72 is different fr
Size : 512 (Real : 512)
000000: 52 45 53 53 2E 0D 0A 20 20 44 49 53 50 4C 41 59 RESS... DISPLAY
000010: 20 27 45 6E 74 65 72 20 41 64 64 72 65 73 73 20 'Enter Address
000020: 4C 69 6E 65 20 31 27 2E 0D 0A 20 20 44 49 53 50 Line 1'... DISP
000030: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
000040: 50 54 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 49 PT LINE-1... DI
000050: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 SPLAY ' '...*..
000060: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
000070: 41 64 64 72 65 73 73 20 4C 69 6E 65 20 32 27 2E Address Line 2'.
000080: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E .. DISPLAY ' '.
000090: 0D 0A 20 20 41 43 43 45 50 54 20 4C 49 4E 45 2D .. ACCEPT LINE-
0000A0: 32 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 2... DISPLAY '
0000B0: 27 2E 0D 0A 2A 0D 0A 20 20 44 49 53 50 4C 41 59 '...*.. DISPLAY
0000C0: 20 27 45 6E 74 65 72 20 41 64 64 72 65 73 73 20 'Enter Address
0000D0: 4C 69 6E 65 20 33 27 2E 0D 0A 20 20 44 49 53 50 Line 3'... DISP
0000E0: 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 43 43 45 LAY ' '... ACCE
0000F0: 50 54 20 4C 49 4E 45 2D 33 2E 0D 0A 20 20 44 49 PT LINE-3... DI
000100: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 2A SPLAY ' '...*..*
000110: 20 44 69 73 70 6C 61 79 20 64 65 74 61 69 6C 73 Display details
000120: 20 65 6E 74 65 72 65 64 0D 0A 2A 0D 0A 53 48 4F entered..*..SHO
000130: 57 2D 44 45 54 41 49 4C 53 2D 45 4E 54 45 52 45 W-DETAILS-ENTERE
000140: 44 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 41 D... DISPLAY 'A
000150: 64 64 72 65 73 73 20 20 4C 69 6E 65 20 31 3B 20 ddress Line 1;
000160: 27 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 49 53 ' LINE-1... DIS
000170: 50 4C 41 59 20 27 20 20 20 20 20 20 20 20 20 4C PLAY ' L
000180: 69 6E 65 2D 32 3B 20 27 20 4C 49 4E 45 2D 32 2E ine-2; ' LINE-2.
000190: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 20 20 .. DISPLAY '
0001A0: 20 20 20 20 20 20 4C 69 6E 65 2D 33 3B 20 27 20 Line-3; '
0001B0: 4C 49 4E 45 2D 33 2E 0D 0A 20 20 44 49 53 50 4C LINE-3... DISPL
0001C0: 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 20 44 49 AY ' '...*.. DI
0001D0: 53 50 4C 41 59 20 27 41 6C 6C 20 54 68 65 20 44 SPLAY 'All The D
0001E0: 65 74 61 69 6C 73 3B 20 27 20 54 4F 54 2D 52 45 etails; ' TOT-RE
0001F0: 43 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 C... DISPLAY '
Size : 512 (Real : 512)
000000: 6F 6D 20 74 68 65 20 6D 65 74 68 6F 64 20 74 68 om the method th
000010: 61 74 20 42 61 73 69 63 20 75 73 65 73 2E 0D 0A at Basic uses...
000020: 0D 0A 4C 65 74 20 6D 65 20 75 73 65 20 61 20 73 ..Let me use a s
000030: 65 63 6F 6E 64 20 65 78 61 6D 70 6C 65 20 74 6F econd example to
000040: 20 64 65 6D 6F 6E 73 74 72 61 74 65 20 74 68 65 demonstrate the
000050: 20 70 72 6F 62 6C 65 6D 73 20 63 61 75 73 65 64 problems caused
000060: 2E 0D 0A 0D 0A 41 6D 65 6E 64 20 70 72 6F 67 72 .....Amend progr
000070: 61 6D 20 65 69 67 68 74 20 61 73 20 66 6F 6C 6C am eight as foll
000080: 6F 77 73 2C 0D 0A 0D 0A 57 4F 52 4B 49 4E 47 2D ows,....WORKING-
000090: 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2E STORAGE SECTION.
0000A0: 0D 0A 30 31 20 4E 41 4D 45 2E 0D 0A 20 20 30 33 ..01 NAME... 03
0000B0: 20 4E 41 4D 45 2D 54 45 53 54 20 20 50 49 43 20 NAME-TEST PIC
0000C0: 58 28 34 29 2E 0D 0A 20 20 30 33 20 52 45 53 54 X(4)... 03 REST
0000D0: 2D 4E 41 4D 45 20 20 50 49 43 20 58 28 32 36 29 -NAME PIC X(26)
0000E0: 2E 0D 0A 0D 0A 54 68 65 6E 20 63 6F 6D 70 69 6C .....Then compil
0000F0: 65 20 74 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A e the program...
000100: 0D 0A 57 68 65 6E 20 74 68 65 20 70 72 6F 67 72 ..When the progr
000110: 61 6D 20 69 73 20 63 6F 6D 70 69 6C 69 6E 67 20 am is compiling
000120: 79 6F 75 20 77 69 6C 6C 20 20 62 65 20 6E 6F 74 you will be not
000130: 69 66 69 65 64 20 6F 66 20 61 6E 20 49 54 20 65 ified of an IT e
000140: 72 72 6F 72 20 62 65 63 61 75 73 65 0D 0A 74 68 rror because..th
000150: 65 20 70 65 72 66 6F 72 6D 20 63 6F 6D 6D 61 6E e perform comman
000160: 64 20 69 73 20 6E 6F 77 20 74 72 79 69 6E 67 20 d is now trying
000170: 20 74 6F 20 20 63 6F 6D 70 61 72 65 20 61 20 66 to compare a f
000180: 6F 75 72 20 62 79 74 65 20 69 64 65 6E 74 69 66 our byte identif
000190: 69 65 72 20 77 69 74 68 0D 0A 74 68 65 20 74 68 ier with..the th
0001A0: 72 65 65 20 62 79 74 65 20 6C 69 74 65 72 61 6C ree byte literal
0001B0: 20 27 45 4E 44 27 2E 0D 0A 0D 0A 54 68 65 20 63 'END'.....The c
0001C0: 6F 6D 70 69 6C 65 72 20 69 73 20 74 65 6C 6C 69 ompiler is telli
0001D0: 6E 67 20 79 6F 75 20 74 68 61 74 20 20 74 68 65 ng you that the
0001E0: 73 65 20 20 77 69 6C 6C 20 6E 65 76 65 72 20 6D se will never m
0001F0: 61 74 63 68 20 77 68 65 6E 20 74 68 65 20 50 45 atch when the PE
Size : 512 (Real : 512)
000000: 27 2E 0D 0A 2A 0D 0A 20 20 44 49 53 50 4C 41 59 '...*.. DISPLAY
000010: 20 27 59 6F 75 72 20 4E 61 6D 65 20 69 73 20 20 'Your Name is
000020: 20 3B 20 27 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 ; ' NAME... DI
000030: 53 50 4C 41 59 20 27 20 27 2E 0D 0A 2A 0D 0A 20 SPLAY ' '...*..
000040: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
000050: 6F 67 72 61 6D 20 4E 6F 74 65 2E 0D 0A 0D 0A 54 ogram Note.....T
000060: 68 69 73 20 69 73 20 6E 6F 74 20 74 68 65 20 71 his is not the q
000070: 75 69 63 6B 65 73 74 20 6D 65 74 68 6F 64 20 20 uickest method
000080: 6F 66 20 20 77 72 69 74 69 6E 67 20 74 68 65 20 of writing the
000090: 70 72 6F 67 72 61 6D 2C 20 74 68 69 73 20 65 78 program, this ex
0000A0: 61 6D 70 6C 65 20 68 61 73 0D 0A 62 65 65 6E 20 ample has..been
0000B0: 77 72 69 74 74 65 6E 20 73 6F 20 74 68 61 74 20 written so that
0000C0: 69 74 20 69 73 20 65 61 73 79 20 74 6F 20 66 6F it is easy to fo
0000D0: 6C 6C 6F 77 20 61 6E 64 20 75 6E 64 65 72 73 74 llow and underst
0000E0: 61 6E 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 and.......PROGRA
0000F0: 4D 20 45 49 47 48 54 2E 0D 0A 3D 3D 3D 3D 3D 3D M EIGHT...======
000100: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F 67 ========....Prog
000110: 72 61 6D 20 65 69 67 68 74 20 63 6F 6E 74 69 6E ram eight contin
000120: 75 65 73 20 74 68 65 20 74 68 65 6D 65 20 6F 66 ues the theme of
000130: 20 20 65 6E 74 65 72 69 6E 67 20 61 6E 64 20 64 entering and d
000140: 69 73 70 6C 61 79 69 6E 67 20 6E 61 6D 65 73 2C isplaying names,
000150: 20 62 75 74 20 61 0D 0A 6E 65 77 20 63 6F 6E 63 but a..new conc
000160: 65 70 74 20 69 73 20 75 73 65 64 2E 0D 0A 0D 0A ept is used.....
000170: 54 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 4E The identifier N
000180: 41 4D 45 20 68 61 73 20 20 62 65 65 6E 20 20 73 AME has been s
000190: 70 6C 69 74 20 20 69 6E 74 6F 20 20 74 77 6F 20 plit into two
0001A0: 20 6E 65 77 20 69 64 65 6E 74 69 66 69 65 72 73 new identifiers
0001B0: 20 62 79 20 20 75 73 69 6E 67 0D 0A 6C 65 76 65 by using..leve
0001C0: 6C 20 6E 75 6D 62 65 72 73 2E 20 54 68 65 20 6E l numbers. The n
0001D0: 65 77 20 69 64 65 6E 74 69 66 69 65 72 73 20 61 ew identifiers a
0001E0: 72 65 20 4E 41 4D 45 2D 54 45 53 54 20 61 6E 64 re NAME-TEST and
0001F0: 20 52 45 53 54 2D 4E 41 4D 45 2E 0D 0A 0D 0A 54 REST-NAME.....T
Size : 512 (Real : 512)
000000: 52 46 4F 52 4D 0D 0A 63 6F 6D 6D 61 6E 64 20 69 RFORM..command i
000010: 73 20 74 65 73 74 69 6E 67 20 66 6F 72 20 61 20 s testing for a
000020: 6D 61 74 63 68 2E 0D 0A 0D 0A 54 68 65 20 69 64 match.....The id
000030: 65 6E 74 69 66 69 65 72 20 68 61 73 20 62 65 65 entifier has bee
000040: 6E 20 70 61 63 6B 65 64 20 77 69 74 68 20 73 70 n packed with sp
000050: 61 63 65 73 20 73 6F 20 69 74 20 61 63 74 75 61 aces so it actua
000060: 6C 6C 79 20 63 6F 6E 74 61 69 6E 73 20 27 45 4E lly contains 'EN
000070: 44 20 27 2E 0D 0A 0D 0A 49 66 20 79 6F 75 20 72 D '.....If you r
000080: 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D 20 79 un the program y
000090: 6F 75 20 20 77 69 6C 6C 20 20 66 69 6E 64 20 20 ou will find
0000A0: 74 68 61 74 20 20 79 6F 75 20 20 61 72 65 20 73 that you are s
0000B0: 74 75 63 6B 20 69 6E 20 61 6E 20 65 6E 64 6C 65 tuck in an endle
0000C0: 73 73 0D 0A 6C 6F 6F 70 2C 20 73 6F 20 70 72 65 ss..loop, so pre
0000D0: 73 73 20 43 54 52 4C 20 43 20 74 6F 20 61 62 6F ss CTRL C to abo
0000E0: 72 74 20 69 74 2E 0D 0A 0D 0A 4C 65 74 20 75 73 rt it.....Let us
0000F0: 20 63 6F 72 72 65 63 74 20 74 68 69 73 20 65 72 correct this er
000100: 72 6F 72 20 61 6E 64 20 68 65 6C 70 20 79 6F 75 ror and help you
000110: 72 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 20 r understanding
000120: 6F 66 20 74 68 65 20 73 69 74 75 61 74 69 6F 6E of the situation
000130: 2E 0D 0A 0D 0A 41 6D 65 6E 64 20 74 68 65 20 50 .....Amend the P
000140: 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 20 74 ERFORM command t
000150: 6F 2C 0D 0A 0D 0A 20 20 50 45 52 46 4F 52 4D 20 o,.... PERFORM
000160: 45 4E 54 45 52 2D 4E 41 4D 45 20 55 4E 54 49 4C ENTER-NAME UNTIL
000170: 20 4E 41 4D 45 2D 54 45 53 54 20 45 51 55 41 4C NAME-TEST EQUAL
000180: 20 27 45 4E 44 20 27 2E 0D 0A 0D 0A 61 6E 64 20 'END '.....and
000190: 63 6F 6D 70 69 6C 65 20 74 68 65 20 70 72 6F 67 compile the prog
0001A0: 72 61 6D 2E 0D 0A 0D 0A 54 68 65 20 49 54 20 65 ram.....The IT e
0001B0: 72 72 6F 72 20 6E 6F 20 6C 6F 6E 67 65 72 20 65 rror no longer e
0001C0: 78 69 73 74 73 20 61 73 20 20 62 6F 74 68 20 74 xists as both t
0001D0: 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 61 6E he identifier an
0001E0: 64 20 74 68 65 20 6C 69 74 65 72 61 6C 20 68 61 d the literal ha
0001F0: 76 65 0D 0A 74 68 65 20 73 61 6D 65 20 6E 75 6D ve..the same num
Size : 512 (Real : 512)
000000: 68 65 20 50 45 52 46 4F 52 4D 20 63 6F 6D 6D 61 he PERFORM comma
000010: 6E 64 20 68 61 73 20 62 65 65 6E 20 61 6D 65 6E nd has been amen
000020: 64 65 64 20 20 74 6F 20 61 6C 6C 6F 77 20 74 68 ded to allow th
000030: 65 20 45 4E 54 45 52 2D 4E 41 4D 45 20 70 72 6F e ENTER-NAME pro
000040: 63 65 64 75 72 65 20 74 6F 0D 0A 62 65 20 72 65 cedure to..be re
000050: 70 65 61 74 65 64 20 75 6E 74 69 6C 20 74 68 65 peated until the
000060: 20 66 69 72 73 74 20 74 68 72 65 65 20 63 68 61 first three cha
000070: 72 61 63 74 65 72 73 20 65 6E 74 65 72 65 64 20 racters entered
000080: 61 72 65 20 27 45 4E 44 27 2E 0D 0A 0D 0A 54 68 are 'END'.....Th
000090: 65 20 69 64 65 6E 74 69 66 69 65 72 20 4E 41 4D e identifier NAM
0000A0: 45 2D 54 45 53 54 20 69 73 20 75 73 65 64 20 74 E-TEST is used t
0000B0: 6F 20 61 6C 6C 6F 77 20 74 68 65 20 74 65 73 74 o allow the test
0000C0: 69 6E 67 20 6F 66 20 74 68 65 73 65 20 63 68 61 ing of these cha
0000D0: 72 61 63 74 65 72 73 2E 0D 0A 0D 0A 50 6C 65 61 racters.....Plea
0000E0: 73 65 20 6E 6F 74 65 20 74 68 61 74 20 27 45 4E se note that 'EN
0000F0: 44 27 20 6D 75 73 74 20 62 65 20 74 79 70 65 64 D' must be typed
000100: 20 69 6E 20 63 61 70 69 74 61 6C 20 28 75 70 70 in capital (upp
000110: 65 72 20 63 61 73 65 29 20 6C 65 74 74 65 72 73 er case) letters
000120: 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 .....IDENTIFICAT
000130: 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 ION DIVISION...
000140: 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 PROGRAM-ID. E
000150: 78 61 6D 70 6C 65 20 45 69 67 68 74 2E 0D 0A 2A xample Eight...*
000160: 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D ..* This program
000170: 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 65 allows you to e
000180: 6E 74 65 72 20 6E 61 6D 65 73 2C 20 64 69 73 70 nter names, disp
000190: 6C 61 79 73 20 74 68 65 20 6E 61 6D 65 2C 20 61 lays the name, a
0001A0: 6E 64 20 65 6E 64 73 0D 0A 2A 20 77 68 65 6E 20 nd ends..* when
0001B0: 27 45 4E 44 27 20 69 73 20 65 6E 74 65 72 65 64 'END' is entered
0001C0: 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E ...*..ENVIRONMEN
0001D0: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E T DIVISION...CON
0001E0: 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 54 49 FIGURATION SECTI
0001F0: 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 2D 43 4F ON... SOURCE-CO
Size : 512 (Real : 512)
000000: 62 65 72 20 6F 66 20 62 79 74 65 73 2E 0D 0A 0D ber of bytes....
000010: 0A 52 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D .Run the program
000020: 20 61 67 61 69 6E 2C 20 61 6E 64 20 20 6F 6E 63 again, and onc
000030: 65 20 20 61 67 61 69 6E 20 20 77 65 20 20 61 72 e again we ar
000040: 65 20 20 62 61 63 6B 20 74 6F 20 74 68 65 20 73 e back to the s
000050: 69 74 75 61 74 69 6F 6E 20 69 6E 0D 0A 77 68 69 ituation in..whi
000060: 63 68 20 77 68 65 6E 20 79 6F 75 20 74 79 70 65 ch when you type
000070: 20 27 45 4E 44 27 20 74 68 65 20 70 72 6F 67 72 'END' the progr
000080: 61 6D 20 65 6E 64 73 2E 0D 0A 0D 0A 0D 0A 48 4F am ends.......HO
000090: 4D 45 57 4F 52 4B 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D MEWORK...=======
0000A0: 3D 3D 0D 0A 0D 0A 59 6F 75 20 63 61 6E 6E 6F 74 ==....You cannot
0000B0: 20 6C 65 61 72 6E 20 61 20 6E 65 77 20 6C 61 6E learn a new lan
0000C0: 67 75 61 67 65 20 62 79 20 20 65 69 74 68 65 72 guage by either
0000D0: 20 72 65 61 64 69 6E 67 20 74 68 69 73 20 73 65 reading this se
0000E0: 72 69 65 73 2C 20 6F 72 20 67 65 74 74 69 6E 67 ries, or getting
0000F0: 0D 0A 61 20 67 6F 6F 64 20 62 6F 6F 6B 20 6F 75 ..a good book ou
000100: 74 20 6F 66 20 74 68 65 20 6C 69 62 72 61 72 79 t of the library
000110: 2E 0D 0A 0D 0A 59 6F 75 20 6D 75 73 74 20 75 73 .....You must us
000120: 65 20 74 68 65 20 65 78 61 6D 70 6C 65 73 20 69 e the examples i
000130: 6E 20 74 68 65 20 43 6F 62 6F 6C 20 64 6F 63 75 n the Cobol docu
000140: 6D 65 6E 74 61 74 69 6F 6E 20 66 69 6C 65 20 61 mentation file a
000150: 6E 64 20 74 68 65 20 65 78 61 6D 70 6C 65 73 0D nd the examples.
000160: 0A 69 6E 20 74 68 69 73 20 73 65 72 69 65 73 20 .in this series
000170: 74 6F 20 69 6E 63 72 65 61 73 65 20 79 6F 75 72 to increase your
000180: 20 75 6E 64 65 72 73 74 61 6E 64 69 6E 67 2C 20 understanding,
000190: 20 61 6E 64 20 77 68 65 6E 20 79 6F 75 20 66 65 and when you fe
0001A0: 65 6C 20 74 68 61 74 20 79 6F 75 0D 0A 75 6E 64 el that you..und
0001B0: 65 72 73 74 61 6E 64 20 61 20 63 6F 6D 6D 61 6E erstand a comman
0001C0: 64 20 75 73 65 20 74 68 65 20 63 6F 6D 6D 61 6E d use the comman
0001D0: 64 20 69 6E 20 79 6F 75 72 20 6F 77 6E 20 70 72 d in your own pr
0001E0: 6F 67 72 61 6D 73 20 74 6F 20 74 65 73 74 20 74 ograms to test t
0001F0: 68 61 74 20 79 6F 75 0D 0A 61 72 65 20 63 6F 72 hat you..are cor
Size : 512 (Real : 512)
000000: 65 2C 20 73 6F 20 65 69 74 68 65 72 20 65 72 61 e, so either era
000010: 73 65 20 79 6F 75 72 0D 0A 75 6E 77 61 6E 74 65 se your..unwante
000020: 64 20 66 69 6C 65 73 20 6F 72 20 74 72 61 6E 73 d files or trans
000030: 66 65 72 20 73 6F 6D 65 20 6F 66 20 74 68 65 20 fer some of the
000040: 66 69 6C 65 73 20 6F 6E 74 6F 20 61 20 73 70 61 files onto a spa
000050: 72 65 20 64 69 73 63 2E 0D 0A 0D 0A 0D 0A 48 45 re disc.......HE
000060: 52 45 20 57 45 20 41 52 45 20 41 47 41 49 4E 20 RE WE ARE AGAIN
000070: 28 61 73 20 68 61 70 70 79 20 61 73 20 63 61 6E (as happy as can
000080: 20 62 65 3F 29 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D be?)..=========
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A ==============..
0000B0: 0D 0A 54 68 69 73 20 6D 6F 6E 74 68 20 77 65 20 ..This month we
0000C0: 61 72 65 20 6C 6F 6F 6B 69 6E 67 20 20 61 74 20 are looking at
0000D0: 20 73 63 72 65 65 6E 20 20 68 61 6E 64 6C 69 6E screen handlin
0000E0: 67 20 20 61 6E 64 20 73 65 71 75 65 6E 74 69 61 g and sequentia
0000F0: 6C 20 66 69 6C 65 73 2C 20 62 75 74 0D 0A 66 69 l files, but..fi
000100: 72 73 74 20 61 6E 6F 74 68 65 72 20 76 61 72 69 rst another vari
000110: 61 74 69 6F 6E 20 6F 66 20 6F 6E 65 20 6F 66 20 ation of one of
000120: 6C 61 73 74 20 6D 6F 6E 74 68 73 20 70 72 6F 67 last months prog
000130: 72 61 6D 73 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 rams.......PROGR
000140: 41 4D 20 4E 49 4E 45 2E 0D 0A 3D 3D 3D 3D 3D 3D AM NINE...======
000150: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 59 6F 75 20 77 =======....You w
000160: 65 72 65 20 69 6E 74 72 6F 64 75 63 65 64 20 74 ere introduced t
000170: 6F 20 74 68 65 20 63 6F 6E 63 65 70 74 20 20 6F o the concept o
000180: 66 20 20 6C 65 76 65 6C 20 6E 75 6D 62 65 72 73 f level numbers
000190: 20 66 6F 72 20 69 64 65 6E 74 69 66 69 65 72 73 for identifiers
0001A0: 20 6C 61 73 74 0D 0A 6D 6F 6E 74 68 2C 20 74 68 last..month, th
0001B0: 65 73 65 20 20 68 61 76 65 20 20 61 6E 6F 74 68 ese have anoth
0001C0: 65 72 20 20 75 73 65 2C 20 20 77 68 65 6E 20 20 er use, when
0001D0: 61 6E 20 20 69 64 65 6E 74 69 66 69 65 72 20 20 an identifier
0001E0: 69 73 20 20 64 65 63 6C 61 72 65 64 20 20 61 6E is declared an
0001F0: 64 0D 0A 64 69 6D 65 6E 73 69 6F 6E 65 64 20 69 d..dimensioned i
Size : 512 (Real : 512)
000000: 72 65 63 74 2E 0D 0A 0D 0A 59 6F 75 72 20 74 61 rect.....Your ta
000010: 73 6B 2C 20 73 68 6F 75 6C 64 20 79 6F 75 20 61 sk, should you a
000020: 63 63 65 70 74 20 74 68 69 73 20 6D 69 73 73 69 ccept this missi
000030: 6F 6E 2C 20 20 69 73 20 74 6F 20 77 72 69 74 65 on, is to write
000040: 20 61 20 73 65 72 69 65 73 20 6F 66 20 73 69 6D a series of sim
000050: 70 6C 65 0D 0A 70 72 6F 67 72 61 6D 73 20 74 6F ple..programs to
000060: 20 74 72 79 20 6F 75 74 20 74 68 65 20 43 6F 62 try out the Cob
000070: 6F 6C 20 63 6F 6D 6D 61 6E 64 73 20 63 6F 76 65 ol commands cove
000080: 72 65 64 20 74 6F 20 64 61 74 65 2E 20 59 6F 75 red to date. You
000090: 72 20 63 6F 6D 70 75 74 65 72 20 77 69 6C 6C 0D r computer will.
0000A0: 0A 73 65 6C 66 20 64 65 73 74 72 75 63 74 20 69 .self destruct i
0000B0: 6E 20 73 69 78 20 73 65 63 6F 6E 64 73 2E 0D 0A n six seconds...
0000C0: 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 62 ....Clive Bellab
0000D0: 79 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 20 y, 12 Trafalgar
0000E0: 54 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 61 Terrace, Long Ea
0000F0: 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D 2C ton, Nottingham,
000100: 20 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A 2A NG10 1GP......*
000110: 2A 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 2E * END OF SERIES.
000120: 50 54 32 20 2A 2A 0D 0A 1A 20 53 45 52 49 45 53 PT2 **... SERIES
000130: 2E 50 54 32 20 2A 2A 0D 0A 1A 2A 20 54 68 69 73 .PT2 **...* This
000140: 20 70 72 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 program prompts
000150: 20 79 6F 75 20 74 6F 20 65 6E 74 65 72 20 66 69 you to enter fi
000160: 76 65 20 6E 61 6D 65 73 20 61 6E 64 20 74 68 65 ve names and the
000170: 6E 20 65 6E 64 73 2E 0D 0A 2A 0D 0A 45 4E 56 49 n ends...*..ENVI
000180: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
000190: 20 46 4F 55 52 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FOUR...========
0001A0: 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 =====....This pr
0001B0: 6F 67 72 61 6D 20 70 72 6F 6D 70 74 73 20 79 6F ogram prompts yo
0001C0: 75 20 74 6F 20 65 6E 74 65 72 20 66 69 76 65 20 u to enter five
0001D0: 20 6E 61 6D 65 73 2C 20 64 69 73 70 6C 61 79 73 names, displays
0001E0: 20 74 68 65 20 6E 61 6D 65 73 20 79 6F 75 20 68 the names you h
0001F0: 61 76 65 0D 0A 65 6E 74 65 72 65 64 20 61 6E 64 ave..entered and
Size : 512 (Real : 512)
000000: 6E 20 74 68 65 20 57 4F 52 4B 49 4E 47 2D 53 54 n the WORKING-ST
000010: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 20 6F 66 ORAGE SECTION of
000020: 20 79 6F 75 72 20 70 72 6F 67 72 61 6D 20 74 68 your program th
000030: 65 6E 20 79 6F 75 20 63 61 6E 20 61 74 0D 0A 74 en you can at..t
000040: 68 65 20 73 61 6D 65 20 74 69 6D 65 20 66 69 6C he same time fil
000050: 6C 20 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 l the identifier
000060: 20 20 77 69 74 68 20 20 61 20 20 76 61 6C 75 65 with a value
000070: 20 6F 72 20 6C 69 74 65 72 61 6C 2E 20 50 72 6F or literal. Pro
000080: 67 72 61 6D 20 6E 69 6E 65 0D 0A 73 68 6F 77 73 gram nine..shows
000090: 20 68 6F 77 20 74 68 69 73 20 69 73 20 64 6F 6E how this is don
0000A0: 65 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 e.....IDENTIFICA
0000B0: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
0000C0: 20 20 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 PROGRAM-ID.
0000D0: 45 78 61 6D 70 6C 65 20 4E 69 6E 65 2E 0D 0A 2A Example Nine...*
0000E0: 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 61 6D ..* This program
0000F0: 20 64 65 6D 6F 6E 73 74 72 61 74 65 73 20 74 68 demonstrates th
000100: 65 20 75 73 65 20 6F 66 20 50 49 43 2F 56 41 4C e use of PIC/VAL
000110: 55 45 27 73 20 63 6C 61 75 73 65 20 69 6E 20 74 UE's clause in t
000120: 68 65 0D 0A 2A 20 57 4F 52 4B 49 4E 47 2D 53 54 he..* WORKING-ST
000130: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A ORAGE SECTION...
000140: 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 *..ENVIRONMENT D
000150: 49 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 IVISION...CONFIG
000160: 55 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E URATION SECTION.
000170: 0D 0A 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 .. SOURCE-COMPU
000180: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
000190: 38 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 8... OBJECT-COM
0001A0: 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 PUTER. Amstrad 6
0001B0: 31 32 38 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 128...*..DATA DI
0001C0: 56 49 53 49 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E 47 VISION...WORKING
0001D0: 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 4F 4E -STORAGE SECTION
0001E0: 2E 0D 0A 30 31 20 50 41 47 45 2D 48 45 41 44 49 ...01 PAGE-HEADI
0001F0: 4E 47 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 2D 31 NG... 03 LINE-1
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 50 49 43 20 58 28 31 29 20 56 41 4C 55 45 PIC X(1) VALUE
000010: 20 27 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 ' '... 03 LINE
000020: 2D 32 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -2 PIC X(7) VAL
000030: 55 45 20 27 4C 69 6E 65 20 32 20 27 2E 0D 0A 20 UE 'Line 2 '...
000040: 20 30 33 20 4C 49 4E 45 2D 33 20 20 50 49 43 20 03 LINE-3 PIC
000050: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
000060: 20 32 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 2 '... 03 LINE
000070: 2D 34 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -4 PIC X(7) VAL
000080: 55 45 20 27 4C 69 6E 65 20 33 20 27 2E 0D 0A 20 UE 'Line 3 '...
000090: 20 30 33 20 4C 49 4E 45 2D 35 20 20 50 49 43 20 03 LINE-5 PIC
0000A0: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
0000B0: 20 34 20 27 2E 0D 0A 20 20 30 33 20 4C 49 4E 45 4 '... 03 LINE
0000C0: 2D 36 20 20 50 49 43 20 58 28 37 29 20 56 41 4C -6 PIC X(7) VAL
0000D0: 55 45 20 27 4C 69 6E 65 20 35 20 27 2E 0D 0A 20 UE 'Line 5 '...
0000E0: 20 30 33 20 4C 49 4E 45 2D 37 20 20 50 49 43 20 03 LINE-7 PIC
0000F0: 58 28 37 29 20 56 41 4C 55 45 20 27 4C 69 6E 65 X(7) VALUE 'Line
000100: 20 36 20 27 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 6 '...*..PROCED
000110: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
000120: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 44 49 53 50 ..START... DISP
000130: 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A 20 20 44 LAY LINE-1... D
000140: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 32 2E 0D 0A ISPLAY LINE-2...
000150: 20 20 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D 33 DISPLAY LINE-3
000160: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 4C 49 4E ... DISPLAY LIN
000170: 45 2D 34 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 E-4... DISPLAY
000180: 4C 49 4E 45 2D 35 2E 0D 0A 20 20 44 49 53 50 4C LINE-5... DISPL
000190: 41 59 20 4C 49 4E 45 2D 36 2E 0D 0A 20 20 44 49 AY LINE-6... DI
0001A0: 53 50 4C 41 59 20 4C 49 4E 45 2D 37 2E 0D 0A 0D SPLAY LINE-7....
0001B0: 0A 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D .Program Notes:.
0001C0: 0A 0D 0A 54 68 65 20 69 64 65 6E 74 69 66 69 65 ...The identifie
0001D0: 72 73 20 6C 69 6E 65 2D 31 20 74 6F 20 6C 69 6E rs line-1 to lin
0001E0: 65 2D 37 20 20 68 61 76 65 20 20 62 65 65 6E 20 e-7 have been
0001F0: 20 64 65 63 6C 61 72 65 64 20 61 6E 64 20 64 69 declared and di
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
000020: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
000030: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
000060: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
000090: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0000A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0000B0: 20 20 20 20 20 20 20 50 41 52 54 20 54 48 52 45 PART THRE
0000C0: 45 20 3A 20 46 49 4C 45 44 20 41 47 41 49 4E 20 E : FILED AGAIN
0000D0: 28 44 6F 6E 27 74 20 53 63 72 65 65 6E 29 0D 0A (Don't Screen)..
0000E0: 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 43 54 49 ......INTRODUCTI
0000F0: 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ON...===========
000100: 3D 3D 0D 0A 0D 0A 59 65 73 2C 20 68 65 72 65 20 ==....Yes, here
000110: 77 65 20 61 72 65 20 79 65 74 20 61 67 61 69 6E we are yet again
000120: 2C 20 77 69 74 68 20 20 74 68 65 20 20 74 68 69 , with the thi
000130: 72 64 20 20 69 6E 73 74 61 6C 6D 65 6E 74 20 69 rd instalment i
000140: 6E 20 74 68 65 20 66 75 6E 20 70 61 63 6B 65 64 n the fun packed
000150: 0D 0A 43 6F 62 6F 6C 20 70 72 6F 67 72 61 6D 6D ..Cobol programm
000160: 69 6E 67 20 73 65 72 69 65 73 2E 20 54 68 69 73 ing series. This
000170: 20 6D 6F 6E 74 68 20 20 77 65 20 20 61 72 65 20 month we are
000180: 20 6C 6F 6F 6B 69 6E 67 20 73 63 72 65 65 6E 20 looking screen
000190: 64 69 73 70 6C 61 79 73 20 61 6E 64 0D 0A 73 65 displays and..se
0001A0: 71 75 65 6E 74 69 61 6C 20 66 69 6C 65 73 20 75 quential files u
0001B0: 73 69 6E 67 20 43 6F 62 6F 6C 2E 0D 0A 0D 0A 0D sing Cobol......
0001C0: 0A 59 4F 55 52 20 51 55 45 52 49 45 53 20 41 4E .YOUR QUERIES AN
0001D0: 53 57 45 52 45 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D SWERED...=======
0001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
0001F0: 0A 0D 0A 44 65 61 72 20 4D 61 67 67 69 65 2C 20 ...Dear Maggie,
Size : 512 (Real : 512)
000000: 6D 65 6E 73 69 6F 6E 65 64 20 61 6E 64 0D 0A 67 mensioned and..g
000010: 69 76 65 6E 20 61 20 76 61 6C 75 65 20 61 73 20 iven a value as
000020: 70 61 72 74 20 6F 66 20 20 74 68 65 20 57 4F 52 part of the WOR
000030: 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 KING-STORAGE SEC
000040: 54 49 4F 4E 2E 20 57 68 65 6E 20 64 69 73 70 6C TION. When displ
000050: 61 79 69 6E 67 20 74 68 65 0D 0A 63 6F 6E 74 65 aying the..conte
000060: 6E 74 73 20 6F 66 20 61 6E 20 69 64 65 6E 74 69 nts of an identi
000070: 66 69 65 72 20 6F 6E 20 74 68 65 20 73 63 72 65 fier on the scre
000080: 65 6E 20 79 6F 75 20 63 61 6E 20 75 73 65 20 74 en you can use t
000090: 68 65 20 44 49 53 50 4C 41 59 20 63 6F 6D 6D 61 he DISPLAY comma
0000A0: 6E 64 20 69 6E 0D 0A 74 77 6F 20 64 69 66 66 65 nd in..two diffe
0000B0: 72 65 6E 74 20 77 61 79 73 2C 0D 0A 0D 0A 44 49 rent ways,....DI
0000C0: 53 50 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A 44 SPLAY LINE-1...D
0000D0: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 32 2E 0D 0A ISPLAY LINE-2...
0000E0: 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D 33 2E 0D DISPLAY LINE-3..
0000F0: 0A 45 74 63 0D 0A 0D 0A 54 68 69 73 20 64 69 73 .Etc....This dis
000100: 70 6C 61 79 73 20 74 68 65 20 20 63 6F 6E 74 65 plays the conte
000110: 6E 74 73 20 20 20 6F 66 20 20 74 68 65 20 20 69 nts of the i
000120: 64 65 6E 74 69 66 69 65 72 20 20 61 74 20 20 74 dentifier at t
000130: 68 65 20 20 63 75 72 72 65 6E 74 20 63 75 72 73 he current curs
000140: 6F 72 0D 0A 70 6F 73 69 74 69 6F 6E 20 61 6E 64 or..position and
000150: 20 74 68 65 6E 20 74 68 65 20 63 75 72 73 6F 72 then the cursor
000160: 20 6D 6F 76 65 73 20 64 6F 77 6E 20 6F 6E 74 6F moves down onto
000170: 20 74 68 65 20 6E 65 78 74 20 6C 69 6E 65 2E 0D the next line..
000180: 0A 0D 0A 44 49 53 50 4C 41 59 20 4C 49 4E 45 2D ...DISPLAY LINE-
000190: 31 20 4C 49 4E 45 2D 32 20 4C 49 4E 45 2D 33 2E 1 LINE-2 LINE-3.
0001A0: 0D 0A 0D 0A 54 68 69 73 20 64 69 73 70 6C 61 79 ....This display
0001B0: 73 20 74 68 65 20 63 6F 6E 74 65 6E 74 73 20 6F s the contents o
0001C0: 66 20 20 74 68 65 20 20 20 69 64 65 6E 74 69 66 f the identif
0001D0: 69 65 72 73 2C 20 20 61 6E 64 20 20 6F 6E 6C 79 iers, and only
0001E0: 20 6D 6F 76 65 20 6F 6E 74 6F 20 74 68 65 0D 0A move onto the..
0001F0: 6E 65 78 74 20 6C 69 6E 65 20 77 68 65 6E 20 74 next line when t
Size : 512 (Real : 512)
000000: 43 6F 62 6F 6C 20 69 73 20 75 6E 61 62 6C 65 20 Cobol is unable
000010: 74 6F 20 68 65 6C 70 20 79 6F 75 20 69 6E 20 72 to help you in r
000020: 65 67 61 69 6E 69 6E 67 20 79 6F 75 20 6C 6F 73 egaining you los
000030: 74 20 70 6F 70 75 6C 61 72 69 74 79 2E 0D 0A 0D t popularity....
000040: 0A 44 65 61 72 20 44 65 6E 6E 69 73 2C 20 79 6F .Dear Dennis, yo
000050: 75 72 20 68 61 69 72 20 6C 6F 73 73 20 69 73 20 ur hair loss is
000060: 6E 6F 74 68 69 6E 67 20 74 6F 20 64 6F 20 77 69 nothing to do wi
000070: 74 68 20 61 63 69 64 20 72 61 69 6E 2E 0D 0A 0D th acid rain....
000080: 0A 50 65 74 65 72 20 61 73 6B 73 2C 20 64 6F 20 .Peter asks, do
000090: 49 20 68 61 76 65 20 74 6F 20 63 6F 6D 70 69 6C I have to compil
0000A0: 65 20 61 20 20 43 6F 62 6F 6C 20 70 72 6F 67 72 e a Cobol progr
0000B0: 61 6D 20 65 61 63 68 20 74 69 6D 65 20 74 68 61 am each time tha
0000C0: 74 20 49 20 77 61 6E 74 20 74 6F 0D 0A 72 75 6E t I want to..run
0000D0: 20 69 74 2E 20 4E 6F 2E 20 4F 6E 63 65 20 79 6F it. No. Once yo
0000E0: 75 20 68 61 76 65 20 73 75 63 63 65 73 73 66 75 u have successfu
0000F0: 6C 6C 79 20 20 63 6F 6D 70 69 6C 65 64 20 20 61 lly compiled a
000100: 20 70 72 6F 67 72 61 6D 20 79 6F 75 20 63 61 6E program you can
000110: 20 72 75 6E 20 69 74 0D 0A 62 79 20 75 73 69 6E run it..by usin
000120: 67 2C 20 45 58 45 43 20 27 66 69 6C 65 6E 61 6D g, EXEC 'filenam
000130: 65 27 0D 0A 0D 0A 41 6E 6F 74 68 65 72 20 71 75 e'....Another qu
000140: 65 72 79 20 66 72 6F 6D 20 50 65 74 65 72 2C 20 ery from Peter,
000150: 77 68 65 6E 20 49 20 63 6F 6D 70 69 6C 65 20 61 when I compile a
000160: 20 70 72 6F 67 72 61 6D 20 75 73 69 6E 67 2C 20 program using,
000170: 43 4F 42 4F 4C 20 66 69 6C 65 2E 43 42 4C 2C 0D COBOL file.CBL,.
000180: 0A 49 20 67 65 74 20 74 68 65 20 65 72 72 6F 72 .I get the error
000190: 20 6D 65 73 73 61 67 65 20 4D 41 2C 20 20 77 68 message MA, wh
0001A0: 61 74 20 20 69 73 20 20 68 61 70 70 65 6E 69 6E at is happenin
0001B0: 67 2E 20 20 54 68 65 20 4D 41 20 65 72 72 6F 72 g. The MA error
0001C0: 20 6D 65 73 73 61 67 65 20 69 73 0D 0A 74 65 6C message is..tel
0001D0: 6C 69 6E 67 20 79 6F 75 20 74 68 61 74 20 79 6F ling you that yo
0001E0: 75 20 64 69 73 63 20 64 6F 65 73 20 20 69 73 20 u disc does is
0001F0: 20 73 68 6F 72 74 20 20 6F 66 20 20 73 70 61 63 short of spac
Size : 512 (Real : 512)
000000: 68 65 20 72 69 67 68 74 20 68 61 6E 64 20 65 64 he right hand ed
000010: 67 65 20 6F 66 20 20 74 68 65 20 73 63 72 65 65 ge of the scree
000020: 6E 20 69 73 20 72 65 61 63 68 65 64 2E 20 54 72 n is reached. Tr
000030: 79 20 74 68 69 73 20 6F 75 74 0D 0A 75 73 69 6E y this out..usin
000040: 67 20 70 72 6F 67 72 61 6D 20 6E 69 6E 65 2E 0D g program nine..
000050: 0A 0D 0A 0D 0A 46 55 4C 4C 20 53 54 4F 50 53 2E .....FULL STOPS.
000060: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D ..===========...
000070: 0A 53 65 76 65 72 61 6C 20 72 65 61 64 65 72 73 .Several readers
000080: 20 68 61 76 65 20 72 75 6E 20 69 6E 74 6F 20 70 have run into p
000090: 72 6F 62 6C 65 6D 73 20 62 79 20 20 6E 6F 74 20 roblems by not
0000A0: 20 70 75 74 74 69 6E 67 20 61 20 66 75 6C 6C 20 putting a full
0000B0: 73 74 6F 70 20 61 74 20 74 68 65 0D 0A 65 6E 64 stop at the..end
0000C0: 20 6F 66 20 74 68 65 20 6C 69 6E 65 2C 20 61 73 of the line, as
0000D0: 20 70 72 65 76 69 6F 75 73 6C 79 20 73 74 61 74 previously stat
0000E0: 65 64 20 74 68 69 73 20 63 61 6E 20 63 61 75 73 ed this can caus
0000F0: 65 20 6D 61 6E 79 20 70 72 6F 62 6C 65 6D 73 2E e many problems.
000100: 0D 0A 0D 0A 54 6F 20 73 68 6F 77 20 79 6F 75 20 ....To show you
000110: 77 68 61 74 20 49 20 20 6D 65 61 6E 2C 20 20 67 what I mean, g
000120: 6F 20 20 62 61 63 6B 20 20 69 6E 74 6F 20 20 56 o back into V
000130: 44 45 2C 20 20 6C 6F 61 64 20 20 6F 6E 65 20 6F DE, load one o
000140: 66 20 79 6F 75 72 20 65 78 61 6D 70 6C 65 0D 0A f your example..
000150: 70 72 6F 67 72 61 6D 73 20 61 6E 64 20 74 68 65 programs and the
000160: 6E 20 65 72 61 73 65 20 74 68 65 20 66 75 6C 6C n erase the full
000170: 20 73 74 6F 70 20 20 61 74 20 20 74 68 65 20 20 stop at the
000180: 65 6E 64 20 6F 66 20 6C 69 6E 65 20 74 77 6F 2C end of line two,
000190: 20 73 6F 20 69 74 20 6E 6F 77 0D 0A 6C 6F 6F 6B so it now..look
0001A0: 73 20 6C 69 6B 65 0D 0A 0D 0A 50 52 4F 47 52 41 s like....PROGRA
0001B0: 4D 2D 49 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 M-ID. Example
0001C0: 4E 69 6E 65 0D 0A 0D 0A 54 68 65 6E 20 63 6F 6D Nine....Then com
0001D0: 70 69 6C 65 20 74 68 65 20 70 72 6F 67 72 61 6D pile the program
0001E0: 2C 20 79 6F 75 20 77 69 6C 6C 20 20 6E 6F 74 69 , you will noti
0001F0: 63 65 20 20 61 20 63 68 61 6E 67 65 2E 20 4D 69 ce a change. Mi
Size : 512 (Real : 512)
000000: 68 65 20 20 70 6F 73 69 74 69 6F 6E 20 73 70 65 he position spe
000010: 63 69 66 69 65 64 20 62 79 20 72 20 28 72 6F 77 cified by r (row
000020: 29 20 61 6E 64 20 63 0D 0A 20 20 20 20 20 20 20 ) and c..
000030: 20 20 20 20 20 20 28 63 6F 6C 75 6D 6E 29 2E 0D (column)..
000040: 0A 0D 0A 55 6E 6C 69 6B 65 20 42 61 73 69 63 2C ...Unlike Basic,
000050: 20 79 6F 75 20 68 61 76 65 20 74 6F 20 61 64 64 you have to add
000060: 20 33 32 20 28 26 32 30 29 20 20 74 6F 20 74 68 32 (&20) to th
000070: 65 20 72 6F 77 20 61 6E 64 20 63 6F 6C 75 6D 6E e row and column
000080: 20 6E 75 6D 62 65 72 73 20 74 68 61 74 0D 0A 79 numbers that..y
000090: 6F 75 20 77 61 6E 74 20 74 6F 20 75 73 65 2C 20 ou want to use,
0000A0: 74 68 65 6E 20 20 65 6E 74 65 72 20 20 74 68 65 then enter the
0000B0: 20 20 76 61 6C 75 65 73 20 20 74 68 61 74 20 20 values that
0000C0: 79 6F 75 20 20 61 72 65 20 20 67 6F 69 6E 67 20 you are going
0000D0: 74 6F 20 75 73 65 20 61 73 0D 0A 63 68 61 72 61 to use as..chara
0000E0: 63 74 65 72 73 2E 0D 0A 0D 0A 49 65 2E 20 20 52 cters.....Ie. R
0000F0: 6F 77 20 31 30 2C 20 43 6F 6C 75 6D 6E 20 32 30 ow 10, Column 20
000100: 0D 0A 0D 0A 41 64 64 20 33 32 20 74 6F 20 74 68 ....Add 32 to th
000110: 65 20 72 6F 77 20 6E 75 6D 62 65 72 2C 20 67 69 e row number, gi
000120: 76 69 6E 67 20 34 32 2C 20 6C 6F 6F 6B 20 61 74 ving 42, look at
000130: 20 74 68 65 20 61 73 63 69 69 20 63 6F 64 65 20 the ascii code
000140: 74 61 62 6C 65 20 28 63 68 61 70 74 65 72 0D 0A table (chapter..
000150: 37 2C 20 70 61 67 65 20 38 29 20 6F 66 20 79 6F 7, page 8) of yo
000160: 75 72 20 6D 61 6E 75 61 6C 2C 20 34 32 20 69 73 ur manual, 42 is
000170: 20 61 20 22 2A 22 2E 0D 0A 0D 0A 41 64 64 20 33 a "*".....Add 3
000180: 32 20 74 6F 20 74 68 65 20 63 6F 6C 75 6D 6E 20 2 to the column
000190: 6E 75 6D 62 65 72 2C 20 67 69 76 69 6E 67 20 20 number, giving
0001A0: 35 32 2C 20 63 68 65 63 6B 20 74 68 65 20 61 73 52, check the as
0001B0: 63 69 69 20 63 6F 64 65 20 74 61 62 6C 65 20 61 cii code table a
0001C0: 67 61 69 6E 2C 0D 0A 35 32 20 69 73 20 61 20 22 gain,..52 is a "
0001D0: 34 22 2E 0D 0A 0D 0A 53 6F 20 74 6F 20 6D 6F 76 4".....So to mov
0001E0: 65 20 74 6F 20 72 6F 77 20 31 30 2C 20 63 6F 6C e to row 10, col
0001F0: 75 6D 6E 20 32 30 2C 20 77 65 20 75 73 65 2C 0D umn 20, we use,.
Size : 512 (Real : 512)
000000: 73 73 69 6E 67 20 6F 75 74 20 74 68 65 20 66 75 ssing out the fu
000010: 6C 6C 0D 0A 73 74 6F 70 20 77 69 6C 6C 20 63 61 ll..stop will ca
000020: 75 73 65 20 61 70 70 72 6F 78 20 32 2C 35 30 30 use approx 2,500
000030: 20 65 72 72 6F 72 73 20 74 6F 20 20 62 65 20 72 errors to be r
000040: 65 70 6F 72 74 65 64 20 62 79 20 74 68 65 20 63 eported by the c
000050: 6F 6D 70 69 6C 65 72 2C 20 74 68 65 73 65 0D 0A ompiler, these..
000060: 65 72 72 6F 72 73 20 77 69 6C 6C 20 74 61 6B 65 errors will take
000070: 20 61 62 6F 75 74 20 74 77 65 6E 74 79 20 6D 69 about twenty mi
000080: 6E 75 74 65 73 20 20 74 6F 20 20 6C 69 73 74 20 nutes to list
000090: 20 6F 75 74 2E 20 49 66 20 79 6F 75 20 6C 69 6B out. If you lik
0000A0: 65 20 77 61 74 63 68 69 6E 67 0D 0A 70 61 69 6E e watching..pain
0000B0: 74 20 64 72 79 20 79 6F 75 20 77 69 6C 6C 20 65 t dry you will e
0000C0: 6E 6A 6F 79 20 77 61 74 63 68 69 6E 67 20 74 68 njoy watching th
0000D0: 65 6D 20 6C 69 73 74 65 64 20 6F 6E 20 74 68 65 em listed on the
0000E0: 20 73 63 72 65 65 6E 2C 20 69 66 20 79 6F 75 20 screen, if you
0000F0: 70 72 65 66 65 72 0D 0A 74 6F 20 61 62 6F 72 74 prefer..to abort
000100: 20 74 68 65 20 70 72 6F 67 72 61 6D 20 74 68 65 the program the
000110: 6E 2C 0D 0A 0D 0A 50 72 65 73 73 20 43 54 52 4C n,....Press CTRL
000120: 20 26 20 53 20 20 20 74 6F 20 73 74 6F 70 20 74 & S to stop t
000130: 68 65 20 6C 69 73 74 69 6E 67 2E 0D 0A 0D 0A 20 he listing.....
000140: 20 20 20 20 20 43 54 52 4C 20 26 20 43 20 20 20 CTRL & C
000150: 74 6F 20 61 62 6F 72 74 20 74 68 65 20 63 6F 6D to abort the com
000160: 70 69 6C 65 72 2E 0D 0A 0D 0A 0D 0A 53 65 76 65 piler.......Seve
000170: 72 61 6C 20 6F 74 68 65 72 20 43 50 2F 4D 20 63 ral other CP/M c
000180: 6F 6D 6D 61 6E 64 73 20 61 72 65 20 77 6F 72 74 ommands are wort
000190: 68 20 72 65 6D 65 6D 62 65 72 69 6E 67 2C 0D 0A h remembering,..
0001A0: 0D 0A 20 20 20 20 20 20 43 74 72 6C 20 26 20 51 .. Ctrl & Q
0001B0: 20 2D 20 52 65 73 75 6D 65 20 74 68 65 20 73 63 - Resume the sc
0001C0: 72 65 65 6E 20 6F 75 74 70 75 74 0D 0A 0D 0A 20 reen output....
0001D0: 20 20 20 20 20 43 74 72 6C 20 26 20 50 20 2D 20 Ctrl & P -
0001E0: 45 63 68 6F 73 20 73 63 72 65 65 6E 20 6F 75 74 Echos screen out
0001F0: 70 75 74 20 74 6F 20 61 20 70 72 69 6E 74 65 72 put to a printer
Size : 512 (Real : 512)
000000: 0A 0D 0A 45 53 43 20 22 59 2A 34 22 0D 0A 0D 0A ...ESC "Y*4"....
000010: 54 68 65 20 74 6F 70 20 6C 65 66 74 20 68 61 6E The top left han
000020: 64 20 63 6F 72 6E 65 72 20 6F 66 20 20 74 68 65 d corner of the
000030: 20 20 73 63 72 65 65 6E 20 20 69 73 20 20 72 6F screen is ro
000040: 77 20 20 30 2C 20 63 6F 6C 75 6D 6E 20 30 2E 20 w 0, column 0.
000050: 54 68 65 20 62 6F 74 74 6F 6D 0D 0A 72 69 67 68 The bottom..righ
000060: 74 20 68 61 6E 64 20 63 6F 72 6E 65 72 20 28 77 t hand corner (w
000070: 68 65 6E 20 69 6E 20 6D 6F 64 65 20 32 29 2C 20 hen in mode 2),
000080: 69 73 20 72 6F 77 20 32 34 2C 20 63 6F 6C 75 6D is row 24, colum
000090: 6E 20 37 39 2E 0D 0A 0D 0A 0D 0A 53 43 52 45 45 n 79.......SCREE
0000A0: 4E 20 48 41 4E 44 4C 49 4E 47 20 2D 20 54 48 45 N HANDLING - THE
0000B0: 20 50 52 4F 42 4C 45 4D 2E 0D 0A 3D 3D 3D 3D 3D PROBLEM...=====
0000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 6F 72 =========....Wor
0000E0: 64 20 70 72 6F 63 65 73 73 6F 72 73 20 64 6F 20 d processors do
0000F0: 6E 6F 74 20 6C 65 74 20 79 6F 75 20 65 6E 74 65 not let you ente
000100: 72 20 61 6E 20 45 53 43 20 63 68 61 72 61 63 74 r an ESC charact
000110: 65 72 20 61 73 20 70 61 72 74 20 6F 66 20 74 68 er as part of th
000120: 65 20 74 65 78 74 2C 0D 0A 73 6F 20 77 65 20 6E e text,..so we n
000130: 65 65 64 20 61 6E 20 61 6C 74 65 72 6E 61 74 69 eed an alternati
000140: 76 65 20 6D 65 74 68 6F 64 20 6F 66 20 69 6E 74 ve method of int
000150: 72 6F 64 75 63 69 6E 67 20 74 68 65 20 45 53 43 roducing the ESC
000160: 20 63 68 61 72 61 63 74 65 72 20 69 6E 74 6F 20 character into
000170: 74 68 65 0D 0A 74 65 78 74 20 66 69 6C 65 2E 0D the..text file..
000180: 0A 0D 0A 53 43 52 45 45 4E 20 48 41 4E 44 4C 49 ...SCREEN HANDLI
000190: 4E 47 20 2D 20 54 48 45 20 53 4F 4C 55 54 49 4F NG - THE SOLUTIO
0001A0: 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D N...============
0001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0001C0: 3D 3D 3D 0D 0A 0D 0A 54 6F 20 67 65 74 20 74 68 ===....To get th
0001D0: 65 20 45 53 43 20 63 68 61 72 61 63 74 65 72 20 e ESC character
0001E0: 69 6E 74 6F 20 74 68 65 20 74 65 78 74 20 20 66 into the text f
0001F0: 69 6C 65 20 77 65 20 6E 65 65 64 20 74 6F 20 67 ile we need to g
Size : 512 (Real : 512)
000000: 2E 20 57 68 65 6E 20 79 6F 75 20 64 6F 20 74 68 . When you do th
000010: 69 73 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 is..
000020: 20 20 20 20 20 63 6F 72 72 65 63 74 6C 79 20 79 correctly y
000030: 6F 75 20 67 65 74 20 61 20 6E 69 63 65 20 62 65 ou get a nice be
000040: 65 70 2E 20 50 72 65 73 73 20 63 6F 6E 74 72 6F ep. Press contro
000050: 6C 20 2B 20 50 20 61 67 61 69 6E 0D 0A 20 20 20 l + P again..
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6F to
000070: 20 73 77 69 74 63 68 20 74 68 69 73 20 66 65 61 switch this fea
000080: 74 75 72 65 20 6F 66 66 2E 0D 0A 0D 0A 20 20 20 ture off.....
000090: 20 20 20 43 74 72 6C 20 26 20 5B 20 2D 20 45 73 Ctrl & [ - Es
0000A0: 63 61 70 65 20 28 77 65 6C 6C 20 77 6F 72 74 68 cape (well worth
0000B0: 20 72 65 6D 65 6D 62 65 72 69 6E 67 29 0D 0A 0D remembering)...
0000C0: 0A 54 68 65 20 36 31 32 38 20 6D 61 6E 75 61 6C .The 6128 manual
0000D0: 20 63 6F 6E 74 61 69 6E 73 20 61 20 66 75 6C 6C contains a full
0000E0: 20 6C 69 73 74 20 61 6E 64 20 65 78 70 6C 61 6E list and explan
0000F0: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 63 6F 6E ation of the con
000100: 74 72 6F 6C 20 63 6F 64 65 73 2E 0D 0A 28 4F 4D trol codes...(OM
000110: 47 20 65 6E 6A 6F 79 65 64 20 74 68 69 73 20 62 G enjoyed this b
000120: 69 74 20 61 73 20 20 68 65 20 20 69 73 20 20 66 it as he is f
000130: 6F 72 65 76 65 72 20 20 74 65 6C 6C 69 6E 67 20 orever telling
000140: 6D 65 20 74 68 61 74 20 70 75 6E 63 74 75 61 74 me that punctuat
000150: 69 6F 6E 20 61 6E 64 0D 0A 73 70 65 6C 6C 69 6E ion and..spellin
000160: 67 20 61 72 65 20 69 6D 70 6F 72 74 61 6E 74 2E g are important.
000170: 29 0D 0A 0D 0A 0D 0A 53 43 52 45 45 4E 20 48 41 )......SCREEN HA
000180: 4E 44 4C 49 4E 47 20 49 4E 54 52 4F 44 55 43 54 NDLING INTRODUCT
000190: 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION...==========
0001A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0001B0: 3D 3D 3D 0D 0A 0D 0A 53 63 72 65 65 6E 20 68 61 ===....Screen ha
0001C0: 6E 64 6C 69 6E 67 20 75 73 69 6E 67 20 74 68 69 ndling using thi
0001D0: 73 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 69 6E s public domain
0001E0: 20 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 43 version of C
0001F0: 6F 62 6F 6C 20 69 73 20 6D 65 73 73 79 20 61 6E obol is messy an
Size : 512 (Real : 512)
000000: 6F 20 62 61 63 6B 20 69 6E 74 6F 20 42 61 73 69 o back into Basi
000010: 63 0D 0A 61 6E 64 20 77 72 69 74 65 20 61 20 73 c..and write a s
000020: 68 6F 72 74 20 70 72 6F 67 72 61 6D 20 74 6F 20 hort program to
000030: 73 74 6F 72 65 20 74 68 65 20 45 53 43 20 63 68 store the ESC ch
000040: 61 72 61 63 74 65 72 20 61 73 20 61 20 74 65 78 aracter as a tex
000050: 74 20 63 68 61 72 61 63 74 65 72 2E 0D 0A 0D 0A t character.....
000060: 54 68 69 73 20 70 72 6F 67 72 61 6D 20 73 74 6F This program sto
000070: 72 65 73 20 45 53 43 20 22 45 22 20 45 53 43 20 res ESC "E" ESC
000080: 22 48 22 20 74 6F 20 64 69 73 63 20 61 73 20 61 "H" to disc as a
000090: 20 74 65 78 74 20 66 69 6C 65 20 63 61 6C 6C 65 text file calle
0000A0: 64 20 22 43 4C 53 22 2E 0D 0A 0D 0A 45 53 43 20 d "CLS".....ESC
0000B0: 22 45 22 20 45 53 43 20 22 48 22 20 68 61 76 65 "E" ESC "H" have
0000C0: 20 74 68 65 20 73 61 6D 65 20 65 66 66 65 63 74 the same effect
0000D0: 20 75 6E 64 65 72 20 43 50 2F 4D 20 61 73 20 43 under CP/M as C
0000E0: 4C 53 20 64 6F 65 73 20 69 6E 20 42 61 73 69 63 LS does in Basic
0000F0: 2E 0D 0A 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 .....10 OPENOUT
000100: 22 43 4C 53 22 0D 0A 32 30 20 50 52 49 4E 54 20 "CLS"..20 PRINT
000110: 23 39 2C 43 48 52 24 28 32 37 29 3B 22 45 22 3B #9,CHR$(27);"E";
000120: 43 48 52 24 28 32 37 29 3B 22 48 22 3B 0D 0A 33 CHR$(27);"H";..3
000130: 30 20 43 4C 4F 53 45 4F 55 54 0D 0A 34 30 20 45 0 CLOSEOUT..40 E
000140: 4E 44 0D 0A 0D 0A 59 6F 75 20 6D 61 79 20 62 65 ND....You may be
000150: 20 77 6F 6E 64 65 72 69 6E 67 20 77 68 61 74 20 wondering what
000160: 20 74 68 65 20 20 45 53 43 20 20 63 68 61 72 61 the ESC chara
000170: 63 74 65 72 20 20 6C 6F 6F 6B 73 20 6C 69 6B 65 cter looks like
000180: 20 77 68 65 6E 20 75 73 69 6E 67 20 56 44 45 2C when using VDE,
000190: 0D 0A 77 65 6C 6C 20 69 74 20 69 73 20 74 68 65 ..well it is the
0001A0: 20 6C 65 66 74 20 68 61 6E 64 20 20 73 71 75 61 left hand squa
0001B0: 72 65 20 20 62 72 61 63 6B 65 74 20 20 22 5B 22 re bracket "["
0001C0: 20 20 69 6E 20 69 6E 76 65 72 73 65 20 76 69 64 in inverse vid
0001D0: 65 6F 20 6D 6F 64 65 2E 20 4E 6F 77 0D 0A 62 61 eo mode. Now..ba
0001E0: 63 6B 20 74 6F 20 43 50 2F 4D 20 61 6E 64 20 65 ck to CP/M and e
0001F0: 6E 74 65 72 20 74 68 65 20 56 44 45 20 77 6F 72 nter the VDE wor
Size : 512 (Real : 512)
000000: 64 0D 0A 6C 6F 6E 67 20 77 69 6E 64 65 64 2E 20 d..long winded.
000010: 54 68 65 20 6E 65 78 74 20 73 65 63 74 69 6F 6E The next section
000020: 20 65 78 70 6C 61 69 6E 73 20 20 77 68 61 74 20 explains what
000030: 20 74 68 65 20 70 72 6F 62 6C 65 6D 20 69 73 2C the problem is,
000040: 20 61 6E 64 20 74 68 65 20 62 65 73 74 0D 0A 6D and the best..m
000050: 65 74 68 6F 64 20 6F 66 20 6F 76 65 72 63 6F 6D ethod of overcom
000060: 69 6E 67 20 74 68 65 20 70 72 6F 62 6C 65 6D 2E ing the problem.
000070: 20 54 68 65 20 20 73 63 72 65 65 6E 20 68 61 6E The screen han
000080: 64 6C 69 6E 67 20 63 6F 6E 74 72 6F 6C 20 63 6F dling control co
000090: 64 65 73 20 75 6E 64 65 72 0D 0A 43 50 2F 4D 20 des under..CP/M
0000A0: 61 72 65 20 69 73 73 75 65 64 20 61 73 20 20 45 are issued as E
0000B0: 53 43 20 20 63 6F 6D 6D 61 6E 64 73 2C 20 20 74 SC commands, t
0000C0: 68 65 73 65 20 20 61 72 65 20 20 66 75 6C 6C 79 hese are fully
0000D0: 20 65 78 70 6C 61 69 6E 65 64 20 69 6E 20 63 68 explained in ch
0000E0: 61 70 74 65 72 0D 0A 73 65 76 65 6E 2C 20 70 61 apter..seven, pa
0000F0: 67 65 20 34 38 20 20 6F 66 20 79 6F 75 72 20 41 ge 48 of your A
000100: 6D 73 74 72 61 64 20 36 31 32 38 20 6D 61 6E 75 mstrad 6128 manu
000110: 61 6C 2E 0D 0A 0D 0A 54 68 65 20 6D 61 69 6E 20 al.....The main
000120: 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 20 61 72 control codes ar
000130: 65 2C 0D 0A 0D 0A 45 53 43 20 22 45 22 20 20 20 e,....ESC "E"
000140: 20 20 20 43 6C 65 61 72 20 74 68 65 20 73 63 72 Clear the scr
000150: 65 65 6E 2E 0D 0A 0D 0A 45 53 43 20 22 48 22 20 een.....ESC "H"
000160: 20 20 20 20 20 4D 6F 76 65 20 74 68 65 20 63 75 Move the cu
000170: 72 73 6F 72 20 74 6F 20 74 68 65 20 68 6F 6D 65 rsor to the home
000180: 20 70 6F 73 69 74 69 6F 6E 2C 28 6C 69 6E 65 20 position,(line
000190: 30 2C 20 63 6F 6C 75 6D 6E 20 30 29 2E 0D 0A 0D 0, column 0)....
0001A0: 0A 45 53 43 20 22 62 22 20 6E 20 20 20 20 53 65 .ESC "b" n Se
0001B0: 74 20 74 68 65 20 69 6E 6B 20 74 6F 20 63 6F 6C t the ink to col
0001C0: 6F 75 72 20 6E 2E 0D 0A 0D 0A 45 53 43 20 22 63 our n.....ESC "c
0001D0: 22 20 6E 20 20 20 20 53 65 74 20 74 68 65 20 70 " n Set the p
0001E0: 61 70 65 72 20 74 6F 20 63 6F 6C 6F 75 72 20 6E aper to colour n
0001F0: 2E 0D 0A 0D 0A 45 53 43 20 22 70 22 20 20 20 20 .....ESC "p"
Size : 512 (Real : 512)
000000: 64 20 70 72 6F 63 65 73 73 69 6E 67 20 70 72 6F d processing pro
000010: 67 72 61 6D 2E 0D 0A 0D 0A 50 72 65 73 73 20 45 gram.....Press E
000020: 53 43 20 74 68 65 6E 20 52 2C 0D 0A 0D 0A 54 68 SC then R,....Th
000030: 69 73 20 77 69 6C 6C 20 70 72 6F 6D 70 74 20 79 is will prompt y
000040: 6F 75 20 74 6F 20 65 6E 74 65 72 20 74 68 65 20 ou to enter the
000050: 6E 61 6D 65 20 6F 66 20 61 20 66 69 6C 65 20 74 name of a file t
000060: 68 61 74 20 79 6F 75 20 77 69 73 68 20 74 6F 20 hat you wish to
000070: 6D 65 72 67 65 20 61 74 0D 0A 74 68 65 20 63 75 merge at..the cu
000080: 72 72 65 6E 74 20 63 75 72 73 6F 72 20 70 6F 73 rrent cursor pos
000090: 69 74 69 6F 6E 2E 20 54 79 70 65 20 69 6E 20 43 ition. Type in C
0000A0: 4C 53 2C 20 20 74 68 65 6E 20 70 72 65 73 73 20 LS, then press
0000B0: 74 68 65 20 52 45 54 55 52 4E 20 6B 65 79 2E 20 the RETURN key.
0000C0: 54 68 69 73 0D 0A 77 69 6C 6C 20 6C 6F 61 64 20 This..will load
0000D0: 74 68 65 20 45 53 43 20 22 45 22 20 45 53 43 20 the ESC "E" ESC
0000E0: 20 22 48 22 20 20 63 68 61 72 61 63 74 65 72 73 "H" characters
0000F0: 20 61 74 20 74 68 65 20 63 75 72 72 65 6E 74 20 at the current
000100: 63 75 72 73 6F 72 20 70 6F 73 69 74 69 6F 6E 2E cursor position.
000110: 0D 0A 59 6F 75 20 63 61 6E 20 75 73 65 20 74 68 ..You can use th
000120: 69 73 20 6D 65 74 68 6F 64 20 74 6F 20 6C 6F 61 is method to loa
000130: 64 20 74 68 65 20 43 4C 53 20 63 68 61 72 61 63 d the CLS charac
000140: 74 65 72 73 20 69 6E 74 6F 20 74 68 65 20 74 65 ters into the te
000150: 78 74 20 66 69 6C 65 20 65 61 63 68 0D 0A 74 69 xt file each..ti
000160: 6D 65 20 74 68 61 74 20 79 6F 75 20 6E 65 65 64 me that you need
000170: 20 74 68 65 6D 2E 0D 0A 0D 0A 0D 0A 55 53 49 4E them.......USIN
000180: 47 20 54 48 45 20 53 4F 4C 55 54 49 4F 4E 2E 0D G THE SOLUTION..
000190: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
0001A0: 3D 3D 3D 3D 0D 0A 0D 0A 54 79 70 65 20 69 6E 20 ====....Type in
0001B0: 70 72 6F 67 72 61 6D 20 6E 69 6E 65 20 75 73 69 program nine usi
0001C0: 6E 67 20 56 44 45 2C 20 20 61 6E 64 20 61 6D 65 ng VDE, and ame
0001D0: 6E 64 20 74 68 65 20 74 68 65 20 57 4F 52 4B 49 nd the the WORKI
0001E0: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
0001F0: 4F 4E 0D 0A 74 6F 20 69 6E 63 6C 75 64 65 20 74 ON..to include t
Size : 512 (Real : 512)
000000: 20 20 49 6E 76 65 72 73 65 20 76 69 64 65 6F 20 Inverse video
000010: 4F 4E 20 28 73 77 61 70 73 20 74 68 65 20 70 65 ON (swaps the pe
000020: 6E 20 61 6E 64 20 70 61 70 65 72 20 63 6F 6C 6F n and paper colo
000030: 75 72 73 29 2E 0D 0A 0D 0A 45 53 43 20 22 71 22 urs).....ESC "q"
000040: 20 20 20 20 20 20 49 6E 76 65 72 73 65 20 76 69 Inverse vi
000050: 64 65 6F 20 4F 46 46 2E 0D 0A 0D 0A 45 53 43 20 deo OFF.....ESC
000060: 22 33 22 20 6E 20 20 20 20 53 65 74 20 74 68 65 "3" n Set the
000070: 20 73 63 72 65 65 6E 20 6D 6F 64 65 20 74 6F 20 screen mode to
000080: 6E 2E 20 28 6E 20 69 73 20 74 68 65 20 73 63 72 n. (n is the scr
000090: 65 65 6E 20 6D 6F 64 65 20 70 6C 75 73 20 33 32 een mode plus 32
0000A0: 29 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 20 )....
0000B0: 20 20 54 68 65 72 65 66 6F 72 65 20 20 6D 6F 64 Therefore mod
0000C0: 65 20 30 2C 20 20 6E 3D 33 32 0D 0A 20 20 20 20 e 0, n=32..
0000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0000E0: 20 20 20 20 6D 6F 64 65 20 31 20 20 20 6E 3D 33 mode 1 n=3
0000F0: 33 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 3..
000100: 20 20 20 20 20 20 20 20 20 20 20 6D 6F 64 65 20 mode
000110: 32 20 20 20 6E 3D 33 34 0D 0A 0D 0A 43 68 61 6E 2 n=34....Chan
000120: 67 69 6E 67 20 74 68 65 20 6D 6F 64 65 20 20 75 ging the mode u
000130: 6E 64 65 72 20 20 43 50 2F 4D 20 20 64 6F 65 73 nder CP/M does
000140: 20 20 6E 6F 74 20 20 6D 6F 76 65 20 20 74 68 65 not move the
000150: 20 20 63 75 72 73 6F 72 20 20 74 6F 20 20 74 68 cursor to th
000160: 65 20 68 6F 6D 65 0D 0A 70 6F 73 69 74 69 6F 6E e home..position
000170: 2C 20 73 6F 20 74 6F 20 75 73 65 20 74 68 69 73 , so to use this
000180: 20 63 6F 6D 6D 61 6E 64 20 69 6E 20 74 68 65 20 command in the
000190: 20 73 61 6D 65 20 20 77 61 79 20 61 73 20 42 61 same way as Ba
0001A0: 73 69 63 20 77 65 20 6E 65 65 64 20 74 6F 20 61 sic we need to a
0001B0: 64 64 0D 0A 45 53 43 20 22 48 22 20 74 6F 20 74 dd..ESC "H" to t
0001C0: 68 65 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 20 he control code
0001D0: 73 65 71 75 65 6E 63 65 2E 0D 0A 0D 0A 45 53 43 sequence.....ESC
0001E0: 20 22 59 22 20 72 20 63 20 20 4D 6F 76 65 20 74 "Y" r c Move t
0001F0: 68 65 20 63 75 72 73 6F 72 20 20 74 6F 20 20 74 he cursor to t
Size : 512 (Real : 512)
000000: 68 69 73 20 6E 65 77 20 6C 69 6E 65 2E 0D 0A 0D his new line....
000010: 0A 30 31 20 50 41 47 45 2D 48 45 41 44 49 4E 47 .01 PAGE-HEADING
000020: 2E 0D 0A 20 20 30 33 20 43 4C 53 20 20 20 20 20 ... 03 CLS
000030: 50 49 43 20 58 28 34 29 20 20 56 41 4C 55 45 20 PIC X(4) VALUE
000040: 20 27 0D 0A 20 20 30 33 20 4C 49 4E 45 2D 31 20 '.. 03 LINE-1
000050: 20 65 74 63 0D 0A 0D 0A 54 68 65 6E 20 70 6F 73 etc....Then pos
000060: 69 74 69 6F 6E 20 74 68 65 20 63 75 72 73 6F 72 ition the cursor
000070: 20 61 74 20 74 68 65 20 65 6E 64 20 20 6F 66 20 at the end of
000080: 20 74 68 65 20 20 6E 65 77 20 20 6C 69 6E 65 2C the new line,
000090: 20 61 6E 64 20 75 73 65 20 74 68 65 20 45 53 43 and use the ESC
0000A0: 20 52 0D 0A 63 6F 6D 6D 61 6E 64 20 74 6F 20 6D R..command to m
0000B0: 65 72 67 65 20 74 68 65 20 43 4C 53 20 74 65 78 erge the CLS tex
0000C0: 74 20 66 69 6C 65 2E 20 54 68 65 20 6C 69 6E 65 t file. The line
0000D0: 20 77 69 6C 6C 20 6E 6F 77 20 6C 6F 6F 6B 20 6C will now look l
0000E0: 69 6B 65 20 74 68 69 73 2C 0D 0A 0D 0A 20 20 30 ike this,.... 0
0000F0: 33 20 43 4C 53 20 20 20 20 20 50 49 43 20 58 28 3 CLS PIC X(
000100: 34 29 20 20 56 41 4C 55 45 20 20 27 5B 45 5B 48 4) VALUE '[E[H
000110: 0D 0A 0D 0A 41 64 64 20 74 68 65 20 73 69 6E 67 ....Add the sing
000120: 6C 65 20 71 75 6F 74 61 74 69 6F 6E 20 6D 61 72 le quotation mar
000130: 6B 20 61 6E 64 20 74 68 65 20 66 75 6C 6C 20 73 k and the full s
000140: 74 6F 70 20 74 6F 20 67 69 76 65 2C 0D 0A 0D 0A top to give,....
000150: 20 20 30 33 20 43 4C 53 20 20 20 20 20 50 49 43 03 CLS PIC
000160: 20 58 28 34 29 20 20 56 41 4C 55 45 20 20 27 5B X(4) VALUE '[
000170: 45 5B 48 27 2E 0D 0A 0D 0A 54 68 65 6E 20 61 6D E[H'.....Then am
000180: 65 6E 64 20 74 68 65 20 50 52 4F 43 45 44 55 52 end the PROCEDUR
000190: 45 20 44 49 56 49 53 49 4F 4E 20 74 6F 20 44 49 E DIVISION to DI
0001A0: 53 50 4C 41 59 20 74 68 65 20 6E 65 77 20 69 64 SPLAY the new id
0001B0: 65 6E 74 69 66 69 65 72 2E 0D 0A 0D 0A 50 52 4F entifier.....PRO
0001C0: 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E 2E CEDURE DIVISION.
0001D0: 0D 0A 2A 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 44 ..*..START... D
0001E0: 49 53 50 4C 41 59 20 43 4C 53 2E 0D 0A 20 20 44 ISPLAY CLS... D
0001F0: 49 53 50 4C 41 59 20 4C 49 4E 45 2D 31 2E 0D 0A ISPLAY LINE-1...
Size : 512 (Real : 512)
000000: 20 54 48 45 20 49 4E 54 52 4F 44 55 43 54 49 4F THE INTRODUCTIO
000010: 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D N...============
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000030: 3D 3D 3D 3D 3D 0D 0A 0D 0A 43 6F 62 6F 6C 20 73 =====....Cobol s
000040: 75 70 70 6F 72 74 73 20 62 6F 74 68 20 53 65 71 upports both Seq
000050: 75 65 6E 74 69 61 6C 20 61 6E 64 20 52 61 6E 64 uential and Rand
000060: 6F 6D 20 61 63 63 65 73 73 20 66 69 6C 65 20 68 om access file h
000070: 61 6E 64 6C 69 6E 67 2E 0D 0A 0D 0A 53 65 71 75 andling.....Sequ
000080: 65 6E 74 69 61 6C 20 66 69 6C 65 73 20 61 72 65 ential files are
000090: 20 6F 70 65 6E 65 64 20 61 73 20 65 69 74 68 65 opened as eithe
0000A0: 72 20 49 4E 50 55 54 20 6F 72 20 4F 55 54 50 55 r INPUT or OUTPU
0000B0: 54 2C 20 52 61 6E 64 6F 6D 20 61 63 63 65 73 73 T, Random access
0000C0: 20 66 69 6C 65 73 0D 0A 61 72 65 20 6F 70 65 6E files..are open
0000D0: 65 64 20 61 73 20 49 4E 50 55 54 2D 4F 55 54 50 ed as INPUT-OUTP
0000E0: 55 54 2E 0D 0A 0D 0A 43 6F 62 6F 6C 20 61 6C 6C UT.....Cobol all
0000F0: 6F 77 73 20 79 6F 75 20 74 6F 20 68 61 76 65 20 ows you to have
000100: 6D 6F 72 65 20 74 68 61 6E 20 20 6F 6E 65 20 20 more than one
000110: 66 69 6C 65 20 6F 70 65 6E 20 61 74 20 74 68 65 file open at the
000120: 20 73 61 6D 65 20 74 69 6D 65 2C 20 42 61 73 69 same time, Basi
000130: 63 0D 0A 72 65 73 74 72 69 63 74 73 20 79 6F 75 c..restricts you
000140: 20 74 6F 20 68 61 76 69 6E 67 20 6F 6E 6C 79 20 to having only
000150: 6F 6E 65 20 66 69 6C 65 20 6F 70 65 6E 20 61 74 one file open at
000160: 20 61 6E 79 20 70 6F 69 6E 74 20 69 6E 20 74 69 any point in ti
000170: 6D 65 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D me.......PROGRAM
000180: 20 54 57 45 4C 56 45 2E 0D 0A 3D 3D 3D 3D 3D 3D TWELVE...======
000190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 =========....Thi
0001A0: 73 20 70 72 6F 67 72 61 6D 20 61 73 6B 73 20 79 s program asks y
0001B0: 6F 75 20 74 6F 20 65 6E 74 65 72 20 6E 61 6D 65 ou to enter name
0001C0: 73 20 20 74 68 65 6E 20 20 73 74 6F 72 65 73 20 s then stores
0001D0: 20 74 68 65 20 6E 61 6D 65 73 20 74 6F 20 64 69 the names to di
0001E0: 73 63 20 69 6E 20 61 0D 0A 64 61 74 61 20 66 69 sc in a..data fi
0001F0: 6C 65 2E 20 54 68 65 20 70 72 6F 67 72 61 6D 20 le. The program
Size : 512 (Real : 512)
000000: 20 20 65 74 63 2E 0D 0A 0D 0A 54 68 65 6E 20 63 etc.....Then c
000010: 6F 6D 70 69 6C 65 20 61 6E 64 20 72 75 6E 20 74 ompile and run t
000020: 68 65 20 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 57 he program.....W
000030: 68 65 6E 20 79 6F 75 20 63 6F 6D 70 69 6C 65 20 hen you compile
000040: 74 68 65 20 74 65 78 74 20 66 69 6C 65 20 20 74 the text file t
000050: 68 65 20 20 63 6F 6E 74 72 6F 6C 20 63 68 61 72 he control char
000060: 61 63 74 65 72 73 20 74 68 61 74 20 79 6F 75 20 acters that you
000070: 61 72 65 20 75 73 69 6E 67 0D 0A 77 69 6C 6C 20 are using..will
000080: 62 65 20 61 63 74 69 6F 6E 65 64 20 61 73 20 74 be actioned as t
000090: 68 65 20 20 70 72 6F 67 72 61 6D 20 20 63 6F 6D he program com
0000A0: 70 69 6C 65 73 2E 20 20 53 6F 20 68 61 6C 66 20 piles. So half
0000B0: 77 61 79 20 74 68 72 6F 75 67 68 20 63 6F 6D 70 way through comp
0000C0: 69 6C 69 6E 67 0D 0A 74 68 69 73 20 70 72 6F 67 iling..this prog
0000D0: 72 61 6D 20 74 68 65 20 73 63 72 65 65 6E 20 77 ram the screen w
0000E0: 69 6C 6C 20 62 65 20 63 6C 65 61 72 65 64 20 28 ill be cleared (
0000F0: 64 6F 20 6E 6F 74 20 77 6F 72 72 79 20 61 62 6F do not worry abo
000100: 75 74 20 74 68 69 73 29 2E 0D 0A 0D 0A 57 68 65 ut this).....Whe
000110: 6E 20 79 6F 75 20 72 75 6E 20 74 68 65 20 70 72 n you run the pr
000120: 6F 67 72 61 6D 20 74 68 65 20 73 63 72 65 65 6E ogram the screen
000130: 20 20 77 69 6C 6C 20 20 62 65 20 63 6C 65 61 72 will be clear
000140: 65 64 20 61 6E 64 20 74 68 65 20 63 75 72 73 6F ed and the curso
000150: 72 20 6D 6F 76 65 64 0D 0A 74 6F 20 74 68 65 20 r moved..to the
000160: 68 6F 6D 65 20 70 6F 73 69 74 69 6F 6E 20 62 65 home position be
000170: 66 6F 72 65 20 74 68 65 20 20 74 65 78 74 20 20 fore the text
000180: 69 73 20 20 64 69 73 70 6C 61 79 65 64 20 6F 6E is displayed on
000190: 20 74 68 65 20 73 63 72 65 65 6E 2E 20 47 6F 20 the screen. Go
0001A0: 6F 6E 2C 0D 0A 74 72 79 20 69 74 2C 20 49 27 6C on,..try it, I'l
0001B0: 6C 20 77 61 69 74 20 68 65 72 65 20 66 6F 72 20 l wait here for
0001C0: 79 6F 75 2E 2E 2E 2E 2E 2E 2E 20 4F 6B 2C 20 48 you....... Ok, H
0001D0: 61 70 70 79 20 74 68 61 74 20 69 74 20 77 6F 72 appy that it wor
0001E0: 6B 73 3F 0D 0A 0D 0A 49 66 20 74 68 69 73 20 64 ks?....If this d
0001F0: 6F 65 73 20 20 6E 6F 74 20 20 77 6F 72 6B 2C 20 oes not work,
Size : 512 (Real : 512)
000000: 69 6E 74 72 6F 64 75 63 65 73 20 79 6F 75 20 74 introduces you t
000010: 6F 20 6D 6F 72 65 20 6E 65 77 20 73 65 63 74 69 o more new secti
000020: 6F 6E 73 20 61 6E 64 20 63 6F 6D 6D 61 6E 64 73 ons and commands
000030: 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 .....INPUT-OUTPU
000040: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 54 68 T SECTION.....Th
000050: 69 73 20 66 6F 72 6D 73 20 70 61 72 74 20 6F 66 is forms part of
000060: 20 74 68 65 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 the ENVIRONMENT
000070: 20 44 49 56 49 53 49 4F 4E 2C 20 61 6E 64 20 61 DIVISION, and a
000080: 6C 6C 6F 77 73 20 79 6F 75 20 74 6F 20 73 70 65 llows you to spe
000090: 63 69 66 79 20 74 68 65 0D 0A 27 66 69 6C 65 6E cify the..'filen
0000A0: 61 6D 65 27 2E 0D 0A 0D 0A 46 6F 72 6D 61 74 3A ame'.....Format:
0000B0: 20 20 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 INPUT-OUTPUT S
0000C0: 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 20 20 20 20 20 ECTION.....
0000D0: 20 20 20 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C FILE-CONTROL
0000E0: 2E 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 53 45 ..... SE
0000F0: 4C 45 43 54 20 27 70 72 6F 67 72 61 6D 20 66 69 LECT 'program fi
000100: 6C 65 20 6E 61 6D 65 27 20 41 53 53 49 47 4E 0D le name' ASSIGN.
000110: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
000120: 20 27 64 69 73 63 20 66 69 6C 65 20 6E 61 6D 65 'disc file name
000130: 27 2E 0D 0A 0D 0A 44 69 73 63 20 66 69 6C 65 73 '.....Disc files
000140: 20 61 72 65 20 61 6C 6C 6F 63 61 74 65 64 20 74 are allocated t
000150: 77 6F 20 6E 61 6D 65 73 2C 0D 0A 0D 0A 41 3E 20 wo names,....A>
000160: 54 68 65 20 6E 61 6D 65 20 74 68 61 74 20 74 68 The name that th
000170: 65 20 66 69 6C 65 20 69 73 20 72 65 66 65 72 72 e file is referr
000180: 65 64 20 74 6F 20 69 6E 20 74 68 65 20 70 72 6F ed to in the pro
000190: 67 72 61 6D 2E 0D 0A 42 3E 20 54 68 65 20 6E 61 gram...B> The na
0001A0: 6D 65 20 74 68 61 74 20 74 68 65 20 66 69 6C 65 me that the file
0001B0: 20 69 73 20 73 61 76 65 64 20 74 6F 20 74 68 65 is saved to the
0001C0: 20 64 69 73 63 20 61 73 2E 0D 0A 0D 0A 0D 0A 46 disc as.......F
0001D0: 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 3D 3D ILE SECTION...==
0001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 ===========....T
0001F0: 68 65 20 46 49 4C 45 20 53 45 43 54 49 4F 4E 20 he FILE SECTION
Size : 512 (Real : 512)
000000: 20 72 65 61 64 20 20 74 68 72 6F 75 67 68 20 20 read through
000010: 74 68 69 73 20 20 73 65 63 74 69 6F 6E 20 20 61 this section a
000020: 67 61 69 6E 2C 20 20 61 6E 64 20 20 64 6F 20 69 gain, and do i
000030: 74 0D 0A 63 6F 72 72 65 63 74 6C 79 20 74 68 65 t..correctly the
000040: 20 73 65 63 6F 6E 64 20 74 69 6D 65 2E 0D 0A 0D second time....
000050: 0A 0D 0A 43 4F 4E 54 49 4E 55 49 4E 47 20 54 48 ...CONTINUING TH
000060: 45 20 53 4F 4C 55 54 49 4F 4E 2E 0D 0A 3D 3D 3D E SOLUTION...===
000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000080: 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 65 20 6E 6F 77 20 =====....We now
000090: 68 61 76 65 20 74 6F 20 63 72 65 61 74 65 20 61 have to create a
0000A0: 20 72 61 6E 67 65 20 20 6F 66 20 20 74 65 78 74 range of text
0000B0: 20 20 66 69 6C 65 73 20 20 74 6F 20 63 6F 70 65 files to cope
0000C0: 20 77 69 74 68 20 74 68 65 20 6F 74 68 65 72 20 with the other
0000D0: 45 53 43 0D 0A 63 6F 64 65 73 20 74 68 61 74 20 ESC..codes that
0000E0: 77 65 20 77 61 6E 74 20 74 6F 20 75 73 65 20 20 we want to use
0000F0: 69 6E 20 20 74 68 65 20 20 70 72 6F 67 72 61 6D in the program
000100: 2E 20 20 49 20 20 73 61 76 65 20 74 68 65 73 65 . I save these
000110: 20 74 6F 20 64 69 73 63 20 77 69 74 68 20 61 0D to disc with a.
000120: 0A 73 69 6D 69 6C 61 72 20 6E 61 6D 65 20 74 6F .similar name to
000130: 20 74 68 65 69 72 20 42 61 73 69 63 20 65 71 75 their Basic equ
000140: 69 76 61 6C 65 6E 74 73 20 6F 72 20 61 20 6D 65 ivalents or a me
000150: 61 6E 69 6E 67 66 75 6C 20 66 69 6C 65 20 6E 61 aningful file na
000160: 6D 65 2E 0D 0A 0D 0A 49 65 3A 20 4D 4F 44 45 2D me.....Ie: MODE-
000170: 30 20 20 20 20 20 20 20 20 20 20 20 20 50 45 4E 0 PEN
000180: 0D 0A 20 20 20 20 50 41 50 45 52 20 20 20 20 20 .. PAPER
000190: 20 20 20 20 20 20 20 20 4C 4F 43 41 54 45 0D 0A LOCATE..
0001A0: 20 20 20 20 49 4E 56 45 52 53 45 2E 4F 4E 20 20 INVERSE.ON
0001B0: 20 20 20 20 20 20 49 4E 56 45 52 53 45 2E 4F 46 INVERSE.OF
0001C0: 46 0D 0A 20 20 20 20 65 74 63 0D 0A 0D 0A 54 68 F.. etc....Th
0001D0: 69 73 20 42 61 73 69 63 20 70 72 6F 67 72 61 6D is Basic program
0001E0: 20 73 65 74 73 20 75 70 20 74 68 65 20 63 6F 6E sets up the con
0001F0: 74 72 6F 6C 20 20 63 6F 64 65 73 20 74 6F 20 63 trol codes to c
Size : 512 (Real : 512)
000000: 66 6F 72 6D 73 20 70 61 72 74 20 20 6F 66 20 20 forms part of
000010: 74 68 65 20 20 44 41 54 41 20 20 44 49 56 49 53 the DATA DIVIS
000020: 49 4F 4E 20 61 6E 64 20 63 6F 6E 74 61 69 6E 73 ION and contains
000030: 20 74 68 65 20 66 69 6C 65 0D 0A 64 65 73 63 72 the file..descr
000040: 69 70 74 69 6F 6E 20 28 46 44 29 2E 0D 0A 0D 0A iption (FD).....
000050: 46 6F 72 6D 61 74 2E 20 20 46 49 4C 45 20 53 45 Format. FILE SE
000060: 43 54 49 4F 4E 2E 0D 0A 20 20 20 20 20 20 20 20 CTION...
000070: 20 46 44 20 66 69 6C 65 6E 61 6D 65 2E 0D 0A 20 FD filename...
000080: 20 20 20 20 20 20 20 20 30 31 20 69 64 65 6E 74 01 ident
000090: 69 66 69 65 72 2E 0D 0A 20 20 20 20 20 20 20 20 ifier...
0000A0: 20 20 20 30 33 20 69 64 65 6E 74 69 66 69 65 72 03 identifier
0000B0: 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 PIC X(30)...
0000C0: 20 20 20 20 20 20 20 20 30 33 20 69 64 65 6E 74 03 ident
0000D0: 69 66 69 65 72 20 50 49 43 20 58 28 33 32 29 2E ifier PIC X(32).
0000E0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 65 74 63 .. etc
0000F0: 0D 0A 0D 0A 0D 0A 57 52 49 54 45 2E 0D 0A 3D 3D ......WRITE...==
000100: 3D 3D 3D 3D 0D 0A 0D 0A 57 72 69 74 65 20 61 20 ====....Write a
000110: 72 65 63 6F 72 64 20 74 6F 20 74 68 65 20 64 69 record to the di
000120: 73 63 20 66 69 6C 65 2C 20 74 68 65 20 72 65 63 sc file, the rec
000130: 6F 72 64 73 20 61 72 65 20 73 74 6F 72 65 64 20 ords are stored
000140: 69 73 20 61 73 63 69 69 20 66 6F 72 6D 61 74 2E is ascii format.
000150: 0D 0A 0D 0A 46 6F 72 6D 61 74 2E 20 20 57 52 49 ....Format. WRI
000160: 54 45 20 69 64 65 6E 74 69 66 69 65 72 2E 0D 0A TE identifier...
000170: 0D 0A 54 68 65 20 69 64 65 6E 74 69 66 69 65 72 ..The identifier
000180: 20 74 68 61 74 20 69 73 20 77 72 69 74 74 65 6E that is written
000190: 20 20 74 6F 20 20 64 69 73 63 20 20 69 73 20 20 to disc is
0001A0: 74 68 65 20 69 64 65 6E 74 69 66 69 65 72 20 74 the identifier t
0001B0: 68 61 74 20 68 61 73 20 62 65 65 6E 0D 0A 73 70 hat has been..sp
0001C0: 65 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 46 ecified in the F
0001D0: 49 4C 45 20 53 45 43 54 49 4F 4E 20 77 69 74 68 ILE SECTION with
0001E0: 20 74 68 65 20 30 31 20 6C 65 76 65 6C 20 6E 75 the 01 level nu
0001F0: 6D 62 65 72 2E 0D 0A 0D 0A 0D 0A 49 46 2E 2E 2E mber.......IF...
Size : 512 (Real : 512)
000000: 68 61 6E 67 65 20 74 68 65 20 73 63 72 65 65 6E hange the screen
000010: 20 6D 6F 64 65 20 74 6F 0D 0A 6D 6F 64 65 20 31 mode to..mode 1
000020: 20 61 6E 64 20 70 6F 73 69 74 69 6F 6E 73 20 74 and positions t
000030: 68 65 20 63 75 72 73 6F 72 20 61 74 20 74 68 65 he cursor at the
000040: 20 68 6F 6D 65 20 70 6F 73 69 74 69 6F 6E 2E 20 home position.
000050: 54 68 65 20 68 6F 6D 65 20 70 6F 73 69 74 69 6F The home positio
000060: 6E 20 69 73 0D 0A 74 68 65 20 74 6F 70 20 6C 65 n is..the top le
000070: 66 74 20 68 61 6E 64 20 63 6F 72 6E 65 72 20 6F ft hand corner o
000080: 66 20 74 68 65 20 73 63 72 65 65 6E 20 28 72 6F f the screen (ro
000090: 77 20 30 2C 20 63 6F 6C 75 6D 6E 20 30 29 2E 0D w 0, column 0)..
0000A0: 0A 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 22 4D ...10 OPENOUT "M
0000B0: 4F 44 45 2D 31 22 0D 0A 32 30 20 50 52 49 4E 54 ODE-1"..20 PRINT
0000C0: 20 23 39 2C 43 48 52 24 28 32 37 29 3B 22 33 22 #9,CHR$(27);"3"
0000D0: 3B 22 21 22 3B 43 48 52 24 28 32 37 29 3B 22 48 ;"!";CHR$(27);"H
0000E0: 22 3B 0D 0A 33 30 20 43 4C 4F 53 45 4F 55 54 0D ";..30 CLOSEOUT.
0000F0: 0A 34 30 20 45 4E 44 0D 0A 0D 0A 54 68 65 20 74 .40 END....The t
000100: 65 78 74 20 66 69 6C 65 73 20 20 63 6F 6E 74 61 ext files conta
000110: 69 6E 69 6E 67 20 20 74 68 65 73 65 20 20 65 78 ining these ex
000120: 61 6D 70 6C 65 73 20 20 61 72 65 20 20 61 76 61 amples are ava
000130: 69 6C 61 62 6C 65 20 20 66 72 6F 6D 20 20 74 68 ilable from th
000140: 65 20 46 53 57 0D 0A 6C 69 62 72 61 72 79 20 75 e FSW..library u
000150: 6E 64 65 72 20 45 78 61 6D 70 6C 65 31 2E 43 42 nder Example1.CB
000160: 4C 0D 0A 0D 0A 0D 0A 41 4E 4F 54 48 45 52 20 53 L......ANOTHER S
000170: 4F 4C 55 54 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D OLUTION...======
000180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 57 ===========....W
000190: 65 20 68 61 76 65 20 74 6F 20 75 73 65 20 74 68 e have to use th
0001A0: 69 73 20 20 73 6F 6C 75 74 69 6F 6E 20 20 62 65 is solution be
0001B0: 63 61 75 73 65 20 20 6F 66 20 20 74 68 65 20 6C cause of the l
0001C0: 69 6D 69 74 61 74 69 6F 6E 73 20 69 6D 70 6F 73 imitations impos
0001D0: 65 64 20 62 79 20 74 68 65 0D 0A 70 75 62 6C 69 ed by the..publi
0001E0: 63 20 64 6F 6D 61 69 6E 20 76 65 72 73 69 6F 6E c domain version
0001F0: 20 6F 66 20 43 6F 62 6F 6C 2C 20 20 68 6F 77 65 of Cobol, howe
Size : 512 (Real : 512)
000000: 2E 45 4E 44 2D 49 46 2E 0D 0A 3D 3D 3D 3D 3D 3D .END-IF...======
000010: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 65 20 49 =======....The I
000020: 46 20 63 6F 6D 6D 61 6E 64 20 77 6F 72 6B 73 20 F command works
000030: 69 73 20 61 20 73 69 6D 69 6C 61 72 20 6D 61 6E is a similar man
000040: 6E 65 72 20 20 74 6F 20 49 46 20 69 6E 20 42 61 ner to IF in Ba
000050: 73 69 63 2C 20 74 68 65 20 49 46 20 73 74 61 74 sic, the IF stat
000060: 65 6D 65 6E 74 0D 0A 6D 75 73 74 20 62 65 20 63 ement..must be c
000070: 6F 6E 63 6C 75 64 65 64 20 77 69 74 68 20 61 6E oncluded with an
000080: 20 45 4E 44 2D 49 46 20 63 6F 6D 6D 61 6E 64 2E END-IF command.
000090: 0D 0A 0D 0A 4E 65 73 74 65 64 20 49 46 20 63 6F ....Nested IF co
0000A0: 6D 6D 61 6E 64 73 20 61 72 65 20 73 75 70 70 6F mmands are suppo
0000B0: 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 4C 49 53 54 49 rted.......LISTI
0000C0: 4E 47 20 46 4F 52 20 50 52 4F 47 52 41 4D 20 54 NG FOR PROGRAM T
0000D0: 57 45 4C 56 45 2E 0D 0A 0D 0A 49 44 45 4E 54 49 WELVE.....IDENTI
0000E0: 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F FICATION DIVISIO
0000F0: 4E 2E 0D 0A 20 20 50 52 4F 47 52 41 4D 2D 49 44 N... PROGRAM-ID
000100: 2E 20 20 20 45 78 61 6D 70 6C 65 20 54 77 65 6C . Example Twel
000110: 76 65 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 ve...*..* This p
000120: 72 6F 67 72 61 6D 20 61 6C 6C 6F 77 73 20 79 6F rogram allows yo
000130: 75 20 74 6F 20 69 6E 70 75 74 20 6E 61 6D 65 73 u to input names
000140: 2C 20 74 68 65 6E 20 73 74 6F 72 65 73 20 74 68 , then stores th
000150: 65 20 6E 61 6D 65 73 20 65 6E 74 65 72 65 64 0D e names entered.
000160: 0A 2A 20 69 6E 20 61 20 64 69 73 6B 20 66 69 6C .* in a disk fil
000170: 65 20 63 61 6C 6C 65 64 20 4E 41 4D 45 53 2E 44 e called NAMES.D
000180: 41 54 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D AT...*..ENVIRONM
000190: 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A ENT DIVISION...*
0001A0: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
0001B0: 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 SECTION... SOUR
0001C0: 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CE-COMPUTER. Ams
0001D0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 trad 6128... OB
0001E0: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
0001F0: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D mstrad 6128...*.
Size : 512 (Real : 512)
000000: 76 65 72 20 20 69 66 20 20 79 6F 75 20 20 64 65 ver if you de
000010: 63 69 64 65 20 20 74 6F 20 62 75 79 20 61 20 62 cide to buy a b
000020: 65 74 74 65 72 0D 0A 69 6D 70 6C 65 6D 65 6E 74 etter..implement
000030: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 6C 61 6E ation of the lan
000040: 67 75 61 67 65 2C 20 79 6F 75 20 73 68 6F 75 6C guage, you shoul
000050: 64 20 63 68 65 63 6B 20 74 68 61 74 20 69 74 20 d check that it
000060: 68 61 73 20 62 65 74 74 65 72 20 73 63 72 65 65 has better scree
000070: 6E 0D 0A 68 61 6E 64 6C 69 6E 67 2E 20 54 68 65 n..handling. The
000080: 20 4D 69 63 72 6F 73 6F 66 74 20 76 65 72 73 69 Microsoft versi
000090: 6F 6E 20 20 6F 66 20 20 43 6F 62 6F 6C 20 20 73 on of Cobol s
0000A0: 75 70 70 6F 72 74 73 20 66 75 6C 6C 20 73 63 72 upports full scr
0000B0: 65 65 6E 20 68 61 6E 64 6C 69 6E 67 2C 0D 0A 70 een handling,..p
0000C0: 72 69 6E 74 69 6E 67 20 6F 66 20 74 65 78 74 20 rinting of text
0000D0: 61 6E 64 20 6D 75 6C 74 69 70 6C 65 20 20 66 69 and multiple fi
0000E0: 6C 65 20 20 68 61 6E 64 6C 69 6E 67 2E 20 20 43 le handling. C
0000F0: 68 65 63 6B 20 77 68 61 74 20 79 6F 75 20 61 72 heck what you ar
000100: 65 20 67 65 74 74 69 6E 67 0D 0A 62 65 66 6F 72 e getting..befor
000110: 65 20 79 6F 75 20 62 75 79 2C 20 6D 69 73 74 61 e you buy, mista
000120: 6B 65 73 20 63 61 6E 20 62 65 20 65 78 70 65 6E kes can be expen
000130: 73 69 76 65 2E 0D 0A 0D 0A 0D 0A 48 4F 4D 45 57 sive.......HOMEW
000140: 4F 52 4B 20 4F 4E 45 2E 0D 0A 3D 3D 3D 3D 3D 3D ORK ONE...======
000150: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 48 61 76 65 20 =======....Have
000160: 61 20 67 6F 20 61 74 20 63 72 65 61 74 69 6E 67 a go at creating
000170: 20 74 68 65 20 20 74 65 78 74 20 20 66 69 6C 65 the text file
000180: 73 20 20 66 6F 72 20 20 74 68 65 20 6F 74 68 65 s for the othe
000190: 72 20 75 73 65 66 75 6C 20 43 50 2F 4D 20 63 6F r useful CP/M co
0001A0: 6E 74 72 6F 6C 0D 0A 63 6F 6D 6D 61 6E 64 73 2E ntrol..commands.
0001B0: 20 54 68 65 6E 20 61 6D 65 6E 64 20 73 6F 6D 65 Then amend some
0001C0: 20 6F 66 20 79 6F 75 72 20 65 78 69 73 74 69 6E of your existin
0001D0: 67 20 70 72 6F 67 72 61 6D 73 20 74 6F 20 74 72 g programs to tr
0001E0: 79 20 74 68 65 6D 20 6F 75 74 2E 0D 0A 0D 0A 0D y them out......
0001F0: 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 20 2D .FILE HANDLING -
Size : 512 (Real : 512)
000000: 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 .INPUT-OUTPUT SE
000010: 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D 43 4F 4E CTION...FILE-CON
000020: 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 43 54 20 TROL... SELECT
000030: 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E NAME-FILE ASSIGN
000040: 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A 2A 0D 0A NAMES.DAT...*..
000050: 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A DATA DIVISION...
000060: 2A 0D 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E *..FILE SECTION.
000070: 0D 0A 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D ..FD NAME-FILE..
000080: 0A 20 30 31 20 4E 41 4D 45 2D 54 4F 2D 53 54 4F . 01 NAME-TO-STO
000090: 52 45 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 20 RE... 03 NAME
0000A0: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A PIC X(30)...*
0000B0: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
0000C0: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 2A 0D 0A 20 E SECTION...*..
0000D0: 20 30 31 20 52 45 50 4C 59 20 20 20 20 20 50 49 01 REPLY PI
0000E0: 43 20 58 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 55 C X...*..PROCEDU
0000F0: 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D RE DIVISION...*.
000100: 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E 20 .START... OPEN
000110: 4F 55 54 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 OUTPUT NAME-FILE
000120: 2E 0D 0A 2A 0D 0A 45 4E 54 45 52 2D 4E 41 4D 45 ...*..ENTER-NAME
000130: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 ... DISPLAY ' '
000140: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 50 6C ... DISPLAY 'Pl
000150: 65 61 73 65 20 45 6E 74 65 72 20 41 20 4E 61 6D ease Enter A Nam
000160: 65 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 e'... DISPLAY '
000170: 20 27 2E 0D 0A 20 20 41 43 43 45 50 54 20 4E 41 '... ACCEPT NA
000180: 4D 45 2E 0D 0A 2A 0D 0A 57 52 49 54 45 2D 4E 41 ME...*..WRITE-NA
000190: 4D 45 2D 54 4F 2D 44 49 53 43 2E 0D 0A 20 20 57 ME-TO-DISC... W
0001A0: 52 49 54 45 20 4E 41 4D 45 2D 54 4F 2D 53 54 4F RITE NAME-TO-STO
0001B0: 52 45 2E 0D 0A 2A 0D 0A 43 4F 4E 54 49 4E 55 45 RE...*..CONTINUE
0001C0: 2D 59 45 53 2F 4E 4F 2E 0D 0A 20 20 4D 4F 56 45 -YES/NO... MOVE
0001D0: 20 27 20 27 20 54 4F 20 52 45 50 4C 59 2E 0D 0A ' ' TO REPLY...
0001E0: 20 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 DISPLAY 'Enter
0001F0: 20 43 20 74 6F 20 43 6F 6E 74 69 6E 75 65 2C 20 C to Continue,
Size : 512 (Real : 512)
000000: 20 76 61 6C 75 65 0D 0A 79 6F 75 20 61 72 65 20 value..you are
000010: 74 65 73 74 69 6E 67 20 66 6F 72 2E 0D 0A 0D 0A testing for.....
000020: 49 66 20 79 6F 75 20 72 75 6E 20 70 72 6F 67 72 If you run progr
000030: 61 6D 20 74 68 69 72 74 65 65 6E 20 28 31 32 61 am thirteen (12a
000040: 29 20 74 77 69 63 65 20 69 74 20 77 69 6C 6C 20 ) twice it will
000050: 6F 70 65 72 61 74 65 20 63 6F 72 72 65 63 74 6C operate correctl
000060: 79 2C 20 68 6F 77 65 76 65 72 0D 0A 69 66 20 79 y, however..if y
000070: 6F 75 20 72 65 6D 6F 76 65 20 74 68 65 20 4D 4F ou remove the MO
000080: 56 45 20 27 20 27 20 54 4F 20 46 49 4C 45 2D 54 VE ' ' TO FILE-T
000090: 45 53 54 20 63 6F 6D 6D 61 6E 64 20 61 6E 64 20 EST command and
0000A0: 63 6F 6D 70 69 6C 65 20 74 68 65 20 70 72 6F 67 compile the prog
0000B0: 72 61 6D 20 6F 6E 0D 0A 74 68 65 20 73 65 63 6F ram on..the seco
0000C0: 6E 64 20 6F 63 63 61 73 69 6F 6E 20 74 68 61 74 nd occasion that
0000D0: 20 69 74 20 20 69 73 20 20 72 75 6E 20 20 20 69 it is run i
0000E0: 74 20 20 77 69 6C 6C 20 6E 6F 74 20 77 6F 72 6B t will not work
0000F0: 20 63 6F 72 72 65 63 74 6C 79 20 62 65 63 61 75 correctly becau
000100: 73 65 0D 0A 46 49 4C 45 2D 54 45 53 54 20 73 74 se..FILE-TEST st
000110: 69 6C 6C 20 63 6F 6E 74 61 69 6E 73 20 74 68 65 ill contains the
000120: 20 27 45 27 20 66 72 6F 6D 20 74 68 65 20 74 68 'E' from the th
000130: 65 20 66 69 72 73 74 20 74 69 6D 65 20 74 68 61 e first time tha
000140: 74 20 69 74 20 77 61 73 20 72 75 6E 2E 0D 0A 0D t it was run....
000150: 0A 54 72 79 20 69 74 20 74 6F 20 73 65 65 20 77 .Try it to see w
000160: 68 61 74 20 49 20 6D 65 61 6E 2E 0D 0A 0D 0A 4F hat I mean.....O
000170: 6E 65 20 6E 65 77 20 63 6F 6D 6D 61 6E 64 20 68 ne new command h
000180: 61 73 20 62 65 65 6E 20 75 73 65 64 2C 0D 0A 0D as been used,...
000190: 0A 52 45 41 44 20 27 66 69 6C 65 27 20 45 4E 44 .READ 'file' END
0001A0: 20 27 73 74 61 74 65 6D 65 6E 74 27 2E 0D 0A 0D 'statement'....
0001B0: 0A 46 6F 72 6D 61 74 3A 0D 0A 0D 0A 52 45 41 44 .Format:....READ
0001C0: 20 27 66 69 6C 65 27 20 69 6E 73 74 72 75 63 74 'file' instruct
0001D0: 73 20 74 68 65 20 63 6F 6D 70 75 74 65 72 20 20 s the computer
0001E0: 74 6F 20 20 72 65 61 64 20 20 61 20 20 72 65 63 to read a rec
0001F0: 6F 72 64 20 66 72 6F 6D 20 74 68 65 20 73 70 65 ord from the spe
Size : 512 (Real : 512)
000000: 45 6E 74 65 72 20 45 20 74 6F 20 45 6E 64 27 2E Enter E to End'.
000010: 0D 0A 2A 0D 0A 41 43 43 45 50 54 2D 52 45 50 4C ..*..ACCEPT-REPL
000020: 59 2D 45 4E 54 45 52 45 44 2E 0D 0A 20 20 41 43 Y-ENTERED... AC
000030: 43 45 50 54 20 52 45 50 4C 59 2E 0D 0A 20 20 49 CEPT REPLY... I
000040: 46 20 52 45 50 4C 59 20 45 51 55 41 4C 20 27 43 F REPLY EQUAL 'C
000050: 27 20 20 47 4F 20 45 4E 54 45 52 2D 4E 41 4D 45 ' GO ENTER-NAME
000060: 20 20 20 20 20 45 4E 44 2D 49 46 2E 0D 0A 20 20 END-IF...
000070: 49 46 20 52 45 50 4C 59 20 45 51 55 41 4C 20 27 IF REPLY EQUAL '
000080: 45 27 20 20 47 4F 20 45 4E 44 2D 50 52 4F 47 52 E' GO END-PROGR
000090: 41 4D 4D 45 20 20 45 4E 44 2D 49 46 2E 0D 0A 20 AMME END-IF...
0000A0: 20 47 4F 20 43 4F 4E 54 49 4E 55 45 2D 59 45 53 GO CONTINUE-YES
0000B0: 2F 4E 4F 2E 0D 0A 2A 0D 0A 45 4E 44 2D 50 52 4F /NO...*..END-PRO
0000C0: 47 52 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F 53 45 GRAMME... CLOSE
0000D0: 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 53 NAME-FILE... S
0000E0: 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 54 79 70 65 TOP RUN.....Type
0000F0: 20 69 6E 2C 20 63 6F 6D 70 69 6C 65 20 61 6E 64 in, compile and
000100: 20 72 75 6E 20 74 68 65 20 70 72 6F 67 72 61 6D run the program
000110: 20 79 6F 75 20 20 77 69 6C 6C 20 6E 6F 77 20 68 you will now h
000120: 61 76 65 20 61 20 6E 65 77 20 74 65 78 74 20 66 ave a new text f
000130: 69 6C 65 20 6F 6E 0D 0A 79 6F 75 72 20 64 69 73 ile on..your dis
000140: 63 20 63 61 6C 6C 20 4E 41 4D 45 53 2E 44 41 54 c call NAMES.DAT
000150: 2E 20 20 54 68 65 20 20 74 65 78 74 20 20 66 69 . The text fi
000160: 6C 65 20 20 63 61 6E 20 20 62 65 20 20 6C 6F 61 le can be loa
000170: 64 65 64 20 20 69 6E 74 6F 20 74 68 65 20 77 6F ded into the wo
000180: 72 64 0D 0A 70 72 6F 63 65 73 73 6F 72 20 61 6E rd..processor an
000190: 64 20 65 78 61 6D 69 6E 65 64 20 74 6F 20 63 68 d examined to ch
0001A0: 65 63 6B 20 74 68 61 74 20 69 74 20 68 61 73 20 eck that it has
0001B0: 62 65 65 6E 20 63 6F 72 72 65 63 74 6C 79 20 63 been correctly c
0001C0: 72 65 61 74 65 64 2E 0D 0A 0D 0A 50 6C 65 61 73 reated.....Pleas
0001D0: 65 20 6E 6F 74 65 2C 20 72 75 6E 6E 69 6E 67 20 e note, running
0001E0: 74 68 65 20 70 72 6F 67 72 61 6D 20 61 20 73 65 the program a se
0001F0: 63 6F 6E 64 20 74 69 6D 65 20 64 6F 65 73 20 6E cond time does n
Size : 512 (Real : 512)
000000: 63 69 66 69 65 64 0D 0A 66 69 6C 65 20 69 6E 74 cified..file int
000010: 6F 20 74 68 65 20 63 6F 6D 70 75 74 65 72 73 20 o the computers
000020: 6D 65 6D 6F 72 79 2E 0D 0A 0D 0A 45 4E 44 20 27 memory.....END '
000030: 73 74 61 74 65 6D 65 6E 74 27 0D 0A 0D 0A 54 68 statement'....Th
000040: 65 20 27 73 74 61 74 65 6D 65 6E 74 27 20 69 73 e 'statement' is
000050: 20 6D 61 64 65 20 75 70 20 6F 66 20 20 43 6F 62 made up of Cob
000060: 6F 6C 20 20 63 6F 6D 6D 61 6E 64 73 2C 20 77 68 ol commands, wh
000070: 69 63 68 20 61 72 65 20 63 61 72 72 69 65 64 20 ich are carried
000080: 6F 75 74 20 77 68 65 6E 0D 0A 79 6F 75 20 72 65 out when..you re
000090: 61 63 68 20 74 68 65 20 65 6E 64 20 6F 66 20 74 ach the end of t
0000A0: 68 65 20 66 69 6C 65 2E 0D 0A 0D 0A 49 65 2E 20 he file.....Ie.
0000B0: 20 45 4E 44 20 4D 4F 56 45 20 27 46 27 20 54 4F END MOVE 'F' TO
0000C0: 20 46 4C 41 47 2E 0D 0A 20 20 20 20 20 45 4E 44 FLAG... END
0000D0: 20 47 4F 20 43 4C 4F 53 45 2D 46 49 4C 45 53 2E GO CLOSE-FILES.
0000E0: 0D 0A 20 20 20 20 20 45 4E 44 20 44 49 53 50 4C .. END DISPL
0000F0: 41 59 20 27 45 6E 64 20 4F 66 20 46 69 6C 65 20 AY 'End Of File
000100: 52 65 61 63 68 65 64 27 2E 0D 0A 20 20 20 20 20 Reached'...
000110: 45 4E 44 20 50 45 52 46 4F 52 4D 20 43 4C 4F 53 END PERFORM CLOS
000120: 45 2D 46 49 4C 45 53 20 47 4F 20 54 4F 2D 53 54 E-FILES GO TO-ST
000130: 41 52 54 2E 0D 0A 20 20 20 20 20 65 74 63 2E 0D ART... etc..
000140: 0A 0D 0A 0D 0A 48 4F 4D 45 57 4F 52 4B 20 54 57 .....HOMEWORK TW
000150: 4F 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D O...============
000160: 3D 0D 0A 0D 0A 45 78 61 6D 69 6E 65 20 74 68 65 =....Examine the
000170: 20 65 78 61 6D 70 6C 65 20 70 72 6F 67 72 61 6D example program
000180: 73 20 73 75 70 70 6C 69 65 64 20 20 77 69 74 68 s supplied with
000190: 20 20 74 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 the Cobol comp
0001A0: 69 6C 65 72 2C 20 74 68 65 6E 20 72 65 61 64 0D iler, then read.
0001B0: 0A 74 68 72 6F 75 67 68 20 74 68 65 20 6D 61 6E .through the man
0001C0: 75 61 6C 20 61 6E 64 20 67 65 74 20 74 6F 20 6B ual and get to k
0001D0: 6E 6F 77 20 74 68 65 20 63 6F 6D 6D 61 6E 64 73 now the commands
0001E0: 2E 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 .....Clive Bella
0001F0: 62 79 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 by, 12 Trafalgar
Size : 512 (Real : 512)
000000: 6F 74 20 61 64 64 20 72 65 63 6F 72 64 73 20 74 ot add records t
000010: 6F 20 74 68 65 0D 0A 65 78 69 73 74 69 6E 67 20 o the..existing
000020: 64 61 74 61 20 66 69 6C 65 2C 20 62 75 74 20 65 data file, but e
000030: 72 61 73 65 73 20 74 68 65 20 6F 72 69 67 69 6E rases the origin
000040: 61 6C 20 20 66 69 6C 65 20 20 61 6E 64 20 73 61 al file and sa
000050: 76 65 73 20 61 20 6E 65 77 20 66 69 6C 65 20 74 ves a new file t
000060: 6F 0D 0A 64 69 73 63 20 77 69 74 68 20 74 68 65 o..disc with the
000070: 20 6E 65 77 20 6E 61 6D 65 73 20 65 6E 74 65 72 new names enter
000080: 65 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D ed.......PROGRAM
000090: 20 54 48 49 52 54 45 45 4E 20 28 49 66 20 79 6F THIRTEEN (If yo
0000A0: 75 20 61 72 65 20 73 75 70 65 72 73 74 69 74 69 u are superstiti
0000B0: 6F 75 73 20 74 68 65 6E 20 63 61 6C 6C 20 74 68 ous then call th
0000C0: 69 73 20 70 72 6F 67 72 61 6D 20 31 32 41 29 2E is program 12A).
0000D0: 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ..==============
0000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 50 72 6F =========....Pro
000120: 67 72 61 6D 20 74 68 69 72 74 65 65 6E 20 6C 6F gram thirteen lo
000130: 61 64 73 20 20 74 68 65 20 20 66 69 6C 65 20 20 ads the file
000140: 74 68 61 74 20 20 79 6F 75 20 20 68 61 76 65 20 that you have
000150: 20 63 72 65 61 74 65 64 20 20 75 73 69 6E 67 20 created using
000160: 70 72 6F 67 72 61 6D 0D 0A 74 77 65 6C 76 65 2C program..twelve,
000170: 20 72 65 61 64 73 20 74 68 72 6F 75 67 68 20 74 reads through t
000180: 68 65 20 66 69 6C 65 20 61 6E 64 20 20 64 69 73 he file and dis
000190: 70 6C 61 79 73 20 20 74 68 65 20 20 63 6F 6E 74 plays the cont
0001A0: 65 6E 74 73 20 6F 66 20 74 68 65 20 66 69 6C 65 ents of the file
0001B0: 20 6F 6E 0D 0A 74 68 65 20 73 63 72 65 65 6E 2E on..the screen.
0001C0: 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 ....IDENTIFICATI
0001D0: 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 ON DIVISION...
0001E0: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 PROGRAM-ID. Ex
0001F0: 61 6D 70 6C 65 20 54 68 69 72 74 65 65 6E 2E 0D ample Thirteen..
Size : 512 (Real : 512)
000000: 20 54 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 Terrace, Long E
000010: 61 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D aton, Nottingham
000020: 2C 20 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A , NG10 1GP......
000030: 2A 2A 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 ** END OF SERIES
000040: 2E 50 54 33 20 2A 2A 0D 0A 1A 30 20 31 47 50 0D .PT3 **...0 1GP.
000050: 0A 0D 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 53 .....** END OF S
000060: 45 52 49 45 53 2E 50 54 33 20 2A 2A 0D 0A 1A 69 ERIES.PT3 **...i
000070: 6E 73 90 20 61 20 66 75 6C 6C 20 6C 69 73 74 20 ns. a full list
000080: 74 75 72 65 20 6F 66 66 2E 0D 0A 0D 0A 20 20 20 ture off.....
000090: 20 20 20 43 74 72 6C 20 26 20 5B 20 2D 20 45 73 Ctrl & [ - Es
0000A0: 63 61 70 65 20 28 77 65 6C 6C 20 77 6F 72 74 68 cape (well worth
0000B0: 20 72 65 6D 65 6D 62 65 72 69 6E 67 29 0D 0A 0D remembering)...
0000C0: 0A 54 68 65 20 36 31 32 38 20 6D 61 6E 75 61 6C .The 6128 manual
0000D0: 20 63 6F 6E 74 61 69 6E 73 20 61 20 66 75 6C 6C contains a full
0000E0: 20 6C 69 73 74 20 61 6E 64 20 65 78 70 6C 61 6E list and explan
0000F0: 61 74 69 6F 6E 20 6F 66 20 74 68 65 20 63 6F 6E ation of the con
000100: 74 72 6F 6C 20 63 6F 64 65 73 2E 0D 0A 28 4F 4D trol codes...(OM
000110: 47 20 65 6E 6A 6F 79 65 64 20 74 68 69 73 20 62 G enjoyed this b
000120: 69 74 20 61 73 20 20 68 65 20 20 69 73 20 20 66 it as he is f
000130: 6F 72 65 76 65 72 20 20 74 65 6C 6C 69 6E 67 20 orever telling
000140: 6D 65 20 74 68 61 74 20 70 75 6E 63 74 75 61 74 me that punctuat
000150: 69 6F 6E 20 61 6E 64 0D 0A 73 70 65 6C 6C 69 6E ion and..spellin
000160: 67 20 61 72 65 20 69 6D 70 6F 72 74 61 6E 74 2E g are important.
000170: 29 0D 0A 0D 0A 0D 0A 53 43 52 45 45 4E 20 48 41 )......SCREEN HA
000180: 4E 44 4C 49 4E 47 20 49 4E 54 52 4F 44 55 43 54 NDLING INTRODUCT
000190: 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION...==========
0001A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0001B0: 3D 3D 3D 0D 0A 0D 0A 53 63 72 65 65 6E 20 68 61 ===....Screen ha
0001C0: 6E 64 6C 69 6E 67 20 75 73 69 6E 67 20 74 68 69 ndling using thi
0001D0: 73 20 70 75 62 6C 69 63 20 20 64 6F 6D 61 69 6E s public domain
0001E0: 20 20 76 65 72 73 69 6F 6E 20 20 6F 66 20 20 43 version of C
0001F0: 6F 62 6F 6C 20 69 73 20 6D 65 73 73 79 20 61 6E obol is messy an
Size : 512 (Real : 512)
000000: 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 72 .*..* This progr
000010: 61 6D 20 6F 70 65 6E 73 20 74 68 65 20 64 61 74 am opens the dat
000020: 61 20 66 69 6C 65 20 4E 41 4D 45 53 2E 44 41 54 a file NAMES.DAT
000030: 2C 20 74 68 65 6E 20 72 65 61 64 73 20 74 68 65 , then reads the
000040: 20 66 69 6C 65 20 61 6E 64 0D 0A 2A 20 64 69 73 file and..* dis
000050: 70 6C 61 79 73 20 74 68 65 20 63 6F 6E 74 65 6E plays the conten
000060: 74 73 20 6F 6E 20 74 68 65 20 73 63 72 65 65 6E ts on the screen
000070: 2E 0D 0A 2A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E ...*..ENVIRONMEN
000080: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D 0A T DIVISION...*..
000090: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 CONFIGURATION SE
0000A0: 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 45 CTION... SOURCE
0000B0: 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 -COMPUTER. Amstr
0000C0: 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A 45 ad 6128... OBJE
0000D0: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
0000E0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 2A 0D 0A 49 trad 6128...*..I
0000F0: 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 NPUT-OUTPUT SECT
000100: 49 4F 4E 2E 0D 0A 46 49 4C 45 2D 43 4F 4E 54 52 ION...FILE-CONTR
000110: 4F 4C 2E 0D 0A 20 20 53 45 4C 45 43 54 20 4E 41 OL... SELECT NA
000120: 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E 20 4E ME-FILE ASSIGN N
000130: 41 4D 45 53 2E 44 41 54 2E 0D 0A 2A 0D 0A 44 41 AMES.DAT...*..DA
000140: 54 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A 0D TA DIVISION...*.
000150: 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A .FILE SECTION...
000160: 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 FD NAME-FILE...
000170: 30 31 20 53 54 4F 52 45 44 2D 4E 41 4D 45 2E 0D 01 STORED-NAME..
000180: 0A 20 20 20 30 33 20 4E 41 4D 45 20 20 20 20 20 . 03 NAME
000190: 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 2A 0D PIC X(30)...*.
0001A0: 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 45 .WORKING-STORAGE
0001B0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 2A 0D 0A 20 20 SECTION...*..
0001C0: 30 31 20 46 49 4C 45 2D 54 45 53 54 20 20 20 50 01 FILE-TEST P
0001D0: 49 43 20 58 2E 0D 0A 2A 0D 0A 50 52 4F 43 45 44 IC X...*..PROCED
0001E0: 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 2A URE DIVISION...*
0001F0: 0D 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E ..START... OPEN
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
000020: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
000030: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
000060: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
000090: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0000A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0000B0: 20 20 50 41 52 54 20 46 4F 55 52 20 3A 20 4D 4F PART FOUR : MO
0000C0: 52 45 20 46 49 4C 49 4E 47 20 41 4E 44 20 53 4F RE FILING AND SO
0000D0: 4D 45 20 50 52 49 4E 54 49 4E 47 20 41 53 20 57 ME PRINTING AS W
0000E0: 45 4C 4C 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 ELL......INTRODU
0000F0: 43 54 49 4F 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D CTION...========
000100: 3D 3D 3D 3D 3D 0D 0A 59 65 73 2C 20 79 65 74 20 =====..Yes, yet
000110: 61 67 61 69 6E 20 79 6F 75 20 6A 6F 69 6E 20 75 again you join u
000120: 73 20 61 74 20 20 74 68 65 20 20 73 74 61 72 74 s at the start
000130: 20 20 6F 66 20 74 68 69 73 20 61 72 74 69 63 6C of this articl
000140: 65 2C 20 74 68 65 20 77 65 61 74 68 65 72 20 69 e, the weather i
000150: 73 0D 0A 77 61 72 6D 20 61 6E 64 20 73 75 6E 6E s..warm and sunn
000160: 79 2C 20 74 68 65 72 65 27 73 20 61 20 6C 69 67 y, there's a lig
000170: 68 74 20 62 72 65 65 7A 65 20 62 6C 6F 77 69 6E ht breeze blowin
000180: 67 20 61 63 72 6F 73 73 20 74 68 65 20 70 61 67 g across the pag
000190: 65 20 61 6E 64 20 77 65 20 68 61 76 65 0D 0A 65 e and we have..e
0001A0: 76 65 72 79 20 63 68 61 6E 63 65 20 6F 66 20 67 very chance of g
0001B0: 65 74 74 69 6E 67 20 20 61 20 20 67 6F 6F 64 20 etting a good
0001C0: 20 72 65 73 75 6C 74 2E 20 20 54 68 69 73 20 20 result. This
0001D0: 6D 6F 6E 74 68 20 20 77 65 20 20 68 61 76 65 20 month we have
0001E0: 6D 6F 72 65 20 66 69 6C 65 0D 0A 68 61 6E 64 6C more file..handl
0001F0: 69 6E 67 2C 20 6D 6F 72 65 20 43 6F 62 6F 6C 20 ing, more Cobol
Size : 512 (Real : 512)
000000: 20 49 4E 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 INPUT NAME-FILE
000010: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 4F 70 ... DISPLAY 'Op
000020: 65 6E 69 6E 67 20 54 68 65 20 44 61 74 61 20 46 ening The Data F
000030: 69 6C 65 27 2E 0D 0A 20 20 44 49 53 50 4C 41 59 ile'... DISPLAY
000040: 20 27 20 27 2E 0D 0A 2A 0D 0A 52 45 41 44 2D 46 ' '...*..READ-F
000050: 49 4C 45 2E 0D 0A 20 20 4D 4F 56 45 20 27 20 27 ILE... MOVE ' '
000060: 20 54 4F 20 46 49 4C 45 2D 54 45 53 54 2E 0D 0A TO FILE-TEST...
000070: 20 20 52 45 41 44 20 4E 41 4D 45 2D 46 49 4C 45 READ NAME-FILE
000080: 20 45 4E 44 20 4D 4F 56 45 20 27 45 27 20 54 4F END MOVE 'E' TO
000090: 20 46 49 4C 45 2D 54 45 53 54 2E 0D 0A 20 20 49 FILE-TEST... I
0000A0: 46 20 46 49 4C 45 2D 54 45 53 54 20 45 51 55 41 F FILE-TEST EQUA
0000B0: 4C 20 27 45 27 20 47 4F 20 45 4E 44 2D 50 52 4F L 'E' GO END-PRO
0000C0: 47 52 41 4D 4D 45 20 45 4E 44 2D 49 46 2E 0D 0A GRAMME END-IF...
0000D0: 2A 0D 0A 44 49 53 50 4C 41 59 2D 46 49 4C 45 2D *..DISPLAY-FILE-
0000E0: 44 41 54 41 2E 0D 0A 20 20 44 49 53 50 4C 41 59 DATA... DISPLAY
0000F0: 20 4E 41 4D 45 2E 0D 0A 20 20 44 49 53 50 4C 41 NAME... DISPLA
000100: 59 20 27 20 27 2E 0D 0A 2A 0D 0A 4A 55 4D 50 2D Y ' '...*..JUMP-
000110: 42 41 43 4B 2E 0D 0A 20 20 47 4F 20 52 45 41 44 BACK... GO READ
000120: 2D 46 49 4C 45 2E 0D 0A 2A 0D 0A 45 4E 44 2D 50 -FILE...*..END-P
000130: 52 4F 47 52 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F ROGRAMME... CLO
000140: 53 45 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 SE NAME-FILE...
000150: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
000160: 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A ogram Notes:....
000170: 57 68 65 6E 20 74 65 73 74 69 6E 67 20 69 64 65 When testing ide
000180: 6E 74 69 66 69 65 72 73 20 77 69 74 68 20 74 68 ntifiers with th
000190: 65 20 49 46 20 63 6F 6D 6D 61 6E 64 2C 20 79 6F e IF command, yo
0001A0: 75 20 73 68 6F 75 6C 64 20 61 6C 77 61 79 73 20 u should always
0001B0: 69 6E 69 74 69 61 6C 69 73 65 0D 0A 74 68 65 20 initialise..the
0001C0: 69 64 65 6E 74 69 66 69 65 72 20 75 73 69 6E 67 identifier using
0001D0: 20 74 68 65 20 4D 4F 56 45 20 63 6F 6D 6D 61 6E the MOVE comman
0001E0: 64 20 20 77 69 74 68 20 20 61 20 20 76 61 6C 75 d with a valu
0001F0: 65 20 6F 74 68 65 72 20 74 68 61 6E 20 74 68 65 e other than the
Size : 512 (Real : 512)
000000: 63 6F 6D 6D 61 6E 64 73 20 61 6E 64 20 77 65 20 commands and we
000010: 63 72 65 61 74 65 20 20 61 20 20 70 72 69 6E 74 create a print
000020: 20 66 69 6C 65 2E 20 53 6F 20 62 6F 6F 74 20 75 file. So boot u
000030: 70 20 74 68 65 0D 0A 6F 6C 64 20 43 50 2F 4D 20 p the..old CP/M
000040: 61 6E 64 20 77 65 27 6C 6C 20 67 65 74 20 73 74 and we'll get st
000050: 61 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 59 4F 55 52 arted.......YOUR
000060: 20 51 55 45 52 49 45 53 20 41 4E 53 57 45 52 45 QUERIES ANSWERE
000070: 44 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D D...============
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 20 ==========....I
000090: 68 61 76 65 20 62 65 65 6E 20 61 73 6B 65 64 20 have been asked
0000A0: 68 6F 77 20 6C 6F 6E 67 20 69 74 20 74 61 6B 65 how long it take
0000B0: 73 20 20 74 6F 20 77 72 69 74 65 2C 20 63 6F 6D s to write, com
0000C0: 70 69 6C 65 20 61 6E 64 20 74 65 73 74 20 61 20 pile and test a
0000D0: 70 72 6F 67 72 61 6D 2C 0D 0A 77 65 6C 6C 20 70 program,..well p
0000E0: 72 6F 67 72 61 6D 73 20 66 69 66 74 65 65 6E 20 rograms fifteen
0000F0: 61 6E 64 20 20 73 69 78 74 65 65 6E 20 20 74 6F and sixteen to
000100: 6F 6B 20 20 6D 65 20 20 61 70 70 72 6F 78 20 20 ok me approx
000110: 36 35 20 6D 69 6E 75 74 65 73 2C 20 77 68 69 63 65 minutes, whic
000120: 68 20 69 73 0D 0A 73 6C 69 67 68 74 6C 79 20 73 h is..slightly s
000130: 6C 6F 77 65 72 20 74 68 61 6E 20 77 72 69 74 69 lower than writi
000140: 6E 67 20 74 68 65 20 73 61 6D 65 20 20 70 72 6F ng the same pro
000150: 67 72 61 6D 20 69 6E 20 42 61 73 69 63 2E 20 28 gram in Basic. (
000160: 54 68 69 73 20 69 73 20 70 72 6F 62 61 62 6C 79 This is probably
000170: 0D 0A 62 65 63 61 75 73 65 20 49 20 61 6D 20 6E ..because I am n
000180: 6F 74 20 61 20 66 61 73 74 20 74 79 70 69 73 74 ot a fast typist
000190: 29 0D 0A 0D 0A 44 65 61 72 20 4D 61 67 67 69 65 )....Dear Maggie
0001A0: 2C 20 49 20 61 6D 20 73 6F 72 72 79 20 74 6F 20 , I am sorry to
0001B0: 68 61 76 65 20 74 65 6C 6C 20 79 6F 75 20 74 68 have tell you th
0001C0: 61 74 20 62 69 74 69 6E 67 20 79 6F 75 72 20 66 at biting your f
0001D0: 69 6E 67 65 72 6E 61 69 6C 73 20 64 6F 65 73 0D ingernails does.
0001E0: 0A 64 69 73 71 75 61 6C 69 66 79 20 79 6F 75 20 .disqualify you
0001F0: 66 72 6F 6D 20 62 65 63 6F 6D 69 6E 67 20 61 20 from becoming a
Size : 512 (Real : 512)
000000: 51 55 41 4C 20 27 65 27 20 20 47 4F 20 43 4C 4F QUAL 'e' GO CLO
000010: 53 45 2D 46 49 4C 45 53 20 45 4E 44 2D 49 46 2E SE-FILES END-IF.
000020: 0D 0A 20 20 47 4F 20 43 4F 4E 54 49 4E 55 45 2D .. GO CONTINUE-
000030: 59 45 53 2F 4E 4F 2E 0D 0A 43 4C 4F 53 45 2D 46 YES/NO...CLOSE-F
000040: 49 4C 45 53 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E ILES... CLOSE N
000050: 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 43 4C 4F AME-FILE... CLO
000060: 53 45 20 54 45 4D 50 2D 46 49 4C 45 2E 0D 0A 43 SE TEMP-FILE...C
000070: 4F 50 59 2D 4E 45 57 2D 46 49 4C 45 2E 0D 0A 20 OPY-NEW-FILE...
000080: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
000090: 20 44 49 53 50 4C 41 59 20 27 43 6F 70 79 69 6E DISPLAY 'Copyin
0000A0: 67 20 46 69 6C 65 2E 27 2E 0D 0A 20 20 44 49 53 g File.'... DIS
0000B0: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 4F 50 45 PLAY ' '... OPE
0000C0: 4E 20 49 4E 50 55 54 20 54 45 4D 50 2D 46 49 4C N INPUT TEMP-FIL
0000D0: 45 2E 0D 0A 20 20 4F 50 45 4E 20 4F 55 54 50 55 E... OPEN OUTPU
0000E0: 54 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 43 4F T NAME-FILE...CO
0000F0: 50 59 2D 4E 45 57 2D 46 49 4C 45 2D 31 2E 0D 0A PY-NEW-FILE-1...
000100: 20 20 52 45 41 44 20 54 45 4D 50 2D 46 49 4C 45 READ TEMP-FILE
000110: 20 45 4E 44 20 47 4F 20 45 4E 44 2D 50 52 4F 47 END GO END-PROG
000120: 52 41 4D 4D 45 2E 0D 0A 20 20 4D 4F 56 45 20 54 RAMME... MOVE T
000130: 45 4D 50 2D 4E 41 4D 45 20 54 4F 20 53 54 4F 52 EMP-NAME TO STOR
000140: 45 44 2D 4E 41 4D 45 2E 0D 0A 20 20 57 52 49 54 ED-NAME... WRIT
000150: 45 20 53 54 4F 52 45 44 2D 4E 41 4D 45 2E 0D 0A E STORED-NAME...
000160: 20 20 47 4F 20 43 4F 50 59 2D 4E 45 57 2D 46 49 GO COPY-NEW-FI
000170: 4C 45 2D 31 2E 0D 0A 45 4E 44 2D 50 52 4F 47 52 LE-1...END-PROGR
000180: 41 4D 4D 45 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E AMME... CLOSE N
000190: 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 43 4C 4F AME-FILE... CLO
0001A0: 53 45 20 54 45 4D 50 2D 46 49 4C 45 2E 0D 0A 20 SE TEMP-FILE...
0001B0: 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 0D 0A 50 72 STOP RUN.....Pr
0001C0: 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A 0D 0A ogram Notes:....
0001D0: 31 2E 20 54 68 65 20 70 72 6F 67 72 61 6D 20 6E 1. The program n
0001E0: 6F 77 20 20 75 73 65 73 20 20 6D 6F 72 65 20 20 ow uses more
0001F0: 6D 65 61 6E 69 6E 67 66 75 6C 20 20 6E 61 6D 65 meaningful name
Size : 512 (Real : 512)
000000: 76 65 67 65 74 61 72 69 61 6E 2E 0D 0A 0D 0A 54 vegetarian.....T
000010: 68 61 6E 78 73 20 74 6F 20 4D 72 20 49 20 42 6F hanxs to Mr I Bo
000020: 74 68 61 6D 20 66 6F 72 20 70 6F 69 6E 74 69 6E tham for pointin
000030: 67 20 6F 75 74 20 74 68 61 74 20 43 50 2F 4D 2B g out that CP/M+
000040: 20 69 73 20 6D 6F 72 65 20 69 6E 74 65 72 65 73 is more interes
000050: 74 69 6E 67 20 74 68 61 6E 0D 0A 45 6E 67 6C 69 ting than..Engli
000060: 73 68 20 63 72 69 63 6B 65 74 2E 0D 0A 0D 0A 0D sh cricket......
000070: 0A 45 53 43 20 4B 45 59 20 53 45 51 55 45 4E 43 .ESC KEY SEQUENC
000080: 45 53 20 41 4E 44 20 43 50 2F 4D 2E 0D 0A 3D 3D ES AND CP/M...==
000090: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 59 6F 75 =========....You
0000B0: 20 63 61 6E 20 75 73 65 20 74 68 65 20 45 53 43 can use the ESC
0000C0: 20 6B 65 79 20 63 6F 6D 6D 61 6E 64 73 20 61 74 key commands at
0000D0: 20 20 74 68 65 20 20 41 3E 20 70 72 6F 6D 70 74 the A> prompt
0000E0: 20 74 6F 20 73 65 74 20 74 68 65 20 6D 6F 64 65 to set the mode
0000F0: 2C 20 63 6C 65 61 72 0D 0A 74 68 65 20 73 63 72 , clear..the scr
000100: 65 65 6E 20 65 74 63 2C 20 6C 65 74 27 73 20 74 een etc, let's t
000110: 72 79 20 61 6E 20 65 78 61 6D 70 6C 65 3A 0D 0A ry an example:..
000120: 0D 0A 54 6F 20 63 6C 65 61 72 20 74 68 65 20 73 ..To clear the s
000130: 63 72 65 65 6E 20 75 73 69 6E 67 20 43 50 2F 4D creen using CP/M
000140: 20 33 2E 31 20 28 70 6C 75 73 29 2C 20 70 72 65 3.1 (plus), pre
000150: 73 73 2C 0D 0A 0D 0A 20 45 53 43 20 20 45 20 20 ss,.... ESC E
000160: 45 53 43 20 20 48 20 20 20 28 74 68 65 6E 20 70 ESC H (then p
000170: 72 65 73 73 20 74 68 65 20 52 65 74 75 72 6E 20 ress the Return
000180: 6B 65 79 29 0D 0A 0D 0A 54 6F 20 63 6C 65 61 72 key)....To clear
000190: 20 74 68 65 20 73 63 72 65 65 6E 20 75 73 69 6E the screen usin
0001A0: 67 20 43 50 2F 4D 20 32 2E 32 2C 20 70 72 65 73 g CP/M 2.2, pres
0001B0: 73 2C 0D 0A 0D 0A 20 43 54 52 4C 20 26 20 4C 0D s,.... CTRL & L.
0001C0: 0A 0D 0A 0D 0A 4D 4F 52 45 20 46 49 4C 45 20 48 .....MORE FILE H
0001D0: 41 4E 44 4C 49 4E 47 2E 0D 0A 3D 3D 3D 3D 3D 3D ANDLING...======
0001E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D =============...
0001F0: 0A 4C 61 73 74 20 6D 6F 6E 74 68 20 77 65 20 75 .Last month we u
Size : 512 (Real : 512)
000000: 73 20 20 66 6F 72 20 74 68 65 20 69 64 65 6E 74 s for the ident
000010: 69 66 69 65 72 73 20 61 6E 64 0D 0A 20 20 20 70 ifiers and.. p
000020: 72 6F 63 65 64 75 72 65 73 2E 20 43 6F 62 6F 6C rocedures. Cobol
000030: 20 70 72 6F 67 72 61 6D 73 20 61 72 65 20 77 72 programs are wr
000040: 69 74 74 65 6E 20 20 69 6E 20 20 6E 65 61 72 20 itten in near
000050: 20 45 6E 67 6C 69 73 68 20 61 6E 64 20 73 68 6F English and sho
000060: 75 6C 64 20 62 65 0D 0A 20 20 20 65 61 73 79 20 uld be.. easy
000070: 74 6F 20 72 65 61 64 2E 0D 0A 0D 0A 32 2E 20 54 to read.....2. T
000080: 68 65 20 52 45 41 44 20 27 66 69 6C 65 6E 61 6D he READ 'filenam
000090: 65 27 20 45 4E 44 20 63 6F 6D 6D 61 6E 64 20 20 e' END command
0000A0: 6E 6F 77 20 20 75 73 65 73 20 61 20 64 69 66 66 now uses a diff
0000B0: 65 72 65 6E 74 20 66 6F 72 6D 61 74 2C 20 77 68 erent format, wh
0000C0: 65 6E 20 74 68 65 0D 0A 20 20 20 65 6E 64 20 6F en the.. end o
0000D0: 66 20 74 68 65 20 66 69 6C 65 20 69 73 20 72 65 f the file is re
0000E0: 61 63 68 65 64 20 74 68 65 20 70 72 6F 67 72 61 ached the progra
0000F0: 6D 20 75 73 65 73 20 61 20 47 4F 20 69 6E 73 74 m uses a GO inst
000100: 72 75 63 74 69 6F 6E 20 74 6F 20 6A 75 6D 70 20 ruction to jump
000110: 74 6F 0D 0A 20 20 20 61 20 6E 65 77 20 70 72 6F to.. a new pro
000120: 63 65 64 75 72 65 2E 20 54 68 69 73 20 6D 65 74 cedure. This met
000130: 68 6F 64 20 69 73 20 71 75 69 63 6B 65 72 20 69 hod is quicker i
000140: 6E 20 6F 70 65 72 61 74 69 6F 6E 20 62 75 74 20 n operation but
000150: 69 73 20 6E 6F 74 20 61 73 20 6E 65 61 74 0D 0A is not as neat..
000160: 0D 0A 33 2E 20 54 68 65 20 43 4F 4E 54 49 4E 55 ..3. The CONTINU
000170: 45 2D 59 45 53 2F 4E 4F 20 70 72 6F 63 65 64 75 E-YES/NO procedu
000180: 72 65 20 68 61 73 20 62 65 65 6E 20 61 6C 74 65 re has been alte
000190: 72 65 64 20 74 6F 20 61 6C 6C 6F 77 20 74 65 73 red to allow tes
0001A0: 74 69 6E 67 20 6F 66 20 62 6F 74 68 0D 0A 20 20 ting of both..
0001B0: 20 75 70 70 65 72 20 61 6E 64 20 6C 6F 77 65 72 upper and lower
0001C0: 20 63 61 73 65 20 63 68 61 72 61 63 74 65 72 73 case characters
0001D0: 2E 0D 0A 0D 0A 0D 0A 50 52 49 4E 54 49 4E 47 20 .......PRINTING
0001E0: 46 49 4C 45 53 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILES...========
0001F0: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 69 73 20 =======....This
Size : 512 (Real : 512)
000000: 73 65 64 20 43 6F 62 6F 6C 20 74 6F 20 63 72 65 sed Cobol to cre
000010: 61 74 65 20 61 6E 64 20 74 68 65 20 64 69 73 70 ate and the disp
000020: 6C 61 79 20 61 20 73 65 71 75 65 6E 74 69 61 6C lay a sequential
000030: 20 66 69 6C 65 2C 20 74 68 69 73 0D 0A 6D 6F 6E file, this..mon
000040: 74 68 20 77 65 20 61 72 65 20 67 6F 69 6E 67 20 th we are going
000050: 6F 6E 65 20 62 65 74 74 65 72 20 20 77 69 74 68 one better with
000060: 20 20 61 20 70 72 6F 67 72 61 6D 20 77 68 69 63 a program whic
000070: 68 20 61 64 64 73 20 65 78 74 72 61 20 72 65 63 h adds extra rec
000080: 6F 72 64 73 20 74 6F 0D 0A 61 6E 20 65 78 69 73 ords to..an exis
000090: 74 69 6E 67 20 64 61 74 61 20 66 69 6C 65 2E 0D ting data file..
0000A0: 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 46 4F 55 .....PROGRAM FOU
0000B0: 52 54 45 45 4E 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D RTEEN...========
0000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 44 45 =========....IDE
0000D0: 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 NTIFICATION DIVI
0000E0: 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 SION...PROGRAM-I
0000F0: 44 2E 20 20 20 45 78 61 6D 70 6C 65 20 46 6F 75 D. Example Fou
000100: 72 74 65 65 6E 2E 0D 0A 2A 20 54 68 69 73 20 70 rteen...* This p
000110: 72 6F 67 72 61 6D 20 61 64 64 73 20 61 64 64 69 rogram adds addi
000120: 74 69 6F 6E 61 6C 20 6E 61 6D 65 73 20 74 6F 20 tional names to
000130: 74 68 65 20 64 61 74 61 20 66 69 6C 65 20 4E 41 the data file NA
000140: 4D 45 53 2E 44 41 54 0D 0A 2A 0D 0A 2A 20 4D 65 MES.DAT..*..* Me
000150: 74 68 6F 64 20 2D 20 43 6F 70 79 20 4F 4C 44 20 thod - Copy OLD
000160: 46 49 4C 45 20 74 6F 20 4E 45 57 20 46 49 4C 45 FILE to NEW FILE
000170: 0D 0A 2A 20 20 20 20 20 20 20 20 2D 20 61 64 64 ..* - add
000180: 20 6E 65 77 20 6E 61 6D 65 73 20 74 6F 20 4E 45 new names to NE
000190: 57 20 46 49 4C 45 0D 0A 2A 20 20 20 20 20 20 20 W FILE..*
0001A0: 20 2D 20 43 6F 70 79 20 4E 45 57 20 46 49 4C 45 - Copy NEW FILE
0001B0: 20 74 6F 20 4F 4C 44 20 46 49 4C 45 0D 0A 2A 0D to OLD FILE..*.
0001C0: 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 .ENVIRONMENT DIV
0001D0: 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 ISION...CONFIGUR
0001E0: 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A ATION SECTION...
0001F0: 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 SOURCE-COMPUTE
Size : 512 (Real : 512)
000000: 76 65 72 73 69 6F 6E 20 6F 66 20 43 6F 62 6F 6C version of Cobol
000010: 20 64 6F 65 73 20 6E 6F 74 20 61 6C 6C 6F 77 20 does not allow
000020: 20 79 6F 75 20 64 69 72 65 63 74 20 61 63 63 65 you direct acce
000030: 73 73 20 74 6F 20 74 68 65 20 70 72 69 6E 74 65 ss to the printe
000040: 72 2C 20 73 6F 0D 0A 69 66 20 77 65 20 77 61 6E r, so..if we wan
000050: 74 20 70 72 69 6E 74 65 64 20 6F 75 74 70 75 74 t printed output
000060: 20 77 65 20 68 61 76 65 20 74 6F 20 63 72 65 61 we have to crea
000070: 74 65 20 61 6E 20 74 65 78 74 20 66 69 6C 65 20 te an text file
000080: 77 69 74 68 20 66 6F 72 6D 61 74 74 65 64 20 74 with formatted t
000090: 6F 0D 0A 74 68 65 20 6C 61 79 6F 75 74 20 77 65 o..the layout we
0000A0: 20 6E 65 65 64 20 61 6E 64 20 74 68 65 6E 20 75 need and then u
0000B0: 73 65 20 56 44 45 20 20 74 6F 20 70 72 69 6E 74 se VDE to print
0000C0: 20 6F 75 74 20 6F 75 72 20 64 61 74 61 2E 20 54 out our data. T
0000D0: 68 69 73 20 6D 65 74 68 6F 64 20 69 73 0D 0A 71 his method is..q
0000E0: 75 69 74 65 20 65 61 73 79 20 74 6F 20 75 73 65 uite easy to use
0000F0: 2C 20 61 6E 64 20 70 72 6F 67 72 61 6D 73 20 31 , and programs 1
000100: 35 20 61 6E 64 20 31 36 20 64 65 6D 6F 6E 73 74 5 and 16 demonst
000110: 72 61 74 65 20 74 68 65 20 70 72 69 6E 63 69 70 rate the princip
000120: 6C 65 73 20 75 73 65 64 2E 0D 0A 0D 0A 0D 0A 50 les used.......P
000130: 52 4F 47 52 41 4D 20 46 49 46 54 45 45 4E 2E 0D ROGRAM FIFTEEN..
000140: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D .===============
000150: 3D 0D 0A 0D 0A 54 68 69 73 20 70 72 6F 67 72 61 =....This progra
000160: 6D 20 63 72 65 61 74 65 73 20 74 68 65 20 61 73 m creates the as
000170: 63 69 69 20 66 69 6C 65 20 6E 65 65 64 65 64 20 cii file needed
000180: 66 6F 72 20 70 72 6F 67 72 61 6D 20 73 69 78 74 for program sixt
000190: 65 65 6E 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 een.....IDENTIFI
0001A0: 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E CATION DIVISION.
0001B0: 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 ..PROGRAM-ID.
0001C0: 45 78 61 6D 70 6C 65 20 46 69 66 74 65 65 6E 2E Example Fifteen.
0001D0: 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F 67 ..*..* This prog
0001E0: 72 61 6D 20 63 72 65 61 74 65 73 20 61 20 64 61 ram creates a da
0001F0: 74 61 20 66 69 6C 65 20 63 61 6C 6C 65 64 20 44 ta file called D
Size : 512 (Real : 512)
000000: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
000010: 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 .. OBJECT-COMPU
000020: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
000030: 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 8...INPUT-OUTPUT
000040: 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D SECTION...FILE-
000050: 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 CONTROL... SELE
000060: 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 CT NAME-FILE ASS
000070: 49 47 4E 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A IGN NAMES.DAT...
000080: 20 20 53 45 4C 45 43 54 20 54 45 4D 50 2D 46 49 SELECT TEMP-FI
000090: 4C 45 20 41 53 53 49 47 4E 20 54 45 4D 50 2E 44 LE ASSIGN TEMP.D
0000A0: 41 54 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 AT...*..DATA DIV
0000B0: 49 53 49 4F 4E 2E 0D 0A 46 49 4C 45 20 53 45 43 ISION...FILE SEC
0000C0: 54 49 4F 4E 2E 0D 0A 46 44 20 4E 41 4D 45 2D 46 TION...FD NAME-F
0000D0: 49 4C 45 2E 0D 0A 20 20 30 31 20 53 54 4F 52 45 ILE... 01 STORE
0000E0: 44 2D 4E 41 4D 45 20 20 20 20 50 49 43 20 58 28 D-NAME PIC X(
0000F0: 33 30 29 2E 0D 0A 46 44 20 54 45 4D 50 2D 46 49 30)...FD TEMP-FI
000100: 4C 45 2E 0D 0A 20 20 30 31 20 54 45 4D 50 2D 4E LE... 01 TEMP-N
000110: 41 4D 45 20 20 20 20 20 20 50 49 43 20 58 28 33 AME PIC X(3
000120: 30 29 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 0)...WORKING-STO
000130: 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 RAGE SECTION...
000140: 20 30 31 20 52 45 50 4C 59 20 20 20 20 20 20 20 01 REPLY
000150: 20 20 20 50 49 43 20 58 2E 0D 0A 2A 0D 0A 50 52 PIC X...*..PR
000160: 4F 43 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E OCEDURE DIVISION
000170: 2E 0D 0A 4F 50 45 4E 2D 46 49 4C 45 53 2E 0D 0A ...OPEN-FILES...
000180: 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A DISPLAY ' '...
000190: 20 20 44 49 53 50 4C 41 59 20 27 4F 70 65 6E 69 DISPLAY 'Openi
0001A0: 6E 67 20 54 68 65 20 44 69 73 63 20 46 69 6C 65 ng The Disc File
0001B0: 73 27 2E 0D 0A 20 20 4F 50 45 4E 20 49 4E 50 55 s'... OPEN INPU
0001C0: 54 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 T NAME-FILE...
0001D0: 4F 50 45 4E 20 4F 55 54 50 55 54 20 54 45 4D 50 OPEN OUTPUT TEMP
0001E0: 2D 46 49 4C 45 2E 0D 0A 43 4F 50 59 2D 4F 4C 44 -FILE...COPY-OLD
0001F0: 2D 46 49 4C 45 2E 0D 0A 20 20 52 45 41 44 20 4E -FILE... READ N
Size : 512 (Real : 512)
000000: 41 54 41 2E 44 41 54 20 77 68 69 63 68 20 69 73 ATA.DAT which is
000010: 20 75 73 65 64 20 69 6E 0D 0A 2A 20 70 72 6F 67 used in..* prog
000020: 72 61 6D 20 73 69 78 74 65 65 6E 2E 0D 0A 2A 0D ram sixteen...*.
000030: 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 .ENVIRONMENT DIV
000040: 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 52 ISION...CONFIGUR
000050: 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A ATION SECTION...
000060: 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 SOURCE-COMPUTE
000070: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
000080: 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 .. OBJECT-COMPU
000090: 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 TER. Amstrad 612
0000A0: 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 54 8...INPUT-OUTPUT
0000B0: 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 2D SECTION...FILE-
0000C0: 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C 45 CONTROL... SELE
0000D0: 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 CT NAME-FILE ASS
0000E0: 49 47 4E 20 44 41 54 41 2E 44 41 54 2E 0D 0A 2A IGN DATA.DAT...*
0000F0: 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F 4E 2E ..DATA DIVISION.
000100: 0D 0A 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D ..FILE SECTION..
000110: 0A 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A .FD NAME-FILE...
000120: 30 31 20 45 4D 50 4C 4F 59 45 45 2D 52 45 43 4F 01 EMPLOYEE-RECO
000130: 52 44 2E 0D 0A 20 20 30 33 20 4E 41 4D 45 20 20 RD... 03 NAME
000140: 20 20 20 20 20 20 20 50 49 43 20 58 28 33 30 29 PIC X(30)
000150: 2E 0D 0A 20 20 30 33 20 57 4F 52 4B 2D 4E 55 4D ... 03 WORK-NUM
000160: 20 20 20 20 20 50 49 43 20 58 28 38 29 2E 0D 0A PIC X(8)...
000170: 20 20 30 33 20 44 45 50 54 20 20 20 20 20 20 20 03 DEPT
000180: 20 20 50 49 43 20 58 28 38 29 2E 0D 0A 20 20 30 PIC X(8)... 0
000190: 33 20 44 4F 46 42 20 20 20 20 20 20 20 20 20 50 3 DOFB P
0001A0: 49 43 20 58 28 38 29 2E 0D 0A 0D 0A 2A 20 62 65 IC X(8).....* be
0001B0: 63 61 75 73 65 20 74 68 65 72 65 20 61 72 65 20 cause there are
0001C0: 6E 6F 20 61 64 64 69 74 69 6F 6E 61 6C 20 69 64 no additional id
0001D0: 65 6E 74 69 66 69 65 72 73 20 74 6F 20 62 65 20 entifiers to be
0001E0: 64 65 63 6C 61 72 65 64 20 77 65 20 64 6F 0D 0A declared we do..
0001F0: 2A 20 6E 65 65 64 20 74 68 65 20 57 4F 52 4B 49 * need the WORKI
Size : 512 (Real : 512)
000000: 41 4D 45 2D 46 49 4C 45 20 45 4E 44 20 47 4F 20 AME-FILE END GO
000010: 41 44 44 2D 4E 45 57 2D 4E 41 4D 45 53 2E 0D 0A ADD-NEW-NAMES...
000020: 20 20 4D 4F 56 45 20 53 54 4F 52 45 44 2D 4E 41 MOVE STORED-NA
000030: 4D 45 20 54 4F 20 54 45 4D 50 2D 4E 41 4D 45 2E ME TO TEMP-NAME.
000040: 0D 0A 20 20 57 52 49 54 45 20 54 45 4D 50 2D 4E .. WRITE TEMP-N
000050: 41 4D 45 2E 0D 0A 20 20 47 4F 20 43 4F 50 59 2D AME... GO COPY-
000060: 4F 4C 44 2D 46 49 4C 45 2E 0D 0A 41 44 44 2D 4E OLD-FILE...ADD-N
000070: 45 57 2D 4E 41 4D 45 53 2E 0D 0A 20 20 44 49 53 EW-NAMES... DIS
000080: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 44 49 53 PLAY ' '... DIS
000090: 50 4C 41 59 20 27 50 6C 65 61 73 65 20 45 6E 74 PLAY 'Please Ent
0000A0: 65 72 20 41 20 4E 61 6D 65 27 2E 0D 0A 20 20 44 er A Name'... D
0000B0: 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 20 41 ISPLAY ' '... A
0000C0: 43 43 45 50 54 20 54 45 4D 50 2D 4E 41 4D 45 2E CCEPT TEMP-NAME.
0000D0: 0D 0A 20 20 57 52 49 54 45 20 54 45 4D 50 2D 4E .. WRITE TEMP-N
0000E0: 41 4D 45 2E 0D 0A 43 4F 4E 54 49 4E 55 45 2D 59 AME...CONTINUE-Y
0000F0: 45 53 2F 4E 4F 2E 0D 0A 20 20 4D 4F 56 45 20 27 ES/NO... MOVE '
000100: 20 27 20 54 4F 20 52 45 50 4C 59 2E 0D 0A 20 20 ' TO REPLY...
000110: 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 43 DISPLAY 'Enter C
000120: 20 74 6F 20 43 6F 6E 74 69 6E 75 65 27 2E 0D 0A to Continue'...
000130: 20 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 DISPLAY 'Enter
000140: 20 45 20 74 6F 20 45 6E 64 27 2E 0D 0A 20 20 41 E to End'... A
000150: 43 43 45 50 54 20 52 45 50 4C 59 2E 0D 0A 20 20 CCEPT REPLY...
000160: 20 20 49 46 20 52 45 50 4C 59 20 45 51 55 41 4C IF REPLY EQUAL
000170: 20 27 43 27 20 20 47 4F 20 41 44 44 2D 4E 45 57 'C' GO ADD-NEW
000180: 2D 4E 41 4D 45 53 20 45 4E 44 2D 49 46 2E 0D 0A -NAMES END-IF...
000190: 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 51 55 IF REPLY EQU
0001A0: 41 4C 20 27 63 27 20 20 47 4F 20 41 44 44 2D 4E AL 'c' GO ADD-N
0001B0: 45 57 2D 4E 41 4D 45 53 20 45 4E 44 2D 49 46 2E EW-NAMES END-IF.
0001C0: 0D 0A 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 .. IF REPLY E
0001D0: 51 55 41 4C 20 27 45 27 20 20 47 4F 20 43 4C 4F QUAL 'E' GO CLO
0001E0: 53 45 2D 46 49 4C 45 53 20 45 4E 44 2D 49 46 2E SE-FILES END-IF.
0001F0: 0D 0A 20 20 20 20 49 46 20 52 45 50 4C 59 20 45 .. IF REPLY E
Size : 512 (Real : 512)
000000: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
000010: 4F 4E 2E 0D 0A 0D 0A 50 52 4F 43 45 44 55 52 45 ON.....PROCEDURE
000020: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 4F 50 45 4E DIVISION...OPEN
000030: 2D 46 49 4C 45 2E 0D 0A 20 20 4F 50 45 4E 20 4F -FILE... OPEN O
000040: 55 54 50 55 54 20 4E 41 4D 45 2D 46 49 4C 45 2E UTPUT NAME-FILE.
000050: 0D 0A 50 52 49 4E 54 2D 49 4E 53 54 52 55 43 54 ..PRINT-INSTRUCT
000060: 49 4F 4E 53 2E 0D 0A 20 20 44 49 53 50 4C 41 59 IONS... DISPLAY
000070: 20 27 45 6E 74 65 72 20 54 68 65 20 46 6F 6C 6C 'Enter The Foll
000080: 6F 77 69 6E 67 20 44 61 74 61 27 2E 0D 0A 20 20 owing Data'...
000090: 44 49 53 50 4C 41 59 20 27 46 6F 72 20 46 69 76 DISPLAY 'For Fiv
0000A0: 65 20 45 6D 70 6C 6F 79 65 65 73 27 2E 0D 0A 20 e Employees'...
0000B0: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 47 DISPLAY ' '...G
0000C0: 45 54 2D 44 45 54 41 49 4C 53 2E 0D 0A 20 20 50 ET-DETAILS... P
0000D0: 45 52 46 4F 52 4D 20 45 4E 54 45 52 2D 44 41 54 ERFORM ENTER-DAT
0000E0: 41 20 35 20 54 49 4D 45 53 2E 0D 0A 20 20 43 4C A 5 TIMES... CL
0000F0: 4F 53 45 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A OSE NAME-FILE...
000100: 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A 45 4E 54 STOP RUN...ENT
000110: 45 52 2D 44 41 54 41 2E 0D 0A 20 20 44 49 53 50 ER-DATA... DISP
000120: 4C 41 59 20 27 45 6E 74 65 72 20 4E 61 6D 65 27 LAY 'Enter Name'
000130: 2E 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 6D 61 ... DISPLAY 'ma
000140: 78 20 33 30 20 63 68 61 72 73 2E 27 2E 0D 0A 20 x 30 chars.'...
000150: 20 41 43 43 45 50 54 20 4E 41 4D 45 2E 0D 0A 20 ACCEPT NAME...
000160: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
000170: 57 6F 72 6B 73 20 4E 75 6D 62 65 72 27 2E 0D 0A Works Number'...
000180: 20 20 44 49 53 50 4C 41 59 20 27 6D 61 78 20 38 DISPLAY 'max 8
000190: 20 63 68 61 72 73 2E 27 2E 0D 0A 20 20 41 43 43 chars.'... ACC
0001A0: 45 50 54 20 57 4F 52 4B 2D 4E 55 4D 2E 0D 0A 20 EPT WORK-NUM...
0001B0: 20 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 DISPLAY 'Enter
0001C0: 44 65 70 61 72 74 6D 65 6E 74 27 2E 0D 0A 20 20 Department'...
0001D0: 44 49 53 50 4C 41 59 20 27 6D 61 78 20 38 20 63 DISPLAY 'max 8 c
0001E0: 68 61 72 73 2E 27 2E 0D 0A 20 20 41 43 43 45 50 hars.'... ACCEP
0001F0: 54 20 44 45 50 54 2E 0D 0A 20 20 44 49 53 50 4C T DEPT... DISPL
Size : 512 (Real : 512)
000000: 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 ... 03 FILLER
000010: 20 20 20 20 20 20 20 50 49 43 20 58 28 35 29 20 PIC X(5)
000020: 20 20 56 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A VALUE SPACE...
000030: 20 20 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 03 FILLER
000040: 20 20 20 20 50 49 43 20 58 28 34 29 20 20 20 56 PIC X(4) V
000050: 41 4C 55 45 20 27 4E 61 6D 65 27 2E 0D 0A 20 20 ALUE 'Name'...
000060: 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 20 20 03 FILLER
000070: 20 20 50 49 43 20 58 28 33 30 29 20 20 56 41 4C PIC X(30) VAL
000080: 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 UE SPACE... 03
000090: 46 49 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 FILLER P
0000A0: 49 43 20 58 28 31 32 29 20 20 56 41 4C 55 45 20 IC X(12) VALUE
0000B0: 27 57 6F 72 6B 20 4E 6F 2E 20 20 20 20 27 2E 0D 'Work No. '..
0000C0: 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 20 20 . 03 FILLER
0000D0: 20 20 20 20 20 50 49 43 20 58 28 31 32 29 20 20 PIC X(12)
0000E0: 56 41 4C 55 45 20 27 44 65 70 74 2E 20 20 20 20 VALUE 'Dept.
0000F0: 20 20 20 27 2E 0D 0A 20 20 30 33 20 46 49 4C 4C '... 03 FILL
000100: 45 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 ER PIC X
000110: 28 38 29 20 20 20 56 41 4C 55 45 20 27 44 20 6F (8) VALUE 'D o
000120: 66 20 42 20 20 27 2E 0D 0A 20 20 30 33 20 46 49 f B '... 03 FI
000130: 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 49 43 LLER PIC
000140: 20 58 28 39 29 20 20 20 56 41 4C 55 45 20 53 50 X(9) VALUE SP
000150: 41 43 45 2E 0D 0A 30 31 20 42 4C 41 4E 4B 2D 4C ACE...01 BLANK-L
000160: 49 4E 45 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 INE... 03 FILLE
000170: 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 20 R PIC X
000180: 20 20 20 20 20 56 41 4C 55 45 20 53 50 41 43 45 VALUE SPACE
000190: 2E 0D 0A 30 31 20 50 52 49 4E 54 2D 4C 49 4E 45 ...01 PRINT-LINE
0001A0: 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 20 ... 03 FILLER
0001B0: 20 20 20 20 20 20 20 50 49 43 20 58 28 35 29 20 PIC X(5)
0001C0: 20 20 56 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A VALUE SPACE...
0001D0: 20 20 30 33 20 50 52 49 4E 54 2D 4E 41 4D 45 20 03 PRINT-NAME
0001E0: 20 20 20 20 50 49 43 20 58 28 33 34 29 20 20 56 PIC X(34) V
0001F0: 41 4C 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 ALUE SPACE... 0
Size : 512 (Real : 512)
000000: 41 59 20 27 45 6E 74 65 72 20 44 61 74 65 20 4F AY 'Enter Date O
000010: 66 20 42 69 72 74 68 27 2E 0D 0A 20 20 44 49 53 f Birth'... DIS
000020: 50 4C 41 59 20 27 46 6F 72 6D 61 74 20 44 44 2F PLAY 'Format DD/
000030: 4D 4D 2F 59 59 27 2E 0D 0A 20 20 41 43 43 45 50 MM/YY'... ACCEP
000040: 54 20 44 4F 46 42 2E 0D 0A 2A 0D 0A 20 20 57 52 T DOFB...*.. WR
000050: 49 54 45 20 45 4D 50 4C 4F 59 45 45 2D 52 45 43 ITE EMPLOYEE-REC
000060: 4F 52 44 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 ORD.......PROGRA
000070: 4D 20 53 49 58 54 45 45 4E 2E 0D 0A 3D 3D 3D 3D M SIXTEEN...====
000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
000090: 54 68 69 73 20 70 72 6F 67 72 61 6D 20 63 72 65 This program cre
0000A0: 61 74 65 73 20 74 68 65 20 61 73 63 69 69 20 66 ates the ascii f
0000B0: 69 6C 65 20 20 77 68 69 63 68 20 20 77 69 6C 6C ile which will
0000C0: 20 62 65 20 70 72 69 6E 74 65 64 20 6F 75 74 20 be printed out
0000D0: 75 73 69 6E 67 20 56 44 45 2E 0D 0A 50 72 6F 67 using VDE...Prog
0000E0: 72 61 6D 20 73 69 78 74 65 65 6E 20 69 73 20 71 ram sixteen is q
0000F0: 75 69 74 65 20 6C 6F 6E 67 20 73 6F 20 20 74 68 uite long so th
000100: 65 20 70 72 6F 67 72 61 6D 20 6E 6F 74 65 73 20 e program notes
000110: 68 61 76 65 20 62 65 65 6E 20 69 6E 74 65 72 73 have been inters
000120: 70 65 72 73 65 64 0D 0A 62 65 74 77 65 65 6E 20 persed..between
000130: 74 68 65 20 70 72 6F 67 72 61 6D 20 63 6F 6D 6D the program comm
000140: 61 6E 64 73 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 ands.....IDENTIF
000150: 49 43 41 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E ICATION DIVISION
000160: 2E 0D 0A 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 ...PROGRAM-ID.
000170: 20 45 78 61 6D 70 6C 65 20 53 69 78 74 65 65 6E Example Sixteen
000180: 2E 0D 0A 2A 0D 0A 2A 20 54 68 69 73 20 70 72 6F ...*..* This pro
000190: 67 72 61 6D 20 73 61 76 65 73 20 61 20 64 61 74 gram saves a dat
0001A0: 61 20 66 69 6C 65 20 74 6F 20 64 69 73 63 2E 20 a file to disc.
0001B0: 54 68 65 20 66 69 6C 65 20 68 61 73 20 62 65 65 The file has bee
0001C0: 6E 20 66 6F 72 6D 61 74 74 65 64 0D 0A 2A 20 72 n formatted..* r
0001D0: 65 61 64 79 20 66 6F 72 20 70 72 69 6E 74 69 6E eady for printin
0001E0: 67 20 6F 75 74 20 75 73 69 6E 67 20 56 44 45 0D g out using VDE.
0001F0: 0A 2A 0D 0A 2A 20 4D 65 74 68 6F 64 20 2D 20 52 .*..* Method - R
Size : 512 (Real : 512)
000000: 33 20 50 52 49 4E 54 2D 57 4F 52 4B 2D 4E 55 4D 3 PRINT-WORK-NUM
000010: 20 50 49 43 20 58 28 31 32 29 20 20 56 41 4C 55 PIC X(12) VALU
000020: 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 50 E SPACE... 03 P
000030: 52 49 4E 54 2D 44 45 50 54 20 20 20 20 20 50 49 RINT-DEPT PI
000040: 43 20 58 28 31 32 29 20 20 56 41 4C 55 45 20 53 C X(12) VALUE S
000050: 50 41 43 45 2E 0D 0A 20 20 30 33 20 50 52 49 4E PACE... 03 PRIN
000060: 54 2D 44 4F 46 42 20 20 20 20 20 50 49 43 20 58 T-DOFB PIC X
000070: 28 31 37 29 20 20 56 41 4C 55 45 20 53 50 41 43 (17) VALUE SPAC
000080: 45 2E 0D 0A 0D 0A 27 50 52 49 4E 54 2D 4C 49 4E E.....'PRINT-LIN
000090: 45 20 69 73 20 61 20 73 74 6F 72 61 67 65 20 61 E is a storage a
0000A0: 72 65 61 20 77 68 69 63 68 20 77 65 20 20 61 72 rea which we ar
0000B0: 65 20 75 73 69 6E 67 20 74 6F 20 66 6F 72 6D 61 e using to forma
0000C0: 74 20 74 68 65 20 64 61 74 61 20 77 68 69 63 68 t the data which
0000D0: 0D 0A 20 77 69 6C 6C 20 62 65 20 73 61 76 65 64 .. will be saved
0000E0: 20 74 6F 20 64 69 73 63 2C 20 61 6E 64 20 74 68 to disc, and th
0000F0: 65 6E 20 70 72 69 6E 74 65 64 20 6F 75 74 20 75 en printed out u
000100: 73 69 6E 67 20 74 68 65 20 77 6F 72 64 20 70 72 sing the word pr
000110: 6F 63 65 73 73 6F 72 2E 27 0D 0A 0D 0A 30 31 20 ocessor.'....01
000120: 4C 49 4E 45 2D 43 4F 55 4E 54 20 20 20 20 20 20 LINE-COUNT
000130: 20 50 49 43 20 39 28 32 29 20 20 20 56 41 4C 55 PIC 9(2) VALU
000140: 45 20 5A 45 52 4F 2E 0D 0A 2A 0D 0A 50 52 4F 43 E ZERO...*..PROC
000150: 45 44 55 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D EDURE DIVISION..
000160: 0A 53 54 41 52 54 2E 0D 0A 20 20 4F 50 45 4E 20 .START... OPEN
000170: 4F 55 54 50 55 54 20 50 52 49 4E 54 2D 46 49 4C OUTPUT PRINT-FIL
000180: 45 2E 0D 0A 20 20 4F 50 45 4E 20 49 4E 50 55 54 E... OPEN INPUT
000190: 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 50 NAME-FILE... P
0001A0: 45 52 46 4F 52 4D 20 50 52 49 4E 54 2D 50 41 47 ERFORM PRINT-PAG
0001B0: 45 2D 48 45 41 44 49 4E 47 2E 0D 0A 2A 0D 0A 52 E-HEADING...*..R
0001C0: 45 41 44 2D 50 52 49 4E 54 2E 0D 0A 20 20 49 46 EAD-PRINT... IF
0001D0: 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 45 51 55 41 LINE-COUNT EQUA
0001E0: 4C 20 31 32 0D 0A 20 20 20 50 45 52 46 4F 52 4D L 12.. PERFORM
0001F0: 20 50 52 49 4E 54 2D 45 4E 44 2D 4F 46 2D 50 41 PRINT-END-OF-PA
Size : 512 (Real : 512)
000000: 65 61 64 20 64 61 74 61 20 66 69 6C 65 20 66 72 ead data file fr
000010: 6F 6D 20 64 69 73 63 0D 0A 2A 20 20 20 20 20 20 om disc..*
000020: 20 20 2D 20 43 72 65 61 74 65 20 61 6E 20 6E 65 - Create an ne
000030: 77 20 61 73 63 69 69 20 66 69 6C 65 0D 0A 2A 20 w ascii file..*
000040: 20 20 20 20 20 20 20 20 20 77 69 74 68 20 74 68 with th
000050: 65 20 70 61 67 65 20 68 65 61 64 69 6E 67 73 20 e page headings
000060: 61 6E 64 0D 0A 2A 20 20 20 20 20 20 20 20 20 20 and..*
000070: 74 65 78 74 20 72 65 61 64 79 20 66 6F 72 6D 61 text ready forma
000080: 74 74 65 64 20 66 6F 72 0D 0A 2A 20 20 20 20 20 tted for..*
000090: 20 20 20 20 20 70 72 69 6E 74 69 6E 67 0D 0A 2A printing..*
0000A0: 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 ..ENVIRONMENT DI
0000B0: 56 49 53 49 4F 4E 2E 0D 0A 43 4F 4E 46 49 47 55 VISION...CONFIGU
0000C0: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
0000D0: 0A 20 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 . SOURCE-COMPUT
0000E0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
0000F0: 2E 0D 0A 20 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 ... OBJECT-COMP
000100: 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 UTER. Amstrad 61
000110: 32 38 2E 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 28...INPUT-OUTPU
000120: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 46 49 4C 45 T SECTION...FILE
000130: 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 4C -CONTROL... SEL
000140: 45 43 54 20 4E 41 4D 45 2D 46 49 4C 45 20 41 53 ECT NAME-FILE AS
000150: 53 49 47 4E 20 44 41 54 41 2E 44 41 54 2E 0D 0A SIGN DATA.DAT...
000160: 20 20 53 45 4C 45 43 54 20 50 52 49 4E 54 2D 46 SELECT PRINT-F
000170: 49 4C 45 20 41 53 53 49 47 4E 20 50 52 49 4E 54 ILE ASSIGN PRINT
000180: 2E 44 4F 43 2E 0D 0A 2A 0D 0A 44 41 54 41 20 44 .DOC...*..DATA D
000190: 49 56 49 53 49 4F 4E 2E 0D 0A 46 49 4C 45 20 53 IVISION...FILE S
0001A0: 45 43 54 49 4F 4E 2E 0D 0A 46 44 20 4E 41 4D 45 ECTION...FD NAME
0001B0: 2D 46 49 4C 45 2E 0D 0A 30 31 20 45 4D 50 4C 4F -FILE...01 EMPLO
0001C0: 59 45 45 2D 52 45 43 4F 52 44 2E 0D 0A 20 20 30 YEE-RECORD... 0
0001D0: 33 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 50 3 NAME P
0001E0: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 30 33 20 IC X(30)... 03
0001F0: 57 4F 52 4B 2D 4E 55 4D 20 20 20 20 20 50 49 43 WORK-NUM PIC
Size : 512 (Real : 512)
000000: 47 45 0D 0A 20 20 20 50 45 52 46 4F 52 4D 20 50 GE.. PERFORM P
000010: 52 49 4E 54 2D 50 41 47 45 2D 48 45 41 44 49 4E RINT-PAGE-HEADIN
000020: 47 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A G.. END-IF.....
000030: 27 54 68 65 20 49 46 20 73 74 61 74 65 6D 65 6E 'The IF statemen
000040: 74 20 63 6F 6D 6D 61 6E 64 20 20 69 6E 73 74 72 t command instr
000050: 75 63 74 73 20 20 74 68 65 20 20 63 6F 6D 70 75 ucts the compu
000060: 74 65 72 20 20 74 6F 20 20 63 6F 6D 70 6C 65 74 ter to complet
000070: 65 20 62 6F 74 68 20 74 68 65 0D 0A 20 50 45 52 e both the.. PER
000080: 46 4F 52 4D 20 63 6F 6D 6D 61 6E 64 73 20 77 68 FORM commands wh
000090: 65 6E 20 74 68 65 20 76 61 6C 75 65 20 6F 66 20 en the value of
0000A0: 4C 49 4E 45 2D 43 4F 55 4E 54 20 72 65 61 63 68 LINE-COUNT reach
0000B0: 65 73 20 31 32 2E 27 0D 0A 0D 0A 27 54 68 65 20 es 12.'....'The
0000C0: 76 61 6C 75 65 20 6F 66 20 4C 49 4E 45 2D 43 4F value of LINE-CO
0000D0: 55 4E 54 20 63 61 6E 20 62 65 20 20 73 65 74 20 UNT can be set
0000E0: 20 62 65 74 77 65 65 6E 20 20 30 20 61 6E 64 20 between 0 and
0000F0: 39 39 2C 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 63 99, LINE-COUNT c
000100: 6F 75 6E 74 73 0D 0A 20 74 68 65 20 6E 75 6D 62 ounts.. the numb
000110: 65 72 20 6F 66 20 6C 69 6E 65 73 20 74 68 61 74 er of lines that
000120: 20 68 61 76 65 20 73 61 76 65 64 20 74 6F 20 74 have saved to t
000130: 68 65 20 70 72 69 6E 74 20 66 69 6C 65 2E 27 0D he print file.'.
000140: 0A 0D 0A 2A 0D 0A 20 20 52 45 41 44 20 4E 41 4D ...*.. READ NAM
000150: 45 2D 46 49 4C 45 0D 0A 20 20 45 4E 44 20 47 4F E-FILE.. END GO
000160: 20 45 4E 44 2D 4F 46 2D 4A 4F 42 2E 0D 0A 2A 0D END-OF-JOB...*.
000170: 0A 20 20 4D 4F 56 45 20 4E 41 4D 45 20 54 4F 20 . MOVE NAME TO
000180: 50 52 49 4E 54 2D 4E 41 4D 45 2E 0D 0A 20 20 4D PRINT-NAME... M
000190: 4F 56 45 20 57 4F 52 4B 2D 4E 55 4D 20 54 4F 20 OVE WORK-NUM TO
0001A0: 50 52 49 4E 54 2D 57 4F 52 4B 2D 4E 55 4D 2E 0D PRINT-WORK-NUM..
0001B0: 0A 20 20 4D 4F 56 45 20 44 45 50 54 20 54 4F 20 . MOVE DEPT TO
0001C0: 50 52 49 4E 54 2D 44 45 50 54 2E 0D 0A 20 20 4D PRINT-DEPT... M
0001D0: 4F 56 45 20 44 4F 46 42 20 54 4F 20 50 52 49 4E OVE DOFB TO PRIN
0001E0: 54 2D 44 4F 46 42 2E 0D 0A 0D 0A 27 54 68 65 20 T-DOFB.....'The
0001F0: 4D 4F 56 45 20 63 6F 6D 6D 61 6E 64 73 20 6D 6F MOVE commands mo
Size : 512 (Real : 512)
000000: 20 58 28 38 29 2E 0D 0A 20 20 30 33 20 44 45 50 X(8)... 03 DEP
000010: 54 20 20 20 20 20 20 20 20 20 50 49 43 20 58 28 T PIC X(
000020: 38 29 2E 0D 0A 20 20 30 33 20 44 4F 46 42 20 20 8)... 03 DOFB
000030: 20 20 20 20 20 20 20 50 49 43 20 58 28 38 29 2E PIC X(8).
000040: 0D 0A 0D 0A 46 44 20 50 52 49 4E 54 2D 46 49 4C ....FD PRINT-FIL
000050: 45 2E 0D 0A 30 31 20 42 55 46 46 45 52 20 20 20 E...01 BUFFER
000060: 20 20 20 20 50 49 43 20 58 28 38 30 29 2E 0D 0A PIC X(80)...
000070: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
000080: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 31 20 54 E SECTION...01 T
000090: 49 54 4C 45 2D 4C 49 4E 45 2D 31 2E 0D 0A 20 20 ITLE-LINE-1...
0000A0: 30 33 20 46 49 4C 4C 45 52 20 20 20 20 20 20 20 03 FILLER
0000B0: 20 20 50 49 43 20 58 28 36 39 29 20 20 56 41 4C PIC X(69) VAL
0000C0: 55 45 20 53 50 41 43 45 2E 0D 0A 20 20 30 33 20 UE SPACE... 03
0000D0: 46 49 4C 4C 45 52 20 20 20 20 20 20 20 20 20 50 FILLER P
0000E0: 49 43 20 58 28 35 29 20 20 20 56 41 4C 55 45 20 IC X(5) VALUE
0000F0: 27 50 41 47 45 20 27 2E 0D 0A 20 20 30 33 20 50 'PAGE '... 03 P
000100: 41 47 45 2D 4E 55 4D 42 45 52 20 20 20 20 50 49 AGE-NUMBER PI
000110: 43 20 39 20 20 20 20 20 20 56 41 4C 55 45 20 5A C 9 VALUE Z
000120: 45 52 4F 2E 0D 0A 0D 0A 27 54 68 65 20 54 49 54 ERO.....'The TIT
000130: 4C 45 2D 4C 49 4E 45 2D 6E 20 69 64 65 6E 74 69 LE-LINE-n identi
000140: 66 69 65 72 73 20 61 72 65 20 73 65 74 20 75 70 fiers are set up
000150: 20 77 69 74 68 69 6E 20 74 68 65 20 57 20 53 20 within the W S
000160: 53 45 43 54 49 4F 4E 20 77 69 74 68 20 74 68 65 SECTION with the
000170: 0D 0A 20 66 6F 72 6D 61 74 20 61 6E 64 20 76 61 .. format and va
000180: 6C 75 65 73 20 74 68 61 74 20 61 72 65 20 75 73 lues that are us
000190: 65 64 20 77 68 65 6E 20 73 61 76 69 6E 67 20 74 ed when saving t
0001A0: 68 65 20 61 73 63 69 69 20 66 69 6C 65 20 74 6F he ascii file to
0001B0: 20 64 69 73 63 2E 27 0D 0A 0D 0A 27 46 49 4C 4C disc.'....'FILL
0001C0: 45 52 20 69 73 20 61 20 73 70 65 63 69 61 6C 20 ER is a special
0001D0: 69 64 65 6E 74 69 66 69 65 72 2C 20 69 74 20 69 identifier, it i
0001E0: 73 20 75 73 65 64 20 20 69 6E 20 74 68 65 20 57 s used in the W
0001F0: 20 53 20 53 45 43 54 49 4F 4E 20 66 6F 72 20 76 S SECTION for v
Size : 512 (Real : 512)
000000: 76 65 20 74 68 65 20 76 61 6C 75 65 73 20 66 72 ve the values fr
000010: 6F 6D 20 74 68 65 20 66 69 6C 65 20 72 65 63 6F om the file reco
000020: 72 64 20 74 68 61 74 20 68 61 73 20 62 65 65 6E rd that has been
000030: 20 52 45 41 44 0D 0A 20 69 6E 74 6F 20 74 68 65 READ.. into the
000040: 20 57 20 53 20 53 45 43 54 49 4F 4E 2C 20 77 68 W S SECTION, wh
000050: 65 72 65 20 74 68 65 20 61 72 65 61 20 68 61 73 ere the area has
000060: 20 62 65 65 6E 20 66 6F 72 6D 61 74 74 65 64 20 been formatted
000070: 72 65 61 64 79 20 66 6F 72 20 77 72 69 74 69 6E ready for writin
000080: 67 0D 0A 20 74 6F 20 74 68 65 20 70 72 69 6E 74 g.. to the print
000090: 20 66 69 6C 65 2E 27 0D 0A 0D 0A 20 20 4D 4F 56 file.'.... MOV
0000A0: 45 20 50 52 49 4E 54 2D 4C 49 4E 45 20 54 4F 20 E PRINT-LINE TO
0000B0: 42 55 46 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 BUFFER... WRITE
0000C0: 20 42 55 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 BUFFER... MOVE
0000D0: 20 42 4C 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 BLANK-LINE TO B
0000E0: 55 46 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 UFFER... WRITE
0000F0: 42 55 46 46 45 52 2E 0D 0A 20 20 41 44 44 20 32 BUFFER... ADD 2
000100: 20 54 4F 20 4C 49 4E 45 2D 43 4F 55 4E 54 2E 0D TO LINE-COUNT..
000110: 0A 20 20 47 4F 20 52 45 41 44 2D 50 52 49 4E 54 . GO READ-PRINT
000120: 2E 0D 0A 0D 0A 27 57 65 20 61 64 64 20 32 20 74 .....'We add 2 t
000130: 6F 20 4C 49 4E 45 2D 43 4F 55 4E 54 20 62 65 63 o LINE-COUNT bec
000140: 61 75 73 65 20 77 65 20 20 68 61 76 65 20 20 77 ause we have w
000150: 72 69 74 74 65 6E 20 74 77 6F 20 6C 69 6E 65 73 ritten two lines
000160: 20 6F 66 20 74 65 78 74 20 74 6F 20 74 68 65 0D of text to the.
000170: 0A 20 70 72 69 6E 74 20 66 69 6C 65 2E 27 0D 0A . print file.'..
000180: 0D 0A 45 4E 44 2D 4F 46 2D 4A 4F 42 2E 0D 0A 20 ..END-OF-JOB...
000190: 20 43 4C 4F 53 45 20 50 52 49 4E 54 2D 46 49 4C CLOSE PRINT-FIL
0001A0: 45 2E 0D 0A 20 20 43 4C 4F 53 45 20 4E 41 4D 45 E... CLOSE NAME
0001B0: 2D 46 49 4C 45 2E 0D 0A 20 20 53 54 4F 50 20 52 -FILE... STOP R
0001C0: 55 4E 2E 0D 0A 2A 0D 0A 2A 20 53 75 62 20 52 6F UN...*..* Sub Ro
0001D0: 75 74 69 6E 65 73 0D 0A 2A 0D 0A 50 52 49 4E 54 utines..*..PRINT
0001E0: 2D 45 4E 44 2D 4F 46 2D 50 41 47 45 2E 0D 0A 20 -END-OF-PAGE...
0001F0: 20 4D 4F 56 45 20 42 4C 41 4E 4B 2D 4C 49 4E 45 MOVE BLANK-LINE
Size : 512 (Real : 512)
000000: 61 6C 75 65 73 0D 0A 20 74 68 61 74 20 61 72 65 alues.. that are
000010: 20 6E 6F 74 20 75 73 65 64 20 65 6C 73 65 77 68 not used elsewh
000020: 65 72 65 2E 20 59 6F 75 20 63 61 6E 6E 6F 74 20 ere. You cannot
000030: 61 63 63 65 73 73 20 74 68 65 20 76 61 6C 75 65 access the value
000040: 20 68 65 6C 64 20 69 6E 20 61 20 46 49 4C 4C 45 held in a FILLE
000050: 52 0D 0A 20 69 64 65 6E 74 69 66 69 65 72 20 66 R.. identifier f
000060: 72 6F 6D 20 74 68 65 20 50 52 4F 43 45 44 55 52 rom the PROCEDUR
000070: 45 20 44 49 56 49 53 49 4F 4E 2E 27 0D 0A 0D 0A E DIVISION.'....
000080: 27 53 50 41 43 45 20 69 73 20 61 20 72 65 73 65 'SPACE is a rese
000090: 72 76 65 64 20 20 77 6F 72 64 20 20 77 68 69 63 rved word whic
0000A0: 68 20 20 66 69 6C 6C 20 20 61 6E 20 20 69 64 65 h fill an ide
0000B0: 6E 74 69 66 69 65 72 20 77 69 74 68 20 73 70 61 ntifier with spa
0000C0: 63 65 73 2E 20 53 50 41 43 45 0D 0A 20 63 61 6E ces. SPACE.. can
0000D0: 6E 6F 74 20 62 65 20 75 73 65 64 20 77 69 74 68 not be used with
0000E0: 20 61 20 6E 75 6D 65 72 69 63 20 69 64 65 6E 74 a numeric ident
0000F0: 69 66 69 65 72 2E 27 0D 0A 0D 0A 27 5A 45 52 4F ifier.'....'ZERO
000100: 20 69 73 20 61 20 72 65 73 65 72 76 65 64 20 77 is a reserved w
000110: 6F 72 64 20 75 73 65 64 20 20 74 6F 20 20 6D 61 ord used to ma
000120: 6B 65 20 20 74 68 65 20 20 76 61 6C 75 65 20 6F ke the value o
000130: 66 20 61 6E 20 69 64 65 6E 74 69 66 69 65 72 20 f an identifier
000140: 30 2C 20 69 74 0D 0A 20 63 61 6E 6E 6F 74 20 62 0, it.. cannot b
000150: 65 20 75 73 65 64 20 77 69 74 68 20 61 20 73 74 e used with a st
000160: 72 69 6E 67 20 69 64 65 6E 74 69 66 69 65 72 2E ring identifier.
000170: 27 0D 0A 0D 0A 30 31 20 54 49 54 4C 45 2D 4C 49 '....01 TITLE-LI
000180: 4E 45 2D 32 2E 0D 0A 20 20 30 33 20 46 49 4C 4C NE-2... 03 FILL
000190: 45 52 20 20 20 20 20 20 20 20 20 50 49 43 20 58 ER PIC X
0001A0: 28 33 30 29 20 20 56 41 4C 55 45 20 53 50 41 43 (30) VALUE SPAC
0001B0: 45 2E 0D 0A 20 20 30 33 20 46 49 4C 4C 45 52 20 E... 03 FILLER
0001C0: 20 20 20 20 20 20 20 20 50 49 43 20 58 28 31 39 PIC X(19
0001D0: 29 20 20 56 41 4C 55 45 20 27 2D 20 45 4D 50 4C ) VALUE '- EMPL
0001E0: 4F 59 45 45 20 52 45 50 4F 52 54 20 2D 27 2E 0D OYEE REPORT -'..
0001F0: 0A 30 31 20 54 49 54 4C 45 2D 4C 49 4E 45 2D 33 .01 TITLE-LINE-3
Size : 512 (Real : 512)
000000: 20 54 4F 20 42 55 46 46 45 52 2E 0D 0A 20 20 57 TO BUFFER... W
000010: 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A 20 20 RITE BUFFER...
000020: 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A 20 WRITE BUFFER...
000030: 20 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D 0A WRITE BUFFER...
000040: 20 20 57 52 49 54 45 20 42 55 46 46 45 52 2E 0D WRITE BUFFER..
000050: 0A 0D 0A 27 54 68 65 20 66 6F 75 72 20 57 52 49 ...'The four WRI
000060: 54 45 20 42 55 46 46 45 52 20 63 6F 6D 6D 61 6E TE BUFFER comman
000070: 64 73 20 61 72 65 20 75 73 65 64 20 20 61 73 20 ds are used as
000080: 66 6F 72 6D 20 66 65 65 64 20 63 6F 6D 6D 61 6E form feed comman
000090: 64 73 2C 20 74 68 69 73 20 77 69 6C 6C 0D 0A 20 ds, this will..
0000A0: 73 65 70 61 72 61 74 65 20 74 68 65 20 70 61 67 separate the pag
0000B0: 65 73 20 6F 66 20 74 65 78 74 2E 27 0D 0A 0D 0A es of text.'....
0000C0: 50 52 49 4E 54 2D 50 41 47 45 2D 48 45 41 44 49 PRINT-PAGE-HEADI
0000D0: 4E 47 2E 0D 0A 20 20 41 44 44 20 31 20 54 4F 20 NG... ADD 1 TO
0000E0: 50 41 47 45 2D 4E 55 4D 42 45 52 2E 0D 0A 0D 0A PAGE-NUMBER.....
0000F0: 27 41 44 44 20 31 20 54 4F 20 50 41 47 45 2D 4E 'ADD 1 TO PAGE-N
000100: 55 4D 42 45 52 20 69 6E 63 72 65 61 73 65 20 74 UMBER increase t
000110: 68 65 20 70 61 67 65 20 6E 75 6D 62 65 72 20 64 he page number d
000120: 69 73 70 6C 61 79 65 64 20 61 74 20 74 68 65 20 isplayed at the
000130: 74 6F 70 20 6F 66 20 74 68 65 0D 0A 20 70 72 69 top of the.. pri
000140: 6E 74 20 66 69 6C 65 20 68 65 61 64 69 6E 67 73 nt file headings
000150: 2E 27 0D 0A 0D 0A 20 20 4D 4F 56 45 20 54 49 54 .'.... MOVE TIT
000160: 4C 45 2D 4C 49 4E 45 2D 31 20 54 4F 20 42 55 46 LE-LINE-1 TO BUF
000170: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
000180: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
000190: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
0001A0: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
0001B0: 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 54 49 54 FER... MOVE TIT
0001C0: 4C 45 2D 4C 49 4E 45 2D 32 20 54 4F 20 42 55 46 LE-LINE-2 TO BUF
0001D0: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
0001E0: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
0001F0: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
Size : 512 (Real : 512)
000000: 4D 42 45 52 21 27 0D 0A 20 20 47 4F 20 53 54 41 MBER!'.. GO STA
000010: 52 54 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 2A RT.. END-IF...*
000020: 0D 0A 20 20 49 46 20 4E 55 4D 42 45 52 2D 45 4E .. IF NUMBER-EN
000030: 54 45 52 45 44 20 4E 55 4D 45 52 49 43 0D 0A 20 TERED NUMERIC..
000040: 20 44 49 53 50 4C 41 59 20 27 57 65 6C 6C 20 44 DISPLAY 'Well D
000050: 6F 6E 65 27 0D 0A 20 20 4D 4F 56 45 20 4E 55 4D one'.. MOVE NUM
000060: 42 45 52 2D 45 4E 54 45 52 45 44 20 54 4F 20 4E BER-ENTERED TO N
000070: 55 4D 42 45 52 0D 0A 20 20 47 4F 20 53 54 41 52 UMBER.. GO STAR
000080: 54 0D 0A 20 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A T.. END-IF.....
000090: 50 72 6F 67 72 61 6D 20 4E 6F 74 65 73 3A 0D 0A Program Notes:..
0000A0: 0D 0A 31 2E 20 54 68 65 20 73 74 72 69 6E 67 20 ..1. The string
0000B0: 69 64 65 6E 74 69 66 69 65 72 20 61 6E 64 20 20 identifier and
0000C0: 6E 75 6D 65 72 69 63 20 20 69 64 65 6E 74 69 66 numeric identif
0000D0: 69 65 72 20 20 6D 75 73 74 20 20 68 61 76 65 20 ier must have
0000E0: 74 68 65 20 73 61 6D 65 20 50 49 43 0D 0A 20 20 the same PIC..
0000F0: 20 63 6C 61 75 73 65 73 2E 0D 0A 0D 0A 32 2E 20 clauses.....2.
000100: 49 66 20 79 6F 75 20 65 6E 74 65 72 20 20 6D 6F If you enter mo
000110: 72 65 20 20 74 68 61 6E 20 20 34 20 20 63 68 61 re than 4 cha
000120: 72 61 63 74 65 72 73 20 20 74 68 65 6E 20 20 74 racters then t
000130: 68 65 20 65 78 74 72 61 20 63 68 61 72 61 63 74 he extra charact
000140: 65 72 73 20 61 72 65 0D 0A 20 20 20 27 6C 6F 73 ers are.. 'los
000150: 74 27 20 77 68 65 6E 20 74 68 65 79 20 61 72 65 t' when they are
000160: 20 6D 6F 76 65 64 20 66 72 6F 6D 20 74 68 65 20 moved from the
000170: 6B 65 79 62 6F 61 72 64 20 62 75 66 66 65 72 20 keyboard buffer
000180: 69 6E 20 74 68 65 20 57 20 53 20 53 45 43 54 49 in the W S SECTI
000190: 4F 4E 2E 0D 0A 0D 0A 20 20 20 54 79 70 65 20 69 ON..... Type i
0001A0: 6E 20 61 6E 20 65 69 67 68 74 20 64 69 67 69 74 n an eight digit
0001B0: 20 6E 75 6D 62 65 72 20 20 74 6F 20 20 73 65 65 number to see
0001C0: 20 20 74 68 65 20 65 66 66 65 63 74 2C 20 6F 6E the effect, on
0001D0: 6C 79 20 74 68 65 20 66 69 72 73 74 20 66 6F 75 ly the first fou
0001E0: 72 0D 0A 20 20 20 64 69 67 69 74 73 20 61 72 65 r.. digits are
0001F0: 20 64 69 73 70 6C 61 79 65 64 2E 0D 0A 0D 0A 0D displayed......
Size : 512 (Real : 512)
000000: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
000010: 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 54 49 54 FER... MOVE TIT
000020: 4C 45 2D 4C 49 4E 45 2D 33 20 54 4F 20 42 55 46 LE-LINE-3 TO BUF
000030: 46 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 FER... WRITE BU
000040: 46 46 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 4C FFER... MOVE BL
000050: 41 4E 4B 2D 4C 49 4E 45 20 54 4F 20 42 55 46 46 ANK-LINE TO BUFF
000060: 45 52 2E 0D 0A 20 20 57 52 49 54 45 20 42 55 46 ER... WRITE BUF
000070: 46 45 52 2E 0D 0A 20 20 41 44 44 20 36 20 54 4F FER... ADD 6 TO
000080: 20 4C 49 4E 45 2D 43 4F 55 4E 54 2E 0D 0A 0D 0A LINE-COUNT.....
000090: 27 57 65 20 41 44 44 20 36 20 74 6F 20 4C 49 4E 'We ADD 6 to LIN
0000A0: 45 2D 43 4F 55 4E 54 20 62 65 63 61 75 73 65 20 E-COUNT because
0000B0: 20 77 65 20 20 68 61 76 65 20 20 77 72 69 74 74 we have writt
0000C0: 65 6E 20 20 36 20 6C 69 6E 65 73 20 6F 66 20 74 en 6 lines of t
0000D0: 65 78 74 20 74 6F 20 74 68 65 0D 0A 70 72 69 6E ext to the..prin
0000E0: 74 20 66 69 6C 65 2E 27 0D 0A 0D 0A 0D 0A 50 52 t file.'......PR
0000F0: 49 4E 54 49 4E 47 20 54 48 45 20 50 52 49 4E 54 INTING THE PRINT
000100: 20 46 49 4C 45 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILE...========
000110: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000120: 0D 0A 0D 0A 57 68 65 6E 20 79 6F 75 20 68 61 76 ....When you hav
000130: 65 20 74 79 70 65 64 20 69 6E 20 61 6E 64 20 72 e typed in and r
000140: 75 6E 20 20 70 72 6F 67 72 61 6D 73 20 66 69 66 un programs fif
000150: 74 65 65 6E 20 61 6E 64 20 73 69 78 74 65 65 6E teen and sixteen
000160: 20 79 6F 75 20 61 72 65 20 72 65 61 64 79 0D 0A you are ready..
000170: 74 6F 20 70 72 69 6E 74 20 6F 75 74 20 74 68 65 to print out the
000180: 20 72 65 73 75 6C 74 73 2E 20 54 6F 20 70 72 69 results. To pri
000190: 6E 74 20 20 6F 75 74 20 20 74 68 65 20 20 72 65 nt out the re
0001A0: 73 75 6C 74 73 2C 20 77 65 20 75 73 65 20 74 68 sults, we use th
0001B0: 65 20 56 44 45 20 77 6F 72 64 0D 0A 70 72 6F 63 e VDE word..proc
0001C0: 65 73 73 6F 72 2C 20 73 6F 20 62 65 66 6F 72 65 essor, so before
0001D0: 20 63 6F 6E 74 69 6E 75 69 6E 67 20 20 63 68 65 continuing che
0001E0: 63 6B 20 20 74 68 61 74 20 20 79 6F 75 72 20 20 ck that your
0001F0: 70 72 69 6E 74 65 72 20 69 73 20 6F 6E 2D 6C 69 printer is on-li
Size : 512 (Real : 512)
000000: 0A 4F 54 48 45 52 20 54 45 53 54 53 2E 0D 0A 3D .OTHER TESTS...=
000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 41 ===========....A
000020: 73 20 77 65 6C 6C 20 61 73 20 74 65 73 74 69 6E s well as testin
000030: 67 20 69 66 20 61 6E 20 69 64 65 6E 74 69 66 69 g if an identifi
000040: 65 72 20 20 69 73 20 20 6E 75 6D 65 72 69 63 20 er is numeric
000050: 6F 72 20 6E 6F 74 20 6E 75 6D 65 72 69 63 20 6F or not numeric o
000060: 74 68 65 72 20 74 65 73 74 0D 0A 63 61 6E 20 62 ther test..can b
000070: 65 20 70 65 72 66 6F 72 6D 65 64 2E 0D 0A 0D 0A e performed.....
000080: 20 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 IF 'identifier'
000090: 20 41 4C 50 48 41 42 45 54 49 43 0D 0A 0D 0A 20 ALPHABETIC....
0000A0: 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 20 IF 'identifier'
0000B0: 4E 4F 54 20 41 4C 50 48 41 42 45 54 49 43 0D 0A NOT ALPHABETIC..
0000C0: 0D 0A 20 49 46 20 27 69 64 65 6E 74 69 66 69 65 .. IF 'identifie
0000D0: 72 27 20 45 51 55 41 4C 0D 0A 0D 0A 20 49 46 20 r' EQUAL.... IF
0000E0: 27 69 64 65 6E 74 69 66 69 65 72 27 20 4E 4F 54 'identifier' NOT
0000F0: 20 45 51 55 41 4C 0D 0A 0D 0A 20 49 46 20 27 69 EQUAL.... IF 'i
000100: 64 65 6E 74 69 66 69 65 72 27 20 47 52 45 41 54 dentifier' GREAT
000110: 45 52 0D 0A 0D 0A 20 49 46 20 27 69 64 65 6E 74 ER.... IF 'ident
000120: 69 66 69 65 72 27 20 4E 4F 54 20 47 52 45 41 54 ifier' NOT GREAT
000130: 45 52 0D 0A 0D 0A 20 49 46 20 27 69 64 65 6E 74 ER.... IF 'ident
000140: 69 66 69 65 72 27 20 4C 45 53 53 0D 0A 0D 0A 20 ifier' LESS....
000150: 49 46 20 27 69 64 65 6E 74 69 66 69 65 72 27 20 IF 'identifier'
000160: 4E 4F 54 20 4C 45 53 53 0D 0A 0D 0A 0D 0A 44 41 NOT LESS......DA
000170: 54 45 53 2E 0D 0A 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A TES...======....
000180: 57 65 20 75 73 65 20 74 68 65 20 66 6F 72 6D 61 We use the forma
000190: 74 20 44 44 2F 4D 4D 2F 59 59 20 74 6F 20 65 78 t DD/MM/YY to ex
0001A0: 70 72 65 73 73 20 74 68 65 20 64 61 74 65 2C 20 press the date,
0001B0: 74 68 65 20 61 6D 65 72 69 63 61 6E 73 20 75 73 the americans us
0001C0: 65 20 4D 4D 2F 44 44 2F 59 59 0D 0A 74 6F 20 65 e MM/DD/YY..to e
0001D0: 78 70 72 65 73 73 20 74 68 65 20 64 61 74 65 2E xpress the date.
0001E0: 20 57 68 65 6E 20 79 6F 75 20 77 61 6E 74 20 20 When you want
0001F0: 74 6F 20 63 6F 6D 70 61 72 65 20 64 61 74 65 73 to compare dates
Size : 512 (Real : 512)
000000: 6E 65 20 61 6E 64 0D 0A 6C 6F 61 64 65 64 20 77 ne and..loaded w
000010: 69 74 68 20 70 61 70 65 72 2E 20 54 68 65 6E 20 ith paper. Then
000020: 74 79 70 65 20 69 6E 20 74 68 65 20 66 6F 6C 6C type in the foll
000030: 6F 77 69 6E 67 20 63 6F 6D 6D 61 6E 64 73 2E 0D owing commands..
000040: 0A 0D 0A 20 56 44 45 20 50 52 49 4E 54 2E 44 4F ... VDE PRINT.DO
000050: 43 0D 0A 0D 0A 27 54 68 69 73 20 6C 6F 61 64 73 C....'This loads
000060: 20 56 44 45 20 61 6E 64 20 74 68 65 20 70 72 69 VDE and the pri
000070: 6E 74 20 66 69 6C 65 2C 20 77 68 65 6E 20 56 44 nt file, when VD
000080: 45 20 68 61 73 20 6C 6F 61 64 65 64 20 74 79 70 E has loaded typ
000090: 65 2C 27 0D 0A 0D 0A 20 43 54 52 4C 20 4F 20 20 e,'.... CTRL O
0000A0: 50 0D 0A 0D 0A 27 43 54 52 4C 20 4F 20 66 6F 6C P....'CTRL O fol
0000B0: 6C 6F 77 65 64 20 62 79 20 50 2C 20 73 77 69 74 lowed by P, swit
0000C0: 63 68 65 73 20 6F 66 66 20 56 44 45 20 70 61 67 ches off VDE pag
0000D0: 69 6E 61 74 69 6F 6E 20 6D 6F 64 65 2C 20 73 6F ination mode, so
0000E0: 20 66 6F 72 6D 73 20 66 65 65 64 20 65 74 63 0D forms feed etc.
0000F0: 0A 20 61 72 65 20 64 69 73 61 62 6C 65 64 2E 27 . are disabled.'
000100: 0D 0A 0D 0A 20 45 53 43 20 50 0D 0A 0D 0A 27 45 .... ESC P....'E
000110: 53 43 20 50 20 69 73 20 74 68 65 20 56 44 45 20 SC P is the VDE
000120: 20 63 6F 6D 6D 61 6E 64 20 20 66 6F 72 20 20 70 command for p
000130: 72 69 6E 74 20 20 74 68 65 20 20 66 69 6C 65 2C rint the file,
000140: 20 20 79 6F 75 20 20 77 69 6C 6C 20 62 65 20 61 you will be a
000150: 73 6B 65 64 20 66 6F 72 0D 0A 20 4F 50 54 49 4F sked for.. OPTIO
000160: 4E 53 2C 27 0D 0A 0D 0A 20 70 72 65 73 73 20 52 NS,'.... press R
000170: 45 54 55 52 4E 0D 0A 0D 0A 27 52 65 74 75 72 6E ETURN....'Return
000180: 20 69 6E 64 69 63 61 74 65 73 20 6E 6F 20 6F 70 indicates no op
000190: 74 69 6F 6E 73 20 73 65 6C 65 63 74 65 64 2C 20 tions selected,
0001A0: 73 6F 20 20 74 68 65 20 20 66 69 6C 65 20 20 69 so the file i
0001B0: 73 20 70 72 69 6E 74 65 64 20 6F 75 74 20 61 73 s printed out as
0001C0: 20 69 74 0D 0A 20 73 74 61 6E 64 73 2E 27 0D 0A it.. stands.'..
0001D0: 0D 0A 54 68 65 20 66 69 6C 65 20 77 69 6C 6C 20 ..The file will
0001E0: 6E 6F 77 20 62 65 20 70 72 69 6E 74 65 64 20 6F now be printed o
0001F0: 75 74 2E 20 59 6F 75 20 20 63 61 6E 20 69 67 6E ut. You can ign
Size : 512 (Real : 512)
000000: 20 77 69 74 68 69 6E 20 61 20 70 72 6F 67 72 61 within a progra
000010: 6D 20 74 68 65 6E 0D 0A 79 6F 75 20 61 72 65 20 m then..you are
000020: 62 65 74 74 65 72 20 6F 66 66 20 75 73 69 6E 67 better off using
000030: 20 59 59 2F 4D 4D 2F 44 44 2C 20 20 62 65 63 61 YY/MM/DD, beca
000040: 75 73 65 20 20 69 66 20 79 6F 75 20 77 61 6E 74 use if you want
000050: 20 74 77 6F 20 63 6F 6D 70 61 72 65 20 64 61 74 two compare dat
000060: 65 73 0D 0A 74 6F 20 66 69 6E 64 20 74 68 65 20 es..to find the
000070: 65 61 72 6C 69 65 72 20 6F 66 20 20 74 68 65 20 earlier of the
000080: 20 64 61 74 65 73 2C 20 20 74 68 65 6E 20 20 79 dates, then y
000090: 6F 75 20 20 63 61 6E 20 63 6F 6D 70 61 72 65 20 ou can compare
0000A0: 74 68 65 20 74 77 6F 20 73 74 72 69 6E 67 0D 0A the two string..
0000B0: 69 64 65 6E 74 69 66 69 65 72 73 20 69 6E 20 77 identifiers in w
0000C0: 68 69 63 68 20 74 68 65 20 64 61 74 65 73 20 61 hich the dates a
0000D0: 72 65 20 68 65 6C 64 2E 20 20 43 6F 6D 70 61 72 re held. Compar
0000E0: 69 73 6F 6E 20 6F 66 20 73 74 72 69 6E 67 73 20 ison of strings
0000F0: 69 73 20 64 6F 6E 65 20 62 79 0D 0A 63 6F 6D 70 is done by..comp
000100: 61 72 69 6E 67 20 74 68 65 20 61 73 63 69 69 20 aring the ascii
000110: 63 6F 64 65 73 20 6F 66 20 74 68 65 20 73 74 72 codes of the str
000120: 69 6E 67 73 20 6F 6E 65 20 62 79 74 65 20 61 74 ings one byte at
000130: 20 61 20 74 69 6D 65 2C 20 74 68 65 72 65 66 6F a time, therefo
000140: 72 65 20 74 68 65 0D 0A 65 61 72 6C 69 65 72 20 re the..earlier
000150: 64 61 74 65 20 77 69 6C 6C 20 61 6C 77 61 79 73 date will always
000160: 20 63 6F 6E 73 69 73 74 20 6F 66 20 6C 6F 77 65 consist of lowe
000170: 72 20 61 73 63 69 69 20 63 6F 64 65 20 76 61 6C r ascii code val
000180: 75 65 73 2E 0D 0A 0D 0A 43 6C 69 76 65 20 42 65 ues.....Clive Be
000190: 6C 6C 61 62 79 2C 20 31 32 20 54 72 61 66 61 6C llaby, 12 Trafal
0001A0: 67 61 72 20 54 65 72 72 61 63 65 2C 20 4C 6F 6E gar Terrace, Lon
0001B0: 67 20 45 61 74 6F 6E 2C 20 4E 6F 74 74 69 6E 67 g Eaton, Notting
0001C0: 68 61 6D 2C 20 4E 47 31 30 20 31 47 50 0D 0A 0D ham, NG10 1GP...
0001D0: 0A 0D 0A 2A 2A 20 45 4E 44 20 4F 46 20 53 45 52 ...** END OF SER
0001E0: 49 45 53 2E 50 54 34 20 2A 2A 0D 0A 1A 0A 20 20 IES.PT4 **....
0001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
Size : 512 (Real : 512)
000000: 6F 72 65 20 74 68 65 20 43 54 52 4C 20 4F 20 50 ore the CTRL O P
000010: 20 63 6F 6D 6D 61 6E 64 20 61 6E 64 0D 0A 75 73 command and..us
000020: 65 20 79 6F 75 20 77 6F 72 64 20 70 72 6F 63 65 e you word proce
000030: 73 73 6F 72 20 74 6F 20 20 65 64 69 74 20 20 74 ssor to edit t
000040: 68 65 20 20 74 65 78 74 20 20 66 69 6C 65 20 74 he text file t
000050: 6F 20 69 6E 63 6C 75 64 65 20 70 72 69 6E 74 20 o include print
000060: 63 6F 6D 6D 61 6E 64 73 0D 0A 73 75 63 68 20 61 commands..such a
000070: 73 20 70 61 67 65 20 6C 65 6E 67 74 68 2C 20 62 s page length, b
000080: 6F 6C 64 2C 20 74 79 70 65 20 66 61 63 65 20 20 old, type face
000090: 65 74 63 2E 20 54 68 61 74 27 73 20 65 6E 6F 75 etc. That's enou
0000A0: 67 68 20 6F 6E 20 66 69 6C 65 20 68 61 6E 64 6C gh on file handl
0000B0: 69 6E 67 2C 0D 0A 6E 6F 77 20 6F 6E 20 77 69 74 ing,..now on wit
0000C0: 68 20 73 6F 6D 65 20 6D 6F 72 65 20 63 6F 6D 6D h some more comm
0000D0: 61 6E 64 73 2E 0D 0A 0D 0A 0D 0A 4E 55 4D 45 52 ands.......NUMER
0000E0: 49 43 20 4F 52 20 4E 4F 54 20 4E 55 4D 45 52 49 IC OR NOT NUMERI
0000F0: 43 2E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D C...============
000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 ===========....I
000110: 66 20 79 6F 75 20 65 6E 74 65 72 20 61 6C 70 68 f you enter alph
000120: 61 62 65 74 69 63 20 64 61 74 61 20 69 6E 74 6F abetic data into
000130: 20 20 61 20 20 6E 75 6D 65 72 69 63 20 69 64 65 a numeric ide
000140: 6E 74 69 66 69 65 72 20 74 68 65 6E 20 79 6F 75 ntifier then you
000150: 72 20 70 72 6F 67 72 61 6D 0D 0A 77 69 6C 6C 20 r program..will
000160: 63 72 61 73 68 20 3C 3C 62 61 6E 67 21 3E 3E 2E crash <<bang!>>.
000170: 20 54 6F 20 67 65 74 20 72 6F 75 6E 64 20 74 68 To get round th
000180: 69 73 20 70 72 6F 62 6C 65 6D 20 61 6C 6C 20 64 is problem all d
000190: 61 74 61 20 73 68 6F 75 6C 64 20 62 65 20 65 6E ata should be en
0001A0: 74 65 72 65 64 0D 0A 69 6E 74 6F 20 73 74 72 69 tered..into stri
0001B0: 6E 67 20 69 64 65 6E 74 69 66 69 65 72 73 2C 20 ng identifiers,
0001C0: 74 65 73 74 65 64 20 74 6F 20 63 68 65 63 6B 20 tested to check
0001D0: 74 68 61 74 20 69 74 20 69 73 20 6E 75 6D 65 72 that it is numer
0001E0: 69 63 20 61 6E 64 20 74 68 65 6E 20 6D 6F 76 65 ic and then move
0001F0: 64 0D 0A 74 6F 20 61 20 6E 75 6D 65 72 69 63 20 d..to a numeric
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 66 69 65 6C 64 2E 0D 0A 0D 0A 0D 0A 50 52 4F 47 field.......PROG
000010: 52 41 4D 20 53 45 56 45 4E 54 45 45 4E 2E 0D 0A RAM SEVENTEEN...
000020: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000030: 3D 3D 0D 0A 0D 0A 54 68 69 73 20 76 65 72 79 20 ==....This very
000040: 73 68 6F 72 74 20 70 72 6F 67 72 61 6D 20 64 65 short program de
000050: 6D 6F 6E 73 74 72 61 74 65 73 20 74 68 65 20 70 monstrates the p
000060: 72 69 6E 63 69 70 6C 65 20 69 6E 76 6F 6C 76 65 rinciple involve
000070: 64 2E 0D 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 d.....IDENTIFICA
000080: 54 49 4F 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A TION DIVISION...
000090: 50 52 4F 47 52 41 4D 2D 49 44 2E 20 20 20 45 78 PROGRAM-ID. Ex
0000A0: 61 6D 70 6C 65 20 53 65 76 65 6E 74 65 65 6E 2E ample Seventeen.
0000B0: 0D 0A 2A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 ..*..DATA DIVISI
0000C0: 4F 4E 2E 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F ON...WORKING-STO
0000D0: 52 41 47 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 30 RAGE SECTION...0
0000E0: 31 20 4E 55 4D 42 45 52 2D 45 4E 54 45 52 45 44 1 NUMBER-ENTERED
0000F0: 20 20 20 20 20 50 49 43 20 58 28 34 29 2E 0D 0A PIC X(4)...
000100: 30 31 20 4E 55 4D 42 45 52 20 20 20 20 20 20 20 01 NUMBER
000110: 20 20 20 20 20 20 50 49 43 20 39 28 34 29 2E 0D PIC 9(4)..
000120: 0A 2A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 .*..PROCEDURE DI
000130: 56 49 53 49 4F 4E 2E 0D 0A 53 54 41 52 54 2E 0D VISION...START..
000140: 0A 20 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D . DISPLAY ' '..
000150: 0A 20 20 44 49 53 50 4C 41 59 20 27 50 6C 65 61 . DISPLAY 'Plea
000160: 73 65 20 45 6E 74 65 72 20 41 20 34 20 44 69 67 se Enter A 4 Dig
000170: 69 74 20 4E 75 6D 62 65 72 27 2E 0D 0A 20 20 44 it Number'... D
000180: 49 53 50 4C 41 59 20 27 50 72 65 73 73 20 43 54 ISPLAY 'Press CT
000190: 52 4C 20 43 20 54 6F 20 41 62 6F 72 74 27 2E 0D RL C To Abort'..
0001A0: 0A 2A 0D 0A 20 20 41 43 43 45 50 54 20 4E 55 4D .*.. ACCEPT NUM
0001B0: 42 45 52 2D 45 4E 54 45 52 45 44 2E 0D 0A 2A 0D BER-ENTERED...*.
0001C0: 0A 20 20 49 46 20 4E 55 4D 42 45 52 2D 45 4E 54 . IF NUMBER-ENT
0001D0: 45 52 45 44 20 4E 4F 54 20 4E 55 4D 45 52 49 43 ERED NOT NUMERIC
0001E0: 0D 0A 20 20 44 49 53 50 4C 41 59 20 27 49 20 53 .. DISPLAY 'I S
0001F0: 41 49 44 20 41 20 34 20 44 49 47 49 54 20 4E 55 AID A 4 DIGIT NU
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 54 48 45 20 43 4F 4D 50 4C 45 54 45 THE COMPLETE
000020: 20 43 4F 42 4F 4C 20 50 52 4F 47 52 41 4D 4D 49 COBOL PROGRAMMI
000030: 4E 47 20 53 45 52 49 45 53 0D 0A 0D 0A 20 20 20 NG SERIES....
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000050: 20 20 20 20 20 20 20 20 20 20 42 79 20 43 6C 69 By Cli
000060: 76 65 20 42 65 6C 6C 61 62 79 0D 0A 0D 0A 20 20 ve Bellaby....
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000080: 20 20 20 43 6F 70 79 72 69 67 68 74 20 43 6C 69 Copyright Cli
000090: 76 65 20 42 65 6C 6C 61 62 79 20 26 20 57 41 43 ve Bellaby & WAC
0000A0: 43 49 0D 0A 0D 0A 20 20 20 20 20 20 20 20 20 20 CI....
0000B0: 20 20 20 20 20 50 41 52 54 20 46 49 56 45 20 3A PART FIVE :
0000C0: 20 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 20 46 RANDOM ACCESS F
0000D0: 49 4C 45 53 20 26 20 4F 54 48 45 52 20 42 49 54 ILES & OTHER BIT
0000E0: 53 0D 0A 0D 0A 0D 0A 49 4E 54 52 4F 44 55 43 54 S......INTRODUCT
0000F0: 49 4F 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ION..===========
000100: 3D 0D 0A 0D 0A 54 68 69 73 20 6D 6F 6E 74 68 20 =....This month
000110: 20 77 65 20 20 70 75 73 68 20 20 74 68 65 20 20 we push the
000120: 63 6F 6E 63 65 70 74 20 20 6F 66 20 20 66 69 6C concept of fil
000130: 65 20 20 68 61 6E 64 6C 69 6E 67 20 20 61 20 20 e handling a
000140: 62 69 74 20 20 66 75 72 74 68 65 72 20 62 79 0D bit further by.
000150: 0A 69 6E 74 72 6F 64 75 63 69 6E 67 20 74 68 65 .introducing the
000160: 20 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 66 Random Access f
000170: 69 6C 65 73 2E 20 53 6F 20 20 77 69 6E 64 20 20 iles. So wind
000180: 75 70 20 74 68 65 20 6F 6C 64 20 6D 61 63 68 69 up the old machi
000190: 6E 65 2C 20 74 79 70 65 20 69 6E 0D 0A 7C 43 50 ne, type in..|CP
0001A0: 4D 20 61 6E 64 20 77 65 27 6C 6C 20 67 65 74 20 M and we'll get
0001B0: 73 74 61 72 74 65 64 2E 0D 0A 0D 0A 0D 0A 49 4E started.......IN
0001C0: 53 54 41 4C 4C 49 4E 47 20 56 44 45 0D 0A 3D 3D STALLING VDE..==
0001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A ============....
0001E0: 4D 61 6E 79 20 6F 66 20 79 6F 75 20 68 61 76 65 Many of you have
0001F0: 20 68 61 64 20 70 72 6F 62 6C 65 6D 73 20 77 68 had problems wh
Size : 512 (Real : 512)
000000: 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E 20 OUTPUT SECTION.
000010: 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 FILE-CONTROL...
000020: 53 45 4C 45 43 54 20 46 49 4C 45 2D 31 20 41 53 SELECT FILE-1 AS
000030: 53 49 47 4E 20 44 41 54 41 2D 46 49 4C 45 2D 31 SIGN DATA-FILE-1
000040: 2E 0D 0A 0D 0A 44 41 54 41 20 44 49 56 49 53 49 .....DATA DIVISI
000050: 4F 4E 2E 20 46 49 4C 45 20 53 45 43 54 49 4F 4E ON. FILE SECTION
000060: 2E 0D 0A 20 46 44 20 46 49 4C 45 2D 31 0D 0A 20 ... FD FILE-1..
000070: 20 30 31 20 52 45 43 4F 52 44 2D 31 2E 0D 0A 20 01 RECORD-1...
000080: 20 20 30 33 20 4E 41 4D 45 2D 31 20 20 20 20 50 03 NAME-1 P
000090: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 30 33 IC X(30)... 03
0000A0: 20 4E 41 4D 45 2D 32 20 20 20 20 50 49 43 20 58 NAME-2 PIC X
0000B0: 29 33 30 29 2E 0D 0A 20 20 20 65 74 63 0D 0A 0D )30)... etc...
0000C0: 0A 0D 0A 53 45 51 55 45 4E 54 49 41 4C 20 46 49 ...SEQUENTIAL FI
0000D0: 4C 45 20 2D 20 56 41 52 49 41 42 4C 45 20 4C 45 LE - VARIABLE LE
0000E0: 4E 47 54 48 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D NGTH..----------
0000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000100: 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 45 4E 56 49 52 -------....ENVIR
000110: 4F 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E ONMENT DIVISION.
000120: 0D 0A 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F ....CONFIGURATIO
000130: 4E 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 53 4F 55 N SECTION... SOU
000140: 52 43 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D RCE-COMPUTER. Am
000150: 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 20 4F 42 strad 6128... OB
000160: 4A 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 JECT-COMPUTER. A
000170: 6D 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D 0A mstrad 6128.....
000180: 49 4E 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 INPUT-OUTPUT SEC
000190: 54 49 4F 4E 2E 20 46 49 4C 45 2D 43 4F 4E 54 52 TION. FILE-CONTR
0001A0: 4F 4C 2E 0D 0A 20 53 45 4C 45 43 54 20 46 49 4C OL... SELECT FIL
0001B0: 45 2D 32 20 41 53 53 49 47 4E 20 44 41 54 41 2D E-2 ASSIGN DATA-
0001C0: 46 49 4C 45 2D 32 2E 0D 0A 0D 0A 44 41 54 41 20 FILE-2.....DATA
0001D0: 44 49 56 49 53 49 4F 4E 2E 20 46 49 4C 45 20 53 DIVISION. FILE S
0001E0: 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 20 46 49 4C ECTION... FD FIL
0001F0: 45 2D 32 0D 0A 20 52 45 43 4F 52 44 20 36 20 54 E-2.. RECORD 6 T
Size : 512 (Real : 512)
000000: 65 6E 20 20 69 6E 73 74 61 6C 6C 69 6E 67 20 56 en installing V
000010: 44 45 20 28 69 6E 63 6C 75 64 69 6E 67 20 4D 20 DE (including M
000020: 48 61 72 65 2C 20 41 6C 61 6E 0D 0A 54 69 6C 6C Hare, Alan..Till
000030: 69 6E 67 2C 20 4B 65 76 69 6E 20 43 72 6F 73 73 ing, Kevin Cross
000040: 2C 20 4E 6F 65 6C 20 44 6F 6E 61 67 68 2C 20 50 , Noel Donagh, P
000050: 65 74 65 72 20 20 43 61 6D 70 62 65 6C 6C 20 20 eter Campbell
000060: 26 20 41 6C 61 6E 20 43 6F 6F 70 65 72 29 20 74 & Alan Cooper) t
000070: 6F 20 6E 61 6D 65 0D 0A 6A 75 73 74 20 61 20 66 o name..just a f
000080: 65 77 2E 20 49 6E 73 74 61 6C 6C 69 6E 67 20 28 ew. Installing (
000090: 63 6F 6E 66 69 67 75 72 69 6E 67 29 20 20 61 20 configuring) a
0000A0: 20 70 72 6F 67 72 61 6D 20 20 69 73 20 73 6F 6D program is som
0000B0: 65 74 68 69 6E 67 20 79 6F 75 20 6E 65 65 64 20 ething you need
0000C0: 74 6F 0D 0A 62 65 63 6F 6D 65 20 66 61 6D 69 6C to..become famil
0000D0: 69 61 72 20 77 69 74 68 20 77 68 65 6E 20 75 73 iar with when us
0000E0: 69 6E 67 20 20 43 50 2F 4D 20 20 61 6E 64 20 20 ing CP/M and
0000F0: 6F 74 68 65 72 20 6F 70 65 72 61 74 69 6E 67 20 other operating
000100: 73 79 73 74 65 6D 73 2E 20 57 41 43 43 49 0D 0A systems. WACCI..
000110: 6E 6F 77 20 68 61 73 20 61 20 73 74 65 70 20 62 now has a step b
000120: 79 20 73 74 65 70 20 67 75 69 64 65 20 74 6F 20 y step guide to
000130: 69 6E 73 74 61 6C 6C 69 6E 67 20 56 44 45 2E 0D installing VDE..
000140: 0A 0D 0A 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 .....FILE HANDLI
000150: 4E 47 20 42 41 43 4B 47 52 4F 55 4E 44 0D 0A 3D NG BACKGROUND..=
000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000170: 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 41 6C 6C 20 64 =======....All d
000180: 61 74 61 20 66 69 6C 65 73 20 6F 70 65 6E 65 64 ata files opened
000190: 20 75 6E 64 65 72 20 43 50 2F 4D 20 61 72 65 20 under CP/M are
0001A0: 20 6F 70 65 6E 65 64 20 20 6F 6E 20 61 20 72 61 opened on a ra
0001B0: 6E 64 6F 6D 20 61 63 63 65 73 73 20 62 61 73 69 ndom access basi
0001C0: 73 2C 20 69 74 0D 0A 69 73 20 6F 6E 6C 79 20 74 s, it..is only t
0001D0: 68 65 20 64 69 66 66 65 72 65 6E 74 20 6D 65 74 he different met
0001E0: 68 6F 64 73 20 20 6F 66 20 20 63 6F 64 69 6E 67 hods of coding
0001F0: 20 20 75 73 65 64 20 20 62 79 20 43 6F 62 6F 6C used by Cobol
Size : 512 (Real : 512)
000000: 4F 20 38 30 2E 0D 0A 20 20 30 31 20 52 45 43 4F O 80... 01 RECO
000010: 52 44 2D 32 2E 0D 0A 20 20 20 30 33 20 4E 41 4D RD-2... 03 NAM
000020: 45 2D 31 20 20 20 20 50 49 43 20 58 28 33 30 29 E-1 PIC X(30)
000030: 2E 0D 0A 20 20 20 30 33 20 4E 41 4D 45 2D 32 20 ... 03 NAME-2
000040: 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D 0A 20 PIC X(30)...
000050: 20 20 65 74 63 0D 0A 0D 0A 2A 20 54 68 65 20 52 etc....* The R
000060: 45 43 4F 52 44 20 63 6F 6D 6D 61 6E 64 20 63 61 ECORD command ca
000070: 6E 20 62 65 20 66 6F 6C 6C 6F 77 65 64 20 62 79 n be followed by
000080: 20 61 6E 79 20 74 77 6F 20 76 61 6C 75 65 73 2C any two values,
000090: 20 74 68 65 20 76 61 6C 75 65 73 20 75 73 65 64 the values used
0000A0: 0D 0A 2A 20 61 72 65 20 6E 6F 74 20 69 6D 70 6F ..* are not impo
0000B0: 72 74 61 6E 74 2C 20 70 72 6F 76 69 64 65 64 20 rtant, provided
0000C0: 74 77 6F 20 76 61 6C 75 65 73 20 61 72 65 20 69 two values are i
0000D0: 6E 63 6C 75 64 65 64 20 74 68 65 20 72 65 63 6F ncluded the reco
0000E0: 72 64 20 77 69 6C 6C 0D 0A 2A 20 62 65 20 74 72 rd will..* be tr
0000F0: 65 61 74 65 64 20 61 73 20 76 61 72 69 61 62 6C eated as variabl
000100: 65 20 6C 65 6E 67 74 68 2E 0D 0A 0D 0A 0D 0A 52 e length.......R
000110: 41 4E 44 4F 4D 20 41 43 43 45 53 53 20 46 49 4C ANDOM ACCESS FIL
000120: 45 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D E..-------------
000130: 2D 2D 2D 2D 2D 0D 0A 0D 0A 45 4E 56 49 52 4F 4E -----....ENVIRON
000140: 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A MENT DIVISION...
000150: 0D 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 ..CONFIGURATION
000160: 53 45 43 54 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 SECTION... SOURC
000170: 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 E-COMPUTER. Amst
000180: 72 61 64 20 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 rad 6128... OBJE
000190: 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 CT-COMPUTER. Ams
0001A0: 74 72 61 64 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E trad 6128.....IN
0001B0: 50 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 49 PUT-OUTPUT SECTI
0001C0: 4F 4E 2E 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C ON. FILE-CONTROL
0001D0: 2E 20 53 45 4C 45 43 54 20 46 49 4C 45 2D 33 20 . SELECT FILE-3
0001E0: 41 53 53 49 47 4E 20 44 41 54 41 2D 46 49 4C 45 ASSIGN DATA-FILE
0001F0: 2D 33 0D 0A 20 4F 52 47 41 4E 49 5A 41 54 49 4F -3.. ORGANIZATIO
Size : 512 (Real : 512)
000000: 20 77 68 69 63 68 20 64 65 74 65 72 6D 69 6E 65 which determine
000010: 73 0D 0A 77 68 65 74 68 65 72 20 74 68 65 20 66 s..whether the f
000020: 69 6C 65 20 69 73 20 73 65 71 75 65 6E 74 69 61 ile is sequentia
000030: 6C 20 6F 72 20 72 61 6E 64 6F 6D 20 61 63 63 65 l or random acce
000040: 73 73 2E 0D 0A 0D 0A 53 65 71 75 65 6E 74 69 61 ss.....Sequentia
000050: 6C 20 66 69 6C 65 73 20 61 72 65 20 72 65 61 64 l files are read
000060: 20 20 6F 6E 65 20 20 72 65 63 6F 72 64 20 20 61 one record a
000070: 74 20 20 61 20 20 74 69 6D 65 20 20 69 6E 74 6F t a time into
000080: 20 74 68 65 20 66 69 6C 65 20 62 75 66 66 65 72 the file buffer
000090: 2C 0D 0A 73 74 61 72 74 69 6E 67 20 61 74 20 74 ,..starting at t
0000A0: 68 65 20 66 69 72 73 74 20 72 65 63 6F 72 64 20 he first record
0000B0: 61 6E 64 20 66 69 6E 69 73 68 69 6E 67 20 20 61 and finishing a
0000C0: 74 20 74 68 65 20 6C 61 73 74 20 72 65 63 6F 72 t the last recor
0000D0: 64 20 68 65 6C 64 20 69 6E 20 74 68 65 0D 0A 66 d held in the..f
0000E0: 69 6C 65 2E 20 53 65 71 75 65 6E 74 69 61 6C 20 ile. Sequential
0000F0: 66 69 6C 65 73 20 20 68 61 76 65 20 20 74 77 6F files have two
000100: 20 20 61 64 76 61 6E 74 61 67 65 73 20 20 6F 76 advantages ov
000110: 65 72 20 20 72 61 6E 64 6F 6D 20 20 61 63 63 65 er random acce
000120: 73 73 20 66 69 6C 65 73 2C 0D 0A 73 65 71 75 65 ss files,..seque
000130: 6E 74 69 61 6C 20 66 69 6C 65 73 20 63 61 6E 20 ntial files can
000140: 20 62 65 20 20 76 61 72 69 61 62 6C 65 20 20 6C be variable l
000150: 65 6E 67 74 68 20 20 28 73 61 76 69 6E 67 20 20 ength (saving
000160: 64 69 73 63 20 20 73 70 61 63 65 29 20 20 61 6E disc space) an
000170: 64 20 61 72 65 0D 0A 71 75 69 63 6B 65 72 20 74 d are..quicker t
000180: 6F 20 61 63 63 65 73 73 20 28 72 65 61 64 29 2E o access (read).
000190: 0D 0A 0D 0A 52 61 6E 64 6F 6D 20 61 63 63 65 73 ....Random acces
0001A0: 73 20 66 69 6C 65 73 20 61 72 65 20 72 65 61 64 s files are read
0001B0: 20 69 6E 74 6F 20 20 66 69 6C 65 20 20 62 75 66 into file buf
0001C0: 66 65 72 20 20 6F 6E 65 20 72 65 63 6F 72 64 20 fer one record
0001D0: 61 74 20 61 20 74 69 6D 65 2C 20 62 75 74 0D 0A at a time, but..
0001E0: 79 6F 75 20 68 61 76 65 20 74 68 65 20 66 61 63 you have the fac
0001F0: 69 6C 69 74 79 20 74 6F 20 73 65 6C 65 63 74 20 ility to select
Size : 512 (Real : 512)
000000: 4E 20 52 45 4C 41 54 49 56 45 0D 0A 20 41 43 43 N RELATIVE.. ACC
000010: 45 53 53 20 52 41 4E 44 4F 4D 20 52 45 4C 41 54 ESS RANDOM RELAT
000020: 49 56 45 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 IVE RECORD-NUMBE
000030: 52 2E 0D 0A 44 41 54 41 20 44 49 56 49 53 49 4F R...DATA DIVISIO
000040: 4E 2E 20 46 49 4C 45 20 53 45 43 54 49 4F 4E 2E N. FILE SECTION.
000050: 0D 0A 20 46 44 20 46 49 4C 45 2D 33 2E 0D 0A 20 .. FD FILE-3...
000060: 20 30 31 20 52 45 43 4F 52 44 2D 33 2E 0D 0A 20 01 RECORD-3...
000070: 20 20 30 33 20 4E 41 4D 45 2D 33 20 20 20 20 50 03 NAME-3 P
000080: 49 43 20 58 28 33 30 29 2E 0D 0A 20 20 20 30 33 IC X(30)... 03
000090: 20 65 74 63 0D 0A 0D 0A 2A 20 57 68 65 6E 20 72 etc....* When r
0000A0: 61 6E 64 6F 6D 20 61 63 63 65 73 73 20 66 69 6C andom access fil
0000B0: 65 73 20 61 72 65 20 75 73 65 64 20 74 68 65 20 es are used the
0000C0: 52 45 43 4F 52 44 20 4B 45 59 20 6D 75 73 74 20 RECORD KEY must
0000D0: 62 65 20 64 65 63 6C 61 72 65 64 20 69 6E 20 74 be declared in t
0000E0: 68 65 0D 0A 2A 20 57 4F 52 4B 49 4E 47 2D 53 54 he..* WORKING-ST
0000F0: 4F 52 41 47 45 20 53 45 43 54 49 4F 4E 2C 20 69 ORAGE SECTION, i
000100: 6E 20 74 68 69 73 20 65 78 61 6D 70 6C 65 20 74 n this example t
000110: 68 65 20 52 45 43 4F 52 44 20 4B 45 59 20 69 6E he RECORD KEY in
000120: 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 0D 0A RECORD-NUMBER..
000130: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
000140: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 2A 20 E SECTION.....*
000150: 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 46 69 Random Access Fi
000160: 6C 65 20 2D 20 52 65 63 6F 72 64 20 4B 65 79 20 le - Record Key
000170: 74 68 65 20 72 65 63 6F 72 64 20 6B 65 79 20 6D the record key m
000180: 75 73 74 20 62 65 20 61 20 6E 75 6D 65 72 69 63 ust be a numeric
000190: 0D 0A 0D 0A 30 31 20 52 45 43 4F 52 44 2D 4E 55 ....01 RECORD-NU
0001A0: 4D 42 45 52 20 50 49 43 20 39 39 2E 0D 0A 0D 0A MBER PIC 99.....
0001B0: 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 0D ..FILE HANDLING.
0001C0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
0001D0: 0D 0A 41 66 74 65 72 20 79 6F 75 20 68 61 76 65 ..After you have
0001E0: 20 64 65 63 6C 61 72 65 64 20 79 6F 75 72 20 66 declared your f
0001F0: 69 6C 65 20 74 79 70 65 28 73 29 20 79 6F 75 20 ile type(s) you
Size : 512 (Real : 512)
000000: 77 68 69 63 68 20 20 72 65 63 6F 72 64 20 69 73 which record is
000010: 20 72 65 61 64 2C 20 74 68 69 73 20 69 73 20 61 read, this is a
000020: 63 68 69 65 76 65 64 20 62 79 0D 0A 75 73 69 6E chieved by..usin
000030: 67 20 61 20 72 65 63 6F 72 64 20 6B 65 79 2C 20 g a record key,
000040: 77 68 65 6E 20 79 6F 75 20 6D 6F 76 65 20 61 20 when you move a
000050: 76 61 6C 75 65 20 69 6E 74 6F 20 74 68 65 20 72 value into the r
000060: 65 63 6F 72 64 20 6B 65 79 2C 20 74 68 65 20 70 ecord key, the p
000070: 72 6F 67 72 61 6D 0D 0A 63 61 6C 63 75 6C 61 74 rogram..calculat
000080: 65 73 20 68 6F 77 20 66 61 72 20 69 6E 74 6F 20 es how far into
000090: 74 68 65 20 66 69 6C 65 20 20 74 68 65 20 20 72 the file the r
0000A0: 65 63 6F 72 64 20 20 79 6F 75 20 77 61 6E 74 20 ecord you want
0000B0: 69 73 2C 20 61 6E 64 20 74 68 65 6E 20 72 65 61 is, and then rea
0000C0: 64 73 0D 0A 74 68 65 20 74 72 61 63 6B 20 26 20 ds..the track &
0000D0: 73 65 63 74 6F 72 20 74 68 61 74 20 63 6F 6E 74 sector that cont
0000E0: 61 69 6E 73 20 74 68 65 20 72 65 63 6F 72 64 20 ains the record
0000F0: 79 6F 75 20 77 61 6E 74 2E 0D 0A 0D 0A 54 68 65 you want.....The
000100: 20 6D 61 69 6E 20 61 64 76 61 6E 74 61 67 65 20 main advantage
000110: 6F 66 20 72 61 6E 64 6F 6D 20 61 63 63 65 73 73 of random access
000120: 20 66 69 6C 65 73 20 20 69 73 20 20 74 68 61 74 files is that
000130: 20 79 6F 75 20 63 61 6E 20 72 65 61 64 20 61 6E you can read an
000140: 64 20 77 72 69 74 65 0D 0A 72 65 63 6F 72 64 73 d write..records
000150: 20 69 6E 20 61 6E 79 20 6F 72 64 65 72 2E 20 43 in any order. C
000160: 50 2F 4D 20 61 6C 6C 6F 77 73 20 79 6F 75 20 74 P/M allows you t
000170: 6F 20 20 68 61 76 65 20 75 70 74 6F 20 6E 69 6E o have upto nin
000180: 65 20 66 69 6C 65 73 20 6F 70 65 6E 20 61 74 20 e files open at
000190: 61 6E 79 0D 0A 70 6F 69 6E 74 20 69 6E 20 74 69 any..point in ti
0001A0: 6D 65 2C 20 74 68 65 20 6D 6F 73 74 20 20 49 20 me, the most I
0001B0: 20 68 61 76 65 20 20 75 73 65 64 20 20 69 73 20 have used is
0001C0: 20 74 68 72 65 65 20 20 73 6F 20 20 69 66 20 79 three so if y
0001D0: 6F 75 20 75 73 65 20 6D 6F 72 65 20 61 6E 64 0D ou use more and.
0001E0: 0A 65 6E 63 6F 75 6E 74 65 72 20 65 72 72 6F 72 .encounter error
0001F0: 73 20 64 6F 6E 27 74 20 62 6C 61 6D 65 20 20 6D s don't blame m
Size : 512 (Real : 512)
000000: 20 6E 65 65 64 20 74 6F 20 62 65 20 61 62 6C 65 need to be able
000010: 20 74 6F 20 72 65 61 64 20 61 6E 64 0D 0A 77 72 to read and..wr
000020: 69 74 65 20 64 61 74 61 20 74 6F 20 74 68 65 20 ite data to the
000030: 66 69 6C 65 73 2E 0D 0A 0D 0A 53 65 71 75 65 6E files.....Sequen
000040: 74 69 61 6C 20 66 69 6C 65 73 20 28 66 69 78 65 tial files (fixe
000050: 64 20 20 26 20 20 76 61 72 69 61 62 6C 65 29 20 d & variable)
000060: 20 75 73 65 20 20 64 69 66 66 65 72 65 6E 74 20 use different
000070: 20 63 6F 6D 6D 61 6E 64 73 20 20 74 6F 20 52 61 commands to Ra
000080: 6E 64 6F 6D 0D 0A 41 63 63 65 73 73 20 66 69 6C ndom..Access fil
000090: 65 73 2E 0D 0A 0D 0A 0D 0A 53 45 51 55 45 4E 54 es.......SEQUENT
0000A0: 49 41 4C 20 46 49 4C 45 20 48 41 4E 44 4C 49 4E IAL FILE HANDLIN
0000B0: 47 20 43 4F 4D 4D 41 4E 44 53 0D 0A 2D 2D 2D 2D G COMMANDS..----
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D -------------...
0000E0: 0A 4F 50 45 4E 20 49 4E 50 55 54 20 46 49 4C 45 .OPEN INPUT FILE
0000F0: 2D 31 2E 0D 0A 0D 0A 4F 50 45 4E 20 4F 55 54 50 -1.....OPEN OUTP
000100: 55 54 20 46 49 4C 45 2D 31 2E 0D 0A 0D 0A 43 4C UT FILE-1.....CL
000110: 4F 53 45 20 46 49 4C 45 2D 31 2E 0D 0A 0D 0A 52 OSE FILE-1.....R
000120: 45 41 44 20 46 49 4C 45 2D 31 20 45 4E 44 20 2E EAD FILE-1 END .
000130: 2E 2E 2E 2E 2E 0D 0A 0D 0A 28 72 65 61 64 20 74 .........(read t
000140: 68 65 20 66 69 6C 65 2C 20 77 68 65 6E 20 74 68 he file, when th
000150: 65 20 65 6E 64 20 6F 66 20 74 68 65 20 66 69 6C e end of the fil
000160: 65 20 69 73 20 72 65 61 63 68 65 64 20 74 68 65 e is reached the
000170: 6E 20 64 6F 20 73 6F 6D 65 74 68 69 6E 67 29 0D n do something).
000180: 0A 0D 0A 52 45 41 44 20 46 49 4C 45 2D 31 20 49 ...READ FILE-1 I
000190: 4E 56 41 4C 49 44 20 2E 2E 2E 2E 2E 2E 0D 0A 0D NVALID .........
0001A0: 0A 28 72 65 61 64 20 74 68 65 20 66 69 6C 65 2C .(read the file,
0001B0: 20 77 68 65 6E 20 74 68 65 20 65 6E 64 20 6F 66 when the end of
0001C0: 20 20 74 68 65 20 20 66 69 6C 65 20 20 69 73 20 the file is
0001D0: 72 65 61 63 68 65 64 2C 20 6F 72 20 61 20 72 65 reached, or a re
0001E0: 61 64 20 65 72 72 6F 72 20 69 73 0D 0A 20 65 6E ad error is.. en
0001F0: 63 6F 75 6E 74 65 72 65 64 20 74 68 65 6E 20 64 countered then d
Size : 512 (Real : 512)
000000: 65 2E 20 20 4C 65 74 20 20 6D 65 20 20 6E 6F 77 e. Let me now
000010: 20 20 73 75 6D 6D 61 72 69 73 65 20 20 74 68 65 summarise the
000020: 20 66 69 6C 65 20 74 79 70 65 73 0D 0A 61 76 61 file types..ava
000030: 69 6C 61 62 6C 65 2C 20 74 68 65 79 20 61 72 65 ilable, they are
000040: 2C 20 53 65 71 75 65 6E 74 69 61 6C 20 66 69 6C , Sequential fil
000050: 65 73 20 28 66 69 78 65 64 20 6C 65 6E 67 74 68 es (fixed length
000060: 29 2C 20 53 65 71 75 65 6E 74 69 61 6C 20 28 76 ), Sequential (v
000070: 61 72 69 61 62 6C 65 0D 0A 6C 65 6E 67 74 68 29 ariable..length)
000080: 20 61 6E 64 20 52 61 6E 64 6F 6D 20 41 63 63 65 and Random Acce
000090: 73 73 20 66 69 6C 65 73 20 28 66 69 78 65 64 20 ss files (fixed
0000A0: 6C 65 6E 67 74 68 29 2E 0D 0A 0D 0A 44 45 43 4C length).....DECL
0000B0: 41 52 49 4E 47 20 59 4F 55 52 20 46 49 4C 45 28 ARING YOUR FILE(
0000C0: 53 29 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D S)..============
0000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 54 68 ==========....Th
0000E0: 65 20 66 69 6C 65 20 74 79 70 65 20 69 73 20 73 e file type is s
0000F0: 70 65 63 69 66 69 65 64 20 69 6E 20 74 68 65 20 pecified in the
000100: 20 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 26 20 44 ENVIRONMENT & D
000110: 41 54 41 20 44 49 56 49 53 49 4F 4E 53 2C 20 75 ATA DIVISIONS, u
000120: 73 69 6E 67 20 74 68 65 0D 0A 66 6F 6C 6C 6F 77 sing the..follow
000130: 69 6E 67 20 63 6F 6D 6D 61 6E 64 73 2E 0D 0A 0D ing commands....
000140: 0A 0D 0A 53 45 51 55 45 4E 54 49 41 4C 20 46 49 ...SEQUENTIAL FI
000150: 4C 45 20 2D 20 46 49 58 45 44 20 4C 45 4E 47 54 LE - FIXED LENGT
000160: 48 0D 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D H..-------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000180: 2D 0D 0A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E 54 -....ENVIRONMENT
000190: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 43 4F DIVISION.....CO
0001A0: 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 54 NFIGURATION SECT
0001B0: 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 45 2D 43 4F ION... SOURCE-CO
0001C0: 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 20 MPUTER. Amstrad
0001D0: 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 43 54 2D 43 6128... OBJECT-C
0001E0: 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 OMPUTER. Amstrad
0001F0: 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 6128.....INPUT-
Size : 512 (Real : 512)
000000: 6F 20 73 6F 6D 65 74 68 69 6E 67 29 0D 0A 0D 0A o something)....
000010: 57 52 49 54 45 20 52 45 43 4F 52 44 2D 31 0D 0A WRITE RECORD-1..
000020: 0D 0A 57 52 49 54 45 20 52 45 43 4F 52 44 2D 31 ..WRITE RECORD-1
000030: 20 49 4E 56 41 4C 49 44 20 2E 2E 2E 2E 2E 2E 0D INVALID .......
000040: 0A 0D 0A 28 77 72 69 74 65 20 74 68 65 20 72 65 ...(write the re
000050: 63 6F 72 64 20 74 6F 20 64 69 73 63 2C 20 61 6E cord to disc, an
000060: 64 20 69 66 20 61 6E 20 65 72 72 6F 72 20 6F 63 d if an error oc
000070: 63 75 72 73 20 74 68 65 6E 20 64 6F 20 73 6F 6D curs then do som
000080: 65 74 68 69 6E 67 29 0D 0A 0D 0A 4E 6F 74 65 73 ething)....Notes
000090: 3A 20 54 68 65 72 65 20 61 72 65 20 73 6F 6D 65 : There are some
0000A0: 20 72 65 73 74 72 69 63 74 69 6F 6E 73 20 6F 6E restrictions on
0000B0: 20 74 68 65 20 75 73 65 20 6F 66 20 74 68 65 20 the use of the
0000C0: 66 69 6C 65 73 20 3A 0D 0A 0D 0A 31 2E 20 46 69 files :....1. Fi
0000D0: 6C 65 73 20 77 68 69 63 68 20 68 61 76 65 20 62 les which have b
0000E0: 65 65 6E 20 6F 70 65 6E 65 64 20 61 73 20 69 6E een opened as in
0000F0: 70 75 74 20 63 61 6E 20 6F 6E 6C 79 20 62 65 20 put can only be
000100: 72 65 61 64 20 66 72 6F 6D 2E 0D 0A 0D 0A 32 2E read from.....2.
000110: 20 46 69 6C 65 73 20 6F 70 65 6E 65 64 20 61 73 Files opened as
000120: 20 6F 75 74 70 75 74 20 63 61 6E 20 6F 6E 6C 79 output can only
000130: 20 62 65 20 77 72 69 74 74 65 6E 20 74 6F 2E 0D be written to..
000140: 0A 0D 0A 49 66 20 79 6F 75 20 77 72 69 74 65 20 ...If you write
000150: 74 6F 20 61 20 66 69 6C 65 20 77 68 69 63 68 20 to a file which
000160: 68 61 73 20 20 62 65 65 6E 20 20 6F 70 65 6E 65 has been opene
000170: 64 20 61 73 20 69 6E 70 75 74 20 74 68 65 6E 20 d as input then
000180: 61 20 66 61 74 61 6C 20 65 72 72 6F 72 0D 0A 77 a fatal error..w
000190: 69 6C 6C 20 6F 63 63 75 72 20 61 6E 64 20 79 6F ill occur and yo
0001A0: 75 72 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 ur program will
0001B0: 20 63 72 61 73 68 2C 20 20 73 6F 20 20 74 61 6B crash, so tak
0001C0: 65 20 63 61 72 65 2E 20 54 68 65 20 50 44 20 76 e care. The PD v
0001D0: 65 72 73 69 6F 6E 20 6F 66 0D 0A 43 6F 62 6F 6C ersion of..Cobol
0001E0: 20 77 69 6C 6C 20 6F 6E 6C 79 20 61 6C 6C 6F 77 will only allow
0001F0: 20 79 6F 75 20 74 6F 20 6F 70 65 6E 20 61 20 66 you to open a f
Size : 512 (Real : 512)
000000: 29 0D 0A 34 30 20 4E 45 58 54 20 69 0D 0A 35 30 )..40 NEXT i..50
000010: 20 43 4C 4F 53 45 4F 55 54 0D 0A 0D 0A 54 68 69 CLOSEOUT....Thi
000020: 73 20 73 68 6F 77 73 20 74 68 65 20 76 65 72 73 s shows the vers
000030: 61 74 69 6C 69 74 79 20 6F 66 20 74 68 65 20 41 atility of the A
000040: 6D 73 74 72 61 64 20 20 43 50 43 27 73 20 77 68 mstrad CPC's wh
000050: 69 63 68 20 61 6C 6C 6F 77 20 79 6F 75 20 6D 6F ich allow you mo
000060: 72 65 20 74 68 61 6E 0D 0A 6F 6E 65 20 77 61 79 re than..one way
000070: 20 6F 66 20 61 63 68 69 65 76 69 6E 67 20 74 68 of achieving th
000080: 65 20 73 61 6D 65 20 20 72 65 73 75 6C 74 2E 20 e same result.
000090: 20 54 68 65 20 70 72 6F 62 6C 65 6D 73 20 63 61 The problems ca
0000A0: 75 73 65 64 20 62 79 20 75 73 69 6E 67 20 42 61 used by using Ba
0000B0: 73 69 63 0D 0A 61 72 65 20 79 6F 75 20 6E 65 65 sic..are you nee
0000C0: 64 20 74 6F 20 64 72 6F 70 20 6F 75 74 20 6F 66 d to drop out of
0000D0: 20 20 43 50 2F 4D 2C 20 20 61 6E 64 20 20 74 68 CP/M, and th
0000E0: 65 20 20 6D 65 74 68 6F 64 20 63 61 6E 6E 6F 74 e method cannot
0000F0: 20 62 65 20 75 73 65 64 20 69 6E 20 74 68 65 0D be used in the.
000100: 0A 6D 69 64 64 6C 65 20 6F 66 20 61 20 6C 61 72 .middle of a lar
000110: 67 65 20 70 72 6F 67 72 61 6D 20 61 73 20 69 74 ge program as it
000120: 20 77 6F 75 6C 64 20 72 65 61 6C 6C 79 20 63 6F would really co
000130: 6E 66 75 73 65 20 74 68 65 20 75 73 65 72 2E 0D nfuse the user..
000140: 0A 0D 0A 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 ...RANDOM ACCESS
000150: 20 46 49 4C 45 53 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D FILES..========
000160: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 4E 6F 77 ===========..Now
000170: 20 74 6F 20 74 65 73 74 20 74 68 65 20 52 61 6E to test the Ran
000180: 64 6F 6D 20 41 63 63 65 73 73 20 66 69 6C 65 73 dom Access files
000190: 20 20 77 65 20 20 61 72 65 20 62 61 63 6B 20 74 we are back t
0001A0: 6F 20 74 68 65 20 74 72 69 65 64 20 61 6E 64 20 o the tried and
0001B0: 74 72 75 73 74 65 64 0D 0A 6D 65 74 68 6F 64 20 trusted..method
0001C0: 6F 66 20 77 72 69 74 69 6E 67 20 73 68 6F 72 74 of writing short
0001D0: 20 65 78 61 6D 70 6C 65 20 20 70 72 6F 67 72 61 example progra
0001E0: 6D 73 20 77 68 69 63 68 20 64 65 6D 6F 6E 73 74 ms which demonst
0001F0: 72 61 74 65 20 74 68 65 20 70 72 69 6E 63 69 70 rate the princip
Size : 512 (Real : 512)
000000: 69 6C 65 20 6F 6E 63 65 20 69 6E 20 61 20 70 72 ile once in a pr
000010: 6F 67 72 61 6D 2C 20 73 6F 20 69 66 20 79 6F 75 ogram, so if you
000020: 20 6F 70 65 6E 0D 0A 61 20 66 69 6C 65 20 61 73 open..a file as
000030: 20 69 6E 70 75 74 2C 20 79 6F 75 20 63 61 6E 6E input, you cann
000040: 6F 74 20 63 6C 6F 73 65 20 74 68 65 20 66 69 6C ot close the fil
000050: 65 20 61 6E 64 20 74 68 65 6E 20 6F 70 65 6E 20 e and then open
000060: 69 74 20 61 73 20 6F 75 74 70 75 74 2E 0D 0A 0D it as output....
000070: 0A 0D 0A 52 41 4E 44 4F 4D 20 41 43 43 45 53 53 ...RANDOM ACCESS
000080: 20 46 49 4C 45 20 43 4F 4D 4D 41 4E 44 53 0D 0A FILE COMMANDS..
000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 4F -----------....O
0000B0: 50 45 4E 20 49 2D 4F 20 46 49 4C 45 2D 33 0D 0A PEN I-O FILE-3..
0000C0: 0D 0A 43 4C 4F 53 45 20 46 49 4C 45 2D 33 2E 0D ..CLOSE FILE-3..
0000D0: 0A 0D 0A 52 45 41 44 20 46 49 4C 45 2D 33 20 45 ...READ FILE-3 E
0000E0: 4E 44 20 2E 2E 2E 2E 2E 0D 0A 0D 0A 52 45 41 44 ND .........READ
0000F0: 20 46 49 4C 45 2D 33 20 49 4E 56 41 4C 49 44 20 FILE-3 INVALID
000100: 2E 2E 2E 2E 2E 2E 0D 0A 0D 0A 52 45 57 52 49 54 ..........REWRIT
000110: 45 20 52 45 43 4F 52 44 2D 33 0D 0A 0D 0A 52 45 E RECORD-3....RE
000120: 57 52 49 54 45 20 52 45 43 4F 52 44 2D 33 20 49 WRITE RECORD-3 I
000130: 4E 56 41 4C 49 44 0D 0A 0D 0A 4E 6F 74 65 73 3A NVALID....Notes:
000140: 20 52 61 6E 64 6F 6D 20 61 63 63 65 73 73 20 66 Random access f
000150: 69 6C 65 73 20 68 61 76 65 20 72 65 73 74 72 69 iles have restri
000160: 63 74 69 6F 6E 73 20 6F 6E 20 74 68 65 72 65 20 ctions on there
000170: 75 73 65 20 3A 0D 0A 0D 0A 31 2E 20 42 65 66 6F use :....1. Befo
000180: 72 65 20 75 73 69 6E 67 20 74 68 65 20 20 52 45 re using the RE
000190: 41 44 20 20 26 20 20 52 45 57 52 49 54 45 20 20 AD & REWRITE
0001A0: 63 6F 6D 6D 61 6E 64 73 20 20 79 6F 75 20 20 6D commands you m
0001B0: 75 73 74 20 65 6E 73 75 72 65 20 74 68 61 74 20 ust ensure that
0001C0: 74 68 65 0D 0A 20 20 20 72 65 63 6F 72 64 20 6B the.. record k
0001D0: 65 79 20 63 6F 6E 74 61 69 6E 73 20 74 68 65 20 ey contains the
0001E0: 6E 75 6D 62 65 72 20 6F 66 20 74 68 65 20 20 72 number of the r
0001F0: 65 63 6F 72 64 20 20 74 68 61 74 20 79 6F 75 20 ecord that you
Size : 512 (Real : 512)
000000: 6C 65 73 0D 0A 69 6E 76 6F 6C 76 65 64 2E 20 50 les..involved. P
000010: 72 6F 67 72 61 6D 20 31 38 20 63 72 65 61 74 65 rogram 18 create
000020: 73 20 74 68 65 20 64 61 74 61 20 66 69 6C 65 20 s the data file
000030: 61 6E 64 20 50 72 6F 67 72 61 6D 20 31 39 20 75 and Program 19 u
000040: 73 65 73 20 69 74 2E 0D 0A 0D 0A 0D 0A 50 52 4F ses it.......PRO
000050: 47 52 41 4D 20 45 49 47 48 54 45 45 4E 0D 0A 3D GRAM EIGHTEEN..=
000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D ===============.
000070: 0A 0D 0A 49 44 45 4E 54 49 46 49 43 41 54 49 4F ...IDENTIFICATIO
000080: 4E 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 50 52 N DIVISION... PR
000090: 4F 47 52 41 4D 2D 49 44 2E 20 50 72 6F 67 72 61 OGRAM-ID. Progra
0000A0: 6D 20 45 69 67 68 74 65 65 6E 2E 0D 0A 0D 0A 2A m Eighteen.....*
0000B0: 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 63 72 This program cr
0000C0: 65 61 74 65 73 20 61 20 64 61 74 61 20 66 69 6C eates a data fil
0000D0: 65 20 27 52 41 4E 44 4F 4D 2E 44 41 54 27 20 77 e 'RANDOM.DAT' w
0000E0: 68 69 63 68 20 69 73 20 75 73 65 64 20 62 79 20 hich is used by
0000F0: 70 72 6F 67 72 61 6D 73 0D 0A 2A 20 31 39 20 26 programs..* 19 &
000100: 20 32 30 2C 20 54 68 65 20 64 61 74 61 20 66 69 20, The data fi
000110: 6C 65 20 69 73 20 63 72 65 61 74 65 64 20 61 73 le is created as
000120: 20 61 20 73 65 71 75 65 6E 74 69 61 6C 20 66 69 a sequential fi
000130: 6C 65 0D 0A 0D 0A 45 4E 56 49 52 4F 4E 4D 45 4E le....ENVIRONMEN
000140: 54 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 43 T DIVISION.....C
000150: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 43 ONFIGURATION SEC
000160: 54 49 4F 4E 2E 0D 0A 20 53 4F 55 52 43 45 2D 43 TION... SOURCE-C
000170: 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 64 OMPUTER. Amstrad
000180: 20 36 31 32 38 2E 0D 0A 20 4F 42 4A 45 43 54 2D 6128... OBJECT-
000190: 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 72 61 COMPUTER. Amstra
0001A0: 64 20 36 31 32 38 2E 0D 0A 0D 0A 49 4E 50 55 54 d 6128.....INPUT
0001B0: 2D 4F 55 54 50 55 54 20 53 45 43 54 49 4F 4E 2E -OUTPUT SECTION.
0001C0: 0D 0A 20 46 49 4C 45 2D 43 4F 4E 54 52 4F 4C 2E .. FILE-CONTROL.
0001D0: 0D 0A 20 53 45 4C 45 43 54 20 52 41 4E 44 4F 4D .. SELECT RANDOM
0001E0: 2D 46 49 4C 45 20 41 53 53 49 47 4E 20 52 41 4E -FILE ASSIGN RAN
0001F0: 44 4F 4D 2E 44 41 54 2E 0D 0A 0D 0A 44 41 54 41 DOM.DAT.....DATA
Size : 512 (Real : 512)
000000: 77 69 73 68 20 74 6F 20 72 65 61 64 20 6F 72 0D wish to read or.
000010: 0A 20 20 20 72 65 77 72 69 74 65 2E 0D 0A 0D 0A . rewrite.....
000020: 32 2E 20 42 65 66 6F 72 65 20 75 73 69 6E 67 20 2. Before using
000030: 74 68 65 20 52 45 57 52 49 54 45 20 63 6F 6D 6D the REWRITE comm
000040: 61 6E 64 20 74 68 65 20 20 72 65 63 6F 72 64 20 and the record
000050: 6D 75 73 74 20 68 61 76 65 20 62 65 65 6E 20 72 must have been r
000060: 65 61 64 2C 20 61 66 74 65 72 0D 0A 20 20 20 61 ead, after.. a
000070: 6C 6C 20 79 6F 75 20 63 61 6E 6E 6F 74 20 72 65 ll you cannot re
000080: 77 72 69 74 65 20 61 20 72 65 63 6F 72 64 20 74 write a record t
000090: 68 61 74 20 64 6F 65 73 20 6E 6F 74 20 65 78 69 hat does not exi
0000A0: 73 74 2E 0D 0A 0D 0A 33 2E 20 4E 6F 72 6D 61 6C st.....3. Normal
0000B0: 20 70 72 61 63 74 69 63 65 20 69 73 20 74 6F 20 practice is to
0000C0: 20 63 72 65 61 74 65 20 20 74 68 65 20 20 72 61 create the ra
0000D0: 6E 64 6F 6D 20 20 61 63 63 65 73 73 20 66 69 6C ndom access fil
0000E0: 65 20 61 73 20 61 20 73 65 71 75 65 6E 74 69 61 e as a sequentia
0000F0: 6C 0D 0A 20 20 20 66 69 6C 65 20 28 69 6E 20 61 l.. file (in a
000100: 20 73 65 70 61 72 61 74 65 20 70 72 6F 67 72 61 separate progra
000110: 6D 29 20 62 65 66 6F 72 65 20 69 74 20 69 73 20 m) before it is
000120: 75 73 65 64 2E 0D 0A 0D 0A 0D 0A 43 52 45 41 54 used.......CREAT
000130: 49 4E 47 20 44 41 54 41 20 46 49 4C 45 53 0D 0A ING DATA FILES..
000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
000150: 3D 3D 3D 0D 0A 0D 0A 49 66 20 79 6F 75 20 6E 65 ===....If you ne
000160: 65 64 20 74 6F 20 63 72 65 61 74 65 20 61 20 20 ed to create a
000170: 64 61 74 61 20 20 66 69 6C 65 20 20 66 6F 72 20 data file for
000180: 20 75 73 65 20 20 69 6E 20 61 20 70 72 6F 67 72 use in a progr
000190: 61 6D 2C 20 74 68 65 72 65 20 61 72 65 20 74 77 am, there are tw
0001A0: 6F 0D 0A 75 73 75 61 6C 20 6D 65 74 68 6F 64 73 o..usual methods
0001B0: 20 6F 66 20 61 63 68 69 65 76 69 6E 67 20 74 68 of achieving th
0001C0: 69 73 2E 20 59 6F 75 20 63 61 6E 20 20 69 66 20 is. You can if
0001D0: 20 79 6F 75 20 77 69 73 68 20 77 72 69 74 65 20 you wish write
0001E0: 61 20 73 68 6F 72 74 20 43 6F 62 6F 6C 0D 0A 70 a short Cobol..p
0001F0: 72 6F 67 72 61 6D 20 6F 72 20 64 72 6F 70 20 62 rogram or drop b
Size : 512 (Real : 512)
000000: 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A 46 49 DIVISION.....FI
000010: 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 LE SECTION... FD
000020: 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 20 RANDOM-FILE...
000030: 20 30 31 20 4E 41 4D 45 20 20 20 50 49 43 20 58 01 NAME PIC X
000040: 28 33 30 29 2E 0D 0A 0D 0A 50 52 4F 43 45 44 55 (30).....PROCEDU
000050: 52 45 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 0D 0A RE DIVISION.....
000060: 4F 50 45 4E 2D 46 49 4C 45 2E 0D 0A 20 44 49 53 OPEN-FILE... DIS
000070: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 44 49 53 50 PLAY ' '... DISP
000080: 4C 41 59 20 27 43 72 65 61 74 69 6E 67 20 46 69 LAY 'Creating Fi
000090: 6C 65 2C 20 50 6C 65 61 73 65 20 57 61 69 74 27 le, Please Wait'
0000A0: 2E 0D 0A 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 ... OPEN OUTPUT
0000B0: 52 41 4E 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 0D 0A RANDOM-FILE.....
0000C0: 43 52 45 41 54 45 2D 46 49 4C 45 2E 0D 0A 20 4D CREATE-FILE... M
0000D0: 4F 56 45 20 27 42 65 6C 6C 61 62 79 27 20 20 20 OVE 'Bellaby'
0000E0: 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 TO NAME... WRIT
0000F0: 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 E NAME... MOVE '
000100: 57 69 6C 6C 69 61 6D 73 27 20 20 20 54 4F 20 4E Williams' TO N
000110: 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E 41 4D AME... WRITE NAM
000120: 45 2E 0D 0A 20 4D 4F 56 45 20 27 4B 65 6E 6E 65 E... MOVE 'Kenne
000130: 64 79 27 20 20 20 20 54 4F 20 4E 41 4D 45 2E 0D dy' TO NAME..
000140: 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D 0A 20 . WRITE NAME...
000150: 4D 4F 56 45 20 27 41 64 61 6D 73 27 20 20 20 20 MOVE 'Adams'
000160: 20 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 TO NAME... WRI
000170: 54 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 TE NAME... MOVE
000180: 27 4D 6F 72 6C 65 79 27 20 20 20 20 20 54 4F 20 'Morley' TO
000190: 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E 41 NAME... WRITE NA
0001A0: 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 57 61 63 63 ME... MOVE 'Wacc
0001B0: 69 27 20 20 20 20 20 20 54 4F 20 4E 41 4D 45 2E i' TO NAME.
0001C0: 0D 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D 0A .. WRITE NAME...
0001D0: 20 4D 4F 56 45 20 27 44 77 65 72 79 68 6F 75 73 MOVE 'Dweryhous
0001E0: 65 27 20 54 4F 20 4E 41 4D 45 2E 0D 0A 20 57 52 e' TO NAME... WR
0001F0: 49 54 45 20 4E 41 4D 45 2E 0D 0A 20 4D 4F 56 45 ITE NAME... MOVE
Size : 512 (Real : 512)
000000: 61 63 6B 20 69 6E 74 6F 20 42 61 73 69 63 20 61 ack into Basic a
000010: 6E 64 20 20 77 72 69 74 65 20 61 20 73 68 6F 72 nd write a shor
000020: 74 20 42 61 73 69 63 20 77 68 69 63 68 20 63 72 t Basic which cr
000030: 65 61 74 65 73 20 74 68 65 0D 0A 64 61 74 61 20 eates the..data
000040: 66 69 6C 65 2E 20 54 68 65 20 66 6F 6C 6C 6F 77 file. The follow
000050: 69 6E 67 20 70 72 6F 67 72 61 6D 73 20 62 6F 74 ing programs bot
000060: 68 20 20 63 72 65 61 74 65 20 61 20 64 61 74 61 h create a data
000070: 20 66 69 6C 65 20 63 6F 6E 74 61 69 6E 69 6E 67 file containing
000080: 20 66 69 76 65 0D 0A 72 65 63 6F 72 64 73 20 6F five..records o
000090: 66 20 33 30 20 73 70 61 63 65 73 2E 0D 0A 0D 0A f 30 spaces.....
0000A0: 3C 3C 20 43 4F 42 4F 4C 20 3E 3E 0D 0A 0D 0A 49 << COBOL >>....I
0000B0: 44 45 4E 54 49 46 49 43 41 54 49 4F 4E 20 44 49 DENTIFICATION DI
0000C0: 56 49 53 49 4F 4E 2E 0D 0A 50 52 4F 47 52 41 4D VISION...PROGRAM
0000D0: 2D 49 44 2E 20 43 72 65 61 74 65 20 61 20 64 61 -ID. Create a da
0000E0: 74 61 20 66 69 6C 65 2E 0D 0A 45 4E 56 49 52 4F ta file...ENVIRO
0000F0: 4E 4D 45 4E 54 20 44 49 56 49 53 49 4F 4E 2E 0D NMENT DIVISION..
000100: 0A 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 .CONFIGURATION S
000110: 45 43 54 49 4F 4E 2E 0D 0A 20 20 53 4F 55 52 43 ECTION... SOURC
000120: 45 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D 73 74 E-COMPUTER. Amst
000130: 72 61 64 20 36 31 32 38 2E 0D 0A 20 20 4F 42 4A rad 6128... OBJ
000140: 45 43 54 2D 43 4F 4D 50 55 54 45 52 2E 20 41 6D ECT-COMPUTER. Am
000150: 73 74 72 61 64 20 36 31 32 38 2E 0D 0A 49 4E 50 strad 6128...INP
000160: 55 54 2D 4F 55 54 50 55 54 20 53 45 43 54 49 4F UT-OUTPUT SECTIO
000170: 4E 2E 0D 0A 20 20 46 49 4C 45 2D 43 4F 4E 54 52 N... FILE-CONTR
000180: 4F 4C 2E 0D 0A 20 20 20 20 53 45 4C 45 43 54 20 OL... SELECT
000190: 4E 41 4D 45 2D 46 49 4C 45 20 41 53 53 49 47 4E NAME-FILE ASSIGN
0001A0: 20 4E 41 4D 45 53 2E 44 41 54 2E 0D 0A 44 41 54 NAMES.DAT...DAT
0001B0: 41 20 44 49 56 49 53 49 4F 4E 2E 0D 0A 20 20 46 A DIVISION... F
0001C0: 49 4C 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 20 ILE SECTION...
0001D0: 20 20 46 44 20 4E 41 4D 45 2D 46 49 4C 45 2E 0D FD NAME-FILE..
0001E0: 0A 20 20 20 20 20 20 30 31 20 4E 41 4D 45 20 50 . 01 NAME P
0001F0: 49 43 20 58 28 33 30 29 2E 0D 0A 57 4F 52 4B 49 IC X(30)...WORKI
Size : 512 (Real : 512)
000000: 20 27 43 61 6D 70 62 65 6C 6C 27 20 20 20 54 4F 'Campbell' TO
000010: 20 4E 41 4D 45 2E 0D 0A 20 57 52 49 54 45 20 4E NAME... WRITE N
000020: 41 4D 45 2E 0D 0A 20 4D 4F 56 45 20 27 54 69 6C AME... MOVE 'Til
000030: 6C 69 6E 67 27 20 20 20 20 54 4F 20 4E 41 4D 45 ling' TO NAME
000040: 2E 0D 0A 20 57 52 49 54 45 20 4E 41 4D 45 2E 0D ... WRITE NAME..
000050: 0A 0D 0A 45 4E 44 2D 50 52 4F 47 52 41 4D 2E 0D ...END-PROGRAM..
000060: 0A 20 43 4C 4F 53 45 20 52 41 4E 44 4F 4D 2D 46 . CLOSE RANDOM-F
000070: 49 4C 45 2E 0D 0A 20 53 54 4F 50 20 52 55 4E 2E ILE... STOP RUN.
000080: 0D 0A 0D 0A 0D 0A 50 52 4F 47 52 41 4D 20 4E 49 ......PROGRAM NI
000090: 4E 45 54 45 45 4E 0D 0A 3D 3D 3D 3D 3D 3D 3D 3D NETEEN..========
0000A0: 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 44 45 4E ========....IDEN
0000B0: 54 49 46 49 43 41 54 49 4F 4E 20 44 49 56 49 53 TIFICATION DIVIS
0000C0: 49 4F 4E 2E 0D 0A 20 50 52 4F 47 52 41 4D 2D 49 ION... PROGRAM-I
0000D0: 44 2E 20 50 72 6F 67 72 61 6D 20 4E 69 6E 65 74 D. Program Ninet
0000E0: 65 65 6E 2E 0D 0A 0D 0A 2A 20 54 68 69 73 20 70 een.....* This p
0000F0: 72 6F 67 72 61 6D 20 75 73 65 73 20 74 68 65 20 rogram uses the
000100: 64 61 74 61 20 66 69 6C 65 20 27 52 41 4E 44 4F data file 'RANDO
000110: 4D 2E 44 41 54 27 20 61 73 20 61 20 72 61 6E 64 M.DAT' as a rand
000120: 6F 6D 20 61 63 63 65 73 73 20 66 69 6C 65 20 74 om access file t
000130: 68 65 0D 0A 2A 20 64 61 74 61 20 66 69 6C 65 20 he..* data file
000140: 6D 75 73 74 20 66 69 72 73 74 20 62 65 20 63 72 must first be cr
000150: 65 61 74 65 64 20 75 73 69 6E 67 20 70 72 6F 67 eated using prog
000160: 72 61 6D 20 65 69 67 68 74 65 65 6E 0D 0A 0D 0A ram eighteen....
000170: 45 4E 56 49 52 4F 4E 4D 45 4E 54 20 44 49 56 49 ENVIRONMENT DIVI
000180: 53 49 4F 4E 2E 0D 0A 0D 0A 43 4F 4E 46 49 47 55 SION.....CONFIGU
000190: 52 41 54 49 4F 4E 20 53 45 43 54 49 4F 4E 2E 0D RATION SECTION..
0001A0: 0A 20 53 4F 55 52 43 45 2D 43 4F 4D 50 55 54 45 . SOURCE-COMPUTE
0001B0: 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 2E R. Amstrad 6128.
0001C0: 0D 0A 20 4F 42 4A 45 43 54 2D 43 4F 4D 50 55 54 .. OBJECT-COMPUT
0001D0: 45 52 2E 20 41 6D 73 74 72 61 64 20 36 31 32 38 ER. Amstrad 6128
0001E0: 2E 0D 0A 0D 0A 49 4E 50 55 54 2D 4F 55 54 50 55 .....INPUT-OUTPU
0001F0: 54 20 53 45 43 54 49 4F 4E 2E 0D 0A 20 46 49 4C T SECTION... FIL
Size : 512 (Real : 512)
000000: 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 54 49 NG-STORAGE SECTI
000010: 4F 4E 2E 0D 0A 20 20 30 31 20 4E 41 4D 45 2D 4E ON... 01 NAME-N
000020: 55 4D 42 45 52 20 20 20 20 50 49 43 20 39 2E 0D UMBER PIC 9..
000030: 0A 20 20 30 31 20 42 55 46 46 45 52 2D 31 20 20 . 01 BUFFER-1
000040: 20 20 20 20 20 50 49 43 20 58 28 33 30 29 2E 0D PIC X(30)..
000050: 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 49 53 .PROCEDURE DIVIS
000060: 49 4F 4E 2E 0D 0A 4F 50 45 4E 2D 46 49 4C 45 2E ION...OPEN-FILE.
000070: 0D 0A 20 20 4F 50 45 4E 20 4F 55 54 50 55 54 20 .. OPEN OUTPUT
000080: 4E 41 4D 45 2D 46 49 4C 45 2E 0D 0A 20 20 4D 4F NAME-FILE... MO
000090: 56 45 20 30 20 54 4F 20 4E 41 4D 45 2D 4E 55 4D VE 0 TO NAME-NUM
0000A0: 42 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 53 50 41 BER... MOVE SPA
0000B0: 43 45 20 54 4F 20 42 55 46 46 45 52 2D 31 2E 0D CE TO BUFFER-1..
0000C0: 0A 20 20 50 45 52 46 4F 52 4D 20 43 52 45 41 54 . PERFORM CREAT
0000D0: 45 2D 46 49 4C 45 20 35 20 54 49 4D 45 53 2E 0D E-FILE 5 TIMES..
0000E0: 0A 50 52 4F 47 52 41 4D 2D 45 4E 44 2E 0D 0A 20 .PROGRAM-END...
0000F0: 20 43 4C 4F 53 45 20 4E 41 4D 45 2D 46 49 4C 45 CLOSE NAME-FILE
000100: 2E 0D 0A 20 20 53 54 4F 50 20 52 55 4E 2E 0D 0A ... STOP RUN...
000110: 43 52 45 41 54 45 2D 46 49 4C 45 2E 0D 0A 20 20 CREATE-FILE...
000120: 41 44 44 20 31 20 54 4F 20 4E 41 4D 45 2D 4E 55 ADD 1 TO NAME-NU
000130: 4D 42 45 52 2E 0D 0A 20 20 4D 4F 56 45 20 42 55 MBER... MOVE BU
000140: 46 46 45 52 2D 31 20 54 4F 20 4E 41 4D 45 2E 0D FFER-1 TO NAME..
000150: 0A 20 20 57 52 49 54 45 20 4E 41 4D 45 20 49 4E . WRITE NAME IN
000160: 56 41 4C 49 44 0D 0A 20 20 20 20 44 49 53 50 4C VALID.. DISPL
000170: 41 59 20 27 45 52 52 4F 52 20 57 48 45 4E 20 53 AY 'ERROR WHEN S
000180: 41 56 49 4E 47 20 44 41 54 41 27 2E 0D 0A 0D 0A AVING DATA'.....
000190: 61 6E 64 20 6E 6F 77 20 74 68 65 20 73 61 6D 65 and now the same
0001A0: 20 70 72 6F 67 72 61 6D 20 75 73 69 6E 67 2C 0D program using,.
0001B0: 0A 0D 0A 3C 3C 20 42 41 53 49 43 20 3E 3E 0D 0A ...<< BASIC >>..
0001C0: 0D 0A 31 30 20 4F 50 45 4E 4F 55 54 20 22 6E 61 ..10 OPENOUT "na
0001D0: 6D 65 73 2E 64 61 74 22 0D 0A 32 30 20 46 4F 52 mes.dat"..20 FOR
0001E0: 20 69 3D 31 20 74 6F 20 35 0D 0A 33 30 20 50 52 i=1 to 5..30 PR
0001F0: 49 4E 54 20 23 39 2C 73 70 61 63 65 24 28 33 30 INT #9,space$(30
Size : 512 (Real : 512)
000000: 45 2D 43 4F 4E 54 52 4F 4C 2E 0D 0A 20 20 53 45 E-CONTROL... SE
000010: 4C 45 43 54 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 LECT RANDOM-FILE
000020: 20 41 53 53 49 47 4E 20 52 41 4E 44 4F 4D 2E 44 ASSIGN RANDOM.D
000030: 41 54 0D 0A 20 20 4F 52 47 41 4E 49 5A 41 54 49 AT.. ORGANIZATI
000040: 4F 4E 20 52 45 4C 41 54 49 56 45 0D 0A 20 20 41 ON RELATIVE.. A
000050: 43 43 45 53 53 20 52 41 4E 44 4F 4D 20 52 45 4C CCESS RANDOM REL
000060: 41 54 49 56 45 20 52 45 43 4F 52 44 2D 4E 55 4D ATIVE RECORD-NUM
000070: 42 45 52 2E 0D 0A 0D 0A 44 41 54 41 20 44 49 56 BER.....DATA DIV
000080: 49 53 49 4F 4E 2E 0D 0A 0D 0A 46 49 4C 45 20 53 ISION.....FILE S
000090: 45 43 54 49 4F 4E 2E 0D 0A 20 46 44 20 52 41 4E ECTION... FD RAN
0000A0: 44 4F 4D 2D 46 49 4C 45 2E 0D 0A 20 20 30 31 20 DOM-FILE... 01
0000B0: 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 50 NAME P
0000C0: 49 43 20 58 28 33 30 29 2E 0D 0A 0D 0A 57 4F 52 IC X(30).....WOR
0000D0: 4B 49 4E 47 2D 53 54 4F 52 41 47 45 20 53 45 43 KING-STORAGE SEC
0000E0: 54 49 4F 4E 2E 0D 0A 0D 0A 30 31 20 52 45 43 4F TION.....01 RECO
0000F0: 52 44 2D 4E 55 4D 42 45 52 20 20 20 20 50 49 43 RD-NUMBER PIC
000100: 20 39 2E 0D 0A 30 31 20 4B 45 59 42 4F 41 52 44 9...01 KEYBOARD
000110: 2D 45 4E 54 52 59 20 20 20 50 49 43 20 58 2E 0D -ENTRY PIC X..
000120: 0A 0D 0A 50 52 4F 43 45 44 55 52 45 20 44 49 56 ...PROCEDURE DIV
000130: 49 53 49 4F 4E 2E 0D 0A 0D 0A 4F 50 45 4E 2D 46 ISION.....OPEN-F
000140: 49 4C 45 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 ILE... DISPLAY '
000150: 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 4F '... DISPLAY 'O
000160: 70 65 6E 69 6E 67 20 46 69 6C 65 2C 20 50 6C 65 pening File, Ple
000170: 61 73 65 20 57 61 69 74 27 2E 0D 0A 20 44 49 53 ase Wait'... DIS
000180: 50 4C 41 59 20 27 20 27 2E 0D 0A 20 4F 50 45 4E PLAY ' '... OPEN
000190: 20 49 2D 4F 20 52 41 4E 44 4F 4D 2D 46 49 4C 45 I-O RANDOM-FILE
0001A0: 2E 0D 0A 0D 0A 44 49 53 50 4C 41 59 2D 46 49 4C .....DISPLAY-FIL
0001B0: 45 2E 0D 0A 20 4D 4F 56 45 20 30 20 54 4F 20 52 E... MOVE 0 TO R
0001C0: 45 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A 20 ECORD-NUMBER...
0001D0: 50 45 52 46 4F 52 4D 20 52 45 41 44 2D 46 49 4C PERFORM READ-FIL
0001E0: 45 20 39 20 54 49 4D 45 53 2E 0D 0A 0D 0A 44 49 E 9 TIMES.....DI
0001F0: 53 50 4C 41 59 2D 4D 45 53 53 41 47 45 2E 0D 0A SPLAY-MESSAGE...
Size : 512 (Real : 512)
000000: 72 20 77 6F 72 64 20 77 69 74 68 69 6E 20 61 0D r word within a.
000010: 0A 70 72 6F 67 72 61 6D 2E 20 56 61 6C 75 65 20 .program. Value
000020: 69 73 20 61 20 72 65 73 65 72 76 65 64 20 77 6F is a reserved wo
000030: 72 64 20 69 6E 20 43 6F 62 6F 6C 2C 20 73 6F 20 rd in Cobol, so
000040: 79 6F 75 20 63 61 6E 6E 6F 74 20 75 73 65 20 56 you cannot use V
000050: 61 6C 75 65 20 75 6E 6C 65 73 73 0D 0A 69 74 20 alue unless..it
000060: 66 6F 72 6D 73 20 70 61 72 74 20 6F 66 20 61 20 forms part of a
000070: 6C 61 72 67 65 72 20 77 6F 72 64 2C 0D 0A 0D 0A larger word,....
000080: 69 65 2E 20 43 41 4C 43 55 4C 41 54 45 2D 56 41 ie. CALCULATE-VA
000090: 4C 55 45 20 28 69 73 20 61 63 63 65 70 74 61 62 LUE (is acceptab
0000A0: 6C 65 2E 29 0D 0A 0D 0A 54 68 65 20 43 6F 62 6F le.)....The Cobo
0000B0: 6C 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 20 l document file
0000C0: 64 6F 65 73 20 6E 6F 74 20 20 63 6F 6E 74 61 69 does not contai
0000D0: 6E 20 20 61 20 20 6C 69 73 74 20 6F 66 20 72 65 n a list of re
0000E0: 73 65 72 76 65 64 20 77 6F 72 64 73 2C 20 73 6F served words, so
0000F0: 20 49 0D 0A 68 61 63 6B 65 64 20 69 6E 74 6F 20 I..hacked into
000100: 74 68 65 20 43 6F 62 6F 6C 20 63 6F 6D 70 69 6C the Cobol compil
000110: 65 72 20 75 73 69 6E 67 20 53 49 44 20 20 61 6E er using SID an
000120: 64 20 64 69 73 63 6F 76 65 72 65 64 20 74 68 65 d discovered the
000130: 20 66 75 6C 6C 3F 20 6C 69 73 74 20 6F 66 0D 0A full? list of..
000140: 72 65 73 65 72 76 65 64 20 77 6F 72 64 73 20 75 reserved words u
000150: 73 65 64 20 69 6E 20 74 68 65 20 50 44 20 76 65 sed in the PD ve
000160: 72 73 69 6F 6E 20 6F 66 20 43 6F 62 6F 6C 2E 0D rsion of Cobol..
000170: 0A 0D 0A 41 43 43 45 53 53 20 20 20 20 20 20 20 ...ACCESS
000180: 20 20 20 20 41 43 43 45 50 54 20 20 20 20 20 20 ACCEPT
000190: 20 20 20 20 20 20 41 44 44 20 20 20 20 20 20 20 ADD
0001A0: 20 20 20 20 20 20 20 20 41 44 56 41 4E 43 49 4E ADVANCIN
0001B0: 47 0D 0A 41 46 54 45 52 20 20 20 20 20 20 20 20 G..AFTER
0001C0: 20 20 20 20 41 4C 50 48 41 42 45 54 49 43 20 20 ALPHABETIC
0001D0: 20 20 20 20 20 20 41 53 53 49 47 4E 20 20 20 20 ASSIGN
0001E0: 20 20 20 20 20 20 20 20 41 55 54 48 4F 52 0D 0A AUTHOR..
0001F0: 42 45 46 4F 52 45 20 20 20 20 20 20 20 20 20 20 BEFORE
Size : 512 (Real : 512)
000000: 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A 20 DISPLAY ' '...
000010: 44 49 53 50 4C 41 59 20 27 45 6E 74 65 72 20 61 DISPLAY 'Enter a
000020: 20 6E 75 6D 62 65 72 2C 20 72 61 6E 67 65 20 30 number, range 0
000030: 20 2D 20 39 27 2E 0D 0A 20 44 49 53 50 4C 41 59 - 9'... DISPLAY
000040: 20 27 28 20 30 20 45 6E 64 20 50 72 6F 67 72 61 '( 0 End Progra
000050: 6D 2C 20 31 20 74 6F 20 39 20 44 69 73 70 6C 61 m, 1 to 9 Displa
000060: 79 73 20 52 65 63 6F 72 64 20 29 27 2E 0D 0A 20 ys Record )'...
000070: 41 43 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D ACCEPT KEYBOARD-
000080: 45 4E 54 52 59 2E 0D 0A 20 49 46 20 4B 45 59 42 ENTRY... IF KEYB
000090: 4F 41 52 44 2D 45 4E 54 52 59 20 4E 4F 54 20 4E OARD-ENTRY NOT N
0000A0: 55 4D 45 52 49 43 0D 0A 20 20 20 50 45 52 46 4F UMERIC.. PERFO
0000B0: 52 4D 20 4E 4F 4E 2D 4E 55 4D 45 52 49 43 2D 45 RM NON-NUMERIC-E
0000C0: 4E 54 52 59 0D 0A 20 20 20 47 4F 20 44 49 53 50 NTRY.. GO DISP
0000D0: 4C 41 59 2D 46 49 4C 45 0D 0A 20 45 4E 44 2D 49 LAY-FILE.. END-I
0000E0: 46 2E 0D 0A 0D 0A 43 48 45 43 4B 2D 49 46 2D 5A F.....CHECK-IF-Z
0000F0: 45 52 4F 2E 0D 0A 20 4D 4F 56 45 20 4B 45 59 42 ERO... MOVE KEYB
000100: 4F 41 52 44 2D 45 4E 54 52 59 20 54 4F 20 52 45 OARD-ENTRY TO RE
000110: 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A 20 49 CORD-NUMBER... I
000120: 46 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 20 F RECORD-NUMBER
000130: 45 51 55 41 4C 20 30 0D 0A 20 20 44 49 53 50 4C EQUAL 0.. DISPL
000140: 41 59 20 27 20 27 0D 0A 20 20 44 49 53 50 4C 41 AY ' '.. DISPLA
000150: 59 20 27 45 6E 64 20 50 72 6F 67 72 61 6D 20 53 Y 'End Program S
000160: 65 6C 65 63 74 65 64 27 0D 0A 20 20 44 49 53 50 elected'.. DISP
000170: 4C 41 59 20 27 20 27 0D 0A 20 20 44 49 53 50 4C LAY ' '.. DISPL
000180: 41 59 20 27 43 6C 6F 73 69 6E 67 20 46 69 6C 65 AY 'Closing File
000190: 2C 20 50 6C 65 61 73 65 20 57 61 69 74 27 0D 0A , Please Wait'..
0001A0: 20 20 43 4C 4F 53 45 20 52 41 4E 44 4F 4D 2D 46 CLOSE RANDOM-F
0001B0: 49 4C 45 0D 0A 20 20 53 54 4F 50 20 52 55 4E 0D ILE.. STOP RUN.
0001C0: 0A 20 45 4E 44 2D 49 46 2E 0D 0A 0D 0A 44 49 53 . END-IF.....DIS
0001D0: 50 4C 41 59 2D 52 45 43 4F 52 44 2E 0D 0A 20 4D PLAY-RECORD... M
0001E0: 4F 56 45 20 4B 45 59 42 4F 41 52 44 2D 45 4E 54 OVE KEYBOARD-ENT
0001F0: 52 59 20 54 4F 20 52 45 43 4F 52 44 2D 4E 55 4D RY TO RECORD-NUM
Size : 512 (Real : 512)
000000: 20 42 4C 4F 43 4B 20 20 20 20 20 20 20 20 20 20 BLOCK
000010: 20 20 20 42 59 20 20 20 20 20 20 20 20 20 20 20 BY
000020: 20 20 20 20 20 43 41 4C 4C 0D 0A 43 4C 4F 53 45 CALL..CLOSE
000030: 20 20 20 20 20 20 20 20 20 20 20 20 43 4F 4D 50 COMP
000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4F CO
000050: 4D 50 2D 33 20 20 20 20 20 20 20 20 20 20 20 20 MP-3
000060: 43 4F 4D 50 55 54 41 54 49 4F 4E 41 4C 0D 0A 43 COMPUTATIONAL..C
000070: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 20 20 20 ONFIGURATION
000080: 44 41 54 41 20 20 20 20 20 20 20 20 20 20 20 20 DATA
000090: 20 20 44 41 54 45 2D 57 52 49 54 54 45 4E 20 20 DATE-WRITTEN
0000A0: 20 20 20 20 44 45 42 55 47 47 49 4E 47 0D 0A 44 DEBUGGING..D
0000B0: 45 4C 45 54 45 20 20 20 20 20 20 20 20 20 20 20 ELETE
0000C0: 44 45 50 45 4E 44 49 4E 47 20 20 20 20 20 20 20 DEPENDING
0000D0: 20 20 44 49 53 50 4C 41 59 20 20 20 20 20 20 20 DISPLAY
0000E0: 20 20 20 20 44 49 56 49 44 45 0D 0A 44 49 56 49 DIVIDE..DIVI
0000F0: 53 49 4F 4E 20 20 20 20 20 20 20 20 20 45 4C 53 SION ELS
000100: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 E E
000110: 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ND
000120: 20 45 4E 44 2D 49 46 0D 0A 45 4E 56 49 52 4F 4E END-IF..ENVIRON
000130: 4D 45 4E 54 20 20 20 20 20 20 45 51 55 41 4C 20 MENT EQUAL
000140: 20 20 20 20 20 20 20 20 20 20 20 20 45 52 52 4F ERRO
000150: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 R EX
000160: 49 54 0D 0A 46 44 20 20 20 20 20 20 20 20 20 20 IT..FD
000170: 20 20 20 20 20 46 49 4C 45 20 20 20 20 20 20 20 FILE
000180: 20 20 20 20 20 20 20 46 49 4C 45 2D 43 4F 4E 54 FILE-CONT
000190: 52 4F 4C 20 20 20 20 20 20 46 49 4C 4C 45 52 0D ROL FILLER.
0001A0: 0A 46 52 4F 4D 20 20 20 20 20 20 20 20 20 20 20 .FROM
0001B0: 20 20 47 4F 20 20 20 20 20 20 20 20 20 20 20 20 GO
0001C0: 20 20 20 20 47 52 45 41 54 45 52 20 20 20 20 20 GREATER
0001D0: 20 20 20 20 20 20 49 44 45 4E 54 49 46 49 43 41 IDENTIFICA
0001E0: 54 49 4F 4E 0D 0A 49 46 20 20 20 20 20 20 20 20 TION..IF
0001F0: 20 20 20 20 20 20 20 49 4E 44 45 58 45 44 20 20 INDEXED
Size : 512 (Real : 512)
000000: 42 45 52 2E 0D 0A 20 52 45 41 44 20 52 41 4E 44 BER... READ RAND
000010: 4F 4D 2D 46 49 4C 45 20 49 4E 56 41 4C 49 44 20 OM-FILE INVALID
000020: 50 45 52 46 4F 52 4D 20 52 45 41 44 2D 45 52 52 PERFORM READ-ERR
000030: 4F 52 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 20 OR... DISPLAY '
000040: 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 52 65 '... DISPLAY 'Re
000050: 63 6F 72 64 20 4E 75 6D 62 65 72 20 27 20 52 45 cord Number ' RE
000060: 43 4F 52 44 2D 4E 55 4D 42 45 52 20 27 20 20 20 CORD-NUMBER '
000070: 27 20 4E 41 4D 45 2E 0D 0A 20 44 49 53 50 4C 41 ' NAME... DISPLA
000080: 59 20 27 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 Y ' '... DISPLAY
000090: 20 27 50 72 65 73 73 20 52 45 54 55 52 4E 20 74 'Press RETURN t
0000A0: 6F 20 74 72 79 20 61 67 61 69 6E 27 2E 0D 0A 20 o try again'...
0000B0: 41 43 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D ACCEPT KEYBOARD-
0000C0: 45 4E 54 52 59 2E 0D 0A 20 47 4F 20 44 49 53 50 ENTRY... GO DISP
0000D0: 4C 41 59 2D 46 49 4C 45 2E 0D 0A 0D 0A 2A 2A 2A LAY-FILE.....***
0000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 2A 20 53 ************ * S
0000F0: 55 42 52 4F 55 54 49 4E 45 53 20 2A 20 2A 2A 2A UBROUTINES * ***
000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A ************....
000110: 52 45 41 44 2D 46 49 4C 45 2E 0D 0A 20 41 44 44 READ-FILE... ADD
000120: 20 31 20 54 4F 20 52 45 43 4F 52 44 2D 4E 55 4D 1 TO RECORD-NUM
000130: 42 45 52 2E 0D 0A 20 52 45 41 44 20 52 41 4E 44 BER... READ RAND
000140: 4F 4D 2D 46 49 4C 45 20 49 4E 56 41 4C 49 44 20 OM-FILE INVALID
000150: 20 44 49 53 50 4C 41 59 20 27 52 65 61 64 20 45 DISPLAY 'Read E
000160: 72 72 6F 72 2C 20 20 52 65 63 6F 72 64 20 27 20 rror, Record '
000170: 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 2E 0D 0A RECORD-NUMBER...
000180: 20 44 49 53 50 4C 41 59 20 27 52 65 63 6F 72 64 DISPLAY 'Record
000190: 20 4E 6F 2E 20 27 20 52 45 43 4F 52 44 2D 4E 55 No. ' RECORD-NU
0001A0: 4D 42 45 52 20 27 20 20 20 27 20 4E 41 4D 45 2E MBER ' ' NAME.
0001B0: 0D 0A 0D 0A 4E 4F 4E 2D 4E 55 4D 45 52 49 43 2D ....NON-NUMERIC-
0001C0: 45 4E 54 52 59 2E 0D 0A 20 44 49 53 50 4C 41 59 ENTRY... DISPLAY
0001D0: 20 27 20 27 2E 0D 0A 20 44 49 53 50 4C 41 59 20 ' '... DISPLAY
0001E0: 27 4E 6F 6E 2D 4E 75 6D 65 72 69 63 20 45 6E 74 'Non-Numeric Ent
0001F0: 72 79 2C 20 50 72 65 73 73 20 52 65 74 75 72 6E ry, Press Return
Size : 512 (Real : 512)
000000: 20 20 20 20 20 20 20 20 20 49 4E 50 55 54 20 20 INPUT
000010: 20 20 20 20 20 20 20 20 20 20 20 49 4E 50 55 54 INPUT
000020: 2D 4F 55 54 50 55 54 0D 0A 49 4E 53 54 41 4C 4C -OUTPUT..INSTALL
000030: 41 54 49 4F 4E 20 20 20 20 20 49 4E 54 4F 20 20 ATION INTO
000040: 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 56 41 INVA
000050: 4C 49 44 20 49 2D 4F 20 20 20 20 20 20 20 49 2D LID I-O I-
000060: 4F 2D 43 4F 4E 54 52 4F 4C 0D 0A 4C 41 42 45 4C O-CONTROL..LABEL
000070: 20 20 20 20 20 20 20 20 20 20 20 20 4C 45 41 44 LEAD
000080: 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 4C 45 ING LE
000090: 46 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 FT
0000A0: 4C 45 53 53 0D 0A 4C 49 4E 4B 41 47 45 20 20 20 LESS..LINKAGE
0000B0: 20 20 20 20 20 20 20 4D 4F 44 45 20 20 20 20 20 MODE
0000C0: 20 20 20 20 20 20 20 20 20 4D 4F 56 45 20 20 20 MOVE
0000D0: 20 20 20 20 20 20 20 20 20 20 20 4D 55 4C 54 49 MULTI
0000E0: 50 4C 59 0D 0A 4E 45 58 54 20 20 20 20 20 20 20 PLY..NEXT
0000F0: 20 20 20 20 20 20 4E 4F 54 20 20 20 20 20 20 20 NOT
000100: 20 20 20 20 20 20 20 20 4E 55 4D 45 52 49 43 20 NUMERIC
000110: 20 20 20 20 20 20 20 20 20 20 4F 42 4A 45 43 54 OBJECT
000120: 2D 43 4F 4D 50 55 54 45 52 0D 0A 4F 43 43 55 52 -COMPUTER..OCCUR
000130: 53 20 20 20 20 20 20 20 20 20 20 20 4F 46 20 20 S OF
000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4F 4D OM
000150: 49 54 54 45 44 20 20 20 20 20 20 20 20 20 20 20 ITTED
000160: 4F 50 45 4E 0D 0A 4F 52 47 41 4E 49 5A 41 54 49 OPEN..ORGANIZATI
000170: 4F 4E 20 20 20 20 20 4F 55 54 50 55 54 20 20 20 ON OUTPUT
000180: 20 20 20 20 20 20 20 20 20 50 41 47 45 20 20 20 PAGE
000190: 20 20 20 20 20 20 20 20 20 20 20 50 45 52 46 4F PERFO
0001A0: 52 4D 0D 0A 50 49 43 20 20 20 20 20 20 20 20 20 RM..PIC
0001B0: 20 20 20 20 20 50 52 4F 43 45 44 55 52 45 20 20 PROCEDURE
0001C0: 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D 2D 49 PROGRAM-I
0001D0: 44 20 20 20 20 20 20 20 20 51 55 4F 54 45 0D 0A D QUOTE..
0001E0: 52 41 4E 44 4F 4D 20 20 20 20 20 20 20 20 20 20 RANDOM
0001F0: 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 20 READ
Size : 512 (Real : 512)
000000: 20 54 6F 20 52 65 64 6F 2E 27 2E 0D 0A 20 41 43 To Redo.'... AC
000010: 43 45 50 54 20 4B 45 59 42 4F 41 52 44 2D 45 4E CEPT KEYBOARD-EN
000020: 54 52 59 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 TRY... DISPLAY '
000030: 20 27 2E 0D 0A 0D 0A 52 45 41 44 2D 45 52 52 4F '.....READ-ERRO
000040: 52 2E 0D 0A 20 44 49 53 50 4C 41 59 20 27 52 65 R... DISPLAY 'Re
000050: 61 64 20 45 72 72 6F 72 20 27 0D 0A 20 20 20 20 ad Error '..
000060: 20 20 20 20 20 20 52 45 43 4F 52 44 2D 4E 55 4D RECORD-NUM
000070: 42 45 52 0D 0A 20 20 20 20 20 20 20 20 20 27 20 BER.. '
000080: 50 72 65 73 73 20 52 65 74 75 72 6E 20 54 6F 20 Press Return To
000090: 41 62 6F 72 74 27 2E 0D 0A 20 44 49 53 50 4C 41 Abort'... DISPLA
0000A0: 59 20 27 20 27 2E 0D 0A 20 41 43 43 45 50 54 20 Y ' '... ACCEPT
0000B0: 4B 45 59 42 4F 41 52 44 2D 45 4E 54 52 59 2E 0D KEYBOARD-ENTRY..
0000C0: 0A 20 44 49 53 50 4C 41 59 20 27 20 27 2E 0D 0A . DISPLAY ' '...
0000D0: 20 47 4F 20 44 49 53 50 4C 41 59 2D 46 49 4C 45 GO DISPLAY-FILE
0000E0: 2E 0D 0A 0D 0A 4E 65 69 74 68 65 72 20 70 72 6F .....Neither pro
0000F0: 67 72 61 6D 20 69 73 20 65 78 63 69 74 69 6E 67 gram is exciting
000100: 20 20 62 75 74 20 20 74 68 65 79 20 20 64 65 6D but they dem
000110: 6F 6E 73 74 72 61 74 65 20 74 68 65 20 70 72 69 onstrate the pri
000120: 6E 63 69 70 6C 65 20 69 6E 76 6F 6C 76 65 64 0D nciple involved.
000130: 0A 61 6E 64 20 61 72 65 20 72 65 6C 61 74 69 76 .and are relativ
000140: 65 6C 79 20 65 61 73 79 20 74 6F 20 72 65 61 64 ely easy to read
000150: 20 20 61 6E 64 20 75 6E 64 65 72 73 74 61 6E 64 and understand
000160: 2E 20 54 68 65 20 72 61 6E 64 6F 6D 20 61 63 63 . The random acc
000170: 65 73 73 20 70 72 6F 67 72 61 6D 0D 0A 77 6F 72 ess program..wor
000180: 6B 73 20 76 65 72 79 20 71 75 69 63 6B 6C 79 20 ks very quickly
000190: 69 6E 20 74 68 69 73 20 63 61 73 65 20 62 65 63 in this case bec
0001A0: 61 75 73 65 20 20 74 68 65 20 20 61 6C 6C 20 74 ause the all t
0001B0: 68 65 20 72 65 63 6F 72 64 73 20 66 69 74 20 69 he records fit i
0001C0: 6E 74 6F 20 74 68 65 0D 0A 64 69 73 63 20 62 75 nto the..disc bu
0001D0: 66 66 65 72 20 74 68 65 20 62 75 66 66 65 72 20 ffer the buffer
0001E0: 69 73 20 74 72 65 61 74 65 64 20 61 73 20 20 61 is treated as a
0001F0: 6E 20 61 72 65 61 20 6F 66 20 64 69 72 65 63 74 n area of direct
Size : 512 (Real : 512)
000000: 20 20 20 52 45 43 4F 52 44 20 20 20 20 20 20 20 RECORD
000010: 20 20 20 20 20 52 45 43 4F 52 44 53 0D 0A 52 45 RECORDS..RE
000020: 44 45 46 49 4E 45 53 20 20 20 20 20 20 20 20 52 DEFINES R
000030: 45 4C 41 54 49 56 45 20 20 20 20 20 20 20 20 20 ELATIVE
000040: 20 52 45 57 52 49 54 45 20 20 20 20 20 20 20 20 REWRITE
000050: 20 20 20 52 49 47 48 54 0D 0A 52 4F 55 4E 44 45 RIGHT..ROUNDE
000060: 44 20 20 20 20 20 20 20 20 20 20 52 55 4E 20 20 D RUN
000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 53 41 4D SAM
000080: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 E S
000090: 45 43 54 49 4F 4E 0D 0A 53 45 43 55 52 49 54 59 ECTION..SECURITY
0000A0: 20 20 20 20 20 20 20 20 20 53 45 4C 45 43 54 20 SELECT
0000B0: 20 20 20 20 20 20 20 20 20 20 20 53 45 50 41 52 SEPAR
0000C0: 41 54 45 20 20 20 20 20 20 20 20 20 20 53 45 51 ATE SEQ
0000D0: 55 45 4E 54 49 41 4C 0D 0A 53 49 47 4E 20 20 20 UENTIAL..SIGN
0000E0: 20 20 20 20 20 20 20 20 20 20 53 49 5A 45 20 20 SIZE
0000F0: 20 20 20 20 20 20 20 20 20 20 20 20 53 4F 55 52 SOUR
000100: 43 45 2D 43 4F 4D 50 55 54 45 52 20 20 20 53 50 CE-COMPUTER SP
000110: 41 43 45 0D 0A 53 54 41 4E 44 41 52 44 20 20 20 ACE..STANDARD
000120: 20 20 20 20 20 20 53 54 4F 50 20 20 20 20 20 20 STOP
000130: 20 20 20 20 20 20 20 20 53 55 42 54 52 41 43 54 SUBTRACT
000140: 20 20 20 20 20 20 20 20 20 20 53 59 4E 43 0D 0A SYNC..
000150: 54 49 4D 45 53 20 20 20 20 20 20 20 20 20 20 20 TIMES
000160: 20 54 48 52 55 20 20 20 20 20 20 20 20 20 20 20 THRU
000170: 20 20 20 54 4F 20 20 20 20 20 20 20 20 20 20 20 TO
000180: 20 20 20 20 20 54 52 41 49 4C 49 4E 47 0D 0A 55 TRAILING..U
000190: 4E 54 49 4C 20 20 20 20 20 20 20 20 20 20 20 20 NTIL
0001A0: 55 53 41 47 45 20 20 20 20 20 20 20 20 20 20 20 USAGE
0001B0: 20 20 55 53 49 4E 47 20 20 20 20 20 20 20 20 20 USING
0001C0: 20 20 20 20 56 41 4C 55 45 0D 0A 56 41 52 59 49 VALUE..VARYI
0001D0: 4E 47 20 20 20 20 20 20 20 20 20 20 57 4F 52 4B NG WORK
0001E0: 49 4E 47 2D 53 54 4F 52 41 47 45 20 20 20 57 52 ING-STORAGE WR
0001F0: 49 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 ITE
Size : 512 (Real : 512)
000000: 20 61 63 63 65 73 73 20 52 61 6D 2E 20 4C 61 72 access Ram. Lar
000010: 67 65 72 0D 0A 66 69 6C 65 73 20 77 69 6C 6C 20 ger..files will
000020: 62 65 20 73 6C 6F 77 65 72 20 61 73 20 74 68 65 be slower as the
000030: 20 70 72 6F 67 72 61 6D 20 20 77 69 6C 6C 20 20 program will
000040: 6E 65 65 64 20 20 74 6F 20 72 65 61 64 20 74 68 need to read th
000050: 65 20 66 69 6C 65 20 69 6E 74 6F 20 74 68 65 0D e file into the.
000060: 0A 62 75 66 66 65 72 20 6D 6F 72 65 20 74 68 61 .buffer more tha
000070: 6E 20 6F 6E 63 65 2E 20 49 20 77 69 6C 6C 20 65 n once. I will e
000080: 78 70 61 6E 64 20 6F 6E 20 74 68 65 73 65 20 70 xpand on these p
000090: 72 6F 67 72 61 6D 73 20 6E 65 78 74 20 6D 6F 6E rograms next mon
0000A0: 74 68 20 77 69 74 68 20 74 77 6F 0D 0A 6D 6F 72 th with two..mor
0000B0: 65 20 70 72 6F 67 72 61 6D 73 2C 20 77 68 69 63 e programs, whic
0000C0: 68 20 77 69 6C 6C 20 64 65 6D 6F 6E 73 74 72 61 h will demonstra
0000D0: 74 65 20 3A 0D 0A 0D 0A 31 2E 20 54 68 65 20 52 te :....1. The R
0000E0: 45 57 52 49 54 45 20 63 6F 6D 6D 61 6E 64 0D 0A EWRITE command..
0000F0: 32 2E 20 41 6E 20 61 6C 70 68 61 62 65 74 69 63 2. An alphabetic
000100: 20 73 6F 72 74 0D 0A 0D 0A 0D 0A 52 45 53 45 52 sort......RESER
000110: 56 45 44 20 57 4F 52 44 53 0D 0A 3D 3D 3D 3D 3D VED WORDS..=====
000120: 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 52 65 73 =========....Res
000130: 65 72 76 65 64 20 77 6F 72 64 73 20 61 72 65 20 erved words are
000140: 74 68 6F 73 65 20 77 68 69 63 68 20 68 61 76 65 those which have
000150: 20 61 20 70 61 72 74 69 63 75 6C 61 72 20 6D 65 a particular me
000160: 61 6E 69 6E 67 20 77 69 74 68 69 6E 20 61 20 63 aning within a c
000170: 6F 6D 70 75 74 65 72 0D 0A 6C 61 6E 67 75 61 67 omputer..languag
000180: 65 2C 20 74 68 65 79 20 63 61 6E 20 6F 6E 6C 79 e, they can only
000190: 20 20 62 65 20 20 75 73 65 64 20 20 77 69 74 68 be used with
0001A0: 69 6E 20 20 61 20 20 70 72 6F 67 72 61 6D 20 69 in a program i
0001B0: 6E 20 74 68 65 69 72 20 70 72 65 2D 64 65 66 69 n their pre-defi
0001C0: 6E 65 64 0D 0A 72 6F 6C 65 2E 20 48 6F 77 65 76 ned..role. Howev
0001D0: 65 72 20 61 20 72 65 73 65 72 76 65 64 20 77 6F er a reserved wo
0001E0: 72 64 20 20 63 61 6E 20 20 66 6F 72 6D 20 20 70 rd can form p
0001F0: 61 72 74 20 20 6F 66 20 20 61 20 6C 61 72 67 65 art of a large
Size : 512 (Real : 512)
000000: 5A 45 52 4F 0D 0A 0D 0A 54 61 6B 65 20 61 20 63 ZERO....Take a c
000010: 6F 70 79 20 6F 66 20 74 68 69 73 20 6C 69 73 74 opy of this list
000020: 20 61 6E 64 20 6B 65 65 70 20 69 74 20 20 68 61 and keep it ha
000030: 6E 64 79 20 61 73 20 75 73 69 6E 67 20 61 20 72 ndy as using a r
000040: 65 73 65 72 76 65 64 20 77 6F 72 64 20 61 73 20 eserved word as
000050: 61 6E 0D 0A 69 64 65 6E 74 69 66 69 65 72 20 77 an..identifier w
000060: 69 6C 6C 20 20 63 61 75 73 65 20 20 73 65 76 65 ill cause seve
000070: 72 61 6C 20 20 75 6E 75 73 75 61 6C 20 20 65 72 ral unusual er
000080: 72 6F 72 73 20 20 77 68 65 6E 20 20 79 6F 75 20 rors when you
000090: 20 63 6F 6D 70 69 6C 65 20 20 79 6F 75 72 0D 0A compile your..
0000A0: 70 72 6F 67 72 61 6D 2E 0D 0A 0D 0A 0D 0A 56 44 program.......VD
0000B0: 45 20 52 45 56 49 53 49 54 45 44 0D 0A 3D 3D 3D E REVISITED..===
0000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A 0D 0A 49 20 ==========....I
0000D0: 68 61 76 65 20 6E 6F 77 20 64 69 73 63 6F 76 65 have now discove
0000E0: 72 65 64 20 61 20 6E 65 77 20 6D 65 74 68 6F 64 red a new method
0000F0: 20 6F 66 20 69 6E 63 6C 75 64 69 6E 67 20 61 64 of including ad
000100: 64 69 74 69 6F 6E 61 6C 20 70 72 69 6E 74 65 72 ditional printer
000110: 20 63 6F 6E 74 72 6F 6C 0D 0A 63 6F 64 65 73 20 control..codes
000120: 69 6E 74 6F 20 64 6F 63 75 6D 65 6E 74 73 2C 20 into documents,
000130: 61 6E 64 20 69 6E 63 6C 75 64 69 6E 67 20 73 63 and including sc
000140: 72 65 65 6E 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 reen control cod
000150: 65 73 20 69 6E 20 43 6F 62 6F 6C 20 70 72 6F 67 es in Cobol prog
000160: 72 61 6D 73 0D 0A 77 72 69 74 74 65 6E 20 75 73 rams..written us
000170: 69 6E 67 20 56 44 45 20 6F 72 20 56 44 45 32 36 ing VDE or VDE26
000180: 36 2E 0D 0A 0D 0A 49 66 20 79 6F 75 20 70 72 65 6.....If you pre
000190: 73 73 20 43 6F 6E 74 72 6F 6C 20 26 20 50 2C 20 ss Control & P,
0001A0: 61 6E 64 20 20 74 68 65 6E 20 20 70 72 65 73 73 and then press
0001B0: 20 20 74 68 65 20 45 53 43 20 6B 65 79 20 61 20 the ESC key a
0001C0: 6C 65 66 74 20 68 61 6E 64 20 73 71 75 61 72 65 left hand square
0001D0: 0D 0A 62 72 61 63 6B 65 74 20 77 69 6C 6C 20 61 ..bracket will a
0001E0: 70 70 65 61 72 20 6F 6E 20 74 68 65 20 73 63 72 ppear on the scr
0001F0: 65 65 6E 20 69 6E 20 69 6E 76 65 72 73 65 20 76 een in inverse v
Size : 512 (Real : 512)
000000: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E N
000020: 4F 54 45 2D 31 2E 44 4F 43 0D 0A 0D 0A 20 20 20 OTE-1.DOC....
000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000040: 20 20 20 20 53 43 52 45 45 4E 20 43 4C 45 41 52 SCREEN CLEAR
000050: 49 4E 47 20 43 4F 44 45 53 0D 0A 0D 0A 20 20 20 ING CODES....
000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000070: 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 2C 20 44 Clive Bellaby, D
000080: 65 63 65 6D 62 65 72 20 31 39 39 31 0D 0A 0D 0A ecember 1991....
000090: 0D 0A 54 6F 20 43 4C 45 41 52 20 54 48 45 20 56 ..To CLEAR THE V
0000A0: 44 55 20 53 43 52 45 45 4E 0D 0A 3D 3D 3D 3D 3D DU SCREEN..=====
0000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D ================
0000C0: 3D 3D 0D 0A 0D 0A 43 50 2F 4D 20 32 2E 32 20 26 ==....CP/M 2.2 &
0000D0: 20 42 61 73 69 63 20 75 73 65 20 20 43 48 52 24 Basic use CHR$
0000E0: 28 31 32 29 20 20 20 20 20 20 20 20 20 20 20 20 (12)
0000F0: 20 20 20 20 20 20 20 20 27 43 6F 6E 74 72 6F 6C 'Control
000100: 20 26 20 4C 0D 0A 20 20 20 20 20 20 20 20 20 20 & L..
000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
000130: 20 20 20 20 20 20 20 20 0D 0A 43 50 2F 4D 20 33 ..CP/M 3
000140: 2E 31 20 20 20 20 20 20 20 20 20 75 73 65 73 20 .1 uses
000150: 43 48 52 24 28 32 37 29 3B 22 45 22 3B 63 68 72 CHR$(27);"E";chr
000160: 24 28 32 37 29 3B 22 48 22 20 20 20 27 45 53 43 $(27);"H" 'ESC
000170: 20 45 20 45 53 43 20 48 0D 0A 0D 0A 54 68 65 73 E ESC H....Thes
000180: 65 20 61 72 65 20 6E 6F 74 20 69 6E 74 65 72 63 e are not interc
000190: 68 61 6E 67 65 61 62 6C 65 2C 20 77 68 69 63 68 hangeable, which
0001A0: 20 69 73 20 61 20 70 69 74 79 20 62 65 63 61 75 is a pity becau
0001B0: 73 65 20 75 73 69 6E 67 20 74 77 6F 20 64 69 66 se using two dif
0001C0: 66 65 72 65 6E 74 0D 0A 73 65 74 73 20 6F 66 20 ferent..sets of
0001D0: 63 6F 64 65 73 20 69 73 20 61 20 70 61 69 6E 20 codes is a pain
0001E0: 69 6E 20 74 68 65 20 6E 65 63 6B 2E 0D 0A 0D 0A in the neck.....
0001F0: 59 6F 75 20 63 61 6E 20 63 6F 6D 62 69 6E 65 20 You can combine
Size : 512 (Real : 512)
000000: 69 64 65 6F 2C 20 74 68 69 73 20 69 73 20 74 68 ideo, this is th
000010: 65 20 73 79 6D 62 6F 6C 20 66 6F 72 0D 0A 61 73 e symbol for..as
000020: 63 69 69 20 63 6F 64 65 20 32 37 20 77 68 69 63 cii code 27 whic
000030: 68 20 61 73 20 77 65 20 61 6C 6C 20 20 6B 6E 6F h as we all kno
000040: 77 20 20 69 73 20 20 45 53 43 2C 20 77 68 65 6E w is ESC, when
000050: 20 74 68 65 20 64 6F 63 75 6D 65 6E 74 20 69 73 the document is
000060: 20 70 72 69 6E 74 65 64 0D 0A 74 68 65 20 45 53 printed..the ES
000070: 43 20 63 6F 64 65 20 69 73 20 61 63 74 69 76 61 C code is activa
000080: 74 65 64 20 62 79 20 74 68 65 20 20 70 72 69 6E ted by the prin
000090: 74 65 72 20 61 6E 64 20 74 68 65 20 66 6F 6C 6C ter and the foll
0000A0: 6F 77 69 6E 67 20 63 68 61 72 61 63 74 65 72 73 owing characters
0000B0: 20 61 63 74 0D 0A 61 73 20 70 72 69 6E 74 65 72 act..as printer
0000C0: 20 63 6F 6E 74 72 6F 6C 20 63 6F 64 65 73 2E 0D control codes..
0000D0: 0A 0D 0A 53 6F 20 61 6C 6C 20 79 6F 75 20 6E 65 ...So all you ne
0000E0: 65 64 20 74 6F 20 64 6F 20 20 69 73 20 20 64 69 ed to do is di
0000F0: 67 20 20 6F 75 74 20 20 79 6F 75 72 20 20 70 72 g out your pr
000100: 69 6E 74 65 72 20 6D 61 6E 75 61 6C 2C 20 61 6E inter manual, an
000110: 64 20 74 6F 20 73 65 65 20 74 68 69 73 0D 0A 77 d to see this..w
000120: 6F 72 6B 69 6E 67 20 6C 6F 6F 6B 20 20 75 70 20 orking look up
000130: 20 74 68 65 20 20 63 6F 6E 74 72 6F 6C 20 20 63 the control c
000140: 6F 64 65 20 20 66 6F 72 20 20 70 61 67 65 20 20 ode for page
000150: 6C 65 6E 67 74 68 2C 20 20 77 68 69 63 68 20 20 length, which
000160: 6F 6E 20 20 45 70 73 6F 6E 0D 0A 63 6F 6D 70 61 on Epson..compa
000170: 74 69 62 6C 65 20 70 72 69 6E 74 65 72 73 20 69 tible printers i
000180: 73 20 45 53 43 20 43 20 6E 2C 20 77 68 65 72 65 s ESC C n, where
000190: 20 20 6E 20 20 69 73 20 20 74 68 65 20 6E 75 6D n is the num
0001A0: 62 65 72 20 6F 66 20 6C 69 6E 65 73 20 74 68 61 ber of lines tha
0001B0: 74 20 79 6F 75 0D 0A 77 61 6E 74 20 70 65 72 20 t you..want per
0001C0: 70 61 67 65 2E 0D 0A 0D 0A 4C 65 74 73 20 61 73 page.....Lets as
0001D0: 73 75 6D 65 20 74 68 61 74 20 79 6F 75 20 77 6F sume that you wo
0001E0: 75 6C 64 20 6C 69 6B 65 20 34 35 20 20 6C 69 6E uld like 45 lin
0001F0: 65 73 20 20 70 65 72 20 70 61 67 65 2C 20 74 68 es per page, th
Size : 512 (Real : 512)
000000: 74 68 65 20 63 6F 64 65 73 20 74 6F 20 70 72 6F the codes to pro
000010: 76 69 64 65 20 6F 6E 65 20 73 65 74 20 6F 66 20 vide one set of
000020: 63 6F 64 65 73 20 74 68 61 74 20 77 69 6C 6C 20 codes that will
000030: 77 6F 72 6B 20 69 6E 0D 0A 62 6F 74 68 20 43 50 work in..both CP
000040: 2F 4D 20 32 2E 32 20 26 20 43 50 2F 4D 20 33 2E /M 2.2 & CP/M 3.
000050: 31 20 28 70 6C 75 73 29 0D 0A 0D 0A 20 43 48 52 1 (plus).... CHR
000060: 24 28 32 37 29 3B 22 45 22 3B 43 48 52 24 28 32 $(27);"E";CHR$(2
000070: 37 29 3B 22 48 22 3B 43 48 52 24 28 31 32 29 0D 7);"H";CHR$(12).
000080: 0A 0D 0A 54 68 69 73 20 77 6F 72 6B 73 20 62 65 ...This works be
000090: 63 61 75 73 65 20 74 68 65 20 22 45 22 20 26 20 cause the "E" &
0000A0: 22 48 22 20 64 69 73 70 6C 61 79 65 64 20 62 79 "H" displayed by
0000B0: 20 43 50 2F 4D 20 32 2E 32 20 61 72 65 20 6E 6F CP/M 2.2 are no
0000C0: 74 20 73 65 65 6E 20 62 65 63 61 75 73 65 0D 0A t seen because..
0000D0: 74 68 65 20 73 63 72 65 65 6E 20 69 73 20 63 6C the screen is cl
0000E0: 65 61 72 65 64 20 69 6D 6D 65 64 69 61 74 6C 65 eared immediatle
0000F0: 79 20 61 66 74 65 72 20 74 68 65 79 20 61 72 65 y after they are
000100: 20 70 72 69 6E 74 65 64 2E 0D 0A 0D 0A 54 68 65 printed.....The
000110: 20 43 48 52 24 28 31 32 29 20 69 73 20 69 67 6E CHR$(12) is ign
000120: 6F 72 65 64 20 61 73 20 61 6E 20 69 6E 76 61 6C ored as an inval
000130: 69 64 20 63 6F 64 65 20 62 79 20 43 50 2F 4D 20 id code by CP/M
000140: 33 2E 31 20 28 70 6C 75 73 29 0D 0A 0D 0A 1A 20 3.1 (plus).....
000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2D -
000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A --------------..
000180: 61 20 66 61 74 61 6C 20 65 72 72 6F 72 0D 0A 77 a fatal error..w
000190: 69 6C 6C 20 6F 63 63 75 72 20 61 6E 64 20 79 6F ill occur and yo
0001A0: 75 72 20 70 72 6F 67 72 61 6D 20 77 69 6C 6C 20 ur program will
0001B0: 20 63 72 61 73 68 2C 20 20 73 6F 20 20 74 61 6B crash, so tak
0001C0: 65 20 63 61 72 65 2E 20 54 68 65 20 50 44 20 76 e care. The PD v
0001D0: 65 72 73 69 6F 6E 20 6F 66 0D 0A 43 6F 62 6F 6C ersion of..Cobol
0001E0: 20 77 69 6C 6C 20 6F 6E 6C 79 20 61 6C 6C 6F 77 will only allow
0001F0: 20 79 6F 75 20 74 6F 20 6F 70 65 6E 20 61 20 66 you to open a f
Size : 512 (Real : 512)
000000: 65 20 61 73 63 69 69 20 63 6F 64 65 20 66 6F 72 e ascii code for
000010: 20 34 35 0D 0A 69 73 20 22 2D 22 2C 20 73 6F 20 45..is "-", so
000020: 74 6F 20 73 65 74 20 79 6F 75 72 20 70 72 69 6E to set your prin
000030: 74 65 72 20 74 6F 20 34 35 20 6C 69 6E 65 73 20 ter to 45 lines
000040: 70 65 72 20 70 61 67 65 2C 0D 0A 0D 0A 50 72 65 per page,....Pre
000050: 73 73 20 43 6F 6E 74 72 6F 6C 20 26 20 50 20 50 ss Control & P P
000060: 72 65 73 73 20 45 53 43 0D 0A 0D 0A 74 68 69 73 ress ESC....this
000070: 20 67 69 76 65 73 20 79 6F 75 20 74 68 65 20 45 gives you the E
000080: 53 43 20 63 6F 64 65 20 20 6F 6E 20 20 74 68 65 SC code on the
000090: 20 73 63 72 65 65 6E 2C 69 6D 6D 65 64 69 61 74 screen,immediat
0000A0: 65 6C 79 20 61 66 74 65 72 20 74 68 65 20 45 53 ely after the ES
0000B0: 43 20 63 6F 64 65 0D 0A 74 79 70 65 20 43 2D 2C C code..type C-,
0000C0: 20 74 68 65 20 73 63 72 65 65 6E 20 77 69 6C 6C the screen will
0000D0: 20 6C 6F 6F 6B 20 6C 69 6B 65 2C 0D 0A 0D 0A 5B look like,....[
0000E0: 43 2D 0D 0A 0D 0A 57 68 65 6E 20 74 68 69 73 20 C-....When this
0000F0: 63 6F 64 65 20 69 73 20 72 65 61 63 68 65 64 20 code is reached
000100: 74 68 65 20 70 61 67 65 20 20 6C 65 6E 67 74 68 the page length
000110: 20 20 77 69 6C 6C 20 20 62 65 20 73 65 74 20 74 will be set t
000120: 6F 20 34 35 20 6C 69 6E 65 73 2E 20 54 68 69 73 o 45 lines. This
000130: 0D 0A 6D 65 74 68 6F 64 20 63 61 6E 20 62 65 20 ..method can be
000140: 75 73 65 64 20 74 6F 20 72 65 70 6C 61 63 65 20 used to replace
000150: 20 74 68 65 20 20 6D 65 74 68 6F 64 20 20 6F 75 the method ou
000160: 74 6C 69 6E 65 64 20 69 6E 20 70 61 72 74 20 74 tlined in part t
000170: 68 72 65 65 20 6F 66 20 74 68 69 73 0D 0A 73 65 hree of this..se
000180: 72 69 65 73 20 77 68 69 63 68 20 69 6E 76 6F 6C ries which invol
000190: 76 65 64 20 77 72 69 74 69 6E 67 20 20 61 20 20 ved writing a
0001A0: 73 68 6F 72 74 20 20 42 61 73 69 63 20 20 70 72 short Basic pr
0001B0: 6F 67 72 61 6D 6D 65 20 20 74 6F 20 61 6C 6C 6F ogramme to allo
0001C0: 77 20 73 63 72 65 65 6E 0D 0A 63 6F 6E 74 72 6F w screen..contro
0001D0: 6C 20 63 6F 64 65 73 20 74 6F 20 62 65 20 75 73 l codes to be us
0001E0: 65 64 20 69 6E 20 61 20 43 6F 62 6F 6C 20 70 72 ed in a Cobol pr
0001F0: 6F 67 72 61 6D 2E 0D 0A 0D 0A 54 68 69 73 20 6D ogram.....This m
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 65 74 68 6F 64 20 69 73 20 6E 6F 74 20 64 6F 63 ethod is not doc
000010: 75 6D 65 6E 74 65 64 20 69 6E 20 74 68 65 20 56 umented in the V
000020: 44 45 20 64 6F 63 75 6D 65 6E 74 20 66 69 6C 65 DE document file
000030: 20 61 6E 64 20 6D 61 79 20 62 65 20 61 20 27 62 and may be a 'b
000040: 75 67 27 2C 0D 0A 68 6F 77 65 76 65 72 20 61 73 ug',..however as
000050: 20 69 74 27 73 20 73 6F 20 75 73 65 66 75 6C 20 it's so useful
000060: 77 65 20 77 69 6C 6C 20 72 65 67 61 72 64 20 69 we will regard i
000070: 74 20 61 73 20 61 20 66 65 61 74 75 72 65 2E 0D t as a feature..
000080: 0A 0D 0A 43 6C 69 76 65 20 42 65 6C 6C 61 62 79 ...Clive Bellaby
000090: 2C 20 31 32 20 54 72 61 66 61 6C 67 61 72 20 54 , 12 Trafalgar T
0000A0: 65 72 72 61 63 65 2C 20 4C 6F 6E 67 20 45 61 74 errace, Long Eat
0000B0: 6F 6E 2C 20 4E 6F 74 74 69 6E 67 68 61 6D 2C 20 on, Nottingham,
0000C0: 4E 47 31 30 20 31 47 50 0D 0A 0D 0A 0D 0A 2A 2A NG10 1GP......**
0000D0: 20 45 4E 44 20 4F 46 20 53 45 52 49 45 53 2E 50 END OF SERIES.P
0000E0: 54 35 20 2A 2A 0D 0A 1A 2C 20 54 72 61 66 61 6C T5 **..., Trafal
0000F0: 67 61 72 20 54 65 72 72 61 63 65 2C 0D 0A 4C 6F gar Terrace,..Lo
000100: 6E 20 74 68 69 73 20 65 78 61 6D 70 6C 65 20 74 n this example t
000110: 68 65 20 52 45 43 4F 52 44 20 4B 45 59 20 69 6E he RECORD KEY in
000120: 20 52 45 43 4F 52 44 2D 4E 55 4D 42 45 52 0D 0A RECORD-NUMBER..
000130: 0D 0A 57 4F 52 4B 49 4E 47 2D 53 54 4F 52 41 47 ..WORKING-STORAG
000140: 45 20 53 45 43 54 49 4F 4E 2E 0D 0A 0D 0A 2A 20 E SECTION.....*
000150: 52 61 6E 64 6F 6D 20 41 63 63 65 73 73 20 46 69 Random Access Fi
000160: 6C 65 20 2D 20 52 65 63 6F 72 64 20 4B 65 79 20 le - Record Key
000170: 74 68 65 20 72 65 63 6F 72 64 20 6B 65 79 20 6D the record key m
000180: 75 73 74 20 62 65 20 61 20 6E 75 6D 65 72 69 63 ust be a numeric
000190: 0D 0A 0D 0A 30 31 20 52 45 43 4F 52 44 2D 4E 55 ....01 RECORD-NU
0001A0: 4D 42 45 52 20 50 49 43 20 39 39 2E 0D 0A 0D 0A MBER PIC 99.....
0001B0: 0D 0A 46 49 4C 45 20 48 41 4E 44 4C 49 4E 47 0D ..FILE HANDLING.
0001C0: 0A 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 0A .=============..
0001D0: 0D 0A 41 66 74 65 72 20 79 6F 75 20 68 61 76 65 ..After you have
0001E0: 20 64 65 63 6C 61 72 65 64 20 79 6F 75 72 20 66 declared your f
0001F0: 69 6C 65 20 74 79 70 65 28 73 29 20 79 6F 75 20 ile type(s) you
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
   
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan