-
Notifications
You must be signed in to change notification settings - Fork 1
/
HM.TO.SL
60 lines (43 loc) · 1.08 KB
/
HM.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
SUBROUTINE HM.TO.SL
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.HELPTEXT.MENU
GOSUB INIT
LOOP
GOSUB GET.INPUT
UNTIL COMI = 99
GET.INPUT:
CRT @(-1)
PRINT @(5,4) : " HM to SL : " : OPTION.HM
PRINT @(5,6) : "1. HM Only"
PRINT @(5,7) : "2. ALL : HM, ENQ, VER, ECS, ETS"
PRINT @(5,8) : "99. EXIT"
CALL TXTINP('Input Options / HELPTEXT.MENU : ', 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
HM.NAME = COMI
GOSUB PROCESS
END CASE
INIT:
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 READ.HM(HM.NAME, HM.LIST, HM.SL, HM.ALL.SL)
IF OPTION.HM = "ALL" THEN
WRITE HM.ALL.SL TO SAVEDLISTS, HM.NAME : '.SL'
END ELSE
WRITE HM.SL TO SAVEDLISTS, HM.NAME : '.SL'
END
RETURN
END