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