Mac Power 1996 October/MACPOWER-1996-10.ISO.7z/MACPOWER-1996-10.ISO/MacPowerオリジナル/OMOまるちめであでござる/めもすた

UltraCard Stack | 1996-07-24 | 193KB | 1,122 lines

PFONT
AMERICAN HERITAGE
APPLE CHANCERY0
ATHENS@
AVANT GARDE
BOOKMAN
CAIRO
CHICAGO
COURIER
DINGBATSl
ERAIHITO
FOOTNOTE
GENEVA
    HELVETICA
HOEFLER TEXT
HOEFLER TEXT ORNAMENTS
LONDON
LOS ANGELES
MOBILE
MONACO
MT EXTRA
N HELVETICA NARROW
NARITA
NARITA
NEW CENTURY SCHLBK
NEW YORK
OSAKA
PALATINOl
RPOPKAKU1H
RPOPKAKU1K
RPOPKAKU1R
RPOPKAKU2H@
RPOPKAKU2K
RPOPKAKU2R
RPOPMARU1H
RPOPMARU1K@
RPOPMARU1R
RPOPMARU2H
RPOPMARU2K
RPOPMARU2R@
SAN FRANCISCO
SYMBOL
TIMES
TORONTO
VENICE@
ZAPF CHANCERY
ZAPF DINGBATS
on openCard
  visual effect dissolve in 15 ticks
  go next
end openCard
y,,uy,
Uy¥t(
]]]]]]o
kc]]k]
*5hd6
kk]k]
l]6k6
5k6kk2h]]
1Q6kg
1gcd5
5k65h
1]]]]
k5og6
]l]]]]
]Y]Y$Y
Tx]qp
5c565k
1125-211V
11U6U6U
2U6U6
25Z5V
]Y]1]]oc
okcc]6]1]]¥]]
oQo16kk
g21]]
]l]]]]]
YYyY]l
kkkk66k
6g6kk5h``5
tqtYu
kkk56^
cg5h556]2]]1]
]5h5k
koQ611
kkh6g
go1R]]X
 ]Y]]o]]]515
