Advantech PCL-848A/B Manuel d'utilisateur télécharger pdf (Page 33)

CHAPTER 3 PROGRAMMING REFERENCE

Example:

10 ‘ This program loads a data file from disk into RAM

20 ‘ and then outputs this data to the IEEE-488 device 8

50 ADDR%=8

60 OPEN “DATA.001” FOR INPUT AS 12 ‘line 150 to 230

70 DEF SEG=&H4000 ‘read a data strinq

80 COUNT=0

90 WHILE NOT EOF(2)

100 A$=INPUT$(1,X2) ‘read one byte

110 POKE COUNT,ASC(A$) 3

120 COUNT=COUNT+1

130 WEND

140 CLOSE #2

150 DEF SEG=&HD000

160 OUTPUTA%=54

170 DATASEG%=&H4000

180 IF COUNT < 327681 THEN LENGTH%=COUNT ELSE

LENGTH%=COUNT -655361

190 CALL OUTPUTA%(ADDR%,DATASEG%,LENGTH%)

200 STOP

1 2 ... 28 29 30 31 32 33 34 35 36 37 38 ... 83 84

Pas de commentaire

Advantech PCL-848A/B Manuel d'utilisateur Page 33