2IMGAPSX@@@ 8L xC)pJJJJ IH(ȱH:=IH[H`@H^H 2 9 @   I/H`JLNGȄBȄF aK ' faaFF  RJm# KKJ qJ )J ۈJJm  JFȱJGJKaȄM ' 5aaNNJFLGJ`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RAMPERMACROSPLUS t+' @)INSTALLER + +(INST.BAS !+* NOTES+  u AMPER.FILES?+   AMPER.SAMPLES+  t-ICONS,  t-UM4.Xq&t.DOT.SAMPLES+  t. LG AINST.BAS) éf8 96!7L 9,T X)?Ctp ,L]I !XύXno! 0ɳ 9  L`?'͠ɠàҠϠĠϠԠֱ٠٠̍ĠٺʮàȍԠé٠ΠˍŬî̠ӠĮLLLLĵLܵLnLLLLٴLLдLLL~L LL8LLLLjL{LLLLL9LLDLPLLLTLlL-LLLG ~xɾ7ɟ虄 B \ɷ8޵޹޹޹޸  L .! }8Au LL l { @ ^̀`L  g RQP` Į` 8 ޳ CSL߳` L ` ` L ` `H ޳߳hL ѩL ϩL ȳ )LH/蝀h` L r`,l 8v0 GLe rL -  $L ֩$lHH jݥ hh`hh8 릃L+ - Tгӳг ӳ ̳L - T  ͲL` - T rFL L - ĵ Tgh дijųet L³ó gmijikmhmųjlnFL - ܵ 8gijhųg³hó ghLj&LȘeiȑHhL` * ܵ T³ó Tijų ³óLjLSOOXL #l³ * ĵ T  д³óijų L * ĵ #8 \ ֥ 0 iiv ikmjln` \ 0 - r  L] LLе Lf 9l³ - س ݳ߳` *m67Y89` *{67` 86`7ɸ 679ɸ 89`(Ƀ 8LX n ` `H) h` ` Fų ³ó'ij 65ʎiL ) 鹭 j l`6ijų³ó  ٴ 5`GSL *  j l` * L玲 T îL - L - - L ٴ ЩL д ΩL LKG ɳ L95ɳ ɳ 7 lݭ 㢁 `LGS!L    \L * L eLD - Lе߳ ޳۳ܳ L Q `(8XύXo) 9,T XL eYLH  &.S,"INSTALL" 16384b3:B(1000),P$(1000),M$(20):.PG,P0$:P3$"/APPLEWORKS/":1000X(40(X$)2):X:X$: X(16384):X12810 XX128:16368,0:I1(X$):X((X$,I))XI:I10:I:I:(7);:10X$" "(27):10 X$"YyNn"(27):10- 2I179:X$;:I::V 73:X$P3$:(X$)25X$".."(X$,23)r 8(X$)25X$X$" ":56 9"Path: "X$;:X$"AMPERMACROS-PLUS":5:X$"-":50:23:50 c === scan volumes === dX(48945)48947:P0:107 i769:.C k216,0:105 nXX1:X48946ıB sS((X)16):D(S8)1:D2SS8m x.V,S,D,A$:A$"/RAM/"PP1:P$(P)A$v }110 === scan directories === P1İ100 X$P$(P):P$(P)"":PP1:216,0:250 (X$)60255 F0:X$P0$255 X$"/RAM/"255 .O,X$:.G. .G,A$,T,Z:T15245Q A$"APLWORKS.SYS"FF16:225w A$"APLWORKS.SYSTEM"FF16:225 A$"UM4.0.SYSTEM"FF8:225 A$"ULTRA.SYSTEM"FF2:225 A$"AMPER.SYSTEM"FF1 225 P1000PP1 A$"AW.INITS"FF4% P$(P)X$A$"/":225H 769:.C:216,0:F15P3$X$:Y F0:P0201_ { + === Copy One File === ,F2$F1$:304 .F2$"AMPER.SYSTEM" 0B(0):B0:A0:L0:P0:T0:X0 2A(109)(110)256 4B(111)(112)256A 6.IG,P1$F1$,T,X:46001,195:3308 8.O,P1$F1$:PČ45854_ :46019,A256:46018,A(46019)256 <46021,B256:46020,B(46021)256 >45842:.C @P0į.T,P2$F2$,T:.IS,P2$F2$,T,X B.O,P2$F2$:P1į.A DP1:46020,(46022):46021,(46023)F45848:45851:.K:.C:3121J769:.C:216,0RL(222)1ĺ"Error "(222):mN(993)76(993)77ıP"MLI Error "(993):5990: === Main Menu ===55:M$(1);:6:I15:27:I". "M$(I3)::IA1:1090:X$"12345"(10)(11)(13)110:X8ĴA1100,1200,1300,1400,1500J1092:X6AX:1020_X6AA1:1016iAA1vA1A5A5A11090:1008BDA25:30:" "M$(A3)" "::LP0: === scan disks ===N55:M$(3);:X$"Looking for AppleWorks.":9::5:200:F011509PX$"Pathname: "P3$::5jQF27X$"AppleWorks w/ Ultra 4.x":A2:1110RF19X$"Replace previous version of AmperMacros":A1:1110TX$"AppleWorks w/ UltraMacros v3.1":A1 V5:24:M$(9);:22:X1115,1115,1102,1102,1002![A1330,1340:1002_~11::X$"AppleWorks not found.":5:24:M$(2);:20:1002| === enter pathname ===55:10:10:"Appleworks Pathname: ";P3$(P3$,1)"/"P3$"/"P3$(P3$,1)"/"P3$P3$"/"1002  === copy files ===655:M$(1);:X$"Install Menu":5::5:YI13:27:I". "M$(I9)::IA1:1390:X$"123"(10)(11)(13)(27)10:X6ĴA1330,1340,1360X710021392:X4AX:1320 X4AA1:1316"AA1$A1A3&A3A1(1390:13088255:M$(3);:9::5000:1350S<55:M$(3);:9::5100F55:X$"Install AW.Launcher also? (Y/N)":9::5:22:X21002P55:M$(3);:9::5200:1002npA26:30:" "M$(A9)" "::x=== EDIT MENU ===?z55:M$(1);:5::X$"Edit Menu":5::I13:27:I". "M$(I12)::In~A1:1490:X$"123"(10)(11)(13)(27)10:X6ĴA1600,1700,1800X710021492:X4AX:1420X4AA1:1416AA1A1A3A3A11490:1408&A26:30:" "M$(A12)" "::C === exit installer ===K.Qt@1900:1912:=== combine 2 files ===AP1$P2$F1$F2$Ģ14:X$"Cannot add a Command file to itself.":5:24:M(2);:20:1402B216,0:1695sD.F,P1$F1$,6:.F,P2$F2$,6:X$"Add commands from "P2$F2$:14:5:X$"to commands already in "P1$F1$:5:X$"is this correct? (Y/N)":5:22F14:X$" ":50:50:50:X1608,1608,1600,1600,1402H1850:P0:=== Append F2$ to F1$ ===:J.O,P2$F2$:45996,P256:45995,P(45996)256:45854:46018,0:46019,48:46020,16:46021,0:45842LX(12288):A(12299)256(12298):I(46022):X0I16A10241620N46018,16:46020,(12298):46021,(12299):45842:.C:AA16:PPAOP.O,P1$F1$:45996,B256:45995,B(45996)256:45854:46018,0:46019,48:46021,A256:46020,A(46021)256:45848:BBA:.C:1610T.O,P1$F1$:45996,B256:45995,B(45996)256:45854:46018,0:46019,48:46020,1:46021,0:12288,0:45848:.K:.C:1402"769:.C:X$"Prodos Error. "((222))"/"((993)):15:5:24:M$(2);:20:1402E1750:=== delete commands ===]1900:216,0:1695.F,P1$F1$,6:1850:1810:J1N:H:V:J") "P$(J):VV1:V16V7:HH15H66172218:20:"Enter Command# to delete (0 to skip) ";X$:X(X$):X0XN1720\BB(X):PB(X1):.O,P1$F1$:46018,0:46019,48:46020,0:46021,16:216,0:171245996,P256:45995,P(45996)256:45854:45842:46020,(46022):46021,(46023)45996,B256:45995,B(45996)256:45854:45848:BB4096:PP4096:1708.K:.C:769:1701*1810:JN14027J:1704V1810:=== Help Screen ===}24:M$(0);:X$"WARNING":6::5:15:"Please do NOT alter the original AMPER.CMDS file."15:"First install AmperMacros on your own disk, using"315:"choice #1 or #2 from Main Menu. Then alter that"T15:"copy of AMPER.CMDS.":X$"Proceed? (Y/N)":5:22:1810:X1701,1701,1402,1402,14021900:=== list commands === 216,0:1695 .F,P1$F1$,6:1850:1810:J1N:H:V:J") "P$(J):VV1:V16V7:HH15% H661806J 24:M$(2);:20:1810:JN1402WJ:1804X$" ":5::H113:50:H:H4:V7::N0:B0:.O,P1$F1$:=== read cmd names/find eof ===.<46018,0:46019,48:46020,16:46021,0:45842:X(12288):I(46022):A(12299)256(12298):X0I16A10241858>X$"":I1X:X$X$((12288I)):I:46020,(12298):46021,(12299):45842:I(46023)256(46022):AI1858@NN1:P$(N)X$:B(N)B:BBA16:N10001852B.Z:.C:B(N1)B:l=== enter filename ===fn24:M$(0);::16:X$"Press: RETURN for "P3$:5:14:X:"Enter Pathname: ";P1$:P1$""P1$P3$p14:X$" ":50::50:(P1$,1)"/"P1$"/"P1$r(P1$,1)"/"P1$P1$"/" t16:X$"Press: RETURN for AMPER.CMDS":5:14:X:"Enter FileName: ";F1$:F1$""F1$"AMPER.CMDS"( v1920 x24:M$(0);::16:X$"Press: RETURN for "P0$"AMPER.FILES/":5:14:X:"Enter Pathname: ";P2$:P2$""P2$P0$"AMPER.FILES/" z14:X$" ":50::50:(P2$,1)"/"P2$"/"P2$ |(P2$,1)"/"P2$P2$"/"a!~16:X$"Press: RETURN for AMPER.CMDS":5:14:X:"Enter FileName: ";F2$:F2$""F2$"AMPER.CMDS"z!14:X$" ":50::50!P1$P0$"AMPER.FILES/":216,0:5080!.O,P1$:.C!5500:P2$"/RAM/"!F1$"AMP20.SYSTEM":302:F1$"AMPER.CMDS":300"P2$P3$:216,0:5090%".O,P2$:.C;"5510:P1$"/RAM/"m"F1$"AMPER.SYSTEM":300:F1$"AMPER.CMDS":300".D,P1$"AMPER.SYSTEM":.D,P1$"AMPER.CMDS":"769:.C:5550:5000"769:.C:5560:5015"P1$P0$"UM4.X/":216,0:5180#.O,P1$:.C#5500:P2$"/RAM/"M#F1$"I.UM.MATH2":300:F1$"I.UM.DATETIME":300{#F1$"I.UM.USER":300:F1$"I.UM.MISC":300#P2$P3$"AW.INITS/":216,0:5190#.O,P2$:.C#5510:P1$"/RAM/"#F1$"I.UM.MATH2":300:F1$"I.UM.DATETIME":300($F1$"I.UM.USER":300:F1$"I.UM.MISC":300[$ .D,"/RAM/I.UM.MATH2":.D,"/RAM/I.UM.DATETIME"$ .D,"/RAM/I.UM.USER":.D,"/RAM/I.UM.MISC":$<769:.C:5550:5100$F769:.C:5560:5115$PP1$P0$"ICONS/":216,0:5280$R.O,P1$:.C%U5500:P2$"/RAM/"!%ZF1$"AW.LAUNCHER":300;%_P2$P3$:216,0:5290K%a.O,P2$:.Ca%d5510:P1$"/RAM/"%iF1$"AW.LAUNCHER":300:.D,P1$"AW.LAUNCHER":%769:.C:5550:5200%769:.C:5560:5215%|9::X$"Loading files to /RAM/ disk.":5&&9::X$" Saving files to "P2$" disk. ":5n&11::X$"Place "P0$" in drive":5:24:M$(2);:A$:A$(27)5600&11::X$" ":50:24:M$(0);:&11::X$"Place "P3$" in drive":5:24:M$(2);:A$:A$(27)5555&5610&:5605'769:.C:1000,'f769,104:770,168:771,104:772,166S'h773,223:774,154:775,72:776,152g'j777,72:778,96'p:I115:M$(I):I:M$"":I110:M$(0)M$(0)" ":I:'qPress RETURN to select.'rPress SPACE BAR to continue.'sPlease wait...(tFind AppleWorks%(uSet Disk/Pathname:(vInstall ProgramS(wEdit &-Command File](xQuity(yIs this correct? (Y/N)(zAmperMacros v2.0({External Dot Commands(|AppleWorks Launcher(}Combine 2 Command Files(~Delete Commands from File)List CommandsNOTESvt-' '.A.II.RESOURCES! u !u +AMPER.NOTES00( Au !yu -EXT.DOT.NOTES4u !fxu )NAUG.INFO000092 u !u )OPS.NOTES0000 u !u h@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===Roger Wagner Publishing-------------------------------%OTHER SOURCES FOR APPLE II PRODUCTSIGIf you are having trouble finding products or support for you Apple II ?computer, here are a few names and addresses to help you out.JHTEXAS II: "#$%& An international disk newsletter for users of AppleWorks EC3.0. Includes reviews of AppleWorks related products, useful file HFtemplates and macros (mostly Ultra 4.x). Edited by Beverly Cadieux. KIPublished 6 times per year by Kingwood Micro Software, 2018 Oak Dew, San /Antonio, TX 78232. Cost $12.00 for 6 issues.HFTIMEOUT CENTRAL: A disk newsletter for users of AppleWorks 3.0 and GETimeOut enhancements. Includes reviews of new products, new TimeOut IGapplications, macros, templates, and biographies of people involved in MKprogramming, development or support of AppleWorks. Edited by Randy Brandt MK(himself!). Published by Resource Central, P.O. Box 11250, Overland Park, Kansas 66207.KITHE APPLEWORKS EDUCATOR: A newsletter devoted exclusively to educational KIAppleWorks users since 1986. contributed to by leading educators around FDthe country. Edited by David Chesebrough. Address: The AppleWorks -Educator, P.O. Box 72, Leetsdale, PA 16056.GETI&IE: A group of teachers (from all fifty states and Canada) who HFexchange ideas and information via AppleWorks files. Huge library of FDAppleWorks templates and files full of tips & techniques. Address: LJTeacher's Idea and Information Exchange, P.O. Box 6229, Lincoln, Nebraska 68506.LJKITCHEN SINK SOFTWARE: Publisher of Apple II (ProDOS-8) software. (The KIInstaller on this disk uses "MicroDot" instead of "BASIC.SYSTEM" because KIMicroDot is better!). They also publish a series of CAD (computer aided NLdrafting) programs. Their address is: Kitchen Sink Software, 903 Knebworth Ct., Westerville, OH 43081.NLROGER WAGNER PUBLISHING: Publisher of all kinds of useful Apple II software JHfor both "8-bit" machines and the IIgs. Wide variety of titles ranging HFfrom games to machine language assembler(s) to games to HyperStudio. FDAmperMacros and AmperMacros-Plus were written almost entirely using JHMerlin-16 and Merlin-16+. Address: Roger Wagner Publishing, Inc., 1050 ,Pioneer Way, Suite "P", El Cajon, CA 92020M===========================================================================END OF NOTES 03/21/93@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@ (O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===------------------------------------------------------COMMAND NAME CHANGESKISeveral small changes were made to the Command Set along with release of 5AMP20.SYSTEM: the following commands were renamed:& from: to:+')*+,-./012 %Array A%rray+ $Array A$rray+ #Input I#nput+ %Input I%nput+ $Input I$nputLJThis was done to avoid the inconvenience of having to refer to $Array and NL$Input 'indirectly' in calls to the 'house-keeping' command (& "&...). You NLshould use a global find/replace to change references to these commands and ECre-compile old macros if you are updating from an older version of AmperMacros.M---------------------------------------------------------------------------!USING THE HOUSE-KEEPING COMMANDIGMany users of AmperMacros don't realize why I included a house-keeping HFcommand in AmperMacros. First, it obviously allows you to place some JHseldom-used commands in a separate commands file, load them just before NLuse, then remove them when they are not needed. Two times that this should KIbe done are: (1) when using a memory-poor computer, and (2) when writing LJcommercial task applications which have their own, specialized &-commands Dthat might have name conflicts which other specialized &-commands.KIAnother good use for the house-keeping function is to add more arrays to NLthe desktop when needed. Just rename the original array, then load another NLcopy of the array 'command' from the disk. It is a good practice to remove IGextra arrays when they are no longer needed. This allows you macro to KIrecreate them again when needed without excess code to test whether they KIalready exist and also frees up desktop memory for other uses. Code for Brenaming and adding more arrays should look something like this:BL:<& "& /,X,A%rray,B%rray" : { rename numeric array }D & "& +,Z,AMPER.CMDS,A%rray" : { load new copy of array } if X=0 then rpt>!HFThe conditional loop at the end tests whether the rename function was LJsuccessful. The renaming command could fail if 'A%rray' itself was not a currently loaded command.8Removing arrays is just as simple, and goes like this:>R:<& "& -,Z,A%rray" : { remove one array }H & "& /,X,B%rray,A%rray" : { rename 'B..' back to 'A..' }* if X=0 then & "& +,AMPER.CMDS,A%rray">!NLWe could have just removed 'B%rray'. However, removing the last one loaded OMand renaming the other will result in less fragmentation of desktop memory. KITo decide if that is a concern for you, ask yourself, "When was the last IGtime AppleWorks refused to load a file or copy some information to the Bclipboard because there was not enough desktop memory available.M---------------------------------------------------------------------------SELLING YOUR TASK FILESECThe release of Ultra 4.0 by JEM Software may have been intended to IGencourage an increase in the number of 'Third Party' (or is it 'Fourth GEParty'?) development of Macros and/or Task Files for a wide range of CAapplications. However, since Ultra 4.x has not replaced TimeOut NLUltraMacros 3.1 in overwhelming numbers despite its many advantages and new NLfeatures, writing commercial Task Files could become more difficult instead of easier.LJThis is because a developer will have to choose to write his macros using LJall the new power of Ultra 4.x and be unable to sell it to users who have MKnot purchased Ultra 4.x, or to write it the 'old way' with UltraMacros 3.1 NLand compile a second time under Ultra 4.x (some minor editing of the source JHcode might be necessary). This second approach will work, but does not HFallow the macro programmer to utilize the full power of Ultra 4.x and NLdevelop the kind of high-quality commercial task files we would all like to see available.LJAmperMacros-Plus is intended to bridge this gap by giving you, (the macro Mprogrammer) a core of similar functions in both development platforms that FDallow you to tackle applications which would be impractical or even (impossible with UltraMacros 3.1 alone.JHBut if you are thinking ahead, you realize that buying and using a task DBfile that includes &-Commands requires the user to have a copy of LJAMPER.SYSTEM and the appropriate AMPER.CMDS file. TRUE! The solution is LJthat developers of commercial task files can license AmperMacros-Plus, in GEwhole or in part, for distribution along with their programs at very 7reasonable prices. Contact O.P.Software for details.M===========================================================================END OF NOTES 03/21/93N@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===calculations. convert dates into this format before d(NOTES FOR UM4.X EXTERNAL DOT COMMANDS:"ERRATA4 Manual says: Should be: page #25:D $1=.date+ $Startdate $1=.date+ $Startdate,#DaysD 3567 $1=.date- $Startdate $1=.date- $Startdate,#Days< $1=.date2lng $1=.date2lng $Date< $1=.date2str $1=.date2str $Date7 Z=.datediff $,$ .datediff $,$ page #26:7 Z=.timediff $,$ .timediff $,$M---------------------------------------------------------------------------USING DATE AND TIME FUNCTIONSKIAll date commands, except '.str2date' require input date(s) to be in the MK'date2' format (i.e. "03/21/93" for March 21 1993). You should always use FD'.str2date' to convert dates into this format before doing any date calculations.KIAll time commands, except '.str2time' require input time(s) to be in the NL'time24' format (i.e. "15:05" instead of " 3:05 pm"). You should always use FD'.str2time' to convert times into this format before doing any time calculations.M===========================================================================END OF NOTES 03/21/93t@O=====|====|====|====|====|====|====|====|====|====|====|====|====|====|====|===@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<=== U5 The National AppleWorks Users GroupFDThe National AppleWorks Users Group (NAUG) has one mission--to help AppleWorks users.LJFormed in 1986, the National AppleWorks Users Group 8:;<=>(NAUG) is the world's OMlargest association of Apple II users. NAUG has more than 15,500 members in +the United States and 41 other countries. Benefits:OMNAUG members receive the AppleWorks Forum, a 36-page monthly newsletter that QOdescribes tips, techniques, and hints to help users get more from AppleWorks. PNThe AppleWorks Forum includes other articles of interest to AppleWorks users, PNincluding news of product releases and reviews of AppleWorks enhancements and OMAppleWorks-compatible software. NAUG works closely with Claris Corporation, LJApple Computer, Applied Engineering, Beagle Bros, JEM Software, and other OMAppleWorks developers to insure our members get the latest information about DAppleWorks and easy access to help with their AppleWorks problems.NLNAUG members have access to more than 150 volunteer-consultants who provide OMfree telephone support for their fellow NAUG members. A list of consultants Mand their areas of expertise appears in each issue of the AppleWorks Forum.JHMembers get unlimited access to NAUG's AppleWorks multi-user electronic KIbulletin board, the Electronic Forum. The Electronic Forum lets you get OManswers to questions and download AppleWorks templates and programs 24-hours MKa day. As of this date, the Electronic Forum has handled more than 40,000 NLcalls from NAUG members seeking help or sharing information with their NAUG colleagues.NLMembers have access to NAUG's Public Domain Library that contains dozens of JHdisks and hundreds of AppleWorks templates and files. The library also DBcontains AppleWorks enhancement programs submitted by members and LJdemonstration versions of AppleWorks enhancement programs from commercial vendors.OMNAUG members have access to the group's Disk Rescuers Program; professionals KIwho can recover damaged AppleWorks data disks. You will appreciate this NLprogram if you ever forget to back up an important file and get the dreaded +"Unable to read disk in Drive 2" message.OMFinally, NAUG members receive significant discounts on AppleWorks products. PNFor example, NAUG members may purchase TimeOut enhancements, RepairWorks, and OMSuperPatch at 40% off the suggested retail price and members get significant +discounts for NAUG's AppleWorks seminars.NLNAUG membership costs $29 per year and includes 12 issues of the AppleWorks MForum. Send a check or your Visa/MasterCard number and expiration date to:!National AppleWorks Users Group "Box 8AMPER.FILESvt-' ',AMP11.SYSTEM@ +  ?-AMP11D.SYSTEMF 7 % ?,AMP20.SYSTEMN. +  * ?*AMPER.CMDSV<  ?-TO.AMPER.HELPt h !h ?ABCDEL V3.1 é "?CB ,% :!  =  /轔 LULTRA.SYSTEMé䠠,, <>#=? ,,    !$   S e   <G?CB ,L <>=?`H h LҺ䮠 XTɠ5    oB  TU` 0 Amper.CmdsAZ= Z=Z=!Z:CBCC"& +,Z,$0":DD1:"Launching..."+1:D ULTRA.SYSTEM /8Ƚ  0 Э888 & H` HN H,e H0 H  HZiL 4 N 6 e 0̨ͩ& 2    LLt L LL L8 , H Ќ Ќh `1.1Q $ t ) 0:`P "ȹP %,HP ,h)_A_[`P %Q 0 : L L Hh`P P Q $ L 8   l `ȹP , ` 4 L  `  4L lP ,Q f o) Ќ2 3 6L Ў34 > )3i 34i4ɿޭ мL ȱ Ў L: "#"""ή ̨ͩ  罭 H ݽ̍0͍1 l Њ ȭ 罭Lf. .0 0 o0 o0  ]L i ̥iɓ Lֽ8`2 3 Ў̩` Ў`File Not Found. Try AgainLoadingZ0GHIJKLML V3.1 é "?CB ,% :!  =  /轔 LULTRA.SYSTEM䠠䠠,, <>#=? 8 ,,    &$   S e  <G?CB ,L <>=?`H h LҺ䮠 "/ XTɠ5    oB  TU` 0 Amper.CmdsAZ= Z=Z=!Z:CBCC"& +,Z,$0":DD1:"Launching..."+1:D ULTRA.SYSTEM /8Ƚ  0 Э888 7 H% H HFL& H'` HBN He H0 H ' HxiL 4 N 6 e 0̨ͩ& 2    L  U. )       L/Lt L LL L8 , H Ќ Ќh `1.1Q $ t ) 0:`P "ȹP %,HP ,h)_A_[`P %Q 0 : L L Hh`P P Q $ L 8   l `ȹP , ` 4 L  `  4L lP ,Q f o) Ќ2 3 6L Ў34 > )3i 34i4ɿޭ мL ȱ Ў L: "#"""ή ̨ͩ  罭 H ݽ̍0͍1 l Њ ȭ 罭Lf. .0 0 o0 o0  ]L i ̥iɓ Lֽ8`2 3 Ў̩` Ў`File Not Found. Try AgainLoadingZ0LUL+ `` -   U U  ` -  &KȱD D ȱ) DL= )Jjjjjj)J L=Ž߽ f ƥ iݽ >и襥! ), ) )L  L   L=ȱ) eȱ)e`ȱ0: rL[ʊ ` [ȱ0:)H r E heeL  d2ieik i C  A;= E;? 潥 ュ; 佭= 佢=;)F 潠 D LJJmm` -&&&ee`dmOPQRSTUL V3.1. é "?CB ,% :!  =  /轔 LULTRA.SYSTEM3䠠,, <>#=? 8 ,,    &$   S e  <G?CB ,L <>=?`H h LҺ䮠 RT 5    oB  TU` 0 AMPER.CMDSAZ= Z=Z=!Z:CBOCC"& +,Z,$0":DD1:"Launching..."+1:D ULTRA.SYSTEM /8Ƚ  0 Э888 7 Hh H2 HFL& H@$` HdN Hb H$ H80 H @ HrL ! N # b % $ 0̨ͩ&     L  [ )       L6Lc L L; L'  HH%L 2.0Q $ c ) 0:`P "ȹP %,HP ,h)_A_[`P %Q 0 : L ; Hh`P P Q $ L '   l `ȹP , ` ! $L$  ` Ј   !L lP ة,Q f o) Ќ #L Ў<= > &<i <=iɿޭ пL ȱ Ў L Ќ Ќ Ј hh `: "#"""ή ̨ͩ  罭 H ݽ̍0͍1 l Њ ȭ 罭Lf. .0 0 o0 o0  ]L i ̥iɓ Lֽ8` Ў̩` Ў`File Not Found. Try AgainLoadingZ0LUL+ `` -   U U  ` -  &KȱD D ȱ) DL= )Jjjjjj)J L=Ž߽ f ƥ iݽ >и襥! ), ) )L  L   L=ȱ) eȱ)e`ȱ0: rL[ʊ ` [ȱ0:)H r E heeL  d2ieik i C  A;= E;? 潥 ュ; 佭= 佢=;)F 潠 D LJJmm` -&&&ee`dmWXYZ[\]^_`abcdefghijklmnopqrsBeging  @ @ Ѝ  60  ) "#  6  L Rpt L  bP +ȹP ,-P : * ЅImm. 'Ϳ   ) #" L 8оGoto# 6 P LP  hh0LWGSUB3p  6/#P LP L  hh ( 0LWONGOTOB 6>  >> 8P LP L  hh0LWONGSUBOp 5 6K  KK?P LP L  hh ( 0LWPoppp  p L DCALCBLd' d  P ώ  ~ m mj n ĭ м  :Ͻ }j ϩL  ݩ ` lA n)Li,0, i軐   ,0 1 ,0 a  l lA L , 0 1 0 1  0 1L lA  0 1 @ 1L ,/`A  Q -@  0 )  l A@ HP L HP $L m m i `8 `DDIFFLI  ;P  Bp 8?F@GZ L 積  ޢ   4͍޻޻ lP lp ޻LDOFWL  xP }v} |v ZA L   Z ʈ0 L SunMonTueWedThuFriSat Щ  Q $   0 lP LDYMDz dy   v  w  x lP y  oP opv Щqw Эrx L YMDCELL L | &'tx# "ӹQ %  L 0 ) l ̩ )p [ l l ̅ 0A  - L Ѕ L FINDk L   P Q %& UQ$,ϩ0 Ѝ l    绍 lQ j f"ͭ#ϩ̅e͍ejn LΥ̍΍V`]  Z ЭR Ѝ l QjL )p f i LV l Ѝ`LSEARCH] L =  ; B>? "# B@A]P Q % 껎,ϩ0 Ѝ l] L]  < f]>?= )p]ͅ 3 f i ]"E l Ѝ%A@ ʈLЕL ; Ѝ< )pL R#""#`STORE L  &'Q % Ս a lL^   lQ - l  ̩# ""# L l Q ̅L лл``COL2NUM[X   WX4Y[XA%[a{) e e eԭW L ZNUM2COL_ 67\)] \> ^  \ZƑi@  i@ ^ L 0CNAME2XY     3A'[a{) e e eҌ Щ0-:))H&&ee*hḙ L XYXY2CNAME~ 23y)z y[ 45{| }  ywƑi@  i@ a{   } L 0QPOS^]   \U .[ f][ iv+ v f i] [ݩ[ \ L ZQTYPG F  EU FF iv' v L3 E L ZQSTATL K  JU #KK iv' v  J L ZQCELL ) !  G  &BLN 1 Z Щ0 L U ԍ ivf v н3 \  L2 ƻ*eǻ l (   - [ l l L2\|[1=B/ )" XЎ XЎ g@`WXYpW X mХZ gp `"# *0 | |L{{i8  jp `Eject )» )J)Ļ  ĻĻjj)»)» 12L)JJJ )@)»ĻĻʻ"i) û Z L Ȼ GFPATH2 0i j  i 1 l 1 0 L 0PFPATH>=  =0 Ѝ l= =. i =l l L INDEX  L PATH:9  9 %#  Щ /0 l9 L SPACE  QyL Y/NT S   RS %40  Щ 89  S ;y R L ZZOOMIN* /a|L L BOOLEANts   n 67op Bqr  ns t)OX - X`oMqpMrn L ZGCD $    ` $8톻퇻  `L/ L 쇻͆`ZLCM / $   @8  L9  E  L 쭻ͬ`ZMATHQ ,*0) tuL  )  )̐̈́ϹQ $ l %  l ύ lQ Q %   l9lQR Q  J !Q J쥝f l nLh 4 ȹQ P ,Q P P .aEL߼P ȩ.P 0șP ̐P PP P  l P A L Ѕl L P ̐͐eͨP 5 P 0P P 9.-iP P L0P QLȹP -% -Q P 0P .P P P L -P - QQ .P L ЌP P P . Щ.P P `P P -Q 0Q P ȹP `ErrorfQ %QL ύQR aQ lQ `MODULO  } 67 X  }  ~   } Э~  L ZRND ⻎ 从  ݻ 軈L ʻ޻ ʻm軭m黐껢nnnn8⻪㻨黬껍滌L滌 滥m⻍滥m㻍 Ў滬绍 ݻ L  -y軙軈`Z!!sPCI b )cc%cc P Q P LeLb_mdb d b ҼiӼi l bc T T TbL PLI O )PP%PP P Q P LRLOitiu+ l OP T T TOL PRINTe    e  )D<쎻7 P Q ʠ$ pP0 lR P R LLB+-Uΐ0,e'e[)ݑ  2L RM N H ʎûЫȍ  L 1 T1 T1 TL iMiN l 1 T T 1`GET$1 (̆ 0PP ̙ 0 L 0PUT$&  P &   l&L JUSTIFY POԻ )ջ ֻآ  ػٻ׻ֻ Ь ջLԻԻ ֻ L ׻ș ԻJԻ ʈ׻ ũ`g [ mԻJ Ll ȹ ׻ ׻ ֻ L O0 UPPERSP Q $R QR  L*Q Ь  a {)ߙ Q L 0LOWERSP Q $R QR  L*Q Ь  A [ Q L 0CAPSP Q $   L* Ь Dȹ A2[ a*{&)ߙ !ȹ {a[ A LM  L 0A%rray  RW  ̊*e̩̅eɿ ͭP  F̙Z L 67̊ȑLy̢ͩG ЎL GA$rray  G 67黎껩GRRP( 0F λ廱  0 L   λ廈  L  ZȮQ廍 廥 Z Щ̢ͩ ЎL Ei녑iɿ`TCALC  P &Q -     l  ii    I I8m m   )3 I ( 0ԍiA 1 l L 0< .< 5)ʎ) p)eL L R )_A P ļ ļ * Pi L, i < pm`Ϯ & )Ϯ  )Ϣ peLԼ` H h0:`TDIFFUU    C l LJK l U L 8JKZ L .< 5)ʎR) p)eSL SLϻ R )_A PT R SR *T Pi RL軩, Ri RR< pmS`Q * 4)Q  4)Q Q pmQL Q` H h0:`THM<<   D  E l < F 9D Э:E L HM .< 5)ʎ9) p)e:L :Lɻ R )_A P; 㻍9 㻍:9 *; Pi 9L⻩, 9i 9`8 * )8  )8 8 pm8L8` H h0:`TONEQ GO ?IIO RQ0襞OL2L (`&G$L"n n97y  } X S k<>i*NzV4ydP=+ ~wpjd^YTOKGC?;852/,*(%#!     WINDOW N  ~ m J㻨m~N~Ȍ㻢 _ ͻ ứ` o | ͻL{0_|  JU TọyL 㻙㻈㻙㻍` DISPLAY v wQ ,  0 Ѝ l wwO8v ͧ vE`{} o  JU TyL FCardH )CG  F`  G l GL_J G  G C EmCʎD  _ EDE |  ~ | #_ _C ,)|  ~>EDE | A | BڮDE | A_ |  f o   ,FyL JU T`__ `I$nputS O  PQP Q $ OϩR   PO8QQ  l R RQQșRQR lP l #N`޻ oR Q 8Х   l l P  JU TNy # O ЩP L  7 7`L: ɛɓ`0ZI%nput Oʻ ˻P Q ,   23  O8ʻ͘  a l l ̘ș̘ lP h`qq q l oʻ˻  8Х+ X  𸹅 0:F l l P  JU Ty h A Ѕ Щ L  | |`L ɛɓ`AZI#nput O  PP Q $ ϩ   O8͌  l ̌ș̌ lP ]`qq q l o  8Х9 M +  :0.-РМ l l P  JU Ty ] Щ L  q q`Lt ɛɓ`0ZINVERSE )͠w  L, ͠d  ƻH`  'U T Όܢ    hyL  @`I@I`HߍD)de0s vHD desvhK`MBarhgІ  P 8 1 Ϡ8eЅНeхѝФ  Ϡ  9dqe`軭껥ﻥ񻭇/ g 2Ь»ŻȻ˻ 4,,,,,,,, f 廽 l `  JU Tdyeq 9 0 ЭfZ L  M M`LP ɛɓ`MENU =; ><  I8;tr  ?@9:ɬK?;ȭ<Ƚ 8e9e:;< iF=>L* ?`@̆:94̍ȱ̍軩e̐̍黆͎ uB͠8e̐L 0 67=>  ?y ЎL @THERM `ǻɻ .  y n F64x E * Ji2    Lƻ C  JU Ty L  uvwxyz{|}~L! &D Amper Helpn%&Use arrows to see remainder of   -O -  x!$y!$ # l~!  ! !  j#$$$$ ] ZL" & " HɊɋɱɺ L"L"L"${!$z! $ ~$$$ W$L!$y!$x!L$" 6$ ~$$$ W$L!`${!$z! $Ɗ #L!$y!$x! 6$Ɗ #L!)8/#|!81#}!2# E/#1# $# 1#3# $# E1#5#x!e$y!e$ 7# #L!1#2#`$y!$x! 8z!$h#{!$i#h#9 H$L7#`$y!$x! o$#L# o$#${!$z! o$#` o$#`------$$ͧ$ͦ$G$$ W$$+{!z! $ L$i$ȥ$$`$i$$$i$$` H$$8$Ϋ$`$8$Ω$`x$ $y$z$ȱw$ oLx$ L O  O ѝ1 r4 1ͮ!ͭ!ƃ`H Y4 h   ~! ~5` 8`&&&'-'Y'v'''6(U(t(((()F)]))))*=*v*** +=+e+++,*,\,,,,-:-Y-w---.Z.n....9///0i000151X1t11111;2\22223=3p3333*4`4444575Z5 Symbol Table ------------. % - an Integer Variable Name. (A-Z)) # - an Integer Value (0-65535)+ $ - a String Variable Name (0-9) - a Text String> () - the current value of the variable inside the ()? [] - parameter is optional and/or has a default value@ {} - Command can optionally accept this parameter type Commands (Alphabetically) -------------------------. & "& +,[%Result],FileName,[CmdName]"# & "& -,[%Result],CmdName"+ & "& /,[%Result],OldName,NewName") & "A%RRAY G,[#Index],[%Result]"( & "A%RRAY P,[#Index],[#Value]" & "A%RRAY R") & "A$RRAY G,[#Index],[$Result]"$ & "A$RRAY P,[#Index],Text"* & "A$RRAY R,[#MaxLen],[%Result]"* & "BEGIN [%VarName],[#StartVal]": & "BOOLEAN [A],[#FirstVal],#SecondVal,[%Result]"8 & "BOOLEAN O,[#FirstVal],#SecondVal,[%Result]"8 & "BOOLEAN X,[#FirstVal],#SecondVal,[%Result]" & "CAPS [Text]"? & "CELL [#Catagory],[#Record],{%}[$Result],[#Option]"3 & "CNAME2XY CellName,[%ColNum],[%RowNum]"' & "COL2NUM ColName,[%Result]"< & "DCALC [StartDate],[-]#Days,[$Result],[#Option]"3 & "DDIFF [EndDate],[StartDate],[%Result]", & "DISPLAY [#XPos],[#YPos],[Text]"& & "DOFW [Date],{$}[%Result]"1 & "DYMD [Date],[%Year],[%Month],[%Day]"$ & "EJECT [#Slot],[#Drive]" & "FCARD [#Num],Name"A & "FIND [#Catagory],[%Record],{%}[SearchFor],[%Result]"0 & "GCD #FirstVal,#SecondVal,[%Result]"% & "GET$ #Address,[$Result]" & "GFPATH [$Result]" & "GOTO #MacroName" & "GSUB #MacroName"D & "I$NPUT [#XPos],[#YPos],[#MaxLen],[$Result],[%ExitType]": & "I%NPUT [#XPos],[#YPos],[%Result],[%ExitType]"D & "I#NPUT [#XPos],[#YPos],[#MaxLen],[$Result],[%ExitType]" & "INDEX"7 & "JUSTIFY [#Len],[#Option],[$Result],[Char]"0 & "LCM #FirstVal,#SecondVal,[%Result]" & "LOWER [Text]"F & "LSEARCH [#Cat],{%}[#FrRecNum],[#ToRecNum],{%}[SearchFor]"K & "MATH +,[#MinDP],[#MaxDP],{%}[1stVal],{%}[2ndVal],{%}[$Result]"K & "MATH -,[#MinDP],[#MaxDP],{%}[1stVal],{%}[2ndVal],{%}[$Result]"K & "MATH *,[#MinDP],[#MaxDP],{%}[1stVal],{%}[2ndVal],{%}[$Result]"K & "MATH /,[#MinDP],[#MaxDP],{%}[1stVal],{%}[2ndVal],{%}[$Result]"< & "MBAR [Prompt],Choice1,Choice2,......,[ChoiceX]"A & "MODULO [#FirstVal],#SecondVal,[%Result],[%Quotient]") & "NUM2COL [#ColNum],[$Result]"" & "ONGOTO [#Index],List"" & "ONGSUB [#Index],List" & "PATH Pathname"( & "PCI #Chars/Inch,[#Printer]" & "PFPATH [Text]"( & "PLI #Lines/Inch,[#Printer]" & "POP [%Result]"< & "PRINT Text,{%}[#LineFeed],[Options],[#Printer]" & "PUT$ #Address,Text"B & "QCELL #Catagory,#Record,#FileNum,[$Result],[%Result]"% & "QPOS FileName,[%Result]"& & "QSTAT #FileNum,[%Result]"& & "QTYPE #FileNum,[%Result]") & "RND [#Min],[#Max],[%Result]"2 & "RPT [%VarName],[(-)#Incr],[#StopVal]" & "SPACE"1 & "STORE [#Catagory],[#Record],{%}Text"? & "TCALC [StartTime],[-]#Minutes,[$Result],[#Option]"3 & "TDIFF [EndTime],[StartTime],[%Result]"5 & "THERM [#XPos],[#YPos],[#Current],[#Max]"* & "THM [Time],[%Hour],[%Minute]"# & "TONE #Pitch,#Duration" & "UPPER [Text]"7 & "WINDOW [#Width],[#Height],[#XPos],[#YPos]"4 & "XY2CNAME [#ColNum],[#RowNum],[$Result]"" & "Y/N Prompt,[%Result]"L Created using TimeOut HelpScreens Copyright 1989 Randy Brandt & Mark MunzAMPER.SAMPLESvt-' '/AMPER.DATE.TIME1+ y%2 *AMPER.TEXT+ y(*AMPER.MATHw + y; (AMPER.IO6t1xt1|@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===R@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===calculations in action.d press solid-apple-A to see Da DBCompile these macros and press solid-apple-A to see Date and Time calculations in action.start A:< & "MBar Which,Dates,Times" : if Z=0 then goto sa-U endif : & "OnGS %Z,DT" : goto sa-A>!+U:!J------------------------------------------------------------------------8This macro uses all of the Date Calculation functions.D:< cls :, & "Display 10,6,Enter a date" : $1=date :1 & "I$nput 10,7,20,$1,%Z" : if Z=0 stop endif :3 & "DofW $1,$0" : & "Display 15,8,(" + $0 + ")" :2 & "Display 40,6,Enter another date" : $2=date :1 & "I$nput 40,7,20,$2,%Z" : if Z=0 stop endif :3 & "DofW $2,$0" : & "Display 45,8,(" + $0 + ")" := & "DCalc $1,10,$3" : & "Dis ,11,first date + 10 = " + $3 :: & "DYMD $3" : $4=str$ M + "/" + str$ D + "/" + str$ Y : & "Di ,12,$4" : & "DDiff $2,$1,%Z" :/ $5=$2 + " - " + $1 + " = " + str$ Z + "days"2 & "Display ,14,$5" : & "space" : cls oa-Q rtn>!J------------------------------------------------------------------------8This macro uses all of the Time Calculation functions.T:!J@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<=== +":"+str$ Y52,16,"+str$ X+":"+str$ Y>!s.-------------- startLJMacro A demonstrates the use of "MBar" to run all the other demo macros. CIt is also a good example of using "OnGSub" combined with a menu. A:<2 & "MBar Which,SpreadSheet,Eject,Tone,More..." : if Z=0 then goto sa-U endif :4 if Z<4 then & "OnGS %Z,DEB" : goto sa-A : endif :, & "MBar Which,FCard,Print,Therm,Window" :) if Z>0 then & "OnGS %Z,FPTW" : endif : goto sa-A>!<U:! { Get default macro set }%V:! { just a pause }J------------------------------------------------------------------------Demo of spreadsheet commands S:< & "Num2Col 75,$1" : & "Di 50,7, $1 = "+$1 :  & "Col2Num W,%Z" :" & "Di 50,10, Z = "+str$ Z: & "XY2CName 53,100,$2" : & "Di 52,13,$2" : & "CName2XY cv14,%X,%Y" :( & "Di 52,16,"+str$ X+":"+str$ Y>!@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<=== & "Di 36,13,Y:" : & "I% 40,13,%Y" : if Z=0 endmacro e DBCompile these macros and press solid-apple-A for exciting demo of mathematic functions.start A:<: & "MBar Which,Integers,Floating Point,Random Numbers" : if Z=0 then goto sa-U endif :1 X = asc $0 : { Either "I", "F", or "R" } & "GSub %X" : goto sa-A>!+U:!J------------------------------------------------------------------------3This macro does some floating-point calculations.%F:<$1="5.06" : $2="88.44444" :, & "Wi 25,5" : & "Di ,10,Enter 2 Values" :C & "Di 30,12, $1:" : & "I# 35,12,15,$1" : if Z=0 endmacro endif :C & "Di 30,13, $2:" : & "I# 35,13,15,$2" : if Z=0 endmacro endif :6 & "Wi 40,10" : & "Di ,8,Floating Point Math Demo" :G & "Math +,,,$1,$2,$3" : & "Di ,10," + $1 + " + " + $2 + " = " + $3 :G & "Math -,,,$1,$2,$3" : & "Di ,12," + $1 + " - " + $2 + " = " + $3 :G & "Math *,,,$1,$2,$3" : & "Di ,14," + $1 + " * " + $2 + " = " + $3 :G & "Math /,,,$1,$2,$3" : & "Di ,16," + $1 + " / " + $2 + " = " + $3 : & "Space" : oa-Q rtn>!J------------------------------------------------------------------------+This macro generates some random numbers.R:!J------------------------------------------------------------------------.This macro demos the Integer Math functions.BI: & "Di 36,12,X:" : & "I% 40,12,%X" : if Z=0 endmacro endif :> & "Di 36,13,Y:" : & "I% 40,13,%Y" : if Z=0 endmacro endif :I & "Wi 27,10" : H=255 : V=8 : $3="Integer Math Demo" : H=30 sa-J V=10 :J & "Boolean A,%X,%Y,%Z" : $3=str$ X+" AND "+str$ Y+" = "+str$ Z : sa-J :J & "Boolean O,%X,%Y,%Z" : $3=str$ X+" OR "+str$ Y+" = "+str$ Z : sa-J :J & "Boolean X,%X,%Y,%Z" : $3=str$ X+" XOR "+str$ Y+" = "+str$ Z : sa-J :J & "GCD %X,%Y,%Z" :$3="GCD("+str$ X+","+str$ Y+") = "+str$ Z :H=29 sa-J:J & "LCM %X,%Y,%Z" :$3="LCM("+str$ X+","+str$ Y+") = "+str$ Z : sa-J : & "Modulo %X,%Y,%R,%Z" :4 $3=str$ X+"/"+str$ Y+" = "+str$ Z : H=34 : sa-J :E $3="("+str$ R+" remainder)" : H=33 : sa-J : & "Space" : oa-Q rtn>!!J:<& "Di H,V,$3" : V=V+1>!AO=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<=== I=I-1 : if I>0 rptes per inch" ::down oa-down :------ startLJMacro A demonstrates the use of "MBar" to run all the other demo macros. CIt is also a good example of using "OnGSub" combined with a menu. A:<6 & "MBar Which,Display,Eject,Tone,Strings,More..." : if Z=0 then goto sa-U endif :5 if Z<5 then & "OnGS %Z,DEBS" : goto sa-A : endif :1 & "MBar Which,FCard,Print,Therm,Window,Menu" :* if Z>0 then & "OnGS %Z,FPTWM" : endif : goto sa-A>!<U:! { Get default macro set }%V:! { just a pause }J------------------------------------------------------------------------IGThis macro demonstrates "Tone". If you have a IIgs or an excellerator 5card, then decrease C to 60, and increase Q to 150.,B: & "Tone C,Q" : & "Tone D,Q" : & "Tone E,Q" : & "Tone E,Q" :> & "Tone E,H" : & "Tone D,Q" : & "Tone D,Q" : & "Tone D,H" :> & "Tone E,Q" : & "Tone G,Q" : & "Tone G,H" : & "Tone E,Q" :> & "Tone D,Q" : & "Tone C,Q" : & "Tone D,Q" : & "Tone E,Q" :> & "Tone E,Q" : & "Tone E,Q" : & "Tone E,Q" : & "Tone D,Q" :> & "Tone D,Q" : & "Tone E,Q" : & "Tone D,Q" : & "Tone C,W">! oa-Q rtn>!J------------------------------------------------------------------------/This Macro demonstrates how to use "Display".!D:!J------------------------------------------------------------------------GThis macro demonstrates "Eject". You have to enter Slot# and Drive#.!E:!J------------------------------------------------------------------------Demo of "FCard" in a macro. F:< & "FCard 1,Menu Number 1" :3 & "Di 15,9,Put a menu here." : & "sp" : & "FCard 2,2nd Menu" : : & "Di 18,11,Put another menu here." : & "sp" : & "FCard 3,Third Menu" :+ & "Di 22,11,1. Loaf of Bread" :, & "Di 22,13,2. Pound of Bacon" :5 & "Di 22,15,3. Gallon of Milk" : & "sp" : & "FCard 4,The Last One" :7 & "Di 23,14,This Space for Rent" : & "sp" : oa-Q rtn>!J------------------------------------------------------------------------#Demo of direct printer functions.!P:<& "Y/N Printer Ready" :# ifnot Z=89 then endmacro endif : I=17 : begin= & "Pci I" : & "Print " + str$ I + "chars/inch: " :; & "Print Underline,,U" : & "Print BoldFace,1,B" :! & "Print " :< & "Print SuperScript ,,+" : & "Print SubScript,1,-" :2 & "Print ,1" : I=I-1 : if I>9 rpt : endif :) & "Pci 10" : & "Pli 8" : I=4 : begin := & "Print 8 lines/in.,1" : I=I-1 : if I>0 rpt : endif : & "Pli 6" : I=4 : begin :5 & "Print 6 lines/in.,1" : I=I-1 : if I>0 rpt>!J------------------------------------------------------------------------0This macro demonstrates "Therm X,Y,Value,Max".3T:9 A=0 : B=B+1 : endif : if B>9 B=0 : endif :> & "Therm 255,6,A,9" : { thermometer: A }> & "Dis 58,7," + str$ A + " " : { and value of A }> & "Therm 255,9,B,9" : { thermometer: B }> & "Dis 58,10," + str$ B + " " :{ and value of B }> & "Therm 255,12,C,Q" : { thermometer: C }> & "Dis 58,13," + str$ C + " " :{ and value of C }' if C!J------------------------------------------------------------------------;Dramatic example of drawing "Window" ('boxes') on screen. W:<7 $1="Attention!" : $2="Do NOT touch your keyboard!" :< $3="Macro IN-PROGRESS!" : $4="Got your attention, yet?" :& $5="Returning control to user..." : & "Beg I,1" : & "Beg Y,2" :$ X=Y*3 : & "Window X,Y" : & "Rpt Y,2,11" :" & "Display ,12,$I" : sa-V : & "Beg Y,10" :$ X=Y*3 : & "Window X,Y" : & "Rpt Y,-2,0" : & "Rpt I,1,6" : oa-Q rtn>!J------------------------------------------------------------------------*Demonstrating Text/String Manipulations.:S:!J------------------------------------------------------------------------HFDemonstrating Menu Function. Try executing this one from 'inside' a 0file and at 'Main Menu'. Compare the results!:M:!ICONSvt-' '*AWKS.ICONSʢ ~, , +AW.LAUNCHER.!  .9 )OPS.ICONSʴ tt APLWORKS.SYS wwppww wwqwwwqwwwwq- 30wsww AMPER.SYSTEMwwwwppwwwwwww- 30wsww ULTRA.SYSTEM wwppwwwwq33wwwqwwwwq????3333????- 30wsww UM4.0.SYSTEM     wwppwwwwq33wwwqwwwwq????3333????- 30wsww/HARD1/AW30/AW.LAUNCHER*   /HARD1/AW30/AW.LAUNCHER*           /HARD1/AW30/AW.LAUNCHER*           ?I.UM.*@         I.*@       TO.*! wwppwwwwwwww PRODOSffffffffffffffffffffffffffffffDDDDDDDDDDODDDDDDDDDDDDDDDDDDDDDUUUUUUUUUUUUUUUUUUUUU_UUUUUUUUU_ LG A 8  /L "H[! [!h 蝜!!S/L !!ș I!M!,!1!ș I!M! eB!!=$<=BC>>>  AMPER.FILES__________U  AMPER.SAMPLESU____________U UM4.X ICONSdEDUdEQDU  DOT.SAMPLESU_?_?  AMP.MAC.PLUS~ > AMP.MAC.PLUS ???UM4.Xvt.' ')I.UM.MISCY+ @t-I.UM.DATETIME + @t*I.UM.MATH2C ~% @t)I.UM.USER ~) @tL@mj Misc567890  oB LQz0@~}~}`}a}b~c~}@~ l~@@~@&B@iA@iA H@@@i@ȱ )@AAeeii@ A` LAȭ ȭȭii@L~@~ A@A}ȌA`abc `} b~ }`}a`BBiAiAAmAȱAmA B8`BȭB`"Ultra 4.0 must be installed first. goto$ Х" l  "#` gsub/ Х- l * "#" Щ "#` ongoto- ХH h + l ( "#` ongsub8 ХH h 6 l 3 "#" Щ "#` popppp`  qposR Ь 73U .Q f Q iv( v f i QݩQ ` qtyp3 ХU  iv v L% ` qstat9 ХU  iv v L%  `S qcellL Х Х Х(U ! iv4 v L   Z ` l (  莺  - [ l l LRu繩鹩p繩 mХ gp `S u I쾹ͽ LR ~*eLos m" XЎ XЎ gп@`"# л*ѻ̻ͻ0λ | |L{{i8лѻ ллϻ jp `I num2colD ХD)E D) DBƑi@ i@ Ș `  col2numH Щ 4  A%[a{) e e eԥ`  dbfind ХB Ю"E#FB!! GEF ` f GCmEDmFJfDCB )p f i CDLU  dblsearch Х`  ab  cdbafg Ю `!#! eab ` f eab` )p ̅  f i abdcmfamgbLu#""#`L@mj DateTime90  oB LQz0@~}~}`}a}b~c~}@~ l~@@~@&B@iA@iA H@@@i@ȱ )@AAeeii@ A` LAȭ ȭȭii@L~@~ A@A}ȌA`abc `} b~ }`}a`BBiAiAAmAȱAmA B8`BȭB`"Ultra 4.0 must be installed first.R date-L  Э8ʎ .  . 88dH @ % l h `ͤͣ` Р   2id, )莦 EΡJJei  yLjm` ) e ȹ )e`mR date+L  Эeeʎ .  . 88dH @ % l h `ͤͣ` Р   2id, )莦 EΡJJei  yLjm` ) e ȹ )e`mI date2lngy Р ` ` `, H) %2 20 l h ` ) e ȹ )e`I date2str Р   , z iB    z0 1 l ` 1 ` ) e ȹ )e`͉ date2ymd Р j j j2id, ilȢY ЭM ЭD ` ) e ȹ )e`Ί datediff 0ǹɹȹʹ 08ɹǹʹȹZ ` Р 2id,ȹǹ)̹ EŹǹǹǹJJeǹiȹ ʹ Lmǹȹǹ` ) e ȹ )e`m  dofw Р   2id, ) EνJJei  Lj   `m` ) e ȹ )e`mI dofw$ Р   2id, ̹˹)ι Eɹ˹˹˹JJe˹i̹  ̹ Lj  ˹ǹ ׹ ʈ `m˹̹˹` ) e ȹ )e`mSunMonTueWedThuFriSatI str2date Ѝ \  i$ >и  ,  LM    H @ % l h ` - 0&:")  L e e ӥ` ȹ 0:`I str2time Ѝ > AaP pε j i L7 jH  ( l h ` - 0&:")  L e e ӥ` ȹ 0:`J time- Р Ѝ E⹥m乐ȍ 8幘湰i幭i湐 ⹥ 8ʆL]H  ( l h ` й- 0&:")  L e e ӥ` ȹ 0:`<J time+ Р Ѝ E⹥m乐ȍ e幘e湐頍幭湰 ⹥ 8ʆL]H  ( l h ` й- 0&:")  L e e ӥ` ȹ 0:`<Չ time2hmy Р . .M ЭH ` g- 0&:")  LH e e ӥ` ȹ 0:`I time2str Р 5 5H) ( l h ` n- 0&:")  LO e e ӥ` ȹ 0:`׊ timediff 0 08Z ` Р b b Emi ` - 0&:")  L| e e ӥ` ȹ 0:`<L@mj Math267890  oB LQz0@~}~}`}a}b~c~}@~ l~@@~@&B@iA@iA H@@@i@ȱ )@AAeeii@ A` LAȭ ȭȭii@L~@~ A@A}ȌA`abc `} b~ }`}a`BBiAiAAmAȱAmA B8`BȭB`"Ultra 4.0 must be installed first.J div Щ Щ   J ! J쥝 L f 4 ȹ `J minus Щ  Щ   J ! J쩓 4 ȹ `J mult Щ  Щ   J ! J쩓  4 ȹ `J plus Щ  Щ   J ! J쩓 4 ȹ `R roundL   Щ  0 . . 0 P  XmPL 5A -쪻 9 $0  r 1 `P ` E e`5 +-Ω  m )m᮫ `P; Ψ- - 0 Ψߩ. ` abs Х IIȅ` and ХHH h%h%` gcda Хab  B L< B8abab`baaabb` lcm Х Х m Lg m8팹퍹  E `썹͌` mod? Х?@ ХAB A ?@L6 ?A ` or ХHH hh` rndL  Х Х  L ι ι m m  n n n n 8 L  mm  ` -y `!!s sign Х0 ` xor ХHH hEhE``L@mj User567890  oB LQz0@~}~}`}a}b~c~}@~ l~@@~@&B@iA@iA H@@@i@ȱ )@AAeeii@ A` LAȭ ȭȭii@L~@~ A@A}ȌA`abc `} b~ }`}a`BBiAiAAmAȱAmA B8`BȭB`"Ultra 4.0 must be installed first. eject Х Х)J)jj)) 12L)JJJ N)@)ͳݻ"i)  ` މ inverse Х ͠l L! ͠_ H`  'U T ΄ܢ     h ` ` @` I@I`ߌD)de0s vD desvK`ߊ pci Х) m Х)*non P Q P LqLmTmom o m ҼiӼi l n T T T ` pli Х)C Х)%DD P Q P LELvC轠imin l D T T T ` printL Ѝ  la Ѝ l Х)TLGʠ$ BP07 P Q P )_LaLL\\0,'\[)_]  #Lǹ˹ǹa>? 9LLa T T T `i>i?! l  T T `B+-U window ХNh Хi ХN Хmi 흹JimhNhȌ _ o i |Ν0_|` ` T input$1L Х- Х. Х/ Ѝ L l / l »0`|~-H.I o -. / 8Х  l l  JU T0y »  Z ` ֻ ֻ`Lٻ ɛɓ` input%4L Х/ Х0 Х12 L/ D1 l   l 3`q1q 1q l /i0j o /0  8Х( ໍ  𭹅 0: l l  JU T3y   Z Ь !Ѕ`  `L ɛɓ`T input#1L Х- Х. Х/ Ѝ L2 l / l û0`q;q ;q l -g.h o -. / 8Х; - 𪹅 .-0: l l  JU T0y   Z `  `L ɛɓ`DOT.SAMPLESvt.'  '-DOT.CHECKBOOK/ + g*DOT.MACROSt&gt&@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===Hundred" + $0 : endif : > 0 then $0 = " endif :----- H// Macros to demonstrate dot-commands. Compile and press sa-A to run.1// ESCAPE at menu launches your default macros.labels .checkbookstartBU:! { Get default macro set back. }X:99 then S=S-100 : endif :2 $1=str$ S : if S<9 then $1="0" + $1 endif :$ $1=str$ R + "." + $1 : sa-B :( msg $1 + " : " + $0 : .spacebar : if R>30 then T=17 endif" if R>200 then T=135 endif :$ if R>2000 then T=1234 endif : R=R+T : if R<65000 then rpt>!<B:<.time2hm $1 : // convert $1 to text amount1 $0=str$ M : // do cents first% if M<10 then $0="0" + $0 : endif : if M=0 then $0="no" endif : $0=" and " + $0 + "/100ths" :2 Y=val $1 : // then do dollars0 if Y=0 then $0="Zero" + $0 : endmacro endif : begin :1 X=.mod Y,100 : if X<20 then Y=Y-X : sa-C :+ else X=.mod Y,10 : sa-D endif :' Y=Y/10 : if Y=0 endmacro endif : X=.mod Y,10 : sa-E :' Y=Y/10 : if Y=0 endmacro endif :> X=.mod Y,10 : if X>0 then $0=" Hundred" + $0 : endif : . if Y>10 and Y<20 then X=Y: Y=0 : sa-C :+ else X=.mod Y,10 : sa-D endif :' Y=Y/10 : if Y=0 endmacro endif :: $0=" Thousand" + $0 : // loop back for thousands rpt>!C:10 then X=X-10 : $0="teen" + $0 :endif : goto sa-D>! D:<+ if X=0 then Z=0 : endmacro endif : Z=1 :0 if X=1 then $0=" One" + $0 : endmacro endif :0 if X=2 then $0=" Two" + $0 : endmacro endif :2 if X=3 then $0=" Three" + $0 : endmacro endif :1 if X=4 then $0=" Four" + $0 : endmacro endif :1 if X=5 then $0=" Five" + $0 : endmacro endif :0 if X=6 then $0=" Six" + $0 : endmacro endif :2 if X=7 then $0=" Seven" + $0 : endmacro endif :2 if X=8 then $0=" Eight" + $0 : endmacro endif : if X=9 then $0=" Nine" + $0>! E:0 and Z=1 then Z=len $0 : Z=Z-1 : $0="-" + right $0,Z endif :3 if X=2 then $0=" Twenty" + $0 : endmacro endif :3 if X=3 then $0=" Thirty" + $0 : endmacro endif :3 if X=4 then $0=" Fourty" + $0 : endmacro endif :2 if X=5 then $0=" Fifty" + $0 : endmacro endif :2 if X=6 then $0=" Sixty" + $0 : endmacro endif :4 if X=7 then $0=" Seventy" + $0 : endmacro endif :3 if X=8 then $0=" Eighty" + $0 : endmacro endif :" if X=9 then $0=" Ninety" + $0>!^AO=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===*@ O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<==="Z = " + str$ Z + Z ebar : oa-Q rtn>!----------------- GEMacros to demonstrate dot-commands. Compile and press sa-A to run. .ESCAPE at menu launches your default macros.labels .samplesstartJA:!GU:! { Get default macros }L:!E:< { input functions }2 .cls 2 : msgxy 25,6 : msg ' Data Input Demo ' := msgxy 10,8 : msg "Input an Integer:" : X=.input% 30,8,50 :9 msgxy 50,8 : msg "Z=" + str$ Z + " X=" + str$ X :J msgxy 10,10 : msg "Input Any Number:" : $1=.input# 30,10,15,"-55.499" :7 msgxy 50,10 : msg "Z=" + str$ Z + " $1=" + $1 :J msgxy 10,12 : msg "Input a Date:" : $1=date2 : $1=.input$ 30,12,15,$1 :* $1=.str2date $1 : $1=.date2lng $1 :7 msgxy 50,12 : msg "Z=" + str$ Z + " $1=" + $1 :' msgxy 0,128 : .spacebar : oa-Q rtn>!J------------------------------------------------------------------------9This macro demonstrates the Date Calculation functions.:D:<$1="4 Jul 01" : $2=date2 : L=5 : oa-1 oa-down :D oa-down oa-down : sa-L : msg ' A Few Quick Date Calculations: ' : L=L+1 :4 $3=.date- $2,7 : sa-L : msg $2+" - (30) = "+$3 :4 $3=.date+ $2,7 : sa-L : msg $2+" + (30) = "+$3 :- $3=.str2date $1 : sa-L : msg $1+" = "+$3 :- $4=.date2lng $3 : sa-L : msg $3+" = "+$4 :- $4=.date2str $3 : sa-L : msg $3+" = "+$4 :: X=.dofw $3 : sa-L : msg "dofw["+$3+"] = "+str$ X :6 $4=.dofw$ $3 : sa-L : msg "dofw$["+$3+"] = "+$4:B .datediff $3,$2 : sa-L : msg $3+" - "+$2+" = "+str$ Z+" days" :C .date2ymd $3 : sa-L : msg str$ Y+" / "+str$ M +" / "+str$ D :' msgxy 0,128 : .spacebar : oa-Q rtn>!J------------------------------------------------------------------------9This macro demonstrates the Time Calculation functions.JT:<.cls 2 : $1="7:00 pM" : $2=time24 : L=5 : oa-1 oa-down oa-down :D oa-down oa-down : sa-L : msg ' A Few Quick Time Calculations: ' : L=L+1 :6 $3=.time- $2,800 : sa-L : msg $2+" - (800) = "+$3 :6 $3=.time+ $2,800 : sa-L : msg $2+" + (800) = "+$3 :- $3=.str2time $1 : sa-L : msg $1+" = "+$3 :- $4=.time2str $3 : sa-L : msg $3+" = "+$4 :B .timediff $3,$2 : sa-L : msg $3+" - "+$2+" = "+str$ Z+" min." :5 .time2hm $2 : sa-L : msg str$ H+" : "+str$ M :' msgxy 0,128 : .spacebar : oa-Q rtn>!J------------------------------------------------------------------------3This macro does some floating-point calculations.CF:<$1="5.06" : $2="88.444444" : L=5 : oa-1 oa-down oa-down :J oa-down oa-down oa-down : sa-L : msg ' Floating Point Calculations: ' : L=L+15 $3=.plus $1,$2 : sa-L : msg $1+" + "+$2+" = "+$3 : L=L+15 $3=.minus $1,$2: sa-L : msg $1+" - "+$2+" = "+$3 : L=L+15 $3=.mult $1,$2 : sa-L : msg $1+" * "+$2+" = "+$3 : L=L+15 $3=.div $1,$2 : sa-L : msg $1+" / "+$2+" = "+$3 :' msgxy 0,128 : .spacebar : oa-Q rtn>!J------------------------------------------------------------------------.This macro demos the Integer Math functions.FI:!=Y:12 then K=5 endif :5 X=len $4 : X=X-1 : $4=right $4,X : $0=left $4,35 :/ msgxy 255,19 : msg ' ' + $0 + ' ' : wait P :0 $1=.time- $1,D : $2=.time2str $1: goto sa-Z>!5Z:!&W:<$1=date2 : $6=.date2lng $1 :I $4=" !!! News Flash !!! : AppleWorks' Fontnote News Service : " :1 $5=" !!! News Flash !!! "+$6+" " :, $6=" O.P. Software announces NEW" :/ $7=" tools for programming in AppleWorks!" :< $8=" Order yours Today !!!! " : K=5 : C=0 : $0=" " :2 $9="Address: P.O.Box 2132, LaGrange GA 30241" :. $10=" Orders / Questions / Tech Support "% $11=" Phone (706) 845-7283 " :. $12=" [ DON'T CALL COLLECT !!!! ] ">!7453Canton, Michigan 48187(313) 454-1115@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===@O=====<====<====<====<====<====<====<====<====<====<====<====<====<====<====<===------------------------------------------------------"OTHER OFFICE PRODUCTIVITY TITLES@TIMEOUT DISK TOOLS, 3 useful TimeOut Applications on one disk:GETO.Volume.BU: Take a 'snap shot' picture of an entire hard disk HFpartition, compresses the data, and save it on multiple 3.5" or 5.25" GEfloppy disks. Many features/options including alternating between 2 /backup drives to speed up the backup process.MKTO.File.BU: The perfect daily backup function, for use in conjunction Dwith Volume.BU (above). Copies only the 'changed' files each day.FDTO.Archive: Data compression for AppleWorks Users! A must for ECanybody who uses On-Line Services, local BBS's, or just compacting HFAppleWorks data files to save disk space. Completely compatible with HF'ShrinkIt' (by Andy Nicholas). Compacts files to either .SHK or .BXY A?format using either LZW/1 or LZW/2 compression. Automatically A?recognizes compression type and format for you when extracting compressed files.! Cost: $49.95 + $2.50 (S&H)L--------------------------------------------------------------------------TIMEOUT ABOUT TIMEMKUser-friendly, and easy to use and FAST! This TimeOut-compatible time and NLdate calculator allows you to quickly find the difference between two times OMof day or calendar dates in: Minutes, Hours, Days, Weeks, Months, or Years. LJOr you can give the a starting time or date, then add/subtract any number MKof Minutes, Hours, Days, Weeks, Months, Years to calculate the new time or date. Cost: $15.00 includes S&HL--------------------------------------------------------------------------IGAMPERMACROS - PLUS Contains two sets of macro-programming tools on one disk:KI1) AmperMacros v2.0, for the hard-core UltraMacros 3.1 programmer! ECUsing the &-vector we add 57 valuable functions that can be called 8easily from any macro or task file. Features include:IGAdd, Subtract, Multiply, and Divide with full-floating point numbers.BSix integer math functions (including random numbers).#Date/Time Calculations.CNested 'begin/rpt' loops, and calculated 'goto/gosub's.MKSend text, WITH control-codes for boldface, underline, char/inch to your printer(s).FDGet user input from horizontal, or vertical menus, Yes/No 4questions, or text fields any where on the screen.&Integer and string arrays..Even eject 3.5" disks from drives.MK NOTE: Replaces two previous products (AmperMacros and AmperMacros-2), 7plus adds even more features than those two combined.JH2) Dot Commands, for UltraMacros 4.x programmers! UltraMacros 4.0 IGabandoned the &-vector in favor of the new 'external dot command', and HFsome of the features AmperMacros added to UM 3.1 became standard fair 8on the UM 4.0 disk. But, what they don't have, we do! Floating-point math.CMore integer math functions (including random numbers).#Date/Time Calculations.%Calculated 'goto/gosub's.8Text, with control-codes to your printer(s)./User input any where on the screen.)Eject 3.5" disks from drives. Cost: $30.00 includes S&HM===========================================================================END OF NOTES 03/21/93