`5gog^15
1Z12U1212112-121-
1Z2U5V
ZZ5ZU261
U2112112111-12121-
1112121
Z5Z5Z
2]^$Y
2YZ51V5U611V
1112-11111211
Y1^12`^
655o]
-,-,q
1k12g12
56kc52
^5k65
5^6h]Yy
'h6k^
d5g2d
hk]6]
^56c16
5-1,)
-11121112
1U211
11212111-
-21112111211
121211
112121116-
121111
1V1ZYZZ
dccg6
f/<U3
UUUUUF/Uz
6dk565g2
}}} Y
cRkkg
cg6kk
]k]R1g
dgok6k]
-1-11U
U11-1
2U5.111-
---1-
12-1111111121211.U1
.Y1Z1
k6kk6
1Rkkg
]25^5k
!   $
5h]5^
]65hkgkg`5d5
g66gh5k
2kRkoR
p,pvvpq
k5^k652dg

121]2]
  #<<
16]1616c5^
]665g
R1o]o1^12]616
11oQ`5kokog
    $
}YYY101
25212111
ZYY2Y
Y25UZ1
1^5^c1
ok^6og2Ro
YYY5Y101
1Y1121
112111
1Z1ZYZ1
Y6U2YU21
ZY6Y2Y
^h6^l
R6koRQko^d^
6h6d5
62g2ck
Q252g2
566g6
<*665hQ
kkkkkk^
gk65g`
^6k6k]6Q6
6k6^5d1R5
]lQ1^^do
x1R6c
R]165]R
Rkk6g
hhhlhh^lld2
t]utu
YYY]Y11
66c1^]
]l]]5oQ
}u}}}}
l^5kkQ6
Yl2Yh^
*`t*
]h]Y116
W9y|Q
]Y26k6
kh]6]
66k62d
51]o]1
go65k]k
2]1k26
]]656k
1]]]2YH
21^]21'o2
hd12]RhYyY
Y1]6k
]] Y Y
66k]Y6]]Y
q qq]
Qqu'u]Q]q
RQ%Vq
`1R1o]go
lR1Y$Y
Y]h]]
l]1l^l
o6lRh]]oY
1]1o11
]]]¥]Y
d561c5]Y1Y
hY$h]lY
o5^15o
l]h]1]
111]]h1]
]]]Y]]]
]6]55
go55ko
k6Qo]Y
5k]lY
YYYYYYYY
Y]lY1]l^
]]1]k
5o5]]
Y]YyhY
^lok1h
hlhd5
6h6`g
k]6`W
%%_[y
]Y]11]
k1ok1
l]]l]
]]1]1]52k
ck6g6
6k]k1
YXYYY$
115Q2
*]6t6
]l]Y]1
555]1
`yyYd'5S
yxypq
XY]X]
l15^h
]$Y=]
]55ol
151d15Qc
yyxyx
]Yl]l
]]115]
h2l1]
]2l5]
^15k1
^55k5
&5115
1151^
21151
115oh
l^`2h
dyYYYY
Q1h1`
2g555h
5h=hY
*kY1Y
]l1]51
]]5l52
hQ]]o`^l
5115]
]1l11
]Y]]]
161g1
^51h1]1l1
YY1uX
`2h5`
115o15
]15k5
U}pyyu
k]6lh]6
l1=]]Y=
^1555
252521
2Y11-
-1212
.121221
22161252
---11
2-121
2121161262
252V522Y212
2Y2116121
616U6Y6525
12Y61
16l^l
Q2lR]]h
<? ##
/.S%*
< '#
]2h5]^
115Q11
15]511
l]51]
lc11]l1l]
11l]1Y
Yl]1Y
]l]h¥
o511l]lY
551lh
<~P]G
<## <
#<<# ?#
<?< ?
< # ?
 '' '
k1hhk]llY¥
 ?  ?  #<
kR6g6
 # ';
<' #
h1l5l
   #
<##<#
<'<
6R66R
  # # ?
 '< #
 ' <
   '#  ?
R6{6d*
R2*6*2
152112
--1U1U
1U111111-11-11
-1--1
1U1111111-
-1-11-11
211212
1YZ11V1
1U1U11
11111-1-1-1
]] Q]
R]R2R
xdk`6
1-1--1
))-(--,-
-T--,-
Q--U-U11
-11211
^g^5^
11-U1--1---
-,--,
---,1
1U2U111
-1--1
2121216
gRk6d
  # '
y-}UU
-U--,--
-,),,--(
11U11
121252
,Q,Q]
gl6lQ
Q^]6R2c66
   #  #<
,u]u]qu
6g66*h
 '
-Q-,Q--L-(,-,(-)
U1U1V11U1111
111-11-1
12-1211
2112212
Z6^Z^
,-Q,-L-,),)(--
12152
1U21U1U111
11111-1-
-1211
12121211
252U6Z
k155oH1Y
$q$qQ
^y]R^]]d
R*RcR6
,-(Q,-(-
1U11111-1--
.11-1
12121Z12Y2Y6
--,-,-
11111111--1--1
1.1-1111
112111216
1V1U1-11111----1
2-11121Z12
1-,--
VY1~U
U2U1U1-11111
-1-1-
-12-2
1121211
]Q]QQ$v
Q2R6Q
U1U1U
U111111-1111-1--
-1-2-1-1
2-2516
dR666dR
Q $$Q
 Q Q$QQu(Quu(
Q(Q]$,Q(Q
h5R566R
UU]Uz
65dR6
]^2R]62
6Ro56R1
b3Q3b/U/f
U/U33QU
Ro'5R1z5
y+/(M
Q UFQf
4UQzUVU/U
F4fUBUe3
uuuuuu
UUFFU4FE
Q]QqQ
EUZUE
VZZUUZZUUZY
UqUyU
'REY~
yU ,,
UQ(Yz
Y11-Q-
ZUYQZUJ$~
Y$mU'#~U~/Z
**ddt
UUUZ,
]]2][
m(~~j
UUVJF,
#,Q,$rYyv
<<=8Hhdl,
v~nZR
+}U]U
YVVUYV
zY~~r vv
idVdZdZ
UiUVU
V~u~}z
UUYmU~
1U1TUTUY
1-1-1-----
yWU #Y
#I/Z#
}UyYV
I'$ZIZ~
,1,--1,1-11
1UY0U
1121U
-1---
 ZZZ#$IZZ'I~
