现在看不懂了:
1 CLS
2 DEF SEG=&HD000
3INIT%=0:OUTPUT%=3:ENTER%=6:LOCAL%=21:STB%=39:STAUS%=42:TRIGGER%=48:IOPORT%=&H2B8:SETtiNG%=%H1D
4 PORT1%=&H2B1:PORTO%=&H2BO
5 CALL INIT%(IOPORT%,LOCAL%,SETTING%)
6 CALL ABORT%
7 DEV%=17
10 A$=”TRIGGER:SOURCE BUS;:CORR:LENG OM”:CALL OUTPUT%(DEV%,A$)
20 DIM RLY1L%(8):DIM RLYOL%(8):DIMSETL$(8):DIM ULL(8):DIM LLL(8):DIM TRN (8):DIMRLY1E%(4):DIMRLYOE%(4):DIMSETLE$(4):DIM ULE(4):DIM LLE(4)DIM RL1C%(4):DIM RLYOC%(4):DIM SETC$(4):DIMULC(4):DIM LLC(4)22 DIM UOCL$(8):DIM MOCL(8):DIM UE$(4):DIM MLE(4):DIMMLE(4):DIM UC$(4):DIM MC(4)30 WIDTH 40:INPUT”PART NUMBER:-“;PN$:IF PN$=””THENGOSUB 9000
35 FILE$=”A:DATA”+PN$
IO OPEN FILE$ FOR INPUT AS#1
45
INPUT#1,PN$,CIRLY1%,CIRLY0%,C2RLY1%,C2RLY0%,RLY1P%,SETP$,ULP,LLP,UPH,STD$,CSTD1%,CSTD0%
50FOR I%=1 TO 8
55
INPUT#1,RLY1L%(I%),RLYOL%(I%),SETL$(I%),ULL(I%),LLL(I%),UTRN(I%),LTRN(I%),UOCL$(1%),MOCL(I%)
60 NEXT I%
65 FOR I%=1 TO 4
70INPUT#1,RLYOE%(I%),RLY1E%(I%),SETLE$(I%),ULE(I%),LLE(I%),UE$(I%),MLE(I%)
75INPUT#1,RLYOC%(I%),RLY1C%(I%),SETC$(I%),ULC(I%),LLC(I%),UC$(I%),MC(I%)
80 NEXT I%
85 CLOSE#1
90 GOSUB 2000
100 CALL OUTPUT%,SETL$(1)):GOSUB 1200
110 CLS:PRINT”DATATRONIC P/N:LOCATE1,35:PRINT QTY%
200’ TEST OCL
210 I%=1:LOCATE 3,1
220 IF RLY1L%(I%)=9999 GOTO 400
230 OUT PORT1%,RLY1L%(I%):OUT PORTO%,RLYOL%(I%)
235 IF SETL$(I%)=”X” OR SETL$(I%)=”X” GOTO250
240 IF I%>1 THEN CALLOUTPUT%(DEV%,SETL$(I%))
250’
260 GOSUB 1300
265 IF TDATA<0 OR TDATA=0 GOTO 1100
270 OCL(I%)=TDATA*MOCL(I%)
280 IF ULL (I%)=0 AND LLL(I%)=0 GOTO 310
290 IF OCL (I%)>ULL (I%) OR OCL(I%)
300 PRINT “OCL #”;I%;”=”;OCL(I%);UOCL$(I%):COLOR 7,0
310 IF I%=8 GOTO 400
320 I%=I%+1
330 GOTO 220
400’ TEST TURNS RATIO
410 I%=2
420 IF RLY1L%(I%)=9999 GOTO 500
430 IF UTRN(I%)=0 GOTO 480
440 IF OCT(1)=0 OR OCL(1)<0 THEN GOTO1100
450 IF OCT (I%)=0 OR OCL (I%)<0 THENGOTO 1100
460 TN=SQR(OCL(I%)/OCL(1)):IFTNUTRN(I%) THEN REJ%=1:COLOR 0,7
470 PRINT”T/R#”;I%-1;”=”;TN:COLOR 7,0
480 IF I%=8 GOTO 500
490 I%= I%+1:GOTO 420
500 ‘ test phase
510 OUT
