failat 65535
assign cd0: remove
assign cd0: dismount
assign cd0: /UFO
assign c: cd0:c
assign fonts: cd0:fonts
assign libs: cd0:libs
assign devs: cd0:
assign l: cd0:
assign s: cd0:
assign sys: cd0:
;makedir >nil: ram:env
;makedir >nil: ram:env/sys
;assign env: ram:env

; Icon script

Intro
c:avail >NIL: flush

FAILAT 20

Geo "0" "0"
IF ERROR
   SKIP begin
ENDIF

SKIP end

LAB begin
c:avail >NIL: flush
Tactical "1" "0"

LAB geo
c:avail >NIL: flush
Geo "1" "0"
IF ERROR
   SKIP begin BACK
ENDIF

LAB end
endcli