DECLARE SUB ditu (t%, t1%, w%, w1%)
DECLARE SUB ankey (q1, q2, key$)
DECLARE SUB ankey1 (v1, v2, key1$)
SCREEN 12
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1
DATA 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1
DATA 1,0,1,0,1,1,1,1,1,1,1,1,1,0,0,1,0,1,0,1
DATA 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
DATA 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
DATA 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,0,1
DATA 1,0,1,0,1,0,0,1,1,1,1,1,1,1,1,1,0,1,0,1
DATA 1,0,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,1,0,1
DATA 1,0,1,0,0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1
DATA 1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,0,1
DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
OPTION BASE 1
DIM SHARED shu%(20, 14), p1(110), p2(110)
LINE (0, 0)-(27, 27), 0, BF
CIRCLE (14, 14), 13, 14
PAINT (14, 14), 14
CIRCLE (8, 9), 4, 0, 0, 3.14
CIRCLE (19, 9), 4, 0, 0, 3.14
CIRCLE (14, 21), 3, 0, 3.14, 0
GET (0, 0)-(26, 26), p1
LINE (0, 0)-(27, 27), 0, BF
CIRCLE (14, 14), 13, 4
PAINT (14, 14), 4
CIRCLE (8, 9), 4, 0, 0, 3.14
CIRCLE (19, 9), 4, 0, 0, 3.14
CIRCLE (14, 21), 3, 0, 3.14, 0
GET (0, 0)-(26, 26), p2
LINE (0, 0)-(27, 27), 0, BF
'+++++++++++++++++++++++++++++++++++++++++++++++
FOR i = 1 TO 14
FOR j = 1 TO 20
  READ ditus
  shu%(j, i) = ditus
NEXT j, i
'''''''''''''''''''''''''gao
COLOR 14
LOCATE 8, 10
PRINT "Zhe li wo yao gan xie wo de lao shi Zhou Qing"
PRINT TAB(10); "Zhe shi yi ge shuang ren you xi."
PRINT TAB(10); "Qu zhao ta. "
PRINT TAB(10); "Ru guo ni ren wei ta zai na qing an jian"
PRINT TAB(10); "SPACE or ENTER."
PRINT TAB(10); "Ni zhao dui fang you 4 ci ji hui."
PRINT TAB(10); "Ni ke yi bu yong he dui fang huan an jian."
PRINT TAB(10); "Jiu ke yi shi xian ni zhao ta huo ta zhao ni."
PRINT TAB(10); "Zai huo GOOD huo si qu 4 ci ji hui cheng xu"
PRINT TAB(10); "Hui zi dong huan jian."
PRINT TAB(10); "use,w,a,s,d,up,down,left,right,enter,space,esc"
PRINT TAB(10); "Zai GOOD huo lost 4 ci huo bian hong lian"
PRINT TAB(10); "Di yi ci an de shi kai shi jian!!"
PRINT TAB(60); "IGDX V2.0"
PRINT TAB(60); "8/25/2005"
DO: LOOP UNTIL INKEY$ <> ""
CLS
'-----------------------------
FOR i = 1 TO 14
FOR j = 1 TO 20
  IF shu%(j, i) = 1 THEN
    CALL ditu(j * 28, i * 28, j * 28 + 28, i * 28 + 28)
  END IF
NEXT j, i
'+++++++++++++++++++++++++++++++++++++++++
DIM SHARED m1, m2
'pp1+++++++++++
q1 = 9: q2 = 7
m1 = q1: m2 = q2
'pp2+++++++++++++++++++++++++++++++++++++
DIM SHARED v1, v2
v1 = 9: v2 = 7
DIM SHARED p, n 'anjian zhuan huan
p = 1
'=============================================
PUT (v1 * 28, v2 * 28), p2
DO: LOOP UNTIL INKEY$ <> ""
LINE (v1 * 28, v2 * 28)-(v1 * 28 + 28, v2 * 28 + 28), 0, BF
'best main-------------------------
DO
PUT (m1 * 28, m2 * 28), p1
'-----------------------------------------
IF n = 4 THEN
PUT (m1 * 28, m2 * 28), p1
q1 = 9: q2 = 7: m1 = q1: m2 = q2: v1 = 9: v2 = 7
PUT (v1 * 28, v2 * 28), p2
DO: LOOP UNTIL INKEY$ <> ""
LINE (v1 * 28, v2 * 28)-(v1 * 28 + 28, v2 * 28 + 28), 0, BF
PUT (m1 * 28, m2 * 28), p1
n = 0
p = -p
END IF
'-----------------------------------------
DO: k$ = INKEY$: LOOP UNTIL k$ <> ""
CALL ankey1(v1, v2, k$)
CALL ankey(q1, q2, k$)
PUT (q1 * 28, q2 * 28), p1
LOOP