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