home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / pdoshard.hdv / SLINK / SLINK.SERVER.bas < prev    next >
BASIC Source File  |  2020-08-13  |  2KB  |  42 lines
  1. 10  REM * S-LINK SERVER - INSTRUCTIONS
  2. 20  REM * AND SC SLOT SELECTOR
  3. 30  REM * (C) BG UNIVERSAL SOFTWARE, INC.
  4. 40 :
  5. 50  HOME 
  6. 100  DATA  ,"S-LINK SERVER will share all available" 
  7. 110  DATA  "ProDOS disk drives through a serial link"
  8. 120  DATA  "(null modem cable). You can use S-LINK"
  9. 130  DATA  "if you are using Apple II emulator and"
  10. 140  DATA  "you want to transfer information from a"
  11. 150  DATA  "real Apple II. The emulator must support"
  12. 160  DATA  "serial card and you have to have a real"
  13. 170  DATA  "SSC or other Apple II serial card. You"
  14. 180  DATA  "may use S-LINK in two different ways:"
  15. 190  DATA  "(1) S-LINK SERVER running on Apple II"
  16. 200  DATA  "and S-LINK driver installed on emulator"
  17. 210  DATA   "- accessing Apple II disk drives from"
  18. 220  DATA  "the emulator"
  19. 230  DATA  "(2) S-LINK SERVER on emulator and S-LINK"
  20. 240  DATA driver on Apple II - you will "upload"
  21. 250  DATA  "your files from the Apple II side"
  22. 270  DATA ,," FOR MORE INFORMATION SEE THE DOCS OF"
  23. 280  DATA  " APPLE II OASIS :: DISK SERVER"  
  24. 300  DATA ,"Choose Serial Card slot 1-7?"
  25. 500  FOR I = 0 TO 22
  26. 510  READ A$
  27. 520  PRINT A$;
  28. 530  IF  PEEK(33) = 80  AND (I/2) > INT(I/2)  AND  LEN(A$) >0  THEN  PRINT " ";: GOTO 560
  29. 540  IF  LEN(A$) = 0  THEN  PRINT : GOTO 560
  30. 550  PRINT  CHR$(8)
  31. 560  NEXT 
  32. 570  PRINT "[0=AUTODETECT]:";
  33. 580  GET A$: IF A$ <"0"  OR A$ >"7"  THEN  PRINT  CHR$(7);: GOTO 580
  34. 590  POKE 8191,192 + VAL(A$)
  35. 595  GOTO 650
  36. 600  DATA "RLE Compression (answer <NO> if you get I/O ERROR at 2400 or higher speeds)"
  37. 610  PRINT A$: READ A$
  38. 620  PRINT A$
  39. 630  PRINT "RLE [Y/N]:";
  40. 640  GET A$: IF A$ < >"Y"  AND A$ < >"N"  AND A$ < >"y"  AND A$ < >"n"  THEN  PRINT  CHR$(7);: GOTO 640
  41. 650  POKE 8190,255: IF A$ = "n"  OR A$ = "N"  THEN  POKE 8190, ASC("N") +128
  42. 800  HOME : PRINT : PRINT  CHR$(4)"-SLINK.SRVR"