Multiple names: FILE 18, EDIT
FILE INFORMATION
FILENAME(S):
• FILE 18<br>• EDIT
FILE TYPE(S): PRG
FILE SIZE: 6.3K
FIRST SEEN: 2025-11-02 16:39:09
APPEARS ON: 3 disk(s)
FILE HASH
5556f87ca8ddcd32dd8c665c25bd0f14f4549abece82d4276ac4cf17fb802f3b
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SAVE DISK | FILE 18 | PRG | Treasure Chest - Plattfuss | 11 | 5 | DOWNLOAD FILE |
| SAVE DISK | FILE 18 | PRG | Treasure Chest - Plattfuss | 11 | 5 | DOWNLOAD FILE |
| 10010 SEITE A | EDIT | PRG | BrainSkull, Sammlung, C64er | 11 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B C9 CE D4 D6 C1 D2 20 54 45 41 4E 46 2C 54 45 |;...... TEANF,TE|
00000010: 45 4E 44 2C 50 52 41 4E 46 2C 50 52 45 4E 44 2C |END,PRANF,PREND,|
00000020: 43 4F 4E 41 4E 46 2C 43 4F 4E 45 4E 44 2C 56 41 |CONANF,CONEND,VA|
00000030: 52 41 4E 46 2C 56 41 52 45 4E 44 0A C9 CE D4 D6 |RANF,VAREND.....|
00000040: C1 D2 20 5A 4E 17 C2 D9 D4 C5 D6 C1 D2 20 53 4E |.. ZN........ SN|
00000050: 2C 42 5A 2C 42 53 2C 44 52 49 56 45 0F D3 D4 D2 |,BZ,BS,DRIVE....|
00000060: D6 C1 D2 20 31 34 20 4E 41 4D 45 0C D3 D4 D2 D6 |... 14 NAME.....|
00000070: C1 D2 20 34 30 20 41 21 C1 C4 D2 D6 C1 D2 20 42 |.. 40 A!...... B|
00000080: 45 47 49 4E 4E 2C 5A 45 49 4C 45 2C 5A 45 49 43 |EGINN,ZEILE,ZEIC|
00000090: 48 45 4E 2C 45 4E 44 45 1F C1 C4 D2 D6 C1 D2 20 |HEN,ENDE....... |
000000A0: 4C 4F 41 44 2C 53 41 56 45 2C 44 49 52 2C 4E 45 |LOAD,SAVE,DIR,NE|
000000B0: 57 2C 54 45 58 54 53 26 C1 C4 D2 D6 C1 D2 20 42 |W,TEXTS&...... B|
000000C0: 45 47 49 4E 2C 45 4E 44 2C 48 49 44 45 2C 44 45 |EGIN,END,HIDE,DE|
000000D0: 4C 32 2C 43 4F 50 59 2C 43 48 45 43 4B 21 C1 C4 |L2,COPY,CHECK!..|
000000E0: D2 D6 C1 D2 20 53 43 48 4C 2C 5A 45 49 4C 45 41 |.... SCHL,ZEILEA|
000000F0: 55 53 2C 52 45 56 45 52 53 2C 4C 45 45 52 22 C1 |US,REVERS,LEER".|
00000100: C4 D2 D6 C1 D2 20 4C 49 4E 4B 53 2C 52 45 43 48 |..... LINKS,RECH|
00000110: 54 53 2C 44 45 4C 2C 49 4E 53 54 2C 41 4E 46 5A |TS,DEL,INST,ANFZ|
00000120: 20 C1 C4 D2 D6 C1 D2 20 50 4F 4B 45 2C 50 45 45 | ...... POKE,PEE|
00000130: 4B 2C 56 45 52 53 43 48 2C 46 54 41 53 54 45 4E |K,VERSCH,FTASTEN|
00000140: 1C C1 C4 D2 D6 C1 D2 20 46 4F 55 4E 44 2C 57 41 |....... FOUND,WA|
00000150: 49 54 2C 4C 45 45 52 5A 45 49 4C 45 15 C9 CE D4 |IT,LEERZEILE....|
00000160: D6 C1 D2 20 5A 2C 5A 4D 2C 5A 31 2C 5A 32 2C 5A |... Z,ZM,Z1,Z2,Z|
00000170: 33 19 C9 CE D4 D6 C1 D2 20 41 30 2C 41 31 2C 45 |3....... A0,A1,E|
00000180: 31 2C 41 32 2C 45 32 2C 4C 30 18 C9 CE D4 D6 C1 |1,A2,E2,L0......|
00000190: D2 20 42 4C 42 45 2C 42 4C 45 4E 2C 56 45 52 41 |. BLBE,BLEN,VERA|
000001A0: 44 52 23 C1 C4 D2 D6 C1 D2 20 46 49 31 2C 46 49 |DR#...... FI1,FI|
000001B0: 32 2C 46 49 33 2C 46 49 34 2C 46 49 35 2C 46 49 |2,FI3,FI4,FI5,FI|
000001C0: 36 2C 46 49 37 23 C1 C4 D2 D6 C1 D2 20 46 49 38 |6,FI7#...... FI8|
000001D0: 2C 46 49 39 2C 46 49 31 30 2C 46 49 31 31 2C 46 |,FI9,FI10,FI11,F|
000001E0: 49 31 32 2C 46 49 31 33 1E C1 C4 D2 D6 C1 D2 20 |I12,FI13....... |
000001F0: 46 49 31 34 2C 46 49 31 35 2C 46 49 31 36 2C 46 |FI14,FI15,FI16,F|
00000200: 49 31 37 2C 53 31 1F C1 C4 D2 D6 C1 D2 20 46 31 |I17,S1....... F1|
00000210: 2C 46 33 2C 46 35 2C 46 37 2C 46 32 2C 46 34 2C |,F3,F5,F7,F2,F4,|
00000220: 46 36 2C 46 38 13 C2 D9 D4 C5 D6 C1 D2 20 43 2C |F6,F8........ C,|
00000230: 48 43 2C 42 31 2C 54 42 23 C9 CE D4 D6 C1 D2 20 |HC,B1,TB#...... |
00000240: C1 D4 20 30 31 38 32 20 49 31 38 32 2C 49 31 38 |.. 0182 I182,I18|
00000250: 34 2C 49 31 38 36 2C 49 31 38 38 29 C2 D9 D4 C5 |4,I186,I188)....|
00000260: D6 C1 D2 20 C1 D4 20 30 31 38 32 20 42 31 38 32 |... .. 0182 B182|
00000270: 2C 42 31 38 33 2C 42 31 38 34 2C 42 31 38 35 2C |,B183,B184,B185,|
00000280: 42 31 38 36 18 C2 D9 D4 C5 D6 C1 D2 20 C1 D4 20 |B186........ .. |
00000290: 35 30 30 30 30 20 42 35 30 30 30 30 17 C9 CE D4 |50000 B50000....|
000002A0: D6 C1 D2 20 C1 D4 20 34 39 36 36 32 20 49 34 39 |... .. 49662 I49|
000002B0: 36 36 32 01 0D 54 45 41 4E 46 5F 49 34 39 36 36 |662..TEANF_I4966|
000002C0: 32 04 4E 45 57 08 44 52 49 56 45 5F 38 09 C3 CC |2.NEW.DRIVE_8...|
000002D0: D2 20 4E 41 4D 45 05 42 5A 5F 30 08 5A 4E 5F 30 |. NAME.BZ_0.ZN_0|
000002E0: 30 30 30 05 42 53 5F 30 05 53 4E 5F 30 0A C7 CF |000.BS_0.SN_0...|
000002F0: D4 CF 20 48 49 44 45 08 42 45 47 49 4E 4E 3A 13 |.. HIDE.BEGINN:.|
00000300: 28 C9 CE D4 C1 D4 30 33 33 34 29 5F 42 45 47 49 |(.....0334)_BEGI|
00000310: 4E 4E 0C D0 CF CB C5 30 33 33 33 2C 33 32 0D 56 |NN.....0333,32.V|
00000320: 45 52 41 44 52 5F 34 39 31 35 32 0F D0 CF CB C5 |ERADR_49152.....|
00000330: 20 35 33 32 37 30 2C 31 39 39 0E D0 CF CB C5 20 | 53270,199..... |
00000340: 35 33 32 36 35 2C 32 33 0D D0 CF CB C5 20 35 33 |53265,23..... 53|
00000350: 32 38 31 2C 30 0E D0 CF CB C5 20 35 33 32 38 30 |281,0..... 53280|
00000360: 2C 31 31 0A 5A 5F 28 5A 4E 2D 42 5A 29 0A 5A 31 |,11.Z_(ZN-BZ).Z1|
00000370: 5F 28 5A 2B 32 31 29 09 3F 22 0E 08 9E 93 11 22 |_(Z+21).?"....."|
00000380: 07 D2 C5 D0 C5 C1 D4 07 20 43 48 45 43 4B 08 20 |........ CHECK. |
00000390: 49 31 38 32 5F 5A 08 20 42 31 38 36 5F 31 0B 20 |I182_Z. B186_1. |
000003A0: D3 D9 D3 20 34 39 33 30 31 07 20 C9 CE C3 20 5A |... 49301. ... Z|
000003B0: 0D D5 CE D4 C9 CC 20 28 5A 3E 5A 31 29 07 5A 45 |...... (Z>Z1).ZE|
000003C0: 49 4C 45 3A 37 3F 22 13 97 12 20 20 20 C4 C9 D3 |ILE:7?"... ...|
000003D0: CB 20 20 20 A5 20 C2 CC CF C3 CB 20 20 A5 20 C3 |. . ..... . .|
000003E0: CF CD D0 20 20 20 A5 20 20 20 20 20 20 20 20 20 |... . |
000003F0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 0F 3F 28 D3 D4 |.........";.?(..|
00000400: D2 28 D2 C5 C1 CC 5A 4E 29 29 2B 3F 22 12 20 20 |.(....ZN))+?". |
00000410: 20 CC CC C9 D3 D4 20 20 B4 20 C9 CE C6 CF 20 20 | ..... . .... |
00000420: 20 B4 20 D2 D5 CE 20 20 20 20 B4 20 D1 D5 C9 D4 | . ... . ....|
00000430: 20 20 20 20 22 05 5A 5F 5A 4E 06 43 48 45 43 4B | ".Z_ZN.CHECK|
00000440: 05 54 42 5F 30 05 42 53 5F 30 05 53 4E 5F 31 08 |.TB_0.BS_0.SN_1.|
00000450: 49 31 38 32 5F 5A 4E 0A D3 D9 D3 20 34 39 33 34 |I182_ZN.... 4934|
00000460: 39 0C D0 CF CB C5 30 32 31 34 2C 42 5A 06 CF D5 |9.....0214,BZ...|
00000470: D4 31 37 06 CF D5 D4 31 33 06 53 43 48 4C 3A 1C |.17....13.SCHL:.|
00000480: 5A 4D 5F 28 28 C9 CE D4 C1 D4 30 32 30 39 29 2B |ZM_((.....0209)+|
00000490: 28 D0 C5 C5 CB 30 32 31 31 29 29 07 52 45 56 45 |(....0211)).REVE|
000004A0: 52 53 07 D2 C5 D0 C5 C1 D4 15 D5 CE D4 C9 CC 20 |RS............. |
000004B0: 28 28 D0 C5 C5 CB 30 31 39 38 29 3E 30 29 05 C7 |((....0198)>0)..|
000004C0: C5 D4 43 0D 48 43 5F 28 43 C1 CE C4 31 32 37 29 |..C.HC_(C...127)|
000004D0: 0B D0 CF CB C5 30 32 31 32 2C 30 07 52 45 56 45 |.....0212,0.REVE|
000004E0: 52 53 29 C9 C6 28 54 42 C1 CE C4 28 28 43 3C 3E |RS)..(TB...((C<>|
000004F0: 32 30 29 C1 CE C4 28 48 43 3C 3E 31 33 29 29 29 |20)...(HC<>13)))|
00000500: C7 CF D4 CF 5A 45 49 43 48 45 4E 23 C9 C6 28 28 |....ZEICHEN#..((|
00000510: 48 43 3E 3D 33 32 29 C1 CE C4 28 48 43 3C 3D 39 |HC>=32)...(HC<=9|
00000520: 35 29 29 C7 CF D4 CF 5A 45 49 43 48 45 4E 3F C9 |5))....ZEICHEN?.|
00000530: C6 28 28 28 28 48 43 3D 31 37 29 CF D2 28 48 43 |.((((HC=17)..(HC|
00000540: 3D 31 39 29 29 CF D2 28 48 43 3D 31 33 29 29 CF |=19))..(HC=13)).|
00000550: D2 28 28 43 3E 31 33 32 29 C1 CE C4 28 43 3C 31 |.((C>132)...(C<1|
00000560: 34 31 29 29 29 C7 CF D4 CF 45 4E 44 45 21 C9 C6 |41)))....ENDE!..|
00000570: 28 28 43 3D 32 39 29 C1 CE C4 28 53 4E 3C 32 35 |((C=29)...(SN<25|
00000580: 34 29 29 C7 CF D3 D5 C2 52 45 43 48 54 53 1F C9 |4)).....RECHTS..|
00000590: C6 28 28 43 3D 31 35 37 29 C1 CE C4 28 53 4E 3E |.((C=157)...(SN>|
000005A0: 31 29 29 C7 CF D3 D5 C2 4C 49 4E 4B 53 1C C9 C6 |1)).....LINKS...|
000005B0: 28 28 43 3D 32 30 29 C1 CE C4 28 53 4E 3E 31 29 |((C=20)...(SN>1)|
000005C0: 29 C7 CF D3 D5 C2 44 45 4C 20 C9 C6 28 28 43 3D |).....DEL ..((C=|
000005D0: 31 34 38 29 C1 CE C4 28 53 4E 3C 32 35 34 29 29 |148)...(SN<254))|
000005E0: C7 CF D3 D5 C2 49 4E 53 54 0A C7 CF D4 CF 20 53 |.....INST..... S|
000005F0: 43 48 4C 01 06 57 41 49 54 3A 0D 20 D0 CF CB C5 |CHL..WAIT:. ....|
00000600: 20 30 31 39 38 2C 30 0D 20 D7 C1 C9 D4 20 30 31 | 0198,0. .... 01|
00000610: 39 38 2C 31 07 20 C7 C5 D4 20 43 07 D2 C5 D4 D5 |98,1. ... C.....|
00000620: D2 CE 01 09 5A 45 49 43 48 45 4E 3A 17 20 C9 C6 |....ZEICHEN:. ..|
00000630: 20 28 53 4E 3E 32 35 34 29 20 C7 CF D4 CF 20 53 | (SN>254) .... S|
00000640: 43 48 4C 15 20 C9 C6 20 28 43 3D 33 34 29 20 C7 |CHL. .. (C=34) .|
00000650: CF D4 CF 20 41 4E 46 5A 12 20 D0 CF CB C5 28 35 |... ANFZ. ....(5|
00000660: 30 30 30 30 2B 53 4E 29 2C 43 15 20 C9 C6 20 28 |0000+SN),C. .. (|
00000670: 42 53 3E 33 36 29 20 C7 CF D4 CF 20 46 49 31 0D |BS>36) .... FI1.|
00000680: 20 20 D0 CF CB C5 30 32 31 32 2C 31 07 20 20 CF | ....0212,1. .|
00000690: D5 D4 43 09 20 20 C9 CE C3 20 42 53 09 20 20 C9 |..C. ... BS. .|
000006A0: CE C3 20 53 4E 0C 20 20 C7 CF D4 CF 20 53 43 48 |.. SN. .... SCH|
000006B0: 4C 06 20 46 49 31 3A 08 20 C9 CE C3 20 53 4E 10 |L. FI1:. ... SN.|
000006C0: 20 C7 CF D3 D5 C2 20 5A 45 49 4C 45 41 55 53 0A | ..... ZEILEAUS.|
000006D0: C7 CF D4 CF 20 53 43 48 4C 01 0A 5A 45 49 4C 45 |.... SCHL..ZEILE|
000006E0: 41 55 53 3A 0E 20 D0 CF CB C5 20 30 32 31 34 2C |AUS:. .... 0214,|
000006F0: 42 5A 08 20 CF D5 D4 20 31 37 08 20 CF D5 D4 20 |BZ. ... 17. ... |
00000700: 31 33 09 20 42 31 38 34 5F 38 30 0A 20 42 31 38 |13. B184_80. B18|
00000710: 35 5F 31 39 35 0E 20 42 31 38 36 5F 28 53 4E 2D |5_195. B186_(SN-|
00000720: 42 53 29 0B 20 D3 D9 D3 20 34 39 33 31 32 08 20 |BS). ... 49312. |
00000730: CF D5 D4 31 34 35 08 20 CF D5 D4 31 35 37 06 20 |...145. ...157. |
00000740: 42 31 5F 30 08 20 D2 C5 D0 C5 C1 D4 08 20 20 CF |B1_0. ....... .|
00000750: D5 D4 32 39 09 20 20 C9 CE C3 20 42 31 0F 20 D5 |..29. ... B1. .|
00000760: CE D4 C9 CC 20 28 42 31 3E 42 53 29 07 D2 C5 D4 |.... (B1>BS)....|
00000770: D5 D2 CE 01 06 45 4E 44 45 3A 06 20 53 4E 5F 31 |.....ENDE:. SN_1|
00000780: 06 20 42 53 5F 30 10 20 C7 CF D3 D5 C2 20 5A 45 |. BS_0. ..... ZE|
00000790: 49 4C 45 41 55 53 08 20 52 45 56 45 52 53 0B 20 |ILEAUS. REVERS. |
000007A0: D3 D9 D3 20 34 39 33 39 32 05 20 53 31 3A 09 20 |... 49392. S1:. |
000007B0: 49 31 38 32 5F 5A 4E 0A 20 D3 D9 D3 34 39 32 35 |I182_ZN. ...4925|
000007C0: 32 11 20 C9 C6 20 28 49 31 38 34 3E 54 45 45 4E |2. .. (I184>TEEN|
000007D0: 44 29 0C 20 20 49 31 38 32 5F 34 30 39 36 0B 20 |D). I182_4096. |
000007E0: 20 D3 D9 D3 34 39 32 35 32 11 20 20 54 45 45 4E | ...49252. TEEN|
000007F0: 44 5F 28 49 31 38 34 2B 32 29 0A 20 20 C7 CF D4 |D_(I184+2). ...|
00000800: CF 20 53 31 07 20 C5 CE C4 C9 C6 13 20 C9 C6 20 |. S1. ...... .. |
00000810: 28 43 3C 3E 31 39 29 C7 CF D4 CF 46 49 32 0B 20 |(C<>19)....FI2. |
00000820: 20 42 35 30 30 30 30 5F 31 06 20 46 49 32 3A 09 | B50000_1. FI2:.|
00000830: 20 41 30 5F 49 31 38 34 0B 20 C7 CF D3 D5 C2 50 | A0_I184. .....P|
00000840: 45 45 4B 0C 20 41 31 5F 28 41 30 2B 45 31 29 0F |EEK. A1_(A0+E1).|
00000850: 20 4C 30 5F 28 54 45 45 4E 44 2D 41 31 29 10 20 | L0_(TEEND-A1). |
00000860: 41 32 5F 28 41 30 2B 42 35 30 30 30 30 29 1B 20 |A2_(A0+B50000). |
00000870: 54 45 45 4E 44 5F 28 28 54 45 45 4E 44 2D 45 31 |TEEND_((TEEND-E1|
00000880: 29 2B 42 35 30 30 30 30 29 0E 20 C7 CF D3 D5 C2 |)+B50000). .....|
00000890: 20 56 45 52 53 43 48 0A 20 41 31 5F 35 30 30 30 | VERSCH. A1_5000|
000008A0: 30 07 20 41 32 5F 41 30 16 20 4C 30 5F 28 C9 CE |0. A2_A0. L0_(..|
000008B0: D4 28 42 35 30 30 30 30 2D 31 29 2C 30 29 0E 20 |.(B50000-1),0). |
000008C0: C7 CF D3 D5 C2 20 56 45 52 53 43 48 17 20 C9 C6 |..... VERSCH. ..|
000008D0: 20 28 4C 30 3E 30 30 30 30 29 20 C7 CF D4 CF 20 | (L0>0000) .... |
000008E0: 46 49 33 08 20 20 41 31 5F 41 30 13 20 20 41 32 |FI3. A1_A0. A2|
000008F0: 5F 28 C9 CE D4 42 35 30 30 30 30 2C 30 29 0D 20 |_(...B50000,0). |
00000900: 20 C7 CF D3 D5 C2 20 50 4F 4B 45 06 20 46 49 33 | ..... POKE. FI3|
00000910: 3A 08 20 52 45 56 45 52 53 27 20 C9 C6 20 28 28 |:. REVERS' .. ((|
00000920: 43 3E 3D 31 33 33 29 C1 CE C4 28 43 3C 3D 31 34 |C>=133)...(C<=14|
00000930: 30 29 29 20 C7 CF D4 CF 20 46 54 41 53 54 45 4E |0)) .... FTASTEN|
00000940: 15 20 C9 C6 20 28 43 3C 3E 31 39 29 20 C7 CF D4 |. .. (C<>19) ...|
00000950: CF 20 46 49 34 26 20 20 C9 C6 20 28 28 54 45 45 |. FI4& .. ((TEE|
00000960: 4E 44 2D 54 45 41 4E 46 29 3C 30 30 30 33 29 20 |ND-TEANF)<0003) |
00000970: C7 CF D4 CF 20 42 45 47 49 4E 4E 0C 20 20 41 31 |.... BEGINN. A1|
00000980: 5F 28 41 30 2B 31 29 08 20 20 41 32 5F 41 30 10 |_(A0+1). A2_A0.|
00000990: 20 20 4C 30 5F 28 54 45 45 4E 44 2D 41 30 29 0C | L0_(TEEND-A0).|
000009A0: 20 20 C4 C5 C3 20 54 45 45 4E 44 0F 20 20 C7 CF | ... TEEND. ..|
000009B0: D3 D5 C2 20 56 45 52 53 43 48 0E 20 20 C7 CF D4 |... VERSCH. ...|
000009C0: CF 20 42 45 47 49 4E 4E 06 20 46 49 34 3A 16 20 |. BEGINN. FI4:. |
000009D0: C9 C6 20 28 43 3C 3E 31 34 37 29 20 C7 CF D4 CF |.. (C<>147) ....|
000009E0: 20 46 49 35 08 20 20 41 31 5F 41 30 0C 20 20 41 | FI5. A1_A0. A|
000009F0: 32 5F 28 41 30 2B 31 29 10 20 20 4C 30 5F 28 54 |2_(A0+1). L0_(T|
00000A00: 45 45 4E 44 2D 41 30 29 0C 20 20 C9 CE C3 20 54 |EEND-A0). ... T|
00000A10: 45 45 4E 44 0F 20 20 C7 CF D3 D5 C2 20 56 45 52 |EEND. ..... VER|
00000A20: 53 43 48 0A 20 20 41 32 5F 30 30 30 31 0D 20 20 |SCH. A2_0001. |
00000A30: C7 CF D3 D5 C2 20 50 4F 4B 45 0E 20 20 C7 CF D4 |..... POKE. ...|
00000A40: CF 20 42 45 47 49 4E 4E 06 20 46 49 35 3A 21 20 |. BEGINN. FI5:! |
00000A50: C9 C6 20 28 28 43 3C 3E 31 33 29 C1 CE C4 28 43 |.. ((C<>13)...(C|
00000A60: 3C 3E 31 37 29 29 20 C7 CF D4 CF 20 46 49 36 09 |<>17)) .... FI6.|
00000A70: 20 20 C9 CE C3 20 5A 4E 09 20 20 C9 CE C3 20 42 | ... ZN. ... B|
00000A80: 5A 19 20 20 C9 C6 20 28 42 5A 3C 3D 32 31 29 20 |Z. .. (BZ<=21) |
00000A90: C7 CF D4 CF 20 5A 45 49 4C 45 08 20 20 42 5A 5F |.... ZEILE. BZ_|
00000AA0: 32 31 0A 20 20 41 31 5F 31 31 34 34 0A 20 20 41 |21. A1_1144. A|
00000AB0: 32 5F 31 31 30 34 08 20 20 46 49 31 32 3A 09 20 |2_1104. FI12:. |
00000AC0: 20 4C 30 5F 38 33 39 0F 20 20 C7 CF D3 D5 C2 20 | L0_839. ..... |
00000AD0: 56 45 52 53 43 48 10 20 20 41 31 5F 28 41 31 2B |VERSCH. A1_(A1+|
00000AE0: 35 34 32 37 32 29 10 20 20 41 32 5F 28 41 32 2B |54272). A2_(A2+|
00000AF0: 35 34 32 37 32 29 0F 20 20 56 45 52 41 44 52 5F |54272). VERADR_|
00000B00: 34 39 31 35 35 0F 20 20 C7 CF D3 D5 C2 20 56 45 |49155. ..... VE|
00000B10: 52 53 43 48 0F 20 20 56 45 52 41 44 52 5F 34 39 |RSCH. VERADR_49|
00000B20: 31 35 32 0A 20 20 49 31 38 32 5F 5A 4E 09 20 20 |152. I182_ZN. |
00000B30: 42 31 38 36 5F 31 0C 20 20 4C 45 45 52 5A 45 49 |B186_1. LEERZEI|
00000B40: 4C 45 0B 20 20 D3 D9 D3 34 39 33 30 31 0D 20 20 |LE. ...49301. |
00000B50: C7 CF D4 CF 20 5A 45 49 4C 45 06 20 46 49 36 3A |.... ZEILE. FI6:|
00000B60: 23 20 C9 C6 20 28 28 43 3C 3E 31 34 35 29 CF D2 |# .. ((C<>145)..|
00000B70: 28 5A 4E 3D 30 30 30 30 29 29 20 C7 CF D4 CF 20 |(ZN=0000)) .... |
00000B80: 46 49 37 09 20 20 C4 C5 C3 20 5A 4E 09 20 20 C4 |FI7. ... ZN. .|
00000B90: C5 C3 20 42 5A 19 20 20 C9 C6 20 28 42 5A 3C 31 |.. BZ. .. (BZ<1|
00000BA0: 32 38 29 20 C7 CF D4 CF 20 5A 45 49 4C 45 07 20 |28) .... ZEILE. |
00000BB0: 20 42 5A 5F 30 0A 20 20 41 31 5F 31 31 30 34 0A | BZ_0. A1_1104.|
00000BC0: 20 20 41 32 5F 31 31 34 34 0B 20 20 C7 CF D4 CF | A2_1144. ....|
00000BD0: 46 49 31 32 06 20 46 49 37 3A 0B C7 CF D4 CF 20 |FI12. FI7:..... |
00000BE0: 5A 45 49 4C 45 01 08 56 45 52 53 43 48 3A 24 20 |ZEILE..VERSCH:$ |
00000BF0: C9 C6 20 28 28 4C 30 3D 30 30 30 30 29 20 CF D2 |.. ((L0=0000) ..|
00000C00: 20 28 41 31 3D 41 32 29 29 20 C7 CF D4 CF 20 46 | (A1=A2)) .... F|
00000C10: 49 38 0A 20 20 49 31 38 32 5F 41 31 0D 20 20 45 |I8. I182_A1. E|
00000C20: 31 5F 28 41 31 2B 4C 30 29 0A 20 20 49 31 38 34 |1_(A1+L0). I184|
00000C30: 5F 45 31 0A 20 20 49 31 38 36 5F 41 32 0D 20 20 |_E1. I186_A2. |
00000C40: 45 32 5F 28 41 32 2B 4C 30 29 0A 20 20 49 31 38 |E2_(A2+L0). I18|
00000C50: 38 5F 45 32 0C 20 20 D3 D9 D3 56 45 52 41 44 52 |8_E2. ...VERADR|
00000C60: 06 20 46 49 38 3A 07 D2 C5 D4 D5 D2 CE 01 06 50 |. FI8:.........P|
00000C70: 4F 4B 45 3A 0E 20 42 31 38 32 5F 28 CC CF D7 41 |OKE:. B182_(...A|
00000C80: 32 29 09 20 49 31 38 34 5F 41 31 0B 20 D3 D9 D3 |2). I184_A1. ...|
00000C90: 20 34 39 36 36 34 07 D2 C5 D4 D5 D2 CE 01 06 50 | 49664.........P|
00000CA0: 45 45 4B 3A 09 20 49 31 38 34 5F 41 30 0A 20 D3 |EEK:. I184_A0. .|
00000CB0: D9 D3 34 39 36 38 30 10 20 45 31 5F 28 C9 CE D4 |..49680. E1_(...|
00000CC0: 42 31 38 32 2C 30 29 07 D2 C5 D4 D5 D2 CE 01 09 |B182,0).........|
00000CD0: 46 54 41 53 54 45 4E 3A 24 C7 CF D4 CF 20 28 C9 |FTASTEN:$.... (.|
00000CE0: CE D4 C1 D4 28 28 C1 C4 D2 46 31 29 2B 28 28 43 |....((...F1)+((C|
00000CF0: 2D 31 33 33 29 D3 C8 CC 31 29 29 29 01 07 4C 49 |-133)...1)))..LI|
00000D00: 4E 4B 53 3A 08 20 C4 C5 C3 20 53 4E 08 20 C4 C5 |NKS:. ... SN. ..|
00000D10: C3 20 42 53 16 20 C9 C6 20 28 42 53 3E 3D 33 38 |. BS. .. (BS>=38|
00000D20: 29 20 C7 CF D4 CF 20 46 49 39 07 20 20 CF D5 D4 |) .... FI9. ...|
00000D30: 43 09 20 20 D2 C5 D4 D5 D2 CE 06 20 46 49 39 3A |C. ....... FI9:|
00000D40: 06 20 42 53 5F 30 0E C7 CF D4 CF 20 5A 45 49 4C |. BS_0..... ZEIL|
00000D50: 45 41 55 53 01 08 52 45 43 48 54 53 3A 08 20 C9 |EAUS..RECHTS:. .|
00000D60: CE C3 20 53 4E 08 20 C9 CE C3 20 42 53 17 20 C9 |.. SN. ... BS. .|
00000D70: C6 20 28 42 53 3E 3D 33 38 29 20 C7 CF D4 CF 20 |. (BS>=38) .... |
00000D80: 46 49 31 30 07 20 20 CF D5 D4 43 09 20 20 D2 C5 |FI10. ...C. ..|
00000D90: D4 D5 D2 CE 07 20 46 49 31 30 3A 07 20 42 53 5F |..... FI10:. BS_|
00000DA0: 33 37 0E C7 CF D4 CF 20 5A 45 49 4C 45 41 55 53 |37..... ZEILEAUS|
00000DB0: 01 06 49 4E 53 54 3A 0F 20 41 31 5F 28 35 30 30 |..INST:. A1_(500|
00000DC0: 30 30 2B 53 4E 29 0E 20 4C 30 5F 28 30 32 35 35 |00+SN). L0_(0255|
00000DD0: 2D 53 4E 29 0B 20 41 32 5F 28 41 31 2B 31 29 0E |-SN). A2_(A1+1).|
00000DE0: 20 C7 CF D3 D5 C2 20 56 45 52 53 43 48 0C 20 D0 | ..... VERSCH. .|
00000DF0: CF CB C5 20 41 31 2C 33 32 0E C7 CF D4 CF 20 5A |... A1,32..... Z|
00000E00: 45 49 4C 45 41 55 53 01 05 44 45 4C 3A 18 20 C9 |EILEAUS..DEL:. .|
00000E10: C6 20 28 53 4E 3E 3D 32 35 34 29 20 C7 CF D4 CF |. (SN>=254) ....|
00000E20: 20 46 49 31 31 10 20 20 41 32 5F 28 34 39 39 39 | FI11. A2_(4999|
00000E30: 39 2B 53 4E 29 0F 20 20 4C 30 5F 28 30 32 35 35 |9+SN). L0_(0255|
00000E40: 2D 53 4E 29 0C 20 20 41 31 5F 28 41 32 2B 31 29 |-SN). A1_(A2+1)|
00000E50: 0F 20 20 C7 CF D3 D5 C2 20 56 45 52 53 43 48 07 |. ..... VERSCH.|
00000E60: 20 46 49 31 31 3A 0F 20 D0 CF CB C5 20 35 30 32 | FI11:. .... 502|
00000E70: 35 35 2C 33 32 08 20 C4 C5 C3 20 53 4E 08 20 C4 |55,32. ... SN. .|
00000E80: C5 C3 20 42 53 1A 20 C9 C6 28 42 53 3C 31 32 38 |.. BS. ..(BS<128|
00000E90: 29 C7 CF D4 CF 20 5A 45 49 4C 45 20 41 55 53 06 |).... ZEILE AUS.|
00000EA0: 20 42 53 5F 30 0D C7 CF D4 CF 5A 45 49 4C 45 41 | BS_0.....ZEILEA|
00000EB0: 55 53 01 06 41 4E 46 5A 3A 0C 20 54 42 5F 28 CE |US..ANFZ:. TB_(.|
00000EC0: CF D4 54 42 29 12 20 D0 CF CB C5 28 35 30 30 30 |..TB). ....(5000|
00000ED0: 30 2B 53 4E 29 2C 43 0B 20 D0 CF CB C5 5A 4D 2C |0+SN),C. ....ZM,|
00000EE0: 33 34 0E 20 C7 CF D3 D5 C2 20 52 45 43 48 54 53 |34. ..... RECHTS|
00000EF0: 0A C7 CF D4 CF 20 53 43 48 4C 01 04 46 37 3A 09 |..... SCHL..F7:.|
00000F00: 20 CF D5 D4 20 31 35 33 08 20 CF D5 D4 20 31 39 | ... 153. ... 19|
00000F10: 08 20 CF D5 D4 20 31 33 0B 20 4C 45 45 52 5A 45 |. ... 13. LEERZE|
00000F20: 49 4C 45 0C 20 3F 22 DA 45 49 4C 45 3A 22 3B 10 |ILE. ?".EILE:";.|
00000F30: 20 3F 28 D3 D4 D2 28 D2 C5 C1 CC 5A 4E 29 29 13 | ?(...(....ZN)).|
00000F40: 20 C9 CE D0 D5 D4 22 91 1D 1D 1D 1D 1D 1D 1D 22 | ....."........"|
00000F50: 3B 41 09 20 CF D5 D4 20 31 35 38 11 20 5A 4E 5F |;A. ... 158. ZN_|
00000F60: 28 C9 CE D4 28 D2 C5 C1 CC 41 29 29 07 20 42 5A |(...(....A)). BZ|
00000F70: 5F 31 30 1E 20 C9 C6 28 5A 4E 3E 3D 28 C9 CE D4 |_10. ..(ZN>=(...|
00000F80: 20 42 5A 2C 30 29 29 C7 CF D4 CF 42 45 47 49 4E | BZ,0))....BEGIN|
00000F90: 4E 0C 20 42 5A 5F 28 CC CF D7 5A 4E 29 0C C7 CF |N. BZ_(...ZN)...|
00000FA0: D4 CF 20 42 45 47 49 4E 4E 01 04 46 38 3A 08 20 |.. BEGINN..F8:. |
00000FB0: 42 31 38 32 5F 30 08 D3 D9 D3 30 31 38 32 01 08 |B182_0....0182..|
00000FC0: 52 45 56 45 52 53 3A 1B 20 D0 CF CB C5 20 5A 4D |REVERS:. .... ZM|
00000FD0: 2C 28 28 D0 C5 C5 CB 5A 4D 29 C5 D8 CF D2 31 32 |,((....ZM)....12|
00000FE0: 38 29 07 D2 C5 D4 D5 D2 CE 01 04 46 31 3A 2F 20 |8).........F1:/ |
00000FF0: 3F 22 13 11 99 CC CF C1 C4 2C 20 D4 C5 D8 D4 D3 |?"......., .....|
00001000: C1 D6 C5 2C 20 D3 C1 D6 C5 2C 20 C4 C9 D2 20 20 |..., ...., ... |
00001010: 20 20 20 20 20 20 20 20 20 20 20 9E 22 06 20 57 | .". W|
00001020: 41 49 54 12 20 C9 C6 28 43 3D 37 36 29 C7 CF D4 |AIT. ..(C=76)...|
00001030: CF 4C 4F 41 44 14 20 C9 C6 28 43 3D 38 34 29 C7 |.LOAD. ..(C=84).|
00001040: CF D3 D5 C2 54 45 58 54 53 13 20 C9 C6 28 43 3D |....TEXTS. ..(C=|
00001050: 38 33 29 C7 CF D3 D5 C2 53 41 56 45 12 20 C9 C6 |83).....SAVE. ..|
00001060: 28 43 3D 36 38 29 C7 CF D3 D5 C2 44 49 52 0B C7 |(C=68).....DIR..|
00001070: CF D4 CF 42 45 47 49 4E 4E 01 06 4C 45 45 52 3A |...BEGINN..LEER:|
00001080: 09 20 CF D5 D4 20 31 34 35 0B 20 4C 45 45 52 5A |. ... 145. LEERZ|
00001090: 45 49 4C 45 0C 20 3F 22 99 20 20 20 20 20 22 3B |EILE. ?". ";|
000010A0: 07 20 3F 4E 41 4D 45 14 20 C9 CE D0 D5 D4 22 91 |. ?NAME. .....".|
000010B0: CE 41 4D 45 3A 22 3B 4E 41 4D 45 09 20 CF D5 D4 |.AME:";NAME. ...|
000010C0: 20 31 35 38 07 D2 C5 D4 D5 D2 CE 01 06 4C 4F 41 | 158.........LOA|
000010D0: 44 3A 06 20 4C 45 45 52 06 20 42 5A 5F 30 09 20 |D:. LEER. BZ_0. |
000010E0: 5A 4E 5F 30 30 30 30 14 20 CF D0 C5 CE 31 2C 44 |ZN_0000. ....1,D|
000010F0: 52 49 56 45 2C 30 2C 4E 41 4D 45 0C 20 49 31 38 |RIVE,0,NAME. I18|
00001100: 32 5F 54 45 41 4E 46 0A 20 D3 D9 D3 34 39 35 33 |2_TEANF. ...4953|
00001110: 36 10 20 54 45 45 4E 44 5F 28 49 31 38 32 2D 31 |6. TEEND_(I182-1|
00001120: 29 08 20 C3 CC CF D3 C5 31 19 20 C9 C6 28 54 45 |). .....1. ..(TE|
00001130: 41 4E 46 3D 54 45 45 4E 44 29 C7 CF D3 D5 C2 4E |ANF=TEEND).....N|
00001140: 45 57 0A C7 CF D4 CF 20 48 49 44 45 01 05 44 49 |EW..... HIDE..DI|
00001150: 52 3A 09 20 CF D5 D4 20 31 34 37 0B 20 D3 D9 D3 |R:. ... 147. ...|
00001160: 20 34 39 34 32 34 06 20 57 41 49 54 07 D2 C5 D4 | 49424. WAIT....|
00001170: D5 D2 CE 01 05 4E 45 57 3A 06 20 42 5A 5F 30 09 |.....NEW:. BZ_0.|
00001180: 20 5A 4E 5F 30 30 30 30 0A 20 41 31 5F 54 45 41 | ZN_0000. A1_TEA|
00001190: 4E 46 0A 20 41 32 5F 30 30 30 30 30 0C 20 C7 CF |NF. A2_00000. ..|
000011A0: D3 D5 C2 20 50 4F 4B 45 11 20 54 45 45 4E 44 5F |... POKE. TEEND_|
000011B0: 28 54 45 41 4E 46 2B 32 29 0B 20 42 4C 42 45 5F |(TEANF+2). BLBE_|
000011C0: 30 30 30 30 0B 20 42 4C 45 4E 5F 42 4C 42 45 07 |0000. BLEN_BLBE.|
000011D0: D2 C5 D4 D5 D2 CE 01 07 54 45 58 54 53 3A 06 20 |........TEXTS:. |
000011E0: 4C 45 45 52 1B 20 CF D0 C5 CE 31 2C 44 52 49 56 |LEER. ....1,DRIV|
000011F0: 45 2C 31 2C 28 22 40 3A 22 2B 4E 41 4D 45 29 0C |E,1,("@:"+NAME).|
00001200: 20 49 31 38 32 5F 54 45 41 4E 46 17 20 28 C9 CE | I182_TEANF. (..|
00001210: D4 C1 D4 30 31 38 37 29 5F 28 54 45 45 4E 44 2B |...0187)_(TEEND+|
00001220: 31 29 0A 20 D3 D9 D3 34 39 35 37 36 08 20 C3 CC |1). ...49576. ..|
00001230: CF D3 C5 31 07 D2 C5 D4 D5 D2 CE 01 06 53 41 56 |...1.........SAV|
00001240: 45 3A 07 20 54 45 58 54 53 0B 20 D3 D9 D3 20 35 |E:. TEXTS. ... 5|
00001250: 31 30 30 30 07 D2 C5 D4 D5 D2 CE 01 04 46 34 3A |1000.........F4:|
00001260: 2F 20 3F 22 93 97 12 20 20 20 20 20 45 C3 4F 4D |/ ?"... E.OM|
00001270: 20 D6 32 2E 34 20 56 4F 4E 20 CA 4F 48 41 4E 4E | .2.4 VON .OHANN|
00001280: 45 53 20 D4 49 4D 4D 45 52 20 20 20 20 9E 22 15 |ES .IMMER .".|
00001290: 20 3F 22 11 11 11 31 2E 20 D4 45 58 54 20 20 20 | ?"...1. .EXT |
000012A0: 3A 20 24 22 14 20 3F 22 11 11 32 2E 20 D0 52 4F |: $". ?"..2. .RO|
000012B0: 47 52 41 4D 3A 20 24 22 14 20 3F 22 11 11 33 2E |GRAM: $". ?"..3.|
000012C0: 20 C3 4F 4E 53 54 2E 20 3A 20 24 22 16 20 3F 22 | .ONST. : $". ?"|
000012D0: 11 11 34 2E 20 D6 41 52 49 41 42 2E 3A 20 24 13 |..4. .ARIAB.: $.|
000012E0: 11 22 06 20 42 31 5F 30 08 20 D2 C5 D0 C5 C1 D4 |.". B1_0. ......|
000012F0: 1A 20 20 5A 5F 28 28 C1 C4 D2 54 45 41 4E 46 29 |. Z_((...TEANF)|
00001300: 2B 28 42 31 D3 C8 CC 32 29 29 16 20 20 3F 22 11 |+(B1...2)). ?".|
00001310: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
00001320: 12 20 20 3F 28 D3 D4 D2 28 C9 CE D4 C1 D4 5A 29 |. ?(...(.....Z)|
00001330: 29 3B 0B 20 20 3F 22 20 2D 20 24 22 3B 15 20 20 |);. ?" - $";. |
00001340: 3F 28 D3 D4 D2 28 C9 CE D4 C1 D4 28 5A 2B 32 29 |?(...(.....(Z+2)|
00001350: 29 29 09 20 20 C9 CE C3 20 42 31 0E 20 D5 CE D4 |)). ... B1. ...|
00001360: C9 CC 20 28 42 31 3E 33 29 11 20 3F 22 11 11 35 |.. (B1>3). ?"..5|
00001370: 29 20 C4 52 49 56 45 3A 22 3B 0D 20 3F 28 D3 D4 |) .RIVE:";. ?(..|
00001380: D2 44 52 49 56 45 29 06 20 57 41 49 54 22 20 C9 |.DRIVE). WAIT" .|
00001390: C6 20 28 28 43 3C 34 39 29 CF D2 20 28 43 3E 35 |. ((C<49).. (C>5|
000013A0: 33 29 29 20 C7 CF D4 CF 20 42 45 47 49 4E 4E 15 |3)) .... BEGINN.|
000013B0: 20 C9 C6 20 28 43 3D 35 33 29 20 C7 CF D4 CF 20 | .. (C=53) .... |
000013C0: 46 49 31 33 11 20 20 C9 CE D0 D5 D4 20 22 11 11 |FI13. ..... "..|
000013D0: 11 24 22 3B 41 0B 20 20 5A 5F 28 C9 CE D4 41 29 |.$";A. Z_(...A)|
000013E0: 1F 20 20 5A 31 5F 28 28 C1 C4 D2 54 45 41 4E 46 |. Z1_((...TEANF|
000013F0: 29 2B 28 28 43 2D 34 39 29 D3 C8 CC 32 29 29 0E |)+((C-49)...2)).|
00001400: 20 20 28 C9 CE D4 C1 D4 5A 31 29 5F 5A 12 20 20 | (.....Z1)_Z. |
00001410: 28 C9 CE D4 C1 D4 28 5A 31 2B 32 29 29 5F 5A 15 |(.....(Z1+2))_Z.|
00001420: 20 20 C9 C6 20 28 43 3C 3E 34 39 29 20 C7 CF D4 | .. (C<>49) ...|
00001430: CF 20 46 34 0F 20 20 49 34 39 36 36 32 5F 54 45 |. F4. I49662_TE|
00001440: 41 4E 46 0C 20 20 C7 CF D3 D5 C2 20 4E 45 57 0A |ANF. ..... NEW.|
00001450: 20 20 C7 CF D4 CF 20 46 34 07 20 46 49 31 33 3A | .... F4. FI13:|
00001460: 0B 20 C9 CE C3 20 44 52 49 56 45 14 20 44 52 49 |. ... DRIVE. DRI|
00001470: 56 45 5F 28 44 52 49 56 45 C1 CE C4 31 35 29 08 |VE_(DRIVE...15).|
00001480: C7 CF D4 CF 20 46 34 01 04 46 35 3A 0B 20 D3 D9 |.... F4..F5:. ..|
00001490: D3 20 32 34 30 36 34 0C C7 CF D4 CF 20 42 45 47 |. 24064..... BEG|
000014A0: 49 4E 4E 01 04 46 36 3A 09 20 CF D5 D4 20 31 34 |INN..F6:. ... 14|
000014B0: 37 10 20 D0 CF CB C5 20 35 33 32 37 30 2C 32 30 |7. .... 53270,20|
000014C0: 30 0F 20 D0 CF CB C5 20 35 33 32 36 35 2C 32 37 |0. .... 53265,27|
000014D0: 0B 20 D3 D9 D3 20 50 52 41 4E 46 07 20 CF D5 D4 |. ... PRANF. ...|
000014E0: 31 33 08 20 3F 22 45 4F 50 22 06 20 57 41 49 54 |13. ?"EOP". WAIT|
000014F0: 0C C7 CF D4 CF 20 42 45 47 49 4E 4E 01 04 46 33 |..... BEGINN..F3|
00001500: 3A 2F 20 3F 22 13 11 99 C2 C5 C7 C9 CE 2C 20 C5 |:/ ?"........, .|
00001510: CE C4 2C 20 C3 CF D0 D9 2C 20 C4 C5 CC 2C 20 C8 |.., ...., ..., .|
00001520: C9 C4 C5 20 20 20 20 20 20 20 20 20 20 20 9E 22 |... ."|
00001530: 06 20 57 41 49 54 16 20 C9 C6 20 28 43 3D 36 36 |. WAIT. .. (C=66|
00001540: 29 20 C7 CF D4 CF 20 42 45 47 49 4E 14 20 C9 C6 |) .... BEGIN. ..|
00001550: 20 28 43 3D 36 39 29 20 C7 CF D4 CF 20 45 4E 44 | (C=69) .... END|
00001560: 15 20 C9 C6 20 28 43 3D 37 32 29 20 C7 CF D4 CF |. .. (C=72) ....|
00001570: 20 48 49 44 45 1B C9 C6 20 28 42 4C 42 45 3E 3D | HIDE... (BLBE>=|
00001580: 42 4C 45 4E 29 20 C7 CF D4 CF 20 5A 45 49 4C 45 |BLEN) .... ZEILE|
00001590: 15 20 C9 C6 20 28 43 3D 36 37 29 20 C7 CF D4 CF |. .. (C=67) ....|
000015A0: 20 43 4F 50 59 15 20 C9 C6 20 28 43 3D 36 38 29 | COPY. .. (C=68)|
000015B0: 20 C7 CF D4 CF 20 44 45 4C 32 0B C7 CF D4 CF 20 | .... DEL2..... |
000015C0: 5A 45 49 4C 45 01 07 42 45 47 49 4E 3A 09 20 42 |ZEILE..BEGIN:. B|
000015D0: 4C 42 45 5F 5A 4E 0C C7 CF D4 CF 20 42 45 47 49 |LBE_ZN..... BEGI|
000015E0: 4E 4E 01 05 45 4E 44 3A 09 20 42 4C 45 4E 5F 5A |NN..END:. BLEN_Z|
000015F0: 4E 0C C7 CF D4 CF 20 42 45 47 49 4E 4E 01 06 48 |N..... BEGINN..H|
00001600: 49 44 45 3A 0B 20 42 4C 42 45 5F 30 30 30 30 0B |IDE:. BLBE_0000.|
00001610: 20 42 4C 45 4E 5F 42 4C 42 45 0C C7 CF D4 CF 20 | BLEN_BLBE..... |
00001620: 42 45 47 49 4E 4E 01 07 43 48 45 43 4B 3A 09 20 |BEGINN..CHECK:. |
00001630: CF D5 D4 20 31 35 38 24 20 C9 C6 20 28 28 5A 3C |... 158$ .. ((Z<|
00001640: 42 4C 42 45 29 CF D2 28 5A 3E 3D 42 4C 45 4E 29 |BLBE)..(Z>=BLEN)|
00001650: 29 20 C7 CF D4 CF 20 46 49 31 35 0A 20 20 CF D5 |) .... FI15. ..|
00001660: D4 20 31 35 30 07 20 46 49 31 35 3A 07 D2 C5 D4 |. 150. FI15:....|
00001670: D5 D2 CE 01 07 46 4F 55 4E 44 3A 0B 20 49 31 38 |.....FOUND:. I18|
00001680: 32 5F 42 4C 45 4E 0B 20 D3 D9 D3 20 34 39 32 35 |2_BLEN. ... 4925|
00001690: 32 09 20 41 31 5F 49 31 38 34 0B 20 49 31 38 32 |2. A1_I184. I182|
000016A0: 5F 42 4C 42 45 0B 20 D3 D9 D3 20 34 39 32 35 32 |_BLBE. ... 49252|
000016B0: 09 20 41 32 5F 49 31 38 34 0F 20 4C 30 5F 28 54 |. A2_I184. L0_(T|
000016C0: 45 45 4E 44 2D 41 31 29 07 D2 C5 D4 D5 D2 CE 01 |EEND-A1)........|
000016D0: 06 44 45 4C 32 3A 07 20 46 4F 55 4E 44 08 20 56 |.DEL2:. FOUND. V|
000016E0: 45 52 53 43 48 17 20 54 45 45 4E 44 5F 28 54 45 |ERSCH. TEEND_(TE|
000016F0: 45 4E 44 2D 28 41 31 2D 41 32 29 29 0A C7 CF D4 |END-(A1-A2))....|
00001700: CF 20 48 49 44 45 01 06 43 4F 50 59 3A 07 20 46 |. HIDE..COPY:. F|
00001710: 4F 55 4E 44 10 20 4C 30 5F 28 28 41 31 2D 41 32 |OUND. L0_((A1-A2|
00001720: 29 2D 31 29 07 20 5A 31 5F 4C 30 07 20 41 31 5F |)-1). Z1_L0. A1_|
00001730: 41 32 09 20 41 32 5F 31 30 32 34 09 20 CF D5 D4 |A2. A2_1024. ...|
00001740: 20 31 34 34 09 20 CF D5 D4 20 31 34 37 08 20 56 | 144. ... 147. V|
00001750: 45 52 53 43 48 09 20 49 31 38 32 5F 5A 4E 0B 20 |ERSCH. I182_ZN. |
00001760: D3 D9 D3 20 34 39 32 35 32 08 20 5A 5F 49 31 38 |... 49252. Z_I18|
00001770: 34 06 20 41 31 5F 5A 0F 20 41 32 5F 28 28 5A 2B |4. A1_Z. A2_((Z+|
00001780: 5A 31 29 2B 31 29 0F 20 4C 30 5F 28 54 45 45 4E |Z1)+1). L0_(TEEN|
00001790: 44 2D 41 31 29 08 20 56 45 52 53 43 48 09 20 41 |D-A1). VERSCH. A|
000017A0: 31 5F 31 30 32 34 06 20 41 32 5F 5A 07 20 4C 30 |1_1024. A2_Z. L0|
000017B0: 5F 5A 31 08 20 56 45 52 53 43 48 16 20 54 45 45 |_Z1. VERSCH. TEE|
000017C0: 4E 44 5F 28 28 54 45 45 4E 44 2B 4C 30 29 2B 31 |ND_((TEEND+L0)+1|
000017D0: 29 0A C7 CF D4 CF 20 48 49 44 45 01 04 46 32 3A |)..... HIDE..F2:|
000017E0: 0B 20 CF D0 C5 CE 31 2C 34 2C 30 0A 20 C3 CD C4 |. ....1,4,0. ...|
000017F0: CF D5 D4 20 31 0D 20 D0 CF CB C5 20 30 31 35 34 |... 1. .... 0154|
00001800: 2C 34 09 20 5A 5F 54 45 41 4E 46 05 20 43 5F 30 |,4. Z_TEANF. C_0|
00001810: 06 20 48 43 5F 43 08 20 D2 C5 D0 C5 C1 D4 06 20 |. HC_C. ....... |
00001820: 20 D3 C5 C9 0F 20 20 D0 CF CB C5 20 30 30 30 31 | .... .... 0001|
00001830: 2C 35 32 0D 20 20 42 31 5F 28 D0 C5 C5 CB 5A 29 |,52. B1_(....Z)|
00001840: 0F 20 20 D0 CF CB C5 20 30 30 30 31 2C 35 35 06 |. .... 0001,55.|
00001850: 20 20 C3 CC C9 15 20 20 C9 C6 20 28 43 3E 30 29 | .... .. (C>0)|
00001860: 20 C7 CF D4 CF 20 46 49 31 36 0D 20 20 20 48 43 | .... FI16. HC|
00001870: 5F 28 43 3D 42 31 29 08 20 20 20 43 5F 42 31 09 |_(C=B1). C_B1.|
00001880: 20 20 20 42 31 5F 31 33 08 20 20 46 49 31 36 3A | B1_13. FI16:|
00001890: 09 20 20 CF D5 D4 20 42 31 08 20 20 C4 C5 C3 20 |. ... B1. ... |
000018A0: 43 08 20 20 C9 CE C3 20 5A 0A 20 D5 CE D4 C9 CC |C. ... Z. .....|
000018B0: 20 48 43 09 20 C3 CC CF D3 C5 20 31 08 20 C3 CD | HC. ..... 1. ..|
000018C0: C4 C5 CE C4 0C C7 CF D4 CF 20 42 45 47 49 4E 4E |......... BEGINN|
000018D0: 01 0B 4C 45 45 52 5A 45 49 4C 45 3A 2C 20 3F 22 |..LEERZEILE:, ?"|
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001900: 20 20 20 20 20 20 91 22 07 D2 C5 D4 D5 D2 CE 01 | ."........|
00001910: 01 01 01 01 01 01 00 D2 CF |......... |
;INTVAR TEANF,TEEND,PRANF,PREND,CONANF,C
ONEND,VARANF,VAREND.INTVAR ZN.BYTEVAR SN
,BZ,BS,DRIVE.STRVAR 14 NAME.STRVAR 40 A!
ADRVAR BEGINN,ZEILE,ZEICHEN,ENDE.ADRVAR
LOAD,SAVE,DIR,NEW,TEXTS&ADRVAR BEGIN,END
,HIDE,DEL2,COPY,CHECK!ADRVAR SCHL,ZEILEA
US,REVERS,LEER"ADRVAR LINKS,RECHTS,DEL,I
NST,ANFZ ADRVAR POKE,PEEK,VERSCH,FTASTEN
.ADRVAR FOUND,WAIT,LEERZEILE.INTVAR Z,ZM
,Z1,Z2,Z3.INTVAR A0,A1,E1,A2,E2,L0.INTVA
R BLBE,BLEN,VERADR#ADRVAR FI1,FI2,FI3,FI
4,FI5,FI6,FI7#ADRVAR FI8,FI9,FI10,FI11,F
I12,FI13.ADRVAR FI14,FI15,FI16,FI17,S1.A
DRVAR F1,F3,F5,F7,F2,F4,F6,F8.BYTEVAR C,
HC,B1,TB#INTVAR AT 0182 I182,I184,I186,I
188)BYTEVAR AT 0182 B182,B183,B184,B185,
B186.BYTEVAR AT 50000 B50000.INTVAR AT 4
9662 I49662..TEANF_I49662.NEW.DRIVE_8.CL
R NAME.BZ_0.ZN_0000.BS_0.SN_0.GOTO HIDE.
BEGINN:.(INTAT0334)_BEGINN.POKE0333,32.V
ERADR_49152.POKE 53270,199.POKE 53265,23
.POKE 53281,0.POKE 53280,11.Z_(ZN-BZ).Z1
_(Z+21).?".....".REPEAT. CHECK. I182_Z.
B186_1. SYS 49301. INC Z.UNTIL (Z>Z1).ZE
ILE:7?"... DISK . BLOCK . COMP .
.........";.?(STR(REALZN))+?".
LLIST . INFO . RUN . QUIT ".Z_
ZN.CHECK.TB_0.BS_0.SN_1.I182_ZN.SYS 4934
9.POKE0214,BZ.OUT17.OUT13.SCHL:.ZM_((INT
AT0209)+(PEEK0211)).REVERS.REPEAT.UNTIL
((PEEK0198)>0).GETC.HC_(CAND127).POKE021
2,0.REVERS)IF(TBAND((C<>20)AND(HC<>13)))
GOTOZEICHEN#IF((HC>=32)AND(HC<=95))GOTOZ
EICHEN?IF((((HC=17)OR(HC=19))OR(HC=13))O
R((C>132)AND(C<141)))GOTOENDE!IF((C=29)A
ND(SN<254))GOSUBRECHTS.IF((C=157)AND(SN>
1))GOSUBLINKS.IF((C=20)AND(SN>1))GOSUBDE
L IF((C=148)AND(SN<254))GOSUBINST.GOTO S
CHL..WAIT:. POKE 0198,0. WAIT 0198,1. GE
T C.RETURN..ZEICHEN:. IF (SN>254) GOTO S
CHL. IF (C=34) GOTO ANFZ. POKE(50000+SN)
,C. IF (BS>36) GOTO FI1. POKE0212,1. O
UTC. INC BS. INC SN. GOTO SCHL. FI1:.
INC SN. GOSUB ZEILEAUS.GOTO SCHL..ZEILE
AUS:. POKE 0214,BZ. OUT 17. OUT 13. B184
_80. B185_195. B186_(SN-BS). SYS 49312.
OUT145. OUT157. B1_0. REPEAT. OUT29. I
NC B1. UNTIL (B1>BS).RETURN..ENDE:. SN_1
. BS_0. GOSUB ZEILEAUS. REVERS. SYS 4939
2. S1:. I182_ZN. SYS49252. IF (I184>TEEN
D). I182_4096. SYS49252. TEEND_(I184+
2). GOTO S1. ENDIF. IF (C<>19)GOTOFI2.
B50000_1. FI2:. A0_I184. GOSUBPEEK. A1_
(A0+E1). L0_(TEEND-A1). A2_(A0+B50000).
TEEND_((TEEND-E1)+B50000). GOSUB VERSCH.
A1_50000. A2_A0. L0_(INT(B50000-1),0).
GOSUB VERSCH. IF (L0>0000) GOTO FI3. A1
_A0. A2_(INTB50000,0). GOSUB POKE. FI3
:. REVERS' IF ((C>=133)AND(C<=140)) GOTO
FTASTEN. IF (C<>19) GOTO FI4& IF ((TEE
ND-TEANF)<0003) GOTO BEGINN. A1_(A0+1).
A2_A0. L0_(TEEND-A0). DEC TEEND. GO
SUB VERSCH. GOTO BEGINN. FI4:. IF (C<>1
47) GOTO FI5. A1_A0. A2_(A0+1). L0_(T
EEND-A0). INC TEEND. GOSUB VERSCH. A2
_0001. GOSUB POKE. GOTO BEGINN. FI5:!
IF ((C<>13)AND(C<>17)) GOTO FI6. INC ZN
. INC BZ. IF (BZ<=21) GOTO ZEILE. BZ_
21. A1_1144. A2_1104. FI12:. L0_839.
GOSUB VERSCH. A1_(A1+54272). A2_(A2+
54272). VERADR_49155. GOSUB VERSCH. V
ERADR_49152. I182_ZN. B186_1. LEERZEI
LE. SYS49301. GOTO ZEILE. FI6:# IF ((C
<>145)OR(ZN=0000)) GOTO FI7. DEC ZN. D
EC BZ. IF (BZ<128) GOTO ZEILE. BZ_0.
A1_1104. A2_1144. GOTOFI12. FI7:.GOTO
ZEILE..VERSCH:$ IF ((L0=0000) OR (A1=A2)
) GOTO FI8. I182_A1. E1_(A1+L0). I184
_E1. I186_A2. E2_(A2+L0). I188_E2. S
YSVERADR. FI8:.RETURN..POKE:. B182_(LOWA
2). I184_A1. SYS 49664.RETURN..PEEK:. I1
84_A0. SYS49680. E1_(INTB182,0).RETURN..
FTASTEN:$GOTO (INTAT((ADRF1)+((C-133)SHL
1)))..LINKS:. DEC SN. DEC BS. IF (BS>=38
) GOTO FI9. OUTC. RETURN. FI9:. BS_0.G
OTO ZEILEAUS..RECHTS:. INC SN. INC BS. I
F (BS>=38) GOTO FI10. OUTC. RETURN. FI
10:. BS_37.GOTO ZEILEAUS..INST:. A1_(500
00+SN). L0_(0255-SN). A2_(A1+1). GOSUB V
ERSCH. POKE A1,32.GOTO ZEILEAUS..DEL:. I
F (SN>=254) GOTO FI11. A2_(49999+SN).
L0_(0255-SN). A1_(A2+1). GOSUB VERSCH.
FI11:. POKE 50255,32. DEC SN. DEC BS. I
F(BS<128)GOTO ZEILE AUS. BS_0.GOTOZEILEA
US..ANFZ:. TB_(NOTTB). POKE(50000+SN),C.
POKEZM,34. GOSUB RECHTS.GOTO SCHL..F7:.
OUT 153. OUT 19. OUT 13. LEERZEILE. ?"Z
EILE:";. ?(STR(REALZN)). INPUT"........"
;A. OUT 158. ZN_(INT(REALA)). BZ_10. IF(
ZN>=(INT BZ,0))GOTOBEGINN. BZ_(LOWZN).GO
TO BEGINN..F8:. B182_0.SYS0182..REVERS:.
POKE ZM,((PEEKZM)EXOR128).RETURN..F1:/
?"...LOAD, TEXTSAVE, SAVE, DIR
.". WAIT. IF(C=76)GOTOLOAD. IF(C=84)G
OSUBTEXTS. IF(C=83)GOSUBSAVE. IF(C=68)GO
SUBDIR.GOTOBEGINN..LEER:. OUT 145. LEERZ
EILE. ?". ";. ?NAME. INPUT".NAME:";N
AME. OUT 158.RETURN..LOAD:. LEER. BZ_0.
ZN_0000. OPEN1,DRIVE,0,NAME. I182_TEANF.
SYS49536. TEEND_(I182-1). CLOSE1. IF(TE
ANF=TEEND)GOSUBNEW.GOTO HIDE..DIR:. OUT
147. SYS 49424. WAIT.RETURN..NEW:. BZ_0.
ZN_0000. A1_TEANF. A2_00000. GOSUB POKE
. TEEND_(TEANF+2). BLBE_0000. BLEN_BLBE.
RETURN..TEXTS:. LEER. OPEN1,DRIVE,1,("@:
"+NAME). I182_TEANF. (INTAT0187)_(TEEND+
1). SYS49576. CLOSE1.RETURN..SAVE:. TEXT
S. SYS 51000.RETURN..F4:/ ?"... ECOM
V2.4 VON JOHANNES TIMMER .". ?"...1.
TEXT : $". ?"..2. PROGRAM: $". ?"..3.
CONST. : $". ?"..4. VARIAB.: $..". B1_0
. REPEAT. Z_((ADRTEANF)+(B1SHL2)). ?".
..............";. ?(STR(INTATZ));. ?"
- $";. ?(STR(INTAT(Z+2))). INC B1. UNT
IL (B1>3). ?"..5) DRIVE:";. ?(STRDRIVE).
WAIT" IF ((C<49)OR (C>53)) GOTO BEGINN.
IF (C=53) GOTO FI13. INPUT "...$";A.
Z_(INTA). Z1_((ADRTEANF)+((C-49)SHL2)).
(INTATZ1)_Z. (INTAT(Z1+2))_Z. IF (C<
>49) GOTO F4. I49662_TEANF. GOSUB NEW.
GOTO F4. FI13:. INC DRIVE. DRIVE_(DRIV
EAND15).GOTO F4..F5:. SYS 24064.GOTO BEG
INN..F6:. OUT 147. POKE 53270,200. POKE
53265,27. SYS PRANF. OUT13. ?"EOP". WAIT
.GOTO BEGINN..F3:/ ?"...BEGIN, END, COPY
, DEL, HIDE .". WAIT. IF (C=66
) GOTO BEGIN. IF (C=69) GOTO END. IF (C=
72) GOTO HIDE.IF (BLBE>=BLEN) GOTO ZEILE
. IF (C=67) GOTO COPY. IF (C=68) GOTO DE
L2.GOTO ZEILE..BEGIN:. BLBE_ZN.GOTO BEGI
NN..END:. BLEN_ZN.GOTO BEGINN..HIDE:. BL
BE_0000. BLEN_BLBE.GOTO BEGINN..CHECK:.
OUT 158$ IF ((Z<BLBE)OR(Z>=BLEN)) GOTO F
I15. OUT 150. FI15:.RETURN..FOUND:. I18
2_BLEN. SYS 49252. A1_I184. I182_BLBE. S
YS 49252. A2_I184. L0_(TEEND-A1).RETURN.
.DEL2:. FOUND. VERSCH. TEEND_(TEEND-(A1-
A2)).GOTO HIDE..COPY:. FOUND. L0_((A1-A2
)-1). Z1_L0. A1_A2. A2_1024. OUT 144. OU
T 147. VERSCH. I182_ZN. SYS 49252. Z_I18
4. A1_Z. A2_((Z+Z1)+1). L0_(TEEND-A1). V
ERSCH. A1_1024. A2_Z. L0_Z1. VERSCH. TEE
ND_((TEEND+L0)+1).GOTO HIDE..F2:. OPEN1,
4,0. CMDOUT 1. POKE 0154,4. Z_TEANF. C_0
. HC_C. REPEAT. SEI. POKE 0001,52. B1
_(PEEKZ). POKE 0001,55. CLI. IF (C>0)
GOTO FI16. HC_(C=B1). C_B1. B1_13
. FI16:. OUT B1. DEC C. INC Z. UNTIL
HC. CLOSE 1. CMDEND.GOTO BEGINN..LEERZE
ILE:, ?"
.".RETURN........RO
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL