10
20
30
40
50 :
60
70
80
90 :
100 :
110
120
130
140 :
150 DEFPROCChoices_Rd(file$):LOCAL A$,A%
160 in%=OPENIN(file$)
170 IFin% THEN
180 REPEAT
190 A$=GET$#in%:IF LEFT$(A$,1)="#":A$=""
200 A%=INSTR(A$,":"):IF A% THEN
210 A%=A%-1:REPEAT:A%=A%+1:UNTIL MID$(A$,A%,1)<>" "
220 PROCVar_Assign("m"+LEFT$(A$,A%-1)+"$",""""+MID$(A$,A%+1)+"""")
230 ENDIF
240 UNTIL EOF#in%:CLOSE#in%:in%=0
250 ENDIF
260 ENDPROC
270 :
280 :
290
300
310 :
320 DEFFNChoices_Find(Publisher$,Application$)
330 =FNReg_Rd("Software\"+Publisher+"\"+Application$+"\Settings")
340 :
350 :
360
370
380 :
390 DEFFNChoices_Set(Publisher$,Application$,Path$)
400 PROCReg_Wr("Software\"+Publisher+"\"+Application$+"\Settings",Path$)
410 :