home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 3.ddi / LSP / YN.LSP < prev    next >
Encoding:
Text File  |  1989-10-04  |  191 b   |  9 lines
  1. (MENUCMD "S=IN2")
  2. (SETQ YN (GETSTRING "\n╩╟╖±╝╠╨°╗¡═Γ▒φ├µ: "))
  3. (IF (OR (= YN "Y") (= YN "y"))
  4.  (PROGN(MENUCMD "I=YY")
  5.        (MENUCMD "I=*")
  6.  )
  7.                (MENUCMD "S=SCREEN")
  8. )
  9.