DIM nam$(100)
DIM fam$(20)
nam$(1) = "An"
nam$(2) = "Bai"
nam$(3) = "Bao"
nam$(4) = "Bi"
nam$(5) = "Bing"
nam$(6) = "Chen"
nam$(7) = "Chi"
nam$(8) = "Chih"
nam$(9) = "Chin"
nam$(10) = "Chung"
nam$(11) = "Deng"
nam$(12) = "Di"
nam$(13) = "Dong"
nam$(14) = "Dou"
nam$(15) = "E"
nam$(16) = "Fei"
nam$(17) = "Feng"
nam$(18) = "Fu"
nam$(19) = "Gong"
nam$(20) = "Gou"
nam$(21) = "Gu"
nam$(22) = "Gua"
nam$(23) = "Guan"
nam$(24) = "Gui"
nam$(25) = "He"
nam$(26) = "Hei"
nam$(27) = "Hong"
nam$(28) = "Hou"
nam$(29) = "Hsieh"
nam$(30) = "Hu"
nam$(31) = "Huan"
nam$(32) = "Huang"
nam$(33) = "Huo"
nam$(34) = "Hui"
nam$(35) = "I"
nam$(36) = "Jiang"
nam$(37) = "Jiao"
nam$(38) = "Jin"
nam$(39) = "Jing"
nam$(40) = "Ju"
nam$(41) = "Kai"
nam$(42) = "Lan"
nam$(43) = "Lang"
nam$(44) = "Lei"
nam$(45) = "Li"
nam$(46) = "Lin"
nam$(47) = "Long"
nam$(48) = "Lu"
nam$(49) = "Ma"
nam$(50) = "Mao"
nam$(51) = "Mei"
nam$(52) = "Meng"
nam$(53) = "Mi"
nam$(54) = "Nai"
nam$(55) = "Nan"
nam$(56) = "Niu"
nam$(57) = "Nu"
nam$(58) = "Pao"
nam$(59) = "Pen"
nam$(60) = "Ping"
nam$(61) = "Qian"
nam$(62) = "Qiao"
nam$(63) = "Ri"
nam$(64) = "Shan"
nam$(65) = "She"
nam$(66) = "Shen"
nam$(67) = "Sheng"
nam$(68) = "Shih"
nam$(69) = "Shu"
nam$(70) = "Shui"
nam$(71) = "Shun"
nam$(72) = "Song"
nam$(73) = "Su"
nam$(74) = "Suan"
nam$(75) = "Tao"
nam$(76) = "Tian"
nam$(77) = "Tieh"
nam$(78) = "Tong"
nam$(79) = "Tu"
nam$(80) = "Wa"
nam$(81) = "Wan"
nam$(82) = "Wang"
nam$(83) = "Xian"
nam$(84) = "Xiang"
nam$(85) = "Xiao"
nam$(86) = "Xin"
nam$(87) = "Xing"
nam$(88) = "Xue"
nam$(89) = "Ya"
nam$(90) = "Yan"
nam$(91) = "Yang"
nam$(92) = "Yin"
nam$(93) = "Ying"
nam$(94) = "Yue"
nam$(95) = "Yun"
nam$(96) = "Yung"
nam$(97) = "Zhong"
nam$(98) = "Zhu"
nam$(99) = "Zi"
num$(1) = "Yi"
num$(2) = "Er"
num$(3) = "San"
num$(4) = "Si"
num$(5) = "Wu"
num$(6) = "Liu"
num$(7) = "Qi"
num$(8) = "Ba"
num$(9) = "Jiu"
num$(10) = "Shi"
fam$(1) = "Chan"
fam$(2) = "Chin"
fam$(3) = "Ching"
fam$(4) = "Cho"
fam$(5) = "Chow"
fam$(6) = "Chu"
fam$(7) = "Deng"
fam$(8) = "Fung"
fam$(9) = "Hoi"
fam$(10) = "Hung"
fam$(11) = "Kung"
fam$(12) = "Lee"
fam$(13) = "Lim"
fam$(14) = "Sung"
fam$(15) = "Tse"
fam$(16) = "Wan"
fam$(17) = "Wong"
fam$(18) = "Yee"
fam$(19) = "Yim"
fam$(20) = "Yu"

RANDOMIZE TIMER
5 CLS
a = INT(RND(1) * 100) + 1
b = INT(RND(1) * 100) + 1
PRINT fam$(INT(RND(1) * 20) + 1); " ";
IF a <> 100 THEN
        PRINT nam$(a);
       ELSE
        PRINT num$(INT(RND(1) * 10) + 1);
       END IF
PRINT " ";
IF b <> 100 THEN
        PRINT nam$(b)
       ELSE
        PRINT num$(INT(RND(1) * 10) + 1)
       END IF

PRINT "Again?(y/n)"
10      g$ = INKEY$
        IF g$ = "y" OR g$ = "Y" THEN
                        GOTO 5
        ELSEIF g$ = "n" OR g$ = "N" OR g$ = "q" OR g$ = "Q" THEN END
        ELSE GOTO 10
        END IF