DISK-TAPE-COPY
FILE INFORMATION
FILENAME(S): DISK-TAPE-COPY
FILE TYPE(S): PRG
FILE SIZE: 1016b
FIRST SEEN: 2025-11-30 15:52:04
APPEARS ON: 1 disk(s)
FILE HASH
be03b8a4486884b93eb660e924eb06b99afd0ead119272c79d65958fd3cbd00f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MDG 31 7 73 | DISK-TAPE-COPY | PRG | Belgium | 8 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$....*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 00 47 08 02 00 8F 2A 2A 2A 2A 28 43 |****.G....****(C| 00000030: 29 20 42 45 52 4E 44 20 42 41 55 53 45 20 20 31 |) BERND BAUSE 1| 00000040: 39 38 33 2A 2A 2A 2A 00 6A 08 03 00 8F 2A 2A 2A |983****.j....***| 00000050: 2A 20 20 20 54 45 4C 2E 30 34 30 2F 38 36 32 37 |* TEL.040/8627| 00000060: 37 31 20 20 20 20 2A 2A 2A 2A 00 8D 08 04 00 8F |71 ****......| 00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 08 |*************...| 00000090: 05 00 8F 20 50 52 47 20 5A 55 4D 20 41 55 54 4F |... PRG ZUM AUTO| 000000A0: 4D 41 54 49 53 43 48 45 4E 20 4B 4F 50 49 45 52 |MATISCHEN KOPIER| 000000B0: 45 4E 00 D2 08 06 00 8F 20 20 20 20 20 56 4F 4E |EN...... VON| 000000C0: 20 44 49 53 4B 20 41 55 46 20 4B 41 53 53 45 54 | DISK AUF KASSET| 000000D0: 54 45 00 DF 08 0A 00 41 44 B2 34 39 31 35 32 00 |TE.....AD.49152.| 000000E0: 04 09 14 00 97 35 36 2C 31 32 30 3A 59 B2 30 3A |.....56,120:Y.0:| 000000F0: 50 B2 33 30 37 32 30 3A 43 24 B2 C7 28 33 34 29 |P.30720:C$..(34)| 00000100: 3A 99 22 93 00 24 09 19 00 9F 31 2C 30 3A 99 22 |:."..$....1,0:."| 00000110: 11 50 47 4D 2D 4E 41 4D 45 20 2F 20 45 4E 44 20 |.PGM-NAME / END | 00000120: 3E 20 22 3B 00 35 09 1E 00 84 31 2C 4E 4D 24 3A |> ";.5....1,NM$:| 00000130: A0 31 3A 99 22 00 47 09 28 00 8B 4E 4D 24 B2 22 |.1:.".G.(..NM$."| 00000140: 45 4E 44 22 A7 38 30 00 7E 09 32 00 81 49 B2 31 |END".80.~.2..I.1| 00000150: A4 31 39 3A 58 B2 C6 28 CA 28 4E 4D 24 AA 43 24 |.19:X..(.(NM$.C$| 00000160: AA 22 2C 38 3A 20 20 20 20 20 20 20 20 20 20 20 |.",8: | 00000170: 20 20 20 20 20 20 20 22 2C 49 2C 31 29 29 00 99 | ",I,1))..| 00000180: 09 3C 00 58 B2 58 AA 28 58 B1 36 34 29 AC 36 34 |.<.X.X.(X.64).64| 00000190: 3A 97 50 AA 49 2C 58 3A 82 00 AE 09 46 00 59 B2 |:.P.I,X:....F.Y.| 000001A0: 59 AA 31 3A 50 B2 50 AA 31 39 3A 89 32 35 00 BD |Y.1:P.P.19:.25..| 000001B0: 09 50 00 97 32 2C 30 3A 97 41 44 2C 59 00 E8 09 |.P..2,0:.AD,Y...| 000001C0: 5A 00 99 22 11 11 11 11 50 52 45 53 53 20 52 45 |Z.."....PRESS RE| 000001D0: 43 2B 50 4C 41 59 2C 44 41 4E 4E 20 54 41 53 54 |C+PLAY,DANN TAST| 000001E0: 45 20 53 50 41 43 45 22 00 FB 09 64 00 A1 41 24 |E SPACE"...d..A$| 000001F0: 3A 8B 41 24 B2 22 22 A7 31 30 30 00 48 0A 6E 00 |:.A$."".100.H.n.| 00000200: 99 22 93 41 3D 33 30 37 32 30 2B 50 45 45 4B 28 |.".A=30720+PEEK(| 00000210: 32 29 2A 31 39 3A 50 4F 4B 45 32 2C 50 45 45 4B |2)*19:POKE2,PEEK| 00000220: 28 32 29 2B 31 3A 50 4F 4B 45 35 33 32 38 31 2C |(2)+1:POKE53281,| 00000230: 31 3A 41 44 3D 34 39 31 35 32 3A 42 3D 31 33 35 |1:AD=49152:B=135| 00000240: 30 3A 43 3D 31 35 35 30 00 92 0A 82 00 99 22 11 |0:C=1550......".| 00000250: 11 46 4F 52 49 3D 31 54 4F 31 39 3A 58 3D 50 45 |.FORI=1TO19:X=PE| 00000260: 45 4B 28 41 2B 49 29 3A 50 4F 4B 45 42 2B 49 2C |EK(A+I):POKEB+I,| 00000270: 58 3A 50 4F 4B 45 43 2B 49 2C 58 3A 43 3D 43 2B |X:POKEC+I,X:C=C+| 00000280: 28 58 3D 33 34 29 2A 31 39 38 3A 4E 45 58 54 3A |(X=34)*198:NEXT:| 00000290: 22 3B 00 AA 0A 87 00 99 22 50 4F 4B 45 41 44 2C |";......"POKEAD,| 000002A0: 50 45 45 4B 28 41 44 29 2D 31 00 BC 0A 8C 00 99 |PEEK(AD)-1......| 000002B0: 22 11 4C 4F 41 44 20 20 22 43 24 22 00 D1 0A 96 |".LOAD "C$"....| 000002C0: 00 99 22 11 11 11 11 53 41 56 45 20 20 22 43 24 |.."....SAVE "C$| 000002D0: 22 00 F8 0A 97 00 99 22 11 11 11 46 4F 52 49 3D |"......"...FORI=| 000002E0: 31 35 35 31 54 4F 31 35 37 30 3A 50 4F 4B 45 49 |1551TO1570:POKEI| 000002F0: 2C 33 32 3A 4E 45 58 54 00 41 0B A0 00 99 22 11 |,32:NEXT.A....".| 00000300: 11 49 46 50 45 45 4B 28 41 44 29 3E 30 54 48 45 |.IFPEEK(AD)>0THE| 00000310: 4E 46 4F 52 49 3D 36 33 32 54 4F 36 33 38 3A 50 |NFORI=632TO638:P| 00000320: 4F 4B 45 49 2C 31 33 3A 4E 45 58 54 3A 50 4F 4B |OKEI,13:NEXT:POK| 00000330: 45 36 33 31 2C 31 39 3A 50 4F 4B 45 31 39 38 2C |E631,19:POKE198,| 00000340: 38 00 67 0B AA 00 81 49 B2 36 33 32 A4 36 33 38 |8.g....I.632.638| 00000350: 3A 97 49 2C 31 33 3A 82 3A 97 36 33 31 2C 31 39 |:.I,13:.:.631,19| 00000360: 3A 97 31 39 38 2C 38 00 00 00 20 20 20 20 20 20 |:.198,8... | 00000370: 20 20 20 22 2C 49 2C 31 29 29 00 99 09 3C 00 58 | ",I,1))...<.X| 00000380: B2 58 AA 28 58 B1 36 34 29 AC 36 34 3A 97 50 AA |.X.(X.64).64:.P.| 00000390: 49 2C 58 3A 82 00 AE 09 46 00 59 B2 59 AA 31 3A |I,X:....F.Y.Y.1:| 000003A0: 50 B2 50 AA 31 39 3A 89 32 35 00 BD 09 50 00 97 |P.P.19:.25...P..| 000003B0: 32 2C 30 3A 97 41 44 2C 59 00 E8 09 5A 00 99 22 |2,0:.AD,Y...Z.."| 000003C0: 11 11 11 11 50 52 45 53 53 20 52 45 43 2B 50 4C |....PRESS REC+PL| 000003D0: 41 59 2C 44 41 4E 4E 20 54 41 53 54 45 20 53 50 |AY,DANN TASTE SP| 000003E0: 41 43 45 22 00 FB 09 64 00 A1 41 24 3A 8B 41 24 |ACE"...d..A$:.A$| 000003F0: B2 22 22 A7 31 82 FF 0A |."".1... |
..$....*****************************.G..
..****(C) BERND BAUSE 1983****.J....***
* TEL.040/862771 ****......********
*********************...... PRG ZUM AUTO
MATISCHEN KOPIEREN.R.... VON DISK AU
F KASSETTE.....AD.49152......56,120:Y.0:
P.30720:C$.G(34):."..$....1,0:.".PGM-NAM
E / END > ";.5....1,NM$: 1:.".G.(..NM$."
END".80.~.2..I.1.19:X.F(J(NM$.C$.",8:
",I,1))...<.X.X.(X.64).64
:.P.I,X:....F.Y.Y.1:P.P.19:.25...P..2,0:
.AD,Y...Z.."....PRESS REC+PLAY,DANN TAST
E SPACE"...D..A$:.A$."".100.H.N..".A=307
20+PEEK(2)*19:POKE2,PEEK(2)+1:POKE53281,
1:AD=49152:B=1350:C=1550......"..FORI=1T
O19:X=PEEK(A+I):POKEB+I,X:POKEC+I,X:C=C+
(X=34)*198:NEXT:";......"POKEAD,PEEK(AD)
-1......".LOAD "C$".Q...."....SAVE "C$
"......"...FORI=1551TO1570:POKEI,32:NEXT
.A. .."..IFPEEK(AD)>0THENFORI=632TO638:P
OKEI,13:NEXT:POKE631,19:POKE198,8.G....I
.632.638:.I,13:.:.631,19:.198,8...
",I,1))...<.X.X.(X.64).64:.P.I,X:....
F.Y.Y.1:P.P.19:.25...P..2,0:.AD,Y...Z.."
....PRESS REC+PLAY,DANN TASTE SPACE"...D
..A$:.A$."".1...
> CLICK IMAGE PREVIEW FOR FULL MODAL