Carousel Volume 2 #1/carousel.iso/mactosh/hc/icecware.sit/ICEC-Ware/card_2419.txt

Text File | 1988-10-30 | 12.6 KB | 521 lines

-- card: 2419 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 3958
-- name: menus
----- HyperTalk script -----
on openCard
  set visible of button "last entry seen" to false
  if card field status is "type" then
    set hilite of button "Type of Use" of card 2 to true
    type
  end if
  if card field status is "discipline" then
    set hilite of button "Discipline" of card 2 to true
    discipline
  end if
  if card field status is "system" then
    set hilite of button "System" of card 2 to true
    system
  end if
  if line 1 of card field status is "type choice" then
    typeChoice line 2 of card field status
  end if
  if line 1 of card field status is "discipline choice" then
    disciplineChoice line 2 of card field status
  end if
  if line 1 of card field status is "system choice" then
    systemChoice line 2 of card field status
  end if -- above xxxChoice things must be done before next stuff
  if line 3 of card field status is empty then
    set visible of button "last entry seen" to false
  else -- lines in menuList will have been recomputed by xxxChoice
    put 34+12*(number of lines of card field menuList) into it
    set rect of button "last entry seen" to 0,it,80,it+50
    set visible of button "last entry seen" to true
  end if
end openCard

on type
  if visible of card field type is false then
    hideAll
    set visible of card field type to true
  end if
  play harpsichord c
end type

on discipline
  if visible of card field discipline is false then
    hideAll
    set visible of card field discipline to true
  end if
  play harpsichord e
end discipline

on system
  if visible of card field system is false then
    hideAll
    set visible of card field system to true
  end if
  play harpsichord g
end system

on hideAll
  set visible of card field menuList to false
  set visible of card field type to false
  set visible of card field discipline to false
  set visible of card field system to false
end hideAll

on typeChoice choice
  if visible of card field menuList is false then
    hideAll
    put "    TYPE OF USE:  "&choice&return into card field menuList
    set visible of card field menuList to true
    repeat with t = 3 to (card field cardsIn)+2
      if choice is in (card field "type" of card t) then
        put card field "title" of card t after card field menuList
        put return after card field menuList
      end if
    end repeat
    play harpsichord c5
  end if
end typeChoice

on disciplineChoice choice
  if visible of card field menuList is false then
    hideAll
    put "    DISCIPLINE:  "&choice&return into card field menuList
    set visible of card field menuList to true
    repeat with t = 3 to (card field cardsIn)+2
      if choice is in (card field "discipline" of card t) then
        put card field "title" of card t after card field menuList
        put return after card field menuList
      end if
    end repeat
    play harpsichord c5
  end if
end disciplineChoice

on systemChoice choice
  if visible of card field menuList is false then
    hideAll
    put "    SYSTEM:  "&choice&return into card field menuList
    set visible of card field menuList to true
    repeat with t = 3 to (card field cardsIn)+2
      if choice is in (card field "system" of card t) then
        put card field "title" of card t after card field menuList
        put return after card field menuList
      end if
    end repeat
    play harpsichord c5
  end if
end systemChoice




-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=32 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: menuList
----- HyperTalk script -----
on mouseDown
  put the mouseV into it
  put round((it-38)/12) into it
  if it > 0 then
    set rect of button 5 to 0,12*it+32,412,12*(it+1)+32
    set name of button 5 to (line (it+1) of card field menuList)
    set visible of button 5 to true
  end if
end mouseDown

on mouseUp
  put the mouseV into it
  put round((it-38)/12) into it
  set visible of button 5 to false
  put line (it+1) of card field menuList into title
  repeat with t = 3 to (card field cardsIn)+2
    if title is (card field "title" of card t) then
      go to card t
    end if
  end repeat
end mouseUp



-- part 2 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=0 top=32 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: type
----- HyperTalk script -----
on mouseDown
  put the mouseV into it
  put round((it-38)/12) into it
  set rect of button 5 to 0,12*it+32,412,12*(it+1)+32
  set name of button 5 to (line (it+1) of card field type)
  set visible of button 5 to true
end mouseDown

on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  put the mouseV into it
  put round((it-38)/12) into it
  set visible of button 5 to false
  put "type choice" into card field status
  put return after card field status
  put (line (it+1) of card field type) after card field status
  play c5
  openCard
