image of READY prompt

Wang2200.org

Listing of file='@DOSSTRT' on disk='vmedia/731-8028.wvd.zip'

# Sector 10, 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