home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Vectronix 2
/
VECTRONIX2.iso
/
FILES_07
/
TECHCAD2.ZIP
/
ASC
/
DEMO2.LST
< prev
next >
Wrap
File List
|
1989-01-23
|
992b
|
38 lines
10 CLS
20 PRINT "-----------------------------------------------"
30 PRINT " Beispiel 2 erstellen eines Campus-Datensatzes "
40 PRINT " Messwerterfassung"
60 PRINT "-----------------------------------------------"
100 CLEAR
110 I= FRE(0)+ MEMORY(-1)
120 CLEAR I-4096
200 I=0
210 St=0
220 X2=0
230 Y2=0
240 PRINT "Schrittgrö₧e=";
250 INPUT St
300 OPEN "O",1,"mess.asc"
310 PRINT #1,"IN:s=1.0,x=420.00,y=297.00"
320 PRINT #1,"VI:n=1"
400 PRINT I;".Wert =";
410 INPUT Y2
420 IF Y2<>0 THEN
430 IF I>=0 THEN
440 PRINT #1,"LI:p=1,t=1,x=";X1;",y=";Y1;",x=";X2;",y=";Y2
450 ENDIF
460 I=I+1
470 X1=X2
480 Y1=Y2
490 X2=X2+St
500 GOTO 400
510 ENDIF
520 PRINT #1,"VE:"
530 CLOSE 1
600 PRINT "Konvertiere ASC-Daten in CAMPUS-Daten"
610 E_= MEMORY("")
620 C_= MEMORY(" mess.asc mess.cad -ac -di")
630 N_= MEMORY("asc.ttp")
640 GEMDOS (,$4B,0, HIGH(N_), LOW(N_), HIGH(C_), LOW(C_), HIGH(E_), LOW(E_))
650 END