image of READY prompt

Wang2200.org

Listing of file='@DOSHELP' on disk='vmedia/mvp-boot-3.5.wvd.zip'

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