FORTRAN   RUN                                                      F70SAMPL
$NO MULTIPLY DIVIDE                                                     F71SAMPL
$OBJECT MACHINE SIZE # 15999                                                    
$REAL SIZE # 3                                                                  
C     RONALD MAK, FEBRUARY 6, 1970                                              
C     SINE WAVE                                                                 
      DIMENSION L%51),C%51),K%180),D%51)                                        
      DATA L,V,M/51*0,-.04,26/                                                  
      READ %1,1) %D%I),I#1,51)                                                  
    1 FORMAT %A2,50A1)                                                          
      WRITE%3,2) %D%I),I#1,51)                                                  
    2 FORMAT %58X,17H*** SINE WAVE ***//14X,25A2,2A3,24A2)                      
      MK#77*77                                                                  
      DO 3 I#26,51                                                              
      V#V&.04                                                                   
    3 C%I)#V                                                                    
      MM#1                                                                      
      DO 5 I#1,90                                                               
      A#SIN%%FLOAT%I)*.1)*.174)                                                 
      DO 4 J#M,51                                                               
      IF %.NOT.%%A.GE.%C%J)-.02)).AND.%A.LE.%C%J)&.02)))) GO TO 4               
      CALL PLOT%L,J,I,MK)                                                       
      N#J                                                                       
      K%MM)#J                                                                   
      GO TO 8                                                                   
    4 CONTINUE                                                                  
      GO TO 5                                                                   
    8 MM#MM&1                                                                   
    5 M#N                                                                       
      DO 6 I#91,180                                                             
      M#181-I                                                                   
      J#K%M)                                                                    
      CALL PLOT%L,J,I,MK)                                                       
    6 K%I)#J                                                                    
      DO 7 I#181,360                                                            
      J#52-K%I-180)                                                             
    7 CALL PLOT%L,J,I,MK)                                                       
      STOP                                                                      
      END