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