GLOBAL RA, CRFX

RA=0
CRFX = 1

ON RASTER CALL RAS

CLS
PRINT "CYCLE REFUND EXPLOIT"

LOCATE 10,5
PRINT "120X64"
LOCATE 10,6
PRINT "SPRITES"
LOCATE 10,9
PRINT "CHECK CPU"
LOCATE 10,10
PRINT "IN DEBUG"
LOCATE 10,11
PRINT "MODE"

DO
  WAIT VBL
LOOP

SUB RAS
  RA=RASTER
  IF RA>10 AND RA<128 THEN
     IF CRFX = 1 THEN
       REM CYCLE REFUND EXPLOIT
       COPY $A000,-4000 TO $A001
     END IF
     FOR I=0 TO 63
       SPRITE I, I+10, RA, RND(1)
     NEXT I
  END IF
END SUB

#2:MAIN CHARACTERS
00000000000000000000000000000000
80000000000000000000000000000000