CLEAR:ACLS
BGPAGE 0
LOAD"SCU0:SCROLL2",FALSE

CHRNUM=7
DIM CH$(8,CHRNUM)
DIM CTBL(CHRNUM)
DIM CSPD(CHRNUM)
GOSUB @CHR_SET

CT=0
@LOOP
 FOR CNO=0 TO CHRNUM-1
  T=FLOOR(CT*CSPD(CNO))%8
  IF T<0 THEN T=8+T
  CHRSET "BGU0",CTBL(CNO),CH$(T,CNO)
 NEXT CNO
 VSYNC 2
 CT=CT+1
GOTO @LOOP


@CHR_SET
'BG·¬× É ±ÆÒÃÞ-À ¦ ij۸
 RESTORE @CHRDATA
 FOR CNO=0 TO CHRNUM-1
  READ CTBL(CNO),CSPD(CNO),MODE,CH$(0,CNO)
  CHRSET "BGU0",CTBL(CNO),CH$(0,CNO)
  T1$="@CHR_MODE"+STR$(MODE)
  GOSUB T1$
 NEXT CNO
RETURN

@CHR_MODE0
'ÚÝ¿Þ¸ ¼À DATA ÃÞ Ä³Û¸
 FOR SNO=1 TO 7
  READ CH$(SNO,CNO)
 NEXT SNO
RETURN

@CHR_MODE1
'Öº Æ ½Þ׼à ij۸
 SCRL=1
 FOR SNO=1 TO 7
  T1$=CH$(SNO-1,CNO)
  T2$=""
  FOR I=0 TO 7
   T2$=T2$+MID$(T1$,I*8+SCRL,8-SCRL)
   T2$=T2$+MID$(T1$,I*8,SCRL)
  NEXT I
  CH$(SNO,CNO)=T2$
 NEXT SNO
RETURN

@CHR_MODE2
'ÀÃ Æ ½Þ׼à ij۸
 FOR SNO=1 TO 7
  T1$=CH$(SNO-1,CNO)
  T2$=MID$(T1$,8,56)+MID$(T1$,0,8)
  CH$(SNO,CNO)=T2$
 NEXT SNO
RETURN

@CHRDATA
'    NO,SPD ,MODE,DATA
DATA 32,1   ,1,"1100000101100011001111100001100000111000111011001000011010000011"
DATA 33,2   ,1,"DDDDDDDDD4444441D4444441D4444441D4444441D4444441D444444111111111"
DATA 34,1   ,2,"0054420005444420D5444421D5444421D5444421D54444210544442000544200"
DATA 64,0.10,0,"6666666666666666666666666666666666666666666666666666666666666666"
DATA           "0000000000000000000000000000000000000000000000000000000000000000"
DATA           "0066660006666660666666666666666666666666666666660666666000666600"
DATA           "0000000000000000000000000000000000000000000000000000000000000000"
DATA           "0006600000666600066666606666666666666666066666600066660000066000"
DATA           "0000000000000000000000000000000000000000000000000000000000000000"
DATA           "6600006666600666066666600066660000666600066666606660066666000066"
DATA           "0000000000000000000000000000000000000000000000000000000000000000"
DATA 65,0.5 ,0,"DDDDDDDDD1111111D1111111D1111111D1111111D1111111D1111111D1111111"
DATA           "111111111111111111111111111111111111111111111111111111111111111D"
DATA           "111111111111111111111111111111111111111111111111111111DD111111D1"
DATA           "111111111111111111111111111111111111111111111DDD11111D1111111D11"
DATA           "111111111111111111111111111111111111DDDD1111D1111111D1111111D111"
DATA           "111111111111111111111111111DDDDD111D1111111D1111111D1111111D1111"
DATA           "111111111111111111DDDDDD11D1111111D1111111D1111111D1111111D11111"
DATA           "111111111DDDDDDD1D1111111D1111111D1111111D1111111D1111111D111111"
DATA 66,0.5 ,1,"D1111111D1111111D1111111D1111111D1111111D1111111D1111111D1111111"
DATA 67,0.5 ,2,"DDDDDDDD11111111111111111111111111111111111111111111111111111111"