G4C;Passy by Richard Kapp 1999 ; MUST BE IN THE FIRST(!) LINE
WINBIG -1 -1 0 0 ""
wintype 00001000
WINFONT XHelvetica.font 13 010
image 135 3 intro
WINBACKGROUND SOLID 0 1
xonload
        extract Passy guipath Passypath
        ifexists assign Passy:  ;try to self-locate
          else
           assign Passy: $Passypath
        endif
        freevar = intro
        loadimage intro test  Workbench
        guiopen Passy
        image 10 5 test

xonclose
        freeimage $freevar
        guiquit Passy
      


TEXT 70 10 135 20 "    *** PASSY ***" 40 BOX
TEXT 70 30 135 20 "by Richard Kapp 1999" 40 NOBOX
TEXT 70 50 135 20 " made using GUI4CLI " 40 NOBOX
xTEXTIN 70 135 150 20 Password: a -> 20

IF $a = Password ;ENTER YOUR PASSWORD HERE!

            freeimage $freevar
            guiquit Passy

ELSE
FLASH
say "WRONG PASSWORD!"

ENDIF