FORMATTER2

00000000: 4E 0E 5C 0F E7 10 00 0A  16 00 53 41 56 45 22 30  |N.\.......SAVE"0|
00000010: 3A 46 4F 52 4D 41 54 54  45 52 32 22 00 14 04 00  |:FORMATTER2"....|
00000020: 00 1E 14 7F 01 81 00 20  43 4C 45 41 52 20 53 43  |....... CLEAR SC|
00000030: 52 45 45 4E 00 28 26 7F  02 03 1E 46 4F 52 4D 41  |REEN.(&....FORMA|
00000040: 54 54 45 44 20 4F 55 54  50 55 54 20 4F 46 20 4C  |TTED OUTPUT OF L|
00000050: 49 53 54 20 46 49 4C 45  53 15 00 32 06 5F 60 61  |IST FILES..2._`a|
00000060: 00 3C 04 00 00 46 1B 8C  8F 03 00 02 00 14 93 8F  |.<...F..........|
00000070: 04 00 02 00 14 93 94 C5  00 20 46 49 4C 45 53 00  |......... FILES.|
00000080: 50 0C 8C 8F 05 00 02 00  84 93 C5 00 5A 0C 8C 8F  |P...........Z...|
00000090: 06 00 02 00 01 93 C5 00  64 0C 8C 8F 07 00 02 00  |........d.......|
000000A0: 84 93 C5 00 6E 0C 8C 8F  08 00 02 00 84 93 C5 00  |....n...........|
000000B0: 78 0C 8C 8F 09 00 02 00  C8 93 C5 00 82 0C 8C 8F  |x...............|
000000C0: 0A 00 02 00 01 93 C5 00  8C 0C 8C 8F 0B 00 02 00  |................|
000000D0: 01 93 C5 00 96 0C 8C 8F  0C 00 02 00 01 93 C5 00  |................|
000000E0: A0 29 0C 08 02 00 01 1F  02 00 84 19 03 00 3C 00  |.)............<.|
000000F0: 20 46 49 4C 4C 20 53 54  52 49 4E 47 20 57 49 54  | FILL STRING WIT|
00000100: 48 20 53 50 41 43 45 53  00 AA 04 00 00 B4 24 7F  |H SPACES......$.|
00000110: 0D 03 11 4C 49 4E 45 53  2F 50 41 47 45 20 3A 20  |...LINES/PAGE : |
00000120: 36 34 9D 9D 0F 07 0E 10  02 00 01 0D 02 27 0F 13  |64...........'..|
00000130: 00 BE 24 7F 0D 03 11 4C  49 4E 45 20 4C 45 4E 47  |..$....LINE LENG|
00000140: 54 48 3A 20 38 30 9D 9D  0F 07 0F 10 02 00 16 0D  |TH: 80..........|
00000150: 02 00 84 13 00 C8 25 7F  0D 03 0F 4C 45 46 54 20  |......%....LEFT |
00000160: 4D 41 52 47 49 4E 3A 20  31 9D 0F 07 10 10 02 00  |MARGIN: 1.......|
00000170: 00 0D 04 0F 02 00 01 29  13 00 D2 28 7F 0D 03 0F  |.......)...(....|
00000180: 49 4E 44 45 4E 54 41 54  49 4F 4E 3A 20 32 9D 0F  |INDENTATION: 2..|
00000190: 07 11 10 02 00 00 0D 04  0F 04 10 29 02 00 01 29  |...........)...)|
000001A0: 13 00 DC 20 7F 12 03 11  4C 49 53 54 46 49 4C 45  |... ....LISTFILE|
000001B0: 20 20 20 3A 20 4C 49 53  54 0F 02 00 04 0D 09 03  |   : LIST.......|
000001C0: 18 00 E6 1F 7F 12 03 10  4F 55 54 50 55 54 20 46  |........OUTPUT F|
000001D0: 49 4C 45 3A 20 4C 50 3A  0F 02 00 03 0D 09 04 18  |ILE: LP:........|
000001E0: 00 F0 1A 7F 13 03 0F 4C  49 4E 45 20 4E 4F 27 53  |.......LINE NO'S|
000001F0: 20 20 3F 20 4E 9D 0F 09  0C 18 00 FA 1A 7F 13 03  |  ? N...........|
00000200: 0F 48 45 41 44 49 4E 47  20 20 20 20 3F 20 59 9D  |.HEADING    ? Y.|
00000210: 0F 09 06 18 01 04 06 5F  60 61 01 0E 04 00 01 18  |......._`a......|
00000220: 0D 68 06 06 03 01 59 2D  69 94 8B 01 22 1F 7F 12  |.h....Y-i..."...|
00000230: 03 0D 48 45 41 44 4C 49  4E 45 20 20 20 3A 20 06  |..HEADLINE   : .|
00000240: 03 28 0F 09 03 51 0D 09  05 18 01 2C 04 6F 01 36  |.(...Q.....,.o.6|
00000250: 04 00 01 40 10 07 14 02  00 03 3A 07 15 02 00 04  |...@......:.....|
00000260: 3A 42 01 4A 11 07 16 02  00 05 06 0C 03 01 59 2D  |:B.J..........Y-|
00000270: 47 24 3A 01 54 1F 07 17  44 3A 00 20 55 53 45 20  |G$:.T...D:. USE |
00000280: 55 50 50 45 52 20 43 41  53 45 20 4C 45 54 54 45  |UPPER CASE LETTE|
00000290: 52 53 01 5E 04 00 01 68  1C DB 04 14 DC 06 03 DD  |RS.^...h........|
000002A0: DE 00 20 4F 50 45 4E 20  49 4E 50 55 54 20 46 49  |.. OPEN INPUT FI|
000002B0: 4C 45 01 72 06 7F 18 81  01 7C 04 00 01 86 1B A1  |LE.r.....|......|
000002C0: 06 04 A3 21 8C 00 20 4F  50 45 4E 20 4F 55 54 50  |...!.. OPEN OUTP|
000002D0: 55 54 20 46 49 4C 45 01  90 1D A4 E2 8C 03 03 4C  |UT FILE........L|
000002E0: 50 3A A6 A7 74 8C 00 20  4C 49 4E 45 20 50 52 49  |P:..t.. LINE PRI|
000002F0: 4E 54 45 52 01 9A 13 DB  04 15 DC 03 00 DD 02 00  |NTER............|
00000300: 04 E2 02 00 00 E3 DF 01  A4 23 09 0B 02 00 0C 4B  |.........#.....K|
00000310: 3C 07 19 02 00 20 3A 42  00 20 41 53 43 49 49 20  |<.... :B. ASCII |
00000320: 43 4F 4E 56 45 52 53 49  4F 4E 01 AE 1C A4 00 00  |CONVERSION......|
00000330: 03 03 44 53 3A A6 A7 00  00 00 20 44 41 54 41 20  |..DS:..... DATA |
00000340: 53 43 52 45 45 4E 01 B8  0F DB 04 15 DC 03 00 DD  |SCREEN..........|
00000350: 02 00 03 E2 DF 01 C2 11  09 0B 02 00 93 4B 3C 07  |.............K<.|
00000360: 19 02 00 00 3A 42 01 CC  11 A8 E2 8C 00 20 44 49  |....:B....... DI|
00000370: 53 4B 20 46 49 4C 45 01  D6 0B DB 04 15 DC 06 04  |SK FILE.........|
00000380: DD DF 01 E0 06 7F 18 81  01 EA 11 09 0B 02 00 0C  |................|
00000390: 4B 3C 07 19 02 00 20 3A  42 01 F4 04 A9 01 FE 04  |K<.... :B.......|
000003A0: 00 02 08 1E 07 1A 02 00  00 3A 00 20 20 41 43 54  |.........:.  ACT|
000003B0: 55 41 4C 20 49 4E 44 45  4E 54 41 54 49 4F 4E 02  |UAL INDENTATION.|
000003C0: 12 24 07 1B 02 00 00 3A  00 20 49 4E 44 45 4E 54  |.$.....:. INDENT|
000003D0: 41 54 49 4F 4E 20 46 4F  52 20 4E 45 58 54 20 4C  |ATION FOR NEXT L|
000003E0: 49 4E 45 02 1C 04 00 02  26 15 07 1C 02 00 01 3A  |INE.....&......:|
000003F0: 00 20 46 49 52 53 54 20  50 41 47 45 02 30 16 7F  |. FIRST PAGE.0..|
00000400: 1D 81 00 20 53 4B 49 50  20 54 48 49 53 20 50 41  |... SKIP THIS PA|
00000410: 47 45 02 3A 04 00 02 44  1A B5 04 14 C8 CB CC 09  |GE.:...D........|
00000420: 09 BA BB 00 20 46 49 52  53 54 20 4C 49 4E 45 3A  |.... FIRST LINE:|
00000430: 02 4E 0B 97 04 14 5D 37  98 71 91 02 58 04 00 02  |.N....]7.q..X...|
00000440: 62 23 09 09 06 09 02 00  0D 4B 28 02 00 0A 4B 28  |b#.......K(...K(|
00000450: 3C 00 20 41 44 44 20 54  45 52 4D 49 4E 41 54 4F  |<. ADD TERMINATO|
00000460: 52 53 02 6C 1B 07 1E 02  00 05 3A 00 20 53 4B 49  |RS.l......:. SKI|
00000470: 50 20 4C 49 4E 45 20 4E  55 4D 42 45 52 02 76 04  |P LINE NUMBER.v.|
00000480: 00 02 80 1A 95 00 20 49  53 4F 4C 41 54 45 20 46  |...... ISOLATE F|
00000490: 49 52 53 54 20 53 59 4D  42 4F 4C 02 8A 12 07 1E  |IRST SYMBOL.....|
000004A0: 02 00 01 3D 09 0A 0C 09  07 1E 16 3C 42 02 94 28  |...=.......<B..(|
000004B0: DA 03 01 41 06 0A 2F 06  0A 03 01 5D 2F 38 06 0A  |...A../....]/8..|
000004C0: 03 0C 30 31 32 33 34 35  36 37 38 39 27 5F 36 39  |..0123456789'_69|
000004D0: 47 37 96 CA 8D 02 9E 04  00 02 A8 2B A1 0C 09 02  |G7.........+....|
000004E0: 00 06 1F 04 1E 02 00 01  29 13 A3 4D 8E 00 20 50  |........)..M.. P|
000004F0: 41 52 54 20 4F 46 20 41  20 53 54 52 55 43 54 55  |ART OF A STRUCTU|
00000500: 52 45 20 3F 02 B2 0E A4  22 90 03 02 49 46 A6 A7  |RE ?...."...IF..|
00000510: 7D 8E 02 BC 22 7F 1F 03  04 54 48 45 4E 15 00 20  |}..."....THEN.. |
00000520: 53 48 4F 52 54 20 4F 52  20 4C 4F 4E 47 20 46 4F  |SHORT OR LONG FO|
00000530: 52 4D 20 3F 02 C6 17 A4  22 90 03 03 46 4F 52 A6  |RM ?...."...FOR.|
00000540: 03 05 57 48 49 4C 45 A6  A7 B4 8E 02 D0 20 7F 1F  |..WHILE...... ..|
00000550: 03 02 44 4F 15 00 20 53  48 4F 52 54 20 4F 52 20  |..DO.. SHORT OR |
00000560: 4C 4F 4E 47 20 46 4F 52  4D 20 3F 02 DA 27 A4 22  |LONG FORM ?..'."|
00000570: 90 03 04 43 41 53 45 A6  03 04 50 52 4F 43 A6 03  |...CASE...PROC..|
00000580: 04 46 55 4E 43 A6 03 06  52 45 50 45 41 54 A6 A7  |.FUNC...REPEAT..|
00000590: F7 8E 02 E4 1C 07 1B 02  00 01 3D 00 20 49 4E 44  |..........=. IND|
000005A0: 45 4E 54 20 4E 45 58 54  20 42 4C 4F 43 4B 02 EE  |ENT NEXT BLOCK..|
000005B0: 2A A4 22 90 03 04 45 4C  49 46 A6 03 04 45 4C 53  |*."...ELIF...ELS|
000005C0: 45 A6 03 09 4F 54 48 45  52 57 49 53 45 A6 03 04  |E...OTHERWISE...|
000005D0: 57 48 45 4E A6 A7 46 8F  02 F8 25 07 1A 04 1A 02  |WHEN..F...%.....|
000005E0: 00 01 34 47 40 00 20 4F  55 54 44 45 4E 54 20 54  |..4G@. OUTDENT T|
000005F0: 48 49 53 20 4C 49 4E 45  20 4F 4E 4C 59 03 02 2D  |HIS LINE ONLY..-|
00000600: A4 22 90 03 07 45 4E 44  46 55 4E 43 A6 03 08 45  |."...ENDFUNC...E|
00000610: 4E 44 57 48 49 4C 45 A6  03 05 55 4E 54 49 4C A6  |NDWHILE...UNTIL.|
00000620: 03 04 4E 45 58 54 A6 A7  8F 8F 03 0C 1C 07 1A 04  |..NEXT..........|
00000630: 1A 02 00 01 34 47 40 07  1B 04 1A 3A 42 00 20 4F  |....4G@....:B. O|
00000640: 55 54 44 45 4E 54 03 16  2E A4 22 90 03 07 45 4E  |UTDENT...."...EN|
00000650: 44 50 52 4F 43 A6 03 07  45 4E 44 43 41 53 45 A6  |DPROC...ENDCASE.|
00000660: 03 05 45 4E 44 49 46 A6  03 06 45 4E 44 46 4F 52  |..ENDIF...ENDFOR|
00000670: A6 A7 D9 8F 03 20 1C 07  1A 04 1A 02 00 01 34 47  |..... ........4G|
00000680: 40 07 1B 04 1A 3A 42 00  20 4F 55 54 44 45 4E 54  |@....:B. OUTDENT|
00000690: 03 2A 19 A8 22 90 00 20  4C 41 42 45 4C 20 53 54  |.*..".. LABEL ST|
000006A0: 41 54 45 4D 45 4E 54 20  3F 03 34 30 68 0C 09 04  |ATEMENT ?.40h...|
000006B0: 1E 1F 04 1E 02 00 01 27  13 03 01 3A 02 00 0D 4B  |.......'...:...K|
000006C0: 28 2D 6A 07 1A 02 00 00  3A 00 20 4E 4F 20 49 4E  |(-j.....:. NO IN|
000006D0: 44 45 4E 54 41 54 49 4F  4E 03 3E 04 A9 03 48 04  |DENTATION.>...H.|
000006E0: 00 03 52 19 09 07 0C 08  02 00 01 1F 04 10 13 0C  |..R.............|
000006F0: 09 02 00 01 1F 04 16 13  28 3C 03 5C 14 07 1E 02  |........(<.\....|
00000700: 00 06 3A 07 20 09 09 51  02 00 07 29 3A 42 03 66  |..:. ..Q...):B.f|
00000710: 14 07 21 04 0F 04 16 29  04 1A 04 11 24 29 04 10  |..!....)....$)..|
00000720: 29 3A 03 70 04 00 03 7A  04 95 03 84 04 00 03 8E  |):.p...z........|
00000730: 0D 68 04 22 04 0E 2C 6A  7F 1D 81 03 98 09 07 22  |.h."..,j......."|
00000740: 02 00 01 3D 03 A2 0F 68  04 20 04 21 2A 6A 07 21  |...=...h. .!*j.!|
00000750: 04 20 3A 03 AC 04 00 03  B6 1B 5F 04 15 C8 CB 06  |. :......._.....|
00000760: 07 65 66 0C 08 02 00 01  1F 04 1A 04 11 24 13 65  |.ef..........$.e|
00000770: 66 61 03 C0 09 68 04 17  69 D9 90 03 CA 15 7F 23  |fa...h..i......#|
00000780: 0C 09 04 1E 1F 04 1E 04  21 27 02 00 01 29 19 18  |........!'...)..|
00000790: 03 D4 06 6E F9 90 03 DE  1A 5F 04 15 C8 CB 0C 09  |...n....._......|
000007A0: 04 1E 1F 04 1E 04 21 27  02 00 01 29 13 65 60 61  |......!'...).e`a|
000007B0: 03 E8 04 6F 03 F2 04 00  03 FC 0E 07 1E 04 21 3D  |...o..........!=|
000007C0: 07 20 04 21 40 42 04 06  12 09 07 0C 08 02 00 01  |. .!@B..........|
000007D0: 1F 04 10 04 16 27 13 3C  04 10 04 00 04 1A 0D DA  |.....'.<........|
000007E0: 04 20 02 00 00 2C 96 6F  90 04 24 04 00 04 2E 23  |. ...,.o..$....#|
000007F0: 07 1A 04 1B 3A 00 20 49  4E 44 45 4E 54 41 54 49  |....:. INDENTATI|
00000800: 4F 4E 20 46 4F 52 20 4E  45 58 54 20 4C 49 4E 45  |ON FOR NEXT LINE|
00000810: 04 38 18 B5 04 14 C8 CB  CC 09 09 BA BB 00 20 4E  |.8............ N|
00000820: 45 58 54 20 4C 49 4E 45  04 42 06 9B 79 8D 04 4C  |EXT LINE.B..y..L|
00000830: 04 00 04 56 06 7F 24 81  04 60 04 00 04 6A 0B 70  |...V..$..`...j.p|
00000840: 1F AB 93 01 74 25 7B 04  74 04 00 04 7E 1D 07 26  |....t%{.t...~..&|
00000850: 44 3A 00 20 57 4F 52 44  20 4E 4F 54 20 46 4F 55  |D:. WORD NOT FOU|
00000860: 4E 44 20 2D 20 59 45 54  04 88 04 95 04 92 04 00  |ND - YET........|
00000870: 04 9C 24 07 27 04 26 3A  00 20 57 45 20 48 41 56  |..$.'.&:. WE HAV|
00000880: 45 20 54 4F 20 45 58 49  54 20 41 54 20 54 48 45  |E TO EXIT AT THE|
00000890: 20 45 4E 44 04 A6 22 97  0C 09 07 1E 16 03 01 20  | END.."........ |
000008A0: 2D 99 07 1E 02 00 01 3D  9A 00 20 53 4B 49 50 20  |-......=.. SKIP |
000008B0: 53 50 41 43 45 53 04 B0  04 00 04 BA 23 68 0C 09  |SPACES......#h..|
000008C0: 07 1E 16 03 01 22 2D 69  7E 92 00 20 53 54 52 49  |....."-i~.. STRI|
000008D0: 4E 47 20 43 4F 4E 53 54  41 4E 54 20 3F 04 C4 04  |NG CONSTANT ?...|
000008E0: 00 04 CE 11 95 00 20 53  4B 49 50 20 53 54 52 49  |...... SKIP STRI|
000008F0: 4E 47 04 D8 09 07 1E 02  00 01 3D 04 E2 1D 97 0C  |NG........=.....|
00000900: 09 04 1E 1F 04 1E 02 00  01 27 13 03 02 22 22 2D  |.........'...""-|
00000910: 99 07 1E 02 00 02 3D 9A  04 EC 10 DA 0C 09 07 1E  |......=.........|
00000920: 16 03 01 22 2D 96 2A 92  04 F6 09 07 1E 02 00 01  |..."-.*.........|
00000930: 3D 05 00 04 00 05 0A 24  6D 96 93 04 28 0C 09 07  |=......$m...(...|
00000940: 1E 16 03 01 2E 2D 39 69  EA 92 00 20 52 45 41 4C  |.....-9i... REAL|
00000950: 20 4E 55 4D 42 45 52 20  3F 05 14 04 00 05 1E 0E  | NUMBER ?.......|
00000960: 97 04 28 99 07 1E 02 00  01 3D 9A 05 28 10 07 1E  |..(......=..(...|
00000970: 0C 09 07 1E 16 03 01 2E  2D 47 3D 05 32 0E 97 04  |........-G=.2...|
00000980: 28 99 07 1E 02 00 01 3D  9A 05 3C 14 68 0C 09 07  |(......=..<.h...|
00000990: 1E 16 03 01 45 2D 6A 07  1E 02 00 04 3D 05 46 04  |....E-j.....=.F.|
000009A0: 00 05 50 19 6D 96 93 04  29 69 69 93 00 20 49 44  |..P.m...)ii.. ID|
000009B0: 45 4E 54 49 46 49 45 52  20 3F 05 5A 04 00 05 64  |ENTIFIER ?.Z...d|
000009C0: 0A 68 04 26 37 69 61 93  05 6E 1E 07 2A 04 1E 3A  |.h.&7ia..n..*..:|
000009D0: 00 20 52 45 4D 45 4D 42  45 52 20 53 54 41 52 54  |. REMEMBER START|
000009E0: 20 49 4E 44 45 58 05 78  1C 97 04 29 04 28 39 0C  | INDEX.x...).(9.|
000009F0: 09 07 1E 16 03 02 27 5F  36 39 99 07 1E 02 00 01  |......'_69......|
00000A00: 3D 9A 05 82 16 07 26 06  25 0C 09 04 2A 1F 04 1E  |=.....&.%...*...|
00000A10: 02 00 01 29 13 2D 47 3A  05 8C 04 6F 05 96 04 00  |...).-G:...o....|
00000A20: 05 A0 17 6E 96 93 00 20  45 56 45 52 59 54 48 49  |...n... EVERYTHI|
00000A30: 4E 47 20 45 4C 53 45 05  AA 0D 68 04 26 6A 07 1B  |NG ELSE...h.&j..|
00000A40: 02 00 01 3D 05 B4 09 07  1E 02 00 01 3D 05 BE 04  |...=........=...|
00000A50: 6F 05 C8 04 00 05 D2 09  DA 04 27 96 B1 91 05 DC  |o.........'.....|
00000A60: 04 00 05 E6 05 7D 1F 05  F0 04 00 05 FA 09 E9 29  |.....}.........)|
00000A70: D5 93 00 7B 06 04 18 EF  03 01 41 0C 09 07 1E 16  |...{......A.....|
00000A80: 2F 0C 09 07 1E 16 03 01  5D 2F 38 F2 06 0E 05 EC  |/.......]/8.....|
00000A90: 29 06 18 04 00 06 22 09  E9 28 FF 93 00 7B 06 2C  |)....."..(...{.,|
00000AA0: 18 EF 03 01 30 0C 09 07  1E 16 2F 0C 09 07 1E 16  |....0...../.....|
00000AB0: 03 01 39 2F 38 F2 06 36  05 EC 28 06 40 04 00 06  |..9/8..6..(.@...|
00000AC0: 4A 11 70 0D 96 94 04 74  2B 75 2C 72 2D 72 2E 7C  |J.p....t+u,r-r.||
00000AD0: 06 54 04 95 06 5E 0B B5  06 2B B7 07 2C B8 BB 06  |.T...^...+..,...|
00000AE0: 68 12 07 2F 04 2D 04 2C  2E 04 2C 04 2E 2E 38 47  |h../.-.,..,...8G|
00000AF0: 3A 06 72 0A 68 04 2F 37  69 89 94 06 7C 1D 5F 03  |:.r.h./7i...|._.|
00000B00: 14 56 41 4C 55 45 20 4D  55 53 54 20 42 45 20 49  |.VALUE MUST BE I|
00000B10: 4E 20 54 48 45 65 60 61  06 86 22 5F 03 05 52 41  |N THEe`a.."_..RA|
00000B20: 4E 47 45 65 67 04 2D 64  66 03 02 2E 2E 65 66 04  |NGEeg.-df....ef.|
00000B30: 2E 64 67 03 02 21 21 65  60 61 06 90 06 5F 60 61  |.dg..!!e`a..._`a|
00000B40: 06 9A 04 6F 06 A4 09 DA  04 2F 96 19 94 06 AE 05  |...o...../......|
00000B50: 7D 0D 06 B8 04 00 06 C2  1B 70 1D 44 95 00 7B 00  |}........p.D..{.|
00000B60: 20 50 45 52 46 4F 52 4D  20 46 4F 52 4D 46 45 45  | PERFORM FORMFEE|
00000B70: 44 06 CC 0D 5F 04 15 C8  CB 06 0B 65 66 61 06 D6  |D..._......efa..|
00000B80: 0D 68 06 06 03 01 59 2D  69 28 95 06 E0 24 5F 04  |.h....Y-i(...$_.|
00000B90: 15 C8 CB 0C 08 02 00 01  1F 04 10 13 65 66 03 02  |............ef..|
00000BA0: 3E 3E 65 67 06 05 65 67  03 02 3C 3C 65 66 61 06  |>>eg..eg..<<efa.|
00000BB0: EA 1D 5F 04 15 C8 CB 04  0F 02 00 07 29 63 66 03  |.._.........)cf.|
00000BC0: 04 50 41 47 45 65 67 04  1C 64 60 61 06 F4 0A 5F  |.PAGEeg..d`a..._|
00000BD0: 04 15 C8 CB 60 61 06 FE  09 07 22 02 00 02 3A 07  |....`a...."...:.|
00000BE0: 08 06 6E 37 95 07 12 09  07 22 02 00 00 3A 07 1C  |..n7....."...:..|
00000BF0: 04 6F 07 26 09 07 1C 02  00 01 3D 07 30 05 7D 1D  |.o.&......=.0.}.|
00000C00: 07 3A 04 00 07 44 0D 70  30 76 95 02 72 31 74 32  |.:...D.p0v..r1t2|
00000C10: 7C 07 4E 16 83 33 0F 00  02 00 01 84 04 31 85 88  ||.N..3.......1..|
00000C20: 5F 06 32 65 66 61 89 07  58 06 5F 60 61 07 62 05  |_.2efa..X._`a.b.|
00000C30: 7D 30 07 6C 04 00 07 76  09 70 01 93 95 00 7B 07  |}0.l...v.p....{.|
00000C40: 80 0B 5F 02 00 93 4B 65  66 61 07 8A 05 7D 01 07  |.._...Kefa...}..|
00000C50: 94 04 00 07 9E 0B 70 02  09 96 01 74 05 7C 07 A8  |......p....t.|..|
00000C60: 0D 07 20 09 05 51 02 00  02 27 3A 07 B2 18 83 33  |.. ..Q...':....3|
00000C70: 0F 00 02 00 01 84 04 20  85 88 5F 02 00 A4 4B 65  |....... .._...Ke|
00000C80: 66 61 89 07 BC 06 5F 60  61 07 C6 19 5F 02 00 12  |fa...._`a..._...|
00000C90: 4B 65 66 03 01 20 65 66  06 05 65 66 03 01 20 65  |Kef.. ef..ef.. e|
00000CA0: 60 61 07 D0 18 83 33 0F  00 02 00 01 84 04 20 85  |`a....3....... .|
00000CB0: 88 5F 02 00 A3 4B 65 66  61 89 07 DA 06 5F 60 61  |._...Kefa...._`a|
00000CC0: 07 E4 05 7D 02 07 EE 04  00 07 F8 09 70 24 31 96  |...}........p$1.|
00000CD0: 00 7B 08 02 05 CF D1 08  0C 11 9F 00 4F 46 20 50  |.{..........OF P|
00000CE0: 52 4F 47 52 41 4D 2F 2F  08 16 05 7D 24 08 20 04  |ROGRAM//...}$. .|
00000CF0: 00 08 2A 09 70 18 85 96  00 7B 08 34 07 09 09 80  |..*.p....{.4....|
00000D00: 3C 08 3E 23 68 0C 09 02  00 01 1F 02 00 02 13 03  |<.>#h...........|
00000D10: 02 30 30 33 69 81 96 00  20 49 2F 4F 20 45 52 52  |.003i... I/O ERR|
00000D20: 4F 52 20 3F 08 48 06 5F  60 61 08 52 08 7F 02 09  |OR ?.H._`a.R....|
00000D30: 09 18 08 5C 06 7F 24 81  08 66 04 6F 08 70 05 7D  |...\..$..f.o.p.}|
00000D40: 18 08 7A 04 00 08 84 0D  70 13 C3 96 02 74 2B 77  |..z.....p....t+w|
00000D50: 34 7B 08 8E 04 95 08 98  0B B5 06 2B B7 09 34 BA  |4{.........+..4.|
00000D60: BB 08 A2 19 DA 03 01 2E  06 34 28 03 01 2E 28 03  |.........4(...(.|
00000D70: 05 2E 59 2E 4E 2E 36 96  9B 96 08 AC 05 7D 13 08  |..Y.N.6......}..|
00000D80: B6 04 00 08 C0 0F 70 12  16 97 03 74 2B 72 35 77  |......p....t+r5w|
00000D90: 36 7C 08 CA 04 95 08 D4  09 5F 06 2B 65 66 61 08  |6|......._.+efa.|
00000DA0: DE 17 82 33 0F 00 02 00  01 84 04 35 85 88 5F 03  |...3.......5.._.|
00000DB0: 01 9D 65 66 61 89 08 E8  0B B5 03 00 B7 09 36 BA  |..efa.........6.|
00000DC0: BB 08 F2 0C DA 06 36 03  00 31 96 DB 96 08 FC 05  |......6..1......|
00000DD0: 7D 12 09 06 04 00 09 10  0B 70 23 94 97 01 74 09  |}........p#...t.|
00000DE0: 7B 09 1A 10 82 33 83 97  02 00 01 84 09 09 51 85  |{....3........Q.|
00000DF0: 87 09 24 1A 68 03 01 41  0C 09 07 33 16 2F 0C 09  |..$.h..A...3./..|
00000E00: 07 33 16 03 01 5D 2F 38  69 69 97 09 2E 15 5F 04  |.3...]/8ii...._.|
00000E10: 15 C8 CB 0C 09 07 33 16  49 04 19 27 4B 65 66 61  |......3.I..'Kefa|
00000E20: 09 38 06 6E 7F 97 09 42  10 5F 04 15 C8 CB 0C 09  |.8.n...B._......|
00000E30: 07 33 16 65 66 61 09 4C  04 6F 09 56 07 8A 33 2A  |.3.efa.L.o.V..3*|
00000E40: 97 09 60 0A 5F 04 15 C8  CB 60 61 09 6A 05 7D 23  |..`._....`a.j.}#|
00000E50: 09 74 04 00 14 7F 95 00  00 14 9C 95 00 00 12 E9  |.t..............|
00000E60: AF 00 00 12 D1 AF 00 00  12 49 AF 00 00 12 44 AF  |.........I....D.|
00000E70: 00 00 12 BC AE 00 00 12  34 AE 00 00 12 68 AD 00  |........4....h..|
00000E80: 00 12 63 AD 00 00 12 5E  AD 00 00 12 59 AD 00 00  |..c....^....Y...|
00000E90: 14 08 94 00 00 10 54 AD  00 00 10 4F AD 00 00 10  |......T....O....|
00000EA0: 4A AD 00 00 10 45 AD 00  00 14 CC 96 00 00 14 8E  |J....E..........|
00000EB0: 96 00 00 10 40 AD 00 00  10 3B AD 00 00 10 36 AD  |....@....;....6.|
00000EC0: 00 00 10 31 AD 00 00 14  3A 96 00 00 10 2C AD 00  |...1....:....,..|
00000ED0: 00 10 27 AD 00 00 10 22  AD 00 00 10 1D AD 00 00  |..'...."........|
00000EE0: 14 9F 94 00 00 10 13 AD  00 00 14 85 91 00 00 10  |................|
00000EF0: 0E AD 00 00 10 09 AD 00  00 10 18 AD 00 00 14 1F  |................|
00000F00: 97 00 00 14 12 96 00 00  00 00 00 00 00 10 04 AD  |................|
00000F10: 00 00 10 FF AC 00 00 15  DE 93 00 00 15 B4 93 00  |................|
00000F20: 00 10 FA AC 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000F30: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 14  |................|
00000F40: 4D 95 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |M...............|
00000F50: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000F60: 00 00 03 43 4C 52 07 52  45 56 45 52 53 45 09 49  |...CLR.REVERSE.I|
00000F70: 4E 50 55 54 46 49 4C 45  0A 4F 55 54 50 55 54 46  |NPUTFILE.OUTPUTF|
00000F80: 49 4C 45 08 48 45 41 44  4C 49 4E 45 07 48 45 41  |ILE.HEADLINE.HEA|
00000F90: 44 49 4E 47 06 4C 49 4E  45 4E 4F 06 53 50 41 43  |DING.LINENO.SPAC|
00000FA0: 45 53 04 4C 49 4E 45 02  43 48 08 46 4F 52 4D 46  |ES.LINE.CH.FORMF|
00000FB0: 45 45 44 0B 4C 49 4E 45  27 4E 55 4D 42 45 52 05  |EED.LINE'NUMBER.|
00000FC0: 47 45 54 4E 4F 0B 50 41  47 45 27 4C 45 4E 47 48  |GETNO.PAGE'LENGH|
00000FD0: 54 0B 4C 49 4E 45 27 4C  45 4E 47 48 54 0B 4C 45  |T.LINE'LENGHT.LE|
00000FE0: 46 54 27 4D 41 52 47 49  4E 0B 49 4E 44 45 4E 54  |FT'MARGIN.INDENT|
00000FF0: 41 54 49 4F 4E 05 47 54  53 54 52 05 59 45 53 4E  |ATION.GTSTR.YESN|
00001000: 4F 03 49 4E 50 03 4F 55  54 04 4C 4E 4E 4F 0A 4C  |O.INP.OUT.LNNO.L|
00001010: 4F 57 45 52 27 43 41 53  45 08 49 4F 27 45 52 52  |OWER'CASE.IO'ERR|
00001020: 4F 52 06 4F 46 46 53 45  54 06 49 4E 44 45 4E 54  |OR.OFFSET.INDENT|
00001030: 0B 49 4E 44 45 4E 54 27  4E 45 58 54 0A 50 41 47  |.INDENT'NEXT.PAG|
00001040: 45 27 43 4F 55 4E 54 04  50 41 47 45 01 4A 06 53  |E'COUNT.PAGE.J.S|
00001050: 45 41 52 43 48 06 4C 45  4E 47 48 54 05 57 49 44  |EARCH.LENGHT.WID|
00001060: 54 48 0A 4C 49 4E 45 27  43 4F 55 4E 54 15 43 4F  |TH.LINE'COUNT.CO|
00001070: 4E 56 45 52 54 27 54 4F  27 4C 4F 57 45 52 27 43  |NVERT'TO'LOWER'C|
00001080: 41 53 45 04 48 41 4C 54  04 57 4F 52 44 0A 57 4F  |ASE.HALT.WORD.WO|
00001090: 52 44 27 46 4F 55 4E 44  04 45 58 49 54 05 44 49  |RD'FOUND.EXIT.DI|
000010A0: 47 49 54 06 4C 45 54 54  45 52 02 4A 27 06 50 52  |GIT.LETTER.J'.PR|
000010B0: 4F 4D 50 54 05 56 41 4C  55 45 03 4D 49 4E 03 4D  |OMPT.VALUE.MIN.M|
000010C0: 41 58 02 4F 4B 04 44 52  41 57 06 4E 55 4D 42 45  |AX.OK.DRAW.NUMBE|
000010D0: 52 04 43 48 41 52 01 49  06 41 4E 53 57 45 52 05  |R.CHAR.I.ANSWER.|
000010E0: 4C 45 46 54 27 06 53 54  52 49 4E 47 00 00        |LEFT'.STRING..  |

N.\.......SAVE"0:FORMATTER2".......... 
CLEAR SCREEN.(&...FORMATTED OUTPUT OF L
IST FILES..2._`A.<...F.................E
. FILES.P.........E.Z.........E.D.......
..E.N.........E.X.......H.E...........E.
..........E...........E. )............<.
 FILL STRING WITH SPACES......$...LINES
/PAGE : 64...........'....$...LINE LENG
TH: 80...............H%...LEFT MARGIN: 
1..............)..R(...INDENTATION: 2..
...........)...)... ...LISTFILE   : LIS
T..............OUTPUT FILE: LP:........
......LINE NO'S  ? N...........HEADING
    ? Y........_`A.......H....Y-I..."..
..HEADLINE   : ..(...Q.....,.O.6...@....
..:.....:B.J..........Y-G$:.T...D:. USE 
UPPER CASE LETTERS.^...H.......... OPEN 
INPUT FILE.R....|.........!.. OPEN OUTP
UT FILE........LP:..T.. LINE PRINTER....
.................#.....K<.... :B. ASCII 
CONVERSION........DS:..... DATA SCREEN..
..............B......K<.....:B.L..... DI
SK FILE.V......................K<.... :
B................:.  ACTUAL INDENTATION.
.$.....:. INDENTATION FOR NEXT LINE.....
&......:. FIRST PAGE.0.... SKIP THIS PA
GE.:...D....HKL..... FIRST LINE:.N....]7
.Q..X...B#.......K(...K(<. ADD TERMINATO
RS.L......:. SKIP LINE NUMBER.V....... I
SOLATE FIRST SYMBOL........=.......<B..(
Z..A../....]/8....0123456789'_69G7.J....
...+............)..M.. PART OF A STRUCTU
RE ?...."...IF..}..."...THEN.. SHORT OR
 LONG FORM ?.F.."...FOR...WHILE.....P .
..DO.. SHORT OR LONG FORM ?.Z'."...CASE.
..PROC...FUNC...REPEAT............=. IND
ENT NEXT BLOCK..*."...ELIF...ELSE...OTHE
RWISE...WHEN..F...%.......4G@. OUTDENT T
HIS LINE ONLY..-."...ENDFUNC...ENDWHILE.
..UNTIL...NEXT..............4G@....:B. O
UTDENT...."...ENDPROC...ENDCASE...ENDIF.
..ENDFOR..Y.. ........4G@....:B. OUTDENT
.*..".. LABEL STATEMENT ?.40H..........'
...:...K(-J.....:. NO INDENTATION.>...H.
..R.....................(<.\......:. ..Q
...):B.F..!....)....$)..):.P...Z........
.H."..,J......"...=...H. .!*J.!. :.....
.._..HK..EF..........$.EFA...H..IY..J.#
........!'...)...T.N....._..HK........!'
...).E`A...O..........!=. .!@B..........
.....'.<.......Z. ...,.O..$....#....:. I
NDENTATION FOR NEXT LINE.8....HKL..... N
EXT LINE.B..Y..L...V.$..`...J.P....T%{.
T...~..&D:. WORD NOT FOUND - YET........
..$.'.&:. WE HAVE TO EXIT AT THE END..".
....... -......=.. SKIP SPACES......#H..
....."-I~.. STRING CONSTANT ?.D...N... S
KIP STRING.X......=..............'...""-
......=....Z......."-.*.........=......$
M...(........-9I... REAL NUMBER ?.......
..(......=..(...........-G=.2...(......=
..<.H.......E-J.....=.F...P.M...)II.. ID
ENTIFIER ?.Z...D.H.&7IA..N..*..:. REMEMB
ER START INDEX.X...).(9.......'_69......
=.....&.%...*......).-G:...O..... .N... 
EVERYTHING ELSE...H.&J.....=........=...
O.H...R.Z.'..........}.........)U..{....
..A...../.......]/8.....)....."..(...{.,
....0...../.......9/8..6..(.@...J.P....T
+U,R-R.|.T...^...+..,...H../.-.,..,...8G
:.R.H./7I...|._..VALUE MUST BE IN THEE`A
.."_..RANGEEG.-DF....EF..DG..!!E`A..._`A
...O...Z./......}......B.P.D..{. PERFORM
 FORMFEED.L._..HK..EFA.V.H....Y-I(...$_.
.HK.........EF..>>EG..EG..<<EFA..._..HK.
....)CF..PAGEEG..D`A..._..HK`A...."...:.
..N7....."...:...O.&......=.0.}..:...D.P
0V..R1T2|.N..3.......1.._.2EFA..X._`A.B.
}0.L...V.P....{..._...KEFA...}........P.
...T.|.... ..Q...':....3....... .._...KE
FA...._`A.F._...KEF.. EF..EF.. E`A.P..3.
...... .._...KEFA..Z._`A...}........P$1.
.{...OQ.....OF PROGRAM//...}$. ...*.P...
.{.4....<.>#H............003I... I/O ERR
OR ?.H._`A.R......\.$..F.O.P.}..Z.....
P.C..T+W4{.........+..4.....Z....4(...(.
..Y.N.6......}........P....T+R5W6|.J...T
._.+EFA....3.......5.._...EFA.........6.
....Z.6..1......}........P#...T.{....3..
......Q...$.H..A...3./...3...]/8II...._.
.HK...3.I..'KEFA.8.N..B._..HK...3.EFA.L
.O.V..3*..`._..HK`A.J.}#.T.............
....Q....I....D.........4....H....C....^
....Y.........T....O....J....E....L.....
....@....;....6....1....:....,....'...."
........................................
........................................
........................M...............
...................CLR.REVERSE.INPUTFILE
.OUTPUTFILE.HEADLINE.HEADING.LINENO.SPAC
ES.LINE.CH.FORMFEED.LINE'NUMBER.GETNO.PA
GE'LENGHT.LINE'LENGHT.LEFT'MARGIN.INDENT
ATION.GTSTR.YESNO.INP.OUT.LNNO.LOWER'CAS
E.IO'ERROR.OFFSET.INDENT.INDENT'NEXT.PAG
E'COUNT.PAGE.J.SEARCH.LENGHT.WIDTH.LINE'
COUNT.CONVERT'TO'LOWER'CASE.HALT.WORD.WO
RD'FOUND.EXIT.DIGIT.LETTER.J'.PROMPT.VAL
UE.MIN.MAX.OK.DRAW.NUMBER.CHAR.I.ANSWER.
LEFT'.STRING..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL