home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS 1
/
BBS#1.iso
/
document
/
mn195.ha
/
KOLESOV.TXT
< prev
next >
Wrap
Text File
|
1994-12-15
|
2KB
|
66 lines
ï¿ßΓ¿¡ú 1
''''''''''''''''''''''''''
' î«ñπ½∞ SYMCONV.BAS '
''''''''''''''''''''''''''
SUB SymbolConv (Text$, Integ%())
'
' ÅÑαÑ»¿ßáΓ∞ ß«ñÑন¼«Ñ ßΓ᫬«ó«⌐ »ÑαѼѡ¡«⌐
' ó ¼áßß¿ó + ñ«íáó¿Γ∞ CHR$(0) ó ¬«¡Ñµ
'''''''''''''''''''''''''''''''''''''''''''''''''''
temp$ = Text$ + STRING$(2, 0)
LenS% = LEN(temp$) \ 2
REDIM Integ%(1 TO LenS%)
FOR n% = 1 TO LenS%
Integ%(n%) = CVI(MID$(temp$, n% * 2 - 1, 2))
NEXT n%
END SUB
ï¿ßΓ¿¡ú 2
'**********************************************
'* öαáú¼Ñ¡Γ ¼«ñπ½∩ HLEV.BAS *
'* úαáΣ¿τÑ߬«⌐ í¿í½¿«ΓѬ¿ *
'* Enhanced Graphics Toolkit *
'*--------------------------------------------*
'* æΓ䬫ó¬á ß «ß¡«ó¡δ¼ ¼«ñπ½Ñ¼ í¿í½¿«ΓѬ¿ *
'* CALLS EGA16C(Func(1), Param(1)) *
'**********************************************
DEFINT A-Z
DIM SHARED Param(20), Func(2)
SUB DRWLOG (Logic) STATIC
' ôßΓá¡«ó¬á ½«ú¿¬¿ úαáΣ¿τÑ߬«ú« óδó«ñá
' (¡ÑΓ á¡á½«úá ó MS Basic)
'''''''''''''''''''''''''''''''''''''''''
CALLS EGAC16(4, Logic)
END SUB
SUB RECTAB (ix1, iy1, ix2, iy2, fill) STATIC
' éδó«ñ ¡á φ¬αá¡ »α∩¼«πú«½∞¡¿¬á
' fill = True - ºá¬αáß¬á »α∩¼«πú«½∞¡¿¬á
' Basic á¡á½«ú:
' LINE (ix1, iy1)-(ix2, iy2),, {B|BF}
''''''''''''''''''''''''''''''''''''''''''
Param(0) = ix1: Param(1) = iy1: Param(2) = ix2: Param(3) = iy2
IF (fill) THEN Fun = 11 ELSE Fun = 10
CALLS EGAC16(Fun, Param(1))
END SUB
SUB TEXT (Word$) STATIC
' éδó«ñ ΓѬßΓá ó úαáΣ¿τÑ߬«¼ αѪ¿¼Ñ
' (¡Ñ »πΓáΓ∞ ß «»ÑαáΓ«α«¼ PRINT!)
' 1) »«º¿µ¿«¡¿α«óá¡¿Ñ ó úαáΣ¿τÑ߬¿σ ¬««αñ¿¡áΓáσ
' 2) π»αáó½Ñ¡¿Ñ ½«ú¿¬«⌐ α¿ß«óá¡¿∩
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Func(0) = 17: Func(1) = LEN(Word$)
temp$ = tx$ + "null": inc = 1
FOR n = 0 TO (Func(1) / 2)
Param(n) = ASC(MID$(temp$, inc + 1, 1))
Param(n) = (256 * Param(n)) + ASC(MID$(temp$, inc, 1))
inc = inc + 2
NEXT n: CALLS EGAC16(Func(1), Param(1))
END SUB