[SAMPLE19] SAMPLE

10 REM SAMPLE19
100 SCREEN 1,0:CLS 3
110 FOR I=&H3000 TO &H4F00 STEP &H100
120 FOR J=&H21 TO &H7E
130 KCODE=I+J
140 PUT (X,168),KANJI(KCODE),PSET
150 X=X+20
160 IF X>623 THEN X=0:ROLL 18
170 NEXT J
180 NEXT I
900 END