フォントを太字にします。

100 CLEAR 128,&HCF7F
110 '
120 FOR AD=&HCF80 TO &HCFCF
130 READ DT$:POKE AD,VAL("&H"+DT$)
140 NEXT AD
150 '
160 DEFUSR=&HCF80:A=USR(0)
170 '
180 'BSAVE "FONTBOLD.BIN",&HCF80,&HCFCF,&HCF80
190 'BLOAD "FONTBOLD.BIN",R
200 '
1000 DATA F3,DB,A8,F5,DD,21,1F,F9,DD,5E,00,E6,F0,B3,CB,23
1010 DATA CB,23,B3,D3,A8,DD,6E,01,DD,66,02,11,00,D0,01,00
1020 DATA 08,ED,B0,F1,D3,A8,FB,21,00,D0,01,00,08,7E,5F,CB
1030 DATA 3B,B3,77,23,0B,78,B1,20,F4,21,00,D0,DD,36,00,03
1040 DATA DD,75,01,DD,74,02,3A,AF,FC,CD,5F,00,C9,00,00,00