home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / sys / atari / 8bit / 4569 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  1.7 KB
  1. Path: sparky!uunet!portal!cup.portal.com!Rick_Michael_Cortese
  2. From: Rick_Michael_Cortese@cup.portal.com
  3. Newsgroups: comp.sys.atari.8bit
  4. Subject: Re: Connecting an RS232 modem to an Atari?
  5. Message-ID: <65468@cup.portal.com>
  6. Date: Tue,  8 Sep 92 11:26:18 PDT
  7. Organization: The Portal System (TM)
  8. References: <1992Sep7.231030.7510@constellation.ecn.uoknor.edu>
  9.   <65456@cup.portal.com>
  10. Lines: 48
  11.  
  12. 10 REM JOYSTICK #1 RECIEVE FROM RS-232
  13. 20 REM @300 BAUD BY RICK CORTESE 2/91
  14. 30 REM SCREEN WILL BLANK DURING
  15. 40 REM TRANSFER: PRESS ANY KEY WHEN
  16. 50 REM DONE TO SAVE FILE
  17. 60 CLR :DIM A$(30000):A$="":A$(30000)=A$:A$(1)=A$
  18. 70 FOR N=1536 TO 1692:READ BYTE:CHKSUM=CHKSUM+BYTE:POKE N,BYTE:NEXT N
  19. 80 IF CHKSUM<>17867 THEN ? "TYPO ERROR IN DATA STATMENTS":END
  20. 90 SIZE=USR(1536,ADR(A$))
  21. 100 CLOSE #3:OPEN #3,8,0,"D:TRANS.DAT"
  22. 110 FOR N=1 TO SIZE:PUT #3,ASC(A$(N)):NEXT N
  23. 120 CLOSE #3
  24. 130 END
  25. 5000 DATA 104,104,133,204,104
  26. 5010 DATA 133,203,169,0,141
  27. 5020 DATA 14,212,141,0,212
  28. 5030 DATA 133,212,133,213,169
  29. 5040 DATA 255,141,252,2,173
  30. 5050 DATA 252,2,201,255,208
  31. 5060 DATA 6,32,51,6,76
  32. 5070 DATA 24,6,169,255,141
  33. 5080 DATA 14,212,141,252,2
  34. 5090 DATA 169,34,141,0,212
  35. 5100 DATA 96,169,255,205,0
  36. 5110 DATA 211,240,1,96,32
  37. 5120 DATA 72,6,32,108,6
  38. 5130 DATA 32,117,6,32,132
  39. 5140 DATA 6,96,162,8,142
  40. 5150 DATA 141,6,169,0,141
  41. 5160 DATA 140,6,32,142,6
  42. 5170 DATA 173,0,211,24,74
  43. 5180 DATA 110,140,6,206,141
  44. 5190 DATA 6,240,6,32,142
  45. 5200 DATA 6,76,85,6,32
  46. 5210 DATA 142,6,96,169,255
  47. 5220 DATA 77,140,6,141,140
  48. 5230 DATA 6,96,160,0,173
  49. 5240 DATA 140,6,145,203,24
  50. 5250 DATA 230,203,208,2,230
  51. 5260 DATA 204,96,24,230,212
  52. 5270 DATA 208,2,230,213,96
  53. 5280 DATA 0,0,174,155,6
  54. 5290 DATA 172,156,6,136,208
  55. 5300 DATA 253,202,208,247,96
  56. 5310 DATA 150,6
  57. MP L2
  58. 0770 OUT
  59. 0780 ;SHOULD PASS ANY
  60.