end mouseUp



-- part 3 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=0 top=32 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: discipline
----- HyperTalk script -----
on mouseDown
  put the mouseV into it
  put round((it-38)/12) into it
  set rect of button 5 to 0,12*it+32,412,12*(it+1)+32
  set name of button 5 to (line (it+1) of card field discipline)
  set visible of button 5 to true
end mouseDown

on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  put the mouseV into it
  put round((it-38)/12) into it
  set visible of button 5 to false
  put "discipline choice" into card field status
  put return after card field status
  put (line (it+1) of card field discipline) after card field status
  openCard
end mouseUp



-- part 5 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=0 top=32 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: system
----- HyperTalk script -----
on mouseDown
  put the mouseV into it
  put round((it-38)/12) into it
  set rect of button 5 to 0,12*it+32,412,12*(it+1)+32
  set name of button 5 to (line (it+1) of card field system)
  set visible of button 5 to true
end mouseDown

on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  put the mouseV into it
  put round((it-38)/12) into it
  set visible of button 5 to false
  put "system choice" into card field status
  put return after card field status
  put (line (it+1) of card field system) after card field status
  openCard
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=0 top=319 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: instructions


-- part 7 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=104 top=169 right=256 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: status


-- part 8 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=0 top=0 right=32 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 32488 / 32488
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: up
----- HyperTalk script -----
on mouseUp
  set visible of button "last entry seen" to false
  if number of words in card field status is 1 then
    repeat with but = 2 to 4
      if hilite of button but is true then
        set hilite of button but to false
      end if
    end repeat
    go to card 1
  else
    put word 1 of card field status into card field status
    if card field status is "type" then
      set hilite of button "Type of Use" to true
    end if
    if card field status is "system" then
      set hilite of button "System" to true
    end if
    if card field status is "discipline" then
      set hilite of button "Discipline" to true
    end if
    send (word 1 of card field status)
  end if
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=412 top=110 right=132 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: System
----- HyperTalk script -----
on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  set hilite of button "System" to true
  put "system" into card field status
  openCard
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=412 top=80 right=102 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Discipline
----- HyperTalk script -----
on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  set hilite of button "Discipline" to true
  put "discipline" into card field status
  openCard
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=412 top=50 right=72 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type of Use
----- HyperTalk script -----
on mouseUp
  repeat with but = 2 to 4
    if hilite of button but is true then
      set hilite of button but to false
    end if
  end repeat
  set hilite of button "Type of Use" to true
  put "type" into card field status
  openCard
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: 8001
-- rect: left=0 top=44 right=56 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 512
-- line height: 12
-- part name: Molecular Genetics: A Student-Driven Laboratory Simulation


-- part 16 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cardsIn


-- part 17 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=0 top=106 right=156 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: last entry seen
----- HyperTalk script -----
on mouseUp
  repeat with t = 3 to (card field cardsIn)+2
    if (line 3 of card field status of card 2) is (card field "title" of card t) then
      go to card t
    end if
  end repeat
end mouseUp



-- part contents for card part 6
----- text -----
Click on one of the TEXT LINES or BUTTONS above (or "up").

-- part contents for card part 7
----- text -----
type choice
Simulation for Learning

-- part contents for card part 15
----- text -----
    TYPE OF USE:  Simulation for Learning
Molecular Genetics: A Student-Driven Laboratory Simulation
Motion: Simulation of motion for classical mechanics
Electric Fields of Point Charges
Equipotential Surfaces
Scheme: Linear lumped systems analysis, both time and frequency domain


-- part contents for card part 16
----- text -----
18

-- part contents for card part 2
----- text -----
Discipline Tool
General Utility
Simulation for Learning
Tutorial


-- part contents for card part 5
----- text -----
Andrew, 7/86 version (BE1, wm)
IBM PC (CMU Tutor)
Macintosh (CMU Tutor)
Workstation CMU Tutor 1.2 (12/87)
X.10 (VSII w/Ultrix 2.0 and Sun3 versions only)


-- part contents for card part 3
----- text -----
Algebra
Biology
Electrical Engineering
English
History
Mathematics
Physics
pre-Calculus
Rhetoric
Science
Trigonometry
Writing