Multiple names: FILE 17, COM
FILE INFORMATION
FILENAME(S):
• FILE 17<br>• COM
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-02 16:39:09
APPEARS ON: 3 disk(s)
FILE HASH
6018a6f2f1a5719775f2f43a7559f1472c06f46f869391529e2dc19461ad55e6
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SAVE DISK | FILE 17 | PRG | Treasure Chest - Plattfuss | 24 | 8 | DOWNLOAD FILE |
| SAVE DISK | FILE 17 | PRG | Treasure Chest - Plattfuss | 24 | 8 | DOWNLOAD FILE |
| 10010 SEITE A | COM | PRG | BrainSkull, Sammlung, C64er | 24 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 44 C9 CE D4 D6 C1 D2 20 C1 D4 20 35 31 32 30 30 |D...... .. 51200| 00000010: 20 54 45 41 4E 46 2C 54 45 45 4E 44 2C 50 52 41 | TEANF,TEEND,PRA| 00000020: 4E 46 2C 50 52 45 4E 44 2C 43 4F 4E 41 4E 46 2C |NF,PREND,CONANF,| 00000030: 43 4F 4E 45 4E 44 2C 56 41 52 41 4E 46 2C 56 41 |CONEND,VARANF,VA| 00000040: 52 45 4E 44 1A D2 CF D7 20 30 30 31 36 20 D3 D4 |REND.... 0016 ..| 00000050: D2 D6 C1 D2 20 31 34 20 46 45 48 4C 45 52 1B D2 |.... 14 FEHLER..| 00000060: CF D7 20 30 30 31 36 20 C2 D9 D4 C5 D6 C1 D2 20 |.. 0016 ....... | 00000070: 46 45 48 4C 45 52 41 52 54 18 D2 CF D7 20 30 30 |FEHLERART.... 00| 00000080: 30 38 20 D3 D4 D2 D6 C1 D2 20 31 34 20 54 45 58 |08 ...... 14 TEX| 00000090: 54 14 D2 CF D7 20 30 30 30 38 20 C9 CE D4 D6 C1 |T.... 0008 .....| 000000A0: D2 20 41 4E 5A 14 D2 CF D7 20 30 30 33 32 20 C9 |. ANZ.... 0032 .| 000000B0: CE D4 D6 C1 D2 20 41 44 52 14 D2 CF D7 20 30 30 |..... ADR.... 00| 000000C0: 33 32 20 C9 CE D4 D6 C1 D2 20 41 46 31 14 D2 CF |32 ...... AF1...| 000000D0: D7 20 30 30 33 32 20 C9 CE D4 D6 C1 D2 20 41 46 |. 0032 ...... AF| 000000E0: 32 14 D2 CF D7 20 30 30 33 32 20 C2 D9 D4 C5 D6 |2.... 0032 .....| 000000F0: C1 D2 20 41 52 14 D2 CF D7 20 30 30 30 38 20 C2 |.. AR.... 0008 .| 00000100: D9 D4 C5 D6 C1 D2 20 41 58 16 29 D2 CF D7 20 30 |...... AX.)... 0| 00000110: 30 30 34 20 C2 D9 D4 C5 D6 C1 D2 20 41 44 44 13 |004 ....... ADD.| 00000120: D2 CF D7 20 30 30 30 38 20 C9 CE D4 D6 C1 D2 20 |... 0008 ...... | 00000130: 49 46 18 D2 CF D7 20 30 31 32 37 20 C2 D9 D4 C5 |IF.... 0127 ....| 00000140: D6 C1 D2 20 56 41 52 41 52 54 17 D2 CF D7 20 30 |... VARART.... 0| 00000150: 31 32 37 20 C9 CE D4 D6 C1 D2 20 56 41 52 41 44 |127 ...... VARAD| 00000160: 52 17 D2 CF D7 20 30 31 32 37 20 D3 D4 D2 D6 C1 |R.... 0127 .....| 00000170: D2 20 31 34 20 56 41 52 01 24 C1 C4 D2 D6 C1 D2 |. 14 VAR.$......| 00000180: 20 43 4F 4D 5A 2C 53 5A 45 49 4C 45 2C 45 4E 44 | COMZ,SZEILE,END| 00000190: 45 2C 43 4F 4D 4B 4C 2C 43 4F 4D 42 45 27 C1 C4 |E,COMKL,COMBE'..| 000001A0: D2 D6 C1 D2 20 43 42 45 46 2C 43 56 41 52 2C 43 |.... CBEF,CVAR,C| 000001B0: 43 4F 4E 2C 43 5A 41 48 4C 2C 49 4E 43 20 46 45 |CON,CZAHL,INC FE| 000001C0: 48 4C 45 52 26 C1 C4 D2 D6 C1 D2 20 53 37 2C 43 |HLER&...... S7,C| 000001D0: 4F 4D 53 4F 2C 44 45 4B 4C 2C 43 4F 4D 46 55 2C |OMSO,DEKL,COMFU,| 000001E0: 52 4F 57 41 54 2C 46 49 34 35 27 C1 C4 D2 D6 C1 |ROWAT,FI45'.....| 000001F0: D2 20 46 49 31 2C 46 49 32 2C 46 49 33 2C 46 49 |. FI1,FI2,FI3,FI| 00000200: 34 2C 46 49 35 2C 46 49 36 2C 46 49 37 2C 46 49 |4,FI5,FI6,FI7,FI| 00000210: 38 24 C1 C4 D2 D6 C1 D2 20 46 49 39 2C 46 49 31 |8$...... FI9,FI1| 00000220: 30 2C 46 49 31 31 2C 46 49 31 32 2C 46 49 31 33 |0,FI11,FI12,FI13| 00000230: 2C 46 49 31 34 25 C1 C4 D2 D6 C1 D2 20 46 49 31 |,FI14%...... FI1| 00000240: 35 2C 46 49 31 36 2C 46 49 31 37 2C 46 49 31 38 |5,FI16,FI17,FI18| 00000250: 2C 46 49 31 39 2C 46 49 32 30 25 C1 C4 D2 D6 C1 |,FI19,FI20%.....| 00000260: D2 20 46 49 32 31 2C 46 49 32 32 2C 46 49 32 33 |. FI21,FI22,FI23| 00000270: 2C 46 49 32 34 2C 46 49 32 35 2C 46 49 32 36 25 |,FI24,FI25,FI26%| 00000280: C1 C4 D2 D6 C1 D2 20 46 49 32 37 2C 46 49 32 38 |...... FI27,FI28| 00000290: 2C 46 49 32 39 2C 46 49 33 30 2C 46 49 33 31 2C |,FI29,FI30,FI31,| 000002A0: 46 49 33 32 25 C1 C4 D2 D6 C1 D2 20 46 49 33 33 |FI32%...... FI33| 000002B0: 2C 46 49 33 34 2C 46 49 33 35 2C 46 49 33 36 2C |,FI34,FI35,FI36,| 000002C0: 46 49 33 37 2C 46 49 33 38 2A C1 C4 D2 D6 C1 D2 |FI37,FI38*......| 000002D0: 20 46 49 34 30 2C 46 49 34 31 2C 46 49 34 32 2C | FI40,FI41,FI42,| 000002E0: 46 49 34 33 2C 46 49 34 34 2C 57 45 49 54 45 52 |FI43,FI44,WEITER| 000002F0: 43 4F 4D 1E C9 CE D4 D6 C1 D2 20 56 41 52 41 4E |COM....... VARAN| 00000300: 5A 2C 46 45 48 4C 45 52 5A 2C 4B 4C 41 4D 4D 45 |Z,FEHLERZ,KLAMME| 00000310: 52 1F C9 CE D4 D6 C1 D2 20 5A 2C 5A 31 2C 5A 32 |R....... Z,Z1,Z2| 00000320: 2C 5A 33 2C 41 33 2C 45 52 53 41 54 5A 56 41 52 |,Z3,A3,ERSATZVAR| 00000330: 20 C9 CE D4 D6 C1 D2 20 5A 45 49 4C 45 2C 50 55 | ...... ZEILE,PU| 00000340: 46 46 45 52 47 2C 41 4E 5A 41 48 4C 2C 49 46 5A |FFERG,ANZAHL,IFZ| 00000350: 0D D2 C5 C1 CC D6 C1 D2 20 52 45 41 4C 1E D3 D4 |........ REAL...| 00000360: D2 D6 C1 D2 20 31 34 20 56 41 52 49 41 42 4C 45 |.... 14 VARIABLE| 00000370: 2C 54 45 2C 41 4E 54 57 4F 52 54 29 C2 D9 D4 C5 |,TE,ANTWORT)....| 00000380: D6 C1 D2 20 51 2C 41 31 2C 41 32 2C 42 31 2C 42 |... Q,A1,A2,B1,B| 00000390: 32 2C 42 33 2C 42 34 2C 46 45 48 4C 45 52 5A 45 |2,B3,B4,FEHLERZE| 000003A0: 49 4C 45 4E 1E C9 CE D4 D6 C1 D2 20 C1 D4 20 30 |ILEN....... .. 0| 000003B0: 31 38 32 20 49 31 38 32 2C 49 31 38 34 2C 49 31 |182 I182,I184,I1| 000003C0: 38 36 38 C2 D9 D4 C5 D6 C1 D2 20 C1 D4 20 30 31 |868....... .. 01| 000003D0: 38 32 20 42 31 38 32 2C 42 31 38 33 2C 42 31 38 |82 B182,B183,B18| 000003E0: 34 2C 42 31 38 35 2C 42 31 38 36 2C 42 31 38 37 |4,B185,B186,B187| 000003F0: 2C 42 31 38 38 2C 42 31 38 39 18 C2 D9 D4 C5 D6 |,B188,B189......| 00000400: C1 D2 20 C1 D4 20 35 30 30 30 30 20 42 35 30 30 |.. .. 50000 B500| 00000410: 30 30 16 C2 D9 D4 C5 D6 C1 D2 20 51 57 45 52 54 |00........ QWERT| 00000420: 59 2C 51 57 45 52 54 32 01 0C 50 52 45 4E 44 5F |Y,QWERT2..PREND_| 00000430: 50 52 41 4E 46 0E 43 4F 4E 45 4E 44 5F 43 4F 4E |PRANF.CONEND_CON| 00000440: 41 4E 46 0E 56 41 52 45 4E 44 5F 56 41 52 41 4E |ANF.VAREND_VARAN| 00000450: 46 0C 56 41 52 41 4E 5A 5F 30 30 30 30 10 C3 CC |F.VARANZ_0000...| 00000460: D2 20 28 56 41 52 5B 30 30 30 31 5D 29 07 5A 5F |. (VAR[0001]).Z_| 00000470: 30 30 30 31 08 29 D2 C5 D0 C5 C1 D4 1B 29 20 28 |0001.).......) (| 00000480: 41 44 44 5B 5A 5D 29 5F 28 D0 C5 C5 CB 28 35 30 |ADD[Z])_(....(50| 00000490: 39 31 32 2B 5A 29 29 08 29 20 C9 CE C3 20 5A 10 |912+Z)).) ... Z.| 000004A0: 29 D5 CE D4 C9 CC 20 28 5A 3E 30 30 30 38 29 07 |)..... (Z>0008).| 000004B0: 5A 5F 30 30 30 30 0C 45 52 53 41 54 5A 56 41 52 |Z_0000.ERSATZVAR| 000004C0: 5F 5A 06 49 46 5A 5F 5A 07 D2 C5 D0 C5 C1 D4 0B |_Z.IFZ_Z........| 000004D0: 20 28 41 52 5B 5A 5D 29 5F 30 0F 20 28 41 44 52 | (AR[Z])_0. (ADR| 000004E0: 5B 5A 5D 29 5F 30 30 30 30 0F 20 28 41 46 31 5B |[Z])_0000. (AF1[| 000004F0: 5A 5D 29 5F 30 30 30 30 0F 20 28 41 46 32 5B 5A |Z])_0000. (AF2[Z| 00000500: 5D 29 5F 30 30 30 30 07 20 C9 CE C3 20 5A 0F D5 |])_0000. ... Z..| 00000510: CE D4 C9 CC 20 28 5A 3E 30 30 33 39 29 0F 46 45 |.... (Z>0039).FE| 00000520: 48 4C 45 52 5A 45 49 4C 45 4E 5F 30 0D 46 45 48 |HLERZEILEN_0.FEH| 00000530: 4C 45 52 5A 5F 30 30 30 30 31 3F 22 93 97 12 20 |LERZ_00001?"... | 00000540: 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 CF CD | ...| 00000550: D0 C9 CC C9 CE C7 20 20 20 20 20 20 20 20 20 20 |...... | 00000560: 20 20 20 20 20 20 9E 11 11 22 0B 5A 45 49 4C 45 | ...".ZEILE| 00000570: 5F 30 30 30 30 01 08 53 5A 45 49 4C 45 3A 08 20 |_0000..SZEILE:. | 00000580: CF D5 D4 31 34 35 0D 20 3F 28 D3 D4 D2 5A 45 49 |...145. ?(...ZEI| 00000590: 4C 45 29 0C 20 49 31 38 32 5F 5A 45 49 4C 45 0B |LE). I182_ZEILE.| 000005A0: 20 D3 D9 D3 20 34 39 33 34 39 0B 20 D3 D9 D3 20 | ... 49349. ... | 000005B0: 34 39 33 39 32 0B 20 D3 D9 D3 20 34 39 36 38 30 |49392. ... 49680| 000005C0: 1C 20 C9 C6 20 28 46 45 48 4C 45 52 5A 3D 30 30 |. .. (FEHLERZ=00| 000005D0: 30 30 29 20 C7 CF D4 CF 20 46 49 31 15 20 20 20 |00) .... FI1. | 000005E0: D0 D2 C9 CE D4 20 22 91 C5 52 52 4F 52 20 23 22 |..... "..RROR #"| 000005F0: 3B 21 20 20 20 D0 D2 C9 CE D4 20 28 D3 D4 D2 28 |;! ..... (...(| 00000600: 46 45 48 4C 45 52 41 52 54 5B 30 30 30 31 5D 29 |FEHLERART[0001])| 00000610: 29 3B 0A 20 20 20 CF D5 D4 20 35 38 19 20 20 20 |);. ... 58. | 00000620: D0 D2 C9 CE D4 20 28 46 45 48 4C 45 52 5B 30 30 |..... (FEHLER[00| 00000630: 30 31 5D 29 3B 0D 20 20 20 3F 20 22 20 20 49 4E |01]);. ? " IN| 00000640: 22 3B 16 20 20 20 3F 28 D3 D4 D2 28 D2 C5 C1 CC |";. ?(...(....| 00000650: 28 5A 45 49 4C 45 2D 31 08 20 20 CF D5 D4 31 33 |(ZEILE-1. ...13| 00000660: 0F 20 20 46 45 48 4C 45 52 5A 5F 30 30 30 30 13 |. FEHLERZ_0000.| 00000670: 20 20 C9 CE C3 20 46 45 48 4C 45 52 5A 45 49 4C | ... FEHLERZEIL| 00000680: 45 4E 06 20 46 49 31 3A 2E 20 C9 C6 20 28 28 42 |EN. FI1:. .. ((B| 00000690: 31 38 32 3D 30 29 20 CF D2 20 28 46 45 48 4C 45 |182=0) .. (FEHLE| 000006A0: 52 5A 45 49 4C 45 4E 3E 31 36 29 29 20 C7 CF D4 |RZEILEN>16)) ...| 000006B0: CF 20 45 4E 44 45 1A 20 C9 C6 20 28 42 35 30 30 |. ENDE. .. (B500| 000006C0: 30 30 3E 31 29 20 C7 CF D3 D5 C2 20 43 4F 4D 5A |00>1) ..... COMZ| 000006D0: 1F 20 C9 C6 A0 28 45 52 53 41 54 5A 56 41 52 3D |. ...(ERSATZVAR=| 000006E0: 30 30 30 30 29 20 C7 CF D4 CF 20 46 49 33 38 13 |0000) .... FI38.| 000006F0: 20 20 56 41 52 45 4E 44 5F 45 52 53 41 54 5A 56 | VAREND_ERSATZV| 00000700: 41 52 11 20 20 45 52 53 41 54 5A 56 41 52 5F 30 |AR. ERSATZVAR_0| 00000710: 30 30 30 07 20 46 49 33 38 3A 0B 20 C9 CE C3 20 |000. FI38:. ... | 00000720: 5A 45 49 4C 45 0C C7 CF D4 CF 20 53 5A 45 49 4C |ZEILE..... SZEIL| 00000730: 45 01 06 45 4E 44 45 3A 0E D0 CF CB C5 20 50 52 |E..ENDE:..... PR| 00000740: 45 4E 44 2C 39 36 0A C9 CE C3 20 50 52 45 4E 44 |END,96.... PREND| 00000750: 07 3F 22 45 4F 43 22 0B D0 CF CB C5 30 31 39 38 |.?"EOC".....0198| 00000760: 2C 30 0B D7 C1 C9 D4 30 31 39 38 2C 31 0B D0 CF |,0.....0198,1...| 00000770: CB C5 30 31 39 38 2C 30 04 C5 CE C4 01 06 43 4F |..0198,0......CO| 00000780: 4D 5A 3A 08 20 5A 5F 30 30 30 31 0E 20 4B 4C 41 |MZ:. Z_0001. KLA| 00000790: 4D 4D 45 52 5F 30 30 30 31 0E 20 46 45 48 4C 45 |MMER_0001. FEHLE| 000007A0: 52 5A 5F 30 30 30 30 0E 20 50 55 46 46 45 52 47 |RZ_0000. PUFFERG| 000007B0: 5F 30 30 30 30 08 20 43 4F 4D 4B 4C 3A 09 20 20 |_0000. COMKL:. | 000007C0: C3 CC D2 20 54 45 12 20 20 28 41 58 5B 4B 4C 41 |... TE. (AX[KLA| 000007D0: 4D 4D 45 52 5D 29 5F 30 0E 20 20 41 4E 5A 41 48 |MMER])_0. ANZAH| 000007E0: 4C 5F 30 30 30 30 06 29 20 51 5F 30 09 29 20 D2 |L_0000.) Q_0.) .| 000007F0: C5 D0 C5 C1 D4 21 29 20 20 28 41 44 52 5B 28 28 |.....!) (ADR[((| 00000800: 4B 4C 41 4D 4D 45 52 D3 C8 CC 32 29 2B 51 29 5D |KLAMMER...2)+Q)]| 00000810: 29 5F 31 30 32 34 09 29 20 20 C9 CE C3 20 51 0E |)_1024.) ... Q.| 00000820: 29 20 D5 CE D4 C9 CC 20 28 51 3E 33 29 1D 20 20 |) ..... (Q>3). | 00000830: C9 C6 20 28 4B 4C 41 4D 4D 45 52 3D 30 30 30 31 |.. (KLAMMER=0001| 00000840: 29 20 C7 CF D4 CF 20 46 49 32 0F 20 20 20 41 4E |) .... FI2. AN| 00000850: 5A 41 48 4C 5F 30 30 30 31 08 20 20 46 49 32 20 |ZAHL_0001. FI2 | 00000860: 3A 14 20 20 51 5F 28 D0 C5 C5 CB 28 35 30 30 30 |:. Q_(....(5000| 00000870: 30 2B 5A 29 29 2D 20 20 C9 C6 20 28 28 51 3C 3E |0+Z))- .. ((Q<>| 00000880: 33 32 29 20 CF D2 20 28 28 CC CF D7 20 5A 29 3C |32) .. ((... Z)<| 00000890: 3D 42 35 30 30 30 30 29 29 20 C7 CF D4 CF 20 46 |=B50000)) .... F| 000008A0: 49 33 09 20 20 20 C9 CE C3 20 5A 0C 20 20 20 C7 |I3. ... Z. .| 000008B0: CF D4 CF 20 46 49 32 07 20 20 46 49 33 3A 2E 20 |... FI2. FI3:. | 000008C0: 20 C9 C6 20 28 28 51 3C 3E 34 31 29 20 C1 CE C4 | .. ((Q<>41) ...| 000008D0: 20 28 28 CC CF D7 20 5A 29 3C 3D 42 35 30 30 30 | ((... Z)<=B5000| 000008E0: 30 29 29 20 C7 CF D4 CF 20 46 49 34 18 20 20 20 |0)) .... FI4. | 000008F0: C9 C6 28 CC C5 CE 54 45 29 C7 CF D3 D5 C2 20 43 |..(...TE)..... C| 00000900: 4F 4D 42 45 0F 20 20 20 C4 C5 C3 20 4B 4C 41 4D |OMBE. ... KLAM| 00000910: 4D 45 52 0A 20 20 20 D2 C5 D4 D5 D2 CE 07 20 20 |MER. ....... | 00000920: 46 49 34 3A 16 20 20 C9 C6 20 28 51 3C 3E 34 30 |FI4:. .. (Q<>40| 00000930: 29 20 C7 CF D4 CF 20 46 49 35 09 20 20 20 C9 CE |) .... FI5. ..| 00000940: C3 20 5A 16 20 20 20 28 54 45 58 54 5B 4B 4C 41 |. Z. (TEXT[KLA| 00000950: 4D 4D 45 52 5D 29 5F 54 45 19 20 20 20 28 41 4E |MMER])_TE. (AN| 00000960: 5A 5B 4B 4C 41 4D 4D 45 52 5D 29 5F 41 4E 5A 41 |Z[KLAMMER])_ANZA| 00000970: 48 4C 0F 20 20 20 C9 CE C3 20 4B 4C 41 4D 4D 45 |HL. ... KLAMME| 00000980: 52 0F 20 20 20 C7 CF D3 D5 C2 20 43 4F 4D 4B 4C |R. ..... COMKL| 00000990: 16 20 20 20 54 45 5F 28 54 45 58 54 5B 4B 4C 41 |. TE_(TEXT[KLA| 000009A0: 4D 4D 45 52 5D 29 19 20 20 20 41 4E 5A 41 48 4C |MMER]). ANZAHL| 000009B0: 5F 28 41 4E 5A 5B 4B 4C 41 4D 4D 45 52 5D 29 09 |_(ANZ[KLAMMER]).| 000009C0: 20 20 20 C9 CE C3 20 5A 0C 20 20 20 C7 CF D4 CF | ... Z. ....| 000009D0: 20 46 49 32 07 20 20 46 49 35 3A 22 20 C9 C6 20 | FI2. FI5:" .. | 000009E0: 28 28 D0 C5 C5 CB 28 35 30 32 35 36 2B 51 29 29 |((....(50256+Q))| 000009F0: 3D 31 29 20 C7 CF D4 CF 20 43 42 45 46 22 20 C9 |=1) .... CBEF" .| 00000A00: C6 20 28 28 D0 C5 C5 CB 28 35 30 32 35 36 2B 51 |. ((....(50256+Q| 00000A10: 29 29 3D 32 29 20 C7 CF D4 CF 20 43 56 41 52 22 |))=2) .... CVAR"| 00000A20: 20 C9 C6 20 28 28 D0 C5 C5 CB 28 35 30 32 35 36 | .. ((....(50256| 00000A30: 2B 51 29 29 3D 33 29 20 C7 CF D4 CF 20 43 43 4F |+Q))=3) .... CCO| 00000A40: 4E 14 20 C9 C6 20 28 51 3D 34 35 29 20 C7 CF D4 |N. .. (Q=45) ...| 00000A50: CF 20 46 49 36 09 20 20 20 C9 CE C3 20 5A 0C 20 |. FI6. ... Z. | 00000A60: 20 20 C7 CF D4 CF 20 46 49 32 07 20 20 46 49 36 | .... FI2. FI6| 00000A70: 3A 07 20 20 5A 31 5F 5A 09 20 20 D2 C5 D0 C5 C1 |:. Z1_Z. .....| 00000A80: D4 0A 20 20 20 C4 C5 C3 20 5A 31 2F 20 20 D5 CE |.. ... Z1/ ..| 00000A90: D4 C9 CC 20 28 28 28 D0 C5 C5 CB 28 35 30 30 30 |... (((....(5000| 00000AA0: 30 2B 5A 31 29 29 3C 3E 33 32 29 20 CF D2 20 28 |0+Z1))<>32) .. (| 00000AB0: 5A 31 3D 36 35 35 33 35 29 29 5C 20 C9 C6 20 28 |Z1=65535))\ .. (| 00000AC0: 28 28 28 D0 C5 C5 CB 28 35 30 32 35 36 2B 28 D0 |(((....(50256+(.| 00000AD0: C5 C5 CB 28 35 30 30 30 30 2B 5A 31 29 29 29 29 |...(50000+Z1))))| 00000AE0: 3D 31 29 20 CF D2 20 28 5A 31 3D 36 35 35 33 35 |=1) .. (Z1=65535| 00000AF0: 29 29 20 CF D2 20 28 28 D0 C5 C5 CB 28 35 30 30 |)) .. ((....(500| 00000B00: 30 30 2B 5A 31 29 29 3D 34 35 29 29 20 C7 CF D4 |00+Z1))=45)) ...| 00000B10: CF 20 43 43 4F 4E 0B 20 C7 CF D4 CF 20 43 42 45 |. CCON. .... CBE| 00000B20: 46 01 07 20 43 42 45 46 3A 0A 20 20 C1 C4 C4 54 |F.. CBEF:. ...T| 00000B30: 45 2C 51 08 20 20 C9 CE C3 20 5A 0A 20 C7 CF D4 |E,Q. ... Z. ...| 00000B40: CF 20 46 49 32 01 07 20 43 56 41 52 3A 0F 20 20 |. FI2.. CVAR:. | 00000B50: C3 CC D2 20 56 41 52 49 41 42 4C 45 09 20 20 D2 |... VARIABLE. .| 00000B60: C5 D0 C5 C1 D4 12 20 20 20 C1 C4 C4 20 56 41 52 |...... ... VAR| 00000B70: 49 41 42 4C 45 2C 51 0A 20 20 20 D2 C5 D0 C5 C1 |IABLE,Q. .....| 00000B80: D4 0A 20 20 20 20 C9 CE C3 20 5A 16 20 20 20 20 |.. ... Z. | 00000B90: 51 5F 28 D0 C5 C5 CB 28 35 30 30 30 30 2B 5A 29 |Q_(....(50000+Z)| 00000BA0: 29 2D 20 20 20 D5 CE D4 C9 CC 20 28 28 51 3C 3E |)- ..... ((Q<>| 00000BB0: 33 32 29 20 CF D2 20 28 28 CC CF D7 20 5A 29 3E |32) .. ((... Z)>| 00000BC0: 28 D0 C5 C5 CB 20 35 30 30 30 30 29 29 29 33 20 |(.... 50000)))3 | 00000BD0: 20 D5 CE D4 C9 CC 20 28 28 28 D0 C5 C5 CB 28 35 | ..... (((....(5| 00000BE0: 30 32 35 36 2B 51 29 29 3C 3D 31 29 20 CF D2 20 |0256+Q))<=1) .. | 00000BF0: 28 28 CC CF D7 20 5A 29 3E 42 35 30 30 30 30 29 |((... Z)>B50000)| 00000C00: 29 0A 20 20 5A 31 5F 30 30 30 30 09 20 20 D2 C5 |). Z1_0000. ..| 00000C10: D0 C5 C1 D4 0A 20 20 20 C9 CE C3 20 5A 31 2E 20 |..... ... Z1. | 00000C20: 20 D5 CE D4 C9 CC 20 28 28 28 56 41 52 5B 5A 31 | ..... (((VAR[Z1| 00000C30: 5D 29 3D 56 41 52 49 41 42 4C 45 29 20 CF D2 20 |])=VARIABLE) .. | 00000C40: 28 5A 31 3E 56 41 52 41 4E 5A 29 29 1B 20 20 C9 |(Z1>VARANZ)). .| 00000C50: C6 20 28 5A 31 3C 3D 56 41 52 41 4E 5A 29 20 C7 |. (Z1<=VARANZ) .| 00000C60: CF D4 CF 20 46 49 37 14 20 20 20 C7 CF D3 D5 C2 |... FI7. .....| 00000C70: 20 49 4E 43 20 46 45 48 4C 45 52 1A 20 20 20 28 | INC FEHLER. (| 00000C80: 46 45 48 4C 45 52 41 52 54 5B 46 45 48 4C 45 52 |FEHLERART[FEHLER| 00000C90: 5A 5D 29 5F 32 1E 20 20 20 28 46 45 48 4C 45 52 |Z])_2. (FEHLER| 00000CA0: 5B 46 45 48 4C 45 52 5A 5D 29 5F 56 41 52 49 41 |[FEHLERZ])_VARIA| 00000CB0: 42 4C 45 0C 20 20 20 C1 C4 C4 54 45 2C 36 34 0C |BLE. ...TE,64.| 00000CC0: 20 20 20 C7 CF D4 CF 20 46 49 32 07 20 20 46 49 | .... FI2. FI| 00000CD0: 37 3A 2F 20 20 28 41 44 52 5B 28 28 4B 4C 41 4D |7:/ (ADR[((KLAM| 00000CE0: 4D 45 52 20 D3 C8 CC 20 32 29 2B 41 4E 5A 41 48 |MER ... 2)+ANZAH| 00000CF0: 4C 29 5D 29 5F 28 56 41 52 41 44 52 5B 5A 31 5D |L)])_(VARADR[Z1]| 00000D00: 29 0D 20 20 C9 CE C3 20 41 4E 5A 41 48 4C 1A 20 |). ... ANZAHL. | 00000D10: 20 C1 C4 C4 54 45 2C 28 28 56 41 52 41 52 54 5B | ...TE,((VARART[| 00000D20: 5A 31 5D 29 2B 36 34 29 20 20 20 C9 C6 20 28 28 |Z1])+64) .. ((| 00000D30: 56 41 52 41 52 54 5B 5A 31 5D 29 3C 3D 38 29 20 |VARART[Z1])<=8) | 00000D40: C7 CF D4 CF 20 46 49 32 19 20 20 20 28 41 58 5B |.... FI2. (AX[| 00000D50: 4B 4C 41 4D 4D 45 52 5D 29 5F 28 CC CF D7 5A 31 |KLAMMER])_(...Z1| 00000D60: 29 0A 20 C7 CF D4 CF 20 46 49 32 01 07 20 43 43 |). .... FI2.. CC| 00000D70: 4F 4E 3A 18 20 20 C9 C6 20 28 51 3C 3E 33 34 29 |ON:. .. (Q<>34)| 00000D80: 20 C7 CF D4 CF 20 43 5A 41 48 4C 0C 20 20 5A 32 | .... CZAHL. Z2| 00000D90: 5F 43 4F 4E 45 4E 44 0D 20 20 C9 CE C3 20 43 4F |_CONEND. ... CO| 00000DA0: 4E 45 4E 44 06 20 20 53 37 3A 09 20 20 20 C9 CE |NEND. S7:. ..| 00000DB0: C3 20 5A 15 20 20 20 51 5F 28 D0 C5 C5 CB 28 35 |. Z. Q_(....(5| 00000DC0: 30 30 30 30 2B 5A 29 29 0E 20 20 20 C9 CE C3 20 |0000+Z)). ... | 00000DD0: 43 4F 4E 45 4E 44 2B 20 20 20 C9 C6 20 28 28 51 |CONEND+ .. ((Q| 00000DE0: 3D 33 34 29 20 CF D2 20 28 28 CC CF D7 5A 29 3E |=34) .. ((...Z)>| 00000DF0: 42 35 30 30 30 30 29 29 20 C7 CF D4 CF 20 46 49 |B50000)) .... FI| 00000E00: 38 10 20 20 20 D0 CF CB C5 43 4F 4E 45 4E 44 2C |8. ....CONEND,| 00000E10: 51 0A 20 20 C7 CF D4 CF 20 53 37 07 20 20 46 49 |Q. .... S7. FI| 00000E20: 38 3A 1A 20 20 D0 CF CB C5 5A 32 2C 28 CC CF D7 |8:. ....Z2,(...| 00000E30: 28 43 4F 4E 45 4E 44 2D 5A 32 29 29 16 20 20 D0 |(CONEND-Z2)). .| 00000E40: CF CB C5 28 5A 32 2B 31 29 2C 28 D0 C5 C5 CB 5A |...(Z2+1),(....Z| 00000E50: 32 29 0B 20 20 C1 C4 C4 54 45 2C 36 38 23 20 20 |2). ...TE,68# | 00000E60: 28 41 44 52 5B 28 28 4B 4C 41 4D 4D 45 52 D3 C8 |(ADR[((KLAMMER..| 00000E70: CC 32 29 2B 41 4E 5A 41 48 4C 29 5D 29 5F 5A 32 |.2)+ANZAHL)])_Z2| 00000E80: 0D 20 20 C9 CE C3 20 41 4E 5A 41 48 4C 08 20 20 |. ... ANZAHL. | 00000E90: C9 CE C3 20 5A 0B 20 20 C7 CF D4 CF 20 46 49 32 |... Z. .... FI2| 00000EA0: 01 08 20 43 5A 41 48 4C 3A 08 20 20 42 31 5F 36 |.. CZAHL:. B1_6| 00000EB0: 35 0F 20 20 C3 CC D2 20 56 41 52 49 41 42 4C 45 |5. ... VARIABLE| 00000EC0: 09 20 20 D2 C5 D0 C5 C1 D4 33 20 20 20 C9 C6 20 |. ......3 .. | 00000ED0: 28 28 28 51 3C 3E 34 36 29 20 C1 CE C4 20 28 51 |(((Q<>46) ... (Q| 00000EE0: 3C 3E 34 35 29 29 20 C1 CE C4 20 28 51 3C 3E 36 |<>45)) ... (Q<>6| 00000EF0: 39 29 29 20 C7 CF D4 CF 20 46 49 39 0A 20 20 20 |9)) .... FI9. | 00000F00: 20 42 31 5F 36 37 08 20 20 20 46 49 39 3A 12 20 | B1_67. FI9:. | 00000F10: 20 20 C1 C4 C4 20 56 41 52 49 41 42 4C 45 2C 51 | ... VARIABLE,Q| 00000F20: 0A 20 20 20 D2 C5 D0 C5 C1 D4 0A 20 20 20 20 C9 |. ....... .| 00000F30: CE C3 20 5A 16 20 20 20 20 51 5F 28 D0 C5 C5 CB |.. Z. Q_(....| 00000F40: 28 35 30 30 30 30 2B 5A 29 29 27 20 20 20 D5 CE |(50000+Z))' ..| 00000F50: D4 C9 CC 20 28 28 51 3C 3E 33 32 29 20 CF D2 20 |... ((Q<>32) .. | 00000F60: 28 28 CC CF D7 20 5A 29 3E 42 35 30 30 30 30 29 |((... Z)>B50000)| 00000F70: 29 4C 20 20 D5 CE D4 C9 CC 20 28 28 28 28 28 D0 |)L ..... (((((.| 00000F80: C5 C5 CB 28 35 30 32 35 36 2B 51 29 29 3C 3E 33 |...(50256+Q))<>3| 00000F90: 29 20 C1 CE C4 28 51 3C 3E 36 39 29 29 20 CF D2 |) ...(Q<>69)) ..| 00000FA0: 20 28 51 3D 33 34 29 29 20 CF D2 20 28 28 CC CF | (Q=34)) .. ((..| 00000FB0: D7 20 5A 29 3E 42 35 30 30 30 30 29 29 15 20 20 |. Z)>B50000)). | 00000FC0: 52 45 41 4C 5F 28 D6 C1 CC 56 41 52 49 41 42 4C |REAL_(...VARIABL| 00000FD0: 45 29 17 20 20 C9 C6 20 28 42 31 3D 36 37 29 20 |E). .. (B1=67) | 00000FE0: C7 CF D4 CF 20 46 49 31 30 34 20 20 20 C9 C6 20 |.... FI104 .. | 00000FF0: 28 28 28 CC C5 CE 56 41 52 49 41 42 4C 45 29 3C |(((...VARIABLE)<| 00001000: 34 29 20 C1 CE C4 20 28 52 45 41 4C 3C 32 35 36 |4) ... (REAL<256| 00001010: 2E 29 29 20 C7 CF D4 CF 20 46 49 31 30 0A 20 20 |.)) .... FI10. | 00001020: 20 20 42 31 5F 36 36 1F 20 20 20 20 C9 C6 20 28 | B1_66. .. (| 00001030: 52 45 41 4C 3C 36 35 35 33 36 2E 29 20 C7 CF D4 |REAL<65536.) ...| 00001040: CF 20 46 49 31 30 0B 20 20 20 20 20 42 31 5F 36 |. FI10. B1_6| 00001050: 37 08 20 20 46 49 31 30 3A 0B 20 20 C1 C4 C4 54 |7. FI10:. ...T| 00001060: 45 2C 42 31 2F 20 20 C9 C6 28 28 42 31 3C 3E 36 |E,B1/ ..((B1<>6| 00001070: 36 29 CF D2 28 28 28 CC CF D7 43 4F 4E 45 4E 44 |6)..(((...CONEND| 00001080: 29 C1 CE C4 31 29 3D 30 29 29 C7 CF D4 CF 20 46 |)...1)=0)).... F| 00001090: 49 33 36 0E 20 20 20 C9 CE C3 20 43 4F 4E 45 4E |I36. ... CONEN| 000010A0: 44 08 20 20 46 49 33 36 3A 27 20 20 28 41 44 52 |D. FI36:' (ADR| 000010B0: 5B 28 28 4B 4C 41 4D 4D 45 52 D3 C8 CC 32 29 2B |[((KLAMMER...2)+| 000010C0: 41 4E 5A 41 48 4C 29 5D 29 5F 43 4F 4E 45 4E 44 |ANZAHL)])_CONEND| 000010D0: 0D 20 20 C9 CE C3 20 41 4E 5A 41 48 4C 18 20 20 |. ... ANZAHL. | 000010E0: C9 C6 20 28 42 31 3C 3E 36 35 29 20 C7 CF D4 CF |.. (B1<>65) ....| 000010F0: 20 46 49 31 31 1A 20 20 20 D0 CF CB C5 20 43 4F | FI11. .... CO| 00001100: 4E 45 4E 44 2C 28 C2 D9 D4 C5 52 45 41 4C 29 0E |NEND,(....REAL).| 00001110: 20 20 20 C9 CE C3 20 43 4F 4E 45 4E 44 0C 20 20 | ... CONEND. | 00001120: 20 C7 CF D4 CF 20 46 49 32 08 20 20 46 49 31 31 | .... FI2. FI11| 00001130: 3A 18 20 20 C9 C6 20 28 42 31 3C 3E 36 36 29 20 |:. .. (B1<>66) | 00001140: C7 CF D4 CF 20 46 49 31 32 1D 20 20 20 28 C9 CE |.... FI12. (..| 00001150: D4 20 C1 D4 20 43 4F 4E 45 4E 44 29 5F 28 C9 CE |. .. CONEND)_(..| 00001160: D4 52 45 41 4C 29 0E 20 20 20 C9 CE C3 20 43 4F |.REAL). ... CO| 00001170: 4E 45 4E 44 0E 20 20 20 C9 CE C3 20 43 4F 4E 45 |NEND. ... CONE| 00001180: 4E 44 0C 20 20 20 C7 CF D4 CF 20 46 49 32 08 20 |ND. .... FI2. | 00001190: 20 46 49 31 32 3A 18 20 20 28 D2 C5 C1 CC 20 C1 | FI12:. (.... .| 000011A0: D4 20 43 4F 4E 45 4E 44 29 5F 52 45 41 4C 14 20 |. CONEND)_REAL. | 000011B0: 20 43 4F 4E 45 4E 44 5F 28 43 4F 4E 45 4E 44 2B | CONEND_(CONEND+| 000011C0: 35 29 0B 20 20 C7 CF D4 CF 20 46 49 32 01 0C 49 |5). .... FI2..I| 000011D0: 4E 43 20 46 45 48 4C 45 52 3A 1D 20 C9 C6 20 28 |NC FEHLER:. .. (| 000011E0: 46 45 48 4C 45 52 5A 3E 30 30 31 35 29 20 C7 CF |FEHLERZ>0015) ..| 000011F0: D4 CF 20 46 49 31 33 0E 20 20 C9 CE C3 20 46 45 |.. FI13. ... FE| 00001200: 48 4C 45 52 5A 07 20 46 49 31 33 3A 07 D2 C5 D4 |HLERZ. FI13:....| 00001210: D5 D2 CE 01 07 43 4F 4D 42 45 3A 13 20 28 D3 D4 |.....COMBE:. (..| 00001220: D2 20 C1 D4 20 34 39 39 31 39 29 5F 54 45 19 20 |. .. 49919)_TE. | 00001230: D0 CF CB C5 20 34 39 39 32 30 2C 28 28 CC C5 CE |.... 49920,((...| 00001240: 20 54 45 29 2B 32 29 0B 20 D3 D9 D3 20 34 39 36 | TE)+2). ... 496| 00001250: 39 36 1A 20 C9 C6 20 28 42 31 38 36 20 3C 3E 20 |96. .. (B186 <> | 00001260: 30 29 20 C7 CF D4 CF 20 46 49 31 34 13 20 20 C7 |0) .... FI14. .| 00001270: CF D3 D5 C2 20 49 4E 43 20 46 45 48 4C 45 52 17 |.... INC FEHLER.| 00001280: 20 20 28 46 45 48 4C 45 52 5B 46 45 48 4C 45 52 | (FEHLER[FEHLER| 00001290: 5A 5D 29 5F 54 45 19 20 20 28 46 45 48 4C 45 52 |Z])_TE. (FEHLER| 000012A0: 41 52 54 5B 46 45 48 4C 45 52 5A 5D 29 5F 31 09 |ART[FEHLERZ])_1.| 000012B0: 20 20 D2 C5 D4 D5 D2 CE 07 20 46 49 31 34 3A 1D | ....... FI14:.| 000012C0: 20 C9 C6 20 28 4B 4C 41 4D 4D 45 52 3D 30 30 30 | .. (KLAMMER=000| 000012D0: 31 29 20 C7 CF D4 CF 20 46 49 31 35 1C 20 20 C9 |1) .... FI15. .| 000012E0: C6 20 28 42 31 38 37 20 3C 3E 20 36 34 29 20 C7 |. (B187 <> 64) .| 000012F0: CF D4 CF 20 46 49 31 36 14 20 20 20 C7 CF D3 D5 |... FI16. ....| 00001300: C2 20 49 4E 43 20 46 45 48 4C 45 52 18 20 20 20 |. INC FEHLER. | 00001310: 28 46 45 48 4C 45 52 5B 46 45 48 4C 45 52 5A 5D |(FEHLER[FEHLERZ]| 00001320: 29 5F 54 45 1A 20 20 20 28 46 45 48 4C 45 52 41 |)_TE. (FEHLERA| 00001330: 52 54 5B 46 45 48 4C 45 52 5A 5D 29 5F 34 0A 20 |RT[FEHLERZ])_4. | 00001340: 20 20 D2 C5 D4 D5 D2 CE 08 20 20 46 49 31 36 3A | ....... FI16:| 00001350: 15 20 20 C9 C6 20 28 4B 4C 41 4D 4D 45 52 3C 3D |. .. (KLAMMER<=| 00001360: 30 30 30 32 29 11 20 20 20 C9 C6 20 28 42 31 38 |0002). .. (B18| 00001370: 36 3D 31 31 35 29 0D 20 20 20 20 42 31 38 36 5F |6=115). B186_| 00001380: 31 39 34 09 20 20 20 C5 CE C4 C9 C6 11 20 20 20 |194. ...... | 00001390: C9 C6 20 28 42 31 38 36 3D 31 31 36 29 0D 20 20 |.. (B186=116). | 000013A0: 20 20 42 31 38 36 5F 31 39 38 09 20 20 20 C5 CE | B186_198. ..| 000013B0: C4 C9 C6 11 20 20 20 C9 C6 20 28 42 31 38 36 3D |.... .. (B186=| 000013C0: 31 33 36 29 0D 20 20 20 20 42 31 38 36 5F 32 30 |136). B186_20| 000013D0: 31 09 20 20 20 C5 CE C4 C9 C6 11 20 20 20 C9 C6 |1. ...... ..| 000013E0: 20 28 42 31 38 36 3D 31 33 37 29 0D 20 20 20 20 | (B186=137). | 000013F0: 42 31 38 36 5F 31 39 37 09 20 20 20 C5 CE C4 C9 |B186_197. ....| 00001400: C6 11 20 20 20 C9 C6 20 28 42 31 38 36 3D 31 33 |.. .. (B186=13| 00001410: 38 29 0D 20 20 20 20 42 31 38 36 5F 32 30 32 09 |8). B186_202.| 00001420: 20 20 20 C5 CE C4 C9 C6 07 20 20 C5 CC D3 C5 11 | ...... .....| 00001430: 20 20 20 C9 C6 20 28 42 31 38 36 3D 31 39 33 29 | .. (B186=193)| 00001440: 0C 20 20 20 20 42 31 38 36 5F 37 38 09 20 20 20 |. B186_78. | 00001450: C5 CE C4 C9 C6 08 20 20 C5 CE C4 C9 C6 1A 20 20 |...... ...... | 00001460: C9 C6 28 42 31 38 36 3E 31 39 31 29 20 C7 CF D4 |..(B186>191) ...| 00001470: CF 20 43 4F 4D 46 55 1F 20 20 C1 C4 C4 20 28 54 |. COMFU. ... (T| 00001480: 45 58 54 5B 28 4B 4C 41 4D 4D 45 52 2D 31 29 5D |EXT[(KLAMMER-1)]| 00001490: 29 2C 42 31 38 37 47 20 20 28 41 44 52 5B 28 28 |),B187G (ADR[((| 000014A0: 28 4B 4C 41 4D 4D 45 52 2D 31 29 20 D3 C8 CC 20 |(KLAMMER-1) ... | 000014B0: 32 29 20 2B 20 28 41 4E 5A 5B 28 4B 4C 41 4D 4D |2) + (ANZ[(KLAMM| 000014C0: 45 52 2D 31 29 5D 29 29 5D 29 5F 28 56 41 52 45 |ER-1)]))])_(VARE| 000014D0: 4E 44 20 2B 20 50 55 46 46 45 52 47 29 19 20 20 |ND + PUFFERG). | 000014E0: C9 CE C3 20 28 41 4E 5A 5B 28 4B 4C 41 4D 4D 45 |... (ANZ[(KLAMME| 000014F0: 52 2D 31 29 5D 29 2C 20 20 28 41 44 52 5B 28 4B |R-1)]), (ADR[(K| 00001500: 4C 41 4D 4D 45 52 20 D3 C8 CC 20 32 29 5D 29 5F |LAMMER ... 2)])_| 00001510: 28 56 41 52 45 4E 44 20 2B 20 50 55 46 46 45 52 |(VAREND + PUFFER| 00001520: 47 29 1C 20 20 C9 C6 20 28 42 31 38 37 20 3E 3D |G). .. (B187 >=| 00001530: 20 36 37 29 20 C7 CF D4 CF 20 46 49 31 37 23 20 | 67) .... FI17# | 00001540: 20 20 50 55 46 46 45 52 47 5F 28 50 55 46 46 45 | PUFFERG_(PUFFE| 00001550: 52 47 20 2B 20 28 42 31 38 37 20 2D 20 36 34 29 |RG + (B187 - 64)| 00001560: 29 0D 20 20 20 C7 CF D4 CF 20 46 49 31 35 08 20 |). .... FI15. | 00001570: 20 46 49 31 37 3A 1C 20 20 C9 C6 20 28 42 31 38 | FI17:. .. (B18| 00001580: 37 20 3C 3E 20 36 37 29 20 C7 CF D4 CF 20 46 49 |7 <> 67) .... FI| 00001590: 31 38 19 20 20 20 50 55 46 46 45 52 47 5F 28 50 |18. PUFFERG_(P| 000015A0: 55 46 46 45 52 47 20 2B 20 35 29 0D 20 20 20 C7 |UFFERG + 5). .| 000015B0: CF D4 CF 20 46 49 31 35 08 20 20 46 49 31 38 3A |... FI15. FI18:| 000015C0: 12 20 20 20 D0 CF CB C5 20 50 52 45 4E 44 2C 31 |. .... PREND,1| 000015D0: 36 39 16 20 20 20 D0 CF CB C5 20 28 50 52 45 4E |69. .... (PREN| 000015E0: 44 2B 31 29 2C 32 35 35 16 20 20 20 D0 CF CB C5 |D+1),255. ....| 000015F0: 20 28 50 52 45 4E 44 2B 32 29 2C 31 34 31 29 20 | (PREND+2),141) | 00001600: 20 20 28 C9 CE D4 20 C1 D4 20 28 50 52 45 4E 44 | (... .. (PREND| 00001610: 2B 33 29 29 5F 28 56 41 52 45 4E 44 20 2B 20 50 |+3))_(VAREND + P| 00001620: 55 46 46 45 52 47 29 15 20 20 20 50 52 45 4E 44 |UFFERG). PREND| 00001630: 5F 28 50 52 45 4E 44 20 2B 20 35 29 1B 20 20 20 |_(PREND + 5). | 00001640: 50 55 46 46 45 52 47 5F 28 50 55 46 46 45 52 47 |PUFFERG_(PUFFERG| 00001650: 20 2B 20 32 35 35 29 07 20 46 49 31 35 3A 2D 20 | + 255). FI15:- | 00001660: C9 C6 20 28 28 4B 4C 41 4D 4D 45 52 3C 3E 30 30 |.. ((KLAMMER<>00| 00001670: 30 31 29 20 CF D2 20 28 42 31 38 37 3D 36 34 29 |01) .. (B187=64)| 00001680: 29 20 C7 CF D4 CF 20 46 49 31 39 13 20 20 C7 CF |) .... FI19. ..| 00001690: D3 D5 C2 20 49 4E 43 20 46 45 48 4C 45 52 17 20 |... INC FEHLER. | 000016A0: 20 28 46 45 48 4C 45 52 5B 46 45 48 4C 45 52 5A | (FEHLER[FEHLERZ| 000016B0: 5D 29 5F 54 45 19 20 20 28 46 45 48 4C 45 52 41 |])_TE. (FEHLERA| 000016C0: 52 54 5B 46 45 48 4C 45 52 5A 5D 29 5F 33 09 20 |RT[FEHLERZ])_3. | 000016D0: 20 D2 C5 D4 D5 D2 CE 07 20 46 49 31 39 3A 1A 20 | ....... FI19:. | 000016E0: C9 C6 20 28 42 31 38 36 3E 32 32 33 29 20 C7 CF |.. (B186>223) ..| 000016F0: D4 CF 20 43 4F 4D 53 4F 0C 20 57 45 49 54 45 52 |.. COMSO. WEITER| 00001700: 43 4F 4D 3A 09 20 5A 31 5F 30 30 30 30 08 20 D2 |COM:. Z1_0000. .| 00001710: C5 D0 C5 C1 D4 0A 20 20 5A 32 5F 30 30 30 30 09 |...... Z2_0000.| 00001720: 20 20 D2 C5 D0 C5 C1 D4 21 20 20 20 5A 33 5F 28 | ......! Z3_(| 00001730: 28 34 39 39 38 34 2B 28 5A 31 D3 C8 CC 32 29 29 |(49984+(Z1...2))| 00001740: 2B 28 5A 32 2B 5A 32 29 29 2B 20 20 20 28 C9 CE |+(Z2+Z2))+ (..| 00001750: D4 20 C1 D4 20 5A 33 29 5F 28 41 44 52 5B 28 28 |. .. Z3)_(ADR[((| 00001760: 4B 4C 41 4D 4D 45 52 20 D3 C8 CC 20 32 29 2B 5A |KLAMMER ... 2)+Z| 00001770: 31 29 5D 29 0A 20 20 20 C9 CE C3 20 5A 32 12 20 |1)]). ... Z2. | 00001780: 20 D5 CE D4 C9 CC 20 28 5A 32 3E 30 30 30 31 29 | ..... (Z2>0001)| 00001790: 09 20 20 C9 CE C3 20 5A 31 11 20 D5 CE D4 C9 CC |. ... Z1. .....| 000017A0: 20 28 5A 31 3E 30 30 30 33 29 0C 20 49 31 38 34 | (Z1>0003). I184| 000017B0: 5F 50 52 45 4E 44 0B 20 D3 D9 D3 20 34 39 37 36 |_PREND. ... 4976| 000017C0: 30 09 20 41 31 5F 42 31 38 38 09 20 41 32 5F 42 |0. A1_B188. A2_B| 000017D0: 31 38 39 09 20 41 33 5F 49 31 38 34 07 20 42 31 |189. A3_I184. B1| 000017E0: 5F 30 30 08 20 D2 C5 D0 C5 C1 D4 34 20 20 C9 C6 |_00. ......4 ..| 000017F0: 20 28 28 41 46 31 5B 28 28 4B 4C 41 4D 4D 45 52 | ((AF1[((KLAMMER| 00001800: 20 D3 C8 CC 20 32 29 2B 42 31 29 5D 29 3E 30 30 | ... 2)+B1)])>00| 00001810: 30 30 29 20 C7 CF D3 D5 C2 20 52 4F 57 41 54 09 |00) ..... ROWAT.| 00001820: 20 20 C9 CE C3 20 42 31 0F 20 D5 CE D4 C9 CC 20 | ... B1. ..... | 00001830: 28 42 31 3E 30 33 29 0A 20 50 52 45 4E 44 5F 41 |(B1>03). PREND_A| 00001840: 33 07 D2 C5 D4 D5 D2 CE 01 08 43 4F 4D 53 4F 20 |3.........COMSO | 00001850: 3A 0F 20 42 32 5F 28 42 31 38 36 2D 32 32 34 29 |:. B2_(B186-224)| 00001860: 21 20 C9 C6 20 28 28 42 32 3C 31 35 29 CF D2 28 |! .. ((B2<15)..(| 00001870: 42 32 3E 32 34 29 29 20 C7 CF D4 CF 20 46 49 34 |B2>24)) .... FI4| 00001880: 30 0D 20 20 42 32 5F 28 42 32 2D 31 34 29 13 20 |0. B2_(B2-14). | 00001890: 20 45 52 53 41 54 5A 56 41 52 5F 56 41 52 45 4E | ERSATZVAR_VAREN| 000018A0: 44 0D 20 20 C4 C5 C3 20 43 4F 4E 45 4E 44 0D 20 |D. ... CONEND. | 000018B0: 20 C4 C5 C3 20 43 4F 4E 45 4E 44 17 20 20 56 41 | ... CONEND. VA| 000018C0: 52 45 4E 44 5F 28 C9 CE D4 C1 D4 43 4F 4E 45 4E |REND_(.....CONEN| 000018D0: 44 29 0C 20 20 C9 C6 20 28 42 32 3D 34 29 16 20 |D). .. (B2=4). | 000018E0: 20 20 43 4F 4E 45 4E 44 5F 28 41 44 52 5B 30 30 | CONEND_(ADR[00| 000018F0: 30 34 5D 29 0E 20 20 20 C9 CE C3 20 43 4F 4E 45 |04]). ... CONE| 00001900: 4E 44 08 20 20 C5 CE C4 C9 C6 0D 20 20 C9 C6 20 |ND. ...... .. | 00001910: 28 42 32 3D 31 30 29 0E 20 20 20 C4 C5 C3 20 43 |(B2=10). ... C| 00001920: 4F 4E 45 4E 44 08 20 20 C5 CE C4 C9 C6 07 20 46 |ONEND. ...... F| 00001930: 49 34 30 3A 15 20 C9 C6 20 28 42 32 3E 35 29 20 |I40:. .. (B2>5) | 00001940: C7 CF D4 CF 20 46 49 32 31 18 20 20 D5 CE D4 C9 |.... FI21. ....| 00001950: CC 20 28 46 45 48 4C 45 52 5A 3C 3E 30 30 30 30 |. (FEHLERZ<>0000| 00001960: 29 0A 20 20 5A 33 5F 30 30 30 31 08 20 20 44 45 |). Z3_0001. DE| 00001970: 4B 4C 3A 2D 20 20 C9 C6 28 28 42 32 3C 3E 35 29 |KL:- ..((B2<>5)| 00001980: CF D2 28 28 28 CC CF D7 43 4F 4E 45 4E 44 29 C1 |..(((...CONEND).| 00001990: CE C4 31 29 3D 30 29 29 C7 CF D4 CF 46 49 33 37 |..1)=0))....FI37| 000019A0: 0E 20 20 20 C9 CE C3 20 43 4F 4E 45 4E 44 08 20 |. ... CONEND. | 000019B0: 20 46 49 33 37 3A 14 20 20 C9 C6 28 42 32 3C 3E | FI37:. ..(B2<>| 000019C0: 32 29 C7 CF D4 CF 46 49 32 32 25 20 20 20 56 41 |2)....FI22% VA| 000019D0: 52 45 4E 44 5F 28 56 41 52 45 4E 44 2B 28 28 CC |REND_(VAREND+((.| 000019E0: CF D7 56 41 52 45 4E 44 29 C1 CE C4 31 29 29 0E |..VAREND)...1)).| 000019F0: 20 20 20 5A 33 5F 28 5A 33 2B 5A 33 29 08 20 20 | Z3_(Z3+Z3). | 00001A00: 46 49 32 32 3A 14 20 20 C9 C6 28 42 32 3C 3E 33 |FI22:. ..(B2<>3| 00001A10: 29 C7 CF D4 CF 46 49 32 33 14 20 20 20 5A 33 5F |)....FI23. Z3_| 00001A20: 28 28 5A 33 D3 C8 CC 32 29 2B 5A 33 29 08 20 20 |((Z3...2)+Z3). | 00001A30: 46 49 32 33 3A 14 20 20 C9 C6 28 42 32 3C 3E 34 |FI23:. ..(B2<>4| 00001A40: 29 C7 CF D4 CF 46 49 32 34 0E 20 20 20 C4 C5 C3 |)....FI24. ...| 00001A50: 20 43 4F 4E 45 4E 44 1E 20 20 20 5A 33 5F 28 C9 | CONEND. Z3_(.| 00001A60: CE D4 28 28 D0 C5 C5 CB 43 4F 4E 45 4E 44 29 2B |..((....CONEND)+| 00001A70: 32 29 2C 30 29 08 20 20 46 49 32 34 3A 0A 20 20 |2),0). FI24:. | 00001A80: 5A 31 5F 30 30 30 31 09 20 20 D2 C5 D0 C5 C1 D4 |Z1_0001. ......| 00001A90: 0E 20 20 20 C9 CE C3 20 56 41 52 41 4E 5A 1E 20 |. ... VARANZ. | 00001AA0: 20 20 28 56 41 52 5B 56 41 52 41 4E 5A 5D 29 5F | (VAR[VARANZ])_| 00001AB0: 28 46 45 48 4C 45 52 5B 5A 31 5D 29 15 20 20 20 |(FEHLER[Z1]). | 00001AC0: C9 C6 28 42 32 3C 3E 35 29 C7 CF D4 CF 46 49 32 |..(B2<>5)....FI2| 00001AD0: 35 2A 20 20 20 20 28 56 41 52 41 44 52 5B 56 41 |5* (VARADR[VA| 00001AE0: 52 41 4E 5A 5D 29 5F 28 43 4F 4E 45 4E 44 2B 28 |RANZ])_(CONEND+(| 00001AF0: 28 5A 31 2B 5A 31 29 2D 32 29 29 17 20 20 20 20 |(Z1+Z1)-2)). | 00001B00: 28 56 41 52 41 52 54 5B 56 41 52 41 4E 5A 5D 29 |(VARART[VARANZ])| 00001B10: 5F 32 0E 20 20 20 20 C7 CF D4 CF 20 46 49 32 36 |_2. .... FI26| 00001B20: 09 20 20 20 46 49 32 35 3A 18 20 20 20 20 28 56 |. FI25:. (V| 00001B30: 41 52 41 52 54 5B 56 41 52 41 4E 5A 5D 29 5F 42 |ARART[VARANZ])_B| 00001B40: 32 2B 20 20 20 20 28 56 41 52 41 44 52 5B 56 41 |2+ (VARADR[VA| 00001B50: 52 41 4E 5A 5D 29 5F 28 56 41 52 45 4E 44 2B 28 |RANZ])_(VAREND+(| 00001B60: 28 5A 31 2A 5A 33 29 2D 5A 33 29 29 09 20 20 20 |(Z1*Z3)-Z3)). | 00001B70: 46 49 32 36 3A 15 20 20 20 C9 C6 28 42 32 3C 3E |FI26:. ..(B2<>| 00001B80: 34 29 C7 CF D4 CF 46 49 32 37 12 20 20 20 20 D0 |4)....FI27. .| 00001B90: CF CB C5 50 52 45 4E 44 2C 31 36 39 1A 20 20 20 |...PREND,169. | 00001BA0: 20 D0 CF CB C5 28 50 52 45 4E 44 2B 31 29 2C 28 | ....(PREND+1),(| 00001BB0: CC CF D7 5A 33 29 16 20 20 20 20 D0 CF CB C5 28 |...Z3). ....(| 00001BC0: 50 52 45 4E 44 2B 32 29 2C 31 34 31 26 20 20 20 |PREND+2),141& | 00001BD0: 20 28 C9 CE D4 C1 D4 28 50 52 45 4E 44 2B 33 29 | (.....(PREND+3)| 00001BE0: 29 5F 28 56 41 52 41 44 52 5B 56 41 52 41 4E 5A |)_(VARADR[VARANZ| 00001BF0: 5D 29 14 20 20 20 20 50 52 45 4E 44 5F 28 50 52 |]). PREND_(PR| 00001C00: 45 4E 44 2B 35 29 09 20 20 20 46 49 32 37 3A 0A |END+5). FI27:.| 00001C10: 20 20 20 C9 CE C3 20 5A 31 15 20 20 D5 CE D4 C9 | ... Z1. ....| 00001C20: CC 20 28 5A 31 3E 46 45 48 4C 45 52 5A 29 17 20 |. (Z1>FEHLERZ). | 00001C30: 20 C9 C6 20 28 42 32 3C 3E 35 29 20 C7 CF D4 CF | .. (B2<>5) ....| 00001C40: 20 46 49 32 38 25 20 20 20 43 4F 4E 45 4E 44 5F | FI28% CONEND_| 00001C50: 28 43 4F 4E 45 4E 44 2B 28 46 45 48 4C 45 52 5A |(CONEND+(FEHLERZ| 00001C60: 2B 46 45 48 4C 45 52 5A 29 29 0D 20 20 20 C7 CF |+FEHLERZ)). ..| 00001C70: D4 CF 20 46 49 32 39 08 20 20 46 49 32 38 3A 20 |.. FI29. FI28: | 00001C80: 20 20 20 56 41 52 45 4E 44 5F 28 56 41 52 45 4E | VAREND_(VAREN| 00001C90: 44 2B 28 46 45 48 4C 45 52 5A 2A 5A 33 29 29 08 |D+(FEHLERZ*Z3)).| 00001CA0: 20 20 46 49 32 39 3A 0F 20 20 46 45 48 4C 45 52 | FI29:. FEHLER| 00001CB0: 5A 5F 30 30 30 30 09 20 20 D2 C5 D4 D5 D2 CE 07 |Z_0000. .......| 00001CC0: 20 46 49 32 31 3A 16 20 C9 C6 20 28 42 32 3C 3E | FI21:. .. (B2<>| 00001CD0: 36 29 20 C7 CF D4 CF 20 46 49 33 30 1C 20 20 28 |6) .... FI30. (| 00001CE0: C9 CE D4 20 C1 D4 28 41 44 52 5B 30 30 30 34 5D |... ..(ADR[0004]| 00001CF0: 29 29 5F 50 52 45 4E 44 09 20 20 D2 C5 D4 D5 D2 |))_PREND. .....| 00001D00: CE 07 20 46 49 33 30 3A 16 20 C9 C6 20 28 42 32 |.. FI30:. .. (B2| 00001D10: 3E 31 30 29 20 C7 CF D4 CF 20 46 49 33 31 0C 20 |>10) .... FI31. | 00001D20: 20 42 32 5F 28 42 32 2D 36 29 16 20 20 C9 C6 20 | B2_(B2-6). .. | 00001D30: 28 42 32 3D 34 29 20 C7 CF D4 CF 20 46 49 33 32 |(B2=4) .... FI32| 00001D40: 15 20 20 20 43 4F 4E 45 4E 44 5F 28 43 4F 4E 45 |. CONEND_(CONE| 00001D50: 4E 44 2D 32 29 1A 20 20 20 5A 33 5F 28 28 C9 CE |ND-2). Z3_((..| 00001D60: D4 20 C1 D4 20 43 4F 4E 45 4E 44 29 2B 31 29 0E |. .. CONEND)+1).| 00001D70: 20 20 20 C7 CF D3 D5 C2 20 44 45 4B 4C 29 20 20 | ..... DEKL) | 00001D80: 20 28 56 41 52 41 52 54 5B 56 41 52 41 4E 5A 5D | (VARART[VARANZ]| 00001D90: 29 5F 28 28 56 41 52 41 52 54 5B 56 41 52 41 4E |)_((VARART[VARAN| 00001DA0: 5A 5D 29 2B 38 29 0A 20 20 20 D2 C5 D4 D5 D2 CE |Z])+8). ......| 00001DB0: 08 20 20 46 49 33 32 3A 0D 20 20 C9 CE C3 20 56 |. FI32:. ... V| 00001DC0: 41 52 41 4E 5A 1F 20 20 28 56 41 52 5B 56 41 52 |ARANZ. (VAR[VAR| 00001DD0: 41 4E 5A 5D 29 5F 28 46 45 48 4C 45 52 5B 30 30 |ANZ])_(FEHLER[00| 00001DE0: 30 31 5D 29 14 20 20 43 4F 4E 45 4E 44 5F 28 43 |01]). CONEND_(C| 00001DF0: 4F 4E 45 4E 44 2D 33 29 16 20 20 28 56 41 52 41 |ONEND-3). (VARA| 00001E00: 52 54 5B 56 41 52 41 4E 5A 5D 29 5F 31 32 1A 20 |RT[VARANZ])_12. | 00001E10: 20 28 56 41 52 41 44 52 5B 56 41 52 41 4E 5A 5D | (VARADR[VARANZ]| 00001E20: 29 5F 56 41 52 45 4E 44 0F 20 20 46 45 48 4C 45 |)_VAREND. FEHLE| 00001E30: 52 5A 5F 30 30 30 30 21 20 20 28 C9 CE D4 20 C1 |RZ_0000! (... .| 00001E40: D4 20 34 39 39 38 36 29 5F 28 C9 CE D4 20 C1 D4 |. 49986)_(... ..| 00001E50: 20 43 4F 4E 45 4E 44 29 22 20 20 D0 CF CB C5 20 | CONEND)" .... | 00001E60: 34 39 39 38 38 2C 28 28 D0 C5 C5 CB 28 43 4F 4E |49988,((....(CON| 00001E70: 45 4E 44 2B 32 29 29 2B 32 29 18 20 20 28 C9 CE |END+2))+2). (..| 00001E80: D4 20 C1 D4 20 34 39 39 38 34 29 5F 56 41 52 45 |. .. 49984)_VARE| 00001E90: 4E 44 0D 20 20 49 31 38 34 5F 50 52 45 4E 44 0B |ND. I184_PREND.| 00001EA0: 20 20 42 31 38 36 5F 31 30 30 0C 20 20 D3 D9 D3 | B186_100. ...| 00001EB0: 20 34 39 37 36 30 2E 20 20 5A 33 5F 28 28 28 C9 | 49760. Z3_(((.| 00001EC0: CE D4 C1 D4 43 4F 4E 45 4E 44 29 2B 31 29 2A 28 |....CONEND)+1)*(| 00001ED0: 28 D0 C5 C5 CB 28 43 4F 4E 45 4E 44 2B 32 29 29 |(....(CONEND+2))| 00001EE0: 2B 32 29 29 15 20 20 56 41 52 45 4E 44 5F 28 56 |+2)). VAREND_(V| 00001EF0: 41 52 45 4E 44 2B 5A 33 29 0D 20 20 50 52 45 4E |AREND+Z3). PREN| 00001F00: 44 5F 49 31 38 34 09 20 20 D2 C5 D4 D5 D2 CE 07 |D_I184. .......| 00001F10: 20 46 49 33 31 3A 16 20 C9 C6 20 28 42 32 3E 31 | FI31:. .. (B2>1| 00001F20: 31 29 20 C7 CF D4 CF 20 46 49 34 32 11 20 20 D0 |1) .... FI42. .| 00001F30: CF CB C5 20 50 52 45 4E 44 2C 31 36 39 21 20 20 |... PREND,169! | 00001F40: D0 CF CB C5 20 28 50 52 45 4E 44 2B 31 29 2C 28 |.... (PREND+1),(| 00001F50: C8 C9 C7 C8 28 50 52 45 4E 44 2D 31 29 29 14 20 |....(PREND-1)). | 00001F60: 20 D0 CF CB C5 20 28 50 52 45 4E 44 2B 32 29 2C | .... (PREND+2),| 00001F70: 37 32 15 20 20 D0 CF CB C5 20 28 50 52 45 4E 44 |72. .... (PREND| 00001F80: 2B 33 29 2C 31 36 39 20 20 20 D0 CF CB C5 20 28 |+3),169 .... (| 00001F90: 50 52 45 4E 44 2B 34 29 2C 28 CC CF D7 28 50 52 |PREND+4),(...(PR| 00001FA0: 45 4E 44 2D 31 29 29 14 20 20 D0 CF CB C5 20 28 |END-1)). .... (| 00001FB0: 50 52 45 4E 44 2B 35 29 2C 37 32 12 20 20 50 52 |PREND+5),72. PR| 00001FC0: 45 4E 44 5F 28 50 52 45 4E 44 2B 36 29 09 20 20 |END_(PREND+6). | 00001FD0: D2 C5 D4 D5 D2 CE 07 20 46 49 34 32 3A 17 20 C9 |....... FI42:. .| 00001FE0: C6 20 28 42 32 3C 3E 31 32 29 20 C7 CF D4 CF 20 |. (B2<>12) .... | 00001FF0: 46 49 34 33 13 20 20 28 49 46 5B 49 46 5A 5D 29 |FI43. (IF[IFZ])| 00002000: 5F 43 4F 4E 45 4E 44 0A 20 20 C9 CE C3 20 49 46 |_CONEND. ... IF| 00002010: 5A 15 20 20 28 41 44 52 5B 30 30 30 35 5D 29 5F |Z. (ADR[0005])_| 00002020: 43 4F 4E 45 4E 44 0D 20 20 C9 CE C3 20 43 4F 4E |CONEND. ... CON| 00002030: 45 4E 44 0D 20 20 C9 CE C3 20 43 4F 4E 45 4E 44 |END. ... CONEND| 00002040: 0B 20 20 42 31 38 36 5F 31 32 37 11 20 20 C7 CF |. B186_127. ..| 00002050: D4 CF 20 57 45 49 54 45 52 43 4F 4D 07 20 46 49 |.. WEITERCOM. FI| 00002060: 34 33 3A 09 20 C4 C5 C3 20 49 46 5A 19 20 C9 C6 |43:. ... IFZ. ..| 00002070: 20 28 49 46 5A 3C 30 30 30 39 29 20 C7 CF D4 CF | (IFZ<0009) ....| 00002080: 20 46 49 34 35 0D 20 20 49 4E 43 20 46 45 48 4C | FI45. INC FEHL| 00002090: 45 52 19 20 20 28 46 45 48 4C 45 52 41 52 54 5B |ER. (FEHLERART[| 000020A0: 46 45 48 4C 45 52 5A 5D 29 5F 35 18 20 20 C3 CC |FEHLERZ])_5. ..| 000020B0: D2 20 28 46 45 48 4C 45 52 5B 46 45 48 4C 45 52 |. (FEHLER[FEHLER| 000020C0: 5A 5D 29 09 20 20 D2 C5 D4 D5 D2 CE 07 20 46 49 |Z]). ....... FI| 000020D0: 34 35 3A 17 20 C9 C6 20 28 42 32 3C 3E 31 33 29 |45:. .. (B2<>13)| 000020E0: 20 C7 CF D4 CF 20 46 49 34 34 1D 20 20 28 C9 CE | .... FI44. (..| 000020F0: D4 C1 D4 28 49 46 5B 49 46 5A 5D 29 29 5F 28 50 |...(IF[IFZ]))_(P| 00002100: 52 45 4E 44 2B 33 29 13 20 20 28 49 46 5B 49 46 |REND+3). (IF[IF| 00002110: 5A 5D 29 5F 43 4F 4E 45 4E 44 0A 20 20 C9 CE C3 |Z])_CONEND. ...| 00002120: 20 49 46 5A 15 20 20 28 41 44 52 5B 30 30 30 34 | IFZ. (ADR[0004| 00002130: 5D 29 5F 43 4F 4E 45 4E 44 0D 20 20 C9 CE C3 20 |])_CONEND. ... | 00002140: 43 4F 4E 45 4E 44 0D 20 20 C9 CE C3 20 43 4F 4E |CONEND. ... CON| 00002150: 45 4E 44 0A 20 20 42 31 38 36 5F 31 30 11 20 20 |END. B186_10. | 00002160: C7 CF D4 CF 20 57 45 49 54 45 52 43 4F 4D 07 20 |.... WEITERCOM. | 00002170: 46 49 34 34 3A 19 20 20 28 C9 CE D4 C1 D4 28 49 |FI44:. (.....(I| 00002180: 46 5B 49 46 5A 5D 29 29 5F 50 52 45 4E 44 07 D2 |F[IFZ]))_PREND..| 00002190: C5 D4 D5 D2 CE 01 07 43 4F 4D 46 55 3A 0F 20 42 |.......COMFU:. B| 000021A0: 32 5F 28 42 31 38 36 2D 31 39 32 29 10 20 5A 33 |2_(B186-192). Z3| 000021B0: 5F 28 4B 4C 41 4D 4D 45 52 2D 31 29 19 20 5A 31 |_(KLAMMER-1). Z1| 000021C0: 5F 28 28 5A 33 D3 C8 CC 32 29 2B 28 41 4E 5A 5B |_((Z3...2)+(ANZ[| 000021D0: 5A 33 5D 29 29 11 20 28 41 46 31 5B 5A 31 5D 29 |Z3])). (AF1[Z1])| 000021E0: 5F 50 52 45 4E 44 0B 20 C9 C6 20 28 42 32 3E 34 |_PREND. .. (B2>4| 000021F0: 29 17 20 20 51 57 45 52 54 59 5F 28 41 58 5B 4B |). QWERTY_(AX[K| 00002200: 4C 41 4D 4D 45 52 5D 29 21 20 20 51 57 45 52 54 |LAMMER])! QWERT| 00002210: 32 5F 28 56 41 52 41 52 54 5B 28 C9 CE D4 51 57 |2_(VARART[(...QW| 00002220: 45 52 54 59 2C 30 29 5D 29 0C 20 20 42 32 5F 28 |ERTY,0)]). B2_(| 00002230: 42 32 2D 34 29 0C 20 20 C9 C6 20 28 42 32 3E 34 |B2-4). .. (B2>4| 00002240: 29 0D 20 20 20 42 32 5F 28 42 32 2D 34 29 26 20 |). B2_(B2-4)& | 00002250: 20 20 50 52 45 4E 44 5F 28 50 52 45 4E 44 2B 28 | PREND_(PREND+(| 00002260: D0 C5 C5 CB 28 35 30 39 30 38 2B 51 57 45 52 54 |....(50908+QWERT| 00002270: 32 29 29 29 19 20 20 20 28 41 52 5B 5A 31 5D 29 |2))). (AR[Z1])| 00002280: 5F 28 51 57 45 52 54 59 2B 31 32 38 29 07 20 20 |_(QWERTY+128). | 00002290: C5 CC D3 C5 26 20 20 20 50 52 45 4E 44 5F 28 50 |....& PREND_(P| 000022A0: 52 45 4E 44 2B 28 D0 C5 C5 CB 28 35 30 39 30 34 |REND+(....(50904| 000022B0: 2B 51 57 45 52 54 32 29 29 29 13 20 20 20 28 41 |+QWERT2))). (A| 000022C0: 52 5B 5A 31 5D 29 5F 51 57 45 52 54 59 08 20 20 |R[Z1])_QWERTY. | 000022D0: C5 CE C4 C9 C6 06 20 C5 CC D3 C5 13 20 20 50 52 |...... ..... PR| 000022E0: 45 4E 44 5F 28 50 52 45 4E 44 2B 31 38 29 07 20 |END_(PREND+18). | 000022F0: C5 CE C4 C9 C6 18 20 C1 C4 C4 20 28 54 45 58 54 |...... ... (TEXT| 00002300: 5B 5A 33 5D 29 2C 28 42 32 2B 36 34 29 2D 20 28 |[Z3]),(B2+64)- (| 00002310: 41 46 32 5B 5A 31 5D 29 5F 28 41 44 52 5B 28 28 |AF2[Z1])_(ADR[((| 00002320: 4B 4C 41 4D 4D 45 52 D3 C8 CC 32 29 2B 28 41 4E |KLAMMER...2)+(AN| 00002330: 5A 41 48 4C 2D 31 29 29 5D 29 0F 20 C9 CE C3 20 |ZAHL-1))]). ... | 00002340: 28 41 4E 5A 5B 5A 33 5D 29 07 D2 C5 D4 D5 D2 CE |(ANZ[Z3]).......| 00002350: 01 07 52 4F 57 41 54 3A 06 20 42 32 5F 30 08 20 |..ROWAT:. B2_0. | 00002360: D2 C5 D0 C5 C1 D4 15 20 20 D0 CF CB C5 28 34 39 |....... ....(49| 00002370: 39 38 38 2B 42 32 29 2C 32 35 31 13 20 20 D0 CF |988+B2),251. ..| 00002380: CB C5 28 34 39 39 38 39 2B 42 32 29 2C 30 09 20 |..(49989+B2),0. | 00002390: 20 C9 CE C3 20 42 32 09 20 20 C9 CE C3 20 42 32 | ... B2. ... B2| 000023A0: 0E 20 D5 CE D4 C9 CC 20 28 42 32 3E 38 29 17 20 |. ..... (B2>8). | 000023B0: 5A 31 5F 28 28 4B 4C 41 4D 4D 45 52 D3 C8 CC 32 |Z1_((KLAMMER...2| 000023C0: 29 2B 42 31 29 13 20 C9 C6 20 28 28 41 52 5B 5A |)+B1). .. ((AR[Z| 000023D0: 31 5D 29 3E 31 32 37 29 0D 20 20 51 57 45 52 54 |1])>127). QWERT| 000023E0: 59 5F 32 35 35 1A 20 20 28 41 52 5B 5A 31 5D 29 |Y_255. (AR[Z1])| 000023F0: 5F 28 28 41 52 5B 5A 31 5D 29 2D 31 32 38 29 06 |_((AR[Z1])-128).| 00002400: 20 C5 CC D3 C5 0B 20 20 51 57 45 52 54 59 5F 30 | ..... QWERTY_0| 00002410: 07 20 C5 CE C4 C9 C6 18 20 28 C9 CE D4 C1 D4 34 |. ...... (.....4| 00002420: 39 39 38 34 29 5F 28 41 46 32 5B 5A 31 5D 29 1F |9984)_(AF2[Z1]).| 00002430: 20 28 C9 CE D4 C1 D4 34 39 39 38 36 29 5F 28 28 | (.....49986)_((| 00002440: C9 CE D4 C1 D4 34 39 39 38 34 29 2B 31 29 09 20 |.....49984)+1). | 00002450: 42 31 38 37 5F 42 31 0C 20 49 31 38 32 5F 50 52 |B187_B1. I182_PR| 00002460: 45 4E 44 10 20 49 31 38 34 5F 28 41 46 31 5B 5A |END. I184_(AF1[Z| 00002470: 31 5D 29 09 20 42 31 38 38 5F 41 31 09 20 42 31 |1]). B188_A1. B1| 00002480: 38 39 5F 41 32 28 20 28 C9 CE D4 C1 D4 34 39 39 |89_A2( (.....499| 00002490: 39 36 29 5F 28 56 41 52 41 44 52 5B 28 C9 CE D4 |96)_(VARADR[(...| 000024A0: 28 41 52 5B 5A 31 5D 29 2C 30 29 5D 29 1B 20 28 |(AR[Z1]),0)]). (| 000024B0: C9 CE D4 C1 D4 34 39 39 39 38 29 5F 28 C9 CE D4 |.....49998)_(...| 000024C0: C1 D4 34 39 39 39 36 29 09 20 42 31 38 36 5F 34 |..49996). B186_4| 000024D0: 35 0B 20 C9 C6 20 51 57 45 52 54 59 27 20 20 42 |5. .. QWERTY' B| 000024E0: 31 38 36 5F 28 31 32 33 2B 28 56 41 52 41 52 54 |186_(123+(VARART| 000024F0: 5B 28 C9 CE D4 28 41 52 5B 5A 31 5D 29 2C 30 29 |[(...(AR[Z1]),0)| 00002500: 5D 29 29 06 20 C5 CC D3 C5 1C 20 20 C9 C6 20 28 |])). ..... .. (| 00002510: 28 41 52 5B 5A 31 5D 29 3D 30 29 20 C7 CF D4 CF |(AR[Z1])=0) ....| 00002520: 20 46 49 32 30 27 20 20 20 42 31 38 36 5F 28 38 | FI20' B186_(8| 00002530: 37 2B 28 56 41 52 41 52 54 5B 28 C9 CE D4 28 41 |7+(VARART[(...(A| 00002540: 52 5B 5A 31 5D 29 2C 30 29 5D 29 29 08 20 20 46 |R[Z1]),0)])). F| 00002550: 49 32 30 3A 07 20 C5 CE C4 C9 C6 0B 20 D3 D9 D3 |I20:. ...... ...| 00002560: 20 35 30 37 36 38 0C 20 28 41 52 5B 5A 31 5D 29 | 50768. (AR[Z1])| 00002570: 5F 30 10 20 28 41 46 31 5B 5A 31 5D 29 5F 30 30 |_0. (AF1[Z1])_00| 00002580: 30 30 10 20 28 41 46 32 5B 5A 31 5D 29 5F 30 30 |00. (AF2[Z1])_00| 00002590: 30 30 07 D2 C5 D4 D5 D2 CE 01 01 01 01 01 01 01 |00..............| 000025A0: 01 01 00 C1 C4 |..... |
DINTVAR AT 51200 TEANF,TEEND,PRANF,PREND ,CONANF,CONEND,VARANF,VAREND.ROW 0016 ST RVAR 14 FEHLER.ROW 0016 BYTEVAR FEHLERAR T.ROW 0008 STRVAR 14 TEXT.ROW 0008 INTVA R ANZ.ROW 0032 INTVAR ADR.ROW 0032 INTVA R AF1.ROW 0032 INTVAR AF2.ROW 0032 BYTEV AR AR.ROW 0008 BYTEVAR AX.)ROW 0004 BYTE VAR ADD.ROW 0008 INTVAR IF.ROW 0127 BYTE VAR VARART.ROW 0127 INTVAR VARADR.ROW 01 27 STRVAR 14 VAR.$ADRVAR COMZ,SZEILE,END E,COMKL,COMBE'ADRVAR CBEF,CVAR,CCON,CZAH L,INC FEHLER&ADRVAR S7,COMSO,DEKL,COMFU, ROWAT,FI45'ADRVAR FI1,FI2,FI3,FI4,FI5,FI 6,FI7,FI8$ADRVAR FI9,FI10,FI11,FI12,FI13 ,FI14%ADRVAR FI15,FI16,FI17,FI18,FI19,FI 20%ADRVAR FI21,FI22,FI23,FI24,FI25,FI26% ADRVAR FI27,FI28,FI29,FI30,FI31,FI32%ADR VAR FI33,FI34,FI35,FI36,FI37,FI38*ADRVAR FI40,FI41,FI42,FI43,FI44,WEITERCOM.INTV AR VARANZ,FEHLERZ,KLAMMER.INTVAR Z,Z1,Z2 ,Z3,A3,ERSATZVAR INTVAR ZEILE,PUFFERG,AN ZAHL,IFZ.REALVAR REAL.STRVAR 14 VARIABLE ,TE,ANTWORT)BYTEVAR Q,A1,A2,B1,B2,B3,B4, FEHLERZEILEN.INTVAR AT 0182 I182,I184,I1 868BYTEVAR AT 0182 B182,B183,B184,B185,B 186,B187,B188,B189.BYTEVAR AT 50000 B500 00.BYTEVAR QWERTY,QWERT2..PREND_PRANF.CO NEND_CONANF.VAREND_VARANF.VARANZ_0000.CL R (VAR[0001]).Z_0001.)REPEAT.) (ADD[Z])_ (PEEK(50912+Z)).) INC Z.)UNTIL (Z>0008). Z_0000.ERSATZVAR_Z.IFZ_Z.REPEAT. (AR[Z]) _0. (ADR[Z])_0000. (AF1[Z])_0000. (AF2[Z ])_0000. INC Z.UNTIL (Z>0039).FEHLERZEIL EN_0.FEHLERZ_00001?"... COM PILING ...".ZEILE_0000..S ZEILE:. OUT145. ?(STRZEILE). I182_ZEILE. SYS 49349. SYS 49392. SYS 49680. IF (FE HLERZ=0000) GOTO FI1. PRINT ".ERROR #" ;! PRINT (STR(FEHLERART[0001]));. OU T 58. PRINT (FEHLER[0001]);. ? " IN ";. ?(STR(REAL(ZEILE-1. OUT13. FEHLE RZ_0000. INC FEHLERZEILEN. FI1:. IF ((B 182=0) OR (FEHLERZEILEN>16)) GOTO ENDE. IF (B50000>1) GOSUB COMZ. IF (ERSATZVAR= 0000) GOTO FI38. VAREND_ERSATZVAR. ERS ATZVAR_0000. FI38:. INC ZEILE.GOTO SZEIL E..ENDE:.POKE PREND,96.INC PREND.?"EOC". POKE0198,0.WAIT0198,1.POKE0198,0.END..CO MZ:. Z_0001. KLAMMER_0001. FEHLERZ_0000. PUFFERG_0000. COMKL:. CLR TE. (AX[KLA MMER])_0. ANZAHL_0000.) Q_0.) REPEAT!) (ADR[((KLAMMERSHL2)+Q)])_1024.) INC Q. ) UNTIL (Q>3). IF (KLAMMER=0001) GOTO F I2. ANZAHL_0001. FI2 :. Q_(PEEK(5000 0+Z))- IF ((Q<>32) OR ((LOW Z)<=B50000) ) GOTO FI3. INC Z. GOTO FI2. FI3:. IF ((Q<>41) AND ((LOW Z)<=B50000)) GOTO FI4. IF(LENTE)GOSUB COMBE. DEC KLAM MER. RETURN. FI4:. IF (Q<>40) GOTO F I5. INC Z. (TEXT[KLAMMER])_TE. (AN Z[KLAMMER])_ANZAHL. INC KLAMMER. GOS UB COMKL. TE_(TEXT[KLAMMER]). ANZAHL _(ANZ[KLAMMER]). INC Z. GOTO FI2. F I5:" IF ((PEEK(50256+Q))=1) GOTO CBEF" I F ((PEEK(50256+Q))=2) GOTO CVAR" IF ((PE EK(50256+Q))=3) GOTO CCON. IF (Q=45) GOT O FI6. INC Z. GOTO FI2. FI6:. Z1_Z . REPEAT. DEC Z1/ UNTIL (((PEEK(5000 0+Z1))<>32) OR (Z1=65535))\ IF ((((PEEK( 50256+(PEEK(50000+Z1))))=1) OR (Z1=65535 )) OR ((PEEK(50000+Z1))=45)) GOTO CCON. GOTO CBEF.. CBEF:. ADDTE,Q. INC Z. GOT O FI2.. CVAR:. CLR VARIABLE. REPEAT. ADD VARIABLE,Q. REPEAT. INC Z. Q_(PEEK(50000+Z))- UNTIL ((Q<>32) OR ( (LOW Z)>(PEEK 50000)))3 UNTIL (((PEEK(5 0256+Q))<=1) OR ((LOW Z)>B50000)). Z1_0 000. REPEAT. INC Z1. UNTIL (((VAR[Z1 ])=VARIABLE) OR (Z1>VARANZ)). IF (Z1<=V ARANZ) GOTO FI7. GOSUB INC FEHLER. ( FEHLERART[FEHLERZ])_2. (FEHLER[FEHLERZ ])_VARIABLE. ADDTE,64. GOTO FI2. FI 7:/ (ADR[((KLAMMER SHL 2)+ANZAHL)])_(VA RADR[Z1]). INC ANZAHL. ADDTE,((VARART[ Z1])+64) IF ((VARART[Z1])<=8) GOTO FI2 . (AX[KLAMMER])_(LOWZ1). GOTO FI2.. CC ON:. IF (Q<>34) GOTO CZAHL. Z2_CONEND. INC CONEND. S7:. INC Z. Q_(PEEK(5 0000+Z)). INC CONEND+ IF ((Q=34) OR ((LOWZ)>B50000)) GOTO FI8. POKECONEND, Q. GOTO S7. FI8:. POKEZ2,(LOW(CONEND- Z2)). POKE(Z2+1),(PEEKZ2). ADDTE,68# (ADR[((KLAMMERSHL2)+ANZAHL)])_Z2. INC A NZAHL. INC Z. GOTO FI2.. CZAHL:. B1_6 5. CLR VARIABLE. REPEAT3 IF (((Q<>46 ) AND (Q<>45)) AND (Q<>69)) GOTO FI9. B1_67. FI9:. ADD VARIABLE,Q. REPE AT. INC Z. Q_(PEEK(50000+Z))' UN TIL ((Q<>32) OR ((LOW Z)>B50000))L UNTI L (((((PEEK(50256+Q))<>3) AND(Q<>69)) OR (Q=34)) OR ((LOW Z)>B50000)). REAL_(VA LVARIABLE). IF (B1=67) GOTO FI104 IF (((LENVARIABLE)<4) AND (REAL<256.)) GOTO FI10. B1_66. IF (REAL<65536.) GOT O FI10. B1_67. FI10:. ADDTE,B1/ I F((B1<>66)OR(((LOWCONEND)AND1)=0))GOTO F I36. INC CONEND. FI36:' (ADR[((KLAMM ERSHL2)+ANZAHL)])_CONEND. INC ANZAHL. IF (B1<>65) GOTO FI11. POKE CONEND,(BY TEREAL). INC CONEND. GOTO FI2. FI11 :. IF (B1<>66) GOTO FI12. (INT AT CON END)_(INTREAL). INC CONEND. INC CONE ND. GOTO FI2. FI12:. (REAL AT CONEND )_REAL. CONEND_(CONEND+5). GOTO FI2..I NC FEHLER:. IF (FEHLERZ>0015) GOTO FI13. INC FEHLERZ. FI13:.RETURN..COMBE:. (ST R AT 49919)_TE. POKE 49920,((LEN TE)+2). SYS 49696. IF (B186 <> 0) GOTO FI14. G OSUB INC FEHLER. (FEHLER[FEHLERZ])_TE. (FEHLERART[FEHLERZ])_1. RETURN. FI14:. IF (KLAMMER=0001) GOTO FI15. IF (B187 <> 64) GOTO FI16. GOSUB INC FEHLER. (FEHLER[FEHLERZ])_TE. (FEHLERART[FEHLE RZ])_4. RETURN. FI16:. IF (KLAMMER<= 0002). IF (B186=115). B186_194. E NDIF. IF (B186=116). B186_198. EN DIF. IF (B186=136). B186_201. END IF. IF (B186=137). B186_197. ENDI F. IF (B186=138). B186_202. ENDIF . ELSE. IF (B186=193). B186_78. ENDIF. ENDIF. IF(B186>191) GOTO COMFU. ADD (TEXT[(KLAMMER-1)]),B187G (ADR[(( (KLAMMER-1) SHL 2) + (ANZ[(KLAMMER-1)])) ])_(VAREND + PUFFERG). INC (ANZ[(KLAMME R-1)]), (ADR[(KLAMMER SHL 2)])_(VAREND + PUFFERG). IF (B187 >= 67) GOTO FI17# PUFFERG_(PUFFERG + (B187 - 64)). GOT O FI15. FI17:. IF (B187 <> 67) GOTO FI 18. PUFFERG_(PUFFERG + 5). GOTO FI15 . FI18:. POKE PREND,169. POKE (PREN D+1),255. POKE (PREND+2),141) (INT A T (PREND+3))_(VAREND + PUFFERG). PREND _(PREND + 5). PUFFERG_(PUFFERG + 255). FI15:- IF ((KLAMMER<>0001) OR (B187=64) ) GOTO FI19. GOSUB INC FEHLER. (FEHLER [FEHLERZ])_TE. (FEHLERART[FEHLERZ])_3. RETURN. FI19:. IF (B186>223) GOTO COMSO . WEITERCOM:. Z1_0000. REPEAT. Z2_0000. REPEAT! Z3_((49984+(Z1SHL2))+(Z2+Z2) )+ (INT AT Z3)_(ADR[((KLAMMER SHL 2)+Z 1)]). INC Z2. UNTIL (Z2>0001). INC Z 1. UNTIL (Z1>0003). I184_PREND. SYS 4976 0. A1_B188. A2_B189. A3_I184. B1_00. REP EAT4 IF ((AF1[((KLAMMER SHL 2)+B1)])>00 00) GOSUB ROWAT. INC B1. UNTIL (B1>03). PREND_A3.RETURN..COMSO :. B2_(B186-224) ! IF ((B2<15)OR(B2>24)) GOTO FI40. B2_( B2-14). ERSATZVAR_VAREND. DEC CONEND. DEC CONEND. VAREND_(INTATCONEND). IF (B2=4). CONEND_(ADR[0004]). INC CONE ND. ENDIF. IF (B2=10). DEC CONEND. ENDIF. FI40:. IF (B2>5) GOTO FI21. UNTI L (FEHLERZ<>0000). Z3_0001. DEKL:- IF ((B2<>5)OR(((LOWCONEND)AND1)=0))GOTOFI37 . INC CONEND. FI37:. IF(B2<>2)GOTOFI 22% VAREND_(VAREND+((LOWVAREND)AND1)). Z3_(Z3+Z3). FI22:. IF(B2<>3)GOTOFI2 3. Z3_((Z3SHL2)+Z3). FI23:. IF(B2<>4 )GOTOFI24. DEC CONEND. Z3_(INT((PEEK CONEND)+2),0). FI24:. Z1_0001. REPEAT . INC VARANZ. (VAR[VARANZ])_(FEHLER[ Z1]). IF(B2<>5)GOTOFI25* (VARADR[VA RANZ])_(CONEND+((Z1+Z1)-2)). (VARART[ VARANZ])_2. GOTO FI26. FI25:. (V ARART[VARANZ])_B2+ (VARADR[VARANZ])_( VAREND+((Z1*Z3)-Z3)). FI26:. IF(B2<> 4)GOTOFI27. POKEPREND,169. POKE(PR END+1),(LOWZ3). POKE(PREND+2),141& (INTAT(PREND+3))_(VARADR[VARANZ]). P REND_(PREND+5). FI27:. INC Z1. UNTI L (Z1>FEHLERZ). IF (B2<>5) GOTO FI28% CONEND_(CONEND+(FEHLERZ+FEHLERZ)). GO TO FI29. FI28: VAREND_(VAREND+(FEHLE RZ*Z3)). FI29:. FEHLERZ_0000. RETURN. FI21:. IF (B2<>6) GOTO FI30. (INT AT(A DR[0004]))_PREND. RETURN. FI30:. IF (B2 >10) GOTO FI31. B2_(B2-6). IF (B2=4) G OTO FI32. CONEND_(CONEND-2). Z3_((IN T AT CONEND)+1). GOSUB DEKL) (VARART [VARANZ])_((VARART[VARANZ])+8). RETURN . FI32:. INC VARANZ. (VAR[VARANZ])_(F EHLER[0001]). CONEND_(CONEND-3). (VARA RT[VARANZ])_12. (VARADR[VARANZ])_VAREND . FEHLERZ_0000! (INT AT 49986)_(INT AT CONEND)" POKE 49988,((PEEK(CONEND+2))+ 2). (INT AT 49984)_VAREND. I184_PREND. B186_100. SYS 49760. Z3_(((INTATCONE ND)+1)*((PEEK(CONEND+2))+2)). VAREND_(V AREND+Z3). PREND_I184. RETURN. FI31:. IF (B2>11) GOTO FI42. POKE PREND,169! POKE (PREND+1),(HIGH(PREND-1)). POKE (P REND+2),72. POKE (PREND+3),169 POKE ( PREND+4),(LOW(PREND-1)). POKE (PREND+5) ,72. PREND_(PREND+6). RETURN. FI42:. I F (B2<>12) GOTO FI43. (IF[IFZ])_CONEND. INC IFZ. (ADR[0005])_CONEND. INC CON END. INC CONEND. B186_127. GOTO WEITE RCOM. FI43:. DEC IFZ. IF (IFZ<0009) GOTO FI45. INC FEHLER. (FEHLERART[FEHLERZ] )_5. CLR (FEHLER[FEHLERZ]). RETURN. FI 45:. IF (B2<>13) GOTO FI44. (INTAT(IF[I FZ]))_(PREND+3). (IF[IFZ])_CONEND. INC IFZ. (ADR[0004])_CONEND. INC CONEND. INC CONEND. B186_10. GOTO WEITERCOM. FI44:. (INTAT(IF[IFZ]))_PREND.RETURN..C OMFU:. B2_(B186-192). Z3_(KLAMMER-1). Z1 _((Z3SHL2)+(ANZ[Z3])). (AF1[Z1])_PREND. IF (B2>4). QWERTY_(AX[KLAMMER])! QWERT 2_(VARART[(INTQWERTY,0)]). B2_(B2-4). IF (B2>4). B2_(B2-4)& PREND_(PREND+( PEEK(50908+QWERT2))). (AR[Z1])_(QWERTY +128). ELSE& PREND_(PREND+(PEEK(50904 +QWERT2))). (AR[Z1])_QWERTY. ENDIF. E LSE. PREND_(PREND+18). ENDIF. ADD (TEXT [Z3]),(B2+64)- (AF2[Z1])_(ADR[((KLAMMERS HL2)+(ANZAHL-1))]). INC (ANZ[Z3]).RETURN ..ROWAT:. B2_0. REPEAT. POKE(49988+B2), 251. POKE(49989+B2),0. INC B2. INC B2 . UNTIL (B2>8). Z1_((KLAMMERSHL2)+B1). I F ((AR[Z1])>127). QWERTY_255. (AR[Z1]) _((AR[Z1])-128). ELSE. QWERTY_0. ENDIF. (INTAT49984)_(AF2[Z1]). (INTAT49986)_(( INTAT49984)+1). B187_B1. I182_PREND. I18 4_(AF1[Z1]). B188_A1. B189_A2( (INTAT499 96)_(VARADR[(INT(AR[Z1]),0)]). (INTAT499 98)_(INTAT49996). B186_45. IF QWERTY' B 186_(123+(VARART[(INT(AR[Z1]),0)])). ELS E. IF ((AR[Z1])=0) GOTO FI20' B186_(8 7+(VARART[(INT(AR[Z1]),0)])). FI20:. EN DIF. SYS 50768. (AR[Z1])_0. (AF1[Z1])_00 00. (AF2[Z1])_0000.RETURN..........AD
> CLICK IMAGE PREVIEW FOR FULL MODAL