REM   This program is free software; you can redistribute it and/or modify
      REM   it under the terms of the GNU General Public License as published by
      REM    the Free Software Foundation; either version 2 of the License, or
      REM     any later version.
      REM
      REM    This program is distributed in the hope that it will be useful,
      REM     but WITHOUT ANY WARRANTY; without even the implied warranty of
      REM     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      REM     GNU General Public License for more details.
      REM
      REM    You should have received a copy of the GNU General Public License
      REM    along with this program (http://www.fsf.org/licensing/licenses/ );
      REM     if not, write to the Free Software
      REM     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
      REM
      REM  The author (web.victor.reijs@gmail.com ) is interested in feedback.
      REM  http://www.iol.ie/~geniet/eng/
      
      
      ALONG%=220
      DIM A% ALONG%
      ON ERROR GOTO 30
   10 PRINT
      INPUT "Give filename without 'MOV' and '.MOI':";FILE$
      CLS
      IF FILE$="" THEN GOTO 20
      filenaam$="MOV"+FILE$+".MOI"
      OSCLI "LOAD "+filenaam$+" "+STR$~A%+" +"+STR$~ALONG%
      PRINT "MOI-version(?): ";CHR$(A%?0);CHR$(A%?1)
      teller=6
      PRINT "Date of ";filenaam$" [y-m-d h:m:s]: "; STR$(A%?(teller+1)+ A%?(teller)*256);"-";
      teller=8
      PRINT STR$(A%?(teller) );"-";
      teller=9
      PRINT STR$(A%?(teller));" ";
      teller=10
      PRINT STR$(A%?(teller));":";
      teller=11
      PRINT STR$(A%?(teller));":";
      teller=12
      PRINT STR$((A%?(teller+1)+ A%?(teller)*256)/1000 )
      teller=14
      DUUR=(A%?(teller+3)+ A%?(teller+2)*256+A%?(teller+1)*256*256+ A%?(teller)*256*256*256)/1000
      DRHR=INT(DUUR/60/60  )
      DRMIN=INT((DUUR-DRHR*60*60)/60)
      DRSEC=INT((DUUR-DRHR*60*60-DRMIN*60)*100)/100
      PRINT "Length of ";filenaam$" [h:m:s]: ";DRHR;":";DRMIN;":";DRSEC
      REM GOTO 10
      teller=128
      PRINT "Aspect ratio: ";
      IF   A%?(teller)=81 THEN PRINT "4:3"
      IF   A%?(teller)=84 THEN PRINT "16:9"
      IF   A%?(teller)=85 THEN PRINT "16:9"
      teller=134
      PRINT "Audio quality: ";
      IF   A%?(teller)=5 THEN PRINT "128 kbit/s"
      IF   A%?(teller)=9 THEN PRINT "256 kbit/s"
      IF   A%?(teller)=11 THEN PRINT "384 kbit/s"
      teller=218
      quality=A%?(teller+1)+A%?(teller)*256
      REM PRINT "Video quality: "; quality,A%?(teller+1),A%?(teller)
      q$=""
      PRINT "Video quality: ";
      IF   quality=58650 THEN q$= "1.5 Mbit/s VBR"
      IF   quality=23260 THEN q$= "4.2 Mbit/s VBR"
      IF   quality=33085 THEN q$= "5.5 Mbit/s CBR"
      IF   quality=21551 THEN q$= "8.5 Mbit/s VBR"
      IF   quality=22678 THEN q$= "8.5 Mbit/s CBR"
      IF   quality=23600 THEN q$= "9.558 Mbit/s VBR"
      IF q$="" THEN
        teller=129
        quality=A%?(teller)
        IF   quality=0 THEN PRINT "Norm., Fine or UltraF."
        IF   quality=24 THEN PRINT "Econ."
      ELSE
        PRINT q$
      ENDIF
      GOTO 10
   20 PRINT "Program by: Victor Reijs, 2008"
      PRINT "Version: 0.3"
      PRINT "http://www.iol.ie/~geniet/eng/moihelp.htm"
      PRINT "Based on data from JVC GZ MG36EK"
      PRINT
      PRINT "General MOI-file structure by: Karl Zeilhofer"
      GOTO 10
   30 PRINT "You see this message, because the constructed"
      PRINT "filename ";filenaam$;" does not exist in this directory."
      PRINT "By the way your inputted text has got automaticaly"
      PRINT "in front 'MOV' and '.MOI' at the end."
      GOTO 10