home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / DNEDIT.MOD < prev    next >
Text File  |  1989-04-01  |  2KB  |  91 lines
  1. ;LANS  10-18-88  21:33  DNEDIT.MOD
  2. ;
  3. ATWRITE 7 11 6 '    File # Selected to Edit?                            '
  4. ATWRITE 36 11 3 'nn'
  5. GOTOXY 30 10      
  6. COLOR 15
  7. GET 0 2
  8. IF '$0' = '1' Select1
  9. IF '$0' = '2' Select2
  10. IF '$0' = '3' Select3
  11. IF '$0' = '4' Select4
  12. IF '$0' = '5' Select5
  13. IF '$0' = '6' Select6
  14. IF '$0' = '7' Select7
  15. IF '$0' = '8' Select8
  16. IF '$0' = '9' Select9
  17. IF '$0' = '10' Select10
  18. IF '$0' = '11' Select11
  19. IF '$0' = '12' Select12
  20. IF '$0' = '13' Select13
  21. IF '$0' = '14' Select14
  22. IF '$0' = '15' Select15
  23. IF '$0' = '16' Select16
  24. Go_back:
  25. RETURN
  26. Select1:
  27. IF '$1' = '' Go_back
  28. SCRIPT dnsel.001
  29. RETURN
  30. Select2:
  31. IF '$2' = '' Go_back
  32. SCRIPT dnsel.002
  33. RETURN
  34. Select3:
  35. IF '$3' = '' Go_back
  36. SCRIPT dnsel.003
  37. RETURN
  38. Select4:
  39. IF '$4' = '' Go_back
  40. SCRIPT dnsel.004
  41. RETURN
  42. Select5:
  43. IF '$5' = '' Go_back
  44. SCRIPT dnsel.005
  45. RETURN
  46. Select6:
  47. IF '$6' = '' Go_back
  48. SCRIPT dnsel.006
  49. RETURN
  50. Select7:
  51. IF '$7' = '' Go_back
  52. SCRIPT dnsel.007
  53. RETURN
  54. Select8:
  55. IF '$8' = '' Go_back
  56. SCRIPT dnsel.008
  57. RETURN
  58. Select9:
  59. IF '$9' = '' Go_back
  60. SCRIPT dnsel.009
  61. RETURN
  62. Select10:
  63. IF '$f10' = '' Go_back
  64. SCRIPT dnsel.010
  65. RETURN
  66. Select11:
  67. IF '$f11' = '' Go_back
  68. SCRIPT dnsel.011
  69. RETURN
  70. Select12:
  71. IF '$f12' = '' Go_back
  72. SCRIPT dnsel.012
  73. RETURN
  74. Select13:
  75. IF '$f13' = '' Go_back
  76. SCRIPT dnsel.013
  77. RETURN
  78. Select14:
  79. IF '$f14' = '' Go_back
  80. SCRIPT dnsel.014
  81. RETURN
  82. Select15:
  83. IF '$f15' = '' Go_back
  84. SCRIPT dnsel.015
  85. RETURN
  86. Select16:
  87. IF '$f16' = '' Go_back
  88. SCRIPT dnsel.016
  89. RETURN
  90. ;
  91.