home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / SLENCODE.ZIP / TSL.BAS < prev   
Encoding:
BASIC Source File  |  1992-08-25  |  1.1 KB  |  39 lines
  1. 'Example/Test program for SLDECODE.ASM v1.0
  2. 'By Rich Geldreich 1992
  3. 'QB4.5 users: Use search and replace to change all "SSEG" strings to "VARSEG"
  4. 'strings in this program.
  5. 'Warning: The SLDecode ASM routine uses 80286 instructions!! I'll modify
  6. 'this soon, so please wait if you need an 8088/86 compatible routine.
  7. DEFINT A-Z
  8. DECLARE FUNCTION SLDecode (BYVAL SourceOffset%, BYVAL SourceSeg%, BYVAL DestOffset%, BYVAL DestSeg%)
  9.  
  10.  A$ = "OUTPUT.SL1" + CHR$(0)
  11.  B$ = COMMAND$
  12.  
  13.  LOCATE , , 1
  14.  PRINT "TSL.BAS v1.0 - Test Program for SLDECODE.ASM"
  15.  PRINT "By Rich Geldreich 1992"
  16.  B$ = COMMAND$
  17.  IF B$ = "" THEN INPUT "File to decompress"; B$: B$ = UCASE$(B$)
  18.  IF B$ = "" THEN END
  19.  IF INSTR(B$, "OUTPUT.SL1") <> 0 THEN
  20.     PRINT "Cannot decompress to source file."
  21.     END
  22.  END IF
  23.  PRINT "Decompressing: "; B$;
  24.  B$ = B$ + CHR$(0)
  25.  E = SLDecode(SADD(A$), SSEG(A$), SADD(B$), SSEG(B$))
  26.  LOCATE , 1: PRINT SPC(70); : LOCATE , 1
  27.  SELECT CASE E
  28.     CASE 0
  29.         PRINT "Done."
  30.     CASE -1
  31.         PRINT "File I/O error."
  32.     CASE -2
  33.         PRINT "Decompression error."
  34.     CASE ELSE
  35.         PRINT "Unknown error!??"
  36.  END SELECT
  37. END
  38.  
  39.