RS-232 -> joystick port downloads, part 2
From: ricortes@delphi.com
Date: 09/19/94-05:04:12 AM Z
From: ricortes@delphi.com
Subject: RS-232 -> joystick port downloads, part 2
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
-----------------------------------------
Return to message index
