home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / UPEDIT.MOD < prev    next >
Text File  |  1989-04-01  |  787b  |  51 lines
  1. ;LANS  10-18-88  06:55  UPEDIT.MOD
  2. ;
  3. ATWRITE 6 11 6 '    File # Selected to Edit?                         '
  4. ATWRITE 36 11 3 'n'
  5. GOTOXY 33 10
  6. COLOR 15
  7. GET 0 1
  8. IF '$0' = '1' cng1
  9. IF '$0' = '2' cng2
  10. IF '$0' = '3' cng3
  11. IF '$0' = '4' cng4
  12. IF '$0' = '5' cng5
  13. IF '$0' = '6' cng6
  14. IF '$0' = '7' cng7
  15. IF '$0' = '8' cng8
  16. go_back:
  17. RETURN
  18. cng1:
  19. IF '$1' = '' go_back
  20. SCRIPT Upsel.001
  21. RETURN
  22. cng2:
  23. IF '$2' = '' go_back
  24. SCRIPT Upsel.002
  25. RETURN
  26. cng3:
  27. IF '$3' = '' go_back
  28. SCRIPT Upsel.003
  29. RETURN
  30. cng4:
  31. IF '$4' = '' go_back
  32. SCRIPT Upsel.004
  33. RETURN
  34. cng5:
  35. IF '$5' = '' go_back
  36. SCRIPT Upsel.005
  37. RETURN
  38. cng6:
  39. IF '$6' = '' go_back
  40. SCRIPT Upsel.006
  41. RETURN
  42. cng7:
  43. IF '$7' = '' go_back
  44. SCRIPT Upsel.007
  45. RETURN
  46. cng8:
  47. IF '$8' = '' go_back
  48. SCRIPT Upsel.008
  49. RETURN
  50. ;
  51.