WBStartup
DEFTYPE .l
TST.l $f0ffc0
BEQ wronguae
If NumPars=0
     NPrint "Usage: p96refresh hz (hz=50-300)  Example: p96refresh 100   Sets rate to 100 hz"
     v=25
Else
     v=Val(Par$(1))/2
End If
If v<25 OR v>150 Then v=25:NPrint "Usage: p96refresh hz (hz=50-300) Example: p96refresh 100   Sets rate to 100 hz"
MOVE.l v@(a5),d1
MOVEQ #13,d0
JSR $f0ffc0
End
wronguae
NPrint "P96refresh error:Please install winuae >0.8.21 R4"
