1   ! MAGIC_NUMBERS.BAS
    !

    !	Demonstration program to illustrate values of magic numbers.
    !

10  RECORD  MAGIC_RECORD
	BYTE	A_BYTE
	WORD	A_WORD
	LONG	A_LONG
	SINGLE	A_SINGLE
	DOUBLE	A_DOUBLE

    END RECORD

30  MAP (THE_MAP) STRING FIXED_STR=23%

    MAP (THE_MAP) MAGIC_RECORD M_R

    MAP (OLD_MAP) INT$=2%, &
		  FLT$=4%

    MAP (OLD_MAP) OLD_FIXED_STR$=6%

400 FIXED_STR = " "

    PRINT "These are magic numbers that appear when you"
    PRINT "move a space to a binary data type."
    PRINT
    PRINT "BYTE: ";M_R::A_BYTE
    PRINT "WORD: ";M_R::A_WORD
    PRINT "LONG: ";M_R::A_LONG
    PRINT "SINGLE: ";M_R::A_SINGLE
    PRINT "DOUBLE: ";M_R::A_DOUBLE

    PRINT 
    PRINT "Here is what happens when you CVT a space to binary"
    PRINT 

    OLD_FIXED_STR$ = " "

    I% = CVT$%( INT$)
    FLT = CVT$F( FLT$)

    PRINT "INTEGER: ";I%
    PRINT "FLOAT: ";FLT

    PRINT
    PRINT "Let's go the other way"
    PRINT
    I% = 1
    FLT = 1.0
    FLT$ = CVTF$(FLT)
    INT$ = CVT%$(I%)

    PRINT
    PRINT "Integer string: ";INT$
    PRINT "Float string: ";FLT$

32767	END