@DATABASE Delta.guide @AUTHOR "Îukasz (DELTA) Ûelezny" @$VER: AMOSPro_Delta.Guide v1.6 (18.08.97) @WIDTH 77 @NODE MAIN "Delta - An extension for AMOSPro" @{u}@{b}AMOSPro Delta Extension v1.6@{uu}@{ub} Release Date: 18.05.97 @{" Introduction " LINK Introduction} @{" Installation " LINK Installation} @{" Error messages " LINK Errors} @{" History " LINK History} @{" Thanx " LINK Thanx} @{" List of files " LINK List} @{" New ideas " LINK Idee} @{" Contact " LINK CTX} @{" Greets " LINK Gre} @{" Something about me! " LINK DELTA} Intructions: @{" Delta Pal " LINK A} @{" Delta Ntsc " LINK B} @{" Delta No Synchro " LINK C} @{" Delta Drive Motor On " LINK D} @{" Delta Drive Motor Off " LINK E} @{" Delta Decrunch " LINK F} @{" Delta Wait Left Mouse " LINK G} @{" Delta Wait Fire " LINK FIRE} @{" Delta Wait Double Mouse " LINK H} @{" Delta Change Disk " LINK I} @{" Delta Reset " LINK J} @{" Delta Inter Off " LINK K} @{" Delta Inter On " LINK L} @{" Delta Mouse Off " LINK M} @{" Delta Blit Off " LINK AAAA} @{" Delta Crash " LINK BBBB} @{" Delta Hard Reset " LINK CCCC} @{" Delta Beep All " LINK AXA} @{" Delta Change Bank " LINK AXB} @{" Delta Intuition Message " LINK AXC} @{" Delta Reqtools Palette " LINK AXD} @{" Delta Wb To Back " LINK AXH} @{" Delta Wb To Front " LINK AXH} @{" Delta Lock Pub Screens " LINK AXI} @{" Delta Unlock Pub Screens " LINK AXJ} @{" Delta Kill Task " LINK AXL} @{" Delta Req Palette " LINK AXM} @{" Jsr - PRIVATE - " LINK PRV} @{" Moveb - PRIVATE - " LINK PRV} @{" Movew - PRIVATE - " LINK PRV} @{" Movel - PRIVATE - " LINK PRV} Functions: @{" =Delta Brithday " LINK N} @{" =Delta Pi# " LINK O} @{" =Delta E# " LINK P} @{" =Delta About$ " LINK Q} @{" =Delta Yard$ " LINK R} @{" =Delta Feet$ " LINK S} @{" =Delta Inch$ " LINK T} @{" =Delta American Mile$ " LINK U} @{" =Delta English Mile$ " LINK W} @{" =Delta Radian$ " LINK X} @{" =Delta Degree$ " LINK Y} @{" =Delta Euler$ " LINK Z} @{" =Delta Find Task " LINK AXK} @{" =Delta Reqtools Requester " LINK AXE} @{" =Delta Reqtools Get Number" LINK AXF} 47 new commands @ENDNODE @NODE PRV "PRIVATE COMMANDS" Thats are my private commands, but if you want you can use these commands. SYNTAX: Jsr ADDRESS Moveb DATA,ADDRESS Movew DATA,ADDRESS Movel DATA,ADDRESS Jsr - jump to subroutine Moveb - send byte to address (like Poke) Movew - send word to address (like Doke) Movel - send long word to address (like Loke) @ENDNODE @NODE AXB "Delta Change Bank" SYNTAX: Delta Change Bank Start(OLDBANK) To NEWBANK - OLDBANK - addres of old bank - NEWBANK - number of new bank Change bank number.BE CAREFUL! NEWBANK can't be number of existing bank. Example: Reserve As Data 10,1000 Delta Change Bank Start(10) To 50 @ENDNODE @NODE AXA "Delta Beep All" SYNTAX: Delta Beep All Flash on all intuitions screens. Example: Amos To Back Wait 25 Delta Beep All Wait 25 Amos To Front @ENDNODE @NODE AXC "Delta Intuition Message" SYTNAX: Delta Intuition Message WIDTH,Chr$(POS)+TXT$ WIDTH - width of border POS - text's position TXT$ - text of message Make some yellow message. AMOS must be back. Example: Amos To Back Delta Intuition Message 100,Chr$(20)+"AMOS is cool!" Amos To Front @ENDNODE @NODE AXH "Delta Wb To Back/Delta Wb To Front" SYNTAX: Delta Wb To Back Delta Wb To Front Workbench screen will be first or last. @ENDNODE @NODE AXJ "Delta Lock Pub Screens/Delta Unlock Pub Screens" SYNTAX: Delta Lock Pub Screens Delta Unlock Pub Screens These commands lock/unlock intuition screens. BE CAREFUL! If you use these commands AMOS must be back. Example: Amos To Back Delta Lock Pub Screens 'make something (don't use commands like Delta Reqtools Palette now) Delta Unlock Pub Screens Amos To Front @ENDNODE @NODE AXL "Delta Kill Task" SYNTAX: Delta Kill Task NAME$ NAME$ - name of task This command kill task. BE CAREFUL! Name of cannot be " AMOS", this is AMOS task name and if you will kill AMOS task then AMOS will crash. @ENDNODE @NODE AXM "Delta Req Palette" SYNTAX: Delta Req Palette COLOUR COLOUR - number of first edited colour Call req palette requester. BE CAREFUL! This function use req.library. You must have this in LIBS:. Else you will have GURU. Also AMOS must be back. Example: If Exist("LIBS:req.library") Amos To Back Print Delta Req Palette 2 Amos To Front Else Print "Cannot open req.library" End if @ENDNODE @NODE AXK "=Find Task" SYNTAX: ADDRES=Find Task(NAME$) - ADDRESS - address of task structure - NAME$ - name of searching task This function give you addres of task structure, but if ADDRESS=0 then task not found. @ENDNODE @NODE AXF "=Delta Reqtools Get Number" SYNTAX: NUMBER=Delta Reqtools Get Number(TITLE$,DEF_NUMBER) NUMBER - entered number TITLE$ - title of window. e.g. - "Enter some number" DEF_NUMBER - default number e.g. 10 Call reqtools Get Number function. BE CAREFUL! This function use reqtools.library. You must have this in LIBS:. Else you will have GURU. Also AMOS must be back. Example: If Exist("LIBS:reqtools.library") Amos To Back Print "You number";Delta Reqtools Get Number("Enter number:",10) Amos To Front Else Print "Cannot open reqtools.library" End if @ENDNODE @NODE AXE "=Delta Reqtools Requester" SYNTAX: SELECTED=Delta Reqtools Requester(TITLE$,GADGET$) SELECTED - number of selected gadget TITLE$ - title of window. e.g. - "Select some gadget" GADGET$ - gadgets e.g - "First|Second|Third" Call reqtools requester. BE CAREFUL! This function use reqtools.library. You must have this in LIBS:. Else you will have GURU. Also AMOS must be back. Example: If Exist("LIBS:reqtools.library") Amos To Back Print Delta Reqtools Requester("Is AMOS cool ?","Yes|No") Amos To Front Else Print "Cannot open reqtools.library" End if @ENDNODE @NODE AXD "Delta Reqtools Palette" SYNTAX: Delta Reqtools Palette TITLE$ TITLE$ - title of window Call reqtools palette requester. BE CAREFUL! This function use reqtools.library. You must have this in LIBS:. Else you will have GURU. Also AMOS must be back. Example: If Exist("LIBS:reqtools.library") Amos To Back Delta Reqtools Palette "Change Palette" Amos To Front Else Print "Cannot open reqtools.library" End if @ENDNODE @NODE Introduction "Introduction" This is small extension for AMOSPro. This is public domain file. If you like it then send me post-card. @{"Delta" LINK DELTA} @{"Lukasz Zelezny" LINK DELTA} ul. Wloska 4d/6 42-612 Tarnowskie Gory Poland @ENDNODE @NODE Installation "Installation" To install the Delta Extension for AMOS Professional, do the following: - Copy AMOSPro_Delta.Lib to AMOSPro_System:APSystem/ - Load AMOSPro, and select "Set Interpreter" from the config menu. Load the default configuration and click on loaded extensions. Enter 'AMOSPro_Delta.Lib' into slot 15 and save the default configuration. - Quit and restart AMOSPro. @ENDNODE @NODE A "Delta Pal" SYNTAX: Delta Pal Set on Pal mode. @ENDNODE @NODE B "Delta Ntsc" SYNTAX: Delta Ntsc Set on Ntsc mode. @ENDNODE @NODE C "Delta No Synchro" SYNTAX: Delta No Synchro This is small visual efect. After this command you must write Delta Pal or Delta Ntsc for back to normal screen. @ENDNODE @NODE D "Delta Drive Motor On" SYNTAX: Delta Drive Motor On Set on drive motor. @ENDNODE @NODE E "Delta Drive Motor Off" SYNTAX: Delta Drive Motor Off Set off drive motor. @ENDNODE @NODE F "Delta Decrunch" SYNTAX: Delta Decrunch XX - XX - this is some variable whitch you must put colour - XX must be from 1 to 4095. Small efect that you can use if something is decrunching or something else. This efect using colour 0. Then your screen must be in colour or 'Colour Back' must be 0. @ENDNODE @NODE G "Delta Wait Left Mouse" Wait for left mouse button @ENDNODE @NODE H "Delta Wait Double Mouse XX" SYNTAX: Delta Wait Double Mouse XX - XX - delay Wait for double click left mouse button. @ENDNODE @NODE I "Delta Change Disk" SYNTAX: Delta Change Disk Wait for change disk. @ENDNODE @NODE J "Delta Reset" SYNTAX: Delta Reset CAUTION! Reset your computer. @ENDNODE @NODE K "Delta Inter Off" SYNTAX: Delta Inter Off CAUTION! Interrupts off. @ENDNODE @NODE L "Delta Inter On" SYNTAX: Delta Inter On Interrupts on. @ENDNODE @NODE AAAA "Delta Blit Off" SYNTAX: Delta Blit Off Wait until blitter is off. @ENDNODE @NODE BBBB "Delta Crash XX" SYNTAX: Delta Crash XX XX - specify number some new visual effect, you can use it for example... Do Delta Crash Rnd(10000) Loop @ENDNODE @NODE CCCC "Delta Hard Reset" SYNTAX: Delta Hard Reset HARD RESET! CAUTION! @ENDNODE @NODE M "Delta Mouse Off" SYNTAX: Delta Mouse Off Set off mouse pointer. (Press amiga+a for back mouse pointer.) @ENDNODE @NODE N "=Delta Birthday" SYNTAX: A=Delta Brithday Return my birthday. @ENDNODE @NODE O "=Delta Pi#" SYNTAX: A#=Delta Pi# Return Pi variable. @ENDNODE @NODE P "=Delta E#" SYNTAX: E#=Delta E# Return rule of naturals logarithms. @ENDNODE @NODE Q "=Delta About$" SYNTAX: A$=Delta About$ Return somethink about me. @ENDNODE @NODE R "=Delta Yard$" SYNTAX: A$=Delta Yard$ or (if you want) Yard#=Val(Delta Yard$) Return one yard in meters. This is string, and if you wanna have this string in math. varible you must use =val() Example: Yard#=Val(Delta Yard$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE S "=Delta Feet$" SYNTAX: A$=Delta Feet$ or (if you want) Feet#=Val(Delta Feet$) Return one feet in meters. This is string, and if you wanna have this string in math. varible you must use =val() Example: Feet#=Val(Delta Feet$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE T "=Delta Inch$" SYNTAX: A$=Delta Inch$ or (if you want) Inch#=Val(Delta Inch$) Return one inch in meters. This is string, and if you wanna have this string in math. varible you must use =val() Example: Inch#=Val(Delta Inch$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE U "=Delta American Mile$" SYNTAX: A$=Delta American Mile$ or (if you want) American_Mile#=Val(Delta American Mile$) Return one american sea mile in kilometers. This is string, and if you wanna have this string in math. varible you must use =val() Example: American_Mile#=Val(Delta American Mile$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE W "=Delta English Mile$" SYNTAX: A$=Delta English Mile$ or (if you want) English_Mile#=Val(Delta English Mile$) Return one english sea mile in kilometers. This is string, and if you wanna have this string in math. varible you must use =val() Example: English_Mile#=Val(Delta English Mile$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE FIRE "Delta Wait Fire" SYNTAX: Delta Wait Fire This command wait for fire button. @ENDNODE @NODE X "=Delta Radian$" SYNTAX: A$=Delta Radian$ or (if you want) Radian#=Val(Delta Radian$) Return one radian in degrees. This is string, and if you wanna have this string in math. varible you must use =val() Example: Radian#=Val(Delta Radian$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE Y "=Delta Degree$" SYNTAX: A$=Delta Degree$ or (if you want) Degree#=Val(Delta Degree$) Return one degree in radians. This is string, and if you wanna have this string in math. varible you must use =val() Example: Degree#=Val(Delta Degree$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE Z "=Delta Euler$" SYNTAX: A$=Delta Euler$ or (if you want) Euler#=Val(Delta Euler$) Return variable of Euler's constans. This is string, and if you wanna have this string in math. varible you must use =val() Example: Euler#=Val(Delta Euler$) Sorry that this is string variable but this is easier for code in assembler than float variable. @ENDNODE @NODE History "History" - V1.0 (09.04.1997) First public version of my extension - V1.1 (04.1997) Tested version (NOT PUBLIC) - V1.2 (15.05.1997) Kick some bug Changed: @{" Delta Decrunch " LINK F} - V1.3 (25.05.1997) Added some error messages Changed: @{" Delta No Synchro " LINK C} @{" Delta Wait Double Mouse " LINK H} Added: @{" =Delta Brithday " LINK N} @{" =Delta Pi# " LINK O} @{" =Delta E# " LINK P} @{" =Delta About$ " LINK Q} @{" =Delta Yard$ " LINK R} @{" =Delta Feet$ " LINK S} @{" =Delta Inch$ " LINK T} @{" =Delta American Mile$ " LINK U} @{" =Delta English Mile$ " LINK W} - V1.31 (25.05.1997) Kick some strings bugs - V1.4 (28.05.1997) Added: @{" =Delta Radian$ " LINK X} @{" =Delta Degree$ " LINK Y} @{" =Delta Euler$ " LINK Z} @{" Delta Wait Fire " LINK FIRE} - V1.5 (05.08.1997) Added: @{" Delta Blit Off " LINK AAAA} @{" Delta Crash " LINK BBBB} @{" Delta Hard Reset " LINK CCCC} - V1.6 (18.08.1997) Now all strings functions work good. Some new requesters instructions. Task commands. New commands like assembler's commands. Changed: @{" =Delta About$ " LINK Q} @{" =Delta Yard$ " LINK R} @{" =Delta Feet$ " LINK S} @{" =Delta Inch$ " LINK T} @{" =Delta American Mile$ " LINK U} @{" =Delta English Mile$ " LINK W} @{" =Delta Radian$ " LINK X} @{" =Delta Degree$ " LINK Y} @{" =Delta Euler$ " LINK Z} Added: @{" =Delta Find Task " LINK AXK} @{" =Delta Reqtools Requester " LINK AXE} @{" =Delta Reqtools Get Number" LINK AXF} @{" Delta Beep All " LINK AXA} @{" Delta Change Bank " LINK AXB} @{" Delta Intuition Message " LINK AXC} @{" Delta Reqtools Palette " LINK AXD} @{" Delta Wb To Back " LINK AXG} @{" Delta Wb To Front " LINK AXH} @{" Delta Lock Pub Screens " LINK AXI} @{" Delta Unlock Pub Screens " LINK AXJ} @{" Delta Kill Task " LINK AXL} @{" Delta Req Palette " LINK AXM} @{" Jsr - PRIVATE - " LINK PRV} @{" Moveb - PRIVATE - " LINK PRV} @{" Movew - PRIVATE - " LINK PRV} @{" Movel - PRIVATE - " LINK PRV} @ENDNODE @NODE Thanx "THANX!" Big thanx to Tor Erik Ottissen for help. THANX MAN! @ENDNODE @NODE List "List of Files" You should have these files: @{" AMOSPro_Delta.Amos " LINK AA} @{" AMOSPro_Delta.Exe " LINK BB} @{" AMOSPro_Delta.Guide " LINK CC} @{" AMOSPro_Delta.Lib " LINK DD} @ENDNODE @NODE AA "AMOSPro_Delta.amos" AMOSPro_Delta.Amos - this file includes some source code of demo, whitch can show you what can you do in this extenson @ENDNODE @NODE BB "AMOSPro_Delta.Exe" AMOSPro_Delta.Exe - this is compiled version of AMOSPro_Delta.Amos @ENDNODE @NODE CC "AMOSPro_Delta.Guide" AMOSPro_Delta.Guide - this is some instruction for AMOSPro_Delta.Lib @ENDNODE @NODE DD "AMOSPro_Delta.Lib" AMOSPro_Delta.Lib - MAIN PROGRAM FOR AMOS PRO! @ENDNODE @NODE Idee "New ideas" - some new strings functions - =Code$ and =Decode$ - etc,etc... @ENDNODE @NODE CTX "3...2...1... Contact" @{"Delta" LINK DELTA} @{"Lukasz Zelezny" LINK DELTA} 42-612 Tarnowskie Gory Poland tel. +48 0-3 185-42-85 (w. 560) 100% ANSWER FOR ALL GUYS (AND GIRLS! OFKOZ) @ENDNODE @NODE Gre "Greets" Greets to: Ace/Union A-down/Deck-6 Assassin/Opium ASIA/??? Benton/Chaos Split Blast/#amigapl Bossy/??? Bubba/Iris Def/Floppy Digital/Vacuum Dr Tool/ex. AFC Easy Rider/Mystic PC Electrip/Opium Entrix/High Voltage Exor/High Voltage Fanar/Independent Fanta/X-RAYS Fred/R.N.O Hangman/APX Hiv/Scum Huckster/#amigapl Hudinsky/Ladybird Design Iceman/Sector 5 Insert/Amnesty Invert/Amenty Jam/Independent Jacool/Vacuum K.K/Opium Ko$mi/DXP @{"KISMAT/Apathy" LINK KISMAT} Korball/DXP Kordi/Blabla Krashan/Opium Lilka/#amigapl Lobo/Sadist Lopez/Opium Madman/Amnesty Madman/Anadune Magic/Sadist MaCheFi/#amigapl marc22/#amigapl Marco/Sadist MC Rudi/Mawi^Void Melon/Erotic D. Mixer/Opium Morino/Thefect Mr Root/Union Mr Uhu/Freezers Norman/Anadune Pep$on/OP¡UM Pietro Ghizzone Ranger/Ladybird Design Raptor/Sector5 Reevi/Phase True Rick/X-Rays Sachy/Dinx Project^Skid Row Sewer/Opium Silu/#amigapl Skizo/Scum Starlight/Mawi Stevie Jones/??? Sweetvoice/Scum Szymon/Union The Soul/Bucket TheTergent/Independent Thorus/Floppy Thufor/Blabla TGP/Scum Timer/APX Tor Erik Ottisen Trash Head/Mystc Sleeper/Squeezers Vook/AFC Windi/Ind. Verox/Illusion XTD/Mystic Yoga/Union Ûaku/#amigapl Zool/Independent Zuo/Funzine^Mystic and EMMA/SPICE GIRLS GERI/SPICE GIRLS MEL C/SPICE GIRLS MEL B/SPICE GIRLS VICTORIA/SPICE GIRLS If you loking for me on IRC channels the go to: #amos (this is sometimes my channel) #amigapl #amisia @ENDNODE @NODE DELTA "Something about me!" . . ¦ : O^N T^H^E S^C^E^N^E...sInCe 12.1993 | |·­­­­­­­­­­­­­­­­­­­· `--' . . ¦ : H^A^N^D^L^E .......... DELTA | |·­­­­­­­­­­­· `--' : ¦ | ¦ G^R^ø^U^P ............ OPIUM ^ FRIEND ZONE ^ HV | |·­­­­­­­­­· `--' . . ¦ : P^R^E^V G^R^O^U^P^S...TG-SOFT,CYBERTECH,AFC,X-RAYS, | |·­­­­­­­­­­­­­­­­­­­­­· BUCKET,SPICE GIRLS `--' . · ¦ ¦ A^G^E ................ 17 | |·­­­­­· `--' . . : ¦ H^E^i^G^H^T .......... 180 cM | |·­­­­­­­­­­­· `--' . : | | W^E^i^G^H^T .......... 60 kG | |·­­­­­­­­­­­· `--' · . : ¦ M^A^C^H^i^N^E ........ A500 Plus + 4MB øF RAM + TV + DiSX | |·­­­­­­­­­­­­­· HD, A570 `--' . · ¦ | F^U^N^C^T^i^O^N ...... CODER, SwApPeR | |·­­­­­­­­­­­­­­­· `--' · . ¦ : H^O^B^B^Y ............ AMOS, IRC | |·­­­­­­­­­· `--' @ENDNODE @NODE KISMAT "YO!" Hello my greate fiernd! !!! !! ! @ENDNODE @NODE Errors "Errors" - Variable is too small - Varialbe is too large - Bank is not defined - Public screens already locked - Public screens already unlocked - Task not found @ENDNODE