[Coco] Shamus... copy protected?

Darren A. darccml at hotmail.com
Wed Dec 26 14:11:26 EST 2007


Very strange... Whenever I send the entire listing, lines 2 through 8, and lines 20 through 28 always get removed. Here are just those missing lines:

2 IFPEEK(116)=127THENCLEAR50,9727:BP=38:BT=5 ELSECLEAR50,7167:BP=28:BT=2
3 CLS:PRINT" - THE SANDS OF EGYPT -"
4 PRINT:PRINT"THIS UTILITY ALLOWS YOU TO MAKE A BACKUP COPY OF THE PROGRAM","DISK. THE BACKUP WILL BE","COPY-PROTECTED JUST LIKE THE","ORIGINAL.":PRINT
5 PRINT"A DUAL DRIVE SYSTEM IS NOT","REQUIRED, BUT USING A SINGLE","DRIVE WILL REQUIRE many SWAPS.":PRINT
6 PRINT"CONTINUE..."
7 IFINKEY$=""THEN7
8 DK=PEEK(&HC004)*256+PEEK(&HC005):IFDK<>&HD75F ANDDK<>&HD66C THENCLS:PRINT"YOUR DISK BASIC ROM IS NOT","RECOGNIZED.":END


20 TC=BT:DP=BP:POKE234,OP:POKE235,DR:POKE239,0
21 IFTR=KT THENTR=TR+1
22 IFOP=2THENPRINT at 0,"READING";ELSEPRINT at 32,"WRITING";
23 IFTR=17THENPRINT" DIRECTORY"ELSEPRINT" TRACK"TR
24 POKE236,TR:FORS=1TO18
25 IFS=KS THENS=18:GOTO28
26 POKE237,S:POKE238,DP
27 GOSUB53:DP=DP+1
28 NEXTS:TR=TR+1:TC=TC-1:IFTC=0ORTR>34THENRETURNELSE21




_________________________________________________________________
Share life as it happens with the new Windows Live.
http://www.windowslive.com/share.html?ocid=TXT_TAGHM_Wave2_sharelife_122007


More information about the Coco mailing list