%%%%%%%%%%%%% Stack - Lesson Writer %%%%%%%%%%%%%
STACK SCRIPT:
On GetOKToMove
  global CardDone,PathPtr,PathCount,ReviewMode
  If pathPtr = PathCount then
    if line (the number of this card) of CardDone is not "TRUE" then
      if reviewMode <> "TRUE" then
        answer "Please answer this question before proceeding."with "OK"
        exit to HyperCard
      end if
    end if
  end if
end GetOKToMove
on GetOKToMoveBack
  global CardDone,pathPtr,pathCount
  If pathPtr = pathCount then
    if line (the number of this card) of CardDone is not "TRUE" then
      answer "Please answer this question before proceeding."with "OK"
      exit GetOKToMoveBack
    end if
  end if
end GetOKToMoveBack
on PlayRight
  --Play Harpsichord tempo 150 g4e g4s g4 c5e
  Play Harpsichord tempo 150 g5e g5s g5 c6e
end PlayRight
on PlayWrong
  Play boing tempo 100 g4 c4
end PlayWrong
on arrowkey
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" Â
  then pass arrowkey else exit to hyperCard
end arrowkey
on ClearPath
  set the cursor to watch
  go card 1
  global PathPtr,PathCount,PathList
  put the short id of card 1 into PathList
  put 1 into pathPtr
  put 1 into pathCount
  hide message
end ClearPath
on Idle
  --put the short time into bg field "TheTime"
  global TimerOff,TimeLimit,current,destination,strt
  if (TimeLimit=0)or (TimerOff) then exit idle
  put destination-(the ticks-strt)into current
  if current<0 then
    Timer 460,26,495,86,0,destination,1
    beep
    Answer "Time's Up."with "OK"
    put true into TimerOff
    send CheckThisCard to this cd
  else Timer 460,26,495,86,current,destination,1
end Idle
on GoNext
  Global ReviewMode,RPtr,WrongCards
  If (ReviewMode="TRUE") then
    add 1 to RPtr
    if (RPtr>the number of items in WrongCards) then
      Put "Done"into ReviewMode
      goContents
      exit gonext
    else
      go cd id (item RPtr of WrongCards)
      exit gonext
    end if
  end if
  global PathList,PathPtr,PathCount
  If PathPtr < PathCount then
    add 1 to pathPtr
    go cd id (item PathPtr of PathList)
    exit gonext
  end if
  global CardDone
  If Not(the hilight of cd btn "Score Once") then put Â
  empty into line (the number of this card) of carddone
  global LWAnswer,LWScore
  put LWAnswer into LstAns
  put LWScore into CurScr
  if bg field "Branch"<>"" then
    If (item 2 of bg field "Branch"<>"") then
      go cd id (item 2 of bg field "Branch")
      add 1 to pathCount
      add 1 to pathPtr
      put the short id of this card into item PathPtr of PathList
      exit GoNext
    end if
    put item 3 of bg field "Branch"into TriggerScore
    If (TriggerScore<>"")and(CurScr>=TriggerScore) andÂ
    (CurScr<>"") then
      If (item 4 of bg field "Branch"<>"") then
        If (the hilight of cd btn "Score Once") then putÂ
        "OK" into line (the number of this card) of carddone
        go cd id (item 4 of bg field "Branch")
        add 1 to pathCount
        add 1 to pathPtr
        put the short id of this card into item PathPtr of PathList
        exit GoNext
      end if
    end if
    put item 5 of bg field "Branch"into TriggerScore
    If (TriggerScore<>"")and (CurScr<TriggerScore) andÂ
    (CurScr<>"") then
      If (item 6 of bg field "Branch"<>"") then
        If (the hilight of cd btn "Score Once") then putÂ
        "OK" into line (the number of this card) of carddone
        go cd id (item 6 of bg field "Branch")
        add 1 to pathCount
        add 1 to pathPtr
        put the short id of this card into item PathPtr of PathList
        exit GoNext
      end if
    end if
    If (item 7 of bg field "Branch"<>"")Â
    and (LstAns="Right") then
      If (the hilight of cd btn "Score Once") then putÂ
      "OK" into line (the number of this card) of carddone
      go cd id (item 7 of bg field "Branch")
      add 1 to pathCount
      add 1 to pathPtr
      put the short id of this card into item PathPtr of PathList
      exit GoNext
    end if
    If (item 8 of bg field "Branch"<>"")Â
    and (LstAns="Wrong") then
      If (the hilight of cd btn "Score Once") then putÂ
      "OK" into line (the number of this card) of carddone
      go cd id (item 8 of bg field "Branch")
      add 1 to pathCount
      add 1 to pathPtr
      put the short id of this card into item PathPtr of PathList
      exit GoNext
    end if
  end if
  if bg field "Path"<>"" then
    If (item 2 of bg field "Path"<>"") then
      Go cd id (item 2 of bg field "Path")
      add 1 to pathCount
      add 1 to pathPtr
      put the short id of this card into item PathPtr of PathList
      exit GoNext
    end if
  end if
  go next
  add 1 to pathCount
  add 1 to pathPtr
  put the short id of this card into item PathPtr of PathList
end GoNext
on GoPrev
  global ReviewMode,RPtr,WrongCards
  If (ReviewMode="TRUE") then
    subtract 1 from RPtr
    if (RPtr<1) then
      beep
      Answer "End Review of Incorrect Cards?"with "Continue"or "End"
      If it="Continue" then
        add 1 to RPtr
        exit GoPrev
      end if
      Put "Done"into ReviewMode
      goContents
      exit GoPrev
    else
      go cd id (item RPtr of WrongCards)
      exit GoPrev
    end if
  end if
  global pathList,pathPtr
  If PathPtr > 1 then
    subtract 1 from PathPtr
  else beep
  go cd id (item PathPtr of PathList)
end GoPrev
on GoContents
  set lockrecent to true
  global pathCount,pathPtr
  put PathCount into PathPtr
  global NumQRight,NumQWrong,WrongCards,ReviewMode,RPtr
  if NumQRight="" then put 0 into NumQRight
  if NumQWrong="" then put 0 into NumQWrong
  If the name of this cd<>"Score Report"and Â
  ((NumQRight<>0)or (NumQWrong<>0)) then
    go cd "Score Report"
    exit goContents
  end if
  global PopPending,PathPtr,PathCount,PathList
  If PopPending>0 then
    pop cd
    subtract 1 from PopPending
  else go cd 1
  put 1 into PathPtr
  put 1 into PathCount
  put the short id of this card into PathList
end GoContents
on ReturnKey
  ClosePaint
  pass ReturnKey
end ReturnKey
on openTimedCard
  global timelimit,destination,strt,TimerOff,CardDone
  if (line (the number of this cd)of CardDone)="TRUE" then
    put true into TimerOff
    exit OpenTimedCard
  end if
  if (line (the number of this cd)of CardDone)="OK" then
    put true into TimerOff
    exit OpenTimedCard
  end if
  put bg field "Time Limit"into Timelimit
  if (timelimit="")or (timelimit<0)or (timelimit>30000)Â
  then
    put 0 into timelimit
    put true into TimerOff
    exit openTimedcard
  end if
  put trunc((timelimit)*60)into destination
  if destination<1 then put 1 into destination
  put the ticks into strt
  wait 5 ticks
  put false into TimerOff
end openTimedcard
on openstack FromWhere
  show menubar
  --If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" then
  --  if the short name of this stack is not "- Lesson Writer" then
  --    ANSWER "This stack is not set for editing.  Do you wish to "&Â
  --    "edit this lesson or just look at it" with "EDIT" orÂ
  --    "LOOK"
  --    if it is "EDIT" then
  --      put the short name of me into temp
  --      go stack "- Lesson Writer"
  --      Answer "Choose 'Edit Existing Lesson' from the MusicExtras "&Â
  --      "menu and select the "&temp&" stack" with "OK"
  --    end if
  --  end if
  --end if
  global LWMusFONT
  if LWMusFONT="" then put cd fld "Music Font"of cd "Title Card"into LWMusFONT
  set the userlevel to 5
  put "ONE MOMENT PLEASE"
  unlock screen
  lock screen
  set the cursor to watch
  global TimerOff
  put true into TimerOff
  Global SoundSource
  if SoundSource="" then
    put last word of cd field "Sound Source"of cd "Title Card"Â
    into SoundSource
  end if
  Global SoundEffects
  put cd field "Sound Effects"of cd "Title Card"into SoundEffects
  if SoundEffects="" then put FALSE into SoundEffects
  InstallMenu
  if fromwhere is empty then RandomizeCards
  put""
  hide message
  global PathList,PathPtr,PathCount
  if PathList = "" then
    put the short id of this card into item 1 of PathList
    Put 1 into PathPtr
    Put 1 into PathCount
  end if
  if the hilight of cd btn "Init CD on Startup" of cd "Title Card" then cdopen
  pass openstack
end openstack
on closestack
  UninstallMenu
  If (the freesize of this stack>5000)Â
  and (the diskspace > the size of this stack)Â
  and (the optionkey<>"Down") then domenu "Compact Stack"
end closestack
on domenu temp
  put the short name of the target into tempTarget
  if (temp="New Card") or (temp="Delete Card") or Â
  (temp = "New Stack...") or (temp = "Open Stack...")Â
  or (temp = "Save A Copy...") or  (temp = "New Button")Â
  or (temp = "New Field") or  (temp = "New Background")Â
  then
    if the userlevel < 3 then
      beep (3)
      exit domenu
    end if
  end if
  if temp = "Save A Copy..." then
    answer "HyperCard has already saved all changes to your "&Â
    "work.  Do you wish to save an additional copy of this lesson?"Â
    with "Copy" or "Cancel"
    if it is "Cancel" then exit domenu
  end if
  if temp = "New Button" then
    if tempTarget <> "Add Definition" then
      answer "This option creates a completely blank HyperCard button "&Â
      "(requires scripting knowledge).  To add "&Â
      "a sound, animation or other Lesson Writer button, "&Â
      "choose the desired option from the MusicExtras menu."Â
      with "Continue" or "Cancel"
      if it is "Cancel" then exit domenu
    end if
  end if
  if temp = "New Field" then
    if tempTarget <> "Add Definition" then
      answer "This option creates a completely blank HyperCard field "&Â
      "(requires scripting knowledge).  Do you wish to ..."Â
      with "Continue" or "Cancel"
      if it is "Cancel" then exit domenu
    end if
  end if
  if temp = "New Stack..." then
    answer "Do you wish to create a new HyperCard stack or a new Lesson Writer lesson?" Â
    with "Cancel" or "New HC Stack" or "New Lesson"
    if it is "Cancel" then exit domenu
    if it is "New Lesson" then
      domenu "New Lesson..."
      exit domenu
    end if
  end if
  if temp = "New Card" then
    answer "Do you wish to create a completely new card (requires "&Â
    "scripting knowledge) or add a new Lesson Writer card?" Â
    with "Cancel" or "New Card" or "LW Card"
    if it is "Cancel" then exit domenu
    if it is "LW Card" then
      domenu "Add Card..."
      exit domenu
    end if
  end if
  if temp = "New Background" then
    answer "Do you wish to create a completely new background ("&Â
    "requires scripting knowledge) or add a new Lesson Writer card?" Â
    with "Cancel" or "New BkGnd" or "LW Card"
    if it is "Cancel" then exit domenu
    if it is "LW Card" then
      domenu "Add Card..."
      exit domenu
    end if
  end if
  --if temp = "Open Stack..." then
  --answer "Do you wish to open a HyperCard stack or edit a Lesson Writer lesson?" Â
  --with "Cancel" or "HC Stack" or "Edit Lesson"
  --if it is "Cancel" then exit domenu
  --if it is "Edit Lesson" then
  --  domenu "Open Lesson..."
  --  exit domenu
  --end if
  --end if
  if (temp is "Home") then
    gocontents
    exit domenu
  end if
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7585" Â
  then
    if (temp="First") then exit domenu
    if (temp="Last") then exit domenu
    if (temp="Next") then exit domenu
    if (temp="Prev") then exit domenu
    if (temp="Home") then exit domenu
    if (temp="Help") then exit domenu
    if (temp="Back") then exit domenu
    if (temp="Recent") then exit domenu
    if (temp="Find...") then exit domenu
    if (temp="Message") then exit domenu
  end if
  if temp="Delete Card" then
    answer "Do you wish to delete this card?"with "OK"or "Cancel"
    if it="Cancel" then exit domenu
    else
      global pathlist,PathPtr,PathCount
      if PathPtr = PathCount then
        put the short id of next card into item PathCount of PathList
      else
        put item (PathPtr+1) to (PathCount) of PathList into T
        put T into item PathPtr to PathCount of PathList
        subtract 1 from PathCount
      end if
    end if
  end if
  
  
  if temp="Cut Card" then
    global pathlist,PathPtr,PathCount
    if PathPtr = PathCount then
      put the short id of next card into item PathCount of PathList
    else
      put item (PathPtr+1) to (PathCount) of PathList into T
      put T into item PathPtr to PathCount of PathList
      subtract 1 from PathCount
    end if
  end if
  
  --if temp="Paste Card" then
  --  global pathlist,PathPtr,PathCount
  --  if PathPtr = PathCount then
  --    add 1 to pathCount
  --    add 1 to pathPtr
  --    --put the short id of (the card being pasted) into Â
  --    --item PathCount of PathList
  --  else
  --    put item (PathPtr+1) to (PathCount) of PathList into T
  --    put T into item (PathPtr+2) to (PathCount+1) of PathList
  --    add 1 to pathCount
  --    add 1 to pathPtr
  --    --put the short id of (the card being pasted) into Â
  --    --item PathPtr of PathList
  --  end if
  --end if
  
  
  set lockrecent to true
  if temp="All Notes Off" then
    AllNotesOff
    exit domenu
  end if
  if temp="About This Stack" then
    global SoundSource
    set lockmessages to true
    hide message
    visual effect dissolve slow
    if the number of this cd<>1 then
      go cd 1
      show Cd button "Go Back"
      show Cd field "Go Back"
    end if
    set lockmessages to false
    Set the cursor to 4
    if SoundSource="MIDI" then MIDIMacPlay "*Entertainer","MIDI",0,40
    else MIDIMacPlay "*MacEntertainer",2,0,90,7
    set the cursor to hand
    exit domenu
  end if
  if temp="  MIDI" then
    global SoundSource
    put "MIDI"into SoundSource
    put "MIDI"into cd field "Sound Source"of cd 1
    Menu "Modify",227,2,True,18
    Menu "Modify",227,3,True,32
    exit domenu
  end if
  if temp="  Macintosh" then
    global SoundSource
    put "Macintosh"into SoundSource
    put "Macintosh"into cd field "Sound Source"of cd 1
    Menu "Modify",227,2,True,32
    Menu "Modify",227,3,True,18
    exit domenu
  end if
  if temp="Sound Effects" then
    global SoundEffects
    put Not SoundEffects into SoundEffects
    If Not SoundEffects then
      Menu "Modify",227,5,True,32
      put "False"into Cd Field "Sound Effects"of cd "Title Card"
    end if
    If SoundEffects then
      Menu "Modify",227,5,True,18
      put "True"into Cd Field "Sound Effects"of cd "Title Card"
    end if
    exit domenu
  end if
  pass domenu
end domenu
on AllNotesOff
  set the cursor to watch
  put the visible of message into oldvis
  put the message into oldmes
  put "Click the mouse when all notes are off. - 0"
  repeat until the mouseclick
    MIDIMacPlay "*All Notes Off","MIDI",0,120
    add 1 to last word of message
  end repeat
  put oldmes
  set the visible of message to oldvis
end AllNotesOff
on LogOpenCard
  global SLog,reviewmode
  if ReviewMode = "TRUE" then exit LogOpenCard
  Put " "&the long time&" OpenCard #"&the number of this card&","Â
  &Quote&(the short name of this card)&Quote&return after SLog
end LogOpenCard
On LogAnswer QType,Crct,InCrct,w,p --w=weight, p=prompt
  global TimerOff,CardDone,PathPtr,PathCount,Â
  NumQRight,NumQWrong,WtAdjRight,WtAdjWrong,Â
  Slog,LWScore,LWAnswer,Â
  CardAnswers,CardScores,WrongCards,reviewmode
  put true into TimerOff
  if ReviewMode = "TRUE" then exit LogAnswer
  if PathPtr < PathCount then exit LogAnswer
  If line (the number of this cd)of CardDone="TRUE" then exit LogAnswer
  If line (the number of this cd)of CardDone="OK" then
    If InCrct>0 then put "Wrong"into LWAnswer  --Right/Wrong
    else put "Right" into LWAnswer
    put "TRUE"into line (the number of this cd)of CardDone
    exit LogAnswer
  end if
  put "TRUE"into line (the number of this cd)of CardDone
  if NumQRight="" then put 0 into NumQRight
  if NumQWrong="" then put 0 into NumQWrong
  if WtAdjRight="" then put 0 into WtAdjRight
  if WtAdjWrong="" then put 0 into WtAdjWrong
  if (w="")or ((W<0)or(W>100)) then put 1 into w
  if QType="MC" then put "Multiple Choice"into QType
  if QType="MT" then put "Matching"into QType
  if QType="TF" then put "True-False"into QType
  Put " "&the long time&" "&QType&"/"after SLog
  Put "Right="&Crct&"/Wrong="&InCrct after SLog
  if p<>"" then put "/"&p&Return after SLog
  else put Return after SLog
  Add Crct to NumQRight
  Add (w*Crct)to WtAdjRight
  Add InCrct to NumQWrong
  Add (w*InCrct)to WtAdjWrong
  If InCrct>0 then
    put "Wrong"into LWAnswer
    put the number of items in WrongCards into TWC
    put the short id of this cd into item (TWC+1)of WrongCards
  else put "Right"into LWAnswer
  put LWAnswer into line (the number of this cd)of CardAnswers
  If WtAdjRight+WtAdjWrong>0 then
    put WtAdjRight/(WtAdjRight+WtAdjWrong)*100 into LWScore
  else put 0 into LWScore
  put LWScore into line (the number of this cd)of CardScores
