C; OSCILLOSCOPE DISPLAY ; TYPE 5 5; FORMAT("OSCILLOSCOPE DISPLAY",/,"VALUE OF W = ") ; ACCEPT 6,W 6; FORMAT(E) ; J=K=0 ; DIMENSION M(500) ; DO 20 I=1,500 ; X=I ; M(I)=500.0*(1.0-COSF(W*X/100.0)) 20; CONTINUE ; TYPE 7 7; FORMAT("READY FOR DISPLAY") ; PAUSE 33; DO 30 I=1,500 ; J=I ; K=M(I) ; PAUSE 3328 30; CONTINUE ; GO TO 33 ; END 8