Page 1 of 1

Command Counter Script: How Many Commands does the MPR have?

Posted: 04. May 2018, 10:57
by Theo_Gottwald
So the answer is, there are not 400 ... no 500 ... no 600 and no 700 ... it's ... more.
If you want to know the answer exactly, you can run this script here yourself.
After a short runtime, it reports the exact number of commands of the installed version.

Code: Select all

' +++ main_Command-Counter.rem +++
' Counts commands of the installed MPR version and displays the result in a message box.
'
'========================
GEP\.rem
VAR\$$rea=$v1$
BLB\$$rea>$$rem
VAR\$$ret=$$rem\remhelp\1031\remedit.txt
NEF\$$ret
   SBT\5|MPR is not registered.
   END\
EEF\

VAR\$$rem=$v2$
IEF\$$ret
   VAR\$$hlp=$$remremhelp
ELSE
   GOTO enx
EEF\
VAR\$$cnt=0
DED\1
FEL\$$ret|doit|$$lin
DED\
'DVV\1
CFI\$$rem\remedit.ini|light|light>$$lin
GSL\$$lin
VAR\$$len=$v1$+1
CAL\$$len=$$len\4
CAL\$$len=$$cnt-$$len
MBX\Commands: $$cnt
@

:doit
STT\$$lin
GFS\4,2>$$xxx
IVV\$$xxx=$sp$$sp$
   STT\$$lin
   GFS\2,1>$$yyy
   IVN\$$yyy
      GOTO ende
   EVN\
   VIC\$$cnt
EVV\
:ende
@

:enx
END\