sin cos using SUB SumLocate (x,y,l)

[pmackay]

Replace code below to scroll screen with new background... this is only test. sc.png needed as above for background image

CLS: frame = 1: RR% = 60: XX% = 8: D = 1: z = 0

DO
    _PUTIMAGE (0, 0 - z), BACKIMAGE
    FOR I = 1 TO 16: B$ = MID$(CL$, I, 1)
        SELECT CASE frame
            CASE 1: IF B$ = "1" THEN _PUTIMAGE (CIRCLOOP1(I, 1) * 48 + RR%, CIRCLOOP1(I, 2) * 48), SPRITES, , (0, 0)-(63, 63)
            CASE 2: IF B$ = "1" THEN _PUTIMAGE (CIRCLOOP1(I, 1) * 48 + RR%, CIRCLOOP1(I, 2) * 48), SPRITES, , (64, 0)-(127, 63)
                'CASE 1: IF B$ = "1" THEN _PUTIMAGE (CIRCLOOP1(I, 1) * 48 + RR%, CIRCLOOP1(I, 2) * 48 + RR%), SPRITES, , (128, 0)-(191, 63)
                'CASE 2: IF B$ = "1" THEN _PUTIMAGE (CIRCLOOP1(I, 1) * 48 + RR%, CIRCLOOP1(I, 2) * 48 + RR%), SPRITES, , (192, 0)-(255, 63)

    END SELECT: NEXT I: _DISPLAY: _LIMIT 180
    frame = frame + 1: IF frame > 2 THEN frame = 1: PLAY "T255L32O1G" ELSE PLAY "T255L32O1C"
    i$ = INKEY$: RR% = RR% + XX%: IF RR% > 700 THEN XX% = -8: D = 1: ELSE IF RR% < 50 THEN XX% = 8: D = 2
    IF D = 1 THEN B$ = RIGHT$(CL$, 1): CL$ = B$ + LEFT$(CL$, 15)
    IF D = 2 THEN B$ = LEFT$(CL$, 1): CL$ = RIGHT$(CL$, 15) + B$
    IF INT(RND(1) * 20) = 1 THEN D = D + 1: XX% = -8: IF D > 2 THEN D = 1: XX% = 8
    z = z + 1: IF z > 995 THEN z = 0
LOOP WHILE i$ <> " "
_FREEIMAGE BACKIMAGE
_FREEIMAGE SPRITES
END