This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Cartridge Copy
-
Category:Games
-
Publisher/Developer:Atari Software Rebellions, BELLCOM - Public Domain Library
Listing 1
10 DIM A$(99):POKE 106,128:GRAPHICS 0:? "CARTRIDGE COPY":? "PUT THE CARTRIDGE INTO SLOT B":? "THEN PUSH START" 20 ? "By the Atari Software Rebellions.":FOR A=0 TO 9:IF PEEK(53279)=6 THEN 50 30 NEXT A:? "":FOR A=0 TO 9:IF PEEK(53279)=6 THEN 50 40 NEXT A:GOTO 20 50 ?:? "":? "A=CART SLOT A:B=CART SLOT B":POKE 764,255:S=0:D=1 60 IF PEEK(764)=63 THEN S=8192:GOTO 80 70 IF PEEK(764)<>21 THEN 60 80 ?:? "":? "1=DOS 1:2=DOS 2" 90 IF PEEK(764)=30 THEN D=2:GOTO 110 100 IF PEEK(764)<>31 THEN 90 110 POKE 764,255:? "DEVICE:FILENAME ";:INPUT A$:OPEN #1,8,0,A$:IF D=1 THEN PUT #1,132:PUT #1,9:GOTO 130 120 PUT #1,255:PUT #1,255 130 PUT #1,0:PUT #1,45:PUT #1,34:PUT #1,77 140 FOR A=32768 TO 40959:PUT #1,PEEK(A+S):NEXT A:PUT #1,169:PUT #1,160:PUT #1,133:PUT #1,106:PUT #1,32:PUT #1,246 150 PUT #1,243:PUT #1,162:PUT #1,32:PUT #1,160:PUT #1,0:PUT #1,185:PUT #1,0:PUT #1,45:PUT #1,153:PUT #1,0:PUT #1,160 160 PUT #1,200:PUT #1,208:PUT #1,247:PUT #1,238:PUT #1,13:PUT #1,77:PUT #1,238:PUT #1,16:PUT #1,77:PUT #1,202:PUT #1,208 170 PUT #1,238:PUT #1,32:PUT #1,PEEK(40958+S):PUT #1,PEEK(40959+S):PUT #1,76:PUT #1,PEEK(40954+S):PUT #1,PEEK(40955+S) 180 PUT #1,224:PUT #1,2:PUT #1,225:PUT #1,2:PUT #1,0:PUT #1,77:CLOSE #1 190 ? "":?:?:?:?:?:?:?:?:?:?:? " COPY COMPLETE":?:?:?:?:END
References
Listing downloads
Downloads
Copyright holder