home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / UPSEL.008 < prev    next >
Text File  |  1989-04-01  |  1KB  |  53 lines
  1. ;LANS  10-18-88  16:54  UPSEL.008
  2. ;
  3. GOTO Select8
  4. go_back:
  5. ASSIGN 0 'Go_back'
  6. RETURN
  7. select8:
  8. ATWRITE 4 10 2 ' File 8 >'
  9. COLOR 3
  10. redo8:
  11. GOTOXY 10 9
  12. GET 0 12
  13. IF '$0' =  '' no_entry
  14. ASSIGN 8 '$0'
  15. no_entry:
  16. GOTOXY 10 9
  17. DISPLAY '            '
  18. IF '$8' = ' ' blank_desc
  19. IF '$8' =  '' go_back
  20. EXIST $dirpath\$8 valid8
  21. ATWRITE 13 10 143 '**INVALID!**'
  22. PAUSE 2000
  23. ATWRITE 13 10 3 '            '
  24. ATWRITE 13 10 3 '$8'
  25. COLOR 15
  26. GOTO redo8
  27. valid8:
  28. ATWRITE 13 10 11 '            '
  29. ATWRITE 13 10 11 '$8'
  30. ATWRITE 26 10 4 'Desc [---------------------------------------------]'
  31. IF '$Desc8' = '' No_write
  32. ATWRITE 32 10 7 '$Desc8'
  33. No_write:
  34. GOTOXY 29 9
  35. COLOR 7
  36. GET 0 45
  37. IF '$0' = '' no_desc
  38. ASSIGN Desc8 '$0'
  39. no_desc:
  40. IF '$Desc8' = ' ' blank_desc
  41. IF '$Desc8' = '' blank_desc
  42. select8:
  43. ASSIGN 0 'Go_back'
  44. RETURN
  45. blank_desc:
  46. ATWRITE 13 10 143 ' ** End of U/L Entries **                                        '
  47. PAUSE 2500
  48. ATWRITE 13 10 143 '                           '
  49. ASSIGN 8 ''
  50. ASSIGN Desc8 ''
  51. GOTO go_back
  52. ;
  53.