そのプログラムに以下の記述を追加してみてください RESTORE @1 READ A$ FOR I=0 TO 23 A=VAL(MID$(A$,I,1)) FOR L=0 TO A IF L!=0 THEN LOCATE I,20-L:PRINT "■" NEXT NEXT これでデータを取り出して画面に表示できますよ。