User`s manual

CHAPTER 3 PROGRAMMING REFERENCE 27
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
.
.