home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / TECHCAD2.ZIP / ASC / DEMO1.LST < prev    next >
File List  |  1989-01-23  |  865b  |  31 lines
  1. 10 CLS
  2. 20 PRINT "----------------------------------------"
  3. 30 PRINT " Beispiel 1 Auswerten einer ASCII-Datei "
  4. 40 PRINT "           Symbolauswertung             "
  5. 50 PRINT "----------------------------------------"
  6. 100 CLEAR
  7. 110 I= FRE(0)+ MEMORY(-1)
  8. 120 CLEAR I-10000
  9. 200 PRINT " Konvertiere CAMPUS-Daten in ASCII-Daten"
  10. 210 E_= MEMORY("")
  11. 220 C_= MEMORY(" symbol.asc symbol.cad -ca")
  12. 230 N_= MEMORY("asc.ttp")
  13. 240 GEMDOS (,$4B,0, HIGH(N_), LOW(N_), HIGH(C_), LOW(C_), HIGH(E_), LOW(E_))
  14. 300 OPEN "I",1,"symbol.asc"
  15. 310   WHILE NOT EOF(1)
  16. 320     GOSUB Lesezeile
  17. 330     IF "SY:"= LEFT$(Zeile$,3) THEN
  18. 340       PRINT Zeile$
  19. 370     ENDIF
  20. 380   WEND
  21. 390 CLOSE 1
  22. 400 END
  23. 500-Lesezeile
  24. 510 A$=""
  25. 520 Zeile$=""
  26. 530 WHILE A$<> CHR$(13) AND NOT EOF(1)
  27. 540   A$= INPUT$(1,1)
  28. 550   IF A$> CHR$(31) THEN Zeile$=Zeile$+A$
  29. 560 WEND
  30. 570 RETURN
  31.