Stefan Pendl <stefan.pendl@[EMAIL PROTECTED]
> writes:
> On 29 Jan 2008 23:01:14 -0500, Allan Adler <ara@[EMAIL PROTECTED]
>
> wrote:
>
> >I have a Keithley application note for the Franck-Hertz experiment.
> >It contains some BASIC code for control and data collection. The
dialect
> >of BASIC doesn't seem to be identified. I don't recognize some of the
> >commands and can't guess what they mean. On the other hand, I don't use
> >BASIC very often. They are: FIND READ WINDOW
> >If you know what they are please let me in on it.
>
> READ is not unusual for a BASIC program.
> It is hard to tell from just a few of keywords, so would you mind
> posting the first 20-30 lines of code?
OK, here they are.
1 DIM V(127),I(127)
2 GO TO 100
4 GO TO 200
8 GO TO 300
12 GO TO 400
16 GO TO 500
20 GO TO 600
24 GO TO 700
100 PAGE
102 PRINT "The Franck-Hertz Experiment"
103 PRINT
104 PRINT "using automated data"
105 PRINT "collection and analysis"
106 FOR Z=1 TO 400
107 NEXT Z
108 PAGE
109 PRINT "Here is a list of program tasks:
110 SET KEY
121 GO TO 120
200 PAGE
202 PRINT "Prompt lamp on 4662 will be flashed 128 times"
205 fOR J=0 TO 127
210 PRINT @[EMAIL PROTECTED]
FOR K=1 TO 7
260 NEXT K
270 FOR K=1 TO 50
280 GO TO 108
300 PAGE
303 PRINT "Accelerating voltages will now be read"
310 FOR J=0 TO 127
etc.
540 GO TO 108
600 PAGE
605 WINDOW 0,4400,0,1200
610 AXIS 0,0
620 MOVE @[EMAIL PROTECTED]
FOR J-0 TO 127
720 WRITE @[EMAIL PROTECTED]
(J),I(J)
730 NEXT J
740 GO TO 108
90 PAGE
100 PRINT "Franck-Hertz Data Analysis Program"
110 PRINT
120 DIM V(127),I(127)
130 DIM L1(10),L2(10)
140 FIND 34
150 FOR J=0 to 127
etc.
Apart from the unfamiliar keywords, I'm not used to being able to
have the numbering start over after getting to high number line labels.
Another unfamiliar keyword is AXIS.
This program listing is at least 20 years old.
--
Ignorantly,
Allan Adler <ara@[EMAIL PROTECTED]
>
* Disclaimer: I am a guest and *not* a member of the MIT CSAIL. My actions
and
* comments do not reflect in any way on MIT. Also, I am nowhere near
Boston.
|
