home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / document / mn195.ha / KOLESOV.TXT < prev    next >
Text File  |  1994-12-15  |  2KB  |  66 lines
  1. ï¿ßΓ¿¡ú 1
  2.  
  3. ''''''''''''''''''''''''''
  4. '  î«ñπ½∞ SYMCONV.BAS    '
  5. ''''''''''''''''''''''''''
  6.  
  7. SUB SymbolConv (Text$, Integ%())
  8. '
  9. '   ÅÑαÑ»¿ßáΓ∞ ß«ñÑন¼«Ñ ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐
  10. '   ó ¼áßß¿ó + ñ«íáó¿Γ∞ CHR$(0) ó ¬«¡Ñµ
  11. '''''''''''''''''''''''''''''''''''''''''''''''''''
  12.     temp$ = Text$ + STRING$(2, 0)
  13.     LenS% = LEN(temp$) \ 2
  14.     REDIM Integ%(1 TO LenS%)
  15.     FOR n% = 1 TO LenS%
  16.       Integ%(n%) = CVI(MID$(temp$, n% * 2 - 1, 2))
  17.     NEXT n%
  18. END SUB
  19.  
  20. ï¿ßΓ¿¡ú 2
  21.  
  22. '**********************************************
  23. '*         öαáú¼Ñ¡Γ ¼«ñπ½∩ HLEV.BAS           *
  24. '*          úαáΣ¿τÑ߬«⌐ í¿í½¿«ΓѬ¿            *
  25. '*         Enhanced Graphics Toolkit          *
  26. '*--------------------------------------------*
  27. '*  æΓ䬫ó¬á ß «ß¡«ó¡δ¼ ¼«ñπ½Ñ¼ í¿í½¿«ΓѬ¿    *
  28. '*      CALLS EGA16C(Func(1), Param(1))       *
  29. '**********************************************
  30. DEFINT A-Z
  31. DIM SHARED Param(20), Func(2)
  32.  
  33. SUB DRWLOG (Logic) STATIC
  34. '    ôßΓá¡«ó¬á ½«ú¿¬¿ úαáΣ¿τÑ߬«ú« óδó«ñá
  35. '    (¡ÑΓ á¡á½«úá ó MS Basic)
  36. '''''''''''''''''''''''''''''''''''''''''
  37.     CALLS EGAC16(4, Logic)
  38. END SUB
  39.  
  40. SUB RECTAB (ix1, iy1, ix2, iy2, fill) STATIC
  41. '    éδó«ñ ¡á φ¬αá¡ »α∩¼«πú«½∞¡¿¬á
  42. '    fill = True  - ºá¬αá߬ᠻα∩¼«πú«½∞¡¿¬á
  43. ' Basic á¡á½«ú:
  44. '   LINE (ix1, iy1)-(ix2, iy2),,  {B|BF}
  45. ''''''''''''''''''''''''''''''''''''''''''
  46.      Param(0) = ix1: Param(1) = iy1: Param(2) = ix2: Param(3) = iy2
  47.      IF (fill) THEN Fun = 11 ELSE Fun = 10
  48.      CALLS EGAC16(Fun, Param(1))
  49. END SUB
  50.  
  51. SUB TEXT (Word$) STATIC
  52. '   éδó«ñ ΓѬßΓá ó úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ
  53. '   (¡Ñ »πΓáΓ∞ ß «»ÑαáΓ«α«¼ PRINT!)
  54. '   1) »«º¿µ¿«¡¿α«óá¡¿Ñ ó úαáΣ¿τÑ߬¿σ ¬««αñ¿¡áΓáσ
  55. '   2) π»αáó½Ñ¡¿Ñ ½«ú¿¬«⌐ α¿ß«óá¡¿∩
  56. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  57.     Func(0) = 17: Func(1) = LEN(Word$)
  58.     temp$ = tx$ + "null": inc = 1
  59.     FOR n = 0 TO (Func(1) / 2)
  60.       Param(n) = ASC(MID$(temp$, inc + 1, 1))
  61.       Param(n) = (256 * Param(n)) + ASC(MID$(temp$, inc, 1))
  62.       inc = inc + 2
  63.     NEXT n: CALLS EGAC16(Func(1), Param(1))
  64. END SUB
  65.  
  66.