FORMATTER

00000000: 4C 0E 5A 0F E5 10 00 0A  15 00 53 41 56 45 22 30  |L.Z.......SAVE"0|
00000010: 3A 46 4F 52 4D 41 54 54  45 52 22 00 14 04 00 00  |:FORMATTER".....|
00000020: 1E 14 7F 01 81 00 20 43  4C 45 41 52 20 53 43 52  |...... CLEAR SCR|
00000030: 45 45 4E 00 28 26 7F 02  03 1E 46 4F 52 4D 41 54  |EEN.(&....FORMAT|
00000040: 54 45 44 20 4F 55 54 50  55 54 20 4F 46 20 4C 49  |TED OUTPUT OF LI|
00000050: 53 54 20 46 49 4C 45 53  15 00 32 06 5F 60 61 00  |ST FILES..2._`a.|
00000060: 3C 04 00 00 46 1B 8C 8F  03 00 02 00 14 93 8F 04  |<...F...........|
00000070: 00 02 00 14 93 94 C5 00  20 46 49 4C 45 53 00 50  |........ FILES.P|
00000080: 0C 8C 8F 05 00 02 00 84  93 C5 00 5A 0C 8C 8F 06  |...........Z....|
00000090: 00 02 00 01 93 C5 00 64  0C 8C 8F 07 00 02 00 84  |.......d........|
000000A0: 93 C5 00 6E 0C 8C 8F 08  00 02 00 84 93 C5 00 78  |...n...........x|
000000B0: 0C 8C 8F 09 00 02 00 C8  93 C5 00 82 0C 8C 8F 0A  |................|
000000C0: 00 02 00 01 93 C5 00 8C  0C 8C 8F 0B 00 02 00 01  |................|
000000D0: 93 C5 00 96 0C 8C 8F 0C  00 02 00 01 93 C5 00 A0  |................|
000000E0: 29 0C 08 02 00 01 1F 02  00 84 19 03 00 3C 00 20  |)............<. |
000000F0: 46 49 4C 4C 20 53 54 52  49 4E 47 20 57 49 54 48  |FILL STRING WITH|
00000100: 20 53 50 41 43 45 53 00  AA 04 00 00 B4 24 7F 0D  | SPACES......$..|
00000110: 03 11 4C 49 4E 45 53 2F  50 41 47 45 20 3A 20 36  |..LINES/PAGE : 6|
00000120: 34 9D 9D 0F 07 0E 10 02  00 01 0D 02 27 0F 13 00  |4...........'...|
00000130: BE 24 7F 0D 03 11 4C 49  4E 45 20 4C 45 4E 47 54  |.$....LINE LENGT|
00000140: 48 3A 20 38 30 9D 9D 0F  07 0F 10 02 00 16 0D 02  |H: 80...........|
00000150: 00 84 13 00 C8 25 7F 0D  03 0F 4C 45 46 54 20 4D  |.....%....LEFT M|
00000160: 41 52 47 49 4E 3A 20 31  9D 0F 07 10 10 02 00 00  |ARGIN: 1........|
00000170: 0D 04 0F 02 00 01 29 13  00 D2 28 7F 0D 03 0F 49  |......)...(....I|
00000180: 4E 44 45 4E 54 41 54 49  4F 4E 3A 20 32 9D 0F 07  |NDENTATION: 2...|
00000190: 11 10 02 00 00 0D 04 0F  04 10 29 02 00 01 29 13  |..........)...).|
000001A0: 00 DC 20 7F 12 03 11 4C  49 53 54 46 49 4C 45 20  |.. ....LISTFILE |
000001B0: 20 20 3A 20 4C 49 53 54  0F 02 00 04 0D 09 03 18  |  : LIST........|
000001C0: 00 E6 1F 7F 12 03 10 4F  55 54 50 55 54 20 46 49  |.......OUTPUT FI|
000001D0: 4C 45 3A 20 4C 50 3A 0F  02 00 03 0D 09 04 18 00  |LE: LP:.........|
000001E0: F0 1A 7F 13 03 0F 4C 49  4E 45 20 4E 4F 27 53 20  |......LINE NO'S |
000001F0: 20 3F 20 4E 9D 0F 09 0C  18 00 FA 1A 7F 13 03 0F  | ? N............|
00000200: 48 45 41 44 49 4E 47 20  20 20 20 3F 20 59 9D 0F  |HEADING    ? Y..|
00000210: 09 06 18 01 04 06 5F 60  61 01 0E 04 00 01 18 0D  |......_`a.......|
00000220: 68 06 06 03 01 59 2D 69  94 8B 01 22 1F 7F 12 03  |h....Y-i..."....|
00000230: 0D 48 45 41 44 4C 49 4E  45 20 20 20 3A 20 06 03  |.HEADLINE   : ..|
00000240: 28 0F 09 03 51 0D 09 05  18 01 2C 04 6F 01 36 04  |(...Q.....,.o.6.|
00000250: 00 01 40 10 07 14 02 00  03 3A 07 15 02 00 04 3A  |..@......:.....:|
00000260: 42 01 4A 11 07 16 02 00  05 06 0C 03 01 59 2D 47  |B.J..........Y-G|
00000270: 24 3A 01 54 1F 07 17 44  3A 00 20 55 53 45 20 55  |$:.T...D:. USE U|
00000280: 50 50 45 52 20 43 41 53  45 20 4C 45 54 54 45 52  |PPER CASE LETTER|
00000290: 53 01 5E 04 00 01 68 1C  DB 04 14 DC 06 03 DD DE  |S.^...h.........|
000002A0: 00 20 4F 50 45 4E 20 49  4E 50 55 54 20 46 49 4C  |. OPEN INPUT FIL|
000002B0: 45 01 72 06 7F 18 81 01  7C 04 00 01 86 1B A1 06  |E.r.....|.......|
000002C0: 04 A3 21 8C 00 20 4F 50  45 4E 20 4F 55 54 50 55  |..!.. OPEN OUTPU|
000002D0: 54 20 46 49 4C 45 01 90  1D A4 E2 8C 03 03 4C 50  |T FILE........LP|
000002E0: 3A A6 A7 74 8C 00 20 4C  49 4E 45 20 50 52 49 4E  |:..t.. LINE PRIN|
000002F0: 54 45 52 01 9A 13 DB 04  15 DC 03 00 DD 02 00 04  |TER.............|
00000300: E2 02 00 00 E3 DF 01 A4  23 09 0B 02 00 0C 4B 3C  |........#.....K<|
00000310: 07 19 02 00 20 3A 42 00  20 41 53 43 49 49 20 43  |.... :B. ASCII C|
00000320: 4F 4E 56 45 52 53 49 4F  4E 01 AE 1B A4 E2 8C 03  |ONVERSION.......|
00000330: 02 44 53 A6 A7 AF 8C 00  20 44 41 54 41 20 53 43  |.DS..... DATA SC|
00000340: 52 45 45 4E 01 B8 0F DB  04 15 DC 03 00 DD 02 00  |REEN............|
00000350: 03 E2 DF 01 C2 11 09 0B  02 00 93 4B 3C 07 19 02  |...........K<...|
00000360: 00 00 3A 42 01 CC 11 A8  E2 8C 00 20 44 49 53 4B  |..:B....... DISK|
00000370: 20 46 49 4C 45 01 D6 0B  DB 04 15 DC 06 04 DD DF  | FILE...........|
00000380: 01 E0 06 7F 18 81 01 EA  11 09 0B 02 00 0C 4B 3C  |..............K<|
00000390: 07 19 02 00 20 3A 42 01  F4 04 A9 01 FE 04 00 02  |.... :B.........|
000003A0: 08 1E 07 1A 02 00 00 3A  00 20 20 41 43 54 55 41  |.......:.  ACTUA|
000003B0: 4C 20 49 4E 44 45 4E 54  41 54 49 4F 4E 02 12 24  |L INDENTATION..$|
000003C0: 07 1B 02 00 00 3A 00 20  49 4E 44 45 4E 54 41 54  |.....:. INDENTAT|
000003D0: 49 4F 4E 20 46 4F 52 20  4E 45 58 54 20 4C 49 4E  |ION FOR NEXT LIN|
000003E0: 45 02 1C 04 00 02 26 15  07 1C 02 00 01 3A 00 20  |E.....&......:. |
000003F0: 46 49 52 53 54 20 50 41  47 45 02 30 16 7F 1D 81  |FIRST PAGE.0....|
00000400: 00 20 53 4B 49 50 20 54  48 49 53 20 50 41 47 45  |. SKIP THIS PAGE|
00000410: 02 3A 04 00 02 44 1A B5  04 14 C8 CB CC 09 09 BA  |.:...D..........|
00000420: BB 00 20 46 49 52 53 54  20 4C 49 4E 45 3A 02 4E  |.. FIRST LINE:.N|
00000430: 0B 97 04 14 5D 37 98 71  91 02 58 04 00 02 62 23  |....]7.q..X...b#|
00000440: 09 09 06 09 02 00 0D 4B  28 02 00 0A 4B 28 3C 00  |.......K(...K(<.|
00000450: 20 41 44 44 20 54 45 52  4D 49 4E 41 54 4F 52 53  | ADD TERMINATORS|
00000460: 02 6C 1B 07 1E 02 00 05  3A 00 20 53 4B 49 50 20  |.l......:. SKIP |
00000470: 4C 49 4E 45 20 4E 55 4D  42 45 52 02 76 04 00 02  |LINE NUMBER.v...|
00000480: 80 1A 95 00 20 49 53 4F  4C 41 54 45 20 46 49 52  |.... ISOLATE FIR|
00000490: 53 54 20 53 59 4D 42 4F  4C 02 8A 12 07 1E 02 00  |ST SYMBOL.......|
000004A0: 01 3D 09 0A 0C 09 07 1E  16 3C 42 02 94 28 DA 03  |.=.......<B..(..|
000004B0: 01 41 06 0A 2F 06 0A 03  01 5D 2F 38 06 0A 03 0C  |.A../....]/8....|
000004C0: 30 31 32 33 34 35 36 37  38 39 27 5F 36 39 47 37  |0123456789'_69G7|
000004D0: 96 CA 8D 02 9E 04 00 02  A8 2B A1 0C 09 02 00 06  |.........+......|
000004E0: 1F 04 1E 02 00 01 29 13  A3 4D 8E 00 20 50 41 52  |......)..M.. PAR|
000004F0: 54 20 4F 46 20 41 20 53  54 52 55 43 54 55 52 45  |T OF A STRUCTURE|
00000500: 20 3F 02 B2 0E A4 22 90  03 02 49 46 A6 A7 7D 8E  | ?...."...IF..}.|
00000510: 02 BC 22 7F 1F 03 04 54  48 45 4E 15 00 20 53 48  |.."....THEN.. SH|
00000520: 4F 52 54 20 4F 52 20 4C  4F 4E 47 20 46 4F 52 4D  |ORT OR LONG FORM|
00000530: 20 3F 02 C6 17 A4 22 90  03 03 46 4F 52 A6 03 05  | ?...."...FOR...|
00000540: 57 48 49 4C 45 A6 A7 B4  8E 02 D0 20 7F 1F 03 02  |WHILE...... ....|
00000550: 44 4F 15 00 20 53 48 4F  52 54 20 4F 52 20 4C 4F  |DO.. SHORT OR LO|
00000560: 4E 47 20 46 4F 52 4D 20  3F 02 DA 27 A4 22 90 03  |NG FORM ?..'."..|
00000570: 04 43 41 53 45 A6 03 04  50 52 4F 43 A6 03 04 46  |.CASE...PROC...F|
00000580: 55 4E 43 A6 03 06 52 45  50 45 41 54 A6 A7 F7 8E  |UNC...REPEAT....|
00000590: 02 E4 1C 07 1B 02 00 01  3D 00 20 49 4E 44 45 4E  |........=. INDEN|
000005A0: 54 20 4E 45 58 54 20 42  4C 4F 43 4B 02 EE 2A A4  |T NEXT BLOCK..*.|
000005B0: 22 90 03 04 45 4C 49 46  A6 03 04 45 4C 53 45 A6  |"...ELIF...ELSE.|
000005C0: 03 09 4F 54 48 45 52 57  49 53 45 A6 03 04 57 48  |..OTHERWISE...WH|
000005D0: 45 4E A6 A7 46 8F 02 F8  25 07 1A 04 1A 02 00 01  |EN..F...%.......|
000005E0: 34 47 40 00 20 4F 55 54  44 45 4E 54 20 54 48 49  |4G@. OUTDENT THI|
000005F0: 53 20 4C 49 4E 45 20 4F  4E 4C 59 03 02 2D A4 22  |S LINE ONLY..-."|
00000600: 90 03 07 45 4E 44 46 55  4E 43 A6 03 08 45 4E 44  |...ENDFUNC...END|
00000610: 57 48 49 4C 45 A6 03 05  55 4E 54 49 4C A6 03 04  |WHILE...UNTIL...|
00000620: 4E 45 58 54 A6 A7 8F 8F  03 0C 1C 07 1A 04 1A 02  |NEXT............|
00000630: 00 01 34 47 40 07 1B 04  1A 3A 42 00 20 4F 55 54  |..4G@....:B. OUT|
00000640: 44 45 4E 54 03 16 2E A4  22 90 03 07 45 4E 44 50  |DENT...."...ENDP|
00000650: 52 4F 43 A6 03 07 45 4E  44 43 41 53 45 A6 03 05  |ROC...ENDCASE...|
00000660: 45 4E 44 49 46 A6 03 06  45 4E 44 46 4F 52 A6 A7  |ENDIF...ENDFOR..|
00000670: D9 8F 03 20 1C 07 1A 04  1A 02 00 01 34 47 40 07  |... ........4G@.|
00000680: 1B 04 1A 3A 42 00 20 4F  55 54 44 45 4E 54 03 2A  |...:B. OUTDENT.*|
00000690: 19 A8 22 90 00 20 4C 41  42 45 4C 20 53 54 41 54  |..".. LABEL STAT|
000006A0: 45 4D 45 4E 54 20 3F 03  34 30 68 0C 09 04 1E 1F  |EMENT ?.40h.....|
000006B0: 04 1E 02 00 01 27 13 03  01 3A 02 00 0D 4B 28 2D  |.....'...:...K(-|
000006C0: 6A 07 1A 02 00 00 3A 00  20 4E 4F 20 49 4E 44 45  |j.....:. NO INDE|
000006D0: 4E 54 41 54 49 4F 4E 03  3E 04 A9 03 48 04 00 03  |NTATION.>...H...|
000006E0: 52 19 09 07 0C 08 02 00  01 1F 04 10 13 0C 09 02  |R...............|
000006F0: 00 01 1F 04 16 13 28 3C  03 5C 14 07 1E 02 00 06  |......(<.\......|
00000700: 3A 07 20 09 09 51 02 00  07 29 3A 42 03 66 14 07  |:. ..Q...):B.f..|
00000710: 21 04 0F 04 16 29 04 1A  04 11 24 29 04 10 29 3A  |!....)....$)..):|
00000720: 03 70 04 00 03 7A 04 95  03 84 04 00 03 8E 0D 68  |.p...z.........h|
00000730: 04 22 04 0E 2C 6A 7F 1D  81 03 98 09 07 22 02 00  |."..,j......."..|
00000740: 01 3D 03 A2 0F 68 04 20  04 21 2A 6A 07 21 04 20  |.=...h. .!*j.!. |
00000750: 3A 03 AC 04 00 03 B6 1B  5F 04 15 C8 CB 06 07 65  |:......._......e|
00000760: 66 0C 08 02 00 01 1F 04  1A 04 11 24 13 65 66 61  |f..........$.efa|
00000770: 03 C0 09 68 04 17 69 D9  90 03 CA 15 7F 23 0C 09  |...h..i......#..|
00000780: 04 1E 1F 04 1E 04 21 27  02 00 01 29 19 18 03 D4  |......!'...)....|
00000790: 06 6E F9 90 03 DE 1A 5F  04 15 C8 CB 0C 09 04 1E  |.n....._........|
000007A0: 1F 04 1E 04 21 27 02 00  01 29 13 65 60 61 03 E8  |....!'...).e`a..|
000007B0: 04 6F 03 F2 04 00 03 FC  0E 07 1E 04 21 3D 07 20  |.o..........!=. |
000007C0: 04 21 40 42 04 06 12 09  07 0C 08 02 00 01 1F 04  |.!@B............|
000007D0: 10 04 16 27 13 3C 04 10  04 00 04 1A 0D DA 04 20  |...'.<......... |
000007E0: 02 00 00 2C 96 6F 90 04  24 04 00 04 2E 23 07 1A  |...,.o..$....#..|
000007F0: 04 1B 3A 00 20 49 4E 44  45 4E 54 41 54 49 4F 4E  |..:. INDENTATION|
00000800: 20 46 4F 52 20 4E 45 58  54 20 4C 49 4E 45 04 38  | FOR NEXT LINE.8|
00000810: 18 B5 04 14 C8 CB CC 09  09 BA BB 00 20 4E 45 58  |............ NEX|
00000820: 54 20 4C 49 4E 45 04 42  06 9B 79 8D 04 4C 04 00  |T LINE.B..y..L..|
00000830: 04 56 06 7F 24 81 04 60  04 00 04 6A 0B 70 1F AB  |.V..$..`...j.p..|
00000840: 93 01 74 25 7B 04 74 04  00 04 7E 1D 07 26 44 3A  |..t%{.t...~..&D:|
00000850: 00 20 57 4F 52 44 20 4E  4F 54 20 46 4F 55 4E 44  |. WORD NOT FOUND|
00000860: 20 2D 20 59 45 54 04 88  04 95 04 92 04 00 04 9C  | - YET..........|
00000870: 24 07 27 04 26 3A 00 20  57 45 20 48 41 56 45 20  |$.'.&:. WE HAVE |
00000880: 54 4F 20 45 58 49 54 20  41 54 20 54 48 45 20 45  |TO EXIT AT THE E|
00000890: 4E 44 04 A6 22 97 0C 09  07 1E 16 03 01 20 2D 99  |ND.."........ -.|
000008A0: 07 1E 02 00 01 3D 9A 00  20 53 4B 49 50 20 53 50  |.....=.. SKIP SP|
000008B0: 41 43 45 53 04 B0 04 00  04 BA 23 68 0C 09 07 1E  |ACES......#h....|
000008C0: 16 03 01 22 2D 69 7E 92  00 20 53 54 52 49 4E 47  |..."-i~.. STRING|
000008D0: 20 43 4F 4E 53 54 41 4E  54 20 3F 04 C4 04 00 04  | CONSTANT ?.....|
000008E0: CE 11 95 00 20 53 4B 49  50 20 53 54 52 49 4E 47  |.... SKIP STRING|
000008F0: 04 D8 09 07 1E 02 00 01  3D 04 E2 1D 97 0C 09 04  |........=.......|
00000900: 1E 1F 04 1E 02 00 01 27  13 03 02 22 22 2D 99 07  |.......'...""-..|
00000910: 1E 02 00 02 3D 9A 04 EC  10 DA 0C 09 07 1E 16 03  |....=...........|
00000920: 01 22 2D 96 2A 92 04 F6  09 07 1E 02 00 01 3D 05  |."-.*.........=.|
00000930: 00 04 00 05 0A 24 6D 96  93 04 28 0C 09 07 1E 16  |.....$m...(.....|
00000940: 03 01 2E 2D 39 69 EA 92  00 20 52 45 41 4C 20 4E  |...-9i... REAL N|
00000950: 55 4D 42 45 52 20 3F 05  14 04 00 05 1E 0E 97 04  |UMBER ?.........|
00000960: 28 99 07 1E 02 00 01 3D  9A 05 28 10 07 1E 0C 09  |(......=..(.....|
00000970: 07 1E 16 03 01 2E 2D 47  3D 05 32 0E 97 04 28 99  |......-G=.2...(.|
00000980: 07 1E 02 00 01 3D 9A 05  3C 14 68 0C 09 07 1E 16  |.....=..<.h.....|
00000990: 03 01 45 2D 6A 07 1E 02  00 04 3D 05 46 04 00 05  |..E-j.....=.F...|
000009A0: 50 19 6D 96 93 04 29 69  69 93 00 20 49 44 45 4E  |P.m...)ii.. IDEN|
000009B0: 54 49 46 49 45 52 20 3F  05 5A 04 00 05 64 0A 68  |TIFIER ?.Z...d.h|
000009C0: 04 26 37 69 61 93 05 6E  1E 07 2A 04 1E 3A 00 20  |.&7ia..n..*..:. |
000009D0: 52 45 4D 45 4D 42 45 52  20 53 54 41 52 54 20 49  |REMEMBER START I|
000009E0: 4E 44 45 58 05 78 1C 97  04 29 04 28 39 0C 09 07  |NDEX.x...).(9...|
000009F0: 1E 16 03 02 27 5F 36 39  99 07 1E 02 00 01 3D 9A  |....'_69......=.|
00000A00: 05 82 16 07 26 06 25 0C  09 04 2A 1F 04 1E 02 00  |....&.%...*.....|
00000A10: 01 29 13 2D 47 3A 05 8C  04 6F 05 96 04 00 05 A0  |.).-G:...o......|
00000A20: 17 6E 96 93 00 20 45 56  45 52 59 54 48 49 4E 47  |.n... EVERYTHING|
00000A30: 20 45 4C 53 45 05 AA 0D  68 04 26 6A 07 1B 02 00  | ELSE...h.&j....|
00000A40: 01 3D 05 B4 09 07 1E 02  00 01 3D 05 BE 04 6F 05  |.=........=...o.|
00000A50: C8 04 00 05 D2 09 DA 04  27 96 B1 91 05 DC 04 00  |........'.......|
00000A60: 05 E6 05 7D 1F 05 F0 04  00 05 FA 09 E9 29 D5 93  |...}.........)..|
00000A70: 00 7B 06 04 18 EF 03 01  41 0C 09 07 1E 16 2F 0C  |.{......A...../.|
00000A80: 09 07 1E 16 03 01 5D 2F  38 F2 06 0E 05 EC 29 06  |......]/8.....).|
00000A90: 18 04 00 06 22 09 E9 28  FF 93 00 7B 06 2C 18 EF  |...."..(...{.,..|
00000AA0: 03 01 30 0C 09 07 1E 16  2F 0C 09 07 1E 16 03 01  |..0...../.......|
00000AB0: 39 2F 38 F2 06 36 05 EC  28 06 40 04 00 06 4A 11  |9/8..6..(.@...J.|
00000AC0: 70 0D 96 94 04 74 2B 75  2C 72 2D 72 2E 7C 06 54  |p....t+u,r-r.|.T|
00000AD0: 04 95 06 5E 0B B5 06 2B  B7 07 2C B8 BB 06 68 12  |...^...+..,...h.|
00000AE0: 07 2F 04 2D 04 2C 2E 04  2C 04 2E 2E 38 47 3A 06  |./.-.,..,...8G:.|
00000AF0: 72 0A 68 04 2F 37 69 89  94 06 7C 1D 5F 03 14 56  |r.h./7i...|._..V|
00000B00: 41 4C 55 45 20 4D 55 53  54 20 42 45 20 49 4E 20  |ALUE MUST BE IN |
00000B10: 54 48 45 65 60 61 06 86  22 5F 03 05 52 41 4E 47  |THEe`a.."_..RANG|
00000B20: 45 65 67 04 2D 64 66 03  02 2E 2E 65 66 04 2E 64  |Eeg.-df....ef..d|
00000B30: 67 03 02 21 21 65 60 61  06 90 06 5F 60 61 06 9A  |g..!!e`a..._`a..|
00000B40: 04 6F 06 A4 09 DA 04 2F  96 19 94 06 AE 05 7D 0D  |.o...../......}.|
00000B50: 06 B8 04 00 06 C2 1B 70  1D 44 95 00 7B 00 20 50  |.......p.D..{. P|
00000B60: 45 52 46 4F 52 4D 20 46  4F 52 4D 46 45 45 44 06  |ERFORM FORMFEED.|
00000B70: CC 0D 5F 04 15 C8 CB 06  0B 65 66 61 06 D6 0D 68  |.._......efa...h|
00000B80: 06 06 03 01 59 2D 69 28  95 06 E0 24 5F 04 15 C8  |....Y-i(...$_...|
00000B90: CB 0C 08 02 00 01 1F 04  10 13 65 66 03 02 3E 3E  |..........ef..>>|
00000BA0: 65 67 06 05 65 67 03 02  3C 3C 65 66 61 06 EA 1D  |eg..eg..<<efa...|
00000BB0: 5F 04 15 C8 CB 04 0F 02  00 07 29 63 66 03 04 50  |_.........)cf..P|
00000BC0: 41 47 45 65 67 04 1C 64  60 61 06 F4 0A 5F 04 15  |AGEeg..d`a..._..|
00000BD0: C8 CB 60 61 06 FE 09 07  22 02 00 02 3A 07 08 06  |..`a...."...:...|
00000BE0: 6E 37 95 07 12 09 07 22  02 00 00 3A 07 1C 04 6F  |n7....."...:...o|
00000BF0: 07 26 09 07 1C 02 00 01  3D 07 30 05 7D 1D 07 3A  |.&......=.0.}..:|
00000C00: 04 00 07 44 0D 70 30 76  95 02 72 31 74 32 7C 07  |...D.p0v..r1t2|.|
00000C10: 4E 16 83 33 0F 00 02 00  01 84 04 31 85 88 5F 06  |N..3.......1.._.|
00000C20: 32 65 66 61 89 07 58 06  5F 60 61 07 62 05 7D 30  |2efa..X._`a.b.}0|
00000C30: 07 6C 04 00 07 76 09 70  01 93 95 00 7B 07 80 0B  |.l...v.p....{...|
00000C40: 5F 02 00 93 4B 65 66 61  07 8A 05 7D 01 07 94 04  |_...Kefa...}....|
00000C50: 00 07 9E 0B 70 02 09 96  01 74 05 7C 07 A8 0D 07  |....p....t.|....|
00000C60: 20 09 05 51 02 00 02 27  3A 07 B2 18 83 33 0F 00  | ..Q...':....3..|
00000C70: 02 00 01 84 04 20 85 88  5F 02 00 A4 4B 65 66 61  |..... .._...Kefa|
00000C80: 89 07 BC 06 5F 60 61 07  C6 19 5F 02 00 12 4B 65  |...._`a..._...Ke|
00000C90: 66 03 01 20 65 66 06 05  65 66 03 01 20 65 60 61  |f.. ef..ef.. e`a|
00000CA0: 07 D0 18 83 33 0F 00 02  00 01 84 04 20 85 88 5F  |....3....... .._|
00000CB0: 02 00 A3 4B 65 66 61 89  07 DA 06 5F 60 61 07 E4  |...Kefa...._`a..|
00000CC0: 05 7D 02 07 EE 04 00 07  F8 09 70 24 31 96 00 7B  |.}........p$1..{|
00000CD0: 08 02 05 CF D1 08 0C 11  9F 00 4F 46 20 50 52 4F  |..........OF PRO|
00000CE0: 47 52 41 4D 2F 2F 08 16  05 7D 24 08 20 04 00 08  |GRAM//...}$. ...|
00000CF0: 2A 09 70 18 85 96 00 7B  08 34 07 09 09 80 3C 08  |*.p....{.4....<.|
00000D00: 3E 23 68 0C 09 02 00 01  1F 02 00 02 13 03 02 30  |>#h............0|
00000D10: 30 33 69 81 96 00 20 49  2F 4F 20 45 52 52 4F 52  |03i... I/O ERROR|
00000D20: 20 3F 08 48 06 5F 60 61  08 52 08 7F 02 09 09 18  | ?.H._`a.R......|
00000D30: 08 5C 06 7F 24 81 08 66  04 6F 08 70 05 7D 18 08  |.\..$..f.o.p.}..|
00000D40: 7A 04 00 08 84 0D 70 13  C3 96 02 74 2B 77 34 7B  |z.....p....t+w4{|
00000D50: 08 8E 04 95 08 98 0B B5  06 2B B7 09 34 BA BB 08  |.........+..4...|
00000D60: A2 19 DA 03 01 2E 06 34  28 03 01 2E 28 03 05 2E  |.......4(...(...|
00000D70: 59 2E 4E 2E 36 96 9B 96  08 AC 05 7D 13 08 B6 04  |Y.N.6......}....|
00000D80: 00 08 C0 0F 70 12 16 97  03 74 2B 72 35 77 36 7C  |....p....t+r5w6||
00000D90: 08 CA 04 95 08 D4 09 5F  06 2B 65 66 61 08 DE 17  |......._.+efa...|
00000DA0: 82 33 0F 00 02 00 01 84  04 35 85 88 5F 03 01 9D  |.3.......5.._...|
00000DB0: 65 66 61 89 08 E8 0B B5  03 00 B7 09 36 BA BB 08  |efa.........6...|
00000DC0: F2 0C DA 06 36 03 00 31  96 DB 96 08 FC 05 7D 12  |....6..1......}.|
00000DD0: 09 06 04 00 09 10 0B 70  23 94 97 01 74 09 7B 09  |.......p#...t.{.|
00000DE0: 1A 10 82 33 83 97 02 00  01 84 09 09 51 85 87 09  |...3........Q...|
00000DF0: 24 1A 68 03 01 41 0C 09  07 33 16 2F 0C 09 07 33  |$.h..A...3./...3|
00000E00: 16 03 01 5D 2F 38 69 69  97 09 2E 15 5F 04 15 C8  |...]/8ii...._...|
00000E10: CB 0C 09 07 33 16 49 04  19 27 4B 65 66 61 09 38  |....3.I..'Kefa.8|
00000E20: 06 6E 7F 97 09 42 10 5F  04 15 C8 CB 0C 09 07 33  |.n...B._.......3|
00000E30: 16 65 66 61 09 4C 04 6F  09 56 07 8A 33 2A 97 09  |.efa.L.o.V..3*..|
00000E40: 60 0A 5F 04 15 C8 CB 60  61 09 6A 05 7D 23 09 74  |`._....`a.j.}#.t|
00000E50: 04 00 14 7F 95 00 00 14  9C 95 00 00 12 E9 AF 00  |................|
00000E60: 00 12 D1 AF 00 00 12 49  AF 00 00 12 44 AF 00 00  |.......I....D...|
00000E70: 12 BC AE 00 00 12 34 AE  00 00 12 68 AD 00 00 12  |......4....h....|
00000E80: 63 AD 00 00 12 5E AD 00  00 12 59 AD 00 00 14 08  |c....^....Y.....|
00000E90: 94 00 00 10 54 AD 00 00  10 4F AD 00 00 10 4A AD  |....T....O....J.|
00000EA0: 00 00 10 45 AD 00 00 14  CC 96 00 00 14 8E 96 00  |...E............|
00000EB0: 00 10 40 AD 00 00 10 3B  AD 00 00 10 36 AD 00 00  |..@....;....6...|
00000EC0: 10 31 AD 00 00 14 3A 96  00 00 10 2C AD 00 00 10  |.1....:....,....|
00000ED0: 27 AD 00 00 10 22 AD 00  00 10 1D AD 00 00 14 9F  |'...."..........|
00000EE0: 94 00 00 10 13 AD 00 00  14 85 91 00 00 10 0E AD  |................|
00000EF0: 00 00 10 09 AD 00 00 10  18 AD 00 00 14 1F 97 00  |................|
00000F00: 00 14 12 96 00 00 00 00  00 00 00 10 04 AD 00 00  |................|
00000F10: 10 FF AC 00 00 15 DE 93  00 00 15 B4 93 00 00 10  |................|
00000F20: FA AC 00 00 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 14 4D 95  |..............M.|
00000F40: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000F50: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000F60: 03 43 4C 52 07 52 45 56  45 52 53 45 09 49 4E 50  |.CLR.REVERSE.INP|
00000F70: 55 54 46 49 4C 45 0A 4F  55 54 50 55 54 46 49 4C  |UTFILE.OUTPUTFIL|
00000F80: 45 08 48 45 41 44 4C 49  4E 45 07 48 45 41 44 49  |E.HEADLINE.HEADI|
00000F90: 4E 47 06 4C 49 4E 45 4E  4F 06 53 50 41 43 45 53  |NG.LINENO.SPACES|
00000FA0: 04 4C 49 4E 45 02 43 48  08 46 4F 52 4D 46 45 45  |.LINE.CH.FORMFEE|
00000FB0: 44 0B 4C 49 4E 45 27 4E  55 4D 42 45 52 05 47 45  |D.LINE'NUMBER.GE|
00000FC0: 54 4E 4F 0B 50 41 47 45  27 4C 45 4E 47 48 54 0B  |TNO.PAGE'LENGHT.|
00000FD0: 4C 49 4E 45 27 4C 45 4E  47 48 54 0B 4C 45 46 54  |LINE'LENGHT.LEFT|
00000FE0: 27 4D 41 52 47 49 4E 0B  49 4E 44 45 4E 54 41 54  |'MARGIN.INDENTAT|
00000FF0: 49 4F 4E 05 47 54 53 54  52 05 59 45 53 4E 4F 03  |ION.GTSTR.YESNO.|
00001000: 49 4E 50 03 4F 55 54 04  4C 4E 4E 4F 0A 4C 4F 57  |INP.OUT.LNNO.LOW|
00001010: 45 52 27 43 41 53 45 08  49 4F 27 45 52 52 4F 52  |ER'CASE.IO'ERROR|
00001020: 06 4F 46 46 53 45 54 06  49 4E 44 45 4E 54 0B 49  |.OFFSET.INDENT.I|
00001030: 4E 44 45 4E 54 27 4E 45  58 54 0A 50 41 47 45 27  |NDENT'NEXT.PAGE'|
00001040: 43 4F 55 4E 54 04 50 41  47 45 01 4A 06 53 45 41  |COUNT.PAGE.J.SEA|
00001050: 52 43 48 06 4C 45 4E 47  48 54 05 57 49 44 54 48  |RCH.LENGHT.WIDTH|
00001060: 0A 4C 49 4E 45 27 43 4F  55 4E 54 15 43 4F 4E 56  |.LINE'COUNT.CONV|
00001070: 45 52 54 27 54 4F 27 4C  4F 57 45 52 27 43 41 53  |ERT'TO'LOWER'CAS|
00001080: 45 04 48 41 4C 54 04 57  4F 52 44 0A 57 4F 52 44  |E.HALT.WORD.WORD|
00001090: 27 46 4F 55 4E 44 04 45  58 49 54 05 44 49 47 49  |'FOUND.EXIT.DIGI|
000010A0: 54 06 4C 45 54 54 45 52  02 4A 27 06 50 52 4F 4D  |T.LETTER.J'.PROM|
000010B0: 50 54 05 56 41 4C 55 45  03 4D 49 4E 03 4D 41 58  |PT.VALUE.MIN.MAX|
000010C0: 02 4F 4B 04 44 52 41 57  06 4E 55 4D 42 45 52 04  |.OK.DRAW.NUMBER.|
000010D0: 43 48 41 52 01 49 06 41  4E 53 57 45 52 05 4C 45  |CHAR.I.ANSWER.LE|
000010E0: 46 54 27 06 53 54 52 49  4E 47 00 00              |FT'.STRING..    |

L.Z.......SAVE"0:FORMATTER".......... C
LEAR SCREEN.(&...FORMATTED OUTPUT OF LI
ST 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 LENGT
H: 80...............H%...LEFT MARGIN: 1
..............)..R(...INDENTATION: 2...
..........)...)... ...LISTFILE   : LIST
..............OUTPUT FILE: LP:.........
.....LINE NO'S  ? N...........HEADING 
   ? Y........_`A.......H....Y-I..."...
.HEADLINE   : ..(...Q.....,.O.6...@.....
.:.....:B.J..........Y-G$:.T...D:. USE U
PPER CASE LETTERS.^...H.......... OPEN I
NPUT FILE.R....|.........!.. OPEN OUTPU
T FILE........LP:..T.. LINE PRINTER.....
................#.....K<.... :B. ASCII C
ONVERSION........DS..... DATA SCREEN....
............B......K<.....:B.L..... DISK
 FILE.V......................K<.... :B.
...............:.  ACTUAL INDENTATION..$
.....:. INDENTATION FOR NEXT LINE.....&.
.....:. FIRST PAGE.0.... SKIP THIS PAGE
.:...D....HKL..... FIRST LINE:.N....]7.Q
..X...B#.......K(...K(<. ADD TERMINATORS
.L......:. SKIP LINE NUMBER.V....... ISO
LATE FIRST SYMBOL........=.......<B..(Z.
.A../....]/8....0123456789'_69G7.J......
.+............)..M.. PART OF A STRUCTURE
 ?...."...IF..}..."...THEN.. SHORT OR L
ONG FORM ?.F.."...FOR...WHILE.....P ...
DO.. SHORT OR LONG FORM ?.Z'."...CASE...
PROC...FUNC...REPEAT............=. INDEN
T NEXT BLOCK..*."...ELIF...ELSE...OTHERW
ISE...WHEN..F...%.......4G@. OUTDENT THI
S LINE ONLY..-."...ENDFUNC...ENDWHILE...
UNTIL...NEXT..............4G@....:B. OUT
DENT...."...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..$....#....:. IND
ENTATION FOR NEXT LINE.8....HKL..... NEX
T 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... SKI
P STRING.X......=..............'...""-..
....=....Z......."-.*.........=......$M.
..(........-9I... REAL NUMBER ?.........
(......=..(...........-G=.2...(......=..
<.H.......E-J.....=.F...P.M...)II.. IDEN
TIFIER ?.Z...D.H.&7IA..N..*..:. REMEMBER
 START INDEX.X...).(9.......'_69......=.
....&.%...*......).-G:...O..... .N... EV
ERYTHING 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 F
ORMFEED.L._..HK..EFA.V.H....Y-I(...$_..H
K.........EF..>>EG..EG..<<EFA..._..HK...
..)CF..PAGEEG..D`A..._..HK`A...."...:...
N7....."...:...O.&......=.0.}..:...D.P0V
..R1T2|.N..3.......1.._.2EFA..X._`A.B.}0
.L...V.P....{..._...KEFA...}........P...
.T.|.... ..Q...':....3....... .._...KEFA
...._`A.F._...KEF.. EF..EF.. E`A.P..3...
.... .._...KEFA..Z._`A...}........P$1..{
...OQ.....OF PROGRAM//...}$. ...*.P....{
.4....<.>#H............003I... I/O ERROR
 ?.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...._..H
K...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.O
UTPUTFILE.HEADLINE.HEADING.LINENO.SPACES
.LINE.CH.FORMFEED.LINE'NUMBER.GETNO.PAGE
'LENGHT.LINE'LENGHT.LEFT'MARGIN.INDENTAT
ION.GTSTR.YESNO.INP.OUT.LNNO.LOWER'CASE.
IO'ERROR.OFFSET.INDENT.INDENT'NEXT.PAGE'
COUNT.PAGE.J.SEARCH.LENGHT.WIDTH.LINE'CO
UNT.CONVERT'TO'LOWER'CASE.HALT.WORD.WORD
'FOUND.EXIT.DIGIT.LETTER.J'.PROMPT.VALUE
.MIN.MAX.OK.DRAW.NUMBER.CHAR.I.ANSWER.LE
FT'.STRING..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL