Skip to content

Instantly share code, notes, and snippets.

@AkBKukU

AkBKukU/hp80-34401a.bas

Created July 11, 2020 00:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AkBKukU/dfc03e1c786101d416ddccf6af6f660b to your computer and use it in GitHub Desktop.
Save AkBKukU/dfc03e1c786101d416ddccf6af6f660b to your computer and use it in GitHub Desktop.
Download ZIP
HP-86 Series 80 Basic 34401A Graphing Demo
Raw
hp80-34401a.bas
10 ! HP34401A RESISTANCE MEASUREMENT
20 DEV=8
30 BUSIS=7
40 ID=DEV*100+BUSID
50 DELAY=1
60 VALUES=12
70 REAL MEASUREMENTS(12)
80 DIM CONF$[30]
90 CONF$="CONF:RES 150000,1000"
100 OUTPUT ID CONF$
1000 GRAPALL
1010 LOCATE 20,190,10,90
1020 SCALE 0,VALUES,0,110000
1030 FXD 0,0
1040 LGRID 6,10000,0,0
1050 FRAME
1060 MOVE 0,0
2000 FOR COUNTER=0 TO VALUES-1
2010 OUTPUT ID "READ?"
2020 ENTER ID ; MEASUREMENT(COUNTER)
2030 PLOT COUNTER,MEASUREMENT(COUNTER)
2040 WAIT DELAY*1000
2050 NEXT COUNTER
9999 END
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment