100 SCREEN 1
  110 '
  120 ' P(%)の直線 を 「x+y = 奇数」となる座標、残りを「偶数」となる座標に引く
  130 '
  140 P=10:FOR I=0 TO 300:L=RND(320)-160:A=RND(160)*2:B=RND(112)*2-(RND(100)<P)
  150 LINE (A,B)-(A+L,B+L),RND(256):NEXT
  160 '
  170 ' 128×128ピクセルのメッシュスプライトに同じサイズのスプライトを重ねて定義
  180 '
  190 FOR I=0 TO 1:SETTEX I,128,128,256:CLS I+10
  200 SETPFONT 1+I,1,(128/32*&H0.FFFC,128/32*&H0.FFFC,0,0,0,0)
  210 SETATR I,1,(0,1,3,I,0,256*(1-I)):OBJTYPE I+1,7:NEXT :OBJLINK 2,1
  220 '
  230 ACTIVE 10: ' ▼ メッシュスプライト面にレンズを描画
  240 CIRCLE (64,64),44,160,F
  250 '
  260 ACTIVE 11: ' ▼ スプライト面にレンズの縁を描画
  270 CIRCLE (64,64),48,255,F:FOR I=64 TO 118:CIRCLE (I,I),I/16-1,255,F:NEXT
  280 CIRCLE (64,64),40,0,F
  290 '
  300 ' 移動
  310 '
  320 *MOVE
  330 P=PAD(0,1)
  340 IF P AND @PAD_LEFT  THEN X=X-1
  350 IF P AND @PAD_RIGHT THEN X=X+1
  360 IF P AND @PAD_UP    THEN Y=Y-1
  370 IF P AND @PAD_DOWN  THEN Y=Y+1
  380 OBJ(1,@XP)=X,Y
  390 VSYNC :GOTO *MOVE