22 lines
692 B
Plaintext
22 lines
692 B
Plaintext
REM Store some values with their keys:
|
|
PROCputdict(mydict$, "FF0000", "red")
|
|
PROCputdict(mydict$, "00FF00", "green")
|
|
PROCputdict(mydict$, "0000FF", "blue")
|
|
|
|
REM Retrieve some values using their keys:
|
|
PRINT FNgetdict(mydict$, "green")
|
|
PRINT FNgetdict(mydict$, "red")
|
|
END
|
|
|
|
DEF PROCputdict(RETURN dict$, value$, key$)
|
|
IF dict$ = "" dict$ = CHR$(0)
|
|
dict$ += key$ + CHR$(1) + value$ + CHR$(0)
|
|
ENDPROC
|
|
|
|
DEF FNgetdict(dict$, key$)
|
|
LOCAL I%, J%
|
|
I% = INSTR(dict$, CHR$(0) + key$ + CHR$(1))
|
|
IF I% = 0 THEN = "" ELSE I% += LEN(key$) + 2
|
|
J% = INSTR(dict$, CHR$(0), I%)
|
|
= MID$(dict$, I%, J% - I%)
|