You have to study DIM and Array,and you can become shorter program.For example: SP=8:DIM SC[SP],SS[SP],SX[SP],SY[SP] FOR I=0 TO SP-1:READ SC[I],SCX[I],SCY[I],SX[I],SY[I]:SPSET I,0:NEXT DATA (Value),(Value),(Value)... DATA (Value),(Value),(Value)... FOR I=0 TO SP-1 SPCHR I,SC[I] SPOFS I,SSX[I],SSY[I] SPOFS I,SX[I],SY[I] NEXT