10 printchr$(147)
20 reada:ifa=-1then:goto40
30 readb:fori=0to(a-1):printchr$(b);:next:goto20
40 print:reada:ifa=-1thenend
50 readb:fori=0to(a-1):printchr$(b);:next:goto20

1000 data 5,160,1,42,7,160,1,42,-1
1010 data 5,160,2,42,5,160,2,42,-1
1020 data 5,160,3,42,3,160,3,42,-1
1030 data 5,160,4,42,1,160,4,42,-1
1040 data 1,160,17,42,-1,2,160,15,42,-1
1050 data 3,160,13,42,-1,4,160,11,42,-1
1060 data 5,160,9,42,-1,4,160,11,42,-1
1070 data 3,160,13,42,-1,2,160,15,42,-1
1080 data 1,160,17,42,-1
1090 data 5,160,4,42,1,160,4,42,-1
1100 data 5,160,3,42,3,160,3,42,-1
1110 data 5,160,2,42,5,160,2,42,-1
1120 data 5,160,1,42,7,160,1,42,-1,-1