Listing of file='@DOSHELP' on disk='vmedia/mvp-cs386-1.30-disk2.wvd.zip'
# Sector 497, program filename = '@DOSHELP' 0010 REM % @DOSHELP Utility by - K. Baxi EAME R&D 0020 REM Version 1.0 20 JUN 1991 0030 REM *************************************** 0040 REM * * 0050 REM * HELP display Program * 0060 REM * * 0070 REM *************************************** 0080 REM 0090 REM t$()=translate table 0100 DIM A$(16)32,A1$(16),K$1 : A1$()=T$() : PRINT HEX(0202020E) 0110 REM % READJUST TRANSLATE TABLE FOR LOWER CASE! 0120 A1$(7)=HEX(896162636465666768696A6B6C6D6E6F) 0130 A1$(8)=HEX(707172737475767778797A988699209B) 0140 REM SELECT NO lf : SELECT PRINT 205 0150 REM % GET FILE LIMITS : LIMITS T#0,"@DOS.HLP",A,B,C,D 0160 FOR X=ATO A+(C-1)STEP 2 : A$()=ALL(20) : DATA LOAD BMT(X,K)A$() : $TRAN(A$(),A1$()) 0170 REM % READ FILE AND DISPLAY 0180 FOR Y=1TO 512 : IF STR(A$(),Y,1)=HEX(0D)THEN DO : L=L+1 : IF L>22THEN GOSUB 250 : END DO : IF POS(HEX(7E7FF0)=K$)<>0THEN 240 0190 IF STR(A$(),Y,1)=HEX(0C)THEN 200 : IF STR(A$(),Y,1)=HEX(84)THEN 220 : PRINT STR(A$(),Y,1); 0200 NEXT Y 0210 NEXT X 0220 SELECT PRINT 005 0230 PRINT HEX(0C0D); 0240 REM % RET > CMD PROC : PRINT : I4$="R" : SELECT PRINT 005 : PRINT HEX(0F) : LOAD T"@DOS" 0250 REM % MORE! TEXT 0260 PRINT HEX(0D0A0E);" - - More - -"; : KEYIN K$ : L=0 : RETURN