NEW

20 rem output1 = $4100
30 rem output2 = $4108
40 rem scancount (number of frames) stored at $4110 -- set in BASIC portion

130 d=4*4096:for j=0 to 512:poke d+j,0:next
140 K=D
150 READ E: IF E= -1 THEN 170
160 POKE K,E:K=K+1:GOTO 150
170 GOSUB 800
230 EXEC (D)
240 print peek(d+256)+256*peek(d+257)+256*256*peek(d+258)
250 print peek(d+256+8)+256*peek(d+257+8)+256*256*peek(d+258+8)
300 END

800 REM 
810 CLS:PRINT"VBLANK proportion tester (ALICE32)"
820 PRINT"BY JAMES THE ANIMAL TAMER 2006":print
830 print "hit a key to start":b$=inkey$
840 b$=inkey$:if b$=""then840
850 RETURN

1010 DATA 134,149,183,191,40,134,0,183
1020 DATA 65,0,183,65,1,183,65,2
1030 DATA 183,65,8,183,65,9,183,65
1040 DATA 10,246,191,32,196,128,38,249
1050 DATA 246,191,32,196,4,39,2,38
1060 DATA 247,246,191,32,196,4,39,249
1070 DATA 246,191,32,196,4,39,2,38
1080 DATA 247,246,191,32,196,4,39,249
1090 DATA 246,191,32,206,65,0,12,134
1100 DATA 1,169,0,167,0,8,134,0
1110 DATA 169,0,167,0,8,134,0,169
1120 DATA 0,167,0,196,4,38,225,246
1130 DATA 191,32,206,65,8,12,134,1
1140 DATA 169,0,167,0,8,134,0,169
1150 DATA 0,167,0,8,134,0,169,0
1160 DATA 167,0,196,4,39,225,122,65
1170 DATA 16,38,189,57,-1
