ひらがな表示 BASICリスト

hiragana.bas

5 '(c)1989 DEKO
10 '*** INIT ***
20 KEY 4, "POKE &BFC93,&80,&FA,&B"+CHR$ 13
30 KEY 5, "POKE &BFC93,&58,&25,&F"+CHR$ 13
40 POKE &BFE03,&1A,&FD,&0B,&80,&01,&00 :CALL &FFFD8
50 '***MAIN***
60 *A:CLS :LOCATE 12,0:PRINT "***  ﾋﾗｶﾞﾅ ***":LOCATE 10,2:PRINT "ｼﾊﾞﾗｸｵﾏﾁｸﾀﾞｻｲ･･･｡":B=0
70 FOR L=0 TO 63:FOR I=0 TO 5:IF I=5THEN A$="00":GOTO 90
80 READ A$
90 POKE (&BFA80+B),VAL ("&H"+A$):B=B+1
100 NEXT :NEXT :LOCATE 14,3:PRINT "ｼｭｳﾘｮｳｼﾏｼﾀ｡":LOCATE 0,0
110 '*** DATA ***
120 DATA 00,00,00,00,00,00,70,50,70,00
130 DATA 00,07,01,01,01,40,40,40,70,00
140 DATA 00,20,40,00,00,00,18,18,00,00
150 DATA 32,4A,5F,5A,42,00,68,7C,68,50
160 DATA 00,38,40,00,38,10,0C,4C,34,00
170 DATA 00,48,2C,58,40,68,7C,28,60,10
180 DATA 10,78,10,38,30,38,10,7C,28,30
190 DATA 00,60,7C,28,48,00,10,10,48,30
200 DATA 08,08,08,08,00,70,2A,7F,0A,74
210 DATA 1E,20,10,02,0C,04,45,45,24,18
220 DATA 44,25,35,4C,40,72,7F,0A,48,74
230 DATA 24,1C,47,3C,18,00,2A,4F,1A,08
240 DATA 08,14,22,41,00,3E,00,42,3F,02
250 DATA 30,40,42,44,00,04,25,4E,14,02
260 DATA 00,3F,40,40,30,02,5A,3F,02,02
270 DATA 04,3F,44,5F,44,08,2A,5C,4A,08
280 DATA 7A,07,02,28,48,00,12,4F,4A,30
290 DATA 04,04,02,22,1C,02,04,04,3A,46
300 DATA 00,30,4F,48,44,1A,07,62,78,22
310 DATA 7E,00,32,42,42,78,77,1C,67,78
320 DATA 12,7F,0A,64,78,3C,22,1E,42,3C
330 DATA 7E,00,62,7F,22,3A,46,42,38,1C
340 DATA 30,20,45,38,18,08,04 02,0C,30
350 DATA 7E,00,6A,7E,2A,6A,6A,7F,2A,4A
360 DATA 72,3E,10,7C,10,32,3F,42,40,34
370 DATA 78,77,3C,07,78,0A,3F,4A,40,30
380 DATA 04,7F,04,1F,1C,0E,44,3F,12,0C
390 DATA 60,60,7F,24,44,00,4C,49,4A,30
400 DATA 0E,00,40,3E,00,10,09,6D,6B,30
410 DATA 12,7F,0A,34,4C,10,09,4D,4B,30
420 DATA 12,7F,04,42,3C,60,1C,0B,70,40
430 DATA 02,04,02,04,00,03,03,00,00,00