@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y` ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 165ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D" NURͩkΩ͙kCop j`j {j`Hi͝Νh`%GU +@%@ 0@@@0@@@ X}0@@0@@@-@@ @COPYRIGHT 1985(-@ Y}@2"" @OMNI TRONICS INC.<-@@F @loadingP-@@Z @ Z} d A% D:BARTEND,EE217,162,144,128,128,121,128,144,217,173,162,144,144,128,144,1621066- [};"@6-%@E"AJ-@@0T2@@Y'"@# \}-@@' ^'"@#-@@' c'"@#-@@' h r%%2 ]}| A-@@ %%2$D:MENU@ u%%%BOSTON SOURJUICE 1/2 LEMON1 TSP. POWDERED SUGAR2 OZ. WHISKEY1 EGG WHITE>>>SHAKE WITH CRACKED ICE.STRAIN INTO SOUR _}GLASS.ADD SLICE OF LEMON AND CHERRY.ZZWHISKEY COLLINSJUICE OF HALF A LEMON1 TSP.POWDERED SUGAR2 OZ.WHISKEY>>>SHAKE WI`}TH ICE AND STRAIN INTOCOLLINS GLASS. ADD SEVERAL ICECUBES, FILL WITH CARBONATED WATERAND STIR. SERVE WITH SLICES OFLEMOa}N,ORANGE AND A CHERRY. SERVEWITH A STRAW.ZZWHISKEY COCKTAILDASH OF AGNOSTURA BITTERS1 TSP.SUGAR SYRUP2 OZ. WHISKEY>>>b}STIR WITH ICE AND STRAIN INTOA COCKTAIL GLASS. SERVE WITHA CHERRY.ZZWHISKEY FLIP1 WHOLE EGG1 TSP.POWDERED SUGAR1 1/2c} OZ. WHISKEY2 TSP. SWEET CREAM>>>SHAKE WITH ICE AND STRAIN INTOFLIP GLASS. SPRINKLE A LITTLENUTMEG ON TOP.ZZWHISKEY Sd}OURJUICE OF 1/2 LEMON1 TSP. POWDERED SUGAR2 OZ. WHISKEY>>>SHAKE WITH ICE AND STRAIN INTOSOUR GLASS.ZZPREAKNESS COCKTAe}IL3/4 OZ. SWEET VERMOUTH1 1/2 OZ. WHISKEY1 DASH BITTERS1/2 TSP. BENEDICTINE>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLf}ASS. ADD TWIST OFLEMON PEEL.ZZWALTERS1 1/2 OZ. SCOTCH WHISKEY1 TBSP.ORANGE JUICE1 TBSP.LEMON JUICE>>>SHAKE WITH ICE g}AND STRAIN INTOA COCKTAIL GLASS.ZZWARD EIGHTJUICE OF HALF A LEMON1 TSP. POWDERED SUGAR2 OZ. WHISKEY1 TSP. GRENADINE>>h}>SHAKE WITH ICE AND STRAIN INTOGOBLET FILLED WITH CRACKED ICE.ADD SLICES OF LEMON AND CHERRY.SERVE WITH A STRAW.ZZCANADi}IAN PINEAPPLE1 1/2 OZ. WHISKEY1 DASH OF AGNOSTURA BITTERS1 1/2 TSP. TRIPLE SEC1 TSP. POWDERED SUGAR>>>SHAKE WITH ICE ANj}D STRAIN INTOCOCKTAIL GLASS.ZZWHISPER OF THE FROST3/4 OZ. WHISKEY3/4 OZ. SHERRY3/4 OZ. PORT1 TSP. POWDERED SUGAR>>>Sk}TIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS.SERVE WITH SLICES OF LEMON ANDORANGE.ZZWHITE PLUSH2 OZ. WHISKEY1 CUP OF MILl}K1 TSP. POWDERED SUGAR>>>STRAIN INTO COLLINS GLASS,SERVE WITH ICE.ZZWHITE>>>SHAKE WITH CRACKED ICE.STRAIN INTO SOUR J%%%WARSAW COCKTAIL1 1/2 OZ. VODKA1/2 OZ. BLACKBERRY BRANDY1/2 OZ. VERMOUTH1 TSP. LEMON JUICE>>>SHAKE WITH ICE AND STIRn} INTOCOCKTAIL GLASS.ZZHUNTSMAN COCKTAIL1 1/2 OZ. VODKA1/2 OZ. JAMAICAN RUMJUICE OF 1/2 LIMEPOWDERED SUGAR TO TASTE>>>o}SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZCLAMATO COCKTAIL1 1/2 OZ. VODKA1 OZ. CLAM JUICE3 OZ. TOMATO JUICE>>>Sp}HAKE WITH ICE. STRAIN AND SERVEOVER ICE CUBES IN LARGE OLDFASHIONED GLASS.ZZHAIR RAISER COCKTAIL1 1/2 OZ. VODKA1/2 OZ.q} ROCK & RYE1 TBSP. LEMON JUICE>>>SHAKE WITH ICE AND STRAININTO COCKTAIL GLASS.ZZHARVEY WALLBANGER1 OZ. VODKA4 OZ. ORAr}NGE JUICE1/2 OZ. GALLIANO>>>POUR VODKA AND ORANGE JUICE OVERICE. FLOAT GALLIANO ON TOP.ZZBLACK MAGIC1 1/2 OZ. VODKAs}3/4 OZ. ESPRESSO COFFEE LIQUEURDASH OF LEMON JUICE>>>STIR AND SERVE IN OLD FASHIONEDGLASS OVER ICE CUBES. ADD A TWISTOFt} LEMON PEEL.ZZVODKA GRASSHOPPER3/4 OZ. VODKA3/4 OZ. CREME DE MENTHE3/4 OZ. CREME DE CACAO>>>SHAKE WITH ICE AND STRAIN u}INTOCOCKTAIL GLASS.ZZSALTY DOG1 1/2 OZ. VODKA5 OZ. GRAPEFRUIT JUICE1/4 TSP. SALT>>>POUR INTO HIGHBALL GLASS OVERICE v}CUBES AND STIR WELL.ZZVELVET HAMMERVELVET HAMMER1 1/2 OZ. VODKA1 TSP. CREME DE CACAO1 TSP. SWEET CREAM>>>SHAKE WITH Iw}CE AND STRAIN INTOCOCKTAIL GLASS.ZZPINK PUSSY CAT1 1/2 OZ. VODKA6 OZ. PINEAPPLE OR GRAPEFRUIT JUICEDASH OF GRENADINE>>x}>INTO A HIGHBALL GLASS ALMOST FULLOF ICE, POUR VODKA. FILL BALANCEWITH JUICE DESIRED. ADD DASH OFGRENADINE.ZZBLOODY MARy}Y1 1/2 OZ. VODKA3 OZ. TOMATO JUICEDASH LEMON JUICE1/2 TSP. WORCESTERSHIRE SAUCEPEPPER AND SALT>>>SHAKE WITH ICE AND STz}RAIN INTOOLD FASHIONED GLASS OVER ICE CUBES.A WEDGE OF LIME MAY BE ADDED.ADD A STALK OF CELERY.ZZSHAKE WITH ICE AND STIRfTAHITI CLUB2 OZ. RUM1 TBSP. LEMON JUICE1 TBSP. LIME JUICE1 TBSP. PINEAPPLE JUICE1/2 TSP. MARASCHINO>>>SHAKE WITH ICE A|}ND STRAIN INTOOLD FASHIONED GLASS OVER ICECUBES. ADD A SLICE OF LEMON.ZZCREAM PUFF2 OZ. RUM1 OZ. SWEET CREAM1/2 TSP. }}POWDERED SUGAR>>>SHAKE WITH ICE AND STRAIN INTOHIGHBALL GLASS OVER 2 ICE CUBES.FILL WITH CARBONATED WATER ANDSTIR.ZZDE~}RBY DAIQUIRI1 1/2 OZ. RUM1 OZ. ORANGE JUICE1 TBSP. LIME JUICE1 TSP. SUGAR>>>COMBINE ALL INGREDIENTS WITH 1/2CUP SHAVED} ICE IN A BLENDER.BLEND AT LOW SPEED. POUR INTOCHAMPAGNE GLASS.ZZHURRICANE1 OZ. DARK RUM1 OZ. LIGHT RUM1 TBSP. PASSIO}N FRUIT SYRUP2 TSP. LIME JUICE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZFORT LAUDERDALE1 1/2 OZ. RUM1/2 OZ. S}WEET VERMOUTHJUICE 1/4 ORANGEJUICE 1/4 LIME>>>SHAKE WITH ICE AND STRAIN INTOOLD FASHIONED GLASS OVER ICECUBES. ADD A S}LICE OF ORANGE.ZZFROZEN DAIQUIRI1 1/2 OZ. RUM1 TBSP. TRIPLE SEC1 1/2 OZ. LIME JUICE1 TSP. SUGAR1 CUP CRUSHED ICE>>>C}OMBINE INGREDIENTS IN A BLENDERAND BLEND AT LOW SPEED FOR 5 SEC.THEN BLEND AT HIGH SPEED UNTILFIRM. POUR INTO CHAMPAGNE G}LASS.TOP WITH A CHERRY.ZZFROZEN PINEAPPLE DAIQUIRI1 1/2 OZ. RUM4 PINEAPPLE CHUNKS (CANNED)1 TBSP. LIME JUICE1/2 TSP. S}UGAR>>>COMBINE ALL INGREDIENTS WITH1 CUP CRUSHED ICE IN BLENDER.BLEND AT LOW SPEED AND POUR INTOCHAMPAGNE GLASS.ZZMAI-}TAI2 OZ. RUM1 OZ. TRIPLE SEC1/2 TSP. POWDERED SUGAR1 TBSP. ALMOND SYRUP1 TBSP. GRENADINE1 TBSP. LIME JUICE>>>SHAKE WI}TH ICE AND STRAIN INTOLARGE OLD FASHIONED GLASS ABOUT1/3 FULL WITH CRUSHED ICE.DECORATE WITH CHERRY.ADD WEDGE OF FRESH PI}NEAPPLE.ZZCORKSCREW1 1/2 OZ. RUM1/2 OZ. DRY VERMOUTH1/2 OZ. PEACH BRANDY>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLA}SS. GARNISH WITH ALIME SLICE.ZZRUM SOURJUICE 1/2 LEMON1/2 TSP. POWDERED SUGAR2 OZ. RUM>>>SHAKE WITH ICE AND STRAIN I}NTOSOUR GLASS. DECORATE WITH 1/2SLICE OF LEMON AND A CHERRY.ZZ. PINEAPPLE JUICE1/2 TSP. MARASCHINO>>>SHAKE WITH ICE ACCASINO COCKTAIL2 OZ. GIN2 DASHES ORANGE BITTERS1/4 TSP. MARASCHINO1/4 TSP. LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INTO}COCKTAIL GLASS. SERVE WITH ACHERRY.ZZGIN & TONIC2 OZ. GIN6 OZ. TONIC WATERSLICE LIME OR LEMON>>>POUR INTO HIGHBALL }GLASS.SQUEEZE AND ADD FRUIT.ZZORANGE BLOSSOM COCKTAIL1 OZ. GIN1 OZ. ORANGE JUICE1/4 TSP. POWDERED SUGAR>>>SHAKE WITH }ICE AND STRAIN INTOCOCKTAIL GLASS.ZZORCHID COCKTAIL2 OZ. GIN1 EGG WHITEDASH CREME YVETTE>>>SHAKE WITH ICE AND STRAIN }INTOCOCKTAIL GLASS.ZZTOM COLLINSJUICE 1/2 LEMON1 TSP. POWDERED SUGAR2 OZ. GIN>>>SHAKE WITH ICE AND STRAIN INTOCOLLIN}S GLASS. ADD SEVERAL CUBESOF ICE, FILL WITH CARBONATEDWATER AND STIR. DECORATE WITHLEMON, ORANGE AND CHERRY SLICES.SERV}E WITH A STRAW.ZZBIRD OF PARADISE FIZZ2 OZ. GINJUICE 1/2 LEMON1 TSP. POWDERED SUGAR1 EGG WHITE1 TSP. GRENADINE>>>SHA}KE WITH ICE AND STRAIN INTOHIGHBALL GLASS OVER 2 ICE CUBES.FILL WITH CARBONATED WATER.ZZCORNELL COCKTAIL1 1/2 OZ. GIN1/}2 TSP. LEMON JUICE1 TSP. MARASCHINO1 EGG WHITE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZADAM & EVE1 OZ. GIN1} OZ. FORBIDDEN FRUIT1 OZ. BRANDYDASH LEMON JUICE>>>SHAKE WELL WITH CRACKED ICE ANDSTRAIN INTO COCKTAIL GLASS.ZZBACHELO}R'S BAIT COCKTAIL1 1/2 OZ. GIN1 EGG WHITEDASH ORANGE BITTERS1/2 TSP. GRENADINE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAI}L GLASS.ZZFARE THEE WELL1 1/2 OZ. GIN1/2 OZ. DRY VERMOUTHDASH SWEET VERMOUTHDASH TRIPLE SEC>>>SHAKE WITH ICE AND STRA}IN INTOCOCKTAIL GLASS.ZZ DASHES ORANGE BITTERS1/4 TSP. MARASCHINO1/4 TSP. LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INTO%%%SMILER COCKTAIL1/2 OZ.SWEET VERMOUTH1/2 OZ.DRY VERMOUTH1 OZ.DRY GIN1 DASH BITTERS1/4 TEASPOON ORANGE JUICE>>>SHAKE } WITH ICE AND STRAIN INTOGLASS.ZZSNOWBALL COCKTAIL1 1/2 OZ. DRY GIN1/2 OZ. ANISETTE1 TABLESPOON SWEET CREAM>>>SHAKE W }ITH ICE AND STRAININTO COCKTAIL GLASS.ZZTAILSPIN COCKTAIL3/4 OZ. VERMOUTH3/4 OZ. GIN3/4 OZ. CHARTREUSEDASH ORANGE BITT }ERS>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS. ADD A TWIST OFLEMON PEEL AND A CHERRY OR OLIVE.ZZTULIP COCKTAIL3/4 } OZ. SWEET VERMOUTH3/4 OZ. APPLE BRANDY1 1/2 TSP. LEMON JUICE1 1/2 TSP. APRICOT BRANDY>>>SHAKE WITH ICE AND STRAIN INTO }COCKTAIL GLASS.ZZMILLION DOLLAR COCKTAIL2 TSP. PINEAPPLE JUICE1 TSP. GRENADINE1 EGG WHITE3/4 OZ. SWEET VERMOUTH1 1/2 O }Z. GIN>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZKISS-IN-THE-DARK3/4 OZ. DRY VERMOUTH3/4 OZ. DRY GIN3/4 OZ. CH }ERRY BRANDY>>>STIR WITH ICE AND STRAIN INTO ACOCKTAIL GLASS.ZZBLOOD AND SAND COCKTAIL1 TBSP. ORANGE JUICE1/2 OZ. SWEET } VERMOUTH1/2 OZ. SCOTCH WHISKEY1/2 OZ. CHERRY BRANDY>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZKNOCK-OUT COCKTA }IL1/2 OZ. ABSINTHE3/4 OZ. DRY VERMOUTH3/4 OZ. GIN1 TSP. CREME DE MENTHE (WHITE)>>>STIR WITH ICE AND STRAIN INTOA COCKT }AIL GLASS. SERVE WITHA CHERRY.ZZMARTINI1 OZ. VERMOUTH1 OZ. GIN>>>SHAKE WITH ICE AND STRAIN INTOMARTINI GLASS. SERVE } WITH ANOLIVE.ZZHOLE-IN-ONE COCKTAIL1 3/4 OZ. SCOTCH WHISKEY3/4 OZ. DRY VERMOUTH1/4 TSP. LEMON JUICEDASH ORANGE BITTER }S>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZMOUTH1 OZ.DRY GIN1 DASH BITTERS1/4 TEASPOON ORANGE JUICE>>>SHAKE 8%%%PORT WINE COCKTAIL2 1/2 OZ. PORT1/2 TSP. BRANDY>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS. SERVE WITH ACHERRY.$}ZZMINT GIN COCKTAIL1 OZ. WHITE PORT WINE1 OZ. MINT GIN1 1/2 TSPS. DRY VERMOUTH>>>STIR WITH ICE AND STRAIN INTO ACOCKTA$}IL GLASS.ZZHOT SPRINGS COCKTAIL1 1/2 OZ. DRY WHITE WINE1 TBSP. PINEAPPLE JUICE1/2 TSP. MARASCHINODASH ORANGE BITTERS>>$}>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZSPRITZER HIGHBALL3 OZ. CHILLED RHINE WINE5 OZ. CARBONATED WATER>>>POU$}R INGREDIENTS INTO HIGHBALLGLASS. ADD LIME SLICE.ZZNIGHTMARE1 1/2 OZ. GIN1 OZ. MADEIRA1/2 OZ. WILD CHERRY BRANDY1 TSP$}. ORANGE JUICE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZQUARTER DECK COCKTAIL1/3 OZ. SWEET SHERRY1 1/2 OZ. RUM$}JUICE 1/2 LIME>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZSEVILLA COCKTAIL1/2 TSP. POWDERED SUGAR1 WHOLE EGG1 O$}Z. PORT1 OZ. RUM>>>SHAKE WITH ICE AND STRAIN INTOFLIP GLASS.ZZICE AND STRAIN INTOCOCKTAIL GLASS. SERVE WITH ACHERRY.$DCHAMPAGNE SHERBERT PUNCH2 BOTTLES CHAMPAGNE1 BOTTLE SAUTERNE1 QT. LEMON OR PINEAPPLE SHERBERT>>>PUT SHERBERT IN PUNCH BO(}WL. ADDSAUTERNE AND CHAMPAGNE.DECORATE WITH LEMON SLICES ANDPINEAPPLE CHUNKS.ZZTEQUILA PUNCH1 QT. TEQUILA1 BOTTLE CHA(}MPAGNE4 BOTTLES SAUTERNE2 QTS. FRESH FRUITS (CUBES OR BALLS)>>>SWEETEN TO TASTE, CHILLTHOROUGHLY, AND ADD ICE CUB(}ESJUST BEFORE SERVING. PLACE INLARGE BOWL AND SERVE IN SHERBERTCUPS.ZZFISH HOUSE PUNCHJUICE 1 DOZ. LEMONS1 1/2 QTS. B(}RANDY1 PINT PEACH BRANDY1 PINT RUM1 QT. CARBONATED WATER1 PINT STRONG TEA>>>ADD ENOUGH POWDERED SUGAR TOSWEETEN LEMON (}JUICE. POUR OVERLARGE BLOCK OF ICE IN PUNCHBOWL. ADD REMAINING INGREDIENTS.STIR AND DECORATE WITH FRUITS INSEASON.ZZK(}IDDIE PUNCH1 64 OZ. BOTTLE GINGER ALE1 QT. ORANGE JUICE2 CUPS CRANBERRY JUICE1 CUP FRESH OR FROZEN STRAWBERRIES12 ORANGE(} SLICES (ROUND)>>>COMBINE CHILLED LIQUIDS IN PUNCHBOWL OVER 12 ICE CUBES. FLOATSTRAWBERRIES AND ORANGE SLICES.OPTIONAL(} FOR ADULTS: ADD 1 CUP RUM .ZZMPAGNE1 BOTTLE SAUTERNE1 QT. LEMON OR PINEAPPLE SHERBERT>>>PUT SHERBERT IN PUNCH BO(&%%%GOLDEN CADILLAC1 OZ. GALLIANO2 OZ. CREME DE CACAO (WHITE)1 OZ. SWEET CREAM>>>COMBINE WITH 1/2 CUP OF CRUSHEDICE IN ,}BLENDER AT LOW SPEED FOR10 SEC. STRAIN INTO CHAMPAGNEGLASS.ZZWEEP-NO-MORE COCKTAILJUICE 1/2 LIME3/4 OZ. DUBONNET3/4 O,}Z. BRANDY1/4 TSP. MARASCHINO>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZOUTRIGGER1 OZ. PEACH BRANDY1 OZ. LIME V,}ODKA1 OZ. PINEAPPLE JUICE>>>SHAKE WITH ICE AND STRAIN INTOOLD FASHIONED GLASS OVER ICECUBES.ZZDAMN-THE-WEATHER COCKTAI,}L1 TSP. TRIPLE SEC1 TBSP. ORANGE JUICE1 TBSP. SWEET VERMOUTH1 OZ. GIN>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.,}ZZPORT AND STARBOARD1 TBSP. GRENADINE1/2 OZ. CREME DE MENTHE (GREEN)>>>POUR CAREFULLY INTO POUSSE-CAFEGLASS, SO THAT CR,}EME DE MENTHEFLOATS ON GRENADINE.ZZANGEL'S KISS1/4 OZ. CREME DE CACAO (WHITE)1/4 OZ. CREME YVETTE1/4 OZ. BRANDY1/4 OZ.,} SWEET CREAM>>>POUR INGREDIENTS CAREFULLY,IN ORDER GIVEN, SO THAT THEY DONOT MIX. USE POUSSE-CAFE GLASS.ZZSHEDICE IN ,qMETROPOLITAN COCKTAIL1 1/4 OZ. BRANDY1 OZ. SWEET VERMOUTH1/2 TSP. SUGAR SYRUPDASH BITTERS>>>STIR WITH ICE AND STRAIN IN0}TOCOCKTAIL GLASS.ZZLADY BE GOOD1 1/2 OZ. BRANDY1/2 OZ. CREME DE MENTHE (WHITE)1/2 OZ. SWEET VERMOUTH>>>SHAKE WITH ICE0} AND STRAIN INTOCOCKTAIL GLASS.ZZBULL'S EYE1 OZ. BRANDY2 OZ. HARD CIDER>>>POUR INTO HIGHBALL GLASS OVERICE CUBES AND 0}FILL WITH GINGERALE. STIR.ZZBRANDY SQUIRT1 1/2 OZ. BRANDY1 TBSP. POWDERED SUGAR1 TSP. RASPBERRY SYRUP>>>SHAKE WITH I0}CE AND STRAIN INTOHIGHBALL GLASS AND FILL WITHCARBONATED WATER. DECORATE WITHSTICK OF PINEAPPLE ANDSTRAWBERRIES.ZZMIDN0}IGHT COCKTAIL1 OZ. APRICOT BRANDY1/2 OZ. TRIPLE SEC1 TBSP. LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.0}ZZPOLONAISE1 1/2 OZ. BRANDY1 TBSP. BLACKBERRY BRANDY1/2 OZ. DRY SHERRYDASH LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INT0}OOLD FASHIONED GLASS OVER ICECUBES.ZZBETWEEN-THE-SHEETS COCKTAIL3/4 OZ. BRANDY1/2 OZ. TRIPLE SEC1/2 OZ. RUMJUICE 1/4 0}LEMON>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZWHY NOT ?1 OZ. APRICOT BRANDY1 OZ. GIN1/2 OZ. DRY VERMOUTHDAS0}H LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZHONEYMOON COCKTAIL3/4 OZ. APPLE BRANDY3/4 OZ. BENEDICTI0}NE1 TSP. TRIPLE SECJUICE 1/2 LEMON>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS.ZZRS>>>STIR WITH ICE AND STRAIN IN0[HOT PANTS1 1/2 OZ. TEQUILA1/2 OZ. PEPPERMINT SCHNAPPS1 TBSP. UNSWEETENED GRAPEFRUIT JUICE1 TSP. POWDERED SUGAR>>4}>SHAKE WITH ICE CUBES AND POURINTO OLD FASHIONED GLASS RIMMEDWITH SALT.ZZLADIES' COCKTAIL1 3/4 OZ. WHISKEY1/2 TSP. ANI4}SETTE2 DASHES BITTERS>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS. SERVE WITH APINEAPPLE STICK ON TOP.ZZPOLYNESIAN 4}COCKTAIL1 1/2 OZ. VODKA3/4 OZ. CHERRY-FLAVORED BRANDYJUICE 1 LIME>>>RUB RIM OF COCKTAIL GLASS WITHLIME AND DIP INTO POW4}DERED SUGAR.SHAKE ABOVE INGREDIENTS WITH ICEAND STRAIN INTO PREPARED GLASS.ZZBLANCHE1 OZ. ANISETTE1 OZ. TRIPLE SEC1/2 4}OZ. CURACAO (WHITE)>>>SHAKE WITH CRACKED ICE AND STRAININTO COCKTAIL GLASS.ZZSTRAWBERRY MARGARITA1 OZ. TEQUILA1/2 OZ. 4}TRIPLE SEC1/2 OZ. STRAWBERRY LIQUEUR1 OZ. LEMON OR LIME JUICE1 OZ. FRESH OR FROZEN STRAWBERRIES>>>IF DESIRED, RUB RIM OF4} COCKTAILGLASS WITH RIND OF LEMON OR LIME,DIP RIM IN SALT. SHAKEINGREDIENTS WITH ICE AND STRAININTO THE GLASS.ZZRUSTY 4}NAIL3/4 OZ. SCOTCH WHISKEY1/4 OZ. DRAMBUIE>>>SERVE IN OLD FASHIONED GLASSWITH ICE CUBES. FLOAT DRAMBUIEON TOP.ZZAFTE4}R DINNER COCKTAIL1 OZ. APRICOT BRANDY1 OZ. TRIPLE SECJUICE 1 LIME>>>SHAKE WITH ICE AND STRAIN INTOCOCKTAIL GLASS. LEAV4}E LIME INGLASS.ZZAMARETTO STINGER1 1/2 OZ. AMARETTO3/4 OZ. CREME DE MENTHE (WHITE)>>>SHAKE WELL WITH ICE. STRAIN AND4}SERVE IN COCKTAIL GLASS.ZZQUEEN BEE1 1/2 OZ. LIME VODKA1 OZ. COFFEE BRANDY1/2 OZ. SWEET CHERRY>>>SHAKE WITH ICE AND ST4}RAIN INTOCOCKTAIL GLASS.ZZPRINCETON COCKTAIL1 OZ. DRY GIN1 OZ. DRY VERMOUTHJUICE 1/2 LIME>>>SHAKE WITH ICE AND STRAIN4} INTOCOCKTAIL GLASS.ZZLA1/2 OZ. PEPPERMINT SCHNAPPS1 TBSP. UNSWEETENED GRAPEFRUIT JUICE1 TSP. POWDERED SUGAR>>4?M9KINDNL@& &@ ;@8, ;@,+@%@8}0@@ 0@@@!0@@@"0@@@#8}-@( @omni bartender--@@2 @ A7%-@@% @8}OR<-@@A @FF-@@ K @P-@@8}U!! @enter A or FZ##@@K:\)@]!"@e6.A! A^!8}"@6.A! A_!"@p6.F! A`!"A6.F! Ac @d+@%@8}e70@@70@@@f70@@ @70@@@i-@8}n @omni s-@@x @ .WHISKEY}-@@ @8}.VODKA-@@ @.RUM-@@ @.GIN-@@ @8} .VERMOUTH-@@ @.WINE-@@ @ .PUNCHES-@@8} @ .CORDIALS-@@  @.BRANDY-@@ @.OTHER8}-@@ @ please)@ @HA!@WA6-&@G8}WWAPAAPAAPAAPAAPA@ 4A6@@ 8} D:WHISKEY.DAT@ A8.@@ D:WHISKEY.DAT8 A ,> 4A4@@  8}D:VODKA.DAT> A16,@@ D:VODKA.DAT6 A ^< 4A2@@  D:RUM.DAT8}< Ac4*@@ D:RUM.DAT4 A < 4A2@@  D:GIN.DAT< A8}4*@@ D:GIN.DAT4 A = 4A3@@  D:VERM.DAT= A5+@8}@ D:VERM.DAT5 A = 4A3@@  D:WINE.DAT= A5+@@8} D:WINE.DAT5 A &> 4A4@@  D:PUNCH.DAT> A+6,@@ D:P8}UNCH.DAT6 A X= 4A3@@  D:CORD.DAT= A]5+@@ D:CORD.DAT5 8}A ? 4A5@@  D:BRANDY.DAT? A7-@@ D:BRANDY.DAT7 A 8}> 4A4@@  D:OTHER.DAT> A6,@@ D:OTHER.DAT6 A ( +8}!-@@$ ( Q0@@ @70@@@Q0@@  8}ADD A DRINK  ----------- ( ( ENTER NAME OF DRINK$$ TYPE 'END' TO RETURN TO MENU    8}- 4END@#@- @0 @   $.. &ENTER INGREDIENTS (TYPE 'END' TO STOP).8}  34ENDA8 @B ApL   M @>>>V-- %ENTER DIRECTIONS (TYPE 'EN8}D' TO STOP)[ ` > e4ENDAPj @o A ~ @ZZ#@@8}# @0 + A"Q0@@ @70@@@Q0@@68}-@4%%%A 4ZZA P 4>>>   A 6-%@"@8}  ."@ -@B:,' -+ .  A )( ()( PRESS TO CONTINUE## PRESS 8}'M' TO RETURN TO MENU )@ /"@w@%@/ @0/"A @%@/ 8}@06--@@$   A @    B  END OF CATEGO8}RY PRESS TO CONTINUE)@@ @0 D:BARTEND;@,+@%@8_ZZPOLONAISE1 1/2 OZ. BRANDY1 TBSP. BLACKBERRY BRANDY1/2 OZ. DRY SHERRYDASH LEMON JUICE>>>SHAKE WITH ICE AND STRAIN INT M>>>ZZLASS. DECORATE WITH 1/2SLICE OF LEMON AND A CHERRY.ZZ. PINEAPPLE JUICE1/2 TSP. MARASCHINO>>>SHAKE WITH ICE A0 ERS>>>STIR WITH ICE AND STRAIN INTOCOCKTAIL GLASS. ADD A TWIST OFLEMON PEEL AND A CHERRY OR OLIVE.ZZTULIP COCKTAIL3/4VODKA AND TONICVODKATONIC>>> POUR ONE SHOT OF VODKA INTO AGLASS, ADD ICE AND FILL WITH TONICSTIR WITH A STRAW.ZZIAN 4ySLOW SCREWSLOE GINORANGE JUICECRUCHED ICE>>>POUR SLOE GIN OVER CRUSHED ICE. ADD ORZZEND;@,+@%@[>>>ZZTH ICE AND STRAIN INTOCOCKTAIL GLASS. ADD A TWIST OFLEMON PEEL AND A CHERRY OR OLIVE.ZZTULIP COCKTAIL3/45RY PRESS TO CONTINUE)@@ @0 D:BARTEND;@,+@%@0M>>>ZZLASS. DECORATE WITH 1/2SLICE OF LEMON AND A CHERRY.ZZ. PINEAPPLE JUICE1/2 TSP. MARASCHINO>>>SHAKE WITH ICE A1RY PRESS TO CONTINUE)@@ @0 D:BARTEND;@,+@%@COLARUM>>>ZZONTINUE)@@ @0 D:BARTEND;@,+@%@WHISKYCOLATONICWATER>>>ASDDERZZ)@@ @0 D:BARTEND;@,+@%@5'WHISKYCOLATONICWATER>>>ASDDERZZ)@@ @0 D:BARTEND;@,+@%@4BRANDY>>>ZZS TO CONTINUE)@@ @0 D:BARTEND;@,+@%@0MARIACRON>>>STOPYESZZTINUE)@@ @0 D:BARTEND;@,+@%@VODKA>>>ZZSS TO CONTINUE)@@ @0 D:BARTEND;@,+@%@ ion 1.2; last modified October 22, 1983; see SYSLIB.ACTPROC Zero=*(BYTE POINTER a,CARD s)[$48$A9$0$A485$68]PROC SetBlo)}ck=*(BYTE POINTER a,CARD s,BYTE v)[$A085$A186$A284$A0$0$A4A5$A3A6$10F0$A091$C8$FBD0$A1E6$A3C6$F5D0$3F0$A091$C8$A2C4$F9D0$60) }]PROC MoveBlock=*(BYTE POINTER d,s,CARD sz)[$A085$A186$A284$A0$0$A5A5$16F0$A2B1$A091$C8$F9D0$A1E6$A3E6$A5C6$F1D0$5F0$A2) }B1$A091$C8$A4C4$F7D0$60]MODULECS; Copyright (c) 1983; by Action Computer Services (ACS); All rights reserved.; vers("MODULE ; SYSSTR.ACT; (c) 1983 ACS; Copyright (c) 1983; by Action Computer Services (ACS); All rights reserved.; vers- }ion 1.3; last modified November 1, 1983; see SYSLIB.ACTINT FUNC SCompare=*(STRING a,b)[$A485$A586$A284$A0$0$A084$A184$- }A4B1$A2D1$3F0$20*+21$C9$0$1D0$60$A685$C8$A4B1$A2D1$5D0$A6C4$F590$60$FFA2$A086$390$A2B1$E8$A186$60]PROC SCopy=*(STRING d,s-})[$A085$A186$A284$A0$0$A2B1$A091$8F0$A8$A2B1$A091$88$F9D0$60]PROC SCopyS=*(STRING d,s,BYTE b,e)[$A085$A186$A284$A0$0$A2B1-}$A5C5$2B0$A585$A4C6$18$A2A5$A465$A285$290$A3E6$38$A5A5$A4E5$2B0$A9$0$4CSCopy+10]PROC SAssign=*(STRING d,s,BYTE b,e)[$A085-}$A186$A284$A0$0$A2B1$DF0$A685$A4C6$38$A5A5$A4E5$2F0$1B0$AA60$A6C5$890$18$A6A5$AA$A465$A585$A5A5$A0D1$390$A091$18$A0A5$A465$-}A085$290$A1E6$4C8ASCopy+14]MODULE; Copyright (c) 1983; by Action Computer Services (ACS); All rights reserved.; vers,& Using ST.ACT is very simple. All youneed to do is: 1) boot ACTION! using Boot command in monitor. 2) RUN "ST.AC1}T" from monitor 3) make sure you have the printer on before you compile another program.The symbol table lis1}ting will be sent to the device specified in theOpen routine in SPLEnd in ST.ACT.This is initially the printer put youcan1} change it to another device ifyou want to.Note that addresses given for TYPEdeclarations are the size of thattype in by1}tes. The address field fortype fields is the byte offset withinthat type. Boot command in monitor. 2) RUN "ST.AC0NMODULE ; ST.ACT; Symbol table lister for ACTION!; compiler. Lists local variables; per PROC/FUNC and globals at end; o5}f compilation.; copyright 1983; by Action Computer Services; All Rights Reserved; version 1.0; last modified November 5}6, 1983; user options:;; change Open call in SPLEnd to get; listing to go to diskDEFINE STRING = "CHAR ARRAY"DEFINE 5}JMP = "$4C" ; JMP addr16TYPE INSTR=[BYTE op CARD addr]INSTR Segvec=$4C6, DCLvec=$4D4INSTR SPLvec=$4DDTYPE ENTRY =[; S5}TRING name(?) BYTE vtype CARD adr BYTE numargs; BYTE ARRAY argTypes(8)]BYTE oldDevice, curBank=$4C9BYTE pf, Zop=$85}A, tZopCARD curproc=$8EENTRY POINTER eCHAR ARRAY cmdLine(0)=$590BYTE ARRAY bank(0)=$D500BYTE ARRAY zpage(32), temps(16)5}PROC PrintH(CARD v) PrintF("%H", v)RETURNPROC BaseType(BYTE et) et = et & $7 IF et=1 THEN Print("CHAR") EL5}SEIF et=2 THEN Print("BYTE") ELSEIF et=3 THEN Print("INT") ELSEIF et=4 THEN Print("CARD") FIRETURNBYTE FUNC GetType5}(BYTE et) CHAR ch BYTE pfFlag, t, oldT ENTRY POINTER next STRING name pfFlag = 0 IF et=39 THEN ; user type 5 }Print("TYPE=") name = e + 3 next = name + name(0) + 1 ch = '[ oldT = 0 WHILE next.vtype<128 DO et =5!} next.vtype & $7 If et=0 THEN EXIT FI IF et=oldT THEN Print(", ") ELSE Put(ch) Base5"}Type(et) Put(' ) FI oldT = et Print(name) ch = ' name = next + 3 next = name + n5#}ame(0) + 1 OD IF ch='[ THEN Put('[) FI Put(']) RETURN(0) FI IF et=27 THEN ; DEFINE PrintF("DEFINE = 5$}""%S""", e+3) RETURN(0) FI; get basic type BaseType(et); only record vars less than 128 IF et<128 THEN ; record5%} IF (et&7)=0 THEN Print("RECORD") IF (et&8)=8 THEN Print(" POINTER") FI ELSE Print(" 5&}record field") FI RETURN(0) FI IF et&$10 THEN ; ARRAY Print(" ARRAY") ELSEIF et&$40 THEN ; 5'}PROC or FUNC pfFlag = 1 IF (et&$F7)=$C0 THEN ; PROC Print("PROC") ELSE ; FUNC Print(" FUNC") FI 5(} FIRETURN(pfFlag)PROC PrintEntry(STRING n) DEFINE MAX = "15" BYTE i, et STRING name(MAX+1), t BYTE ARRAY argTypes5)}; get the name SetBlock(name+1, MAX, '.) SCopyS(name, n, 1, MAX) name(0) = MAX; get address of entry info e = n +5*} n(0) + 1 et = e.vtype IF et=$88 THEN RETURN FI ; undeclared PrintF("%S ",name) IF et=27 THEN ; DEFINE Print5+}(" ") ELSE PrintH(e.adr) FI Put(' ) IF GetType(et) THEN ; PROC or FUNC Put('() argTypes = e + 3 5,}t="" FOR i = 1 TO e.numargs DO Print(t) GetType(argTypes(i)%$80) t = ", " OD Put(')) FI Pu5-}tE()RETURNPROC DumpST(CARD POINTER base) CARD loc, i BYTE low=loc, high=loc+1, ibest BYTE ARRAY stLow, stHigh, flag5.}s(256) STRING best, worst(0)="|" Zero(flags, 256) stHigh = base^ stLow = stHigh + 256 DO best = worst FOR5/} i = 0 TO 255 DO high = stHigh(i) IF high#0 AND flags(i)=0 THEN low = stLow(i) IF SCompare(loc, b50}est)<0 THEN best = loc ibest = i FI FI OD IF best=worst THEN EXIT FI flags(51}ibest) = 1 PrintEntry(best) ODRETURNPROC Save(); save state of variables used by; both compiler and library routi52}nes bank(0) = 0 ; init library routines tZop = Zop MoveBlock(zpage, $B0, $1B) ; to $CA MoveBlock(temps, $5F0, 16) 53} device = 5RETURNPROC Restore(); restore state of variables used by; both compiler and library routines Zop = tZop 54} MoveBlock($B0, zpage, $1B) ; to $CA MoveBlock($5F0, temps, 16); device = oldDevice bank(curBank) = 0RETURNPROC Seg55}End() Save() IF pf THEN ; print locals PrintF("%ELocal declarations for %S:%E", curproc) DumpST($B3) ELSE p56}f = 1 FI Restore()RETURNBYTE FUNC DclEnd() BYTE token=$C2 CARD addr1, addr2 DEFINE PLA = "$68", STA =57} "$8D", LDA = "$AD", PHA = "$48"; find out where we came from [ PLA STA addr1 PLA ST58}A addr1+1 PLA STA addr2 PLA STA addr2+1 PHA LDA addr2 PHA LDA addr1+1 PHA LDA addr1 59} PHA ] IF addr2<$B000 THEN ; new MODULE SegEnd() pf = 0 FIRETURN(token)PROC SPL() ; dummy proc for call b5:}elowPROC SPLEnd() BYTE nxttoken=$D3 CARD codeBase=$491, codeSize=$493 CARD nxtaddr=$C9 STRING inbuf(0)=$5C8, name5;} DEFINE PLA = "$68", STA = "$8D"; oldDevice = device Save() Close(5) Open(5, "P:", 8) IF nxttoken=30 TH5<}EN ; command line name = nxtaddr ELSE ; editor buffer name = inbuf FI PrintF("%E%ESymbol Table for %S%E%E", nam5=}e) pf = 0 ; no proc decl yet; JSR for return so that we come; back here after compilation [ PLA STA SPL+15>} PLA STA SPL+2 ] SPL = SPL + 1 ; get right address Restore() SPL() Save() IF pf THEN ; print locals 5?}PrintF("%ELocal declarations for %S:%E", curproc) DumpST($B3) FI PrintF("%E%EGlobal declarations:%E%E") DumpST($B15@}) PrintF("%E%ECode base = %H, code size = %U%E", codeBase, codeSize) Close(5) Restore()RETURN; only code5A} generated before Init is; allocated space. Init will be; garbage collected (well kind of).PROC Init() CARD codeBlock,5B} bsize, csize, nBlock CARD POINTER cur, next CARD ARRAY codeBase=$491; link in our routines Segvec.op = JMP Segvec.5C}addr = SegEnd Dclvec.op = JMP Dclvec.addr = DclEnd SPLvec.op = JMP SPLvec.addr = SPLEnd; allocate our routine so it5D} won't; go away. codeBlock = codeBase^ - 4 next = $80 ; AFbase DO cur = next next = next^ UNTIL next=0 OR ne5E}xt=codeBlock OD IF next=0 THEN PutE() Put($FD) PrintE("I can't allocate space for your code") PrintE("You be5F}tter Boot and try again!") RETURN FI; assume we can split block csize = @codeBlock-codeBlock nBlock = next^ bsi5G}ze = next(1) - csize next = @codeBlock cur^ = next next^ = nBlock next(1) = bsize codeBase^ = @codeBlockRETURN o4{; BIGST.ACT; copyright (c) 1984; by Action Computer Services; All Rights Reserved; This program will create a big9I}; global symbol table (max 510; entries, normally 255) when run.; It will boot the cartridge as well,; so you must not ha9J}ve anything in; the Editor that you want. It does; not increase the space used to; store variable names. If you want; t9K}o increase this as well, you will; have to 'SET $495 = #' in the; monitor after running this program.; # is the number of 9L}pages you want; to be used for name storage (each; page is 256 bytes, default is 8).; You must use the correct version of9M}; Cold below:; version 3.0 ACTION! ROM;PROC Cold=$A323()[]; version s 3.1 to 3.6 ACTION! ROMsPROC Cold=$A326()[]PRO9N}C BigSymbolTable() CHAR bigST=$4C4 BYTE EBank=$D503 Zero($480, 255); following statement causes all; variables star9O}ting with uppercase; letters to go into one half of the; global symbol table and variables; starting with lowercase letter9P}s to; go into other half (255 entries in; each half). If you use mostly; uppercase variable (this includes; PROC/FUNC na9Q}mes) use 'M. If you; use mostly lowercase variables then; use 'm. bigST = 'a; boot cartridge with big S.T. ; Will n9R}ot return. EBank = 0 Cold()RETURN by Action Computer Services; All Rights Reserved; This program will create a big8)o__??)UUեPPPPPPPPjjjjj____WWWWꪪUUUUUUUUZZjiUUUUU=T}@@@@  ** jZZVVYiiZZV?????=U}????UUUUUUUU**** =V}VUEE``@@ 00 **jj@@00tTU00hh@@=W}((((****((((PPPP** VV33 UQQPPTT@@PP 0000 =X}TTjjZZ ** ZZZZ@@j**  TT@@̨=Y}ff " 0<00" 8,8PP=^}8(( 8~v``8,8 888(8000@  4`8=_}8x<4b|gg 2 0 <00&00 4 8=`}^~ _ 5n>^~ {X>=?0(,>&~7>=?0($>=f}&7p8x~~00|~>v8x~~00|~>@ 8| 4|d@ ~| =g}$|d F`"v8\>~ b"7p8\>~@@HPw>?88<67/?3p@@HD67>?88=q}B'DOS SYSB*+DUP SYSBUAUTORUN SYSBWMENU B^WHISKEY DATBmVODKA DATB{RUM DATBGIN DATBVERM DATBWINE DATB PUNCH DATBCORD DATBBRANDY DATBOTHER DATB!BARTEND <67;?'fn>/8(|n|>/8(|n|8x(|<|f 1pp(|=r}?=s}%JEFG:-(MJ6KBCD5&67+, !"N8O9L4H;:=t}  !"#')* #')*+,+,@BBBBBBBBB=u}BBBBBBBBBBBBBCBBCBBCBBCBBCRRRBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBRBFbBBFbBBFbBBBBBBBBBBB=v}BBBBBBBBBBBBBBBBBBBBBBBBUUUUUUUUUUUUUUUUUUUUUZUUUVUUUUUVVVZZZUUUUUjjj=w}UUUUUUUUUUUUUUUUUUUUUUVjk_UUUUUUUUUUUWWZZ~~** UU_=x}_UUUUWWե__UUWWUUUUUU__UU****~~UUUU~~~~UU=y}UUUUUU           UUUUUUUUUUUUUUUUUUU=z}jjVUUUUUVV[UUk}UUUUUU***UU **UUUUU * ={}UUUUUUտ_UUUUUUACACACACAC ../-/-/ACACAC,.,.,=|}.,.....,.  ,.,.,.,.,.,.,.,.....,. TTTT=}} l.l.l.l.,.,.,.,.,.,.,.,.,.,.,*&$"   ? =~} " $& (,UUUUUUUjjjjjZVVUU*UUUUUUUUUUUUUUUUUjUUUUUUjj=}UUUUUUUUUUUUUUUUUU * UUUUUUUUUUUUUUUUUUUUUUUUUUUUU *****U=}U***UUUUUUUUjVUUUUjjVUjUUUUUUUUUUUUVUUUUU=}UU* * UUU********@PTTTUUUUTUUUUUUUUUTUUUUUUUVZUUUUUUUVUUU=}UUUUUUUUUUUU jUUPTUUTPPUUUUUUjUUUVZjUUUUUUUUUU=}ZjUUVVZj ??=}MODULE ; CATCH.ACT; copyright (c) 1984; by Action Computer Services; All Rights Reserved; This module provides two PROA}Cs; (Catch and Throw) which can be used; for error trapping (and flow; control, yeck!) in ACTION!. To; use them, you musA}t call the Catch; PROC to indicate where you want; the program to continue when you; call Throw. When throw is called,; A}execution will continue following; the last call to Catch with the; same index as the call to Throw.; Calling Catch is simA}ilar (but not; identical) to TRAP in BASIC. It; differs in that the actual trapping; is generated by the user (by; calliA}ng Throw) and that you can; have multiple Catch'ers active at; one time. Also, you cannot Throw; to a Catcher that is no A}longer ; active (the PROC/FUNC containing; it has RETURN to it's caller). The; Throw procedure tries to check for; this A}error, but it is possible to; fool it into thinking it's OK. If; you want to solve this problem, you; can set 'c_t_sp(indA}ex)' to zero; before you return from the PROC; that contained the Catch(index).; If index is greater than 24 or; if thereA} is no matching Catch index; for the Throw, then Error will be; called with a value of CTERR; (defined below to be 71). IA}f you; setup your own Error procedure and; use Catch and Throw, your error; procedure should handle this error; as well oA}r your program will most; likely "go off the deep end".DEFINE CTERR = "71" BYTE ARRAY c_t_sp(25)=[0 0 0 0 0 0 0 0 0 0 A}0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]BYTE ARRAY c_t_hi(25), c_t_lo(25)PROC Catch(BYTE index) DEFINE TSX="$BA", TXA="$8A", A} LDYA="$AC", STAY="$99", PLA="$68", LDAY="$B9", PHA="$48" IF index>=25 THEN Error(CTERR,0,CTERR)A} FI [ LDYA index PLA STAY c_t_hi PLA STAY c_t_lo TSX TXA STAY c_t_sp LDAY c_t_lo A} PHA LDAY c_t_hi PHA ]RETURNPROC Throw(BYTE index) DEFINE TXS="$9A", PHA="$48", LDYA="$AC", STX="$8A}6", TSX="$BA", TAX="$AA", LDAY="$B9" BYTE sp=$A2; get current stack pointer [ TSX : STX sp ] IF iA}ndex>=25 OR sp+2>c_t_sp(index) THEN Error(CTERR,0,CTERR) FI [ LDYA index LDAY c_t_sp TAX TXS LDA}AY c_t_lo PHA LDAY c_t_hi PHA ]RETURNMODULE ; just in caseA index LDAY c_t_sp TAX TXS LD@M;; SAMPLE.ACT -- This program compiled; and then saved as ; SAMPLE.COM; BYTE RTS=[$60] ; ThE}is declaration ; must be the first ; compiled code if ; using this pgm with E} ; OS/A+ versions 2.2 ; and beforeINCLUDE "D:SYS.ACT"PROC SQR(INT N) PRINTIE(N*N)RETURNPE}ROC MAIN() INT N,M FOR N=1 TO 10 DO PRINTF("%I SQUARED IS ",N LSH 1) SQR(N+N) OD RETURN(N*N)RETURNPDn+3` (c)1983 Action Computer Services  B JKIHiDiELV`LI}+ + BLV`LM,I,l LJ, &` Fj`8冨凪` ,EӅӥI} ,`ʆǪƩ Ɛee` ,ƦʆǢ &Ɛeǐ , ,L, ,'&&&8儨I}祂*L,&&*ń8&&L, -`hihiHHȱȱLW,c !#3`I}LJ,JJJJ`H W,h`Hȩh &,L- /,L- +L- +L- +H8I}`HhHh .L- BHI V䅠L- LJ. +L-Ԇ ؠPIPP`I} .P +L- .Lg. .L. .Lu.H- p.8塪墨hL. .Lg. .Lu. .ȹP`I}텠8堨塪 .芨Oȩ-`PP B.P棩 Ѥģ0-ģ6000:,80HI} & &ehe&eģ0ʥ 8堅塅`$ i.&*i0:0i i.Ʀ`¢ I}°ڱ%ȱ%E i.L0担CS .L0I .L0H /L0 .L0 &B V -NLMI}` MLN%B VL-S:0E:0H . 00 - .h)0I00L-[\ZUVT` 000I}` 0Ly. 0LH. 0Ll.) ` 0Ly. ,` 0d J,ҥ `2)2I}ҩ`p`0)91`@0)ӈJJJJ)`Ѕ`ȱ`` 1ȥ`HhI}ƣĢ`ƥĤ`Ѣ t2`ȱѢĦ`膡`I}`ťƤe8夰L2 Ƥ8`ŦeѠe桊L2L3I}222222 , .`L13+3Ȍ*3 *3+3L3L[3%I SQUARED IS +3*3 a,3L /*3m*3I}+3m+3 3*3Ц+3L:3``.3ervices  B JKIHiDiELV`LH!;; SAMPLE2.ACT --This program compiled; and then saved as ; SAMPLE2.COM; BYTE RTS=[$60] ; TM}his declaration ; must be the first ; compiled code if ; using this pgm with M} ; OS/A+ versions 2.2 ; and beforeINCLUDE "D:SYSLIB.ACT"INCLUDE "D:SYSIO.ACT"PROC SQR(INT NM}) PRINTIE(N*N)RETURNPROC MAIN() INT N,M FOR N=1 TO 10 DO PRINTF("%I SQUARED IS ",N LSH 1) SQR(N+N) OM}D RETURN(N*N)RETURNPROC MAIN() INT N,M FOR N=1 TO 10 DO PRINTF("%I SQUARED IS ",N LSH 1) SQR(N+N) OL +`1` (c)1983 Action Computer Services  B JKIHiDiELV`LQ}+ + BLV`LZ,V,l LW, &` Fj`8冨凪` ,EӅӥQ} ,`ʆǪƩ Ɛee` ,ƦʆǢ &Ɛeǐ , ,L, ,'&&&8儨Q}祂*L,&&*ń8&&L, -`hihiHHȱȱLd,c !#3`Q}LW,JJJJ`H d,h`Hȩh 3,L- <,L- +L- +L- +H8Q}`HhHh .L- BHI V䅠L- LW. +L-Ԇ ؠPIPP`Q} .P +L- .Lt. .L. .L.H- }.8塪墨hL. .Lt. .L. .ȹP`Q}텠8堨塪 .芨Oȩ-`PP O.P棩 Ѥģ0-ģ6000:,80HQ} & &ehe&eģ0ʥ 8堅塅`$ v.&*i0:0i v.Ʀ`¢ Q}°ڱ%ȱ%E v.L!0担CS .L!0I .L!0H /L!0 .L!0 &B V -NLMQ}` MLN%B VL- L0000000 , /`[\L00Ȍ0 00L_1L 1%I SQUARED Q}IS 00 n,1 00m00m0 00Ц0L0``0 JKIHiDiELV`LPJ<~߿~<<~f<<~~<>.6>:66:> =}: M !NO=}89:;<"#$%&'()*+PQRSTUVWXY4=>?@$A-./0++Z[\\[]^_`]BCDEF+G1=}abLcdefOcH+I23ghijkdlm;xykuJKL4567nojpqr)Oz{pqvw=}}~xyz{|upvwupvupMJMJKOHIJKLLOLLKHIKOMOONKLLOKJOHII=}IJMJHIONKHMJMJ                   =}M*?N.-43220 !"#$  98765%=}'( =<;: *+,?>WCW.NWB38=}A@W FE7D=C 888JIHG WLKWM=}W-WB38A@ !"#$ 888 98765%'( 888 88888887JIHG *+,LK*W=}?NW-W43210W FE7D=C =<;: =}GH ԩ|$ЩڍЩčЩЩ$ ԥҍԥХɍЩ h@H ԥ ԩh@H ԩ@=}эԩ ԩčХ̥Х h@5+5@+5+5+0@,0=},0 -0-H ԩYЩčЩ ԥҍh@H ԩ:čХэԩ h@HЍХЩ8Х=}h@Hh@Hƍ祕ЍХЩƍХƍh@HӍh@H ԩs ԩЍХЧh@pT.D5T;=}B0/A*pT.D5t;4444444444444O/A'*pT.t;444444444444444444444B0/AP*0B0/Aw=}*Ӟ8Ҟi8L`$...,.6.@.J.\.=}6/C/ P/f/Ɵ~/џ0p 0()()  *.+@@+@+@+@=},@      !lti-!44%2(/2.,ife3core%nergy}~ |)Oة=}0 =+}++͟`,iީߩ,  NOWLOML=}< ީߥ ,e, Щ ީߩ  0ީ @ީ i0=}   ީߥ \e, 8ǩé𩙅0  4  4=}ʆ` i`ީߩ,Li0 L @,0  ꩀ=}  i`e` ee`0 - $% [3=}@/* 0*1@ԩ//2ҩ ~Щ  Ż  TҩM =}LL N NLL8Ѕ JJ HE) LL0ii ?Щ   9 ˬ =}J J ۧЭ PЅ  k /ҥLZJI ) J n  LLx =} LJ  Lj=}VRAHJL hL¤JL㢥I LJL㢥I L؅ͩة@L؅ͩة@LjjL㢥Щئ䖐 ۸L㢥=}Щئ䘐ʆЦʆ ԥ ۸LLڤ 6x xJJJ0J)L㢥 ֩© L ` =d=} `© ( L R ͅة׭JL L iL Tͅة L oL㢦)=} /) ڪԦʆҥi ɦ7=  C ] m`Ɠ80Ƌ`壘800`=}ߦݽ/H h  ޥ壘, 3 ^LsLզLޥߩ;連 ;ȥ` -=} $%(% g3x/7* Żҩԩ '0*1``#` #=}#b8`` p ?I06iɈ0  ȱ=}`5`8 ЄL I0i0ʆ І `  Ψʆ ) 7J yLy'=}ӅХ8 ` 꽀!)~!)~!ʆʆ )`P!`@!`=} 0$iii ` ^ ©`å4 08@JJ 8JJ0å8 =}JJ0 ` I/ ĥ .ą ʅ  LLLhhLZ`ƤL` =} T  Ǫ » …L㢥 Tթdԩةש`HHii hhulLLx =} 6 @ u0 L_L㢥HHii hh`ߩ,LߩL56@=}6` 0`###`#` ޅɩ`Ş ʠ 񪥟`=}ʠ Lo饐 Hޥ 3L H<,8 JJ,8@好L3=}` H 3㍄.`jjj+`jJL㢥I`8 L @橉ة L i=}L PL oL㢥:JJJ!ŭ ) 6 @ L㢭ťi L*8 L㢭xjjɩ=}L?#(`8 JJ He8%ŵ! j 櫩0 3`** H ȼ 3`=} .` .` 08 HEM0(xx-5:P0*1 ~ - ةש֩U=}eԠԄТѢҩP T M p /L ) ; m2 LL =x@=} Lѭjjjj2Lѭ Lѭ LѭA ) Թ ۸Lѭ ۸ ) Lѭ Į=}LۮЭW*80W*X*`ҭW*iW*X*`ҤЌԭX*6<  cҤ!LѭX*W*800Lѭߥ=} ޭX*W*, 3 ^LA m LѭW*ޭX*ߩ; W*;X*` I/ĥą…=}  LѭhhL`ƤL` T Uթeԩשة  U>1@ Lٻީ m`  =}҅ J ` m(Ѧh ) eХ)Lp`Х +,l) eƪȽ#=}` ϰ ϰ ϰ ` ϰ ϰ `  `  L#"ʆʆ `8( Ѕ`##x=}`#`ưw0*1 ~s ԅҩש(ةJ =} T T - ^ | M y*x* ҭЅ) ! ƞJҥL ) % ^LL# i8ӰIi=})Ljӥ0 ȶL LӳЭx LJLJLJJ(L)L ) TJ(=}) L)@L ( T0)  ԹL)] 8 D8 թש( )Х =}L L8)LL ԹI L՝""Ԑ`80`н` LӶ I(L=} Ӑ )8e Թ Թ Թh L@ iХi ^I( ݥK=}` )  LHঠ0i8  ݎ oLLFὀ!)!`L`½J =}H ah H h  ÅL=)I⩼L t•搦8 Υ)I=}J` tƢ•攦@ ص `Šȅʥiɐʱǝ#ɝ#Đ`Ž#"##ĐʆŦʆ`=}Ľ####Ħ`ũ##Đ`I LL`̽] ̪9` 9Րɀ ߦ=}e ͪ9` `>Sթcԩ(ة0LQթaԩ)ةLŦ ŢĢǩ=} =`݅Ⅽ J j ƤL T ^ | TХ W`hhLj`Аа`=}8 JJ8 JJ`y*x* i0晈` `pĄ @ЦĤW `mn `>}`yz aȩb` U '̅ͅ΅ Lٻ ȼ Ϸ` .` .>}` 0  i  8ƼJJųх֥`8 Ԁ"2("2Ԁ4D@:J(:JԀRb(RbԀ>} $  '*&D)~j4ҍҍҍҍ`ӍЍ`ՠi٥؅ڱם"ٝ"Ԑ`@̥)>}̥I@ ``ޑ00eޅސߩ0eL`!"#`  I@ 0_ ۽ l>} L ԹLԹ i i i i` ` o o o`ҥ@ `ս"!""Ԑʆզʆ`Խ"""">}Ԧ`8 JJ8@ i JeJJ`񥊦 i0`Ơ0` Lю`_..0..>}`.0.`iiilީ/آLP`)JJJJ ȵ) `8Pީ/>}آ Lui `Uީ/ߢLei<ީ/آLi պ`ҩi {` ׺ $>}L  L)`8`  v v `0 p`ޅ ߦ`L U>::> }o`!""##!""## ` -ok{E J VLt|}<ME8Ƶƴ ƱƳ`8Ƶƴ 泰` SDLt   V }D  L Z l E&LY҆ZV }0Z1Z ZLZLZZZZнLZZ ԝZZ ɛZZ)ЩL'ZppppppppppGZpppV }pGZ0GZAZx3paragon# icstorstenlandsvogtG^@ԩd_҅A&^' V}[}Z@h [ W[ \Zjj ^ "^ "^Lu`jjLa" i"șd-V}6,7`%pb01`/č?àĠPàĢ ]bx 5^bV}쩥àĢ ]\Ă  -jk :jKEj〈Xjbj`}jjj"~j/V}`Nj~jXj` ^)éĩjj jijL\bjijb" ] 5^L\ ] 5^Yкd8jjV}jحj)ij ]j)îj ]ʂЭbj3}jj bLt]jj͈jHbLt] ^`Xęb "^V}b 'bb D`b ' W[ [ \Lu`bLt])JJJJi`b ] ] ]bi%bꬓb`i`jis#j)3gV}#j)3i`M҅`҅X`Ң`eÅéeą``HHH pj ԩ2L^@ ^j0jV})JJJJi;j)i;ީ2hhh(@ Dڥ Dک Dڥե fکB (ۢj ݠj >_V}jՙj _Όj`j >_ ݢj `ک@` ڢj `?P `ڥ) D` `HHHx ^ 'XV}Lu` ~jI"~j \Lj`! jjL` }j}j<àéjL\`jL_jLj`j!Lj`΀j8jiV}$éLj`j jmj mjjié b.2Ѝ D`Щč D`L`ҢȌ`}jjIj \L` ^hhV}h(X@ ^jȌjԩL` ] "^ ]<IkLjp ^@ԩ2jLajjV}jjj)jLakL a! SLqj aL.a a-jLa ^~j/jj kjFȐ}vjة"/ b0.V})i$åJJJJi \}jjIj ^La<àé}j}jL\]\éĩ?bdjjjjjj`V}éĩ?jjjjjj`jj``}%j"͆j8%ĵj jjꬂjЭj`V}jj`D0pAXV}V}V }V!}V"}V#}V$}V%}V&}V'}V(}????????????????????V)}??::::::::::::::::????5555UUUU\\\\55555555UUUUUUUU\\\\\V*}\\\5555??UUUU\\\\ < ? ?000<V+}? ?<<<<3V,}? <<<<<<<<< 035?:*8=9 %# /(>- .+!?: 3?8?,?)V-}?0?0?3???????????????????:?-?(?)?3?optionZOselectZd2"!Y@@~gV.}*jꎁttOǢŢƆȍtOcV/} tttMs2ttt MHsstt kLk nt`Ʃtt tt`{rr` TV0}rMLltttȹ ȹ0Llt 0L mti i 0L:mti i 0LrmtV1}i i 0Lmt8 8 0Lmt8 8 0Lnt8 8 0LRnt0LktV2}́t` rt s` r t t ti Ll jr̈t jrLl 0ȹ jr̈t jrLmV3}ti ,i 08 jr8 ̈t jrLEmti ,i 08 jr8 ̈t jrL}mti ,iV4} 08 jr8 ̈t jrLmt8 ,8 0i jri ̈t jrLmt8 ,8 0V5}i jri ̈t jrL%nt8 /8 0!i jri ̈t jrL]nLlt jrt́tƅȠǨȭtȭtV6}tti tt n{rr΂tƥƅ _rǨȱ8tȱtǘǠŨLlƩtt tt`rr` TrMV7}Lptttȹ ȹL1pt L[pti i Lpרּti i LpרּV8}ti i Lqרּt8 8 LCqרּt8 8 Lqרּt8 8 Lq﬈tV9}0Lot́t` rt s` rL p r̈t rL8p"ȹ r̈t rLbpti .i V:}8 r8 ̈t rLpti .i 8 r8 ̈t rLpti .i 8V;} r8 ̈t rLqt8 .8 i ri ̈t rLNqt8 .8 i V<} ri ̈t rLqt8 18 !i ri ̈t rLqL+pt rt́tƅȠǨȭtȭtǭV=}tti tt krr΂tƥƅ _rǨȱ8tȱtǘǠŨLpMň`Mř`0mttmtt`V>}mtttt`0mttmtt`mtttt`tt0Lrt0͇t ẗ́t tttt`ttǨV?}ǍtǍtt rt魂t`Ǩt͇t͆t ȹt``""""""""""V@}"""""""""""""""""""F F""""VA}"" "" "" "" """"""F F""""""""""""""VB}""""VC}VD}VE}VF}VG}VH}VI}VJ}VK}VL}VM}VN}VO}VP}VQ}VR}VS}VT}VU}VV}VW}VX}VY}?DLt   TP36-@7)=-A*M6-@Q\-]- B-6-@6.P-6-X:<<,-" BR[}-!!6-\:7%@<%@,,.eE6-\:7+&@,$@%@<+&@,$@%@,,[@*@R\}e B.Q.T".KD:CF,RMD:CF D:CF@%@<+&@,$@%@,,[@*@P;