end LogAnswer
on DisableMenu
  set the cursor to watch
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" then
    repeat with x=1 to 17
      MENU "Modify", 225,x,False
    end repeat
  end if
  repeat with x=1 to 9
    MENU "Modify", 227,x,False
  end repeat
end DisableMenu
on EnableMenu
  set the cursor to watch
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" then
    repeat with x=1 to 17
      MENU "Modify", 225,x,TRUE
    end repeat
    MENU "Modify", 225,3,False
    MENU "Modify", 225,6,False
    MENU "Modify", 225,10,False
    MENU "Modify", 225,13,False
    --MENU "Modify", 225,16,False
  end if
  repeat with x=1 to 9
    MENU "Modify", 227,x,True
  end repeat
  MENU "Modify", 227,1,False
  MENU "Modify", 227,4,False
  MENU "Modify", 227,6,False
  MENU "Modify", 227,8,False
  global SoundSource
  if SoundSource="MIDI" then
    Menu "Modify",227,2,True,18 --checkmark
    Menu "Modify",227,3,True,32
    put "MIDI"into last word of cd field "Sound Source"of cd "Title Card"
  else
    Menu "Modify",227,3,True,18 --checkmarck
    Menu "Modify",227,2,True,32
    put "Macintosh"into last word of cd field "Sound Source"of cd "Title Card"
  end if
  global SoundEffects
  if SoundEffects="TRUE" then Menu "Modify",227,5,True,18
  else Menu "Modify",227,5,True,32
end EnableMenu
On InstallMenu
  put the name of this cd into temp
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" then
    Menu "Add","MusicExtras",225,Â
    "New Lesson...;"&Â
    "Open Lesson...;--;"&Â
    "Add Card...;"&Â
    "Delete Card;--;"&Â
    "Add Sounds...;"&Â
    "Add Graphics...;"&Â
    "Add Multimedia...;--;"&Â
    "Branching Options;"&Â
    "Random Options;--;"&Â
    "Music Utilities"
    if the result<>"" then put the result
  end if
  Menu "Add","MusicOptions",227,Â
  "Play Through;  MIDI;  Macintosh;--;"&Â
  "Sound Effects;--;"&Â
  "All Notes Off;--;"&Â
  "About This Stack"
  if the result<>"" then put the result
  disablemenu
  enablemenu
end InstallMenu
on UninstallMenu
  If (the icon of cd button "EditingFlag"of cd "Title Card")="7584" then
    Menu "Clear",225
    if the result<>"" then put the result
  end if
  Menu "Clear",227
  if the result<>"" then put the result
end UninstallMenu
on ClosePaint
  If message="Press return to stop drawing." then
    put""
    hide message
    reset paint
    hide tool window
    hide pattern window
    choose browse tool
    exit ClosePaint
  end if
  if the tool="browse tool" then exit ClosePaint
  reset paint
  hide tool window
  hide pattern window
  choose browse tool
end ClosePaint
on RandomizeCards
  put "Preparing lesson - One moment please."
  set the cursor to watch
  put""into TempRndCds
  repeat with a=1 to number of lines in bg field "Random Cards"of cd "Title Card"
    put""into Srce
    put""into Dest
    put""into RndEntry
    put""into RndExit
    put line a of bg field "Random Cards"of cd "Title Card"into Srce
    put word 1 of Srce into RndEntry
    put""into word 1 of Srce
    put last word of Srce into RndExit
    put""into last word of Srce
    put the number of words in Srce into temp
    repeat with x=0 to (temp-1)
      put random (temp-x)into R
      put (word R of Srce&" ")into word (x+1)of Dest
      put""into word R of Srce
    end repeat
    put RndEntry&&Dest&RndExit into Dest
    repeat with x=2 to ((number of words in Dest)-1)
      put (word (x-1)of Dest)&","&(word (x+1)of Dest)into Â
      bg field "Path"of cd id (word x of Dest)
    end repeat
    put (word 2 of Dest)into Â
    item 2 of bg field "Path"of cd id (RndEntry)
    put (word ((number of words in Dest)-1)of Dest)into Â
    item 1 of bg field "Path"of cd id (RndExit)
    put Dest&Return after TempRndCds
  end repeat
  put TempRndCds into bg field "Random Cards"of cd "Title Card"
  put""
  hide message
end RandomizeCards


%%%%%%%%%%%%% Background 1 %%%%%%%%%%%%%
 Name = Title Card, ID = 14161
 Cards with this background:
   Card 'Title Card', ID '14826'
This background has no script.
%%%%%%%%%%%%% Bg 1, Fld 1 %%%%%%%%%%%%%
 Name = Path, Num = 1, ID = 6, Rect = 465,262,505,276
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 1, Fld 2 %%%%%%%%%%%%%
 Name = Title, Num = 2, ID = 9, Rect = 11,51,502,118
 Style = transparent, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 32
 TextSize = 24, TextStyle = bold,outline,shadow
 FIELD CONTENTS:
"Title"
This field has no script.
%%%%%%%%%%%%% Bg 1, Fld 3 %%%%%%%%%%%%%
 Name = Citation, Num = 3, ID = 10, Rect = 11,117,502,224
 Style = transparent, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 18
 TextSize = 14, TextStyle = bold
 FIELD CONTENTS:
"
by

Author"
This field has no script.
%%%%%%%%%%%%% Bg 1, Fld 4 %%%%%%%%%%%%%
 Name = Random Cards, Num = 4, ID = 11, Rect = 7,31,506,260
 Style = scrolling, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
 FIELD SCRIPT:
on mouseup
  send mouseup to cd btn "Show Random"
end mouseup
%%%%%%%%%%%%% Bg 1, Fld 5 %%%%%%%%%%%%%
 Name = BRANCH, Num = 5, ID = 14, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Background 2 %%%%%%%%%%%%%
 Name = bkgnd id 3781, ID = 3781
 Cards with this background:
   Card 'Text 2', ID '2751'
   Card 'Text 2', ID '3320'
   Card 'Text 2', ID '3433'
   Card 'Text 2', ID '4150'
   Card 'Text 2', ID '4652'
   Card 'Text 2', ID '5357'
   Card 'Text 2', ID '5558'
   Card 'Text 2', ID '5800'
BACKGROUND SCRIPT:
on CheckThisCard
  Send mouseup to bg button "Next Card"
end CheckThisCard
on openCard
  hide bg field "Instructions"
  put "(" & the number of this card & ")" into field "page"
  LogOpenCard
  openTimedCard
end openCard
on closeCard
  hide bg field "Instructions"
  repeat with x = 1 to number of cd fields
    hide cd field x
  end repeat
  repeat with x = 3 to number of cd buttons
    set the hilight of cd button x to false
  end repeat
  global TimerOff
  put TRUE into TimerOff
end closecard
on LockIt
  hide bg field "Instructions"
  hide bg btn "Instructions"
  repeat with x = 1 to number of cd fields
    set the locktext of cd field x to true
  end repeat
  set the locktext of bg field "Title Field" to true
  set the locktext of bg field "Text" to true
  set the locktext of bg field "Name" to true
  hide bg button "Add Definition"
  hide bg button "Time Limit"
end LockIt
on UnlockIt
  show bg btn "Instructions"
  repeat with x = 1 to number of cd fields
    set the locktext of cd field x to false
  end repeat
  set the locktext of bg field "Title Field" to false
  set the locktext of bg field "Text" to false
  set the locktext of bg field "Name" to false
  show bg button "Add Definition"
  show bg button "Time Limit"
end UnlockIt

%%%%%%%%%%%%% Bg 2, Btn 1 %%%%%%%%%%%%%
 Name = Prev Card, Num = 1, ID = 6, Rect = 446,313,476,342
 Style = transparent, Visible = true, Icon = 902
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set lockrecent to true
  visual effect dissolve
  if (the short name of prev card is "Score Report") Â
  or (the short name of prev card is "Last in Section") Â
  then GoContents else GoPrev
end mouseUp

%%%%%%%%%%%%% Bg 2, Btn 2 %%%%%%%%%%%%%
 Name = Next Card, Num = 2, ID = 7, Rect = 482,313,512,342
 Style = transparent, Visible = true, Icon = 26425
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set lockrecent to true
  visual effect dissolve
  GoNext
end mouseUp


%%%%%%%%%%%%% Bg 2, Btn 3 %%%%%%%%%%%%%
 Name = Contents, Num = 3, ID = 8, Rect = 464,284,494,313
 Style = transparent, Visible = true, Icon = 3835
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GoContents
end mouseUp

%%%%%%%%%%%%% Bg 2, Btn 4 %%%%%%%%%%%%%
 Name = Time Limit, Num = 4, ID = 9, Rect = 122,288,193,303
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "How many seconds should the student be allowed?  "&Â
  "(0 to 30000)"&Return&Return&"Zero = no time limit."Â
  with 0
  if it is empty then exit mouseup
  if it is "Cancel" then exit mouseup
  if (it < 0) or (it > 30000) then
    beep
    Answer "The number of seconds must be between 0 and 30000,"&Â
    " inclusive."& Return&Return&"Please try again."
    exit mouseup
  end if
  global timelimit
  put it into timelimit
  put timelimit into bg field "Time Limit"
end mouseup

%%%%%%%%%%%%% Bg 2, Btn 5 %%%%%%%%%%%%%
 Name = Add Definition, Num = 5, ID = 10, Rect = 48,288,119,303
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  put the number of card buttons into n
  Ask "This button allows you to enter definitions or "&Â
  "annotations to the main text."&return&return&Â
  "Please enter the word to be defined"
  if it is empty or it is "Cancel" then exit mouseup
  put it into name
  set the cursor to watch
  repeat with x = 1 to number of cd flds
    if the short name of cd field x = name then
      beep
      answer "That name is already in use - please use another."&Â
      Return&Return&name with "Cancel"
      exit mouseup
    end if
  end repeat
  repeat with x = 1 to number of cd btns
    if the short name of cd btn x = name then
      beep
      answer "That name is already in use - please use another."&Â
      Return&Return&name with "Cancel"
      exit mouseup
    end if
  end repeat
  
  DoMenu "New Field"
  set the name of last card field to Name
  set the rect of last card field to 71,249,441,301
  set the style of last card field to "Shadow"
  set the textsize of last card field to 10
  set the textheight of last card field to 12
  
  put "on mousedown"&return into Script1
  put "if the optionkey is "&Quote&Down&Quote&" then"&return after Script1
  put "repeat until the mouse is "&Quote&up&Quote&return after Script1
  put "set the loc of me to the mouseloc"&return after Script1
  put "end repeat"&return after Script1
  put "exit to HyperCard"&return after Script1
  put "end if"&return after Script1
  put "end mousedown"&return after Script1
  put "on mouseup"&return after Script1
  put "put the short name of me into y"&return after Script1
  put "repeat with x = 1 to number of cd fields"&return after Script1
  put "if the short name of cd field x <> y then hide cd field x"&return after Script1
  put "end repeat"&return after Script1
  put "put the number of me into y"&return after Script1
  put "repeat with x = 3 to number of cd btns"&return after Script1
  put "if x <> y then set the hilight of cd btn x to false"&return after Script1
  put "end repeat"&return after Script1
  put "If the commandkey is "&Quote&Down&Quote&" then"&Return after Script1
  put "set the cursor to watch"&Return after Script1
  put "lock screen"&Return after Script1
  put "put the userlevel into temp"&Return after Script1
  put "set the userlevel to 5"&Return after Script1
  put "show me"&Return after Script1
  put "show cd field the short name of me"&Return after Script1
  put "choose field tool"&Return after Script1
  put "select cd field the short name of me"&Return after Script1
  put "domenu "&Quote&"Clear Field"&Quote&Return after Script1
  put "choose button tool"&Return after Script1
  put "select me"&Return after Script1
  put "domenu "&Quote&"Clear Button"&Quote&Return after Script1
  put "choose browse tool"&Return after Script1
  put "set the userlevel to temp"&Return after Script1
  put "exit mouseup"&Return after Script1
  put "end if"&Return after Script1
  --put "on mouseup"&return into Script1
  put "set the hilite of me to (Not the hilite of me)"&returnÂ
  after Script1
  put "set the visible of card field id "&Quote&Â
  the id of last cd field&quote&"to not (the visible of card field id"Â
  &quote&the id of last cd field&quote&")"&return after Script1
  put "end mouseup"&return after Script1
  
  DoMenu"New Button"
  set the name of last card button to Name
  set the script of last card button to script1
  set the rect of last cd button to 0,0,100,16
  set the loc of last card button to (n-2)*105+87,314
  set the autohilite of last card button to false
  set the textfont of last card button to "Geneva"
  set the textsize of last card button to 9
  set the textstyle of last card button to "plain"
  set the hilite of last card button to true
  
  Put Â
  "The user will click on the button to the right and this window "&Â
  "will appear.  When the user clicks the button again, the window "&Â
  "will disappear."&return&return&Â
  "Enter your definition here then click the "Â
  &numtochar(34)&name&numtochar(34)&" button." Â
  after last card field
  choose browse tool
  Answer "Hold down the option key to drag the button "&Â
  "to the desired location." with "OK"
  select text of card field name
  
end mouseUp

%%%%%%%%%%%%% Bg 2, Btn 6 %%%%%%%%%%%%%
 Name = Check, Num = 6, ID = 11, Rect = 482,313,512,342
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Send Mouseup to bg button "Next Card"
end mouseUp


%%%%%%%%%%%%% Bg 2, Btn 7 %%%%%%%%%%%%%
 Name = Instructions, Num = 7, ID = 16, Rect = 195,288,266,303
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the visible of bg field "Instructions" to not (the visible of bg field "Instructions")
end mouseUp

%%%%%%%%%%%%% Bg 2, Fld 1 %%%%%%%%%%%%%
 Name = page, Num = 1, ID = 1, Rect = 228,324,280,339
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = bold
 FIELD CONTENTS:
"(2)"
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 2 %%%%%%%%%%%%%
 Name = Name, Num = 2, ID = 2, Rect = 32,324,203,339
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"Name"
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 3 %%%%%%%%%%%%%
 Name = Text, Num = 3, ID = 3, Rect = 45,71,465,282
 Style = transparent, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 18
 TextSize = 14, TextStyle = bold
 FIELD CONTENTS:
"Type text here.




"
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 4 %%%%%%%%%%%%%
 Name = Title Field, Num = 4, ID = 4, Rect = 45,31,465,70
 Style = transparent, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 18
 TextSize = 14, TextStyle = bold
 FIELD CONTENTS:
"Title"
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 5 %%%%%%%%%%%%%
 Name = Time Limit, Num = 5, ID = 5, Rect = 465,246,505,260
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 6 %%%%%%%%%%%%%
 Name = Path, Num = 6, ID = 14, Rect = 465,262,505,276
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 2, Fld 7 %%%%%%%%%%%%%
 Name = Instructions, Num = 7, ID = 15, Rect = 45,71,465,282
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 10, TextStyle = plain
 FIELD CONTENTS:
"INSTRUCTIONS:

When students come to this card they will read the information presented here, listen to any musical examples and look at any graphic illustrations.  When they are finished they will use the arrow keys at the bottom right of the screen to move ahead to the next screen or go back to a previous screen.  The hand pointing backwards returns the student to the title screen of the lesson or to the last TABLE OF CONTENTS card which was used (if any).  Occassionally students will see words at the bottom of the screen.  They may click on these for an additional or parenthetical explanation of those terms.  This screen may contain a time limit which may be set by the teacher.  When the teacher sets a time limit an hourglass appears and indicates the remaining time.  When time has expired the computer will advance to the next card.  

To prepare the card for student use do the following:

¥ Type the title in the field at the top of this card
¥ Type the desired text into this area.
¥ Add graphics and sounds using the options in the MusicExtras menu.
¥ Add definitions if desired
¥ Set at time limit if desired.  The default time limit is zero which the computer interprets as meaning that the student may stay on this screen for as long as desired."
 FIELD SCRIPT:
on mouseup
  send mouseup to bg btn "Instructions"
end mouseup
%%%%%%%%%%%%% Bg 2, Fld 8 %%%%%%%%%%%%%
 Name = BRANCH, Num = 8, ID = 17, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Background 3 %%%%%%%%%%%%%
 Name = bkgnd id 30803, ID = 30803
 Cards with this background:
   Card 'True False', ID '5984'
   Card 'True False', ID '6344'
   Card 'True False', ID '6625'
   Card 'True False', ID '6903'
BACKGROUND SCRIPT:
on CheckThisCard
  LogAnswer "TF",0,1,(bg field "Weight"),"Time expired"
end CheckThisCard
on openCard
  set the visible of bg btn "Prev Card" to the hilight of cd btn "Previous Arrow"
  put "(" & the number of this card & ")" into field "page"
  hide bg field "TRUE"
  hide bg field "FALSE"
  LogOpenCard
  OpenTimedCard
end openCard
on CloseCard
  show bg btn "Prev Card"
  If the visible of cd btn "Score Once" then
    send mouseup to bg btn "Options"
  end if
  global TimerOff
  put TRUE into TimerOff
  hide bg field "TRUE"
  hide bg field "FALSE"
