FORMATTER.COM

00000000: AD 0E E3 0F AA 11 00 0A  15 00 53 41 56 45 22 30  |..........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 E3 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 07 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 1C A4 E3 8C 03  |ONVERSION.......|
00000330: 03 44 53 3A A6 A7 B0 8C  00 20 44 41 54 41 20 53  |.DS:..... DATA S|
00000340: 43 52 45 45 4E 01 B8 0F  DB 04 15 DC 03 00 DD 02  |CREEN...........|
00000350: 00 03 E2 DF 01 C2 11 09  0B 02 00 93 4B 3C 07 19  |............K<..|
00000360: 02 00 00 3A 42 01 CC 11  A8 E3 8C 00 20 44 49 53  |...:B....... DIS|
00000370: 4B 20 46 49 4C 45 01 D6  0B DB 04 15 DC 06 04 DD  |K FILE..........|
00000380: DF 01 E0 06 7F 18 81 01  EA 11 09 0B 02 00 0C 4B  |...............K|
00000390: 3C 07 19 02 00 20 3A 42  01 F4 04 A9 01 FE 04 00  |<.... :B........|
000003A0: 02 08 1E 07 1A 02 00 00  3A 00 20 20 41 43 54 55  |........:.  ACTU|
000003B0: 41 4C 20 49 4E 44 45 4E  54 41 54 49 4F 4E 02 12  |AL INDENTATION..|
000003C0: 24 07 1B 02 00 00 3A 00  20 49 4E 44 45 4E 54 41  |$.....:. INDENTA|
000003D0: 54 49 4F 4E 20 46 4F 52  20 4E 45 58 54 20 4C 49  |TION FOR NEXT LI|
000003E0: 4E 45 02 1C 04 00 02 26  1B 07 1C 02 00 01 3A 07  |NE.....&......:.|
000003F0: 22 02 00 00 3A 42 00 46  49 52 53 54 20 50 41 47  |"...:B.FIRST PAG|
00000400: 45 02 30 06 7F 3D 81 02  3A 04 00 02 44 04 95 02  |E.0..=..:...D...|
00000410: 4E 1A B5 04 14 C8 CB CC  09 09 BA BB 00 20 46 49  |N............ FI|
00000420: 52 53 54 20 4C 49 4E 45  3A 02 58 04 00 02 62 23  |RST LINE:.X...b#|
00000430: 09 09 06 09 02 00 0D 4B  28 02 00 0A 4B 28 3C 00  |.......K(...K(<.|
00000440: 20 41 44 44 20 54 45 52  4D 49 4E 41 54 4F 52 53  | ADD TERMINATORS|
00000450: 02 6C 1B 07 1E 02 00 05  3A 00 20 53 4B 49 50 20  |.l......:. SKIP |
00000460: 4C 49 4E 45 20 4E 55 4D  42 45 52 02 76 04 00 02  |LINE NUMBER.v...|
00000470: 80 1A 95 00 20 49 53 4F  4C 41 54 45 20 46 49 52  |.... ISOLATE FIR|
00000480: 53 54 20 53 59 4D 42 4F  4C 02 8A 12 07 1E 02 00  |ST SYMBOL.......|
00000490: 01 3D 09 0A 0C 09 07 1E  16 3C 42 02 94 28 DA 03  |.=.......<B..(..|
000004A0: 01 41 06 0A 2F 06 0A 03  01 5D 2F 38 06 0A 03 0C  |.A../....]/8....|
000004B0: 30 31 32 33 34 35 36 37  38 39 27 5F 36 39 47 37  |0123456789'_69G7|
000004C0: 96 CA 8D 02 9E 04 00 02  A8 2B A1 0C 09 02 00 06  |.........+......|
000004D0: 1F 04 1E 02 00 01 29 13  A3 4D 8E 00 20 50 41 52  |......)..M.. PAR|
000004E0: 54 20 4F 46 20 41 20 53  54 52 55 43 54 55 52 45  |T OF A STRUCTURE|
000004F0: 20 3F 02 B2 0E A4 22 90  03 02 49 46 A6 A7 7D 8E  | ?...."...IF..}.|
00000500: 02 BC 22 7F 1F 03 04 54  48 45 4E 15 00 20 53 48  |.."....THEN.. SH|
00000510: 4F 52 54 20 4F 52 20 4C  4F 4E 47 20 46 4F 52 4D  |ORT OR LONG FORM|
00000520: 20 3F 02 C6 17 A4 22 90  03 03 46 4F 52 A6 03 05  | ?...."...FOR...|
00000530: 57 48 49 4C 45 A6 A7 B4  8E 02 D0 20 7F 1F 03 02  |WHILE...... ....|
00000540: 44 4F 15 00 20 53 48 4F  52 54 20 4F 52 20 4C 4F  |DO.. SHORT OR LO|
00000550: 4E 47 20 46 4F 52 4D 20  3F 02 DA 27 A4 22 90 03  |NG FORM ?..'."..|
00000560: 04 43 41 53 45 A6 03 04  50 52 4F 43 A6 03 04 46  |.CASE...PROC...F|
00000570: 55 4E 43 A6 03 06 52 45  50 45 41 54 A6 A7 F7 8E  |UNC...REPEAT....|
00000580: 02 E4 1C 07 1B 02 00 01  3D 00 20 49 4E 44 45 4E  |........=. INDEN|
00000590: 54 20 4E 45 58 54 20 42  4C 4F 43 4B 02 EE 2A A4  |T NEXT BLOCK..*.|
000005A0: 22 90 03 04 45 4C 49 46  A6 03 04 45 4C 53 45 A6  |"...ELIF...ELSE.|
000005B0: 03 09 4F 54 48 45 52 57  49 53 45 A6 03 04 57 48  |..OTHERWISE...WH|
000005C0: 45 4E A6 A7 46 8F 02 F8  25 07 1A 04 1A 02 00 01  |EN..F...%.......|
000005D0: 34 47 40 00 20 4F 55 54  44 45 4E 54 20 54 48 49  |4G@. OUTDENT THI|
000005E0: 53 20 4C 49 4E 45 20 4F  4E 4C 59 03 02 2D A4 22  |S LINE ONLY..-."|
000005F0: 90 03 07 45 4E 44 46 55  4E 43 A6 03 08 45 4E 44  |...ENDFUNC...END|
00000600: 57 48 49 4C 45 A6 03 05  55 4E 54 49 4C A6 03 04  |WHILE...UNTIL...|
00000610: 4E 45 58 54 A6 A7 8F 8F  03 0C 1C 07 1A 04 1A 02  |NEXT............|
00000620: 00 01 34 47 40 07 1B 04  1A 3A 42 00 20 4F 55 54  |..4G@....:B. OUT|
00000630: 44 45 4E 54 03 16 2E A4  22 90 03 07 45 4E 44 50  |DENT...."...ENDP|
00000640: 52 4F 43 A6 03 07 45 4E  44 43 41 53 45 A6 03 05  |ROC...ENDCASE...|
00000650: 45 4E 44 49 46 A6 03 06  45 4E 44 46 4F 52 A6 A7  |ENDIF...ENDFOR..|
00000660: D9 8F 03 20 1C 07 1A 04  1A 02 00 01 34 47 40 07  |... ........4G@.|
00000670: 1B 04 1A 3A 42 00 20 4F  55 54 44 45 4E 54 03 2A  |...:B. OUTDENT.*|
00000680: 19 A8 22 90 00 20 4C 41  42 45 4C 20 53 54 41 54  |..".. LABEL STAT|
00000690: 45 4D 45 4E 54 20 3F 03  34 30 68 0C 09 04 1E 1F  |EMENT ?.40h.....|
000006A0: 04 1E 02 00 01 27 13 03  01 3A 02 00 0D 4B 28 2D  |.....'...:...K(-|
000006B0: 6A 07 1A 02 00 00 3A 00  20 4E 4F 20 49 4E 44 45  |j.....:. NO INDE|
000006C0: 4E 54 41 54 49 4F 4E 03  3E 04 A9 03 48 04 00 03  |NTATION.>...H...|
000006D0: 52 19 09 07 0C 08 02 00  01 1F 04 10 13 0C 09 02  |R...............|
000006E0: 00 01 1F 04 16 13 28 3C  03 5C 14 07 1E 02 00 06  |......(<.\......|
000006F0: 3A 07 20 09 09 51 02 00  07 29 3A 42 03 66 14 07  |:. ..Q...):B.f..|
00000700: 21 04 0F 04 16 29 04 1A  04 11 24 29 04 10 29 3A  |!....)....$)..):|
00000710: 03 70 04 00 03 7A 04 95  03 84 04 00 03 8E 0C 68  |.p...z.........h|
00000720: 04 22 04 0E 2C 69 00 00  03 98 06 7F 1D 81 03 A2  |."..,i..........|
00000730: 06 7F 3D 81 03 AC 04 6F  03 B6 09 07 22 02 00 01  |..=....o...."...|
00000740: 3D 03 C0 0F 68 04 20 04  21 2A 6A 07 21 04 20 3A  |=...h. .!*j.!. :|
00000750: 03 CA 04 00 03 D4 1B 5F  04 15 C8 CB 06 07 65 66  |......._......ef|
00000760: 0C 08 02 00 01 1F 04 1A  04 11 24 13 65 66 61 03  |..........$.efa.|
00000770: DE 09 68 04 17 69 D9 90  03 E8 15 7F 23 0C 09 04  |..h..i......#...|
00000780: 1E 1F 04 1E 04 21 27 02  00 01 29 19 18 03 F2 06  |.....!'...).....|
00000790: 6E F9 90 03 FC 1A 5F 04  15 C8 CB 0C 09 04 1E 1F  |n....._.........|
000007A0: 04 1E 04 21 27 02 00 01  29 13 65 60 61 04 06 04  |...!'...).e`a...|
000007B0: 6F 04 10 04 00 04 1A 0E  07 1E 04 21 3D 07 20 04  |o..........!=. .|
000007C0: 21 40 42 04 24 12 09 07  0C 08 02 00 01 1F 04 10  |!@B.$...........|
000007D0: 04 16 27 13 3C 04 2E 04  00 04 38 0D DA 04 20 02  |..'.<.....8... .|
000007E0: 00 00 2C 96 6F 90 04 42  04 00 04 4C 23 07 1A 04  |..,.o..B...L#...|
000007F0: 1B 3A 00 20 49 4E 44 45  4E 54 41 54 49 4F 4E 20  |.:. INDENTATION |
00000800: 46 4F 52 20 4E 45 58 54  20 4C 49 4E 45 04 56 0A  |FOR NEXT LINE.V.|
00000810: DA 04 14 5D 96 66 8D 04  60 12 7F 1D 81 00 20 4E  |...].f..`..... N|
00000820: 45 55 45 20 D3 45 49 54  45 04 6A 04 00 04 74 06  |EUE .EITE.j...t.|
00000830: 7F 24 81 04 7E 04 00 04  88 0B 70 1F 97 93 01 74  |.$..~.....p....t|
00000840: 25 7B 04 92 04 00 04 9C  1D 07 26 44 3A 00 20 57  |%{........&D:. W|
00000850: 4F 52 44 20 4E 4F 54 20  46 4F 55 4E 44 20 2D 20  |ORD NOT FOUND - |
00000860: 59 45 54 04 A6 04 95 04  B0 04 00 04 BA 24 07 27  |YET..........$.'|
00000870: 04 26 3A 00 20 57 45 20  48 41 56 45 20 54 4F 20  |.&:. WE HAVE TO |
00000880: 45 58 49 54 20 41 54 20  54 48 45 20 45 4E 44 04  |EXIT AT THE END.|
00000890: C4 22 97 0C 09 07 1E 16  03 01 20 2D 99 07 1E 02  |."........ -....|
000008A0: 00 01 3D 9A 00 20 53 4B  49 50 20 53 50 41 43 45  |..=.. SKIP SPACE|
000008B0: 53 04 CE 04 00 04 D8 23  68 0C 09 07 1E 16 03 01  |S......#h.......|
000008C0: 22 2D 69 6A 92 00 20 53  54 52 49 4E 47 20 43 4F  |"-ij.. STRING CO|
000008D0: 4E 53 54 41 4E 54 20 3F  04 E2 04 00 04 EC 11 95  |NSTANT ?........|
000008E0: 00 20 53 4B 49 50 20 53  54 52 49 4E 47 04 F6 09  |. SKIP STRING...|
000008F0: 07 1E 02 00 01 3D 05 00  1D 97 0C 09 04 1E 1F 04  |.....=..........|
00000900: 1E 02 00 01 27 13 03 02  22 22 2D 99 07 1E 02 00  |....'...""-.....|
00000910: 02 3D 9A 05 0A 10 DA 0C  09 07 1E 16 03 01 22 2D  |.=............"-|
00000920: 96 16 92 05 14 09 07 1E  02 00 01 3D 05 1E 04 00  |...........=....|
00000930: 05 28 24 6D 82 93 04 28  0C 09 07 1E 16 03 01 2E  |.($m...(........|
00000940: 2D 39 69 D6 92 00 20 52  45 41 4C 20 4E 55 4D 42  |-9i... REAL NUMB|
00000950: 45 52 20 3F 05 32 04 00  05 3C 0E 97 04 28 99 07  |ER ?.2...<...(..|
00000960: 1E 02 00 01 3D 9A 05 46  10 07 1E 0C 09 07 1E 16  |....=..F........|
00000970: 03 01 2E 2D 47 3D 05 50  0E 97 04 28 99 07 1E 02  |...-G=.P...(....|
00000980: 00 01 3D 9A 05 5A 14 68  0C 09 07 1E 16 03 01 45  |..=..Z.h.......E|
00000990: 2D 6A 07 1E 02 00 04 3D  05 64 04 00 05 6E 19 6D  |-j.....=.d...n.m|
000009A0: 82 93 04 29 69 55 93 00  20 49 44 45 4E 54 49 46  |...)iU.. IDENTIF|
000009B0: 49 45 52 20 3F 05 78 04  00 05 82 0A 68 04 26 37  |IER ?.x.....h.&7|
000009C0: 69 4D 93 05 8C 1E 07 2A  04 1E 3A 00 20 52 45 4D  |iM.....*..:. REM|
000009D0: 45 4D 42 45 52 20 53 54  41 52 54 20 49 4E 44 45  |EMBER START INDE|
000009E0: 58 05 96 1C 97 04 29 04  28 39 0C 09 07 1E 16 03  |X.....).(9......|
000009F0: 02 27 5F 36 39 99 07 1E  02 00 01 3D 9A 05 A0 16  |.'_69......=....|
00000A00: 07 26 06 25 0C 09 04 2A  1F 04 1E 02 00 01 29 13  |.&.%...*......).|
00000A10: 2D 47 3A 05 AA 04 6F 05  B4 04 00 05 BE 17 6E 82  |-G:...o.......n.|
00000A20: 93 00 20 45 56 45 52 59  54 48 49 4E 47 20 45 4C  |.. EVERYTHING EL|
00000A30: 53 45 05 C8 0D 68 04 26  6A 07 1B 02 00 01 3D 05  |SE...h.&j.....=.|
00000A40: D2 09 07 1E 02 00 01 3D  05 DC 04 6F 05 E6 04 00  |.......=...o....|
00000A50: 05 F0 09 DA 04 27 96 9D  91 05 FA 04 00 06 04 05  |.....'..........|
00000A60: 7D 1F 06 0E 04 00 06 18  09 E9 29 C1 93 00 7B 06  |}.........)...{.|
00000A70: 22 18 EF 03 01 41 0C 09  07 1E 16 2F 0C 09 07 1E  |"....A...../....|
00000A80: 16 03 01 5D 2F 38 F2 06  2C 05 EC 29 06 36 04 00  |...]/8..,..).6..|
00000A90: 06 40 09 E9 28 EB 93 00  7B 06 4A 18 EF 03 01 30  |.@..(...{.J....0|
00000AA0: 0C 09 07 1E 16 2F 0C 09  07 1E 16 03 01 39 2F 38  |...../.......9/8|
00000AB0: F2 06 54 05 EC 28 06 5E  04 00 06 68 11 70 0D 82  |..T..(.^...h.p..|
00000AC0: 94 04 74 2B 75 2C 72 2D  72 2E 7C 06 72 04 95 06  |..t+u,r-r.|.r...|
00000AD0: 7C 0B B5 06 2B B7 07 2C  B8 BB 06 86 12 07 2F 04  ||...+..,....../.|
00000AE0: 2D 04 2C 2E 04 2C 04 2E  2E 38 47 3A 06 90 0A 68  |-.,..,...8G:...h|
00000AF0: 04 2F 37 69 75 94 06 9A  1D 5F 03 14 56 41 4C 55  |./7iu...._..VALU|
00000B00: 45 20 4D 55 53 54 20 42  45 20 49 4E 20 54 48 45  |E MUST BE IN THE|
00000B10: 65 60 61 06 A4 22 5F 03  05 52 41 4E 47 45 65 67  |e`a.."_..RANGEeg|
00000B20: 04 2D 64 66 03 02 2E 2E  65 66 04 2E 64 67 03 02  |.-df....ef..dg..|
00000B30: 21 21 65 60 61 06 AE 06  5F 60 61 06 B8 04 6F 06  |!!e`a..._`a...o.|
00000B40: C2 09 DA 04 2F 96 05 94  06 CC 05 7D 0D 06 D6 04  |..../......}....|
00000B50: 00 06 E0 1B 70 1D 75 95  00 7B 00 20 50 45 52 46  |....p.u..{. PERF|
00000B60: 4F 52 4D 20 46 4F 52 4D  46 45 45 44 06 EA 0F 68  |ORM FORMFEED...h|
00000B70: 06 04 03 03 4C 50 3A 2D  69 E1 94 06 F4 0D 68 04  |....LP:-i.....h.|
00000B80: 22 02 00 00 30 69 DD 94  06 FE 1B 82 38 13 00 04  |"...0i......8...|
00000B90: 22 02 00 01 27 84 02 00  48 85 88 5F 04 15 C8 CB  |"...'...H.._....|
00000BA0: 60 61 89 07 08 04 6F 07  12 06 6E F4 94 07 1C 0D  |`a....o...n.....|
00000BB0: 5F 04 15 C8 CB 06 0B 65  66 61 07 26 04 6F 07 30  |_......efa.&.o.0|
00000BC0: 0D 68 06 06 03 01 59 2D  69 59 95 07 3A 09 07 22  |.h....Y-iY..:.."|
00000BD0: 02 00 02 3A 07 44 06 6E  68 95 07 4E 09 07 22 02  |...:.D.nh..N..".|
00000BE0: 00 00 3A 07 58 04 6F 07  62 09 07 1C 02 00 01 3D  |..:.X.o.b......=|
00000BF0: 07 6C 05 7D 1D 07 76 04  00 07 80 09 70 3D 00 00  |.l.}..v.....p=..|
00000C00: 00 7B 07 8A 0D 68 06 06  03 01 59 2D 69 00 00 07  |.{...h....Y-i...|
00000C10: 94 24 5F 04 15 C8 CB 0C  08 02 00 01 1F 04 10 13  |.$_.............|
00000C20: 65 66 03 02 3E 3E 65 67  06 05 65 67 03 02 3C 3C  |ef..>>eg..eg..<<|
00000C30: 65 66 61 07 9E 1D 5F 04  15 C8 CB 04 0F 02 00 07  |efa..._.........|
00000C40: 29 63 66 03 04 50 41 47  45 65 67 04 1C 64 60 61  |)cf..PAGEeg..d`a|
00000C50: 07 A8 0A 5F 04 15 C8 CB  60 61 07 B2 04 6F 07 BC  |..._....`a...o..|
00000C60: 05 7D 00 07 C6 0D 70 30  A7 95 02 72 31 74 32 7C  |.}....p0...r1t2||
00000C70: 07 D0 16 83 33 0F 00 02  00 01 84 04 31 85 88 5F  |....3.......1.._|
00000C80: 06 32 65 66 61 89 07 DA  06 5F 60 61 07 E4 05 7D  |.2efa...._`a...}|
00000C90: 30 07 EE 04 00 07 F8 09  70 01 C4 95 00 7B 08 02  |0.......p....{..|
00000CA0: 0B 5F 02 00 93 4B 65 66  61 08 0C 05 7D 01 08 16  |._...Kefa...}...|
00000CB0: 04 00 08 20 0B 70 02 3A  96 01 74 05 7C 08 2A 0D  |... .p.:..t.|.*.|
00000CC0: 07 20 09 05 51 02 00 02  27 3A 08 34 18 83 33 0F  |. ..Q...':.4..3.|
00000CD0: 00 02 00 01 84 04 20 85  88 5F 02 00 A4 4B 65 66  |...... .._...Kef|
00000CE0: 61 89 08 3E 06 5F 60 61  08 48 19 5F 02 00 12 4B  |a..>._`a.H._...K|
00000CF0: 65 66 03 01 20 65 66 06  05 65 66 03 01 20 65 60  |ef.. ef..ef.. e`|
00000D00: 61 08 52 18 83 33 0F 00  02 00 01 84 04 20 85 88  |a.R..3....... ..|
00000D10: 5F 02 00 A3 4B 65 66 61  89 08 5C 06 5F 60 61 08  |_...Kefa..\._`a.|
00000D20: 66 05 7D 02 08 70 04 00  08 7A 09 70 24 62 96 00  |f.}..p...z.p$b..|
00000D30: 7B 08 84 05 CF D1 08 8E  11 9F 00 4F 46 20 50 52  |{..........OF PR|
00000D40: 4F 47 52 41 4D 2F 2F 08  98 05 7D 24 08 A2 04 00  |OGRAM//...}$....|
00000D50: 08 AC 09 70 18 B6 96 00  7B 08 B6 07 09 09 80 3C  |...p....{......<|
00000D60: 08 C0 23 68 0C 09 02 00  01 1F 02 00 02 13 03 02  |..#h............|
00000D70: 30 30 33 69 B2 96 00 20  49 2F 4F 20 45 52 52 4F  |003i... I/O ERRO|
00000D80: 52 20 3F 08 CA 06 5F 60  61 08 D4 08 7F 02 09 09  |R ?..._`a.......|
00000D90: 18 08 DE 06 7F 24 81 08  E8 04 6F 08 F2 05 7D 18  |.....$....o...}.|
00000DA0: 08 FC 04 00 09 06 0D 70  13 F4 96 02 74 2B 77 34  |.......p....t+w4|
00000DB0: 7B 09 10 04 95 09 1A 0B  B5 06 2B B7 09 34 BA BB  |{.........+..4..|
00000DC0: 09 24 19 DA 03 01 2E 06  34 28 03 01 2E 28 03 05  |.$......4(...(..|
00000DD0: 2E 59 2E 4E 2E 36 96 CC  96 09 2E 05 7D 13 09 38  |.Y.N.6......}..8|
00000DE0: 04 00 09 42 0F 70 12 47  97 03 74 2B 72 35 77 36  |...B.p.G..t+r5w6|
00000DF0: 7C 09 4C 04 95 09 56 09  5F 06 2B 65 66 61 09 60  ||.L...V._.+efa.`|
00000E00: 17 82 33 0F 00 02 00 01  84 04 35 85 88 5F 03 01  |..3.......5.._..|
00000E10: 9D 65 66 61 89 09 6A 0B  B5 03 00 B7 09 36 BA BB  |.efa..j......6..|
00000E20: 09 74 0C DA 06 36 03 00  31 96 0C 97 09 7E 05 7D  |.t...6..1....~.}|
00000E30: 12 09 88 04 00 09 92 0B  70 23 C5 97 01 74 09 7B  |........p#...t.{|
00000E40: 09 9C 10 82 33 B4 97 02  00 01 84 09 09 51 85 87  |....3........Q..|
00000E50: 09 A6 1A 68 03 01 41 0C  09 07 33 16 2F 0C 09 07  |...h..A...3./...|
00000E60: 33 16 03 01 5D 2F 38 69  9A 97 09 B0 15 5F 04 15  |3...]/8i....._..|
00000E70: C8 CB 0C 09 07 33 16 49  04 19 27 4B 65 66 61 09  |.....3.I..'Kefa.|
00000E80: BA 06 6E B0 97 09 C4 10  5F 04 15 C8 CB 0C 09 07  |..n....._.......|
00000E90: 33 16 65 66 61 09 CE 04  6F 09 D8 07 8A 33 5B 97  |3.efa...o....3[.|
00000EA0: 09 E2 0A 5F 04 15 C8 CB  60 61 09 EC 05 7D 23 09  |..._....`a...}#.|
00000EB0: F6 04 00 14 B0 95 00 00  14 CD 95 00 00 12 E9 AF  |................|
00000EC0: 00 00 12 D1 AF 00 00 12  49 AF 00 00 12 44 AF 00  |........I....D..|
00000ED0: 00 12 BC AE 00 00 12 34  AE 00 00 12 68 AD 00 00  |.......4....h...|
00000EE0: 12 63 AD 00 00 12 5E AD  00 00 12 59 AD 00 00 14  |.c....^....Y....|
00000EF0: F4 93 00 00 10 54 AD 00  00 10 4F AD 00 00 10 4A  |.....T....O....J|
00000F00: AD 00 00 10 45 AD 00 00  14 FD 96 00 00 14 BF 96  |....E...........|
00000F10: 00 00 10 40 AD 00 00 10  3B AD 00 00 10 36 AD 00  |...@....;....6..|
00000F20: 00 10 31 AD 00 00 14 6B  96 00 00 10 2C AD 00 00  |..1....k....,...|
00000F30: 10 27 AD 00 00 10 22 AD  00 00 10 1D AD 00 00 14  |.'....".........|
00000F40: 8B 94 00 00 10 13 AD 00  00 14 71 91 00 00 10 0E  |..........q.....|
00000F50: AD 00 00 10 09 AD 00 00  10 18 AD 00 00 14 50 97  |..............P.|
00000F60: 00 00 14 43 96 00 00 00  00 00 00 00 10 04 AD 00  |...C............|
00000F70: 00 10 FF AC 00 00 15 CA  93 00 00 15 A0 93 00 00  |................|
00000F80: 10 FA AC 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000F90: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 14 7E  |...............~|
00000FA0: 95 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000FB0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000FC0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000FD0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000FE0: 00 00 00 00 00 00 00 00  00 03 43 4C 52 07 52 45  |..........CLR.RE|
00000FF0: 56 45 52 53 45 09 49 4E  50 55 54 46 49 4C 45 0A  |VERSE.INPUTFILE.|
00001000: 4F 55 54 50 55 54 46 49  4C 45 08 48 45 41 44 4C  |OUTPUTFILE.HEADL|
00001010: 49 4E 45 07 48 45 41 44  49 4E 47 06 4C 49 4E 45  |INE.HEADING.LINE|
00001020: 4E 4F 06 53 50 41 43 45  53 04 4C 49 4E 45 02 43  |NO.SPACES.LINE.C|
00001030: 48 08 46 4F 52 4D 46 45  45 44 0B 4C 49 4E 45 27  |H.FORMFEED.LINE'|
00001040: 4E 55 4D 42 45 52 05 47  45 54 4E 4F 0B 50 41 47  |NUMBER.GETNO.PAG|
00001050: 45 27 4C 45 4E 47 48 54  0B 4C 49 4E 45 27 4C 45  |E'LENGHT.LINE'LE|
00001060: 4E 47 48 54 0B 4C 45 46  54 27 4D 41 52 47 49 4E  |NGHT.LEFT'MARGIN|
00001070: 0B 49 4E 44 45 4E 54 41  54 49 4F 4E 05 47 54 53  |.INDENTATION.GTS|
00001080: 54 52 05 59 45 53 4E 4F  03 49 4E 50 03 4F 55 54  |TR.YESNO.INP.OUT|
00001090: 04 4C 4E 4E 4F 0A 4C 4F  57 45 52 27 43 41 53 45  |.LNNO.LOWER'CASE|
000010A0: 08 49 4F 27 45 52 52 4F  52 06 4F 46 46 53 45 54  |.IO'ERROR.OFFSET|
000010B0: 06 49 4E 44 45 4E 54 0B  49 4E 44 45 4E 54 27 4E  |.INDENT.INDENT'N|
000010C0: 45 58 54 0A 50 41 47 45  27 43 4F 55 4E 54 04 50  |EXT.PAGE'COUNT.P|
000010D0: 41 47 45 01 4A 06 53 45  41 52 43 48 06 4C 45 4E  |AGE.J.SEARCH.LEN|
000010E0: 47 48 54 05 57 49 44 54  48 0A 4C 49 4E 45 27 43  |GHT.WIDTH.LINE'C|
000010F0: 4F 55 4E 54 15 43 4F 4E  56 45 52 54 27 54 4F 27  |OUNT.CONVERT'TO'|
00001100: 4C 4F 57 45 52 27 43 41  53 45 04 48 41 4C 54 04  |LOWER'CASE.HALT.|
00001110: 57 4F 52 44 0A 57 4F 52  44 27 46 4F 55 4E 44 04  |WORD.WORD'FOUND.|
00001120: 45 58 49 54 05 44 49 47  49 54 06 4C 45 54 54 45  |EXIT.DIGIT.LETTE|
00001130: 52 02 4A 27 06 50 52 4F  4D 50 54 05 56 41 4C 55  |R.J'.PROMPT.VALU|
00001140: 45 03 4D 49 4E 03 4D 41  58 02 4F 4B 04 44 52 41  |E.MIN.MAX.OK.DRA|
00001150: 57 06 4E 55 4D 42 45 52  04 43 48 41 52 01 49 06  |W.NUMBER.CHAR.I.|
00001160: 41 4E 53 57 45 52 05 4C  45 46 54 27 06 53 54 52  |ANSWER.LEFT'.STR|
00001170: 49 4E 47 07 4C 49 53 54  35 36 30 07 5A 41 45 48  |ING.LIST560.ZAEH|
00001180: 4C 45 52 08 4C 49 53 54  31 37 33 30 09 4C 49 4E  |LER.LIST1730.LIN|
00001190: 45 43 4F 55 4E 54 07 4C  45 46 54 27 4D 41 04 52  |ECOUNT.LEFT'MA.R|
000011A0: 47 49 4E 09 4B 4F 50 46  5A 45 49 4C 45 01 5D 00  |GIN.KOPFZEILE.].|
000011B0: 00 A9 1A                                          |...             |

