10 int fp
   20 dim int a(640*160/2-1)
   30 crtmod(65,1)
   40 fp=fopen("minokasago.dat","r")
   50 for i=0 to 2
   60   fread(a,640*160/2,fp)
   70   put(64,16+160*i,64+639,16+160*i+159,a)
   80 next
   90 fclose(fp)
  100 end