home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / qmscr41.zip / GETBBS.MOD < prev    next >
Text File  |  1989-04-01  |  563b  |  34 lines
  1. ;LANS  10-18-88  06:37  GETBBS.MOD
  2. ;
  3. ATWRITE 12 3 13 'P'
  4. ATWRITE 24 3 13 'E'
  5. ATWRITE 35 3 13 'G'
  6. ATWRITE 45 3 13 'F'
  7. ATWRITE 53 3 13 'R'
  8. IF '$0' = 'P' PCB_sel
  9. IF '$0' = 'E' EPC_sel
  10. IF '$0' = 'G' GPB_sel
  11. IF '$0' = 'F' FID_sel
  12. IF '$0' = 'R' RBB_sel
  13. PCB_sel:
  14. ASSIGN BBSlog 'PCB'
  15. ATWRITE 12 3 14 'P'
  16. RETURN
  17. EPC_sel:
  18. ASSIGN BBSlog 'EPC'
  19. ATWRITE 24 3 14 'E'
  20. RETURN
  21. GPB_sel:
  22. ASSIGN BBSlog 'GPB'
  23. ATWRITE 35 3 14 'G'
  24. RETURN
  25. FID_sel:
  26. ASSIGN BBSlog 'FID'
  27. ATWRITE 45 3 14 'F'
  28. RETURN
  29. RBB_sel:
  30. ASSIGN BBSlog 'RBB'
  31. ATWRITE 53 3 14 'R'
  32. RETURN
  33. ;
  34.