  C; OSCILLOSCOPE DISPLAY
   ; TYPE 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