@program prog_code,prog_name ;************** Start of Fargo program *************** prog_code: jsr flib[clr_scr] lea point_table(pc),a0 move.l (a0),d4 main_loop: tst.w ($75B0) beq no_key clr.w ($75B0) move.w ($75B2),d0 cmp.w #$108,d0 beq exit no_key: move.l d4,-(a7) jsr flib[pixel_on] add.l #4,a7 move.w #3,d0 jsr flib[random] lsl.w #2,d0 add.l 0(a0,d0.w),d4 lsr.l #1,d4 and.l #$0FFF0FFF,d4 bra main_loop exit: rts ;***************************************************** point_table: dc.w 120,000 dc.w 000,120 dc.w 239,120 prog_name: dc.b "Sierpinski (Chaos Game)",0 ;*************** End of Fargo program **************** reloc_open add_library flib reloc_close end