Wortfee.net Learning page

Question:

)"> ' end-if ?>

15:00

Progress: %

Start Time:
Nickname:
Languages:
Level:
Questions:
OK Answers:
Success-0:
Success-1:
Success-2:
Success-3:
Success-4:
Success-5:

Users online:

------------------------------------------------------------------------------ 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 *> 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 INITIALIZE LN-MOD3 MOVE HTM2COB-HIDDEN-SESSION-ID TO LN-SESSION-ID-HEX IF WS-HTM-SELECTED-IMG(4:1) NOT = SPACES AND WS-HTM-SELECTED-IMG(4:1) IS NUMERIC THEN MOVE FUNCTION NUMVAL(WS-HTM-SELECTED-IMG(4:1)) TO LN-SELECTED-IMG-NR END-IF CALL "PGMOD3" USING LN-MOD3 IF V-OK OF LN-RESULT-FLAG THEN IF V-YES OF LN-COMPLETED-FLAG THEN PERFORM LEVEL-COMPLETED ELSE CONTINUE END-IF ELSE PERFORM NO-ACCESS END-IF EVALUATE LN-LANGUAGES 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 COMPUTE WS-PROGRESS = (LN-SUCCESS-5 / LN-MAX-USER-WORD) * 100 END-COMPUTE MOVE WS-PROGRESS TO WS-PROGRESS-Z MOVE WS-PROGRESS-Z TO WS-HTM-PROGRESS MOVE LN-GUEST-COUNT TO WS-GUEST-COUNT MOVE WS-GUEST-COUNT TO WS-GUEST-COUNT-Z MOVE WS-GUEST-COUNT-Z TO WS-HTM-GUEST-COUNT MOVE LN-QUESTION-COUNT TO WS-QUESTION-COUNT MOVE WS-QUESTION-COUNT TO WS-QUESTION-COUNT-Z MOVE WS-QUESTION-COUNT-Z TO WS-HTM-QUESTION-COUNT MOVE LN-ANSWER-OK-COUNT TO WS-ANSWER-OK-COUNT MOVE WS-ANSWER-OK-COUNT TO WS-ANSWER-OK-COUNT-Z MOVE WS-ANSWER-OK-COUNT-Z TO WS-HTM-ANSWER-OK-COUNT EXIT SECTION . *>------------------------------------------------------------------------------ CHECK-INPUT-FIELDS SECTION. *>------------------------------------------------------------------------------ SET V-YES OF WS-INPUT-OK TO TRUE CALL "HTM2COB-POST" USING "selected_img", WS-SELECTED-IMG END-CALL CALL "HTM2COB-SPEC-CHARS" USING WS-SELECTED-IMG, WS-HTM-SELECTED-IMG END-CALL *> check selected_img MOVE WS-HTM-SELECTED-IMG TO WS-SELECTED-IMG-CHECK IF NOT V-OK OF WS-SELECTED-IMG-CHECK THEN SET V-NO OF WS-INPUT-OK TO TRUE EXIT SECTION END-IF EXIT SECTION . *>------------------------------------------------------------------------------ LEVEL-COMPLETED SECTION. *>------------------------------------------------------------------------------ DISPLAY '' END-DISPLAY DISPLAY '' END-DISPLAY DISPLAY '

' END-DISPLAY DISPLAY '

Congratulations!!!

' END-DISPLAY DISPLAY '

Level ' LN-LEVEL ' with ' LN-MAX-USER-WORD ' words Completed.

' END-DISPLAY DISPLAY ' ' END-DISPLAY DISPLAY '

' END-DISPLAY DISPLAY '

' END-DISPLAY DISPLAY '' END-DISPLAY DISPLAY '' END-DISPLAY *> slash with concatenate, because of the htm2cob preprocessor DISPLAY "" "" END-DISPLAY GOBACK EXIT SECTION . *>------------------------------------------------------------------------------ NO-ACCESS SECTION. *>------------------------------------------------------------------------------ DISPLAY '

No access

' END-DISPLAY DISPLAY '

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