Page 1 of 1

Befehls-Zähler-Skript: Wieviele Befehle hat der MPR?

Posted: 14. Apr 2018, 16:25
by Theo_Gottwald
Also die Antwort ist, es sind keine 400 ... keine 500 ... keine 600 und auch keine 700 ... es sind ... mehr.
Wer das genau wissen möchte kann dieses Skript hier laufen lassen.

Nach einer kurzen Laufzeit meldet es die genau Anzahl der Befehle der installierten Version.

Code: Select all

' +++ main_befehlszähler.rem +++
' Zählt Befehle der installierten MPR Version und zeigt das Ergebnis in einer Messagebox an.
'
'========================
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\Befehle: $$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\