1 ' Strangeloop plus -disc-
2 ' By Graham Smith
3 ' Infinite lives
4 ' Infinite charges
5 ' Infinite patches
6 '
10 DATA cd,18,bb,2a,0f,bc,22
20 DATA 22,be,21,0e,bc,36,c3
30 DATA 23,36,15,23,36,be,c9
40 DATA f5,af,32,9e,80,32,d1
50 DATA 80,32,4b,94,f1,cf
60 FOR j=0 TO 33:READ a$
70 x=VAL("&"+a$):y=y+x
80 POKE j+48640,x:NEXT j
90 IF y<>3857 GOTO 130
100 PRINT"Insert game disc";
110 PRINT" then press a key"
120 CALL 48640:RUN"disc
130 PRINT"DATA ERROR