00010 rem longline.bas - Print 90-character ruler line
00020 for i = 1 to 9
00030 print tab((i-1)*10+9);str$(i);
00040 next i
00045 print
00050 for i = 1 to 9
00060 print "1234567890";
00070 next i
00080 print