LOW RES PLOT DEMO #46 D.M.BROAD. 19/2/89.<:ZMR512: RX%(MR),RY%(MR)wTX0: TY0: BX80: BY50I$(19)" "(19)$RD("7F2") : READ ADDR.PL("1010") : SYS ADDR8 PL,11, 0,0 : SCREEN B PL,0 : INITGR'L PL,3, 6,0,0 : SELWINDV PL,5 : CLEARWJ`:^j DRAW TRIANGLEtW40:MW2:CX(BXW)2:CY(BYM)2~ PL,7,CX,CY : MOVETO PL,1,CXW,CY : LINETO PL,1,CXM,CYM: LINETO PL,1,CX,CY : LINETO:$ (19)" BASIC CODED PAINT"> " ^" (13) " STACK"aRX%(0)CXW2:RY%(0)CY6:IR0l 1270rx: BASIC PAINT! I$ IR;ARX%(IR): BRY%(IR)  PL,4,A,B : PLOTIRIR1 A1BX 1350(: PL,18,A1,B: READ2: (RD)0 1350@<: IRIR1:RX%(IR)A1:RY%(IR)BTF A1TX 1390nP: PL,18,A1,B: READZ: (RD)0 1390d: IRIR1:RX%(IR)A1:RY%(IR)Bn B1BY 1430x: PL,18,A,B1: READ: (RD)0 1430: IRIR1:RX%(IR)A:RY%(IR)B1& B1TY 1480@: PL,18,A,B1: READW: (RD)0 1480{: IRIR1:RX%(IR)A:RY%(IR)B1: (IR0) (IRMR) 1270: