STAK @   r  $(       A v  ,    V  " " """"""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀ UUUUH0 D9D"AA"A>"t"%2d$LA*@  @  "t"G"q ]A PP - #` o  ` C w `  $  %@ < ` on openStack global poemFont, poemFontBoldOn, cursorType, buttonFlash hide background field "cycleStop" of card "dance card" put "type" && quote & "." & quote && "to stop" into background field "cycleStop" of card Island set the textfont of char 7 of background field "cycleStop" of card island to "Chicago" hide menubar set the scroll of card field "message" of card "second" to 0 set the name of card button id 16 of card "second" to "hidden" set the highlight of card button id 16 of card "second" to false hide titlebar set the name of card button id 21 of card "second" to "hidden" set the highlight of card button id 21 of card "second" to false set the name of card button id 41 of card "second" to "none" set the highlight of card button id 41 of card "second" to false set cursor to none put "none" into cursorType set userLevel to 2 -- default bold off put false into PoemFontBoldOn set the highlight of card button id 38 of card "second" to false set the name of card button id 38 of card "second" to "off" set the textStyle of card button id 38 of card "second" to "plain" set the textStyle of card field sampleFont of card "second" to "plain" set the textStyle of card button id 42 of card "second" to "plain" -- default Geneva set the highlight of card button id 42 of card "second" to true put "Geneva" into poemFont set the name of card button id 42 of card "second" to "Geneva" set the textFont of card button id 42 of card "second" to "Geneva" set the textFont of card field sampleFont of card "second" to "Geneva" put true into buttonFlash end openStack -- on enterKey -- go card "titles" -- end enterKey on lockAllFields put the number of cards of this stack into N repeat with i = 1 to N go card i put the number of card fields into NN repeat with ii = 1 to NN set lockText of card field ii to true end repeat put the number of bkgnd fields into NN repeat with ii = 1 to NN set lockText of bkgnd field ii to true end repeat end repeat put the number of bkgnds of this stack into N end lockAllFields  MAST  r C   \  ̢ d  U! R e 7 (^ 0^ ( ›   Z ( &  D  LIST        c  *   PAGE * T $( Q H ( @ ! e @H!  0 \ D!@ "D0  D-BJЄ ͠ D!,TY BdY  @ !  D  R @ !wD aXJ[ d D!)@   D #Ȁ-v@ & @ )  B Ġ@@ !D"0 %D\@Hp ^[ ^`    BKGD r  7 #Z   *  $ *  FV  cycleStop     +  type "." to stop gotoTitles on idle show background field "cycleStop" of card Island set cursor to none put "going to titles" into background field "cycleStop" of card Island wait 2 seconds go card titles put "type" && quote & "." & quote && "to stop" into background field "cycleStop" of card Island set the textfont of char 7 of background field "cycleStop" of card island to "Chicago" end idle @BMAP   V V `BKGD 7 H   r on idle go card titles end idle @BKGD    7 @BKGD  (  #Z  @BMAP (  V V @BKGD #Z   r  @BMAP   V V CARD $(  * #Z   ~  B &  .      title  z5  Developer Stack on mouseup visual barn door close to black visual barn door open to gray visual barn door close push this card go to "KSI Mac II 1:Applications:HC 2.1:Developer Stack 1.2r" end mouseup p N   continue on mouseUp visual effect dissolve slowly to card go to next end mouseUp =           bp Nichol FIRST SCREENING first on openCard global speed, startDog hide card field title set the loc of card field title to 121,300 wait 1 second put the ticks into startClock show card field title put 121 into x put 300 into y put 0 into speed repeat while the ticks - startClock < 180 subtract 3 from y if (y div 50) mod 2 = 1 then add 1 to x else subtract 1 from x end if set the loc of card field title to x,y add 1 to speed end repeat set the loc of card field title to 135,121 wait 1 second show card button continue put the ticks into startDog end openCard -- on returnKey -- click at the loc of card button id 3 -- end returnKey on idle global startDog if (the ticks - startDog >= 60) then get the highlight of card button id 3 if it is true then set the highlight of card button id 3 to false else set the highlight of card button id 3 to true end if put the ticks into startDog end if end idle on closeCard hide card field title hide card button continue end closeCard BMAP   V V /  D&/@?V P?V` Fb@ SP|vD@@S ! g"T@ D8 0&gJUD> hLQS$%,X3T$%0Ws )Td e30X;DTl18h+ (2!@w7;ÀT 0  h2~(h2 "`#"b(w##n!`y T X +"@$I24 S P2 Y0xD Tb `,A @C8 x1@ ( @3" @ 3B> ;  D@q: 'BxB Ls DVDʀ 2/BWE a wx  q H8 0"`: Dx# , xR  D8`"#Ch  D" "€Ȣ! D  BP"b*pH bD  wH `Bp kª ??1eBLdb ‘!A 0 q|( q@ =f{a 0b@. wx  @ cqD@Ay  S @|11 EsB[ޯ]+ rz! ruU" c!` fUU!0 ! "1Uo{ 4cm !"DUz\sP !D!S'S.8 !t0 Hc7 }1f =ݏvp?1wy=7sq| "@yJH(vw=ff0 1@ ?ٌF`go?ogf!w"wfG"D *"UfH ""RUdDbB Xh J"Db" 8(2 2e9"Bb@&4bhFQ @b`($x4bb2fDF 95b &@DSXSWs bS)bP 2" S^ D.@D@ @bA)D@"`'VUf` #`FREE Free Object *  -  |  @   right arrow on mouseUp show background field "cycleStop" of card "island" put false into skipToTitles go card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card dedication end mouseUp b  6 F   medium on mouseUp global speed if the short name of me is "fast" then set the name of me to "slow" put 60 into speed else if the short name of me is "slow" then set the name of me to "medium" put 30 into speed else if the short name of me is "medium" then set the name of me to "fast" put 15 into speed end if end mouseUp (   UF@   message   % 5܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show menubar else set the name of me to "hidden" set the highlight of me to false hide menubar end if end mouseUp R  G@   right arrow on mouseUp go card titles end mouseUp    $܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show titlebar else set the name of me to "hidden" set the highlight of me to false hide titlebar end if end mouseUp  & i y   off on mouseUp global poemFontBoldOn if the short name of me is "on" then set the name of me to "off" set the highlight of me to false put false into poemFontBoldOn set the textStyle of card button id 42 of card second to plain set the textStyle of card field sampleFont to plain else set the name of me to "on" set the highlight of me to true put true into poemFontBoldOn set the textStyle of card button id 42 of card second to bold set the textStyle of card field sampleFont to bold end if end mouseUp ' J     sampleFont -- on returnInField -- click at the loc of card button id 42 -- end returnInField on mouseUp click at the loc of card button id 42 end mouseUp  ) G W܀   none on mouseUp global cursorType if the short name of me is "none" then set the highlight of me to true set the name of me to "watch" else if the short name of me is "watch" then set the highlight of me to true set the name of me to "busy" else set the name of me to "none" set the highlight of me to false end if put the short name of me into cursorType end mouseUp  * z    Geneva on mouseUp set userlevel to 2 put the number of menuItems of menu font into N if N < 1 then setPoemFont("Monaco") end if repeat with i = 1 to N if menuItem i of menu font = the short name of me then exit repeat end if end repeat if i = N then if menuItem i of menu font = the short name of me then setPoemFont(menuItem 1 of menu font) else setPoemFont("Monaco") end if else setPoemFont(menuItem i + 1 of menu font) end if end mouseUp V + K~  Chicago on mouseUp setPoemFont("Chicago") end mouseUp T ,    Geneva on mouseUp setPoemFont("Geneva") end mouseUp T -    Monaco on mouseUp setPoemFont("Monaco") end mouseUp 뀶 #  * (  $  ( + ) : ( $ (1 )@ (c %e ( $ (( )7 ( ' ( ' (a $u (} $ ( ) ([ $a ( ' ( ' (  '  ( $  ( $ (  $ ! ( $ ( $ ( INTRODUCTION History bp Nichol developed First Screening on an Apple II computer in the mid 1980s. This translation into Macintosh HyperTalk was done at the Knowledge Science Institute at the University of Calgary in 199293. Operating Instructions Click the pointing hand (lower right corner) to view First Screening. To halt animation displays type . (Apple Control Key & period). After being halted, the stack will go to the titles card after pausing for a few seconds. This stack uses primitive real-time animation. The animation will run slower if you have other applications running on your Mac. The stack takes three or more minutes to view. You should set your screen saver program (DarkSide, After Dark, PYRO! etc.) so it wont disrupt the screening. Powerbooks If you are viewing First Screening on a Macintosh Powerbook you may experience annoying pauses in the animation. The Powerbook has a mode that slows down the processor to save power if there is no input from the user. Its possible to turn this mode off from the Portable Control Panel by option-clicking on the Minutes Until Automatic Sleep string. If your Powerbook still pauses, try setting the cursor to watch or busy (click the button on the right near the top of this card). If all else fails, keep moving the mouse or tapping the Command Key while the animation is in progress. Menubar and Titlebar If your Mac has a small screen, you may want to hide the menubar and titlebar. To do this, click on the buttons at the top right of this card. (If your Mac has a very small screen, the titlebar will not be shown regardless of the state of the titlebar button.) Speed Run time will vary from Mac to Mac. This version of First Screening attempts to run faster on slow machines and slower on fast machines. You can make your own adjustments using the Speed Control Button on the right of this card. Running other applications on your Mac at the same time as HyperCard will make the animation run slower. Using darker fonts (and bold) will also slow down the animation. This stack will also run faster off a hard drive than a floppy drive. Cursor On most Macs the cursor should be set to none. If you are viewing this on a Powerbook and finding that the animation pauses, try setting the cursor to watch or busy. Fonts and Bolding You can select poem fonts and bolding on the right side of this card. At the very minimum, your Macintosh should support Geneva, Chicago, and Monaco fonts. Poem for my Father works best with fixed-width fonts like Monaco, Courier, Systat, or SPSSfont. If a variable-width font (Times, for example) has been selected then Poem for my Father will be presented in Monaco. Copyright 1993 Ellie Nichol The Publisher Red Deer College Press 56 Avenue & 32 Street Box 5005 Red Deer Alberta Canada T4N 5H5 Credits Translation from Apple II BASIC to HyperTalk by J.B. Hohm. Design by J.B. Hohm. Author photo by Andy Philips. Aknowledgements The Translator and Publisher gratefully acknowledge the generous assistance of Fred Wah. The Publisher gratefully acknowledges the financial assistance of the Alberta Foundation for the Arts, the Canada Council, the Federal Department of Communications, and Red Deer College. Translators Note bp Nichol did things with an Apple II that cannot be done with a Macintosh. In particular, the Apple II scrolling effect (used frequently in the original work) is not easy to translate. HyperTalk does support scrolling text fields but, like translating a verb tense from a foreign language with no equivalent English verb tense, the move from Apple II to HyperTalk scrolling was difficult and the result was awkward. I tried to achieve the BASIC effects using different HyperTalk tactics; however, if you were I and I was you, would you expect me to trust your translation? Probably (dare I presume?) not. J.B. Hohm Click here to change the poem display font Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx second on openCard global speed, review_one, cycleForever, poemFont, otherOn, startDog global buttonFlash set cursor to hand put false into review_one put false into cycleForever if speed >= 60 then put 60 into speed set name of card button id 12 to "slow" else if speed > 25 then put 30 into speed set name of card button id 12 to "medium" else put 15 into speed set name of card button id 12 to "fast" end if set the highlight of card button id 12 to true if buttonFlash then put the ticks into startDog end if end openCard on closeCard global buttonFlash if buttonFlash then put false into buttonFlash set the highlight of card button id 1 to false end if put the number of card fields into N repeat with i = 1 to N set lockText of card field i to true end repeat end closeCard on idle global startDog, buttonFlash if buttonFlash and (the ticks - startDog >= 60) then get the highlight of card button id 1 if it is true then -- set the highlight of card button id 18 to true set the highlight of card button id 1 to false else -- set the highlight of card button id 18 to false set the highlight of card button id 1 to true end if put the ticks into startDog end if end idle on setPoemFont fontName global poemFont set the name of card button id 42 of card second to fontName set the textFont of card button id 42 of card second to fontName set the textFont of card field sampleFont of card second to fontName put fontName into poemFont end setPoemFont  BMAP "  V V GU 8 l!1 8  F0f$ f$ N 9 ) ) VJ  uqa fPN  " 8  GJ   W0 W•*P 8 G@ G  WB.P   W6i W ʄ W  )@ 7 W (J  5505)P(ᣅ5)P( 5p D#D%Bᣅ5@  6`B "` =l`p `l͛c3"! "8S0 0Y @6R B  x<16sIP$ ((&s)P Y6 05` ,`L 3LH 9 50 then put 2 into pause else if speed > 25 then put 1 into pause else put 0 into pause end if put "" into card field "O logo" show card field "O logo" put the ticks into starTime repeat while (the ticks - starTime) < 150 put "" into card field "O logo" wait 5 ticks put " O " into line 2 of card field "O logo" wait pause ticks put "O " into line 1 of card field "O logo" wait pause ticks put "OO " into line 1 of card field "O logo" wait pause ticks put "OOO" into line 1 of card field "O logo" wait pause ticks put " OO" into line 2 of card field "O logo" wait pause ticks put " O" into line 3 of card field "O logo" wait pause ticks put " OO" into line 3 of card field "O logo" wait pause ticks put "OOO" into line 3 of card field "O logo" wait pause ticks put "OOO" into line 2 of card field "O logo" wait pause ticks end repeat hide card field "O logo" wait 30 ticks end openCard  CARD \ * r   N  (  k   ISLAND &  E    poem % WAVE WAVE wave ROCK wave WAVE WAVE    ------ ISLAND ------  7     Type "." to stop island on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field "poem" to poemFont if poemFontBoldOn is true then set the textStyle of card field "poem" to bold else set the textStyle of card field "poem" to plain end if set cursor to cursorType if speed > 50 then put 4 into pause else if speed > 25 then put 2 into pause else put 0 into pause end if show card field "ISLAND" wait 3 seconds hide card field "ISLAND" wait 1 second show card field "poem" put the ticks into startDog repeat while (the ticks - startDog) < 420 put "WAVE wave WAVE ROCK WAVE wave WAVE" into card field "poem" wait pause ticks put " wave WAVE WAVE ROCK WAVE WAVE wave " into card field "poem" wait pause ticks put "WAVE wave WAVE ROCK WAVE wave WAVE" into card field "poem" wait pause ticks put " WAVE WAVE wave ROCK wave WAVE WAVE " into card field "poem" wait pause ticks end repeat hide card field "poem" wait 2 seconds end openCard on closeCard hide card field "poem" end closeCard CARD  * r  V  0  ` :  SELF REFLEXIVE &  uV poem @ N ^b   DREAM YOU LOST TOSS ALL NIGHT @ P `b   DREAM YOU LOST TOSS ALL NIGHT @ M Ra   DREAM YOU LOST TOSS ALL NIGHT @ O Pe   DREAM YOU LOST TOSS ALL NIGHT @ N N_   DREAM YOU LOST TOSS ALL NIGHT @ J f[   DREAM YOU LOST TOSS ALL NIGHT @ L V[   DREAM YOU LOST TOSS ALL NIGHT @ J =X   DREAM YOU LOST TOSS ALL NIGHT 5 --------------- SELF-REFLEXIVE NO. 1 ---------------  7     Type "." to stop DREAM YOU LOST TOSS ALL NIGHT DREAM YOU LOST TOSS ALL NIGHT DREAM YOU LOST TOSS ALL NIGHT self-reflexive no. 1 on openCard global speed, cursorType, poemFont, poemFontBoldOn repeat with i = 1 to 8 set the textFont of card button i to poemFont if poemFontBoldOn is true then set the textStyle of card button i to bold else set the textStyle of card button i to plain end if end repeat set cursor to cursorType show card field "SELF REFLEXIVE" wait 3 seconds hide card field "SELF REFLEXIVE" wait 1 second if speed > 60 then put 4 into pause else if speed >20 then put 2 into pause else put 0 into pause end if put 350 into y1 put 350 into y2 put 350 into y3 put 350 into y4 put 350 into y5 put 242 into x1 put 242 into x2 put 242 into x3 put 242 into x4 put 242 into x5 repeat with i = 1 to 8 show card button i end repeat put the ticks into startTicks repeat while y5 > 10 and the ticks - StartTicks < 1200 set the loc of card button 1 to x1,y1 subtract 4 from y1 add wobble(y1) to x1 if y1 < 250 then set the loc of card button 2 to x2,y2 subtract 4 from y2 add wobble(y2) to x2 end if if y1 < 150 then set the loc of card button 3 to x3,y3 subtract 4 from y3 add wobble(y3) to x3 end if if y1 < 50 then set the loc of card button 4 to x4,y4 subtract 4 from y4 add wobble(y4) to x4 end if if y1 < -50 then set the loc of card button 5 to x5,y5 subtract 4 from y5 add wobble(y5) to x5 end if wait pause ticks end repeat wait 1 second end openCard function wobble y if y < 70 then return 4 if y < 140 then return -3 if y < 210 then return 2 if y < 280 then return -1 return 0 end wobble on closeCard repeat with i = 1 to 8 hide card button i end repeat set the loc of card button 1 to 241,344 set the loc of card button 2 to 243,345 set the loc of card button 3 to 244,343 set the loc of card button 4 to 240,346 set the loc of card button 5 to 242,342 end closeCard CARD * r    | $  g u  sun &     _____ (    (field) $     HOE (  i   LETTER &  g    poem  ------ LETTER ------ ! POEM SAT DOWN TO WRITE YOU THIS  7     Type "." to stop letter on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field poem to poemFont if poemFontBoldOn is true then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType put 150 into pause if speed >= 25 then add 30 to pause if speed >= 50 then add 30 to pause -- show card field letter wait 2 seconds hide card field letter wait 1 second -- put "SAT DOWN TO WRITE YOU THIS POEM " into card field poem show card field poem wait pause ticks -- put the length of card field poem - 5 into xTimes repeat xTimes times put char 1 of card field poem into firstChar put empty into char 1 of card field poem put firstChar after card field poem if firstChar = " " then wait pause ticks end if end repeat -- OR YOU CAN GO... -- -- put "AT DOWN TO WRITE YOU THIS POEM S" into card field "poem" -- put "T DOWN TO WRITE YOU THIS POEM SA" into card field "poem" -- put " DOWN TO WRITE YOU THIS POEM SAT" into card field "poem" -- wait tickPause ticks -- put "DOWN TO WRITE YOU THIS POEM SAT " into card field "poem" -- wait pause ticks -- -- -- put "OWN TO WRITE YOU THIS POEM SAT D" into card field "poem" -- wait tickPause ticks -- -- ETC. wait 2 seconds end openCard on closeCard hide card field poem end closeCard  FREE Free Object * r  V  v 0  ` ;  SELF REFLEXIVE &   ZR   poem 5 --------------- SELF-REFLEXIVE NO. 2 ---------------  7     Type "." to stop self-reflexive no. 2 on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field poem to poemFont if poemFontBoldOn is true then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType show card field "SELF REFLEXIVE" wait 3 seconds hide card field "SELF REFLEXIVE" wait 1 second put "THE BOTTOM LINE IS WHERE CHANGE IS" into string put empty into card field poem repeat with y = 1 to 19 put string into line y of card field poem end repeat show card field "poem" put the ticks into startDog repeat while (the ticks - startDog) < 600 -- select line 20 of card field poem -- type "THE BOTTOM LINE IS WHERE CHANGE IS" -- set cursor to cursorType put empty into line 20 of card field poem -- repeat with i = 1 to the length of string -- put char i of string after line 20 of card field poem -- end repeat repeat with i = 1 to 7 put word i of string & space after line 20 of card field poem end repeat if speed >= 60 then wait 15 ticks if speed >= 20 then wait 15 tick wait 15 ticks end repeat put empty into card field poem wait 2 seconds end openCard on closeCard hide card field poem end closeCard f card button id 3 to "rizon" strokeHoe -- --rizon aroused -- re  FREE Free Object  FREE Free Object FREE Free Object FREE Free Object FREE Free Object FREE Free Object `FREE Free Object @FREE Free Object  FREE Free Object  FREE Free Object FREE Free Object rd button "SUN" to "sun" hide ca FREE Free Object FREE Free Object `FREE Free Object @FREE Free Object FREE Free Object CARD  ) * r   ,  V   white cover 2  f C  CONSTRUCTION ONE &  N   poem 5 ----------------- CONSTRUCTION ONE ----------------- ~ BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABEL BABELconstruction one on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field poem to poemFont if poemFontBoldOn is true then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType show card button "white cover" show card field "CONSTRUCTION ONE" wait 3 seconds hide card field "CONSTRUCTION ONE" wait 1 second put "" into card field poem show card field "poem" put 21 into waitSize repeat with i = 21 down to 1 put "TOWER" into line i of card field poem wait waitSize ticks subtract 1 from waitSize end repeat if speed >= 25 then repeat with i = 21 down to 1 put "" into line i of card field poem put "TOWER" into line i of card field poem end repeat end if flash 3 hide card button "white cover" flash 3 play "boing" tempo 200 c3q b2q c3q ab2w repeat with i = 21 down to 1 --if i mod 2 = 1 then put "BABEL" into line i of card field poem --else -- put "" into line i of card field poem --end if end repeat wait 4 seconds end openCard on closeCard hide card field poem show card button "white cover" end closeCard MBMAP )  V V V M<#   R " ` R  B `4e@  # H     @3@ bt@@     @ @@BD @  " BS@  €B " @ `#@ R 3@  "@b@PPs  @05 2@P P  F b "D B %` Hb   3   @   @    R 3 $ @@  P3 6   !b  @ "     q    C*P | " @"CHc   h @  @ "@ B !    EP @  p`"   2 # C@    A`50 pr@    0 @@3b  )s" T @r D " "  2!2 r@ ! @@P(D  A @ 0P      C@ "br4D@   P0 r  @ #2(  @  @  "@BF @R C"pd0 @ 0 D " $B@ S @ TB A @ 2@3 0  @"RB   P@ ""c  B B   q$ !! @   @5H&@@ @ % ( B`Cd   @b H @2 #@$    p   E H  " PB !T@ HR H C a  b r b P   A       F P  RD     $ "  " 1 4@"  Db @$@2H "  AR$  P@    @ DD `  @  @c 8@ @ r  dH € @ P   " @   c @$!`  @t  #  @D  R  A ,B$  @ 2@ "4 @2  %@4 0 P  D @ D@2@"!2 Xd @     Yb  "( P@c  tP   C  ` R P "D HA@  0c  @B @2@ @ 05` @    B R( $@  " B@0`# "    U  t$  `    #"R@  @d@  $  b  " BsP@B !3H  A@H3 b  BD C @R0 3P  B"2  @ @  C@ @R $Hb@ AB # @01@r " @v " @ @   @S@` GBP 0@ @HS  3@! T  2 @H@ 9 2!E%    @@B@ P Q@!@r@  @2B &@b E  D  "0 @@  0 @ ( !EP B r @ 4` E @v" @ H  L@  s „   @    B@ "@C   @ 3@A2 @  DBK  0 A#R@  P S" B  D1   2" @% @ D "R  @ 0b @" $( @ c!A@"b@ DD  A  $    @ $0   b B 2( #Q#pAS a b"  #  @ d@A  D @ "# U  3 2#3@b @ "@  @ @"@  C s     s @ "J 4"  @BB b 2 @  @ !2d!r P R 151   2 H D @@ t R ! R@ B@`  @  2 4 "Pb A Q@DS "# @@  f   ( @@ B   " "4     "  A2 @ @  @ @ !# P  S "2@ b @V @0@ @@D s $ 2  18b  T   @H RH  $   p% @2 r8 @T(cr 0 W" B 2 "  & 2 b 2@ $ b A @@R 0#@ @r@  #!A3 B "`@ " D  9 B@R B EP@S b2 A !2 1  "  "2( #P€    H BB  e 0@ H  @t @ )@@ C@ !  @# @0@ "0"Cc$ bH @ @@2 2$b@ 5@  s A  B  TD@ @  P" "@BR  @"E  $@  2 @ r@@0  $@@   A"T " (S  R  T@@@ r 2@R@  P Pr@  P# " %0 @@ 0 C @ R D  D  c @ RB  "0 "$0  BS D  !R     S@  $  A ) C 0%@ ($ @S R  #r" # R! A 3@"2@#B@  b$@ @ @  " &@ $ @   ( #0r$T @v@ U@   @   &@! #@rP @P…   (  @3   H`H  @@B    2 2 2     ` @83D 3C @ "# D @ T " @@  s  @@ B  $ H")$"(#@S J    @#@@r 0& @@ @$B 2D2 @    @ @@ "@0"@c  "@! a  $Q'   @ D@ @p#@2DH  @# 2"@ A !w @ r  $@@ @ €  P@ # #,R@ BS   @   @ $ p #   2@ Ѓ @2@3 S@ 3@  D R B$ DAD 0   S  S@4 S $"!T @d "#c` @2   P@"S` @"R@  @ R Da`" `D B `J #G  @ 2B 5 @C@ c pR# @   !D @ @" `  P# 2@4 2c    @@ 03 @b@ @ @@R  B   #A S! @0`$1s H 0 % @ CB @@   s  $B@ @ 2 $R   @ D  @ & # "`C@ e A DH!4 " T   2 2BR  1@D!#B@A SAS    @b@RB4 " R @  @B!B E@b @@   4  @  R(R B 0 Q$  "0R !"" R @2 " AD "3 ` @ $    @B @#@5   0 r  H$ 0$"2"  2 @   ( D `5     D 3 P  @ @"   2 $2 4""  H  @ C  RD @B'U( @ ` ! P   @C @ #@S s  B  Bb  CA2@@R ,b@ @ D   @  @ 1  @ e@@ 21 @rA  c $   " b $ !@R  "2 C   02 @ S cI 2$ 3a"r @ 42D! S u  0r  @  "3 2$   0 s  bPAe "  b@ @s SB  @2"@ P" @ B  B a"  2 "  3 3 "0d@ @ R @  q   3` r @r b D$ @R pR@ 4 !   "b  # h!2 2 3@  A @ !6 @  0   # @  @ @0%`5 K (  @ !0 8C #@@D ` B! b@  " 2  T$ @ A" $ @"%  R  @ 0`2   D%uB !SPf 2 0r B  # @$ B 3 CPA RD C@ @ b) s  @ b @@!   "2B@"P  # R@"   BL B"D$%t  "  % @b !  H$   @ 2A@  # A B3"@# @ R`@$@A   3DdB  @P#  " B SP 0 S  4 B 2 @"  @ !"PB#B"5   2 bH R  " s  S$I    L  q@  IR "R @ ( @2 "2 $s QA  @   @ )@3 @ 0 s$  2 "C!S  E0 @  !B    C` @$"c "L@  B0  " ` H2@  c $@sE  b@%" 2 "X  @ $   AR@ @c $ 5 (@ @  2   s(h@$ G 2,  @c " R!T  ( @ rD@"@ @@D$"!#Xr `    DR0 #"@ S @s ` 0Z#R $ "    "@A H@ 8$ @ a"   Id B   @R @bD  B  B  0@#@ #CH    b$ @ " "  q@   @D @R@r" !5@ ,Q %Jc  p H b A r p h   A b (C0B# " `dBB" , @ R h"@R@ `@(`S! R 2 a D@ A C (B@  @  u@ @ I@A3  D rBB32D   i @cP H P c  @@" @D  @  €  0  @ .@2 2R@$@@ H       (J" @ " b   S  B C0 " "(2H A 0Q Ac  @ 0B D #@  #@  N  @     @ `@  B2 @!  p @ 2 AB@""BH rH@ (r d @ @ 4 # BD @ " 4 0 @   @ "Q@! P@"` E  R"  @!D"€  B @ r  P  (  @  D  @   b Q"@R B C J e Q  H 0( 2 $  0 Pb DJ   @ T# # "@$ A  D B  $R  S@ " H ( Q  @2@P @ ( d 2@  B!  ` @ 21 2 0  b@ A  @   BP R    @      @ 0 @ R @ @  0p dC@r  `  8 b $  D0 @P  C @@2h  @ @b D b 0 A"@0  A   r   (A: @ t) @ $t Pa6""     ") J@ 0B "@ P` @`# $B D `  @0@$ b" @B# @"rPDB& A #b@8@ D@   " @    P@  BP %( a  @ @ @Ebp   @ @Q @BDA 2 @ @( #B$H &@@!   0S @`$ @4 b  at "  `B‰ @ P$    # 0 2 @ @A" A  tE@Bt@  „$  ' )  "x $@ "B 0#  @@ @@  @     A4(     R@  @A@ @tЀ @@ P!@""Bb ! "  $  `R D R"` "    3I  @  !p@@P SH À Y @ @H  #A2) @  @ P a   P@`$P @ @B  " @  @ @ Hs @@h b 82""  @ "T ` HP@$  D@  P $ "" B@! @  bAr$  @ 2 $@0t `@ .#  B# VPR   @ B@  b$`@bD  F &  #@ H  50"`3 C !  d% D@B bA !  B@ @ B   ( @  B B    @a& #@"   "   @R @ C '  B @2B !"@ @  b( r @A r@ @ A$ !"0  !@ q8 #%$ b , !$ 3Q 2 @@Ad(  DP Tb  %@ $@   P b  CB !  BH A "S CTB"0   T'    RB      D4 R@R H 2 Dc@   S @@@I  4@@    $ @h2b P   rV A  C"QR !  $( b  €  A t` @H 3 Q @  @B0` @U@(@B b   i @ `2 r@ 1Br  $  B@  tP$@ Q (%  @#RP  R %@Ç @ !A@ ( &(  @  2  5 `2@RC#` " B   @ ! J C0  À    H 8 B$ !%s  E    $  , D(  2$$ b 2AR @ " @P@@r @    D p(  @  H  `d  H   H H 0L !"Jdr@@@ @  a#" A P2 $@    H0@4 ^  R #"#X @   ` ) A Q  @  2 , AB @  T@  (  Q(     ( A @( P @ @@   1D R $ "@ @ " À! ) B @@ @ d2$  D T  &@ @@s )  2 B s 0 0d 5DQ0 C  0@ LD@ @ R@2@r   t  U    ! L" ` 01!" 4 @b &b# @  "L1    H 0@À   @H A H "D  B @0 D @  . @    AB@(@  @  @  @A  @" "    B  "@(B D @ p2@ @ b805 @`  0@ "C B@ 4  # &#H" r@ HT  ` HC@€A @1A  "4- H b  B , 3@ @  S @  A @@" @2` (  ADr@P  # )  8 @3 @B@1  (BP   2 h  @P E  @$"0@B  $  LC "4b!  2 s H @s8 @B #  4 v@ "DR " "D" b3 b&  # 3 ( R@  % D @ A T 9 ` a F   H (   @     @@@ $ @ bQ  QB !@r0(P    2   "@    @  0  P A (B !  $"h"B C,Hb@EP    !!p 2c $ P ! `  # "  @- @  @ $ U B3@@B  @ $ 2@@P  U   D H2  B  @( q   R  H @ @FH BHH 2B H@ @   2  A F&  @ H  @@    P8 R4:3 @Bb @( b @ ! @ 3@P,B   !EpD @P`"@   B " " #` (@B , @  $@` 0 @h  D@ @@  ! @A ( q!@  F"B2 &   `' 0@H  HR"!€ @@D D@"B A  B*2B0  C E  BpF  @  %@ 0  @ 1B H @`$R# BB@@@ 2  b (P$ @ " ' P@  "@ H€ : "B ""SA H2 @@@BBH ` pS@"  R 0 2c@@@ @@  -$    $d@ A  #5 " A@ T   @$@ # B "  & :  QD0@ B I  h A" H ( r ` @@ @Lb@    %" @ @   H  P4(R" L3!   a N A 0B@# &    @!    L f  @  H@   @  B@ @( $  0( @   YB @a@  H Pb@a D # @ @1 J   F"  , @   Y@ #$ @ A@  <  4 @  " Q@ "  ,2 r0 B" B @P  2@ @P2 L @  !@ 8      @ @   B   @  (    !   @  p A 3 $  @R#@Ā@4  H $@@@@$ @ @h  J TH ` DA (   | 0H D @ B!3 E  @ `@"" A % @   4 ` (3 B$P2@ H @ 2  `  @  H  H HD@O @P  @PA 2JD  ` P  @ @@ @2 @ `  ( " ! @ 0   q @# A ` $$ R A    j DE * R" s!@ 0"  @!) 1  YB 0  6 @D D    @ @@    2 @B`bB 3 A  X  0A! " C  ) N s$Y  C *  R   a"B"D4 `0 -A  HB Hh  @$  R @    ) @  3 H   K `@    0 B A " PHR `   0    "(    %,  (@(R a0  D` !  D B  @ /      a  @ " Z ` H @ "L   @  @P@ (     " `  B$0 D F S(aD "IR @ @ R0qB€ H  A H !@     ( ! b@ D@ ( 4 C   $ "!2@ B" h d   H2@ @H    Q (2 @     @@   P  !   A!1  ȀB   B !   $ @C@  `B ı0  I X!@,AA@D  C $@ b @E    (@ @ @  ` &     B  q & $   @$JR@ % %P    0 $  P P  B@ B P! " A(9r0X @ i @A  B A!H*  @     L  H@ P! `*( $ @@ X @ (t!@$ b ,h @@  @R   (I@ @   A  "H Q D 2 P  0 S Qj  $  $$@6"@b@ 02L@" A R  B#(` dDX @  @   s0@ A @ 3( 2 r )A 6H @  ` 8 @@ N  P "P @ B  H@&c2@# @`0@  P $D  PH       QH    ,"   B!@A SP@ PH !@@F  @@T( (  D@ @0@  @p  IЄ@X D@@0@sB x`  H@ $ 3 B @    d  H B  @  @   @  B@ @À@ P  $ 0 \ c IP@K C @@ " @P  ! "9 E  X `  R @3QQ H0€ g   B P bA( 0 @ WT    2G#@@ @@* 8  ,b`C` @< $ (  @  D" 1 $   QD @  %  $ R2   A @A@@ @!    !k L `  a E " b" @  @ " D@r ( H h Dq4  @! 2Qb ( :b@  0 A   @D" B@@AX@  DB@Px"#  "@0@    @   D    Pd  0@ 1 0 B   )@    @ H0" 2 "2@@ @ BЀi   c "AH T @BbX @& @t  @@Or @  @@(RH "1 `D  D!@ !  C "  D     B  P  & @(S @P3@R @iD$ @ @@C!"$ q L "bP$A      @  F BS JH ( "$ @ ` @DPB   @ R , @@Ā @ @ d # ) *4 3 € PB A Pq B0 ð(  @ @ $ P`   @s  y`"@    @   Y `, ) \@  C02  IT (@ 8H@ @3 h2   0 C" R@H A"r ! @ "`""@ D D B8cBA@ @@ #2b@TȀ@Rc I Ä@  B$   P s     @"BQ  BJ P a"  k2 "G@A" 2Z C@ 3D! $@!    ! , P E a 0 @ @ " @"   @ r@  "& 3@! p2  C @3   @@@DB  "@ @  P  ,@ @  Xb  H@ "L  @ TEA0R @2  D  @"& @@   " @ B d@     A@"1 B @@EH$   $ @B  @P ,* B( "  ! `  @BB @B@4B  2 1@ LRR B @ P q(@B  *     # 0 HBA@  X   @  B N  R @ B CB  $@ S#4I  @ @ !PU2@@(J  ( @ @ @ D (@B! "H    @ B Њ@c#P"@ @0    @ !J    `  0 $C"@ @  (BH`S@B 0 2  @@@ P b  @` CH@@A@"  HՐ@ D  H DH0 !A BA4 " C @a@J "U4 @@B"`fC s HR   @@   " QH (@  @@ d @$  H0d  `r!@ D  d@ rM!@  B@B2@@"  q $@ 0@   \@ @    A @  A !HB 2P"  T I  @@@ ` H! @ @    @P   @@  0    B  A@0  @ 0 @       "  B ``  0  (3 $ @`042 P ! @@ \ " @$C H@" ! @A Ȁ@ !3,4J 4 T@ r@  2JÀ 0"B0` $( $   Bb "@" 8 @B@ 2 "   d E   @  @  HH Ŝ@  e @ @   @  &  Q  @  B  ,P ` (   P $# P 0B  $@   @ A  A @sI  r " ( 0(] 4 @* 3A2 2  p$D  !   @B   $A(@  @ @ 0 `  0Q" 7 3$@  d`S b `  0 @  BB0 2 `r@H  "@#4O $ @E X D  @CARD ! * r   0  f C  ANY OF YOUR LIP ,  I  dedication &  x C   poem 0 --------------- ANY OF YOUR LIP --------------- ' a silent sound poem for sean o'huigin  7     Type "." to stop any of your lip on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field poem to poemFont if poemFontBoldOn then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType show card field "ANY OF YOUR LIP" wait 1 second show card field "dedication" wait 3 seconds hide card field "ANY OF YOUR LIP" hide card field "dedication" wait 1 second put empty into card field poem if speed > 50 then put 25 into waitSize else if speed >= 25 then put 24 into waitSize else put 22 into waitSize end if show card field poem -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "mouth" into card field poem wait waitSize ticks end repeat -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "myth" into card field poem wait waitSize ticks end repeat -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "math" into card field poem wait waitSize ticks end repeat -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "mate" into card field poem wait waitSize ticks end repeat -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "maze" into card field poem wait waitSize ticks end repeat -- repeat 4 times put "MOUTH" into card field poem wait waitSize ticks put "amaze" into card field poem wait waitSize ticks end repeat -- repeat 3 times put "MOUTH" into card field poem wait waitSize ticks put "ing" into card field poem wait waitSize ticks put "amaze" into card field poem wait waitSize ticks put "ing" into card field poem wait waitSize ticks end repeat -- put "" into card field poem wait waitSize ticks repeat 8 times put "ing" into card field poem wait waitSize ticks put "" into card field poem wait waitSize - 5 ticks end repeat put "mouth" into card field poem wait waitSize + 25 ticks put "" into card field poem wait 2 seconds end openCard on closeCard hide card field poem end closeCard %CARD ! " *  -  |  @   right arrow on mouseUp show background field "cycleStop" of card "island" put false into skipToTitles go card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card dedication end mouseUp `  6 F   slow on mouseUp global speed if the short name of me is "fast" then set the name of me to "slow" put 60 into speed else if the short name of me is "slow" then set the name of me to "medium" put 30 into speed else if the short name of me is "medium" then set the name of me to "fast" put 15 into speed end if end mouseUp (   UF@   message   % 5܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show menubar else set the name of me to "hidden" set the highlight of me to false hide menubar end if end mouseUp R  G@   right arrow on mouseUp go card titles end mouseUp    $܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show titlebar else set the name of me to "hidden" set the highlight of me to false hide titlebar end if end mouseUp  & i y   off on mouseUp global poemFontBoldOn if the short name of me is "on" then set the name of me to "off" set the highlight of me to false put false into poemFontBoldOn set the textStyle of card button id 42 of card second to plain set the textStyle of card field sampleFont to plain else set the name of me to "on" set the highlight of me to true put true into poemFontBoldOn set the textStyle of card button id 42 of card second to bold set the textStyle of card field sampleFont to bold end if end mouseUp ' J     sampleFont -- on returnInField -- click at the loc of card button id 42 -- end returnInField on mouseUp click at the loc of card button id 42 end mouseUp  ) G W܀   none on mouseUp global cursorType if the short name of me is "none" then set the highlight of me to true set the name of me to "watch" else if the short name of me is "watch" then set the highlight of me to true set the name of me to "busy" else set the name of me to "none" set the highlight of me to false end if put the short name of me into cursorType end mouseUp  * z    Geneva on mouseUp set userlevel to 2 put the number of menuItems of menu font into N if N < 1 then setPoemFont("Monaco") end if repeat with i = 1 to N if menuItem i of menu font = the short name of me then exit repeat end if end repeat if i = N then if menuItem i of menu font = the short name of me then setPoemFont(menuItem 1 of menu font) else setPoemFont("Monaco") end if else setPoemFont(menuItem i + 1 of menu font) end if end mouseUp V + K~  Chicago on mouseUp setPoemFont("Chicago") end mouseUp T ,    Geneva on mouseUp setPoemFont("Geneva") end mouseUp T -    Monaco on mouseUp setPoemFont("Monaco") end mouseUp 뀶 #  * (  $  ( + ) : ( $ (1 )@ (c %e ( $ (( )7 ( ' ( ' (a $u (} $ ( ) ([ $a ( ' ( ' (  '  ( $  ( $ (  $ ! ( $ ( $ ( INTRODUCTION History bp Nichol developed First Screening on an Apple II computer in the mid 1980s. This translation into Macintosh HyperTalk was done at the Knowledge Science Institute at the University of Calgary in 199293. Operating Instructions Click the pointing hand (lower right corner) to view First Screening. To halt animation displays type . (Apple Control Key & period). After being halted, the stack will go to the titles card after pausing for a few seconds. This stack uses primitive real-time animation. The animation will run slower if you have other applications running on your Mac. The stack takes three or more minutes to view. You should set your screen saver program (DarkSide, After Dark, PYRO! etc.) so it wont disrupt the screening. Powerbooks If you are viewing First Screening on a Macintosh Powerbook you may experience annoying pauses in the animation. The Powerbook has a mode that slows down the processor to save power if there is no input from the user. Its possible to turn this mode off from the Portable Control Panel by option-clicking on the Minutes Until Automatic Sleep string. If your Powerbook still pauses, try setting the cursor to watch or busy (click the button on the right near the top of this card). If all else fails, keep moving the mouse or tapping the Command Key while the animation is in progress. Menubar and Titlebar If your Mac has a small screen, you may want to hide the menubar and titlebar. To do this, click on the buttons at the top right of this card. (If your Mac has a very small screen, the titlebar will not be shown regardless of the state of the titlebar button.) Speed Run time will vary from Mac to Mac. This version of First Screening attempts to run faster on slow machines and slower on fast machines. You can make your own adjustments using the Speed Control Button on the right of this card. Running other applications on your Mac at the same time as HyperCard will make the animation run slower. Using darker fonts (and bold) will also slow down the animation. This stack will also run faster off a hard drive than a floppy drive. Cursor On most Macs the cursor should be set to none. If you are viewing this on a Powerbook and finding that the animation pauses, try setting the cursor to watch or busy. Fonts and Bolding You can select poem fonts and bolding on the right side of this card. At the very minimum, your Macintosh should support Geneva, Chicago, and Monaco fonts. Poem for my Father works best with fixed-width fonts like Monaco, Courier, Systat, or SPSSfont. If a variable-width font (Times, for example) has been selected then Poem for my Father will be presented in Monaco. Copyright 1993 Ellie Nichol The Publisher Red Deer College Press 56 Avenue & 32 Street Box 5005 Red Deer Alberta Canada T4N 5H5 Credits Translation from Apple II BASIC to HyperTalk by J.B. Hohm. Design by J.B. Hohm. Author photo by Andy Philips. Aknowledgements The Translator and Publisher gratefully acknowledge the generous assistance of Fred Wah. The Publisher gratefully acknowledges the financial assistance of the Alberta Foundation for the Arts, the Canada Council, the Federal Department of Communications, and Red Deer College. Translators Note bp Nichol did things with an Apple II that cannot be done with a Macintosh. In particular, the Apple II scrolling effect (used frequently in the original work) is not easy to translate. HyperTalk does support scrolling text fields but, like translating a verb tense from a foreign language with no equivalent English verb tense, the move from Apple II to HyperTalk scrolling was difficult and the result was awkward. I tried to achieve the BASIC effects using different HyperTalk tactics; however, if you were I and I was you, would you expect me to trust your translation? Probably (dare I presume?) not. J.B. Hohm Click here to change the poem display font Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx second on openCard global speed, review_one, cycleForever, poemFont, otherOn, startDog global buttonFlash set cursor to hand put false into review_one put false into cycleForever if speed >= 60 then put 60 into speed set name of card button id 12 to "slow" else if speed > 25 then put 30 into speed set name of card button id 12 to "medium" else put 15 into speed set name of card button id 12 to "fast" end if set the highlight of card button id 12 to true if buttonFlash then put the ticks into startDog end if end openCard on closeCard global buttonFlash if buttonFlash then put false into buttonFlash set the highlight of card button id 1 to false end if put the number of card fields into N repeat with i = 1 to N set lockText of card field i to true end repeat end closeCard on idle global startDog, buttonFlash if buttonFlash and (the ticks - startDog >= 60) then get the highlight of card button id 1 if it is true then -- set the highlight of card button id 18 to true set the highlight of card button id 1 to false else -- set the highlight of card button id 18 to false set the highlight of card button id 1 to true end if put the ticks into startDog end if end idle on setPoemFont fontName global poemFont set the name of card button id 42 of card second to fontName set the textFont of card button id 42 of card second to fontName set the textFont of card field sampleFont of card second to fontName put fontName into poemFont end setPoemFont  ` ` ` ` `  ` ` *      \  $ $ 3 o  island on mouseUp go card island go card titltl end mouseUp v   4 $ D   self-r-rlexive 1 on mouseUp go card "self-reflexive no. 1" go card titles end mouseUp \  E $ T e  letter on mouseUp go card letter go card titles e  CARD ^ 'D *      \  $ $ 3 o  island on mouseUp go card islan on mouseUp go card islan 0  CARD ^ CFREE Free Object ,lineToY(20) wait pause ticks -- 2290 VTAB 20: HTAB 7: PRINT "E" set the loc of card button 7 to -10,-10 wait pause ticks -- 2295 VTAB 21: HTAB 7: PRINT " " set the loc of card button 9 to colToX(7),lineToY(19) wait pause ticks -- 2300 VTAB 19: HTAB 7: PRINT "E" -- 2305 VTAB 20: HTAB 6: PRINT " " set the loc of card button 8 to colToX(8),lineToY(17) wait pause ticks -- 2310 VTAB 17: HTAB 8: PRINT "E" -- 2315 VTAB 18: HTAB 7: PRINT " " set the loc of card button 10 to colToX(8),lineToY(20) wait pause ticks -- 2320 VTAB 20: HTAB 7: PRINT " E" set the loc of card button 9 to colToX(8),lineToY(18) wait pause ticks -- 2325 VTAB 18: HTAB 8: PRINT "E" -- 2330 VTAB 19: HTAB 7: PRINT " " set the loc of card button 8 to colToX(9),lineToY(16) wait pause ticks -- 2335 VTAB 16: HTAB 9: PRINT "E" -- 2340 VTAB 17: HTAB 8: PRINT " " set the loc of card button 10 to colToX(9),lineToY(19) wait pause ticks -- 2345 VTAB 19: HTAB 9: PRINT "E" -- 2350 VTAB 20: HTAB 8: PRINT " " set the loc of card button 9 to colToX(9),lineToY(17) wait pause ticks -- 2355 VTAB 17: HTAB 9: PRINT "E" -- 2360 VTAB 18: HTAB 8: PRINT " " set the loc of card button 8 to colToX(10),lineToY(15) wait pause ticks -- 2365 VTAB 15: HTAB 10: PRINT "E" -- 2370 VTAB 16: HTAB 9: PRINT " " set the loc of card button 10 to colToX(10),lineToY(19) wait pause ticks -- 2375 VTAB 19: HTAB 9: PRINT " E" set the loc of card button 9 to colToX(10),lineToY(16) wait pause ticks -- 2380 VTAB 16: HTAB 10: PRINT "E" -- 2385 VTAB 17: HTAB 9: PRINT " " set the loc of card button 8 to colToX(11),lineToY(14) wait pause ticks -- 2390 VTAB 14: HTAB 11: PRINT "E" -- 2395 VTAB 15: HTAB 10: PRINT " " set the loc of card button 10 to colToX(11),lineToY(19) wait pause ticks -- 2400 VTAB 19: HTAB 10: PRINT " E" set the loc of card button 9 to colToX(11),lineToY(16) wait pause ticks -- 2405 VTAB 16: HTAB 10: PRINT " E" set the loc of card button 8 to colToX(12),lineToY(13) wait pause ticks -- 2410 VTAB 13: HTAB 12: PRINT "E" -- 2415 VTAB 14: HTAB 11: PRINT " " set the loc of card button 10 to colToX(12),lineToY(19) wait pause ticks -- 2420 VTAB 19: HTAB 11: PRINT " E" set the loc of card button 9 to colToX(12),lineToY(16) wait pause ticks -- 2425 VTAB 16: HTAB 11: PRINT " E" set the loc of card button 8 to colToX(13),lineToY(12) wait pause ticks -- 2430 VTAB 12: HTAB 13: PRINT "E" -- 2435 VTAB 13: HTAB 12: PRINT " " set the loc of card button 10 to colToX(13),lineToY(18) wait pause ticks -- 2440 VTAB 18: HTAB 13: PRINT "E" -- 2445 VTAB 19: HTAB 12: PRINT " " set the loc of card button 9 to colToX(13),lineToY(16) wait pause ticks -- 2450 VTAB 16: HTAB 12: PRINT " E" set the loc of card button 8 to colToX(14),lineToY(11) wait pause ticks -- 2455 VTAB 11: HTAB 14: PRINT "E" -- 2460 VTAB 12: HTAB 13: PRINT " " set the loc of card button 10 to colToX(14),lineToY(18) wait pause ticks -- 2465 VTAB 18: HTAB 13: PRINT " E" set the loc of card button 9 to colToX(14),lineToY(15) wait pause ticks -- 2470 VTAB 15: HTAB 14: PRINT "E" -- 2475 VTAB 16: HTAB 13: PRINT " " set the loc of card button 8 to colToX(15),lineToY(10) wait pause ticks -- 2480 VTAB 10: HTAB 15: PRINT "E" -- 2485 VTAB 11: HTAB 14: PRINT " " set the loc of card button 10 to colToX(15),lineToY(18) wait pause ticks -- 2490 VTAB 18: HTAB 14: PRINT " E" set the loc of card button 9 to colToX(15),lineToY(15) wait pause ticks -- 2495 VTAB 15: HTAB 14: PRINT " E" set the loc of card button 8 to colToX(16),lineToY(9) wait pause ticks -- 2500 VTAB 9: HTAB 16: PRINT "E" -- 2505 VTAB 10: HTAB 15: PRINT " " set the loc of card button 10 to colToX(16),lineToY(18) wait pause ticks -- 2510 VTAB 18: HTAB 15: PRINT " E" set the loc of card button 9 to colToX(16),lineToY(14) wait pause ticks -- 2515 VTAB 14: HTAB 16: PRINT "E" -- 2520 VTAB 15: HTAB 15: PRINT " " set the loc of card button 8 to colToX(17),lineToY(8) wait pause ticks -- 2525 VTAB 8: HTAB 17: PRINT "E" -- 2530 VTAB 9: HTAB 16: PRINT " " set the loc of card button 10 to colToX(17),lineToY(18) wait pause ticks -- 2535 VTAB 18: HTAB 16: PRINT " E" set the loc of card button 9 to colToX(17),lineToY(13) wait pause ticks -- 2540 VTAB 13: HTAB 17: PRINT "E" -- 2545 VTAB 14: HTAB 16: PRINT " " set the loc of card button 8 to colToX(17),lineToY(7) wait pause ticks -- 2550 VTAB 7: HTAB 17: PRINT "E" -- 2555 VTAB 8: HTAB 17: PRINT " " set the loc of card button 10 to colToX(18),lineToY(17) wait pause ticks -- 2560 VTAB 17: HTAB 18: PRINT "E" -- 2565 VTAB 18: HTAB 17: PRINT " " set the loc of card button 9 to colToX(18),lineToY(12) wait pause ticks -- 2570 VTAB 12: HTAB 18: PRINT "E" -- 2575 VTAB 13: HTAB 17: PRINT " " set the loc of card button 11 to colToX(12),lineToY(5) wait pause ticks -- 2580 VTAB 5: HTAB 12: PRINT "T" set the loc of card button 10 to colToX(19),lineToY(16) wait pause ticks -- 2585 VTAB 16: HTAB 19: PRINT "E" -- 2590 VTAB 17: HTAB 18: PRINT " " set the loc of card button 9 to colToX(19),lineToY(11) wait pause ticks -- 2595 VTAB 11: HTAB 19: PRINT "E" -- 2600 VTAB 12: HTAB 18: PRINT " " set the loc of card button 11 to colToX(13),lineToY(6) wait pause ticks -- 2605 VTAB 6: HTAB 13: PRINT "T" -- 2610 VTAB 5: HTAB 12: PRINT " " set the loc of card button 10 to colToX(20),lineToY(15) wait pause ticks -- 2615 VTAB 15: HTAB 20: PRINT "E" -- 2620 VTAB 16: HTAB 19: PRINT " " set the loc of card button 9 to colToX(20),lineToY(10) wait pause ticks -- 2625 VTAB 10: HTAB 20: PRINT "E" -- 2630 VTAB 11: HTAB 19: PRINT " " set the loc of card button 11 to colToX(14),lineToY(7) wait pause ticks -- 2635 VTAB 7: HTAB 14: PRINT "T" -- 2640 VTAB 6: HTAB 13: PRINT " " set the loc of card button 10 to colToX(21),lineToY(14) wait pause ticks -- 2645 VTAB 14: HTAB 21: PRINT "E" -- 2650 VTAB 15: HTAB 20: PRINT " " set the loc of card button 9 to colToX(19),lineToY(9) wait pause ticks -- 2655 VTAB 9: HTAB 19: PRINT "E" -- 2660 VTAB 10: HTAB 20: PRINT " " set the loc of card button 11 to colToX(15),lineToY(8) wait pause ticks -- 2665 VTAB 8: HTAB 15: PRINT "T" -- 2670 VTAB 7: HTAB 14: PRINT " " set the loc of card button 10 to colToX(22),lineToY(13) wait pause ticks -- 2675 VTAB 13: HTAB 22: PRINT "E" -- 2680 VTAB 14: HTAB 21: PRINT " " set the loc of card button 9 to colToX(19),lineToY(8) wait pause ticks -- 2685 VTAB 8: HTAB 19: PRINT "E" -- 2690 VTAB 9: HTAB 19: PRINT " " set the loc of card button 11 to colToX(16),lineToY(9) wait pause ticks -- 2700 VTAB 9: HTAB 16: PRINT "T" -- 2705 VTAB 8: HTAB 15: PRINT " " set the loc of card button 10 to colToX(23),lineToY(12) wait pause ticks -- 2710 VTAB 12: HTAB 23: PRINT "E" -- 2715 VTAB 13: HTAB 22: PRINT " " set the loc of card button 9 to colToX(20),lineToY(7) wait pause ticks -- 2720 VTAB 7: HTAB 20: PRINT "E" -- 2725 VTAB 8: HTAB 19: PRINT " " set the loc of card button 11 to colToX(17),lineToY(8) wait pause ticks -- 2730 VTAB 8: HTAB 17: PRINT "T" -- 2735 VTAB 9: HTAB 16: PRINT " " set the loc of card button 10 to colToX(24),lineToY(11) wait pause ticks -- 2740 VTAB 11: HTAB 24: PRINT "E" -- 2745 VTAB 12: HTAB 23: PRINT " " set the loc of card button 12 to colToX(28),lineToY(1) wait pause ticks -- 2750 VTAB 1: HTAB 28: PRINT "N" set the loc of card button 11 to colToX(18),lineToY(7) wait pause ticks -- 2755 VTAB 7: HTAB 18: PRINT "T" -- 2760 VTAB 8: HTAB 17: PRINT " " set the loc of card button 10 to colToX(25),lineToY(10) wait pause ticks -- 2765 VTAB 10: HTAB 25: PRINT "E" -- 2770 VTAB 11: HTAB 24: PRINT " " set the loc of card button 12 to colToX(27),lineToY(2) wait pause ticks -- 2775 VTAB 2: HTAB 27: PRINT "N" -- 2780 VTAB 1: HTAB 28: PRINT " " set the loc of card button 11 to colToX(19),lineToY(7) wait pause ticks -- 2785 VTAB 7: HTAB 19: PRINT "T" -- 2790 VTAB 7: HTAB 18: PRINT " " set the loc of card button 10 to colToX(24),lineToY(9) wait pause ticks -- 2795 VTAB 9: HTAB 24: PRINT "E" -- 2800 VTAB 10: HTAB 25: PRINT " " set the loc of card button 12 to colToX(26),lineToY(3) wait pause ticks set the loc of card button 13 to colToX(27),lineToY(3) wait pause ticks -- 2805 VTAB 3: HTAB 26: PRINT "NN" -- 2810 VTAB 2: HTAB 27: PRINT " " set the loc of card button 16 to colToX(36),lineToY(20) wait pause ticks -- 2815 VTAB 20: HTAB 36: PRINT "C" set the loc of card button 10 to colToX(24),lineToY(8) wait pause ticks -- 2820 VTAB 8: HTAB 24: PRINT "E" -- 2825 VTAB 9: HTAB 24: PRINT " " set the loc of card button 13 to colToX(25),lineToY(4) wait pause ticks -- 2830 VTAB 4: HTAB 25: PRINT "N" -- 2835 VTAB 3: HTAB 26: PRINT "N " set the loc of card button 16 to colToX(35),lineToY(19) wait pause ticks -- 2840 VTAB 19: HTAB 35: PRINT "C" -- 2845 VTAB 20: HTAB 36: PRINT " " set the loc of card button 10 to colToX(23),lineToY(7) wait pause ticks -- 2850 VTAB 7: HTAB 23: PRINT "E" -- 2855 VTAB 8: HTAB 24: PRINT " " set the loc of card button 13 to colToX(24),lineToY(5) wait pause ticks -- 2860 VTAB 5: HTAB 24: PRINT "N" -- 2865 VTAB 4: HTAB 25: PRINT " " set the loc of card button 12 to colToX(25),lineToY(3) wait pause ticks -- 2866 VTAB 3: HTAB 25: PRINT "N " set the loc of card button 16 to colToX(34),lineToY(18) wait pause ticks -- 2870 VTAB 18: HTAB 34: PRINT "C" -- 2875 VTAB 19: HTAB 35: PRINT " " set the loc of card button 13 to colToX(23),lineToY(6) wait pause ticks -- 2880 VTAB 6: HTAB 23: PRINT "N" -- 2885 VTAB 5: HTAB 24: PRINT " " set the loc of card button 12 to colToX(24),lineToY(3) wait pause ticks -- 2886 VTAB 3: HTAB 24: PRINT "N " set the loc of card button 16 to colToX(33),lineToY(17) wait pause ticks -- 2890 VTAB 17: HTAB 33: PRINT "C" -- 2895 VTAB 18: HTAB 34: PRINT " " set the loc of card button 13 to colToX(22),lineToY(6) wait pause ticks -- 2900 VTAB 6: HTAB 22: PRINT "N " set the loc of card button 12 to colToX(23),lineToY(3) wait pause ticks -- 2901 VTAB 3: HTAB 23: PRINT "N " set the loc of card button 16 to colToX(32),lineToY(16) wait pause ticks -- 2905 VTAB 16: HTAB 32: PRINT "C" -- 2910 VTAB 17: HTAB 33: PRINT " " set the loc of card button 13 to colToX(21),lineToY(7) wait pause ticks -- 2915 VTAB 7: HTAB 21: PRINT "N" -- 2916 VTAB 6: HTAB 22: PRINT " " set the loc of card button 12 to colToX(22),lineToY(4) wait pause ticks -- 2917 VTAB 4: HTAB 22: PRINT "N" -- 2918 VTAB 3: HTAB 23: PRINT " " set the loc of card button 16 to colToX(31),lineToY(15) wait pause ticks -- 2920 VTAB 15: HTAB 31: PRINT "C" -- 2925 VTAB 16: HTAB 32: PRINT " " set the loc of card button 12 to colToX(21),lineToY(4) wait pause ticks -- 2930 VTAB 4: HTAB 21: PRINT "N " set the loc of card button 12 to colToX(20),lineToY(4) wait pause ticks -- 2935 VTAB 4: HTAB 20: PRINT "N " set the loc of card button 16 to colToX(30),lineToY(14) wait pause ticks -- 2940 VTAB 14: HTAB 30: PRINT "C" -- 2945 VTAB 15: HTAB 31: PRINT " " set the loc of card button 12 to colToX(19),lineToY(4) wait pause ticks -- 2950 VTAB 4: HTAB 19: PRINT "N " set the loc of card button 16 to colToX(29),lineToY(13) wait pause ticks -- 2955 VTAB 13: HTAB 29: PRINT "C" -- 2960 VTAB 14: HTAB 30: PRINT " " set the loc of card button 12 to colToX(18),lineToY(4) wait pause ticks -- 2965 VTAB 4: HTAB 18: PRINT "N " set the loc of card button 16 to colToX(28),lineToY(12) wait pause ticks -- 2970 VTAB 12: HTAB 28: PRINT "C" -- 2975 VTAB 13: HTAB 29: PRINT " " set the loc of card button 12 to colToX(18),lineToY(5) wait pause ticks -- 2980 VTAB 5: HTAB 18: PRINT "N" -- 2981 VTAB 4: HTAB 18: PRINT " " set the loc of card button 16 to colToX(27),lineToY(11) wait pause ticks -- 2985 VTAB 11: HTAB 27: PRINT "C" -- 2990 VTAB 12: HTAB 28: PRINT " " set the loc of card button 12 to colToX(18),lineToY(6) wait pause ticks -- 2995 VTAB 6: HTAB 18: PRINT "N" -- 2996 VTAB 5: HTAB 18: PRINT " " set the loc of card button 16 to colToX(26),lineToY(10) wait pause ticks -- 3000 VTAB 10: HTAB 26: PRINT "C" -- 3005 VTAB 11: HTAB 27: PRINT " " set the loc of card button 12 to colToX(18),lineToY(7) wait pause ticks -- 3010 VTAB 7: HTAB 18: PRINT "N" -- 3015 VTAB 6: HTAB 18: PRINT " " set the loc of card button 16 to colToX(25),lineToY(10) wait pause ticks -- 3110 VTAB 10: HTAB 25: PRINT "C" -- 3115 VTAB 10: HTAB 26: PRINT " " set the loc of card button 16 to colToX(24),lineToY(9) wait pause ticks -- 3120 VTAB 9: HTAB 24: PRINT "C" -- 3125 VTAB 10: HTAB 25: PRINT " " set the loc of card button 16 to colToX(23),lineToY(8) wait pause ticks -- 3130 VTAB 8: HTAB 23: PRINT "C" -- 3135 VTAB 9: HTAB 24: PRINT " " set the loc of card button 16 to colToX(22),lineToY(7) wait pause ticks -- 3140 VTAB 7: HTAB 22: PRINT "C" -- 3145 VTAB 8: HTAB 23: PRINT " " wait pause + 15 ticks set the loc of card button 15 to colToX(28), lineToY(8) show card button 15 --THAT wait pause + 15 ticks set the loc of card button 14 to colToX(5), lineToY(9) show card button 14 --THE wait pause + 15 ticks put lineToY(9) into line9 put lineToY(10) into line10 put lineToY(11) into line11 put colToX(9) into swirl_centre put 0 into bNum repeat while swirl_centre < colToX(20) -- 3165 add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line10 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line11 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line11 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line10 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line9 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line9 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre + 9,line9 wait pause ticks add 9 to swirl_centre end repeat set the loc of card button 1 to colToX(20),line9 wait pause ticks set the loc of card button 2 to colToX(21),line10 wait pause ticks set the loc of card button 3 to colToX(20),line11 wait pause ticks set the loc of card button 4 to colToX(19),line10 wait pause ticks set the loc of card button 1 to colToX(20),line10 wait pause ticks set the loc of card button 3 to colToX(19),line11 wait pause ticks set the loc of card button 4 to colToX(19),line9 wait pause ticks set the loc of card button 3 to colToX(19),line10 wait pause ticks set the loc of card button 4 to colToX(20),line9 wait pause ticks set the loc of card button 3 to colToX(19),line9 wait pause ticks set the loc of card button 4 to colToX(21),line9 wait pause ticks set the loc of card button 3 to colToX(20),line9 wait pause ticks set the loc of card button 4 to colToX(22),line9 wait pause ticks set the loc of card button 3 to colToX(21),line9 wait pause ticks set the loc of card button 4 to colToX(23),line9 wait pause ticks set the loc of card button 3 to colToX(22),line9 wait pause ticks set the loc of card button 4 to colToX(23),line10 wait pause ticks set the loc of card button 3 to colToX(22),line10 wait 15 ticks set the loc of card button 18 to colToX(10), lineToY(11) show card button 18 repeat with i = 1 to 6 -- 3310 set the name of card button 18 to "B " wait pause ticks set the name of card button 18 to "BLE" wait pause ticks set the name of card button 18 to "BBLEWW" wait pause ticks set the name of card button 18 to "BLEW" wait pause ticks set the name of card button 18 to "BW" wait pause ticks set the name of card button 18 to "" wait pause ticks end repeat set the name of card button 18 to "BW" wait pause ticks set the name of card button 18 to "BLEW" wait pause ticks set the name of card button 18 to "BBLEWW" wait pause ticks set the name of card button 18 to "BLEW" wait 15 ticks set the loc of card button 17 to colToX(30), lineToY(12) show card button 17 -- "HERE" wait 3 seconds end openCard function lineToY line global charHeight return (line - 1) * charHeight + 8 end lineToY function colToX col global charWidth return (col - 1) * charWidth + 8 end colToX on closeCard set the loc of card button 1 to -10,-10 -- W set the loc of card button 2 to -10,-10 -- I set the loc of card button 3 to -10,-10 -- N set the loc of card button 4 to -10,-10 -- D set the loc of card button 5 to -10,-10 -- S set the loc of card button 7 to -10,-10 -- E set the loc of card button 8 to -10,-10 -- E set the loc of card button 9 to -10,-10 -- E set the loc of card button 10 to -10,-10 -- E set the loc of card button 11 to -10,-10 -- T set the loc of card button 12 to -10,-10 -- N set the loc of card button 13 to -10,-10 -- N set the loc of card button 16 to -10,-10 -- C hide card button 14 -- THE hide card button 15 -- THAT hide card button 17 -- HERE hide card button 18 -- BLEW hide card button 19 -- THIS T hide card button 20 -- THIS H hide card button 21 -- THIS I hide card button 22 -- THIS S hide card button 23 -- IS I hide card button 24 -- IS S hide card button 25 -- THE (the first one) set the name of card button 18 to "B " end closeCard CARD  * r    ,  a %  TIDAL POOL &    Rocks &     wave &    Rock ! ---------- TIDAL POOL ----------  ROCK ROCK ROCK ROCK  7     Type "." to stop  Wave waVE rock  wavE tidal pool on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field rock to poemFont set the textFont of card field rocks to poemFont set the textFont of card field wave to poemFont if poemFontBoldOn is true then set the textStyle of card field rock to bold set the textStyle of card field rocks to bold set the textStyle of card field wave to bold else set the textStyle of card field rock to plain set the textStyle of card field rocks to plain set the textStyle of card field wave to plain end if set cursor to cursorType if speed >= 50 then put 4 into pause else if speed >= 25 then put 2 into pause else put 0 into pause end if show card field "TIDAL POOL" wait 3 seconds hide card field "TIDAL POOL" wait 1 second put "ROCK ROCK ROCK ROCK" into card field rocks put "WAVE" into card field wave put "wave wave rock" into card field rock show card field "rock" show card field "rocks" show card field "wave" put the ticks into startDog repeat while (the ticks - startDog) < 480 put "WAVe" into word 1 of card field rock put "wavE" into word 2 of card field rock put "WAve" into card field wave wait pause ticks put "waVE" into word 1 of card field rock put "WAve" into word 2 of card field rock put "waVe" into card field wave wait pause ticks put "Wave" into word 1 of card field rock put "waVE" into word 2 of card field rock put "wavE" into card field wave wait pause ticks end repeat hide card field wave hide card field rocks hide card field rock wait 2 seconds end openCard on closeCard hide card field wave hide card field rocks hide card field rock end closeCard @CARD % * 7   ,  F ,  U k   dedication B bp Nichol dedicated these poems to Lionel Kearns & Cavan McCarthydedication on openCard show card field "dedication" wait 4 seconds end openCard on closeCard hide card field "dedication" end closeCard CARD ^ 'D *      \  $ $ 3 o  island on mouseUp go card island go card titles end mouseUp v  4 $ D   self-reflexive 1 on mouseUp go card "self-reflexive no. 1" go card titles end mouseUp \  E $ T e  letter on mouseUp go card letter go card titles end mouseUp ^  U $ d v  reverie on mouseUp go card reverie go card titles end mouseUp p  e $ t   construction 1 on mouseUp go card "construction one" go card titles end mouseUp p  u $   any of your lip on mouseUp go card "any of your lip" go card titles end mouseUp v  $   self-reflexive 2 on mouseUp go card "self-reflexive no. 2" go card titles end mouseUp v  $   poem for my father on mouseUp go card "poem for my father" go card titles end mouseUp p  $   after the storm on mouseUp go card "after the storm" go card titles end mouseUp f  $ w  tidal pool on mouseUp go card "tidal pool" go card titles end mouseUp j   $   to the dance card on mouseUp go to card id 7518 go card titles end mouseUp   2 $A   for further remarks on mouseDown global poemFont, poemFontBoldOn set the textFont of card field noah to poemFont if poemFontBoldOn is true then set the textStyle of card field noah to bold else set the textStyle of card field noah to plain end if show card field noah repeat while the mouse is down end repeat hide card field noah set highlight of me to false end mouseDown  g0 }  quit on mouseUp answer "quit HyperCard?" with "quit"or "Cancel" if it is "quit" then doMenu "Quit Hypercard" end if set highlight of me to false end mouseUp   M0 c  cycle forever on mouseUp repeat show background field "cycleStop" in card "island" go card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card "dedication" go card "dance card" end repeat end mouseUp   30 I  review from first poem on mouseUp show background field "cycleStop" of card "island" go to card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card "dedication" go card titles end mouseUp `  0 0  go to introduction on mouseUp go to card "second" end mouseUp (     credits &   u   noah  translation from Apple II BASIC to HyperTalk by jb Hohm. advice from Fred Wah. SuperCard help from Craig Jackson. published (?) by Red Deer College Press. translator's note: bp Nichol did things on an Apple II that cannot be done on a Macintosh. In particular, the Apple II scrolling effect (used frequently in the original work) simply wont translate. i tried to achieve the BASIC effects using HyperTalk tactics, however, if you were me and i was you would you expect me to trust your translation? probably (dare i presume) not. ARK BOAT AIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN RAIN BOAT ARK BOW ARC titles on openCard repeat with i = 1 to 16 set hilite of card button i to false end repeat set hilite of card button "go to introduction" to true hide background field "cycleStop" in card "island" end openCard -- on returnKey -- click at the loc of card button "restart" -- end returnKey BMAP 'D  V  3 $rx c0r qgc"t0;  2" ׀3"wD  2 ub-H<rpby #* r  b&` Վ  @r q$A` 3T$ d!% `"'Wp" {޷0cDl@P1q&0B2CD%B!83f@" "" R0 q ` 1 D0"h 8 "f" RH z"`@q @o 7R HbF΀g1fH"3 *4v@eB@H*` LB 2vUL@yB  Wz A`F  kA ` 2 JV h@qGf` ~ 8= 60 then put 2 into pause else if speed > 25 then put 1 into pause else put 0 into pause end if set cursor to cursorType wait 1 second show card field "OFF SCREEN ROMANCE" wait 2 seconds put "for ellie " into line 5 of card field "OFF SCREEN ROMANCE" wait 2 seconds hide card field "OFF SCREEN ROMANCE" put "" into line 5 of card field "OFF SCREEN ROMANCE" -- set the loc of card button fred to toXCoord(11),toYCoord(2) set the loc of card button ginger to toXCoord(11),toYCoord(3) show card button fred show card button ginger -- repeat 2 times aMove set the loc of card button fred to toXCoord(20),toYCoord(13) wait pause ticks set the loc of card button ginger to toXCoord(20),toYCoord(14) wait pause ticks bMove aMove repeat 2 times cMove dMove end repeat bMove end repeat aMove eMove fMove cMove dMove yMove cMove dMove yMove eMove set the loc of card button fred to toXCoord(29),toYCoord(23) wait pause ticks set the loc of card button ginger to toXCoord(29),toYCoord(24) wait pause ticks set the loc of card button fred to toXCoord(30),toYCoord(24) wait pause ticks -- wait 2 seconds end openCard on aMove global pause repeat with a = 1 to 9 set the loc of card button fred to toXCoord(10 + a),toYCoord(1 + a) wait pause ticks set the loc of card button ginger to toXCoord(10 + a),toYCoord(2 + a) wait pause ticks set the loc of card button fred to toXCoord(10 + a),toYCoord(3 + a) wait pause ticks set the loc of card button ginger to toXCoord(10 + a),toYCoord(4 + a) wait pause ticks end repeat end aMove on bMove global pause repeat with b = 1 to 10 set the loc of card button fred to toXCoord(20 - b),toYCoord(14 - b) wait pause ticks set the loc of card button ginger to toXCoord(20 - b),toYCoord(15 - b) wait pause ticks set the loc of card button fred to toXCoord(20 - b),toYCoord(12 - b) wait pause ticks set the loc of card button ginger to toXCoord(20 - b),toYCoord(13 - b) wait pause ticks end repeat end bMove on cMove global pause repeat with c = 1 to 10 set the loc of card button fred to toXCoord(20 - c),toYCoord(13 + c) wait pause ticks set the loc of card button ginger to toXCoord(20 + c),toYCoord(14 - c) wait pause ticks end repeat end cMove on dMove global pause repeat with d = 1 to 10 set the loc of card button fred to toXCoord(10 + d),toYCoord(23 - d) wait pause ticks set the loc of card button ginger to toXCoord(30 - d),toYCoord(4 + d) wait pause ticks end repeat end dMove on eMove global pause repeat with e = 1 to 8 set the loc of card button fred to toXCoord(20 + e),toYCoord(14 + e) wait pause ticks set the loc of card button ginger to toXCoord(20 + e),toYCoord(15 + e) wait pause ticks end repeat end eMove on fMove global pause repeat with f = 1 to 9 set the loc of card button fred to toXCoord(30 - f),toYCoord(23 - f) wait pause ticks set the loc of card button ginger to toXCoord(30 - f),toYCoord(24 - f) wait pause ticks end repeat end fMove on yMove global pause repeat with y = 1 to 6 set the loc of card button fred to toXCoord(20),toYCoord(14) wait pause ticks set the loc of card button ginger to toXCoord(20),toYCoord(15) wait pause ticks set the loc of card button fred to toXCoord(20),toYCoord(14) wait pause ticks set the loc of card button ginger to toXCoord(20),toYCoord(14) wait pause ticks set the loc of card button fred to toXCoord(20),toYCoord(15) wait pause ticks set the loc of card button ginger to toXCoord(20),toYCoord(15) wait pause ticks end repeat end yMove function toYCoord line return (line - 1) * 15 + 8 end toYCoord function toXCoord col return (col - 1) * 9 + 8 end toXCoord on closeCard hide card button fred hide card button ginger end closeCard STBL  ,                P   0 $       P  #  Q  $    %  '   (  )   *  A  +  ? `FREE Free Object o Geneva Courier Times Helvetica Monaco  Palatino @PRNT  0   V H " +""Ɋ`ZAˊN""""""""""""""""""""""""""""""""""""""""ˊ RGFf rLNN^ _ NNV H 6. 4. 2. "n  n Ap 8CSCD` 2  ,  &    QQL N^ _ N @ `P0p @CARD  * r   X $  g u   sun &     ----- (     (field) $      HOE (  k   REVERIE  ------- REVERIE -------  7     Type "." to stop reverie on openCard global cursorType, xh, yh, poemFont, poemFontBoldOn repeat with i = 1 to 4 set the textFont of card button i to poemFont if poemFontBoldOn is true then set the textStyle of card button i to bold else set the textStyle of card button i to plain end if end repeat set cursor to cursorType show card field "REVERIE" wait 3 seconds hide card field "REVERIE" -- show card button id 3 wait 1 sec put 250 into x put 151 into y set the loc of card button "sun" to x,y show card button "sun" repeat while y > 110 subtract 1 from y set the loc of card button "sun" to x,y wait 5 ticks end repeat set the name of card button "sun" to "SUN" wait 10 ticks show card button "(field)" wait 1 second -- -- sun has risen -- put 460 into xh put 150 into yh set the loc of card button "HOE" to xh,yh wait 10 ticks show card button "HOE" repeat while xh > 256 strokeHoe end repeat -- -- HOE gets to field -- set the name of card button id 3 to "----r" strokeHoe set the name of card button id 3 to "---ri" strokeHoe set the name of card button id 3 to "--riz" strokeHoe set the name of card button id 3 to "-rizo" strokeHoe set the name of card button id 3 to "rizon" strokeHoe -- --rizon aroused -- repeat while xh > 50 strokeHoe end repeat hide card button "HOE" wait 1 second end openCard on strokeHoe global xh,yh subtract 14 from xh set the loc of card button "HOE" to xh,yh wait 5 ticks add 7 to xh set the loc of card button "HOE" to xh,yh wait 10 ticks end strokeHoe on closeCard hide card button "HOE" hide card button "SUN" set the name of card button "SUN" to "sun" hide card button id 3 set the name of card button id 3 to "-----" set the loc of card button "HOE" to 470,150 hide card button "(field)" end closeCard    +      CARD d * r  V  v 0  ` ;  SELF REFLEXIVE &   ZR   poem 5 --------------- SELF-REFLEXIVE NO. 2 ---------------  7     Type "." to stop self-reflexive no. 2 on openCard global speed, cursorType, poemFont, poemFontBoldOn set the textFont of card field poem to poemFont if poemFontBoldOn is true then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType show card field "SELF REFLEXIVE" wait 3 seconds hide card field "SELF REFLEXIVE" wait 1 second put "THE BOTTOM LINE IS WHERE CHANGE IS" into string put empty into card field poem repeat with y = 1 to 19 put string into line y of card field poem end repeat show card field "poem" put the ticks into startDog repeat while (the ticks - startDog) < 600 -- select line 20 of card field poem -- type "THE BOTTOM LINE IS WHERE CHANGE IS" -- set cursor to cursorType put empty into line 20 of card field poem -- repeat with i = 1 to the length of string -- put char i of string after line 20 of card field poem -- end repeat repeat with i = 1 to 7 put word i of string & space after line 20 of card field poem end repeat if speed >= 60 then wait 15 ticks if speed >= 20 then wait 15 tick wait 15 ticks end repeat put empty into card field poem wait 2 seconds end openCard on closeCard hide card field poem end closeCard xg into line y of card field poem end repeat show card field "poem" put the ticks into startDog repeat while (the ticks - startDog) < 600 -- select line 20 of card field poem -- type "THE BOTTOM LINE IS WHERE CHANGE IS" -- set cursor to cursorType put empty into line 20 of card field poem -- repeat with i = 1 to the length of string -- put char i of string after line 20 of card field poem -- end repeat repeat with i = 1 to 7 put word i of string & space after line 20 of card field poem end repeat if speed >= 60 then wait 15 ticks if speed >= 20 then wait 15 tick wait 15 ticks end repeat put empty into card field poem wait 2 seconds end openCard on closeCard hide card field poem end closeCard x CARD  * r   4  [ E  POEM FOR MY FATHER &  V    poem (  E  one two ; ------------------- POEM FOR MY FATHER -------------------  two  7     Type "." to stop G GHOSTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTRAIN poem for my father on openCard global speed, cursorType, poemFont, poemFontBoldOn -- Use a fixed-width font if poemFont = "Courier" or poemFont = "Systat" or poemFont = "SPSSfont" then set the textFont of card field poem to poemFont else set the textFont of card field poem to "Monaco" end if if poemFontBoldOn is true then set the textStyle of card field poem to bold else set the textStyle of card field poem to plain end if set cursor to cursorType show card field "POEM FOR MY FATHER" wait 3 seconds hide card field "POEM FOR MY FATHER" wait 1 second put "one" into card field "one two" show card field "one two" wait 1 second hide card field "one two" put empty into card field poem show card field poem put "TRAIN" into line 18 of card field poem repeat for 47 times put "T" before line 18 of card field poem end repeat put -2 into i repeat while i < 18 add 4 to i if i = 18 then repeat with j = 0 to 4 put " RAIN " into char (j * 9) + 1 to (j * 9) + 9 of line 18 of card field poem end repeat put " RAIN" into char (5 * 9) + 1 to (5 * 9) + 9 of line 18 of card field poem else repeat with j = 0 to 5 put " RAIN" after line i of card field poem if j < 5 then put " " after line i of card field poem end repeat end if end repeat repeat with i = 1 to 30 put " AIN" into word i of card field poem end repeat repeat with i = 1 to 30 put " IN" into word i of card field poem end repeat repeat with i = 1 to 30 put " N" into word i of card field poem end repeat repeat for 30 times put " " into any word of card field poem end repeat put empty into card field poem wait 1 second put "two" into card field "one two" show card field "one two" wait 1 second hide card field "one two" wait 1 second put "TRAIN GHOST" into line 18 of card field poem repeat with i = 1 to 49 put "TRAIN" into char (i + 0) to (i + 4) of line 18 of card field poem put "GHOST" into char 55 - (i + 5) to 55 - (i + 1) of line 18 of card field poem end repeat wait 90 ticks hide card field poem wait 30 ticks end openCard on closeCard hide card field poem end closeCard  SPSSAIN" into char (i + 0) to (i + 4) of line 18 of card field poem put "GHOST" into char 55 - (i + 5) to 55 - (i + 1) of line 18 of card field poem end repeat wait 90 ticks hide card field poem wait 30 ticks $FREE Free Object *  -  |  @`   right arrow on mouseUp show background field "cycleStop" of card "island" put false into skipToTitles go card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card dedication end mouseUp `  6 F   fast on mouseUp global speed if the short name of me is "fast" then set the name of me to "slow" put 60 into speed else if the short name of me is "slow" then set the name of me to "medium" put 30 into speed else if the short name of me is "medium" then set the name of me to "fast" put 15 into speed end if end mouseUp (   UF@   message   % 5܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show menubar else set the name of me to "hidden" set the highlight of me to false hide menubar end if end mouseUp R  G@   right arrow on mouseUp go card titles end mouseUp    $܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show titlebar else set the name of me to "hidden" set the highlight of me to false hide titlebar end if end mouseUp  & i y   off on mouseUp global poemFontBoldOn if the short name of me is "on" then set the name of me to "off" set the highlight of me to false put false into poemFontBoldOn set the textStyle of card button id 42 of card second to plain set the textStyle of card field sampleFont to plain else set the name of me to "on" set the highlight of me to true put true into poemFontBoldOn set the textStyle of card button id 42 of card second to bold set the textStyle of card field sampleFont to bold end if end mouseUp ' J     sampleFont -- on returnInField -- click at the loc of card button id 42 -- end returnInField on mouseUp click at the loc of card button id 42 end mouseUp  ) G W܀   none on mouseUp global cursorType if the short name of me is "none" then set the highlight of me to true set the name of me to "watch" else if the short name of me is "watch" then set the highlight of me to true set the name of me to "busy" else set the name of me to "none" set the highlight of me to false end if put the short name of me into cursorType end mouseUp  * z    Geneva on mouseUp set userlevel to 2 put the number of menuItems of menu font into N if N < 1 then setPoemFont("Monaco") end if repeat with i = 1 to N if menuItem i of menu font = the short name of me then exit repeat end if end repeat if i = N then if menuItem i of menu font = the short name of me then setPoemFont(menuItem 1 of menu font) else setPoemFont("Monaco") end if else setPoemFont(menuItem i + 1 of menu font) end if end mouseUp V + K~  Chicago on mouseUp setPoemFont("Chicago") end mouseUp T ,    Geneva on mouseUp setPoemFont("Geneva") end mouseUp T -    Monaco on mouseUp setPoemFont("Monaco") end mouseUp 뀶 #  * (  $  ( + ) : ( $ (1 )@ (c %e ( $ (( )7 ( ' ( ' (a $u (} $ ( ) ([ $a ( ' ( ' (  '  ( $  ( $ (  $ ! ( $ ( $ ( INTRODUCTION History bp Nichol developed First Screening on an Apple II computer in the mid 1980s. This translation into Macintosh HyperTalk was done at the Knowledge Science Institute at the University of Calgary in 199293. Operating Instructions Click the pointing hand (lower right corner) to view First Screening. To halt animation displays type . (Apple Control Key & period). After being halted, the stack will go to the titles card after pausing for a few seconds. This stack uses primitive real-time animation. The animation will run slower if you have other applications running on your Mac. The stack takes three or more minutes to view. You should set your screen saver program (DarkSide, After Dark, PYRO! etc.) so it wont disrupt the screening. Powerbooks If you are viewing First Screening on a Macintosh Powerbook you may experience annoying pauses in the animation. The Powerbook has a mode that slows down the processor to save power if there is no input from the user. Its possible to turn this mode off from the Portable Control Panel by option-clicking on the Minutes Until Automatic Sleep string. If your Powerbook still pauses, try setting the cursor to watch or busy (click the button on the right near the top of this card). If all else fails, keep moving the mouse or tapping the Command Key while the animation is in progress. Menubar and Titlebar If your Mac has a small screen, you may want to hide the menubar and titlebar. To do this, click on the buttons at the top right of this card. (If your Mac has a very small screen, the titlebar will not be shown regardless of the state of the titlebar button.) Speed Run time will vary from Mac to Mac. This version of First Screening attempts to run faster on slow machines and slower on fast machines. You can make your own adjustments using the Speed Control Button on the right of this card. Running other applications on your Mac at the same time as HyperCard will make the animation run slower. Using darker fonts (and bold) will also slow down the animation. This stack will also run faster off a hard drive than a floppy drive. Cursor On most Macs the cursor should be set to none. If you are viewing this on a Powerbook and finding that the animation pauses, try setting the cursor to watch or busy. Fonts and Bolding You can select poem fonts and bolding on the right side of this card. At the very minimum, your Macintosh should support Geneva, Chicago, and Monaco fonts. Poem for my Father works best with fixed-width fonts like Monaco, Courier, Systat, or SPSSfont. If a variable-width font (Times, for example) has been selected then Poem for my Father will be presented in Monaco. Copyright 1993 Ellie Nichol The Publisher Red Deer College Press 56 Avenue & 32 Street Box 5005 Red Deer Alberta Canada T4N 5H5 Credits Translation from Apple II BASIC to HyperTalk by J.B. Hohm. Design by J.B. Hohm. Author photo by Andy Philips. Aknowledgements The Translator and Publisher gratefully acknowledge the generous assistance of Fred Wah. The Publisher gratefully acknowledges the financial assistance of the Alberta Foundation for the Arts, the Canada Council, the Federal Department of Communications, and Red Deer College. Translators Note bp Nichol did things with an Apple II that cannot be done with a Macintosh. In particular, the Apple II scrolling effect (used frequently in the original work) is not easy to translate. HyperTalk does support scrolling text fields but, like translating a verb tense from a foreign language with no equivalent English verb tense, the move from Apple II to HyperTalk scrolling was difficult and the result was awkward. I tried to achieve the BASIC effects using different HyperTalk tactics; however, if you were I and I was you, would you expect me to trust your translation? Probably (dare I presume?) not. J.B. Hohm Click here to change the poem display font Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx second on openCard global speed, review_one, cycleForever, poemFont, otherOn, startDog global buttonFlash set cursor to hand put false into review_one put false into cycleForever if speed >= 60 then put 60 into speed set name of card button id 12 to "slow" else if speed > 25 then put 30 into speed set name of card button id 12 to "medium" else put 15 into speed set name of card button id 12 to "fast" end if set the highlight of card button id 12 to true if buttonFlash then put the ticks into startDog end if end openCard on closeCard global buttonFlash if buttonFlash then put false into buttonFlash set the highlight of card button id 1 to false end if put the number of card fields into N repeat with i = 1 to N set lockText of card field i to true end repeat end closeCard on idle global startDog, buttonFlash if buttonFlash and (the ticks - startDog >= 60) then get the highlight of card button id 1 if it is true then -- set the highlight of card button id 18 to true set the highlight of card button id 1 to false else -- set the highlight of card button id 18 to false set the highlight of card button id 1 to true end if put the ticks into startDog end if end idle on setPoemFont fontName global poemFont set the name of card button id 42 of card second to fontName set the textFont of card button id 42 of card second to fontName set the textFont of card field sampleFont of card second to fontName put fontName into poemFont end setPoemFont  ` CARD ^ 'D *      \  $ $ 3 o  island on mouseUp go card island go card titles end mouseUp v  4 $ D   self-reflexive 1 on mouseUp go card "self-reflexive no. 1" go card titles end mouseUp \  E $ T e  letter on mouseUp go card letter go card titles e YCARD & * r  *   r 0  _ H  AFTER THE STORM "     W "     I "     N "     D "     S "     S "     E "     E "     E "     E "     T "     N "     N $  x  <    THE &  i y    THAT "     C & " !    HERE $ # 3    B " $ - \ = h    T " % - e = q    H " & - n = z    I " ' - w =    S " ( < L €    I " ) < L ˀ    S $ * K  [ 2    THE 1 --------------- AFTER THE STORM ---------------  7     type "." to stop after the storm on openCard global speed, cursorType, poemFont, poemFontBoldOn global charHeight, charWidth repeat with i = 1 to 25 set the textFont of card button i to poemFont if poemFont = "Monaco" then put 9 into charWidth put 17 into charHeight else put 9 into charWidth put 15 into charHeight end if if poemFontBoldOn is true then set the textStyle of card button i to bold add 1 to charWidth else set the textStyle of card button i to plain end if end repeat if speed >= 60 then put 4 into pause else if speed > 25 then put 2 into pause else put 0 into pause end if set cursor to cursorType show card field "AFTER THE STORM" wait 3 seconds hide card field "AFTER THE STORM" wait 1 second set the loc of card button 19 to colToX(-3),lineToY(4) --2010 set the loc of card button 20 to colToX(-2),lineToY(4) set the loc of card button 21 to colToX(-1),lineToY(4) set the loc of card button 22 to colToX(0),lineToY(4) show card button 19 -- THIS show card button 20 show card button 21 show card button 22 wait pause ticks repeat with i = 1 to 14 set the loc of card button 22 to colToX(0 + i),lineToY(4) set the loc of card button 21 to colToX(-1 + i),lineToY(4) set the loc of card button 20 to colToX(-2 + i),lineToY(4) set the loc of card button 19 to colToX(-3 + i),lineToY(4) wait pause ticks end repeat set the loc of card button 23 to colToX(15), lineToY(4) set the name of card button 23 to "S" show card button 23 wait pause ticks set the loc of card button 24 to colToX(16), lineToY(4) set the name of card button 24 to "S" show card button 24 wait pause ticks set the name of card button 22 to "I" wait pause ticks set the name of card button 23 to "I" wait pause ticks set the name of card button 22 to "S" wait pause ticks repeat with i = 1 to 6 set the loc of card button 24 to colToX(16 + i),lineToY(4) set the loc of card button 23 to colToX(15 + i),lineToY(4) wait pause ticks end repeat set the loc of card button 23 to colToX(21), lineToY(4) + charHeight div 4 set the loc of card button 24 to colToX(22), lineToY(4) + charHeight div 4 wait pause ticks set the loc of card button 23 to colToX(21), lineToY(4) + charHeight div 2 set the loc of card button 24 to colToX(22), lineToY(4) + charHeight div 2 wait pause ticks set the loc of card button 23 to colToX(21), lineToY(5) - charHeight div 4 set the loc of card button 24 to colToX(22), lineToY(5) - charHeight div 4 wait pause ticks set the loc of card button 23 to colToX(21), lineToY(5) set the loc of card button 24 to colToX(22), lineToY(5) wait pause ticks set the loc of card button 25 to colToX(4), lineToY(6) set the name of card button 25 to "T " show card button 25 wait pause + 10 ticks set the name of card button 25 to "TH " show card button 25 wait pause + 10 ticks set the name of card button 25 to "THE" show card button 25 wait pause + 10 ticks set the loc of card button 5 to colToX(14),lineToY(1) --2165 wait pause * 3 ticks set the loc of card button 6 to colToX(15),lineToY(2) wait pause * 3 ticks set the loc of card button 5 to colToX(14),lineToY(3) wait pause * 3 ticks set the loc of card button 6 to colToX(15),lineToY(4) wait pause * 3 ticks set the loc of card button 5 to colToX(16),lineToY(5) wait pause * 3 ticks set the loc of card button 6 to colToX(17),lineToY(6) wait pause * 3 ticks set the loc of card button 5 to colToX(16),lineToY(7) set the loc of card button 6 to -10,-10 --2225 set the loc of card button 7 to colToX(1),lineToY(23) wait pause ticks -- 2230 VTAB 23: HTAB 1: PRINT "E" -- 2235 VTAB 23: HTAB 1: PRINT " " set the loc of card button 8 to colToX(5),lineToY(21) wait pause ticks set the loc of card button 7 to colToX(4),lineToY(21) wait pause ticks -- 2240 VTAB 21: HTAB 4: PRINT "EE" -- 2245 VTAB 22: HTAB 2: PRINT " " set the loc of card button 9 to colToX(5),lineToY(20) wait pause ticks -- 2250 VTAB 20: HTAB 5: PRINT "E" set the loc of card button 7 to colToX(6),lineToY(21) wait pause ticks -- 2255 VTAB 21: HTAB 4: PRINT " E" set the loc of card button 8 to colToX(6),lineToY(19) wait pause ticks -- 2260 VTAB 19: HTAB 6: PRINT "E" -- 2265 VTAB 20: HTAB 5: PRINT " " set the loc of card button 7 to colToX(7),lineToY(21) wait pause ticks -- 2270 VTAB 21: HTAB 6: PRINT " E" set the loc of card button 9 to colToX(6),lineToY(20) wait pause ticks -- 2275 VTAB 20: HTAB 6: PRINT "E" set the loc of card button 8 to colToX(7),lineToY(18) wait pause ticks -- 2280 VTAB 18: HTAB 7: PRINT "E" -- 2285 VTAB 19: HTAB 6: PRINT " " set the loc of card button 10 to colToX(7),lineToY(20) wait pause ticks -- 2290 VTAB 20: HTAB 7: PRINT "E" set the loc of card button 7 to -10,-10 wait pause ticks -- 2295 VTAB 21: HTAB 7: PRINT " " set the loc of card button 9 to colToX(7),lineToY(19) wait pause ticks -- 2300 VTAB 19: HTAB 7: PRINT "E" -- 2305 VTAB 20: HTAB 6: PRINT " " set the loc of card button 8 to colToX(8),lineToY(17) wait pause ticks -- 2310 VTAB 17: HTAB 8: PRINT "E" -- 2315 VTAB 18: HTAB 7: PRINT " " set the loc of card button 10 to colToX(8),lineToY(20) wait pause ticks -- 2320 VTAB 20: HTAB 7: PRINT " E" set the loc of card button 9 to colToX(8),lineToY(18) wait pause ticks -- 2325 VTAB 18: HTAB 8: PRINT "E" -- 2330 VTAB 19: HTAB 7: PRINT " " set the loc of card button 8 to colToX(9),lineToY(16) wait pause ticks -- 2335 VTAB 16: HTAB 9: PRINT "E" -- 2340 VTAB 17: HTAB 8: PRINT " " set the loc of card button 10 to colToX(9),lineToY(19) wait pause ticks -- 2345 VTAB 19: HTAB 9: PRINT "E" -- 2350 VTAB 20: HTAB 8: PRINT " " set the loc of card button 9 to colToX(9),lineToY(17) wait pause ticks -- 2355 VTAB 17: HTAB 9: PRINT "E" -- 2360 VTAB 18: HTAB 8: PRINT " " set the loc of card button 8 to colToX(10),lineToY(15) wait pause ticks -- 2365 VTAB 15: HTAB 10: PRINT "E" -- 2370 VTAB 16: HTAB 9: PRINT " " set the loc of card button 10 to colToX(10),lineToY(19) wait pause ticks -- 2375 VTAB 19: HTAB 9: PRINT " E" set the loc of card button 9 to colToX(10),lineToY(16) wait pause ticks -- 2380 VTAB 16: HTAB 10: PRINT "E" -- 2385 VTAB 17: HTAB 9: PRINT " " set the loc of card button 8 to colToX(11),lineToY(14) wait pause ticks -- 2390 VTAB 14: HTAB 11: PRINT "E" -- 2395 VTAB 15: HTAB 10: PRINT " " set the loc of card button 10 to colToX(11),lineToY(19) wait pause ticks -- 2400 VTAB 19: HTAB 10: PRINT " E" set the loc of card button 9 to colToX(11),lineToY(16) wait pause ticks -- 2405 VTAB 16: HTAB 10: PRINT " E" set the loc of card button 8 to colToX(12),lineToY(13) wait pause ticks -- 2410 VTAB 13: HTAB 12: PRINT "E" -- 2415 VTAB 14: HTAB 11: PRINT " " set the loc of card button 10 to colToX(12),lineToY(19) wait pause ticks -- 2420 VTAB 19: HTAB 11: PRINT " E" set the loc of card button 9 to colToX(12),lineToY(16) wait pause ticks -- 2425 VTAB 16: HTAB 11: PRINT " E" set the loc of card button 8 to colToX(13),lineToY(12) wait pause ticks -- 2430 VTAB 12: HTAB 13: PRINT "E" -- 2435 VTAB 13: HTAB 12: PRINT " " set the loc of card button 10 to colToX(13),lineToY(18) wait pause ticks -- 2440 VTAB 18: HTAB 13: PRINT "E" -- 2445 VTAB 19: HTAB 12: PRINT " " set the loc of card button 9 to colToX(13),lineToY(16) wait pause ticks -- 2450 VTAB 16: HTAB 12: PRINT " E" set the loc of card button 8 to colToX(14),lineToY(11) wait pause ticks -- 2455 VTAB 11: HTAB 14: PRINT "E" -- 2460 VTAB 12: HTAB 13: PRINT " " set the loc of card button 10 to colToX(14),lineToY(18) wait pause ticks -- 2465 VTAB 18: HTAB 13: PRINT " E" set the loc of card button 9 to colToX(14),lineToY(15) wait pause ticks -- 2470 VTAB 15: HTAB 14: PRINT "E" -- 2475 VTAB 16: HTAB 13: PRINT " " set the loc of card button 8 to colToX(15),lineToY(10) wait pause ticks -- 2480 VTAB 10: HTAB 15: PRINT "E" -- 2485 VTAB 11: HTAB 14: PRINT " " set the loc of card button 10 to colToX(15),lineToY(18) wait pause ticks -- 2490 VTAB 18: HTAB 14: PRINT " E" set the loc of card button 9 to colToX(15),lineToY(15) wait pause ticks -- 2495 VTAB 15: HTAB 14: PRINT " E" set the loc of card button 8 to colToX(16),lineToY(9) wait pause ticks -- 2500 VTAB 9: HTAB 16: PRINT "E" -- 2505 VTAB 10: HTAB 15: PRINT " " set the loc of card button 10 to colToX(16),lineToY(18) wait pause ticks -- 2510 VTAB 18: HTAB 15: PRINT " E" set the loc of card button 9 to colToX(16),lineToY(14) wait pause ticks -- 2515 VTAB 14: HTAB 16: PRINT "E" -- 2520 VTAB 15: HTAB 15: PRINT " " set the loc of card button 8 to colToX(17),lineToY(8) wait pause ticks -- 2525 VTAB 8: HTAB 17: PRINT "E" -- 2530 VTAB 9: HTAB 16: PRINT " " set the loc of card button 10 to colToX(17),lineToY(18) wait pause ticks -- 2535 VTAB 18: HTAB 16: PRINT " E" set the loc of card button 9 to colToX(17),lineToY(13) wait pause ticks -- 2540 VTAB 13: HTAB 17: PRINT "E" -- 2545 VTAB 14: HTAB 16: PRINT " " set the loc of card button 8 to colToX(17),lineToY(7) wait pause ticks -- 2550 VTAB 7: HTAB 17: PRINT "E" -- 2555 VTAB 8: HTAB 17: PRINT " " set the loc of card button 10 to colToX(18),lineToY(17) wait pause ticks -- 2560 VTAB 17: HTAB 18: PRINT "E" -- 2565 VTAB 18: HTAB 17: PRINT " " set the loc of card button 9 to colToX(18),lineToY(12) wait pause ticks -- 2570 VTAB 12: HTAB 18: PRINT "E" -- 2575 VTAB 13: HTAB 17: PRINT " " set the loc of card button 11 to colToX(12),lineToY(5) wait pause ticks -- 2580 VTAB 5: HTAB 12: PRINT "T" set the loc of card button 10 to colToX(19),lineToY(16) wait pause ticks -- 2585 VTAB 16: HTAB 19: PRINT "E" -- 2590 VTAB 17: HTAB 18: PRINT " " set the loc of card button 9 to colToX(19),lineToY(11) wait pause ticks -- 2595 VTAB 11: HTAB 19: PRINT "E" -- 2600 VTAB 12: HTAB 18: PRINT " " set the loc of card button 11 to colToX(13),lineToY(6) wait pause ticks -- 2605 VTAB 6: HTAB 13: PRINT "T" -- 2610 VTAB 5: HTAB 12: PRINT " " set the loc of card button 10 to colToX(20),lineToY(15) wait pause ticks -- 2615 VTAB 15: HTAB 20: PRINT "E" -- 2620 VTAB 16: HTAB 19: PRINT " " set the loc of card button 9 to colToX(20),lineToY(10) wait pause ticks -- 2625 VTAB 10: HTAB 20: PRINT "E" -- 2630 VTAB 11: HTAB 19: PRINT " " set the loc of card button 11 to colToX(14),lineToY(7) wait pause ticks -- 2635 VTAB 7: HTAB 14: PRINT "T" -- 2640 VTAB 6: HTAB 13: PRINT " " set the loc of card button 10 to colToX(21),lineToY(14) wait pause ticks -- 2645 VTAB 14: HTAB 21: PRINT "E" -- 2650 VTAB 15: HTAB 20: PRINT " " set the loc of card button 9 to colToX(19),lineToY(9) wait pause ticks -- 2655 VTAB 9: HTAB 19: PRINT "E" -- 2660 VTAB 10: HTAB 20: PRINT " " set the loc of card button 11 to colToX(15),lineToY(8) wait pause ticks -- 2665 VTAB 8: HTAB 15: PRINT "T" -- 2670 VTAB 7: HTAB 14: PRINT " " set the loc of card button 10 to colToX(22),lineToY(13) wait pause ticks -- 2675 VTAB 13: HTAB 22: PRINT "E" -- 2680 VTAB 14: HTAB 21: PRINT " " set the loc of card button 9 to colToX(19),lineToY(8) wait pause ticks -- 2685 VTAB 8: HTAB 19: PRINT "E" -- 2690 VTAB 9: HTAB 19: PRINT " " set the loc of card button 11 to colToX(16),lineToY(9) wait pause ticks -- 2700 VTAB 9: HTAB 16: PRINT "T" -- 2705 VTAB 8: HTAB 15: PRINT " " set the loc of card button 10 to colToX(23),lineToY(12) wait pause ticks -- 2710 VTAB 12: HTAB 23: PRINT "E" -- 2715 VTAB 13: HTAB 22: PRINT " " set the loc of card button 9 to colToX(20),lineToY(7) wait pause ticks -- 2720 VTAB 7: HTAB 20: PRINT "E" -- 2725 VTAB 8: HTAB 19: PRINT " " set the loc of card button 11 to colToX(17),lineToY(8) wait pause ticks -- 2730 VTAB 8: HTAB 17: PRINT "T" -- 2735 VTAB 9: HTAB 16: PRINT " " set the loc of card button 10 to colToX(24),lineToY(11) wait pause ticks -- 2740 VTAB 11: HTAB 24: PRINT "E" -- 2745 VTAB 12: HTAB 23: PRINT " " set the loc of card button 12 to colToX(28),lineToY(1) wait pause ticks -- 2750 VTAB 1: HTAB 28: PRINT "N" set the loc of card button 11 to colToX(18),lineToY(7) wait pause ticks -- 2755 VTAB 7: HTAB 18: PRINT "T" -- 2760 VTAB 8: HTAB 17: PRINT " " set the loc of card button 10 to colToX(25),lineToY(10) wait pause ticks -- 2765 VTAB 10: HTAB 25: PRINT "E" -- 2770 VTAB 11: HTAB 24: PRINT " " set the loc of card button 12 to colToX(27),lineToY(2) wait pause ticks -- 2775 VTAB 2: HTAB 27: PRINT "N" -- 2780 VTAB 1: HTAB 28: PRINT " " set the loc of card button 11 to colToX(19),lineToY(7) wait pause ticks -- 2785 VTAB 7: HTAB 19: PRINT "T" -- 2790 VTAB 7: HTAB 18: PRINT " " set the loc of card button 10 to colToX(24),lineToY(9) wait pause ticks -- 2795 VTAB 9: HTAB 24: PRINT "E" -- 2800 VTAB 10: HTAB 25: PRINT " " set the loc of card button 12 to colToX(26),lineToY(3) wait pause ticks set the loc of card button 13 to colToX(27),lineToY(3) wait pause ticks -- 2805 VTAB 3: HTAB 26: PRINT "NN" -- 2810 VTAB 2: HTAB 27: PRINT " " set the loc of card button 16 to colToX(36),lineToY(20) wait pause ticks -- 2815 VTAB 20: HTAB 36: PRINT "C" set the loc of card button 10 to colToX(24),lineToY(8) wait pause ticks -- 2820 VTAB 8: HTAB 24: PRINT "E" -- 2825 VTAB 9: HTAB 24: PRINT " " set the loc of card button 13 to colToX(25),lineToY(4) wait pause ticks -- 2830 VTAB 4: HTAB 25: PRINT "N" -- 2835 VTAB 3: HTAB 26: PRINT "N " set the loc of card button 16 to colToX(35),lineToY(19) wait pause ticks -- 2840 VTAB 19: HTAB 35: PRINT "C" -- 2845 VTAB 20: HTAB 36: PRINT " " set the loc of card button 10 to colToX(23),lineToY(7) wait pause ticks -- 2850 VTAB 7: HTAB 23: PRINT "E" -- 2855 VTAB 8: HTAB 24: PRINT " " set the loc of card button 13 to colToX(24),lineToY(5) wait pause ticks -- 2860 VTAB 5: HTAB 24: PRINT "N" -- 2865 VTAB 4: HTAB 25: PRINT " " set the loc of card button 12 to colToX(25),lineToY(3) wait pause ticks -- 2866 VTAB 3: HTAB 25: PRINT "N " set the loc of card button 16 to colToX(34),lineToY(18) wait pause ticks -- 2870 VTAB 18: HTAB 34: PRINT "C" -- 2875 VTAB 19: HTAB 35: PRINT " " set the loc of card button 13 to colToX(23),lineToY(6) wait pause ticks -- 2880 VTAB 6: HTAB 23: PRINT "N" -- 2885 VTAB 5: HTAB 24: PRINT " " set the loc of card button 12 to colToX(24),lineToY(3) wait pause ticks -- 2886 VTAB 3: HTAB 24: PRINT "N " set the loc of card button 16 to colToX(33),lineToY(17) wait pause ticks -- 2890 VTAB 17: HTAB 33: PRINT "C" -- 2895 VTAB 18: HTAB 34: PRINT " " set the loc of card button 13 to colToX(22),lineToY(6) wait pause ticks -- 2900 VTAB 6: HTAB 22: PRINT "N " set the loc of card button 12 to colToX(23),lineToY(3) wait pause ticks -- 2901 VTAB 3: HTAB 23: PRINT "N " set the loc of card button 16 to colToX(32),lineToY(16) wait pause ticks -- 2905 VTAB 16: HTAB 32: PRINT "C" -- 2910 VTAB 17: HTAB 33: PRINT " " set the loc of card button 13 to colToX(21),lineToY(7) wait pause ticks -- 2915 VTAB 7: HTAB 21: PRINT "N" -- 2916 VTAB 6: HTAB 22: PRINT " " set the loc of card button 12 to colToX(22),lineToY(4) wait pause ticks -- 2917 VTAB 4: HTAB 22: PRINT "N" -- 2918 VTAB 3: HTAB 23: PRINT " " set the loc of card button 16 to colToX(31),lineToY(15) wait pause ticks -- 2920 VTAB 15: HTAB 31: PRINT "C" -- 2925 VTAB 16: HTAB 32: PRINT " " set the loc of card button 12 to colToX(21),lineToY(4) wait pause ticks -- 2930 VTAB 4: HTAB 21: PRINT "N " set the loc of card button 12 to colToX(20),lineToY(4) wait pause ticks -- 2935 VTAB 4: HTAB 20: PRINT "N " set the loc of card button 16 to colToX(30),lineToY(14) wait pause ticks -- 2940 VTAB 14: HTAB 30: PRINT "C" -- 2945 VTAB 15: HTAB 31: PRINT " " set the loc of card button 12 to colToX(19),lineToY(4) wait pause ticks -- 2950 VTAB 4: HTAB 19: PRINT "N " set the loc of card button 16 to colToX(29),lineToY(13) wait pause ticks -- 2955 VTAB 13: HTAB 29: PRINT "C" -- 2960 VTAB 14: HTAB 30: PRINT " " set the loc of card button 12 to colToX(18),lineToY(4) wait pause ticks -- 2965 VTAB 4: HTAB 18: PRINT "N " set the loc of card button 16 to colToX(28),lineToY(12) wait pause ticks -- 2970 VTAB 12: HTAB 28: PRINT "C" -- 2975 VTAB 13: HTAB 29: PRINT " " set the loc of card button 12 to colToX(18),lineToY(5) wait pause ticks -- 2980 VTAB 5: HTAB 18: PRINT "N" -- 2981 VTAB 4: HTAB 18: PRINT " " set the loc of card button 16 to colToX(27),lineToY(11) wait pause ticks -- 2985 VTAB 11: HTAB 27: PRINT "C" -- 2990 VTAB 12: HTAB 28: PRINT " " set the loc of card button 12 to colToX(18),lineToY(6) wait pause ticks -- 2995 VTAB 6: HTAB 18: PRINT "N" -- 2996 VTAB 5: HTAB 18: PRINT " " set the loc of card button 16 to colToX(26),lineToY(10) wait pause ticks -- 3000 VTAB 10: HTAB 26: PRINT "C" -- 3005 VTAB 11: HTAB 27: PRINT " " set the loc of card button 12 to colToX(18),lineToY(7) wait pause ticks -- 3010 VTAB 7: HTAB 18: PRINT "N" -- 3015 VTAB 6: HTAB 18: PRINT " " set the loc of card button 16 to colToX(25),lineToY(10) wait pause ticks -- 3110 VTAB 10: HTAB 25: PRINT "C" -- 3115 VTAB 10: HTAB 26: PRINT " " set the loc of card button 16 to colToX(24),lineToY(9) wait pause ticks -- 3120 VTAB 9: HTAB 24: PRINT "C" -- 3125 VTAB 10: HTAB 25: PRINT " " set the loc of card button 16 to colToX(23),lineToY(8) wait pause ticks -- 3130 VTAB 8: HTAB 23: PRINT "C" -- 3135 VTAB 9: HTAB 24: PRINT " " set the loc of card button 16 to colToX(22),lineToY(7) wait pause ticks -- 3140 VTAB 7: HTAB 22: PRINT "C" -- 3145 VTAB 8: HTAB 23: PRINT " " wait pause + 15 ticks set the loc of card button 15 to colToX(28), lineToY(8) show card button 15 --THAT wait pause + 15 ticks set the loc of card button 14 to colToX(5), lineToY(9) show card button 14 --THE wait pause + 15 ticks put lineToY(9) into line9 put lineToY(10) into line10 put lineToY(11) into line11 put colToX(9) into swirl_centre put 0 into bNum repeat while swirl_centre < colToX(20) -- 3165 add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line10 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line11 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line11 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line10 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre - 9,line9 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre,line9 wait pause ticks add 1 to bNum if bNum = 5 then put 1 into bNum set the loc of card button bNum to swirl_centre + 9,line9 wait pause ticks add 9 to swirl_centre end repeat set the loc of card button 1 to colToX(20),line9 wait pause ticks set the loc of card button 2 to colToX(21),line10 wait pause ticks set the loc of card button 3 to colToX(20),line11 wait pause ticks set the loc of card button 4 to colToX(19),line10 wait pause ticks set the loc of card button 1 to colToX(20),line10 wait pause ticks set the loc of card button 3 to colToX(19),line11 wait pause ticks set the loc of card button 4 to colToX(19),line9 wait pause ticks set the loc of card button 3 to colToX(19),line10 wait pause ticks set the loc of card button 4 to colToX(20),line9 wait pause ticks set the loc of card button 3 to colToX(19),line9 wait pause ticks set the loc of card button 4 to colToX(21),line9 wait pause ticks set the loc of card button 3 to colToX(20),line9 wait pause ticks set the loc of card button 4 to colToX(22),line9 wait pause ticks set the loc of card button 3 to colToX(21),line9 wait pause ticks set the loc of card button 4 to colToX(23),line9 wait pause ticks set the loc of card button 3 to colToX(22),line9 wait pause ticks set the loc of card button 4 to colToX(23),line10 wait pause ticks set the loc of card button 3 to colToX(22),line10 wait 15 ticks set the loc of card button 18 to colToX(10), lineToY(11) show card button 18 repeat with i = 1 to 6 -- 3310 set the name of card button 18 to "B " wait pause ticks set the name of card button 18 to "BLE" wait pause ticks set the name of card button 18 to "BBLEWW" wait pause ticks set the name of card button 18 to "BLEW" wait pause ticks set the name of card button 18 to "BW" wait pause ticks set the name of card button 18 to "" wait pause ticks end repeat set the name of card button 18 to "BW" wait pause ticks set the name of card button 18 to "BLEW" wait pause ticks set the name of card button 18 to "BBLEWW" wait pause ticks set the name of card button 18 to "BLEW" wait 15 ticks set the loc of card button 17 to colToX(30), lineToY(12) show card button 17 -- "HERE" wait 3 seconds end openCard function lineToY line global charHeight return (line - 1) * charHeight + 8 end lineToY function colToX col global charWidth return (col - 1) * charWidth + 8 end colToX on closeCard set the loc of card button 1 to -10,-10 -- W set the loc of card button 2 to -10,-10 -- I set the loc of card button 3 to -10,-10 -- N set the loc of card button 4 to -10,-10 -- D set the loc of card button 5 to -10,-10 -- S set the loc of card button 7 to -10,-10 -- E set the loc of card button 8 to -10,-10 -- E set the loc of card button 9 to -10,-10 -- E set the loc of card button 10 to -10,-10 -- E set the loc of card button 11 to -10,-10 -- T set the loc of card button 12 to -10,-10 -- N set the loc of card button 13 to -10,-10 -- N set the loc of card button 16 to -10,-10 -- C hide card button 14 -- THE hide card button 15 -- THAT hide card button 17 -- HERE hide card button 18 -- BLEW hide card button 19 -- THIS T hide card button 20 -- THIS H hide card button 21 -- THIS I hide card button 22 -- THIS S hide card button 23 -- IS I hide card button 24 -- IS S hide card button 25 -- THE (the first one) set the name of card button 18 to "B " end closeCard U Don openCard global speed %@FREE Free Object *  -  |  @   right arrow on mouseUp show background field "cycleStop" of card "island" put false into skipToTitles go card "o logo" go card island go card "self-reflexive no. 1" go card "letter" go card "reverie" go card "construction one" go card "any of your lip" go card "self-reflexive no. 2" go card "poem for my father" go card "after the storm" go card "tidal pool" go card dedication end mouseUp `  6 F   fast on mouseUp global speed if the short name of me is "fast" then set the name of me to "slow" put 60 into speed else if the short name of me is "slow" then set the name of me to "medium" put 30 into speed else if the short name of me is "medium" then set the name of me to "fast" put 15 into speed end if end mouseUp (   UF@   message   % 5܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show menubar else set the name of me to "hidden" set the highlight of me to false hide menubar end if end mouseUp R  G@   right arrow on mouseUp go card titles end mouseUp    $܀   hidden on mouseUp if the short name of me is "hidden" then set the name of me to "shown" set the highlight of me to true show titlebar else set the name of me to "hidden" set the highlight of me to false hide titlebar end if end mouseUp  & i y   off on mouseUp global poemFontBoldOn if the short name of me is "on" then set the name of me to "off" set the highlight of me to false put false into poemFontBoldOn set the textStyle of card button id 42 of card second to plain set the textStyle of card field sampleFont to plain else set the name of me to "on" set the highlight of me to true put true into poemFontBoldOn set the textStyle of card button id 42 of card second to bold set the textStyle of card field sampleFont to bold end if end mouseUp ' J    sampleFont -- on returnInField -- click at the loc of card button id 42 -- end returnInField on mouseUp click at the loc of card button id 42 end mouseUp  ) G W܀   none on mouseUp global cursorType if the short name of me is "none" then set the highlight of me to true set the name of me to "watch" else if the short name of me is "watch" then set the highlight of me to true set the name of me to "busy" else set the name of me to "none" set the highlight of me to false end if put the short name of me into cursorType end mouseUp  * z   GillSans Bold on mouseUp set userlevel to 2 put the number of menuItems of menu font into N if N < 1 then setPoemFont("Monaco") end if repeat with i = 1 to N if menuItem i of menu font = the short name of me then exit repeat end if end repeat if i = N then if menuItem i of menu font = the short name of me then setPoemFont(menuItem 1 of menu font) else setPoemFont("Monaco") end if else setPoemFont(menuItem i + 1 of menu font) end if end mouseUp V + K~  Chicago on mouseUp setPoemFont("Chicago") end mouseUp T ,    Geneva on mouseUp setPoemFont("Geneva") end mouseUp T -    Monaco on mouseUp setPoemFont("Monaco") end mouseUp 뀶 #  * (  $  ( + ) : ( $ (1 )@ (c %e ( $ (( )7 ( ' ( ' (a $u (} $ ( ) ([ $a ( ' ( ' (  '  ( $  ( $ (  $ ! ( $ ( $ ( INTRODUCTION History bp Nichol developed First Screening on an Apple II computer in the mid 1980s. This translation into Macintosh HyperTalk was done at the Knowledge Science Institute at the University of Calgary in 199293. Operating Instructions Click the pointing hand (lower right corner) to view First Screening. To halt animation displays type . (Apple Control Key & period). After being halted, the stack will go to the titles card after pausing for a few seconds. This stack uses primitive real-time animation. The animation will run slower if you have other applications running on your Mac. The stack takes three or more minutes to view. You should set your screen saver program (DarkSide, After Dark, PYRO! etc.) so it wont disrupt the screening. Powerbooks If you are viewing First Screening on a Macintosh Powerbook you may experience annoying pauses in the animation. The Powerbook has a mode that slows down the processor to save power if there is no input from the user. Its possible to turn this mode off from the Portable Control Panel by option-clicking on the Minutes Until Automatic Sleep string. If your Powerbook still pauses, try setting the cursor to watch or busy (click the button on the right near the top of this card). If all else fails, keep moving the mouse or tapping the Command Key while the animation is in progress. Menubar and Titlebar If your Mac has a small screen, you may want to hide the menubar and titlebar. To do this, click on the buttons at the top right of this card. (If your Mac has a very small screen, the titlebar will not be shown regardless of the state of the titlebar button.) Speed Run time will vary from Mac to Mac. This version of First Screening attempts to run faster on slow machines and slower on fast machines. You can make your own adjustments using the Speed Control Button on the right of this card. Running other applications on your Mac at the same time as HyperCard will make the animation run slower. Using darker fonts (and bold) will also slow down the animation. This stack will also run faster off a hard drive than a floppy drive. Cursor On most Macs the cursor should be set to none. If you are viewing this on a Powerbook and finding that the animation pauses, try setting the cursor to watch or busy. Fonts and Bolding You can select poem fonts and bolding on the right side of this card. At the very minimum, your Macintosh should support Geneva, Chicago, and Monaco fonts. Poem for my Father works best with fixed-width fonts like Monaco, Courier, Systat, or SPSSfont. If a variable-width font (Times, for example) has been selected then Poem for my Father will be presented in Monaco. Copyright 1993 Ellie Nichol The Publisher Red Deer College Press 56 Avenue & 32 Street Box 5005 Red Deer Alberta Canada T4N 5H5 Credits Translation from Apple II BASIC to HyperTalk by J.B. Hohm. Design by J.B. Hohm. Author photo by Andy Philips. Aknowledgements The Translator and Publisher gratefully acknowledge the generous assistance of Fred Wah. The Publisher gratefully acknowledges the financial assistance of the Alberta Foundation for the Arts, the Canada Council, the Federal Department of Communications, and Red Deer College. Translators Note bp Nichol did things with an Apple II that cannot be done with a Macintosh. In particular, the Apple II scrolling effect (used frequently in the original work) is not easy to translate. HyperTalk does support scrolling text fields but, like translating a verb tense from a foreign language with no equivalent English verb tense, the move from Apple II to HyperTalk scrolling was difficult and the result was awkward. I tried to achieve the BASIC effects using different HyperTalk tactics; however, if you were I and I was you, would you expect me to trust your translation? Probably (dare I presume?) not. J.B. Hohm Click here to change the poem display font Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx second on openCard global speed, review_one, cycleForever, poemFont, otherOn, startDog global buttonFlash set cursor to hand put false into review_one put false into cycleForever if speed >= 60 then put 60 into speed set name of card button id 12 to "slow" else if speed > 25 then put 30 into speed set name of card button id 12 to "medium" else put 15 into speed set name of card button id 12 to "fast" end if set the highlight of card button id 12 to true if buttonFlash then put the ticks into startDog end if end openCard on closeCard global buttonFlash if buttonFlash then put false into buttonFlash set the highlight of card button id 1 to false end if put the number of card fields into N repeat with i = 1 to N set lockText of card field i to true end repeat end closeCard on idle global startDog, buttonFlash if buttonFlash and (the ticks - startDog >= 60) then get the highlight of card button id 1 if it is true then -- set the highlight of card button id 18 to true set the highlight of card button id 1 to false else -- set the highlight of card button id 18 to false set the highlight of card button id 1 to true end if put the ticks into startDog end if end idle on setPoemFont fontName global poemFont set the name of card button id 42 of card second to fontName set the textFont of card button id 42 of card second to fontName set the textFont of card field sampleFont of card second to fontName put fontName into poemFont end setPoemFont  ` CARD ^ 'D *      \  $ $ 3 o  island on mouseUp go card island go card titles end mouseUp v  4 $ D   self-reflexive 1 on mouseUp go card "self-reflexive no. 1" go card titles end mouseUp \  E $ T e  letter on mouseUp go card letter go card titles e  CARD ^ 'D *      \  $ $ 3 o  island on mouseUp go card i  FTBL  ; Chicago Geneva Courier Times Helvetica Monaco  Palatino GillSans PGillSans Bold GillSans BoldItalic GillSans Italic 9H Futura Heavy s Helvetica Narrow s HO Futura HeavyOblique o I Garamond LightItalic e I Optima Oblique L Futura Light r LO Futura LightOblique e New York O Futura BookOblique i Optima p"{Palatino BoldItalicOsF "|Palatino BoldOsF "}Palatino ItalicOsF "~Palatino SC Symbol Voyager XB Futura ExtraBold XBO Futura ExtraBoldOblique Zapf Dingbats CApple LiSung Light 0BDFKaiShu-GB5 B Taipei p *Beijing* qSong 8AGaramond 8AGaramond Italic 8AGaramond Semibold 8AGaramond SemiboldItalic *Arial B Futura Bold B Optima Bold BI Optima BoldOblique BO Futura BoldOblique 4Didot LH Bold 4Didot LH BoldOsF 4Didot LH Headline 4Didot LH HeadlineOsF 4Didot LH Initials 4Didot LH Italic 4Didot LH ItalicOsF D4Didot LH OrnamentsOne 4Didot LH OrnamentsTwo 4Didot LH Roman 4Didot LH RomanOsF 4Didot LH RomanSC 9Futura rFutura Book Garamond et `FREE Free Object d cream, melt butter in a medium saucepan. Add flour and  *Lcook, stirring, until butter is absorbed into the flour paste; be careful it  *Kdoesn't brown. Remove from heat. Beat in milk, mustard and salt with a wire  *whisk.  *J Put drained onions in a 2 L casserole. Pour mustard cream over top VuV V;VrV.Vo:ViV-Ve:V,V:Va:VAWyWuW W;WrW.WoWiiW-iWeW,W:WaWAYvYuY iY;Yq:Y.YpYo:YiY-Ye:Y,Y:YaYAf ff11ti sr r.r, Y W Aiv.iv,iw.iw,iy.iy,i  ` _  5   vers *sfnt  6NFNT  fFONT FOND  % " 5