100 '
101 ' VGA 31KHz CRTC tester
102 ' Copyright(C) 2002 Tatsuyuki Satoh
103 '
110 WIDTH 80,25,0,1:CLS4
120 C=&H1800:D=C+1
130 ' 525 LINE SETUP
140 OUT C,4:OUT D,&H1F
150 OUT C,5:OUT D,&HD
160 OUT C,6:OUT D,&H19
170 OUT C,7:OUT D,&H1C
180 '
190 CLS
200 FOR I=0 TO 79:PRINT HEX$(INT(I/10));:NEXT
210 FOR I=0 TO 79:PRINT HEX$(I MOD 10);:NEXT
220 CONSOLE 3,22
230 ' ADJUSTER
240 R0=&H53 : R2=&H48
250 F=2684.65875#/(R0+1)
260 PRINT "R0(4,6)=";R0;"(HF=";F;"KHz),SYNC(4,6)=";R2
270 OUT C,0:OUT D,R0 : OUT C,2:OUT D,R2
270 A$=INKEY$(1)
280 R0=R0+(A$="4")*2-(A$="6")*2
290 R2=R2+(A$="2")-(A$="8")
300 GOTO 250