PROGRAM  "ASCII table"
VERSION  "0.0000"

DECLARE FUNCTION Entry ()

FUNCTION  Entry ()
	FOR i = 32 TO 47
		FOR j = i TO i + 80 STEP 16
			SELECT CASE j
			CASE 32
				s$ = "Spc"
			CASE 127
				s$ = "Del"
			CASE ELSE
				s$ = CHR$(j)
			END SELECT
			PRINT RJUST$("  "+STRING(j),4); ": "; LJUST$(s$,3);
		NEXT j
		PRINT
	NEXT i
END FUNCTION
END PROGRAM