─ -> ─/ TRANS
FILE INFORMATION
FILENAME(S): ─ -> ─/ TRANS
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-10-20 14:30:06
APPEARS ON: 2 disk(s)
FILE HASH
23a2ecb6cea1c7a83d2de983e0f042138854976519bd06ab588054a7c868667d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10002 SEITE C | ─ -> ─/ TRANS | PRG | C64er, Treasure Chest - Klaus Der Suhler | 14 | 16 | DOWNLOAD FILE |
| 10002 SEITE C | ─ -> ─/ TRANS | PRG | DuncanTwain | 14 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1F 1C 0A 00 8F 20 4C 49 53 54 49 4E 47 20 |....... LISTING |
00000010: 33 20 20 20 20 4A 41 4E 55 53 20 56 32 2E 30 00 |3 JANUS V2.0.|
00000020: 34 1C 14 00 8F 20 43 3D 20 20 43 50 2F 4D 20 54 |4.... C= CP/M T|
00000030: 52 41 4E 53 00 5A 1C 1E 00 8F 20 4C 49 45 53 54 |RANS.Z.... LIEST|
00000040: 20 44 41 54 45 49 45 4E 20 56 4F 4E 20 44 49 53 | DATEIEN VON DIS|
00000050: 4B 45 54 54 45 4E 20 55 4E 44 00 85 1C 28 00 8F |KETTEN UND...(..|
00000060: 20 55 45 42 45 52 54 52 41 45 47 54 20 53 49 45 | UEBERTRAEGT SIE|
00000070: 20 49 4E 20 44 45 4E 20 43 50 2F 4D 20 53 50 45 | IN DEN CP/M SPE|
00000080: 49 43 48 45 52 00 B5 1C 32 00 8F 20 45 49 4E 20 |ICHER...2.. EIN |
00000090: 50 52 4F 47 52 41 4D 4D 20 56 4F 4E 20 4F 4C 41 |PROGRAMM VON OLA|
000000A0: 46 20 4B 55 42 49 54 5A 2C 20 42 45 52 4C 49 4E |F KUBITZ, BERLIN|
000000B0: 20 31 39 38 39 00 BB 1C 3C 00 8F 00 C3 1C 46 00 | 1989...<.....F.|
000000C0: FE 02 30 00 E1 1C 50 00 8B 20 C2 28 D1 28 22 35 |..0...P.. .(.("5|
000000D0: 30 30 30 22 29 29 20 B3 B1 20 37 36 20 A7 20 FE |000")) .. 76 . .|
000000E0: 18 00 1C 1D 5A 00 99 22 C4 49 53 4B 45 54 54 45 |....Z..".ISKETTE|
000000F0: 20 4D 49 54 20 CA 41 4E 55 53 2D D0 52 4F 47 52 | MIT .ANUS-.ROGR|
00000100: 41 4D 4D 20 45 49 4E 4C 45 47 45 4E 20 21 20 3C |AMM EINLEGEN ! <|
00000110: D4 41 53 54 45 3E 22 3A A1 F9 57 24 00 24 1D 64 |.ASTE>":..W$.$.d|
00000120: 00 FE 02 30 00 3F 1D 6E 00 FE 11 20 22 4A 41 4E |...0.?.n... "JAN|
00000130: 55 53 20 56 32 2E 30 20 50 52 47 22 2C 42 30 00 |US V2.0 PRG",B0.|
00000140: 5B 1D 78 00 FE 11 22 4A 41 4E 55 53 2D 46 55 4E |[.x..."JANUS-FUN|
00000150: 4B 54 41 53 54 45 4E 22 2C 42 30 00 65 1D 82 00 |KTASTEN",B0.e...|
00000160: FE 02 20 31 35 00 81 1D 8C 00 FE 1B 20 22 4A 41 |.. 15....... "JA|
00000170: 4E 55 53 20 56 32 2E 30 20 42 41 53 22 2C 42 31 |NUS V2.0 BAS",B1|
00000180: 35 00 9C 1D 96 00 FE 11 22 4A 41 4E 55 53 20 56 |5......."JANUS V|
00000190: 32 2E 30 20 44 52 4F 50 22 2C 42 30 00 A3 1D A0 |2.0 DROP",B0....|
000001A0: 00 FE 19 00 C0 1D AA 00 8F 20 4C 49 53 54 49 4E |......... LISTIN|
000001B0: 47 20 33 20 56 4F 4E 20 4A 41 4E 55 53 2D 4F 4B |G 3 VON JANUS-OK|
000001C0: 00 C6 1D AF 00 8F 00 09 1E B4 00 4D 58 20 B2 20 |...........MX . |
000001D0: D1 28 22 33 39 22 29 3A 20 97 20 4D 58 2C 30 3A |.("39"): . MX,0:|
000001E0: 97 20 4D 58 AA 31 2C 20 D1 28 22 32 35 22 29 3A |. MX.1, .("25"):|
000001F0: 20 9C 20 3A 8F 20 56 41 52 49 41 42 4C 45 4E 20 | . :. VARIABLEN |
00000200: 42 45 47 52 45 4E 5A 45 4E 00 3D 1E BE 00 41 B2 |BEGRENZEN.=...A.|
00000210: D1 28 22 32 35 30 30 22 29 3A 20 8F 20 41 4E 46 |.("2500"): . ANF|
00000220: 41 4E 47 20 53 50 45 49 43 48 45 52 42 45 52 45 |ANG SPEICHERBERE|
00000230: 49 43 48 20 46 55 45 52 20 43 50 2F 4D 00 72 1E |ICH FUER CP/M.r.|
00000240: C8 00 41 44 20 B2 20 D1 28 22 35 46 43 37 22 29 |..AD . .("5FC7")|
00000250: 3A 20 8F 20 41 4E 46 41 4E 47 20 44 49 52 4E 41 |: . ANFANG DIRNA|
00000260: 4D 45 20 41 55 53 20 4A 41 4E 55 53 4F 4B 20 28 |ME AUS JANUSOK (|
00000270: 43 29 00 89 1E D2 00 85 22 C4 41 54 45 49 4E 41 |C)......".ATEINA|
00000280: 4D 45 3A 20 22 3B 44 41 24 00 CE 1E DC 00 FE 30 |ME: ";DA$......0|
00000290: 20 4D 37 2C 28 44 41 24 29 3A 44 24 B2 22 22 20 | M7,(DA$):D$."" |
000002A0: 3A 20 8F 20 44 41 54 45 49 4E 41 4D 45 4E 20 41 |: . DATEINAMEN A|
000002B0: 55 53 57 45 52 54 45 4E 20 55 4E 44 20 4E 41 43 |USWERTEN UND NAC|
000002C0: 48 20 41 44 20 53 43 48 52 45 49 42 45 4E 00 D6 |H AD SCHREIBEN..|
000002D0: 1E E6 00 FE 02 30 00 38 1F F0 00 81 20 49 B2 30 |.....0.8.... I.0|
000002E0: 20 A4 20 37 3A 44 24 B2 44 24 AA C7 28 C2 28 41 | . 7:D$.D$..(.(A|
000002F0: 44 AA 49 29 29 3A 82 3A 44 24 B2 44 24 AA 22 2E |D.I)):.:D$.D$.".|
00000300: 22 3A 81 49 B2 38 A4 31 30 3A 44 24 B2 44 24 AA |":.I.8.10:D$.D$.|
00000310: C7 28 C2 28 41 44 AA 49 29 29 3A 82 20 20 20 20 |.(.(AD.I)):. |
00000320: 3A 20 20 8F 20 44 41 54 45 49 4E 41 4D 45 4E 20 |: . DATEINAMEN |
00000330: 41 55 53 4C 45 53 45 4E 00 42 1F FA 00 8F 20 2A |AUSLESEN.B.... *|
00000340: 2A 2A 00 78 1F 04 01 44 24 B2 22 4C 20 2D 20 22 |**.x...D$."L - "|
00000350: AA 44 24 20 3A 20 8F 20 4E 41 4D 45 4E 20 4D 49 |.D$ : . NAMEN MI|
00000360: 54 20 4B 45 4E 4E 5A 45 49 43 48 4E 55 4E 47 20 |T KENNZEICHNUNG |
00000370: 56 45 52 53 45 48 45 4E 00 B3 1F 0E 01 FE 02 31 |VERSEHEN.......1|
00000380: 3A FE 11 20 28 44 24 29 2C 50 28 41 29 20 20 20 |:.. (D$),P(A) |
00000390: 20 20 3A 20 8F 20 50 52 4F 47 52 41 4D 4D 20 41 | : . PROGRAMM A|
000003A0: 4E 20 44 49 45 20 41 44 52 45 53 53 45 20 4C 41 |N DIE ADRESSE LA|
000003B0: 44 45 4E 00 ED 1F 18 01 9F 34 2C 34 2C 37 3A 98 |DEN......4,4,7:.|
000003C0: 34 2C 44 41 24 2C 20 41 2C 20 3A 20 8F 20 4E 41 |4,DA$, A, : . NA|
000003D0: 4D 45 4E 20 55 4E 44 20 53 54 41 52 54 41 44 52 |MEN UND STARTADR|
000003E0: 45 53 53 45 20 41 55 53 47 45 42 45 4E 00 F7 1F |ESSE AUSGEBEN...|
000003F0: 22 01 8F 20 2A 2A 2A 00 27 20 2C 01 41 31 B2 C2 |".. ***.' ,.A1..|
00000400: 28 31 37 35 29 AC 32 35 36 AA 20 C2 28 31 37 34 |(175).256. .(174|
00000410: 29 3A 8B 20 41 31 B1 B2 20 D1 28 22 45 39 44 32 |):. A1.. .("E9D2|
00000420: 22 29 20 A7 20 FE 18 00 6F 20 36 01 99 22 20 C4 |") . ...o 6.." .|
00000430: 49 45 20 C4 41 54 45 49 20 22 3B 44 41 24 3B 22 |IE .ATEI ";DA$;"|
00000440: 20 50 41 53 53 54 20 4E 49 43 48 54 20 4D 45 48 | PASST NICHT MEH|
00000450: 52 20 56 4F 4C 4C 4B 4F 4D 4D 45 4E 20 49 4E 20 |R VOLLKOMMEN IN |
00000460: 44 45 4E 20 D3 50 45 49 43 48 45 52 20 21 22 00 |DEN .PEICHER !".|
00000470: C3 20 40 01 99 22 07 0F C5 CE C4 C5 22 3A 98 34 |. @.."......":.4|
00000480: 3A A0 34 3A FE 19 3A 90 20 20 20 3A 20 8F 20 45 |:.4:..:. : . E|
00000490: 4E 44 41 44 52 45 53 53 45 20 42 45 52 45 43 48 |NDADRESSE BERECH|
000004A0: 4E 45 4E 20 55 4E 44 20 41 55 46 20 55 45 42 45 |NEN UND AUF UEBE|
000004B0: 52 53 43 48 52 45 49 54 55 4E 47 20 50 52 55 45 |RSCHREITUNG PRUE|
000004C0: 46 45 4E 00 06 21 4A 01 98 34 2C 41 31 3A 41 B2 |FEN..!J..4,A1:A.|
000004D0: 41 31 3A 41 B2 41 AA 31 3A A0 34 20 20 3A 20 8F |A1:A.A.1:.4 : .|
000004E0: 20 45 4E 44 41 44 52 45 53 53 45 20 41 55 53 47 | ENDADRESSE AUSG|
000004F0: 45 42 45 4E 20 55 4E 44 20 4E 45 55 45 20 53 54 |EBEN UND NEUE ST|
00000500: 41 52 54 41 44 2E 00 3D 21 54 01 99 22 11 CE 4F |ARTAD..=!T.."..O|
00000510: 43 48 20 45 49 4E 45 20 C4 41 54 45 49 20 4C 41 |CH EINE .ATEI LA|
00000520: 44 45 4E 3F 20 22 3A A1 F9 20 58 58 24 3A 8B 20 |DEN? ":.. XX$:. |
00000530: 58 58 24 B2 22 4A 22 20 A7 20 32 30 30 00 43 21 |XX$."J" . 200.C!|
00000540: 5E 01 80 00 00 00 |^..... |
....... LISTING 3 JANUS V2.0.4.... C=
CP/M TRANS.Z.... LIEST DATEIEN VON DIS
KETTEN UND...(.. UEBERTRAEGT SIE IN DEN
CP/M SPEICHER...2.. EIN PROGRAMM VON OLA
F KUBITZ, BERLIN 1989...<...C.F...0...P.
. B(Q("5000")) .. 76 . .....Z.."DISKETTE
MIT JANUS-PROGRAMM EINLEGEN ! <TASTE>":
..W$.$.D...0.?.N... "JANUS V2.0 PRG",B0.
[.X..."JANUS-FUNKTASTEN",B0.E..... 15...
.... "JANUS V2.0 BAS",B15......."JANUS V
2.0 DROP",B0... ......... LISTING 3 VON
JANUS-OK.F.........MX . Q("39"): . MX,0:
. MX.1, Q("25"): . :. VARIABLEN BEGRENZE
N.=...A.Q("2500"): . ANFANG SPEICHERBERE
ICH FUER CP/M.R.H.AD . Q("5FC7"): . ANFA
NG DIRNAME AUS JANUSOK (C)...R.."DATEINA
ME: ";DA$.N....0 M7,(DA$):D$."" : . DATE
INAMEN AUSWERTEN UND NACH AD SCHREIBEN.V
.....0.8.... I.0 . 7:D$.D$.G(B(AD.I)):.:
D$.D$.".":.I.8.10:D$.D$.G(B(AD.I)):.
: . DATEINAMEN AUSLESEN.B.... ***.X...D
$."L - ".D$ : . NAMEN MIT KENNZEICHNUNG
VERSEHEN.......1:.. (D$),P(A) : . PR
OGRAMM AN DIE ADRESSE LADEN......4,4,7:.
4,DA$, A, : . NAMEN UND STARTADRESSE AUS
GEBEN...".. ***.' ,.A1.B(175).256. B(174
):. A1.. Q("E9D2") . ...O 6.." DIE DATEI
";DA$;" PASST NICHT MEHR VOLLKOMMEN IN
DEN SPEICHER !".C @.."..ENDE":.4: 4:..:.
: . ENDADRESSE BERECHNEN UND AUF UEBE
RSCHREITUNG PRUEFEN..!J..4,A1:A.A1:A.A.1
: 4 : . ENDADRESSE AUSGEBEN UND NEUE ST
ARTAD..=!T..".NOCH EINE DATEI LADEN? ":.
. XX$:. XX$."J" . 200.C!^.....
> CLICK IMAGE PREVIEW FOR FULL MODAL