With pride, I publish the latest greatest program (an xsamplex exclusive!) in the program contest:
10 DIM VP(11)
20 LOCATE 10, 12 : GOSUB 500
30 FOR X = 1 TO 11
40 LOCATE 10 + X, 12 : PRINT CHR$(VP(J));
50 NEXT X
60 GOTO 10
500 RESTORE 600 : FOR J = 1 TO 11 : READ VP(J) : NEXT J : RETURN
600 DATA 72, 69, 76, 76, 79, 32, 87, 79, 82, 76, 68
Heh.