COPY.SRC
FILE INFORMATION
FILENAME(S): COPY.SRC
FILE TYPE(S): PRG
FILE SIZE: 725b
FIRST SEEN: 2025-11-30 21:11:34
APPEARS ON: 1 disk(s)
FILE HASH
6e980275dd309649aa5b7a1c40b2ef65c3a588d268d0a98d8d63f4a86989472b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NOG UITZOEKEN | COPY.SRC | PRG | DuncanTwain | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 50 4E 54 3D 24 34 39 0D 4E 44 58 3D 24 33 39 0D |PNT=$49.NDX=$39.| 00000010: 20 50 52 49 4E 54 20 22 46 49 4C 45 20 4E 41 4D | PRINT "FILE NAM| 00000020: 45 3F 22 3B 0D 20 49 4E 50 55 54 20 4E 41 4D 45 |E?";. INPUT NAME| 00000030: 24 0D 20 50 52 49 4E 54 20 22 46 49 4C 45 20 54 |$. PRINT "FILE T| 00000040: 59 50 45 3F 22 3B 0D 20 49 4E 50 55 54 20 4C 49 |YPE?";. INPUT LI| 00000050: 4E 45 24 0D 20 4C 45 54 20 46 49 4C 45 54 59 50 |NE$. LET FILETYP| 00000060: 45 20 3D 20 4C 49 4E 45 0D 20 50 52 49 4E 54 20 |E = LINE. PRINT | 00000070: 22 49 4E 53 45 52 54 20 53 4F 55 52 43 45 20 44 |"INSERT SOURCE D| 00000080: 49 53 4B 22 0D 20 50 52 49 4E 54 20 22 50 52 45 |ISK". PRINT "PRE| 00000090: 53 53 20 52 45 54 55 52 4E 22 0D 20 49 4E 50 55 |SS RETURN". INPU| 000000A0: 54 20 4C 49 4E 45 24 0D 20 4F 50 45 4E 52 20 31 |T LINE$. OPENR 1| 000000B0: 20 2C 20 4E 41 4D 45 24 0D 20 4C 45 54 20 4E 44 | , NAME$. LET ND| 000000C0: 58 20 3D 20 23 3C 42 55 46 46 0D 20 4C 45 54 20 |X = #<BUFF. LET | 000000D0: 4E 44 58 2B 31 20 3D 20 23 3E 42 55 46 46 0D 20 |NDX+1 = #>BUFF. | 000000E0: 57 48 49 4C 45 20 53 54 41 54 55 53 20 3D 20 30 |WHILE STATUS = 0| 000000F0: 0D 20 20 47 45 54 20 2E 54 4D 50 0D 20 20 4C 44 |. GET .TMP. LD| 00000100: 59 20 23 30 20 3A 20 4C 45 54 20 28 4E 44 58 29 |Y #0 : LET (NDX)| 00000110: 2C 59 20 3D 20 54 4D 50 0D 20 20 4C 45 54 20 4E |,Y = TMP. LET N| 00000120: 44 58 20 3D 20 4E 44 58 20 2B 20 31 0D 20 20 4C |DX = NDX + 1. L| 00000130: 44 41 20 4E 44 58 2B 31 20 3A 20 41 44 43 20 23 |DA NDX+1 : ADC #| 00000140: 30 20 3A 20 53 54 41 20 4E 44 58 2B 31 0D 20 45 |0 : STA NDX+1. E| 00000150: 4E 44 57 48 49 4C 45 0D 20 4C 45 54 20 50 4E 54 |NDWHILE. LET PNT| 00000160: 20 3D 20 23 3C 42 55 46 46 0D 20 4C 45 54 20 50 | = #<BUFF. LET P| 00000170: 4E 54 2B 31 20 3D 20 23 3E 42 55 46 46 0D 20 43 |NT+1 = #>BUFF. C| 00000180: 4C 4F 53 45 20 31 20 3A 20 46 49 4C 45 20 30 0D |LOSE 1 : FILE 0.| 00000190: 20 50 52 49 4E 54 20 22 49 4E 53 45 52 54 20 44 | PRINT "INSERT D| 000001A0: 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 22 |ESTINATION DISK"| 000001B0: 0D 20 50 52 49 4E 54 20 22 50 52 45 53 53 20 52 |. PRINT "PRESS R| 000001C0: 45 54 55 52 4E 22 0D 20 49 4E 50 55 54 20 4C 49 |ETURN". INPUT LI| 000001D0: 4E 45 24 0D 20 4F 50 45 4E 57 20 31 20 2C 20 4E |NE$. OPENW 1 , N| 000001E0: 41 4D 45 24 0D 20 57 48 49 4C 45 0D 20 20 49 46 |AME$. WHILE. IF| 000001F0: 20 4E 44 58 20 3D 20 50 4E 54 20 54 48 45 4E 0D | NDX = PNT THEN.| 00000200: 20 20 20 49 46 20 4E 44 58 2B 31 20 3D 20 50 4E | IF NDX+1 = PN| 00000210: 54 2B 31 20 54 48 45 4E 0D 20 20 20 20 50 55 54 |T+1 THEN. PUT| 00000220: 20 30 20 3A 20 43 4C 4F 53 45 20 31 20 3A 20 46 | 0 : CLOSE 1 : F| 00000230: 49 4C 45 20 30 20 3A 20 52 45 54 55 52 4E 0D 20 |ILE 0 : RETURN. | 00000240: 20 20 45 4E 44 49 46 0D 20 20 45 4E 44 49 46 0D | ENDIF. ENDIF.| 00000250: 20 20 4C 44 59 20 23 30 20 3A 20 50 55 54 20 28 | LDY #0 : PUT (| 00000260: 50 4E 54 29 2C 59 0D 20 20 4C 45 54 20 50 4E 54 |PNT),Y. LET PNT| 00000270: 20 3D 20 50 4E 54 20 2B 20 31 0D 20 20 4C 44 41 | = PNT + 1. LDA| 00000280: 20 50 4E 54 2B 31 20 3A 20 41 44 43 20 23 30 20 | PNT+1 : ADC #0 | 00000290: 3A 20 53 54 41 20 50 4E 54 2B 31 0D 20 45 4E 44 |: STA PNT+1. END| 000002A0: 57 48 49 4C 45 0D 20 44 49 4D 20 4E 41 4D 45 24 |WHILE. DIM NAME$| 000002B0: 28 32 30 29 20 2C 20 4C 49 4E 45 24 28 32 30 29 |(20) , LINE$(20)| 000002C0: 20 2C 20 54 4D 50 0D 20 44 49 4D 20 42 55 46 46 | , TMP. DIM BUFF| 000002D0: 0D 00 00 00 FF |..... |
PNT=$49.NDX=$39. PRINT "FILE NAME?";. IN PUT NAME$. PRINT "FILE TYPE?";. INPUT LI NE$. LET FILETYPE = LINE. PRINT "INSERT SOURCE DISK". PRINT "PRESS RETURN". INPU T LINE$. OPENR 1 , NAME$. LET NDX = #<BU FF. LET NDX+1 = #>BUFF. WHILE STATUS = 0 . GET .TMP. LDY #0 : LET (NDX),Y = TMP . LET NDX = NDX + 1. LDA NDX+1 : ADC # 0 : STA NDX+1. ENDWHILE. LET PNT = #<BUF F. LET PNT+1 = #>BUFF. CLOSE 1 : FILE 0. PRINT "INSERT DESTINATION DISK". PRINT "PRESS RETURN". INPUT LINE$. OPENW 1 , N AME$. WHILE. IF NDX = PNT THEN. IF ND X+1 = PNT+1 THEN. PUT 0 : CLOSE 1 : F ILE 0 : RETURN. ENDIF. ENDIF. LDY #0 : PUT (PNT),Y. LET PNT = PNT + 1. LDA PNT+1 : ADC #0 : STA PNT+1. ENDWHILE. D IM NAME$(20) , LINE$(20) , TMP. DIM BUFF .....
> CLICK IMAGE PREVIEW FOR FULL MODAL