1000 'save "RANSU30.BAS",A
1010 '~~~~~~~~ ﾗﾝｽｳ ﾊｯｾｲ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1020 GOSUB *JIKAN
1030 TT=(H0-M0)*S0
1040 RANDOMIZE TT
1045 LPRINT T0$
1050 AL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^"
1060 AL=ASC(AL$)
1070 II=LEN(AL$):LPRINT "人数";II;"名"
1080 FOR I=1 TO II
1090   R=INT(RND*LEN(AL$))+1
1100   IF LEN(AL$)=0 THEN PRINT"END":END
1110   NO=ASC(MID$(AL$,R,1))-AL+1:LPRINT I;"日目…";
1120   LPRINT "出席番号";NO
1130   AL$=LEFT$(AL$,R-1)+RIGHT$(AL$,LEN(AL$)-R)
1140 NEXT I
1160 END
1170 '~~~~~~~~ ｼﾞｶﾝ ｾｯﾃｲ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1180 *JIKAN
1190 T0$=TIME$
1200 H0=VAL(LEFT$(T0$,2))
1210 M0=VAL(MID$(T0$,4,2))
1220 S0=VAL(RIGHT$(T0$,2))
1230 T0=H0*3600+M0*60+S0
1240 RETURN