1 s$="         9e711e2130031e30440e200211200e52002e622e1221122e2220022e000000000
2 s$=s$+"0000000000e2220022e1221122e622e52002e200211200e30440e2130031e711e9
3 forc=10to140:p$=mid$(s$,c,1):p=val(p$):ifp$="e"thenprintchr$(13);:next
4 printleft$(s$,p);"*";:next
