Visit Atarimax Store


Free-Net Logo
The Atari SIG Historical Archive
Created and hosted by: atarimax.com
[ HOME | GO ATARI | 8-BIT | ST/TT | PORTFOLIO | LYNX | JAGUAR | LIBRARY ]


Article #47 (75 is last):
From: ricortes@delphi.com
Newsgroups: freenet.sci.comp.atari.prog.8bit.resource
Subject: RS-232 -> joystick port downloads, part 2
Reply-To: aa700@cleveland.Freenet.Edu (Michael Current)
Posted-By: xx004 (aa853 - Craig Lisowski)
Edited-By: xx004 (aa853 - Craig Lisowski)
Date: Mon Sep 19 05:04:12 1994


 10 REM JOYSTICK #1 RECIEVE FROM RS-232
 20 REM @300 BAUD BY RICK CORTESE 2/91
 30 REM SCREEN WILL BLANK DURING
 40 REM TRANSFER: PRESS ANY KEY WHEN
 50 REM DONE TO SAVE FILE
 60 CLR :DIM A$(30000):A$="":A$(30000)=A$:A$(1)=A$
 70 FOR N=1536 TO 1692:READ BYTE:CHKSUM=CHKSUM+BYTE:POKE N,BYTE:NEXT N
 80 IF CHKSUM<>17867 THEN ? "TYPO ERROR IN DATA STATMENTS":END
 90 SIZE=USR(1536,ADR(A$))
 100 CLOSE #3:OPEN #3,8,0,"D:TRANS.DAT"
 110 FOR N=1 TO SIZE:PUT #3,ASC(A$(N)):NEXT N
 120 CLOSE #3
 130 END
 5000 DATA 104,104,133,204,104
 5010 DATA 133,203,169,0,141
 5020 DATA 14,212,141,0,212
 5030 DATA 133,212,133,213,169
 5040 DATA 255,141,252,2,173
 5050 DATA 252,2,201,255,208
 5060 DATA 6,32,51,6,76
 5070 DATA 24,6,169,255,141
 5080 DATA 14,212,141,252,2
 5090 DATA 169,34,141,0,212
 5100 DATA 96,169,255,205,0
 5110 DATA 211,240,1,96,32
 5120 DATA 72,6,32,108,6
 5130 DATA 32,117,6,32,132
 5140 DATA 6,96,162,8,142
 5150 DATA 141,6,169,0,141
 5160 DATA 140,6,32,142,6
 5170 DATA 173,0,211,24,74
 5180 DATA 110,140,6,206,141
 5190 DATA 6,240,6,32,142
 5200 DATA 6,76,85,6,32
 5210 DATA 142,6,96,169,255
 5220 DATA 77,140,6,141,140
 5230 DATA 6,96,160,0,173
 5240 DATA 140,6,145,203,24
 5250 DATA 230,203,208,2,230
 5260 DATA 204,96,24,230,212
 5270 DATA 208,2,230,213,96
 5280 DATA 0,0,174,155,6
 5290 DATA 172,156,6,136,208
 5300 DATA 253,202,208,247,96
 5310 DATA 150,6


Visit Atarimax Store