home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / Makefile.bas < prev    next >
BASIC Source File  |  2001-03-03  |  1KB  |  67 lines
  1. ON ERROR GOTO Fehler
  2. CLS
  3. COLOR 15, 1
  4. CLS
  5. COLOR 0, 15
  6. LOCATE 1, 1: PRINT "M A K E F I L E" + STRING$(65, " ")
  7.  
  8. DIM m AS DOUBLE
  9. DIM x AS STRING * 1
  10. LOCATE 4, 1: INPUT "Zadejte název souboru a cestu, kde má b∞t umíst╪n:   ", dat$
  11. LOCATE 6, 1: INPUT "Zadejte velikost tohoto souboru:             ", m
  12. LOCATE 8, 1: PRINT "Velikost je udána v (B)ytech, (K)ilobytech nebo v (M)egabytech? "
  13. DO
  14. g$ = INKEY$
  15. LOOP WHILE g$ = ""
  16.  
  17. SELECT CASE UCASE$(g$)
  18. CASE "B"
  19.    m = m
  20. CASE "K"
  21.    m = m * 1024
  22. CASE "M"
  23.    m = m * 1024 * 1024
  24. CASE ELSE
  25.    ERROR 52
  26. END SELECT
  27.  
  28. LOCATE CSRLIN + 2
  29. FILES dat$
  30. IF ERR = 0 THEN ERROR 26
  31.  
  32. Make:
  33. OPEN dat$ FOR BINARY AS #1
  34. IF m = 0 THEN
  35. ELSE
  36.    PUT #1, m, x
  37. END IF
  38. CLOSE
  39. LOCATE CSRLIN + 2: PRINT dat$ + " byl vytvo²en. Jeho velikost v Bytech je: " + STR$(m)
  40. SYSTEM
  41.  
  42. Fehler:
  43. IF ERR = 26 THEN
  44.    LOCATE 24, 1: PRINT "Soubor " + dat$ + " jiº existuje."
  45.    SYSTEM
  46. END IF
  47.  
  48. IF ERR = 76 OR ERR = 64 THEN
  49.    LOCATE 24, 1: PRINT "Název souboru " + dat$ + " je nesprávn∞."
  50.    SYSTEM
  51. END IF
  52.  
  53. IF ERR = 52 OR ERR = 61 THEN
  54.    LOCATE 24, 1: PRINT "Zadaná velikost souboru je nesprávná."
  55.    SYSTEM
  56. END IF
  57.  
  58. IF ERR = 53 THEN
  59.    ecount = ecount + 1
  60.    IF ecount = 1 THEN RESUME Make
  61.    IF ecount = 2 THEN
  62.       LOCATE 24, 1: PRINT "Název souboru " + dat$ + " je nesprávn∞."
  63.       SYSTEM
  64.    END IF
  65. END IF
  66.  
  67.