Listing of file='@DOSSTRT' on disk='vmedia/734-8446-A.wvd.zip'
# Sector 1859, program filename = '@DOSSTRT' 0010 REM %^ @DOSSTRT Program By Kirit Baxi E.A.M.E. R&D 0020 REM % Version 1.0 20 JUN 1991 0030 REM ******************************************************** 0040 REM * * 0050 REM * @DOSSTRT - PROGRAM * 0060 REM * * 0070 REM ******************************************************** 0080 REM t$()=translate table - P$()=DEVICE TABLE 0100 COM I$12,I1$32,I2$32,I3$32,I4$8,I5$1,P$(16)3,T$(16),S9,W$2,N,N1,N2 0110 REM % SETUP TRANSLATE TABLE : GOSUB 230 : REM % SETUP CONFIG : GOSUB 410 0120 DIM A$40 0130 REM % SET THE STATUS LINE IF RIGHT WORKSTATION AVAILABLE 0140 $GIOGETSTATUS(010D71054003400240084009400F7101C631,G$)A$ 0150 REM % IF RIGHT WS SET STAUS LINE : IF STR(A$,1,7)="*2236CG"THEN GOSUB 170 : IF STR(A$,1,7)="*2536DW"THEN GOSUB 200 : IF STR(A$,1,7)="*2636DW"THEN GOSUB 200 0160 REM % GOTO COMMAND PROCESSOR : PRINT HEX(020402000F) : LOAD T"@DOS" 0170 REM DISPLAY STATUS LINE 25 0180 PRINT HEX(0200060B0E);HEX(47); : PRINTUSING 460;P$(2);P$(3);P$(5);P$(4);#TERM;#PART; : PRINT HEX(0F) 0190 S9=1 : RETURN 0200 REM DISPLAY STATUS LINE 25 : PRINT HEX(020C00) 0210 PRINT HEX(020C02020400020E); : PRINTUSING 460;P$(2);P$(3);P$(5);P$(4);#TERM;#PART; : PRINT HEX(0F) 0220 S9=2 : RETURN 0230 REM % here is the translation table 0240 T$(1)=HEX(002E2E2E2E2E2E0708090A0B0C0D0E0F) 0250 T$(2)=HEX(82838D8C8F7B2D8D5E94842D852D9293) 0260 T$(3)=HEX(202122232425262728292A2B2C2D2E2F) 0270 T$(4)=HEX(303132333435363738393A3B3C3D3E3F) 0280 T$(5)=HEX(404142434445464748494A4B4C4D4E4F) 0290 T$(6)=HEX(505152535455565758595A5B5C5D5EA0) 0300 T$(7)=HEX(404142434445464748494A4B4C4D4E4F) 0310 T$(8)=HEX(505152535455565758595A988699209B) 0320 T$(9)=HEX(7E197D10151A617E11161B1712691D41) 0330 T$(10)=HEX(45202013186F141C791E1F7F7C592066) 0340 T$(11)=HEX(A0A1A2A3A4A5A6A7A8A9AAABACADAEAF) 0350 T$(12)=HEX(FFFFFFD5FEB5B6B7B8B9BABBBCBDBEEC) 0360 T$(13)=HEX(CDC1C2C3CCC5C6C7C8C9CACBE2CDCECF) 0370 T$(14)=HEX(D0D1D2D3D4D0D6D7D8CEDCFFF0D5EAC3) 0380 T$(15)=HEX(E08EE2E3E4E5E6E7E8E9EAEBECEDEEEF) 0390 T$(16)=HEX(FFF1F2F3F4F5F6F760909096FCFDFC20) 0400 RETURN 0410 REM % Read config file and set the addresses 0420 DATA LOAD DC OPEN T#0,"@DOScfig" 0430 DATA LOAD DC #0,P$() : DATA SAVE DC CLOSE 0440 SELECT #1<P$(5)> : SELECT #2<P$(2)> : SELECT #3<P$(3)> : SELECT #15<P$(4)> : N1=2 : N2=3 : I5$=STR(P$(6),1,1) 0450 RETURN 0460 % A: = ### B: = ### C: = ### LPT1: = ### Terminal ## Part ition ## 9000 STOP