Club Amiga de Montreal

home *** CD-ROM | disk | FTP | other *** search

/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 270.lha / UltraCard_Browser / ultradex (.txt) < prev

Wrap

UltraCard Stack | 1989-08-09 | 38.4 KB | 322 lines

-- Select Handlers for this object Select: jump to frame id 1 of stack "ControlRoom" End_Select Select.Down: End_Select.Down Select Select.Down FRAME STACK ControlRoom -- Select Handlers for this object Select: sort by name End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: AskValue prompt "Find What?" into it find it End_Select Select.Down: End_Select.Down Select Select.Down ASKVALUE PROMPT Find What? -- Select Handlers for this object Select: say "This is the Names & Addresses Stack" say "This is an example of what can be built with Ultra Card in fifteen minutes" say "You may use and modify this as you wish" say "Thank you again for buying Ultra Card by Mike Leeman" End_Select Select.Down: End_Select.Down Select Select.Down This is the Names & Addresses Stack This is an example of what can be built with Ultra Card in fifteen minutes You may use and modify this as you wish Thank you again for buying Ultra Card by Mike Leeman -- Select Handlers for this object Select: jump prev End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: jump next End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down -- Select Handlers for this object Select: End_Select Select.Down: End_Select.Down Select Select.Down ILBMBMHD BACKDROP.1 OBJECT.91 Names & Addresses `Diamond 12 OBJECT.7 OBJECT.6 Telephone City.State.Zip Monterey, CA 93940 Street 2700 Garden Road, Suite 6 Affiliation Intuitive Technologies Collin Nordgren FRAME.3 Monterey, CA 93940 2700 Garden Road, Suite 6 Intuitive Technologies Collin Nordgren FRAME.2 Monterey, CA 93940 2700 Garden Road, Suite 6 Intuitive Technologies Debbie Lehman FRAME.5 Monterey, CA 93940 2700 Garden Road, Suite 6 Intuitive Technologies Kirsten Nordgren FRAME.4 Monterey, CA 93940 2700 Garden Road, Suite 6 Intuitive Technologies Lindsey Lehman FRAME.1 Monterey, CA 93940 2700 Garden Road, Suite 6 Intuitive Technologies Mike Lehman FRAME.6 New York, NY 10001 212 W 90th Art Official Intelligence Steve Gillmor Stack.Entry: End_StackEntry Stack.Exit: End_StackExit Click.Up: End_ClickUp tab.key: global tabname get the "name" of object(tabkeyobject) into it put it into tabname if tabname = "Name" send to affiliation click.down send to affiliation click.up endif if tabname = "affiliation" send to street click.down send to street click.up endif if tabname = "street" send to city.state.zip click.down send to city.state.zip click.up endif if tabname = "city.state.zip" send to telephone click.down send to telephone click.up endif end_tabkey Stack.Entry Stack.Exit Click.Up tab.key GLOBAL TABNAME TABKEYOBJECT TABNAME TABNAME AFFILIATION CLICKDOWN AFFILIATION CLICKUP ENDIF TABNAME affiliation STREET CLICKDOWN STREET CLICKUP ENDIF TABNAME street CITYSTATEZIP CLICKDOWN CITYSTATEZIP CLICKUP ENDIF TABNAME city.state.zip TELEPHONE CLICKDOWN TELEPHONE CLICKUP ENDIF CLASTDATE ULTRATALKCHAT cursor ready TheFGPen WIDTHADJUST CANTMODIFY HEIGHTADJUST TheBGPen TheDrawMode TheTextPen 'TheFont TheFont Topaz 8 BoldStyle ItalicStyle UnderlineStyle DATACURSOR FALSE MOUSEX MOUSEY SHIFTKEY ALTKEY CONTROLKEY TheDate 26-Jun-89 TheDay TheDayOfTheWeek TheTime 08:54:23 PM TheYear TheMonth EXTERNAL.SCRIPTER C:RUN C:RX EDITOR PAINT TABKEYOBJECT TARGET SELECTION FINDOBJECT IOLENGTH PATHWAYS ULTRA:STACKS ULTRA: SOUNDSLOADED TABNAME Telephone FRAME.6 Chaleston, South Carolina 2178-G Bee's Ferry Rd. Art Official Intelligence Steve Gillmor BACKDROP.1 OBJECT.91 Names & Addresses Diamond 12 OBJECT.7 OBJECT.6 Telephone City.State.Zip Street Affiliation LASTDATE ULTRATALKCHAT 'put "deluxepaintIII:dpaint" into paint City.State.Zip TheFGPen WIDTHADJUST CANTMODIFY INMODIFY HEIGHTADJUST TheBGPen TheDrawMode TheTextPen 'TheFont TheFont Topaz 8 BoldStyle ItalicStyle UnderlineStyle DATACURSOR FALSE MOUSEX MOUSEY SHIFTKEY ALTKEY CONTROLKEY TheDate 26-Jun-89 TheDay TheDayOfTheWeek TheTime 08:54:23 PM TheYear TheMonth EXTERNAL.SCRIPTER C:RUN C:RX EDITOR PAINT deluxepaintIII:dpaint VISUAL.EFFECT EFFECT.SPEED EFFECT.AMOUNT TABKEYOBJECT TARGET SELECTION FINDOBJECT IOLENGTH PATHWAYS ULTRA:STACKS ULTRA: SOUNDSLOADED UPEFFECT DOWNEFFECT RIGHTEFFECT LEFTEFFECT TABNAME City.State.Zip