home *** CD-ROM | disk | FTP | other *** search
/ norge.freeshell.org (192.94.73.8) / 192.94.73.8.tar / 192.94.73.8 / pub / computers / cpm / alphatronic / MIXED110.ZIP / CPMDIR.CMD < prev    next >
OS/2 REXX Batch file  |  1997-11-10  |  512b  |  27 lines
  1. SET TALK OFF
  2. SET ESCAPE OFF
  3. SET EXACT OFF
  4. SET PRINT ON
  5. SET EJECT ON
  6. ERASE
  7. STORE 'J' TO JN
  8. STORE '                    ' TO TDIR
  9. STORE '                    ' TO SDIR
  10. DO WHILE JN = 'J'
  11.    @ 0,0 SAY 'WEITER (J/N) ' GET JN
  12.    @ 1,0 SAY 'DIRECTORY ' GET TDIR
  13.    READ
  14.    ?
  15.    FIND &TDIR
  16.    STORE DIR TO SDIR
  17.    DO WHILE TDIR = SDIR
  18.       DISP
  19.       SKIP
  20.       STORE DIR TO SDIR
  21.    ENDDO
  22. ?
  23. ENDDO
  24. SET PRINT OFF
  25. RETURN
  26.  
  27.     BINARY   66048CPM.DATABASE        CHX8010A.LBR.             BINARY   7