home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / checker.dxr / 00026_GoCities.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  585 b   |  24 lines
  1. on GoCities
  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 n = 1 to LMXQ
  9.     append(TMQS, n)
  10.   end repeat
  11.   FixAnsChan(J)
  12.   set LQP to 1
  13.   set LQNO to 0
  14.   set DTQR to 0
  15.   set DTQW to 0
  16.   set PAY to 0
  17.   set PPNM to "@::SQ_DIR:SQ" & P
  18.   sound stop CHN
  19.   when timeOut then nothing
  20.   updateStage()
  21.   set PSND to "SIL_PAUS.AIF"
  22.   go("OUT")
  23. end
  24.