BEGIN ~KIMSOLAR~


IF ~true()~ THEN BEGIN 0
SAY @0
IF ~~ THEN REPLY @1 GOTO 2
IF ~~ THEN REPLY @2 GOTO 2
IF ~~ THEN REPLY @3 GOTO 1
END

IF ~~ THEN BEGIN 1
SAY @4
IF ~~ THEN DO ~SetGlobal("skullfin","GLOBAL",11) ~ EXIT
END

IF ~~ THEN BEGIN 2
SAY @5
IF ~~ THEN EXTERN SKULLKIM deva0
END

IF ~~ THEN BEGIN 3
SAY @6
IF ~~ THEN GOTO 4
END

IF ~~ THEN BEGIN 4
SAY @7
IF ~~ THEN REPLY @8 GOTO 6
IF ~~ THEN REPLY @9 GOTO 5
IF ~~ THEN REPLY @10 GOTO 1
END

IF ~~ THEN BEGIN 5
SAY @11
IF ~~ THEN EXTERN SKULLKIM deva1
END

IF ~~ THEN BEGIN 6
SAY @12
IF ~~ THEN REPLY @13 GOTO 5
IF ~~ THEN REPLY @14 GOTO 1
END

IF ~~ THEN BEGIN 7
SAY @15
IF ~~ THEN GOTO 8
END

IF ~~ THEN BEGIN 8
SAY @16
IF ~~ THEN REPLY @2 GOTO 9
IF ~~ THEN REPLY @17 GOTO 10
IF ~~ THEN REPLY @18 GOTO 11
END

IF ~~ THEN BEGIN 9
SAY @19
IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 10
SAY @20
IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 11
SAY @21
IF ~~ THEN GOTO 1
END

APPEND SKULLKIM

IF ~~ THEN BEGIN deva0
SAY @22
IF ~~ THEN EXTERN KIMSOLAR 3
END

IF ~~ THEN BEGIN deva1
SAY @23
IF ~~ THEN EXTERN KIMSOLAR 7
END
END
