home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / UP.SCR < prev    next >
Text File  |  1989-04-01  |  1KB  |  53 lines

  1. ;LANS  10-18-88  13:55  UP.SCR
  2. ;
  3. GETSCR
  4. CLRSCR
  5. COLOR 15
  6. BOX 3 1 78 13
  7. STRING login logend dirpath correct prtcol YorN BBSlog autosel
  8. STRING desc1 desc2 desc3 desc4 desc5 desc6 desc7 desc8 scr_type
  9. STRING pcb-prtcol
  10. STRING Owrite num_file
  11. ASSIGN scr_type 'U'
  12. ASSIGN num_file 'EIGHT (8)'
  13. CLRSCR
  14. ATWRITE 7 3 14 ' ****-'
  15. ATWRITE 13 3 29 'Multiple'
  16. ATWRITE 21 3 15 '-File UpLoad/Logoff - Qmodem 4.0-****'
  17. SCRIPT initmsg.mod
  18. GOTO add
  19. edit-entry:
  20. SCRIPT upedit.mod
  21. GOTO go
  22. add:
  23. SCRIPT upsel.mod
  24. go:
  25. ATWRITE 7 11 6 '    ( )uit, ( )dd, ( )dit or ( )pload?                               '
  26. ATWRITE 12 11 13 'Q'
  27. ATWRITE 20 11 13 'A'
  28. ATWRITE 27 11 13 'E'
  29. ATWRITE 37 11 14 'U'
  30. ATWRITE 46 11 3 'U'
  31. GOTOXY 43 10
  32. COLOR 15
  33. GET 0 1
  34. IF '$0' = '' go2
  35. IF '$0' = 'U' go2
  36. IF '$0' = 'E' edit-entry
  37. IF '$0' = 'A' add
  38. IF '$0' = 'Q' done
  39. GOTO go
  40. go2:
  41. SCRIPT txt_area.mod
  42. TIMEOUT 60 $logend
  43. IF '$board' = '' $logend
  44. SCRIPT upload.$BBSlog
  45. GOTO $logend
  46. done:
  47. COLOR 11
  48. PUTSCR
  49. EXIT    
  50. logoff:
  51. SCRIPT logoff.mod
  52. ;
  53.