YmV~Z
~^I~$ Z
x]¥v(
{-U!U
UUZwZ
UUUYF
UTU0U-
1-0-1
5]6*5R
YU4UU0
011-1,1-1,-0-1,-1-1-
-,1,1,-
1UU1UU1UUU0YU
U.Z3%
(]]jg
d5hRRg
6RR]6^
u$uuQQu
Rx666
x6*6R6R6R
$uuu$u
(j"sz
xxddx6dd
$()]W
----,
-----0--1U--1--1--1-1-11U-V1U1U2U11U1U1
czR~1z
|d`d|
RdRVRR
'Yu$Q}Q$Q
121--1-
UVUY1U111111Q1-11-1-1,----1-1U-1UU1UUUU1UU
-)1--
~y~}~}~
QQ$uQQ$u$Q
fgfgfb
~UU11-1-
)-11U
YU1-1--1,--11UU
UU1U1-111U1U
uu$Q((
15616
2CARD
palette id 1EXTI
 U_UmU_
n*?Us
mTAIL
on mouseDown
  go card "
end mouseDown
^SCRP
on mouseDown
  go card "
end mouseDown
on mouseDown
  go card "
end mouseDown
VIDCD
thisdata
1card
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of datasheet "
  else
    put me after datasheet "
    set the thisData of this card to number of rows of datasheet "
  end if
end closeField
BTAIL
KSCRP
on mouseUp
  put empty into field "
  set the thisData of this card to empty
  dehilite datasheet "
  tabkey
end mouseUp
    INFO
^SCRP
on mouseUp r
  put row r of me into field "
  set the thisData of this card to r
end mouseUp
MOCELL10
on mouseUp
  answer "
H" with "
" or "
  if it is "
" then exit mouseUp
  get hilitedRows of datasheet "
  if it is not empty then
    delete row it of datasheet "
    put empty into field "
    set the thisData of this card to empty
  end if
end mouseUp
SortSCRP
on mouseUp
  answer "
B" with "
" or "
  if it is "
" then exit mouseUp
  sort datasheet "
^" by column 1
  hilite row 1 of datasheet "
  put row 1 of datasheet "
^" into field "
  set the thisData of this card to 1
end mouseUp
^PROP
thisdata
1card
^TAIL
^TAIL
on mouseUp
  answer "
H" with "
" or "
  if it is "
" then exit mouseUp
  get hilitedRows of datasheet "
  if it is not empty then
    delete row it of datasheet "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    set the thisData of this card to empty
  end if
end mouseUp
^SCRP
on mouseUp r
  put row r of column 1 of me into field "
  put row r of column 2 of me into field "
  put row r of column 3 of me into field "
  put row r of column 4 of me into field "
  put row r of column 5 of me into field "
  set the thisData of this card to r
end mouseUp
MOCELL10
03-1234-5678
MacPower
03-???-????
OSCRP
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of column 2 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    get it + 1
    set the thisData of this card to it
    put me into row it of column 2 of datasheet "
  end if
end closeField
TTAIL
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of column 1 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    get it + 1
    set the thisData of this card to it
    put me into row it of column 1 of datasheet "
  end if
end closeField
    INFO
bSCRP
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of column 3 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    get it + 1
    set the thisData of this card to it
    put me into row it of column 3 of datasheet "
  end if
end closeField
03-1234-5678TAIL
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    get it + 1
    set the thisData of this card to it
    put me into row it of column 4 of datasheet "
  end if
end closeField
on returnInField
end returnInField
on closeField
  get the thisData of this card
  if it is not empty then
    put me into row it of column 5 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    get it + 1
    set the thisData of this card to it
    put me into row it of column 5 of datasheet "
  end if
end closeField
on returnInField
end returnInField
BTAIL
KSCRP
on mouseUp
  put empty into field "
  put empty into field "
  put empty into field "
  put empty into field "
  put empty into field "
  dehilite datasheet "
  set the thisData of this card to (number of rows of datasheet "
^") + 1
  select empty
  tabkey
end mouseUp
SortSCRP
on mouseUp
  answer "
B" with "
" or "
  if it is "
" then exit mouseUp
  sort datasheet "
^" by column 1
  hilite row 1 of datasheet "
  put row 1 of column 1 of datasheet "
^" into field "
  put row 1 of column 2 of datasheet "
^" into field "
  put row 1 of column 3 of datasheet "
^" into field "
  put row 1 of column 4 of datasheet "
^" into field "
  put row 1 of column 5 of datasheet "
^" into field "
  set the thisData of this card to 1
end mouseUp
    INFO
thisdata
1card
on mouseUp
  answer "
H" with "
" or "
  if it is "
" then exit mouseUp
  get hilitedRows of datasheet "
  if it is not empty then
    delete row it of datasheet "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    put empty into field "
    set the thisData of this card to empty
  end if
end mouseUp
^SCRP
on mouseUp r
  get row r of column 1 of me
  put item 1 of it into field "
  put item 2 of it into field "
  put item 3 of it into field "
  get row r of column 2 of me
  put item 1 of it into field "
  put item 2 of it into field "
  put row r of column 3 of me into field "
  put row r of column 4 of me into field "
  set the thisData of this card to r
end mouseUp
MOCELL10
1996,9,18
,0000
MacPower
NSCRP
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
1996TAIL
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
9TAIL
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
18TAIL
    INFO
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
MacPower
on closeField
  put the thisData of this card into D
  if D is not empty then
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  else
    answer "
H" with "
" or "
    if it is "
" then
      put empty into me
      exit closeField
    end if
    get number of rows of datasheet "
    put it + 1 into D
    set the thisData of this card to D
    get field "
N" & "," & field "
" & "," & field "
    put it into row D of column 1 of datasheet "
    get  field "
" & "," & field "
    put it into row D of column 2 of datasheet "
    put field "
" into row D of column 3 of datasheet "
    put field "
" into row D of column 4 of datasheet "
  end if
end closeField
BTAIL
KSCRP
on mouseUp
  get the time
  convert it to dateItems
  put item 1 of it into field "
  put item 2 of it into field "
  put item 3 of it into field "
  put item 4 of it into field "
  put item 5 of it into field "
  put empty into field "
  put empty into field "
  dehilite datasheet "
  put (number of rows of datasheet "
^") + 1 into D
  set the thisData of this card to D
  get field "
N" & "," & field "
" & "," & field "
  put it into row D of column 1 of datasheet "
  get  field "
" & "," & field "
  put it into row D of column 2 of datasheet "
  put field "
" into row D of column 3 of datasheet "
  put field "
" into row D of column 4 of datasheet "
  select empty
  tabkey
end mouseUp
SortSCRP
on mouseUp
  answer "
B" with "
" or "
  if it is "
" then exit mouseUp
  sort datasheet "
^" by column 1
  hilite row 1 of datasheet "
  get row 1 of column 1 of datasheet "
  put item 1 of it into field "
  put item 2 of it into field "
  put item 3 of it into field "
  get row 1 of column 2 of datasheet "
  put item 1 of it into field "
  put item 2 of it into field "
  put row 1 of column 3 of datasheet "
^" into field "
  put row 1 of column 4 of datasheet "
^" into field "
  set the thisData of this card to 1
end mouseUp