a$=P$(100)
FORMAT "Test s " FOR i=1 TO 10 a$="setp"+STR$(i-5) SETP i a$ NEXT FOR i=1 TO 10 PRINT P$(i) NEXT