home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / DNSEL.011 < prev    next >
Text File  |  1989-04-01  |  790b  |  45 lines
  1. ;LANS  10-18-88  17:30  DNSEL.011
  2. ;
  3. GOTO Select11
  4. go_back:
  5. ASSIGN 0 'Go_back'
  6. RETURN
  7. select11:
  8. ATWRITE 11 8 2 'File #11 > '
  9. COLOR 3
  10. GOTOXY 16 7
  11. GET 0 12
  12. IF '$0' =  '' no_entry
  13. ASSIGN f11 '$0'
  14. no_entry:
  15. IF '$f11' = ' ' blank_file
  16. IF '$f11' =  '' go_back
  17. Check11:
  18. EXIST $dirpath\$f11 Redo11
  19. GOTO Select12
  20. Redo11:
  21. ASSIGN 0 '$f11'
  22. ATWRITE 22 8 143 '** EXISTS **'
  23. PAUSE 2000
  24. ATWRITE 22 8 3 '            '
  25. ATWRITE 22 8 3 '$f11'
  26. GOTOXY 16 7
  27. COLOR 11
  28. GET 0 12
  29. IF '$0' = ' ' blank_file
  30. IF '$0' = '' Select12
  31. ATWRITE 22 8 11 '            '
  32. ATWRITE 22 8 11 '$0'
  33. ASSIGN f11 '$0'
  34. GOTO Check11
  35. select12:
  36. ASSIGN 0 'Select12'
  37. RETURN
  38. blank_file:
  39. ATWRITE 22 8 143 '* End of Entries *'
  40. PAUSE 2500
  41. ATWRITE 22 8 143 '                  '
  42. ASSIGN f11 ''
  43. GOTO go_back
  44. ;
  45.