Ah da, da dodam i ovo, deklasifikovane informacije :D
Morao je da "strada" program sa Floppy-a :D
Hehe, skontao sam sve iz programa kako radi, i XON/XOFF za flow kontrolu, i kad prima i kad salje komande ...
Code:
| grep "#2"
1030 PRINT#2,E$;"do 6 v1":GOSUB 42130:IF IERR% THEN 1030
1080 PRINT#2,E$;"ai 1 ot00":GOSUB 42130
1150 PRINT #2,E$;"ai 14 ot00":GOSUB 42130
1400 PRINT#2,E$;"do 10 v"+MG$:GOSUB 42130:IF IERR% THEN 1400
1410 PRINT#2,E$;"do 11 v"+MG2$:GOSUB 42130:IF IERR% THEN 1410
1420 PRINT#2,E$;"do 12 v"+ML$:GOSUB 42130:IF IERR% THEN 1420
1430 PRINT#2,E$;"do 13 v"+MA$:GOSUB 42130:IF IERR% THEN 1430
1460 PRINT#2,E$;"do 9 v"+SR$:GOSUB 42130:IF IERR% THEN 1460
1510 PRINT#2,E$;"ao 0 v";CR$:GOSUB 42130:IF IERR% THEN 1510
1540 PRINT#2,E$;"ao 1 v";AS$:GOSUB 42130:IF IERR% THEN 1540
2030 PRINT#2,E$;"do 8 v"+OT$:GOSUB 42130:IF IERR% THEN 2030
2050 PRINT#2,E$;"ai 0 ot00":GOSUB 42130
2150 PRINT#2,E$;"do 5 v";SP$:GOSUB 42130:IF IERR% THEN 2150
2160 PRINT#2,E$;"di 0":GOSUB 42130
2450 PRINT#2,E$;"do 7 v"+ANLY$:GOSUB 42130:IF IERR% THEN 2450
3320 PRINT#2,E$;"ao 2 v";DW$:GOSUB 42130:IF IERR% THEN 3320
3340 PRINT#2,E$;"do 2 v";M3$:GOSUB 42130:IF IERR% THEN 3340
6151 PRINT#2,E$;"do 0-3 v0":GOSUB 42130:IF IERR% THEN 6151
6152 PRINT#2,E$;"do 13 v0":GOSUB 42130:MR=0:IF IERR% THEN 6152
6167 M5=0:PRINT#2,E$;"do 6 v0":GOSUB 42130:IF IERR% THEN 6167
10210 PRINT#2,E$;"do 4 v1":GOSUB 42130:IF IERR% THEN 10210
10258 PRINT#2,E$;"do 0-2 v0":GOSUB 42130:IF IERR% THEN 10258
10259 PRINT#2,E$;"do 7 v0":GOSUB 42130:IF IERR% THEN 10259
10265 PRINT#2,E$;"do 3 v1":GOSUB 42130:IF IERR% THEN 10265
10266 PRINT#2,E$;"di 0":GOSUB 42130:IF NOT IERR% THEN E2=-1*VAL(MID$(WERT$,13,1))
10268 PRINT#2,E$;"do 3-4 v0":GOSUB 42130:IF IERR% THEN 10268
10275 AP=0:PRINT#2,E$;"ao 1 v0":GOSUB 42130:IF IERR% THEN 10268
15055 PRINT#2,E$;"do 12 v0":GOSUB 42130:IF IERR% THEN 15055
15250 PX=2:IF NOT KI THEN PRINT#2,E$;"do 0 v1":GOSUB 42130:IF IERR% THEN 15250
15361 PRINT#2,E$;"do 1 v1":GOSUB 42130:IF IERR% THEN 15361
42010 OPEN "com1:9600,n,8,2,CS,DS,CD" AS #2 <<<<< ;-)
42020 PRINT#2,E$;"00@";:FOR A=1 TO 1000: NEXT A
42030 PRINT#2,E$;"00rs":FOR A=1 TO 2000: NEXT A
42040 PRINT#2,E$;"00 se m2";E$;"xoc1":FOR A=1 TO 750:NEXT A
42050 PRINT#2,E$;"ot00 a1 d1":GOSUB 42130:IF IERR% THEN 42050
42060 PRINT#2,E$;"ad 1 r13" :GOSUB 42130:IF IERR% THEN 42060:' Sonde in mV 13
42065 PRINT#2,E$;"ad 14 r13" :GOSUB 42130:IF IERR% THEN 42065:'CO-Dynam. 11
42070 PRINT#2,E$;"ad 0 r11t1c1":GOSUB 42130:IF IERR% THEN 42070:'Theroelement NiCr/Ni 11
42080 PRINT#2,E$;"ds 0 m0 o0":GOSUB 42130:IF IERR% THEN 42080 :'init "DI"
42110 PRINT#2,E$;"do 0-14 v0":GOSUB 42130:IF IERR% THEN 42110:'Relais "0"
42135 PRINT#2,CHR$(19);
42140 PRINT#2,E$;"#";
42160 S=ASC(INPUT$(1,#2))
42240 PRINT#2,CHR$(17);
42250 INPUT#2,WERT$