ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END
      
      REM SINE
      REM INITIAL VERSION FROM JOHN A COLL
      REM VERSION 2 / 16 NOV 81
      :
      MODE 1
      VDU 5
      GCOL 0,1
      VDU 19,1,3,0,0,0
      MOVE 16,600
      :
      FOR X=0 TO 315
        IF X<150 THEN MOVE 4*X+16,360
        PLOT 21,4*X+16,300*SIN(X/48)+360
      NEXT
      GCOL 0,2
      A$="SINE WAVES ARE FAR MORE INTERESTING....."
      :
      FOR X=1 TO 39
        MOVE X*1280/40,300*SIN(X/6)+472
        PRINT MID$(A$,X,1);
      NEXT
      :
      REPEAT WAIT 1 : UNTIL.