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

MAG ENTRY.64

FILE INFORMATION

FILENAME(S): MAG ENTRY.64

FILE TYPE(S): DEL

FILE SIZE: 811b

FIRST SEEN: 2025-11-30 18:12:05

APPEARS ON: 1 disk(s)

FILE HASH

63d5804906e1769daf2dc619d5a601c656433ed59f6624174ed379ca7e7e0c73

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 39 S 1 MAG ENTRY.64 DEL Sailor, Ganheden 29 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 34 30 33 32 3A 8F 20 43  4F 50 59 20 48 49 2D 52  |4032:. COPY HI-R|
00000010: 45 53 20 20 20 20 20 20  20 20 20 44 41 54 41 20  |ES         DATA |
00000020: 54 4F 20 53 50 52 49 54  45 20 31 20 44 41 54 41  |TO SPRITE 1 DATA|
00000030: 20 41 52 45 41 00 50 54  44 0C FE 16 20 31 2C 41  | AREA.PTD... 1,A|
00000040: 24 3A 41 24 B2 C8 28 41  24 2C 36 33 29 3A 8F 20  |$:A$..(A$,63):. |
00000050: 20 20 20 20 20 20 20 20  43 4F 50 59 20 44 41 54  |        COPY DAT|
00000060: 41 20 49 4E 20 53 50 52  49 54 45 20 31 20 41 52  |A IN SPRITE 1 AR|
00000070: 45 41 20 54 4F 20 41 24  00 B7 54 49 0C 41 24 B2  |EA TO A$..TI.A$.|
00000080: 4C 4C 24 AA 41 24 3A 8F  20 20 2B 43 48 52 24 28  |LL$.A$:.  +CHR$(|
00000090: 50 45 45 4B 28 50 45 45  4B 28 32 35 33 29 2B 50  |PEEK(PEEK(253)+P|
000000A0: 45 45 4B 28 32 35 34 29  2A 32 35 36 2D 31 29 29  |EEK(254)*256-1))|
000000B0: 3A 52 45 4D 20 41 44 44  20 41 4E 59 20 42 59 54  |:REM ADD ANY BYT|
000000C0: 45 53 20 20 20 20 20 20  20 20 20 4C 45 46 54 20  |ES         LEFT |
000000D0: 46 52 4F 4D 20 4C 41 53  54 20 47 52 4F 55 50 00  |FROM LAST GROUP.|
000000E0: 19 55 4E 0C 43 52 B2 D4  28 41 24 2C C7 28 31 33  |.UN.CR..(A$,.(13|
000000F0: 29 29 3A 54 24 28 48 4C  29 B2 C8 28 41 24 2C 43  |)):T$(HL)..(A$,C|
00000100: 52 29 3A 8B C8 28 54 24  28 48 4C 29 2C 33 29 B2  |R):..(T$(HL),3).|
00000110: 22 5E 55 3A 22 A7 48 4C  B2 48 4C AB 31 3A 8F 20  |"^U:".HL.HL.1:. |
00000120: 49 46 20 4C 49 4E 45 20  49 53 20 22 5E 55 3A 3F  |IF LINE IS "^U:?|
00000130: 3F 3F 3F 3F 22 2C 20 46  4F 52 47 45 54 20 49 54  |????", FORGET IT|
00000140: 21 00 55 55 58 0C 8B 28  C2 28 32 35 33 29 AA C2  |!.UUX..(.(253)..|
00000150: 28 32 35 34 29 AC 32 35  36 B1 B2 45 41 29 AF 43  |(254).256..EA).C|
00000160: 52 B2 2E A7 8E 3A 8F 20  43 48 45 43 4B 20 46 4F  |R....:. CHECK FO|
00000170: 52 20 45 4E 44 20 4F 46  20 46 49 4C 45 00 70 55  |R END OF FILE.pU|
00000180: 62 0C 8B 43 52 B2 C3 28  41 24 29 A7 4C 4C 24 B2  |b..CR..(A$).LL$.|
00000190: 22 22 3A 89 33 31 33 30  00 A6 55 6C 0C 41 24 B2  |"":.3130..Ul.A$.|
000001A0: C9 28 41 24 2C C3 28 41  24 29 AB 43 52 29 3A 8B  |.(A$,.(A$).CR):.|
000001B0: 28 D4 28 41 24 2C C7 28  31 33 29 29 B3 B1 2E 29  |(.(A$,.(13))...)|
000001C0: A7 48 4C B2 48 4C AA 31  3A 89 33 31 35 30 00 B7  |.HL.HL.1:.3150..|
000001D0: 55 76 0C 4C 4C 24 B2 41  24 3A 89 33 31 33 30 00  |Uv.LL$.A$:.3130.|
000001E0: BD 55 88 13 3A 00 D7 55  89 13 8F 20 20 20 47 45  |.U..:..U...   GE|
000001F0: 54 20 41 20 4B 45 59 20  52 4F 55 54 49 4E 45 00  |T A KEY ROUTINE.|
00000200: DD 55 8A 13 3A 00 F2 55  8D 13 A1 41 24 3A 8B 41  |.U..:..U...A$:.A|
00000210: 24 B3 B1 22 22 A7 35 30  33 30 00 08 56 92 13 8B  |$.."".5030..V...|
00000220: CF 28 32 29 B2 2E B0 4E  50 B2 2E A7 35 30 30 35  |.(2)...NP...5005|
00000230: 00 12 56 9C 13 89 35 30  37 30 00 31 56 A6 13 8B  |..V...5070.1V...|
00000240: 41 24 B2 22 11 22 AF 41  4E B3 48 4E AF 4E 50 A7  |A$.".".AN.HN.NP.|
00000250: 41 4E B2 41 4E AA 31 3A  8E 00 5F 56 B0 13 8B 28  |AN.AN.1:.._V...(|
00000260: 41 24 B2 22 91 22 B0 41  24 B2 22 1D 22 29 AF 41  |A$.".".A$.".").A|
00000270: 4E B1 31 AF 4E 50 A7 41  4E B2 41 4E AB 31 3A 41  |N.1.NP.AN.AN.1:A|
00000280: 24 B2 22 91 22 3A 8E 00  82 56 BA 13 8B 28 41 24  |$.".":...V...(A$|
00000290: B2 22 20 22 B0 41 24 B2  C7 28 31 33 29 29 AF 4E  |." ".A$..(13)).N|
000002A0: 50 A7 41 24 B2 22 20 22  3A 8E 00 97 56 BF 13 8B  |P.A$." ":...V...|
000002B0: 41 24 B2 22 05 22 B0 41  24 B2 22 02 22 A7 8E 00  |A$.".".A$."."...|
000002C0: A5 56 C4 13 8D 34 35 3A  89 35 30 31 30 00 BE 56  |.V...45:.5010..V|
000002D0: CE 13 8B CF 28 32 29 B2  31 A7 41 24 B2 22 91 22  |....(2).1.A$."."|
000002E0: 3A 89 35 30 34 30 00 D7  56 D8 13 8B CF 28 32 29  |:.5040..V....(2)|
000002F0: B2 35 A7 41 24 B2 22 11  22 3A 89 35 30 33 30 00  |.5.A$.".":.5030.|
00000300: F2 56 E2 13 8B CF 28 32  29 AF 31 32 38 A7 41 24  |.V....(2).128.A$|
00000310: B2 22 20 22 3A 89 35 30  35 30 00 00 57 E7 13 8D  |." ":.5050..W...|
00000320: 34 35 3A 89 35 30 30 35  00 00 00                 |45:.5005...     |

