10 D=&HDE00:
20 READ A$:IF A$<>"$" THEN POKE D,VAL("&H"+A$):D=D+1:GOTO 20
30 SCREEN 4,2,2:COLOR 1,0,2:CLS
40 POKE &HDE0C,&HA0 ← シフトJIS 漢字コード下位
50 POKE &HDE0D,&H82 ← シフトJIS 漢字コード上位
60 POKE &HDE0E,0 ← X座標
70 POKE &HDE0F,0 ← Y座標
80 EXEC &HDE00 ← 全角表示ルーチン用コールアドレス
90 END
300 DATA C3,10,DE,C3,16,DE,C3,1C,DE,C3,22,DE,A0,82,00,00
310 DATA CD,B0,DE,C3,28,DE,CD,B0,DE,C3,39,DE,CD,ED,DE,C3
320 DATA 28,DE,CD,ED,DE,C3,39,DE,54,5D,CD,FF,DE,3E,B6,32
330 DATA 33,DF,32,37,DF,CD,1C,DF,C9,54,5D,DD,21,0E,DE,3E
340 DATA B6,32,33,DF,32,37,DF,CD,FF,DE,CD,1C,DF,DD,34,00
350 DATA CD,FF,DE,CD,1C,DF,DD,34,00,CD,FF,DE,CD,1C,DF,DD
360 DATA 34,01,CD,FF,DE,CD,1C,DF,DD,35,00,CD,FF,DE,CD,1C
370 DATA DF,DD,35,00,CD,FF,DE,CD,1C,DF,DD,34,01,CD,FF,DE
380 DATA CD,1C,DF,DD,34,00,CD,FF,DE,CD,1C,DF,DD,34,00,CD
390 DATA FF,DE,CD,1C,DF,DD,35,00,DD,35,01,3E,AE,32,33,DF
400 DATA 32,37,DF,CD,FF,DE,CD,1C,DF,DD,35,00,DD,35,01,C9
410 DATA 3A,0D,DE,EE,20,D6,A1,6F,26,00,29,29,44,4D,29,29
420 DATA 29,29,09,44,4D,67,2E,00,B7,ED,42,3A,0C,DE,D6,40
430 DATA FE,40,38,01,3D,4F,06,00,09,29,29,29,7C,07,07,07
440 DATA E6,07,D3,7F,7C,E6,1F,67,01,00,40,09,C9,3E,09,D3
450 DATA 7F,3A,0C,DE,6F,26,00,29,29,29,01,00,40,09,C9,3A
460 DATA 0F,DE,6F,26,00,29,29,29,29,29,3A,0E,DE,CB,3F,CB
470 DATA 3F,CB,3F,4F,06,00,09,01,00,E2,09,C9,3E,08,D5,08
480 DATA 3A,0E,DE,E6,07,47,04,0E,00,1A,05,28,06,CB,3F,CB
490 DATA 19,18,F7,B6,77,23,79,B6,77,01,1F,00,09,13,08,3D
500 DATA 20,DD,D1,C9,$
|