Wortfee.net

This is a free tool to build your foreign language vocabulary.

Welcome
Languages:
Level:
I accept Cookies:

Start your learning session now!

------------------------------------------------------------------------------ PROCESS-REQUEST SECTION. *>------------------------------------------------------------------------------ *> start or resume session PERFORM HTM2COB-SESS-START PERFORM CHECK-INPUT-FIELDS IF V-NO OF WS-INPUT-OK THEN PERFORM NO-ACCESS END-IF *> write nickname in session MOVE "nickname" TO HTM2COB-SESS-VAR-NAME MOVE WS-HTM-NICKNAME TO HTM2COB-SESS-VAR-VALUE PERFORM HTM2COB-SESS-SET *> check whether within the session MOVE "nickname" TO HTM2COB-SESS-VAR-NAME PERFORM HTM2COB-SESS-GET IF NOT V-OK OF LNK-RESULT OF LNK-HTM2COB-SESSION THEN PERFORM NO-ACCESS END-IF *> write WF_SESSION table INITIALIZE WS-HTM-LEVEL-COUNT INITIALIZE LN-MOD2 MOVE HTM2COB-HIDDEN-SESSION-ID TO LN-SESSION-ID-HEX MOVE WS-HTM-NICKNAME TO LN-NICKNAME MOVE WS-HTM-LANGUAGE TO LN-LANGUAGES MOVE FUNCTION NUMVAL(WS-HTM-LEVEL) TO LN-LEVEL CALL "PGMOD2" USING LN-MOD2 IF V-OK OF LN-RESULT-FLAG THEN MOVE LN-LEVEL-COUNT TO WS-HTM-LEVEL-COUNT ELSE PERFORM NO-ACCESS END-IF EXIT SECTION . *>------------------------------------------------------------------------------ CHECK-INPUT-FIELDS SECTION. *>------------------------------------------------------------------------------ SET V-YES OF WS-INPUT-OK TO TRUE CALL "HTM2COB-POST" USING "nickname", WS-NICKNAME END-CALL CALL "HTM2COB-SPEC-CHARS" USING WS-NICKNAME, WS-HTM-NICKNAME END-CALL CALL "HTM2COB-POST" USING "language", WS-LANGUAGE END-CALL CALL "HTM2COB-SPEC-CHARS" USING WS-LANGUAGE, WS-HTM-LANGUAGE END-CALL CALL "HTM2COB-POST" USING "level", WS-LEVEL END-CALL CALL "HTM2COB-SPEC-CHARS" USING WS-LEVEL, WS-HTM-LEVEL END-CALL CALL "HTM2COB-POST" USING "acceptcookies", WS-ACCEPT-COOKIES END-CALL CALL "HTM2COB-SPEC-CHARS" USING WS-ACCEPT-COOKIES, WS-HTM-ACCEPT-COOKIES END-CALL *> check nickname IF WS-HTM-NICKNAME = SPACES OR STORED-CHAR-LENGTH(WS-HTM-NICKNAME) = ZEROES OR STORED-CHAR-LENGTH(WS-HTM-NICKNAME) > 30 THEN SET V-NO OF WS-INPUT-OK TO TRUE EXIT SECTION END-IF *> check language MOVE WS-HTM-LANGUAGE TO WS-LANGUAGE-CHECK IF NOT V-OK OF WS-LANGUAGE-CHECK OR STORED-CHAR-LENGTH(WS-HTM-LANGUAGE) NOT = 5 THEN SET V-NO OF WS-INPUT-OK TO TRUE EXIT SECTION END-IF EVALUATE WS-LANGUAGE-CHECK WHEN "EN-DE" MOVE "English - German" TO WS-HTM-LANGUAGE-OUT WHEN "DE-EN" MOVE "German - English" TO WS-HTM-LANGUAGE-OUT WHEN "EN-HU" MOVE "English - Hungarian" TO WS-HTM-LANGUAGE-OUT WHEN "HU-EN" MOVE "Hungarian - English" TO WS-HTM-LANGUAGE-OUT WHEN "DE-HU" MOVE "German - Hungarian" TO WS-HTM-LANGUAGE-OUT WHEN "HU-DE" MOVE "Hungarian - German" TO WS-HTM-LANGUAGE-OUT END-EVALUATE *> check level MOVE WS-HTM-LEVEL TO WS-LEVEL-CHECK IF NOT V-OK OF WS-LEVEL-CHECK OR STORED-CHAR-LENGTH(WS-HTM-LEVEL) NOT = 1 THEN SET V-NO OF WS-INPUT-OK TO TRUE EXIT SECTION END-IF *> check acceptcookies MOVE WS-HTM-ACCEPT-COOKIES TO WS-ACCEPT-COOKIES-CHECK IF NOT V-OK OF WS-ACCEPT-COOKIES-CHECK OR STORED-CHAR-LENGTH(WS-HTM-ACCEPT-COOKIES) NOT = 2 THEN SET V-NO OF WS-INPUT-OK TO TRUE EXIT SECTION END-IF IF WS-HTM-ACCEPT-COOKIES = "on" THEN MOVE "Yes" TO WS-HTM-ACCEPT-COOKIES-OUT END-IF EXIT SECTION . *>------------------------------------------------------------------------------ NO-ACCESS SECTION. *>------------------------------------------------------------------------------ DISPLAY "

No access

" DISPLAY '

' DISPLAY '

' DISPLAY '' DISPLAY '
' DISPLAY '

' *> slash with concatenate, because of the htm2cob preprocessor DISPLAY "" "" GOBACK EXIT SECTION . ?>