7行目の GLINEのI=10をI+10に 16行目の SPHOME 32,0,0をSPHOME 32,8,8に 18行目の SPROT 32,100+45+100＊Iを SPROT 32,180+45+180＊Iに 20行目の CG=100をCG=180に 直してみてください