home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / znode-12 / a / bmodem1.bas < prev    next >
Encoding:
BASIC Source File  |  1993-06-12  |  1.4 KB  |  34 lines
  1. 10  REM
  2. 15  REM BMODEM.BAS  TUNED FOR KAYPRO  1/26/86  
  3. 20  REM THIS PROGRAM HAS BEEN TESTED AT 300 BAUD
  4. 22  REM AND WILL PROBABLY NOT WORK AT HIGHER BAUD RATES !
  5. 25  REM SEE BMODEM.DOC FOR A SHORT DESCRIPTION OF ITS 
  6. 26  REM FUNCTION.
  7. 30  REM
  8. 100 GOTO 280
  9. 110 X=(INP(STATUS) AND RMASK):RETURN
  10. 120 Y=INP(MODEM):RETURN
  11. 130 X=(INP(STATUS) AND SMASK):RETURN
  12. 140 OUT MODEM,Y:RETURN
  13. 150 GOSUB 130:IF X THEN 140 ELSE 150
  14. 160 GOSUB 110:IF X THEN 120 ELSE 160
  15. 170 GOSUB 110:IF X THEN GOSUB 120:PRINT CHR$(Y);:GOTO 170
  16. 180 Y$="":Y$=INKEY$:IF Y$=""THEN 170
  17. 190 IF Y$=T$ THEN Y$=DC3$ ELSE IF Y$=ESC$ THEN Y$=ETX$
  18. 200 IF Y$<>E$ THEN Y=ASC(Y$):GOSUB 140:GOTO 170
  19. 210 INPUT "ENTER FILE NAME TO RECEIVE? ",F$:OPEN "R",1,F$
  20. 220 FIELD 1,128 AS A$:Y=NAK:GOSUB 150:FOR I=1 TO 1E+06:PRINT I;CHR$(13);
  21. 230 C=0:GOSUB 160:IF Y=EOT THEN Y=ACK:GOSUB 150:CLOSE 1:PRINT CHR$(7):GOTO 170
  22. 240 GOSUB 160:J=Y:GOSUB 160:IF J+Y <> 255 THEN C=13
  23. 250 FOR J=1 TO 128:GOSUB 160:MID$(B$,J,1)=CHR$(Y):C=C+Y:NEXT
  24. 260 GOSUB 160:C=C AND 255:IF C<>Y THEN Y=NAK:GOSUB 150:GOTO 230
  25. 270 LSET A$=B$:PUT 1,I:Y=ACK:GOSUB 150:NEXT
  26. 272 REM
  27. 275 REM  KAYPRO VALUES   LRB
  28. 277 REM
  29. 280 MODEM=4:STATUS=6:RMASK=1:SMASK=4
  30. 290 B$=STRING$(128,0):ACK=6:NAK=21:E$=CHR$(5):WIDTH 255:EOT=4
  31. 300 ESC$=CHR$(27):ETX$=CHR$(3):DC3$=CHR$(19):T$="~":GOTO 170
  32. 310 END
  33. STRING$(128,0):ACK=6:NAK=21:E$=CHR$(5):WIDTH 255:EOT=4
  34. 300 ESC$=CHR$(27):ETX$=CH