home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / checker.dxr / 00002_GoDestinationsFragor.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  807 b   |  30 lines
  1. on GoDestinationsFragor
  2.   global PPNM, PNM, LQP, J, TWNS, PSND, ACTION, EXCF, EXCF_S, CASH, TMQS, LMXQ, LQNO, DTQR, DTQW, CHN, PAY, YY, MM, DD
  3.   set EXCF to getAt(EXCF_S, getLast(TWNS))
  4.   set TMQS to []
  5.   set P to getLast(TWNS)
  6.   append(ACTION, PutDate(J, YY, MM, DD))
  7.   append(ACTION, "D" & string(P))
  8.   repeat with FN = 1 to 500
  9.     if getNthFileNameInFolder(FixPath(J, PNM & "DESTDIR:DQDIR" & P & ":"), FN) = EMPTY then
  10.       exit repeat
  11.     end if
  12.   end repeat
  13.   set LMXQ to FN - 3
  14.   repeat with n = 1 to LMXQ
  15.     append(TMQS, n)
  16.   end repeat
  17.   FixAnsChan(J)
  18.   set LQP to 1
  19.   set LQNO to 0
  20.   set DTQR to 0
  21.   set DTQW to 0
  22.   set PAY to 0
  23.   set PPNM to "@::DESTDIR:DQDIR" & P & ":D" & P & "Q" & LQP
  24.   sound stop CHN
  25.   when timeOut then nothing
  26.   updateStage()
  27.   set PSND to "SIL_PAUS.AIF"
  28.   go("OUT")
  29. end
  30.