画面に比較的大きな文字を表示したい

[いとちゃん]

CSVファイルに１２３４５６というデータがあったら
それを読んで、画面に比較的大きな文字に表示したいのですが
具体的にどのようにすればよいでしょうか。
コードを教えてくださる方お願いします。

[たかせ]

画面とは何をさしますか？
①N88BASICプロンプト
②DOSプロンプト
③ノーマルウインドウ
よろしくお願いいたします。

[HSABP]

コード: 全て選択

Dim hdc As HDC, hfont As HFONT, csv As String

Open "unko.csv" For Input As #1
Input #1, csv
Close #1
	
hdc = GetDC(GetDesktopWindow())
hfont = CreateFont(500 , 0 , 0 , 0 , FW_BOLD , TRUE , TRUE , FALSE ,_
	SHIFTJIS_CHARSET , OUT_DEFAULT_PRECIS ,CLIP_DEFAULT_PRECIS , _
	DEFAULT_QUALITY , VARIABLE_PITCH or FF_ROMAN , NULL)
SelectObject(hdc , hfont)
TextOut(hdc, 0,0, StrPtr(csv), lstrlen(StrPtr(csv)))
SelectObject(hdc , GetStockObject(SYSTEM_FONT))
DeleteObject(hfont)
ReleaseDC(GetDesktopWindow(),	hdc)