SETP 1 100 100 20 3SETP 2 X(0) Y(0) U(0) z(0)SETP 13 P(3)SETP 100 "abcdef"
FOR i=1 TO 10 SETP i STR$(i-5) NEXT FOR i=1 TO 10 PRINT P$(i) NEXT FOR i=1 TO 10 a$=STR$(i-5)+" Volt" SETP i a$ NEXT