' ------- 20 Seizano Benkyou
10 CLP:A=-1
20 R=RND(5):IF R=A THEN GOTO 20
30 A=R
40 GOSUB R*20+1000
50 LC 0,23:?"Push any key";
60 IF INKEY()=0 THEN GOTO 60
70 GOTO 20
1000 LET [0],15,1,6,5,16,10,14,11,12,12,23,16,13,20,-1
1010 GOSUB 2000:?"Orion":RETURN
1020 LET [0],27,2,16,7,28,7,10,8,5,11,21,11,2,15,-1
1030 GOSUB 2000:?"Hokuto Shichisei":RETURN
1040 LET [0],23,2,16,11,23,12,5,13,14,17,-1
1050 GOSUB 2000:?"Cassiopeia":RETURN
1060 LET [0],23,2,25,2,11,3,20,5,15,8,10,11,4,12,20,14,23,17,-1
1070 GOSUB 2000:?"Hakuchou":RETURN
1080 LET [0],15,2,21,7,9,8,15,17,-1
1090 GOSUB 2000:?"Minami Jyujisei":RETURN
2000 CLS
2010 I=0
2020 X=[I]:Y=[I+1]
2030 IF X=-1 THEN LC 0,0:RETURN
2040 LC X,Y:?CHR$(233);:WAIT 5:LC X,Y:?CHR$(11);:WAIT 5:LC X,Y:?".";
2050 I=I+2:GOTO 2020