O9010_HAAS.nc

%
O9010
(defer macro call) 
 
 
(DEFINDET DATE)
#10191=#0(=YYYY=)
#10192=#0(=MM=)
#10193=#7(=DD=)
 
(DEFINDET TIME)
#10194=#11(=HH=) 
#10195=#13(=MM=) 
#10196=#0(=SS=)
 
#10197=#20(START TYPE) 
 
 
(=== CHECK VARIEBLES ===)
IF[[#10191NE#0]AND[[#10191NE[ROUND[#10191]]]OR[#10191GT9999]OR[#10191LT0]]]THEN#3000=1(WRONG PARAMETR YEAR)
IF[[#10192NE#0]AND[[#10192NE[ROUND[#10192]]]OR[#10192GT99]OR[#10191LT0]]]THEN#3000=2(WRONG PARAMETR MONTH) 
IF[[#10193NE#0]AND[[#10193NE[ROUND[#10193]]]OR[#10193GT99]OR[#10191LT0]]]THEN#3000=3(WRONG PARAMETR DAY) 
IF[[#10194NE#0]AND[[#10194NE[ROUND[#10194]]]OR[#10194GT99]OR[#10191LT0]]]THEN#3000=4(WRONG PARAMETR HOURS) 
IF[[#10195NE#0]AND[[#10195NE[ROUND[#10195]]]OR[#10195GT99]OR[#10191LT0]]]THEN#3000=5(WRONG PARAMETR MINUTES) 
IF[[#10196NE#0]AND[[#10196NE[ROUND[#10196]]]OR[#10196GT99]OR[#10191LT0]]]THEN#3000=6(WRONG PARAMETR SECONDS) 
 
IF[[#10197NE#0]AND[[#10197NE1]AND[#10197NE2]AND[#10197NE3]]]THEN#3000=7(WRONG START TYPE)
IF[[#3NE1]AND[#3NE#0]]THEN#3000=8(-C- CAN BE 1 OR NOTHING) 
IF[[#10191EQ#0]AND[#10192EQ#0]AND[#10193EQ#0]AND[#10194EQ#0]AND[#10195EQ#0]AND[#10196EQ#0]]THEN#3000=8(MISSIG ALL PARAMETR)
IF[#1EQ#0]THEN#3000=9(MISSIG NUMBER MACRO) 
IF[[#1LE0]OR[#1NE[ROUND[#1]]]]THEN#3000=10(WRONG NUMBER MACRO) 
(=== END ===)
 
 
(=== DEFAULT ===)
#10190=0(DEFAULT HASH) 
IF[#10191NE#0]THEN#10190=#10190+#10191*10000(ADD YEAR) 
IF[#10192NE#0]THEN#10190=#10190+#10192*100(ADD MONTH)
IF[#10193NE#0]THEN#10190=#10190+#10193(ADD DAY)
IF[#10194NE#0]THEN#10190=#10190+#10194*10000(ADD HOURS)
IF[#10195NE#0]THEN#10190=#10190+#10195*100(ADD MINUTES)
IF[#10196NE#0]THEN#10190=#10190+#10196(ADD SECONDS)
 
IF[#10191EQ#0]THEN#10191=FIX[#3011/10000](DEFAULT YEAR)
IF[#10192EQ#0]THEN#10192=FIX[#3011/100]-FIX[#3011/10000]*100(DEFAULT MONTH)
IF[#10193EQ#0]THEN#10193=#3011-FIX[#3011/100]*100(DEFAULT DAY) 
 
IF[#10194EQ#0]THEN#10194=FIX[#3012/10000](DEFAULT HOURS) 
IF[#10195EQ#0]THEN#10195=FIX[#3012/100]-FIX[#3012/10000]*100(DEFAULT MINUTES)
IF[#10196EQ#0]THEN#10196=#3012-FIX[#3012/100]*100(DEFAULT SECONDS) 
 
IF[#10197EQ#0]THEN#10197=3(DEFAULT START TYPE) 
#10198=#10191*10000+#10192*100+#10193(DEFINDET DATE =YYYY MM DD=)
#10199=#10194*10000+#10195*100+#10196(DEFINDET TIME =HH MM SS=)
(=== END ===)
 

GOTO[10+#10197](SELECT MODE)
 
 
N11(=== WORK UNTIL TO ===) 
IF[#3011GT#10198]GOTO99
IF[[#3011EQ#10198]AND[#3012GE#10199]]GOTO99
IF[[#3EQ1]AND[#10999EQ#10190]]GOTO99(CHECKING COUNTS)
 
G65P#1B#2E#8F#9I#4J#5K#6Q#17R#18S#19U#21V#22W#23X#24Y#25Z#26(CALL MACRO) 
#10999=#10190(SAVE HASH) 
 
GOTO99(=== END ===)
 
 
N12(=== WORK AFTER ===)
IF[#3011LT#10198]GOTO99
IF[[#3011EQ#10198]AND[#3012LE#10199]]GOTO99
IF[[#3EQ1]AND[#10999EQ#10190]]GOTO99 
 
G65P#1B#2E#8F#9I#4J#5K#6Q#17R#18S#19U#21V#22W#23X#24Y#25Z#26(CALL MACRO) 
#10999=#10190(SAVE HASH) 
 
GOTO99(=== END ===)
 
 
N13(=== WORK AROUND ===) 
IF[#7EQ#0]THEN#10193=0(=DD=) 
IF[#11EQ#0]THEN#10194=0(=HH=)
IF[#13EQ#0]THEN#10195=0(=MM=)
 
#10198=#3011(DEFINDET DATE =YYYY MM DD=) 
#10199=#3012(DEFINDET TIME =HH MM SS=) 
 
WHILE[1]DO1(ENDLESS CYCLE) 
IF[[#3011GE[#10198+#10193]]AND[#3012GE[#10199+#10194*1000+#10195*100]]]GOTO99
G65P#1B#2C#3E#8F#9I#4J#5K#6Q#17R#18S#19U#21V#22W#23X#24Y#25Z#26(CALL MACRO)
END1 

GOTO99(=== END ===)
 
 
N99
M99
%