data 20,3,1,2,1,2,2,2,2,4,5,2,7,12,5,2,20,99,1,1,19,1,23,1,1,1,24,5,1,1,29,11,42,4,1,1,40,1,1,1,7,13,46,15,30,12,8,12,61,18,0,0 a$="\"\\\\\"\\n;:if!p break\na$=?data ;:do read p,s:?p,loop:?0:restore?mid$(a$,p,s);loop" ?"data ";:do read p:?p,",";:if!p break loop:?0:restore:do read p,s:if!p break ?mid$(a$,p,s);loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).