   1 BORDER NOT PI: PAPER NOT PI: CLS : FOR i=SGN PI TO VAL "4": CLS : READ n: INK n: FOR y=NOT PI TO VAL "9": READ d$: LET d=VAL d$: LET m=VAL "524287": FOR x=NOT PI TO VAL "18": LET m=m/VAL "2": LET c=d>m: LET d=d-c*m: PRINT AT y,x+VAL "6";"*" AND c;AT VAL "18"-y,x+VAL "6";"*" AND c: NEXT x: NEXT y: PAUSE VAL "100": NEXT i: GO TO VAL "6"
   2 DATA VAL "4","0","8224","12384","14560","15840","262142","131068","65528","32752","16352"
   3 DATA VAL "2","33288","83220","141474","266305","141474","83220","33288","83220","141474","266305"
   4 DATA VAL "7","512","2688","83732","49688","117404","10016","4672","150162","75556","524287"
   5 DATA VAL "6","303847","210604","207587","303790","0","202959","304428","74819","498158","0"