L.FILE DRUCK .14

00000000: 9C 0F B9 10 51 12 00 0A  15 00 53 41 56 45 22 30  |....Q.....SAVE"0|
00000010: 3A 46 4F 52 4D 41 54 54  45 52 22 00 14 04 00 00  |:FORMATTER".....|
00000020: 1E 0A BD 03 03 4C 50 3A  BE 00 28 11 5F 02 00 1B  |.....LP:..(._...|
00000030: 4B 65 66 02 00 45 4B 65  66 61 00 32 11 5F 02 00  |Kef..EKefa.2._..|
00000040: 1B 4B 65 66 03 02 20 54  65 66 61 00 3C 0A BD 03  |.Kef.. Tefa.<...|
00000050: 03 44 53 3A BE 00 46 14  7F 01 81 00 20 43 4C 45  |.DS:..F..... CLE|
00000060: 41 52 20 53 43 52 45 45  4E 00 50 2E 7F 02 03 26  |AR SCREEN.P....&|
00000070: C6 4F 52 4D 41 54 49 45  52 54 45 52 20 C4 52 55  |.ORMATIERTER .RU|
00000080: 43 4B 20 56 4F 4E 20 CC  49 53 54 2D D0 52 4F 47  |CK VON .IST-.ROG|
00000090: 52 41 4D 4D 45 4E 15 00  5A 06 5F 60 61 00 64 04  |RAMMEN..Z._`a.d.|
000000A0: 00 00 6E 1B 8C 8F 03 00  02 00 14 93 8F 04 00 02  |..n.............|
000000B0: 00 14 93 94 C5 00 20 46  49 4C 45 53 00 78 0C 8C  |...... FILES.x..|
000000C0: 8F 05 00 02 00 84 93 C5  00 82 0C 8C 8F 06 00 02  |................|
000000D0: 00 01 93 C5 00 8C 0C 8C  8F 07 00 02 00 84 93 C5  |................|
000000E0: 00 96 0C 8C 8F 08 00 02  00 84 93 C5 00 A0 0C 8C  |................|
000000F0: 8F 09 00 02 00 C8 93 C5  00 AA 0C 8C 8F 0A 00 02  |................|
00000100: 00 01 93 C5 00 B4 0C 8C  8F 0B 00 02 00 01 93 C5  |................|
00000110: 00 BE 0C 8C 8F 0C 00 02  00 01 93 C5 00 C8 29 0C  |..............).|
00000120: 08 02 00 01 1F 02 00 84  19 03 00 3C 00 20 46 49  |...........<. FI|
00000130: 4C 4C 20 53 54 52 49 4E  47 20 57 49 54 48 20 53  |LL STRING WITH S|
00000140: 50 41 43 45 53 00 D2 04  00 00 DC 2A 7F 0D 03 17  |PACES......*....|
00000150: 20 20 20 20 DA 45 49 4C  45 4E 2F D3 45 49 54 45  |    .EILEN/.EITE|
00000160: 20 3A 20 36 30 9D 9D 0F  07 0E 10 02 00 01 0D 02  | : 60...........|
00000170: 27 0F 13 00 E6 2A 7F 0D  03 17 20 20 20 20 DA 45  |'....*....    .E|
00000180: 49 4C 45 4E 4C 41 45 4E  47 45 20 3A 20 38 30 9D  |ILENLAENGE : 80.|
00000190: 9D 0F 07 0F 10 02 00 16  0D 02 00 84 13 00 F0 2B  |...............+|
000001A0: 7F 0D 03 15 20 20 20 20  4C 49 4E 4B 45 52 20 D2  |....    LINKER .|
000001B0: 41 4E 44 20 20 3A 20 31  9D 0F 07 10 10 02 00 00  |AND  : 1........|
000001C0: 0D 04 0F 02 00 01 29 13  00 FA 2E 7F 0D 03 15 20  |......)........ |
000001D0: 20 20 20 C5 49 4E 52 55  45 43 4B 55 4E 47 20 20  |   .INRUECKUNG  |
000001E0: 3A 20 32 9D 0F 07 11 10  02 00 00 0D 04 0F 04 10  |: 2.............|
000001F0: 29 02 00 01 29 13 01 04  26 7F 12 03 17 20 20 20  |)...)...&....   |
00000200: 20 D0 52 4F 47 52 41 4D  4D 4E 41 4D 45 20 3A 20  | .ROGRAMMNAME : |
00000210: 2E 2E 2E 4C 0F 02 00 04  0D 09 03 18 01 0E 25 7F  |...L..........%.|
00000220: 12 03 16 20 20 20 20 C1  55 53 47 41 42 45 47 45  |...    .USGABEGE|
00000230: 52 41 45 54 3A 20 4C 50  3A 0F 02 00 03 0D 09 04  |RAET: LP:.......|
00000240: 18 01 18 20 7F 13 03 15  20 20 20 20 DA 45 49 4C  |... ....    .EIL|
00000250: 45 4E 4E 55 4D 4D 45 52  4E 3F 20 4E 9D 0F 09 0C  |ENNUMMERN? N....|
00000260: 18 01 22 20 7F 13 03 15  20 20 20 20 CB 4F 50 46  |.." ....    .OPF|
00000270: 5A 45 49 4C 45 20 20 20  20 3F 20 4A 9D 0F 09 06  |ZEILE    ? J....|
00000280: 18 01 2C 06 5F 60 61 01  36 04 00 01 40 0D 68 06  |..,._`a.6...@.h.|
00000290: 06 03 01 4A 2D 69 08 8C  01 4A 25 7F 12 03 13 20  |...J-i...J%.... |
000002A0: 20 20 20 CB 4F 50 46 5A  45 49 4C 45 20 20 20 20  |   .OPFZEILE    |
000002B0: 3A 20 06 03 28 0F 09 03  51 0D 09 05 18 01 54 04  |: ..(...Q.....T.|
000002C0: 6F 01 5E 04 00 01 68 10  07 14 02 00 03 3A 07 15  |o.^...h......:..|
000002D0: 02 00 04 3A 42 01 72 11  07 16 02 00 05 06 0C 03  |...:B.r.........|
000002E0: 01 4A 2D 47 24 3A 01 7C  24 07 17 44 3A 00 20 55  |.J-G$:.|$..D:. U|
000002F0: 53 45 20 4C 4F 57 45 52  20 43 41 53 45 20 20 20  |SE LOWER CASE   |
00000300: 20 20 20 4C 45 54 54 45  52 53 01 86 04 00 01 90  |   LETTERS......|
00000310: 1C DB 04 14 DC 06 03 DD  DE 00 20 4F 50 45 4E 20  |.......... OPEN |
00000320: 49 4E 50 55 54 20 46 49  4C 45 01 9A 06 7F 18 81  |INPUT FILE......|
00000330: 01 A4 04 00 01 AE 1B A1  06 04 A3 9A 8C 00 20 4F  |.............. O|
00000340: 50 45 4E 20 4F 55 54 50  55 54 20 46 49 4C 45 01  |PEN OUTPUT FILE.|
00000350: B8 1D A4 5B 8D 03 03 4C  50 3A A6 A7 ED 8C 00 20  |...[...LP:..... |
00000360: 4C 49 4E 45 20 50 52 49  4E 54 45 52 01 C2 13 DB  |LINE PRINTER....|
00000370: 04 15 DC 03 00 DD 02 00  04 E2 02 00 00 E3 DF 01  |................|
00000380: CC 23 09 0B 02 00 0C 4B  3C 07 19 02 00 20 3A 42  |.#.....K<.... :B|
00000390: 00 20 41 53 43 49 49 20  43 4F 4E 56 45 52 53 49  |. ASCII CONVERSI|
000003A0: 4F 4E 01 D6 1B A4 5B 8D  03 02 44 53 A6 A7 28 8D  |ON....[...DS..(.|
000003B0: 00 20 44 41 54 41 20 53  43 52 45 45 4E 01 E0 0F  |. DATA SCREEN...|
000003C0: DB 04 15 DC 03 00 DD 02  00 03 E2 DF 01 EA 11 09  |................|
000003D0: 0B 02 00 93 4B 3C 07 19  02 00 00 3A 42 01 F4 11  |....K<.....:B...|
000003E0: A8 5B 8D 00 20 44 49 53  4B 20 46 49 4C 45 01 FE  |.[.. DISK FILE..|
000003F0: 0B DB 04 15 DC 06 04 DD  DF 02 08 06 7F 18 81 02  |................|
00000400: 12 11 09 0B 02 00 0C 4B  3C 07 19 02 00 20 3A 42  |.......K<.... :B|
00000410: 02 1C 04 A9 02 26 04 00  02 30 1E 07 1A 02 00 00  |.....&...0......|
00000420: 3A 00 20 20 41 43 54 55  41 4C 20 49 4E 44 45 4E  |:.  ACTUAL INDEN|
00000430: 54 41 54 49 4F 4E 02 3A  24 07 1B 02 00 00 3A 00  |TATION.:$.....:.|
00000440: 20 49 4E 44 45 4E 54 41  54 49 4F 4E 20 46 4F 52  | INDENTATION FOR|
00000450: 20 4E 45 58 54 20 4C 49  4E 45 02 44 04 00 02 4E  | NEXT LINE.D...N|
00000460: 15 07 1C 02 00 01 3A 00  20 46 49 52 53 54 20 50  |......:. FIRST P|
00000470: 41 47 45 02 58 16 7F 1D  81 00 20 53 4B 49 50 20  |AGE.X..... SKIP |
00000480: 54 48 49 53 20 50 41 47  45 02 62 04 00 02 6C 1A  |THIS PAGE.b...l.|
00000490: B5 04 14 C8 CB CC 09 09  BA BB 00 20 46 49 52 53  |........... FIRS|
000004A0: 54 20 4C 49 4E 45 3A 02  76 0B 97 04 14 5D 37 98  |T LINE:.v....]7.|
000004B0: EA 91 02 80 04 00 02 8A  23 09 09 06 09 02 00 0D  |........#.......|
000004C0: 4B 28 02 00 0A 4B 28 3C  00 20 41 44 44 20 54 45  |K(...K(<. ADD TE|
000004D0: 52 4D 49 4E 41 54 4F 52  53 02 94 1B 07 1E 02 00  |RMINATORS.......|
000004E0: 05 3A 00 20 53 4B 49 50  20 4C 49 4E 45 20 4E 55  |.:. SKIP LINE NU|
000004F0: 4D 42 45 52 02 9E 04 00  02 A8 1A 95 00 20 49 53  |MBER......... IS|
00000500: 4F 4C 41 54 45 20 46 49  52 53 54 20 53 59 4D 42  |OLATE FIRST SYMB|
00000510: 4F 4C 02 B2 12 07 1E 02  00 01 3D 09 0A 0C 09 07  |OL........=.....|
00000520: 1E 16 3C 42 02 BC 28 DA  03 01 41 06 0A 2F 06 0A  |..<B..(...A../..|
00000530: 03 01 5D 2F 38 06 0A 03  0C 30 31 32 33 34 35 36  |..]/8....0123456|
00000540: 37 38 39 27 5F 36 39 47  37 96 43 8E 02 C6 04 00  |789'_69G7.C.....|
00000550: 02 D0 2B A1 0C 09 02 00  06 1F 04 1E 02 00 01 29  |..+............)|
00000560: 13 A3 C6 8E 00 20 50 41  52 54 20 4F 46 20 41 20  |..... PART OF A |
00000570: 53 54 52 55 43 54 55 52  45 20 3F 02 DA 0E A4 9B  |STRUCTURE ?.....|
00000580: 90 03 02 49 46 A6 A7 F6  8E 02 E4 22 7F 1F 03 04  |...IF......"....|
00000590: 54 48 45 4E 15 00 20 53  48 4F 52 54 20 4F 52 20  |THEN.. SHORT OR |
000005A0: 4C 4F 4E 47 20 46 4F 52  4D 20 3F 02 EE 17 A4 9B  |LONG FORM ?.....|
000005B0: 90 03 03 46 4F 52 A6 03  05 57 48 49 4C 45 A6 A7  |...FOR...WHILE..|
000005C0: 2D 8F 02 F8 20 7F 1F 03  02 44 4F 15 00 20 53 48  |-... ....DO.. SH|
000005D0: 4F 52 54 20 4F 52 20 4C  4F 4E 47 20 46 4F 52 4D  |ORT OR LONG FORM|
000005E0: 20 3F 03 02 27 A4 9B 90  03 04 43 41 53 45 A6 03  | ?..'.....CASE..|
000005F0: 04 50 52 4F 43 A6 03 04  46 55 4E 43 A6 03 06 52  |.PROC...FUNC...R|
00000600: 45 50 45 41 54 A6 A7 70  8F 03 0C 1C 07 1B 02 00  |EPEAT..p........|
00000610: 01 3D 00 20 49 4E 44 45  4E 54 20 4E 45 58 54 20  |.=. INDENT NEXT |
00000620: 42 4C 4F 43 4B 03 16 2A  A4 9B 90 03 04 45 4C 49  |BLOCK..*.....ELI|
00000630: 46 A6 03 04 45 4C 53 45  A6 03 09 4F 54 48 45 52  |F...ELSE...OTHER|
00000640: 57 49 53 45 A6 03 04 57  48 45 4E A6 A7 BF 8F 03  |WISE...WHEN.....|
00000650: 20 25 07 1A 04 1A 02 00  01 34 47 40 00 20 4F 55  | %.......4G@. OU|
00000660: 54 44 45 4E 54 20 54 48  49 53 20 4C 49 4E 45 20  |TDENT THIS LINE |
00000670: 4F 4E 4C 59 03 2A 2D A4  9B 90 03 07 45 4E 44 46  |ONLY.*-.....ENDF|
00000680: 55 4E 43 A6 03 08 45 4E  44 57 48 49 4C 45 A6 03  |UNC...ENDWHILE..|
00000690: 05 55 4E 54 49 4C A6 03  04 4E 45 58 54 A6 A7 08  |.UNTIL...NEXT...|
000006A0: 90 03 34 1C 07 1A 04 1A  02 00 01 34 47 40 07 1B  |..4........4G@..|
000006B0: 04 1A 3A 42 00 20 4F 55  54 44 45 4E 54 03 3E 2E  |..:B. OUTDENT.>.|
000006C0: A4 9B 90 03 07 45 4E 44  50 52 4F 43 A6 03 07 45  |.....ENDPROC...E|
000006D0: 4E 44 43 41 53 45 A6 03  05 45 4E 44 49 46 A6 03  |NDCASE...ENDIF..|
000006E0: 06 45 4E 44 46 4F 52 A6  A7 52 90 03 48 1C 07 1A  |.ENDFOR..R..H...|
000006F0: 04 1A 02 00 01 34 47 40  07 1B 04 1A 3A 42 00 20  |.....4G@....:B. |
00000700: 4F 55 54 44 45 4E 54 03  52 19 A8 9B 90 00 20 4C  |OUTDENT.R..... L|
00000710: 41 42 45 4C 20 53 54 41  54 45 4D 45 4E 54 20 3F  |ABEL STATEMENT ?|
00000720: 03 5C 30 68 0C 09 04 1E  1F 04 1E 02 00 01 27 13  |.\0h..........'.|
00000730: 03 01 3A 02 00 0D 4B 28  2D 6A 07 1A 02 00 00 3A  |..:...K(-j.....:|
00000740: 00 20 4E 4F 20 49 4E 44  45 4E 54 41 54 49 4F 4E  |. NO INDENTATION|
00000750: 03 66 04 A9 03 70 04 00  03 7A 19 09 07 0C 08 02  |.f...p...z......|
00000760: 00 01 1F 04 10 13 0C 09  02 00 01 1F 04 16 13 28  |...............(|
00000770: 3C 03 84 14 07 1E 02 00  06 3A 07 20 09 09 51 02  |<........:. ..Q.|
00000780: 00 07 29 3A 42 03 8E 14  07 21 04 0F 04 16 29 04  |..):B....!....).|
00000790: 1A 04 11 24 29 04 10 29  3A 03 98 04 00 03 A2 04  |...$)..):.......|
000007A0: 95 03 AC 04 00 03 B6 0D  68 04 22 04 0E 2C 6A 7F  |........h."..,j.|
000007B0: 1D 81 03 C0 09 07 22 02  00 01 3D 03 CA 0F 68 04  |......"...=...h.|
000007C0: 20 04 21 2A 6A 07 21 04  20 3A 03 D4 04 00 03 DE  | .!*j.!. :......|
000007D0: 1B 5F 04 15 C8 CB 06 07  65 66 0C 08 02 00 01 1F  |._......ef......|
000007E0: 04 1A 04 11 24 13 65 66  61 03 E8 09 68 04 17 69  |....$.efa...h..i|
000007F0: 52 91 03 F2 15 7F 23 0C  09 04 1E 1F 04 1E 04 21  |R.....#........!|
00000800: 27 02 00 01 29 19 18 03  FC 06 6E 72 91 04 06 1A  |'...).....nr....|
00000810: 5F 04 15 C8 CB 0C 09 04  1E 1F 04 1E 04 21 27 02  |_............!'.|
00000820: 00 01 29 13 65 60 61 04  10 04 6F 04 1A 04 00 04  |..).e`a...o.....|
00000830: 24 0E 07 1E 04 21 3D 07  20 04 21 40 42 04 2E 12  |$....!=. .!@B...|
00000840: 09 07 0C 08 02 00 01 1F  04 10 04 16 27 13 3C 04  |............'.<.|
00000850: 38 04 00 04 42 0D DA 04  20 02 00 00 2C 96 E8 90  |8...B... ...,...|
00000860: 04 4C 04 00 04 56 23 07  1A 04 1B 3A 00 20 49 4E  |.L...V#....:. IN|
00000870: 44 45 4E 54 41 54 49 4F  4E 20 46 4F 52 20 4E 45  |DENTATION FOR NE|
00000880: 58 54 20 4C 49 4E 45 04  60 18 B5 04 14 C8 CB CC  |XT LINE.`.......|
00000890: 09 09 BA BB 00 20 4E 45  58 54 20 4C 49 4E 45 04  |..... NEXT LINE.|
000008A0: 6A 06 9B F2 8D 04 74 04  00 04 7E 06 7F 24 81 04  |j.....t...~..$..|
000008B0: 88 04 00 04 92 0B 70 1F  24 94 01 74 25 7B 04 9C  |......p.$..t%{..|
000008C0: 04 00 04 A6 1D 07 26 44  3A 00 20 57 4F 52 44 20  |......&D:. WORD |
000008D0: 4E 4F 54 20 46 4F 55 4E  44 20 2D 20 59 45 54 04  |NOT FOUND - YET.|
000008E0: B0 04 95 04 BA 04 00 04  C4 24 07 27 04 26 3A 00  |.........$.'.&:.|
000008F0: 20 57 45 20 48 41 56 45  20 54 4F 20 45 58 49 54  | WE HAVE TO EXIT|
00000900: 20 41 54 20 54 48 45 20  45 4E 44 04 CE 22 97 0C  | AT THE END.."..|
00000910: 09 07 1E 16 03 01 20 2D  99 07 1E 02 00 01 3D 9A  |...... -......=.|
00000920: 00 20 53 4B 49 50 20 53  50 41 43 45 53 04 D8 04  |. SKIP SPACES...|
00000930: 00 04 E2 23 68 0C 09 07  1E 16 03 01 22 2D 69 F7  |...#h......."-i.|
00000940: 92 00 20 53 54 52 49 4E  47 20 43 4F 4E 53 54 41  |.. STRING CONSTA|
00000950: 4E 54 20 3F 04 EC 04 00  04 F6 11 95 00 20 53 4B  |NT ?......... SK|
00000960: 49 50 20 53 54 52 49 4E  47 05 00 09 07 1E 02 00  |IP STRING.......|
00000970: 01 3D 05 0A 1D 97 0C 09  04 1E 1F 04 1E 02 00 01  |.=..............|
00000980: 27 13 03 02 22 22 2D 99  07 1E 02 00 02 3D 9A 05  |'...""-......=..|
00000990: 14 10 DA 0C 09 07 1E 16  03 01 22 2D 96 A3 92 05  |.........."-....|
000009A0: 1E 09 07 1E 02 00 01 3D  05 28 04 00 05 32 24 6D  |.......=.(...2$m|
000009B0: 0F 94 04 28 0C 09 07 1E  16 03 01 2E 2D 39 69 63  |...(........-9ic|
000009C0: 93 00 20 52 45 41 4C 20  4E 55 4D 42 45 52 20 3F  |.. REAL NUMBER ?|
000009D0: 05 3C 04 00 05 46 0E 97  04 28 99 07 1E 02 00 01  |.<...F...(......|
000009E0: 3D 9A 05 50 10 07 1E 0C  09 07 1E 16 03 01 2E 2D  |=..P...........-|
000009F0: 47 3D 05 5A 0E 97 04 28  99 07 1E 02 00 01 3D 9A  |G=.Z...(......=.|
00000A00: 05 64 14 68 0C 09 07 1E  16 03 01 45 2D 6A 07 1E  |.d.h.......E-j..|
00000A10: 02 00 04 3D 05 6E 04 00  05 78 19 6D 0F 94 04 29  |...=.n...x.m...)|
00000A20: 69 E2 93 00 20 49 44 45  4E 54 49 46 49 45 52 20  |i... IDENTIFIER |
00000A30: 3F 05 82 04 00 05 8C 0A  68 04 26 37 69 DA 93 05  |?.......h.&7i...|
00000A40: 96 1E 07 2A 04 1E 3A 00  20 52 45 4D 45 4D 42 45  |...*..:. REMEMBE|
00000A50: 52 20 53 54 41 52 54 20  49 4E 44 45 58 05 A0 1C  |R START INDEX...|
00000A60: 97 04 29 04 28 39 0C 09  07 1E 16 03 02 27 5F 36  |..).(9.......'_6|
00000A70: 39 99 07 1E 02 00 01 3D  9A 05 AA 16 07 26 06 25  |9......=.....&.%|
00000A80: 0C 09 04 2A 1F 04 1E 02  00 01 29 13 2D 47 3A 05  |...*......).-G:.|
00000A90: B4 04 6F 05 BE 04 00 05  C8 17 6E 0F 94 00 20 45  |..o.......n... E|
00000AA0: 56 45 52 59 54 48 49 4E  47 20 45 4C 53 45 05 D2  |VERYTHING ELSE..|
00000AB0: 0D 68 04 26 6A 07 1B 02  00 01 3D 05 DC 09 07 1E  |.h.&j.....=.....|
00000AC0: 02 00 01 3D 05 E6 04 6F  05 F0 04 00 05 FA 09 DA  |...=...o........|
00000AD0: 04 27 96 2A 92 06 04 04  00 06 0E 05 7D 1F 06 18  |.'.*........}...|
00000AE0: 04 00 06 22 09 E9 29 4E  94 00 7B 06 2C 18 EF 03  |..."..)N..{.,...|
00000AF0: 01 41 0C 09 07 1E 16 2F  0C 09 07 1E 16 03 01 5D  |.A...../.......]|
00000B00: 2F 38 F2 06 36 05 EC 29  06 40 04 00 06 4A 09 E9  |/8..6..).@...J..|
00000B10: 28 78 94 00 7B 06 54 18  EF 03 01 30 0C 09 07 1E  |(x..{.T....0....|
00000B20: 16 2F 0C 09 07 1E 16 03  01 39 2F 38 F2 06 5E 05  |./.......9/8..^.|
00000B30: EC 28 06 68 04 00 06 72  11 70 0D 1B 95 04 74 2B  |.(.h...r.p....t+|
00000B40: 75 2C 72 2D 72 2E 7C 06  7C 04 95 06 86 0B B5 06  |u,r-r.|.|.......|
00000B50: 2B B7 07 2C B8 BB 06 90  12 07 2F 04 2D 04 2C 2E  |+..,....../.-.,.|
00000B60: 04 2C 04 2E 2E 38 47 3A  06 9A 0A 68 04 2F 37 69  |.,...8G:...h./7i|
00000B70: 0E 95 06 A4 1D 5F 03 14  C5 49 4E 47 41 42 45 20  |....._...INGABE |
00000B80: 4D 55 53 53 20 49 4E 20  44 45 4D 20 65 60 61 06  |MUSS IN DEM e`a.|
00000B90: AE 2E 5F 03 0B C2 45 52  45 49 43 48 20 56 4F 4E  |.._...EREICH VON|
00000BA0: 65 67 04 2D 64 66 03 02  2E 2E 65 66 04 2E 64 67  |eg.-df....ef..dg|
00000BB0: 03 08 4C 49 45 47 45 4E  21 21 65 60 61 06 B8 06  |..LIEGEN!!e`a...|
00000BC0: 5F 60 61 06 C2 04 6F 06  CC 09 DA 04 2F 96 92 94  |_`a...o...../...|
00000BD0: 06 D6 05 7D 0D 06 E0 04  00 06 EA 1B 70 1D 59 96  |...}........p.Y.|
00000BE0: 00 7B 00 20 50 45 52 46  4F 52 4D 20 46 4F 52 4D  |.{. PERFORM FORM|
00000BF0: 46 45 45 44 06 F4 0D 7F  37 02 00 01 0D 02 00 16  |FEED....7.......|
00000C00: 13 06 FE 39 5F 03 03 20  20 12 65 66 04 1C 64 66  |...9_..  .ef..df|
00000C10: 03 25 2E 20 C2 4C 41 54  54 20 45 49 4E 4C 45 47  |.%. .LATT EINLEG|
00000C20: 45 4E 20 55 4E 44 20 D4  41 53 54 45 20 44 52 55  |EN UND .ASTE DRU|
00000C30: 45 43 4B 45 4E 21 92 65  60 61 07 08 0D 97 F9 02  |ECKEN!.e`a......|
00000C40: 00 00 4B 2D 99 F4 9A 07  12 0D 7F 37 02 00 01 0D  |..K-.......7....|
00000C50: 02 00 16 13 07 1C 3C 5F  03 33 20 20 20 20 20 20  |......<_.3      |
00000C60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C70: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C80: 20 20 20 20 20 20 20 20  20 20 20 20 20 65 60 61  |             e`a|
00000C90: 07 26 0D 68 06 06 03 01  4A 2D 69 3D 96 07 30 24  |.&.h....J-i=..0$|
00000CA0: 5F 04 15 C8 CB 0C 08 02  00 01 1F 04 10 13 65 66  |_.............ef|
00000CB0: 03 02 3E 3E 65 67 06 05  65 67 03 02 3C 3C 65 66  |..>>eg..eg..<<ef|
00000CC0: 61 07 3A 1E 5F 04 15 C8  CB 04 0F 02 00 07 29 63  |a.:._.........)c|
00000CD0: 66 03 05 D3 45 49 54 45  65 67 04 1C 64 60 61 07  |f...EITEeg..d`a.|
00000CE0: 44 0A 5F 04 15 C8 CB 60  61 07 4E 09 07 22 02 00  |D._....`a.N.."..|
00000CF0: 02 3A 07 58 06 6E 4C 96  07 62 09 07 22 02 00 00  |.:.X.nL..b.."...|
00000D00: 3A 07 6C 04 6F 07 76 09  07 1C 02 00 01 3D 07 80  |:.l.o.v......=..|
00000D10: 05 7D 1D 07 8A 04 00 07  94 0D 70 30 8B 96 02 72  |.}........p0...r|
00000D20: 31 74 32 7C 07 9E 16 83  33 0F 00 02 00 01 84 04  |1t2|....3.......|
00000D30: 31 85 88 5F 06 32 65 66  61 89 07 A8 06 5F 60 61  |1.._.2efa...._`a|
00000D40: 07 B2 05 7D 30 07 BC 04  00 07 C6 09 70 01 A8 96  |...}0.......p...|
00000D50: 00 7B 07 D0 0B 5F 02 00  93 4B 65 66 61 07 DA 05  |.{..._...Kefa...|
00000D60: 7D 01 07 E4 04 00 07 EE  0B 70 02 1E 97 01 74 05  |}........p....t.|
00000D70: 7C 07 F8 0D 07 20 09 05  51 02 00 02 27 3A 08 02  ||.... ..Q...':..|
00000D80: 18 83 33 0F 00 02 00 01  84 04 20 85 88 5F 02 00  |..3....... .._..|
00000D90: A4 4B 65 66 61 89 08 0C  06 5F 60 61 08 16 19 5F  |.Kefa...._`a..._|
00000DA0: 02 00 12 4B 65 66 03 01  20 65 66 06 05 65 66 03  |...Kef.. ef..ef.|
00000DB0: 01 20 65 60 61 08 20 18  83 33 0F 00 02 00 01 84  |. e`a. ..3......|
00000DC0: 04 20 85 88 5F 02 00 A3  4B 65 66 61 89 08 2A 06  |. .._...Kefa..*.|
00000DD0: 5F 60 61 08 34 05 7D 02  08 3E 04 00 08 48 09 70  |_`a.4.}..>...H.p|
00000DE0: 24 46 97 00 7B 08 52 05  CF D1 08 5C 11 9F 00 4F  |$F..{.R....\...O|
00000DF0: 46 20 50 52 4F 47 52 41  4D 2F 2F 08 66 05 7D 24  |F PROGRAM//.f.}$|
00000E00: 08 70 04 00 08 7A 09 70  18 9A 97 00 7B 08 84 07  |.p...z.p....{...|
00000E10: 09 09 80 3C 08 8E 23 68  0C 09 02 00 01 1F 02 00  |...<..#h........|
00000E20: 02 13 03 02 30 30 33 69  96 97 00 20 49 2F 4F 20  |....003i... I/O |
00000E30: 45 52 52 4F 52 20 3F 08  98 06 5F 60 61 08 A2 08  |ERROR ?..._`a...|
00000E40: 7F 02 09 09 18 08 AC 06  7F 24 81 08 B6 04 6F 08  |.........$....o.|
00000E50: C0 05 7D 18 08 CA 04 00  08 D4 0D 70 13 D8 97 02  |..}........p....|
00000E60: 74 2B 77 34 7B 08 DE 04  95 08 E8 0B B5 06 2B B7  |t+w4{.........+.|
00000E70: 09 34 BA BB 08 F2 19 DA  03 01 2E 06 34 28 03 01  |.4..........4(..|
00000E80: 2E 28 03 05 2E 4A 2E 4E  2E 36 96 B0 97 08 FC 05  |.(...J.N.6......|
00000E90: 7D 13 09 06 04 00 09 10  0F 70 12 2B 98 03 74 2B  |}........p.+..t+|
00000EA0: 72 35 77 36 7C 09 1A 04  95 09 24 09 5F 06 2B 65  |r5w6|.....$._.+e|
00000EB0: 66 61 09 2E 17 82 33 0F  00 02 00 01 84 04 35 85  |fa....3.......5.|
00000EC0: 88 5F 03 01 9D 65 66 61  89 09 38 0B B5 03 00 B7  |._...efa..8.....|
00000ED0: 09 36 BA BB 09 42 0C DA  06 36 03 00 31 96 F0 97  |.6...B...6..1...|
00000EE0: 09 4C 05 7D 12 09 56 04  00 09 60 0B 70 23 A9 98  |.L.}..V...`.p#..|
00000EF0: 01 74 09 7B 09 6A 10 82  33 98 98 02 00 01 84 09  |.t.{.j..3.......|
00000F00: 09 51 85 87 09 74 1A 68  03 01 41 0C 09 07 33 16  |.Q...t.h..A...3.|
00000F10: 2F 0C 09 07 33 16 03 01  5D 2F 38 69 7E 98 09 7E  |/...3...]/8i~..~|
00000F20: 15 5F 04 15 C8 CB 0C 09  07 33 16 49 04 19 27 4B  |._.......3.I..'K|
00000F30: 65 66 61 09 88 06 6E 94  98 09 92 10 5F 04 15 C8  |efa...n....._...|
00000F40: CB 0C 09 07 33 16 65 66  61 09 9C 04 6F 09 A6 07  |....3.efa...o...|
00000F50: 8A 33 3F 98 09 B0 0A 5F  04 15 C8 CB 60 61 09 BA  |.3?...._....`a..|
00000F60: 05 7D 23 09 C4 04 00 09  CE 0D 70 37 E8 98 02 72  |.}#.......p7...r|
00000F70: 38 72 39 7C 09 D8 0F E4  02 00 D3 E5 04 38 02 00  |8r9|.........8..|
00000F80: 01 29 E6 09 E2 0F E4 02  00 D6 E5 04 39 02 00 01  |.)..........9...|
00000F90: 29 E6 09 EC 0B E7 01 90  65 6C 00 00 E8 09 F6 05  |).......el......|
00000FA0: 7D 37 14 94 96 00 00 14  B1 96 00 00 12 E9 AF 00  |}7..............|
00000FB0: 00 12 D1 AF 00 00 12 49  AF 00 00 12 44 AF 00 00  |.......I....D...|
00000FC0: 12 BC AE 00 00 12 34 AE  00 00 12 68 AD 00 00 12  |......4....h....|
00000FD0: 63 AD 00 00 12 5E AD 00  00 12 59 AD 00 00 14 81  |c....^....Y.....|
00000FE0: 94 00 00 10 54 AD 00 00  10 4F AD 00 00 10 4A AD  |....T....O....J.|
00000FF0: 00 00 10 45 AD 00 00 14  E1 97 00 00 14 A3 97 00  |...E............|
00001000: 00 10 40 AD 00 00 10 3B  AD 00 00 10 36 AD 00 00  |..@....;....6...|
00001010: 10 31 AD 00 00 14 4F 97  00 00 10 2C AD 00 00 10  |.1....O....,....|
00001020: 27 AD 00 00 10 22 AD 00  00 10 1D AD 00 00 14 24  |'....".........$|
00001030: 95 00 00 10 13 AD 00 00  14 FE 91 00 00 10 0E AD  |................|
00001040: 00 00 10 09 AD 00 00 10  18 AD 00 00 14 34 98 00  |.............4..|
00001050: 00 14 27 97 00 00 00 00  00 00 00 00 00 00 00 00  |..'.............|
00001060: 00 00 00 00 00 15 57 94  00 00 15 2D 94 00 00 00  |......W....-....|
00001070: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00001080: 00 00 00 00 00 00 00 00  00 00 00 00 00 14 62 96  |..............b.|
00001090: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000010A0: 00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000010B0: 14 B2 98 00 00 00 00 00  00 00 00 00 00 00 00 03  |................|
000010C0: 43 4C 52 07 52 45 56 45  52 53 45 09 49 4E 50 55  |CLR.REVERSE.INPU|
000010D0: 54 46 49 4C 45 0A 4F 55  54 50 55 54 46 49 4C 45  |TFILE.OUTPUTFILE|
000010E0: 08 48 45 41 44 4C 49 4E  45 07 48 45 41 44 49 4E  |.HEADLINE.HEADIN|
000010F0: 47 06 4C 49 4E 45 4E 4F  06 53 50 41 43 45 53 04  |G.LINENO.SPACES.|
00001100: 4C 49 4E 45 02 43 48 08  46 4F 52 4D 46 45 45 44  |LINE.CH.FORMFEED|
00001110: 0B 4C 49 4E 45 27 4E 55  4D 42 45 52 05 47 45 54  |.LINE'NUMBER.GET|
00001120: 4E 4F 0B 50 41 47 45 27  4C 45 4E 47 48 54 0B 4C  |NO.PAGE'LENGHT.L|
00001130: 49 4E 45 27 4C 45 4E 47  48 54 0B 4C 45 46 54 27  |INE'LENGHT.LEFT'|
00001140: 4D 41 52 47 49 4E 0B 49  4E 44 45 4E 54 41 54 49  |MARGIN.INDENTATI|
00001150: 4F 4E 05 47 54 53 54 52  05 59 45 53 4E 4F 03 49  |ON.GTSTR.YESNO.I|
00001160: 4E 50 03 4F 55 54 04 4C  4E 4E 4F 0A 4C 4F 57 45  |NP.OUT.LNNO.LOWE|
00001170: 52 27 43 41 53 45 08 49  4F 27 45 52 52 4F 52 06  |R'CASE.IO'ERROR.|
00001180: 4F 46 46 53 45 54 06 49  4E 44 45 4E 54 0B 49 4E  |OFFSET.INDENT.IN|
00001190: 44 45 4E 54 27 4E 45 58  54 0A 50 41 47 45 27 43  |DENT'NEXT.PAGE'C|
000011A0: 4F 55 4E 54 04 50 41 47  45 01 4A 06 53 45 41 52  |OUNT.PAGE.J.SEAR|
000011B0: 43 48 06 4C 45 4E 47 48  54 05 57 49 44 54 48 0A  |CH.LENGHT.WIDTH.|
000011C0: 4C 49 4E 45 27 43 4F 55  4E 54 15 43 4F 4E 56 45  |LINE'COUNT.CONVE|
000011D0: 52 54 27 54 4F 27 4C 4F  57 45 52 27 43 41 53 45  |RT'TO'LOWER'CASE|
000011E0: 04 48 41 4C 54 04 57 4F  52 44 0A 57 4F 52 44 27  |.HALT.WORD.WORD'|
000011F0: 46 4F 55 4E 44 04 45 58  49 54 05 44 49 47 49 54  |FOUND.EXIT.DIGIT|
00001200: 06 4C 45 54 54 45 52 02  4A 27 06 50 52 4F 4D 50  |.LETTER.J'.PROMP|
00001210: 54 05 56 41 4C 55 45 03  4D 49 4E 03 4D 41 58 02  |T.VALUE.MIN.MAX.|
00001220: 4F 4B 04 44 52 41 57 06  4E 55 4D 42 45 52 04 43  |OK.DRAW.NUMBER.C|
00001230: 48 41 52 01 49 06 41 4E  53 57 45 52 05 4C 45 46  |HAR.I.ANSWER.LEF|
00001240: 54 27 06 53 54 52 49 4E  47 06 47 4F 54 4F 58 59  |T'.STRING.GOTOXY|
00001250: 02 53 50 02 5A 45 00 81                           |.SP.ZE..        |

....Q.....SAVE"0:FORMATTER"..........LP:
..(._...KEF..EKEFA.2._...KEF.. TEFA.<...
.DS:..F.... CLEAR SCREEN.P...&FORMATIE
RTER DRUCK VON LIST-PROGRAMMEN..Z._`A.D.
..N.................E. FILES.X.........E
...........E...........E...........E. ..
.....H.E...........E...........E........
...E.H)............<. FILL STRING WITH S
PACES.R....*...    ZEILEN/SEITE : 60...
........'....*...    ZEILENLAENGE : 80.
...............+...    LINKER RAND  : 1
..............).......    EINRUECKUNG  
: 2.............)...)...&...    PROGRAM
MNAME : ...L..........%...    AUSGABEGE
RAET: LP:.......... ...    ZEILENNUMMER
N? N......" ...    KOPFZEILE    ? J....
..,._`A.6...@.H....J-I...J%...    KOPFZ
EILE    : ..(...Q.....T.O.^...H......:..
...:B.R..........J-G$:.|$..D:. USE LOWER
 CASE      LETTERS................ OPEN 
INPUT FILE................... OPEN OUTP
UT FILE....[...LP:..... LINE PRINTER.B..
................L#.....K<.... :B. ASCII 
CONVERSION.V..[...DS..(.. DATA SCREEN...
....................K<.....:B....[.. DIS
K FILE........................K<.... :B
.....&...0......:.  ACTUAL INDENTATION.:
$.....:. INDENTATION FOR NEXT LINE.D...N
......:. FIRST PAGE.X.... SKIP THIS PAG
E.B...L....HKL..... FIRST LINE:.V....]7.
........#.......K(...K(<. ADD TERMINATOR
S........:. SKIP LINE NUMBER......... IS
OLATE FIRST SYMBOL........=.......<B..(Z
..A../....]/8....0123456789'_69G7.C..F..
.P+............)..F.. PART OF A STRUCTUR
E ?.Z......IF......"...THEN.. SHORT OR 
LONG FORM ?........FOR...WHILE..-... ..
.DO.. SHORT OR LONG FORM ?..'.....CASE..
.PROC...FUNC...REPEAT..P.........=. INDE
NT NEXT BLOCK..*.....ELIF...ELSE...OTHER
WISE...WHEN..... %.......4G@. OUTDENT TH
IS LINE ONLY.*-.....ENDFUNC...ENDWHILE..
.UNTIL...NEXT.....4........4G@....:B. OU
TDENT.>......ENDPROC...ENDCASE...ENDIF..
.ENDFOR..R..H........4G@....:B. OUTDENT.
R..... LABEL STATEMENT ?.\0H..........'.
..:...K(-J.....:. NO INDENTATION.F...P..
.Z.....................(<........:. ..Q.
..):B....!....)....$)..):...............
H."..,J......"...=.J.H. .!*J.!. :.T....
._..HK..EF..........$.EFA...H..IR....#.
.......!'...).....NR...._..HK........!'.
..).E`A...O.....$....!=. .!@B...........
....'.<.8...B.Z. ...,....L...V#....:. IN
DENTATION FOR NEXT LINE.`....HKL..... NE
XT LINE.J.....T...~.$........P.$..T%{..
......&D:. WORD NOT FOUND - YET.........
D$.'.&:. WE HAVE TO EXIT AT THE END.N"..
...... -......=.. SKIP SPACES.X....#H...
...."-I... STRING CONSTANT ?......... SK
IP STRING........=..............'...""-.
.....=....Z......."-...........=.(...2$M
...(........-9IC.. REAL NUMBER ?.<...F..
.(......=..P...........-G=.Z...(......=.
.D.H.......E-J.....=.N...X.M...)I... IDE
NTIFIER ?.......H.&7IZ.....*..:. REMEMBE
R START INDEX. ...).(9.......'_69......=
.....&.%...*......).-G:...O.....H.N... E
VERYTHING ELSE.R.H.&J.....=........=...O
.......Z.'.*........}......"..)N..{.,...
.A...../.......]/8..6..).@...J..(X..{.T.
...0...../.......9/8..^..(.H...R.P....T+
U,R-R.|.|.......+..,....../.-.,..,...8G:
...H./7I....._..EINGABE MUSS IN DEM E`A.
.._..BEREICH VONEG.-DF....EF..DG..LIEGEN
!!E`A..._`A.B.O.L.Z./....V.}........P.Y.
.{. PERFORM FORMFEED...7..........9_.. 
 .EF..DF.%. BLATT EINLEGEN UND TASTE DRU
ECKEN!.E`A........K-......7..........<_
.3                                      
             E`A.&.H....J-I=..0$_..HK...
......EF..>>EG..EG..<<EFA.:._..HK.....)C
F..SEITEEG..D`A.D._..HK`A.N.."...:.X.NL.
.B.."...:.L.O.V......=...}........P0...R
1T2|....3.......1.._.2EFA...._`A...}0...
..F.P....{.P._...KEFA.Z.}........P....T.
|.... ..Q...':....3....... .._...KEFA...
._`A..._...KEF.. EF..EF.. E`A. ..3......
. .._...KEFA..*._`A.4.}..>...H.P$F..{.R.
OQ.\...OF PROGRAM//.F.}$.P...Z.P....{...
...<..#H............003I... I/O ERROR ?.
.._`A..........$....O...}..J...T.P.X..
T+W4{.........+..4.....Z....4(...(...J.N
.6......}........P.+..T+R5W6|.....$._.+E
FA....3.......5.._...EFA..8......6...B.Z
.6..1....L.}..V...`.P#...T.{.J..3.......
.Q...T.H..A...3./...3...]/8I~..~._..HK..
.3.I..'KEFA...N....._..HK...3.EFA...O...
.3?...._..HK`A...}#.D...N.P7...R8R9|.X..
..S..8...).......V..9...).......EL......
}7................Q....I....D.........4.
...H....C....^....Y.........T....O....J.
...E..............@....;....6....1....O.
...,....'....".........$................
.............4....'...................W.
...-..................................B.
........................................
........CLR.REVERSE.INPUTFILE.OUTPUTFILE
.HEADLINE.HEADING.LINENO.SPACES.LINE.CH.
FORMFEED.LINE'NUMBER.GETNO.PAGE'LENGHT.L
INE'LENGHT.LEFT'MARGIN.INDENTATION.GTSTR
.YESNO.INP.OUT.LNNO.LOWER'CASE.IO'ERROR.
OFFSET.INDENT.INDENT'NEXT.PAGE'COUNT.PAG
E.J.SEARCH.LENGHT.WIDTH.LINE'COUNT.CONVE
RT'TO'LOWER'CASE.HALT.WORD.WORD'FOUND.EX
IT.DIGIT.LETTER.J'.PROMPT.VALUE.MIN.MAX.
OK.DRAW.NUMBER.CHAR.I.ANSWER.LEFT'.STRIN
G.GOTOXY.SP.ZE..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL