SOURCE CODE ()

CONST applicationName = "ugchat"

DO
	CLS
	PRINT "==========="
	PRINT "CHAT CLIENT"
	PRINT "==========="
	WHILE NOT PING()
		PRINT ".";
		WAIT 300 MS
	WEND
	PRINT
	INPUT "USERNAME: ", username$
	INPUT "PASSWORD: ", password$
	PRINT
	PRINT "CONNECTING TO SERVER: ";
	player = LOGIN(username$, password$)
	
	IF SUCCESS(player) THEN
		PRINT "OK"
		PRINT "CREATING PORT: ";
		port = CREATE PORT(player,applicationName)
		IF SUCCESS(port) THEN
			PRINT "OK"
			DO
				INPUT "RECIPIENT: ", recipient$
				port2 = FIND PORT(player,recipient$,applicationName)
				IF SUCCESS(port2) THEN
					DO
						WHILE PEEK MESSAGE(port)
							PRINT recipient$;"> ";GET MESSAGE(port)
						WEND
						TIMER = 0
						WHILE ( c$ = "" ) AND ( TIMER < ( TICKS PER SECOND / 2 ) )
							c$ = INKEY$					
							IF c$<>"" THEN
								PUT KEY c$
								INPUT ">",message$
								IF message$<>"" THEN
									PUT MESSAGE port2, message$
								ENDIF
								c$ = ""
							ENDIF							
						WEND
					LOOP
				ELSE
					PRINT "ERROR: RECIPIENT UNAVAILABLE"
					WAIT KEY RELEASE
				ENDIF
			LOOP
		ELSE
			PRINT "ERROR: CANNOT CREATE PORT"
			WAIT KEY RELEASE
		ENDIF
	ELSE
		PRINT "ERROR: ACCESS DENIED!"
		WAIT KEY RELEASE
	ENDIF
LOOP
	

TRS-80 Color Computer, TRS-80 Color Computer 2

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

Linux

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

Windows

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

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