PRECOMPILER
FILE INFORMATION
FILENAME(S): PRECOMPILER
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 01:12:35
APPEARS ON: 3 disk(s)
FILE HASH
a934342a9a563a21d774b1cf34edbdb68c8b9feb4e00b33eeee6d4a8506535d8
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L6 86 12D | PRECOMPILER | PRG | C64er, DuncanTwain | 19 | 6 | DOWNLOAD FILE |
| L6 86 12D | PRECOMPILER | PRG | DuncanTwain | 19 | 6 | DOWNLOAD FILE |
| L6 86 12D | PRECOMPILER | PRG | DuncanTwain | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 01 00 97 32 30 35 33 2C 31 34 33 3A |..$....2053,143:|
00000010: 93 22 50 52 45 43 4F 4D 50 49 4C 45 52 2E 48 22 |."PRECOMPILER.H"|
00000020: 2C 38 2C 31 00 4B 08 0A 00 8F 20 2A 2A 2A 2A 2A |,8,1.K.... *****|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 08 14 00 |***********.r...|
00000050: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 2A 00 99 08 1E 00 8F 20 2A 20 50 52 4F 47 52 | *...... * PROGR|
00000080: 41 4D 4D 3A 20 42 41 53 49 43 2D 50 52 45 43 4F |AMM: BASIC-PRECO|
00000090: 4D 50 49 4C 45 52 20 20 2A 00 C0 08 28 00 8F 20 |MPILER *...(.. |
000000A0: 2A 20 41 55 54 4F 52 20 20 20 3A 20 48 4F 41 4E |* AUTOR : HOAN|
000000B0: 47 2D 54 48 41 49 20 4E 47 55 59 45 4E 20 20 2A |G-THAI NGUYEN *|
000000C0: 00 E7 08 32 00 8F 20 2A 20 41 44 52 45 53 53 45 |...2.. * ADRESSE|
000000D0: 20 3A 20 48 41 4E 53 2D 41 2D 4B 41 4D 50 4D 41 | : HANS-A-KAMPMA|
000000E0: 4E 4E 20 31 32 20 2A 00 0E 09 3C 00 8F 20 2A 20 |NN 12 *...<.. * |
000000F0: 20 20 20 20 20 20 20 20 20 20 33 34 31 38 20 55 | 3418 U|
00000100: 53 4C 41 52 20 31 20 20 20 20 20 20 20 2A 00 35 |SLAR 1 *.5|
00000110: 09 50 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.P.. * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 2A 00 5C 09 5A 00 8F 20 2A 2A 2A 2A | *.\.Z.. ****|
00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 62 09 64 |************.b.d|
00000160: 00 3A 00 86 09 6E 00 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...n.. *******|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 00 AA 09 78 00 8F 20 56 41 52 |******...x.. VAR|
00000190: 49 41 42 4C 45 4E 20 26 20 41 52 52 41 59 53 20 |IABLEN & ARRAYS |
000001A0: 44 45 46 49 4E 49 45 52 45 4E 00 CE 09 82 00 8F |DEFINIEREN......|
000001B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D4 |**************..|
000001D0: 09 8C 00 3A 00 F5 09 96 00 9C 3A 57 4F B2 34 39 |...:......:WO.49|
000001E0: 31 38 33 3A 4C 49 B2 34 39 32 38 36 3A 44 45 B2 |183:LI.49286:DE.|
000001F0: 34 39 34 34 34 00 19 0A A0 00 50 4D 25 B2 35 30 |49444.....PM%.50|
00000200: 30 3A 43 4D 25 B2 31 30 30 3A 4C 4D 25 B2 31 30 |0:CM%.100:LM%.10|
00000210: 30 3A 4D 4D 25 B2 31 30 30 00 4B 0A AA 00 86 50 |0:MM%.100.K....P|
00000220: 24 28 50 4D 25 29 2C 43 53 25 28 43 4D 25 29 2C |$(PM%),CS%(CM%),|
00000230: 4C 54 24 28 4C 4D 25 29 2C 4C 54 25 28 4C 4D 25 |LT$(LM%),LT%(LM%|
00000240: 29 2C 4D 24 28 31 2C 4D 4D 25 29 00 51 0A B4 00 |),M$(1,MM%).Q...|
00000250: 3A 00 65 0A BE 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:.e.... ********|
00000260: 2A 2A 2A 2A 2A 00 79 0A C8 00 8F 20 48 41 55 50 |*****.y.... HAUP|
00000270: 54 50 52 4F 47 52 41 4D 4D 00 8D 0A D2 00 8F 20 |TPROGRAMM...... |
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 0A |*************...|
00000290: DC 00 3A 00 C1 0A E6 00 97 35 33 32 38 30 2C 36 |..:......53280,6|
000002A0: 3A 97 35 33 32 38 31 2C 31 34 3A 97 36 34 36 2C |:.53281,14:.646,|
000002B0: 30 3A 8F 20 46 41 52 42 45 4E 20 53 45 54 5A 45 |0:. FARBEN SETZE|
000002C0: 4E 00 ED 0A F0 00 99 22 93 11 42 41 53 49 43 2D |N......"..BASIC-|
000002D0: 50 52 45 43 4F 4D 50 49 4C 45 52 22 3A 8F 20 54 |PRECOMPILER":. T|
000002E0: 49 54 45 4C 20 41 55 53 47 45 42 45 4E 00 12 0B |ITEL AUSGEBEN...|
000002F0: FA 00 99 22 57 52 49 54 54 45 4E 20 42 59 20 48 |..."WRITTEN BY H|
00000300: 4F 41 4E 47 2D 54 48 41 49 20 4E 47 55 59 45 4E |OANG-THAI NGUYEN|
00000310: 11 22 00 18 0B 04 01 3A 00 45 0B 0E 01 85 22 46 |.".....:.E...."F|
00000320: 49 4C 45 2D 4E 41 4D 45 3A 20 22 3B 57 24 3A 99 |ILE-NAME: ";W$:.|
00000330: 3A 8F 20 46 49 4C 45 2D 4E 41 4D 45 20 41 42 46 |:. FILE-NAME ABF|
00000340: 52 41 47 45 4E 00 62 0B 18 01 8B 57 24 B2 22 2A |RAGEN.b....W$."*|
00000350: 22 A7 80 3A 8F 20 50 52 4F 47 52 41 4D 4D 45 4E |"..:. PROGRAMMEN|
00000360: 44 45 00 68 0B 22 01 3A 00 9F 0B 2C 01 85 22 4E |DE.h.".:...,.."N|
00000370: 55 4D 42 45 52 20 4F 46 20 46 49 52 53 54 20 4C |UMBER OF FIRST L|
00000380: 49 4E 45 3A 20 22 3B 46 25 3A 8F 20 31 2E 5A 45 |INE: ";F%:. 1.ZE|
00000390: 49 4C 45 4E 4E 52 20 41 42 46 52 41 47 45 4E 00 |ILENNR ABFRAGEN.|
000003A0: CD 0B 36 01 8B 46 25 B3 30 B0 C3 28 57 24 29 B1 |..6..F%.0..(W$).|
000003B0: 31 36 A7 32 34 30 3A 8F 20 41 42 46 52 41 47 45 |16.240:. ABFRAGE|
000003C0: 4E 20 57 49 45 44 45 52 48 4F 4C 45 4E 00 D3 0B |N WIEDERHOLEN...|
000003D0: 40 01 3A 00 EE 0B 4A 01 8F 20 2A 2A 2A 2A 2A 2A |@.:...J.. ******|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 09 |**************..|
000003F0: 0C 54 01 8F 20 50 41 52 41 4D 45 54 45 52 20 45 |.T.. PARAMETER E|
00000400: 49 4E 53 54 45 4C 4C 45 4E 00 24 0C 5E 01 8F 20 |INSTELLEN.$.^.. |
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000420: 2A 2A 2A 2A 00 2A 0C 68 01 3A 00 67 0C 72 01 8F |****.*.h.:.g.r..|
00000430: 20 57 45 4E 4E 20 41 53 43 49 49 2C 20 44 41 4E | WENN ASCII, DAN|
00000440: 4E 20 37 36 2C 20 53 4F 4E 53 54 20 28 42 53 43 |N 76, SONST (BSC|
00000450: 29 20 33 32 20 49 4E 20 34 39 35 32 30 20 53 43 |) 32 IN 49520 SC|
00000460: 48 52 45 49 42 45 4E 00 88 0C 7C 01 97 34 39 35 |HREIBEN...|..495|
00000470: 32 30 2C 37 36 3A 8F 20 28 20 42 45 49 20 54 45 |20,76:. ( BEI TE|
00000480: 58 54 4F 4D 41 54 20 29 00 A9 0C 86 01 8F 20 41 |XTOMAT )...... A|
00000490: 53 43 49 49 2D 4B 4F 44 45 20 44 45 52 20 4C 45 |SCII-KODE DER LE|
000004A0: 45 52 5A 45 49 43 48 45 4E 00 C4 0C 90 01 97 34 |ERZEICHEN......4|
000004B0: 39 35 34 34 2C 33 32 3A 8F 20 42 4C 41 4E 4B 2D |9544,32:. BLANK-|
000004C0: 4B 4F 44 45 00 E6 0C 9A 01 97 34 39 35 34 35 2C |KODE......49545,|
000004D0: 31 36 30 3A 8F 20 53 48 49 46 54 2D 42 4C 41 4E |160:. SHIFT-BLAN|
000004E0: 4B 2D 4B 4F 44 45 00 11 0D A4 01 97 34 39 35 34 |K-KODE......4954|
000004F0: 36 2C 31 36 34 3A 8F 20 22 A4 22 2D 4B 4F 44 45 |6,164:. "."-KODE|
00000500: 20 28 20 42 45 49 20 54 45 58 54 4F 4D 41 54 20 | ( BEI TEXTOMAT |
00000510: 29 00 3D 0D AE 01 8F 20 41 53 43 49 49 2D 4B 4F |).=.... ASCII-KO|
00000520: 44 45 20 44 45 53 20 45 4E 44 5A 45 49 43 48 45 |DE DES ENDZEICHE|
00000530: 4E 20 45 49 4E 45 52 20 5A 45 49 4C 45 00 67 0D |N EINER ZEILE.g.|
00000540: B8 01 97 34 39 33 34 30 2C 39 35 3A 8F 20 22 5F |...49340,95:. "_|
00000550: 22 2D 4B 4F 44 45 20 28 20 42 45 49 20 54 45 58 |"-KODE ( BEI TEX|
00000560: 54 4F 4D 41 54 20 29 00 6D 0D C2 01 3A 00 8B 0D |TOMAT ).m...:...|
00000570: CC 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A9 0D D6 01 |***********.....|
00000590: 8F 20 46 49 4C 45 20 4F 50 45 4E 20 26 20 43 4F |. FILE OPEN & CO|
000005A0: 4D 50 49 4C 49 45 52 45 4E 00 C7 0D E0 01 8F 20 |MPILIEREN...... |
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 2A 2A 2A 2A 2A 2A 00 CD 0D EA 01 3A 00 EE 0D |*******.....:...|
000005D0: F4 01 9F 32 2C 38 2C 32 2C 57 24 AA 22 2C 50 2C |...2,8,2,W$.",P,|
000005E0: 52 22 3A 8F 20 46 49 4C 45 20 4F 50 45 4E 00 19 |R":. FILE OPEN..|
000005F0: 0E FE 01 A1 23 32 2C 57 24 3A A1 23 32 2C 57 24 |....#2,W$:.#2,W$|
00000600: 3A 8F 20 50 52 47 2D 41 44 52 45 53 53 45 20 55 |:. PRG-ADRESSE U|
00000610: 45 42 45 52 4C 45 53 45 4E 00 3A 0E 08 02 8B 53 |EBERLESEN.:....S|
00000620: 54 B3 B1 30 A7 A0 32 3A 80 3A 8F 20 46 49 4C 45 |T..0..2:.:. FILE|
00000630: 20 4E 4F 54 20 46 4F 55 4E 44 00 40 0E 12 02 3A | NOT FOUND.@...:|
00000640: 00 69 0E 1C 02 99 22 11 50 41 53 53 20 31 20 49 |.i....".PASS 1 I|
00000650: 4E 20 50 52 4F 47 52 45 53 53 22 3A 8D 39 31 30 |N PROGRESS":.910|
00000660: 3A 8F 20 50 41 53 53 20 31 00 82 0E 26 02 A0 32 |:. PASS 1...&..2|
00000670: 3A 8F 20 46 49 4C 45 20 53 43 48 4C 49 45 53 53 |:. FILE SCHLIESS|
00000680: 45 4E 00 88 0E 30 02 3A 00 BC 0E 3A 02 8B 50 24 |EN...0.:...:..P$|
00000690: 28 5A 25 29 B3 B1 22 45 4E 44 50 52 4F 47 52 41 |(Z%).."ENDPROGRA|
000006A0: 4D 22 A7 35 30 30 3A 8F 20 4E 41 45 43 48 54 45 |M".500:. NAECHTE|
000006B0: 53 20 46 49 4C 45 20 4C 45 53 45 4E 00 C2 0E 44 |S FILE LESEN...D|
000006C0: 02 3A 00 E8 0E 4E 02 43 25 B2 43 25 AB 31 3A 8B |.:...N.C%.C%.1:.|
000006D0: 43 25 B3 30 A7 36 36 30 3A 8F 20 53 54 41 43 4B |C%.0.660:. STACK|
000006E0: 5A 45 49 47 45 52 3D 30 00 EE 0E 58 02 3A 00 21 |ZEIGER=0...X.:.!|
000006F0: 0F 62 02 99 22 53 54 41 43 4B 20 50 4F 49 4E 54 |.b.."STACK POINT|
00000700: 45 52 20 3D 22 3B 43 25 AA 31 3A 8F 20 53 54 41 |ER =";C%.1:. STA|
00000710: 43 4B 5A 45 49 47 45 52 20 41 55 53 47 45 42 45 |CKZEIGER AUSGEBE|
00000720: 4E 00 4A 0F 6C 02 8B 28 43 53 25 28 43 25 29 AF |N.J.l..(CS%(C%).|
00000730: 32 34 35 37 36 29 B2 38 31 39 32 A7 99 22 52 45 |24576).8192.."RE|
00000740: 50 45 41 54 2E 2E 3F 22 3A 80 00 77 0F 76 02 8B |PEAT..?":..w.v..|
00000750: 28 43 53 25 28 43 25 29 AF 32 34 35 37 36 29 B2 |(CS%(C%).24576).|
00000760: 31 36 33 38 34 A7 99 22 57 48 49 4C 45 2E 2E 44 |16384.."WHILE..D|
00000770: 4F 2E 2E 3F 22 3A 80 00 92 0F 80 02 99 22 49 46 |O..?":......."IF|
00000780: 2E 2E 54 48 45 4E 2E 2E 45 4C 53 45 2E 2E 3F 22 |..THEN..ELSE..?"|
00000790: 3A 80 00 98 0F 8A 02 3A 00 C2 0F 94 02 99 22 50 |:......:......"P|
000007A0: 41 53 53 20 32 20 49 4E 20 50 52 4F 47 52 45 53 |ASS 2 IN PROGRES|
000007B0: 53 11 22 3A 8D 32 36 35 30 3A 8F 20 50 41 53 53 |S.":.2650:. PASS|
000007C0: 20 32 00 EB 0F 9E 02 97 31 30 32 34 2C 33 32 3A | 2......1024,32:|
000007D0: 8F 20 4C 49 4E 4B 45 20 4F 42 45 52 45 20 45 43 |. LINKE OBERE EC|
000007E0: 4B 45 20 4C 4F 45 53 43 48 45 4E 00 F1 0F A8 02 |KE LOESCHEN.....|
000007F0: 3A 00 10 10 B2 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000810: 00 2F 10 BC 02 8F 20 4F 42 4A 2D 50 52 4F 47 52 |./.... OBJ-PROGR|
00000820: 41 4D 4D 20 41 42 53 50 45 49 43 48 45 52 4E 00 |AMM ABSPEICHERN.|
00000830: 4E 10 C6 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |N.... **********|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 |**************.T|
00000850: 10 D0 02 3A 00 85 10 DA 02 85 22 50 52 4F 47 52 |...:......"PROGR|
00000860: 41 4D 2D 4E 41 4D 45 3A 20 22 3B 57 24 3A 8F 20 |AM-NAME: ";W$:. |
00000870: 50 52 4F 47 52 41 4D 4D 4E 41 4D 45 20 41 42 46 |PROGRAMMNAME ABF|
00000880: 52 41 47 45 4E 00 A2 10 E4 02 8B 57 24 B2 22 2A |RAGEN......W$."*|
00000890: 22 A7 80 3A 8F 20 50 52 4F 47 52 41 4D 4D 45 4E |"..:. PROGRAMMEN|
000008A0: 44 45 00 CB 10 EE 02 8B C3 28 57 24 29 B1 31 36 |DE.......(W$).16|
000008B0: A7 37 33 30 3A 8F 20 50 52 4F 47 52 41 4D 4D 4E |.730:. PROGRAMMN|
000008C0: 41 4D 45 20 5A 55 20 4C 41 4E 47 00 F6 10 F8 02 |AME ZU LANG.....|
000008D0: 99 22 11 57 52 49 54 49 4E 47 20 22 3B 57 24 3A |.".WRITING ";W$:|
000008E0: 8F 20 50 52 4F 47 52 41 4D 4D 20 41 42 53 50 45 |. PROGRAMM ABSPE|
000008F0: 49 43 48 45 52 4E 00 17 11 02 03 9F 31 2C 38 2C |ICHERN......1,8,|
00000900: 31 2C 57 24 AA 22 2C 50 2C 57 22 3A 8F 20 46 49 |1,W$.",P,W":. FI|
00000910: 4C 45 20 4F 50 45 4E 00 4C 11 0C 03 98 31 2C C7 |LE OPEN.L....1,.|
00000920: 28 31 29 3B C7 28 38 29 3B 3A 8F 20 50 52 4F 47 |(1);.(8);:. PROG|
00000930: 52 41 4D 4D 41 4E 46 41 4E 47 53 41 44 52 45 53 |RAMMANFANGSADRES|
00000940: 53 45 20 53 43 48 52 45 49 42 45 4E 00 6A 11 16 |SE SCHREIBEN.j..|
00000950: 03 5A 25 B2 30 3A 8F 20 41 55 46 20 31 2E 5A 45 |.Z%.0:. AUF 1.ZE|
00000960: 49 4C 45 20 5A 45 49 47 45 4E 00 88 11 20 03 8F |ILE ZEIGEN... ..|
00000970: 20 50 52 4F 47 52 41 4D 4D 5A 45 49 4C 45 20 53 | PROGRAMMZEILE S|
00000980: 43 48 52 45 49 42 45 4E 00 BA 11 2A 03 8B 50 24 |CHREIBEN...*..P$|
00000990: 28 5A 25 29 B3 B1 22 45 4E 44 50 52 4F 47 52 41 |(Z%).."ENDPROGRA|
000009A0: 4D 22 A7 98 31 2C 50 24 28 5A 25 29 3B 3A 5A 25 |M"..1,P$(Z%);:Z%|
000009B0: B2 5A 25 AA 31 3A 89 38 31 30 00 C0 11 34 03 3A |.Z%.1:.810...4.:|
000009C0: 00 D3 11 3E 03 8F 20 50 52 4F 47 52 41 4D 4D 45 |...>.. PROGRAMME|
000009D0: 4E 44 45 00 EA 11 48 03 98 31 2C C7 28 30 29 3B |NDE...H..1,.(0);|
000009E0: C7 28 30 29 3B 3A A0 31 3A 80 00 F0 11 52 03 3A |.(0);:.1:....R.:|
000009F0: 00 0F 12 5C 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...\.. *********|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000A10: 2E 12 66 03 8F 20 3E 3E 3E 3E 20 55 4E 54 45 52 |..f.. >>>> UNTER|
00000A20: 50 52 4F 47 52 41 4D 4D 45 20 3C 3C 3C 3C 00 4D |PROGRAMME <<<<.M|
00000A30: 12 70 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.p.. ***********|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 53 12 |*************.S.|
00000A50: 7A 03 3A 00 65 12 84 03 8F 20 2A 2A 2A 2A 2A 2A |z.:.e.... ******|
00000A60: 2A 2A 2A 2A 2A 00 77 12 8E 03 8F 20 44 55 52 43 |*****.w.... DURC|
00000A70: 48 4C 41 55 46 20 31 00 89 12 98 03 8F 20 2A 2A |HLAUF 1...... **|
00000A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 12 A2 03 3A 00 |*********.....:.|
00000A90: BB 12 AC 03 97 31 30 32 34 2C 5A 25 AF 32 35 35 |.....1024,Z%.255|
00000AA0: 3A 9E 4C 49 2C 5A 24 3A 54 24 B2 5A 24 3A 8F 20 |:.LI,Z$:T$.Z$:. |
00000AB0: 5A 45 49 4C 45 20 4C 45 53 45 4E 00 C1 12 B6 03 |ZEILE LESEN.....|
00000AC0: 3A 00 DC 12 C0 03 8B 5A 24 B3 B1 22 45 4E 44 50 |:......Z$.."ENDP|
00000AD0: 52 4F 47 52 41 4D 22 A7 31 30 31 30 00 E2 12 CA |ROGRAM".1010....|
00000AE0: 03 3A 00 FF 12 D4 03 8F 20 45 4E 44 45 20 44 45 |.:...... ENDE DE|
00000AF0: 53 20 31 2E 44 55 52 43 48 4C 41 55 46 45 4E 00 |S 1.DURCHLAUFEN.|
00000B00: 24 13 DE 03 50 24 28 5A 25 29 B2 5A 24 3A 8E 3A |$...P$(Z%).Z$:.:|
00000B10: 8F 20 45 4E 44 45 20 31 2E 44 55 52 43 48 4C 41 |. ENDE 1.DURCHLA|
00000B20: 55 46 45 4E 00 2A 13 E8 03 3A 00 41 13 F2 03 8B |UFEN.*...:.A....|
00000B30: C8 28 5A 24 2C 31 29 B3 B1 22 23 22 A7 31 31 32 |.(Z$,1).."#".112|
00000B40: 30 00 47 13 FC 03 3A 00 5E 13 06 04 8F 20 4C 41 |0.G...:.^.... LA|
00000B50: 42 45 4C 20 44 45 46 49 4E 49 45 52 45 4E 00 88 |BEL DEFINIEREN..|
00000B60: 13 10 04 8B 4C 25 B1 4C 4D 25 A7 43 25 B2 31 3A |....L%.LM%.C%.1:|
00000B70: 89 33 31 32 30 3A 8F 20 54 41 42 45 4C 4C 45 20 |.3120:. TABELLE |
00000B80: 49 53 54 20 56 4F 4C 4C 00 B5 13 1A 04 5A 24 B2 |IST VOLL.....Z$.|
00000B90: C9 28 5A 24 2C C3 28 5A 24 29 AB 31 29 3A 8F 20 |.(Z$,.(Z$).1):. |
00000BA0: 31 2E 5A 45 49 43 48 45 4E 20 45 4C 49 4D 49 4E |1.ZEICHEN ELIMIN|
00000BB0: 49 45 52 45 4E 00 D1 13 24 04 9E 57 4F 2C 57 24 |IEREN...$..WO,W$|
00000BC0: 2C 5A 24 3A 8F 20 4C 41 42 45 4C 20 49 4E 20 57 |,Z$:. LABEL IN W|
00000BD0: 24 00 E7 13 2E 04 8B 57 24 B2 22 22 A7 43 25 B2 |$......W$."".C%.|
00000BE0: 33 3A 89 33 31 32 30 00 1A 14 38 04 8D 32 39 34 |3:.3120...8..294|
00000BF0: 30 3A 8F 20 50 52 55 45 46 45 4E 20 4F 42 20 4C |0:. PRUEFEN OB L|
00000C00: 41 42 45 4C 20 53 43 48 4F 4E 20 44 45 46 49 4E |ABEL SCHON DEFIN|
00000C10: 49 45 52 54 20 57 55 52 44 45 00 49 14 42 04 8B |IERT WURDE.I.B..|
00000C20: 49 B1 B2 30 A7 43 25 B2 31 33 30 3A 89 33 31 32 |I..0.C%.130:.312|
00000C30: 30 3A 8F 20 4C 41 42 45 4C 20 53 43 48 4F 4E 20 |0:. LABEL SCHON |
00000C40: 44 45 46 49 4E 49 45 52 54 00 80 14 4C 04 4C 54 |DEFINIERT...L.LT|
00000C50: 24 28 4C 25 29 B2 57 24 3A 4C 54 25 28 4C 25 29 |$(L%).W$:LT%(L%)|
00000C60: B2 46 25 AA 5A 25 3A 4C 25 B2 4C 25 AA 31 3A 8F |.F%.Z%:L%.L%.1:.|
00000C70: 20 4C 41 42 45 4C 20 45 49 4E 54 52 41 47 45 4E | LABEL EINTRAGEN|
00000C80: 00 86 14 56 04 3A 00 9D 14 60 04 8B C8 28 5A 24 |...V.:...`...(Z$|
00000C90: 2C 31 29 B3 B1 22 40 22 A7 31 32 35 30 00 A3 14 |,1).."@".1250...|
00000CA0: 6A 04 3A 00 BA 14 74 04 8F 20 4D 41 43 52 4F 2D |j.:...t.. MACRO-|
00000CB0: 44 45 46 49 4E 49 54 49 4F 4E 00 E4 14 7E 04 8B |DEFINITION...~..|
00000CC0: 4D 25 B1 4D 4D 25 A7 43 25 B2 34 3A 89 33 31 32 |M%.MM%.C%.4:.312|
00000CD0: 30 3A 8F 20 54 41 42 45 4C 4C 45 20 49 53 54 20 |0:. TABELLE IST |
00000CE0: 56 4F 4C 4C 00 11 15 88 04 5A 24 B2 C9 28 5A 24 |VOLL.....Z$..(Z$|
00000CF0: 2C C3 28 5A 24 29 AB 31 29 3A 8F 20 31 2E 5A 45 |,.(Z$).1):. 1.ZE|
00000D00: 49 43 48 45 4E 20 45 4C 49 4D 49 4E 49 45 52 45 |ICHEN ELIMINIERE|
00000D10: 4E 00 32 15 92 04 9E 57 4F 2C 57 24 2C 5A 24 3A |N.2....WO,W$,Z$:|
00000D20: 8F 20 4D 41 43 52 4F 2D 4E 41 4D 45 20 49 4E 20 |. MACRO-NAME IN |
00000D30: 57 24 00 48 15 9C 04 8B 57 24 B2 22 22 A7 43 25 |W$.H....W$."".C%|
00000D40: B2 35 3A 89 33 31 32 30 00 68 15 A6 04 8D 33 30 |.5:.3120.h....30|
00000D50: 33 30 3A 8F 20 49 53 54 20 4D 41 43 52 4F 20 44 |30:. IST MACRO D|
00000D60: 45 46 49 4E 49 45 52 54 00 97 15 B0 04 8B 49 B1 |EFINIERT......I.|
00000D70: B2 30 A7 43 25 B2 31 33 34 3A 89 33 31 32 30 3A |.0.C%.134:.3120:|
00000D80: 8F 20 4D 41 43 52 4F 20 53 43 48 4F 4E 20 44 45 |. MACRO SCHON DE|
00000D90: 46 49 4E 49 45 52 54 00 BC 15 BA 04 8B 5A 24 B2 |FINIERT......Z$.|
00000DA0: 22 22 A7 43 25 B2 31 33 35 3A 89 33 31 32 30 3A |"".C%.135:.3120:|
00000DB0: 8F 20 5A 45 49 4C 45 20 4C 45 45 52 00 EA 15 C4 |. ZEILE LEER....|
00000DC0: 04 4D 24 28 30 2C 4D 25 29 B2 57 24 3A 4D 24 28 |.M$(0,M%).W$:M$(|
00000DD0: 31 2C 4D 25 29 B2 5A 24 3A 8F 20 4D 41 43 52 4F |1,M%).Z$:. MACRO|
00000DE0: 20 45 49 4E 54 52 41 47 45 4E 00 0C 16 CE 04 4D | EINTRAGEN.....M|
00000DF0: 25 B2 4D 25 AA 31 3A 8F 20 5A 45 49 4C 45 20 57 |%.M%.1:. ZEILE W|
00000E00: 45 49 54 45 52 50 52 55 45 46 45 4E 00 12 16 D8 |EITERPRUEFEN....|
00000E10: 04 3A 00 29 16 E2 04 8B C8 28 5A 24 2C 31 29 B3 |.:.).....(Z$,1).|
00000E20: B1 22 21 22 A7 31 33 35 30 00 2F 16 EC 04 3A 00 |."!".1350./...:.|
00000E30: 42 16 F6 04 8F 20 4D 41 43 52 4F 2D 41 55 46 52 |B.... MACRO-AUFR|
00000E40: 55 46 00 6F 16 00 05 5A 24 B2 C9 28 5A 24 2C C3 |UF.o...Z$..(Z$,.|
00000E50: 28 5A 24 29 AB 31 29 3A 8F 20 31 2E 5A 45 49 43 |(Z$).1):. 1.ZEIC|
00000E60: 48 45 4E 20 45 4C 49 4D 49 4E 49 45 52 45 4E 00 |HEN ELIMINIEREN.|
00000E70: 90 16 0A 05 9E 57 4F 2C 57 24 2C 5A 24 3A 8F 20 |.....WO,W$,Z$:. |
00000E80: 4D 41 43 52 4F 2D 4E 41 4D 45 20 49 4E 20 57 24 |MACRO-NAME IN W$|
00000E90: 00 A6 16 14 05 8B 57 24 B2 22 22 A7 43 25 B2 38 |......W$."".C%.8|
00000EA0: 3A 89 33 31 32 30 00 C4 16 1E 05 8D 33 30 33 30 |:.3120......3030|
00000EB0: 3A 8F 20 49 4E 20 54 41 42 45 4C 4C 45 20 53 55 |:. IN TABELLE SU|
00000EC0: 43 48 45 4E 00 F2 16 28 05 8B 49 B3 30 A7 43 25 |CHEN...(..I.0.C%|
00000ED0: B2 31 33 37 3A 89 33 31 32 30 3A 8F 20 4D 41 43 |.137:.3120:. MAC|
00000EE0: 52 4F 20 4E 49 43 48 54 20 44 45 46 49 4E 49 45 |RO NICHT DEFINIE|
00000EF0: 52 54 00 1E 17 32 05 5A 24 B2 4D 24 28 31 2C 49 |RT...2.Z$.M$(1,I|
00000F00: 29 AA 5A 24 3A 54 24 B2 5A 24 3A 8F 20 4D 41 43 |).Z$:T$.Z$:. MAC|
00000F10: 52 4F 2D 5A 45 49 4C 45 20 49 4E 20 5A 24 00 24 |RO-ZEILE IN Z$.$|
00000F20: 17 3C 05 3A 00 3B 17 46 05 8B C8 28 5A 24 2C 31 |.<.:.;.F...(Z$,1|
00000F30: 29 B3 B1 22 5C 22 A7 31 34 33 30 00 41 17 50 05 |).."\".1430.A.P.|
00000F40: 3A 00 5B 17 5A 05 8F 20 54 45 58 54 46 49 4C 45 |:.[.Z.. TEXTFILE|
00000F50: 53 20 56 45 52 4B 45 54 54 45 4E 00 82 17 64 05 |S VERKETTEN...d.|
00000F60: 57 24 B2 C9 28 5A 24 2C C3 28 5A 24 29 AB 31 29 |W$..(Z$,.(Z$).1)|
00000F70: 3A 8F 20 46 49 4C 45 2D 4E 41 4D 45 20 49 4E 20 |:. FILE-NAME IN |
00000F80: 57 24 00 99 17 6E 05 8B 57 24 B2 22 22 A7 43 25 |W$...n..W$."".C%|
00000F90: B2 32 33 3A 89 33 31 32 30 00 B3 17 78 05 8B C3 |.23:.3120...x...|
00000FA0: 28 57 24 29 B1 31 36 A7 43 25 B2 32 34 3A 89 33 |(W$).16.C%.24:.3|
00000FB0: 31 32 30 00 C0 17 82 05 8E 3A 8F 20 45 4E 44 45 |120......:. ENDE|
00000FC0: 00 C6 17 8C 05 3A 00 E6 17 96 05 8B 5A 24 B2 22 |.....:......Z$."|
00000FD0: 22 A7 39 34 30 3A 8F 20 4E 41 45 43 48 53 54 45 |".940:. NAECHSTE|
00000FE0: 20 5A 45 49 4C 45 00 01 18 A0 05 9E 57 4F 2C 57 | ZEILE......WO,W|
00000FF0: 24 2C 5A 24 3A 8F 20 57 4F 52 54 20 49 4E 20 57 |$,Z$:. WORT IN W|
00001000: 24 00 37 18 AA 05 8B 57 24 B2 22 3A 22 AF C3 28 |$.7....W$.":"..(|
00001010: 50 24 28 5A 25 29 29 B2 30 A7 31 34 33 30 3A 8F |P$(Z%)).0.1430:.|
00001020: 20 44 4F 50 50 45 4C 50 55 4E 4B 54 20 55 45 42 | DOPPELPUNKT UEB|
00001030: 45 52 4C 45 53 45 4E 00 73 18 B4 05 8B 57 24 B2 |ERLESEN.s....W$.|
00001040: 22 3A 22 AF C9 28 50 24 28 5A 25 29 2C 31 29 B2 |":"..(P$(Z%),1).|
00001050: 22 3A 22 A7 31 34 33 30 3A 8F 20 32 2E 44 4F 50 |":".1430:. 2.DOP|
00001060: 50 45 4C 50 55 4E 4B 54 20 55 45 42 45 52 4C 45 |PELPUNKT UEBERLE|
00001070: 53 45 4E 00 79 18 BE 05 3A 00 90 18 C8 05 8B 57 |SEN.y...:......W|
00001080: 24 B3 B1 22 52 45 50 45 41 54 22 A7 31 35 36 30 |$.."REPEAT".1560|
00001090: 00 96 18 D2 05 3A 00 A3 18 DC 05 8F 20 52 45 50 |.....:...... REP|
000010A0: 45 41 54 00 CC 18 E6 05 8B 43 25 B1 43 4D 25 A7 |EAT......C%.CM%.|
000010B0: 43 25 B2 31 30 3A 89 33 31 32 30 3A 8F 20 53 54 |C%.10:.3120:. ST|
000010C0: 41 43 4B 20 49 53 54 20 56 4F 4C 4C 00 FB 18 F0 |ACK IST VOLL....|
000010D0: 05 8B 50 24 28 5A 25 29 B3 B1 22 22 A7 5A 25 B2 |..P$(Z%).."".Z%.|
000010E0: 5A 25 AA 31 3A 8F 20 5A 45 49 4C 45 20 49 4E 4B |Z%.1:. ZEILE INK|
000010F0: 52 45 4D 45 4E 54 49 45 52 45 4E 00 2C 19 FA 05 |REMENTIEREN.,...|
00001100: 43 53 25 28 43 25 29 B2 5A 25 B0 38 31 39 32 3A |CS%(C%).Z%.8192:|
00001110: 43 25 B2 43 25 AA 31 3A 8F 20 5A 45 49 4C 45 4E |C%.C%.1:. ZEILEN|
00001120: 4E 52 20 45 49 4E 54 52 41 47 45 4E 00 47 19 04 |NR EINTRAGEN.G..|
00001130: 06 89 31 34 33 30 3A 8F 20 4E 41 45 43 48 53 54 |..1430:. NAECHST|
00001140: 45 53 20 57 4F 52 54 00 4D 19 0E 06 3A 00 66 19 |ES WORT.M...:.f.|
00001150: 18 06 8B 57 24 B3 B1 22 45 4E 44 57 48 49 4C 45 |...W$.."ENDWHILE|
00001160: 22 A7 31 36 36 30 00 6C 19 22 06 3A 00 7B 19 2C |".1660.l.".:.{.,|
00001170: 06 8F 20 45 4E 44 57 48 49 4C 45 00 99 19 36 06 |.. ENDWHILE...6.|
00001180: 43 25 B2 43 25 AB 31 3A 8B 43 25 B3 30 A7 43 25 |C%.C%.1:.C%.0.C%|
00001190: B2 31 31 3A 89 33 31 32 30 00 C1 19 40 06 8B 28 |.11:.3120...@..(|
000011A0: 43 53 25 28 43 25 29 AF 32 34 35 37 36 29 B3 B1 |CS%(C%).24576)..|
000011B0: 31 36 33 38 34 A7 43 25 B2 31 31 3A 89 33 31 32 |16384.C%.11:.312|
000011C0: 30 00 00 1A 4A 06 49 B2 43 53 25 28 43 25 29 AF |0...J.I.CS%(C%).|
000011D0: 38 31 39 31 3A 50 24 28 49 29 B2 50 24 28 49 29 |8191:P$(I).P$(I)|
000011E0: AA C4 28 46 25 AA 5A 25 AA 31 29 3A 8F 20 53 50 |..(F%.Z%.1):. SP|
000011F0: 52 55 4E 47 5A 45 49 4C 45 20 53 45 54 5A 45 4E |RUNGZEILE SETZEN|
00001200: 00 27 1A 54 06 8B 5A 25 B1 50 4D 25 A7 43 25 B2 |.'.T..Z%.PM%.C%.|
00001210: 31 32 3A 89 33 31 32 30 3A 8F 20 54 45 58 54 20 |12:.3120:. TEXT |
00001220: 5A 55 20 4C 41 4E 47 00 55 1A 5E 06 50 24 28 5A |ZU LANG.U.^.P$(Z|
00001230: 25 29 B2 22 47 CF 22 AA C4 28 46 25 AA 49 29 3A |%)."G."..(F%.I):|
00001240: 8F 20 53 43 48 4C 45 49 46 45 20 46 4F 52 54 53 |. SCHLEIFE FORTS|
00001250: 45 54 5A 45 4E 00 78 1A 68 06 5A 25 B2 5A 25 AA |ETZEN.x.h.Z%.Z%.|
00001260: 31 3A 89 31 34 33 30 3A 8F 20 4E 41 45 43 48 53 |1:.1430:. NAECHS|
00001270: 54 45 53 20 57 4F 52 54 00 7E 1A 72 06 3A 00 94 |TES WORT.~.r.:..|
00001280: 1A 7C 06 8B 57 24 B3 B1 22 45 4E 44 49 46 22 A7 |.|..W$.."ENDIF".|
00001290: 31 37 34 30 00 9A 1A 86 06 3A 00 A6 1A 90 06 8F |1740.....:......|
000012A0: 20 45 4E 44 49 46 00 C4 1A 9A 06 43 25 B2 43 25 | ENDIF.....C%.C%|
000012B0: AB 31 3A 8B 43 25 B3 30 A7 43 25 B2 31 33 3A 89 |.1:.C%.0.C%.13:.|
000012C0: 33 31 32 30 00 E2 1A A4 06 8B 43 53 25 28 43 25 |3120......CS%(C%|
000012D0: 29 B1 38 31 39 31 A7 43 25 B2 31 33 3A 89 33 31 |).8191.C%.13:.31|
000012E0: 32 30 00 1A 1B AE 06 49 B2 43 53 25 28 43 25 29 |20.....I.CS%(C%)|
000012F0: 3A 50 24 28 49 29 B2 50 24 28 49 29 AA C4 28 46 |:P$(I).P$(I)..(F|
00001300: 25 AA 5A 25 29 3A 8F 20 53 50 52 55 4E 47 5A 45 |%.Z%):. SPRUNGZE|
00001310: 49 4C 45 20 53 45 54 5A 45 4E 00 35 1B B8 06 89 |ILE SETZEN.5....|
00001320: 31 34 33 30 3A 8F 20 4E 41 45 43 48 53 54 45 53 |1430:. NAECHSTES|
00001330: 20 57 4F 52 54 00 3B 1B C2 06 3A 00 50 1B CC 06 | WORT.;...:.P...|
00001340: 8B 57 24 B3 B1 22 43 41 53 45 22 A7 31 39 31 30 |.W$.."CASE".1910|
00001350: 00 56 1B D6 06 3A 00 6A 1B E0 06 8F 20 43 41 53 |.V...:.j.... CAS|
00001360: 45 2E 2E 45 4E 44 43 41 53 45 00 87 1B EA 06 49 |E..ENDCASE.....I|
00001370: B2 5A 25 3A 8F 20 43 41 53 45 2D 5A 45 49 4C 45 |.Z%:. CASE-ZEILE|
00001380: 20 4D 45 52 4B 45 4E 00 A0 1B F4 06 9E 4C 49 2C | MERKEN......LI,|
00001390: 5A 24 3A 8F 20 5A 45 49 4C 45 20 4C 45 53 45 4E |Z$:. ZEILE LESEN|
000013A0: 00 C9 1B FE 06 9E 57 4F 2C 57 24 2C 5A 24 3A 8F |......WO,W$,Z$:.|
000013B0: 20 4B 4F 4E 44 49 54 49 4F 4E 53 41 55 53 44 52 | KONDITIONSAUSDR|
000013C0: 55 43 4B 20 49 4E 20 57 24 00 E1 1B 08 07 8B 5A |UCK IN W$......Z|
000013D0: 25 B1 50 4D 25 A7 43 25 B2 31 32 3A 89 33 31 32 |%.PM%.C%.12:.312|
000013E0: 30 00 10 1C 12 07 50 24 28 5A 25 29 B2 22 49 46 |0.....P$(Z%)."IF|
000013F0: 22 AA 57 24 AA 22 54 48 45 4E 20 22 3A 8F 20 4B |".W$."THEN ":. K|
00001400: 4F 4E 44 49 54 49 4F 4E 53 41 42 46 52 41 47 45 |ONDITIONSABFRAGE|
00001410: 00 47 1C 1C 07 9E 57 4F 2C 57 24 2C 5A 24 3A 8B |.G....WO,W$,Z$:.|
00001420: 57 24 B3 B1 22 52 45 4D 22 B0 57 24 B3 B1 22 22 |W$.."REM".W$..""|
00001430: A7 50 24 28 5A 25 29 B2 50 24 28 5A 25 29 AA 57 |.P$(Z%).P$(Z%).W|
00001440: 24 3A 89 31 38 32 30 00 68 1C 26 07 5A 25 B2 5A |$:.1820.h.&.Z%.Z|
00001450: 25 AA 31 3A 9E 4C 49 2C 5A 24 3A 8F 20 5A 45 49 |%.1:.LI,Z$:. ZEI|
00001460: 4C 45 20 4C 45 53 45 4E 00 7F 1C 30 07 8B 5A 24 |LE LESEN...0..Z$|
00001470: B2 22 45 4E 44 43 41 53 45 22 A7 31 38 38 30 00 |."ENDCASE".1880.|
00001480: B2 1C 3A 07 50 24 28 5A 25 AB 31 29 B2 50 24 28 |..:.P$(Z%.1).P$(|
00001490: 5A 25 AB 31 29 AA 22 3A 47 CF 22 3A 89 31 37 39 |Z%.1).":G.":.179|
000014A0: 30 3A 8F 20 4E 41 45 43 48 53 54 45 20 5A 45 49 |0:. NAECHSTE ZEI|
000014B0: 4C 45 00 B8 1C 44 07 3A 00 C6 1C 4E 07 8F 20 45 |LE...D.:...N.. E|
000014C0: 4E 44 43 41 53 45 00 F9 1C 58 07 57 24 B2 C4 28 |NDCASE...X.W$..(|
000014D0: 46 25 AA 5A 25 29 3A 8B 5A 25 B1 49 AA 31 A7 81 |F%.Z%):.Z%.I.1..|
000014E0: 49 B2 49 A4 5A 25 AB 32 3A 50 24 28 49 29 B2 50 |I.I.Z%.2:P$(I).P|
000014F0: 24 28 49 29 AA 57 24 3A 82 00 1E 1D 62 07 9E 57 |$(I).W$:....b..W|
00001500: 4F 2C 57 24 2C 5A 24 3A 89 31 34 33 30 3A 8F 20 |O,W$,Z$:.1430:. |
00001510: 4E 41 45 43 48 53 54 45 53 20 57 4F 52 54 00 24 |NAECHSTES WORT.$|
00001520: 1D 6C 07 3A 00 3A 1D 76 07 8B 57 24 B3 B1 22 55 |.l.:.:.v..W$.."U|
00001530: 4E 54 49 4C 22 A7 32 30 32 30 00 40 1D 80 07 3A |NTIL".2020.@...:|
00001540: 00 4C 1D 8A 07 8F 20 55 4E 54 49 4C 00 6A 1D 94 |.L.... UNTIL.j..|
00001550: 07 43 25 B2 43 25 AB 31 3A 8B 43 25 B3 30 A7 43 |.C%.C%.1:.C%.0.C|
00001560: 25 B2 31 34 3A 89 33 31 32 30 00 91 1D 9E 07 8B |%.14:.3120......|
00001570: 28 43 53 25 28 43 25 29 AF 32 34 35 37 36 29 B3 |(CS%(C%).24576).|
00001580: B1 38 31 39 32 A7 43 25 B2 31 34 3A 89 33 31 32 |.8192.C%.14:.312|
00001590: 30 00 A9 1D A8 07 8B 5A 25 B1 50 4D 25 A7 43 25 |0......Z%.PM%.C%|
000015A0: B2 31 32 3A 89 33 31 32 30 00 D2 1D B2 07 9E 57 |.12:.3120......W|
000015B0: 4F 2C 57 24 2C 5A 24 3A 8F 20 4B 4F 4E 44 49 54 |O,W$,Z$:. KONDIT|
000015C0: 49 4F 4E 53 41 55 53 44 52 55 43 4B 20 49 4E 20 |IONSAUSDRUCK IN |
000015D0: 57 24 00 E9 1D BC 07 8B 57 24 B2 22 22 A7 43 25 |W$......W$."".C%|
000015E0: B2 31 35 3A 89 33 31 32 30 00 31 1E C6 07 49 B2 |.15:.3120.1...I.|
000015F0: 43 53 25 28 43 25 29 AF 38 31 39 31 3A 50 24 28 |CS%(C%).8191:P$(|
00001600: 5A 25 29 B2 22 49 46 28 22 AA 57 24 AA 22 29 3D |Z%)."IF(".W$.")=|
00001610: 30 54 48 45 4E 22 AA C4 28 46 25 AA 49 29 3A 8F |0THEN"..(F%.I):.|
00001620: 4B 4F 4E 44 49 54 49 4F 4E 53 41 42 46 52 41 47 |KONDITIONSABFRAG|
00001630: 45 00 54 1E D0 07 5A 25 B2 5A 25 AA 31 3A 89 31 |E.T...Z%.Z%.1:.1|
00001640: 34 33 30 3A 8F 20 4E 41 45 43 48 53 54 45 53 20 |430:. NAECHSTES |
00001650: 57 4F 52 54 00 5A 1E DA 07 3A 00 70 1E E4 07 8B |WORT.Z...:.p....|
00001660: 57 24 B3 B1 22 57 48 49 4C 45 22 A7 32 31 36 30 |W$.."WHILE".2160|
00001670: 00 76 1E EE 07 3A 00 82 1E F8 07 8F 20 57 48 49 |.v...:...... WHI|
00001680: 4C 45 00 9A 1E 02 08 8B 43 25 B1 43 4D 25 A7 43 |LE......C%.CM%.C|
00001690: 25 B2 31 30 3A 89 33 31 32 30 00 B2 1E 0C 08 8B |%.10:.3120......|
000016A0: 50 24 28 5A 25 29 B3 B1 22 22 A7 5A 25 B2 5A 25 |P$(Z%).."".Z%.Z%|
000016B0: AA 31 00 DB 1E 16 08 9E 57 4F 2C 57 24 2C 5A 24 |.1......WO,W$,Z$|
000016C0: 3A 8F 20 4B 4F 4E 44 49 54 49 4F 4E 53 41 55 53 |:. KONDITIONSAUS|
000016D0: 44 52 55 43 4B 20 49 4E 20 57 24 00 F2 1E 20 08 |DRUCK IN W$... .|
000016E0: 8B 57 24 B2 22 22 A7 43 25 B2 31 36 3A 89 33 31 |.W$."".C%.16:.31|
000016F0: 32 30 00 0A 1F 2A 08 8B 5A 25 B1 50 4D 25 A7 43 |20...*..Z%.PM%.C|
00001700: 25 B2 31 32 3A 89 33 31 32 30 00 28 1F 34 08 50 |%.12:.3120.(.4.P|
00001710: 24 28 5A 25 29 B2 22 49 46 28 22 AA 57 24 AA 22 |$(Z%)."IF(".W$."|
00001720: 29 3D 30 54 48 45 4E 22 00 4D 1F 3E 08 9E 57 4F |)=0THEN".M.>..WO|
00001730: 2C 57 24 2C 5A 24 3A 8F 20 4E 41 45 43 48 53 54 |,W$,Z$:. NAECHST|
00001740: 45 53 20 57 4F 52 54 20 49 4E 20 57 24 00 67 1F |ES WORT IN W$.g.|
00001750: 48 08 8B 57 24 B3 B1 22 44 4F 22 A7 43 25 B2 31 |H..W$.."DO".C%.1|
00001760: 37 3A 89 33 31 32 30 00 9C 1F 52 08 43 53 25 28 |7:.3120...R.CS%(|
00001770: 43 25 29 B2 5A 25 B0 31 36 33 38 34 3A 43 25 B2 |C%).Z%.16384:C%.|
00001780: 43 25 AA 31 3A 8F 20 57 48 49 4C 45 2D 5A 45 49 |C%.1:. WHILE-ZEI|
00001790: 4C 45 20 45 49 4E 54 52 41 47 45 4E 00 C7 1F 5C |LE EINTRAGEN...\|
000017A0: 08 5A 25 B2 5A 25 AA 31 3A 89 31 34 33 30 3A 8F |.Z%.Z%.1:.1430:.|
000017B0: 20 4E 41 45 43 48 53 54 45 53 20 57 4F 52 54 20 | NAECHSTES WORT |
000017C0: 50 52 55 45 46 45 4E 00 CD 1F 66 08 3A 00 E1 1F |PRUEFEN...f.:...|
000017D0: 70 08 8B 57 24 B3 B1 22 52 45 4D 22 A7 32 32 32 |p..W$.."REM".222|
000017E0: 30 00 E7 1F 7A 08 3A 00 F7 1F 84 08 8F 20 4B 4F |0...z.:...... KO|
000017F0: 4D 4D 45 4E 54 41 52 00 25 20 8E 08 8B C3 28 50 |MMENTAR.% ....(P|
00001800: 24 28 5A 25 29 29 B2 30 A7 39 34 30 3A 8F 20 47 |$(Z%)).0.940:. G|
00001810: 41 4E 5A 45 20 5A 45 49 4C 45 20 49 47 4E 4F 52 |ANZE ZEILE IGNOR|
00001820: 49 45 52 45 4E 00 47 20 98 08 5A 25 B2 5A 25 AA |IEREN.G ..Z%.Z%.|
00001830: 31 3A 89 39 34 30 3A 8F 20 4E 41 45 43 48 53 54 |1:.940:. NAECHST|
00001840: 45 20 5A 45 49 4C 45 00 4D 20 A2 08 3A 00 60 20 |E ZEILE.M ..:.` |
00001850: AC 08 8B 57 24 B3 B1 22 49 46 22 A7 32 33 35 30 |...W$.."IF".2350|
00001860: 00 66 20 B6 08 3A 00 6F 20 C0 08 8F 20 49 46 00 |.f ..:.o ... IF.|
00001870: 87 20 CA 08 8B 43 25 B1 43 4D 25 A7 43 25 B2 31 |. ...C%.CM%.C%.1|
00001880: 30 3A 89 33 31 32 30 00 B0 20 D4 08 9E 57 4F 2C |0:.3120.. ...WO,|
00001890: 57 24 2C 5A 24 3A 8F 20 4B 4F 4E 44 49 54 49 4F |W$,Z$:. KONDITIO|
000018A0: 4E 53 41 55 53 44 52 55 43 4B 20 49 4E 20 57 24 |NSAUSDRUCK IN W$|
000018B0: 00 C7 20 DE 08 8B 57 24 B2 22 22 A7 43 25 B2 31 |.. ...W$."".C%.1|
000018C0: 38 3A 89 33 31 32 30 00 DF 20 E8 08 8B 5A 25 B1 |8:.3120.. ...Z%.|
000018D0: 50 4D 25 A7 43 25 B2 31 32 3A 89 33 31 32 30 00 |PM%.C%.12:.3120.|
000018E0: FD 20 F2 08 50 24 28 5A 25 29 B2 22 49 46 28 22 |. ..P$(Z%)."IF("|
000018F0: AA 57 24 AA 22 29 3D 30 54 48 45 4E 22 00 29 21 |.W$.")=0THEN".)!|
00001900: FC 08 43 53 25 28 43 25 29 B2 5A 25 3A 43 25 B2 |..CS%(C%).Z%:C%.|
00001910: 43 25 AA 31 3A 8F 20 49 46 2D 5A 45 49 4C 45 20 |C%.1:. IF-ZEILE |
00001920: 45 49 4E 54 52 41 47 45 4E 00 56 21 06 09 5A 25 |EINTRAGEN.V!..Z%|
00001930: B2 5A 25 AA 31 3A 9E 57 4F 2C 57 24 2C 5A 24 3A |.Z%.1:.WO,W$,Z$:|
00001940: 8F 20 4E 41 45 43 48 53 54 45 53 20 57 4F 52 54 |. NAECHSTES WORT|
00001950: 20 49 4E 20 57 24 00 72 21 10 09 8B 57 24 B3 B1 | IN W$.r!...W$..|
00001960: 22 54 48 45 4E 22 A7 43 25 B2 31 39 3A 89 33 31 |"THEN".C%.19:.31|
00001970: 32 30 00 8D 21 1A 09 89 31 34 33 30 3A 8F 20 4E |20..!...1430:. N|
00001980: 41 45 43 48 53 54 45 53 20 57 4F 52 54 00 93 21 |AECHSTES WORT..!|
00001990: 24 09 3A 00 A8 21 2E 09 8B 57 24 B3 B1 22 45 4C |$.:..!...W$.."EL|
000019A0: 53 45 22 A7 32 34 36 30 00 AE 21 38 09 3A 00 B9 |SE".2460..!8.:..|
000019B0: 21 42 09 8F 20 45 4C 53 45 00 D7 21 4C 09 43 25 |!B.. ELSE..!L.C%|
000019C0: B2 43 25 AB 31 3A 8B 43 25 B3 30 A7 43 25 B2 32 |.C%.1:.C%.0.C%.2|
000019D0: 30 3A 89 33 31 32 30 00 F5 21 56 09 8B 43 53 25 |0:.3120..!V..CS%|
000019E0: 28 43 25 29 B1 38 31 39 31 A7 43 25 B2 32 30 3A |(C%).8191.C%.20:|
000019F0: 89 33 31 32 30 00 1A 22 60 09 49 B2 43 53 25 28 |.3120.."`.I.CS%(|
00001A00: 43 25 29 3A 50 24 28 49 29 B2 50 24 28 49 29 AA |C%):P$(I).P$(I).|
00001A10: C4 28 46 25 AA 5A 25 AA 31 29 00 32 22 6A 09 8B |.(F%.Z%.1).2"j..|
00001A20: 5A 25 B1 50 4D 25 A7 43 25 B2 31 32 3A 89 33 31 |Z%.PM%.C%.12:.31|
00001A30: 32 30 00 68 22 74 09 50 24 28 5A 25 29 B2 50 24 |20.h"t.P$(Z%).P$|
00001A40: 28 5A 25 29 AA 22 47 CF 22 3A 8F 20 55 4E 42 45 |(Z%)."G.":. UNBE|
00001A50: 44 49 4E 47 54 45 52 20 53 50 52 55 4E 47 20 41 |DINGTER SPRUNG A|
00001A60: 4E 48 41 45 4E 47 45 4E 00 8E 22 7E 09 43 53 25 |NHAENGEN.."~.CS%|
00001A70: 28 43 25 29 B2 5A 25 3A 43 25 B2 43 25 AA 31 3A |(C%).Z%:C%.C%.1:|
00001A80: 8F 20 5A 45 49 4C 45 20 4D 45 52 4B 45 4E 00 B1 |. ZEILE MERKEN..|
00001A90: 22 88 09 5A 25 B2 5A 25 AA 31 3A 89 31 34 33 30 |"..Z%.Z%.1:.1430|
00001AA0: 3A 8F 20 4E 41 45 43 48 53 54 45 53 20 57 4F 52 |:. NAECHSTES WOR|
00001AB0: 54 00 B7 22 92 09 3A 00 D8 22 9C 09 8B 57 24 B3 |T.."..:.."...W$.|
00001AC0: B1 22 47 4F 54 4F 22 AF 57 24 B3 B1 22 47 4F 53 |."GOTO".W$.."GOS|
00001AD0: 55 42 22 A7 32 35 36 30 00 DE 22 A6 09 3A 00 E9 |UB".2560.."..:..|
00001AE0: 22 B0 09 8F 20 47 4F 54 4F 00 05 23 BA 09 8B C3 |"... GOTO..#....|
00001AF0: 28 50 24 28 5A 25 29 29 B3 B1 30 A7 57 24 B2 22 |(P$(Z%))..0.W$."|
00001B00: 20 22 AA 57 24 00 1D 23 C4 09 8B 5A 25 B1 50 4D | ".W$..#...Z%.PM|
00001B10: 25 A7 43 25 B2 31 32 3A 89 33 31 32 30 00 36 23 |%.C%.12:.3120.6#|
00001B20: CE 09 50 24 28 5A 25 29 B2 50 24 28 5A 25 29 AA |..P$(Z%).P$(Z%).|
00001B30: 57 24 AA 22 20 22 00 4D 23 D8 09 8B 5A 24 B2 22 |W$." ".M#...Z$."|
00001B40: 22 A7 43 25 B2 32 31 3A 89 33 31 32 30 00 6A 23 |".C%.21:.3120.j#|
00001B50: E2 09 8B C8 28 5A 24 2C 31 29 B2 22 3A 22 A7 43 |....(Z$,1).":".C|
00001B60: 25 B2 32 31 3A 89 33 31 32 30 00 96 23 EC 09 9E |%.21:.3120..#...|
00001B70: 57 4F 2C 57 24 2C 5A 24 3A 57 24 B2 57 24 AA 22 |WO,W$,Z$:W$.W$."|
00001B80: 20 22 3A 8F 20 53 50 52 55 4E 47 4D 41 52 4B 45 | ":. SPRUNGMARKE|
00001B90: 2B 42 4C 41 4E 4B 00 9C 23 F6 09 3A 00 B4 23 00 |+BLANK..#..:..#.|
00001BA0: 0A 8B 5A 25 B1 50 4D 25 A7 43 25 B2 31 32 3A 89 |..Z%.PM%.C%.12:.|
00001BB0: 33 31 32 30 00 E3 23 0A 0A 50 24 28 5A 25 29 B2 |3120..#..P$(Z%).|
00001BC0: 50 24 28 5A 25 29 AA 57 24 3A 8F 20 57 4F 52 54 |P$(Z%).W$:. WORT|
00001BD0: 20 49 4E 20 5A 45 49 4C 45 20 45 49 4E 46 55 45 | IN ZEILE EINFUE|
00001BE0: 47 45 4E 00 05 24 14 0A 8B 5A 24 B3 B1 22 22 A7 |GEN..$...Z$.."".|
00001BF0: 31 34 33 30 3A 8F 20 4E 41 45 43 48 53 54 45 53 |1430:. NAECHSTES|
00001C00: 20 57 4F 52 54 00 27 24 1E 0A 5A 25 B2 5A 25 AA | WORT.'$..Z%.Z%.|
00001C10: 31 3A 89 39 34 30 3A 8F 20 4E 41 45 43 48 53 54 |1:.940:. NAECHST|
00001C20: 45 20 5A 45 49 4C 45 00 2D 24 28 0A 3A 00 3F 24 |E ZEILE.-$(.:.?$|
00001C30: 32 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |2.. ***********.|
00001C40: 51 24 3C 0A 8F 20 44 55 52 43 48 4C 41 55 46 20 |Q$<.. DURCHLAUF |
00001C50: 32 00 63 24 46 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |2.c$F.. ********|
00001C60: 2A 2A 2A 00 69 24 50 0A 3A 00 A2 24 5A 0A 5A 25 |***.i$P.:..$Z.Z%|
00001C70: B2 30 3A 43 25 B2 32 30 34 39 3A 8F 20 41 55 46 |.0:C%.2049:. AUF|
00001C80: 20 31 2E 5A 45 49 4C 45 20 5A 45 49 47 45 4E 20 | 1.ZEILE ZEIGEN |
00001C90: 26 20 4C 49 4E 4B 41 44 52 45 53 53 45 3D 32 30 |& LINKADRESSE=20|
00001CA0: 34 39 00 D1 24 64 0A 97 31 30 32 34 2C 5A 25 AF |49..$d..1024,Z%.|
00001CB0: 32 35 35 3A 8B 50 24 28 5A 25 29 B2 22 45 4E 44 |255:.P$(Z%)."END|
00001CC0: 50 52 4F 47 52 41 4D 22 A7 8E 3A 8F 20 45 4E 44 |PROGRAM"..:. END|
00001CD0: 45 00 D7 24 6E 0A 3A 00 F5 24 78 0A 5A 24 B2 50 |E..$n.:..$x.Z$.P|
00001CE0: 24 28 5A 25 29 3A 54 24 B2 5A 24 3A 50 24 28 5A |$(Z%):T$.Z$:P$(Z|
00001CF0: 25 29 B2 22 22 00 1D 25 82 0A 8B C9 28 5A 24 2C |%).""..%....(Z$,|
00001D00: 31 29 B2 22 3A 22 A7 5A 24 B2 C8 28 5A 24 2C C3 |1).":".Z$..(Z$,.|
00001D10: 28 5A 24 29 AB 31 29 3A 89 32 36 39 30 00 38 25 |(Z$).1):.2690.8%|
00001D20: 8C 0A 9E 57 4F 2C 57 24 2C 5A 24 3A 8F 20 57 4F |...WO,W$,Z$:. WO|
00001D30: 52 54 20 49 4E 20 57 24 00 74 25 96 0A 8B 57 24 |RT IN W$.t%...W$|
00001D40: B2 22 47 4F 54 4F 22 B0 57 24 B2 22 47 4F 53 55 |."GOTO".W$."GOSU|
00001D50: 42 22 A7 32 38 33 30 3A 8F 20 47 4F 54 4F 2F 47 |B".2830:. GOTO/G|
00001D60: 4F 53 55 42 2D 42 45 46 45 48 4C 20 47 45 46 55 |OSUB-BEFEHL GEFU|
00001D70: 4E 44 45 4E 00 A6 25 A0 0A 50 24 28 5A 25 29 B2 |NDEN..%..P$(Z%).|
00001D80: 50 24 28 5A 25 29 AA 57 24 3A 8B 5A 24 B3 B1 22 |P$(Z%).W$:.Z$.."|
00001D90: 22 A7 32 37 30 30 3A 8F 20 57 45 49 54 45 52 50 |".2700:. WEITERP|
00001DA0: 52 55 45 46 45 4E 00 AC 25 AA 0A 3A 00 C5 25 B4 |RUEFEN..%..:..%.|
00001DB0: 0A 8F 20 5A 45 49 4C 45 20 54 4F 4B 45 4E 49 53 |.. ZEILE TOKENIS|
00001DC0: 49 45 52 45 4E 00 F0 25 BE 0A 9E 44 45 2C 50 24 |IEREN..%...DE,P$|
00001DD0: 28 5A 25 29 3A 8F 20 5A 45 49 4C 45 20 49 4E 20 |(Z%):. ZEILE IN |
00001DE0: 54 4F 4B 45 4E 53 20 55 4D 57 41 4E 44 45 4C 4E |TOKENS UMWANDELN|
00001DF0: 00 1E 26 C8 0A 43 25 B2 43 25 AA 35 AA C3 28 50 |..&..C%.C%.5..(P|
00001E00: 24 28 5A 25 29 29 3A 8F 20 4C 49 4E 4B 41 44 52 |$(Z%)):. LINKADR|
00001E10: 45 53 53 45 20 42 45 52 45 43 48 4E 45 4E 00 47 |ESSE BERECHNEN.G|
00001E20: 26 D2 0A 4C 25 B2 B5 28 43 25 AD 32 35 36 29 3A |&..L%..(C%.256):|
00001E30: 8F 20 4C 49 4E 4B 41 44 52 45 53 53 45 20 48 49 |. LINKADRESSE HI|
00001E40: 47 48 2D 42 59 54 45 00 6D 26 DC 0A 4D 25 B2 B5 |GH-BYTE.m&..M%..|
00001E50: 28 46 25 AD 32 35 36 29 3A 8F 20 5A 45 49 4C 45 |(F%.256):. ZEILE|
00001E60: 4E 4E 52 20 48 49 47 48 2D 42 59 54 45 00 88 26 |NNR HIGH-BYTE..&|
00001E70: E6 0A 8F 20 50 52 4F 47 52 41 4D 4D 5A 45 49 4C |... PROGRAMMZEIL|
00001E80: 45 20 42 49 4C 44 45 4E 00 BF 26 F0 0A 50 24 28 |E BILDEN..&..P$(|
00001E90: 5A 25 29 B2 C7 28 43 25 AF 32 35 35 29 AA C7 28 |Z%)..(C%.255)..(|
00001EA0: 4C 25 29 AA C7 28 46 25 AF 32 35 35 29 AA C7 28 |L%)..(F%.255)..(|
00001EB0: 4D 25 29 AA 50 24 28 5A 25 29 AA C7 28 30 29 00 |M%).P$(Z%)..(0).|
00001EC0: EA 26 FA 0A 5A 25 B2 5A 25 AA 31 3A 46 25 B2 46 |.&..Z%.Z%.1:F%.F|
00001ED0: 25 AA 31 3A 89 32 36 36 30 3A 8F 20 4E 41 45 43 |%.1:.2660:. NAEC|
00001EE0: 48 53 54 45 20 5A 45 49 4C 45 00 F0 26 04 0B 3A |HSTE ZEILE..&..:|
00001EF0: 00 18 27 0E 0B 50 24 28 5A 25 29 B2 50 24 28 5A |..'..P$(Z%).P$(Z|
00001F00: 25 29 AA 57 24 3A 8F 20 42 45 46 45 48 4C 20 41 |%).W$:. BEFEHL A|
00001F10: 4E 48 41 45 4E 47 45 4E 00 3A 27 18 0B 9E 57 4F |NHAENGEN.:'...WO|
00001F20: 2C 57 24 2C 5A 24 3A 8F 20 53 50 52 55 4E 47 4D |,W$,Z$:. SPRUNGM|
00001F30: 41 52 4B 45 20 49 4E 20 57 24 00 63 27 22 0B 8D |ARKE IN W$.c'"..|
00001F40: 32 39 34 30 3A 8F 20 53 50 52 55 4E 47 4D 41 52 |2940:. SPRUNGMAR|
00001F50: 4B 45 20 49 4E 20 54 41 42 4C 4C 45 20 53 55 43 |KE IN TABLLE SUC|
00001F60: 48 45 4E 00 79 27 2C 0B 8B 49 B3 30 A7 43 25 B2 |HEN.y',..I.0.C%.|
00001F70: 31 35 30 3A 89 33 31 32 30 00 B9 27 36 0B 57 24 |150:.3120..'6.W$|
00001F80: B2 C4 28 4C 54 25 28 49 29 29 3A 57 24 B2 C9 28 |..(LT%(I)):W$..(|
00001F90: 57 24 2C C3 28 57 24 29 AB 31 29 3A 8F 20 53 50 |W$,.(W$).1):. SP|
00001FA0: 52 55 4E 47 5A 45 49 4C 45 20 49 4E 20 57 24 20 |RUNGZEILE IN W$ |
00001FB0: 55 4D 57 41 4E 44 45 4C 4E 00 DB 27 40 0B 89 32 |UMWANDELN..'@..2|
00001FC0: 37 32 30 3A 8F 20 53 50 52 55 4E 47 5A 45 49 4C |720:. SPRUNGZEIL|
00001FD0: 45 20 41 4E 48 41 45 4E 47 45 4E 00 E1 27 4A 0B |E ANHAENGEN..'J.|
00001FE0: 3A 00 F7 27 54 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:..'T.. ********|
00001FF0: 2A 2A 2A 2A 2A 2A 2A 00 0D 28 5E 0B 8F 20 53 55 |*******..(^.. SU|
00002000: 43 48 52 4F 55 54 49 4E 45 20 4C 54 24 00 23 28 |CHROUTINE LT$.#(|
00002010: 68 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |h.. ************|
00002020: 2A 2A 2A 00 29 28 72 0B 3A 00 48 28 7C 0B 49 B2 |***.)(r.:.H(|.I.|
00002030: 30 3A 8F 20 41 55 46 20 31 2E 45 4C 45 4D 45 4E |0:. AUF 1.ELEMEN|
00002040: 54 20 5A 45 49 47 45 4E 00 69 28 86 0B 8B 57 24 |T ZEIGEN.i(...W$|
00002050: B2 4C 54 24 28 49 29 A7 8E 3A 8F 20 57 4F 52 54 |.LT$(I)..:. WORT|
00002060: 20 47 45 46 55 4E 44 45 4E 00 8D 28 90 0B 49 B2 | GEFUNDEN..(..I.|
00002070: 49 AA 31 3A 8B 49 B3 4C 25 A7 32 39 35 30 3A 8F |I.1:.I.L%.2950:.|
00002080: 20 57 45 49 54 45 52 53 55 43 48 45 4E 00 AE 28 | WEITERSUCHEN..(|
00002090: 9A 0B 49 B2 AB 31 3A 8E 3A 8F 20 57 4F 52 54 20 |..I..1:.:. WORT |
000020A0: 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 00 B4 |NICHT GEFUNDEN..|
000020B0: 28 A4 0B 3A 00 C9 28 AE 0B 8F 20 2A 2A 2A 2A 2A |(..:..(... *****|
000020C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DE 28 B8 0B 8F 20 |*********..(... |
000020D0: 53 55 43 48 52 4F 55 54 49 4E 45 20 4D 24 00 F3 |SUCHROUTINE M$..|
000020E0: 28 C2 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |(... ***********|
000020F0: 2A 2A 2A 00 F9 28 CC 0B 3A 00 18 29 D6 0B 49 B2 |***..(..:..)..I.|
00002100: 30 3A 8F 20 41 55 46 20 31 2E 45 4C 45 4D 45 4E |0:. AUF 1.ELEMEN|
00002110: 54 20 5A 45 49 47 45 4E 00 3A 29 E0 0B 8B 57 24 |T ZEIGEN.:)...W$|
00002120: B2 4D 24 28 30 2C 49 29 A7 8E 3A 8F 20 57 4F 52 |.M$(0,I)..:. WOR|
00002130: 54 20 47 45 46 55 4E 44 45 4E 00 5E 29 EA 0B 49 |T GEFUNDEN.^)..I|
00002140: B2 49 AA 31 3A 8B 49 B3 4D 25 A7 33 30 34 30 3A |.I.1:.I.M%.3040:|
00002150: 8F 20 57 45 49 54 45 52 53 55 43 48 45 4E 00 7F |. WEITERSUCHEN..|
00002160: 29 F4 0B 49 B2 AB 31 3A 8E 3A 8F 20 57 4F 52 54 |)..I..1:.:. WORT|
00002170: 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 4E 00 | NICHT GEFUNDEN.|
00002180: 85 29 FE 0B 3A 00 A2 29 08 0C 8F 20 2A 2A 2A 2A |.)..:..)... ****|
00002190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000021A0: 2A 2A 00 BF 29 12 0C 8F 20 46 45 48 4C 45 52 4D |**..)... FEHLERM|
000021B0: 45 4C 44 55 4E 47 20 41 55 53 47 45 42 45 4E 00 |ELDUNG AUSGEBEN.|
000021C0: DC 29 1C 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.)... **********|
000021D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 29 26 |************..)&|
000021E0: 0C 3A 00 0C 2A 30 0C 99 54 24 3A 8B 43 25 B1 31 |.:..*0..T$:.C%.1|
000021F0: 32 37 A7 99 57 24 3B 3A 8F 20 54 45 58 54 5A 45 |27..W$;:. TEXTZE|
00002200: 49 4C 45 20 41 55 53 47 45 42 45 4E 00 31 2A 3A |ILE AUSGEBEN.1*:|
00002210: 0C 8C 3A 81 49 B2 31 A4 43 25 AF 31 32 37 3A 87 |..:.I.1.C%.127:.|
00002220: 57 24 3A 82 3A 8F 20 54 45 58 54 20 4C 45 53 45 |W$:.:. TEXT LESE|
00002230: 4E 00 4D 2A 44 0C 99 57 24 3A A0 32 3A 80 3A 8F |N.M*D..W$:.2:.:.|
00002240: 20 50 52 4F 47 52 41 4D 4D 45 4E 44 45 00 53 2A | PROGRAMMENDE.S*|
00002250: 4E 0C 3A 00 9E 2A 58 0C 83 22 54 41 42 4C 45 20 |N.:..*X.."TABLE |
00002260: 4F 56 45 52 46 4C 4F 57 22 2C 22 20 52 45 44 45 |OVERFLOW"," REDE|
00002270: 46 49 4E 49 54 49 4F 4E 20 4F 46 20 4C 41 42 45 |FINITION OF LABE|
00002280: 4C 22 2C 22 23 3F 22 2C 22 4D 41 43 52 4F 20 54 |L","#?","MACRO T|
00002290: 41 42 4C 45 20 4F 56 45 52 46 4C 4F 57 22 00 E2 |ABLE OVERFLOW"..|
000022A0: 2A 62 0C 83 22 40 3F 22 2C 22 20 52 45 44 45 46 |*b.."@?"," REDEF|
000022B0: 49 4E 49 54 49 4F 4E 20 4F 46 20 4D 41 43 52 4F |INITION OF MACRO|
000022C0: 22 2C 22 20 4D 41 43 52 4F 20 3F 22 2C 22 21 3F |"," MACRO ?","!?|
000022D0: 22 2C 22 20 55 4E 44 45 46 27 44 20 4D 41 43 52 |"," UNDEF'D MACR|
000022E0: 4F 22 00 2B 2B 6C 0C 83 22 53 54 41 43 4B 20 4F |O".++l.."STACK O|
000022F0: 56 45 52 46 4C 4F 57 22 2C 22 3F 57 48 49 4C 45 |VERFLOW","?WHILE|
00002300: 2E 2E 44 4F 22 2C 22 54 45 58 54 20 54 4F 4F 20 |..DO","TEXT TOO |
00002310: 4C 4F 4E 47 22 2C 22 3F 49 46 2E 2E 54 48 45 4E |LONG","?IF..THEN|
00002320: 22 2C 22 3F 52 45 50 45 41 54 22 00 69 2B 76 0C |","?REPEAT".i+v.|
00002330: 83 22 55 4E 54 49 4C 20 3F 22 2C 22 57 48 49 4C |."UNTIL ?","WHIL|
00002340: 45 20 3F 22 2C 22 57 48 49 4C 45 2E 2E 3F 22 2C |E ?","WHILE..?",|
00002350: 22 49 46 3F 22 2C 22 49 46 2E 2E 3F 22 2C 22 3F |"IF?","IF..?","?|
00002360: 49 46 2E 2E 54 48 45 4E 22 00 B0 2B 80 0C 83 22 |IF..THEN"..+..."|
00002370: 47 4F 54 4F 2F 47 4F 53 55 42 20 3F 22 2C 22 20 |GOTO/GOSUB ?"," |
00002380: 55 4E 44 45 46 27 44 20 4C 41 42 45 4C 22 2C 22 |UNDEF'D LABEL","|
00002390: 3F 46 49 4C 45 2D 4E 41 4D 45 22 2C 22 46 49 4C |?FILE-NAME","FIL|
000023A0: 45 2D 4E 41 4D 45 20 54 4F 4F 20 4C 4F 4E 47 22 |E-NAME TOO LONG"|
000023B0: 00 00 00 |... |
..$....2053,143:."PRECOMPILER.H",8,1.K..
.. ********************************.R...
. * *......
* PROGRAMM: BASIC-PRECOMPILER *...(..
* AUTOR : HOANG-THAI NGUYEN *...2.. *
ADRESSE : HANS-A-KAMPMANN 12 *...<.. *
3418 USLAR 1 *.5.P.. *
*.\.Z.. ****
****************************.B.D.:...N..
*****************************...X.. VAR
IABLEN & ARRAYS DEFINIEREN.N.... *******
**********************.T...:......:WO.49
183:LI.49286:DE.49444... .PM%.500:CM%.10
0:LM%.100:MM%.100.K....P$(PM%),CS%(CM%),
LT$(LM%),LT%(LM%),M$(1,MM%).Q...:.E....
*************.Y.H.. HAUPTPROGRAMM...R..
*************.....:.A....53280,6:.53281,
14:.646,0:. FARBEN SETZEN......"..BASIC-
PRECOMPILER":. TITEL AUSGEBEN......"WRIT
TEN BY HOANG-THAI NGUYEN.".....:.E...."F
ILE-NAME: ";W$:.:. FILE-NAME ABFRAGEN.B.
...W$."*"..:. PROGRAMMENDE.H.".:...,.."N
UMBER OF FIRST LINE: ";F%:. 1.ZEILENNR A
BFRAGEN.M.6..F%.0.C(W$).16.240:. ABFRAGE
N WIEDERHOLEN.S.@.:...J.. **************
******...T.. PARAMETER EINSTELLEN.$.^..
********************.*.H.:.G.R.. WENN AS
CII, DANN 76, SONST (BSC) 32 IN 49520 SC
HREIBEN...|..49520,76:. ( BEI TEXTOMAT )
...... ASCII-KODE DER LEERZEICHEN.D....4
9544,32:. BLANK-KODE......49545,160:. SH
IFT-BLANK-KODE......49546,164:. "."-KODE
( BEI TEXTOMAT ).=.... ASCII-KODE DES E
NDZEICHEN EINER ZEILE.G....49340,95:. "_
"-KODE ( BEI TEXTOMAT ).M.B.:...L.. ****
*******************...V.. FILE OPEN & CO
MPILIEREN.G.... ***********************.
M...:......2,8,2,W$.",P,R":. FILE OPEN..
....#2,W$:.#2,W$:. PRG-ADRESSE UEBERLESE
N.:....ST..0. 2:.:. FILE NOT FOUND.@...:
.I....".PASS 1 IN PROGRESS":.910:. PASS
1...&. 2:. FILE SCHLIESSEN...0.:...:..P$
(Z%).."ENDPROGRAM".500:. NAECHTES FILE L
ESEN.B.D.:...N.C%.C%.1:.C%.0.660:. STACK
ZEIGER=0...X.:.!.B.."STACK POINTER =";C%
.1:. STACKZEIGER AUSGEBEN.J.L..(CS%(C%).
24576).8192.."REPEAT..?":..W.V..(CS%(C%)
.24576).16384.."WHILE..DO..?":......."IF
..THEN..ELSE..?":......:.B...."PASS 2 IN
PROGRESS.":.2650:. PASS 2......1024,32:
. LINKE OBERE ECKE LOESCHEN.....:......
************************./.... OBJ-PROGR
AMM ABSPEICHERN.N.F.. ******************
******.T.P.:...Z.."PROGRAM-NAME: ";W$:.
PROGRAMMNAME ABFRAGEN......W$."*"..:. PR
OGRAMMENDE.K....C(W$).16.730:. PROGRAMMN
AME ZU LANG......".WRITING ";W$:. PROGRA
MM ABSPEICHERN......1,8,1,W$.",P,W":. FI
LE OPEN.L....1,G(1);G(8);:. PROGRAMMANFA
NGSADRESSE SCHREIBEN.J...Z%.0:. AUF 1.ZE
ILE ZEIGEN... .. PROGRAMMZEILE SCHREIBEN
...*..P$(Z%).."ENDPROGRAM"..1,P$(Z%);:Z%
.Z%.1:.810...4.:.S.>.. PROGRAMMENDE...H.
.1,G(0);G(0);: 1:....R.:...\.. *********
***************...F.. >>>> UNTERPROGRAMM
E <<<<.M.P.. ************************.S.
Z.:.E.... ***********.W.... DURCHLAUF 1.
..... ***********.....:......1024,Z%.255
:.LI,Z$:T$.Z$:. ZEILE LESEN.A...:......Z
$.."ENDPROGRAM".1010...J.:...T.. ENDE DE
S 1.DURCHLAUFEN.$...P$(Z%).Z$:.:. ENDE 1
.DURCHLAUFEN.*...:.A....H(Z$,1).."#".112
0.G...:.^.... LABEL DEFINIEREN......L%.L
M%.C%.1:.3120:. TABELLE IST VOLL.....Z$.
I(Z$,C(Z$).1):. 1.ZEICHEN ELIMINIEREN.Q.
$..WO,W$,Z$:. LABEL IN W$......W$."".C%.
3:.3120...8..2940:. PRUEFEN OB LABEL SCH
ON DEFINIERT WURDE.I.B..I..0.C%.130:.312
0:. LABEL SCHON DEFINIERT...L.LT$(L%).W$
:LT%(L%).F%.Z%:L%.L%.1:. LABEL EINTRAGEN
...V.:...`..H(Z$,1).."@".1250...J.:...T.
. MACRO-DEFINITION...~..M%.MM%.C%.4:.312
0:. TABELLE IST VOLL.....Z$.I(Z$,C(Z$).1
):. 1.ZEICHEN ELIMINIEREN.2....WO,W$,Z$:
. MACRO-NAME IN W$.H....W$."".C%.5:.3120
.H....3030:. IST MACRO DEFINIERT......I.
.0.C%.134:.3120:. MACRO SCHON DEFINIERT.
.....Z$."".C%.135:.3120:. ZEILE LEER...D
.M$(0,M%).W$:M$(1,M%).Z$:. MACRO EINTRAG
EN...N.M%.M%.1:. ZEILE WEITERPRUEFEN...X
.:.)....H(Z$,1).."!".1350./...:.B.... MA
CRO-AUFRUF.O...Z$.I(Z$,C(Z$).1):. 1.ZEIC
HEN ELIMINIEREN......WO,W$,Z$:. MACRO-NA
ME IN W$......W$."".C%.8:.3120.D....3030
:. IN TABELLE SUCHEN...(..I.0.C%.137:.31
20:. MACRO NICHT DEFINIERT...2.Z$.M$(1,I
).Z$:T$.Z$:. MACRO-ZEILE IN Z$.$.<.:.;.F
..H(Z$,1).."\".1430.A.P.:.[.Z.. TEXTFILE
S VERKETTEN...D.W$.I(Z$,C(Z$).1):. FILE-
NAME IN W$...N..W$."".C%.23:.3120...X..C
(W$).16.C%.24:.3120......:. ENDE.F...:..
....Z$."".940:. NAECHSTE ZEILE... ..WO,W
$,Z$:. WORT IN W$.7....W$.":".C(P$(Z%)).
0.1430:. DOPPELPUNKT UEBERLESEN.S....W$.
":".I(P$(Z%),1).":".1430:. 2.DOPPELPUNKT
UEBERLESEN.Y...:...H..W$.."REPEAT".1560
...R.:...... REPEAT.L....C%.CM%.C%.10:.3
120:. STACK IST VOLL......P$(Z%).."".Z%.
Z%.1:. ZEILE INKREMENTIEREN.,...CS%(C%).
Z%.8192:C%.C%.1:. ZEILENNR EINTRAGEN.G..
..1430:. NAECHSTES WORT.M...:.F....W$.."
ENDWHILE".1660.L.".:.{.,.. ENDWHILE...6.
C%.C%.1:.C%.0.C%.11:.3120.A.@..(CS%(C%).
24576)..16384.C%.11:.3120...J.I.CS%(C%).
8191:P$(I).P$(I).D(F%.Z%.1):. SPRUNGZEIL
E SETZEN.'.T..Z%.PM%.C%.12:.3120:. TEXT
ZU LANG.U.^.P$(Z%)."GO".D(F%.I):. SCHLEI
FE FORTSETZEN.X.H.Z%.Z%.1:.1430:. NAECHS
TES WORT.~.R.:...|..W$.."ENDIF".1740....
.:...... ENDIF.D...C%.C%.1:.C%.0.C%.13:.
3120......CS%(C%).8191.C%.13:.3120.....I
.CS%(C%):P$(I).P$(I).D(F%.Z%):. SPRUNGZE
ILE SETZEN.5....1430:. NAECHSTES WORT.;.
B.:.P.L..W$.."CASE".1910.V.V.:.J.... CAS
E..ENDCASE.....I.Z%:. CASE-ZEILE MERKEN.
....LI,Z$:. ZEILE LESEN.I....WO,W$,Z$:.
KONDITIONSAUSDRUCK IN W$......Z%.PM%.C%
.12:.3120.....P$(Z%)."IF".W$."THEN ":. K
ONDITIONSABFRAGE.G....WO,W$,Z$:.W$.."REM
".W$.."".P$(Z%).P$(Z%).W$:.1820.H.&.Z%.Z
%.1:.LI,Z$:. ZEILE LESEN..0..Z$."ENDCAS
E".1880...:.P$(Z%.1).P$(Z%.1).":GO":.179
0:. NAECHSTE ZEILE...D.:.F.N.. ENDCASE..
.X.W$.D(F%.Z%):.Z%.I.1..I.I.Z%.2:P$(I).P
$(I).W$:....B..WO,W$,Z$:.1430:. NAECHSTE
S WORT.$.L.:.:.V..W$.."UNTIL".2020.@...:
.L.... UNTIL.J...C%.C%.1:.C%.0.C%.14:.31
20......(CS%(C%).24576)..8192.C%.14:.312
0......Z%.PM%.C%.12:.3120.R....WO,W$,Z$:
. KONDITIONSAUSDRUCK IN W$......W$."".C%
.15:.3120.1.F.I.CS%(C%).8191:P$(Z%)."IF(
".W$.")=0THEN".D(F%.I):.KONDITIONSABFRAG
E.T.P.Z%.Z%.1:.1430:. NAECHSTES WORT.Z.Z
.:.P....W$.."WHILE".2160.V...:...... WHI
LE......C%.CM%.C%.10:.3120......P$(Z%)..
"".Z%.Z%.1......WO,W$,Z$:. KONDITIONSAUS
DRUCK IN W$... ..W$."".C%.16:.3120...*..
Z%.PM%.C%.12:.3120.(.4.P$(Z%)."IF(".W$."
)=0THEN".M.>..WO,W$,Z$:. NAECHSTES WORT
IN W$.G.H..W$.."DO".C%.17:.3120...R.CS%(
C%).Z%.16384:C%.C%.1:. WHILE-ZEILE EINTR
AGEN.G.\.Z%.Z%.1:.1430:. NAECHSTES WORT
PRUEFEN.M.F.:...P..W$.."REM".2220...Z.:.
..... KOMMENTAR.% ...C(P$(Z%)).0.940:. G
ANZE ZEILE IGNORIEREN.G ..Z%.Z%.1:.940:.
NAECHSTE ZEILE.M ..:.` ...W$.."IF".2350
.F ..:.O ... IF.. J..C%.CM%.C%.10:.3120.
. T..WO,W$,Z$:. KONDITIONSAUSDRUCK IN W$
.G ...W$."".C%.18:.3120.. ...Z%.PM%.C%.1
2:.3120.. ..P$(Z%)."IF(".W$.")=0THEN".)!
..CS%(C%).Z%:C%.C%.1:. IF-ZEILE EINTRAGE
N.V!..Z%.Z%.1:.WO,W$,Z$:. NAECHSTES WORT
IN W$.R!...W$.."THEN".C%.19:.3120..!...
1430:. NAECHSTES WORT..!$.:..!...W$.."EL
SE".2460..!8.:..!B.. ELSE.W!L.C%.C%.1:.C
%.0.C%.20:.3120..!V..CS%(C%).8191.C%.20:
.3120.."`.I.CS%(C%):P$(I).P$(I).D(F%.Z%.
1).2"J..Z%.PM%.C%.12:.3120.H"T.P$(Z%).P$
(Z%)."GO":. UNBEDINGTER SPRUNG ANHAENGEN
.."~.CS%(C%).Z%:C%.C%.1:. ZEILE MERKEN..
"..Z%.Z%.1:.1430:. NAECHSTES WORT.."..:.
X"...W$.."GOTO".W$.."GOSUB".2560.."..:..
"... GOTO..#...C(P$(Z%))..0.W$." ".W$..#
D..Z%.PM%.C%.12:.3120.6#N.P$(Z%).P$(Z%).
W$." ".M#X..Z$."".C%.21:.3120.J#...H(Z$,
1).":".C%.21:.3120..#...WO,W$,Z$:W$.W$."
":. SPRUNGMARKE+BLANK..#..:..#...Z%.PM%
.C%.12:.3120..#..P$(Z%).P$(Z%).W$:. WORT
IN ZEILE EINFUEGEN..$...Z$.."".1430:. N
AECHSTES WORT.'$..Z%.Z%.1:.940:. NAECHST
E ZEILE.-$(.:.?$2.. ***********.Q$<.. DU
RCHLAUF 2.C$F.. ***********.I$P.:..$Z.Z%
.0:C%.2049:. AUF 1.ZEILE ZEIGEN & LINKAD
RESSE=2049.Q$D..1024,Z%.255:.P$(Z%)."END
PROGRAM"..:. ENDE.W$N.:..$X.Z$.P$(Z%):T$
.Z$:P$(Z%).""..%...I(Z$,1).":".Z$.H(Z$,C
(Z$).1):.2690.8%...WO,W$,Z$:. WORT IN W$
.T%...W$."GOTO".W$."GOSUB".2830:. GOTO/G
OSUB-BEFEHL GEFUNDEN..% .P$(Z%).P$(Z%).W
$:.Z$.."".2700:. WEITERPRUEFEN..%..:.E%.
.. ZEILE TOKENISIEREN..%...DE,P$(Z%):. Z
EILE IN TOKENS UMWANDELN..&H.C%.C%.5.C(P
$(Z%)):. LINKADRESSE BERECHNEN.G&R.L%..(
C%.256):. LINKADRESSE HIGH-BYTE.M&..M%..
(F%.256):. ZEILENNR HIGH-BYTE..&... PROG
RAMMZEILE BILDEN..&..P$(Z%).G(C%.255).G(
L%).G(F%.255).G(M%).P$(Z%).G(0)..&..Z%.Z
%.1:F%.F%.1:.2660:. NAECHSTE ZEILE..&..:
..'..P$(Z%).P$(Z%).W$:. BEFEHL ANHAENGEN
.:'...WO,W$,Z$:. SPRUNGMARKE IN W$.C'"..
2940:. SPRUNGMARKE IN TABLLE SUCHEN.Y',.
.I.0.C%.150:.3120..'6.W$.D(LT%(I)):W$.I(
W$,C(W$).1):. SPRUNGZEILE IN W$ UMWANDEL
N..'@..2720:. SPRUNGZEILE ANHAENGEN..'J.
:..'T.. ***************..(^.. SUCHROUTIN
E LT$.#(H.. ***************.)(R.:.H(|.I.
0:. AUF 1.ELEMENT ZEIGEN.I(...W$.LT$(I).
.:. WORT GEFUNDEN..(..I.I.1:.I.L%.2950:.
WEITERSUCHEN..(..I..1:.:. WORT NICHT GE
FUNDEN..(..:.I(... **************..(...
SUCHROUTINE M$..(B.. **************..(L.
:..)V.I.0:. AUF 1.ELEMENT ZEIGEN.:)...W$
.M$(0,I)..:. WORT GEFUNDEN.^)..I.I.1:.I.
M%.3040:. WEITERSUCHEN.)..I..1:.:. WORT
NICHT GEFUNDEN..)..:..)... ************
**********..)... FEHLERMELDUNG AUSGEBEN.
.)... **********************..)&.:..*0..
T$:.C%.127..W$;:. TEXTZEILE AUSGEBEN.1*:
..:.I.1.C%.127:.W$:.:. TEXT LESEN.M*D..W
$: 2:.:. PROGRAMMENDE.S*N.:..*X.."TABLE
OVERFLOW"," REDEFINITION OF LABEL","#?",
"MACRO TABLE OVERFLOW"..*B.."@?"," REDEF
INITION OF MACRO"," MACRO ?","!?"," UNDE
F'D MACRO".++L.."STACK OVERFLOW","?WHILE
..DO","TEXT TOO LONG","?IF..THEN","?REPE
AT".I+V.."UNTIL ?","WHILE ?","WHILE..?",
"IF?","IF..?","?IF..THEN"..+..."GOTO/GOS
UB ?"," UNDEF'D LABEL","?FILE-NAME","FIL
E-NAME TOO LONG"...
> CLICK IMAGE PREVIEW FOR FULL MODAL