Petitverse

'２進数版GLOAD
'誰か動作確認してくださると嬉しいです
ACLS
OPTION DEFINT
FONTDEF ASC("0"),"0"*256
FONTDEF ASC("1"),"F"*256
VAR A=FLOOR(RNDF()*4294967295)-2147483648
VAR I,T=MILLISEC
DIM B[32]
GLINE 0,0,31,0,0
GPUTCHR 0,0,BIN$(A,32),0.125,0.125
PRINT MILLISEC-T
GSAVE 0,0,32,0,B,0
PRINT BIN$(A,32)
FOR I=0 TO 31
　PRINT!!B[I];
NEXT I
PRINT