home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1995 December
/
SOFM_Dec1995.bin
/
pc
/
win
/
dtp
/
formgx
/
demo.b0_
/
demo.b0
Wrap
Text File
|
1995-10-31
|
362KB
|
1,730 lines
////////////////////////////////
// Sample script
sound_test:
if SOUND_DEVICE
set condition 30
/////////////////////////////
install_icon:
$target = "formula"
$title = "Formula Graphics"
$destdir = get directory
DDE "PROGMAN" string "[DeleteGroup(",$title,")]"
DDE "PROGMAN" string "[CreateGroup(",$title,")]"
DDE "PROGMAN" string "[ShowGroup(1)]"
DDE "PROGMAN" string "[AddItem(",$destdir,"\",$target,".exe,",$title,",",$destdir,"\",$target,".exe,0)]"
/////////////////////////////
init_balls:
ball_list = new list
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_red.gif"
ball call init: @name,0,130,5,2
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_grn.gif"
ball call init: @name,0,280,2,-5
ball = new script "ball.sxt"
ball_list add ball
$name = "ball_blu.gif"
ball call init: @name,0,180,-4,3
free ball
timer_count = TIME
/////////////////////////////////////////
play_balls: mess, wparam, loword, hiword
if timer_count < TIME - 1
for n = 0 to 2
ball = ball_list get n
ball call show
free ball
update sprites
timer_count = TIME
////////////////////////////////
clear_balls:
free ball_list
update sprites
///////////////////////////
next_hyperpage:
page = strval getrange "700/710"
page = page + 1
if page > 703 then page = 700
set condition "-700/710,",page
///////////////////////////
show_edit_boxes:
set editbox "edit box 1" = "Formula"
$abc = "Using the Formula Graphics high level object oriented language, you can write text to the contents of an edit box. You can also read the information typed into an edit box. The information can then be analysed in any way imaginable."
set editbox "edit box 2" = $abc
element_list = new byte[20][30]
$element_list[0] = "Picture";"Animation";"Sound";"Video";"Text";"Picture Button";"Text Button";"Hot Area";"Hot Color";"Hypertext";"Edit box";"List Box";"Graph"
for n = 0 to 12
index = listbox "list box 1" add $element_list[n]
/////////////////////////
setup_graph:
colors = new byte[3][3]
colors[0][0] = 200,130,100
colors[1][0] = 100,180,130
colors[2][0] = 100,160,210
///////////////////////////
graph_data:
data = new float[3][4]
for n,m = 0,0 to 2,3
data[n][m] = 10 + rnd 90
return @data, @colors, 0, 100, 10
///////////////////////////
pie_graph_data:
data = new float[3]
max = 0
for n = 0 to 2
data[n] = 20 + rnd 80
max = max + data[n]
for n = 0 to 2
data[n] = floor (data[n] / max * 1000) / 10
return @data, @colors, 0, 100, 0
///////////////////////////
play_game:
display "sam6foot.gif"
killer = new script "killmain.sxt"
killer call start
free killer
update sprites
///////////////////////////////////
/////////////////////////////////GIF87aDl ç ° ≡└XαÇ α¿Pαx╪H≡╕X≡╚XΦÉ8°≡h╕ê@°°êαpΦáHΦÿ@°╚8Φ¿PαX╨ÿHαáP°ΦX≡É αx°╪H╪áH≡╚`xP Φ░P°°É╪áP(XP8░áx8H`X`h( ÉêpP░8ê , Dl ■ H░á┴â (╠á≡ ┬ç#l╪Pó┼ïd╪╚╨!╞Å5n⌠▓ñ┴à#Ü\Y%╦ù0 v∞(2&Hæ3╪╝IæΓNî4■─╪s!╔í*E╩"┼ö9r▄°Sd╨ú+9>╒)3(MåM¥j½2¼╘¡O═"⌠¬Vm╬½Ke¥KW'╫«Z{═KWh┴ÖP]F╝┌W#Ç╗-∙û²{XÑ]¬&÷█váR└òÖ╥`⌠+┘┬}![₧¬0 g£çR%┌Ω╠îVτè₧╩Ü⌡V╒É/oìïta─T▀z\Ö4Ω╠UqÜ^Ä≥≥W¡è¢πt¡╗┤Θ£º¡XkπßO;■ⁿ╝╗{`─╕╡G»k╝º÷üheù}îªNúß9"ë≥└≥ ╛àª]x╥Y TNçƒÇ3┼h┤╣╖₧wv%╒u²╟▌å~µM╫¥å]÷ì7▌i╓╖_BQqσ┘0è`_éúîFΦαì8╬#~)%H#åπîEUWÉ8Γéö=D^bƒ1dJ+┬µôJ±xdù ╩╚Öù=éÇ_"┘Öe·wúo"┘dÜ¢╜⌐f¥N·ΦeÆ$"Σ₧Q≡ÖY#yïφWdò á(Ül6z#úy║i┌óÉFΩƒñdR¬ΦáÄΓΘ(Å;▓)ΘÑû┌⌐áá▓≈╒YOig½ X╡góÜV·)¢öf¬Θ¡╕╓j+»└┬╕kì1n∞▒<╗g~Hå╪╙¡b'+ÿsNΩδ░╚ZïφÖ╫.Ü¡╢╫&{µ╖Å·Ül¡Σ
ïn▒δÆ kaƒzδ.\▒■dñ«▌µ√½ù··║ü╣┴╓·o┐ ;*/ñâ█m║▄åK≡╛û╥êi╣φ╛:WS3ß╗(t∞±╟ Ω»╟|┴╔'£»┬∙Ü╠±┐*ç,s╖1k
s╟3╠r╬ß╥ »░,â\▒ò#àΩñwî≥╥/∞4╧º5╙Kπ╠3ÑNo└t╓ö|⌡├7[ì│╓(╫|⌡╬½⌡╪ )τ│╦╤L÷╦=┐}Üfñ▓ï5┘■⌠▌7╒Çô,⌠╚Jε≈ße├▄▓óY;°π(╦▌x╓╫N>uαcN9╪ûc▐°╨!å«≈▐₧δ▄πP₧╦xßç╖ε:ΓR?¥╢π╝n{É/z9╒s╫ε╖∩╕ {ΓXCε∙ΣÅ┐nⁿ╓ƒ∞▓ß├»r└{╧▌zΓl╦kj ;M¼«εJ╖ε└φ╖?▐°╔»;á■·π_┐<╩Σ╟_~ΓK╦ w╙╧?╙≤K╡²╢½≤r/╥í»π▌╞=ÿ⌠juß≤¢·└╛
NT⌡'┴
b≡âl_ ßτ:÷Ño|(Dí≥¿?┬}<£h┐¬mÇå ▄┌╟E▒ ╔╨à/■Tá÷nΣ@~üOk?íù¿─⌡ß╨Lîóix┴(2╤éó°░╪D√aê[äóqh╗/NqàBöÖ╟┬┬,F∩d█éKTwD±Y±ÄM£ΓSêG+é±ä}$▌XFAf░äP─úÖ╟3ûææm\▀ (5╬u,ëR$$εΦª,"Üäbuöα@╩RÜ≥öå┤Γ)WI╩F╬░âLd%+'∙╩╛A╥ÉLe.i┴A▐2òW$d%⌡⌡1
RÿiDXî>9:÷Më▓îª)ü)Mi║rù¼f5ù¿╟*~0Üéöe8º╔═>╢Å¿╠#∞bF▓ÆÖ╠ÿ▀\Ñ:çg«_òñÖù< Oiü~·≤ƒ■£Ñ9Y ╨éª3Éⁿ,h?╡)ÇkBôíQdhC#
╬üJ╘Üt#÷┬V╕6 Æ =Φ!7i╢6P"ttMΘO╕⌠Ñ0àΘ?E║OûZ ª1e@@ÇàÆSòÑ∞g
@╘αTª3²)EI⌐Pí^T òg6∙üX@⌐ú|¬M:R╥Ääì'S-P╒¬·tó#┼]IçhïÇ╥¥└[ΘX P╒ó2α«xσΘK∩j╒│ó à)^╦J╘┬òº~*T╔Z╪║66»zìibc9W£╡ ¿µM-kVi2╢░ô}Φb╦jV┐Äò¼Ñ╜j)3=┴uûS¡a■ë┌╙╒▓V¡k╡gDRèD[&2¿0¼c┘┘U╡▓∞']/k\╠Æû╣.Eε9k*[τu╕E┼«s╧*┌╧>û╣╟]ÑPI█\½&╫┘Ñ¡t╗^ßT╣┴¥¡yº¢┼ì╛Vö▒╜iv¡zY 7úφKµ╨v;:╕╞5┐±5o* Uφε╫▒≤»wK┌½.°┬ƒ5jm=╦▄╠.°└0aσ+_Θè7╜═m¼to╩Çô╖ &å*]1;^ú«7┐C}.äú╗┘_û ╢Ñα≡╕ª┐≈╕« c7îVr▓₧ üHó┴OU┐U²0êA╝`<╫┬F-ì┼;cτvV v└û╫■¼ΣG7ÜΦ53Üp
\α[ε▓P ∙\ó╞ÿ⌐┘¡▒Ö/½a°╞w╨}oÿ╝┘[á!jO h╠óY╧?åiÄ¡zß║■W╚¢î¥⌡|╧¢:╥░≤ûⁿiP[ì╩¥<)BΓµ<Öö Fu░Ç$@╒!╛0ñ≤∞σ≡╖┼█÷Üδ£j
ⁿZ╒┼.⌠ƒ7²h;█╫═╛3ê la7°▓F/ºà═gΦ╞ö╨3%╖ñ'╜YdG ╥x fÖ╠╧αr:╧Φ∩^æ£gq½÷╢⌡hX»<π{S`X└≥=∩│÷╔qD)¼le└╩╪╥88■∞l▀∙╬═µ2c¡ ▄¢U╦tfv¬▒▌ll?á╪╨½ë[m:∩║╫vVy¬╡╜f.τ▌⌡╞x╩}╬`╟▐╒ÑwEr╖Es£"∙┐f°ñ jr]S ╥─σ+ìu¥ ¼:└▒δ¡íj≥jk|π]Å≤¢ ·╖Æ.s╖6¢Ü>K¥π
\ ß°u╧u╛sƒÅ|╥/σw╞¢M°╛â╕╬.ç╣┤Ö:c╪ß╜╞≤▓Ox╔╖┘═,u)fQ═δ_π9╠²-«Ñòφ≈íFΘEE≤┴░Ωª ╣αv▀u╫s╝▐7ºÇ╘^_Γ╫Γª╞°┘╤Äu}│Z─QzD╛∙¡ª┴╖└@|½σ°V▓ÿ5╝oâ■√█<╧╛╡#▀µó╛╛-û>⌡╤■∙Ró£┘▀╫{∙>╫¬C}π∞±g!δn∞≈█⌠éEhĺqτzd&|ù ùcyàqPy║gzj╨3pwq¢7}°╖q
╟p;╡amñV:sIs_╧Tjìºüá{#WVñäi}6o▌≈nwszl▐f╙╫kæFh8erÿpWτe¢ª`├÷Ç<8╥╓n¢w{0╟╖wäƺªY:σ\£╟╕h⌠vqÖòq ╕Çÿ╒Ç4╕k∞╖{╙DEåé÷&}├çW'nêu|me▓÷╓r9sGpCÑ~y≈rφ⌡`═ut{Uw5╪y φºcñàf8çûS¢G╒7ê┘uiH╕p#Y¢E ÷╖~°ºÇVÿuYÿe≡rúêW₧Φnsªq]Ç3goÄ╖~
¿dñX êwI(i(Bⁿ≤|(hr╣╕ü─Wl27]╕VmσVG$p╨{╘≈è√òbfvzHWv▒ºê=HìUòï│aå¿uvùÇXYαòeÿvWxTƒHî+8è╡ùt[╟u¬Vt±h{¢τ êΦUçÖçq┤oWÿt│êwóXl 8H/╘ç|gHîr╚pG╫jB╓4µé═ΦQ╧Xwö╚z²╚e┼╓╕è ⌐ì?gWZ'\É╢k,Hh" c*Hå;%Æ ¢6Ä╕Ä9⌡çπæWgű¿b╕╫y=I{óWmN╪u≥f|ªñy╕ÿqh╫ôÖ~A°Ä╢╕h╜?╧Xè+ æ─Gçké╕╡V╠╫|îDσxwI)Æ"yT$∙nwçs█8ôly{≈ìà⌡ÆáésHèR╕y╤(æ#ÖàÅvw9{D)Åú'åxu⌐╪Ç0ªkòhò⌡÷çîIòÿtα öÿwPIτTK≡╘É₧Φgî╔ü╛yd8æ╚ÿîbú2(%Θ;r┼bÖwé╔ûy┼Äε&åTm¬╕WÉ╣ù,yÆ≈h{∩µèéx£Rå╝÷re°â:iÿ─(èUsΦ╢`NÿσgÄ xvx∙à,åY£ ü·wï;)n÷uΣôòU╖â8'y╬╞Å╤Iæ`78ö≥ √Iû┤îuù¡º¢É┼¢4╢â╡à#yìÜ9ÄHz┼ù¬Ö¢µ╚\Ω╖éyTèwHò√öº╔¥└iå+iÉXτRºäz╔ÖÇ=╔Xf╚ùXGÖí┘₧fÖPτy8Xó]╚Üσï°3ⁿë²╔ƒiK
É\H{(╔û?°₧¥7ùæ╡öZu┼Θó═╣ò
τ τ8ê▌(å;┌ñè°≈¢äªtA╪ÿ┴ªá╚YóôëóÖg,:èt9ëôΘà╢%ÜF[₧êê╛╢ê'7}iwXLûóª|è"ñ A┌|╜U¢eûY£Öpé8b>÷üé╒áq9äíτªRJów≈áeíXè⌐.╓ì├vp_·âa╩òP╪^╟í ≈y≤í├╕ïv*Ñìgÿ
╚mFg{hÖwÜH[@6ú╢ôò[τlP┘ag╕ú<u|>*jïóƒëZñ╚xX¥ëÿ0╚¬9Ñò½G £ÜÜó½Hÿ└kd╚£HΩ½EGXe⌡hGxm½╔Ä┬º¬┴╢Ñ&ªüz¬u│₧┴ZJ╫╪öΣΦô≈êY0jî ΩKΘ#V.┼ºxëYì5Ç₧ΩÅJ⌠F∙¼±¼⌠Zr╡ºZΦöO~╞Tuuz≥╕ógå(KÜc╪àΦ·É ╖p╓╫«s6x.╖j ¼√fú«╩¥▐uo█╣q=IäKj{ph₧R≈»╕÷û°ì.ë£╨ÖƒiTw*Üî┌P│)ëÄ║│╠·FB#ñ^Cñ_uéWÜï┘Öh≈l╧&▓ΓV⌐~f¡Bê *½W╤4«ªì¡│;ëÜû╫eåx8jÅ░H╟ºε(D╪Y╕╫í4;\/ êB╕£ß* K£∙╩\áz¡┼ù░i⌡{╟ªà╬╢£3Ia¬│╪ú2╤ƒ│Öºi[ô·è+Xà g¼ƒ╖nÖΘ¡w╦┤]░';ï⌠Θ╖╘∙ö└6y9[~ö║⌐∩╣~╜÷}Äi}⌡a╬╞kÜa uI╣
¥╡è╕Üë |½ªk轃däTEêδh5¥º▒╓j«Jæ¡█N√i░δN⌡ƒSUp¡╚íC┘mç╟e;KÆ╛ïp}Y{┬╦`M¢¥ùÜÿ$╩╢ò¢r┘vmîkt/╜a:╜-ùjDwa╓»Zò║9T╞╗╣└·»┬Iº₧Jùτ;░?6ü!$Iµnp¿]δaA╪àH├lΦ║┴┐ⁿ╦ç▓K▓╕¥│çZviσ'╖>╦à╦╣▓¼╘¿fW┬Ö9XΣi╗<┬┌¢äF╦└Lï╣oYóóxx≈qxû╗vû╜τ¬¢D¬┼ç╖M[╞i║WΩ╣8¿ µMφ¢zb¿ûïdj₧ }K▒─$3─ ≤Uçk∩9ƒòs╞E^▄çz(├╤9╞ ╦o╩iîE9ò▐┌╕4xvÿÖ┼ù¢╣:lh|sc╩r└f¬ç\ù·¬S╝áτï┼╠YuTk║ÜèNîτnaxùJ*┤hXî`K_≈+─ 4╧cGW╔&Z╠â5b6å~╖≈┤1J┼RÜ═H╪ù0¼Ö),¬*&╩█Å⌐\╞ÇJ│Zû╜ƒ¼\║
¬╕·½b╝¡╖gÿ½┘£S+ä░ë⌠╢Tÿ+╠W╠zñöOXÄêLü÷σ1ßZ╧<ÜL%═╚ⁿ⌐╗y~>Ur┘▄¡╬ÑΓ╗u╛YïQ├║ⁿôaH}º£⌐c£╕a
àù6~ ï[ÅJ6ï╩
ÆM¿╔Φ\⌐╚÷h8╧Ñ╪╧)K\ù{Nd╢i/φ╣ε╖àÉKö|và:6Q─=└═▀ióky╤SGf ∞¢ƒy╧Æxo6¿╨⌠Lĵ{╙Ti£╧╗⌐½²ä╜«z╗>╖X▒┐4Ö╔*|£║╤║l╙╔)ä&╠ë┌4₧ñ:┬r° jvx°Z╣.·ò²╘=╚#pGLv<╔ñ╚c₧Upà){ÜÿÖM╩º╝&¬zÖ₧x<┴r zB═┤,}åP;nCk¥╓kVâGí¡m╝x╖/9z≈╟z>}¢I
íg╗yºx╠!?½┬?¼╠$e9∙█╠τ3 k╒p)╜ñmê ö÷ª█¡█Háó²Äá¬σê≥╢╦0yù╒╗Ü┌│«⌐à-ªP╚─e╡ÆjêlσëÖ~ë£╒ååδ¥╡╠╡Z¥T-Ñ╢¡ê▄¿Yx±╟khmM}??Ω4MdTM╒▓|φ8╔8c╘àüaÿÄ╟║╦'k╞÷╝█ÇαΣ-{δφfnΩ▐+∙░Y▓╒G▀.X█8┘┌&~╦WΩ¢_k╤Z<αJJa°máѼ╜ ╧=wx╩M½^╚{C69A;0Ä╢└╟æ║H┌k╫ÜbσÉfºìöⁿù£ûÄ█∞╫t{ô$n░½wâ')s¥╪;x«╝-└╦Ybv╫ùE«ÖIK~Vjå¥=┌d=£ y └\
αÆ█j⌐6╪w|J┬V╚╣τ╦W∙▄ì╙╠-.╙7W^¢R ₧≡¡░êU▌ò`Äçä½jë▌-Φê▀$]╙+.ö!sτπ;│ èΣîl╝=ä2(X┘lâƒ}£(ùπMΦ░ÇÉ7ù
áP╔ß╠╦úmya,\φ╩y╗Φh╬▌╨├Θ¥╛╥= Pσí^júĪU┘σ5₧I╠Γ╖▐g▀╥╟>ÿ╚f╝ü║µ+:│⌐ê¬M╚ÆZ¬Æ4«ÄEò]║VÄ9ΘÇæ~τΘü¥WêÉ┌¢"$0≡á Ñä]s║ó╓╞îê║≡I╬ BQ.στ.▌dsσ╙j┘¢┘Ö▀K{|I E¡K╕╒╦TIφ┼Ω╣╔Pê=╥k
ƒ≥≈wÆhú┼Yªenóq╓afτ»N7π7Ü┌├Uµ₧=╟zÑÿφ╟±!α? ?≥
Ç█╢«y⌐φK╝½p∞amú≤ò╚}úεδ>