1000 ! * CENID.BAC 1005 INTEGER : EXTEND 1010 ; '** Get net central ID **' 1020 ; ' Ver 1.00, 1985-11-29' 1030 ; ' Copyright 1985 Dataindustrier AB' 1040 ; 1050 ! * Written by Benny L|fgren 1060 ! ** ** ** ** ** ** ** ** ** ** ** 1070 ! * 1080 ! * Ver date / Ver nb / Sign / Note 1090 ! * 85-05-13 / X.00 / BL / Main 1100 ! * 85-11-29 / 1.00 / BL / Release 1110 ! * 1120 ! ** ** ** ** ** ** ** ** ** ** ** 1130 ! * 1140 ! EJECT 1150 ! ******************************** 1160 ! * 1170 ! * Main routine 1180 ! * 1190 ; "Central is generated: " FNCengen$ 1200 ; "Version number is: " FNCenver$ : ; 1210 ; "Central ID: "; : A$=FNGetid$ 1220 FOR I=1 TO LEN(A$) 1230 IF ASCII(MID$(A$,I,1))<16 ; "0"; 1240 ; HEX$(ASCII(MID$(A$,I,1))) ' '; : IF MOD(I,16)=0 ; : ; TAB(13); 1250 NEXT I 1260 ! 1270 END 1280 ! 1290 ! ******************************** 1300 ! * 1310 ! * Get central generation time 1320 ! * 1330 DEF FNCengen$ LOCAL Timebuf$=19,Sep$=2 1340 IF FNTalknet(14,15,0,0,0,0) RETURN '' ! Error in generation time read 1350 RESTORE 1410 1360 FOR I=62967 TO 62972 1370 READ Sep$ : Timebuf$=Timebuf$+Sep$ 1380 IF PEEK(I)<10 Timebuf$=Timebuf$+'0' 1390 Timebuf$=Timebuf$+NUM$(PEEK(I)) 1400 NEXT I : RETURN Timebuf$ 1410 DATA 19,-,-,' ',.,. 1420 FNEND 1430 ! 1440 ! ******************************** 1450 ! * 1460 ! * Get central version number 1470 ! * 1480 DEF FNCenver$ 1490 IF FNTalknet(14,15,0,0,0,0) RETURN '' ! Error in version number read 1500 RETURN CHR$(PEEK(62973),46,PEEK(62974),PEEK(62975)) 1510 FNEND 1520 ! 1530 ! ******************************** 1540 ! * 1550 ! * Get central ID 1560 ! * 1570 DEF FNGetid$ LOCAL Idbuf$=32 1580 IF FNTalknet(14,15,0,0,0,0) RETURN '' ! Error in ID read 1590 FOR I=62720 TO 62751 : Idbuf$=Idbuf$+CHR$(PEEK(I)) : NEXT I 1600 RETURN Idbuf$ 1610 FNEND 1620 ! 1630 ! ********************************* 1640 ! * 1650 ! * Do communication with net central. 1660 ! * 1670 DEF FNTalknet(Fc,Sfc,B,C,D,E) LOCAL Z 1680 POKE 64798,255 ! 0FFH -> BSAVE. => TFT. fake (use DOSBUF0). 1690 POKE 64961,Fc ! FC -> MSG.FC (Function code). 1700 POKE 64962,Sfc ! SFC -> MSG.SFC (Subfunction code). 1710 POKE 64963,C,B ! MSG.PDN, MSG.ERRB (BC register to/from central). 1720 POKE 64965,E,D ! Register DE to/from central. 1730 Z=CALL(24615) ! NETCALL. => Talk to the central. 1740 RETURN PEEK(64962) 1750 FNEND