EX-DOS1541/C 64
FILE INFORMATION
FILENAME(S): EX-DOS1541/C 64
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-02 22:12:01
APPEARS ON: 1 disk(s)
FILE HASH
2bbe388a23b5531f5fb8891385ab785570e2077c89bb3c199ceb12758c7233df
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STEFAN R | EX-DOS1541/C 64 | PRG | Treasure Chest - ToGuMi | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 73 00 E6 7A D0 02 E6 2C 28 2F 2F 2A 32 B0 00 1C |s..z...,(//*2...| 00000010: 03 07 0B 2D 31 31 30 33 D0 60 80 4F C7 52 00 00 |...-1103.`.O.R..| 00000020: FF 00 00 00 00 00 00 00 00 03 00 00 80 00 00 00 |................| 00000030: A5 C4 55 00 00 00 00 00 00 00 00 00 00 FF 02 02 |..U.............| 00000040: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 00000050: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 00000060: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 00000070: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 00000080: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 00000090: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000A0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000B0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000C0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000D0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000E0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 |................| 000000F0: 02 02 02 02 02 02 02 02 02 02 02 02 02 02 07 8F |................| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9F |**************..| 00000120: 10 EE 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 00 C3 10 F8 07 8F 2A 20 31 2E 20 42 49 4C |**......* 1. BIL| 00000150: 44 45 4E 20 22 4D 41 54 43 48 2D 43 4F 44 45 22 |DEN "MATCH-CODE"| 00000160: 20 20 20 20 20 2A 00 E7 10 02 08 8F 2A 2A 2A 2A | *......****| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F6 10 0C 08 99 |**********......| 00000190: 22 11 53 4F 52 54 3A 22 2C 00 03 11 16 08 81 53 |".SORT:",......S| 000001A0: 31 B2 30 A4 45 49 00 0F 11 20 08 47 4C 24 B2 22 |1.0.EI... .GL$."| 000001B0: 30 22 00 30 11 2A 08 8B C6 28 CA 28 50 4E 24 28 |0".0.*...(.(PN$(| 000001C0: 53 31 29 2C 31 2C 31 29 29 B2 30 A7 47 4C 24 B2 |S1),1,1)).0.GL$.| 000001D0: 22 31 22 00 56 11 34 08 4D 43 24 28 53 31 29 B2 |"1".V.4.MC$(S1).| 000001E0: 47 4C 24 AA CA 28 50 4E 24 28 53 31 29 2C 34 2C |GL$..(PN$(S1),4,| 000001F0: 31 36 29 AA C4 28 53 31 29 00 5E 11 3E 08 82 53 |16)..(S1).^.>..S| 00000200: 31 00 82 11 48 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |1...H..*********| 00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000220: 2A 2A 2A 2A 2A 00 A6 11 52 08 8F 2A 20 32 2E 20 |*****...R..* 2. | 00000230: 53 4F 52 54 20 4E 41 43 48 20 22 4D 41 54 43 48 |SORT NACH "MATCH| 00000240: 2D 43 4F 44 45 22 20 20 2A 00 CA 11 5C 08 8F 2A |-CODE" *...\..*| 00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DB 11 |*************...| 00000270: 66 08 99 22 45 49 4E 54 52 41 47 22 2C 2C 00 F5 |f.."EINTRAG",,..| 00000280: 11 70 08 43 31 B2 C2 28 32 31 31 29 3A 43 32 B2 |.p.C1..(211):C2.| 00000290: C2 28 32 31 34 29 AB 31 00 03 12 7A 08 81 20 53 |.(214).1...z.. S| 000002A0: 31 B2 30 A4 45 49 00 17 12 84 08 97 32 31 31 2C |1.0.EI......211,| 000002B0: 43 31 3A 97 32 31 34 2C 43 32 00 21 12 8E 08 99 |C1:.214,C2.!....| 000002C0: 53 31 AA 31 00 35 12 98 08 81 20 53 32 B2 45 49 |S1.1.5.... S2.EI| 000002D0: A4 53 31 AA 31 A9 AB 31 00 68 12 A2 08 8B 20 CA |.S1.1..1.h.... .| 000002E0: 28 4D 43 24 28 53 32 29 2C 31 2C 31 37 29 20 B3 |(MC$(S2),1,17) .| 000002F0: 20 CA 28 4D 43 24 28 53 32 AB 31 29 2C 31 2C 31 | .(MC$(S2.1),1,1| 00000300: 37 29 20 A7 20 8D 20 32 35 30 30 00 71 12 AC 08 |7) . . 2500.q...| 00000310: 82 20 53 32 00 7A 12 B6 08 82 20 53 31 00 80 12 |. S2.z.... S1...| 00000320: C0 08 8E 00 A4 12 C4 09 8F 2A 2A 2A 2A 2A 2A 2A |.........*******| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000340: 2A 2A 2A 2A 2A 2A 2A 00 C8 12 CE 09 8F 2A 20 41 |*******......* A| 00000350: 55 53 54 41 55 53 43 48 20 44 45 52 20 49 4E 48 |USTAUSCH DER INH| 00000360: 41 4C 54 45 20 20 20 20 20 20 2A 00 EC 12 D8 09 |ALTE *.....| 00000370: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000390: FC 12 E2 09 54 41 24 B2 4D 43 24 28 53 32 29 00 |....TA$.MC$(S2).| 000003A0: 12 13 EC 09 4D 43 24 28 53 32 29 B2 4D 43 24 28 |....MC$(S2).MC$(| 000003B0: 53 32 AB 31 29 00 24 13 F6 09 4D 43 24 28 53 32 |S2.1).$...MC$(S2| 000003C0: AB 31 29 B2 54 41 24 00 2A 13 00 0A 8E 00 4E 13 |.1).TA$.*.....N.| 000003D0: B8 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003F0: 2A 00 72 13 C2 0B 8F 2A 20 5A 55 52 55 45 43 4B |*.r....* ZURUECK| 00000400: 53 43 48 52 45 49 42 45 4E 20 44 49 52 45 43 54 |SCHREIBEN DIRECT| 00000410: 4F 52 59 20 2A 00 96 13 CC 0B 8F 2A 2A 2A 2A 2A |ORY *......*****| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BA 13 D6 0B 8F 2A |*********......*| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DE 13 |*************...| 00000460: E0 0B 8F 2A 20 31 2E 20 42 4C 4F 43 4B 20 41 55 |...* 1. BLOCK AU| 00000470: 46 42 45 52 45 49 54 45 4E 20 20 20 20 20 20 20 |FBEREITEN | 00000480: 2A 00 02 14 EA 0B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********| 00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004A0: 2A 2A 2A 2A 2A 00 0B 14 F4 0B 54 B2 31 38 00 2A |*****.....T.18.*| 000004B0: 14 FE 0B 99 22 11 11 52 45 50 4C 41 43 45 3A 22 |...."..REPLACE:"| 000004C0: 2C 22 53 50 55 52 22 2C 2C 54 22 11 22 00 3A 14 |,"SPUR",,T".".:.| 000004D0: 08 0C 81 20 57 31 B2 30 A4 53 43 AB 32 00 49 14 |... W1.0.SC.2.I.| 000004E0: 12 0C 53 B2 53 45 28 57 31 AA 31 29 00 5D 14 1C |..S.SE(W1.1).]..| 000004F0: 0C 42 4C 24 B2 C7 28 53 45 28 57 31 AA 32 29 29 |.BL$..(SE(W1.2))| 00000500: 00 6A 14 26 0C 81 20 57 32 B2 30 A4 37 00 79 14 |.j.&.. W2.0.7.y.| 00000510: 30 0C 57 33 B2 57 31 AC 38 AA 57 32 00 93 14 3A |0.W3.W1.8.W2...:| 00000520: 0C 57 34 B2 C5 28 CA 28 4D 43 24 28 57 33 29 2C |.W4..(.(MC$(W3),| 00000530: 31 39 2C 33 29 29 00 A7 14 44 0C 42 4C 24 B2 42 |19,3))...D.BL$.B| 00000540: 4C 24 AA 50 4E 24 28 57 34 29 00 B7 14 4E 0C 8B |L$.PN$(W4)...N..| 00000550: 57 32 B2 37 A7 89 33 31 37 30 00 CD 14 58 0C 42 |W2.7..3170...X.B| 00000560: 4C 24 B2 42 4C 24 AA C7 28 30 29 AA C7 28 30 29 |L$.BL$..(0)..(0)| 00000570: 00 D5 14 62 0C 82 57 32 00 DF 14 6C 0C 8D 33 33 |...b..W2...l..33| 00000580: 30 30 00 E9 14 76 0C 8D 33 35 30 30 00 F1 14 80 |00...v..3500....| 00000590: 0C 82 57 31 00 F7 14 8A 0C 8E 00 1B 15 E4 0C 8F |..W1............| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F |**************.?| 000005C0: 15 EE 0C 8F 2A 20 32 2E 20 46 4F 4C 47 45 53 50 |....* 2. FOLGESP| 000005D0: 55 52 20 4E 41 43 48 20 42 59 54 45 20 30 20 20 |UR NACH BYTE 0 | 000005E0: 20 2A 00 63 15 F8 0C 8F 2A 2A 2A 2A 2A 2A 2A 2A | *.c....********| 000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000600: 2A 2A 2A 2A 2A 2A 00 7C 15 02 0D 8B 20 53 45 28 |******.|.... SE(| 00000610: 57 31 AA 32 29 B2 32 35 35 A7 20 33 33 36 30 00 |W1.2).255. 3360.| 00000620: 99 15 0C 0D 98 31 35 2C 22 4D 2D 57 22 C7 28 30 |.....15,"M-W".(0| 00000630: 29 50 24 C7 28 31 29 C7 28 31 38 29 00 9F 15 16 |)P$.(1).(18)....| 00000640: 0D 8E 00 BB 15 20 0D 98 31 35 2C 22 4D 2D 57 22 |..... ..15,"M-W"| 00000650: C7 28 30 29 50 24 C7 28 31 29 C7 28 30 29 00 C1 |.(0)P$.(1).(0)..| 00000660: 15 2A 0D 8E 00 E5 15 AC 0D 8F 2A 2A 2A 2A 2A 2A |.*........******| 00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000680: 2A 2A 2A 2A 2A 2A 2A 2A 00 09 16 B6 0D 8F 2A 20 |********......* | 00000690: 33 2E 20 42 4C 4F 43 4B 20 5A 55 52 55 45 43 4B |3. BLOCK ZURUECK| 000006A0: 53 43 48 52 45 49 42 45 4E 20 20 2A 00 2D 16 C0 |SCHREIBEN *.-..| 000006B0: 0D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 00 41 16 CA 0D 99 22 20 22 2C 22 42 4C 4F 43 4B |.A...." ","BLOCK| 000006E0: 22 2C 2C 53 00 4D 16 D4 0D 98 32 2C 42 4C 24 3B |",,S.M....2,BL$;| 000006F0: 00 5F 16 DE 0D 98 31 35 2C 22 42 2D 50 22 3B 32 |._....15,"B-P";2| 00000700: 3B 31 00 74 16 E8 0D 98 31 35 2C 22 55 42 22 3B |;1.t....15,"UB";| 00000710: 32 3B 30 3B 54 3B 53 00 7F 16 F2 0D 8D 20 34 30 |2;0;T;S...... 40| 00000720: 30 30 00 85 16 FC 0D 8E 00 A9 16 A0 0F 8F 2A 2A |00............**| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CD 16 AA |************....| 00000750: 0F 8F 2A 20 46 45 48 4C 45 52 2D 52 4F 55 54 49 |..* FEHLER-ROUTI| 00000760: 4E 45 20 20 20 20 20 20 20 20 20 20 20 20 20 2A |NE *| 00000770: 00 F1 16 B4 0F 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********| 00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000790: 2A 2A 2A 2A 00 06 17 BE 0F 84 31 35 2C 4E 52 2C |****......15,NR,| 000007A0: 4B 54 24 2C 53 50 2C 53 52 00 15 17 C8 0F 8B 20 |KT$,SP,SR...... | 000007B0: 4E 52 B2 30 20 A7 20 8E 00 1F 17 D2 0F 99 22 20 |NR.0 . ......." | 000007C0: 11 22 00 3E 17 DC 0F 99 22 12 1D 1D 1D 1D 1D 1D |.".>....".......| 000007D0: 1D 1D 1D 1D 44 49 53 4B 20 45 52 52 4F 52 92 11 |....DISK ERROR..| 000007E0: 22 00 50 17 E6 0F 99 4E 52 2C 4B 54 24 2C 53 50 |".P....NR,KT$,SP| 000007F0: 2C 53 52 00 63 17 F0 0F 85 22 11 57 45 49 54 45 |,SR.c....".WEITE| 00000800: 52 20 22 3B 57 24 00 72 17 FA 0F 8B 20 57 24 B2 |R ";W$.r.... W$.| 00000810: 22 4A 22 A7 8E 00 7C 17 04 10 89 20 32 35 30 00 |"J"...|.... 250.| 00000820: 00 00 C5 11 22 00 36 0A B4 00 8F 2A 2A 2A 2A 2A |....".6....*****| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5A 0A BE 00 8F 2A |*********.Z....*| 00000850: 20 53 54 45 55 45 52 4C 45 49 53 54 45 20 20 20 | STEUERLEISTE | 00000860: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 7E 0A | *.~.| 00000870: C8 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000890: 2A 00 9D 0A D2 00 86 20 50 4E 24 28 31 34 33 29 |*...... PN$(143)| 000008A0: 2C 53 45 28 31 39 29 2C 4D 43 24 28 31 34 33 29 |,SE(19),MC$(143)| 000008B0: 00 A7 0A DC 00 8D 31 30 30 30 00 B1 0A E6 00 8D |......1000......| 000008C0: 32 30 30 30 00 BB 0A F0 00 8D 33 30 30 30 00 DC |2000......3000..| 000008D0: 0A FA 00 99 22 20 22 3A 98 31 35 2C 22 49 22 3A |...." ":.15,"I":| 000008E0: A0 31 35 3A A0 32 3A 99 22 45 4E 44 22 3A 80 00 |.15:.2:."END":..| 000008F0: 00 0B CA 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 00000900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000910: 2A 2A 2A 00 24 0B D4 03 8F 2A 20 55 4E 54 45 52 |***.$....* UNTER| 00000920: 2D 52 4F 55 54 49 4E 45 4E 20 20 20 20 20 20 20 |-ROUTINEN | 00000930: 20 20 20 20 20 20 2A 00 48 0B DE 03 8F 2A 2A 2A | *.H....***| 00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6C 0B E8 03 |***********.l...| 00000960: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000980: 90 0B F2 03 8F 2A 20 44 41 54 45 4E 20 45 49 4E |.....* DATEN EIN| 00000990: 4C 45 53 45 4E 20 20 20 20 20 20 20 20 20 20 20 |LESEN | 000009A0: 20 20 2A 00 B4 0B FC 03 8F 2A 2A 2A 2A 2A 2A 2A | *......*******| 000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009C0: 2A 2A 2A 2A 2A 2A 2A 00 CB 0B 06 04 9F 31 35 2C |*******......15,| 000009D0: 38 2C 31 35 2C 22 49 22 3A 8D 34 30 30 30 00 E1 |8,15,"I":.4000..| 000009E0: 0B 10 04 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 8D |.... 2,8,2,"#":.| 000009F0: 34 30 30 30 00 EC 0B 1A 04 A1 23 32 2C 50 24 00 |4000......#2,P$.| 00000A00: FE 0B 24 04 50 24 B2 C7 28 C6 28 50 24 29 AA 33 |..$.P$..(.(P$).3| 00000A10: 29 00 22 0C 2E 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |)."....*********| 00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A30: 2A 2A 2A 2A 2A 00 46 0C 38 04 8F 2A 20 31 2E 20 |*****.F.8..* 1. | 00000A40: 53 50 55 52 20 31 38 20 53 45 4B 54 4F 52 20 30 |SPUR 18 SEKTOR 0| 00000A50: 20 20 20 20 20 20 20 20 2A 00 6A 0C 42 04 8F 2A | *.j.B..*| 00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 77 0C |*************.w.| 00000A80: 4C 04 54 B2 31 38 3A 53 B2 30 00 92 0C 56 04 99 |L.T.18:S.0...V..| 00000A90: 22 11 52 45 41 44 3A 22 2C 22 A0 1B A9 13 84 AC |".READ:","......| 00000AA0: 85 AD 84 AE 85 AF A0 AB A9 05 84 B8 85 B9 A0 00 |................| 00000AB0: B1 AC 91 B8 E6 AC D0 02 E6 AD E6 B8 D0 02 E6 B9 |................| 00000AC0: A5 B8 C9 23 A5 B9 E9 08 90 E6 A2 FF 9A 4C AB 05 |...#.........L..|
S..ZP..,(//*2......-1103P`.OGR..........
.........DU.............................
........................................
........................................
........................................
........................................
................************************
******......****************************
**.C....* 1. BILDEN "MATCH-CODE" *..
....******************************......
".SORT:",......S1.0.EI... .GL$."0".0.*..
F(J(PN$(S1),1,1)).0.GL$."1".V.4.MC$(S1).
GL$.J(PN$(S1),4,16).D(S1).^.>..S1...H..*
*****************************...R..* 2.
SORT NACH "MATCH-CODE" *.J.\..*********
*********************...F.."EINTRAG",,..
.P.C1.B(211):C2.B(214).1...Z.. S1.0.EI..
....211,C1:.214,C2.!....S1.1.5.... S2.EI
.S1.1..1.H.... J(MC$(S2),1,17) . J(MC$(S
2.1),1,17) . . 2500.Q.... S2.Z.... S1...
......D..******************************.
H.N..* AUSTAUSCH DER INHALTE *...X.
.******************************.....TA$.
MC$(S2).....MC$(S2).MC$(S2.1).$...MC$(S2
.1).TA$.*.....N....*********************
*********.R.B..* ZURUECKSCHREIBEN DIRECT
ORY *...L..*****************************
*...V..******************************...
...* 1. BLOCK AUFBEREITEN *......*
*****************************.....T.18.*
...."..REPLACE:","SPUR",,T".".:.... W1.0
.SC.2.I...S.SE(W1.1).]...BL$.G(SE(W1.2))
.J.&.. W2.0.7.Y.0.W3.W1.8.W2...:.W4.E(J(
MC$(W3),19,3))...D.BL$.BL$.PN$(W4)...N..
W2.7..3170.M.X.BL$.BL$.G(0).G(0).U.B..W2
...L..3300...V..3500......W1............
******************************.?....* 2.
FOLGESPUR NACH BYTE 0 *.C....********
**********************.|.... SE(W1.2).25
5. 3360......15,"M-W"G(0)P$G(1)G(18)....
..... ..15,"M-W"G(0)P$G(1)G(0).A.*......
..******************************......*
3. BLOCK ZURUECKSCHREIBEN *.-....******
************************.A.J.." ","BLOCK
",,S.M.T..2,BL$;._....15,"B-P";2;1.T....
15,"UB";2;0;T;S..... 4000......... ..**
****************************.M....* FEHL
ER-ROUTINE *......**********
********************......15,NR,KT$,SP,S
R...H.. NR.0 . ....R.." .".>....".......
....DISK ERROR..".P....NR,KT$,SP,SR.C...
.".WEITER ";W$.R.... W$."J"...|.... 250.
..E.".6....*****************************
*.Z....* STEUERLEISTE *.~.
H..******************************...R..
PN$(143),SE(19),MC$(143)......1000......
2000......3000......" ":.15,"I": 15: 2:.
"END":....J..***************************
***.$.T..* UNTER-ROUTINEN *.
H....******************************.L...
.******************************......* D
ATEN EINLESEN *......*******
***********************.K....15,8,15,"I"
:.4000...... 2,8,2,"#":.4000......#2,P$.
..$.P$.G(F(P$).3)."....*****************
*************.F.8..* 1. SPUR 18 SEKTOR 0
*.J.B..*************************
*****.W.L.T.18:S.0...V..".READ:"," .....
...... ....... .......P.....P.....I#....
.....L..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL