1 :' Speedlock Disc Decryption System
2 :'      *** DOLPHIN System ***
3 :'
4 :' by ANDY PRICE
5 :' Very new Speedlock loaders only
6 :' Try again Ocean!!!!
7 :'
10 DATA 21,0e,80,11,09,a2,01,00,16c
20 DATA 02,ed,b0,c3,80,be,1e,06,3c4
30 DATA 18,08,f3,1e,65,01,7e,fa,30f
40 DATA ed,59,06,f5,ed,78,1f,38,3fd
50 DATA fb,ed,78,1f,30,fb,1d,20,3e7
60 DATA f1,f3,c9,0e,c8,21,a0,a3,4e7
70 DATA 16,00,c3,8e,a2,4f,dd,21,356
80 DATA a0,a3,dd,7e,00,b9,28,0a,389
90 DATA dd,23,dd,23,dd,23,dd,23,400
100 DATA 18,f0,dd,56,01,dd,5e,02,379
110 DATA dd,46,03,3e,19,93,b8,38,300
120 DATA 07,7b,80,3d,4f,c3,74,a2,367
130 DATA 0e,18,c5,f5,e5,d5,cd,74,4db
140 DATA a2,d1,e1,f1,c1,5f,78,93,570
150 DATA 47,7c,83,67,1e,01,14,18,1f8
160 DATA da,3e,4c,32,7e,a3,3e,06,2fb
170 DATA 32,83,a3,79,1d,93,32,1c,2cf
180 DATA a3,7b,32,07,a3,1e,c1,4b,324
190 DATA c3,8f,a2,59,7a,32,77,a3,413
200 DATA 32,80,a3,22,bd,a2,7b,32,383
210 DATA 82,a3,79,32,84,a3,11,7a,382
220 DATA a3,cd,d7,a2,3a,97,a3,b7,514
230 DATA 20,f4,11,74,a3,cd,c1,a2,46c
240 DATA 11,7a,a3,cd,d7,a2,11,7d,402
250 DATA a3,21,91,ac,18,1e,cd,d2,3d6
260 DATA a2,11,78,a3,cd,d7,a2,21,435
270 DATA 97,a3,cb,6e,28,f3,c9,01,458
280 DATA 5f,a3,18,0b,01,47,a3,21,231
290 DATA 97,a3,18,03,01,10,a3,ed,2f6
300 DATA 43,09,a3,1a,47,c5,13,1a,242
310 DATA 01,7e,fb,f5,ed,78,87,30,48b
320 DATA fb,fa,ef,a2,f1,0c,ed,79,5e9
330 DATA 06,08,10,fe,c1,10,e6,01,2d4
340 DATA 7e,fb,11,00,00,c3,47,ac,340
350 DATA 0c,ed,78,0d,1b,ed,78,f2,3f0
360 DATA 10,a3,7a,b3,c2,0b,a3,11,361
370 DATA 00,00,0c,ed,78,77,0d,23,218
380 DATA 1b,7a,b3,ca,3a,a3,ed,78,454
390 DATA f2,29,a3,e6,20,c2,1d,a3,446
400 DATA c3,44,a3,0c,ed,78,0d,ed,415
410 DATA 78,f2,3a,a3,e6,20,c2,36,445
420 DATA a3,21,97,a3,ed,78,fe,c0,521
430 DATA 38,fa,0c,ed,78,77,0d,23,34a
440 DATA 3e,05,3d,20,fd,ed,78,e6,3e8
450 DATA 10,20,e9,c9,ed,78,f2,5f,498
460 DATA a3,c9,d9,01,7e,fa,ed,49,4f4
470 DATA 01,8d,7f,ed,49,af,08,d9,3d3
480 DATA e9,03,0f,00,00,01,08,02,106
490 DATA 4a,00,09,4c,00,00,00,c8,167
500 DATA 02,c8,2a,ff,00,07,0c,0f,215
510 DATA 00,03,04,06,01,02,0e,00,01e
520 DATA 00,16,15,99,48,00,00,00,10c
530 DATA 00,c7,02,00,00,00,00,00,0c9
540 DATA 00,00,00,00,00,00,00,00,000
550 n= 8:a=&8000:l= 10:WHILE l< 550:GOSUB 560:WEND:GOTO 600
560 cs=0:FOR x=1 TO n:READ v$:v=VAL("&"+v$):POKE a,v
570 cs=cs+v:a=a+1:NEXT:READ c$:c=VAL("&"+c$)
580 IF c<>cs THEN PRINT"Data error in line ",l:END
590 l=l+10:RETURN
600 MODE 1:INK 0,13:INK 1,0:BORDER 15
610 PRINT"Insert game disc, then";
620 PRINT" press any key..":CALL &BB18
630 :'
640 :' Cheats goes here
650 :' Puzznic disk
660 :' by ANDY PRICE
670 :' Merge with Dolphin System
680 :'
690 DATA cd,0d,a2,cd,26
700 DATA a2,3e,01,21,00
710 DATA c0,cd,30,a2,cd
720 DATA 09,a2,3e,02,21
730 DATA 40,00,cd,30,a2
740 DATA af,32,9c,59,32
750 DATA 9d,59,3e,ff,32
760 DATA c0,3b,21,40,00
770 DATA c3,65,a3
780 FOR x=&BE80 TO &BEAA
790 READ a$:a=VAL("&"+a$)
800 POKE x,a:y=y+a:NEXT
810 IF y<>&111C THEN 830
820 MODE 0:CALL &8000
830 PRINT"Error in cheat"
840 PRINT"y=",y:CLEAR:END