home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / DN.SCR < prev    next >
Text File  |  1989-04-01  |  975b  |  52 lines
  1. ;LANS  10-18-88  13:40  DN.SCR
  2. ;
  3. GETSCR
  4. CLRSCR
  5. COLOR 15
  6. BOX 6 1 75 13
  7. STRING login logend dirpath correct prtcol YorN BBSlog autosel
  8. STRING f10 f11 f12 f13 f14 f15 f16 scr_type Owrite num_file
  9. STRING pcb-prtcol
  10. ASSIGN scr_type 'D'
  11. ASSIGN num_file 'SIXTEEN (16)'
  12. CLRSCR
  13. ATWRITE 7 3 14 ' ****-'
  14. ATWRITE 13 3 29 'Multiple'
  15. ATWRITE 21 3 15 '-File DnLoad/Logoff - Qmodem 4.0-****'
  16. SCRIPT initmsg.mod
  17. GOTO add
  18. edit-entry:
  19. SCRIPT dnedit.mod
  20. GOTO go
  21. add:
  22. SCRIPT dnsel.mod
  23. go:
  24. ATWRITE 7 11 6 '    ( )uit, ( )dd, ( )dit or ( )ownload?
  25. ATWRITE 12 11 13 'Q'
  26. ATWRITE 20 11 13 'A'
  27. ATWRITE 27 11 13 'E'
  28. ATWRITE 37 11 14 'D'
  29. ATWRITE 48 11 3 'D'
  30. GOTOXY 42 10
  31. COLOR 15
  32. GET 0 1
  33. IF '$0' = '' go2
  34. IF '$0' = 'D' go2
  35. IF '$0' = 'E' edit-entry
  36. IF '$0' = 'A' add
  37. IF '$0' = 'Q' done
  38. GOTO go
  39. go2:
  40. SCRIPT txt_area.mod
  41. TIMEOUT 60 $logend
  42. IF '$board' = '' $logend
  43. SCRIPT dnload.$BBSlog
  44. GOTO $logend
  45. done:
  46. COLOR 11
  47. PUTSCR
  48. EXIT
  49. logoff:
  50. SCRIPT logoff.mod
  51. ;
  52.