-
Notifications
You must be signed in to change notification settings - Fork 1
/
HMM.TO.SL
84 lines (60 loc) · 1.56 KB
/
HMM.TO.SL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
SUBROUTINE HMM.TO.SL
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.HELPTEXT.MAINMENU
$INSERT I_F.HELPTEXT.MENU
GOSUB INIT
LOOP
GOSUB GET.INPUT
UNTIL COMI = 99
REPEAT
RETURN
GET.INPUT:
CRT @(-1)
PRINT @(5,4) : " HMM to SL : " : OPTION.HM
PRINT @(5,6) : "1. HM Only"
PRINT @(5,7) : "2. ALL : HMM, HM, ENQ, VER, ECS, ETS"
PRINT @(5,8) : "99. EXIT"
CALL TXTINP('Input Options / HELPTEXT.MAINMENU : ', 8, 22,32, 'ANY')
IF COMI = 99 THEN RETURN
BEGIN CASE
CASE COMI = 1
OPTION.HM = "HM.ONLY"
CASE COMI = 2
OPTION.HM = "ALL"
CASE 1
HMM.NAME = COMI
GOSUB PROCESS
END CASE
RETURN
INIT:
FN.HMM = "F.HELPTEXT.MAINMENU"
F.HMM = ""
CALL OPF(FN.HMM,F.HMM)
FN.HM = "F.HELPTEXT.MENU"
F.HM = ""
CALL OPF(FN.HM,F.HM)
OPEN '', '&SAVEDLISTS&' TO SAVEDLISTS ELSE
PRINT 'CANNOT OPEN &SAVEDLISTS&'
END
OPTION.HM = "HM.ONLY"
RETURN
PROCESS:
CALL F.READ(FN.HMM, HMM.NAME, R.HMM, F.HMM, HMM.ERR)
IF HMM.ERR THEN
* exit
END ELSE
APP.HMM = R.HMM<EB.MME.ID.OF.HELP.MENU>
LOOP
REMOVE APP.ID FROM APP.HMM SETTING ID.POS
WHILE APP.ID:ID.POS
CALL READ.HM(APP.ID, HM.LIST, HM.SL, HM.ALL.SL)
IF OPTION.HM = "ALL" THEN
WRITE HM.ALL.SL TO SAVEDLISTS, HMM.NAME : '.SL'
END ELSE
WRITE HM.SL TO SAVEDLISTS, HMM.NAME : '.SL'
END
REPEAT
END
RETURN
END