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