SOURCE CODE ()

PROCEDURE example ON COCO3, C64REU

    CLS

    IF BANK COUNT = 0 THEN
        PRINT "Sorry, this target "
        PRINT "  does not have any memory bank"
    ELSE

        PRINT "CURRENT BANK #: "; BANK()
        PRINT
        PRINT "SELECT BANK #";(BANK COUNT - 1)
        PRINT
        BANK (BANK COUNT - 1)
        PRINT "CURRENT BANK #: "; BANK()
        PRINT

        FOR i=0 TO BANK COUNT - 1
            IF i = BANK() THEN
                PRINT "*";
            ELSE
                PRINT " ";
            ENDIF
            PRINT i;") AT ";BANK ADDRESS(i);" ("; BANK SIZE(i);" bytes)"
        NEXT

        PRINT "* = actual bank selected"
    ENDIF

END PROCEDURE

    example[] ON COCO3, C64REU

TRS-80 Color Computer 3

In order to compile the example, type this command on the command line:

Linux

ugbc.coco3 -O bin -o expansion_bank_02.bin expansion_bank_02.bas

Windows

ugbc.coco3.exe -O bin -o expansion_bank_02.bin expansion_bank_02.bas

For Microsoft Windows users we suggest using UGBASIC-IDE, which allows you to download and compile this example with just one click.