home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00220.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  1.4 KB  |  33 lines
  1. on fillPrint
  2.   global LogParms
  3.   initCardData()
  4.   put item 2 of LogParms into field "QuerentName"
  5.   put item 3 of LogParms into field "QQuestion"
  6.   put item 4 of LogParms into field "DivDate"
  7.   put item 1 of LogParms into field "DivTime"
  8. end
  9.  
  10. on initCardData
  11.   global CardsDealt, CCindexes, CardList, author, CdNames, IllDigWaite, IllDigFoster, DigWaite, DigFoster
  12.   ClearFields()
  13.   repeat with i = 1 to CardsDealt - 1
  14.     set CardName to line value(item i of CCindexes) of CdNames
  15.     set tmp to char 1 to the number of chars in CardName - 2 of CardName
  16.     if value(item i of CCindexes) <= 78 then
  17.       put field "CardNames" & tmp && "(Dig)" & RETURN & RETURN into field "CardNames"
  18.       if author = "Waite" then
  19.         put field "CardMeaning" & line value(item i of CCindexes) of DigWaite && "(W)" & RETURN & RETURN into field "CardMeaning"
  20.       else
  21.         put field "CardMeaning" & line value(item i of CCindexes) of DigFoster && "(F)" & RETURN & RETURN into field "CardMeaning"
  22.       end if
  23.       next repeat
  24.     end if
  25.     put field "CardNames" & tmp && "(Ill)" & RETURN & RETURN into field "CardNames"
  26.     if author = "Waite" then
  27.       put field "CardMeaning" & line value(item i of CCindexes) mod 78 of IllDigWaite && "(W)" & RETURN & RETURN into field "CardMeaning"
  28.       next repeat
  29.     end if
  30.     put field "CardMeaning" & line value(item i of CCindexes) mod 78 of IllDigFoster && "(F)" & RETURN & RETURN into field "CardMeaning"
  31.   end repeat
  32. end
  33.