10 SCREEN 0
15 READ A$
20 IF A$="\"THEN END
25 M=ASC(LEFT$(A$,1))
30 PRINTCHR$(M);
35 FOR I=0 TO 7
40 C$=MID$(A$,I+2,1)
45 IF C$<"G" THEN LB$="0":GOTO 60
50 IF C$>"P" THEN X=7 ELSE X=0
55 C$=CHR$(ASC(C$)-23+X):LB$="1"
60 RB$=RIGHT$("000"+BIN$(VAL("&H"+C$)),4)
65 VPOKE 2048+M*8+I,VAL("&B"+LB$+RB$+"000")
70 NEXT:GOTO 15
100 END
110 DATA AV12488C0
120 DATA IIIIIIID0
130 DATA U6991HHE0
140 DATA EV2469HH0
150 DATA o2EIGHHE0
160 DATA e44444440
170 DATA KEGGU11U0
180 DATA SV11FGHE0
190 DATA TUHHUGHU0
200 DATA LV88E1HE0
210 DATA NGGGSKLM0
220 DATA H44AAHHH0
230 DATA pE11E1HE0
240 DATA FEHH19DA0
250 DATA M1DJHJD10
260 DATA jU0IIIID0
270 DATA JU99E8880
280 DATA YUHHHHHN0
290 DATA WUHHJLLJ0
300 DATA RHHJD1110
310 DATA w60EH1960
320 DATA OF11FHHF0
330 DATA yE0UHHHN0
340 DATA PEHHE9HH0
350 DATA GA0EGU1U0
360 DATA ZA0V1FGF0
370 DATA DA0UJSHV0
380 DATA BA0E16HU0
390 '
400 DATA 0EHHVHHV0
410 DATA 1000V0000
420 DATA 2EH111110
430 DATA 3EH1111V0
440 DATA 4EHHHHHH0
450 DATA 5EHHHHHV0
460 DATA 6EHHVGGG0
470 DATA 7EHHV1110
480 DATA 8EHHVHHH0
490 DATA 9000VHHV0,\
1000 '
1010 REM "Ath characters on MSX screen 0"
1020 REM Programed By Asukamaru
1030 REM http://poramela.makibishi.jp/msx/program.htm