end CloseCard
On LockIt
  set the locktext of bg field "Question" to true
  set the locktext of bg field "True" to true
  set the locktext of bg field "False" to true
  set the locktext of bg field "Name" to true
  hide bg button "Save Correct"
  hide bg button "Time Limit"
  hide bg button "Weight Prob."
  hide bg button "Instructions"
  hide bg field "Instructions"
  hide bg btn "Options"
  hide cd btn "Previous Arrow"
  hide cd btn "Score Once"
  hide cd btn "Hide Options"
End LockIt

on UnLockIt
  set the locktext of bg field "Question" to false
  set the locktext of bg field "True" to false
  set the locktext of bg field "False" to false
  set the locktext of bg field "Name" to false
  show bg button "Save Correct"
  show bg button "Time Limit"
  show bg button "Weight Prob."
  show bg button "Instructions"
  show bg btn "Options"
end UnLockIt
%%%%%%%%%%%%% Bg 3, Btn 1 %%%%%%%%%%%%%
 Name = Next Card, Num = 1, ID = 15, Rect = 482,313,512,342
 Style = transparent, Visible = true, Icon = 26425
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  GoNext
end mouseUp


%%%%%%%%%%%%% Bg 3, Btn 2 %%%%%%%%%%%%%
 Name = Prev Card, Num = 2, ID = 16, Rect = 446,313,476,342
 Style = transparent, Visible = true, Icon = 902
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  if (the short name of prev card is "Score Report") Â
  or (the short name of prev card is "Last in Section") Â
  then GoContents else GoPrev
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 3 %%%%%%%%%%%%%
 Name = Contents, Num = 3, ID = 17, Rect = 464,281,494,310
 Style = transparent, Visible = true, Icon = 3835
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GoContents
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 4 %%%%%%%%%%%%%
 Name = Weight Prob., Num = 4, ID = 19, Rect = 439,53,510,68
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "Please enter the desired question weight. (1-1000)" with 1
  if it is empty then exit mouseup
  if it is "Cancel" then exit mouseup
  if (it < 1) or (it > 1000) then
    beep
    Answer "The question weight must be between 1 and 1000,"&Â
    " inclusive."& Return&Return&"Please try again."
    exit mouseup
  end if
  put it into bg field "Weight"
end mouseup

%%%%%%%%%%%%% Bg 3, Btn 5 %%%%%%%%%%%%%
 Name = Time Limit, Num = 5, ID = 20, Rect = 439,37,510,52
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "How many seconds should the student be allowed?  "&Â
  "(0 to 30000)"&Return&Return&"Zero = no time limit."Â
  with 0
  if it is empty then exit mouseup
  if it is "Cancel" then exit mouseup
  if (it < 0) or (it > 30000) then
    beep
    Answer "The number of seconds must be between 0 and 30000,"&Â
    " inclusive."& Return&Return&"Please try again."
    exit mouseup
  end if
  global timelimit
  put it into timelimit
  put timelimit into bg field "Time Limit"
end mouseup

%%%%%%%%%%%%% Bg 3, Btn 6 %%%%%%%%%%%%%
 Name = Save Correct, Num = 6, ID = 21, Rect = 439,21,510,36
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Answer "Please indicate the correct response?  "with "TRUE" or "FALSE" or "CANCEL"
  if it is "CANCEL" then exit mouseup
  put it into bg field "Correct Answer"
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 7 %%%%%%%%%%%%%
 Name = TRUE, Num = 7, ID = 22, Rect = 112,185,164,233
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  Set the hilight of me to TRUE
  put the short name of me into CName
  set the visible of bg field CName to TRUE
  set the visible of bg field (Not CNAME) to FALSE
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "TF",R,W,(bg field "Weight"),"Answer="&(the short name of me)
  wait until the sound is "done"
  Set the hilight of me to FALSE
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 8 %%%%%%%%%%%%%
 Name = FALSE, Num = 8, ID = 23, Rect = 259,185,311,233
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  Set the hilight of me to TRUE
  put the short name of me into CName
  set the visible of bg field CName to TRUE
  set the visible of bg field (Not CNAME) to FALSE
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "TF",R,W,(bg field "Weight"),"Answer="&(the short name of me)
  wait until the sound is "done"
  Set the hilight of me to FALSE
end mouseUp

on mouseUp
  set the visible Â
  of bg field "Answer 2" to not Â
  (the visible of bg field "Answer 2")
  if (the short name of me) = (bg field "Correct Answer") then
    put 1 into R
    put 0 into W
  else
    put 0 into R
    put 1 into W
  end if
  LogAnswer "MC",R,W,(bg field "Weight"),"Student guess = "&(the short name of me)
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 9 %%%%%%%%%%%%%
 Name = Instructions, Num = 9, ID = 33, Rect = 439,69,510,84
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the visible of bg field "Instructions" to not (the visible of bg field "Instructions")
end mouseUp

%%%%%%%%%%%%% Bg 3, Btn 10 %%%%%%%%%%%%%
 Name = Options, Num = 10, ID = 40, Rect = 439,85,510,100
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  If the visible of cd btn "Score Once" then
    hide cd btn "Score Once"
    hide cd btn "Previous Arrow"
    hide cd btn "Hide Options"
    put the rect of me into t
    put (item 2 of t) + 15 into item 4 of t
    set the rect of me to t
    set the showname of me to true
  else
    set the showname of me to false
    put the rect of me into t
    put (item 2 of t) + 54 into item 4 of t
    set the rect of me to t
    show cd btn "Score Once"
    show cd btn "Previous Arrow"
    show cd btn "Hide Options"
  end if
end mouseUp

%%%%%%%%%%%%% Bg 3, Fld 1 %%%%%%%%%%%%%
 Name = page, Num = 1, ID = 1, Rect = 228,324,280,339
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 10, TextStyle = bold
 FIELD CONTENTS:
"(10)"
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 2 %%%%%%%%%%%%%
 Name = Correct Answer, Num = 2, ID = 2, Rect = 465,261,505,275
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 3 %%%%%%%%%%%%%
 Name = Time Limit, Num = 3, ID = 3, Rect = 465,246,505,260
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 4 %%%%%%%%%%%%%
 Name = Weight, Num = 4, ID = 4, Rect = 465,231,505,245
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"1"
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 5 %%%%%%%%%%%%%
 Name = Question, Num = 5, ID = 5, Rect = 14,21,436,166
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Question"
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 6 %%%%%%%%%%%%%
 Name = Name, Num = 6, ID = 14, Rect = 32,324,203,339
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"Name"
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 7 %%%%%%%%%%%%%
 Name = TRUE, Num = 7, ID = 27, Rect = 14,252,436,301
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Type the response which the student will see when true is chosen."
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "TRUE"
end mouseUp

%%%%%%%%%%%%% Bg 3, Fld 8 %%%%%%%%%%%%%
 Name = FALSE, Num = 8, ID = 28, Rect = 14,252,436,301
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Type the response which the student will see when false is chosen."
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "False"
end mouseUp

%%%%%%%%%%%%% Bg 3, Fld 9 %%%%%%%%%%%%%
 Name = Instructions, Num = 9, ID = 34, Rect = 14,21,436,166
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
 FIELD CONTENTS:
"When students come to this card they will read the statement found in this area of the screen and indicate whether they believe it to be true or false by clicking the buttons below.  A feedback field will appear indicating whether or not their guess was correct and why.  This card may contain a time limit which will be indicated by an hourglass in the upper right corner of the screen.  If the time runs out without the student having made a response, the question will be scored as incorrect.

To Prepare this card for student use do the following:

¥ Type the True/False statement into this field.
¥ Click the TRUE button below and fill in the feedback which students should 
   see when they click on TRUE.
¥ Click the FALSE button below and fill in the feedback which students should 
   see when they click on FALSE.
