10REM CANCAN ver.3.3 20REM by M.Bobrowski 4'93 30REM for 8-Bit Software P.D. 40: 50MODE 1:HIMEM=&2800:VDU 23;8202;0;0; 0;19,2,2;0; 60ENVELOPE 1,5,0,0,0,0,0,0,120,-5,-2, -20,120,80 70ENVELOPE 2,1,0,0,0,0,0,0,125,-2,-1, -2,90,60 80ENVELOPE 3,2,0,0,0,0,0,0,120,-1,0,- 2,100,75 90*RUN "CanMC2" 100PROCbackground 110PROCtitle 120END 130: 140DEF PROCbackground 150S%=&3000:REPEAT 160FOR I%=0 TO 28 STEP 4:I%!S%=I%!&2FC 0:NEXT 170S%=S%+&280:FOR I%=0 TO 28 STEP 4:I% !S%=I%!&2FE0:NEXT 180S%=S%-&260:IF S% MOD &280=128 S%=S% +&280 190UNTIL S%=&8000:ENDPROC 200: 210DEF PROCtitle 220F%=OPENUP("CanTitl") 230FOR I%=&3000 TO &7FFF:B%=BGET#F%:?I %=?I% AND B%:NEXT 240CLOSE#F% 250ENDPROC