1 REM IRGSCAN.BAS (c) 1993 D. Deaven 2 REM Sample IRG driver 90 BUFLEN=40:SAMPLE=23:QTIME=100:TOTIME=255:REPEAT=3 100 GOSUB 10000:T=(64+5*SAMPLE)/1.78979:T=INT(T*10)/10 110 GRAPHICS 8:DL=PEEK(560)+256*PEEK(561):SMEM=PEEK(DL+4)+256*PEEK(DL+5) 111 BUF=SMEM+2000 120 ? "T=";T;"usec [S]END OR [R]ECEIVE" 130 OPEN #1,4,0,"K:":GET #1,C:CLOSE #1 140 IF C=ASC("S") THEN FOR I=1 TO REPEAT:A=USR(1536,BUF,BUFLEN,SAMPLE):NEXT I 150 IF C<>ASC("R") THEN 130 160 A=USR(1536,BUF,BUFLEN,SAMPLE,QTIME+256*TOTIME) 170 IF A<>0 THEN ? "TIMEOUT":GOTO 120 180 GOTO 130 10000 RESTORE 10001:FOR I=0 TO 223:READ J:POKE 1536+I,J:NEXT I:RETURN 10001 DATA 169,0,120,141,14,212,141,0,212,133,213,169,57,141,2,211,169 10002 DATA 1,141,0,211,169,61,141,2,211,104,168,192,3,48,30,104,133,204 10003 DATA 104,133,203,136,104,104,133,205,136,104,104,133,207,136,240 10004 DATA 119,104,141,223,6,104,141,222,6,136,240,10,152,240,90,104,104 10005 DATA 136,208,251,240,83,160,0,169,1,32,212,6,44,16,208,240,244,200 10006 DATA 204,222,6,208,242,172,223,6,174,222,6,44,16,208,240,14,32,212 10007 DATA 6,202,208,245,136,208,239,160,1,76,155,6,160,0,162,8,173,16,208 10008 DATA 106,38,206,32,212,6,202,208,17,165,206,73,255,145,203,162,8,200 10009 DATA 196,205,208,231,160,0,240,7,32,209,6,234,76,119,6,132,212,173 10010 DATA 47,2,141,0,212,169,64,141,14,212,88,96,160,255,162,8,200,177 10011 DATA 203,133,206,38,206,169,0,42,141,0,211,32,212,6,202,208,10,162 10012 DATA 8,196,205,208,231,160,0,240,208,32,209,6,76,179,6,234,234,96,72 10013 DATA 138,166,207,202,208,253,170,104,96,0,0