¥ IMPORTANT:  Press the "Save Correct" button to inform the computer 
   whether TRUE or FALSE is the correct response.  Without this information the
   computer will be unable to keep score corrrectly (even though it might have 
   just given exceedingly helpful feedback.
¥ Set a time limit if desired.  The default is no time limit.
¥ Set a problem weight if desired.  If this question is more important than others
   which the student will answer, give it a greater weight in the score.  All
   questions have a default weight of one."
 FIELD SCRIPT:
on mouseUp
  set the visible of bg field "Instructions" to not (the visible of bg field "Instructions")
end mouseUp

%%%%%%%%%%%%% Bg 3, Fld 10 %%%%%%%%%%%%%
 Name = Path, Num = 10, ID = 36, Rect = 465,262,505,276
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 3, Fld 11 %%%%%%%%%%%%%
 Name = BRANCH, Num = 11, ID = 37, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Background 4 %%%%%%%%%%%%%
 Name = Question, ID = 10751
 Cards with this background:
   Card 'Multiple Choice', ID '7664'
   Card 'Multiple Choice', ID '7759'
   Card 'Multiple Choice', ID '8163'
BACKGROUND SCRIPT:
on CheckThisCard
  LogAnswer "MC",0,1,(bg field "Weight"),"Time expired"
end CheckThisCard
on openCard
  set the visible of bg btn "Prev Card" to the hilight of cd btn "Previous Arrow"
  put "(" & the number of this card & ")" into field "page"
  repeat with x = 1 to 4
    set the visible of bg field ("Answer"&&x) to true
  end repeat
  set the visible of bg field ("Instructions") to false
  LogOpenCard
  OpenTimedCard
end openCard
on CloseCard
  show bg btn "Prev Card"
  If the visible of cd btn "Score Once" then
    send mouseup to bg btn "Options"
  end if
  repeat with x = 1 to 4
    set the visible of bg field ("Answer"&&x) to true
  end repeat
  set the visible of bg field ("Instructions") to false
  global TimerOff
  put TRUE into TimerOff
end CloseCard
on LockIt
  set the locktext of bg field "Question" to true
  set the locktext of bg field "Answer 1" to true
  set the locktext of bg field "Feedback 1" to true
  set the locktext of bg field "Answer 2" to true
  set the locktext of bg field "Feedback 2" to true
  set the locktext of bg field "Answer 3" to true
  set the locktext of bg field "Feedback 3" to true
  set the locktext of bg field "Answer 4" to true
  set the locktext of bg field "Feedback 4" to true
  set the locktext of bg field "Name" to true
  hide bg button "Save Correct"
  hide bg button "Time Limit"
  hide bg button "Weight Prob."
  hide bg button "Instructions"
  hide bg field "Instructions"
  hide bg btn "Options"
  hide cd btn "Previous Arrow"
  hide cd btn "Score Once"
  hide cd btn "Hide Options"
End LockIt

on UnLockIt
  set the locktext of bg field "Question" to false
  set the locktext of bg field "Answer 1" to false
  set the locktext of bg field "Feedback 1" to false
  set the locktext of bg field "Answer 2" to false
  set the locktext of bg field "Feedback 2" to false
  set the locktext of bg field "Answer 3" to false
  set the locktext of bg field "Feedback 3" to false
  set the locktext of bg field "Answer 4" to false
  set the locktext of bg field "Feedback 4" to false
  set the locktext of bg field "Name" to false
  show bg button "Save Correct"
  show bg button "Time Limit"
  show bg button "Weight Prob."
  show bg button "Instructions"
  show bg btn "Options"
end UnLockIt

%%%%%%%%%%%%% Bg 4, Btn 1 %%%%%%%%%%%%%
 Name = Next Card, Num = 1, ID = 19, Rect = 482,313,512,342
 Style = transparent, Visible = true, Icon = 26425
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  GoNext
end mouseUp


%%%%%%%%%%%%% Bg 4, Btn 2 %%%%%%%%%%%%%
 Name = Prev Card, Num = 2, ID = 20, Rect = 446,313,476,342
 Style = transparent, Visible = true, Icon = 902
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  if (the short name of prev card is "Score Report") Â
  or (the short name of prev card is "Last in Section") Â
  then GoContents else GoPrev
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 3 %%%%%%%%%%%%%
 Name = Contents, Num = 3, ID = 22, Rect = 464,281,494,310
 Style = transparent, Visible = true, Icon = 3835
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  GoContents
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 4 %%%%%%%%%%%%%
 Name = Weight Prob., Num = 4, ID = 29, Rect = 439,53,510,68
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "Please enter the desired question weight. (1-1000)" with 1
  if it is empty then exit mouseup
  if it is "Cancel" then exit mouseup
  if (it < 1) or (it > 1000) then
    beep
    Answer "The question weight must be between 1 and 1000,"&Â
    " inclusive."& Return&Return&"Please try again."
    exit mouseup
  end if
  put it into bg field "Weight"
end mouseup

%%%%%%%%%%%%% Bg 4, Btn 5 %%%%%%%%%%%%%
 Name = Time Limit, Num = 5, ID = 28, Rect = 439,37,510,52
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "How many seconds should the student be allowed?  "&Â
  "(0 to 30000)"&Return&Return&"Zero = no time limit."Â
  with 0
  if it is empty then exit mouseup
  if it is "Cancel" then exit mouseup
  if (it < 0) or (it > 30000) then
    beep
    Answer "The number of seconds must be between 0 and 30000,"&Â
    " inclusive."& Return&Return&"Please try again."
    exit mouseup
  end if
  global timelimit
  put it into timelimit
  put timelimit into bg field "Time Limit"
end mouseup
%%%%%%%%%%%%% Bg 4, Btn 6 %%%%%%%%%%%%%
 Name = Save Correct, Num = 6, ID = 25, Rect = 439,21,510,36
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put Dialog ("Please indicate the correct response?  "&Â
  "The computer will need this information to maintain student records.",Â
  "re1a.,rd1b.,rd1c.,rd1d.","","","") into temp
  put item 1 of line 1 of temp into bg field "Correct Answer"
  put the mouseclick into temp
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 7 %%%%%%%%%%%%%
 Name = a., Num = 7, ID = 41, Rect = 16,103,68,151
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  set the visible Â
  of bg field "Answer 1" to not Â
  (the visible of bg field "Answer 1")
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "MC",R,W,(bg field "Weight"),"Answer="&(the short name of me)
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 8 %%%%%%%%%%%%%
 Name = b., Num = 8, ID = 42, Rect = 17,157,69,205
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  set the visible Â
  of bg field "Answer 2" to not Â
  (the visible of bg field "Answer 2")
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "MC",R,W,(bg field "Weight"),"Answer="&(the short name of me)
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 9 %%%%%%%%%%%%%
 Name = c., Num = 9, ID = 43, Rect = 17,211,69,259
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  set the visible Â
  of bg field "Answer 3" to not Â
  (the visible of bg field "Answer 3")
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "MC",R,W,(bg field "Weight"),"Answer="&(the short name of me)
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 10 %%%%%%%%%%%%%
 Name = Instructions, Num = 10, ID = 48, Rect = 439,69,510,84
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the visible of bg field "Instructions" to not (the visible of bg field "Instructions")
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 11 %%%%%%%%%%%%%
 Name = d., Num = 11, ID = 50, Rect = 17,267,69,315
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SoundEffects
  if(SoundEffects<>TRUE)and(SoundEffects<>FALSE)then put FALSE into SoundEffects
  set the visible Â
  of bg field "Answer 4" to not Â
  (the visible of bg field "Answer 4")
  if (the short name of me) = (bg field "Correct Answer") then
    If SoundEffects then PlayRight
    put 1 into R
    put 0 into W
  else
    If SoundEffects then PlayWrong
    put 0 into R
    put 1 into W
  end if
  LogAnswer "MC",R,W,(bg field "Weight"),"Answer="&(the short name of me)
end mouseUp

%%%%%%%%%%%%% Bg 4, Btn 12 %%%%%%%%%%%%%
 Name = Options, Num = 12, ID = 55, Rect = 439,85,510,100
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  If the visible of cd btn "Score Once" then
    hide cd btn "Score Once"
    hide cd btn "Previous Arrow"
    hide cd btn "Hide Options"
    put the rect of me into t
    put (item 2 of t) + 15 into item 4 of t
    set the rect of me to t
    set the showname of me to true
  else
    set the showname of me to false
    put the rect of me into t
    put (item 2 of t) + 54 into item 4 of t
    set the rect of me to t
    show cd btn "Score Once"
    show cd btn "Previous Arrow"
    show cd btn "Hide Options"
  end if
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 1 %%%%%%%%%%%%%
 Name = page, Num = 1, ID = 18, Rect = 228,324,280,339
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 10, TextStyle = bold
 FIELD CONTENTS:
"(14)"
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 2 %%%%%%%%%%%%%
 Name = Correct Answer, Num = 2, ID = 21, Rect = 465,261,505,275
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 3 %%%%%%%%%%%%%
 Name = Time Limit, Num = 3, ID = 30, Rect = 465,246,505,260
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 4 %%%%%%%%%%%%%
 Name = Weight, Num = 4, ID = 31, Rect = 465,231,505,245
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 5 %%%%%%%%%%%%%
 Name = Question, Num = 5, ID = 32, Rect = 14,21,436,94
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Question"
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 6 %%%%%%%%%%%%%
 Name = Feedback 1, Num = 6, ID = 33, Rect = 79,103,459,152
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Feedback 1"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "a."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 7 %%%%%%%%%%%%%
 Name = Feedback 2, Num = 7, ID = 34, Rect = 79,157,459,206
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Feedback 2"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "b."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 8 %%%%%%%%%%%%%
 Name = Feedback 3, Num = 8, ID = 35, Rect = 79,211,459,260
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Feedback 3"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "c."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 9 %%%%%%%%%%%%%
 Name = Feedback 4, Num = 9, ID = 36, Rect = 79,267,459,316
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Feedback 4"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "d."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 10 %%%%%%%%%%%%%
 Name = Answer 1, Num = 10, ID = 37, Rect = 79,103,459,152
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Answer 1"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "a."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 11 %%%%%%%%%%%%%
 Name = Answer 2, Num = 11, ID = 38, Rect = 79,157,459,206
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Answer 2
"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "b."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 12 %%%%%%%%%%%%%
 Name = Answer 3, Num = 12, ID = 39, Rect = 79,211,459,260
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Answer 3"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "c."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 13 %%%%%%%%%%%%%
 Name = Answer 4, Num = 13, ID = 40, Rect = 79,267,459,316
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 14
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"Answer 4
"
 FIELD SCRIPT:
on mouseUp
  send mouseup to bg button "d."
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 14 %%%%%%%%%%%%%
 Name = Name, Num = 14, ID = 45, Rect = 32,324,203,339
 Style = shadow, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"Name"
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 15 %%%%%%%%%%%%%
 Name = Instructions, Num = 15, ID = 49, Rect = 14,21,436,94
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
 FIELD CONTENTS:
"Instructions

When students come to this screen they will read the question found here and click on the correct response below.  A field will appear indicating whether or not their response is correct and why.  The teacher may install a time limit on this screen.  If so an hour glass will appear in the upper right corner of the screen to mark the passage of time.  If time runs out before the student answers the question will be scored as incorrect.  

To prepare this card for student use do the following:

¥ Type the question into this area.
¥ Type the correct answer and each foil into the fields below.
¥ Click on each answer button (a., b., c.,d.)
¥ Type the feedback which the student should see when
   each corresponding answer is chosen
¥ Press the SAVE CORRECT button so the computer will be able
   to accurately keep score.
¥ Set a time limit for the question if desired.  The computer defaults to 
   no time limit.
¥ Set a weight for the problem if desired.  If this question is more important than
   others give it a greater weight.  The default weight is one."
 FIELD SCRIPT:
on mouseUp
  set the visible of bg field "Instructions" to not (the visible of bg field "Instructions")
end mouseUp

%%%%%%%%%%%%% Bg 4, Fld 16 %%%%%%%%%%%%%
 Name = Path, Num = 16, ID = 51, Rect = 465,262,505,276
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 4, Fld 17 %%%%%%%%%%%%%
 Name = BRANCH, Num = 17, ID = 52, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Background 5 %%%%%%%%%%%%%
 Name = Score Report, ID = 16883
 Cards with this background:
   Card 'Score Report', ID '37863'
This background has no script.
%%%%%%%%%%%%% Bg 5, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 3, Rect = 441,329,512,342
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Bg 5, Fld 1 %%%%%%%%%%%%%
 Name = Path, Num = 1, ID = 1, Rect = 465,262,505,276
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 5, Fld 2 %%%%%%%%%%%%%
 Name = BRANCH, Num = 2, ID = 2, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Background 6 %%%%%%%%%%%%%
 Name = Random Cards, ID = 13738
 Cards with this background:
   Card 'Random Cards', ID '14522'
BACKGROUND SCRIPT:
on HideNums XBgn,XEnd
  PUT trunc ((XBgn-1)/10)+1 INTO XBgnLn
  PUT trunc ((XEnd-1)/10)+1 INTO XEndLn
  if XBgnLn = XEndLn then --XBgn & XEnd are on same line --hilight XBgn to XEnd
    PUT LINE XBgn OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    PUT LINE XEnd OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    PUT ITEM 1 TO 2 OF XBgnRct INTO TRECT
    PUT ITEM 3 TO 4 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    PUT "Current Cell" INTO TBTN
    SET THE RECT OF CD BTN TBTN TO TRECT
    Show CD BTN TBTN
    SET THE HILIGHT OF CD BTN TBTN TO TRUE
    Set the style of cd btn Tbtn to Opaque
  end if
  If XBgnLn <> XEndLn then --XBgn and XEnd are on different lines
    --hilight XBgn to end of line
    PUT LINE XBgn OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    PUT LINE (XBgnLn*10) OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    PUT ITEM 1 TO 2 OF XBgnRct INTO TRECT
    PUT ITEM 3 TO 4 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    PUT "Current Cell" INTO TBTN
    SET THE RECT OF CD BTN TBTN TO TRECT
    Show CD BTN TBTN
    SET THE HILIGHT OF CD BTN TBTN TO TRUE
    Set the style of cd btn Tbtn to Opaque
    --     UNNEEDED CODE since HideNums will always
    --     hide to the end of the block.
    --hilight XEnd to start of line
    --PUT LINE XEnd OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    --PUT LINE (XEndLn-1)*10+1 OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    --PUT ITEM 1 TO 2 OF XBgnRct INTO ITEM 1 TO 2 OF TRECT
    --PUT ITEM 3 TO 5 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    --PUT "EndingCell" INTO TBTN
    --SET THE RECT OF CD BTN TBTN TO TRECT
    --Show CD BTN TBTN
    --SET THE HILIGHT OF CD BTN TBTN TO TRUE
    --Set the style of cd btn Tbtn to Opaque
    --hilight all lines between XBgn and XEnd
    If XBgnLn + 1 <> XEndLn then
      PUT LINE (XBgnLn)*10+1 OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
      PUT LINE (XEndLn)*10 OF CD FIELD "BTN RECT INDEX" INTO XEndRct
      PUT ITEM 1 TO 2 OF XBgnRct INTO ITEM 1 TO 2 OF TRECT
      PUT ITEM 3 TO 5 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
      PUT "Ending Cell" INTO TBTN
      SET THE RECT OF CD BTN TBTN TO TRECT
      Show CD BTN TBTN
      SET THE HILIGHT OF CD BTN TBTN TO TRUE
      Set the style of cd btn Tbtn to Opaque
    end if
  end if
end HideNums
on Black XBgn,XEnd
  if XBgn > XEnd then
    put XBgn into Tempx
    put XEnd into XBgn
    put Tempx into XEnd
  end if
  PUT trunc ((XBgn-1)/10)+1 INTO XBgnLn
  PUT trunc ((XEnd-1)/10)+1 INTO XEndLn
  if XBgnLn = XEndLn then --XBgn & XEnd are on same line --hilight XBgn to XEnd
    PUT LINE XBgn OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    PUT LINE XEnd OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    PUT ITEM 1 TO 2 OF XBgnRct INTO TRECT
    PUT ITEM 3 TO 4 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    add 1 to cd field "Rnd Object"
    PUT "R"&cd field "Rnd Object" INTO TBTN
    SET THE RECT OF CD BTN TBTN TO TRECT
    Show CD BTN TBTN
    SET THE HILIGHT OF CD BTN TBTN TO TRUE
  end if
  If XBgnLn <> XEndLn then --XBgn and XEnd are on different lines
    --hilight XBgn to end of line
    PUT LINE XBgn OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    PUT LINE (XBgnLn*10) OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    PUT ITEM 1 TO 2 OF XBgnRct INTO TRECT
    PUT ITEM 3 TO 4 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    add 1 to cd field "Rnd Object"
    PUT "R"&cd field "Rnd Object" INTO TBTN
    SET THE RECT OF CD BTN TBTN TO TRECT
    Show CD BTN TBTN
    SET THE HILIGHT OF CD BTN TBTN TO TRUE
    --hilight XEnd to start of line
    PUT LINE XEnd OF CD FIELD "BTN RECT INDEX" INTO XEndRct
    PUT LINE (XEndLn-1)*10+1 OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
    PUT ITEM 1 TO 2 OF XBgnRct INTO ITEM 1 TO 2 OF TRECT
    PUT ITEM 3 TO 5 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
    add 1 to cd field "Rnd Object"
    PUT "R"&cd field "Rnd Object" INTO TBTN
    SET THE RECT OF CD BTN TBTN TO TRECT
    Show CD BTN TBTN
    SET THE HILIGHT OF CD BTN TBTN TO TRUE
    --hilight all lines between XBgn and XEnd
    If XBgnLn + 1 <> XEndLn then
      PUT LINE (XBgnLn)*10+1 OF CD FIELD "BTN RECT INDEX" INTO XBgnRct
      PUT LINE (XEndLn-1)*10 OF CD FIELD "BTN RECT INDEX" INTO XEndRct
      PUT ITEM 1 TO 2 OF XBgnRct INTO ITEM 1 TO 2 OF TRECT
      PUT ITEM 3 TO 5 OF XEndRct INTO ITEM 3 TO 4 OF TRECT
      add 1 to cd field "Rnd Object"
      PUT "R"&cd field "Rnd Object" INTO TBTN
      SET THE RECT OF CD BTN TBTN TO TRECT
      Show CD BTN TBTN
      SET THE HILIGHT OF CD BTN TBTN TO TRUE
    end if
  end if
end Black
on RndBtn x
  if x > the number of cds then
    answer "There are only "&the number of cds&" cards." with "OK"
    exit RndBtn
  end if
  set lockmessages to true
  set lockrecent to true
  push cd
  go cd x
  put "Card Number "&x&" - Click the mouse to continue."
  set the loc of message to 22,300
  wait until the mouseclick
  put empty
  hide message
  pop cd
  EXIT RNDBTN
end RndBtn


Function FindCard prmpt
  push card
  repeat forever
    Put Dialog (prmpt,"","","",Â
    "OK,Cancel,Next,Prev,Scan Next,     Scan Prev     ") Â
    into Dlg
    put Line 3 of Dlg into Dlg
    wait until the mouseclick
    set lockmessages to true
    set lockscreen to true
    if Dlg is "     Scan Prev     " then
      put "Click to stop."
      set lockmessages to true
      set lockrecent to true
      set lockscreen to false
      put the number of this cd into CdNum
      put False into ExR
      repeat until (the mouseclick or (ExR))
        repeat with x = CdNum down to 1
          go cd x
          unlock screen
          if the mouseclick then
            put True into ExR
            exit repeat
          end if
        end repeat
        put the number of cds into CdNum
      end repeat
      put empty
      hide message
      set lockscreen to true
    end if
    if Dlg is "Scan Next" then
      set lockscreen to false
      put "Click to stop."
      show cards
      put empty
      hide message
      set lockscreen to true
    end if
    if Dlg is "next" then go next
    if Dlg is "prev" then go prev
    set lockscreen to false
    set lockmessages to false
    if Dlg is "ok" then exit repeat
    if Dlg is "Cancel" then
      pop card
      return ""
      exit FindCard
    end if
  end repeat
  put the short id of this card into CdId
  pop card
  Return CdID
end FindCard

%%%%%%%%%%%%% Bg 6, Btn 1 %%%%%%%%%%%%%
 Name = Rtn, Num = 1, ID = 3, Rect = 477,317,509,342
 Style = rectangle, Visible = true, Icon = 3835
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Go Card 1
end mouseUp

%%%%%%%%%%%%% Bg 6, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 5, Rect = 404,329,475,342
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Bg 6, Fld 1 %%%%%%%%%%%%%
 Name = path, Num = 1, ID = 2, Rect = 156,120,356,205
 Style = transparent, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Bg 6, Fld 2 %%%%%%%%%%%%%
 Name = BRANCH, Num = 2, ID = 4, Rect = 465,247,505,261
 Style = shadow, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Card 1 %%%%%%%%%%%%%
 Cd Name = card "Title Card", ID = card id 14826
CARD SCRIPT:
on opencard
  unlock screen with visual iris close very fast
  set lockscreen to true
  set the cursor to watch
  HideCdFields
end opencard
on closecard
  set the cursor to watch
  set lockscreen to true
  HideCdFields
  hide cd field "Go Back"
  Hide cd button "Go Back"
  set lockscreen to false
end closecard
on HideCdFields
  hide cd field "Notes:"
  hide cd field "Read Me"
  hide cd field "Instructions"
  hide cd field "Credits"
  hide cd button "Change Password"
  hide cd button "Init CD on Startup"
  hide cd field "Keep Student Log"
  hide cd button "Keep Student Log"
  hide cd button "See Student Log"
  hide cd field "Student Log"
end HideCdFields
on LockIt
  set the locktext of bg field "Title" to true
  set the locktext of bg field "Citation" to true
  set the locktext of cd field "Notes:" to true
  set the locktext of cd field "Read Me" to true
  set the locktext of cd field "Student Log" to true
  set the locktext of cd field "Instructions" to true
  set the locktext of cd field "Credits" to true
end LockIt
on UnLockIt
  set the locktext of bg field "Title" to false
  set the locktext of bg field "Citation" to false
  set the locktext of cd field "Notes:" to false
  set the locktext of cd field "Read Me" to false
  set the locktext of cd field "Student Log" to true
  set the locktext of cd field "Instructions" to false
  set the locktext of cd field "Credits" to false
end UnLockIt

%%%%%%%%%%%%% Cd 1, Btn 1 %%%%%%%%%%%%%
 Name = Read Me, Num = 1, ID = 15, Rect = 155,263,255,285
 Style = rectangle, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put the visible of cd field "Read Me" into temp
  hideCdFields
  set the visible of cd field "Read Me" to not temp
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 2 %%%%%%%%%%%%%
 Name = Go Next, Num = 2, ID = 17, Rect = 483,312,512,342
 Style = transparent, Visible = true, Icon = 26425
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SName,CardDone,SLog,PathList,PathPtr,PathCount
  set lockrecent to true
  hideCdFields
  if cd field "Keep Student Log" is true then
    Ask "Please enter your first and last name."
    if it is empty then exit mouseup
    put it into SName
    put SName &"   "&the long date&returnÂ
    into SLog
  end if
  put 1 into pathPtr
  put 1 into pathCount
  put the short id of card "Title Card" into PathList
  --put empty into CardDone
  visual effect dissolve
  GoNext
  cdstop
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 3 %%%%%%%%%%%%%
 Name = Credits, Num = 3, ID = 18, Rect = 257,263,357,285
 Style = rectangle, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put the visible of cd field "Credits" into temp
  hideCdFields
  set the visible of cd field "Credits" to not temp
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 4 %%%%%%%%%%%%%
 Name = Instructions, Num = 4, ID = 19, Rect = 359,263,459,285
 Style = rectangle, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put the visible of cd field "Instructions" into temp
  hideCdFields
  set the visible of cd field "Instructions" to not temp
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 5 %%%%%%%%%%%%%
 Name = Teacher Options, Num = 5, ID = 20, Rect = 188,289,325,311
 Style = rectangle, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put the visible of cd field "Student Log" into temp
  if Not (temp) then
    put GetPassword ("Please enter the password.",16) into it
    if it is not cd field "AuthorID" then
      beep
      Answer "Incorrect Password." with "OK"
      exit mouseup
    end if
  end if
  If temp then put empty into cd field "Student Log"
  hideCdFields
  set the visible of cd field "Student Log" to not temp
  Set the visible of cd button "Change Password" to not temp
  Set the visible of cd button "Init CD on Startup" to not temp
  --Set the visible of cd field "Keep Student Log" to not temp
  Set the visible of cd button "Keep Student Log" to not temp
  Set the visible of cd button "See Student Log" to not temp
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 6 %%%%%%%%%%%%%
 Name = Notes:, Num = 6, ID = 21, Rect = 53,263,153,285
 Style = rectangle, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Put the visible of cd field "Notes:" into temp
  hideCdFields
  set the visible of cd field "Notes:" to not temp
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 7 %%%%%%%%%%%%%
 Name = Keep Student Log, Num = 7, ID = 23, Rect = 268,236,371,252
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  put cd field "Keep Student Log" into T1
  put last word of T1 into T2
  if T2 = "True" then put "False" into last word of T1
  if T2 = "False" then put "True" into last word of T1
  put T1 into cd field "Keep Student Log"
  set the hilight of me to false
  set the hilight of me to (not t2)
end mouseUp
%%%%%%%%%%%%% Cd 1, Btn 8 %%%%%%%%%%%%%
 Name = Sound Source:, Num = 8, ID = 24, Rect = 17,231,132,247
 Style = radioButton, Visible = false, Icon = 0
 ShowName = true, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mousedown
  set the hilight of me to true
  repeat forever
    if the mouseloc is not within the rect of me  then
      set the hilight of me to false
      exit mousedown
    end if
    if the mouse is up then exit repeat
  end repeat
end mousedown
on mouseUp
  global SoundSource
  if cd field "Sound Source" = "MIDI" then
    put "Macintosh" into SoundSource
    Menu "Modify",227,3,True,18 --chartonum("Ã")
    Menu "Modify",227,2,True,32
  end if
  if cd field "Sound Source" = "Macintosh" then
    put "MIDI" into SoundSource
    Menu "Modify",227,2,True,18 --chartonum("Ã")
    Menu "Modify",227,3,True,32
  end if
  put SoundSource into cd field "Sound Source"
  set the hilight of me to false
end mouseUp
%%%%%%%%%%%%% Cd 1, Btn 9 %%%%%%%%%%%%%
 Name = See Student Log, Num = 9, ID = 33, Rect = 378,236,483,252
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  put fname ("Please locate the file '--Student Log.'") into SLogFile
  if SLogFile = empty then exit mouseup
  open file SLogFile
  read from file SLogFile for 16387
  If it is empty then
    answer "No student records found."
    exit mouseup
  end if
  put it into SLogData
  repeat until it is empty
    read from file SLogFile for 16387
    put it after SLogData
  end repeat
  close file SLogFile
  put the length of SLogData into SLen
  put empty into SRange
  If SLen >29000 then
    Ask "Only 29000 characters can be displayed at a time.  "&Â
    "Student Data = "&SLen&".  Display starting with character number..." Â
    with 1
    Put it into SRange
  end if
  If SRange = empty then put 1 into SRange
  put char SRange to SRange+29000 of SLogData into cd field "Student Log"
end mouseUp
%%%%%%%%%%%%% Cd 1, Btn 10 %%%%%%%%%%%%%
 Name = EditingFlag, Num = 10, ID = 47, Rect = 0,306,26,342
 Style = transparent, Visible = true, Icon = 7584
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  put GetPassword ("Please enter the password.",16) into it
  if it is not cd field "AuthorID" then
    beep
    Answer "Incorrect Password." with "OK"
    exit mouseup
  end if
  If the icon of me is 7585 then
    Answer "Do you wish to unlock this stack?" with "Cancel" or "OK"
    If it is "Cancel" then exit mouseup
    uninstallmenu
    set the icon of me to 7584
    installmenu
    set lockscreen to true
    put "Unlocking stack for editing - Card 1"
    push card
    set lockmessages to true
    set lockscreen to true
    set lockrecent to true
    repeat with x = 1 to number of cds
      go cd x
      put x into last word of message
      send UnLockIt to cd x
      set cantdelete of this card to false
    end repeat
    pop card
    set cantmodify of this stack to FALSE
    set cantdelete of this stack to FALSE
    set the userlevel to 5
    --put "Userlevel=Scripting.CantDelete=NOÃ."&Â
    --"CantModify=NOÃ.Password=None"
    --Answer "You must manually unprotect the stack.  "&Â
    --"Hold down the commandkey and choose 'Protect Stack...' "&Â
    --"from the file menu.  Set the options as indicated below." with "OK"
  else
    Answer "Do you wish to lock this stack?" with "Cancel" or "OK"
    If it is "Cancel" then exit mouseup
    uninstallmenu
    set the icon of me to 7585
    installmenu
    set lockscreen to true
    put "Locking stack - Card 1"
    push card
    set lockmessages to true
    set lockscreen to true
    set lockrecent to true
    repeat with x = 1 to number of cds
      go cd x
      put x into last word of message
      send LockIt to cd x
      set cantdelete of this card to true
    end repeat
    pop card
    set cantmodify of this stack to FALSE
    set cantdelete of this stack to TRUE
    set the userlevel to 2
    --put "Userlevel=Typing. Can't Delete=Ã.  "&Â
    --"Can't Modify=NO Ã.  Password=None"
    --DoMenu "Protect Stack..."
    put empty
    hide message
  end if
end mouseUp

on LockUp
  --ÃThis button locks all text fields
  --ÃEach cd has a LockIt and an UnLockIt script which does this
  --ÃInstall Stack Security
  --ÃNo longer necessary since Teacher Options are password protected.
  --ÃDeletes all unnecessary lesson-building tools
  --ÃNo longer necessary-custom Home stack holds non-essential resources
  --Ã  ¥ Deletes unnecessary resources.
  --Ã  ¥ Keep: Menu, MIDIMacPlay, MIDIRecord, QuantizeIt?, StripSortMIDI
  --Ã          LedgerLines?, ScreenRead?, LocateNote?, LocateCursor?
  --Ã          Timer?, Dialog, FName, SaveFName, CopyRes, ShutDown
  --Ã  ¥ Keep all ICON, DLOG, DITL, DATA, FREQ, DRVR & Song resources.
  --ÃCompacts the lesson.
  --ÃThis is always done on closestack
  --ÃRemove MusicExtras menu
  --ÃThis is done when the lock button is executed.
  --ÃRemove non-lesson scripts from the stack.
  --ÃNon-scripting users don't need this to be done.
  --ÃScripters know how and must do it themselves.
  --ÃPermanently set the userlevel to "Typing"
  --ÃThis is done when the stack is locked.
end LockUp

%%%%%%%%%%%%% Cd 1, Btn 11 %%%%%%%%%%%%%
 Name = Change Password, Num = 11, ID = 59, Rect = 14,236,119,252
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  Ask "Please enter new password." with cd field "AuthorID"
  if (it is "Cancel") or (it is empty) then exit mouseup
  put it into cd field "AuthorID"
end mouseUp
%%%%%%%%%%%%% Cd 1, Btn 12 %%%%%%%%%%%%%
 Name = Sound Effects:, Num = 12, ID = 60, Rect = 279,231,396,247
 Style = radioButton, Visible = false, Icon = 0
 ShowName = true, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mousedown
  set the hilight of me to true
  repeat forever
    if the mouseloc is not within the rect of me  then
      set the hilight of me to false
      exit mousedown
    end if
    if the mouse is up then exit repeat
  end repeat
end mousedown
on mouseUp
  if cd field "Sound Effects" = "True" then
    put "False" into cd field "Sound Effects"
    Menu "Modify",227,5,True,32
  else
    put "True" into cd field "Sound Effects"
    Menu "Modify",227,5,True,18
  end if
  set the hilight of me to false
end mouseUp
%%%%%%%%%%%%% Cd 1, Btn 13 %%%%%%%%%%%%%
 Name = Go Back, Num = 13, ID = 73, Rect = 440,307,478,338
 Style = transparent, Visible = false, Icon = 29114
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  go back
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 14 %%%%%%%%%%%%%
 Name = Quit, Num = 14, ID = 82, Rect = 178,315,255,339
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  DoMenu "Quit HyperCard"
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 15 %%%%%%%%%%%%%
 Name = Shut Down, Num = 15, ID = 84, Rect = 257,315,334,339
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  ShutDown
end mouseUp

%%%%%%%%%%%%% Cd 1, Btn 16 %%%%%%%%%%%%%
 Name = Hide Buttons, Num = 16, ID = 86, Rect = 99,315,255,339
 Style = opaque, Visible = false, Icon = 0
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
end mouseup

%%%%%%%%%%%%% Cd 1, Btn 17 %%%%%%%%%%%%%
 Name = Score Once, Num = 17, ID = 118, Rect = 385,114,456,127
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 1, Btn 18 %%%%%%%%%%%%%
 Name = Init CD on Startup, Num = 18, ID = 181, Rect = 125,236,234,252
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 1, Btn 19 %%%%%%%%%%%%%
 Name = Play Movie, Num = 19, ID = 186, Rect = 355,156,455,178
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  movie "thunder.mov"
end mouseUp
%%%%%%%%%%%%% Cd 1, Fld 1 %%%%%%%%%%%%%
 Name = Read Me, Num = 1, ID = 6, Rect = 11,36,502,256
 Style = scrolling, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"           Replace the contents of this field with your own information

                                                    Read Me

Common problems:
     This version of the program is written for HyperCard 2.0 and later.  
A version for HyperCard 1.2 is also available.

The version for HyperCard 1.2 may be converted to the format for HyperCard 2.0 using the following process.  From HyperCard 2.0 open the "-Lesson Writer" stack.  HyperCard 2.0 will detect that the stack has not been converted and announce that the stack is "Read Only."  (A locked padlock will appear to the right of the menubar.)  Choose "Convert Stack" from the file menu.  This process must be repeated with each lesson writer stack.  (- Lesson Writer, -Lesson Cards, -Lesson Graphics, -Lesson Utilities, -Multimedia Utilities, Home).  NOTE:  Do not convert the original disks.  Save them as a backup.
"
 FIELD SCRIPT:
on mouseup
  send mouseup to card button "Read Me"
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 2 %%%%%%%%%%%%%
 Name = Instructions, Num = 2, ID = 7, Rect = 11,36,502,256
 Style = scrolling, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"           Replace the contents of this field with your own information

                                      Instructions for the Student

Students will use the arrow buttons located at the bottom right corner of the screen to navigate through the lesson.  Click on the right arrow to begin.  The right arrow presents the next screen.  The left arrow presents the previous screen.  The button in the shape of the hand pointing backward allows the student to quit.  Additional instructions are found within the lesson.


                                      Instructions for the Author

DELETE THE FOLLOWING INFORMATION BEFORE LOCKING THE LESSON FOR STUDENT USE.

To create musical lessons, the author should  (1) create new screens to hold the lesson, (2) add text, graphics, sounds, and interactions to each screen as desired, and  (3) lock the lesson to prevent students from changing the content.  These tasks are accomplished by options in the MusicExtras menu.

The basic process of creating a lesson is as follows:

  1.  Copy all "- Lesson Writer" files into the same folder on the hard disk.
  2.  Double click on the "- Lesson Writer" stack and choose "New Lesson..."
       from the MusicExtras Menu.
  3.  Use the MusicExtras menu to add new screens to the lesson.
       -The MusicExtras menus allows the addition of three types of screens:
            -presentation,  which present information
            -interactive, which check for understanding
                  -Traditional Interactions
                       -Multiple Choice (3,4,5)
                       -TRUE/FALSE
                       -Matching
                  -Musical Interactions
                       -Solfege entry (Note, Melody, Chord)
                       -Hand sign entry (Note, Melody, Chord)
                       -Keyboard entry (Note, Melody, Chord)
                       -MIDI entry
                       -Staff entry
                       -Note name entry
                       -Chord function entry
            -control, which are used for navigation and 
              as navigational markers through the lesson.
                  -Title screens mark the beginning of a lesson or 
                    of a significant section of the lesson
                  -Table-of-Content screens allow movement between different
                    sections of the lesson.
                  -Score Report/End of Section screens mark the end of a 
                    lesson or of significant sections of the lesson.
  4.  Use the MusicExtras menu to add sounds, graphics, and multimedia
       excerpts to the lesson.
       -Sounds may be entered in many ways from the MusicExtras menu.
            -Staff entry
            -MIDI entry
            -MIDI file importation
            -Song resource excerpts
            -Sound may be digitized 
              (HyperCard 2.0 or MacRecorder required)
            -Synthesized speech may be entered
              (Macintalk required  - available from APDA
               Apple's Programmer Developer Association)
       -Sounds may be played using 
           -the Macintosh's internal speaker or
           -through an external MIDI interface and synthesizer
       -Graphics may be entered from the MusicExtras menu also using
           -Musical clip art,
           -HyperCard's Drawing tools,
           -Icon Animation
       -Multimedia events may be added using the MusicExtras menu also.
           -CD/CD ROM
           -Video/Laser disk (CLV, CAV)
  5.  Use the MusicExtras menu to add branching and random presentation
       of cards as desired.  (See specific instructions below)
  6.  When finished prepare the lesson for student use by turning off 
       editing.  This is done by pressing the lock button on the first screen
        (the title screen).  NOTE:  Create a new blank lesson before locking
       the current lesson.  (Click on "Create a New Lesson" in the lower left 
       corner of the screen, choose "Open Stack" from the FILE menu, 
       doulble click on -LW.LessonName to reopen the current lesson, 
       THEN click on the icon of the lock.)  

BRANCHING

Note:  Interactive cards provide feedback which eliminates the need for much branching.  Nonetheless, advanced users may incorporate a number of additional branching options into lessons as described below.

RULES FOR BRANCHING

Rule # 1  Branching backward in a lesson is permitted BUT is discouraged.  If students do not understand an explanation on their first contact it is not likely that they will understand it any better a second time.  A better strategy is to branch ahead to a remedial section of the lesson which breaks concepts down into more managable sub-concepts.  Branching backward may cause problems as explained in rules 3 and 4 below.  Branching forward eliminates the difficulties explained below. 

Rule # 2.A.  PRIORITY:  Branching instructions are prioritized from greatest to least as follows:   unconditional branch, branch on score exceeds given, branch on score falls below given, branch on card right, and branch on card wrong.  More than one branching instruction can be assigned to any card.  The computer will execute the branching instruction with the greatest priority.  

Rule # 2.B.  PRIORITY:  Branching instructions take priority over random instructions.  If cards do not appear in the desired sequence check for conflicts between random and branching assignments. 

Rule # 3  Unconditional branches should usually be forward branches.  WARNING:  Unconditional branches may easily be used to create endless loops.  If an unconditional branch moves backwards and the student is provided with no exit before the branch reoccurs an endless loop will result.  It is the responsibility of the lesson author to avoid such obvious design flaws.  EXAMPLE:  Card 10 unconditionally branches to card 9.  Once the student reaches card 10 the computer will continually toggle between cards 9 and 10.  

Rule # 4  Branches on SCORE EXCEEDS or SCORE FALLS BELOW should usually be forward branches UNLESS the "Score Once" default for cards to be displayed more than once is manually turned off OR an exit is provided before the branch reoccurs.  WARNING:  If this rule is not observed, the student MAY be placed in an endless loop.  EXAMPLE:  Card 10 is a question card which branches to card 5 if the student's score is below 50 percent.  Even though there are several question cards between card 5 and 10 they have already been scored on the student's first time through.  There is nothing which the student can do between card 5 and 10 which will change the score SO when card 10 is reached the lesson will continually return to card 5.  DETAILS:  If a student branches backwards and the default scoring (cards are scored only once) is in place there will be no way to change the score which originally caused the branch.  The result will be an endless loop.  REMEDIES:  While it is possible to avoid this problem by turning off the "Score Once" option, the best remedy is to ALWAYS BRANCH FORWARD WHEN USING SCORE EXCEEDS or SCORE FALLS BELOW.  It is the responsibility of the lesson author to avoid such design flaws.  To turn off the "Score Once" default click on the OPTIONS button of each interactive card and click the "Score Once" check box.

Rule # 5  Branches on card right or card wrong are based on the students' first response after viewing the screen.  It does not matter if the card has been displayed before or not, nor if it has been previously scored or not, nor if it is currently being scored or not.  In short, endless looping is impossible using card right or card wrong branching.

Effective Branching Strategies
     The greatest need for branching in a computer program is for branching based upon the answer given by the student.  This need for branching does not exist in the Lesson Writer software since the teacher may provide feedback for any possible response on each question card.  Other types of branching, however, are required for effective lessons.  Most branching occurs when a question is correct, a question is incorrect, the score exceeds a given level, or the score falls below a given level.  All of these types of branching are supported by the Lesson Writer software.  All are subject to the following rules for branching. 

     Branching backward in a lesson is permitted BUT is discouraged.  If students do not understand an explanation on their first contact it is not likely that they will understand it any better a second time.  A better strategy is to branch ahead to a remedial section of the lesson which breaks concepts down into more managable sub-concepts.  

Following is a very typical computer-assisted-instruction branching model.  

     A = Tutorial
     B = Question
              If wrong go to A
              If right go to C
     C = Score Report

This model is common because it is very easy for programmers to develop.  It is weak, however, in that the remedial treatment is always the same.  This model is possible in the Lesson Writer BUT it is discouraged.  A preferable model would be as follows:

    A = Tutorial
    B = Question
          If wrong go to D
          If right go to C
    C = Score Report  - QUIT (or branch ahead to the next question - I)
    D = Tutorial - Remedial explanation of A
    E = Question
          If wrong go to F
          If right go to C
    F = Tutorial - Remedial explanation of A
    G = Question
          If wrong go to H
          If right go to C
    H = Tutorial - List your office hours - Request an appointment.
    etc.

This model allows for as many layers of remedial treatment as desired.  It also eliminates the ineffective teaching technique inherient in model one  in which exactly the same explanation is given for every misunderstanding.  The primary disadvantage of model two is that it takes much more thought and time to develop.

Rules for Random Card Presentation AND Branching
  (See additional information on BRANCHING).

Follow these rules to avoid problems with the flow of the lesson.

    ¥DO NOT ADD CARDS TO THE LESSON AFTER RANDOMIZATION 
      HAS BEEN ADDED.
    ¥ALL GROUPS OF RANDOM CARDS SHOULD BE PRECEEDED BY AN
      INTRODUCTORY NON-RANDOM CARD WHICH IS NOT A SCORE 
      REPORT NOR A CONTENT CARD.
    ¥DO NOT SET UP 'CONTENT' CARDS TO POINT TO A RANDOM CARD 
      NOR RANDOMIZE A CARD TO WHICH A 'CONTENT' CARD POINTS.  
      INSTEAD POINT THE CONTENT ENTRY TO AN INTRODUCTORY 
      CARD PRECEEDING THE RANDOM CARDS.
    ¥DO NOT SET UP BRANCHING TO A RANDOM CARD NOR RANDOMIZE 
      A CARD TO WHICH A BRANCH POINTS.  INSTEAD POINT THE BRANCH 
      TO AN INTORDUCTORY CARD PRECEEDING THE RANDOM CARDS.
 
Detailed Information

     The randomization of cards should be the last step in the lesson creation process.  If new cards are added within a group of cards marked for random presentation (or immediately before or after a group of random cards), the new cards WILL NOT be displayed when the lesson is presented.  Cards MAY be added at other locations in the lesson after cards have been marked for random presentation.  They will be properly displayed and will not interfere with the presentation of randomly ordered cards.  THE SAFEST PRACTICE, HOWEVER, IS TO RANDOMIZE CARDS AFTER ALL CARDS HAVE BEEN ENTERED!
     Branches should NOT point to a randomly presented card.  The branch will always move to the card to which it was assigned (even if that card has been randomly re-ordered).  If the card's new position is at the middle or end of a random sequence (instead of at its beginning) the cards preceeding the new location will not be displayed.  To avoid problems make certain that cards pointed to by branches are not marked for random presentation. THE COMPUTER DOES NOT CHECK FOR THIS CONDITION.  IT IS THE RESPONSIBILITY OF THE LESSON CREATOR TO DO SO.
     Table-of-contents cards should NOT point to randomly presented cards.  The table-of-contents will always move to the card to which it was assigned (even if that card has been randomly re-ordered).  If the card's new position is at the middle or end of a random sequence (instead of at its beginning) the cards preceeding the new location will not be displayed.  To avoid problems make certain that cards pointed to by the table-of-contents are not marked for random presentation. THE COMPUTER DOES NOT CHECK FOR THIS CONDITION.  IT IS THE RESPONSIBILITY OF THE LESSON CREATOR TO DO SO.
     The first card of a stack can never be a part of a random sequence.  The computer checks for this condition and does not allow it to occur.  The first card should normally be the title card.
     The last card of a stack can never be part of a random sequence.  The computer checks for this condition and does not allow it to occur.  The last card should normally be a score card or a random report.
     Sequences of random cards must always have at least one non-random card between them.  If not, the two sequences of cards will be confused on how to enter and exit each other (especially when the card to which they normally exit has been randomly re-ordered).  This non-random card may not be a 'Score Report' nor a 'Contents' card.  The computer checks for these conditions and does not allow them to occur.  
     Sequences of random cards may not contain 'Score Report' NOR 'Contents' cards.  The 'Score Report' Cards are designed to come at the end of a section.  Presenting them randomly would randomize the length of the lesson.  The 'Content' cards are designed to allow the flow of the lesson to branch to another topic.  If 'Contents' cards were randomly presented students would branch out of random sequences of cards at unpredictible times.  The computer checks for these conditions and does not allow them to occur. 
     Sequences of random cards should not usually be preceeded by 'Score Report' NOR 'Content' cards.  These may interfere with the normal backward progression of randomly ordered cards (the previous arrow button).  Also, content cards immediately before a random sequence are suspect since they probably will contain a forbidden reference to a random card.  The computer checks for the presence of a 'Score Report' or a 'Content' card preceeding a random sequence and WARNS the user if it is found. Adding a non-random card before the random sequence prevents potential problems and is suggested. (An introductory screen would be typical).  THE COMPUTER WARNS THE USER OF THIS CONDITION BUT DOES NOT PROHIBIT IT.

================================================================
CUSTOMIZED SCREENS IN THE LESSON WRITER ENVIRONMENT

HyperCard scripters may write customized presentation and interactive cards for use in the -Lesson Writer environment.  There are some significant advantages to doing this.  Interaction which cannot be accomplished on the standard -Lesson Writer cards can be implemented.  All of the resources available to standard -Lesson Writer cards (sound, graphics, score keeping, randomization, and branching routines) are available to the custom cards.  When creating customized cards for use in the -Lesson Writer environment the following guidelines must be observed.

Creating Presentation Cards For Use In The -Lesson Writer Environment

PRESENTATION CARDS!!!

-New presentation cards should be created on a new background.  Presentation cards of the same type may share the same background with minor differences implemented on the card level.  Presentation cards which are very different from one another should be created on different backgrounds.
-Each background should have a unique name.  This aids in making the score report understandable.
-Each card should have a left arrow button with the following script.  In cases where it is appropriate to prohibit backward movement this button may be hidden.
on mouseUp
  set lockrecent to true
  visual effect dissolve
GoPrev  --Use GoPrev, not Go Prev!
end mouseUp
-Each card should have a right arrow button with the following script:
on mouseUp
  set lockrecent to true
  visual effect dissolve
  GoNext  --Use GoNext, not Go Next!
end mouseUp
-Each card should have a backward hand button with the following script:
on mouseUp
  GoContents
end mouseUp
-Each card should have an invisible background field "Path" for use by -Lesson Writer random routines
-Each card should have an invisible background field "Branch" for use by -Lesson Writer branching routines
-Each card should have an invisible, hilighted, checkbox card button "Score Once" for use by -Lesson Writer score-keeping routines
-Each card background should have an opencard handler which logs in with the -Lesson Writer record-keeping routines
on openCard, 
  logOpenCard
end openCard
-Each card background should have a LOCKIT handler which prepares the card for student use.  Even if this handler is empty it must exist.
-Each card background should have an UNLOCKIT handler which prepares the card for editing by the teacher.  Even if this handler is empty it must exist.
-Each card is responsible for resetting itself after student use.  Usually this is accomplished in a CloseCard handler.  
on closeCard
  --Script to reset card for next student use.
end closeCard


Using The Lesson Writer's Time Limit Routines With Presentation Cards

-Neither presentation cards nor interactive cards are required to implement time-limit capabilities.  The following elements, therefore, may be omitted on interactive and presentation cards which do not use a time limit.
-Clear graphics from the screen at coordinates 460,26,495,86.  An hourglass will be displayed there.  The hourglass displays best on solid colors (black, white or grey).
-Add a background field "Time Limit" which holds the number of seconds before time is up
-Add a background handler, CheckThisCard, which executes when the time runs out.  This handler can do anything or nothing.  The CheckThisCard handler must be found on the BACKGROUND level!
On CheckThisCard
  --Add the script to be executed on 'Time's Up' here.
End CheckThisCard
-Add the command, OpenTimedCard, to the desired script (usually opencard) to begin the countdown.  Although this script can be added anywhere the openCard handler is probably the best choice.  The student will definitely "open" the card.  The student may not click the button which begins the timed sequence.
on OpenCard
  LogOpenCard --Required of all presentation and interactive cards 
                      -- See above.
  OpenTimedCard
end OpenCard
-Add the following handler where desired (usually the script of the button which represents the correct answer) to stop the timer before time runs out:
on mouseup  --mouseup is the default button handler.  This script may be placed in any appropriate handler.
  global TimerOff
  put TRUE into TimerOff
end mouseup
-Add the following handler to the closeCard handler:
on closeCard
  --Script to reset card for next student use.
  global TimerOff
  put TRUE into TimerOff
end closeCard


Creating Interactive Cards For Use In The -Lesson Writer Environment

-Interactive cards should contain all the elements of presentation cards listed above plus the following:
-The left arrow button on interactive cards must contain the following script to prevent advancing without answering the question.    In cases where it is appropriate to prohibit backward movement this button may be hidden.
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  GoPrev
end mouseUp
-The right arrow button on interactive cards should contain the following script to prevent advancing without answering the question:
on mouseUp
  GetOKToMove
  set lockrecent to true
  visual effect dissolve
  GoNext
end mouseUp
-Each card should contain an invisible background field "Weight" which contains the number of points the question is worth.  (On a test some questions are worth one point; some, five; some, ten; etc.)
-Each card should report the score of the student to the -Lesson Writer's score keeping routines by using the following LogAnswer command.  The LogAnswer command should be executed immediately after the student enters his final response and/or when the time limit expires (in the CheckThisCard handler - if applicable).  This may require the command to be in a couple of places.  The computer will only record the student's score once each time the screen is displayed.  If the hilight of card button  "Score Once" is true (normally it will be), the computer will only record the student's score once each time the lesson is run.
on mouseup
  --The student will usually indicate his answer by clicking a button 
  --(mouseup).
  --The script may be placed elsewhere if appropriate.
  LogAnswer QuestionType,NumRight,NumWrong,Weight,User'sResponse
  --QuestionType = the card name or other identifying information 
  --such as "Multiple Choice"
  --NumRight = the number of questions judged right.  
  --This is usually one but may be more.
  --NumWrong = the number of questions judged incorrect.  
  --This is usually one but may be more.
  --Weight = the number of points the question is worth.
  --User'sResponse = a one or two word description of the user's
  --correct or incorrect response.
  --NumRight, NumWrong, and Weight are used by the -Lesson Writer 
  --to calculate the student's score.
  --QuestionType and User'sResponse are recorded literally 
  --in the detailed score report kept on each student.
  --Keep them short to avoid using too much memory.
end mouseup

  If a time-limit will be used the LogAnswer command must also be installed in the CheckThisCard handler.

on CheckThisCard  --This handler MUST be on the background level!
  --If the student's score is to be counted wrong when time expires then 
  --the CheckThisCard handler should execute the LogAnswer command
  --described above.
  LogAnswer QuestionType,NumRight,NumWrong,Weight,UserResponse
end CheckThisCard




HANDLERS AND SCRIPTS FOR PRESENTATION CARDS

The above information is implemented in the following scripts.  Scripts and handlers identified as "USER*" or "TIME*" are optional.  User scripts are provided by the creator of the new card.  Time scripts are used by the lesson writer time limit routines and are only required if time limits will be used.  All other scripts are required

THE FOLLOWING HANDLERS AND SCRIPTS SHOULD BE PLACED IN THE BACKGROUND LEVEL OF THE NEW PRESENTATION CARD.

on opencard --Required*
  LogOpenCard  --Required* -Log in with the LW record keeping routines
  OpenTimedCard -- Time*  - Starts timer if a time limit is installed
  pass openCard --User*
end opencard--Required*
on closecard  --USER*, TIME*
  --RESET CARD FOR NEXT STUDENT
  global TimerOff  --TIME* - Stops timer if a time limit is installed.
  put true into TimerOff  --TIME* - Stops timer if a time limit is installed.
end closecard
on checkthiscard  --User*,TIME*
  --REACT TO TIME'S UP CONDITION - USER*
end checkthiscard
on LockIt--Required*
  --Prepare the screen for student use.  
  --For example hide the answer, weight, and time-limit fields.  -- USER*
end LockIt
on UnLockIt--Required*
  --Enable editing of the screen by the teacher.  
  --For example, show the answer, weight, and time-limit fields.  -- USER*
end UnLockIt


HANDLERS AND SCRIPTS FOR INTERACTIVE CARDS

The following handlers and scripts implement the information presented above.  They should be placed in the background level of the new interactive card.  The objects (buttons and fields) with handlers as described above should also be added to the card

on opencard --Required*
  LogOpenCard  --Required* - Log in with the LW record keeping routines
  OpenTimedCard -- Time*  - Starts timer if a timelimit is installed
end opencard
on closecard  --USER*, TIME*
  --Reset card for next student  - USER*
  global TimerOff  --TIME* - Stops timer if a time limit is installed.
  put true into TimerOff  --TIME* - Stops timer if a time limit is installed.
end closecard
on checkthiscard  --User*,TIME*
  --REACT TO TIME'S UP CONDITION - USER*
  put 0 into right  -- TIME* - Set number of right
  put 1 into wrong  -- TIME* - Set number of wrong
  put 1 into weight  -- TIME* - Set weight of question
  LogAnswer QuestionType,Right,Wrong,Weight,"Time's Up"  -- TIME*
end checkthiscard
on LockIt--Required*
  --Prepare the screen for student use.  
  --For example hide the answer, weight, and time-limit fields.  -- USER*
end LockIt
on UnLockIt--Required*
  --Enable editing of the screen by the teacher.  
  --For example, show the answer, weight, and time-limit fields.  -- USER*
end UnLockIt

THE FOLLOWING SCRIPTS SHOULD BE EXECUTED WHERE INDICATED.

The button which the student presses to indicate the correct response should contain the following script.

on mouseUp--Required for Score Keeping*
  put "Custom" into QuestionType
  put 1 into right  -- Set number of right
  put 0 into wrong  -- Set number of wrong
  put 1 into weight  -- Set weight of question
  LogAnswer QuestionType,Right,Wrong,Weight,"Student chose X"
end mouseUp

The button which the student presses to indicate an incorrect response should contain the following script.

on mouseUp--Required for score keeping*
  put "Custom" into QuestionType
  put 0 into right  -- Set number of right
  put 1 into wrong  -- Set number of wrong
  put 1 into weight  --  Set weight of question
  LogAnswer QuestionType,Right,Wrong,Weight,"Student chose Y"
end mouseUp"
 FIELD SCRIPT:
on mouseup
  send mouseup to card button "Instructions"
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 3 %%%%%%%%%%%%%
 Name = Credits, Num = 3, ID = 8, Rect = 11,36,502,256
 Style = scrolling, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"           Replace the contents of this field with your own information

Please include the following information:

This lesson was constructed using tools and external commands by

          Floyd Richmond
          School of Music
          West Chester Univeristy
          West Chester, PA  19383

"
 FIELD SCRIPT:
on mouseup
  send mouseup to card button "Credits"
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 4 %%%%%%%%%%%%%
 Name = Notes:, Num = 4, ID = 9, Rect = 11,36,502,256
 Style = scrolling, Visible = false, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"           Replace the contents of this field with your own information

Notes:
   Required Software:
      HyperCard and matching version of system and finder
           HyperCard 1.2.2 - System 6.0
           HyperCard 1.2.5 - System 6.0.5
           HyperCard 2.0    - System 6.0.7
           HyperCard 2.1    - System 7
      Fonts:  Geneva 9,10,12,14,18,24, 
   Recommended Software:
                 Voyager or Apple CD drivers (if CDs are to be used).
                 Voyager video disc drivers (if a video disc is to be used).
                 Macintalk and Talk XCMD (if phonetic speech is to be used)
     Fonts:   Adobe Sonata 24 - (Necessary only to import notation 
                  from Deluxe Music Construction Set into HyperCard)
   Required Hardware:
      Macintosh Plus or greater

   Two megabytes or more of RAM are strongly suggested (required for System 7).

Preliminary tests indicate that all XCMDs are compatible with HyperCard 2.x, Multifinder, System 7.x and the newer Apple Macintosh computers."
 FIELD SCRIPT:
on mouseup
  send mouseup to card button "Notes:"
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 5 %%%%%%%%%%%%%
 Name = Student Log, Num = 5, ID = 10, Rect = 11,36,502,256
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
 FIELD SCRIPT:
on mouseup
  send mouseup to card button "Teacher Options"
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 6 %%%%%%%%%%%%%
 Name = Sound Source, Num = 6, ID = 12, Rect = 132,230,209,246
 Style = transparent, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = bold
 FIELD CONTENTS:
"MIDI"
 FIELD SCRIPT:
on mouseUp
  global SoundSource
  if cd field "Sound Source" = "MIDI" then
    put "Macintosh" into SoundSource
    Menu "Modify",226,2,True,18 --chartonum("Ã")
    Menu "Modify",226,1,True,32
  end if
  if cd field "Sound Source" = "Macintosh" then
    put "MIDI" into SoundSource
    Menu "Modify",226,1,True,18 --chartonum("Ã")
    Menu "Modify",226,2,True,32
  end if
  put SoundSource into cd field "Sound Source"
  set the hilight of cd btn "Sound Source" to false
end mouseUp
%%%%%%%%%%%%% Cd 1, Fld 7 %%%%%%%%%%%%%
 Name = Keep Student Log, Num = 7, ID = 13, Rect = 293,236,340,252
 Style = rectangle, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = bold
 FIELD CONTENTS:
"False"
 FIELD SCRIPT:
on mouseUp
  send mouseup to cd btn "Keep Student Log"
  exit mouseup
  put cd field "Keep Student Log" into T1
  put last word of T1 into T2
  if T2 = "True" then put "False" into last word of T1
  if T2 = "False" then put "True" into last word of T1
  put T1 into cd field "Keep Student Log"
  set the hilight of cd btn "Keep Student Log" to false
end mouseUp
%%%%%%%%%%%%% Cd 1, Fld 8 %%%%%%%%%%%%%
 Name = Go Back, Num = 8, ID = 40, Rect = 411,286,511,341
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 10
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"Click Here
To Return"
 FIELD SCRIPT:
on mouseup
  go back
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 9 %%%%%%%%%%%%%
 Name = Sound Effects, Num = 9, ID = 61, Rect = 399,230,446,246
 Style = transparent, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = bold
 FIELD CONTENTS:
"True"
 FIELD SCRIPT:
on mouseUp
  send mouseup to cd btn "Sound Effects"
end mouseUp
%%%%%%%%%%%%% Cd 1, Fld 10 %%%%%%%%%%%%%
 Name = AuthorID, Num = 10, ID = 62, Rect = 156,120,356,205
 Style = transparent, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"MUSIC"
This field has no script.
%%%%%%%%%%%%% Cd 1, Fld 11 %%%%%%%%%%%%%
 Name = Printing Instructions, Num = 11, ID = 87, Rect = 0,0,512,342
 Style = rectangle, Visible = false, LockText = true
 ShowLines = false, WideMargins = true, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 13
 TextSize = 10, TextStyle = plain
 FIELD CONTENTS:
"THIS MENU OPTION PROVIDES INFORMATION ONLY!  

Most music printing programs can be used to create notation for display in HyperCard.  
The following process works with all programs:
    1.  Using the music printing program display the desired notation on the screen.
    2.  Hold down the apple command key, the shift key and press the three (3) key.  The computer 
          will take a picture of the screen and save it as a MacPaint file entitled SCREEN X 
          where x is an integer between 0 and 9.
    4.  Using MacPaint (or a compatible program) open SCREEN X and use the selection tool 
          to select the desired music.  Choose COPY from the EDIT menu.  Quit MacPaint
    5.  Open the Hypercard lesson which contains the card where the notation is to be placed.
         Move to the desired card.  Choose PASTE PICTURE from the EDIT menu.  The notation 
         will appear in the upper left corner of the screen.  Drag the notation to its appropriate 
         place.   Choose the BROWSE tool from the TOOLS menu.
The following process (MUCH EASIER) works with some music printing programs.  It works with  Deluxe Music Construction Set.  It does not work with Finale or Music Prose.
    1.  Using the music printing program display the desired notation on the screen.  
         Using the selection tool select the desired music.  Choose COPY from the EDIT menu.  
         Quit the notation program.
    2.  Open the Hypercard lesson which contains the card where the notation is to be placed.
         Move to the desired card.  Choose PASTE PICTURE from the EDIT menu.  The notation 
         will appear in the upper left corner of the screen.  Drag the notation to its appropriate 
         place.   Choose the BROWSE tool from the TOOLS menu.  NOTE:  The appropriate font 
         (Adobe's  SONATA for DMCS) must be installed into the system or HyperCard Lesson.
CLICK TO HIDE    CLICK TO HIDE    CLICK TO HIDE    CLICK TO HIDE    CLICK TO HIDE    CLICK TO HIDE    
SHIFT-CLICK TO PRINT    SHIFT-CLICK TO PRINT    SHIFT-CLICK TO PRINT    SHIFT-CLICK TO PRINT"
 FIELD SCRIPT:
on mouseup
  If the ShiftKey is "Down" then
    domenu "Print Card"
    exit mouseup
  end if
  lock screen
  show menubar
  hide me
  pop card
end mouseup

%%%%%%%%%%%%% Cd 1, Fld 12 %%%%%%%%%%%%%
 Name = Music Font, Num = 12, ID = 93, Rect = 156,120,356,205
 Style = transparent, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"GenMusic"
This field has no script.
%%%%%%%%%%%%% Card 2 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 2751
This card has no script.
%%%%%%%%%%%%% Cd 2, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 2, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 3 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 3320
This card has no script.
%%%%%%%%%%%%% Cd 3, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 3, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 4 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 3433
This card has no script.
%%%%%%%%%%%%% Cd 4, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 4, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 5 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 4150
This card has no script.
%%%%%%%%%%%%% Cd 5, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 5, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 6 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 4652
This card has no script.
%%%%%%%%%%%%% Cd 6, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 6, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 7 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 5357
This card has no script.
%%%%%%%%%%%%% Cd 7, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 7, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 8 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 5558
This card has no script.
%%%%%%%%%%%%% Cd 8, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 8, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 9 %%%%%%%%%%%%%
 Cd Name = card "Text 2", ID = card id 5800
This card has no script.
%%%%%%%%%%%%% Cd 9, Btn 1 %%%%%%%%%%%%%
 Name = Score Once, Num = 1, ID = 8, Rect = 270,288,341,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 9, Btn 2 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 2, ID = 11, Rect = 342,288,413,301
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseup
  set the visible of bg btn "Prev Card" to the hilight of me
end mouseup
%%%%%%%%%%%%% Card 10 %%%%%%%%%%%%%
 Cd Name = card "True False", ID = card id 5984
This card has no script.
%%%%%%%%%%%%% Cd 10, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 7, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 10, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 8, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 10, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 9, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 11 %%%%%%%%%%%%%
 Cd Name = card "True False", ID = card id 6344
This card has no script.
%%%%%%%%%%%%% Cd 11, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 7, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 11, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 8, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 11, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 9, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 12 %%%%%%%%%%%%%
 Cd Name = card "True False", ID = card id 6625
This card has no script.
%%%%%%%%%%%%% Cd 12, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 7, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 12, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 8, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 12, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 9, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 13 %%%%%%%%%%%%%
 Cd Name = card "True False", ID = card id 6903
This card has no script.
%%%%%%%%%%%%% Cd 13, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 7, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 13, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 8, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 13, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 9, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 14 %%%%%%%%%%%%%
 Cd Name = card "Multiple Choice", ID = card id 7664
This card has no script.
%%%%%%%%%%%%% Cd 14, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 29, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 14, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 30, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 14, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 31, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 15 %%%%%%%%%%%%%
 Cd Name = card "Multiple Choice", ID = card id 7759
This card has no script.
%%%%%%%%%%%%% Cd 15, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 29, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 15, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 30, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 15, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 31, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 16 %%%%%%%%%%%%%
 Cd Name = card "Multiple Choice", ID = card id 8163
This card has no script.
%%%%%%%%%%%%% Cd 16, Btn 1 %%%%%%%%%%%%%
 Name = Previous Arrow, Num = 1, ID = 29, Rect = 439,108,510,121
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
On MouseUp
  set the visible of bg btn "Prev Card" to the hilight of me
End MouseUp
%%%%%%%%%%%%% Cd 16, Btn 2 %%%%%%%%%%%%%
 Name = Score Once, Num = 2, ID = 30, Rect = 439,93,510,106
 Style = checkBox, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
This button has no script.
%%%%%%%%%%%%% Cd 16, Btn 3 %%%%%%%%%%%%%
 Name = Hide Options, Num = 3, ID = 31, Rect = 441,123,507,136
 Style = roundRect, Visible = false, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  send mouseup to bg btn options
end mouseUp

%%%%%%%%%%%%% Card 17 %%%%%%%%%%%%%
 Cd Name = card "Score Report", ID = card id 37863
CARD SCRIPT:
on opencard
  global NumQRight,NumQWrong,WtAdjRight,WtAdjWrong,SName,SLog,Â
  WrongCards,ReviewMode,RPtr
  hide cd field "Detailed Score"
  hide cd field "Dismiss"
  put bg field "TITLE" of Card "Title Card" into cd field "Lesson Name"
  put the long date into cd field "Date"
  if NumQRight is empty then put 0 into NumQRight
  if NumQWrong is empty then put 0 into NumQWrong
  if WtAdjRight is empty then put 0 into WtAdjRight
  if WtAdjWrong is empty then put 0 into WtAdjWrong
  if (cd field "Keep Student Log" of Card "Title Card") andÂ
  (SName is empty) then
    Ask"Please type your first and last name."with "Name"
    put it into SName
  end if
  put NumQRight into cd field "NR"
  Put "    Total Right = "&NumQRight&Return into temp
  put NumQWrong into cd field "NW"
  Put "    Total Wrong = "&NumQWrong&Return after temp
  put WtAdjRight into cd field "WANR"
  Put "    Weight Adjusted Right = "&WtAdjRight&Return after temp
  put WtAdjWrong into cd field "WANW"
  Put "    Weight Adjusted Wrong = "&WtAdjWrong&Return after temp
  put SName into cd field "Student Name"
  put WtAdjRight+WtAdjWrong into NTotal
  If NTotal > 0 then
    put Trunc((WtAdjRight/NTotal)*100+.5)into cd field "WAP"
  else
    Put "0" into cd field "WAP"
  end if
  Put "    Weight Adjusted Percent = "&cd field "WAP"&Return after temp
  If (ReviewMode = "TRUE") or (ReviewMode = "Done") then
    put "False" into ReviewMode
    put SLog into cd field "Detailed Score"
    exit opencard
  end if
  Put "  Score Report:  "&SName&" at "&the long time&"."&ReturnÂ
  after SLOG
  put temp after SLOG
  put "---------------------------------------------------------------"Â
  &Return after SLog
  if (cd field "Keep Student Log" of Card "Title Card") is true then
    set the cursor to watch
    put the long name of "HOME" into FlName
    put the number of characters in FlName into L
    put empty into character (L-4) to L of FlName
    put "--Student Log" after FlName
    put empty into char 1 to 7 of FlName
    open file FlName
    put " " into it
    repeat until it is empty
      read from file FlName for 16384
      if it is empty then exit repeat
    end repeat
    Write SLog to file FlName
    Write Return to file FlName
    close file FlName
  end if
  put SLog into cd field "Detailed Score"
end opencard
on closecard
  set the visible of cd field "Detailed Score" to false
  set the visible of cd field "Dismiss" to false
  set lockscreen to true
  set the cursor to watch
  global NumQRight,NumQWrong,WtAdjRight,WtAdjWrong,SName,CardDone,SLog,Â
  WrongCards,ReviewMode,RPtr,CardAnswers,CardScores
  put 0 into NumQRight
  put 0 into cd field "NR"
  put 0 into NumQWrong
  put 0 into cd field "NW"
  put 0 into WtAdjRight
  put 0 into cd field "WANR"
  put 0 into WtAdjWrong
  put 0 into cd field "WANW"
  put 0 into cd field "WAP"
  put empty into SName
  put empty into cd field "Student Name"
  put empty into cd field "Date"
  put empty into cd field "Lesson Name"
  put empty into CardDone
  put empty into SLog
  put empty into cd field "Detailed Score"
  put empty into WrongCards
  put empty into ReviewMode
  put empty into RPtr
  put empty into CardAnswers
  put empty into  CardScores
  global PathPtr,PathCount,PathList
  put 1 into PathPtr
  put 1 into PathCount
  put the short id of card "Title Card" into PathList
end closecard
on Lockit
  --hide cd btn "Prev Card"
  hide cd btn "Show Score Rpt"
end Lockit
on UnlockIt
  --show cd btn "Prev Card"
  show cd btn "Show Score Rpt"
end UnlockIt
%%%%%%%%%%%%% Cd 17, Btn 1 %%%%%%%%%%%%%
 Name = Start Over, Num = 1, ID = 9, Rect = 450,293,491,342
 Style = transparent, Visible = true, Icon = 3835
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global PopPending
  set lockscreen to false
  visual effect dissolve
  if PopPending > 0 then
    pop card
    subtract 1 from PopPending
  else
    go cd 1
  end if
end mouseUp

%%%%%%%%%%%%% Cd 17, Btn 2 %%%%%%%%%%%%%
 Name = Print Score, Num = 2, ID = 10, Rect = 439,156,502,210
 Style = roundRect, Visible = true, Icon = 1007
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the visible of cd field "Detailed Score" to false
  set the visible of cd field "Dismiss" to false
  global SName
  if (cd field "Student Name" = "Name") Â
  or (cd field "Student Name" = empty) then
    Ask"Please type your first and last name."with "Name"
    if it is empty then exit mouseup
    put it into SName
    put it into cd field "Student Name"
  end if
  Answer "Please choose the type of score report." with "Cancel" or "Detailed" or "Normal"
  put it into temp
  if temp = "Cancel" then exit mouseup
  DoMenu "Page Setup..."
  DoMenu "Print Card"
  set the cursor to watch
  put "Printing...Please wait."
  put cd field "Detailed Score" into tempScore
  put "Lesson Name:  "&(cd field "Lesson Name")&RETURN before line 2 of tempScore
  If temp = "Detailed" then put printit (tempScore) into junk
  put empty
  hide message
end mouseUp

%%%%%%%%%%%%% Cd 17, Btn 3 %%%%%%%%%%%%%
 Name = Save Score, Num = 3, ID = 11, Rect = 439,221,502,275
 Style = roundRect, Visible = true, Icon = 3008
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global SName
  if (cd field "Keep Student Log" of Card "Title Card") is true then
    Answer "Your score has been recorded in the teacher's gradebook."&Â
    "  Do you wish to save an additional copy of the score?"Â
    with "OK" or "Cancel"
    if it is "Cancel" then exit mouseup
  end if
  --*****
  if (cd field "Student Name" = "Name") Â
  or (cd field "Student Name" = empty) then
    Ask"Please type your first and last name."with "Name"
    if it is empty then exit mouseup
    put it into SName
    put it into cd field "Student Name"
  end if
  --*****
  put SaveFName() into temp
  put empty into TempBuffer
  open file temp
  put " " into it
  repeat until it is empty
    read from file temp for 16384
    If it is empty then exit repeat
  end repeat
  --write cd field "Lesson Name"& "," to file temp
  --write cd field "NR"& "," to file temp
  --write cd field "WANR"& "," to file temp
  --write cd field "NW"& "," to file temp
  --write cd field "WANW"& "," to file temp
  --write cd field "WAP"& "," to file temp
  --write cd field "Student Name"& "," to file temp
  --write cd field "Date"&Return to file temp
  --put (the length of cd field "Detailed Score") & "," to file temp
  write (cd field "Detailed Score") & RETURN to file temp
  close file temp
end mouseUp


%%%%%%%%%%%%% Cd 17, Btn 4 %%%%%%%%%%%%%
 Name = Score Details, Num = 4, ID = 14, Rect = 439,90,502,144
 Style = roundRect, Visible = true, Icon = 8538
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  put not (the visible of cd field "Detailed Score") into temp
  set the visible of cd field "Detailed Score" to temp
  set the visible of cd field "Dismiss" to temp
end mouseUp

%%%%%%%%%%%%% Cd 17, Btn 5 %%%%%%%%%%%%%
 Name = Prev Card, Num = 5, ID = 17, Rect = 420,302,450,327
 Style = transparent, Visible = false, Icon = 9301
 ShowName = false, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  --global CardDone
  --if line (the number of this card) of CardDone is not "TRUE" then
  --  answer "Please answer this question before proceeding."with "OK"
  --  exit mouseup
  --end if
  set lockrecent to true
  visual effect dissolve
  if (the short name of prev card is "Score Report") Â
  or (the short name of prev card is "Last in Section") Â
  then GoContents else GoPrev
end mouseUp

%%%%%%%%%%%%% Cd 17, Btn 6 %%%%%%%%%%%%%
 Name = Review Missed Questions, Num = 6, ID = 18, Rect = 181,319,366,336
 Style = roundRect, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  global WrongCards,ReviewMode,RPtr
  If (WrongCards is not empty) then
    put TRUE into ReviewMode
    put 1 into RPtr
    set lockmessages to true
    go cd id (item 1 of WrongCards)
  end if
end mouseUp
on mouseUp --historical
  global WrongCards,ReviewMode,RPtr
  If (WrongCards is not empty) then
    If ((ReviewMode <> "DONE") AND (ReviewMode <> "TRUE")) then
      Answer "Do you wish to review incorrect questions?" with "OK" or "No"
      if it is "OK" then
        put TRUE into ReviewMode
        put 1 into RPtr
        set lockmessages to true
        go cd id (item 1 of WrongCards)
        exit mouseup
      end if
    end if
    put "False" into ReviewMode
  end if
end mouseUp

%%%%%%%%%%%%% Cd 17, Btn 7 %%%%%%%%%%%%%
 Name = Show Score Rpt, Num = 7, ID = 22, Rect = 420,279,512,294
 Style = checkBox, Visible = true, Icon = 0
 ShowName = true, AutoHilite = true, Hilite = true
 TextAlign = center, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the visible of cd fld "End 1" to NOT (the hilight of me)
  set the visible of cd fld "End 2" to the visible of cd fld "End 1"
end mouseUp

%%%%%%%%%%%%% Cd 17, Fld 1 %%%%%%%%%%%%%
 Name = NR, Num = 1, ID = 1, Rect = 337,109,406,129
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 2 %%%%%%%%%%%%%
 Name = WANR, Num = 2, ID = 2, Rect = 337,131,406,151
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 3 %%%%%%%%%%%%%
 Name = NW, Num = 3, ID = 3, Rect = 337,169,406,189
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 4 %%%%%%%%%%%%%
 Name = WANW, Num = 4, ID = 4, Rect = 337,191,406,211
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 5 %%%%%%%%%%%%%
 Name = WAP, Num = 5, ID = 5, Rect = 337,231,406,251
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 6 %%%%%%%%%%%%%
 Name = Student Name, Num = 6, ID = 6, Rect = 141,270,406,290
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
 FIELD SCRIPT:
on mouseup
  global SName
  put me into temp
  if ((cd field "Keep Student Log" of Card "Title Card") and Â
  ((temp = "Name") or (temp = "")) Â
  or (Not(cd field "Keep Student Log" of Card "Title Card"))) then
    Ask"Please type your first and last name."with "Name"
    put it into SName
    put it into me
  end if
end mouseup
%%%%%%%%%%%%% Cd 17, Fld 7 %%%%%%%%%%%%%
 Name = Date, Num = 7, ID = 12, Rect = 141,292,406,312
 Style = shadow, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 8 %%%%%%%%%%%%%
 Name = Lesson Name, Num = 8, ID = 13, Rect = 48,71,406,93
 Style = transparent, Visible = true, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 18
 TextSize = 14, TextStyle = bold
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 9 %%%%%%%%%%%%%
 Name = Detailed Score, Num = 9, ID = 15, Rect = 49,108,406,320
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 11
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
""
 FIELD SCRIPT:
on mouseup
  send mouseup to cd btn "Score Details"
end mouseup
%%%%%%%%%%%%% Cd 17, Fld 10 %%%%%%%%%%%%%
 Name = Dismiss, Num = 10, ID = 19, Rect = 49,319,406,336
 Style = rectangle, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = bold
 FIELD CONTENTS:
"Click here to hide"
 FIELD SCRIPT:
on mouseup
  send mouseup to cd btn "Score Details"
end mouseup
%%%%%%%%%%%%% Cd 17, Fld 11 %%%%%%%%%%%%%
 Name = End 1, Num = 11, ID = 20, Rect = 0,0,512,290
 Style = opaque, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 32
 TextSize = 24, TextStyle = bold,outline,shadow
 FIELD CONTENTS:
"



End of Section


"
This field has no script.
%%%%%%%%%%%%% Cd 17, Fld 12 %%%%%%%%%%%%%
 Name = End 2, Num = 12, ID = 21, Rect = 0,289,442,342
 Style = opaque, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
""
This field has no script.
%%%%%%%%%%%%% Card 18 %%%%%%%%%%%%%
 Cd Name = card "Random Cards", ID = card id 14522
CARD SCRIPT:
on PassIt
  put the clickloc into tempLoc
  put "3,75,255,195" into tempRect
  if tempLoc is within tempRect then send mouseup to cd btn "B1"
  put "257,75,509,195" into tempRect
  if tempLoc is within tempRect then send mouseup to cd btn "B2"
  put "3,196,255,316" into tempRect
  if tempLoc is within tempRect then send mouseup to cd btn "B3"
  put "257,196,509,316" into tempRect
  if tempLoc is within tempRect then send mouseup to cd btn "B4"
end PassIt
on opencard
  put the number of cards into NumCds
  If NumCds < 301 then
    set the style of cd btn "B4" to opaque
    set the hilight of cd btn "B4" to true
    If NumCds > 200 then
      hideNums NumCds,300
    end if
  else
    set the style of cd btn "B4" to transparent
    set the hilight of cd btn "B4" to false
  end if
  If NumCds < 201 then
    set the style of cd btn "B3" to opaque
    set the hilight of cd btn "B3" to true
    If NumCds > 100 then
      hideNums NumCds,200
    end if
  else
    set the style of cd btn "B3" to transparent
    set the hilight of cd btn "B3" to false
  end if
  If NumCds < 101 then
    set the style of cd btn "B2" to opaque
    set the hilight of cd btn "B2" to true
    If NumCds > 1 then
      hideNums NumCds,100
    end if
  else
    set the style of cd btn "B2" to transparent
    set the hilight of cd btn "B2" to false
  end if
  If NumCds > 300 and NumCds < 401 then hideNums NumCds,400
  set the cursor to watch
  set lockmessages to true
  set lockrecent to true
  put (bg field "Random Cards" of Cd "Title Card") into temp
  put 0 into HNum
  put 1000 into LNum
  repeat with x = 1 to number of lines in temp
    repeat with y = 2 to ((number of words in line x of temp)-1)
      put the number of cd id (word y of line x of temp) into TNum
      If TNum > HNum then put TNum into HNum
      If TNum < LNum then put TNum into LNum
    end repeat
    put trunc((LNum-1)/100)+1 into BkBgn
    put trunc((HNum-1)/100)+1 into BkEnd
    If BkBgn = BkEnd then --Both are in the same 100 block
      Black LNum,HNum
    end if
    If BkBgn <> BkEnd then --Both are in the different 100 blocks
      --hilight LNum to end of 100 block
      Black LNum,BkBgn*100
      --hilight start of 100 block to HNum
      Black ((BkEnd-1)*100)+1,HNum
      --hilight blocks of 100 between LNum & HNum
      repeat with x = BkBgn+1 to BkEnd-1
        Black ((x-1)*100)+1,x*100
      end repeat
    end if
    put 0 into HNum
    put 1000 into LNum
  end repeat
end opencard
on closecard
  set the cursor to watch
  lock screen
  set the style of cd btn "B1" to transparent
  set the style of cd btn "B2" to transparent
  set the style of cd btn "B3" to transparent
  set the style of cd btn "B4" to transparent
  hide cd btn "Current Cell"
  hide cd btn "Ending Cell"
  set the hilight of cd btn "B1" to false
  set the hilight of cd btn "B2" to false
  set the hilight of cd btn "B3" to false
  set the hilight of cd btn "B4" to false
  put 0 into cd field "Rnd Object"
  repeat with x = 5 to number of cd btns
    hide cd btn x
  end repeat
end closecard
on LockIt
end LockIt
on UnlockIt
end UnlockIt


%%%%%%%%%%%%% Cd 18, Btn 1 %%%%%%%%%%%%%
 Name = B1, Num = 1, ID = 1, Rect = 3,75,255,195
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  set the rect of me to 3,75,255,195
  put 3 into MyHz
  put 75 into MyVt
  put the clickloc into TLoc
  put the clickh into THz
  put the clickv into TVt
  put (trunc((THz-MyHz)/25)+1) into HBtn
  put (trunc((TVt-MyVt)/12)*10) into VBtn
  RndBtn (HBtn+VBtn)
end mouseUp

%%%%%%%%%%%%% Cd 18, Btn 2 %%%%%%%%%%%%%
 Name = B2, Num = 2, ID = 2, Rect = 257,75,509,195
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  set the rect of me to 257,75,509,195  --3,75,255,195
  put 257 into MyHz
  put 75 into MyVt
  put the clickloc into TLoc
  put the clickh into THz
  put the clickv into TVt
  put (trunc((THz-MyHz)/25)+1) into HBtn
  put (trunc((TVt-MyVt)/12)*10) into VBtn
  RndBtn (100+HBtn+VBtn)
end mouseUp

%%%%%%%%%%%%% Cd 18, Btn 3 %%%%%%%%%%%%%
 Name = B3, Num = 3, ID = 3, Rect = 3,196,255,316
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  set the rect of me to 3,196,255,316
  put 3 into MyHz
  put 196 into MyVt
  put the clickloc into TLoc
  put the clickh into THz
  put the clickv into TVt
  put (trunc((THz-MyHz)/25)+1) into HBtn
  put (trunc((TVt-MyVt)/12)*10) into VBtn
  RndBtn (200+HBtn+VBtn)
end mouseUp

%%%%%%%%%%%%% Cd 18, Btn 4 %%%%%%%%%%%%%
 Name = B4, Num = 4, ID = 4, Rect = 257,196,509,316
 Style = transparent, Visible = true, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = false
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
on mouseUp
  set the cursor to watch
  set the rect of me to 257,196,509,316
  put 257 into MyHz
  put 196 into MyVt
  put the clickloc into TLoc
  put the clickh into THz
  put the clickv into TVt
  put (trunc((THz-MyHz)/25)+1) into HBtn
  put (trunc((TVt-MyVt)/12)*10) into VBtn
  RndBtn (300+HBtn+VBtn)
end mouseUp

%%%%%%%%%%%%% Cd 18, Btn 5 %%%%%%%%%%%%%
 Name = R1, Num = 5, ID = 14, Rect = 228,75,254,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 6 %%%%%%%%%%%%%
 Name = R2, Num = 6, ID = 15, Rect = 3,87,104,99
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 7 %%%%%%%%%%%%%
 Name = R3, Num = 7, ID = 16, Rect = 3,87,129,99
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 8 %%%%%%%%%%%%%
 Name = R4, Num = 8, ID = 17, Rect = 103,75,204,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 9 %%%%%%%%%%%%%
 Name = R5, Num = 9, ID = 18, Rect = 228,75,254,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 10 %%%%%%%%%%%%%
 Name = R6, Num = 10, ID = 19, Rect = 3,87,129,99
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 11 %%%%%%%%%%%%%
 Name = R7, Num = 11, ID = 20, Rect = 103,75,204,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 12 %%%%%%%%%%%%%
 Name = R8, Num = 12, ID = 21, Rect = 228,75,254,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 13 %%%%%%%%%%%%%
 Name = R9, Num = 13, ID = 22, Rect = 3,87,129,99
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 14 %%%%%%%%%%%%%
 Name = R10, Num = 14, ID = 23, Rect = 3,196,254,208
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 15 %%%%%%%%%%%%%
 Name = R11, Num = 15, ID = 24, Rect = 3,304,254,316
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 16 %%%%%%%%%%%%%
 Name = R12, Num = 16, ID = 25, Rect = 3,208,254,304
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 17 %%%%%%%%%%%%%
 Name = R13, Num = 17, ID = 26, Rect = 103,159,254,171
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 18 %%%%%%%%%%%%%
 Name = R14, Num = 18, ID = 27, Rect = 3,183,254,195
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 19 %%%%%%%%%%%%%
 Name = R15, Num = 19, ID = 28, Rect = 3,171,254,183
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 20 %%%%%%%%%%%%%
 Name = R16, Num = 20, ID = 29, Rect = 257,196,508,208
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 21 %%%%%%%%%%%%%
 Name = R17, Num = 21, ID = 30, Rect = 257,280,383,292
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 22 %%%%%%%%%%%%%
 Name = R18, Num = 22, ID = 31, Rect = 257,208,508,280
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 23 %%%%%%%%%%%%%
 Name = R19, Num = 23, ID = 32, Rect = 257,75,508,87
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 24 %%%%%%%%%%%%%
 Name = R20, Num = 24, ID = 33, Rect = 257,183,508,195
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 25 %%%%%%%%%%%%%
 Name = R21, Num = 25, ID = 34, Rect = 257,87,508,183
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 26 %%%%%%%%%%%%%
 Name = R22, Num = 26, ID = 35, Rect = 3,196,254,208
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 27 %%%%%%%%%%%%%
 Name = R23, Num = 27, ID = 36, Rect = 3,304,254,316
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 28 %%%%%%%%%%%%%
 Name = R24, Num = 28, ID = 37, Rect = 3,208,254,304
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 29 %%%%%%%%%%%%%
 Name = R25, Num = 29, ID = 38, Rect = 103,159,254,171
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 30 %%%%%%%%%%%%%
 Name = R26, Num = 30, ID = 39, Rect = 3,183,254,195
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 31 %%%%%%%%%%%%%
 Name = R27, Num = 31, ID = 40, Rect = 3,171,254,183
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 32 %%%%%%%%%%%%%
 Name = R28, Num = 32, ID = 41, Rect = 257,196,508,208
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 33 %%%%%%%%%%%%%
 Name = R29, Num = 33, ID = 42, Rect = 257,280,383,292
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 34 %%%%%%%%%%%%%
 Name = R30, Num = 34, ID = 43, Rect = 257,208,508,280
 Style = transparent, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 35 %%%%%%%%%%%%%
 Name = CURRENT CELL, Num = 35, ID = 45, Rect = 178,87,254,99
 Style = opaque, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Btn 36 %%%%%%%%%%%%%
 Name = ENDING CELL, Num = 36, ID = 49, Rect = 3,99,254,195
 Style = opaque, Visible = false, Icon = 0
 ShowName = false, AutoHilite = false, Hilite = true
 TextAlign = center, TextFont = Chicago, TextHeight = 16
 TextSize = 12, TextStyle = plain
BUTTON SCRIPT:
ON MOUSEUP
  PassIt
END MOUSEUP
%%%%%%%%%%%%% Cd 18, Fld 1 %%%%%%%%%%%%%
 Name = BTN RECT INDEX, Num = 1, ID = 48, Rect = 391,76,497,316
 Style = scrolling, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 9
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"3,75,29,87
28,75,54,87
53,75,79,87
78,75,104,87
103,75,129,87
128,75,154,87
153,75,179,87
178,75,204,87
203,75,229,87
228,75,254,87
3,87,29,99
28,87,54,99
53,87,79,99
78,87,104,99
103,87,129,99
128,87,154,99
153,87,179,99
178,87,204,99
203,87,229,99
228,87,254,99
3,99,29,111
28,99,54,111
53,99,79,111
78,99,104,111
103,99,129,111
128,99,154,111
153,99,179,111
178,99,204,111
203,99,229,111
228,99,254,111
3,111,29,123
28,111,54,123
53,111,79,123
78,111,104,123
103,111,129,123
128,111,154,123
153,111,179,123
178,111,204,123
203,111,229,123
228,111,254,123
3,123,29,135
28,123,54,135
53,123,79,135
78,123,104,135
103,123,129,135
128,123,154,135
153,123,179,135
178,123,204,135
203,123,229,135
228,123,254,135
3,135,29,147
28,135,54,147
53,135,79,147
78,135,104,147
103,135,129,147
128,135,154,147
153,135,179,147
178,135,204,147
203,135,229,147
228,135,254,147
3,147,29,159
28,147,54,159
53,147,79,159
78,147,104,159
103,147,129,159
128,147,154,159
153,147,179,159
178,147,204,159
203,147,229,159
228,147,254,159
3,159,29,171
28,159,54,171
53,159,79,171
78,159,104,171
103,159,129,171
128,159,154,171
153,159,179,171
178,159,204,171
203,159,229,171
228,159,254,171
3,171,29,183
28,171,54,183
53,171,79,183
78,171,104,183
103,171,129,183
128,171,154,183
153,171,179,183
178,171,204,183
203,171,229,183
228,171,254,183
3,183,29,195
28,183,54,195
53,183,79,195
78,183,104,195
103,183,129,195
128,183,154,195
153,183,179,195
178,183,204,195
203,183,229,195
228,183,254,195
257,75,283,87
282,75,308,87
307,75,333,87
332,75,358,87
357,75,383,87
382,75,408,87
407,75,433,87
432,75,458,87
457,75,483,87
482,75,508,87
257,87,283,99
282,87,308,99
307,87,333,99
332,87,358,99
357,87,383,99
382,87,408,99
407,87,433,99
432,87,458,99
457,87,483,99
482,87,508,99
257,99,283,111
282,99,308,111
307,99,333,111
332,99,358,111
357,99,383,111
382,99,408,111
407,99,433,111
432,99,458,111
457,99,483,111
482,99,508,111
257,111,283,123
282,111,308,123
307,111,333,123
332,111,358,123
357,111,383,123
382,111,408,123
407,111,433,123
432,111,458,123
457,111,483,123
482,111,508,123
257,123,283,135
282,123,308,135
307,123,333,135
332,123,358,135
357,123,383,135
382,123,408,135
407,123,433,135
432,123,458,135
457,123,483,135
482,123,508,135
257,135,283,147
282,135,308,147
307,135,333,147
332,135,358,147
357,135,383,147
382,135,408,147
407,135,433,147
432,135,458,147
457,135,483,147
482,135,508,147
257,147,283,159
282,147,308,159
307,147,333,159
332,147,358,159
357,147,383,159
382,147,408,159
407,147,433,159
432,147,458,159
457,147,483,159
482,147,508,159
257,159,283,171
282,159,308,171
307,159,333,171
332,159,358,171
357,159,383,171
382,159,408,171
407,159,433,171
432,159,458,171
457,159,483,171
482,159,508,171
257,171,283,183
282,171,308,183
307,171,333,183
332,171,358,183
357,171,383,183
382,171,408,183
407,171,433,183
432,171,458,183
457,171,483,183
482,171,508,183
257,183,283,195
282,183,308,195
307,183,333,195
332,183,358,195
357,183,383,195
382,183,408,195
407,183,433,195
432,183,458,195
457,183,483,195
482,183,508,195
3,196,29,208
28,196,54,208
53,196,79,208
78,196,104,208
103,196,129,208
128,196,154,208
153,196,179,208
178,196,204,208
203,196,229,208
228,196,254,208
3,208,29,220
28,208,54,220
53,208,79,220
78,208,104,220
103,208,129,220
128,208,154,220
153,208,179,220
178,208,204,220
203,208,229,220
228,208,254,220
3,220,29,232
28,220,54,232
53,220,79,232
78,220,104,232
103,220,129,232
128,220,154,232
153,220,179,232
178,220,204,232
203,220,229,232
228,220,254,232
3,232,29,244
28,232,54,244
53,232,79,244
78,232,104,244
103,232,129,244
128,232,154,244
153,232,179,244
178,232,204,244
203,232,229,244
228,232,254,244
3,244,29,256
28,244,54,256
53,244,79,256
78,244,104,256
103,244,129,256
128,244,154,256
153,244,179,256
178,244,204,256
203,244,229,256
228,244,254,256
3,256,29,268
28,256,54,268
53,256,79,268
78,256,104,268
103,256,129,268
128,256,154,268
153,256,179,268
178,256,204,268
203,256,229,268
228,256,254,268
3,268,29,280
28,268,54,280
53,268,79,280
78,268,104,280
103,268,129,280
128,268,154,280
153,268,179,280
178,268,204,280
203,268,229,280
228,268,254,280
3,280,29,292
28,280,54,292
53,280,79,292
78,280,104,292
103,280,129,292
128,280,154,292
153,280,179,292
178,280,204,292
203,280,229,292
228,280,254,292
3,292,29,304
28,292,54,304
53,292,79,304
78,292,104,304
103,292,129,304
128,292,154,304
153,292,179,304
178,292,204,304
203,292,229,304
228,292,254,304
3,304,29,316
28,304,54,316
53,304,79,316
78,304,104,316
103,304,129,316
128,304,154,316
153,304,179,316
178,304,204,316
203,304,229,316
228,304,254,316
257,196,283,208
282,196,308,208
307,196,333,208
332,196,358,208
357,196,383,208
382,196,408,208
407,196,433,208
432,196,458,208
457,196,483,208
482,196,508,208
257,208,283,220
282,208,308,220
307,208,333,220
332,208,358,220
357,208,383,220
382,208,408,220
407,208,433,220
432,208,458,220
457,208,483,220
482,208,508,220
257,220,283,232
282,220,308,232
307,220,333,232
332,220,358,232
357,220,383,232
382,220,408,232
407,220,433,232
432,220,458,232
457,220,483,232
482,220,508,232
257,232,283,244
282,232,308,244
307,232,333,244
332,232,358,244
357,232,383,244
382,232,408,244
407,232,433,244
432,232,458,244
457,232,483,244
482,232,508,244
257,244,283,256
282,244,308,256
307,244,333,256
332,244,358,256
357,244,383,256
382,244,408,256
407,244,433,256
432,244,458,256
457,244,483,256
482,244,508,256
257,256,283,268
282,256,308,268
307,256,333,268
332,256,358,268
357,256,383,268
382,256,408,268
407,256,433,268
432,256,458,268
457,256,483,268
482,256,508,268
257,268,283,280
282,268,308,280
307,268,333,280
332,268,358,280
357,268,383,280
382,268,408,280
407,268,433,280
432,268,458,280
457,268,483,280
482,268,508,280
257,280,283,292
282,280,308,292
307,280,333,292
332,280,358,292
357,280,383,292
382,280,408,292
407,280,433,292
432,280,458,292
457,280,483,292
482,280,508,292
257,292,283,304
282,292,308,304
307,292,333,304
332,292,358,304
357,292,383,304
382,292,408,304
407,292,433,304
432,292,458,304
457,292,483,304
482,292,508,304
257,304,283,316
282,304,308,316
307,304,333,316
332,304,358,316
357,304,383,316
382,304,408,316
407,304,433,316
432,304,458,316
457,304,483,316
482,304,508,316"
 FIELD SCRIPT:
on mouseup
  BEEP
  EXIT MOUSEUP
  set the cursor to watch
  Repeat with x = 1 to 400
    put x
    RndBtn x
    put the rect of cd btn "Current Cell" into line x of me
  end repeat
end mouseup


%%%%%%%%%%%%% Cd 18, Fld 2 %%%%%%%%%%%%%
 Name = Rnd Object, Num = 2, ID = 56, Rect = 211,323,291,342
 Style = shadow, Visible = false, LockText = true
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = center, TextFont = Geneva, TextHeight = 16
 TextSize = 12, TextStyle = plain
 FIELD CONTENTS:
"0"
This field has no script.
%%%%%%%%%%%%% Cd 18, Fld 3 %%%%%%%%%%%%%
 Name = card field id 60, Num = 3, ID = 60, Rect = 3,322,473,337
 Style = opaque, Visible = true, LockText = false
 ShowLines = false, WideMargins = false, AutoTab = false
 TextAlign = left, TextFont = Geneva, TextHeight = 12
 TextSize = 9, TextStyle = plain
 FIELD CONTENTS:
"Blackened cards will be presented randomly.  Click on the number of any card to view it."
This field has no script.