Befehls-Zähler-Skript: Wieviele Befehle hat der MPR?
Posted: 14. Apr 2018, 16:25
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.
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\