LOW RES PLOT DEMO #36 D.M.BROAD. 19/2/89.<:G 1420fPL("1010") : SYS ADDR PL,11, 0,0 : SCREEN$ F(F) (FD)EE.:8 (147)(5)BW0: "NO.CYCLES";WLWW2: W0 V:` PL, 0 : INITGR!j PL, 3, 2,0,0: SELWIN>t PL, 5 : CLEARW[~ PL, 7, 1,0 : MOVETOu PL,15, 78,49 : BOX{: DEFINE WINDOWMX72 : MY42: SIZEPX(80MX)2: PY(50MY)2QXMXPX : QYMYPY PL, 7,PX,PY : MOVETO" PL, 2,QX,QY,1: SETWIN? PL, 3,94,0 ,1: SELWINE:U DRAW AXIS`EMY2} PL, 7, 0,0 : MOVETO  PL, 1, 0,MY : LINETO PL, 7, 0,E : MOVETO PL, 1,MX,E : LINETO( 1,30,24,"SINE WAVE"2: < DRAW SINE WAVEFDMX(W): S1W<P PL, 7, 0,E : MOVETOBZ:Ud X0 MX Svn: PL, 4, X,MY F(X): PLOT|x: 1,1,24,"PRESS SPACE": S$ S$" "