home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a120 / 1.ddi / API / API2.PRG < prev    next >
Encoding:
Text File  |  1992-07-09  |  1.1 KB  |  49 lines
  1. ************************************************************
  2. * ╡{ªí└╔ªW║┘: API2.PRG
  3. ************************************************************
  4. SET TALK OFF
  5. SET BORDER TO " "
  6. SET LIBRARY TO CHKDRV
  7. STORE "A:" TO mydrive
  8.  
  9. DO WHILE !CHKDRV(mydrive)
  10.  
  11. * │q¬╛¿╧Ñ╬¬╠Ñ╪½e⌐≤│n║╨╛≈ññ¿Sª│║╧║╨ñ∙⌐╬¼O│n║╨╛≈ñº¬∙¡¼
  12. * ¿Sª│«ΩñW
  13.  
  14.     DO lackfloppy WITH mydrive
  15.  
  16.     IF LASTKEY() = 27
  17.     * ªp¬G¿╧Ñ╬¬╠½÷ñU ESC ┴Σ½hª^¿∞ÑDÑ\»α¬φ
  18.        RETURN
  19.     ENDIF
  20. ENDDO
  21.  
  22.  
  23. PROCEDURE lackfloppy
  24. PARAMETERS flopdrv
  25. DEFINE WINDOW CHKDRV FROM 7,18 TO 17,61 ;
  26.     COLOR W+/N,N/W,GR+*/N SHADOW
  27. ACTIVATE SCREEN
  28. ACTIVATE WINDOW CHKDRV NOSHOW
  29. @ 0,13 SAY "   ╜╨¬`╖N!   " COLOR +*GR/N
  30. @ 2, 1 SAY "▒zÑi»α⌐|Ñ╝⌐±╕mñ@¡╙ñw«µªíñ╞ñº║╧║╨ñ∙⌐≤│n"
  31. @ 3, 1 SAY "║╨╛≈ "+ ;
  32.     EVALUATE("flopdrv") + " ññ,  ⌐╬¼O⌐|Ñ╝▒N│n║╨╛≈ñº¬∙¡¼«Ω"
  33. @ 4, 1 SAY "ñW."
  34. @ 6, 1 SAY "╜╨¡╫Ñ┐ñW¡z░▌├D¿├ªb╖╟│╞ªn½ß½÷Ñ⌠ñ@┴Σ─~─≥⌐╬"
  35. @ 7, 1 SAY "½÷ ESC ┴Σ¬φÑ▄⌐±▒≤....."
  36. SHOW WINDOW chkdrv
  37. CLEAR TYPEAHEAD
  38. DO beep
  39. =INKEY(0, "HM")
  40. RELEASE WINDOWS chkdrv
  41. RETURN
  42.  
  43.  
  44. PROCEDURE beep
  45. SET BELL TO 60,19
  46. ?? CHR(7)
  47. SET BELL TO
  48. RETURN
  49.