..........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..... DIS
K FILE.V......................K<.... :B
................:.  ACTUAL INDENTATION..
$.....:. INDENTATION FOR NEXT LINE.....&
......:."...:B.FIRST PAGE.0.=..:...D...
N....HKL..... FIRST LINE:.X...B#.......K
(...K(<. ADD TERMINATORS.L......:. SKIP 
LINE NUMBER.V....... ISOLATE FIRST SYMBO
L........=.......<B..(Z..A../....]/8....
0123456789'_69G7.J.......+............).
.M.. PART OF A STRUCTURE ?...."...IF..}.
.."...THEN.. SHORT OR LONG FORM ?.F..".
..FOR...WHILE.....P ...DO.. SHORT OR LO
NG FORM ?.Z'."...CASE...PROC...FUNC...RE
PEAT............=. INDENT NEXT BLOCK..*.
"...ELIF...ELSE...OTHERWISE...WHEN..F...
%.......4G@. OUTDENT THIS LINE ONLY..-."
...ENDFUNC...ENDWHILE...UNTIL...NEXT....
..........4G@....:B. OUTDENT...."...ENDP
ROC...ENDCASE...ENDIF...ENDFOR..Y.. ....
....4G@....:B. OUTDENT.*..".. LABEL STAT
EMENT ?.40H..........'...:...K(-J.....:.
 NO INDENTATION.>...H...R...............
......(<.\......:. ..Q...):B.F..!....)..
..$)..):.P...Z.........H."..,I.........
.=....O...."...=...H. .!*J.!. :.J...T._
..HK..EF..........$.EFA...H..IY....#...
.....!'...).....N....._..HK........!'...
).E`A...O..........!=. .!@B.$...........
..'.<.....8.Z. ...,.O..B...L#....:. INDE
NTATION FOR NEXT LINE.V.Z..].F..`.... N
EUE SEITE.J...T.$..~.....P....T%{......
..&D:. WORD NOT FOUND - YET..........$.'
.&:. WE HAVE TO EXIT AT THE END.D"......
.. -......=.. SKIP SPACES.N...X#H.......
"-IJ.. STRING CONSTANT ?......... SKIP S
TRING........=..............'...""-.....
.=....Z......."-...........=.....($M...(
........-9IV.. REAL NUMBER ?.2...<...(..
....=..F...........-G=.P...(......=..Z.H
.......E-J.....=.D...N.M...)IU.. IDENTIF
IER ?.X.....H.&7IM.....*..:. REMEMBER ST
ART INDEX.....).(9.......'_69......=.. .
.&.%...*......).-G:...O.......N... EVERY
THING ELSE.H.H.&J.....=.R......=...O....
...Z.'..........}.........)A..{."....A..
.../.......]/8..,..).6...@..(...{.J....0
...../.......9/8..T..(.^...H.P....T+U,R-
R.|.R...|...+..,....../.-.,..,...8G:...H
./7IU...._..VALUE MUST BE IN THEE`A.."_.
.RANGEEG.-DF....EF..DG..!!E`A..._`A...O.
B.Z./....L.}..V.....P.U..{. PERFORM FORM
FEED...H....LP:-I.....H."...0I......8...
"...'...H.._..HK`A....O...N....._..HK..E
FA.&.O.0.H....Y-IY..:.."...:.D.NH..N..".
..:.X.O.B......=.L.}..V.....P=...{...H..
..Y-I....$_..HK.........EF..>>EG..EG..<<
EFA..._..HK.....)CF..PAGEEG..D`A..._..HK
`A...O...}..F.P0...R1T2|.P..3.......1.._
.2EFA..Z._`A...}0.......P.D..{..._...KEF
A...}...... .P.:..T.|.*.. ..Q...':.4..3.
...... .._...KEFA..>._`A.H._...KEF.. EF.
.EF.. E`A.R..3....... .._...KEFA..\._`A.
F.}..P...Z.P$B..{...OQ.....OF PROGRAM//.
..}$.......P....{......<..#H............
003I... I/O ERROR ?.J._`A.T........$..
..O...}........P....T+W4{.........+..4..
.$.Z....4(...(...Y.N.6.L....}..8...B.P.G
..T+R5W6|.L...V._.+EFA.`..3.......5.._..
.EFA..J......6...T.Z.6..1....~.}........
P#E..T.{....3........Q.....H..A...3./...
3...]/8I....._..HK...3.I..'KEFA...N...D.
_..HK...3.EFA.N.O.X..3[...._..HK`A...}#.
.........M.........Q....I....D.........4
....H....C....^....Y.........T....O....J
....E..............@....;....6....1....K
....,....'...."...................Q.....
..............P....C...................J
.... ..................................~
........................................
..................................CLR.RE
VERSE.INPUTFILE.OUTPUTFILE.HEADLINE.HEAD
ING.LINENO.SPACES.LINE.CH.FORMFEED.LINE'
NUMBER.GETNO.PAGE'LENGHT.LINE'LENGHT.LEF
T'MARGIN.INDENTATION.GTSTR.YESNO.INP.OUT
.LNNO.LOWER'CASE.IO'ERROR.OFFSET.INDENT.
INDENT'NEXT.PAGE'COUNT.PAGE.J.SEARCH.LEN
GHT.WIDTH.LINE'COUNT.CONVERT'TO'LOWER'CA
SE.HALT.WORD.WORD'FOUND.EXIT.DIGIT.LETTE
R.J'.PROMPT.VALUE.MIN.MAX.OK.DRAW.NUMBER
.CHAR.I.ANSWER.LEFT'.STRING.LIST560.ZAEH
LER.LIST1730.LINECOUNT.LEFT'MA.RGIN.KOPF
ZEILE.]....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL