SCREEN 12: WIDTH , 60 x=10:y=240 ch$ = "输入 <比较基准年月日> 8位数,默认年月日为20160630。" OPEN "asc16" FOR BINARY AS #2 OPEN "hzk16f" FOR BINARY AS #1 m = 1 1 IF m > LEN(ch$) THEN 3 ss = ASC(MID$(ch$, m, 1)) IF ss < 161 THEN x = x + 1: GOTO 2 ww = ASC(MID$(ch$, m + 1, 1)) aa = ((ss - 161) * 94 + (ww - 161)) * 32 + 1 '((qu - 161) * 94& + wei - 161) * 32& + 1 SEEK #1, aa c$ = INPUT$(32, 1) FOR i = 0 TO 15 FOR j = 0 TO 1 a = ASC(MID$(c$, I * 2 + J + 1, 1)) FOR k = 0 TO 7 code = a AND 2 ^ (7 - K) IF code THEN PSET (x + j * 8 + k, y + i), 11 NEXT k NEXT j NEXT i x = x + 14 m = m + 2: GOTO 1 2 SEEK #2, ss * 16 + 1 yw$ = INPUT$(16, 2) FOR i = 1 TO 16 a = ASC(MID$(yw$, I, 1)) FOR k = 0 TO 7 code = a AND 2 ^ (7 - K) IF code THEN PSET (x + k, y + i), 11 NEXT k NEXT i x = x + 8 m = m + 1: GOTO 1 3 CLOSE #1: CLOSE #2