10 REM   This program is free software; you can redistribute it and/or modify
   20 REM   it under the terms of the GNU General Public License as published by
   30 REM    the Free Software Foundation; either version 2 of the License, or
   40 REM     any later version.
   50 REM
   60 REM    This program is distributed in the hope that it will be useful,
   70 REM     but WITHOUT ANY WARRANTY; without even the implied warranty of
   80 REM     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   90 REM     GNU General Public License for more details.
  100 REM
  110 REM    You should have received a copy of the GNU General Public License
  120 REM    along with this program (http://www.fsf.org/licensing/licenses/ );
  130 REM     if not, write to the Free Software
  140 REM     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
  150 REM
  160 REM  The author (web.victor.reijs@gmail.com ) is interested in feedback.
  170 REM  http://www.iol.ie/~geniet/eng/
  180 
  190 
  200 ALONG%=220
  210 DIM A% ALONG%
  220 ON ERROR GOTO 860
  230 PRINT
  240 INPUT "Give filename without 'MOV' and '.MOI':";FILE$
  250 CLS
  260 IF FILE$="" THEN GOTO 790
  270 filenaam$="MOV"+FILE$+".MOI"
  280 OSCLI "LOAD "+filenaam$+" "+STR$~A%+" +"+STR$~ALONG%
  290 PRINT "MOI-version(?): ";CHR$(A%?0);CHR$(A%?1)
  300 teller=6
  310 PRINT "Date of ";filenaam$" [y-m-d h:m:s]: "; STR$(A%?(teller+1)+ A%?(teller)*256);"-";
  320 teller=8
  330 PRINT STR$(A%?(teller) );"-";
  340 teller=9
  350 PRINT STR$(A%?(teller));" ";
  360 teller=10
  370 PRINT STR$(A%?(teller));":";
  380 teller=11
  390 PRINT STR$(A%?(teller));":";
  400 teller=12
  410 PRINT STR$((A%?(teller+1)+ A%?(teller)*256)/1000 )
  420 teller=14
  430 DUUR=(A%?(teller+3)+ A%?(teller+2)*256+A%?(teller+1)*256*256+ A%?(teller)*256*256*256)/1000
  440 DRHR=INT(DUUR/60/60  )
  450 DRMIN=INT((DUUR-DRHR*60*60)/60)
  460 DRSEC=INT((DUUR-DRHR*60*60-DRMIN*60)*100)/100
  470 PRINT "Length of ";filenaam$" [h:m:s]: ";DRHR;":";DRMIN;":";DRSEC
  480 REM GOTO 10
  490 teller=128
  500 PRINT "Aspect ratio: ";
  510 IF   A%?(teller)=81 THEN PRINT "4:3"
  520 IF   A%?(teller)=84 THEN PRINT "16:9"
  530 IF   A%?(teller)=85 THEN PRINT "16:9"
  540 teller=134
  550 PRINT "Audio quality: ";
  560 IF   A%?(teller)=5 THEN PRINT "128 kbit/s"
  570 IF   A%?(teller)=9 THEN PRINT "256 kbit/s"
  580 IF   A%?(teller)=11 THEN PRINT "384 kbit/s"
  590 teller=218
  600 quality=A%?(teller+1)+A%?(teller)*256
  610 REM PRINT "Video quality: "; quality,A%?(teller+1),A%?(teller)
  620 q$=""
  630 PRINT "Video quality: ";
  640 IF   quality=58650 THEN q$= "1.5 Mbit/s VBR"
  650 IF   quality=23260 THEN q$= "4.2 Mbit/s VBR"
  660 IF   quality=33085 THEN q$= "5.5 Mbit/s CBR"
  670 IF   quality=21551 THEN q$= "8.5 Mbit/s VBR"
  680 IF   quality=22678 THEN q$= "8.5 Mbit/s CBR"
  690 IF   quality=23600 THEN q$= "9.558 Mbit/s VBR"
  700 IF q$="" THEN
  710   teller=129
  720   quality=A%?(teller)
  730   IF   quality=0 THEN PRINT "Norm., Fine or UltraF."
  740   IF   quality=24 THEN PRINT "Econ."
  750 ELSE
  760   PRINT q$
  770 ENDIF
  780 GOTO 230
  790 PRINT "Program by: Victor Reijs, 2008"
  800 PRINT "Version: 0.3"
  810 PRINT "http://www.iol.ie/~geniet/eng/moihelp.htm"
  820 PRINT "Based on data from JVC GZ MG36EK"
  830 PRINT
  840 PRINT "General MOI-file structure by: Karl Zeilhofer"
  850 GOTO 230
  860 PRINT "You see this message, because the constructed"
  870 PRINT "filename ";filenaam$;" does not exist in this directory."
  880 PRINT "By the way your inputted text has got automaticaly"
  890 PRINT "in front 'MOV' and '.MOI' at the end."
  900 GOTO 230