FORMATTER
FILE INFORMATION
FILENAME(S): FORMATTER
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-12-01 01:02:02
APPEARS ON: 1 disk(s)
FILE HASH
f1f043a35ab109610b67909b9f42db1cbbf7d681a1c2477585fa20a9a0c06a84
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY POPPEL | FORMATTER | PRG | hedning, German ebay | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 54 |FT'.STRING..T |
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..T
> CLICK IMAGE PREVIEW FOR FULL MODAL