TRANSFORMER
FILE INFORMATION
FILENAME(S): TRANSFORMER
FILE TYPE(S): PRG
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-30 01:12:57
APPEARS ON: 1 disk(s)
FILE HASH
fd0dfb38373b94cfcb4604898d4d77ff049eb4e816a1c6c9eab5b42a67b1bbe8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15944 SEITE A | TRANSFORMER | PRG | C64er | 28 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 20 1C E9 03 3A 8F 22 14 14 14 14 50 52 4F |.. ...:."....PRO|
00000010: 47 52 41 4D 20 44 45 53 43 52 49 50 54 49 4F 4E |GRAM DESCRIPTION|
00000020: 00 48 1C EA 03 3A 4E 41 4D 45 20 20 20 20 20 20 |.H...:NAME |
00000030: 20 24 B2 22 14 14 14 3A 20 20 20 20 20 54 52 41 | $."...: TRA|
00000040: 4E 53 46 4F 52 4D 45 52 00 74 1C EB 03 3A 57 52 |NSFORMER.t...:WR|
00000050: 49 54 54 45 4E 20 42 59 20 24 B2 22 14 14 14 3A |ITTEN BY $."...:|
00000060: 20 20 20 20 20 54 48 4F 4D 41 53 20 4C 45 4E 4E | THOMAS LENN|
00000070: 41 52 54 5A 00 9C 1C ED 03 3A 4D 41 43 48 49 4E |ARTZ.....:MACHIN|
00000080: 45 20 20 20 20 24 B2 22 14 14 14 3A 20 20 20 20 |E $."...: |
00000090: 20 43 31 32 38 20 2F 20 31 35 37 31 00 E9 1C EE | C128 / 1571....|
000000A0: 03 3A 43 4F 4D 4D 45 4E 54 20 20 20 20 24 B2 22 |.:COMMENT $."|
000000B0: 14 14 14 3A 20 20 20 20 20 45 52 5A 45 55 47 54 |...: ERZEUGT|
000000C0: 20 42 41 53 49 43 2D 50 52 4F 47 52 41 4D 4D 20 | BASIC-PROGRAMM |
000000D0: 41 55 53 20 27 46 4C 4F 57 43 48 41 52 54 20 31 |AUS 'FLOWCHART 1|
000000E0: 32 38 27 2D 44 41 54 45 49 00 39 1D EF 03 3A 3A |28'-DATEI.9...::|
000000F0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000100: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000110: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000120: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000130: 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 89 1D F0 03 3A 46 |:::::::::.....:F|
00000140: 41 54 41 4C 20 4D 49 53 54 41 4B 45 53 20 B2 20 |ATAL MISTAKES . |
00000150: 30 30 30 20 20 20 3A 4F 54 48 45 52 20 4D 49 53 |000 :OTHER MIS|
00000160: 54 41 4B 45 53 20 B2 20 30 30 30 20 20 3A 41 4C |TAKES . 000 :AL|
00000170: 4C 20 4D 49 53 54 41 4B 45 53 20 B2 20 30 30 30 |L MISTAKES . 000|
00000180: 20 20 20 20 20 20 20 3A 3A 00 D9 1D F1 03 3A 4C | ::.....:L|
00000190: 41 53 54 20 4C 49 4E 45 20 20 20 20 20 20 B2 20 |AST LINE . |
000001A0: 30 31 32 38 38 20 3A 46 49 52 53 54 20 55 4E 45 |01288 :FIRST UNE|
000001B0: 58 45 43 55 54 41 42 4C 45 20 4C 49 4E 45 20 B2 |XECUTABLE LINE .|
000001C0: 20 30 30 30 30 30 20 20 20 20 20 20 20 20 20 20 | 00000 |
000001D0: 20 20 20 20 20 20 20 3A 3A 00 29 1E F2 03 3A 3A | ::.)...::|
000001E0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000001F0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000200: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000210: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000220: 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 6F 1E F3 03 3A 8B |:::::::::.o...:.|
00000230: 20 46 41 54 41 4C 20 4D 49 53 54 41 4B 45 53 20 | FATAL MISTAKES |
00000240: B1 20 30 20 A7 20 99 20 22 43 41 4E 4E 4F 54 20 |. 0 . . "CANNOT |
00000250: 45 58 45 43 55 54 45 20 45 52 52 4F 52 2D 46 52 |EXECUTE ERROR-FR|
00000260: 45 45 21 22 20 3A 20 80 20 20 20 20 20 3A 3A 00 |EE!" : . ::.|
00000270: BF 1E F4 03 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |....::::::::::::|
00000280: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000290: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000002A0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000002B0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 |:::::::::::::::.|
000002C0: 0F 1F F5 03 3A 4E 4F 20 B2 20 30 20 3A 59 45 53 |....:NO . 0 :YES|
000002D0: 20 B2 20 AB 31 20 3A 54 45 53 54 20 B2 20 4E 4F | . .1 :TEST . NO|
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 3A 00 | ::.|
00000310: 56 1F F6 03 3A 8B 20 41 4C 4C 20 4D 49 53 54 41 |V...:. ALL MISTA|
00000320: 4B 45 53 20 B1 20 30 20 B0 20 54 45 53 54 20 B2 |KES . 0 . TEST .|
00000330: 20 59 45 53 20 A7 20 99 20 22 54 45 53 54 20 4D | YES . . "TEST M|
00000340: 4F 44 45 21 22 20 3A 54 45 53 54 20 B2 20 59 45 |ODE!" :TEST . YE|
00000350: 53 20 20 20 3A 3A 00 A6 1F F7 03 3A 3A 3A 3A 3A |S ::.....:::::|
00000360: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000370: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000380: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000390: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000003A0: 3A 3A 3A 3A 3A 3A 00 EE 1F F8 03 3A 99 20 22 50 |::::::.....:. "P|
000003B0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
000003C0: 43 4F 4D 4D 45 4E 43 45 2E 2E 2E 22 20 3A A1 F9 |COMMENCE..." :..|
000003D0: 20 41 4E 53 57 45 52 24 20 20 20 20 20 20 20 20 | ANSWER$ |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 3A 00 3E | ::.>|
000003F0: 20 F9 03 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A | ..:::::::::::::|
00000400: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000410: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000420: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000430: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 58 |::::::::::::::.X|
00000440: 20 FA 03 3A 8F 22 14 14 14 14 49 4E 49 54 49 41 | ..:."....INITIA|
00000450: 4C 49 5A 41 54 49 4F 4E 00 79 20 FB 03 3A D7 20 |LIZATION.y ..:. |
00000460: 31 30 32 31 3A 22 14 14 14 14 14 14 45 52 52 4F |1021:"......ERRO|
00000470: 52 20 52 4F 55 54 49 4E 45 00 89 20 FC 03 3A CB |R ROUTINE.. ..:.|
00000480: 20 A4 20 41 4E 46 41 4E 47 00 A2 20 FD 03 3A 8F | . ANFANG.. ..:.|
00000490: 22 14 14 14 14 45 52 52 4F 52 20 52 4F 55 54 49 |"....ERROR ROUTI|
000004A0: 4E 45 00 E2 20 FE 03 3A 20 20 8B 20 45 52 20 B2 |NE.. ..: . ER .|
000004B0: 20 31 31 20 A7 20 D6 20 82 20 20 20 20 20 20 20 | 11 . . . |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A AC | :.|
000004D0: 49 47 4E B0 45 20 53 59 4E 54 41 58 20 45 52 52 |IGN.E SYNTAX ERR|
000004E0: B0 53 00 F8 20 FF 03 3A 20 20 8B 20 45 52 20 B1 |.S.. ..: . ER .|
000004F0: 20 AB 31 20 A7 20 FE 18 00 11 21 00 04 3A 20 20 | .1 . ....!..: |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 99 00 46 21 01 04 3A 20 20 20 20 20 20 20 20 20 |..F!..: |
00000520: 20 20 20 20 20 20 20 20 20 99 20 D3 28 45 52 29 | . .(ER)|
00000530: 22 20 45 52 52 4F 52 20 49 4E 20 4C 49 4E 45 20 |" ERROR IN LINE |
00000540: 22 45 4C 22 2E 22 00 61 21 02 04 3A 20 20 20 20 |"EL".".a!..: |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D6 20 | . |
00000560: 82 00 7B 21 03 04 3A 20 20 20 20 20 20 20 20 20 |..{!..: |
00000570: 20 20 20 20 20 20 20 20 20 FE 19 00 81 21 04 04 | ....!..|
00000580: 3A 00 D1 21 05 04 3A B2 B2 B2 B2 B2 B2 B2 B2 B2 |:..!..:.........|
00000590: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005A0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005B0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005C0: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
000005D0: B2 00 DD 21 06 04 3A 41 4E 46 41 4E 47 00 E3 21 |...!..:ANFANG..!|
000005E0: 07 04 3A 00 10 22 08 04 3A 99 22 93 27 54 52 41 |..:.."..:.".'TRA|
000005F0: 4E 53 46 4F 52 4D 45 52 27 20 2D 2D 20 42 59 20 |NSFORMER' -- BY |
00000600: 54 48 4F 4D 41 53 20 4C 45 4E 4E 41 52 54 5A 22 |THOMAS LENNARTZ"|
00000610: 00 17 22 09 04 3A 99 00 3D 22 0A 04 3A 85 22 27 |.."..:..="..:."'|
00000620: 46 4C 4F 57 43 48 41 52 54 20 31 32 38 27 2D 44 |FLOWCHART 128'-D|
00000630: 41 54 45 49 20 22 3B 44 41 54 45 49 24 00 43 22 |ATEI ";DATEI$.C"|
00000640: 0B 04 3A 00 86 22 0C 04 3A 9F 20 31 2C 38 2C 30 |..:.."..:. 1,8,0|
00000650: 2C 44 41 54 45 49 24 AA 22 2C 53 2C 52 22 20 20 |,DATEI$.",S,R" |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 3A AC 44 41 54 45 49 20 | :.DATEI |
00000680: 4F 45 46 A5 45 4E 00 9A 22 0D 04 3A 8B 20 44 53 |OEF.EN.."..:. DS|
00000690: 20 B2 20 36 32 20 A7 20 FE 18 00 BB 22 0E 04 3A | . 62 . ...."..:|
000006A0: 20 20 99 22 44 41 54 45 49 20 45 58 49 53 54 49 | ."DATEI EXISTI|
000006B0: 45 52 54 20 4E 49 43 48 54 2E 22 00 C4 22 0F 04 |ERT NICHT.".."..|
000006C0: 3A 20 20 8A 00 D1 22 10 04 3A FE 19 3A D5 20 FE |: ..."..:..:. .|
000006D0: 18 00 E6 22 11 04 3A 20 20 4D 41 58 49 4D 55 4D |..."..: MAXIMUM|
000006E0: 20 B2 20 31 31 30 00 01 23 12 04 3A 20 20 86 20 | . 110..#..: . |
000006F0: 46 45 4C 44 25 28 4D 41 58 49 4D 55 4D 2C 31 35 |FELD%(MAXIMUM,15|
00000700: 29 00 1C 23 13 04 3A 20 20 86 20 46 45 4C 44 24 |)..#..: . FELD$|
00000710: 28 4D 41 58 49 4D 55 4D 2C 31 35 29 00 22 23 14 |(MAXIMUM,15)."#.|
00000720: 04 3A 00 2B 23 15 04 3A 20 20 EB 00 3E 23 16 04 |.:.+#..: ..>#..|
00000730: 3A 20 20 20 20 84 31 2C 5A 45 49 4C 45 25 00 5B |: .1,ZEILE%.[|
00000740: 23 17 04 3A 20 20 20 20 8B 20 5A 45 49 4C 45 25 |#..: . ZEILE%|
00000750: 20 B2 20 39 39 39 39 20 A7 20 ED 00 6F 23 18 04 | . 9999 . ..o#..|
00000760: 3A 20 20 20 20 84 31 2C 53 50 41 4C 54 45 25 00 |: .1,SPALTE%.|
00000770: 91 23 19 04 3A 20 20 20 20 84 31 2C 46 45 4C 44 |.#..: .1,FELD|
00000780: 25 28 5A 45 49 4C 45 25 2C 53 50 41 4C 54 45 25 |%(ZEILE%,SPALTE%|
00000790: 29 00 B5 23 1A 04 3A 20 20 20 20 46 45 4C 44 24 |)..#..: FELD$|
000007A0: 28 5A 45 49 4C 45 25 2C 53 50 41 4C 54 45 25 29 |(ZEILE%,SPALTE%)|
000007B0: 20 B2 20 22 22 00 C9 23 1B 04 3A 20 20 20 20 57 | . ""..#..: W|
000007C0: 45 52 54 24 20 B2 20 22 22 00 E4 23 1C 04 3A 20 |ERT$ . ""..#..: |
000007D0: 20 20 20 EB 20 FC 20 57 45 52 54 24 20 B2 20 C7 | . . WERT$ . .|
000007E0: 28 31 33 29 00 F9 23 1D 04 3A 20 20 20 20 20 20 |(13)..#..: |
000007F0: A1 23 31 2C 57 45 52 54 24 00 1A 24 1E 04 3A 20 |.#1,WERT$..$..: |
00000800: 20 20 20 20 20 8B 20 57 45 52 54 24 20 B3 B1 20 | . WERT$ .. |
00000810: C7 28 31 33 29 20 A7 20 FE 18 00 5D 24 1F 04 3A |.(13) . ...]$..:|
00000820: 20 20 20 20 20 20 20 20 46 45 4C 44 24 28 5A 45 | FELD$(ZE|
00000830: 49 4C 45 25 2C 53 50 41 4C 54 45 25 29 20 B2 20 |ILE%,SPALTE%) . |
00000840: 46 45 4C 44 24 28 5A 45 49 4C 45 25 2C 53 50 41 |FELD$(ZEILE%,SPA|
00000850: 4C 54 45 25 29 20 AA 20 57 45 52 54 24 00 6B 24 |LTE%) . WERT$.k$|
00000860: 20 04 3A 20 20 20 20 20 20 FE 19 00 76 24 21 04 | .: ...v$!.|
00000870: 3A 20 20 20 20 EC 00 7F 24 22 04 3A 20 20 EC 00 |: ...$".: ..|
00000880: 85 24 23 04 3A 00 90 24 24 04 3A 20 20 A0 20 31 |.$#.:..$$.: . 1|
00000890: 00 96 24 25 04 3A 00 A9 24 26 04 3A 41 4E 46 41 |..$%.:..$&.:ANFA|
000008A0: 4E 47 AB 53 55 43 48 45 4E 00 C0 24 27 04 3A 81 |NG.SUCHEN..$'.:.|
000008B0: 20 53 50 41 4C 54 45 20 B2 20 31 20 A4 20 31 35 | SPALTE . 1 . 15|
000008C0: 00 E3 24 28 04 3A 20 20 20 8B 20 46 45 4C 44 25 |..$(.: . FELD%|
000008D0: 28 31 2C 53 50 41 4C 54 45 29 20 B2 20 31 20 A7 |(1,SPALTE) . 1 .|
000008E0: 20 FE 18 00 FE 24 29 04 3A 20 20 20 20 20 53 50 | ....$).: SP|
000008F0: 41 4C 54 45 25 20 B2 20 53 50 41 4C 54 45 00 16 |ALTE% . SPALTE..|
00000900: 25 2A 04 3A 20 20 20 20 20 41 4E 46 41 4E 47 20 |%*.: ANFANG |
00000910: 20 B2 20 59 45 53 00 21 25 2B 04 3A 20 20 20 FE | . YES.!%+.: .|
00000920: 19 00 2F 25 2C 04 3A 82 20 53 50 41 4C 54 45 00 |../%,.:. SPALTE.|
00000930: 35 25 2D 04 3A 00 4A 25 2E 04 3A 8B 20 A8 20 41 |5%-.:.J%..:. . A|
00000940: 4E 46 41 4E 47 20 A7 20 FE 18 00 6C 25 2F 04 3A |NFANG . ...l%/.:|
00000950: 20 20 99 22 4B 45 49 4E 45 4E 20 41 4E 46 41 4E | ."KEINEN ANFAN|
00000960: 47 20 47 45 46 55 4E 44 45 4E 2E 22 00 75 25 30 |G GEFUNDEN.".u%0|
00000970: 04 3A 20 20 80 00 7D 25 31 04 3A FE 19 00 83 25 |.: ..}%1.:....%|
00000980: 32 04 3A 00 9F 25 33 04 3A 9F 20 31 2C 38 2C 31 |2.:..%3.:. 1,8,1|
00000990: 35 2C 22 53 3A 42 2F 22 AA 44 41 54 45 49 24 00 |5,"S:B/".DATEI$.|
000009A0: A8 25 34 04 3A A0 20 31 00 AE 25 35 04 3A 00 CE |.%4.:. 1..%5.:..|
000009B0: 25 36 04 3A 9F 20 31 2C 38 2C 31 2C 22 42 2F 22 |%6.:. 1,8,1,"B/"|
000009C0: AA 44 41 54 45 49 24 AA 22 2C 53 2C 57 22 00 07 |.DATEI$.",S,W"..|
000009D0: 26 37 04 3A 98 31 2C 22 31 30 30 30 20 47 4F 54 |&7.:.1,"1000 GOT|
000009E0: 4F 20 22 3B 28 31 30 30 30 AC 53 50 41 4C 54 45 |O ";(1000.SPALTE|
000009F0: 25 29 AA 31 3B 22 3A 52 45 4D 20 47 4F 54 4F 20 |%).1;":REM GOTO |
00000A00: 41 4E 46 41 4E 47 22 00 0D 26 38 04 3A 00 4A 26 |ANFANG"..&8.:.J&|
00000A10: 39 04 3A 81 20 5A 45 49 4C 45 20 B2 20 31 20 A4 |9.:. ZEILE . 1 .|
00000A20: 20 4D 41 58 49 4D 55 4D 20 AB 20 31 30 20 20 20 | MAXIMUM . 10 |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A40: 20 20 3A AC 4D 41 49 4E AB EC 00 6A 26 3A 04 3A | :.MAIN...j&:.:|
00000A50: 20 20 20 99 22 13 09 09 09 09 09 09 09 5A 45 49 | ."........ZEI|
00000A60: 4C 45 3A 20 22 5A 45 49 4C 45 00 A6 26 3B 04 3A |LE: "ZEILE..&;.:|
00000A70: 20 20 20 81 20 53 50 41 4C 54 45 20 B2 20 31 20 | . SPALTE . 1 |
00000A80: A4 20 31 35 20 20 20 20 20 20 20 20 20 20 20 20 |. 15 |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00000AA0: AC 53 55 42 AB EC 00 AC 26 3C 04 3A 00 D6 26 3D |.SUB....&<.:..&=|
00000AB0: 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 |.: . FELD%(|
00000AC0: 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 |ZEILE,SPALTE) . |
00000AD0: 30 20 A7 20 FE 18 00 FA 26 3E 04 AC 20 20 20 20 |0 . ....&>.. |
00000AE0: 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 | .1,(1000.SPA|
00000AF0: 4C 54 45 29 AA 5A 45 49 4C 45 00 08 27 3F 04 3A |LTE).ZEILE..'?.:|
00000B00: 20 20 20 20 20 20 FE 19 00 0E 27 40 04 3A 00 38 | ....'@.:.8|
00000B10: 27 41 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 |'A.: . FELD|
00000B20: 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 |%(ZEILE,SPALTE) |
00000B30: B2 20 31 20 A7 20 FE 18 00 69 27 42 04 3A 20 20 |. 1 . ...i'B.: |
00000B40: 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 | .1,(1000.S|
00000B50: 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 52 45 |PALTE).ZEILE;"RE|
00000B60: 4D 20 41 4E 46 41 4E 47 22 00 77 27 43 04 3A 20 |M ANFANG".w'C.: |
00000B70: 20 20 20 20 20 FE 19 00 7D 27 44 04 3A 00 A7 27 | ...}'D.:..'|
00000B80: 45 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 |E.: . FELD%|
00000B90: 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 |(ZEILE,SPALTE) .|
00000BA0: 20 32 20 A7 20 FE 18 00 E9 27 46 04 3A 20 20 20 | 2 . ....'F.: |
00000BB0: 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 | .1,(1000.SP|
00000BC0: 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 45 4E 44 |ALTE).ZEILE;"END|
00000BD0: 3A 52 45 4D 20 45 4E 44 45 20 44 45 53 20 50 52 |:REM ENDE DES PR|
00000BE0: 4F 47 52 41 4D 4D 45 53 22 00 F7 27 47 04 3A 20 |OGRAMMES"..'G.: |
00000BF0: 20 20 20 20 20 FE 19 00 FD 27 48 04 3A 00 27 28 | ....'H.:.'(|
00000C00: 49 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 |I.: . FELD%|
00000C10: 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 |(ZEILE,SPALTE) .|
00000C20: 20 33 20 A7 20 FE 18 00 5F 28 4A 04 3A 20 20 20 | 3 . ..._(J.: |
00000C30: 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 | .1,(1000.SP|
00000C40: 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 46 45 4C 44 |ALTE).ZEILE;FELD|
00000C50: 24 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 00 |$(ZEILE,SPALTE).|
00000C60: 6D 28 4B 04 3A 20 20 20 20 20 20 FE 19 00 73 28 |m(K.: ...s(|
00000C70: 4C 04 3A 00 9D 28 4D 04 3A 20 20 20 20 20 20 8B |L.:..(M.: .|
00000C80: 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 | FELD%(ZEILE,SPA|
00000C90: 4C 54 45 29 20 B2 20 34 20 A7 20 FE 18 00 D5 28 |LTE) . 4 . ....(|
00000CA0: 4E 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 |N.: .1,(1|
00000CB0: 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C |000.SPALTE).ZEIL|
00000CC0: 45 3B 46 45 4C 44 24 28 5A 45 49 4C 45 2C 53 50 |E;FELD$(ZEILE,SP|
00000CD0: 41 4C 54 45 29 00 E3 28 4F 04 3A 20 20 20 20 20 |ALTE)..(O.: |
00000CE0: 20 FE 19 00 E9 28 50 04 3A 00 13 29 51 04 3A 20 | ....(P.:..)Q.: |
00000CF0: 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 | . FELD%(ZEI|
00000D00: 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 35 20 A7 |LE,SPALTE) . 5 .|
00000D10: 20 FE 18 00 38 29 52 04 3A 20 20 20 20 20 20 20 | ...8)R.: |
00000D20: 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 | .1,(1000.SPALTE|
00000D30: 29 AA 5A 45 49 4C 45 3B 00 71 29 53 04 3A 20 20 |).ZEILE;.q)S.: |
00000D40: 20 20 20 20 20 20 98 31 2C 22 49 46 20 22 3B 46 | .1,"IF ";F|
00000D50: 45 4C 44 24 28 5A 45 49 4C 45 2C 53 50 41 4C 54 |ELD$(ZEILE,SPALT|
00000D60: 45 29 3B 22 20 54 48 45 4E 20 47 4F 54 4F 20 22 |E);" THEN GOTO "|
00000D70: 3B 00 A9 29 54 04 3A 20 20 20 20 20 20 20 20 98 |;..)T.: .|
00000D80: 31 2C 28 31 30 30 30 AC 28 53 50 41 4C 54 45 AB |1,(1000.(SPALTE.|
00000D90: 31 29 29 AA 5A 45 49 4C 45 3B 22 20 3A 45 4C 53 |1)).ZEILE;" :ELS|
00000DA0: 45 20 47 4F 54 4F 20 22 3B 00 D1 29 55 04 3A 20 |E GOTO ";..)U.: |
00000DB0: 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC | .1,(1000.|
00000DC0: 28 53 50 41 4C 54 45 AA 31 29 29 AA 5A 45 49 4C |(SPALTE.1)).ZEIL|
00000DD0: 45 00 DF 29 56 04 3A 20 20 20 20 20 20 FE 19 00 |E..)V.: ...|
00000DE0: E5 29 57 04 3A 00 0F 2A 58 04 3A 20 20 20 20 20 |.)W.:..*X.: |
00000DF0: 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 | . FELD%(ZEILE,S|
00000E00: 50 41 4C 54 45 29 20 B2 20 36 20 A7 20 FE 18 00 |PALTE) . 6 . ...|
00000E10: 34 2A 59 04 3A 20 20 20 20 20 20 20 20 98 31 2C |4*Y.: .1,|
00000E20: 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 |(1000.SPALTE).ZE|
00000E30: 49 4C 45 3B 00 6D 2A 5A 04 3A 20 20 20 20 20 20 |ILE;.m*Z.: |
00000E40: 20 20 98 31 2C 22 49 46 20 22 3B 46 45 4C 44 24 | .1,"IF ";FELD$|
00000E50: 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 3B 22 |(ZEILE,SPALTE);"|
00000E60: 20 54 48 45 4E 20 47 4F 54 4F 20 22 3B 00 A5 2A | THEN GOTO ";..*|
00000E70: 5B 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 |[.: .1,(1|
00000E80: 30 30 30 AC 53 50 41 4C 54 45 29 AA 28 5A 45 49 |000.SPALTE).(ZEI|
00000E90: 4C 45 AA 31 29 3B 22 20 3A 45 4C 53 45 20 47 4F |LE.1);" :ELSE GO|
00000EA0: 54 4F 20 22 3B 00 CD 2A 5C 04 3A 20 20 20 20 20 |TO ";..*\.: |
00000EB0: 20 20 20 98 31 2C 28 31 30 30 30 AC 28 53 50 41 | .1,(1000.(SPA|
00000EC0: 4C 54 45 AA 31 29 29 AA 5A 45 49 4C 45 00 DB 2A |LTE.1)).ZEILE..*|
00000ED0: 5D 04 3A 20 20 20 20 20 20 FE 19 00 E1 2A 5E 04 |].: ....*^.|
00000EE0: 3A 00 0B 2B 5F 04 3A 20 20 20 20 20 20 8B 20 46 |:..+_.: . F|
00000EF0: 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 |ELD%(ZEILE,SPALT|
00000F00: 45 29 20 B2 20 37 20 A7 20 FE 18 00 30 2B 60 04 |E) . 7 . ...0+`.|
00000F10: 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 |: .1,(100|
00000F20: 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B |0.SPALTE).ZEILE;|
00000F30: 00 69 2B 61 04 3A 20 20 20 20 20 20 20 20 98 31 |.i+a.: .1|
00000F40: 2C 22 49 46 20 22 3B 46 45 4C 44 24 28 5A 45 49 |,"IF ";FELD$(ZEI|
00000F50: 4C 45 2C 53 50 41 4C 54 45 29 3B 22 20 54 48 45 |LE,SPALTE);" THE|
00000F60: 4E 20 47 4F 54 4F 20 22 3B 00 9F 2B 62 04 3A 20 |N GOTO ";..+b.: |
00000F70: 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC | .1,(1000.|
00000F80: 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 AA 31 3B |SPALTE).ZEILE.1;|
00000F90: 22 20 3A 45 4C 53 45 20 47 4F 54 4F 20 22 3B 00 |" :ELSE GOTO ";.|
00000FA0: C7 2B 63 04 3A 20 20 20 20 20 20 20 20 98 31 2C |.+c.: .1,|
00000FB0: 28 31 30 30 30 AC 28 53 50 41 4C 54 45 AB 31 29 |(1000.(SPALTE.1)|
00000FC0: 29 AA 5A 45 49 4C 45 00 D5 2B 64 04 3A 20 20 20 |).ZEILE..+d.: |
00000FD0: 20 20 20 FE 19 00 DB 2B 65 04 3A 00 05 2C 66 04 | ....+e.:..,f.|
00000FE0: 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A |: . FELD%(Z|
00000FF0: 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 38 |EILE,SPALTE) . 8|
00001000: 20 A7 20 FE 18 00 2A 2C 67 04 3A 20 20 20 20 20 | . ...*,g.: |
00001010: 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C | .1,(1000.SPAL|
00001020: 54 45 29 AA 5A 45 49 4C 45 3B 00 63 2C 68 04 3A |TE).ZEILE;.c,h.:|
00001030: 20 20 20 20 20 20 20 20 98 31 2C 22 49 46 20 22 | .1,"IF "|
00001040: 3B 46 45 4C 44 24 28 5A 45 49 4C 45 2C 53 50 41 |;FELD$(ZEILE,SPA|
00001050: 4C 54 45 29 3B 22 20 54 48 45 4E 20 47 4F 54 4F |LTE);" THEN GOTO|
00001060: 20 22 3B 00 9B 2C 69 04 3A 20 20 20 20 20 20 20 | ";..,i.: |
00001070: 20 98 31 2C 28 31 30 30 30 AC 28 53 50 41 4C 54 | .1,(1000.(SPALT|
00001080: 45 AA 31 29 29 AA 5A 45 49 4C 45 3B 22 20 3A 45 |E.1)).ZEILE;" :E|
00001090: 4C 53 45 20 47 4F 54 4F 20 22 3B 00 C3 2C 6A 04 |LSE GOTO ";..,j.|
000010A0: 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 |: .1,(100|
000010B0: 30 AC 28 53 50 41 4C 54 45 AB 31 29 29 AA 5A 45 |0.(SPALTE.1)).ZE|
000010C0: 49 4C 45 00 D1 2C 6B 04 3A 20 20 20 20 20 20 FE |ILE..,k.: .|
000010D0: 19 00 D7 2C 6C 04 3A 00 01 2D 6D 04 3A 20 20 20 |...,l.:..-m.: |
000010E0: 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 | . FELD%(ZEILE|
000010F0: 2C 53 50 41 4C 54 45 29 20 B2 20 39 20 A7 20 FE |,SPALTE) . 9 . .|
00001100: 18 00 26 2D 6E 04 3A 20 20 20 20 20 20 20 20 98 |..&-n.: .|
00001110: 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA |1,(1000.SPALTE).|
00001120: 5A 45 49 4C 45 3B 00 5F 2D 6F 04 3A 20 20 20 20 |ZEILE;._-o.: |
00001130: 20 20 20 20 98 31 2C 22 49 46 20 22 3B 46 45 4C | .1,"IF ";FEL|
00001140: 44 24 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 |D$(ZEILE,SPALTE)|
00001150: 3B 22 20 54 48 45 4E 20 47 4F 54 4F 20 22 3B 00 |;" THEN GOTO ";.|
00001160: 97 2D 70 04 3A 20 20 20 20 20 20 20 20 98 31 2C |.-p.: .1,|
00001170: 28 31 30 30 30 AC 28 53 50 41 4C 54 45 AA 31 29 |(1000.(SPALTE.1)|
00001180: 29 AA 5A 45 49 4C 45 3B 22 20 3A 45 4C 53 45 20 |).ZEILE;" :ELSE |
00001190: 47 4F 54 4F 20 22 3B 00 BF 2D 71 04 3A 20 20 20 |GOTO ";..-q.: |
000011A0: 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 | .1,(1000.SP|
000011B0: 41 4C 54 45 29 AA 28 5A 45 49 4C 45 AA 31 29 00 |ALTE).(ZEILE.1).|
000011C0: CD 2D 72 04 3A 20 20 20 20 20 20 FE 19 00 D3 2D |.-r.: ....-|
000011D0: 73 04 3A 00 FE 2D 74 04 3A 20 20 20 20 20 20 8B |s.:..-t.: .|
000011E0: 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 | FELD%(ZEILE,SPA|
000011F0: 4C 54 45 29 20 B2 20 31 30 20 A7 20 FE 18 00 23 |LTE) . 10 . ...#|
00001200: 2E 75 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 |.u.: .1,(|
00001210: 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 |1000.SPALTE).ZEI|
00001220: 4C 45 3B 00 5C 2E 76 04 3A 20 20 20 20 20 20 20 |LE;.\.v.: |
00001230: 20 98 31 2C 22 49 46 20 22 3B 46 45 4C 44 24 28 | .1,"IF ";FELD$(|
00001240: 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 3B 22 20 |ZEILE,SPALTE);" |
00001250: 54 48 45 4E 20 47 4F 54 4F 20 22 3B 00 94 2E 77 |THEN GOTO ";...w|
00001260: 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 |.: .1,(10|
00001270: 30 30 AC 28 53 50 41 4C 54 45 AB 31 29 29 AA 5A |00.(SPALTE.1)).Z|
00001280: 45 49 4C 45 3B 22 20 3A 45 4C 53 45 20 47 4F 54 |EILE;" :ELSE GOT|
00001290: 4F 20 22 3B 00 BC 2E 78 04 3A 20 20 20 20 20 20 |O ";...x.: |
000012A0: 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 | .1,(1000.SPALT|
000012B0: 45 29 AA 28 5A 45 49 4C 45 AA 31 29 00 CA 2E 79 |E).(ZEILE.1)...y|
000012C0: 04 3A 20 20 20 20 20 20 FE 19 00 D0 2E 7A 04 3A |.: .....z.:|
000012D0: 00 FB 2E 7B 04 3A 20 20 20 20 20 20 8B 20 46 45 |...{.: . FE|
000012E0: 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 |LD%(ZEILE,SPALTE|
000012F0: 29 20 B2 20 31 31 20 A7 20 FE 18 00 3B 2F 7C 04 |) . 11 . ...;/|.|
00001300: 3A 20 20 20 20 20 20 20 20 99 22 5A 45 49 4C 45 |: ."ZEILE|
00001310: 22 5A 45 49 4C 45 22 20 53 50 41 4C 54 45 22 53 |"ZEILE" SPALTE"S|
00001320: 50 41 4C 54 45 22 20 49 4C 4C 45 47 41 4C 45 53 |PALTE" ILLEGALES|
00001330: 20 53 59 4D 42 4F 4C 21 21 21 22 00 7D 2F 7D 04 | SYMBOL!!!".}/}.|
00001340: 3A 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 |: .1,(1000|
00001350: AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 |.SPALTE).ZEILE;"|
00001360: 52 45 4D 20 46 45 48 4C 45 52 21 21 21 20 55 50 |REM FEHLER!!! UP|
00001370: 20 45 49 4E 2F 41 55 53 47 41 42 45 22 00 8B 2F | EIN/AUSGABE"../|
00001380: 7E 04 3A 20 20 20 20 20 20 FE 19 00 91 2F 7F 04 |~.: ..../..|
00001390: 3A 00 BC 2F 80 04 3A 20 20 20 20 20 20 8B 20 46 |:../..: . F|
000013A0: 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 |ELD%(ZEILE,SPALT|
000013B0: 45 29 20 B2 20 31 32 20 A7 20 FE 18 00 FC 2F 81 |E) . 12 . ..../.|
000013C0: 04 3A 20 20 20 20 20 20 20 20 99 22 5A 45 49 4C |.: ."ZEIL|
000013D0: 45 22 5A 45 49 4C 45 22 20 53 50 41 4C 54 45 22 |E"ZEILE" SPALTE"|
000013E0: 53 50 41 4C 54 45 22 20 49 4C 4C 45 47 41 4C 45 |SPALTE" ILLEGALE|
000013F0: 53 20 53 59 4D 42 4F 4C 21 21 21 22 00 40 30 82 |S SYMBOL!!!".@0.|
00001400: 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 |.: .1,(10|
00001410: 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 |00.SPALTE).ZEILE|
00001420: 3B 22 52 45 4D 20 46 45 48 4C 45 52 21 21 21 20 |;"REM FEHLER!!! |
00001430: 55 50 20 56 45 52 41 52 42 45 49 54 55 4E 47 22 |UP VERARBEITUNG"|
00001440: 00 4E 30 83 04 3A 20 20 20 20 20 20 FE 19 00 54 |.N0..: ...T|
00001450: 30 84 04 3A 00 7F 30 85 04 3A 20 20 20 20 20 20 |0..:..0..: |
00001460: 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 |. FELD%(ZEILE,SP|
00001470: 41 4C 54 45 29 20 B2 20 31 33 20 A7 20 FE 18 00 |ALTE) . 13 . ...|
00001480: B7 30 86 04 3A 20 20 20 20 20 20 20 20 98 31 2C |.0..: .1,|
00001490: 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 |(1000.SPALTE).ZE|
000014A0: 49 4C 45 3B 46 45 4C 44 24 28 5A 45 49 4C 45 2C |ILE;FELD$(ZEILE,|
000014B0: 53 50 41 4C 54 45 29 00 C5 30 87 04 3A 20 20 20 |SPALTE)..0..: |
000014C0: 20 20 20 FE 19 00 CB 30 88 04 3A 00 F6 30 89 04 | ....0..:..0..|
000014D0: 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A |: . FELD%(Z|
000014E0: 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 31 |EILE,SPALTE) . 1|
000014F0: 34 20 A7 20 FE 18 00 23 31 8A 04 3A 20 20 20 20 |4 . ...#1..: |
00001500: 20 20 20 20 8B 20 46 45 4C 44 24 28 5A 45 49 4C | . FELD$(ZEIL|
00001510: 45 2C 53 50 41 4C 54 45 29 20 B2 20 22 22 20 A7 |E,SPALTE) . "" .|
00001520: 20 FE 18 00 50 31 8B 04 3A 20 20 20 20 20 20 20 | ...P1..: |
00001530: 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C | .1,(1000.SPAL|
00001540: 54 45 29 AA 5A 45 49 4C 45 3B 22 4E 45 58 54 22 |TE).ZEILE;"NEXT"|
00001550: 00 67 31 8C 04 3A 20 20 20 20 20 20 20 20 FE 19 |.g1..: ..|
00001560: 20 3A 20 D5 20 FE 18 00 A1 31 8D 04 3A 20 20 20 | : . ....1..: |
00001570: 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC | .1,(1000.|
00001580: 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 46 45 |SPALTE).ZEILE;FE|
00001590: 4C 44 24 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 |LD$(ZEILE,SPALTE|
000015A0: 29 00 B1 31 8E 04 3A 20 20 20 20 20 20 20 20 FE |)..1..: .|
000015B0: 19 00 BF 31 8F 04 3A 20 20 20 20 20 20 FE 19 00 |...1..: ...|
000015C0: C5 31 90 04 3A 00 F0 31 91 04 3A 20 20 20 20 20 |.1..:..1..: |
000015D0: 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 | . FELD%(ZEILE,S|
000015E0: 50 41 4C 54 45 29 20 B2 20 31 35 20 A7 20 FE 18 |PALTE) . 15 . ..|
000015F0: 00 30 32 92 04 3A 20 20 20 20 20 20 20 20 99 22 |.02..: ."|
00001600: 5A 45 49 4C 45 22 5A 45 49 4C 45 22 20 53 50 41 |ZEILE"ZEILE" SPA|
00001610: 4C 54 45 22 53 50 41 4C 54 45 22 20 49 4C 4C 45 |LTE"SPALTE" ILLE|
00001620: 47 41 4C 45 53 20 53 59 4D 42 4F 4C 21 21 21 22 |GALES SYMBOL!!!"|
00001630: 00 7A 32 93 04 3A 20 20 20 20 20 20 20 20 98 31 |.z2..: .1|
00001640: 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A |,(1000.SPALTE).Z|
00001650: 45 49 4C 45 3B 22 52 45 4D 20 46 45 48 4C 45 52 |EILE;"REM FEHLER|
00001660: 21 21 21 20 4D 41 4E 55 45 4C 4C 45 20 56 45 52 |!!! MANUELLE VER|
00001670: 41 52 42 45 49 54 55 4E 47 22 00 88 32 94 04 3A |ARBEITUNG"..2..:|
00001680: 20 20 20 20 20 20 FE 19 00 8E 32 95 04 3A 00 B9 | ....2..:..|
00001690: 32 96 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 |2..: . FELD|
000016A0: 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 |%(ZEILE,SPALTE) |
000016B0: B2 20 31 36 20 A7 20 FE 18 00 F9 32 97 04 3A 20 |. 16 . ....2..: |
000016C0: 20 20 20 20 20 20 20 99 22 5A 45 49 4C 45 22 5A | ."ZEILE"Z|
000016D0: 45 49 4C 45 22 20 53 50 41 4C 54 45 22 53 50 41 |EILE" SPALTE"SPA|
000016E0: 4C 54 45 22 20 49 4C 4C 45 47 41 4C 45 53 20 53 |LTE" ILLEGALES S|
000016F0: 59 4D 42 4F 4C 21 21 21 22 00 3F 33 98 04 3A 20 |YMBOL!!!".?3..: |
00001700: 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC | .1,(1000.|
00001710: 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 52 |SPALTE).ZEILE;"R|
00001720: 45 4D 20 46 45 48 4C 45 52 21 21 21 20 56 45 52 |EM FEHLER!!! VER|
00001730: 42 49 4E 44 55 4E 47 53 53 54 45 4C 4C 45 22 00 |BINDUNGSSTELLE".|
00001740: 4D 33 99 04 3A 20 20 20 20 20 20 FE 19 00 53 33 |M3..: ...S3|
00001750: 9A 04 3A 00 7E 33 9B 04 3A 20 20 20 20 20 20 8B |..:.~3..: .|
00001760: 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 | FELD%(ZEILE,SPA|
00001770: 4C 54 45 29 20 B2 20 31 37 20 A7 20 FE 18 00 A8 |LTE) . 17 . ....|
00001780: 33 9C 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 |3..: .1,(|
00001790: 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 |1000.SPALTE).ZEI|
000017A0: 4C 45 3B 22 52 45 4D 22 00 B6 33 9D 04 3A 20 20 |LE;"REM"..3..: |
000017B0: 20 20 20 20 FE 19 00 BC 33 9E 04 3A 00 E7 33 9F | ....3..:..3.|
000017C0: 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 |.: . FELD%(|
000017D0: 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 |ZEILE,SPALTE) . |
000017E0: 31 38 20 A7 20 FE 18 00 2B 34 A0 04 3A 20 20 20 |18 . ...+4..: |
000017F0: 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 | .1,(1000.SP|
00001800: 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 |ALTE).ZEILE;"GOT|
00001810: 4F 20 22 3B 28 31 30 30 30 AC 53 50 41 4C 54 45 |O ";(1000.SPALTE|
00001820: 29 AA 28 5A 45 49 4C 45 AB 31 29 00 39 34 A1 04 |).(ZEILE.1).94..|
00001830: 3A 20 20 20 20 20 20 FE 19 00 3F 34 A2 04 3A 00 |: ...?4..:.|
00001840: 6A 34 A3 04 3A 20 20 20 20 20 20 8B 20 46 45 4C |j4..: . FEL|
00001850: 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 |D%(ZEILE,SPALTE)|
00001860: 20 B2 20 31 39 20 A7 20 FE 18 00 AE 34 A4 04 3A | . 19 . ....4..:|
00001870: 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 | .1,(1000|
00001880: AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 |.SPALTE).ZEILE;"|
00001890: 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC 28 53 50 |GOTO ";(1000.(SP|
000018A0: 41 4C 54 45 AA 31 29 29 AA 5A 45 49 4C 45 00 BC |ALTE.1)).ZEILE..|
000018B0: 34 A5 04 3A 20 20 20 20 20 20 FE 19 00 C2 34 A6 |4..: ....4.|
000018C0: 04 3A 00 ED 34 A7 04 3A 20 20 20 20 20 20 8B 20 |.:..4..: . |
000018D0: 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C |FELD%(ZEILE,SPAL|
000018E0: 54 45 29 20 B2 20 32 30 20 A7 20 FE 18 00 31 35 |TE) . 20 . ...15|
000018F0: A8 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 |..: .1,(1|
00001900: 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C |000.SPALTE).ZEIL|
00001910: 45 3B 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC |E;"GOTO ";(1000.|
00001920: 28 53 50 41 4C 54 45 AB 31 29 29 AA 5A 45 49 4C |(SPALTE.1)).ZEIL|
00001930: 45 00 3F 35 A9 04 3A 20 20 20 20 20 20 FE 19 00 |E.?5..: ...|
00001940: 45 35 AA 04 3A 00 8B 35 AB 04 3A 20 20 20 20 20 |E5..:..5..: |
00001950: 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 | . FELD%(ZEILE,S|
00001960: 50 41 4C 54 45 29 20 B1 20 32 30 20 AF 20 46 45 |PALTE) . 20 . FE|
00001970: 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 |LD%(ZEILE,SPALTE|
00001980: 29 20 B3 20 32 35 20 A7 20 FE 18 00 CB 35 AC 04 |) . 25 . ....5..|
00001990: 3A 20 20 20 20 20 20 20 20 99 22 5A 45 49 4C 45 |: ."ZEILE|
000019A0: 22 5A 45 49 4C 45 22 20 53 50 41 4C 54 45 22 53 |"ZEILE" SPALTE"S|
000019B0: 50 41 4C 54 45 22 20 49 4C 4C 45 47 41 4C 45 53 |PALTE" ILLEGALES|
000019C0: 20 53 59 4D 42 4F 4C 21 21 21 22 00 0C 36 AD 04 | SYMBOL!!!"..6..|
000019D0: 3A 20 20 20 20 20 20 20 20 99 28 31 30 30 30 AC |: .(1000.|
000019E0: 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 52 |SPALTE).ZEILE;"R|
000019F0: 45 4D 20 46 45 48 4C 45 52 21 21 21 20 4B 52 45 |EM FEHLER!!! KRE|
00001A00: 55 5A 55 4E 47 53 50 55 4E 4B 54 22 00 1A 36 AE |UZUNGSPUNKT"..6.|
00001A10: 04 3A 20 20 20 20 20 20 FE 19 00 20 36 AF 04 3A |.: ... 6..:|
00001A20: 00 4B 36 B0 04 3A 20 20 20 20 20 20 8B 20 46 45 |.K6..: . FE|
00001A30: 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 |LD%(ZEILE,SPALTE|
00001A40: 29 20 B2 20 32 35 20 A7 20 FE 18 00 8F 36 B1 04 |) . 25 . ....6..|
00001A50: 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 |: .1,(100|
00001A60: 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B |0.SPALTE).ZEILE;|
00001A70: 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC 28 53 |"GOTO ";(1000.(S|
00001A80: 50 41 4C 54 45 AB 31 29 29 AA 5A 45 49 4C 45 00 |PALTE.1)).ZEILE.|
00001A90: 9D 36 B2 04 3A 20 20 20 20 20 20 FE 19 00 A3 36 |.6..: ....6|
00001AA0: B3 04 3A 00 CE 36 B4 04 3A 20 20 20 20 20 20 8B |..:..6..: .|
00001AB0: 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 | FELD%(ZEILE,SPA|
00001AC0: 4C 54 45 29 20 B2 20 32 36 20 A7 20 FE 18 00 12 |LTE) . 26 . ....|
00001AD0: 37 B5 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 |7..: .1,(|
00001AE0: 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 |1000.SPALTE).ZEI|
00001AF0: 4C 45 3B 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 |LE;"GOTO ";(1000|
00001B00: AC 53 50 41 4C 54 45 29 AA 28 5A 45 49 4C 45 AB |.SPALTE).(ZEILE.|
00001B10: 31 29 00 20 37 B6 04 3A 20 20 20 20 20 20 FE 19 |1). 7..: ..|
00001B20: 00 26 37 B7 04 3A 00 51 37 B8 04 3A 20 20 20 20 |.&7..:.Q7..: |
00001B30: 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C | . FELD%(ZEILE,|
00001B40: 53 50 41 4C 54 45 29 20 B2 20 32 37 20 A7 20 FE |SPALTE) . 27 . .|
00001B50: 18 00 95 37 B9 04 3A 20 20 20 20 20 20 20 20 98 |...7..: .|
00001B60: 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA |1,(1000.SPALTE).|
00001B70: 5A 45 49 4C 45 3B 22 47 4F 54 4F 20 22 3B 28 31 |ZEILE;"GOTO ";(1|
00001B80: 30 30 30 AC 28 53 50 41 4C 54 45 AA 31 29 29 AA |000.(SPALTE.1)).|
00001B90: 5A 45 49 4C 45 00 A3 37 BA 04 3A 20 20 20 20 20 |ZEILE..7..: |
00001BA0: 20 FE 19 00 A9 37 BB 04 3A 00 D4 37 BC 04 3A 20 | ....7..:..7..: |
00001BB0: 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 | . FELD%(ZEI|
00001BC0: 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 32 38 20 |LE,SPALTE) . 28 |
00001BD0: A7 20 FE 18 00 18 38 BD 04 3A 20 20 20 20 20 20 |. ....8..: |
00001BE0: 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 | .1,(1000.SPALT|
00001BF0: 45 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 4F 20 22 |E).ZEILE;"GOTO "|
00001C00: 3B 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 28 |;(1000.SPALTE).(|
00001C10: 5A 45 49 4C 45 AB 31 29 00 26 38 BE 04 3A 20 20 |ZEILE.1).&8..: |
00001C20: 20 20 20 20 FE 19 00 2C 38 BF 04 3A 00 57 38 C0 | ...,8..:.W8.|
00001C30: 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 |.: . FELD%(|
00001C40: 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 |ZEILE,SPALTE) . |
00001C50: 32 39 20 A7 20 FE 18 00 9B 38 C1 04 3A 20 20 20 |29 . ....8..: |
00001C60: 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 | .1,(1000.SP|
00001C70: 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 |ALTE).ZEILE;"GOT|
00001C80: 4F 20 22 3B 28 31 30 30 30 AC 53 50 41 4C 54 45 |O ";(1000.SPALTE|
00001C90: 29 AA 28 5A 45 49 4C 45 AA 31 29 00 A9 38 C2 04 |).(ZEILE.1)..8..|
00001CA0: 3A 20 20 20 20 20 20 FE 19 00 AF 38 C3 04 3A 00 |: ....8..:.|
00001CB0: DA 38 C4 04 3A 20 20 20 20 20 20 8B 20 46 45 4C |.8..: . FEL|
00001CC0: 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 |D%(ZEILE,SPALTE)|
00001CD0: 20 B2 20 33 30 20 A7 20 FE 18 00 1E 39 C5 04 3A | . 30 . ....9..:|
00001CE0: 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 | .1,(1000|
00001CF0: AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 |.SPALTE).ZEILE;"|
00001D00: 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC 28 53 50 |GOTO ";(1000.(SP|
00001D10: 41 4C 54 45 AB 31 29 29 AA 5A 45 49 4C 45 00 2C |ALTE.1)).ZEILE.,|
00001D20: 39 C6 04 3A 20 20 20 20 20 20 FE 19 00 32 39 C7 |9..: ...29.|
00001D30: 04 3A 00 5D 39 C8 04 3A 20 20 20 20 20 20 8B 20 |.:.]9..: . |
00001D40: 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C |FELD%(ZEILE,SPAL|
00001D50: 54 45 29 20 B2 20 33 31 20 A7 20 FE 18 00 A1 39 |TE) . 31 . ....9|
00001D60: C9 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 |..: .1,(1|
00001D70: 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C |000.SPALTE).ZEIL|
00001D80: 45 3B 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC |E;"GOTO ";(1000.|
00001D90: 53 50 41 4C 54 45 29 AA 28 5A 45 49 4C 45 AA 31 |SPALTE).(ZEILE.1|
00001DA0: 29 00 AF 39 CA 04 3A 20 20 20 20 20 20 FE 19 00 |)..9..: ...|
00001DB0: B5 39 CB 04 3A 00 E0 39 CC 04 3A 20 20 20 20 20 |.9..:..9..: |
00001DC0: 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 | . FELD%(ZEILE,S|
00001DD0: 50 41 4C 54 45 29 20 B2 20 33 32 20 A7 20 FE 18 |PALTE) . 32 . ..|
00001DE0: 00 24 3A CD 04 3A 20 20 20 20 20 20 20 20 98 31 |.$:..: .1|
00001DF0: 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A |,(1000.SPALTE).Z|
00001E00: 45 49 4C 45 3B 22 47 4F 54 4F 20 22 3B 28 31 30 |EILE;"GOTO ";(10|
00001E10: 30 30 AC 28 53 50 41 4C 54 45 AA 31 29 29 AA 5A |00.(SPALTE.1)).Z|
00001E20: 45 49 4C 45 00 32 3A CE 04 3A 20 20 20 20 20 20 |EILE.2:..: |
00001E30: FE 19 00 38 3A CF 04 3A 00 63 3A D0 04 3A 20 20 |...8:..:.c:..: |
00001E40: 20 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C | . FELD%(ZEIL|
00001E50: 45 2C 53 50 41 4C 54 45 29 20 B2 20 33 33 20 A7 |E,SPALTE) . 33 .|
00001E60: 20 FE 18 00 A7 3A D1 04 3A 20 20 20 20 20 20 20 | ....:..: |
00001E70: 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 | .1,(1000.SPALTE|
00001E80: 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 4F 20 22 3B |).ZEILE;"GOTO ";|
00001E90: 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 28 5A |(1000.SPALTE).(Z|
00001EA0: 45 49 4C 45 AA 31 29 00 B5 3A D2 04 3A 20 20 20 |EILE.1)..:..: |
00001EB0: 20 20 20 FE 19 00 BB 3A D3 04 3A 00 E6 3A D4 04 | ....:..:..:..|
00001EC0: 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A |: . FELD%(Z|
00001ED0: 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 33 |EILE,SPALTE) . 3|
00001EE0: 34 20 A7 20 FE 18 00 2A 3B D5 04 3A 20 20 20 20 |4 . ...*;..: |
00001EF0: 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 | .1,(1000.SPA|
00001F00: 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 4F |LTE).ZEILE;"GOTO|
00001F10: 20 22 3B 28 31 30 30 30 AC 53 50 41 4C 54 45 29 | ";(1000.SPALTE)|
00001F20: AA 28 5A 45 49 4C 45 AB 31 29 00 38 3B D6 04 3A |.(ZEILE.1).8;..:|
00001F30: 20 20 20 20 20 20 FE 19 00 3E 3B D7 04 3A 00 69 | ...>;..:.i|
00001F40: 3B D8 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 |;..: . FELD|
00001F50: 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 |%(ZEILE,SPALTE) |
00001F60: B2 20 33 35 20 A7 20 FE 18 00 AD 3B D9 04 3A 20 |. 35 . ....;..: |
00001F70: 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC | .1,(1000.|
00001F80: 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 47 |SPALTE).ZEILE;"G|
00001F90: 4F 54 4F 20 22 3B 28 31 30 30 30 AC 53 50 41 4C |OTO ";(1000.SPAL|
00001FA0: 54 45 29 AA 28 5A 45 49 4C 45 AA 31 29 00 BB 3B |TE).(ZEILE.1)..;|
00001FB0: DA 04 3A 20 20 20 20 20 20 FE 19 00 C1 3B DB 04 |..: ....;..|
00001FC0: 3A 00 EC 3B DC 04 3A 20 20 20 20 20 20 8B 20 46 |:..;..: . F|
00001FD0: 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 |ELD%(ZEILE,SPALT|
00001FE0: 45 29 20 B2 20 33 36 20 A7 20 FE 18 00 30 3C DD |E) . 36 . ...0<.|
00001FF0: 04 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 |.: .1,(10|
00002000: 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 |00.SPALTE).ZEILE|
00002010: 3B 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC 53 |;"GOTO ";(1000.S|
00002020: 50 41 4C 54 45 29 AA 28 5A 45 49 4C 45 AB 31 29 |PALTE).(ZEILE.1)|
00002030: 00 3E 3C DE 04 3A 20 20 20 20 20 20 FE 19 00 44 |.><..: ...D|
00002040: 3C DF 04 3A 00 6F 3C E0 04 3A 20 20 20 20 20 20 |<..:.o<..: |
00002050: 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 |. FELD%(ZEILE,SP|
00002060: 41 4C 54 45 29 20 B2 20 33 37 20 A7 20 FE 18 00 |ALTE) . 37 . ...|
00002070: B3 3C E1 04 3A 20 20 20 20 20 20 20 20 98 31 2C |.<..: .1,|
00002080: 28 31 30 30 30 AC 53 50 41 4C 54 45 29 AA 5A 45 |(1000.SPALTE).ZE|
00002090: 49 4C 45 3B 22 47 4F 54 4F 20 22 3B 28 31 30 30 |ILE;"GOTO ";(100|
000020A0: 30 AC 28 53 50 41 4C 54 45 AA 31 29 29 AA 5A 45 |0.(SPALTE.1)).ZE|
000020B0: 49 4C 45 00 C1 3C E2 04 3A 20 20 20 20 20 20 FE |ILE..<..: .|
000020C0: 19 00 C7 3C E3 04 3A 00 F2 3C E4 04 3A 20 20 20 |...<..:..<..: |
000020D0: 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 49 4C 45 | . FELD%(ZEILE|
000020E0: 2C 53 50 41 4C 54 45 29 20 B2 20 33 38 20 A7 20 |,SPALTE) . 38 . |
000020F0: FE 18 00 36 3D E5 04 3A 20 20 20 20 20 20 20 20 |...6=..: |
00002100: 98 31 2C 28 31 30 30 30 AC 53 50 41 4C 54 45 29 |.1,(1000.SPALTE)|
00002110: AA 5A 45 49 4C 45 3B 22 47 4F 54 4F 20 22 3B 28 |.ZEILE;"GOTO ";(|
00002120: 31 30 30 30 AC 28 53 50 41 4C 54 45 AB 31 29 29 |1000.(SPALTE.1))|
00002130: AA 5A 45 49 4C 45 00 44 3D E6 04 3A 20 20 20 20 |.ZEILE.D=..: |
00002140: 20 20 FE 19 00 4A 3D E7 04 3A 00 75 3D E8 04 3A | ...J=..:.u=..:|
00002150: 20 20 20 20 20 20 8B 20 46 45 4C 44 25 28 5A 45 | . FELD%(ZE|
00002160: 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 20 33 39 |ILE,SPALTE) . 39|
00002170: 20 A7 20 FE 18 00 B9 3D E9 04 3A 20 20 20 20 20 | . ....=..: |
00002180: 20 20 20 98 31 2C 28 31 30 30 30 AC 53 50 41 4C | .1,(1000.SPAL|
00002190: 54 45 29 AA 5A 45 49 4C 45 3B 22 47 4F 54 4F 20 |TE).ZEILE;"GOTO |
000021A0: 22 3B 28 31 30 30 30 AC 28 53 50 41 4C 54 45 AA |";(1000.(SPALTE.|
000021B0: 31 29 29 AA 5A 45 49 4C 45 00 C7 3D EA 04 3A 20 |1)).ZEILE..=..: |
000021C0: 20 20 20 20 20 FE 19 00 CD 3D EB 04 3A 00 F8 3D | ....=..:..=|
000021D0: EC 04 3A 20 20 20 20 20 20 8B 20 46 45 4C 44 25 |..: . FELD%|
000021E0: 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 29 20 B2 |(ZEILE,SPALTE) .|
000021F0: 20 34 30 20 A7 20 FE 18 00 3C 3E ED 04 3A 20 20 | 40 . ...<>..: |
00002200: 20 20 20 20 20 20 98 31 2C 28 31 30 30 30 AC 53 | .1,(1000.S|
00002210: 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B 22 47 4F |PALTE).ZEILE;"GO|
00002220: 54 4F 20 22 3B 28 31 30 30 30 AC 28 53 50 41 4C |TO ";(1000.(SPAL|
00002230: 54 45 AB 31 29 29 AA 5A 45 49 4C 45 00 4A 3E EE |TE.1)).ZEILE.J>.|
00002240: 04 3A 20 20 20 20 20 20 FE 19 00 50 3E EF 04 3A |.: ...P>..:|
00002250: 00 7B 3E F0 04 3A 20 20 20 20 20 20 8B 20 46 45 |.{>..: . FE|
00002260: 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 45 |LD%(ZEILE,SPALTE|
00002270: 29 20 B2 20 34 31 20 A7 20 FE 18 00 BF 3E F1 04 |) . 41 . ....>..|
00002280: 3A 20 20 20 20 20 20 20 20 98 31 2C 28 31 30 30 |: .1,(100|
00002290: 30 AC 53 50 41 4C 54 45 29 AA 5A 45 49 4C 45 3B |0.SPALTE).ZEILE;|
000022A0: 22 47 4F 54 4F 20 22 3B 28 31 30 30 30 AC 53 50 |"GOTO ";(1000.SP|
000022B0: 41 4C 54 45 29 AA 28 5A 45 49 4C 45 AA 31 29 00 |ALTE).(ZEILE.1).|
000022C0: CD 3E F2 04 3A 20 20 20 20 20 20 FE 19 00 D3 3E |.>..: ....>|
000022D0: F3 04 3A 00 FE 3E F4 04 3A 20 20 20 20 20 20 8B |..:..>..: .|
000022E0: 20 46 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 | FELD%(ZEILE,SPA|
000022F0: 4C 54 45 29 20 B1 20 34 31 20 A7 20 FE 18 00 34 |LTE) . 41 . ...4|
00002300: 3F F5 04 3A 20 20 20 20 20 20 20 20 99 22 5A 45 |?..: ."ZE|
00002310: 49 4C 45 22 5A 45 49 4C 45 22 20 53 50 41 4C 54 |ILE"ZEILE" SPALT|
00002320: 45 22 53 50 41 4C 54 45 22 20 46 45 48 4C 45 52 |E"SPALTE" FEHLER|
00002330: 21 21 21 22 00 6D 3F F6 04 3A 20 20 20 20 20 20 |!!!".m?..: |
00002340: 20 20 99 22 12 27 54 52 41 4E 53 46 4F 52 4D 45 | .".'TRANSFORME|
00002350: 52 27 2D 56 45 52 53 49 4F 4E 20 4E 49 43 48 54 |R'-VERSION NICHT|
00002360: 20 55 50 2D 54 4F 2D 44 41 54 45 92 22 00 7B 3F | UP-TO-DATE.".{?|
00002370: F7 04 3A 20 20 20 20 20 20 FE 19 00 81 3F F8 04 |..: ....?..|
00002380: 3A 00 AB 3F F9 04 3A 20 20 20 20 20 20 8B 20 46 |:..?..: . F|
00002390: 45 4C 44 25 28 5A 45 49 4C 45 2C 53 50 41 4C 54 |ELD%(ZEILE,SPALT|
000023A0: 45 29 20 B2 20 30 20 A7 20 FE 18 00 CE 3F FA 04 |E) . 0 . ....?..|
000023B0: 3A 20 20 20 20 20 20 20 20 5A 41 45 48 4C 45 52 |: ZAEHLER|
000023C0: 20 B2 20 5A 41 45 48 4C 45 52 20 AA 20 31 00 EF | . ZAEHLER . 1..|
000023D0: 3F FB 04 3A 20 20 20 20 20 20 20 20 8B 20 5A 41 |?..: . ZA|
000023E0: 45 48 4C 45 52 20 B2 20 31 36 20 A7 20 FE 18 00 |EHLER . 16 . ...|
000023F0: 14 40 FC 04 3A 20 20 20 20 20 20 20 20 20 20 5A |.@..: Z|
00002400: 45 49 4C 45 20 20 B2 20 4D 41 58 49 4D 55 4D 20 |EILE . MAXIMUM |
00002410: AB 20 31 30 00 2F 40 FD 04 3A 20 20 20 20 20 20 |. 10./@..: |
00002420: 20 20 20 20 53 50 41 4C 54 45 20 B2 20 31 35 00 | SPALTE . 15.|
00002430: 3F 40 FE 04 3A 20 20 20 20 20 20 20 20 FE 19 00 |?@..: ...|
00002440: 54 40 FF 04 3A 20 20 20 20 20 20 FE 19 20 3A 20 |T@..: .. : |
00002450: D5 20 FE 18 00 6D 40 00 05 3A 20 20 20 20 20 20 |. ...m@..: |
00002460: 20 20 5A 41 45 48 4C 45 52 20 B2 20 30 00 7B 40 | ZAEHLER . 0.{@|
00002470: 01 05 3A 20 20 20 20 20 20 FE 19 00 8C 40 02 05 |..: ....@..|
00002480: 3A 20 20 20 82 20 53 50 41 4C 54 45 00 99 40 03 |: . SPALTE..@.|
00002490: 05 3A 82 20 5A 45 49 4C 45 00 9F 40 04 05 3A 00 |.:. ZEILE..@..:.|
000024A0: A8 40 05 05 3A A0 20 31 00 AF 40 06 05 3A E8 00 |.@..:. 1..@..:..|
000024B0: B7 40 07 05 3A FE 19 00 CF 40 08 05 3A F0 22 43 |.@..:....@..:."C|
000024C0: 4F 4E 56 45 52 54 20 53 45 51 2D 50 52 47 22 00 |ONVERT SEQ-PRG".|
000024D0: 00 00 |.. |
.. ...:."....PROGRAM DESCRIPTION.H...:NA
ME $."...: TRANSFORMER.T...:WR
ITTEN BY $."...: THOMAS LENNARTZ....
.:MACHINE $."...: C128 / 1571....
.:COMMENT $."...: ERZEUGT BASIC-P
ROGRAMM AUS 'FLOWCHART 128'-DATEI.9...::
::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::.....:F
ATAL MISTAKES . 000 :OTHER MISTAKES .
000 :ALL MISTAKES . 000 ::.Y...:L
AST LINE . 01288 :FIRST UNEXECUTABL
E LINE . 00000 ::.)...::
::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::.O...:.
FATAL MISTAKES . 0 . . "CANNOT EXECUTE
ERROR-FREE!" : . ::.....::::::::::::
::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::.....:NO . 0 :YES
. .1 :TEST . NO
::.V...:. ALL MISTA
KES . 0 . TEST . YES . . "TEST MODE!" :T
EST . YES ::.....:::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::::::::::.....:. "PRESS ANY KEY TO
COMMENCE..." :.. ANSWER$
::.> ..:::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::
::::::.X ..:."....INITIALIZATION.Y ..:W
1021:"......ERROR ROUTINE.. ..:K . ANFAN
G.. ..:."....ERROR ROUTINE.. ..: . ER .
11 . V . :.IGN.E SY
NTAX ERR.S.. ..: . ER . .1 . ....!..:
..F!..:
. S(ER)" ERROR IN LINE "EL".".A!..:
V ..{!..:
....!..:.Q!..:.........................
........................................
...........!..:ANFANG..!..:.."..:.".'TRA
NSFORMER' -- BY THOMAS LENNARTZ".."..:..
="..:."'FLOWCHART 128'-DATEI ";DATEI$.C"
..:.."..:. 1,8,0,DATEI$.",S,R"
:.DATEI OEF.EN.."..:. DS
. 62 . ...."..: ."DATEI EXISTIERT NICH
T.".D"..: ..Q"..:..:U ...."..: MAXIMUM
. 110..#..: . FELD%(MAXIMUM,15)..#..:
. FELD$(MAXIMUM,15)."#..:.+#..: ..>#..
: .1,ZEILE%.[#..: . ZEILE% . 9999
. ..O#..: .1,SPALTE%..#..: .1,FELD
%(ZEILE%,SPALTE%)..#..: FELD$(ZEILE%,
SPALTE%) . "".I#..: WERT$ . ""..#..:
. . WERT$ . G(13)..#..: .#1,WERT
$..$..: . WERT$ .. G(13) . ...]$..:
FELD$(ZEILE%,SPALTE%) . FELD$(ZE
ILE%,SPALTE%) . WERT$.K$ .: ...V$!.
: ..$".: ...$#.:..$$.: 1..$%.:..
$&.:ANFANG.SUCHEN..$'.:. SPALTE . 1 . 15
..$(.: . FELD%(1,SPALTE) . 1 . ....$).
: SPALTE% . SPALTE..%*.: ANFANG
. YES.!%+.: .../%,.:. SPALTE.5%-.:.J%
..:. . ANFANG . ...L%/.: ."KEINEN ANFAN
G GEFUNDEN.".U%0.: ..}%1.:....%2.:..%3.
:. 1,8,15,"S:B/".DATEI$..%4.: 1..%5.:.N
%6.:. 1,8,1,"B/".DATEI$.",S,W"..&7.:.1,"
1000 GOTO ";(1000.SPALTE%).1;":REM GOTO
ANFANG"..&8.:.J&9.:. ZEILE . 1 . MAXIMUM
. 10 :.MAIN...J&:.:
."........ZEILE: "ZEILE..&;.: . SPA
LTE . 1 . 15 :
.SUB....&<.:.V&=.: . FELD%(ZEILE,SP
ALTE) . 0 . ....&>.. .1,(1000.SPA
LTE).ZEILE..'?.: ....'@.:.8'A.:
. FELD%(ZEILE,SPALTE) . 1 . ...I'B.:
.1,(1000.SPALTE).ZEILE;"REM ANFANG
".W'C.: ...}'D.:..'E.: . FELD%
(ZEILE,SPALTE) . 2 . ....'F.: .1,
(1000.SPALTE).ZEILE;"END:REM ENDE DES PR
OGRAMMES"..'G.: ....'H.:.'(I.:
. FELD%(ZEILE,SPALTE) . 3 . ..._(J.:
.1,(1000.SPALTE).ZEILE;FELD$(ZEILE,
SPALTE).M(K.: ...S(L.:..(M.: .
FELD%(ZEILE,SPALTE) . 4 . ...U(N.:
.1,(1000.SPALTE).ZEILE;FELD$(ZEILE,SP
ALTE)..(O.: ....(P.:..)Q.: . F
ELD%(ZEILE,SPALTE) . 5 . ...8)R.:
.1,(1000.SPALTE).ZEILE;.Q)S.: .1
,"IF ";FELD$(ZEILE,SPALTE);" THEN GOTO "
;..)T.: .1,(1000.(SPALTE.1)).ZEIL
E;" :ELSE GOTO ";.Q)U.: .1,(1000.
(SPALTE.1)).ZEILE..)V.: ....)W.:..*
X.: . FELD%(ZEILE,SPALTE) . 6 . ...
4*Y.: .1,(1000.SPALTE).ZEILE;.M*Z
.: .1,"IF ";FELD$(ZEILE,SPALTE);"
THEN GOTO ";..*[.: .1,(1000.SPAL
TE).(ZEILE.1);" :ELSE GOTO ";.M*\.:
.1,(1000.(SPALTE.1)).ZEILE..*].:
....*^.:..+_.: . FELD%(ZEILE,SPALT
E) . 7 . ...0+`.: .1,(1000.SPALTE
).ZEILE;.I+A.: .1,"IF ";FELD$(ZEI
LE,SPALTE);" THEN GOTO ";..+B.: .
1,(1000.SPALTE).ZEILE.1;" :ELSE GOTO ";.
G+C.: .1,(1000.(SPALTE.1)).ZEILE.
U+D.: ....+E.:..,F.: . FELD%(Z
EILE,SPALTE) . 8 . ...*,G.: .1,(1
000.SPALTE).ZEILE;.C,H.: .1,"IF "
;FELD$(ZEILE,SPALTE);" THEN GOTO ";..,I.
: .1,(1000.(SPALTE.1)).ZEILE;" :E
LSE GOTO ";.C,J.: .1,(1000.(SPALT
E.1)).ZEILE.Q,K.: ...W,L.:..-M.:
. FELD%(ZEILE,SPALTE) . 9 . ...&-N.:
.1,(1000.SPALTE).ZEILE;._-O.:
.1,"IF ";FELD$(ZEILE,SPALTE);" THEN
GOTO ";..-P.: .1,(1000.(SPALTE.1)
).ZEILE;" :ELSE GOTO ";..-Q.: .1,
(1000.SPALTE).(ZEILE.1).M-R.: ...S-
S.:..-T.: . FELD%(ZEILE,SPALTE) . 1
0 . ...#.U.: .1,(1000.SPALTE).ZEI
LE;.\.V.: .1,"IF ";FELD$(ZEILE,SP
ALTE);" THEN GOTO ";...W.: .1,(10
00.(SPALTE.1)).ZEILE;" :ELSE GOTO ";...X
.: .1,(1000.SPALTE).(ZEILE.1).J.Y
.: ...P.Z.:...{.: . FELD%(ZEIL
E,SPALTE) . 11 . ...;/|.: ."ZEILE
"ZEILE" SPALTE"SPALTE" ILLEGALES SYMBOL!
!!".}/}.: .1,(1000.SPALTE).ZEILE;"
REM FEHLER!!! UP EIN/AUSGABE"../~.:
..../.:../..: . FELD%(ZEILE,SPALT
E) . 12 . ..../..: ."ZEILE"ZEILE"
SPALTE"SPALTE" ILLEGALES SYMBOL!!!".@0.
.: .1,(1000.SPALTE).ZEILE;"REM FE
HLER!!! UP VERARBEITUNG".N0..: ...T
0..:.0..: . FELD%(ZEILE,SPALTE) .
13 . ....0..: .1,(1000.SPALTE).ZE
ILE;FELD$(ZEILE,SPALTE).E0..: ...K0
..:..0..: . FELD%(ZEILE,SPALTE) . 1
4 . ...#1..: . FELD$(ZEILE,SPALTE
) . "" . ...P1..: .1,(1000.SPAL
TE).ZEILE;"NEXT".G1..: .. : U ...
.1..: .1,(1000.SPALTE).ZEILE;FE
LD$(ZEILE,SPALTE)..1..: ....1..:
...E1..:..1..: . FELD%(ZEILE,S
PALTE) . 15 . ...02..: ."ZEILE"ZE
ILE" SPALTE"SPALTE" ILLEGALES SYMBOL!!!"
.Z2..: .1,(1000.SPALTE).ZEILE;"RE
M FEHLER!!! MANUELLE VERARBEITUNG"..2..:
....2..:..2..: . FELD%(ZEILE,
SPALTE) . 16 . ....2..: ."ZEILE"Z
EILE" SPALTE"SPALTE" ILLEGALES SYMBOL!!!
".?3..: .1,(1000.SPALTE).ZEILE;"R
EM FEHLER!!! VERBINDUNGSSTELLE".M3..:
...S3..:.~3..: . FELD%(ZEILE,SPA
LTE) . 17 . ....3..: .1,(1000.SPA
LTE).ZEILE;"REM"..3..: ....3..:..3.
.: . FELD%(ZEILE,SPALTE) . 18 . ...
+4 .: .1,(1000.SPALTE).ZEILE;"GOT
O ";(1000.SPALTE).(ZEILE.1).94..: .
..?4..:.J4..: . FELD%(ZEILE,SPALTE)
. 19 . ....4..: .1,(1000.SPALTE)
.ZEILE;"GOTO ";(1000.(SPALTE.1)).ZEILE..
4..: ...B4..:..4..: . FELD%(ZE
ILE,SPALTE) . 20 . ...15..: .1,(1
000.SPALTE).ZEILE;"GOTO ";(1000.(SPALTE.
1)).ZEILE.?5..: ...E5..:..5..:
. FELD%(ZEILE,SPALTE) . 20 . FELD%(ZEIL
E,SPALTE) . 25 . ...K5..: ."ZEILE
"ZEILE" SPALTE"SPALTE" ILLEGALES SYMBOL!
!!"..6..: .(1000.SPALTE).ZEILE;"R
EM FEHLER!!! KREUZUNGSPUNKT"..6..:
... 6..:.K6..: . FELD%(ZEILE,SPALTE
) . 25 . ....6..: .1,(1000.SPALTE
).ZEILE;"GOTO ";(1000.(SPALTE.1)).ZEILE.
.6..: ....6..:.N6..: . FELD%(Z
EILE,SPALTE) . 26 . ....7..: .1,(
1000.SPALTE).ZEILE;"GOTO ";(1000.SPALTE)
.(ZEILE.1). 7..: ...&7..:.Q7..:
. FELD%(ZEILE,SPALTE) . 27 . ....7..:
.1,(1000.SPALTE).ZEILE;"GOTO ";(1
000.(SPALTE.1)).ZEILE..7..: ....7..
:.T7..: . FELD%(ZEILE,SPALTE) . 28
. ....8..: .1,(1000.SPALTE).ZEILE
;"GOTO ";(1000.SPALTE).(ZEILE.1).&8..:
...,8..:.W8..: . FELD%(ZEILE,SP
ALTE) . 29 . ....8A.: .1,(1000.SP
ALTE).ZEILE;"GOTO ";(1000.SPALTE).(ZEILE
.1)..8B.: ....8C.:.Z8D.: . FEL
D%(ZEILE,SPALTE) . 30 . ....9E.:
.1,(1000.SPALTE).ZEILE;"GOTO ";(1000.(SP
ALTE.1)).ZEILE.,9F.: ...29G.:.]9H.:
. FELD%(ZEILE,SPALTE) . 31 . ....9
I.: .1,(1000.SPALTE).ZEILE;"GOTO
";(1000.SPALTE).(ZEILE.1)..9J.: ...
.9K.:..9L.: . FELD%(ZEILE,SPALTE) .
32 . ...$:M.: .1,(1000.SPALTE).Z
EILE;"GOTO ";(1000.(SPALTE.1)).ZEILE.2:N
.: ...8:O.:.C:P.: . FELD%(ZEIL
E,SPALTE) . 33 . ....:Q.: .1,(100
0.SPALTE).ZEILE;"GOTO ";(1000.SPALTE).(Z
EILE.1)..:R.: ....:S.:..:T.: .
FELD%(ZEILE,SPALTE) . 34 . ...*;U.:
.1,(1000.SPALTE).ZEILE;"GOTO ";(1000
.SPALTE).(ZEILE.1).8;V.: ...>;W.:.I
;X.: . FELD%(ZEILE,SPALTE) . 35 . .
...;Y.: .1,(1000.SPALTE).ZEILE;"G
OTO ";(1000.SPALTE).(ZEILE.1)..;Z.:
...A;..:..;..: . FELD%(ZEILE,SPALT
E) . 36 . ...0<..: .1,(1000.SPALT
E).ZEILE;"GOTO ";(1000.SPALTE).(ZEILE.1)
.><..: ...D<..:.O<..: . FELD%(
ZEILE,SPALTE) . 37 . ....<..: .1,
(1000.SPALTE).ZEILE;"GOTO ";(1000.(SPALT
E.1)).ZEILE.A<..: ...G<..:..<..:
. FELD%(ZEILE,SPALTE) . 38 . ...6=..:
.1,(1000.SPALTE).ZEILE;"GOTO ";(
1000.(SPALTE.1)).ZEILE.D=..: ...J=.
.:.U=..: . FELD%(ZEILE,SPALTE) . 39
. ....=..: .1,(1000.SPALTE).ZEIL
E;"GOTO ";(1000.(SPALTE.1)).ZEILE.G=..:
...M=..:..=..: . FELD%(ZEILE,S
PALTE) . 40 . ...<>..: .1,(1000.S
PALTE).ZEILE;"GOTO ";(1000.(SPALTE.1)).Z
EILE.J>..: ...P>..:.{>..: . FE
LD%(ZEILE,SPALTE) . 41 . ....>..:
.1,(1000.SPALTE).ZEILE;"GOTO ";(1000.SP
ALTE).(ZEILE.1).M>..: ...S>..:..>..
: . FELD%(ZEILE,SPALTE) . 41 . ...4
?..: ."ZEILE"ZEILE" SPALTE"SPALTE
" FEHLER!!!".M?..: .".'TRANSFORME
R'-VERSION NICHT UP-TO-DATE.".{?..:
....?..:..?..: . FELD%(ZEILE,SPALT
E) . 0 . ...N?..: ZAEHLER . ZAEHL
ER . 1..?..: . ZAEHLER . 16 . ...
.@..: ZEILE . MAXIMUM . 10./@.
.: SPALTE . 15.?@..: ...
T@..: .. : U ...M@..: ZAEHLE
R . 0.{@..: ....@..: . SPALTE..@.
.:. ZEILE..@..:..@..: 1..@..:...@..:...
O@..:."CONVERT SEQ-PRG"...
> CLICK IMAGE PREVIEW FOR FULL MODAL