home *** CD-ROM | disk | FTP | other *** search
/ Quick Study Spanish / DISK_1_QSSP.iso / tlc.z / TRAVEL.MPS < prev    next >
Text File  |  1997-07-03  |  429b  |  40 lines
  1. ;Warning!  Do not modify this file.
  2. yield on
  3. bids=HGButtonID
  4.  
  5. call goTravel
  6.  
  7. tlab=HGTravelLab
  8. set tlab Exit DoExit
  9. set tlab Help goHelp
  10.  
  11. wait
  12.  
  13. procedure goHelp
  14. [
  15. ;#define    HELP_TRAVEL_LAB            912
  16.   set bids StringID 912
  17.   get bids String hs
  18.   Help hs
  19. ;  Help "Travel Lab"
  20. ]
  21.  
  22. procedure DoExit
  23. [
  24.   exit
  25. ]
  26.  
  27. procedure doItinerary
  28. [
  29.   call goTravel
  30. ]
  31.  
  32. procedure goTravel
  33. [
  34.   SceneBlack 15000
  35. ]
  36.  
  37.  
  38.  
  39.  
  40.