home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / DNSEL.MOD < prev    next >
Text File  |  1989-04-01  |  1KB  |  70 lines
  1. ;LANS  10-18-88  21:35  DNSEL.MOD
  2. ;
  3. IF '$1' = '' select1
  4. IF '$2' = '' select2
  5. IF '$3' = '' select3
  6. IF '$4' = '' select4
  7. IF '$5' = '' select5
  8. IF '$6' = '' select6
  9. IF '$7' = '' select7
  10. IF '$8' = '' select8
  11. IF '$9' = '' select9
  12. IF '$f10' = '' select10
  13. IF '$f11' = '' select11
  14. IF '$f12' = '' select12
  15. IF '$f13' = '' select13
  16. IF '$f14' = '' select14
  17. IF '$f15' = '' select15
  18. IF '$f16' = '' select16
  19. go_back:
  20. RETURN
  21. select1:
  22. SCRIPT Dnsel.001
  23. GOTO $0
  24. select2:
  25. SCRIPT Dnsel.002
  26. GOTO $0
  27. select3:
  28. SCRIPT Dnsel.003
  29. GOTO $0
  30. select4:
  31. SCRIPT Dnsel.004
  32. GOTO $0
  33. select5:
  34. SCRIPT Dnsel.005
  35. GOTO $0
  36. select6:
  37. SCRIPT Dnsel.006
  38. GOTO $0
  39. select7:
  40. SCRIPT Dnsel.007
  41. GOTO $0
  42. select8:
  43. SCRIPT Dnsel.008
  44. GOTO $0
  45. select9:
  46. SCRIPT Dnsel.009
  47. GOTO $0
  48. select10:
  49. SCRIPT Dnsel.010
  50. GOTO $0
  51. select11:
  52. SCRIPT Dnsel.011
  53. GOTO $0
  54. select12:
  55. SCRIPT Dnsel.012
  56. GOTO $0
  57. select13:
  58. SCRIPT Dnsel.013
  59. GOTO $0
  60. select14:
  61. SCRIPT Dnsel.014
  62. GOTO $0
  63. select15:
  64. SCRIPT Dnsel.015
  65. GOTO $0
  66. select16:
  67. SCRIPT Dnsel.016
  68. GOTO $0
  69. ;
  70.