4032:. COPY HI-RES         DATA TO SPRIT
E 1 DATA AREA.PTD... 1,A$:A$.H(A$,63):. 
        COPY DATA IN SPRITE 1 AREA TO A$
..TI.A$.LL$.A$:.  +CHR$(PEEK(PEEK(253)+P
EEK(254)*256-1)):REM ADD ANY BYTES      
   LEFT FROM LAST GROUP..UN.CR.T(A$,G(13
)):T$(HL).H(A$,CR):.H(T$(HL),3)."^U:".HL
.HL.1:. IF LINE IS "^U:?????", FORGET IT
!.UUX..(B(253).B(254).256..EA).CR....:. 
CHECK FOR END OF FILE.PUB..CR.C(A$).LL$.
"":.3130..UL.A$.I(A$,C(A$).CR):.(T(A$,G(
13))...).HL.HL.1:.3150..UV.LL$.A$:.3130.
.U..:.WU...   GET A KEY ROUTINE..U..:..U
...A$:.A$.."".5030..V...O(2)...NP...5005
..V...5070.1V...A$.".".AN.HN.NP.AN.AN.1:
.._V...(A$.".".A$.".").AN.1.NP.AN.AN.1:A
$.".":...V...(A$." ".A$.G(13)).NP.A$." "
:...V...A$.".".A$."."....VD..45:.5010..V
N..O(2).1.A$.".":.5040.WVX..O(2).5.A$.".
":.5030..V...O(2).128.A$." ":.5050..W...
45:.5005...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL