_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

ESCANPATCH 1.SRC

FILE INFORMATION

FILENAME(S): ESCANPATCH 1.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-11-30 21:18:01

APPEARS ON: 1 disk(s)

FILE HASH

1bae9d0e8e8e525ed0063e13602a356400b3ba2b8a06929c19f20c7b9aa312e5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
GO64 7 97 ESCANPATCH 1.SRC PRG DuncanTwain 7 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 14 2D 3A 2D 0A 00 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.-:-..;---------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 00  5D 2D 14 00 3B 20 50 41  |-------.]-..; PA|
00000030: 54 43 48 2D 50 52 4F 47  52 41 4D 4D 20 46 55 45  |TCH-PROGRAMM FUE|
00000040: 52 20 45 44 44 49 53 43  41 4E 00 80 2D 1E 00 3B  |R EDDISCAN..-..;|
00000050: 20 4D 41 43 48 54 20 53  54 41 52 54 46 41 45 48  | MACHT STARTFAEH|
00000060: 49 47 45 20 56 45 52 53  49 4F 4E 45 4E 00 A3 2D  |IGE VERSIONEN..-|
00000070: 28 00 3B 20 46 55 45 52  20 41 4E 44 45 52 45 20  |(.; FUER ANDERE |
00000080: 47 45 52 41 45 54 45 41  44 52 45 53 53 45 4E 21  |GERAETEADRESSEN!|
00000090: 00 C9 2D 32 00 3B 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..-2.;----------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000000B0: 2D 2D 2D 2D 2D 2D 00 DE  2D 3C 00 3B 20 28 43 29  |------..-<.; (C)|
000000C0: 20 31 39 39 37 20 47 4F  36 34 21 00 F4 2D 46 00  | 1997 GO64!..-F.|
000000D0: 3B 20 53 56 45 4E 20 46  52 49 45 44 52 49 43 48  |; SVEN FRIEDRICH|
000000E0: 53 00 1A 2E 50 00 3B 20  47 52 4F 53 53 45 20 48  |S...P.; GROSSE H|
000000F0: 45 49 44 45 20 34 37 20  20 20 33 31 37 33 37 20  |EIDE 47   31737 |
00000100: 52 49 4E 54 45 4C 4E 00  40 2E 5A 00 3B 20 53 57  |RINTELN.@.Z.; SW|
00000110: 46 3A 30 32 31 32 31 39  39 32 20 20 20 20 20 45  |F:02121992     E|
00000120: 53 43 41 4E 50 41 54 43  48 20 31 2E 30 00 66 2E  |SCANPATCH 1.0.f.|
00000130: 5B 00 3B 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |[.;-------------|
00000140: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000150: 2D 2D 2D 00 6C 2E 63 00  3B 00 7A 2E 64 00 20 2E  |---.l.c.;.z.d. .|
00000160: 42 41 24 43 30 30 30 00  8F 2E 6E 00 20 2E 45 51  |BA$C000...n. .EQ|
00000170: 53 43 4E 4B 45 59 3D 24  46 46 39 46 00 A1 2E 6F  |SCNKEY=$FF9F...o|
00000180: 00 20 2E 45 51 50 52 54  3D 24 45 37 31 36 00 B5  |. .EQPRT=$E716..|
00000190: 2E 70 00 20 2E 45 51 47  45 54 49 4E 3D 24 46 46  |.p. .EQGETIN=$FF|
000001A0: 45 34 00 C9 2E 71 00 20  2E 45 51 42 41 53 49 4E  |E4...q. .EQBASIN|
000001B0: 3D 24 46 31 35 37 00 DE  2E 72 00 20 2E 45 51 53  |=$F157...r. .EQS|
000001C0: 54 52 4F 55 54 3D 24 41  42 31 45 00 E9 2E 73 00  |TROUT=$AB1E...s.|
000001D0: 20 4C 44 41 23 36 00 F7  2E 74 00 20 53 54 41 24  | LDA#6...t. STA$|
000001E0: 44 30 32 30 00 05 2F 75  00 20 53 54 41 24 44 30  |D020../u. STA$D0|
000001F0: 32 31 00 0B 2F 82 00 3B  00 22 2F 83 00 20 4C 44  |21../..;."/.. LD|
00000200: 41 23 3C 28 48 45 41 44  29 3B 51 55 45 4C 4C 00  |A#<(HEAD);QUELL.|
00000210: 39 2F 84 00 20 4C 44 59  23 3E 28 48 45 41 44 29  |9/.. LDY#>(HEAD)|
00000220: 3B 49 4E 50 55 54 00 48  2F 85 00 20 4A 53 52 53  |;INPUT.H/.. JSRS|
00000230: 54 52 4F 55 54 00 53 2F  86 00 20 4A 53 52 53 50  |TROUT.S/.. JSRSP|
00000240: 00 59 2F 8B 00 3B 00 6E  2F 8C 00 20 4C 44 58 23  |.Y/..;.n/.. LDX#|
00000250: 24 30 38 3B 47 52 54 20  41 44 52 00 83 2F 96 00  |$08;GRT ADR../..|
00000260: 20 4C 44 59 23 24 30 30  3B 53 45 4B 20 41 44 52  | LDY#$00;SEK ADR|
00000270: 00 95 2F A0 00 20 4A 53  52 24 46 46 42 41 3B 53  |../.. JSR$FFBA;S|
00000280: 45 54 00 A9 2F AA 00 20  4C 44 41 23 24 30 38 3B  |ET../.. LDA#$08;|
00000290: 4C 41 45 4E 47 45 00 BE  2F B4 00 20 4C 44 58 23  |LAENGE../.. LDX#|
000002A0: 3C 28 4E 41 4D 45 29 3B  4C 4F 57 00 D4 2F BE 00  |<(NAME);LOW../..|
000002B0: 20 4C 44 59 23 3E 28 4E  41 4D 45 29 3B 48 49 47  | LDY#>(NAME);HIG|
000002C0: 48 00 E6 2F C8 00 20 4A  53 52 24 46 46 42 44 3B  |H../.. JSR$FFBD;|
000002D0: 53 45 54 00 F8 2F D2 00  20 4C 44 41 23 24 30 30  |SET../.. LDA#$00|
000002E0: 3B 4C 4F 41 44 00 0D 30  DC 00 20 4C 44 58 23 24  |;LOAD..0.. LDX#$|
000002F0: 30 31 3B 4C 4F 57 20 41  44 52 00 22 30 E6 00 20  |01;LOW ADR."0.. |
00000300: 4C 44 59 23 24 30 38 3B  48 49 47 20 41 44 52 00  |LDY#$08;HIG ADR.|
00000310: 38 30 F0 00 20 4A 53 52  24 46 46 44 35 3B 4C 4F  |80.. JSR$FFD5;LO|
00000320: 41 44 20 49 54 00 44 30  FA 00 20 53 54 58 24 41  |AD IT.D0.. STX$A|
00000330: 45 00 50 30 04 01 20 53  54 59 24 41 46 00 56 30  |E.P0.. STY$AF.V0|
00000340: 0D 01 3B 00 69 30 0E 01  20 4C 44 59 23 32 36 3B  |..;.i0.. LDY#26;|
00000350: 4D 4F 44 49 46 59 00 7C  30 18 01 4E 4F 50 46 49  |MODIFY.|0..NOPFI|
00000360: 4C 20 4C 44 41 23 24 45  41 00 8C 30 22 01 20 53  |L LDA#$EA..0". S|
00000370: 54 41 24 32 38 38 35 2C  59 00 95 30 2C 01 20 44  |TA$2885,Y..0,. D|
00000380: 45 59 00 A4 30 36 01 20  42 4E 45 4E 4F 50 46 49  |EY..06. BNENOPFI|
00000390: 4C 00 B0 30 40 01 20 4C  44 59 23 31 37 00 C3 30  |L..0@. LDY#17..0|
000003A0: 4A 01 4E 45 57 53 20 4C  44 41 44 41 54 41 2C 59  |J.NEWS LDADATA,Y|
000003B0: 00 D3 30 54 01 20 53 54  41 24 32 38 41 30 2C 59  |..0T. STA$28A0,Y|
000003C0: 00 DC 30 5E 01 20 44 45  59 00 F1 30 68 01 20 42  |..0^. DEY..0h. B|
000003D0: 50 4C 4E 45 57 53 3B 4E  45 57 20 41 44 52 00 FE  |PLNEWS;NEW ADR..|
000003E0: 30 6D 01 20 4C 44 41 23  24 30 30 00 0C 31 6E 01  |0m. LDA#$00..1n.|
000003F0: 20 53 54 41 24 32 38 32  36 00 12 31 71 01 3B 00  | STA$2826..1q.;.|
00000400: 22 31 72 01 20 4C 44 41  23 3C 28 54 58 32 29 00  |"1r. LDA#<(TX2).|
00000410: 32 31 73 01 20 4C 44 59  23 3E 28 54 58 32 29 00  |21s. LDY#>(TX2).|
00000420: 49 31 74 01 20 4A 53 52  53 54 52 4F 55 54 3B 47  |I1t. JSRSTROUT;G|
00000430: 45 54 20 4E 45 57 00 5B  31 75 01 20 4A 53 52 53  |ET NEW.[1u. JSRS|
00000440: 50 3B 41 44 52 45 53 53  00 67 31 76 01 20 4A 53  |P;ADRESS.g1v. JS|
00000450: 52 50 52 54 00 74 31 77  01 20 53 45 43 3B 41 4E  |RPRT.t1w. SEC;AN|
00000460: 44 00 88 31 79 01 20 53  42 43 23 22 30 22 3B 54  |D..1y. SBC#"0";T|
00000470: 52 41 4E 53 2D 00 95 31  7A 01 20 43 4D 50 23 24  |RANS-..1z. CMP#$|
00000480: 30 30 00 A2 31 7C 01 20  42 45 51 47 4F 4F 4E 00  |00..1|. BEQGOON.|
00000490: B3 31 7D 01 20 54 41 59  3B 46 4F 52 4D 20 49 54  |.1}. TAY;FORM IT|
000004A0: 00 BC 31 7E 01 20 43 4C  43 00 D0 31 7F 01 57 45  |..1~. CLC..1..WE|
000004B0: 49 54 45 52 20 4C 44 41  24 32 38 32 36 00 DC 31  |ITER LDA$2826..1|
000004C0: 81 01 20 41 44 43 23 31  30 00 EA 31 83 01 20 53  |.. ADC#10..1.. S|
000004D0: 54 41 24 32 38 32 36 00  F3 31 85 01 20 44 45 59  |TA$2826..1.. DEY|
000004E0: 00 02 32 87 01 20 42 4E  45 57 45 49 54 45 52 00  |..2.. BNEWEITER.|
000004F0: 11 32 89 01 47 4F 4F 4E  20 4A 53 52 53 50 00 1D  |.2..GOON JSRSP..|
00000500: 32 8A 01 20 4A 53 52 50  52 54 00 26 32 8B 01 20  |2.. JSRPRT.&2.. |
00000510: 53 45 43 00 33 32 8C 01  20 53 42 43 23 22 30 22  |SEC.32.. SBC#"0"|
00000520: 00 3C 32 8D 01 20 43 4C  43 00 4A 32 8E 01 20 41  |.<2.. CLC.J2.. A|
00000530: 44 43 24 32 38 32 36 00  58 32 8F 01 20 53 54 41  |DC$2826.X2.. STA|
00000540: 24 32 38 32 36 00 65 32  90 01 20 43 4D 50 23 24  |$2826.e2.. CMP#$|
00000550: 30 30 00 72 32 91 01 20  42 4E 45 53 41 56 45 00  |00.r2.. BNESAVE.|
00000560: 84 32 92 01 20 4C 44 41  23 24 41 35 3B 41 4C 4C  |.2.. LDA#$A5;ALL|
00000570: 45 00 98 32 93 01 20 53  54 41 24 32 38 32 35 3B  |E..2.. STA$2825;|
00000580: 4C 41 55 46 2D 00 AB 32  94 01 20 4C 44 41 23 24  |LAUF-..2.. LDA#$|
00000590: 42 41 3B 57 45 52 4B 45  00 B9 32 95 01 20 53 54  |BA;WERKE..2.. ST|
000005A0: 41 24 32 38 32 36 00 D2  32 96 01 53 41 56 45 20  |A$2826..2..SAVE |
000005B0: 4C 44 41 23 3C 28 54 58  33 29 3B 53 41 56 45 00  |LDA#<(TX3);SAVE.|
000005C0: E8 32 97 01 20 4C 44 59  23 3E 28 54 58 33 29 3B  |.2.. LDY#>(TX3);|
000005D0: 49 4E 50 55 54 00 F7 32  98 01 20 4A 53 52 53 54  |INPUT..2.. JSRST|
000005E0: 52 4F 55 54 00 05 33 99  01 53 50 32 20 4A 53 52  |ROUT..3..SP2 JSR|
000005F0: 53 50 00 1A 33 9A 01 20  4C 44 58 23 24 30 38 3B  |SP..3.. LDX#$08;|
00000600: 53 41 56 45 20 49 54 00  27 33 A4 01 20 4C 44 59  |SAVE IT.'3.. LDY|
00000610: 23 24 30 31 00 35 33 AE  01 20 4A 53 52 24 46 46  |#$01.53.. JSR$FF|
00000620: 42 41 00 42 33 B8 01 20  4C 44 41 23 24 30 41 00  |BA.B3.. LDA#$0A.|
00000630: 53 33 C2 01 20 4C 44 58  23 3C 28 4E 41 4D 45 29  |S3.. LDX#<(NAME)|
00000640: 00 64 33 CC 01 20 4C 44  59 23 3E 28 4E 41 4D 45  |.d3.. LDY#>(NAME|
00000650: 29 00 78 33 E0 01 20 4A  53 52 24 46 46 42 44 3B  |).x3.. JSR$FFBD;|
00000660: 42 45 47 49 4E 00 8B 33  EA 01 20 4C 44 58 23 24  |BEGIN..3.. LDX#$|
00000670: 30 31 3B 24 30 38 30 31  00 98 33 F4 01 20 4C 44  |01;$0801..3.. LD|
00000680: 59 23 24 30 38 00 A4 33  FE 01 20 53 54 58 24 46  |Y#$08..3.. STX$F|
00000690: 42 00 B0 33 08 02 20 53  54 59 24 46 43 00 C5 33  |B..3.. STY$FC..3|
000006A0: 12 02 20 4C 44 41 23 24  46 42 3B 41 4E 44 20 45  |.. LDA#$FB;AND E|
000006B0: 4E 44 00 D7 33 1C 02 20  4C 44 58 24 41 45 3B 24  |ND..3.. LDX$AE;$|
000006C0: 33 46 30 30 00 E3 33 26  02 20 4C 44 59 24 41 46  |3F00..3&. LDY$AF|
000006D0: 00 F5 33 30 02 20 4A 53  52 24 46 46 44 38 3B 53  |..30. JSR$FFD8;S|
000006E0: 45 54 00 FE 33 BB 02 20  52 54 53 00 16 34 BC 02  |ET..3.. RTS..4..|
000006F0: 53 50 20 4C 44 41 23 24  30 30 3B 47 45 54 20 43  |SP LDA#$00;GET C|
00000700: 4F 44 45 00 2B 34 BD 02  20 4C 44 59 23 24 46 46  |ODE.+4.. LDY#$FF|
00000710: 3B 57 41 49 54 20 31 2E  00 3D 34 BE 02 44 4F 57  |;WAIT 1..=4..DOW|
00000720: 4E 32 20 4C 44 58 23 24  46 46 00 4A 34 BF 02 44  |N2 LDX#$FF.J4..D|
00000730: 4F 57 4E 20 44 45 58 00  57 34 C0 02 20 42 4E 45  |OWN DEX.W4.. BNE|
00000740: 44 4F 57 4E 00 60 34 C1  02 20 44 45 59 00 6E 34  |DOWN.`4.. DEY.n4|
00000750: C2 02 20 42 4E 45 44 4F  57 4E 32 00 82 34 C6 02  |.. BNEDOWN2..4..|
00000760: 53 50 41 43 45 20 4A 53  52 53 43 4E 4B 45 59 00  |SPACE JSRSCNKEY.|
00000770: 90 34 C7 02 20 4A 53 52  47 45 54 49 4E 00 9D 34  |.4.. JSRGETIN..4|
00000780: C8 02 20 43 4D 50 23 24  30 30 00 AB 34 C9 02 20  |.. CMP#$00..4.. |
00000790: 42 45 51 53 50 41 43 45  00 B4 34 E7 03 20 52 54  |BEQSPACE..4.. RT|
000007A0: 53 00 CD 34 D0 07 4E 41  4D 45 20 2E 54 58 22 45  |S..4..NAME .TX"E|
000007B0: 44 44 49 53 43 41 4E 2E  50 22 00 DE 34 EE 07 54  |DDISCAN.P"..4..T|
000007C0: 58 32 20 2E 42 59 31 33  2C 31 33 00 0B 35 F8 07  |X2 .BY13,13..5..|
000007D0: 20 2E 54 58 22 4E 45 55  45 20 C1 44 52 45 53 53  | .TX"NEUE .DRESS|
000007E0: 45 20 28 39 20 41 4C 53  20 30 39 20 45 49 4E 47  |E (9 ALS 09 EING|
000007F0: 45 42 45 4E 29 3A 20 22  00 15 35 02 08 20 2E 42  |EBEN): "..5.. .B|
00000800: 59 30 00 26 35 20 08 54  58 33 20 2E 42 59 31 33  |Y0.&5 .TX3 .BY13|
00000810: 2C 31 33 00 4B 35 2A 08  20 2E 54 58 22 DA 49 45  |,13.K5*. .TX".IE|
00000820: 4C 44 49 53 4B 45 54 54  45 20 49 4E 20 CC 41 55  |LDISKETTE IN .AU|
00000830: 46 57 45 52 4B 20 38 22  00 58 35 34 08 20 2E 42  |FWERK 8".X54. .B|
00000840: 59 31 33 2C 30 00 78 35  3E 08 44 41 54 41 20 2E  |Y13,0.x5>.DATA .|
00000850: 42 59 24 41 39 2C 24 30  38 2C 24 41 36 2C 24 34  |BY$A9,$08,$A6,$4|
00000860: 41 2C 24 41 30 00 94 35  48 08 20 2E 42 59 24 30  |A,$A0..5H. .BY$0|
00000870: 30 2C 24 32 30 2C 24 42  41 2C 24 46 46 2C 24 41  |0,$20,$BA,$FF,$A|
00000880: 32 00 B0 35 52 08 20 2E  42 59 24 44 42 2C 24 41  |2..5R. .BY$DB,$A|
00000890: 30 2C 24 32 38 2C 24 41  39 2C 24 30 35 00 C4 35  |0,$28,$A9,$05..5|
000008A0: 5C 08 20 2E 42 59 24 32  30 2C 24 42 44 2C 24 46  |\. .BY$20,$BD,$F|
000008B0: 46 00 E4 35 98 08 48 45  41 44 20 2E 54 58 22 93  |F..5..HEAD .TX".|
000008C0: 0E 05 C5 53 43 41 4E 50  41 54 43 48 20 31 2E 30  |...SCANPATCH 1.0|
000008D0: 22 00 EF 35 9D 08 20 2E  42 59 31 33 00 08 36 9E  |"..5.. .BY13..6.|
000008E0: 08 20 2E 54 58 22 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |. .TX"..........|
000008F0: A3 A3 A3 A3 22 00 16 36  9F 08 20 2E 42 59 31 33  |...."..6.. .BY13|
00000900: 2C 31 33 00 4A 36 A2 08  54 58 31 20 2E 54 58 22  |,13.J6..TX1 .TX"|
00000910: 9A C4 49 53 4B 45 54 54  45 20 4D 49 54 20 27 45  |..ISKETTE MIT 'E|
00000920: 44 44 49 53 43 41 4E 27  20 49 4E 20 CC 41 55 46  |DDISCAN' IN .AUF|
00000930: 57 45 52 4B 20 38 22 00  57 36 AC 08 20 2E 42 59  |WERK 8".W6.. .BY|
00000940: 31 33 2C 30 00 00 00                              |13,0...         |
.-:-..;--------------------------------.
]-..; PATCH-PROGRAMM FUER EDDISCAN..-..;
 MACHT STARTFAEHIGE VERSIONEN..-(.; FUER
 ANDERE GERAETEADRESSEN!.I-2.;----------
----------------------..-<.; (C) 1997 GO
64!..-F.; SVEN FRIEDRICHS...P.; GROSSE H
EIDE 47   31737 RINTELN.@.Z.; SWF:021219
92     ESCANPATCH 1.0.F.[.;-------------
-------------------.L.C.;.Z.D. .BA$C000.
..N. .EQSCNKEY=$FF9F...O. .EQPRT=$E716..
.P. .EQGETIN=$FFE4.I.Q. .EQBASIN=$F157..
.R. .EQSTROUT=$AB1E...S. LDA#6...T. STA$
D020../U. STA$D021../..;."/.. LDA#<(HEAD
);QUELL.9/.. LDY#>(HEAD);INPUT.H/.. JSRS
TROUT.S/.. JSRSP.Y/..;.N/.. LDX#$08;GRT 
ADR../.. LDY#$00;SEK ADR../ . JSR$FFBA;S
ET../.. LDA#$08;LAENGE../.. LDX#<(NAME);
LOW.T/.. LDY#>(NAME);HIGH../H. JSR$FFBD;
SET../R. LDA#$00;LOAD..0.. LDX#$01;LOW A
DR."0.. LDY#$08;HIG ADR.80.. JSR$FFD5;LO
AD IT.D0.. STX$AE.P0.. STY$AF.V0..;.I0..
 LDY#26;MODIFY.|0..NOPFIL LDA#$EA..0". S
TA$2885,Y..0,. DEY..06. BNENOPFIL..0@. L
DY#17.C0J.NEWS LDADATA,Y.S0T. STA$28A0,Y
..0^. DEY..0H. BPLNEWS;NEW ADR..0M. LDA#
$00..1N. STA$2826..1Q.;."1R. LDA#<(TX2).
21S. LDY#>(TX2).I1T. JSRSTROUT;GET NEW.[
1U. JSRSP;ADRESS.G1V. JSRPRT.T1W. SEC;AN
D..1Y. SBC#"0";TRANS-..1Z. CMP#$00..1|. 
BEQGOON..1}. TAY;FORM IT..1~. CLC.P1.WE
ITER LDA$2826..1.. ADC#10..1.. STA$2826.
.1.. DEY..2.. BNEWEITER..2..GOON JSRSP..
2.. JSRPRT.&2.. SEC.32.. SBC#"0".<2.. CL
C.J2.. ADC$2826.X2.. STA$2826.E2.. CMP#$
00.R2.. BNESAVE..2.. LDA#$A5;ALLE..2.. S
TA$2825;LAUF-..2.. LDA#$BA;WERKE..2.. ST
A$2826.R2..SAVE LDA#<(TX3);SAVE..2.. LDY
#>(TX3);INPUT..2.. JSRSTROUT..3..SP2 JSR
SP..3.. LDX#$08;SAVE IT.'3.. LDY#$01.53.
. JSR$FFBA.B3.. LDA#$0A.S3B. LDX#<(NAME)
.D3L. LDY#>(NAME).X3.. JSR$FFBD;BEGIN..3
.. LDX#$01;$0801..3.. LDY#$08..3.. STX$F
B..3.. STY$FC.E3.. LDA#$FB;AND END.W3.. 
LDX$AE;$3F00..3&. LDY$AF..30. JSR$FFD8;S
ET..3.. RTS..4..SP LDA#$00;GET CODE.+4..
 LDY#$FF;WAIT 1..=4..DOWN2 LDX#$FF.J4..D
OWN DEX.W4.. BNEDOWN.`4A. DEY.N4B. BNEDO
WN2..4F.SPACE JSRSCNKEY..4G. JSRGETIN..4
H. CMP#$00..4I. BEQSPACE..4.. RTS.M4P.NA
ME .TX"EDDISCAN.P"..4..TX2 .BY13,13..5..
 .TX"NEUE ADRESSE (9 ALS 09 EINGEBEN): "
..5.. .BY0.&5 .TX3 .BY13,13.K5*. .TX"ZIE
LDISKETTE IN LAUFWERK 8".X54. .BY13,0.X5
>.DATA .BY$A9,$08,$A6,$4A,$A0..5H. .BY$0
0,$20,$BA,$FF,$A2..5R. .BY$DB,$A0,$28,$A
9,$05.D5\. .BY$20,$BD,$FF..5..HEAD .TX".
..ESCANPATCH 1.0"..5.. .BY13..6.. .TX"..
............"..6.. .BY13,13.J6..TX1 .TX"
.DISKETTE MIT 'EDDISCAN' IN LAUFWERK 8".
W6.. .BY13,0...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL