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

ROUTINE

FILE INFORMATION

FILENAME(S): ROUTINE

FILE TYPE(S): PRG

FILE SIZE: 394b

FIRST SEEN: 2025-12-01 13:51:32

APPEARS ON: 1 disk(s)

FILE HASH

8607ed5eab9fde5b89585a7202171b637c6a8ce3edba667d4e6cda8aa89f30f6

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
METALLICA ROUTINE PRG hedning, The Viking 12 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2B 08 0A 00 8F 20  44 49 45 53 45 53 20 50  |..+.... DIESES P|
00000010: 52 4F 47 52 41 4D 4D 20  41 4E 20 4F 52 49 47 49  |ROGRAMM AN ORIGI|
00000020: 4E 41 4C 20 48 41 45 4E  47 45 4E 00 68 08 14 00  |NAL HAENGEN.h...|
00000030: 8F 20 46 55 45 4E 46 20  44 4F 50 50 45 4C 50 55  |. FUENF DOPPELPU|
00000040: 4E 4B 54 45 20 41 4E 20  4A 45 44 45 20 5A 55 20  |NKTE AN JEDE ZU |
00000050: 53 43 48 55 45 54 5A 45  4E 44 45 20 5A 45 49 4C  |SCHUETZENDE ZEIL|
00000060: 45 20 53 45 54 5A 45 4E  00 AB 08 1E 00 8F 20 44  |E SETZEN...... D|
00000070: 41 4E 4E 20 27 52 55 4E  36 30 30 30 30 27 20 53  |ANN 'RUN60000' S|
00000080: 43 48 52 45 49 42 45 4E  2E 57 45 4E 4E 20 46 45  |CHREIBEN.WENN FE|
00000090: 52 54 49 47 20 44 41 4E  4E 20 44 45 4C 45 54 45  |RTIG DANN DELETE|
000000A0: 36 30 30 30 30 2D 36 30  31 31 30 00 B5 08 60 EA  |60000-60110...`.|
000000B0: 4C 49 B2 34 33 00 CE 08  6A EA 4C 49 B2 C2 28 4C  |LI.43...j.LI..(L|
000000C0: 49 29 AA 32 35 36 AC C2  28 4C 49 AA 31 29 00 E5  |I).256..(LI.1)..|
000000D0: 08 74 EA 8B 4C 49 B2 30  A7 99 22 46 45 52 54 49  |.t..LI.0.."FERTI|
000000E0: 47 21 22 3A 80 00 0E 09  7E EA 99 C7 28 31 34 35  |G!":....~...(145|
000000F0: 29 3B 22 50 41 53 53 20  22 3B C2 28 42 41 AA 32  |);"PASS ";.(BA.2|
00000100: 29 AA 32 35 36 AC C2 28  42 41 AA 33 29 3B 00 16  |).256..(BA.3);..|
00000110: 09 88 EA 99 58 24 00 20  09 92 EA 42 41 B2 4C 49  |....X$. ...BA.LI|
00000120: 00 2B 09 9C EA 81 58 B2  34 A4 38 00 49 09 A6 EA  |.+....X.4.8.I...|
00000130: 8B C2 28 4C 49 AA 58 29  B3 B1 C6 28 22 3A 22 29  |..(LI.X)...(":")|
00000140: A7 58 B2 38 3A 46 4C B2  31 00 50 09 B0 EA 82 58  |.X.8:FL.1.P....X|
00000150: 00 66 09 BA EA 8B 46 4C  B2 31 A7 46 4C B2 30 3A  |.f....FL.1.FL.0:|
00000160: 89 36 30 30 31 30 00 7C  09 C4 EA 97 4C 49 AA 34  |.60010.|....LI.4|
00000170: 2C 30 3A 58 24 B2 58 24  AA 22 2A 22 00 87 09 CE  |,0:X$.X$."*"....|
00000180: EA 89 36 30 30 31 30 00  00 00                    |..60010...      |

..+.... DIESES PROGRAMM AN ORIGINAL HAEN
GEN.H.... FUENF DOPPELPUNKTE AN JEDE ZU 
SCHUETZENDE ZEILE SETZEN...... DANN 'RUN
60000' SCHREIBEN.WENN FERTIG DANN DELETE
60000-60110...`.LI.43.N.J.LI.B(LI).256.B
(LI.1)...T..LI.0.."FERTIG!":....~..G(145
);"PASS ";B(BA.2).256.B(BA.3);......X$. 
...BA.LI.+....X.4.8.I....B(LI.X)..F(":")
.X.8:FL.1.P....X.F....FL.1.FL.0:.60010.|
.D..LI.4,0:X$.X$."*"...N..60010...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL