SOURCE CODE ()

    CLS

    DIM firstbs AS SIGNED BYTE, secondbs AS SIGNED BYTE
    DIM firstbu AS BYTE, secondbu AS BYTE

	DIM firstws AS SIGNED WORD, secondws AS SIGNED WORD
    DIM firstwu AS WORD, secondwu AS WORD

	DIM firstds AS SIGNED DWORD, secondds AS SIGNED DWORD
    DIM firstdu AS DWORD, seconddu AS DWORD

    firstbs = -42: secondbs = 24
    firstbu = 42: secondbu = 24

	firstws = -4200: secondws = 2400
 	firstwu = 4200: secondwu = 2400

	firstds = -1024000: secondds = 204800
    firstdu = 1024000: seconddu = 204800
    
    SWAP firstbs, secondbs
    SWAP firstbu, secondbu

	SWAP firstws, secondws
 	SWAP firstwu, secondwu

	SWAP firstds, secondds
    SWAP firstdu, seconddu

	PRINT "BYTE SIGNED:";    
	IF firstbs = 24 THEN
		PRINT "OK (1) ";
	ELSE
		PRINT "FAIL (1) = ";firstbs
    ENDIF    
    IF secondbs = -42 THEN
		PRINT "OK (2) ";    
	ELSE
		PRINT "FAIL (2) = ";secondbs
    ENDIF

    PRINT
    
	PRINT "BYTE UNSIGNED:";    
    IF firstbu = 24 THEN
		PRINT "OK (1) ";
	ELSE
		PRINT "FAIL (2) = ";firstbu
    ENDIF
    IF secondbu = 42 THEN
		PRINT "OK (2) ";    
    ENDIF

    PRINT

	PRINT "WORD SIGNED:";    
	IF firstws = 2400 THEN
		PRINT "OK (1) ";
	ENDIF
	IF secondws = -4200 THEN
		PRINT "OK (2) ";	
	ENDIF
	
    PRINT
    
	PRINT "WORD UNSIGNED:";    
 	IF firstwu = 2400 THEN
		PRINT "OK (1) ";
 	ENDIF 	
 	IF secondwu = 4200 THEN
		PRINT "OK (2) ";
 	ENDIF

	PRINT

	PRINT "DWORD SIGNED:";    	
	IF firstds = 204800 THEN
		PRINT "OK (1) ";
	ENDIF
	IF secondds = -1024000 THEN
		PRINT "OK (2) ";
	ENDIF
	
	PRINT
	
	PRINT "DWORD UNSIGNED:";    	
    IF firstdu = 204800 THEN
		PRINT "OK (1) ";
    ENDIF
    IF seconddu = 1024000 THEN
		PRINT "OK (2) ";
    ENDIF
    

Atari 1200XL, Atari 130XE, Atari 600XL, Atari 65XE, Atari 800XE, Atari 800XL, Atari XEGS

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

Linux

ugbc.atarixl -O xex -o basic_swap.xex basic_swap.bas

Windows

ugbc.atarixl.exe -O xex -o basic_swap.xex basic_swap.bas

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

COCO 1/2 (Motorola 6809)

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

Linux

ugbc.coco -O bin -o basic_swap.bin basic_swap.bas

Windows

ugbc.coco.exe -O bin -o basic_swap.bin basic_swap.bas

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

Coleco Vision, Dina (Chuang Zao Zhe 50), SpectraVideo SV-603 VGA

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

Linux

ugbc.coleco -O rom -o basic_swap.rom basic_swap.bas

Windows

ugbc.coleco.exe -O rom -o basic_swap.rom basic_swap.bas

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

Commodore 128 (CPU Z80)

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

Linux

ugbc.c128z -O prg -o basic_swap.prg basic_swap.bas

Windows

ugbc.c128z.exe -O prg -o basic_swap.prg basic_swap.bas

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

Dragon 32 (Motorola 6809)

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

Linux

ugbc.d32 -O bin -o basic_swap.bin basic_swap.bas

Windows

ugbc.d32.exe -O bin -o basic_swap.bin basic_swap.bas

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

MSX

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

Linux

ugbc.msx1 -O rom -o basic_swap.rom basic_swap.bas

Windows

ugbc.msx1.exe -O rom -o basic_swap.rom basic_swap.bas

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

Plus/4

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

Linux

ugbc.plus4 -O prg -o basic_swap.prg basic_swap.bas

Windows

ugbc.plus4.exe -O prg -o basic_swap.prg basic_swap.bas

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

SEGA SG-1000

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

Linux

ugbc.sg1000 -O rom -o basic_swap.rom basic_swap.bas

Windows

ugbc.sg1000.exe -O rom -o basic_swap.rom basic_swap.bas

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

Thomson TO8

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

Linux

ugbc.to8 -O k7 -o basic_swap.k7 basic_swap.bas

Windows

ugbc.to8.exe -O k7 -o basic_swap.k7 basic_swap.bas

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

ZX Spectrum +2, ZX Spectrum 128K, ZX Spectrum 48K

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

Linux

ugbc.zx -O tap -o basic_swap.tap basic_swap.bas

Windows

ugbc.zx.exe -O tap -o basic_swap.tap basic_swap.bas

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