charmap.bas

来自「smallbasic for linux」· BAS 代码 · 共 23 行

#!/usr/local/bin/sbrun -g
' CHARMAP
' 25/05/2000
cls
ln=1
for i=0 to 255
	if (i<>12) and (i<>27) and (i<>10) and (i<>13)
		? i;" ";chr$(i)+chr$(9);
	else
		? chr$(9);
	fi
	if ((i+1) mod 5) = 0 then
		?
		ln=ln+1
		if ( ln mod 14) = 0
			? "Pause...";
			pause
			?
			ln=1
		fi
	endif
next