1 printchr$(147):poke36879,107:c=7932
2 fori=0to37:reada:gosub4:a=a-int(a/22)*44:gosub4:next
3 goto3
4 pokec+a,42:pokec-a,42:return
5 data0,1,2,3,4,5,6,7,8,9,22,23,26,29,44,46,49,52,66,69,88,89,92,110
6 data112,115,116,117,132,137,138,154,155,159,161,176,178,198